From a4acc2e84158fa822f88a1d0bdddb470708b5809 Mon Sep 17 00:00:00 2001
From: Joris
Date: Wed, 3 Jan 2018 17:31:20 +0100
Subject: Modify weelky report and payment search interface

- Add payment balance in weekly report
- Show a message and hide pages when the search results in no results
- Go to page 1 when the search is updated / erased
---
 server/src/Conf.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'server/src/Conf.hs')

diff --git a/server/src/Conf.hs b/server/src/Conf.hs
index 2422a93..ca19c8d 100644
--- a/server/src/Conf.hs
+++ b/server/src/Conf.hs
@@ -17,6 +17,7 @@ data Conf = Conf
   , currency         :: Currency
   , noReplyMail      :: Text
   , https            :: Bool
+  , devMode          :: Bool
   } deriving Show
 
 get :: FilePath -> IO Conf
@@ -30,7 +31,8 @@ get path = do
         Conf.lookup "signInExpiration" conf <*>
         fmap Currency (Conf.lookup "currency" conf) <*>
         Conf.lookup "noReplyMail" conf <*>
-        Conf.lookup "https" conf
+        Conf.lookup "https" conf <*>
+        Conf.lookup "devMode" conf
     )
   case conf of
     Left msg -> error (T.unpack msg)
-- 
cgit v1.2.3