diff options
| -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 |