diff options
| author | Joris | 2016-03-26 22:03:57 +0100 |
|---|---|---|
| committer | Joris | 2016-03-26 22:03:57 +0100 |
| commit | a8882071da12cbb5b0bf2f003322e42e181b0c82 (patch) | |
| tree | 5a4e654b785d94f7083b72ed6c8b16caee0ec427 /src/server/Controller | |
| parent | 59c694b0e81deb30ec4e50d5d142b5eda645a27e (diff) | |
Use parsing duration facilities from config-manager
Diffstat (limited to 'src/server/Controller')
| -rw-r--r-- | src/server/Controller/SignIn.hs | 2 |
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 |