]> matita.cs.unibo.it Git - helm.git/commitdiff
bugfix: ignore proof checker output
authorStefano Zacchiroli <zack@upsilon.cc>
Thu, 17 Jun 2004 10:13:22 +0000 (10:13 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Thu, 17 Jun 2004 10:13:22 +0000 (10:13 +0000)
helm/proofChecker/proofChecker.ml

index 34904e8e0d42846bd06d37ee3fc1777de24cd5ce..a04e782e1fb63102b86bf6f9f32e201690382cad 100644 (file)
@@ -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');