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

Merge pull request #15 from qzchenwl/master

Browse Source 
Add query `oauth_callback` to authorizeUrl
This commit is contained in:
Michael Snoyman 2011-12-19 07:07:43 -08:00
commit b8e1d97064
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Web/Authenticate/OAuth.hs
View File

@ -128,7 +128,10 @@ getTemporaryCredential' hook oa = do
authorizeUrl :: OAuth -- ^ OAuth Application
-> Credential -- ^ Temporary Credential (Request Token & Secret)
-> String -- ^ URL to authorize
authorizeUrl oa cr = oauthAuthorizeUri oa ++ BS.unpack (renderSimpleQuery True [("oauth_token", token cr)])
authorizeUrl oa cr = oauthAuthorizeUri oa ++ BS.unpack (renderSimpleQuery True queries)
where queries = case oauthCallback oa of
Nothing -> [("oauth_token", token cr)]
Just callback -> [("oauth_token", token cr), ("oauth_callback", callback)]
-- | Get Access token.
getAccessToken, getTokenCredential