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)));
(* local state *)
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_done = ref false in (* once we get "\r\n" header line *)
Curl.set_url self url;
@ -321,8 +321,8 @@ module Make(IO : IO)
resp_headers_done := false;
resp_headers := [];
);
resp_headers := s :: !resp_headers;
resp_headers := s :: !resp_headers;
);
String.length s0);
Curl.set_writefunction self