diff options
| -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) |