deploy: Use 'map/accumulate-builds'.

* guix/scripts/deploy.scm (guix-deploy): Use 'map/accumulate-builds' instead of 'for-each'.
2020-03-29 16:05:17 +02:00 · 2020-03-29 16:05:17 +02:00 · 18c8a4396b
parent d089b23335
commit 18c8a4396b
1 changed files with 3 additions and 1 deletions
--- 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)))))))