diff options
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 21 |
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) |