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/Main.hs | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'src/executable/haskell/Main.hs')

diff --git a/src/executable/haskell/Main.hs b/src/executable/haskell/Main.hs
index 8c0f37f..34d67a2 100644
--- a/src/executable/haskell/Main.hs
+++ b/src/executable/haskell/Main.hs
@@ -2,6 +2,7 @@ module Main
   ( main
   ) where
 
+import qualified Control.Logging      as Logging
 import qualified Network.Wreq.Session as Session
 
 import qualified Conf
@@ -11,4 +12,6 @@ main :: IO ()
 main = do
   conf <- Conf.parse "application.conf"
   session <- Session.newSession
-  AdListener.start conf session
+  Logging.withStdoutLogging $ do
+    Logging.setLogLevel (Conf.logLevel conf)
+    AdListener.start conf session
-- 
cgit v1.2.3