Track delays for reporting metrics

1 files changed, 12 insertions, 10 deletions

diff --git a/guix-build-coordinator/agent-messaging/http/server.scm b/guix-build-coordinator/agent-messaging/http/server.scm
index 89e03bf..3e9f6ee 100644
--- a/guix-build-coordinator/agent-messaging/http/server.scm
+++ b/guix-build-coordinator/agent-messaging/http/server.scm
@@ -82,7 +82,7 @@ if there was no request body."
            (get-gc-metrics-updater
             (build-coordinator-metrics-registry build-coordinator))))
     (lambda ()
-      (datastore-metrics-updater)
+      (call-with-delay-logging datastore-metrics-updater)
       (gc-metrics-updater))))
 
 
@@ -664,15 +664,17 @@ port. Also, the port used can be changed by passing the --port option.\n"
               '(("error" . "access denied"))
               #:code 403))))
       (('GET "metrics")
-       (update-managed-metrics!)
-       (list (build-response
-              #:code 200
-              #:headers '((content-type . (text/plain))
-                          (vary . (accept))))
-             (lambda (port)
-               (write-metrics (build-coordinator-metrics-registry
-                               build-coordinator)
-                              port))))
+       (call-with-delay-logging
+        (lambda ()
+          (update-managed-metrics!)
+          (list (build-response
+                 #:code 200
+                 #:headers '((content-type . (text/plain))
+                             (vary . (accept))))
+                (lambda (port)
+                  (write-metrics (build-coordinator-metrics-registry
+                                  build-coordinator)
+                                 port))))))
       (_
        (render-json
         "not-found"