diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:42:40 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:56:13 +0000 |
| commit | baa9cd85812ffe0fc44cb5a25f04fed6a962f2dd (patch) | |
| tree | 826bcab714c986e5a34ed5fe2c0b1bd7a19860a5 | |
| parent | 6cc8fc64e5bda8f748ef427648740c3cabfe2152 (diff) | |
| download | build-coordinator-baa9cd85812ffe0fc44cb5a25f04fed6a962f2dd.tar build-coordinator-baa9cd85812ffe0fc44cb5a25f04fed6a962f2dd.tar.gz | |
Include build tags in the coordinator state
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 12 |
1 files 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 |