Add support for counter metrics

1 files changed, 17 insertions, 0 deletions

diff --git a/guix-build-coordinator/metrics.scm b/guix-build-coordinator/metrics.scm
index d4d624e..5f2ff6a 100644
--- a/guix-build-coordinator/metrics.scm
+++ b/guix-build-coordinator/metrics.scm
@@ -27,6 +27,7 @@
             metrics-registry-fetch-metric
             write-metrics
 
+            make-counter-metric
             make-gauge-metric
             make-histogram-metric
 
@@ -76,6 +77,22 @@
   (hash-ref (metrics-registry-metrics-hash registry)
             name))
 
+(define* (make-counter-metric registry name
+                            #:key
+                            docstring
+                            (labels '())
+                            (label-preset-values '()))
+  (metrics-registry-add-metric
+   registry
+   name
+   (make-metric 'counter
+                name
+                (make-hash-table)
+                registry
+                docstring
+                labels
+                label-preset-values)))
+
 (define* (make-gauge-metric registry name
                             #:key
                             docstring