Handle unknown resource pool stats

2025-11-20 14:09:40 +00:00 · 2025-11-20 14:09:40 +00:00 · eb9ec4acd0
commit eb9ec4acd0
parent 9a03cdff18
1 changed files with 7 additions and 5 deletions
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@ -347,11 +347,13 @@
            (for-each
             (match-lambda
               ((stat . value)
-                (metric-set
-                 (assq-ref resource-pool-metrics stat)
-                 value
-                 #:label-values
-                 `((pool_name . ,name)))))
+                (and=> (assq-ref resource-pool-metrics stat)
+                       (lambda (metric)
+                         (metric-set
+                          metric
+                          value
+                          #:label-values
+                          `((pool_name . ,name)))))))
             (with-exception-handler
                 (lambda (exn)
                   (simple-format