From 477b0ab04298e4de17244130315de86a4db993a4 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 31 Jan 2021 10:26:53 +0000 Subject: Include allocated builds in the agents response --- guix-build-coordinator/client-communication.scm | 5 +++++ 1 file changed, 5 insertions(+) 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)) -- cgit v1.2.3