diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index b22ea59..1df58f3 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3269,11 +3269,14 @@ WHERE agent_id = :agent_id" db (string-append " -SELECT builds.uuid, derivations.name, builds.priority, +SELECT builds.uuid, derivations.name, systems.system, + builds.priority, unprocessed_builds_with_derived_priorities.derived_priority FROM builds INNER JOIN derivations ON builds.derivation_id = derivations.id +INNER JOIN systems + ON derivations.system_id = systems.id INNER JOIN build_allocation_plan ON builds.id = build_allocation_plan.build_id LEFT JOIN unprocessed_builds_with_derived_priorities @@ -3297,10 +3300,11 @@ LIMIT :limit" (let ((builds (sqlite-map (match-lambda - (#(uuid derivation_name + (#(uuid derivation_name system priority derived_priority) `((uuid . ,uuid) (derivation_name . ,derivation_name) + (system . ,system) (priority . ,priority) (derived_priority . ,derived_priority) (tags . ,(vector-map |