From 3bafc89087dbae27457924b4e616e16804a3cfc2 Mon Sep 17 00:00:00 2001
From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 5 Jan 2007 11:37:47 +0000
Subject: [PATCH] debuggin message improved

---
 components/cic/cicUniv.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/components/cic/cicUniv.ml b/components/cic/cicUniv.ml
index fae784d36..45d303a9d 100644
--- a/components/cic/cicUniv.ml
+++ b/components/cic/cicUniv.ml
@@ -582,7 +582,7 @@ let add_eq ?fast u v b =
 (* TODO: uncomment l to gain a small speedup *)
 let merge_ugraphs ~base_ugraph ~increment:(increment, uri_of_increment(*,l*)) =
   let merge_brutal (u,a,_) v = 
-    prerr_endline (UriManager.string_of_uri uri_of_increment);
+    prerr_endline ("merging graph: "^UriManager.string_of_uri uri_of_increment);
     let m1 = u in 
     let m2 = v in 
       MAL.fold (
-- 
2.39.2