From 7dc9f350babf03963d1f9ed799adfe6615edb7d6 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 26 Mar 2023 17:36:36 +0100
Subject: Fix sending tags as part of the build-submitted event

---
 guix-build-coordinator/coordinator.scm | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm
index 08574c0..a79ca40 100644
--- a/guix-build-coordinator/coordinator.scm
+++ b/guix-build-coordinator/coordinator.scm
@@ -677,7 +677,14 @@
               `((id          . ,build-id)
                 (derivation  . ,derivation-file)
                 (priority    . ,priority)
-                (tags        . ,tags)
+                (tags
+                 . ,(list->vector
+                     (map
+                      (match-lambda
+                        ((key . value)
+                         `((key   . ,key)
+                           (value . ,value))))
+                      tags)))
                 (defer_until . ,defer-until)))
 
              (trigger-build-allocation build-coordinator)
-- 
cgit v1.2.3