diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-06-19 16:55:01 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-06-19 16:55:01 +0100 |
| commit | 89c2823f1a332da9e9ea3a4f84ef27cce7e22a3a (patch) | |
| tree | c58d0c732100c67e71fee2e5438154153c374fc7 /guix-build-coordinator/coordinator.scm | |
| parent | d1d8132c6f8c0fb4d2335472d487635e0284cdf6 (diff) | |
| download | build-coordinator-89c2823f1a332da9e9ea3a4f84ef27cce7e22a3a.tar build-coordinator-89c2823f1a332da9e9ea3a4f84ef27cce7e22a3a.tar.gz | |
Handle the system more explicitly when fetching builds
Also support fetching builds for specific systems from the Guix Data Service.
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 83f1e68..f76c783 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -321,7 +321,7 @@ #t) -(define (fetch-builds build-coordinator agent count) +(define (fetch-builds build-coordinator agent systems count) (call-with-duration-metric (build-coordinator-metrics-registry build-coordinator) "guixbuildcoordinator_coordinator_fetch_builds_duration_seconds" @@ -329,6 +329,7 @@ (datastore-allocate-builds-to-agent (build-coordinator-datastore build-coordinator) agent + systems count)))) (define (agent-details datastore agent-id) |