sup39/vervis
1
0
Fork 0
mirror of https://code.sup39.dev/repos/Wqawg synced 2024-12-29 17:24:51 +09:00
Code Issues Activity

Fix error in key expiration check caused by a typo

Browse source
This commit is contained in:
fr33domlover 2019-02-14 22:16:15 +00:00
parent e8ba301c6a
commit e6b7a5297a
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Vervis/Foundation.hs
View file

@ -626,7 +626,7 @@ instance YesodHttpSig App where
existsInDB = isJust mvkid existsInDB = isJust mvkid
now <- liftIO getCurrentTime now <- liftIO getCurrentTime
let stillValid Nothing = True let stillValid Nothing = True
stillValue (Just expires) = expires > now stillValid (Just expires) = expires > now
(write, key', mexpires') <- (write, key', mexpires') <-
if verify' key && stillValid mexpires if verify' key && stillValid mexpires
then return (not existsInDB, key, mexpires) then return (not existsInDB, key, mexpires)