From 4d7519d2be87cf1b8a6967bd7d464b87a8e328ae Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Fri, 15 Jul 2011 08:59:04 +0300
Subject: [PATCH] client_session_key in config folder

---
 scaffold/mini/sitearg.hs.cg | 3 +++
 scaffold/sitearg.hs.cg      | 4 ++++
 2 files changed, 7 insertions(+)

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