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

Don't timeout waiting for background pool connections

Browse source
This commit is contained in:
Christopher Baines 2024-09-08 10:23:16 +01:00
parent aca5f8ca05
commit ea03ca7230
1 changed files with 17 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

32
guix-data-service/web/build-server/controller.scm
View file

@ -124,21 +124,23 @@
(define (spawn-fiber-for-handler handler) (define (spawn-fiber-for-handler handler)
(spawn-fiber (spawn-fiber
(lambda () (lambda ()
(with-resource-from-pool (background-connection-pool) conn (call-with-resource-from-pool (background-connection-pool)
(with-exception-handler (lambda (conn)
(lambda (exn) (with-exception-handler
(simple-format (lambda (exn)
(current-error-port) (simple-format
"exception in build event handler: ~A\n" (current-error-port)
exn)) "exception in build event handler: ~A\n"
(lambda () exn))
(with-throw-handler #t (lambda ()
(lambda () (with-throw-handler #t
(handler conn)) (lambda ()
(lambda _ (handler conn))
(display (backtrace) (current-error-port)) (lambda _
(display "\n" (current-error-port))))) (display (backtrace) (current-error-port))
#:unwind? #t))))) (display "\n" (current-error-port)))))
#:unwind? #t))
#:timeout #f))))
(define (with-build-ids-for-status data (define (with-build-ids-for-status data
build-ids build-ids