aboutsummaryrefslogtreecommitdiff
path: root/gnu/services/guix.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2021-02-28 21:35:36 +0000
committerChristopher Baines <mail@cbaines.net>2021-02-28 21:56:34 +0000
commit8a7b4ce0936f456ebd57ea13ec64336d7cd51678 (patch)
tree76a885747b4b88e177f440c99e245c732edfc8a1 /gnu/services/guix.scm
parent7556130c2f940c8c92ea79af633cb08c82f50cb4 (diff)
downloadguix-8a7b4ce0936f456ebd57ea13ec64336d7cd51678.tar
guix-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.scm18
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