From 44a5a5393b5f5534ba95d37be61d7a64107dd826 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Tue, 11 Apr 2023 16:48:25 +0100 Subject: Include build priority when selecting allocated builds --- guix-build-coordinator/datastore/sqlite.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 86fe6d4..2016443 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3421,7 +3421,7 @@ WHERE build_id IN (" (sqlite-prepare db " -SELECT builds.uuid, derivations.name +SELECT builds.uuid, derivations.name, builds.priority FROM allocated_builds INNER JOIN builds ON allocated_builds.build_id = builds.id @@ -3439,10 +3439,11 @@ WHERE agent_id = :agent_id" (lambda (row result) (cons (match row - (#(uuid derivation_name) + (#(uuid derivation_name priority) `((uuid . ,uuid) ;; TODO Switch this to derivation_name - (derivation-name . ,derivation_name)))) + (derivation-name . ,derivation_name) + (priority . ,priority)))) result)) '() statement))) -- cgit v1.2.3