X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2FproofChecker%2FproofChecker.ml;h=e4f00fe3acf86c989b4e250af89000fda4942206;hb=97c2d258a5c524eb5c4b85208899d80751a2c82f;hp=7659e57dd2a6553128909b21689ad59082547d7e;hpb=ecf41f4ad6b6103391be48b9247d4126f6713cdd;p=helm.git diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml index 7659e57dd..e4f00fe3a 100644 --- a/helm/proofChecker/proofChecker.ml +++ b/helm/proofChecker/proofChecker.ml @@ -107,8 +107,7 @@ let callback (req : Http_types.request) outchan' = fprintf outchan' "%s" (html_preamble uri); flush outchan'; (try - ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri) - CicUniv.empty_ugraph); + ignore (CicTypeChecker.typecheck (UriManager.uri_of_string uri)); with e -> fprintf outchan' "%s\n" (Printexc.to_string e); flush outchan');