From: Enrico Tassi <enrico.tassi@inria.fr>
Date: Fri, 11 Jan 2008 15:08:45 +0000 (+0000)
Subject: added a warning if the baseuri we want to clean is read-only
X-Git-Tag: make_still_working~5684
X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=84353303cb570874509ee3535b45fe3dfdac6b25;p=helm.git

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 c85d2c6bf..0763981c6 100644
--- 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"