From 6d30b1b2ca92705a6f3c06ddaf8ccf06466089d3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 13 Jan 2017 12:09:01 +0100
Subject: [PATCH] ui: Wrap 'canonicalize-path' for better error reporting.

Reported by Christopher Baines.

* guix/ui.scm (canonicalize-path): New procedure.
---
 guix/ui.scm | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/guix/ui.scm b/guix/ui.scm
index 03196dbeaf307e8e2064456b93402ea3e84f7c88..6247944068dbcb486f32447e76df6ac235d1e0ed 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -362,6 +362,9 @@ FILE."
   ;; 'copy-recursively', which doesn't use (guix ui).
   (error-reporting-wrapper copy-file (source target) target))
 
+(set! canonicalize-path
+  (error-reporting-wrapper canonicalize-path (file) file))
+
 
 (define (make-regexp* regexp . flags)
   "Like 'make-regexp' but error out if REGEXP is invalid, reporting the error