diff options
Diffstat (limited to 'Utility/Scheduled.hs')
-rw-r--r-- | Utility/Scheduled.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/Utility/Scheduled.hs b/Utility/Scheduled.hs index a0b0bb964..8b7c91fd5 100644 --- a/Utility/Scheduled.hs +++ b/Utility/Scheduled.hs @@ -185,7 +185,9 @@ toRecurrance s = case words s of fromScheduledTime :: ScheduledTime -> String 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 "any time" = Just AnyTime |