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

Update emailLoginHandler 'since' version

Browse Source
This commit is contained in:
Daniel Campoverde [alx741] 2017-02-18 18:28:53 -05:00
parent c5ddf55937
commit ea5e1cca26
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

@ -297,7 +297,7 @@ class ( YesodAuth site
--
-- Default: 'defaultEmailLoginHandler'.
--
-- @since 1.4.11
-- @since 1.4.17
emailLoginHandler :: (Route Auth -> Route site) -> WidgetT site IO ()
emailLoginHandler = defaultEmailLoginHandler
@ -360,7 +360,7 @@ getRegisterR = registerHandler
-- | Default implementation of 'emailLoginHandler'.
--
-- @since 1.2.6
-- @since 1.4.17
defaultEmailLoginHandler :: YesodAuthEmail master => (Route Auth -> Route master) -> WidgetT master IO ()
defaultEmailLoginHandler toParent = do
(widget, enctype) <- liftWidgetT $ generateFormPost loginForm