diff options
| -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) |