Add fallback package for guile-prometheus

1 files changed, 34 insertions, 0 deletions

diff --git a/guix-dev.scm b/guix-dev.scm
index dcc5d16..3641da4 100644
--- a/guix-dev.scm
+++ b/guix-dev.scm
@@ -172,6 +172,40 @@ pure Scheme by using Guile's foreign function interface.")
         (home-page "https://notabug.org/guile-lzlib/guile-lzlib")
         (license license:gpl3+))))
 
+(define guile-prometheus
+  (if (defined? 'guile-prometheus
+        (resolve-interface '(gnu packages guile)))
+      guile-prometheus
+      (let ((commit "35dc26c0ea44c3d70f1819f240d84e2cbb4b7b4c")
+            (revision "5"))
+        (package
+          (name "guile-prometheus")
+          (version (git-version "0" revision commit))
+          (source (origin
+                    (method git-fetch)
+                    (uri (git-reference
+                          (url "https://git.cbaines.net/git/guile/prometheus")
+                          (commit commit)))
+                    (sha256
+                     (base32
+                      "07822jj4appw37lf444kc4xlgl7nm64mgldag56072l55kwashgb"))
+                    (file-name (string-append name "-" version "-checkout"))))
+          (build-system gnu-build-system)
+          (native-inputs
+           `(("pkg-config" ,pkg-config)
+             ("autoconf" ,autoconf)
+             ("automake" ,automake)
+             ("guile" ,guile-3.0)))
+          (inputs
+           `(("guile" ,guile-3.0)))
+          (home-page "https://git.cbaines.net/guile/prometheus")
+          (synopsis "Prometheus client library for Guile")
+          (description
+           "This Guile library provides instrumentation code intended to be used
+with the Prometheus time series service.  Counter, gauge and histogram metric
+types are supported.")
+          (license license:gpl3+)))))
+
 (package
   (name "guix-build-coordinator")
   (version "0.0.0")