diff options
author | Christopher Baines <mail@cbaines.net> | 2021-04-02 18:50:22 +0100 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-04-02 18:50:22 +0100 |
commit | 614c620d4cc5d86d24cb1648f1ff0bb3f588e772 (patch) | |
tree | 0360c55f377d9bae00de6ef0782ffda112eba234 | |
parent | 99533bb17640c69e486d3e16ce93e88dff146f72 (diff) | |
download | build-coordinator-614c620d4cc5d86d24cb1648f1ff0bb3f588e772.tar build-coordinator-614c620d4cc5d86d24cb1648f1ff0bb3f588e772.tar.gz |
Fix tagging builds
-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))) |