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

Added encoding type and removed unused variable

Browse Source
This commit is contained in:
Alex Kardos 2016-02-20 13:37:43 -07:00
parent 76fc5887f9
commit 3e37983f1c
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -301,13 +301,13 @@ getRegisterR = registerHandler
-- Since: 1.2.6 -- Since: 1.2.6
defaultRegisterHandler :: YesodAuthEmail master => AuthHandler master Html defaultRegisterHandler :: YesodAuthEmail master => AuthHandler master Html
defaultRegisterHandler = do defaultRegisterHandler = do
((f,widget),e) <- lift $ runFormPost registrationForm ((_,widget),enctype) <- lift $ runFormPost registrationForm
toParentRoute <- getRouteToParent toParentRoute <- getRouteToParent
lift $ authLayout $ do lift $ authLayout $ do
setTitleI Msg.RegisterLong setTitleI Msg.RegisterLong
[whamlet| [whamlet|
<p>_{Msg.EnterEmail} <p>_{Msg.EnterEmail}
<form method="post" action="@{toParentRoute registerR}"> <form method="post" action="@{toParentRoute registerR}" enctype=#{enctype}>
<div id="registerForm"> <div id="registerForm">
^{widget} ^{widget}
<button .btn>_{Msg.Register} <button .btn>_{Msg.Register}