haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Update scaffold to use newer date cache code

Browse Source
This commit is contained in:
Michael Snoyman 2012-12-26 19:04:45 +02:00
parent bf293e6a1f
commit 980f925317
5 changed files with 20 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/hsfiles/mongo.hsfiles
View File

@ -139,7 +139,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 "config/client_session_key.aes" key <- getKey "config/client_session_key.aes"
return . Just $ clientSessionBackend key 120 let timeout = 120 * 60 -- 120 minutes
(getCachedDate, _closeDateCache) <- clientSessionDateCacher timeout
return . Just $ clientSessionBackend2 key getCachedDate
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
@ -370,7 +372,7 @@ library
build-depends: base >= 4 && < 5 build-depends: base >= 4 && < 5
-- , yesod-platform >= 1.1 && < 1.2 -- , yesod-platform >= 1.1 && < 1.2
, yesod >= 1.1.5 && < 1.2 , yesod >= 1.1.5 && < 1.2
, yesod-core >= 1.1.5 && < 1.2 , yesod-core >= 1.1.7 && < 1.2
, yesod-auth >= 1.1 && < 1.2 , yesod-auth >= 1.1 && < 1.2
, yesod-static >= 1.1 && < 1.2 , yesod-static >= 1.1 && < 1.2
, yesod-default >= 1.1 && < 1.2 , yesod-default >= 1.1 && < 1.2

6
yesod/hsfiles/mysql.hsfiles
View File

@ -141,7 +141,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 "config/client_session_key.aes" key <- getKey "config/client_session_key.aes"
return . Just $ clientSessionBackend key 120 let timeout = 120 * 60 -- 120 minutes
(getCachedDate, _closeDateCache) <- clientSessionDateCacher timeout
return . Just $ clientSessionBackend2 key getCachedDate
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
@ -368,7 +370,7 @@ library
build-depends: base >= 4 && < 5 build-depends: base >= 4 && < 5
-- , yesod-platform >= 1.1 && < 1.2 -- , yesod-platform >= 1.1 && < 1.2
, yesod >= 1.1.5 && < 1.2 , yesod >= 1.1.5 && < 1.2
, yesod-core >= 1.1.5 && < 1.2 , yesod-core >= 1.1.7 && < 1.2
, yesod-auth >= 1.1 && < 1.2 , yesod-auth >= 1.1 && < 1.2
, yesod-static >= 1.1 && < 1.2 , yesod-static >= 1.1 && < 1.2
, yesod-default >= 1.1 && < 1.2 , yesod-default >= 1.1 && < 1.2

6
yesod/hsfiles/postgres.hsfiles
View File

@ -141,7 +141,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 "config/client_session_key.aes" key <- getKey "config/client_session_key.aes"
return . Just $ clientSessionBackend key 120 let timeout = 120 * 60 -- 120 minutes
(getCachedDate, _closeDateCache) <- clientSessionDateCacher timeout
return . Just $ clientSessionBackend2 key getCachedDate
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
@ -368,7 +370,7 @@ library
build-depends: base >= 4 && < 5 build-depends: base >= 4 && < 5
-- , yesod-platform >= 1.1 && < 1.2 -- , yesod-platform >= 1.1 && < 1.2
, yesod >= 1.1.5 && < 1.2 , yesod >= 1.1.5 && < 1.2
, yesod-core >= 1.1.5 && < 1.2 , yesod-core >= 1.1.7 && < 1.2
, yesod-auth >= 1.1 && < 1.2 , yesod-auth >= 1.1 && < 1.2
, yesod-static >= 1.1 && < 1.2 , yesod-static >= 1.1 && < 1.2
, yesod-default >= 1.1 && < 1.2 , yesod-default >= 1.1 && < 1.2

6
yesod/hsfiles/simple.hsfiles
View File

@ -124,7 +124,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 "config/client_session_key.aes" key <- getKey "config/client_session_key.aes"
return . Just $ clientSessionBackend key 120 let timeout = 120 * 60 -- 120 minutes
(getCachedDate, _closeDateCache) <- clientSessionDateCacher timeout
return . Just $ clientSessionBackend2 key getCachedDate
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
@ -300,7 +302,7 @@ library
build-depends: base >= 4 && < 5 build-depends: base >= 4 && < 5
-- , yesod-platform >= 1.1 && < 1.2 -- , yesod-platform >= 1.1 && < 1.2
, yesod >= 1.1.5 && < 1.2 , yesod >= 1.1.5 && < 1.2
, yesod-core >= 1.1.5 && < 1.2 , yesod-core >= 1.1.7 && < 1.2
, yesod-static >= 1.1 && < 1.2 , yesod-static >= 1.1 && < 1.2
, yesod-default >= 1.1 && < 1.2 , yesod-default >= 1.1 && < 1.2
, yesod-form >= 1.1 && < 1.3 , yesod-form >= 1.1 && < 1.3

6
yesod/hsfiles/sqlite.hsfiles
View File

@ -141,7 +141,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 "config/client_session_key.aes" key <- getKey "config/client_session_key.aes"
return . Just $ clientSessionBackend key 120 let timeout = 120 * 60 -- 120 minutes
(getCachedDate, _closeDateCache) <- clientSessionDateCacher timeout
return . Just $ clientSessionBackend2 key getCachedDate
defaultLayout widget = do defaultLayout widget = do
master <- getYesod master <- getYesod
@ -368,7 +370,7 @@ library
build-depends: base >= 4 && < 5 build-depends: base >= 4 && < 5
-- , yesod-platform >= 1.1 && < 1.2 -- , yesod-platform >= 1.1 && < 1.2
, yesod >= 1.1.5 && < 1.2 , yesod >= 1.1.5 && < 1.2
, yesod-core >= 1.1.5 && < 1.2 , yesod-core >= 1.1.7 && < 1.2
, yesod-auth >= 1.1 && < 1.2 , yesod-auth >= 1.1 && < 1.2
, yesod-static >= 1.1 && < 1.2 , yesod-static >= 1.1 && < 1.2
, yesod-default >= 1.1 && < 1.2 , yesod-default >= 1.1 && < 1.2