diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-05-11 07:06:46 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-05-11 07:06:46 +0100 |
| commit | a8e97cb90db92230dbc10677cceac91709031766 (patch) | |
| tree | da8cc6593db3ec0a3ffc58d902295b943068e81c | |
| parent | 9175a4a0f0e1e32844476a271ca5273e0c862c74 (diff) | |
| download | bffe-a8e97cb90db92230dbc10677cceac91709031766.tar bffe-a8e97cb90db92230dbc10677cceac91709031766.tar.gz | |
Allow customising the parallelism when submitting builds
| -rw-r--r-- | bffe/manage-builds.scm | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index 8e6dfc8..0fbfc7d 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -63,7 +63,9 @@ (default #f)) (revision-parameters build-from-guix-data-service-revision-parameters - (default '()))) + (default '())) + (parallelism build-from-guix-data-service-parallelism + (default 2))) (define-exception-type &guix-data-service-error &error make-guix-data-service-error @@ -515,7 +517,7 @@ (simple-format port "~A\n" commit) (close-port port)))) -(define* (submit-build coordinator guix-data-service derivation + (define* (submit-build coordinator guix-data-service derivation #:key (priority 0) (log-prefix "") (tags '())) (retry-on-error @@ -568,8 +570,8 @@ (let ((submit-build/fiberized (fiberize submit-build - #:parallelism 8))) - + #:parallelism (build-from-guix-data-service-parallelism + specification)))) (spawn-fiber (lambda () (while #t |