added a warning if the baseuri we want to clean is read-only

diff --git a/helm/software/matita/matitacLib.ml b/helm/software/matita/matitacLib.ml
index c85d2c6bf14d6436532d33c5a8330d84c4cded44..0763981c689255cd280a68e3e61e16f9b97e3750 100644 (file)
--- a/helm/software/matita/matitacLib.ml
+++ b/helm/software/matita/matitacLib.ml
@@ -138,7 +138,11 @@ let compile options fname =
       then begin
       HLog.message ("baseuri " ^ baseuri ^ " is not empty");
       HLog.message ("cleaning baseuri " ^ baseuri);
-      LibraryClean.clean_baseuris [baseuri]
+      LibraryClean.clean_baseuris [baseuri];
+      if (not (Http_getter_storage.is_empty ~local:true baseuri)) then begin
+        HLog.error ("Baseuri "^baseuri^" not cleaned! (probably readonly)");
+        exit 1;
+      end;
     end;
     (* create dir for XML files *)
     if not (Helm_registry.get_opt_default Helm_registry.bool "matita.nodisk"