[no subject]

[Mathieu Othacehe]

branch: master
commit d843a3068085ec2198c659b7a29cee69686b394d
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun May 30 09:38:29 2021 +0200

    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 14fca9a..df858db 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))))))