@@ -32,16 +32,16 @@ where
3232-- Tuples
3333-------------------------------------------------------------------------------
3434--
35−data Tuple' a b = Tuple' !a !b
36−data Tuple3' a b c = Tuple3' !a !b !c
37−data Tuple4' a b c d = Tuple4' !a !b !c !d
35+data Tuple' a b = Tuple' !a !b deriving Show
36+data Tuple3' a b c = Tuple3' !a !b !c deriving Show
37+data Tuple4' a b c d = Tuple4' !a !b !c !d deriving Show
3838
3939-------------------------------------------------------------------------------
4040-- Maybe
4141-------------------------------------------------------------------------------
4242--
4343-- | A strict 'Maybe'
44−data Maybe' a = Just' !a | Nothing'
44+data Maybe' a = Just' !a | Nothing' deriving Show
4545
4646-- XXX perhaps we can use a type class having fromStrict/toStrict operations.
4747--
@@ -56,4 +56,4 @@ fromStrictMaybe (Just' a) = return $ Just a
5656-------------------------------------------------------------------------------
5757--
5858-- | A strict 'Either'
59−data Either' a b = Left' !a | Right' !b
59+data Either' a b = Left' !a | Right' !b deriving Show