diff options
Diffstat (limited to 'guix-build-coordinator/coordinator.scm')
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index b19d278..fef81c3 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -855,14 +855,14 @@ (signal-condition-variable condvar) #t))) -(define (allocate-builds build-coordinator) +(define (update-build-allocation-plan build-coordinator) (define datastore (build-coordinator-datastore build-coordinator)) (let* ((allocator-proc (build-coordinator-allocation-strategy build-coordinator)) (new-plan - (with-time-logging "allocating builds" + (with-time-logging "computing new build allocation plan" (allocator-proc datastore #:metrics-registry (build-coordinator-metrics-registry build-coordinator))))) @@ -896,7 +896,7 @@ (build-coordinator-metrics-registry build-coordinator) "allocator_failures_total")) - (define (allocate-builds-loop) + (define (update-build-allocation-plan-loop) (while #t (with-mutex mtx (let ((previous-allocation-needed-value @@ -919,7 +919,7 @@ (lambda () (with-throw-handler #t (lambda () - (allocate-builds build-coordinator) + (update-build-allocation-plan build-coordinator) (metric-increment success-counter-metric)) (lambda (key . args) (simple-format @@ -962,7 +962,7 @@ (datastore-count-build-allocation-plan-entries (build-coordinator-datastore build-coordinator))))) - (allocate-builds-loop))))) + (update-build-allocation-plan-loop))))) trigger-build-allocation) |