seasharp/Rosenthal
1
0
Fork 0
mirror of https://codeberg.org/hako/Rosenthal.git synced 2025-06-26 04:06:13 +00:00
Code Issues Packages Projects Releases Wiki Activity

services: cuirass-worker-container: Add ‘workers’ configuration field.

Browse Source 
* modules/rosenthal/services/cuirass.scm
(cuirass-worker-container-configuration)[workers]: New field.
(%cuirass-worker-container-script): Use it.
This commit is contained in:
Hilton Chain 2025-06-11 09:13:38 +08:00
parent 72a9d12836
commit c6228682d6
No known key found for this signature in database
GPG Key ID: ACC66D09CA528292
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
modules/rosenthal/services/cuirass.scm
View File

@ -44,6 +44,8 @@
this-cuirass-worker-container-configuration this-cuirass-worker-container-configuration
(host-name cuirass-worker-container-host-name) (host-name cuirass-worker-container-host-name)
(server cuirass-worker-container-server) (server cuirass-worker-container-server)
(workers cuirass-worker-container-workers
(default 1))
(supported-systems cuirass-worker-container-supported-systems (supported-systems cuirass-worker-container-supported-systems
(default (list (%current-system))) (default (list (%current-system)))
(thunked)) (thunked))
@ -66,7 +68,8 @@
(define %cuirass-worker-container-script (define %cuirass-worker-container-script
(match-record-lambda <cuirass-worker-container-configuration> (match-record-lambda <cuirass-worker-container-configuration>
(host-name server supported-systems substitute-urls) (host-name server workers supported-systems substitute-urls)
(define cuirass-remote-worker-for-container (define cuirass-remote-worker-for-container
(service-type (service-type
(name 'cuirass-remote-worker) (name 'cuirass-remote-worker)
@ -95,6 +98,7 @@
%cuirass-remote-worker-accounts))))) %cuirass-remote-worker-accounts)))))
(description (description
"Run the Cuirass remote build worker service."))) "Run the Cuirass remote build worker service.")))
(define os (define os
(operating-system (operating-system
(bootloader (bootloader
@ -108,12 +112,12 @@
(type "dummy")) (type "dummy"))
%base-file-systems)) %base-file-systems))
(kernel linux-libre-lts) (kernel linux-libre-lts)
(host-name host-name) (host-name host-name)
(services (services
(cons (service cuirass-remote-worker-for-container (cons (service cuirass-remote-worker-for-container
(cuirass-remote-worker-configuration (cuirass-remote-worker-configuration
(cuirass (pkg "cuirass-hako")) (cuirass (pkg "cuirass-hako"))
(workers workers)
(server server) (server server)
(systems supported-systems) (systems supported-systems)
(publish-port 5558) (publish-port 5558)