diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-04-21 16:01:51 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-04-21 16:01:51 +0100 |
| commit | c9964592646c7c59bd230115e57a3f24304c5b55 (patch) | |
| tree | d378e833b77bf5b1739697edb29f078d58ec44b0 /guix-build-coordinator/datastore/sqlite.scm | |
| parent | e726d1d3682961966b70fe5450065779d3364cb9 (diff) | |
| download | build-coordinator-c9964592646c7c59bd230115e57a3f24304c5b55.tar build-coordinator-c9964592646c7c59bd230115e57a3f24304c5b55.tar.gz | |
Include whether the build is canceled when listing agent builds
Canceled builds aren't unallocated from the agent immediately, so including
the canceled status in the information given to the agent allows it to not
start or potentially stop the build.
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 353fda3..b9dfbee 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3559,7 +3559,8 @@ LIMIT :limit" db " SELECT builds.uuid, derivations.name, - unprocessed_builds_with_derived_priorities.derived_priority + unprocessed_builds_with_derived_priorities.derived_priority, + builds.canceled FROM builds INNER JOIN derivations ON builds.derivation_id = derivations.id @@ -3576,10 +3577,11 @@ WHERE allocated_builds.agent_id = :agent_id" (let ((builds (sqlite-map (match-lambda - (#(uuid derivation_name derived_priority) + (#(uuid derivation_name derived_priority canceled) `((uuid . ,uuid) (derivation_name . ,derivation_name) - (derived_priority . ,derived_priority)))) + (derived_priority . ,derived_priority) + (canceled . ,canceled)))) statement))) (sqlite-reset statement) |