guix-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: guix-commits
Subject: 02/05: deploy: Use 'map/accumulate-builds'.
Date: Sun, 29 Mar 2020 17:20:36 -0400 (EDT)

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)))))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]