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

add a default RenderMessage for forms i18n

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
yesod/scaffold/cabal.cg
View File

@ -50,6 +50,7 @@ executable ~project~
, yesod >= 0.8 && < 0.9 , yesod >= 0.8 && < 0.9
, yesod-auth >= 0.4 && < 0.5 , yesod-auth >= 0.4 && < 0.5
, yesod-static >= 0.1 && < 0.2 , yesod-static >= 0.1 && < 0.2
, yesod-form
, mime-mail , mime-mail
, clientsession , clientsession
, wai-extra , wai-extra

5
yesod/scaffold/sitearg.hs.cg
View File

@ -1,5 +1,5 @@
{-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies #-} {-# LANGUAGE QuasiQuotes, TemplateHaskell, TypeFamilies #-}
{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE OverloadedStrings, MultiParamTypeClasses #-}
module ~sitearg~ module ~sitearg~
( ~sitearg~ (..) ( ~sitearg~ (..)
, ~sitearg~Route (..) , ~sitearg~Route (..)
@ -16,6 +16,7 @@ module ~sitearg~
) where ) where
import Yesod import Yesod
import Yesod.Form (defaultFormMessage)
import Yesod.Helpers.Static import Yesod.Helpers.Static
import Yesod.Helpers.Auth import Yesod.Helpers.Auth
import Yesod.Helpers.Auth.OpenId import Yesod.Helpers.Auth.OpenId
@ -211,3 +212,5 @@ instance YesodAuthEmail ~sitearg~ where
} }
getEmail = runDB . fmap (fmap emailEmail) . get getEmail = runDB . fmap (fmap emailEmail) . get
instance RenderMessage ~sitearg~ FormMessage where
renderMessage _ _ = defaultFormMessage