diff options
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/jobs.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-data-service/jobs.scm b/guix-data-service/jobs.scm index 25097f8..dab91a5 100644 --- a/guix-data-service/jobs.scm +++ b/guix-data-service/jobs.scm @@ -2,9 +2,11 @@ #:use-module (ice-9 match) #:use-module (ice-9 format) #:use-module (guix-data-service jobs load-new-guix-revision) - #:export (process-jobs)) + #:export (process-jobs -(define (process-jobs conn) + default-max-processes)) + +(define* (process-jobs conn #:key max-processes) (define (fetch-new-jobs) (fetch-unlocked-jobs conn)) @@ -23,7 +25,8 @@ (process-jobs-concurrently fetch-new-jobs process-job - handle-job-failure)) + handle-job-failure + #:max-processes max-processes)) (define default-max-processes (max (round (/ (current-processor-count) |