M modules/ruther/build/environment.scm => modules/ruther/build/environment.scm +6 -5
@@ 94,11 94,12 @@ and exec input-file"
(define (copy-extra-files output profile-path extra-folders)
(for-each
(lambda (extra-path)
- (when (string-contains extra-path "/")
- (mkdir-p (string-append output "/" (dirname extra-path))))
- (union-build (string-append output "/" extra-path)
- (list (string-append profile-path "/" extra-path))
- #:create-all-directories? #t))
+ (when (file-exists? (string-append profile-path "/" extra-path))
+ (when (string-contains extra-path "/")
+ (mkdir-p (string-append output "/" (dirname extra-path))))
+ (union-build (string-append output "/" extra-path)
+ (list (string-append profile-path "/" extra-path))
+ #:create-all-directories? #t)))
extra-folders))
(define* (copy-binary-files output