diff options
| author | Joris | 2016-07-14 15:47:33 +0200 |
|---|---|---|
| committer | Joris | 2016-07-14 15:47:33 +0200 |
| commit | b846aa65f8f21189f39236f88908267167004a35 (patch) | |
| tree | d0c553170d4df005797139f6f304b24818ff6c29 /src/Time.hs | |
| parent | 69e69017b75d1cdaa1fd2aef2818de5111b29735 (diff) | |
| download | ad-listener-b846aa65f8f21189f39236f88908267167004a35.tar.gz ad-listener-b846aa65f8f21189f39236f88908267167004a35.tar.bz2 ad-listener-b846aa65f8f21189f39236f88908267167004a35.zip | |
Add isPro info
Diffstat (limited to 'src/Time.hs')
| -rw-r--r-- | src/Time.hs | 9 |
1 files changed, 3 insertions, 6 deletions
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) |