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

0 pad minutes

Browse source
This commit is contained in:
Joey Hess 2013-10-10 14:12:24 -04:00
parent 6a331d1261
commit 7abe6cb161
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
Utility/Scheduled.hs
View file

@ -185,7 +185,9 @@ toRecurrance s = case words s of
fromScheduledTime :: ScheduledTime -> String fromScheduledTime :: ScheduledTime -> String
fromScheduledTime AnyTime = "any time" fromScheduledTime AnyTime = "any time"
fromScheduledTime (SpecificTime h m) = show h ++ ":" ++ show m fromScheduledTime (SpecificTime h m) = show h ++ ":" ++ pad 2 (show m)
where
pad n s = take (n - length s) (repeat '0') ++ s
toScheduledTime :: String -> Maybe ScheduledTime toScheduledTime :: String -> Maybe ScheduledTime
toScheduledTime "any time" = Just AnyTime toScheduledTime "any time" = Just AnyTime