~ruther/guix-exprs

21a4749488af1b6120ad38ac2715bb878881db2e — Rutherther 12 days ago ac3c377
fix(environment): check directory exists before copying files
1 files changed, 6 insertions(+), 5 deletions(-)

M modules/ruther/build/environment.scm
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