Fix error in key expiration check caused by a typo

This commit is contained in:
fr33domlover 2019-02-14 22:16:15 +00:00
parent e8ba301c6a
commit e6b7a5297a

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)