diff options
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) |