Compare commits

..

No commits in common. "0c4e9f30e1dff428dea12928c7092ae2c539d5be" and "4f61478bad741a1cd3d8c0baf25775366fa216dc" have entirely different histories.

View file

@ -433,14 +433,15 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
| POST [] when content <> None -> Curl.set_post self.curl true | POST [] when content <> None -> Curl.set_post self.curl true
| POST l -> Curl.set_httppost self.curl l | POST l -> Curl.set_httppost self.curl l
| GET -> Curl.set_httpget self.curl true | GET -> Curl.set_httpget self.curl true
| (PUT | PATCH) as meth -> | PUT ->
Curl.set_customrequest self.curl (string_of_meth meth); Curl.set_customrequest self.curl "PUT";
if content <> None then Curl.set_upload self.curl true Curl.set_upload self.curl true
| DELETE -> Curl.set_customrequest self.curl "DELETE" | DELETE -> Curl.set_customrequest self.curl "DELETE"
| HEAD -> Curl.set_customrequest self.curl "HEAD" | HEAD -> Curl.set_customrequest self.curl "HEAD"
| CONNECT -> Curl.set_customrequest self.curl "CONNECT" | CONNECT -> Curl.set_customrequest self.curl "CONNECT"
| OPTIONS -> Curl.set_customrequest self.curl "OPTIONS" | OPTIONS -> Curl.set_customrequest self.curl "OPTIONS"
| TRACE -> Curl.set_customrequest self.curl "TRACE"); | TRACE -> Curl.set_customrequest self.curl "TRACE"
| PATCH -> Curl.set_customrequest self.curl "PATCH");
_set_headers self !headers; _set_headers self !headers;
Curl.set_headerfunction self.curl (fun s0 -> Curl.set_headerfunction self.curl (fun s0 ->