From 7acd7a42f7663aa79d18e24bdb9fe19bf15f8fae Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 21 Nov 2015 19:02:49 +0100
Subject: Log details about sent mails in a file

---
 src/Logger.hs | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)
 create mode 100644 src/Logger.hs

(limited to 'src/Logger.hs')

diff --git a/src/Logger.hs b/src/Logger.hs
new file mode 100644
index 0000000..4be55be
--- /dev/null
+++ b/src/Logger.hs
@@ -0,0 +1,22 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Logger
+  ( info
+  ) where
+
+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)
+
+info :: Text -> IO ()
+info message = do
+  time <- T.pack <$> formatTime defaultTimeLocale "[%d/%m/%Y, %H:%M]" <$> getZonedTime
+  T.appendFile "logs" $
+    T.concat
+      [ time
+      , " - "
+      , message
+      , "\n"
+      ]
-- 
cgit v1.2.3