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

onRpxnowLogin and better defaultLoginPath

Browse Source
This commit is contained in:
Michael Snoyman 2010-01-27 22:00:40 +02:00
parent f1184a1f66
commit 7505d9a054
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Yesod/Helpers/Auth.hs
View File

@ -44,12 +44,16 @@ class YesodApproot a => YesodAuth a where
authRoot :: a -> String authRoot :: a -> String
authRoot _ = "auth/" authRoot _ = "auth/"
-- | Absolute path to the default login path.
defaultLoginPath :: a -> String defaultLoginPath :: a -> String
defaultLoginPath a = authRoot a ++ "openid/" defaultLoginPath a = approot a ++ authRoot a ++ "openid/"
rpxnowApiKey :: a -> Maybe String rpxnowApiKey :: a -> Maybe String
rpxnowApiKey _ = Nothing rpxnowApiKey _ = Nothing
onRpxnowLogin :: Rpxnow.Identifier -> Handler a ()
onRpxnowLogin _ = return ()
getFullAuthRoot :: YesodAuth y => Handler y String getFullAuthRoot :: YesodAuth y => Handler y String
getFullAuthRoot = do getFullAuthRoot = do
y <- getYesod y <- getYesod
@ -176,6 +180,7 @@ rpxnowLogin = do
(s:_) -> s (s:_) -> s
(d:_) -> d (d:_) -> d
ident <- Rpxnow.authenticate apiKey token ident <- Rpxnow.authenticate apiKey token
onRpxnowLogin ident
header authCookieName $ Rpxnow.identifier ident header authCookieName $ Rpxnow.identifier ident
header authDisplayName $ getDisplayName ident header authDisplayName $ getDisplayName ident
redirect RedirectTemporary dest redirect RedirectTemporary dest
@ -241,7 +246,7 @@ authIdentifier = do
let dest = ar ++ rp let dest = ar ++ rp
lp <- defaultLoginPath `fmap` getYesod lp <- defaultLoginPath `fmap` getYesod
addCookie 120 "DEST" dest addCookie 120 "DEST" dest
redirect RedirectTemporary $ ar ++ lp redirect RedirectTemporary lp
Just x -> return x Just x -> return x
-- | Determinge the path requested by the user (ie, the path info). This -- | Determinge the path requested by the user (ie, the path info). This