From: Stefano Zacchiroli Date: Wed, 14 Jun 2006 14:32:46 +0000 (+0000) Subject: Enrico: bugfix, remove depend.errors upon destroy X-Git-Tag: make_still_working~7191 X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=commitdiff_plain;h=2927597375857e0739551c2a5e7cc9d9e6f665cd;p=helm.git Enrico: bugfix, remove depend.errors upon destroy --- diff --git a/helm/software/matita/matitamakeLib.ml b/helm/software/matita/matitamakeLib.ml index ec9a40b81..503ed210f 100644 --- a/helm/software/matita/matitamakeLib.ml +++ b/helm/software/matita/matitamakeLib.ml @@ -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