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

13
scripts/guix-data-service-process-jobs.in
View file

@ -55,6 +55,11 @@
(lambda (opt name arg result)
(alist-cons 'inferior-environment-variable
(string-split arg #\=)
result)))
(option '("free-space-requirement") #t #f
(lambda (opt name arg result)
(alist-cons 'free-space-requirement
(string->number arg)
result)))))
(define %default-options
@ -109,7 +114,9 @@
(_ #f))
opts)
#:per-job-parallelism
(assq-ref opts 'per-job-parallelism)))
(lambda _
(backtrace))))
(assq-ref opts 'per-job-parallelism)
#:free-space-requirement
(assq-ref opts 'free-space-requirement)))
(lambda _
(backtrace))))
#:unwind? #t))))