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

yesod-auth - login/logout generalization (#228)

Browse Source
This commit is contained in:
Michael Snoyman 2012-01-18 08:23:47 +02:00
parent 7307503d81
commit 14f17a1373
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-auth/Yesod/Auth.hs
View File

@ -118,6 +118,15 @@ class (Yesod m, PathPiece (AuthId m), RenderMessage m FormMessage) => YesodAuth
-- @error \"authHttpManager"@ here. -- @error \"authHttpManager"@ here.
authHttpManager :: m -> Manager authHttpManager :: m -> Manager
-- | Called on a successful login. By default, calls
-- @setMessageI NowLoggedIn@.
onLogin :: GHandler s m ()
onLogin = setMessageI Msg.NowLoggedIn
-- | Called on logout. By default, does nothing
onLogout :: GHandler s m ()
onLogout = return ()
mkYesodSub "Auth" mkYesodSub "Auth"
[ ClassP ''YesodAuth [VarT $ mkName "master"] [ ClassP ''YesodAuth [VarT $ mkName "master"]
] ]
@ -148,7 +157,7 @@ setCreds doRedirects creds = do
Just aid -> do Just aid -> do
setSession credsKey $ toPathPiece aid setSession credsKey $ toPathPiece aid
when doRedirects $ do when doRedirects $ do
setMessageI Msg.NowLoggedIn onLogin
redirectUltDest $ loginDest y redirectUltDest $ loginDest y
getCheckR :: YesodAuth m => GHandler Auth m RepHtmlJson getCheckR :: YesodAuth m => GHandler Auth m RepHtmlJson
@ -186,6 +195,7 @@ postLogoutR :: YesodAuth m => GHandler Auth m ()
postLogoutR = do postLogoutR = do
y <- getYesod y <- getYesod
deleteSession credsKey deleteSession credsKey
onLogout
redirectUltDest $ logoutDest y redirectUltDest $ logoutDest y
handlePluginR :: YesodAuth m => Text -> [Text] -> GHandler Auth m () handlePluginR :: YesodAuth m => Text -> [Text] -> GHandler Auth m ()