{-# LANGUAGE OverloadedStrings #-}

module Main
  ( main
  ) where

import qualified Data.Text.IO as T

import AdListener (listenToNewAds)

import Config (Config)
import qualified Config as C

main :: IO ()
main = do
  maybeConfig <- C.getConfig
  case maybeConfig of
    Just config ->
      listenToNewAds config
    Nothing ->
      T.putStrLn C.configUsage