mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

fix quickcheck range

Browse source
This commit is contained in:
Joey Hess 2013-11-01 11:54:26 -04:00
parent 6d8906a995
commit cfc6d217db
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Scheduled.hs
View file

@ -321,8 +321,8 @@ instance Arbitrary ScheduledTime where
arbitrary = oneof arbitrary = oneof
[ pure AnyTime [ pure AnyTime
, SpecificTime , SpecificTime
<$> nonNegative arbitrary `suchThat` (<= 23) <$> choose (0, 23)
<*> nonNegative arbitrary `suchThat` (<= 59) <*> choose (1, 59)
] ]
instance Arbitrary Recurrance where instance Arbitrary Recurrance where