diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-31 10:24:56 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-31 10:24:56 +0000 |
| commit | fac2a9cf766c843077abeca2b44b19ac7aa3981d (patch) | |
| tree | afea087ca3dc1245352f517f475cc1a08972763a /guix-build-coordinator | |
| parent | 61cfa8883bcb0537e26c5e44f7116dc516f5590f (diff) | |
| download | build-coordinator-fac2a9cf766c843077abeca2b44b19ac7aa3981d.tar build-coordinator-fac2a9cf766c843077abeca2b44b19ac7aa3981d.tar.gz | |
Add agent tags to the agents response
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 0ee446a..d9ccdff 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -215,7 +215,12 @@ (value . ,value)))) (datastore-fetch-agent-tags datastore - (assq-ref agent 'uuid)))))) + (assq-ref agent 'uuid)))) + (requested_systems + . ,(list->vector + (datastore-agent-requested-systems + datastore + (assq-ref agent 'uuid)))))) (datastore-list-agents datastore))))))) (('POST "agents") (let ((uuid (new-agent |