02/05: deploy: Use 'map/accumulate-builds'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 18c8a4396bdb9e9c842ef386a2aecfac38943112
Author: Ludovic Courtès <address@hidden>
AuthorDate: Sun Mar 29 16:05:17 2020 +0200

    deploy: Use 'map/accumulate-builds'.
    
    * guix/scripts/deploy.scm (guix-deploy): Use 'map/accumulate-builds'
    instead of 'for-each'.
---
 guix/scripts/deploy.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix/scripts/deploy.scm b/guix/scripts/deploy.scm
index 7a44b9a..4466a0c 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)))))))