aboutsummaryrefslogtreecommitdiff
path: root/Utility/Scheduled.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-11-01 11:54:26 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-11-01 11:54:26 -0400
commitc57a23b2129af95db0a7bcf37f181911c8778d04 (patch)
tree24a092d06c81b306525023538ceca23e01714a6c /Utility/Scheduled.hs
parenta95227e3e32ffa155e1ac9f294d72ef6e111cdd2 (diff)
fix quickcheck range
Diffstat (limited to 'Utility/Scheduled.hs')
-rw-r--r--Utility/Scheduled.hs4
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