slaesvuo/hledger
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #103 from markokocic/cs2

Browse Source 
Cs2
This commit is contained in:
Simon Michael 2013-04-09 06:33:27 -07:00
commit b6ac50b015
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
.gitignore vendored Normal file
View File

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

4
hledger-web/Foundation.hs
View File

@ -80,7 +80,9 @@ instance Yesod App where
-- default session idle timeout is 120 minutes -- default session idle timeout is 120 minutes
makeSessionBackend _ = do makeSessionBackend _ = do
key <- getKey ".hledger-web_client_session_key.aes" 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 defaultLayout widget = do
master <- getYesod master <- getYesod