From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 20 May 2004 15:50:19 +0000 (+0000)
Subject: ported to latest ocaml-http API
X-Git-Tag: V_0_0_9~23
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=a8771431ad24c80592147be2de1e05999ff3ab4a;p=helm.git

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 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;