Add datastore-fetch-build-tags

1 files changed, 35 insertions, 0 deletions

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index c51624e..430b668 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -21,6 +21,7 @@
             datastore-count-builds
             datastore-for-each-build
             datastore-find-build
+            datastore-fetch-build-tags
             datastore-find-build-result
             datastore-find-build-derivation-system
             datastore-list-builds-for-derivation
@@ -911,6 +912,40 @@ WHERE uuid = :uuid"
 
          result)))))
 
+(define-method (datastore-fetch-build-tags
+                (datastore <sqlite-datastore>)
+                build-id)
+  (call-with-worker-thread
+   (slot-ref datastore 'worker-reader-thread-channel)
+   (lambda (db)
+     (let ((statement
+            (sqlite-prepare
+             db
+             "
+SELECT key, value
+FROM tags
+INNER JOIN build_tags
+  ON tags.id = build_tags.tag_id
+WHERE build_tags.build_id = :build_id"
+             #:cache? #t)))
+
+       (sqlite-bind-arguments
+        statement
+        #:build_id build-id)
+
+       (let ((result
+              (sqlite-fold
+               (lambda (row result)
+                 (match row
+                   (#(key value)
+                    `((,key . ,value)
+                      ,@result))))
+               '()
+               statement)))
+         (sqlite-reset statement)
+
+         result)))))
+
 (define-method (datastore-find-build-result
                 (datastore <sqlite-datastore>)
                 build-id)