diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-05-17 22:05:48 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-05-17 22:05:48 +0100 |
| commit | ff0d12fb5cbedd09b368815b6bd433104e145454 (patch) | |
| tree | f5f7154dcc4b9b1d1fcea58b08b2008e68a039e5 /scripts | |
| parent | 137d39440e78454cef83dd4be5701290d00e771e (diff) | |
| download | build-coordinator-ff0d12fb5cbedd09b368815b6bd433104e145454.tar build-coordinator-ff0d12fb5cbedd09b368815b6bd433104e145454.tar.gz | |
Support agents processing builds in parallel
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index d75b66c..5c8549e 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -43,6 +43,11 @@ (alist-cons 'password arg result))) + (option '("max-parallel-builds") #t #f + (lambda (opt name arg result) + (alist-cons 'max-parallel-builds + (string->number arg) + result))) (option '("substitute-urls") #t #f (lambda (opt name arg result) (alist-cons 'substitute-urls @@ -61,7 +66,8 @@ (define %option-defaults ;; Alist of default option values - `((coordinator . "http://localhost:8745"))) + `((coordinator . "http://localhost:8745") + (max-parallel-builds . 1))) (define (parse-options options defaults args) (args-fold @@ -81,6 +87,7 @@ (run-agent (assq-ref opts 'uuid) (assq-ref opts 'coordinator) (assq-ref opts 'password) + (assq-ref opts 'max-parallel-builds) (or (assq-ref opts 'derivation-substitute-urls) (assq-ref opts 'substitute-urls)) (or (assq-ref opts 'non-derivation-substitute-urls) |