Used localized email label

2016-02-20 13:38:19 -07:00 · 2016-02-20 13:38:19 -07:00 · ed5037fa74
commit ed5037fa74
parent 3e37983f1c
1 changed files with 1 additions and 1 deletions
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@ -315,8 +315,8 @@ defaultRegisterHandler = do
    where
        registrationForm extra = do
            let emailSettings = FieldSettings {
-                fsLabel = "Email" ,
                fsTooltip = Nothing ,
+                fsLabel = SomeMessage Msg.Email,
                fsId = Just "email",
                fsName = Just "email",
                fsAttrs = []