module Main
  ( main
  ) where

import qualified Control.Logging      as Logging
import qualified Network.Wreq.Session as Session

import qualified Conf
import qualified Service.AdListener   as AdListener

main :: IO ()
main = do
  conf <- Conf.parse "application.conf"
  session <- Session.newSession
  Logging.withStdoutLogging $ do
    Logging.setLogLevel (Conf.logLevel conf)
    AdListener.start conf session