02/16: Include the pool name in the resource pool timeout exception

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit bfb4ff31012cb14694db9a78261e62536f98e2d5
Author: Christopher Baines <m...@cbaines.net>
AuthorDate: Wed Aug 14 19:59:04 2024 +0100

    Include the pool name in the resource pool timeout exception
---
 guix-data-service/utils.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/guix-data-service/utils.scm b/guix-data-service/utils.scm
index 0f9d4c8..9926478 100644
--- a/guix-data-service/utils.scm
+++ b/guix-data-service/utils.scm
@@ -360,7 +360,7 @@
 (define &resource-pool-timeout
   (make-exception-type '&recource-pool-timeout
                        &error
-                       '()))
+                       '(name)))
 
 (define make-resource-pool-timeout-error
   (record-constructor &resource-pool-timeout))
@@ -431,7 +431,7 @@ available.  Return the resource once PROC has returned."
         (timeout-handler pool proc timeout))
 
       (raise-exception
-       (make-resource-pool-timeout-error)))
+       (make-resource-pool-timeout-error (resource-pool-name pool))))
 
     (with-exception-handler
         (lambda (exception)