X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fmatita%2FmatitacleanLib.ml;h=a616519c1c2a4a1eacfab508f3e14d0103d87681;hb=249d79bebff886846fbab65cc079623d90684baf;hp=37c87d770a1df3e836ed5745e8f675ac85e8998d;hpb=630a469bc912386e9c6a059be3ab6fe9049c3483;p=helm.git

diff --git a/helm/matita/matitacleanLib.ml b/helm/matita/matitacleanLib.ml
index 37c87d770..a616519c1 100644
--- a/helm/matita/matitacleanLib.ml
+++ b/helm/matita/matitacleanLib.ml
@@ -115,14 +115,14 @@ let rec fix uris next =
   | [] -> uris
   | l -> let uris, next = close_uri_list l in fix uris next @ uris
   
-let clean_baseuris buris =
+let clean_baseuris ?(verbose=true) buris =
   let buris = List.map HGM.strip_trailing_slash buris in
   (* List.iter prerr_endline buris; *)
   let l = fix [] buris in
   let l = MatitaMisc.list_uniq (List.fast_sort Pervasives.compare l) in
   let l = List.map UriManager.uri_of_string l in
   (* List.iter (fun u -> prerr_endline (UriManager.string_of_uri u)) l; *)
-  List.iter MatitaSync.remove l
+  List.iter (MatitaSync.remove ~verbose) l
   
 let is_empty buri = HG.ls (HGM.strip_trailing_slash buri ^ "/") = []