From 90b144d22d001a832a8fb345a7d71e9c657c0c86 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Tue, 3 Jul 2018 11:02:54 +0200
Subject: 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 @@ 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
-- 
cgit v1.2.1