From 318292532a877c308403c45795d229fad659d900 Mon Sep 17 00:00:00 2001
From: Joris
Date: Mon, 18 Jun 2018 23:15:12 +0200
Subject: Add seLoger parser

---
 src/executable/haskell/Conf.hs | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'src/executable/haskell/Conf.hs')

diff --git a/src/executable/haskell/Conf.hs b/src/executable/haskell/Conf.hs
index 35064ca..e6bd4ca 100644
--- a/src/executable/haskell/Conf.hs
+++ b/src/executable/haskell/Conf.hs
@@ -13,6 +13,7 @@ import           Model.URL
 data Conf = Conf
   { leboncoinUrls   :: [URL]
   , ouestFranceUrls :: [URL]
+  , seLogerUrls     :: [URL]
   , mailFrom        :: Text
   , mailTo          :: [Text]
   , listenInterval  :: NominalDiffTime
@@ -27,6 +28,7 @@ parse path = do
       Conf <$>
         Conf.lookup "leboncoinUrls" conf <*>
         Conf.lookup "ouestFranceUrls" conf <*>
+        Conf.lookup "seLogerUrls" conf <*>
         Conf.lookup "mailFrom" conf <*>
         Conf.lookup "mailTo" conf <*>
         Conf.lookup "listenInterval" conf <*>
-- 
cgit v1.2.3