diff options
author | Joris | 2019-09-03 21:01:53 +0200 |
---|---|---|
committer | Joris | 2019-09-03 21:04:40 +0200 |
commit | 5cedcecd6ae31e2485dcab2ddd74c74a4779545d (patch) | |
tree | bb54b8f1bbf1f5baaf94c28e4443fb17321d5fc7 /src/executable/haskell/Conf.hs | |
parent | 8d14cb80170a8a15a0ced13bc7fe5cd16b908974 (diff) | |
download | ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.tar.gz ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.tar.bz2 ad-listener-5cedcecd6ae31e2485dcab2ddd74c74a4779545d.zip |
Make LBC to work
Use request headers to simulate a normal browser
Diffstat (limited to 'src/executable/haskell/Conf.hs')
-rw-r--r-- | src/executable/haskell/Conf.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/executable/haskell/Conf.hs b/src/executable/haskell/Conf.hs index e6bd4ca..df26ea0 100644 --- a/src/executable/haskell/Conf.hs +++ b/src/executable/haskell/Conf.hs @@ -16,8 +16,8 @@ data Conf = Conf , seLogerUrls :: [URL] , mailFrom :: Text , mailTo :: [Text] + , mailMock :: Bool , listenInterval :: NominalDiffTime - , devMode :: Bool } deriving Show parse :: FilePath -> IO Conf @@ -31,8 +31,8 @@ parse path = do Conf.lookup "seLogerUrls" conf <*> Conf.lookup "mailFrom" conf <*> Conf.lookup "mailTo" conf <*> - Conf.lookup "listenInterval" conf <*> - Conf.lookup "devMode" conf + Conf.lookup "mailMock" conf <*> + Conf.lookup "listenInterval" conf ) case conf of Left msg -> error (T.unpack msg) |