CicTypeChecker.typecheck now takes an additional parameter:

[helm.git] / helm / software / daemons / proofChecker / proofChecker.ml

diff --git a/helm/software/daemons/proofChecker/proofChecker.ml b/helm/software/daemons/proofChecker/proofChecker.ml
index 1b3661e3471dcdb262f4da1dd19fe5f82bb3c125..2928cf6484b4a85ea0daefe48d36aab6261fa305 100644 (file)
--- a/helm/software/daemons/proofChecker/proofChecker.ml
+++ b/helm/software/daemons/proofChecker/proofChecker.ml
@@ -107,7 +107,8 @@ let callback (req : Http_types.request) outchan' =
           fprintf outchan' "%s" (html_preamble uri);
           flush outchan';
           (try
-            ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri));
+            ignore (CicTypeChecker.typecheck ~trust:false 
+              (UriManager.uri_of_string uri));
            with e ->
             fprintf outchan' "%s\n" (Printexc.to_string e);
             flush outchan');