diff options
Diffstat (limited to 'src/lib/haskell/Utils/HTTP.hs')
| -rw-r--r-- | src/lib/haskell/Utils/HTTP.hs | 4 |
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 " |