Change allocate-builds to update-build-allocation-plan

As this is a better name.

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)