From ff0d12fb5cbedd09b368815b6bd433104e145454 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 17 May 2020 22:05:48 +0100 Subject: Support agents processing builds in parallel --- scripts/guix-build-coordinator-agent.in | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'scripts') 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) -- cgit v1.2.3