03/03: Set request timeouts for the thread pools

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 688f4cd79d47e9c74b18125d2cfb0e972bb2431e
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Apr 27 11:54:12 2023 +0200

    Set request timeouts for the thread pools
    
    The request timeout should ensure that the operations don't back up if the
    thread pool is overloaded.
---
 scripts/guix-data-service.in | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/scripts/guix-data-service.in b/scripts/guix-data-service.in
index adfc3d3..f376152 100644
--- a/scripts/guix-data-service.in
+++ b/scripts/guix-data-service.in
@@ -214,7 +214,10 @@
                                    2))
                          #:idle-seconds 60
                          #:idle-thunk
-                         close-thread-postgresql-connection)))
+                         close-thread-postgresql-connection))
+
+                       (thread-pool-request-timeout 10))
+
                     (start-guix-data-service-web-server
                      (assq-ref opts 'port)
                      (assq-ref opts 'host)