diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-23 19:49:11 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-23 19:49:11 +0000 |
commit | 869e9db797201691cbb55aa08a615ee662e43cdc (patch) | |
tree | d885b4c6baf2664b3b6e2798fc63e50ac4522a51 /guix-build-coordinator/build-allocator.scm | |
parent | 0383c09430717cac1dc072fb5430952891eaa774 (diff) | |
download | build-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/build-allocator.scm')
-rw-r--r-- | guix-build-coordinator/build-allocator.scm | 4 |
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))))))) |