diff options
-rw-r--r-- | nar-herder/server.scm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/nar-herder/server.scm b/nar-herder/server.scm index 578f1c9..ec1b4ae 100644 --- a/nar-herder/server.scm +++ b/nar-herder/server.scm @@ -197,6 +197,17 @@ (define gc-metrics-updater (get-gc-metrics-updater metrics-registry)) + (define guile-time-metrics-updater + (let ((internal-real-time + (make-gauge-metric metrics-registry "guile_internal_real_time")) + (internal-run-time + (make-gauge-metric metrics-registry "guile_internal_run_time"))) + (lambda () + (metric-set internal-real-time + (get-internal-real-time)) + (metric-set internal-run-time + (get-internal-run-time))))) + (define requests-total-metric (make-counter-metric metrics-registry "server_requests_total")) @@ -446,6 +457,7 @@ #f)) (('GET "metrics") (gc-metrics-updater) + (guile-time-metrics-updater) (increment-request-metric "metrics" "200") (values (build-response |