diff options
Diffstat (limited to 'guix-build-coordinator/datastore/sqlite.scm')
| -rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 15 |
1 files changed, 4 insertions, 11 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index fadef44..bb1d8e8 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -3517,8 +3517,7 @@ WHERE build_derivation_outputs.derivation_id = :derivation_id (define-method (datastore-insert-to-allocated-builds (datastore <sqlite-datastore>) agent-id - build-uuid - submit-outputs?) + build-uuid) (call-with-writer-thread datastore (lambda (db) @@ -3526,20 +3525,14 @@ WHERE build_derivation_outputs.derivation_id = :derivation_id (sqlite-prepare db " -INSERT INTO allocated_builds (build_id, agent_id, submit_outputs) - VALUES (:build_id, :agent_id, :submit_outputs)" +INSERT INTO allocated_builds (build_id, agent_id) + VALUES (:build_id, :agent_id)" #:cache? #t))) (sqlite-bind-arguments statement #:build_id (db-find-build-id db build-uuid) - #:agent_id agent-id - #:submit_outputs - (cond - ((eq? submit-outputs? 'null) "NULL") - ((eq? #f submit-outputs?) 0) - ((eq? #t submit-outputs?) 1) - (else (error "unknown submit-outputs")))) + #:agent_id agent-id) (sqlite-step-and-reset statement)))) #t) |