aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-12-23 19:49:11 +0000
committerChristopher Baines <mail@cbaines.net>2020-12-23 19:49:11 +0000
commit869e9db797201691cbb55aa08a615ee662e43cdc (patch)
treed885b4c6baf2664b3b6e2798fc63e50ac4522a51 /guix-build-coordinator
parent0383c09430717cac1dc072fb5430952891eaa774 (diff)
downloadbuild-coordinator-869e9db797201691cbb55aa08a615ee662e43cdc.tar
build-coordinator-869e9db797201691cbb55aa08a615ee662e43cdc.tar.gz
Maintain build order when breaking builds in to sublists
This might help, depending on whether the order they come out of the database.
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/build-allocator.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm
index 2fc1a27..210598f 100644
--- a/guix-build-coordinator/build-allocator.scm
+++ b/guix-build-coordinator/build-allocator.scm
@@ -186,7 +186,7 @@
(current-priority-builds '())
(current-priority (build-priority (first all-builds))))
(if (null? builds)
- (reverse (cons current-priority-builds result))
+ (reverse (cons (reverse current-priority-builds) result))
(let ((build (car builds)))
(if (= (build-priority build)
current-priority)
@@ -194,7 +194,7 @@
(cdr builds)
(cons build current-priority-builds)
current-priority)
- (loop (cons current-priority-builds result)
+ (loop (cons (reverse current-priority-builds) result)
(cdr builds)
(list build)
(build-priority build)))))))