diff options
| author | Joris | 2018-06-18 23:15:12 +0200 |
|---|---|---|
| committer | Joris | 2018-06-18 23:15:12 +0200 |
| commit | 318292532a877c308403c45795d229fad659d900 (patch) | |
| tree | 16e4695cc316a28bff4f0a9ae42e779ecce82a31 /src/executable/haskell/Conf.hs | |
| parent | 96bbdbbe9b22b3c3e96998cc18a3b68c9db66da9 (diff) | |
Add seLoger parser
Diffstat (limited to 'src/executable/haskell/Conf.hs')
| -rw-r--r-- | src/executable/haskell/Conf.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 <*> |