diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-06-22 19:13:28 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-06-22 19:13:28 +0100 |
| commit | 4ab641973a377c9e9824077950ce3b5c43f9e467 (patch) | |
| tree | a715b1ef655b1b9ce3967209629450f625f4b8af | |
| parent | 9e0a7fb00073547cebf0b2e1609cda96b8b2d991 (diff) | |
| download | qa-frontpage-4ab641973a377c9e9824077950ce3b5c43f9e467.tar qa-frontpage-4ab641973a377c9e9824077950ce3b5c43f9e467.tar.gz | |
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.
| -rw-r--r-- | guix-qa-frontpage/manage-builds.scm | 6 |
1 files changed, 1 insertions, 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 |