From 13e283ddc2e9b0a62f9bbd9b67fbd8fbec393629 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 22 Mar 2023 15:37:05 +0000 Subject: Include the last agent statuses in the overall status --- guix-build-coordinator/client-communication.scm | 17 +++++++++++------ 1 file changed, 11 insertions(+), 6 deletions(-) (limited to 'guix-build-coordinator/client-communication.scm') diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 5d443d8..2d8d4bc 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -504,12 +504,17 @@ (agents . ,(list->vector (map (lambda (agent-details) - `(,@agent-details - (builds - . ,(list->vector - (datastore-list-agent-builds - datastore - (assq-ref agent-details 'uuid)))))) + (let ((agent-id + (assq-ref agent-details 'uuid))) + `(,@agent-details + (last_status_update + . ,(datastore-find-agent-status datastore + agent-id)) + (builds + . ,(list->vector + (datastore-list-agent-builds + datastore + (assq-ref agent-details 'uuid))))))) (datastore-list-agents datastore))))))))) (('GET "events") (list (build-response -- cgit v1.2.3