cleanup compactify, improve

[clean-tests.git] / datatype / Tuple.hs

diff --git a/datatype/Tuple.hs b/datatype/Tuple.hs
index 4a3fb10..40ede4e 100644 (file)
--- a/datatype/Tuple.hs
+++ b/datatype/Tuple.hs
@@ -6,21 +6,20 @@ import GHC.Generics
 
 import Printer
 import Compiler
-import Serialise
 import Language.GenDSL
 
 data Tuple a b = Tuple a b
   deriving Generic
-$(mkConsClass ''Tuple)
+$(genDSL ''Tuple)
 
 data Tuple3 a c = Tuple3 a Int c
   deriving Generic
-$(mkConsClass ''Tuple3)
+$(genDSL ''Tuple3)
 
 data TupleR a b = TupleR {first :: a, second :: b}
   deriving Generic
-$(mkConsClass ''TupleR)
+$(genDSL ''TupleR)
 
 data List a = Nil | Cons a (List a)
   deriving (Generic, Show)
-$(mkConsClass ''List)
+$(genDSL ''List)