From 27e1ec3be3796444e2539d41e6d6f48c4735ee08 Mon Sep 17 00:00:00 2001 From: Alex Kardos Date: Sat, 20 Feb 2016 13:39:08 -0700 Subject: [PATCH] Used email field for input --- yesod-auth/Yesod/Auth/Email.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/yesod-auth/Yesod/Auth/Email.hs b/yesod-auth/Yesod/Auth/Email.hs index 8ca50394..a0c7b6d0 100644 --- 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