Use the connection pool for build events
I'm not sure why this wasn't the way it worked previously. This should avoid unconstrained use of PostgreSQL connections.
This commit is contained in:
parent
9f102dbd39
commit
f2e2ca7a07
|
@ -121,9 +121,7 @@
|
|||
(define (spawn-fiber-for-handler handler)
|
||||
(spawn-fiber
|
||||
(lambda ()
|
||||
(with-postgresql-connection
|
||||
"build-event-handler-conn"
|
||||
(lambda (conn)
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
(with-exception-handler
|
||||
(lambda (exn)
|
||||
(simple-format
|
||||
|
@ -137,7 +135,7 @@
|
|||
(lambda _
|
||||
(display (backtrace) (current-error-port))
|
||||
(display "\n" (current-error-port)))))
|
||||
#:unwind? #t))))))
|
||||
#:unwind? #t)))))
|
||||
|
||||
(define (with-build-ids-for-status data
|
||||
build-ids
|
||||
|
|
Loading…
Reference in New Issue