diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-22 16:53:08 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-22 16:53:08 +0000 |
| commit | b5d333285fd04f72bec38baffd598b5208078803 (patch) | |
| tree | d8406819026f568b2dd46c11cde1bb84e3a9d952 | |
| parent | 725548d302b42f7850d6574d311435f57dcd246c (diff) | |
| download | build-coordinator-b5d333285fd04f72bec38baffd598b5208078803.tar build-coordinator-b5d333285fd04f72bec38baffd598b5208078803.tar.gz | |
Fix sharing build tags through the state
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index e5ab41c..c81fb81 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -527,9 +527,17 @@ (map (lambda (build) `(,@build - (tags . ,(datastore-fetch-build-tags - datastore - (assq-ref build 'uuid))))) + (tags + . ,(list->vector + (map + (match-lambda + ((key . value) + `((key . ,key) + (value . ,value)))) + (vector->list + (datastore-fetch-build-tags + datastore + (assq-ref build 'uuid)))))))) (datastore-list-agent-builds datastore (assq-ref agent-details 'uuid)))))))) |