From 1213ea9bd91c3051365637731c6baeca791e0f65 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 25 Mar 2020 12:42:54 +0100
Subject: [PATCH] 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 af18d8b6f9..9f87febb56 100644
--- a/guix/scripts/build.scm
+++ b/guix/scripts/build.scm
@@ -920,8 +920,10 @@ (define (compute-derivation obj system)
   (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)