diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-11 16:48:25 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-11 16:48:25 +0100 |
| commit | 44a5a5393b5f5534ba95d37be61d7a64107dd826 (patch) | |
| tree | 8107bc0c06d3151e58b06895ca9ddccbcfc0d353 | |
| parent | 61b3b6b72e881cda3f106d69e30b0db2d18a2381 (diff) | |
| download | build-coordinator-44a5a5393b5f5534ba95d37be61d7a64107dd826.tar build-coordinator-44a5a5393b5f5534ba95d37be61d7a64107dd826.tar.gz | |
Include build priority when selecting allocated builds
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 7 |
1 files 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))) |