diff options
| -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 |