diff --git a/Web/Authenticate/OAuth.hs b/Web/Authenticate/OAuth.hs index 20f6dc61..4e7b71eb 100644 --- a/Web/Authenticate/OAuth.hs +++ b/Web/Authenticate/OAuth.hs @@ -8,7 +8,8 @@ module Web.Authenticate.OAuth -- * Signature signOAuth, -- * Url & operation for authentication - authorizeUrl, getAccessToken, getTemporaryCredential, + authorizeUrl, getAccessToken, getTemporaryCredential, + getTokenCredential, -- * Utility Methods paramEncode ) where @@ -97,7 +98,8 @@ authorizeUrl :: OAuth -- ^ OAuth Application authorizeUrl oa cr = qsUrl (oauthAuthorizeUri oa) [("oauth_token", BS.unpack $ token cr)] -- | Get Access token. -getAccessToken :: OAuth -- ^ OAuth Application +getAccessToken, getTokenCredential + :: OAuth -- ^ OAuth Application -> Credential -- ^ Temporary Credential with oauth_verifier -> IO Credential -- ^ Token Credential (Access Token & Secret) getAccessToken oa cr = do @@ -106,6 +108,8 @@ getAccessToken oa cr = do let dic = parseQueryString . toStrict . responseBody $ rsp return $ Credential dic +getTokenCredential = getAccessToken + insertMap :: Eq a => a -> b -> [(a,b)] -> [(a,b)] insertMap key val = ((key,val):) . filter ((/=key).fst) diff --git a/authenticate.cabal b/authenticate.cabal index 1dfb5e0a..bb3cd6b5 100644 --- a/authenticate.cabal +++ b/authenticate.cabal @@ -1,5 +1,5 @@ name: authenticate -version: 0.8.1 +version: 0.8.2 license: BSD3 license-file: LICENSE author: Michael Snoyman