diff options
author | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:37:05 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-03-22 15:56:13 +0000 |
commit | 13e283ddc2e9b0a62f9bbd9b67fbd8fbec393629 (patch) | |
tree | 0397696f06905186062ed116e0b84647afa18ed6 /guix-build-coordinator/client-communication.scm | |
parent | 51c318b99b7ff2203be7924fc5ff626a113f252c (diff) | |
download | build-coordinator-13e283ddc2e9b0a62f9bbd9b67fbd8fbec393629.tar build-coordinator-13e283ddc2e9b0a62f9bbd9b67fbd8fbec393629.tar.gz |
Include the last agent statuses in the overall status
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 17 |
1 files changed, 11 insertions, 6 deletions
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 |