diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-01-13 12:09:01 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-01-13 18:24:19 +0100 |
| commit | 6d30b1b2ca92705a6f3c06ddaf8ccf06466089d3 (patch) | |
| tree | d4b1e2b4f3f683eb54dcca4d8d473ccfeb980f94 /guix/ui.scm | |
| parent | e7ff05438f6044eb452b6dcd8b05b45afbc61496 (diff) | |
| download | gnu-guix-6d30b1b2ca92705a6f3c06ddaf8ccf06466089d3.tar gnu-guix-6d30b1b2ca92705a6f3c06ddaf8ccf06466089d3.tar.gz | |
ui: Wrap 'canonicalize-path' for better error reporting.
Reported by Christopher Baines.
* guix/ui.scm (canonicalize-path): New procedure.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 03196dbeaf..6247944068 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 |