oauthenticated 0.1.1 → 0.1.2

raw patch · 2 files changed

+5/−2 lines, 2 files

Files

• oauthenticated.cabal +1/−1
• src/Network/OAuth/Signing.hs +4/−1

@@ -1,5 +1,5 @@ name:                oauthenticated-version:             0.1.1+version:             0.1.2 synopsis:            Simple OAuth for http-client  description:         

@@ -98,7 +98,10 @@                  | otherwise = x : replaceHeader n b rest       authHeader = "OAuth " <> S8.intercalate ", " pairs       pairs = map mkPair q-      mkPair (k, v) = k <> "=\"" <> fromMaybe "" v <> "\""+      -- We should perhaps pctEncode the key in each pair as well, but so+      -- long as this is a well-formed OAuth header the keys will never+      -- require encoding.+      mkPair (k, v) = k <> "=\"" <> pctEncode (fromMaybe "" v) <> "\""   in req { C.requestHeaders = replaceHeader H.hAuthorization authHeader (C.requestHeaders req) } augmentRequest QueryString q req =   let q0 = H.parseQuery (C.queryString req)