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

* guix/scripts/build.scm (options->derivations): Use
'map/accumulate-builds' instead of 'append-map'.
This commit is contained in:
Ludovic Courtès 2020-03-25 12:42:54 +01:00
parent c40bf5816c
commit 1213ea9bd9
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -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)