* safe_remove exported and moved to MatitaMisc

[helm.git] / helm / matita / matitaDb.ml

diff --git a/helm/matita/matitaDb.ml b/helm/matita/matitaDb.ml
index 089aab157abc72b800018d84372fa7d6a6a98aeb..0c10a81e855463ce12ca15b3dac8e407854dc0ce 100644 (file)
--- a/helm/matita/matitaDb.ml
+++ b/helm/matita/matitaDb.ml
@@ -66,7 +66,7 @@ let clean_owner_environment () =
     (fun uri ->
       let uri = Pcre.replace ~rex:xpointer_RE ~templ:"" uri in
       List.iter
-        (fun suffix -> Http_getter_storage.remove (uri ^ suffix ^ ".xml.gz"))
+        (fun suffix -> MatitaMisc.safe_remove (uri ^ suffix ^ ".xml.gz"))
         [""; ".body"; ".types"])
     owned_uris;
   List.iter (fun statement ->