From 16840d1443f6bb146878d81fb30d90ef54ff239b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Fri, 3 Jul 2020 09:18:04 +0100 Subject: Record the systems fetched for agents So that this information can be used by the allocator. Because that's expected, also trigger allocating builds if the systems for an agent changes. --- guix-build-coordinator/coordinator.scm | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 2ceac56..bfbea73 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -330,6 +330,13 @@ (build-coordinator-metrics-registry build-coordinator) "guixbuildcoordinator_coordinator_fetch_builds_duration_seconds" (lambda () + (let ((update-made (datastore-update-agent-requested-systems + (build-coordinator-datastore build-coordinator) + agent + systems))) + (when update-made + (trigger-build-allocation build-coordinator))) + (datastore-allocate-builds-to-agent (build-coordinator-datastore build-coordinator) agent -- cgit v1.2.3