ui: Report file names in 'system-error' exceptions from 'delete-file'.

* guix/ui.scm (delete-file): New error-reporting wrapper.
2018-07-03 11:02:54 +02:00 · 2018-07-03 11:02:54 +02:00 · 90b144d22d
parent e5e5119855
commit 90b144d22d
1 changed files with 3 additions and 0 deletions
--- 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