Use logging library instead of putStrLn

1 files changed, 2 insertions, 2 deletions

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 "