renamed Http_client to Http_user_agent to avoid clashes with Gerd's

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

index 278413bde8fc77e4ff1a3f8e95e4d0b58c1d3547..a04e782e1fb63102b86bf6f9f32e201690382cad 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');