ported to latest ocaml-http API

diff --git a/helm/ocaml/getter/http_getter_common.ml b/helm/ocaml/getter/http_getter_common.ml
index a4ca3bf1cfaabafb8116ee3a7cae8c25d8c3bb99..4366417de179da32c02ea2a3c3c4e8794328b29f 100644 (file)
--- 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;