From 88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 9 Sep 2019 20:42:41 +0200
Subject: Use logging library instead of putStrLn

---
 src/executable/haskell/Service/MailService.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/executable/haskell/Service/MailService.hs')

diff --git a/src/executable/haskell/Service/MailService.hs b/src/executable/haskell/Service/MailService.hs
index cb61c47..3a5bfd0 100644
--- a/src/executable/haskell/Service/MailService.hs
+++ b/src/executable/haskell/Service/MailService.hs
@@ -4,9 +4,9 @@ module Service.MailService
 
 import           Control.Arrow          (left)
 import           Control.Exception      (SomeException, try)
+import qualified Control.Logging        as Logging
 import           Data.Text              (Text)
 import qualified Data.Text              as T
-import qualified Data.Text.IO           as T
 import qualified Data.Text.Lazy         as LT
 import           Data.Text.Lazy.Builder (fromText, toLazyText)
 import qualified Network.Mail.Mime      as Mime
@@ -17,7 +17,7 @@ import qualified Model.Mail             as Mail
 send :: Bool -> Mail -> IO (Either Text ())
 send isMock mail =
   if isMock then do
-    putStrLn $ "MOCK sending mail " ++ (show mail)
+    Logging.log $ T.concat [ "MOCK sending mail ", T.pack . show $ mail ]
     return . Right $ ()
   else do
     result <-
@@ -25,7 +25,7 @@ send isMock mail =
         (try (Mime.renderSendMail . getMimeMail $ mail) :: IO (Either SomeException ()))
     case result of
       Left err ->
-        T.putStrLn . T.concat $
+        Logging.loggingLogger Logging.LevelError "" . T.concat $
           [ "Error sending the following email ("
           , T.pack . show $ mail
           , ":\n"
-- 
cgit v1.2.3