aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/client-communication.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r--guix-build-coordinator/client-communication.scm21
1 files changed, 19 insertions, 2 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm
index 86f75d8..1347da5 100644
--- a/guix-build-coordinator/client-communication.scm
+++ b/guix-build-coordinator/client-communication.scm
@@ -193,6 +193,14 @@
,@(if (assoc-ref
body "ensure-all-related-derivation-outputs-have-builds")
'(#:ensure-all-related-derivation-outputs-have-builds? #t)
+ '())
+ ,@(if (assoc-ref body "tags")
+ `(#:tags
+ ,(map
+ (lambda (tag)
+ (cons (assoc-ref tag "key")
+ (assoc-ref tag "value")))
+ (vector->list (assoc-ref body "tags"))))
'())))))
(render-json submit-build-result))))
(_
@@ -270,7 +278,8 @@
priority
ignore-if-build-for-derivation-exists?
ignore-if-build-for-outputs-exists?
- ensure-all-related-derivation-outputs-have-builds?)
+ ensure-all-related-derivation-outputs-have-builds?
+ tags)
(send-request coordinator-uri
'POST
"/builds"
@@ -287,7 +296,15 @@
'())
,@(if ensure-all-related-derivation-outputs-have-builds?
'((ensure-all-related-derivation-outputs-have-builds . #t))
- '()))))
+ '())
+ ,@(if (null? tags)
+ '()
+ `((tags . ,(list->vector
+ (map (match-lambda
+ ((key . value)
+ `((key . ,key)
+ (value . ,value))))
+ tags))))))))
(define (request-build-details coordinator-uri
uuid)