Fixed a bug that prevented the removal of the XML files during the

./matitaclean all

diff --git a/helm/matita/matitaDb.ml b/helm/matita/matitaDb.ml
index 0c10a81e855463ce12ca15b3dac8e407854dc0ce..4e8691f9390316d736ab6455006da7ace0205adc 100644 (file)
--- a/helm/matita/matitaDb.ml
+++ b/helm/matita/matitaDb.ml
@@ -66,7 +66,10 @@ let clean_owner_environment () =
     (fun uri ->
       let uri = Pcre.replace ~rex:xpointer_RE ~templ:"" uri in
       List.iter
-        (fun suffix -> MatitaMisc.safe_remove (uri ^ suffix ^ ".xml.gz"))
+        (fun suffix ->
+          try
+           MatitaMisc.safe_remove (Http_getter.resolve (uri ^ suffix))
+          with Http_getter_types.Key_not_found _ -> ())
         [""; ".body"; ".types"])
     owned_uris;
   List.iter (fun statement -> 

diff --git a/helm/matita/matitacleanLib.ml b/helm/matita/matitacleanLib.ml
index f8376416e706ebfad00242b502d4b49b5e25f5a8..37c87d770a1df3e836ed5745e8f675ac85e8998d 100644 (file)
--- a/helm/matita/matitacleanLib.ml
+++ b/helm/matita/matitacleanLib.ml
@@ -117,10 +117,11 @@ let rec fix uris next =
   
 let clean_baseuris buris =
   let buris = List.map HGM.strip_trailing_slash buris in
-(*  List.iter prerr_endline buris;*)
+  (* 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
   
 let is_empty buri = HG.ls (HGM.strip_trailing_slash buri ^ "/") = []