From 3df4221c477bd8e6955480a0e5fc0c37a96133c7 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Mon, 31 Aug 2020 14:43:01 +0100
Subject: Automatically add a _ after the namespace

If one is specified. I think this is a more reasonable default
behaviour.
---
 prometheus.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/prometheus.scm b/prometheus.scm
index 8d6a37f..6c45ad3 100644
--- a/prometheus.scm
+++ b/prometheus.scm
@@ -282,7 +282,9 @@
         (simple-format
          port
          "~A~A~A ~A\n"
-         (or (metrics-registry-namespace registry)
+         (or (and=> (metrics-registry-namespace registry)
+                    (lambda (namespace)
+                      (string-append namespace "_")))
              "")
          name
          (if (null? label-values)
-- 
cgit v1.2.3