cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix the pool metrics

Browse source
This commit is contained in:
Christopher Baines 2024-07-29 11:24:24 +01:00
parent f0f1329461
commit d8ade0ea11
1 changed files with 20 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

4
guix-data-service/web/server.scm
View file

@ -101,7 +101,6 @@
(%guix-data-service-metrics-registry registry) (%guix-data-service-metrics-registry registry)
(let ((finished? (make-condition)) (let ((finished? (make-condition))
(render-metrics (make-render-metrics registry))
(request-scheduler #f)) (request-scheduler #f))
(call-with-sigint (call-with-sigint
(lambda () (lambda ()
@ -218,6 +217,7 @@ port. Also, the port used can be changed by passing the --port option.\n"
conn))) conn)))
request-scheduler) request-scheduler)
(let ((render-metrics (make-render-metrics registry)))
(run-server/patched (run-server/patched
(lambda (request body) (lambda (request body)
(metric-increment requests-metric) (metric-increment requests-metric)
@ -238,7 +238,7 @@ port. Also, the port used can be changed by passing the --port option.\n"
(apply values (get-message reply)))) (apply values (get-message reply))))
#:host host #:host host
#:port port)) #:port port)))
#:unwind? #t))) #:unwind? #t)))
;; Guile sometimes just seems to stop listening on the port, so try ;; Guile sometimes just seems to stop listening on the port, so try