From 69e69017b75d1cdaa1fd2aef2818de5111b29735 Mon Sep 17 00:00:00 2001
From: Joris
Date: Thu, 14 Jul 2016 11:57:12 +0000
Subject: Update code and fix parsers

---
 src/Main.hs | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'src/Main.hs')

diff --git a/src/Main.hs b/src/Main.hs
index f38646b..27dcfa5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -6,16 +6,15 @@ module Main
 
 import qualified Data.Text.IO as T
 
-import AdListener (listenToNewAds)
+import qualified AdListener
 
-import Config (Config)
-import qualified Config as C
+import qualified Conf
 
 main :: IO ()
 main = do
-  maybeConfig <- C.getConfig
-  case maybeConfig of
-    Just config ->
-      listenToNewAds config
-    Nothing ->
-      T.putStrLn C.configUsage
+  eitherConfig <- Conf.parse "application.conf"
+  case eitherConfig of
+    Right config ->
+      AdListener.start config
+    Left message ->
+      T.putStrLn message
-- 
cgit v1.2.3