diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm index 4a03b5e..2661b44 100644 --- a/guix-data-service/web/server.scm +++ b/guix-data-service/web/server.scm @@ -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