diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-28 21:35:36 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-28 21:56:34 +0000 |
| commit | 8a7b4ce0936f456ebd57ea13ec64336d7cd51678 (patch) | |
| tree | 76a885747b4b88e177f440c99e245c732edfc8a1 /gnu/services/guix.scm | |
| parent | 7556130c2f940c8c92ea79af633cb08c82f50cb4 (diff) | |
| download | guix-patches-8a7b4ce0936f456ebd57ea13ec64336d7cd51678.tar guix-patches-8a7b4ce0936f456ebd57ea13ec64336d7cd51678.tar.gz | |
services: guix-build-coordinator: Add dynamic auth record.
* gnu/services/guix.scm (guix-build-coordinator-agent-dynamic-auth,
guix-build-coordinator-agent-dynamic-auth?,
guix-build-coordinator-agent-dynamic-auth-agent-name,
guix-build-coordinator-agent-dynamic-auth-token): New procedures.
(guix-build-coordinator-agent-shepherd-services): Handle new dynamic auth
record.
* doc/guix.texi (Guix Build Coordinator): Document the new dynamic auth
record.
Diffstat (limited to 'gnu/services/guix.scm')
| -rw-r--r-- | gnu/services/guix.scm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index b86e20360b..b0d2c05bcf 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -71,6 +71,11 @@ guix-build-coordinator-agent-password-file-auth-uuid guix-build-coordinator-agent-password-file-auth-password-file + guix-build-coordinator-agent-dynamic-auth + guix-build-coordinator-agent-dynamic-auth? + guix-build-coordinator-agent-dynamic-auth-agent-name + guix-build-coordinator-agent-dynamic-auth-token + guix-build-coordinator-agent-service-type guix-build-coordinator-queue-builds-configuration @@ -168,6 +173,13 @@ (password-file guix-build-coordinator-agent-password-file-auth-password-file)) +(define-record-type* <guix-build-coordinator-agent-dynamic-auth> + guix-build-coordinator-agent-dynamic-auth + make-guix-build-coordinator-agent-dynamic-auth + guix-build-coordinator-agent-dynamic-auth? + (agent-name guix-build-coordinator-agent-dynamic-auth-agent-name) + (token guix-build-coordinator-agent-dynamic-auth-token)) + (define-record-type* <guix-build-coordinator-queue-builds-configuration> guix-build-coordinator-queue-builds-configuration make-guix-build-coordinator-queue-builds-configuration @@ -365,7 +377,11 @@ uuid password-file) #~(#$(string-append "--uuid=" uuid) #$(string-append "--password-file=" - password-file)))) + password-file))) + (($ <guix-build-coordinator-agent-dynamic-auth> + agent-name token) + #~(#$(string-append "--name=" agent-name) + #$(string-append "--dynamic-auth-token=" token)))) #$(simple-format #f "--max-parallel-builds=~A" max-parallel-builds) #$@(if derivation-substitute-urls |