Disallow Day with zero year (fix build against latest aeson)
commit3ac9a3c7a075d3addc72878017e2a7e49e8d527e
authorNickolay Kudasov <nickolay.kudasov@gmail.com>
dateThu 28 Jan 2016, 13:58 (11 years ago)
parent66f5005
test/Data/Swagger/Schema/ValidationSpec.hs+1−1
@@ -105,7 +105,7 @@ instance Arbitrary TL.Text where
105105 arbitrary = TL.pack <$> arbitrary
106106
107107instance Arbitrary Day where
108− arbitrary = liftA3 fromGregorian (fmap abs arbitrary) arbitrary arbitrary
108+ arbitrary = liftA3 fromGregorian (fmap ((+ 1) . abs) arbitrary) arbitrary arbitrary
109109
110110instance Arbitrary LocalTime where
111111 arbitrary = LocalTime