Showing exceeding payers

1 files changed, 4 insertions, 2 deletions

diff --git a/src/server/Config.hs b/src/server/Config.hs
index 9bc780f..895b355 100644
--- a/src/server/Config.hs
+++ b/src/server/Config.hs
@@ -14,19 +14,21 @@ import Control.Monad.Trans.Error (runErrorT)
 import Control.Monad.IO.Class (liftIO)
 import Control.Monad (join)
 import Control.Arrow (left)
-import Control.Applicative (liftA2)
+import Control.Applicative (liftA3)
 
 data Config = Config
   { hostname :: Text
   , port :: Int
+  , signInExpirationMn :: Int
   } deriving (Read, Eq, Show)
 
 getConfig :: FilePath -> IO (Either Text Config)
 getConfig filePath =
   left (T.pack . show) <$> (runErrorT $ do
     cp <- join $ liftIO $ readfile emptyCP filePath
-    liftA2
+    liftA3
       Config
       (T.pack <$> get cp "DEFAULT" "hostname")
       (get cp "DEFAULT" "port")
+      (get cp "DEFAULT" "sign-in-expiration-mn")
   )