diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-22 16:54:44 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-22 16:54:44 +0000 |
| commit | 4482fb35d36a060eb991f7dcadc41d33164f7fa9 (patch) | |
| tree | 7a03ab47753ef03eaa694419e87a529bb4914e29 | |
| parent | b5d333285fd04f72bec38baffd598b5208078803 (diff) | |
| download | build-coordinator-4482fb35d36a060eb991f7dcadc41d33164f7fa9.tar build-coordinator-4482fb35d36a060eb991f7dcadc41d33164f7fa9.tar.gz | |
Include agent tags in the coordinator state
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index c81fb81..7e9fa6c 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -522,6 +522,17 @@ . ((count . ,(or (assoc-ref allocation-plan-counts agent-id) 0)))) + (tags + . ,(list->vector + (map + (match-lambda + ((key . value) + `((key . ,key) + (value . ,value)))) + (vector->list + (datastore-fetch-agent-tags + datastore + agent-id))))) (builds . ,(list->vector (map |