From baa9cd85812ffe0fc44cb5a25f04fed6a962f2dd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 22 Mar 2023 15:42:40 +0000 Subject: Include build tags in the coordinator state --- guix-build-coordinator/client-communication.scm | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 07640a5..7e84199 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -517,9 +517,15 @@ agent-id))) (builds . ,(list->vector - (datastore-list-agent-builds - datastore - (assq-ref agent-details 'uuid))))))) + (map + (lambda (build) + `(,@build + (tags . ,(datastore-fetch-build-tags + datastore + (assq-ref build 'uuid))))) + (datastore-list-agent-builds + datastore + (assq-ref agent-details 'uuid)))))))) (datastore-list-agents datastore))))))))) (('GET "events") (list (build-response -- cgit v1.2.3