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

Extract out opening PostgreSQL connections

Browse source 
So this can be reused.
This commit is contained in:
Christopher Baines 2020-10-03 08:55:56 +01:00
parent 470573b318
commit 1bdc8855ba
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/database.scm
View file

@ -44,7 +44,7 @@
(define pg-conn-finish
(@@ (squee) pg-conn-finish))
(define* (with-postgresql-connection name f #:key (statement-timeout #f))
(define (open-postgresql-connection name statement-timeout)
(define paramstring
(string-append
(or (getenv "GUIX_DATA_SERVICE_DATABASE_PARAMSTRING")
@ -62,8 +62,13 @@
conn
(simple-format #f "SET statement_timeout = ~A"
statement-timeout)))
conn))
(define* (with-postgresql-connection name f #:key (statement-timeout #f))
(let ((conn (open-postgresql-connection name statement-timeout)))
(with-throw-handler
#t
#t
(lambda ()
(call-with-values
(lambda ()