diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 5fe9c1d..bfdbd18 100644 --- 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