From 412003ce3c9077a119f943a42d1fc303c931b3b0 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 30 Aug 2026 02:44:05 +0100
Subject: prometheus: Build labels alist correctly.

---
 arunisaac/prometheus.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'arunisaac')

diff --git a/arunisaac/prometheus.scm b/arunisaac/prometheus.scm
index 9f2cef1..705706e 100644
--- a/arunisaac/prometheus.scm
+++ b/arunisaac/prometheus.scm
@@ -163,7 +163,12 @@ alongside optional key-value pairs called labels.")
                                     #~(cons (cons "targets" (vector #$@targets))
                                             #$(match labels
                                                 (() #~'())
-                                                (_ #~(cons "labels" #$label)))))
+                                                (_
+                                                 #~(list (cons "labels"
+                                                               (list #$@(map (match-lambda
+                                                                               ((key . value)
+                                                                                #~(cons #$key #$value)))
+                                                                             labels))))))))
                                   static-configs))))))
 
 (define prometheus-config-file-gexp
-- 
cgit 1.4.1