02/11: guix build: Use 'map/accumulate-builds'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 1213ea9bd91c3051365637731c6baeca791e0f65
Author: Ludovic Courtès <address@hidden>
AuthorDate: Wed Mar 25 12:42:54 2020 +0100

    guix build: Use 'map/accumulate-builds'.
    
    * guix/scripts/build.scm (options->derivations): Use
    'map/accumulate-builds' instead of 'append-map'.
---
 guix/scripts/build.scm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/guix/scripts/build.scm b/guix/scripts/build.scm
index af18d8b..9f87feb 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)