diff options
author | Christopher Baines <mail@cbaines.net> | 2020-02-28 20:58:21 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-02-28 20:58:21 +0000 |
commit | 65f2f21d3acad30caf490e69c46f0c73e74c324c (patch) | |
tree | f67f6b73bc92911665374c7dbbf2fdcbe02088ac /scripts/guix-data-service-process-jobs.in | |
parent | 185ba3685379c5f047c0f0804226e4f9c80d6d46 (diff) | |
download | data-service-65f2f21d3acad30caf490e69c46f0c73e74c324c.tar data-service-65f2f21d3acad30caf490e69c46f0c73e74c324c.tar.gz |
Support customising the latest branch revision max processes
This makes it possible to set a higher or lower value depending on what you
want.
Diffstat (limited to 'scripts/guix-data-service-process-jobs.in')
-rw-r--r-- | scripts/guix-data-service-process-jobs.in | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/scripts/guix-data-service-process-jobs.in b/scripts/guix-data-service-process-jobs.in index 5161a34..4a7af52 100644 --- a/scripts/guix-data-service-process-jobs.in +++ b/scripts/guix-data-service-process-jobs.in @@ -36,6 +36,11 @@ (lambda (opt name arg result) (alist-cons 'max-processes (string->number arg) + result))) + (option '("latest-branch-revision-max-processes") #t #f + (lambda (opt name arg result) + (alist-cons 'latest-branch-revision-max-processes + (string->number arg) result))))) (define %default-options @@ -62,4 +67,7 @@ (lambda (conn) (simple-format #t "Ready to process jobs...\n") (process-jobs conn - #:max-processes (assq-ref opts 'max-processes))))) + #:max-processes (assq-ref opts 'max-processes) + #:latest-branch-revision-max-processes + (or (assq-ref opts 'latest-branch-revision-max-processes) + (* 2 (assq-ref opts 'max-processes))))))) |