yesod-auth 0.3.0.1 → 0.3.1

raw patch · 2 files changed

+92/−2 lines, 2 filesdep +http-enumeratordep ~authenticate

Dependencies added: http-enumerator

Dependency ranges changed: authenticate

Files

• Yesod/Helpers/Auth/OAuth.hs +87/−0
• yesod-auth.cabal +5/−2

@@ -0,0 +1,87 @@+{-# LANGUAGE CPP, QuasiQuotes, OverloadedStrings #-}+{-# OPTIONS_GHC -fwarn-unused-imports #-}+module Yesod.Helpers.Auth.OAuth+    ( authOAuth+    , oauthUrl+    , authTwitter+    , twitterUrl+    ) where+import Yesod.Helpers.Auth+import Yesod.Form+import Yesod.Handler+import Yesod.Widget+import Text.Hamlet (hamlet)+import Web.Authenticate.OAuth+import Data.Maybe+import Data.String+import Network.HTTP.Enumerator+import Data.ByteString.Char8 (unpack, pack)+import Control.Arrow ((***))+import Control.Monad+import Control.Monad.IO.Class (liftIO)+import Control.Monad.Trans.Class (lift)++oauthUrl :: String -> AuthRoute+oauthUrl name = PluginR name ["forward"]++authOAuth :: YesodAuth m =>+             String -- ^ Service Name+          -> String -- ^ OAuth Parameter Name to use for identify+          -> String -- ^ Request URL+          -> String -- ^ Access Token URL+          -> String -- ^ Authorize URL+          -> String -- ^ Consumer Key+          -> String -- ^ Consumer Secret+          -> AuthPlugin m+authOAuth name ident reqUrl accUrl authUrl key sec = AuthPlugin name dispatch login+  where+    url = PluginR name []+    oauth = OAuth { oauthServerName = name, oauthRequestUri = reqUrl+                  , oauthAccessTokenUri = accUrl, oauthAuthorizeUri = authUrl+                  , oauthSignatureMethod = HMACSHA1+                  , oauthConsumerKey = fromString key, oauthConsumerSecret = fromString sec+                  , oauthCallback = Nothing+                  }+    dispatch "GET" ["forward"] = do+        render <- getUrlRender+        tm <- getRouteToMaster+        let oauth' = oauth { oauthCallback = Just $ fromString $ render $ tm url }+        tok <- liftIO $ getTemporaryCredential oauth'+        redirectString RedirectTemporary (fromString $ authorizeUrl oauth' tok)+    dispatch "GET" [] = do+        render <- getUrlRender+        tm <- getRouteToMaster+        let callback = render $ tm url+        verifier <- runFormGet' $ stringInput "oauth_verifier"+        oaTok    <- runFormGet' $ stringInput "oauth_token"+        let reqTok = Credential [ ("oauth_verifier", pack verifier), ("oauth_token", pack oaTok)+                                ] +        accTok <- liftIO $ getAccessToken oauth reqTok+        let crId = unpack $ fromJust $ lookup (pack ident) $ unCredential accTok+            creds = Creds name crId $ map (unpack *** unpack) $ unCredential accTok+        setCreds True creds+    dispatch _ _ = notFound+    login tm = do+        render <- lift getUrlRender+        let oaUrl = render $ tm $ oauthUrl name+        addHtml+#if GHC7+          [hamlet|+#else+          [$hamlet|+#endif+             <a href=#{oaUrl}>Login with #{name}+          |]++authTwitter :: YesodAuth m =>+               String -- ^ Consumer Key+            -> String -- ^ Consumer Secret+            -> AuthPlugin m+authTwitter = authOAuth "twitter"+                        "screen_name"+                        "http://twitter.com/oauth/request_token"+                        "http://twitter.com/oauth/access_token"+                        "http://twitter.com/oauth/authorize"++twitterUrl :: AuthRoute+twitterUrl = oauthUrl "twitter"

@@ -1,5 +1,5 @@ name:            yesod-auth-version:         0.3.0.1+version:         0.3.1 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman, Patrick Brisbin@@ -19,7 +19,7 @@         cpp-options:     -DGHC7     else         build-depends:   base                      >= 4        && < 4.3-    build-depends:   authenticate            >= 0.8       && < 0.9+    build-depends:   authenticate            >= 0.8.1     && < 0.9                    , bytestring              >= 0.9.1.4   && < 0.10                    , yesod-core              >= 0.7       && < 0.8                    , wai                     >= 0.3       && < 0.4@@ -41,11 +41,14 @@                    , transformers            >= 0.2       && < 0.3                    , persistent              >= 0.4       && < 0.5                    , SHA                     >= 1.4.1.3   && < 1.5+                   , http-enumerator         >= 0.3.1     && < 0.4+     exposed-modules: Yesod.Helpers.Auth                      Yesod.Helpers.Auth.Dummy                      Yesod.Helpers.Auth.Email                      Yesod.Helpers.Auth.Facebook                      Yesod.Helpers.Auth.OpenId+                     Yesod.Helpers.Auth.OAuth                      Yesod.Helpers.Auth.Rpxnow                      Yesod.Helpers.Auth.HashDB     ghc-options:     -Wall