diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-08-14 19:59:04 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-08-14 19:59:36 +0100 |
| commit | bfb4ff31012cb14694db9a78261e62536f98e2d5 (patch) | |
| tree | 7d4fd5e87f2d0370bbe6a1ca4af48aa63fce3030 /guix-data-service | |
| parent | e2e158e33b14c28d0994ee91de3c08209aaca629 (diff) | |
| download | data-service-bfb4ff31012cb14694db9a78261e62536f98e2d5.tar data-service-bfb4ff31012cb14694db9a78261e62536f98e2d5.tar.gz | |
Include the pool name in the resource pool timeout exception
Diffstat (limited to 'guix-data-service')
| -rw-r--r-- | guix-data-service/utils.scm | 4 |
1 files 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) |