cbaines pushed a commit to branch master in repository data-service. commit 68085323388cf75e8ec2756a4f11a7005c7cd430 Author: Christopher Baines <m...@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))