@@ -105,7 +105,7 @@ instance Arbitrary TL.Text where
105 arbitrary = TL.pack <$> arbitrary
105 arbitrary = TL.pack <$> arbitrary
107instance Arbitrary Day where
107instance Arbitrary Day where
108− arbitrary = liftA3 fromGregorian (fmap abs arbitrary) arbitrary arbitrary
108+ arbitrary = liftA3 fromGregorian (fmap ((+ 1) . abs) arbitrary) arbitrary arbitrary
110instance Arbitrary LocalTime where
110instance Arbitrary LocalTime where
111 arbitrary = LocalTime
111 arbitrary = LocalTime