diff options
| author | Joris | 2016-11-20 18:26:07 +0100 |
|---|---|---|
| committer | Joris | 2016-11-20 18:26:07 +0100 |
| commit | 74aff92204f70a6f113039fe90d332b44f9493c2 (patch) | |
| tree | eb9b6ecb3edf55be352737db9cb72a7f1c2ac87e /src/Main.hs | |
| parent | ae45764821dc3c04eeb8c2171f14d36256ce4027 (diff) | |
| download | ad-listener-74aff92204f70a6f113039fe90d332b44f9493c2.tar.gz ad-listener-74aff92204f70a6f113039fe90d332b44f9493c2.tar.bz2 ad-listener-74aff92204f70a6f113039fe90d332b44f9493c2.zip | |
Enable multi-urls in config file
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/src/Main.hs b/src/Main.hs index 27dcfa5..75749cd 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -4,17 +4,11 @@ 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 + conf <- Conf.parse "application.conf" + AdListener.start conf |