src/executable/haskell/Main.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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