01/02: ui: Add "error-reporting wrapper" for 'mkdir'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 852908d24de244cca438450f6b4844b8a7e40683
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Wed Jan 25 19:48:39 2023 +0100

    ui: Add "error-reporting wrapper" for 'mkdir'.
    
    * guix/ui.scm <top level>: Change 'mkdir' to use an error-reporting
    wrapper.
---
 guix/ui.scm | 3 +++
 1 file changed, 3 insertions(+)

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."