02/09: build-system/gnu: Fix 'install' phase of 'gnu-dist'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit f9a0fc9dbbfcdf28c77fd9199e3f1a73d901199c
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Thu Jun 18 11:27:06 2020 +0200

    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 ade3b42..fce1cd0 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