aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--nar-herder/server.scm2
-rw-r--r--scripts/nar-herder.in12
2 files changed, 11 insertions, 3 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm
index 4b5f710..dd59216 100644
--- a/nar-herder/server.scm
+++ b/nar-herder/server.scm
@@ -901,5 +901,5 @@
(wait finished?))
#:hz 0
- #:parallelism 4))
+ #:parallelism (assq-ref opts 'parallelism)))
finished?))))
diff --git a/scripts/nar-herder.in b/scripts/nar-herder.in
index e70f5f3..459526e 100644
--- a/scripts/nar-herder.in
+++ b/scripts/nar-herder.in
@@ -306,7 +306,13 @@
(lambda (opt name arg result)
(alist-cons 'mirror
arg
- (alist-delete 'mirror result))))))
+ (alist-delete 'mirror result))))
+
+ (option '("parallelism") #t #f
+ (lambda (opt name arg result)
+ (alist-cons 'parallelism
+ (string->number arg)
+ (alist-delete 'parallelism result))))))
(define %server-option-defaults
'((port . 8080)
@@ -317,7 +323,9 @@
(cached-compression-workers . 2)
(cached-compression-min-uses . 3)
- (recent-changes-limit . 32768)))
+ (recent-changes-limit . 32768)
+
+ (parallelism . 1)))
(define %check-options
(list))