diff options
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index bfa3cea..f57c54e 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -855,7 +855,7 @@ INNER JOIN related_derivations (define-method (datastore-insert-build-tags (datastore <sqlite-datastore>) - build-id + build-uuid tags) (call-with-worker-thread (slot-ref datastore 'worker-writer-thread-channel) @@ -901,7 +901,7 @@ INSERT INTO build_tags (build_id, tag_id) VALUES (:build_id, :tag_id)" (match-lambda ((key . value) (sqlite-bind-arguments build-tags-statement - #:build_id build-id + #:build_id (db-find-build-id db build-uuid) #:tag_id (tag->id key value)) (sqlite-step build-tags-statement) (sqlite-reset build-tags-statement))) |