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

client_session_key in config folder

Browse Source
This commit is contained in:
Michael Snoyman 2011-07-15 08:59:04 +03:00
parent 6f671dbd9b
commit 4d7519d2be
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
scaffold/mini/sitearg.hs.cg
View File

@ -68,6 +68,9 @@ mkYesodData "~sitearg~" $(parseRoutesFile "config/routes")
instance Yesod ~sitearg~ where instance Yesod ~sitearg~ where
approot = Settings.appRoot . settings approot = Settings.appRoot . settings
-- Place the session key file in the config folder
encryptKey _ = fmap Just $ getKey "config/client_session_key.aes"
defaultLayout widget = do defaultLayout widget = do
mmsg <- getMessage mmsg <- getMessage
pc <- widgetToPageContent $ do pc <- widgetToPageContent $ do

4
scaffold/sitearg.hs.cg
View File

@ -34,6 +34,7 @@ import qualified Data.Text.Lazy
import qualified Data.Text.Lazy.Encoding import qualified Data.Text.Lazy.Encoding
import Text.Jasmine (minifym) import Text.Jasmine (minifym)
import qualified Data.Text as T import qualified Data.Text as T
import Web.ClientSession (getKey)
-- | The site argument for your application. This can be a good place to -- | The site argument for your application. This can be a good place to
-- keep settings and values requiring initialization before your application -- keep settings and values requiring initialization before your application
@ -79,6 +80,9 @@ mkYesodData "~sitearg~" $(parseRoutesFile "config/routes")
instance Yesod ~sitearg~ where instance Yesod ~sitearg~ where
approot = Settings.appRoot . settings approot = Settings.appRoot . settings
-- Place the session key file in the config folder
encryptKey _ = fmap Just $ getKey "config/client_session_key.aes"
defaultLayout widget = do defaultLayout widget = do
mmsg <- getMessage mmsg <- getMessage
pc <- widgetToPageContent $ do pc <- widgetToPageContent $ do