@@ -100,7 +100,6 @@ instance (Ord k, Arbitrary k, Arbitrary v) => Arbitrary (Map.Map k v) where
100100instance Arbitrary Foo where
101101 arbitrary = liftM4 Foo arbitrary arbitrary arbitrary arbitrary
102102
103−
104103{-
105104 Test for Data.Aeson.Generic handling '_' names
106105-}
@@ -111,8 +110,7 @@ data UFoo = UFoo {
111110
112111instance Arbitrary UFoo where
113112 arbitrary = UFoo <$> arbitrary <*> arbitrary
114−
115−
113+ where _ = uFooInt
116114
117115main :: IO ()
118116main = defaultMain tests