diff --git a/Web/Authenticate/OAuth.hs b/Web/Authenticate/OAuth.hs
--- a/Web/Authenticate/OAuth.hs
+++ b/Web/Authenticate/OAuth.hs
@@ -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)
diff --git a/authenticate.cabal b/authenticate.cabal
--- 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>