small code cleanup

Author: taimoorzaeem

src/PostgREST/Auth/JwtCache.hs

@@ -59,43 +59,43 @@ lookupJwtCache jwtCacheState token parseJwt utc = do
             authResult <- parseJwt
 
             case authResult of
-              Right res -> do
+              Right result -> do
                   -- insert token -> update cache -> return token
-                  let jwtCache'' = C.insert token res jwtCache'
+                  let jwtCache'' = C.insert token result jwtCache'
                   I.writeIORef jwtCacheIORef jwtCache''
-                  return $ Right res
+                  return $ Right result
               Left e -> do
                   -- update cache after lookup -> return error
                   I.writeIORef jwtCacheIORef jwtCache'
                   return $ Left e
 
-        Just res -> -- CACHE HIT
+        Just result -> -- CACHE HIT
 
             -- For cache hit, we get the result from cache, we check the
             -- exp claim. If it expired, we delete it from cache and parse
             -- the jwt. Otherwise, the hit result is valid, so we return it
 
-            if isExpClaimExpired res utc then do
+            if isExpClaimExpired result utc then do
                 -- delete token -> update cache -> parse token
                 let (jwtCache'',_) = C.delete token jwtCache'
                 I.writeIORef jwtCacheIORef jwtCache''
                 parseJwt
             else do
                 -- update cache afte lookup -> return result
                 I.writeIORef jwtCacheIORef jwtCache'
-                return $ Right res
+                return $ Right result
 
 
 type Expired = Bool
 
 -- | Check if exp claim is expired when looked up from cache
 isExpClaimExpired :: AuthResult -> UTCTime -> Expired
-isExpClaimExpired res utc =
+isExpClaimExpired result utc =
     case expireJSON of
       Nothing                      -> False -- if exp not present then it is valid
       Just (JSON.Number expiredAt) -> (sciToInt expiredAt - now) < 0
       Just _                       -> False -- if exp is not a number then valid
       where
-        expireJSON = KM.lookup "exp" (authClaims res)
+        expireJSON = KM.lookup "exp" (authClaims result)
         now = (floor . nominalDiffTimeToSeconds . utcTimeToPOSIXSeconds) utc :: Int
         sciToInt = fromMaybe 0 . Sci.toBoundedInteger