blob: ad704028bc395693648126c1be3f34a4dd78dda1 (
plain)
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
|
