From bfb4ff31012cb14694db9a78261e62536f98e2d5 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 14 Aug 2024 19:59:04 +0100 Subject: Include the pool name in the resource pool timeout exception --- guix-data-service/utils.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'guix-data-service') 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) -- cgit v1.2.3