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

Rpxnow login looks at DEST cookie

Browse Source
This commit is contained in:
Michael Snoyman 2010-02-09 20:30:29 +02:00
parent 28c5d2ab55
commit cca7450613
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Helpers/Auth.hs
View File

@ -181,11 +181,15 @@ rpxnowLogin = do
(('#':rest):_) -> rest (('#':rest):_) -> rest
(s:_) -> s (s:_) -> s
(d:_) -> d (d:_) -> d
let dest' = case cookies rr "DEST" of
[] -> dest
(x:_) -> x
ident <- Rpxnow.authenticate apiKey token ident <- Rpxnow.authenticate apiKey token
onRpxnowLogin ident onRpxnowLogin ident
header authCookieName $ Rpxnow.identifier ident header authCookieName $ Rpxnow.identifier ident
header authDisplayName $ getDisplayName ident header authDisplayName $ getDisplayName ident
redirect RedirectTemporary dest deleteCookie "DEST"
redirect RedirectTemporary dest'
data MissingToken = MissingToken data MissingToken = MissingToken
deriving (Show, Typeable) deriving (Show, Typeable)