@@ -25,7 +25,7 @@ data D a = Nullary
2525 | Record { testOne :: Double
2626 , testTwo :: Bool
2727 , testThree :: D a
28− } deriving (Eq, Generic, Data, Typeable)
28+ } deriving (Show, Eq, Generic, Data, Typeable)
2929
3030instance NFData a => NFData (D a) where
3131 rnf Nullary = ()
@@ -62,20 +62,20 @@ thDFromJSON = parse thDParseJSON
6262--------------------------------------------------------------------------------
6363
6464data BigRecord = BigRecord
65− { field01 :: !(), field02 :: !(), field03 :: !(), field04 :: !(), field05 :: !()
66− , field06 :: !(), field07 :: !(), field08 :: !(), field09 :: !(), field10 :: !()
67− , field11 :: !(), field12 :: !(), field13 :: !(), field14 :: !(), field15 :: !()
68− , field16 :: !(), field17 :: !(), field18 :: !(), field19 :: !(), field20 :: !()
69− , field21 :: !(), field22 :: !(), field23 :: !(), field24 :: !(), field25 :: !()
70− } deriving (Eq, Generic, Data, Typeable)
65+ { field01 :: !Int, field02 :: !Int, field03 :: !Int, field04 :: !Int, field05 :: !Int
66+ , field06 :: !Int, field07 :: !Int, field08 :: !Int, field09 :: !Int, field10 :: !Int
67+ , field11 :: !Int, field12 :: !Int, field13 :: !Int, field14 :: !Int, field15 :: !Int
68+ , field16 :: !Int, field17 :: !Int, field18 :: !Int, field19 :: !Int, field20 :: !Int
69+ , field21 :: !Int, field22 :: !Int, field23 :: !Int, field24 :: !Int, field25 :: !Int
70+ } deriving (Show, Eq, Generic, Data, Typeable)
7171
7272instance NFData BigRecord
7373
74−bigRecord = BigRecord () () () () ()
75− () () () () ()
76− () () () () ()
77− () () () () ()
78− () () () () ()
74+bigRecord = BigRecord 1 2 3 4 5
75+ 6 7 8 9 10
76+ 11 12 13 14 15
77+ 16 17 18 19 20
78+ 21 22 23 24 25
7979
8080instance ToJSON BigRecord
8181instance FromJSON BigRecord
@@ -92,20 +92,20 @@ thBigRecordFromJSON = parse thBigRecordParseJSON
9292--------------------------------------------------------------------------------
9393
9494data BigProduct = BigProduct
95− !() !() !() !() !()
96− !() !() !() !() !()
97− !() !() !() !() !()
98− !() !() !() !() !()
99− !() !() !() !() !()
100− deriving (Eq, Generic, Data, Typeable)
95+ !Int !Int !Int !Int !Int
96+ !Int !Int !Int !Int !Int
97+ !Int !Int !Int !Int !Int
98+ !Int !Int !Int !Int !Int
99+ !Int !Int !Int !Int !Int
100+ deriving (Show, Eq, Generic, Data, Typeable)
101101
102102instance NFData BigProduct
103103
104−bigProduct = BigProduct () () () () ()
105− () () () () ()
106− () () () () ()
107− () () () () ()
108− () () () () ()
104+bigProduct = BigProduct 1 2 3 4 5
105+ 6 7 8 9 10
106+ 11 12 13 14 15
107+ 16 17 18 19 20
108+ 21 22 23 24 25
109109
110110instance ToJSON BigProduct
111111instance FromJSON BigProduct
@@ -126,11 +126,11 @@ data BigSum = F01 | F02 | F03 | F04 | F05
126126 | F11 | F12 | F13 | F14 | F15
127127 | F16 | F17 | F18 | F19 | F20
128128 | F21 | F22 | F23 | F24 | F25
129− deriving (Eq, Generic, Data, Typeable)
129+ deriving (Show, Eq, Generic, Data, Typeable)
130130
131131instance NFData BigSum
132132
133−bigSum = F12
133+bigSum = F25
134134
135135instance ToJSON BigSum
136136instance FromJSON BigSum