diff options
| author | Joris Guyonvarch | 2015-04-16 20:55:58 +0200 |
|---|---|---|
| committer | Joris Guyonvarch | 2015-04-16 20:56:49 +0200 |
| commit | 3eff27c41a0501d07586b90c8bbb835a3ec86b84 (patch) | |
| tree | 86b1f7910a3028813e1f9a57644bb52d436e1f79 | |
| parent | 199404efc365227cc3a94ba7c2c8add8388f6fcc (diff) | |
%Hh%M for time output
| -rw-r--r-- | src/Time.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Time.hs b/src/Time.hs index 9f35bf0..a7fb418 100644 --- a/src/Time.hs +++ b/src/Time.hs @@ -14,4 +14,4 @@ getCurrentFormattedTime = do currentTime <- getCurrentTime timeZone <- getCurrentTimeZone let localTime = utcToLocalTime timeZone currentTime - return (T.pack $ formatTime defaultTimeLocale "%T" localTime) + return (T.pack $ formatTime defaultTimeLocale "%Hh%M" localTime) |