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

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

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