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

Include the pool name in the resource pool timeout exception

Browse source
This commit is contained in:
Christopher Baines 2024-08-14 19:59:04 +01:00
parent e2e158e33b
commit bfb4ff3101
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -360,7 +360,7 @@
(define &resource-pool-timeout (define &resource-pool-timeout
(make-exception-type '&recource-pool-timeout (make-exception-type '&recource-pool-timeout
&error &error
'())) '(name)))
(define make-resource-pool-timeout-error (define make-resource-pool-timeout-error
(record-constructor &resource-pool-timeout)) (record-constructor &resource-pool-timeout))
@ -431,7 +431,7 @@ available. Return the resource once PROC has returned."
(timeout-handler pool proc timeout)) (timeout-handler pool proc timeout))
(raise-exception (raise-exception
(make-resource-pool-timeout-error))) (make-resource-pool-timeout-error (resource-pool-name pool))))
(with-exception-handler (with-exception-handler
(lambda (exception) (lambda (exception)