Enable the listener only during some hours

1 files changed, 15 insertions, 9 deletions

diff --git a/src/executable/haskell/Conf.hs b/src/executable/haskell/Conf.hs
index df26ea0..0dc857b 100644
--- a/src/executable/haskell/Conf.hs
+++ b/src/executable/haskell/Conf.hs
@@ -6,18 +6,21 @@ module Conf
 import qualified Data.ConfigManager as Conf
 import           Data.Text          (Text)
 import qualified Data.Text          as T
-import           Data.Time.Clock    (NominalDiffTime)
+import           Data.Time.Clock    (DiffTime)
 
 import           Model.URL
 
 data Conf = Conf
-  { leboncoinUrls   :: [URL]
-  , ouestFranceUrls :: [URL]
-  , seLogerUrls     :: [URL]
-  , mailFrom        :: Text
-  , mailTo          :: [Text]
-  , mailMock        :: Bool
-  , listenInterval  :: NominalDiffTime
+  { leboncoinUrls       :: [URL]
+  , ouestFranceUrls     :: [URL]
+  , seLogerUrls         :: [URL]
+  , mailFrom            :: Text
+  , mailTo              :: [Text]
+  , mailMock            :: Bool
+  , listenFrom          :: DiffTime
+  , listenTo            :: DiffTime
+  , listenInterval      :: DiffTime
+  , listenIntervalNoise :: DiffTime
   } deriving Show
 
 parse :: FilePath -> IO Conf
@@ -32,7 +35,10 @@ parse path = do
         Conf.lookup "mailFrom" conf <*>
         Conf.lookup "mailTo" conf <*>
         Conf.lookup "mailMock" conf <*>
-        Conf.lookup "listenInterval" conf
+        Conf.lookup "listenFrom" conf <*>
+        Conf.lookup "listenTo" conf <*>
+        Conf.lookup "listenInterval" conf <*>
+        Conf.lookup "listenIntervalNoise" conf
     )
   case conf of
     Left msg -> error (T.unpack msg)