Don't timeout waiting for background pool connections

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