From 024761d432ff84e197b49846c71ac34f5703df38 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 23 Mar 2023 10:00:04 +0000 Subject: Include the timestamp when fetching the agent status from the db --- guix-build-coordinator/datastore/sqlite.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index ba4a6d4..c2dc3de 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -687,7 +687,7 @@ UPDATE agents SET active = :active WHERE id = :uuid" (sqlite-prepare db " -SELECT status, load_average_1min +SELECT status, load_average_1min, timestamp FROM agent_status WHERE agent_id = :agent_id" #:cache? #t))) @@ -697,11 +697,12 @@ WHERE agent_id = :agent_id" #:agent_id agent-id) (match (sqlite-step statement) - (#(status 1min_load_average) + (#(status 1min_load_average timestamp) (sqlite-reset statement) `((status . ,status) - (1min_load_average . ,1min_load_average))) + (1min_load_average . ,1min_load_average) + (timestamp . ,timestamp))) (_ #f)))))) (define-method (datastore-update-agent-status -- cgit v1.2.3