diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 2f3aa21..be5dc98 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -613,7 +613,7 @@ SELECT id, name, description, active FROM agents ORDER BY id" `((uuid . ,id) (name . ,name) (description . ,description) - (active . ,(eq? active 1))))) + (active . ,(= active 1))))) statement))) (sqlite-reset statement) @@ -1427,7 +1427,7 @@ WHERE build_id = :build_id" (sqlite-reset statement) (values derived-priority - (eq? 1 all-inputs-built)))))) + (= 1 all-inputs-built)))))) (define (db-update-build-priority db build-id new-priority) (let ((statement @@ -1562,7 +1562,7 @@ DELETE FROM build_allocation_plan WHERE build_id = :build_id" (sqlite-step statement) (sqlite-reset statement) - (unless (eq? 0 (changes-count db)) + (unless (= 0 (changes-count db)) (update-build-allocation-plan-metrics))))) #t) @@ -3593,8 +3593,8 @@ WHERE name = :name" (#(system fixed_output) `((system . ,system) (fixed-output? . ,(cond - ((eq? fixed_output 0) #f) - ((eq? fixed_output 1) #t) + ((= fixed_output 0) #f) + ((= fixed_output 1) #t) (else fixed_output)))))))) (sqlite-reset statement) @@ -3676,7 +3676,7 @@ WHERE derivation_id = :derivation_id" (name . ,name) (hash-algorithm . ,hash-algorithm) (hash . ,hash) - (recursive? . ,(eq? 1 recursive))))) + (recursive? . ,(= 1 recursive))))) statement))) (sqlite-reset statement) |