From 18c8a4396bdb9e9c842ef386a2aecfac38943112 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 29 Mar 2020 16:05:17 +0200 Subject: 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 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))))))) -- cgit v1.2.3