yesod-auth-oauth 1.4.1.1 → 1.4.2

raw patch · 3 files changed

+9/−5 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• ChangeLog.md +4/−0
• Yesod/Auth/OAuth.hs +4/−4
• yesod-auth-oauth.cabal +1/−1

@@ -1,3 +1,7 @@+## 1.4.2++* Fix warnings+ ## 1.4.1  * change OAuth Twitter ID, screen_name → user_id [#1168](https://github.com/yesodweb/yesod/pull/1168)

@@ -10,7 +10,7 @@     , tumblrUrl     , module Web.Authenticate.OAuth     ) where-import           Control.Applicative      ((<$>), (<*>))+import           Control.Applicative      as A ((<$>), (<*>)) import           Control.Arrow            ((***)) import           Control.Exception.Lifted import           Control.Monad.IO.Class@@ -66,8 +66,8 @@                                 ]           else do             (verifier, oaTok) <--                runInputGet $ (,) <$> ireq textField "oauth_verifier"-                                  <*> ireq textField "oauth_token"+                runInputGet $ (,) A.<$> ireq textField "oauth_verifier"+                                  A.<*> ireq textField "oauth_token"             return $ Credential [ ("oauth_verifier", encodeUtf8 verifier)                                 , ("oauth_token", encodeUtf8 oaTok)                                 , ("oauth_token_secret", encodeUtf8 tokSec)@@ -83,7 +83,7 @@         let oaUrl = render $ tm $ oauthUrl name         [whamlet| <a href=#{oaUrl}>Login via #{name} |] -mkExtractCreds :: YesodAuth m => Text -> String -> Credential -> IO (Creds m)+mkExtractCreds :: Text -> String -> Credential -> IO (Creds m) mkExtractCreds name idName (Credential dic) = do   let mcrId = decodeUtf8With lenientDecode <$> lookup (encodeUtf8 $ T.pack idName) dic   case mcrId of

@@ -1,5 +1,5 @@ name:            yesod-auth-oauth-version:         1.4.1.1+version:         1.4.2 license:         BSD3 license-file:    LICENSE author:          Hiromi Ishii