summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2020-03-29 16:05:17 +0200
committerLudovic Courtès <ludo@gnu.org>2020-03-29 23:14:27 +0200
commit18c8a4396bdb9e9c842ef386a2aecfac38943112 (patch)
tree6e203b1f20a14184c078a8a34b474aa776e9f74f
parentd089b233353f05440a97afc5c1e903b8c1891969 (diff)
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.scm4
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)))))))