diff options
author | Joey Hess <joey@kitenet.net> | 2013-11-01 11:54:26 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2013-11-01 11:54:26 -0400 |
commit | c57a23b2129af95db0a7bcf37f181911c8778d04 (patch) | |
tree | 24a092d06c81b306525023538ceca23e01714a6c /Utility | |
parent | a95227e3e32ffa155e1ac9f294d72ef6e111cdd2 (diff) |
fix quickcheck range
Diffstat (limited to 'Utility')
-rw-r--r-- | Utility/Scheduled.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs index 9cc2ab1ac..acbee70ff 100644 --- a/Utility/Scheduled.hs +++ b/Utility/Scheduled.hs @@ -321,8 +321,8 @@ instance Arbitrary ScheduledTime where arbitrary = oneof [ pure AnyTime , SpecificTime - <$> nonNegative arbitrary `suchThat` (<= 23) - <*> nonNegative arbitrary `suchThat` (<= 59) + <$> choose (0, 23) + <*> choose (1, 59) ] instance Arbitrary Recurrance where |