From 0b09a4f66bc1dde647bab68ccdf92603a6432cf9 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 9 Mar 2011 17:53:59 +0200
Subject: [PATCH] Added getTokenCredential = getAccessToken

---
 Web/Authenticate/OAuth.hs | 8 ++++++--
 authenticate.cabal        | 2 +-
 2 files changed, 7 insertions(+), 3 deletions(-)

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 <michael@snoyman.com>