From a8771431ad24c80592147be2de1e05999ff3ab4a Mon Sep 17 00:00:00 2001 From: Stefano Zacchiroli Date: Thu, 20 May 2004 15:50:19 +0000 Subject: [PATCH] ported to latest ocaml-http API --- helm/ocaml/getter/http_getter_common.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/helm/ocaml/getter/http_getter_common.ml b/helm/ocaml/getter/http_getter_common.ml index a4ca3bf1c..4366417de 100644 --- a/helm/ocaml/getter/http_getter_common.ml +++ b/helm/ocaml/getter/http_getter_common.ml @@ -123,7 +123,7 @@ let return_file | (None, None) -> [] in if via_http then begin - Http_daemon.send_basic_headers ~code:200 outchan; + Http_daemon.send_basic_headers ~code:(`Code 200) outchan; Http_daemon.send_headers headers outchan; Http_daemon.send_CRLF outchan end; -- 2.39.2