diff options
author | Christopher Baines <mail@cbaines.net> | 2020-07-03 09:18:04 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-07-03 09:21:22 +0100 |
commit | 16840d1443f6bb146878d81fb30d90ef54ff239b (patch) | |
tree | d01b7ba02bbd123ec81a91db9b499ce5e04ae05e | |
parent | 63e38b087cbc549fd9fc5f817114dbe976036bc3 (diff) | |
download | build-coordinator-16840d1443f6bb146878d81fb30d90ef54ff239b.tar build-coordinator-16840d1443f6bb146878d81fb30d90ef54ff239b.tar.gz |
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.
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 7 |
1 files changed, 7 insertions, 0 deletions
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 |