diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-07-03 11:02:54 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-07-03 17:50:04 +0200 |
| commit | 90b144d22d001a832a8fb345a7d71e9c657c0c86 (patch) | |
| tree | 6e4cfb2d70a82193997af54fb9491c5fb2df06b7 /guix/ui.scm | |
| parent | e5e5119855b0269e8e6507b90c7f4d7df5118fc8 (diff) | |
| download | gnu-guix-90b144d22d001a832a8fb345a7d71e9c657c0c86.tar gnu-guix-90b144d22d001a832a8fb345a7d71e9c657c0c86.tar.gz | |
ui: Report file names in 'system-error' exceptions from 'delete-file'.
* guix/ui.scm (delete-file): New error-reporting wrapper.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index c1101eb4bb..66c9233b44 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -520,6 +520,9 @@ FILE." (set! canonicalize-path (error-reporting-wrapper canonicalize-path (file) file)) +(set! delete-file + (error-reporting-wrapper delete-file (file) file)) + (define (make-regexp* regexp . flags) "Like 'make-regexp' but error out if REGEXP is invalid, reporting the error |