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/lib/haskell/Utils/HTTP.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/lib/haskell/Utils/HTTP.hs')

diff --git a/src/lib/haskell/Utils/HTTP.hs b/src/lib/haskell/Utils/HTTP.hs
index d441f86..b6d789a 100644
--- a/src/lib/haskell/Utils/HTTP.hs
+++ b/src/lib/haskell/Utils/HTTP.hs
@@ -3,11 +3,11 @@ module Utils.HTTP
   ) where
 
 import           Control.Lens         ((^.))
+import qualified Control.Logging      as Logging
 import qualified Data.ByteString.Lazy as BS
 import           Data.Text            (Text)
 import qualified Data.Text            as T
 import           Data.Text.Encoding   as T
-import qualified Data.Text.IO         as T
 import qualified Network.Wreq         as Wreq
 import           Network.Wreq.Session (Session)
 import qualified Network.Wreq.Session as Session
@@ -25,7 +25,7 @@ get session url = do
   if statusCode >= 200 && statusCode < 300 then
     return . Right $ body
   else do
-    T.putStrLn . T.concat $
+    Logging.loggingLogger Logging.LevelError "" . T.concat $
       [ "Got status "
       , T.pack . show $ statusCode
       , " while fetching "
-- 
cgit v1.2.3