From d13e855fb14bfb3dbc1abfaa4a6e3d9de6f0e61d Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 29 Apr 2020 19:15:54 +0100
Subject: List unprocessed builds in priority order

So that the allocator can use the ordering.
---
 guix-build-coordinator/datastore/sqlite.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index c3859de..faaf8d1 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -744,7 +744,10 @@ SELECT uuid, derivation_name, priority FROM builds WHERE processed = 1")))
             (sqlite-prepare
              db
              "
-SELECT uuid, derivation_name, priority FROM builds WHERE processed = 0")))
+SELECT uuid, derivation_name, priority
+FROM builds
+WHERE processed = 0
+ORDER BY priority DESC")))
 
        (let ((builds (sqlite-map
                       (match-lambda
-- 
cgit v1.2.3