diff options
| author | Christopher Baines <mail@cbaines.net> | 2022-10-10 20:56:49 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2022-10-10 20:56:49 +0100 |
| commit | 054658c5496a66d91a8b42f555298c745a7599f6 (patch) | |
| tree | 6c25995b57972f1ac5f17d22c292b3bdcbdd29d0 /scripts | |
| parent | ee089a9e48a569e61134ceff5ccf96b945fed8a7 (diff) | |
| download | build-coordinator-054658c5496a66d91a8b42f555298c745a7599f6.tar build-coordinator-054658c5496a66d91a8b42f555298c745a7599f6.tar.gz | |
Allow specifying the maximum number of allocated builds
For an agent.
Diffstat (limited to 'scripts')
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index 7cfb449..52d77ae 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -82,6 +82,11 @@ (alist-cons 'max-parallel-builds (string->number arg) result))) + (option '("max-allocated-builds") #t #f + (lambda (opt name arg result) + (alist-cons 'max-allocated-builds + (string->number arg) + result))) (option '("max-1min-load-average") #t #f (lambda (opt name arg result) (alist-cons 'max-1min-load-average @@ -181,6 +186,7 @@ coordinator-interface (delete-duplicates (assq-ref opts 'systems)) (assq-ref opts 'max-parallel-builds) + (assq-ref opts 'max-allocated-builds) (assq-ref opts 'max-parallel-uploads) (or (assq-ref opts 'derivation-substitute-urls) (assq-ref opts 'substitute-urls)) |