deploy: Use 'map/accumulate-builds'.

* guix/scripts/deploy.scm (guix-deploy): Use 'map/accumulate-builds'
instead of 'for-each'.
This commit is contained in:
Ludovic Courtès 2020-03-29 16:05:17 +02:00
parent d089b23335
commit 18c8a4396b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -152,4 +152,6 @@ (define (handle-argument arg result)
(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)))))))