From e6b7a5297a01cf1c716a62e4fc8a29ab9b0b3a06 Mon Sep 17 00:00:00 2001
From: fr33domlover <fr33domlover@riseup.net>
Date: Thu, 14 Feb 2019 22:16:15 +0000
Subject: [PATCH] Fix error in key expiration check caused by a typo

---
 src/Vervis/Foundation.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Vervis/Foundation.hs b/src/Vervis/Foundation.hs
index 9cc07f9..d7495f9 100644
--- a/src/Vervis/Foundation.hs
+++ b/src/Vervis/Foundation.hs
@@ -626,7 +626,7 @@ instance YesodHttpSig App where
             existsInDB = isJust mvkid
         now <- liftIO getCurrentTime
         let stillValid Nothing        = True
-            stillValue (Just expires) = expires > now
+            stillValid (Just expires) = expires > now
         (write, key', mexpires') <-
             if verify' key && stillValid mexpires
                 then return (not existsInDB, key, mexpires)