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

Backwards compatibility for Google logins

Browse Source
This commit is contained in:
Michael Snoyman 2011-02-05 19:57:10 +02:00
parent 71f3170ec8
commit 83975113df
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Yesod/Helpers/Auth/OpenId.hs
View File

@ -26,7 +26,7 @@ authOpenId :: YesodAuth m => AuthPlugin m
authOpenId = authOpenId =
AuthPlugin "openid" dispatch login AuthPlugin "openid" dispatch login
where where
complete = PluginR "openid" ["complete"] complete = PluginR "openid" ["complete", ""]
name = "openid_identifier" name = "openid_identifier"
login tm = do login tm = do
ident <- lift newIdent ident <- lift newIdent
@ -71,10 +71,10 @@ authOpenId =
toMaster <- getRouteToMaster toMaster <- getRouteToMaster
setMessage $ messageNoOpenID y setMessage $ messageNoOpenID y
redirect RedirectTemporary $ toMaster LoginR redirect RedirectTemporary $ toMaster LoginR
dispatch "GET" ["complete"] = do dispatch "GET" ["complete", ""] = do
rr <- getRequest rr <- getRequest
completeHelper $ reqGetParams rr completeHelper $ reqGetParams rr
dispatch "POST" ["complete"] = do dispatch "POST" ["complete", ""] = do
(posts, _) <- runRequestBody (posts, _) <- runRequestBody
completeHelper posts completeHelper posts
dispatch _ _ = notFound dispatch _ _ = notFound