From 852908d24de244cca438450f6b4844b8a7e40683 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 25 Jan 2023 19:48:39 +0100
Subject: [PATCH] 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."