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

fix handling of schedled time of 12 PM

Browse source
This commit is contained in:
Joey Hess 2013-11-01 11:44:00 -04:00
parent e7ac51c0fe
commit 6d8906a995
1 changed files with 7 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
Utility/Scheduled.hs
View file

@ -275,13 +275,16 @@ toScheduledTime "any time" = Just AnyTime
toScheduledTime v = case words v of
(s:ampm:[])
| map toUpper ampm == "AM" ->
go s (\h -> if h == 12 then 0 else h)
go s h0
| map toUpper ampm == "PM" ->
go s (+ 12)
go s (\h -> (h0 h) + 12)
| otherwise -> Nothing
(s:[]) -> go s id
_ -> Nothing
where
h0 h
| h == 12 = 0
| otherwise = h
go :: String -> (Int -> Int) -> Maybe ScheduledTime
go s adjust =
let (h, m) = separate (== ':') s
@ -318,8 +321,8 @@ instance Arbitrary ScheduledTime where
arbitrary = oneof
[ pure AnyTime
, SpecificTime
<$> nonNegative arbitrary
<*> nonNegative arbitrary
<$> nonNegative arbitrary `suchThat` (<= 23)
<*> nonNegative arbitrary `suchThat` (<= 59)
]
instance Arbitrary Recurrance where