Used email field for input

2016-02-20 13:39:08 -07:00 · 2016-02-20 13:39:08 -07:00 · 27e1ec3be3
commit 27e1ec3be3
parent c376146231
1 changed files with 1 additions and 1 deletions
--- a/yesod-auth/Yesod/Auth/Email.hs
+++ b/yesod-auth/Yesod/Auth/Email.hs
@ -322,7 +322,7 @@ defaultRegisterHandler = do
                fsAttrs = []
            }

-            (emailRes, emailView) <- mreq textField emailSettings Nothing
+            (emailRes, emailView) <- mreq emailField emailSettings Nothing

            let userRes = UserForm <$> emailRes
            let widget = do