diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-06-18 11:27:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-06-18 14:48:17 +0200 |
| commit | f9a0fc9dbbfcdf28c77fd9199e3f1a73d901199c (patch) | |
| tree | 6cd615fb1b304d2ee4d8103d6b70e4ea4aa579cb | |
| parent | 290c3166212d1c7150ac64ea6d6f6ad506c4d29b (diff) | |
| download | guix-f9a0fc9dbbfcdf28c77fd9199e3f1a73d901199c.tar.gz guix-f9a0fc9dbbfcdf28c77fd9199e3f1a73d901199c.zip | |
build-system/gnu: Fix 'install' phase of 'gnu-dist'.
* guix/build/gnu-dist.scm (install-dist): Fix 2nd argument to
'for-each'.
| -rw-r--r-- | guix/build/gnu-dist.scm | 9 |
1 files 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 |