Compare commits

..

No commits in common. "44a2b9f14983de110995345b69cdfefc57f60781" and "0c4e9f30e1dff428dea12928c7092ae2c539d5be" have entirely different histories.

2 changed files with 2 additions and 10 deletions

View file

@ -203,7 +203,6 @@ type meth =
| OPTIONS
| TRACE
| PATCH
| HTTP_CUSTOM of string
let string_of_meth = function
| GET -> "GET"
@ -215,7 +214,6 @@ let string_of_meth = function
| OPTIONS -> "OPTIONS"
| TRACE -> "TRACE"
| PATCH -> "PATCH"
| HTTP_CUSTOM s -> s
let pp_meth out m = Format.pp_print_string out (string_of_meth m)
@ -401,9 +399,7 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
let do_cleanup, self =
match client with
| None -> true, make ()
| Some c ->
Curl.reset c.curl;
false, c
| Some c -> false, c
in
_apply_config self config;
opt_iter range ~f:(fun s -> Curl.set_range self.curl s);
@ -444,10 +440,7 @@ module Make (IO : IO) : S with type 'a io = 'a IO.t = struct
| HEAD -> Curl.set_customrequest self.curl "HEAD"
| CONNECT -> Curl.set_customrequest self.curl "CONNECT"
| OPTIONS -> Curl.set_customrequest self.curl "OPTIONS"
| TRACE -> Curl.set_customrequest self.curl "TRACE"
| HTTP_CUSTOM s ->
Curl.set_customrequest self.curl s;
if content <> None then Curl.set_upload self.curl true);
| TRACE -> Curl.set_customrequest self.curl "TRACE");
_set_headers self !headers;
Curl.set_headerfunction self.curl (fun s0 ->

View file

@ -114,7 +114,6 @@ type meth =
| OPTIONS
| TRACE
| PATCH
| HTTP_CUSTOM of string (** Custom HTTP method (e.g., for WebDAV) *)
val pp_meth : Format.formatter -> meth -> unit
val string_of_meth : meth -> string