From f3163d75e51941b87497d4e0d6091123bc973776 Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 2 Apr 2015 18:06:14 +0900 Subject: indentation --- src/Main.hs | 7 ++++--- 1 file 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) -- cgit v1.2.3