diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2023-01-25 19:48:39 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2023-01-25 22:53:20 +0100 |
| commit | 852908d24de244cca438450f6b4844b8a7e40683 (patch) | |
| tree | 6c3f81509f5869277722b3d3f4ae605fc8f6473e /guix/ui.scm | |
| parent | 968b882f55c4d1009e62c603a860edfaee1609ad (diff) | |
| download | guix-852908d24de244cca438450f6b4844b8a7e40683.tar guix-852908d24de244cca438450f6b4844b8a7e40683.tar.gz | |
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.scm | 3 |
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." |