about summary refs log tree commit diff
path: root/arunisaac
diff options
context:
space:
mode:
authorArun Isaac2026-08-30 02:44:05 +0100
committerArun Isaac2026-08-30 02:44:05 +0100
commit412003ce3c9077a119f943a42d1fc303c931b3b0 (patch)
treea1859fc150bba9915d3a4e6ace03ef876d3c8890 /arunisaac
parent2d727e018b5647b28f10b61d068b4fb195a7ace5 (diff)
downloadguix-arunisaac-412003ce3c9077a119f943a42d1fc303c931b3b0.tar.gz
guix-arunisaac-412003ce3c9077a119f943a42d1fc303c931b3b0.tar.lz
guix-arunisaac-412003ce3c9077a119f943a42d1fc303c931b3b0.zip
prometheus: Build labels alist correctly. HEAD main
Diffstat (limited to 'arunisaac')
-rw-r--r--arunisaac/prometheus.scm7
1 files changed, 6 insertions, 1 deletions
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