]> matita.cs.unibo.it Git - helm.git/commitdiff
Enrico: bugfix, remove depend.errors upon destroy
authorStefano Zacchiroli <zack@upsilon.cc>
Wed, 14 Jun 2006 14:32:46 +0000 (14:32 +0000)
committerStefano Zacchiroli <zack@upsilon.cc>
Wed, 14 Jun 2006 14:32:46 +0000 (14:32 +0000)
matita/matitamakeLib.ml

index ec9a40b814b8cca206fef14af5a49af30c8f3f88..503ed210f53401414236c2f51eb46d195c7c3cae 100644 (file)
@@ -282,11 +282,7 @@ let clean_development_in_bg ?matita_flags  refresh_cb development =
 
 let destroy_development_aux development clean_development =
   let delete_development development = 
-    let unlink file =
-      try 
-        Unix.unlink file 
-      with Unix.Unix_error _ -> logger `Debug ("Unable to delete " ^ file)
-    in
+    let unlink = HExtlib.safe_remove in
     let rmdir dir =
       try
         Unix.rmdir dir 
@@ -300,6 +296,7 @@ let destroy_development_aux development clean_development =
     unlink (makefile_for_development development);
     unlink (pool () ^ development.name ^ rootfile);
     unlink (pool () ^ development.name ^ "/depend");
+    unlink (pool () ^ development.name ^ "/depend.errors");
     rmdir (pool () ^ development.name);
     developments := 
       List.filter (fun d -> d.name <> development.name) !developments