git.iko.soy/typeable/http-api-data
on master help sign in
Fix Version Arbitrary instance for older GHCs
f00e0a3Nickolay Kudasov
test/main.hs+2−1
compare with master
unifiedsplit
@@ -27,8 +27,9 @@ instance Arbitrary Day where
27 arbitrary = liftA3 fromGregorian (fmap abs arbitrary) arbitrary arbitrary
27 arbitrary = liftA3 fromGregorian (fmap abs arbitrary) arbitrary arbitrary
28
28
29instance Arbitrary Version where
29instance Arbitrary Version where
30− arbitrary = (makeVersion . map abs) <$> nonempty
30+ arbitrary = (version . map abs) <$> nonempty
31 where
31 where
32+ version branch = Version branch []
32 nonempty = liftA2 (:) arbitrary arbitrary
33 nonempty = liftA2 (:) arbitrary arbitrary
33
34
34main :: IO ()
35main :: IO ()