src/Main.hs


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

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