X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Focaml%2Fgetter%2Fhttp_getter_common.ml;h=4366417de179da32c02ea2a3c3c4e8794328b29f;hb=44f27c5113259badb27d6a773c0b86e933056203;hp=a4ca3bf1cfaabafb8116ee3a7cae8c25d8c3bb99;hpb=bd59745a232bff0e941e97170b88709d0ff6fdf2;p=helm.git

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;