diff --git a/.gitignore b/.gitignore new file mode 100644 index 000000000..2849291c8 --- /dev/null +++ b/.gitignore @@ -0,0 +1,6 @@ +*.aes +*/dist/ +cabal-dev +hledger-web/static/tmp/ +hledger-web/yesod-devel/ + diff --git a/hledger-web/Foundation.hs b/hledger-web/Foundation.hs index 5421f73b6..221975053 100644 --- a/hledger-web/Foundation.hs +++ b/hledger-web/Foundation.hs @@ -80,7 +80,9 @@ instance Yesod App where -- default session idle timeout is 120 minutes makeSessionBackend _ = do key <- getKey ".hledger-web_client_session_key.aes" - return . Just $ clientSessionBackend key 120 + let timeout = fromIntegral (120 * 60 :: Int) -- 120 minutes + (getCachedDate, _closeDateCacher) <- clientSessionDateCacher timeout + return . Just $ clientSessionBackend2 key getCachedDate defaultLayout widget = do master <- getYesod