diff options
author | Joris | 2015-11-21 21:41:38 +0100 |
---|---|---|
committer | Joris | 2015-11-21 21:41:38 +0100 |
commit | 5375ad26dd78220185f1ffe05222250c06dc1a0c (patch) | |
tree | 30998d4fe19206e8c5c9e564db116d2022e5e313 /src/Logger.hs | |
parent | 7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae (diff) | |
download | events-5375ad26dd78220185f1ffe05222250c06dc1a0c.tar.gz events-5375ad26dd78220185f1ffe05222250c06dc1a0c.tar.bz2 events-5375ad26dd78220185f1ffe05222250c06dc1a0c.zip |
Get next week birthdays and send an empty mail for the moment
Diffstat (limited to 'src/Logger.hs')
-rw-r--r-- | src/Logger.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Logger.hs b/src/Logger.hs index 4be55be..6faa482 100644 --- a/src/Logger.hs +++ b/src/Logger.hs @@ -7,12 +7,12 @@ module Logger import Data.Text (Text) import qualified Data.Text as T import qualified Data.Text.IO as T (appendFile) -import Data.Time.LocalTime (getZonedTime) -import Data.Time.Format (formatTime, defaultTimeLocale) + +import Time (formatCurrentLocale) info :: Text -> IO () info message = do - time <- T.pack <$> formatTime defaultTimeLocale "[%d/%m/%Y, %H:%M]" <$> getZonedTime + time <- formatCurrentLocale "[%d/%m/%Y, %H:%M]" T.appendFile "logs" $ T.concat [ time |