From 3eff27c41a0501d07586b90c8bbb835a3ec86b84 Mon Sep 17 00:00:00 2001
From: Joris Guyonvarch
Date: Thu, 16 Apr 2015 20:55:58 +0200
Subject: %Hh%M for time output

---
 src/Time.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

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)
-- 
cgit v1.2.3