diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-25 12:42:54 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-29 15:32:17 +0200 |
| commit | 1213ea9bd91c3051365637731c6baeca791e0f65 (patch) | |
| tree | 37417ddfa4ac9db4956bb225f480fbab08a89eb2 | |
| parent | c40bf5816cb3ffb59920a61f71bd34b53cac3637 (diff) | |
| download | patches-1213ea9bd91c3051365637731c6baeca791e0f65.tar patches-1213ea9bd91c3051365637731c6baeca791e0f65.tar.gz | |
guix build: Use 'map/accumulate-builds'.
* guix/scripts/build.scm (options->derivations): Use
'map/accumulate-builds' instead of 'append-map'.
| -rw-r--r-- | guix/scripts/build.scm | 6 |
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) |