From b9b48273d770434ca0f308f52c9ce0644e72ce05 Mon Sep 17 00:00:00 2001
From: Greg Weber <greg@gregweber.info>
Date: Mon, 1 Aug 2011 09:42:28 -0700
Subject: [PATCH] add a default RenderMessage for forms i18n

this adds the form dependency in the cabal file
---
 yesod/scaffold/cabal.cg      | 1 +
 yesod/scaffold/sitearg.hs.cg | 5 ++++-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/yesod/scaffold/cabal.cg b/yesod/scaffold/cabal.cg
index 67b8b7b2..79f794b1 100644
--- a/yesod/scaffold/cabal.cg
+++ b/yesod/scaffold/cabal.cg
@@ -50,6 +50,7 @@ executable         ~project~
                  , yesod        >= 0.8     && < 0.9
                  , yesod-auth   >= 0.4     && < 0.5
                  , yesod-static >= 0.1     && < 0.2
+                 , yesod-form
                  , mime-mail
                  , clientsession
                  , wai-extra
diff --git a/yesod/scaffold/sitearg.hs.cg b/yesod/scaffold/sitearg.hs.cg
index 0bd383dc..8ac35c31 100644
--- a/yesod/scaffold/sitearg.hs.cg
+++ b/yesod/scaffold/sitearg.hs.cg
@@ -1,5 +1,5 @@
 {-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies #-}
-{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses #-}
 module ~sitearg~
     ( ~sitearg~ (..)
     , ~sitearg~Route (..)
@@ -16,6 +16,7 @@ module ~sitearg~
     ) where
 
 import Yesod
+import Yesod.Form (defaultFormMessage)
 import Yesod.Helpers.Static
 import Yesod.Helpers.Auth
 import Yesod.Helpers.Auth.OpenId
@@ -211,3 +212,5 @@ instance YesodAuthEmail ~sitearg~ where
                 }
     getEmail = runDB . fmap (fmap emailEmail) . get
 
+instance RenderMessage ~sitearg~ FormMessage where
+    renderMessage _ _ = defaultFormMessage