From a8882071da12cbb5b0bf2f003322e42e181b0c82 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sat, 26 Mar 2016 22:03:57 +0100
Subject: Use parsing duration facilities from config-manager

---
 src/server/Controller/SignIn.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/server/Controller')

diff --git a/src/server/Controller/SignIn.hs b/src/server/Controller/SignIn.hs
index 95cfd07..33c19b4 100644
--- a/src/server/Controller/SignIn.hs
+++ b/src/server/Controller/SignIn.hs
@@ -76,7 +76,7 @@ validateSignIn conf textToken = do
               return . Left $ SignInUsed
             else
               let diffTime = now `diffUTCTime` (signInCreation . entityVal $ signInValue)
-              in  if diffTime > (fromIntegral $ (signInExpirationMn conf) * 60)
+              in  if diffTime > signInExpiration conf
                     then
                       return . Left $ SignInExpired
                     else do
-- 
cgit v1.2.3