From 4ab641973a377c9e9824077950ce3b5c43f9e467 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sat, 22 Jun 2024 19:13:28 +0100
Subject: Just shuffle by name

Otherwise the x86_64-linux builds and aarch64-linux builds will be submitted
before everything else, which sort of makes sense, but doesn't load other
machines early enough.
---
 guix-qa-frontpage/manage-builds.scm | 6 +-----
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index 3f582cf..9b1911f 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -247,11 +247,7 @@
   (sort!
    derivations-and-priorities
    (lambda (a b)                        ; less
-     (let ((a-priority (second a))
-           (b-priority (second b)))
-       (if (= a-priority b-priority)
-           (string<? (first a) (first b))
-           (> a-priority b-priority))))))
+     (string<? (first a) (first b)))))
 
 (define* (submit-builds-for-branch database
                                    build-coordinator
-- 
cgit v1.2.3