From 2db1e3d9db54f599b07a2aa9cab8fa2e40d9255c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 20 Dec 2020 15:53:42 +0000 Subject: Include build tags in the GET build response --- guix-build-coordinator/client-communication.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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") -- cgit v1.2.3