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

* guix/ui.scm (delete-file): New error-reporting wrapper.
This commit is contained in:
Ludovic Courtès 2018-07-03 11:02:54 +02:00
parent e5e5119855
commit 90b144d22d
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -520,6 +520,9 @@ (define-syntax-rule (error-reporting-wrapper proc (args ...) 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