{-# LANGUAGE OverloadedStrings #-}

module Main
  ( main
  ) where

import qualified Data.Text.IO as T

import qualified AdListener

import qualified Conf

main :: IO ()
main = do
  eitherConfig <- Conf.parse "application.conf"
  case eitherConfig of
    Right config ->
      AdListener.start config
    Left message ->
      T.putStrLn message