use Q style

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

diff --git a/datatype/Tuple.hs b/datatype/Tuple.hs
index 40ede4e..ab0eff5 100644 (file)
--- a/datatype/Tuple.hs
+++ b/datatype/Tuple.hs
@@ -2,24 +2,19 @@
 {-# LANGUAGE DeriveGeneric #-}
 module Tuple where
 
-import GHC.Generics
-
 import Printer
 import Compiler
+import Interpreter
 import Language.GenDSL
 
 data Tuple a b = Tuple a b
-  deriving Generic
 $(genDSL ''Tuple)
 
 data Tuple3 a c = Tuple3 a Int c
-  deriving Generic
 $(genDSL ''Tuple3)
 
 data TupleR a b = TupleR {first :: a, second :: b}
-  deriving Generic
 $(genDSL ''TupleR)
 
 data List a = Nil | Cons a (List a)
-  deriving (Generic, Show)
 $(genDSL ''List)