X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=a04e782e1fb63102b86bf6f9f32e201690382cad;hb=ebc089606ccbb3e9dbde142542a1f98f5020b4dd;hp=34904e8e0d42846bd06d37ee3fc1777de24cd5ce;hpb=1f3bb366e7df77de6b5ba48e4fd3a7cb689f2ee3;p=helm.git

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