diff options
Diffstat (limited to 'src/Main.hs')
-rw-r--r-- | src/Main.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/Main.hs b/src/Main.hs index c4b33e3..d267871 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -65,9 +65,10 @@ parseRelativeTime :: String -> Maybe (Hour, Minute) parseRelativeTime exp = undefined parseAbsoluteTime :: String -> Maybe (Hour, Minute) -parseAbsoluteTime exp = let formatString = if last exp == 'm' - then "%k:%M%P" - else "%k:%M" +parseAbsoluteTime exp = let formatString = + if last exp == 'm' + then "%k:%M%P" + else "%k:%M" in parseTime defaultTimeLocale formatString exp >>= \tod -> Just (todHour tod, todMin tod) |