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

added registerHandler method to YesodAuthEmail class to enable override

Browse Source
This commit is contained in:
charukiewicz 2020-02-05 01:21:56 -06:00
parent 5943ee527d
commit abdd844279
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -385,6 +385,10 @@ class ( YesodAuth site
-> AuthHandler site TypedContent -> AuthHandler site TypedContent
setPasswordHandler = defaultSetPasswordHandler setPasswordHandler = defaultSetPasswordHandler
registerHelper :: Bool -> Bool -> Route Auth -> AuthHandler site TypedContent
registerHelper = defaultRegisterHelper
authEmail :: (YesodAuthEmail m) => AuthPlugin m authEmail :: (YesodAuthEmail m) => AuthPlugin m
authEmail = authEmail =
AuthPlugin "email" dispatch emailLoginHandler AuthPlugin "email" dispatch emailLoginHandler
@ -516,12 +520,12 @@ parseRegister = withObject "email" (\obj -> do
pass <- obj .:? "password" pass <- obj .:? "password"
return (email, pass)) return (email, pass))
registerHelper :: YesodAuthEmail master defaultRegisterHelper :: YesodAuthEmail master
=> Bool -- ^ allow usernames? => Bool -- ^ allow usernames?
-> Bool -- ^ forgot password? -> Bool -- ^ forgot password?
-> Route Auth -> Route Auth
-> AuthHandler master TypedContent -> AuthHandler master TypedContent
registerHelper allowUsername forgotPassword dest = do defaultRegisterHelper allowUsername forgotPassword dest = do
y <- getYesod y <- getYesod
checkCsrfHeaderOrParam defaultCsrfHeaderName defaultCsrfParamName checkCsrfHeaderOrParam defaultCsrfHeaderName defaultCsrfParamName
result <- runInputPostResult $ (,) result <- runInputPostResult $ (,)