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

Close unused PostgreSQL connections

Browse source 
As they take up memory, so free some by closing them.
This commit is contained in:
Christopher Baines 2024-04-01 22:20:46 +01:00
parent 9fcd615c1f
commit 6808532338
1 changed files with 10 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

12
guix-data-service/web/server.scm
View file

@ -109,7 +109,11 @@
(open-postgresql-connection (open-postgresql-connection
"web" "web"
postgresql-statement-timeout)) 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 (reserved-connection-pool
(make-resource-pool (make-resource-pool
@ -117,7 +121,11 @@
(open-postgresql-connection (open-postgresql-connection
"web-reserved" "web-reserved"
postgresql-statement-timeout)) 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)) (resource-pool-default-timeout 5))