From a65a9bd5ff0c805bbd1f791caaab12b9bce03bc9 Mon Sep 17 00:00:00 2001
From: Tom Streller <dusklykan@yahoo.co.uk>
Date: Wed, 7 Mar 2012 22:15:19 +0100
Subject: [PATCH] tumblr oauth

---
 yesod-auth-oauth/Yesod/Auth/OAuth.hs | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/yesod-auth-oauth/Yesod/Auth/OAuth.hs b/yesod-auth-oauth/Yesod/Auth/OAuth.hs
index 615cdb15..de531d01 100644
--- a/yesod-auth-oauth/Yesod/Auth/OAuth.hs
+++ b/yesod-auth-oauth/Yesod/Auth/OAuth.hs
@@ -5,6 +5,8 @@ module Yesod.Auth.OAuth
     , oauthUrl
     , authTwitter
     , twitterUrl
+	, authTumblr
+	, tumblrUrl
     , module Web.Authenticate.OAuth
     ) where
 
@@ -101,5 +103,28 @@ authTwitter key secret = authOAuth
 twitterUrl :: AuthRoute
 twitterUrl = oauthUrl "twitter"
 
+authTumblr :: YesodAuth m
+            => ByteString -- ^ Consumer Key
+            -> ByteString -- ^ Consumer Secret
+            -> AuthPlugin m
+authTumblr key secret = authOAuth
+                (newOAuth { oauthServerName      = "tumblr"
+                          , oauthRequestUri      = "http://www.tumblr.com/oauth/request_token"
+                          , oauthAccessTokenUri  = "http://www.tumblr.com/oauth/access_token"
+                          , oauthAuthorizeUri    = "http://www.tumblr.com/oauth/authorize"
+                          , oauthSignatureMethod = HMACSHA1
+                          , oauthConsumerKey     = key
+                          , oauthConsumerSecret  = secret
+                          , oauthVersion         = OAuth10a
+                          })
+                extractCreds
+  where
+    extractCreds (Credential dic) = do
+        let crId = decodeUtf8With lenientDecode $ fromJust $ lookup "name" dic
+        return $ Creds "tumblr" crId $ map (bsToText *** bsToText ) dic
+
+tumblrUrl :: AuthRoute
+tumblrUrl = oauthUrl "tumblr"
+
 bsToText :: ByteString -> Text
 bsToText = decodeUtf8With lenientDecode