Just used deriving for the Data instance in Pad.

luqui · Nov 18, 2008 · 22ac75f · 22ac75f
1 parent 2cda6b5
commit 22ac75f
Showing 1 changed file with 1 addition and 4 deletions.
diff --git a/udon-shell/UdonShell/Pad.hs b/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)