diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-29 19:15:54 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-04-29 19:15:54 +0100 |
commit | d13e855fb14bfb3dbc1abfaa4a6e3d9de6f0e61d (patch) | |
tree | 6d213acaeae110d219044920258c0f2d359eaf88 | |
parent | 7df20c0a9491a17926172e9cdbfcd3dd0c8d24eb (diff) | |
download | build-coordinator-d13e855fb14bfb3dbc1abfaa4a6e3d9de6f0e61d.tar build-coordinator-d13e855fb14bfb3dbc1abfaa4a6e3d9de6f0e61d.tar.gz |
List unprocessed builds in priority order
So that the allocator can use the ordering.
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 5 |
1 files changed, 4 insertions, 1 deletions
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 |