add a default RenderMessage for forms i18n

this adds the form dependency in the cabal file
This commit is contained in:
Greg Weber 2011-08-01 09:42:28 -07:00
parent 9170ce37e4
commit b9b48273d7
2 changed files with 5 additions and 1 deletions

View File

@ -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

View File

@ -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