Fix Version Arbitrary instance for older GHCs
commitf00e0a3754538ccf5d28c1963c454b511fe38f40
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateTue 6 Oct 2015, 00:49 (11 years ago)
parentf5bc108
test/main.hs+2−1
@@ -27,8 +27,9 @@ instance Arbitrary Day where
2727 arbitrary = liftA3 fromGregorian (fmap abs arbitrary) arbitrary arbitrary
2828
2929instance Arbitrary Version where
30− arbitrary = (makeVersion . map abs) <$> nonempty
30+ arbitrary = (version . map abs) <$> nonempty
3131 where
32+ version branch = Version branch []
3233 nonempty = liftA2 (:) arbitrary arbitrary
3334
3435main :: IO ()