ocaml 3.09 transition

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

index 278413bde8fc77e4ff1a3f8e95e4d0b58c1d3547..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
@@ -107,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');
@@ -127,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"
+