src/Main.hs


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

{-# 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