From 8efe0bd61c215608ad2a7df5a12be81fae2eaf59 Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 17 Jun 2004 10:13:22 +0000
Subject: [PATCH] bugfix: ignore proof checker output

---
 helm/proofChecker/proofChecker.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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');
-- 
2.39.2