hoauth 0.2.4 → 0.2.5

raw patch · 3 files changed

+8/−11 lines, 3 filesPVP ok

version bump matches the API change (PVP)

API changes (from Hackage documentation)

Files

• hoauth.cabal +1/−1
• src/main/haskell/Network/OAuth/Consumer.hs +5/−5
• src/main/haskell/Network/OAuth/Http/HttpClient.hs +2/−5

@@ -1,5 +1,5 @@ name: hoauth-version: 0.2.4+version: 0.2.5 category: Network,Protocol,OAuth license: BSD3 license-file: LICENSE

@@ -115,14 +115,14 @@  -- | The OAuth Token. data Token =   -  {-| There is no valid token present, all requests go unauthenticated.-   -}+  {-| This token is used to perform 2 legged OAuth requests. -}     TwoLegg {application :: Application              ,oauthParams :: FieldList             }-  {-| The service provider has granted you the request token but the user has-      not yet authorized your application. If you use this token it will goes-      as 2 legged OAuth.+  {-| The service provider has granted you the request token but the+      user has not yet authorized your application. You need to+      exchange this token by a proper AccessToken, but this may only+      happen after user has granted you permission to do so.    -}   | ReqToken {application :: Application              ,oauthParams :: FieldList

@@ -67,8 +67,6 @@                      curlMethod = case (method req)                        of GET   -> [CurlHttpGet True]-                          POST  -> [CurlPost True]-                          PUT   -> [CurlPut True]                           HEAD  -> [CurlNoBody True,CurlCustomRequest "HEAD"]                           other -> if (B.null.reqPayload $ req)                                    then [CurlHttpGet True,CurlCustomRequest (show other)]@@ -77,9 +75,8 @@                          then []                          else [CurlPostFields [map (chr.fromIntegral).B.unpack.reqPayload $ req]]           curlHeaders = let headers = (map (\(k,v) -> k++": "++v).toList.reqHeaders $ req)-                        in [CurlHttpHeaders $"Expect: " -                                            :("Content-Length: " ++ (show.B.length.reqPayload $ req))-                                            :headers+                        in [CurlHttpHeaders $ ("Content-Length: " ++ (show.B.length.reqPayload $ req))+                                              : headers                            ]            opts = [CurlURL (showURL req)