@@ -30,10 +30,10 @@ instance (Ord k, Arbitrary k, Arbitrary v) => Arbitrary (Map.Map k v) where
31instance Arbitrary TimeOfDay where
31instance Arbitrary TimeOfDay where
32 arbitrary = do
32 arbitrary = do
33− Positive h <- arbitrary
33+ h <- choose (0, 23)
34− Positive m <- arbitrary
34+ m <- choose (0, 59)
35− Positive s <- arbitrary
35+ s <- fromRational . toRational <$> choose (0, 59 :: Double)
36− return $ fromMaybe (TimeOfDay 0 0 0 ) (makeTimeOfDayValid h m s)
36+ return $ TimeOfDay h m s
38instance Arbitrary LocalTime where
38instance Arbitrary LocalTime where
39 arbitrary = LocalTime <$> arbitrary <*> arbitrary
39 arbitrary = LocalTime <$> arbitrary <*> arbitrary