summaryrefslogtreecommitdiff
path: root/guix/ui.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2023-01-25 19:48:39 +0100
committerLudovic Courtès <ludo@gnu.org>2023-01-25 22:53:20 +0100
commit852908d24de244cca438450f6b4844b8a7e40683 (patch)
tree6c3f81509f5869277722b3d3f4ae605fc8f6473e /guix/ui.scm
parent968b882f55c4d1009e62c603a860edfaee1609ad (diff)
ui: Add "error-reporting wrapper" for 'mkdir'.
* guix/ui.scm <top level>: Change 'mkdir' to use an error-reporting wrapper.
Diffstat (limited to 'guix/ui.scm')
-rw-r--r--guix/ui.scm3
1 files changed, 3 insertions, 0 deletions
diff --git a/guix/ui.scm b/guix/ui.scm
index f26c4534aa..9f81ff3b8e 100644
--- a/guix/ui.scm
+++ b/guix/ui.scm
@@ -591,6 +591,9 @@ FILE."
(set! execlp
(error-reporting-wrapper execlp (filename . args) filename))
+(set! mkdir
+ (error-reporting-wrapper mkdir (directory . args) directory))
+
(define (make-regexp* regexp . flags)
"Like 'make-regexp' but error out if REGEXP is invalid, reporting the error
nicely."