From b846aa65f8f21189f39236f88908267167004a35 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 14 Jul 2016 15:47:33 +0200
Subject: Add isPro info

---
 src/Time.hs | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

(limited to 'src/Time.hs')

diff --git a/src/Time.hs b/src/Time.hs
index a7fb418..99d47d0 100644
--- a/src/Time.hs
+++ b/src/Time.hs
@@ -5,13 +5,10 @@ module Time
 import Data.Text (Text)
 import qualified Data.Text as T
 
-import Data.Time.Clock (getCurrentTime)
-import Data.Time.LocalTime (getCurrentTimeZone, utcToLocalTime)
+import Data.Time.LocalTime (getZonedTime)
 import Data.Time.Format (formatTime, defaultTimeLocale)
 
 getCurrentFormattedTime :: IO Text
 getCurrentFormattedTime = do
-  currentTime <- getCurrentTime
-  timeZone <- getCurrentTimeZone
-  let localTime = utcToLocalTime timeZone currentTime
-  return (T.pack $ formatTime defaultTimeLocale "%Hh%M" localTime)
+  zonedTime <- getZonedTime
+  return (T.pack $ formatTime defaultTimeLocale "%Hh%M" zonedTime)
-- 
cgit v1.2.3