diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-09-08 10:23:16 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-09-08 10:23:16 +0100 |
| commit | ea03ca7230c2c6a0f7c4b2e35eaa8c505b2a05c4 (patch) | |
| tree | 727b8f09d6f0aad1b4cdf8f1bd2895d01213514d /guix-data-service/web | |
| parent | aca5f8ca05956011c678fad80219fb2ee9526c98 (diff) | |
| download | data-service-ea03ca7230c2c6a0f7c4b2e35eaa8c505b2a05c4.tar data-service-ea03ca7230c2c6a0f7c4b2e35eaa8c505b2a05c4.tar.gz | |
Don't timeout waiting for background pool connections
Diffstat (limited to 'guix-data-service/web')
| -rw-r--r-- | guix-data-service/web/build-server/controller.scm | 32 |
1 files changed, 17 insertions, 15 deletions
diff --git a/guix-data-service/web/build-server/controller.scm b/guix-data-service/web/build-server/controller.scm index 570ae2f..308ef99 100644 --- a/guix-data-service/web/build-server/controller.scm +++ b/guix-data-service/web/build-server/controller.scm @@ -124,21 +124,23 @@ (define (spawn-fiber-for-handler handler) (spawn-fiber (lambda () - (with-resource-from-pool (background-connection-pool) conn - (with-exception-handler - (lambda (exn) - (simple-format - (current-error-port) - "exception in build event handler: ~A\n" - exn)) - (lambda () - (with-throw-handler #t - (lambda () - (handler conn)) - (lambda _ - (display (backtrace) (current-error-port)) - (display "\n" (current-error-port))))) - #:unwind? #t))))) + (call-with-resource-from-pool (background-connection-pool) + (lambda (conn) + (with-exception-handler + (lambda (exn) + (simple-format + (current-error-port) + "exception in build event handler: ~A\n" + exn)) + (lambda () + (with-throw-handler #t + (lambda () + (handler conn)) + (lambda _ + (display (backtrace) (current-error-port)) + (display "\n" (current-error-port))))) + #:unwind? #t)) + #:timeout #f)))) (define (with-build-ids-for-status data build-ids |