diff options
| author | Andreas Enge <andreas@enge.fr> | 2024-07-02 17:06:42 +0200 |
|---|---|---|
| committer | Andreas Enge <andreas@enge.fr> | 2024-07-04 15:39:29 +0200 |
| commit | fd5c8335ba86eaf55a6476b366df9e614fbe81e1 (patch) | |
| tree | 76bbf596f6c789047eead296c9b449784131289b | |
| parent | a1d1232da22ac5f8c44f2c3c99a3b1358e1ad721 (diff) | |
services: guix-build-coordinator-agent: Add extra-options.wip-plmshift-2
* gnu/services/guix.scm (<guix-build-coordinator-agent-configuration>):
Add field extra-options.
(guix-build-coordinator-agent-shepherd-services): Add and use EXTRA-OPTIONS
argument.
Change-Id: I9e7e258e03e2b6553aa1570f5fcfaf3b0ada3e15
| -rw-r--r-- | gnu/services/guix.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index fdeaeeb472..6c58b3a292 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -66,6 +66,7 @@ guix-build-coordinator-agent-configuration-max-1min-load-average guix-build-coordinator-agent-configuration-derivation-substitute-urls guix-build-coordinator-agent-configuration-non-derivation-substitute-urls + guix-build-coordinator-agent-configuration-extra-options guix-build-coordinator-agent-password-auth guix-build-coordinator-agent-password-auth? @@ -209,7 +210,10 @@ (default #f)) (non-derivation-substitute-urls guix-build-coordinator-agent-configuration-non-derivation-substitute-urls - (default #f))) + (default #f)) + (extra-options + guix-build-coordinator-agent-configuration-extra-options + (default '()))) (define-record-type* <guix-build-coordinator-agent-password-auth> guix-build-coordinator-agent-password-auth @@ -410,6 +414,7 @@ max-parallel-builds max-parallel-uploads max-allocated-builds max-1min-load-average derivation-substitute-urls non-derivation-substitute-urls + extra-options systems) (list (shepherd-service @@ -469,6 +474,7 @@ "--non-derivation-substitute-urls=" (string-join non-derivation-substitute-urls " "))) #~()) + #$@extra-options #$@(map (lambda (system) (string-append "--system=" system)) (or systems '()))) |