authenticate 0.8.1 → 0.8.2
raw patch · 2 files changed
+7/−3 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
+ Web.Authenticate.OAuth: getTokenCredential :: OAuth -> Credential -> IO Credential
Files
- Web/Authenticate/OAuth.hs +6/−2
- authenticate.cabal +1/−1
Web/Authenticate/OAuth.hs view
@@ -8,7 +8,8 @@ -- * Signature signOAuth, -- * Url & operation for authentication- authorizeUrl, getAccessToken, getTemporaryCredential, + authorizeUrl, getAccessToken, getTemporaryCredential,+ getTokenCredential, -- * Utility Methods paramEncode ) where@@ -97,7 +98,8 @@ 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@@ -105,6 +107,8 @@ rsp <- signOAuth oa cr req >>= httpLbs 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)
authenticate.cabal view
@@ -1,5 +1,5 @@ name: authenticate-version: 0.8.1+version: 0.8.2 license: BSD3 license-file: LICENSE author: Michael Snoyman <michael@snoyman.com>