diff --git a/scaffold/mini/sitearg.hs.cg b/scaffold/mini/sitearg.hs.cg index 758d4d65..e7c59ee8 100644 --- a/scaffold/mini/sitearg.hs.cg +++ b/scaffold/mini/sitearg.hs.cg @@ -68,6 +68,9 @@ mkYesodData "~sitearg~" $(parseRoutesFile "config/routes") instance Yesod ~sitearg~ where 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 mmsg <- getMessage pc <- widgetToPageContent $ do diff --git a/scaffold/sitearg.hs.cg b/scaffold/sitearg.hs.cg index a39a6f71..0bd383dc 100644 --- a/scaffold/sitearg.hs.cg +++ b/scaffold/sitearg.hs.cg @@ -34,6 +34,7 @@ import qualified Data.Text.Lazy import qualified Data.Text.Lazy.Encoding import Text.Jasmine (minifym) import qualified Data.Text as T +import Web.ClientSession (getKey) -- | The site argument for your application. This can be a good place to -- keep settings and values requiring initialization before your application @@ -79,6 +80,9 @@ mkYesodData "~sitearg~" $(parseRoutesFile "config/routes") instance Yesod ~sitearg~ where 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 mmsg <- getMessage pc <- widgetToPageContent $ do