From d843a3068085ec2198c659b7a29cee69686b394d Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Sun, 30 May 2021 09:38:29 +0200
Subject: [PATCH] remote-server: Use 8 fetch workers.
* src/cuirass/scripts/remote-server.scm (%fetch-workers): New variable.
(cuirass-remote-server): Start 8 fetch workers.
---
src/cuirass/scripts/remote-server.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/src/cuirass/scripts/remote-server.scm b/src/cuirass/scripts/remote-server.scm
index 14fca9ab..df858db4 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -89,6 +89,10 @@
(define service-name
"Cuirass remote server")
+;; The number of fetch worker threads.
+(define %fetch-workers
+ (make-parameter 8))
+
(define (show-help)
(format #t (G_ "Usage: ~a remote-server [OPTION]...
Start a remote build server.\n") (%program-name))
@@ -553,6 +557,6 @@ exiting."
(start-fetch-worker
(string-append "fetch-worker-"
(number->string number))))
- (iota 4))
+ (iota (%fetch-workers)))
(zmq-start-proxy backend-port))))))
--
GitLab