ocaml 3.09 transition

[helm.git] / helm / proofChecker / proofChecker.ml
diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml

index 6513d4f930085eb020258a8e01117575357c44df..e4f00fe3acf86c989b4e250af89000fda4942206 100644 (file)
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/proofChecker/proofChecker.ml
@@ -37,10 +37,10 @@ let (html_preamble, html_postamble) =
   <title>Proof-Checking %s</title>
  </head>
  <body bgcolor=\"white\">
-<h1>Proof-Checking %s:</h1>
+<h3>Proof-Checking %s:</h3>
  "
        uri uri)),
-("<h1>Done.</h1>
+("<h3>Done.</h3>
  </body>
  </html>
  END
@@ -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;
@@ -106,7 +107,7 @@ let callback (req : Http_types.request) outchan' =
            fprintf outchan' "%s" (html_preamble uri);
            flush outchan';
            (try
-            CicTypeChecker.typecheck (UriManager.uri_of_string uri);
+            ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri));
             with e ->
              fprintf outchan' "%s\n" (Printexc.to_string e);
              flush outchan');
@@ -126,5 +127,7 @@ in
  
  printf "Proof Checker started and listening on port %d\n" port;
  flush stdout;
+CicEnvironment.set_trust (fun _ -> false);
  Http_daemon.start' ~port ~mode:`Fork callback ;
  printf "Proof Checker is terminating, bye!\n"
+