authenticate 0.8.2.1 → 0.8.2.2

raw patch · 2 files changed

+3/−2 lines, 2 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• Web/Authenticate/OAuth.hs +2/−1
• authenticate.cabal +1/−1

@@ -168,6 +168,7 @@ injectOAuthToCred oa cred = maybe id (insert "oauth_callback") (oauthCallback oa) $    inserts [ ("oauth_signature_method", showSigMtd $ oauthSignatureMethod oa)           , ("oauth_consumer_key", oauthConsumerKey oa)+          , ("oauth_version", "1.0")           ] cred  genSign :: OAuth -> Credential -> Request -> BS.ByteString@@ -209,7 +210,7 @@       bsQuery = queryString req       bsBodyQ = if isBodyFormEncoded $ requestHeaders req                   then parseQueryString (toStrict $ requestBody req) else []-      bsAuthParams = filter ((`notElem`["oauth_signature","realm","oauth_version", "oauth_token_secret"]).fst) $ unCredential tok+      bsAuthParams = filter ((`notElem`["oauth_signature","realm", "oauth_token_secret"]).fst) $ unCredential tok       allParams = bsQuery++bsBodyQ++bsAuthParams       bsParams = BS.intercalate "&" $ map (\(a,b)->BS.concat[a,"=",b]) $ sortBy compareTuple                    $ map (\(a,b) -> (paramEncode a,paramEncode b)) allParams

@@ -1,5 +1,5 @@ name:            authenticate-version:         0.8.2.1+version:         0.8.2.2 license:         BSD3 license-file:    LICENSE author:          Michael Snoyman <michael@snoyman.com>