diff options
Diffstat (limited to 'gnu/services')
| -rw-r--r-- | gnu/services/cuirass.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gnu/services/cuirass.scm b/gnu/services/cuirass.scm index 8e3b01e514e..b594fe78d7a 100644 --- a/gnu/services/cuirass.scm +++ b/gnu/services/cuirass.scm | |||
| @@ -1,6 +1,6 @@ | |||
| 1 | ;;; GNU Guix --- Functional package management for GNU | 1 | ;;; GNU Guix --- Functional package management for GNU |
| 2 | ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> | 2 | ;;; Copyright © 2016 Mathieu Lirzin <mthl@gnu.org> |
| 3 | ;;; Copyright © 2016-2025 Ludovic Courtès <ludo@gnu.org> | 3 | ;;; Copyright © 2016-2026 Ludovic Courtès <ludo@gnu.org> |
| 4 | ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com> | 4 | ;;; Copyright © 2017, 2020 Mathieu Othacehe <m.othacehe@gmail.com> |
| 5 | ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> | 5 | ;;; Copyright © 2017 Jan Nieuwenhuizen <janneke@gnu.org> |
| 6 | ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> | 6 | ;;; Copyright © 2018, 2019 Ricardo Wurmus <rekado@elephly.net> |
| @@ -432,6 +432,8 @@ | |||
| 432 | (default #f)) | 432 | (default #f)) |
| 433 | (systems cuirass-remote-worker-systems ;list | 433 | (systems cuirass-remote-worker-systems ;list |
| 434 | (default (list (%current-system)))) | 434 | (default (list (%current-system)))) |
| 435 | (minimum-disk-space cuirass-remote-worker-minimum-disk-space | ||
| 436 | (default 5)) | ||
| 435 | (log-file cuirass-remote-worker-log-file ;string | 437 | (log-file cuirass-remote-worker-log-file ;string |
| 436 | (default "/var/log/cuirass-remote-worker.log")) | 438 | (default "/var/log/cuirass-remote-worker.log")) |
| 437 | (publish-port cuirass-remote-worker-configuration-publish-port ;int | 439 | (publish-port cuirass-remote-worker-configuration-publish-port ;int |
| @@ -461,6 +463,7 @@ | |||
| 461 | CONFIG." | 463 | CONFIG." |
| 462 | (match-record config <cuirass-remote-worker-configuration> | 464 | (match-record config <cuirass-remote-worker-configuration> |
| 463 | (cuirass workers server systems log-file publish-port | 465 | (cuirass workers server systems log-file publish-port |
| 466 | minimum-disk-space | ||
| 464 | substitute-urls public-key private-key) | 467 | substitute-urls public-key private-key) |
| 465 | (list (shepherd-service | 468 | (list (shepherd-service |
| 466 | (documentation "Run Cuirass remote build worker.") | 469 | (documentation "Run Cuirass remote build worker.") |
| @@ -472,6 +475,8 @@ CONFIG." | |||
| 472 | "--user=cuirass-worker" ;drop privileges early on | 475 | "--user=cuirass-worker" ;drop privileges early on |
| 473 | (string-append "--workers=" | 476 | (string-append "--workers=" |
| 474 | #$(number->string workers)) | 477 | #$(number->string workers)) |
| 478 | (string-append "--minimum-disk-space=" | ||
| 479 | #$(number->string minimum-disk-space)) | ||
| 475 | #$@(if server | 480 | #$@(if server |
| 476 | (list (string-append "--server=" server)) | 481 | (list (string-append "--server=" server)) |
| 477 | '()) | 482 | '()) |
