From 5cedcecd6ae31e2485dcab2ddd74c74a4779545d Mon Sep 17 00:00:00 2001
From: Joris
Date: Tue, 3 Sep 2019 21:01:53 +0200
Subject: Make LBC to work

Use request headers to simulate a normal browser
---
 src/executable/haskell/Conf.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

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)
-- 
cgit v1.2.3