diff options
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) |