aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-12-20 15:53:42 +0000
committerChristopher Baines <mail@cbaines.net>2020-12-20 15:53:42 +0000
commit2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c (patch)
tree7d9781325d840a87c779570e641b1af2dff33cf9
parentc92b61a0407d7852889deaf4a9cbc580db317d6d (diff)
downloadbuild-coordinator-2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c.tar
build-coordinator-2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c.tar.gz
Include build tags in the GET build response
-rw-r--r--guix-build-coordinator/client-communication.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm
index 97a41f7..efec797 100644
--- a/guix-build-coordinator/client-communication.scm
+++ b/guix-build-coordinator/client-communication.scm
@@ -133,7 +133,9 @@
'())))
(datastore-list-setup-failures-for-build
datastore
- (assq-ref build-details 'uuid)))))
+ (assq-ref build-details 'uuid))))
+ (tags
+ (datastore-fetch-build-tags datastore uuid)))
(render-json
`(,@(alist-delete
'created-at
@@ -148,6 +150,7 @@
(lambda (time)
(strftime "%F %T" time)))
'null))
+ (tags . ,tags)
(derivation-inputs . ,(list->vector derivation-inputs))
(setup-failures . ,(list->vector setup-failures))))))))
(('POST "build" uuid "cancel")