diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-31 10:26:53 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-31 10:26:53 +0000 |
| commit | 477b0ab04298e4de17244130315de86a4db993a4 (patch) | |
| tree | a2cad72ad8b9e4df4b0d50f0cfd6cae1b6111c76 | |
| parent | fac2a9cf766c843077abeca2b44b19ac7aa3981d (diff) | |
| download | build-coordinator-477b0ab04298e4de17244130315de86a4db993a4.tar build-coordinator-477b0ab04298e4de17244130315de86a4db993a4.tar.gz | |
Include allocated builds in the agents response
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index d9ccdff..141c94f 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -208,6 +208,11 @@ . ,(list->vector (map (lambda (agent) `(,@agent + (allocated_builds + . ,(list->vector + (datastore-select-allocated-builds + datastore + (assq-ref agent 'uuid)))) (tags . ,(vector-map (match-lambda* ((index (key . value)) |