Avoid errors in call-with-time-tracking if the registry isn't set

1 files changed, 15 insertions, 12 deletions

diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index fa82aa1..14e656a 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -83,18 +83,21 @@
     datastore))
 
 (define (call-with-time-tracking datastore metric-name thunk)
-  (let* ((registry (slot-ref datastore 'metrics-registry))
-         (namespaced-metric-name
-          (string-append "guixbuildcoordinator_" metric-name))
-         (metric
-          (or (metrics-registry-fetch-metric registry namespaced-metric-name)
-              (make-histogram-metric
-               registry
-               namespaced-metric-name)))
-         (start-time (current-time)))
-    (let ((result (thunk)))
-      (metric-observe metric (- (current-time) start-time))
-      result)))
+  (define registry (slot-ref datastore 'metrics-registry))
+
+  (if registry
+      (let* ((namespaced-metric-name
+              (string-append "guixbuildcoordinator_" metric-name))
+             (metric
+              (or (metrics-registry-fetch-metric registry namespaced-metric-name)
+                  (make-histogram-metric
+                   registry
+                   namespaced-metric-name)))
+             (start-time (current-time)))
+        (let ((result (thunk)))
+          (metric-observe metric (- (current-time) start-time))
+          result))
+      (thunk)))
 
 (define-method (datastore-find-agent
                 (datastore <sqlite-datastore>)