diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-23 19:53:48 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-23 19:53:48 +0000 |
| commit | 2a59045dad5c4982535f4cc91bf6e76a731404c0 (patch) | |
| tree | 0aaf22053d735930da63c8b4a8150bb1e9312684 | |
| parent | 869e9db797201691cbb55aa08a615ee662e43cdc (diff) | |
| download | build-coordinator-2a59045dad5c4982535f4cc91bf6e76a731404c0.tar build-coordinator-2a59045dad5c4982535f4cc91bf6e76a731404c0.tar.gz | |
Switch to a stable sort in the basic build allocator
Just in case this has a bearing on the ordering.
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm index 210598f..ef3665f 100644 --- a/guix-build-coordinator/build-allocator.scm +++ b/guix-build-coordinator/build-allocator.scm @@ -360,9 +360,9 @@ (lambda (agent-id) (log "considering builds for" agent-id) (let ((builds-sorted-by-derived-priority - (sort (filter (filter-builds-for-agent agent-id) - builds) - (build-sorting-function-for-agent agent-id)))) + (sort-list (filter (filter-builds-for-agent agent-id) + builds) + (build-sorting-function-for-agent agent-id)))) (if (null? builds-sorted-by-derived-priority) '() (let ((final-ordered-builds |