diff options
Diffstat (limited to 'scripts/guix-build-coordinator-agent.in')
| -rw-r--r-- | scripts/guix-build-coordinator-agent.in | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/scripts/guix-build-coordinator-agent.in b/scripts/guix-build-coordinator-agent.in index 0ac36f9..7cfb449 100644 --- a/scripts/guix-build-coordinator-agent.in +++ b/scripts/guix-build-coordinator-agent.in @@ -72,6 +72,11 @@ (string-trim-right (call-with-input-file arg get-string-all)) result))) + (option '("max-parallel-uploads") #t #f + (lambda (opt name arg result) + (alist-cons 'max-parallel-uploads + (string->number arg) + result))) (option '("max-parallel-builds") #t #f (lambda (opt name arg result) (alist-cons 'max-parallel-builds @@ -111,9 +116,10 @@ result))))) (define %option-defaults - `((coordinator . "http://localhost:8745") - (max-parallel-builds . 1) - (systems . (,guix-config:%system)) + `((coordinator . "http://localhost:8745") + (max-parallel-builds . 1) + (max-parallel-uploads . 1) + (systems . (,guix-config:%system)) (metrics-file . "/var/lib/prometheus/node-exporter/guix-build-coordinator-agent.prom") (max-1min-load-average @@ -175,6 +181,7 @@ coordinator-interface (delete-duplicates (assq-ref opts 'systems)) (assq-ref opts 'max-parallel-builds) + (assq-ref opts 'max-parallel-uploads) (or (assq-ref opts 'derivation-substitute-urls) (assq-ref opts 'substitute-urls)) (or (assq-ref opts 'non-derivation-substitute-urls) |