diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 7792413c..8ca50394 100644 --- 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 { - fsTooltip = Nothing , fsLabel = SomeMessage Msg.Email, + fsTooltip = Nothing, fsId = Just "email", fsName = Just "email", fsAttrs = []