aboutsummaryrefslogtreecommitdiff
path: root/src/server/Controller
diff options
context:
space:
mode:
Diffstat (limited to 'src/server/Controller')
-rw-r--r--src/server/Controller/SignIn.hs2
1 files changed, 1 insertions, 1 deletions
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