This commit is contained in:
Simon Cruanes 2021-07-22 11:04:34 -04:00
parent 93471ea0a7
commit 6795c5b64a

View file

@ -293,7 +293,7 @@ module Make(IO : IO)
r))); r)));
(* local state *) (* local state *)
let tries = max tries 1 in (* at least one attempt *) let tries = max tries 1 in (* at least one attempt *)
let body = ref "" in let body = ref "" in
let resp_headers = ref [] in let resp_headers = ref [] in
let resp_headers_done = ref false in (* once we get "\r\n" header line *) let resp_headers_done = ref false in (* once we get "\r\n" header line *)
Curl.set_url self url; Curl.set_url self url;
@ -321,8 +321,8 @@ module Make(IO : IO)
resp_headers_done := false; resp_headers_done := false;
resp_headers := []; resp_headers := [];
); );
resp_headers := s :: !resp_headers; resp_headers := s :: !resp_headers;
); );
String.length s0); String.length s0);
Curl.set_writefunction self Curl.set_writefunction self