From ecf41f4ad6b6103391be48b9247d4126f6713cdd Mon Sep 17 00:00:00 2001
From: Stefano Zacchiroli <zack@upsilon.cc>
Date: Thu, 9 Dec 2004 20:29:44 +0000
Subject: [PATCH] (dummy) porting to universes

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

diff --git a/helm/proofChecker/proofChecker.ml b/helm/proofChecker/proofChecker.ml
index e4f00fe3a..7659e57dd 100644
--- a/helm/proofChecker/proofChecker.ml
+++ b/helm/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 (UriManager.uri_of_string uri)
+              CicUniv.empty_ugraph);
            with e ->
             fprintf outchan' "%s\n" (Printexc.to_string e);
             flush outchan');
-- 
2.39.2