diff options
author | Joris | 2019-09-09 20:42:41 +0200 |
---|---|---|
committer | Joris | 2019-09-09 20:42:41 +0200 |
commit | 88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7 (patch) | |
tree | a138ceec2036313bc81b4ab2b0685914ee166c29 /src/executable/haskell/Service/MailService.hs | |
parent | 3e2c3f014bce0a82ac8708925806be05412898f9 (diff) | |
download | ad-listener-88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7.tar.gz ad-listener-88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7.tar.bz2 ad-listener-88a2f0c22b523dd5246cefaeefd6c08bf9d6fba7.zip |
Use logging library instead of putStrLn
Diffstat (limited to 'src/executable/haskell/Service/MailService.hs')
-rw-r--r-- | src/executable/haskell/Service/MailService.hs | 6 |
1 files changed, 3 insertions, 3 deletions
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" |