From 27207fb1022d970d69da612aff49a38228727ff1 Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Wed, 8 Jan 2003 17:34:26 +0000 Subject: [PATCH] perform ancient HTTP request to avoid parsing response's headers --- helm/http_getter/http_getter_misc.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/helm/http_getter/http_getter_misc.ml b/helm/http_getter/http_getter_misc.ml index 5cb713f20..1d9c59273 100644 --- a/helm/http_getter/http_getter_misc.ml +++ b/helm/http_getter/http_getter_misc.ml @@ -93,7 +93,7 @@ let http_get_iter_buf ~callback url = let (address, port, path) = parse_url url in let buf = String.create tcp_bufsiz in let (inchan, outchan) = init_socket address port in - output_string outchan (sprintf "GET %s HTTP/1.0\r\n\r\n" path); + output_string outchan (sprintf "GET %s\r\n" path); flush outchan; (try while true do -- 2.39.2