support all other patterns and nested patterns

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

diff --git a/datatype/Tuple.hs b/datatype/Tuple.hs
index abd0104..4a3fb10 100644 (file)
--- a/datatype/Tuple.hs
+++ b/datatype/Tuple.hs
@@ -22,5 +22,5 @@ data TupleR a b = TupleR {first :: a, second :: b}
 $(mkConsClass ''TupleR)
 
 data List a = Nil | Cons a (List a)
-  deriving Generic
+  deriving (Generic, Show)
 $(mkConsClass ''List)