From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 17 Jun 2004 10:13:22 +0000 (+0000)
Subject: bugfix: ignore proof checker output
X-Git-Tag: pre_subst_in_kernel~27
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=8efe0bd61c215608ad2a7df5a12be81fae2eaf59;p=helm.git

bugfix: ignore proof checker output
---

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index 34904e8e0..a04e782e1 100644
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/proofChecker/proofChecker.ml
@@ -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');