From f5326e03e27b938ca8aaae462b261193ac895d4f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Thu, 20 Aug 2026 22:18:10 +0200 Subject: =?UTF-8?q?services:=20cuirass:=20Add=20=E2=80=98minimum-disk-spac?= =?UTF-8?q?e=E2=80=99=20field.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit * gnu/services/cuirass.scm () [minimum-disk-space]: New field. (cuirass-remote-worker-shepherd-service): Honor it. * doc/guix.texi (Continuous Integration): Document it. Signed-off-by: Ludovic Courtès Merges: #10691 --- doc/guix.texi | 4 ++++ gnu/services/cuirass.scm | 7 ++++++- 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/doc/guix.texi b/doc/guix.texi index e1701a0d17d..f13c6ed970f 100644 --- a/doc/guix.texi +++ b/doc/guix.texi @@ -40452,6 +40452,10 @@ address instead. @item @code{systems} (default: @code{(list (%current-system))}) Only request builds for the given @var{systems}. +@item @code{minimum-disk-space} (default: @code{5}) +Minimum disk space (in GiB) that must be available in the store and in +@file{/tmp} before starting a build. + @item @code{log-file} (default: @code{"/var/log/cuirass-remote-worker.log"}) Location of the log file. 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 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2016 Mathieu Lirzin -;;; Copyright © 2016-2025 Ludovic Courtès +;;; Copyright © 2016-2026 Ludovic Courtès ;;; Copyright © 2017, 2020 Mathieu Othacehe ;;; Copyright © 2017 Jan Nieuwenhuizen ;;; Copyright © 2018, 2019 Ricardo Wurmus @@ -432,6 +432,8 @@ (default #f)) (systems cuirass-remote-worker-systems ;list (default (list (%current-system)))) + (minimum-disk-space cuirass-remote-worker-minimum-disk-space + (default 5)) (log-file cuirass-remote-worker-log-file ;string (default "/var/log/cuirass-remote-worker.log")) (publish-port cuirass-remote-worker-configuration-publish-port ;int @@ -461,6 +463,7 @@ CONFIG." (match-record config (cuirass workers server systems log-file publish-port + minimum-disk-space substitute-urls public-key private-key) (list (shepherd-service (documentation "Run Cuirass remote build worker.") @@ -472,6 +475,8 @@ CONFIG." "--user=cuirass-worker" ;drop privileges early on (string-append "--workers=" #$(number->string workers)) + (string-append "--minimum-disk-space=" + #$(number->string minimum-disk-space)) #$@(if server (list (string-append "--server=" server)) '()) -- cgit v1.2.3