diff options
author | Christopher Baines <mail@cbaines.net> | 2020-12-21 09:44:21 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-12-21 09:44:21 +0000 |
commit | 1ed40f6037a008480eb635b023f7a5fcd00c6914 (patch) | |
tree | ca55f911012f2728d2f34fc5258565d987020ae1 /guix-build-coordinator/datastore | |
parent | 72ffc0d64fc46a29d431eb9275d341e6f3fffbee (diff) | |
download | build-coordinator-1ed40f6037a008480eb635b023f7a5fcd00c6914.tar build-coordinator-1ed40f6037a008480eb635b023f7a5fcd00c6914.tar.gz |
Include cancelled information in datastore-list-builds-for-output
Diffstat (limited to 'guix-build-coordinator/datastore')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index e996d78..e5705f8 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1282,7 +1282,7 @@ WHERE builds.uuid = :build_id" (sqlite-prepare db " -SELECT uuid, builds.derivation_name, priority, processed, result +SELECT uuid, builds.derivation_name, priority, processed, canceled, result FROM builds INNER JOIN derivation_outputs ON builds.derivation_name = derivation_outputs.derivation_name @@ -1298,11 +1298,18 @@ WHERE derivation_outputs.output = :output" (let ((result (sqlite-map (match-lambda - (#(uuid derivation priority processed result) + (#(uuid derivation priority processed canceled result) `((uuid . ,uuid) (derivation . ,derivation) (priority . ,priority) - (processed . ,processed) + (processed . ,(cond + ((= 0 processed) #f) + ((= 1 processed) #t) + (else (error "unknown value")))) + (canceled . ,(cond + ((= 0 canceled) #f) + ((= 1 canceled) #t) + (else (error "unknown value")))) (result . ,result)))) statement))) (sqlite-reset statement) |