diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2020-03-29 16:05:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2020-03-29 23:14:27 +0200 |
| commit | 18c8a4396bdb9e9c842ef386a2aecfac38943112 (patch) | |
| tree | 6e203b1f20a14184c078a8a34b474aa776e9f74f | |
| parent | d089b233353f05440a97afc5c1e903b8c1891969 (diff) | |
| download | patches-18c8a4396bdb9e9c842ef386a2aecfac38943112.tar patches-18c8a4396bdb9e9c842ef386a2aecfac38943112.tar.gz | |
deploy: Use 'map/accumulate-builds'.
* guix/scripts/deploy.scm (guix-deploy): Use 'map/accumulate-builds'
instead of 'for-each'.
| -rw-r--r-- | guix/scripts/deploy.scm | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm index 7a44b9a503..4466a0c632 100644 --- a/guix/scripts/deploy.scm +++ b/guix/scripts/deploy.scm @@ -152,4 +152,6 @@ Perform the deployment specified by FILE.\n")) (with-build-handler (build-notifier #:use-substitutes? (assoc-ref opts 'substitutes?)) (parameterize ((%graft? (assq-ref opts 'graft?))) - (for-each (cut deploy-machine* store <>) machines))))))) + (map/accumulate-builds store + (cut deploy-machine* store <>) + machines))))))) |