Don't timeout when trying to get stats for resource pools

This commit is contained in:
Christopher Baines 2025-06-28 19:42:31 +02:00
parent 53437cff14
commit 00a5a0a404

View file

@ -313,7 +313,7 @@ port. Also, the port used can be changed by passing the --port option.\n"
(spawn-fiber
(lambda ()
(let* ((pool (resource-pool-timeout-error-pool exn))
(stats (resource-pool-stats pool)))
(stats (resource-pool-stats pool #:timeout #f)))
(simple-format (current-error-port)
"resource pool timeout error: ~A, ~A\n"
pool