efraim pushed a commit to branch master
in repository guix.
commit 56395b12f628c4b49e4df718cd333a6bd222f099
Author: Efraim Flashner <[email protected]>
AuthorDate: Tue Jul 23 20:21:11 2024 +0300
graft: Only create directory when needed.
* guix/build/graft.scm (rewrite-directory)[rewrite-leaf]: Only create
the parent directories when they don't already exist.
Change-Id: I802aac4d6090ed07effddde3eb3195f64aca31d3
---
guix/build/graft.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/guix/build/graft.scm b/guix/build/graft.scm
index 975544c7c8..49fabfea17 100644
--- a/guix/build/graft.scm
+++ b/guix/build/graft.scm
@@ -347,7 +347,8 @@ file name pairs."
(define (rewrite-leaf file)
(let ((stat (lstat file))
(dest (destination file)))
- (mkdir-p (dirname dest))
+ (unless (file-exists? (dirname dest))
+ (mkdir-p (dirname dest)))
(case (stat:type stat)
((symlink)
(let ((target (readlink file)))
