diff options
| -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 |