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

Converted runFormPosts to generateFormPost

Browse Source 
This is a cleaner way to generate forms without ignoring one of the
variables.
This commit is contained in:
Alex Kardos 2016-03-10 17:24:03 -07:00
parent 9fb3f61ac8
commit d76aa1a16e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -280,7 +280,7 @@ getRegisterR = registerHandler
emailLoginHandler :: YesodAuthEmail master => (Route Auth -> Route master) -> WidgetT master IO () emailLoginHandler :: YesodAuthEmail master => (Route Auth -> Route master) -> WidgetT master IO ()
emailLoginHandler toParent = do emailLoginHandler toParent = do
((_,widget),enctype) <- liftWidgetT $ runFormPost loginForm (widget, enctype) <- liftWidgetT $ generateFormPost loginForm
[whamlet| [whamlet|
<form method="post" action="@{toParent loginR}"> <form method="post" action="@{toParent loginR}">
@ -338,7 +338,7 @@ emailLoginHandler toParent = do
-- Since: 1.2.6 -- Since: 1.2.6
defaultRegisterHandler :: YesodAuthEmail master => AuthHandler master Html defaultRegisterHandler :: YesodAuthEmail master => AuthHandler master Html
defaultRegisterHandler = do defaultRegisterHandler = do
((_,widget),enctype) <- lift $ runFormPost registrationForm (widget, enctype) <- lift $ generateFormPost registrationForm
toParentRoute <- getRouteToParent toParentRoute <- getRouteToParent
lift $ authLayout $ do lift $ authLayout $ do
setTitleI Msg.RegisterLong setTitleI Msg.RegisterLong
@ -424,7 +424,7 @@ getForgotPasswordR = forgotPasswordHandler
-- Since: 1.2.6 -- Since: 1.2.6
defaultForgotPasswordHandler :: YesodAuthEmail master => AuthHandler master Html defaultForgotPasswordHandler :: YesodAuthEmail master => AuthHandler master Html
defaultForgotPasswordHandler = do defaultForgotPasswordHandler = do
((_,widget),enctype) <- lift $ runFormPost forgotPasswordForm (widget, enctype) <- lift $ generateFormPost forgotPasswordForm
toParent <- getRouteToParent toParent <- getRouteToParent
lift $ authLayout $ do lift $ authLayout $ do
setTitleI Msg.PasswordResetTitle setTitleI Msg.PasswordResetTitle
@ -545,7 +545,7 @@ defaultSetPasswordHandler needOld = do
selectRep $ do selectRep $ do
provideJsonMessage $ messageRender Msg.SetPass provideJsonMessage $ messageRender Msg.SetPass
provideRep $ lift $ authLayout $ do provideRep $ lift $ authLayout $ do
((_,widget),enctype) <- liftWidgetT $ runFormPost $ setPasswordForm needOld (widget, enctype) <- liftWidgetT $ generateFormPost $ setPasswordForm needOld
setTitleI Msg.SetPassTitle setTitleI Msg.SetPassTitle
[whamlet| [whamlet|
<h3>_{Msg.SetPass} <h3>_{Msg.SetPass}