From f5306d720d813929fad18c61b912b9f068bf7d33 Mon Sep 17 00:00:00 2001 From: Marko Kocic Date: Thu, 4 Apr 2013 14:28:13 +0000 Subject: [PATCH 1/2] Add .gitignore --- .gitignore | 6 ++++++ 1 file changed, 6 insertions(+) create mode 100644 .gitignore 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/ + From 2cd0a9c9c0d07116c84cd420cb7e35b2f207ad21 Mon Sep 17 00:00:00 2001 From: Marko Kocic Date: Thu, 4 Apr 2013 14:25:14 +0000 Subject: [PATCH 2/2] Switch to new yesod clientSessionBacked2 for better performance --- hledger-web/Foundation.hs | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) 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