aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2024-04-25 16:48:58 +0100
committerChristopher Baines <mail@cbaines.net>2024-04-25 16:48:58 +0100
commitfb764aa513efd206e175a1c52d737e1e934c3ca1 (patch)
treedb7b3a30188eec5a4c9e467995abc3bd60095c57
parent6be6f63c9f03b7bc928f7927a38da91f95f57ea2 (diff)
downloadnar-herder-fb764aa513efd206e175a1c52d737e1e934c3ca1.tar
nar-herder-fb764aa513efd206e175a1c52d737e1e934c3ca1.tar.gz
Don't initialize storage metrics if there's no storage
-rw-r--r--nar-herder/server.scm11
1 files 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)