Skip to content
Snippets Groups Projects
Unverified Commit d843a306 authored by Mathieu Othacehe's avatar Mathieu Othacehe
Browse files

remote-server: Use 8 fetch workers.

* src/cuirass/scripts/remote-server.scm (%fetch-workers): New variable.
(cuirass-remote-server): Start 8 fetch workers.
parent 58e3551d
No related branches found
No related tags found
No related merge requests found
......@@ -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))))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment