Merge pull request #103 from markokocic/cs2

Cs2

.gitignore

@@ -0,0 +1,6 @@
+*.aes
+*/dist/
+cabal-dev
+hledger-web/static/tmp/
+hledger-web/yesod-devel/
+

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