From fb764aa513efd206e175a1c52d737e1e934c3ca1 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Thu, 25 Apr 2024 16:48:58 +0100
Subject: Don't initialize storage metrics if there's no storage

---
 nar-herder/server.scm | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/nar-herder/server.scm b/nar-herder/server.scm
index fecf166..a714fb3 100644
--- a/nar-herder/server.scm
+++ b/nar-herder/server.scm
@@ -754,10 +754,11 @@
 
          (run-fibers
           (lambda ()
-            (initialise-storage-metrics
-             database
-             canonical-storage
-             metrics-registry)
+            (when canonical-storage
+              (initialise-storage-metrics
+               database
+               canonical-storage
+               metrics-registry))
 
             (start-recent-change-removal-and-database-dump-fiber
              database
@@ -776,7 +777,7 @@
                       (start-fetch-changes-fiber
                        database
                        metrics-registry
-                       canonical-storage
+                       canonical-storage ; might be #f, but that's fine here
                        mirror
                        cached-compression-management-channel)
 
-- 
cgit v1.2.3