X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=278413bde8fc77e4ff1a3f8e95e4d0b58c1d3547;hb=d8b76c102e4f540c3ecfa550267331a7a72810c2;hp=6513d4f930085eb020258a8e01117575357c44df;hpb=a046b6cc295535b0b70750708ee7e289fe72ffa6;p=helm.git

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index 6513d4f93..278413bde 100644
--- 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;