05/09: Close unused PostgreSQL connections

[Christopher Baines]

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

commit 68085323388cf75e8ec2756a4f11a7005c7cd430
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Apr 1 22:20:46 2024 +0100

    Close unused PostgreSQL connections
    
    As they take up memory, so free some by closing them.
---
 guix-data-service/web/server.scm | 12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/web/server.scm b/guix-data-service/web/server.scm
index b73b186..e86b97b 100644
--- a/guix-data-service/web/server.scm
+++ b/guix-data-service/web/server.scm
@@ -109,7 +109,11 @@
                    (open-postgresql-connection
                     "web"
                     postgresql-statement-timeout))
-                 (floor (/ postgresql-connections 2))))
+                 (floor (/ postgresql-connections 2))
+                 #:idle-seconds 30
+                 #:destructor
+                 (lambda (conn)
+                   (close-postgresql-connection conn "web"))))
 
                (reserved-connection-pool
                 (make-resource-pool
@@ -117,7 +121,11 @@
                    (open-postgresql-connection
                     "web-reserved"
                     postgresql-statement-timeout))
-                 (floor (/ postgresql-connections 2))))
+                 (floor (/ postgresql-connections 2))
+                 #:idle-seconds 600
+                 #:destructor
+                 (lambda (conn)
+                   (close-postgresql-connection conn "web-reserved"))))
 
                (resource-pool-default-timeout 5))