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

Stop opening a PostgreSQL connection per request

Browse source 
This was good in that it avoided having to deal with long running connections,
but it probably takes some time to open the connection, and these changes are
a step towards offloading the PostgreSQL queries to other threads, so they
don't block the threads for fibers.
This commit is contained in:
Christopher Baines 2020-10-03 09:22:29 +01:00
parent 9723a18df4
commit 18b6dd9e6d
3 changed files with 16 additions and 20 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -29,8 +29,7 @@
#:use-module (guix-data-service web util)
#:export (start-guix-data-service-web-server))
(define (handler request body controller secret-key-base
postgresql-statement-timeout)
(define (handler request body controller secret-key-base)
(display
(format #f "~a ~a\n"
(request-method request)
@ -43,18 +42,14 @@
request-components)
mime-types
body
secret-key-base
#:postgresql-statement-timeout
postgresql-statement-timeout))))
secret-key-base))))
(define* (start-guix-data-service-web-server port host secret-key-base
#:key postgresql-statement-timeout)
(define* (start-guix-data-service-web-server port host secret-key-base)
(call-with-error-handling
(lambda ()
(run-server (lambda (request body)
(handler request body controller
secret-key-base
postgresql-statement-timeout))
secret-key-base))
#:host host
#:port port))
#:on-error 'backtrace