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

Switch dynamic-wind for with-throw-handler

Browse source 
Not sure why, but dynamic-wind was causing issues by closing the database
connection too early, but with-throw-handler seems to work OK.
This commit is contained in:
Christopher Baines 2019-03-24 17:32:03 +00:00
parent 2b1142b424
commit 800c850276
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
1 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -33,11 +33,13 @@
(define (with-postgresql-connection paramstring f) (define (with-postgresql-connection paramstring f)
(let* ((conn (connect-to-postgres-paramstring paramstring))) (let* ((conn (connect-to-postgres-paramstring paramstring)))
(dynamic-wind (with-throw-handler
(const #t) #t
(lambda ()
(f conn))
(lambda () (lambda ()
(let ((result (f conn)))
(pg-conn-finish conn)
result))
(lambda (key . args)
(pg-conn-finish conn))))) (pg-conn-finish conn)))))
(define (run-controller controller request body) (define (run-controller controller request body)