ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 22:08:16 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

deploy: Use 'map/accumulate-builds'.

Browse source 
* 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
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/scripts/deploy.scm
View file

@ -152,4 +152,6 @@ (define (handle-argument arg result)
(with-build-handler (build-notifier #:use-substitutes? (with-build-handler (build-notifier #:use-substitutes?
(assoc-ref opts 'substitutes?)) (assoc-ref opts 'substitutes?))
(parameterize ((%graft? (assq-ref opts 'graft?))) (parameterize ((%graft? (assq-ref opts 'graft?)))
(for-each (cut deploy-machine* store <>) machines))))))) (map/accumulate-builds store
(cut deploy-machine* store <>)
machines)))))))