diff options
| -rw-r--r-- | guix/build/graft.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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))) |