diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-23 10:09:32 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-25 13:19:12 +0100 |
| commit | c92067f783ce35b988a723ed78debfc2162bf2a8 (patch) | |
| tree | e9c00dcf63c367b9a24d84a59feceaf687e0d1ea /guix-build-coordinator | |
| parent | 84cafd6f4333c8bc8f43634cd34050e07b6f882f (diff) | |
| download | build-coordinator-c92067f783ce35b988a723ed78debfc2162bf2a8.tar build-coordinator-c92067f783ce35b988a723ed78debfc2162bf2a8.tar.gz | |
Fix build prioritisation
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index cf916cf..588f213 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -593,7 +593,8 @@ (if (or (and planned-builds-for-agent-limit (>= count planned-builds-for-agent-limit)) (null? potential-build-ids)) - build-ids ;; highest priority last + (reverse build-ids) ;; highest priority last, so + ;; reverse (let ((potential-build (first potential-build-ids))) (if (filter-proc potential-build) (loop (+ 1 count) |