X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=7659e57dd2a6553128909b21689ad59082547d7e;hb=acf29bdbdcdc6ad8c2d9d27e8a47500981b605cd;hp=278413bde8fc77e4ff1a3f8e95e4d0b58c1d3547;hpb=81814dffe8a7bdc7e537b36742dcea44a51fd8ad;p=helm.git diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml index 278413bde..7659e57dd 100644 --- a/helm/proofChecker/proofChecker.ml +++ b/helm/proofChecker/proofChecker.ml @@ -37,10 +37,10 @@ let (html_preamble, html_postamble) = Proof-Checking %s -

Proof-Checking %s:

" uri uri)), -("

Done.

+("

Done.

END @@ -107,7 +107,8 @@ 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) + CicUniv.empty_ugraph); with e -> fprintf outchan' "%s\n" (Printexc.to_string e); flush outchan'); @@ -127,5 +128,7 @@ in printf "Proof Checker started and listening on port %d\n" port; flush stdout; +CicEnvironment.set_trust (fun _ -> false); Http_daemon.start' ~port ~mode:`Fork callback ; printf "Proof Checker is terminating, bye!\n" +