diff options
| -rw-r--r-- | Utility/WebApp.hs | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/Utility/WebApp.hs b/Utility/WebApp.hs index 29daacab1..e7a43eade 100644 --- a/Utility/WebApp.hs +++ b/Utility/WebApp.hs @@ -140,9 +140,17 @@ webAppSessionBackend _ = do Left e -> error $ "failed to generate random key: " ++ show e Right (s, _) -> case CS.initKey s of Left e -> error $ "failed to initialize key: " ++ show e - Right key -> return $ Just $ - - Yesod.clientSessionBackend key 120 + Right key -> use key + where + timeout = 120 * 60 -- 120 minutes + use key = +#if MIN_VERSION_yesod(1,1,7) + Just . Yesod.clientSessionBackend2 key . fst + <$> Yesod.clientSessionDateCacher timeout +#else + return $ Just $ + Yesod.clientSessionBackend key timeout +#endif {- Generates a random sha512 string, suitable to be used for an - authentication secret. -} |