ported to latest ocaml-http API

[helm.git] / helm / proofChecker / proofChecker.ml

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index 6513d4f930085eb020258a8e01117575357c44df..278413bde8fc77e4ff1a3f8e95e4d0b58c1d3547 100644 (file)
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/proofChecker/proofChecker.ml
@@ -50,7 +50,8 @@ END
 let bad_request outchan =
   printf "INVALID REQUEST !!!!!\n\n";
   flush stdout;
-  Http_daemon.respond_error ~status:(`Client_error `Bad_request) outchan;
+  Http_daemon.respond_error ~code:(`Status (`Client_error `Bad_request))
+    outchan;
   flush outchan
 ;;
 
@@ -98,7 +99,7 @@ let callback (req : Http_types.request) outchan' =
         outchan := outchan' ;
         try
           let uri = req#param "uri" in
-          Http_daemon.send_basic_headers ~code:200 outchan' ;
+          Http_daemon.send_basic_headers ~code:(`Code 200) outchan' ;
           Http_daemon.send_header "Content-type" "text/html" outchan' ; 
           Http_daemon.send_CRLF outchan' ;
           printf "Request to proof-check \"%s\"..." uri;