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

loginHandler

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-11 19:46:48 +02:00
parent 18e901fa52
commit f0cd04fa97
2 changed files with 9 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Yesod/Helpers/Auth2.hs
View File

@ -62,6 +62,13 @@ class Yesod m => YesodAuth m where
authPlugins :: [AuthPlugin m] authPlugins :: [AuthPlugin m]
-- | What to show on the login page.
loginHandler :: GHandler Auth m RepHtml
loginHandler = defaultLayout $ do
setTitle $ string "Login"
tm <- liftHandler getRouteToMaster
mapM_ (flip apLogin tm) authPlugins
mkYesodSub "Auth" mkYesodSub "Auth"
[ ClassP ''YesodAuth [VarT $ mkName "master"] [ ClassP ''YesodAuth [VarT $ mkName "master"]
] [$parseRoutes| ] [$parseRoutes|
@ -120,10 +127,7 @@ $nothing
] ]
getLoginR :: YesodAuth m => GHandler Auth m RepHtml getLoginR :: YesodAuth m => GHandler Auth m RepHtml
getLoginR = defaultLayout $ do getLoginR = loginHandler
setTitle $ string "Login"
tm <- liftHandler getRouteToMaster
mapM_ (flip apLogin tm) authPlugins
getLogoutR :: YesodAuth m => GHandler Auth m () getLogoutR :: YesodAuth m => GHandler Auth m ()
getLogoutR = postLogoutR -- FIXME redirect to post getLogoutR = postLogoutR -- FIXME redirect to post

2
yesod-auth.cabal
View File

@ -1,5 +1,5 @@
name: yesod-auth name: yesod-auth
version: 0.1.2 version: 0.1.3
license: BSD3 license: BSD3
license-file: LICENSE license-file: LICENSE
author: Michael Snoyman <michael@snoyman.com> author: Michael Snoyman <michael@snoyman.com>