diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-20 15:53:42 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-20 15:53:42 +0000 |
commit | 2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c (patch) | |
tree | 7d9781325d840a87c779570e641b1af2dff33cf9 | |
parent | c92b61a0407d7852889deaf4a9cbc580db317d6d (diff) | |
download | build-coordinator-2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c.tar build-coordinator-2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c.tar.gz |
Include build tags in the GET build response
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 5 |
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") |