diff options
author | Christopher Baines <mail@cbaines.net> | 2020-04-27 20:18:40 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2020-04-27 20:26:14 +0100 |
commit | 6af6231b7423f6c7dfacfa5ba73d1be65ff5183d (patch) | |
tree | cddde18ab4e944c6321d3bd39f026b5f203ca4a7 | |
parent | 5251f1f58de2d0786592beaaf1fbed4b052e9283 (diff) | |
download | build-coordinator-6af6231b7423f6c7dfacfa5ba73d1be65ff5183d.tar build-coordinator-6af6231b7423f6c7dfacfa5ba73d1be65ff5183d.tar.gz |
Return a boolean value for processed
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index c21ef78..aede98c 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -524,7 +524,11 @@ WHERE uuid = :uuid"))) `((uuid . ,uuid) (derivation-name . ,derivation_name) (priority . ,priority) - (processed . ,processed)))))) + (processed? . ,(cond + ((eq? 0 processed) #f) + ((eq? 1 processed) #t) + (else + (error "unknown processed value"))))))))) (sqlite-reset statement) result))))) |