diff options
author | Christopher Baines <mail@cbaines.net> | 2021-11-12 14:57:56 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-11-13 10:52:02 +0000 |
commit | a6c94ad7481b55403f9dbc034929144a737e9b7d (patch) | |
tree | 06e616ea1b9c67297ac61d1e324232f03ac5178a /guix-build-coordinator/coordinator.scm | |
parent | 6e4fb6d7cd7454874d16840cb766ecfdc012e441 (diff) | |
download | build-coordinator-a6c94ad7481b55403f9dbc034929144a737e9b7d.tar build-coordinator-a6c94ad7481b55403f9dbc034929144a737e9b7d.tar.gz |
Support activating and deactivating agents
Not sure these are the best terms to use, but I want a way to pause agents,
effectively removing them from the build allocation plan.
This is mostly motivated by the lack of disk space on bayfront, as
deactivating agents provides a way to stop the system from filling up with
builds, but I think there's more general uses as well.
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
-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 5f65c07..cbf760c 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -69,6 +69,7 @@ cancel-build new-agent new-agent-password + set-agent-active fetch-builds agent-details trigger-build-allocation @@ -432,6 +433,12 @@ password) password)) +(define (set-agent-active coordinator agent-uuid active?) + (datastore-set-agent-active (build-coordinator-datastore coordinator) + agent-uuid + active?) + (trigger-build-allocation coordinator)) + (define (trigger-build-allocation build-coordinator) ((build-coordinator-allocator-thread build-coordinator))) |