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

Show backtraces when using parallel fibers and resource pools

Browse source
This commit is contained in:
Christopher Baines 2024-01-18 14:40:05 +00:00
parent 5af6233e5b
commit 46b4c87e92
1 changed files with 11 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
guix-data-service/utils.scm
View file

@ -386,8 +386,12 @@ available. Return the resource once PROC has returned."
(raise-exception exception))
(lambda ()
(call-with-values
(lambda ()
(with-throw-handler #t
(lambda ()
(proc resource))
(lambda _
(backtrace))))
(lambda vals
(put-message pool `(return ,resource))
(apply values vals))))
@ -433,7 +437,12 @@ available. Return the resource once PROC has returned."
(lambda (exn)
(put-message reply (cons 'exception exn)))
(lambda ()
(call-with-values thunk
(call-with-values
(lambda ()
(with-throw-handler #t
thunk
(lambda _
(backtrace))))
(lambda vals
(put-message reply vals))))
#:unwind? #t))