From 90b144d22d001a832a8fb345a7d71e9c657c0c86 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 3 Jul 2018 11:02:54 +0200 Subject: [PATCH] ui: Report file names in 'system-error' exceptions from 'delete-file'. * guix/ui.scm (delete-file): New error-reporting wrapper. --- guix/ui.scm | 3 +++ 1 file changed, 3 insertions(+) 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 @@ (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