summaryrefslogtreecommitdiff
path: root/guix/scripts/build.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-25 12:42:54 +0100
committerLudovic Courtès <ludo@gnu.org>2020-03-29 15:32:17 +0200
commit1213ea9bd91c3051365637731c6baeca791e0f65 (patch)
tree37417ddfa4ac9db4956bb225f480fbab08a89eb2 /guix/scripts/build.scm
parentc40bf5816cb3ffb59920a61f71bd34b53cac3637 (diff)
guix build: Use 'map/accumulate-builds'.
* guix/scripts/build.scm (options->derivations): Use 'map/accumulate-builds' instead of 'append-map'.
Diffstat (limited to 'guix/scripts/build.scm')
-rw-r--r--guix/scripts/build.scm6
1 files changed, 4 insertions, 2 deletions
diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index af18d8b6f9..9f87febb56 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -920,8 +920,10 @@ build."
(with-unbound-variable-handling
(parameterize ((%graft? graft?))
(append-map (lambda (system)
- (append-map (cut compute-derivation <> system)
- things-to-build))
+ (concatenate
+ (map/accumulate-builds store
+ (cut compute-derivation <> system)
+ things-to-build)))
systems))))
(define (show-build-log store file urls)