diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-11 09:51:19 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-11 09:51:19 +0000 |
| commit | 3648bd5ca8e870703156d07442fe802eb51c9350 (patch) | |
| tree | 05239df6930ff033179ebaa0c8060bb98a436974 /guix-build-coordinator/build-allocator.scm | |
| parent | 3007c1f10bd240ba5f5f69b8765c25a5d4a6e459 (diff) | |
| download | build-coordinator-3648bd5ca8e870703156d07442fe802eb51c9350.tar build-coordinator-3648bd5ca8e870703156d07442fe802eb51c9350.tar.gz | |
Just count the builds once
In the basic allocator.
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 0f18ee8..f2db2b5 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -63,13 +63,16 @@ datastore agent-id)))) agents)) - (builds (datastore-list-unprocessed-builds datastore)) + (builds + (datastore-list-unprocessed-builds datastore)) + (builds-count + (length builds)) (setup-failures-hash (datastore-fetch-setup-failures datastore)) (derived-build-priorities-hash ;; Mapping from build_id to priority, initialised at the individual ;; priorities for the builds - (let ((table (make-hash-table (length builds)))) + (let ((table (make-hash-table builds-count))) (for-each (lambda (build) (hash-set! table (assq-ref build 'uuid) |