Permalink
Browse files

Just used deriving for the Data instance in Pad.

  • Loading branch information...
1 parent 2cda6b5 commit 22ac75f6e305707a9eb747b541bdb11ac0e86f54 @luqui committed Nov 18, 2008
Showing with 1 addition and 4 deletions.
  1. +1 −4 udon-shell/UdonShell/Pad.hs
View
5 udon-shell/UdonShell/Pad.hs
@@ -9,13 +9,10 @@ import qualified Udon.DescCombinators as D
import qualified Data.Map as Map
newtype Pad = Pad { unPad :: Map.Map String DynRef }
- deriving (Typeable)
+ deriving (Typeable, Data)
conj f = Pad . f . unPad
-instance Data Pad where
- desc = D.wrap (Pad . Map.fromDistinctAscList, Map.toList . unPad) desc
-
insert :: String -> DynRef -> Pad -> Pad
insert str ref = conj (Map.insert str ref)

0 comments on commit 22ac75f

Please sign in to comment.