From f9a0fc9dbbfcdf28c77fd9199e3f1a73d901199c Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 18 Jun 2020 11:27:06 +0200 Subject: [PATCH] build-system/gnu: Fix 'install' phase of 'gnu-dist'. * guix/build/gnu-dist.scm (install-dist): Fix 2nd argument to 'for-each'. --- guix/build/gnu-dist.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/guix/build/gnu-dist.scm b/guix/build/gnu-dist.scm index ade3b42cab..fce1cd0759 100644 --- a/guix/build/gnu-dist.scm +++ b/guix/build/gnu-dist.scm @@ -40,13 +40,10 @@ (apply invoke "make" dist-target make-flags)) (define* (install-dist #:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (meta (string-append out "/nix-support")) ; Hydra meta-data - (tarballs (find-files "." "\\.tar\\."))) - (mkdir out) + (let ((out (assoc-ref outputs "out"))) (for-each (lambda (tarball) - (copy-file tarball (string-append out "/" tarball))) - out) + (install-file tarball out)) + (find-files "." "\\.tar\\.")) #t)) (define %dist-phases