cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make the free space requirement configurable

Browse source
This commit is contained in:
Christopher Baines 2024-08-20 09:49:41 +01:00
parent 6de908d0f4
commit f6eadb0b16
2 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
guix-data-service/jobs.scm
View file

@ -128,10 +128,12 @@ guix-data-service: error: missing log line: ~A
latest-branch-revision-max-processes
skip-system-tests?
extra-inferior-environment-variables
per-job-parallelism)
per-job-parallelism
(free-space-requirement
(* 2 (expt 2 30)))) ; 2G
(define (fetch-new-jobs)
(let ((free-space (free-disk-space "/gnu/store")))
(if (< free-space (* 2 (expt 2 30))) ; 2G
(if (< free-space free-space-requirement)
(begin
(simple-format
(current-error-port)