Commits

Bryan O'Sullivan  committed 8e27368

Quiet a compiler warning.

  • Participants
  • Parent commits 0b72a77

Comments (0)

Files changed (1)

File tests/Properties.hs

 instance Arbitrary Foo where
     arbitrary = liftM4 Foo arbitrary arbitrary arbitrary arbitrary
 
-
 {-
    Test for Data.Aeson.Generic handling '_' names
 -}
 
 instance Arbitrary UFoo where
     arbitrary = UFoo <$> arbitrary <*> arbitrary
-
-
+        where _ = uFooInt
 
 main :: IO ()
 main = defaultMain tests