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

Fix email auth module

Browse Source
This commit is contained in:
Daniel Campoverde [alx741] 2017-02-06 17:20:55 -05:00
parent 311f7927bb
commit c78ae95b3a
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

@ -298,7 +298,7 @@ class ( YesodAuth site
-- Default: 'defaultEmailLoginHandler'. -- Default: 'defaultEmailLoginHandler'.
-- --
-- @since: 1.2.6 -- @since: 1.2.6
emailLoginHandler :: YesodAuthEmail master => (Route Auth -> Route master) -> WidgetT master IO () emailLoginHandler :: (Route Auth -> Route site) -> WidgetT site IO ()
emailLoginHandler = defaultEmailLoginHandler emailLoginHandler = defaultEmailLoginHandler
@ -534,7 +534,7 @@ defaultForgotPasswordHandler = do
where where
forgotPasswordForm extra = do forgotPasswordForm extra = do
(emailRes, emailView) <- mreq emailField emailSettings Nothing (emailRes, emailView) <- mreq emailField emailSettings Nothing
let forgotPasswordRes = ForgotPasswordForm <$> emailRes let forgotPasswordRes = ForgotPasswordForm <$> emailRes
let widget = do let widget = do
[whamlet| [whamlet|