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

Used email field for input

Browse Source
This commit is contained in:
Alex Kardos 2016-02-20 13:39:08 -07:00
parent c376146231
commit 27e1ec3be3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
yesod-auth/Yesod/Auth/Email.hs
View File

@ -322,7 +322,7 @@ defaultRegisterHandler = do
fsAttrs = [] fsAttrs = []
} }
(emailRes, emailView) <- mreq textField emailSettings Nothing (emailRes, emailView) <- mreq emailField emailSettings Nothing
let userRes = UserForm <$> emailRes let userRes = UserForm <$> emailRes
let widget = do let widget = do