diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-02 18:06:14 +0900 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2015-04-02 18:06:14 +0900 |
| commit | f3163d75e51941b87497d4e0d6091123bc973776 (patch) | |
| tree | a55d443914debc8b327020e408894131d31f14ac | |
| parent | 9344f50755a07e398ea34c0180232cdc32a9bd1f (diff) | |
| download | srem-f3163d75e51941b87497d4e0d6091123bc973776.tar.gz | |
indentation
| -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) |