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

FIXED: fixed applying hook twice

Browse Source
This commit is contained in:
Hiromi Ishii 2011-07-15 21:54:52 +09:00
parent 588cf6ab58
commit ab087a3e38
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Web/Authenticate/OAuth.hs
View File

@ -151,7 +151,7 @@ getAccessToken' :: (Request IO -> Request IO) -- ^ Request Hook
-> IO Credential -- ^ Token Credential (Access Token & Secret) -> IO Credential -- ^ Token Credential (Access Token & Secret)
getAccessToken' hook oa cr = do getAccessToken' hook oa cr = do
let req = hook (fromJust $ parseUrl $ oauthAccessTokenUri oa) { method = "POST" } let req = hook (fromJust $ parseUrl $ oauthAccessTokenUri oa) { method = "POST" }
rsp <- signOAuth oa cr req >>= withManager . httpLbs . hook rsp <- withManager . httpLbs =<< signOAuth oa cr req
if statusCode rsp == 200 if statusCode rsp == 200
then do then do
let dic = parseSimpleQuery . toStrict . responseBody $ rsp let dic = parseSimpleQuery . toStrict . responseBody $ rsp