aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web
diff options
context:
space:
mode:
Diffstat (limited to 'guix-data-service/web')
-rw-r--r--guix-data-service/web/server.scm6
1 files changed, 5 insertions, 1 deletions
diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index 4f2a4a0..6e91809 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -165,7 +165,9 @@
conn))))
(let ((render-metrics
- (make-render-metrics registry)))
+ (make-render-metrics registry))
+ (requests-metric
+ (make-counter-metric registry "requests_total")))
(with-exception-handler
(lambda (exn)
@@ -181,6 +183,8 @@ port. Also, the port used can be changed by passing the --port option.\n"
(lambda ()
(run-server/patched
(lambda (request body)
+ (metric-increment requests-metric)
+
(handler request finished? body controller
secret-key-base
startup-completed