From 1c7539418743e0dfe3a9cad22c414fd732daef8f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Wed, 26 Jul 2023 10:11:00 +0100 Subject: Fix issues with with-resource-from-pool --- guix-data-service/web/repository/controller.scm | 21 ++++++++++----------- 1 file changed, 10 insertions(+), 11 deletions(-) diff --git a/guix-data-service/web/repository/controller.scm b/guix-data-service/web/repository/controller.scm index 375ea23..e1a9b9c 100644 --- a/guix-data-service/web/repository/controller.scm +++ b/guix-data-service/web/repository/controller.scm @@ -620,11 +620,11 @@ package-derivations)))))) (else (letpar& ((systems - (with-resource-from-pool (connection-pool) conn - list-systems)) + (call-with-resource-from-pool (connection-pool) + list-systems)) (targets - (with-resource-from-pool (connection-pool) conn - valid-targets))) + (call-with-resource-from-pool (connection-pool) + valid-targets))) (render-html #:sxml (view-branch-package-derivations parsed-query-parameters @@ -667,9 +667,8 @@ package-name output-name))) (build-server-urls - (call-with-resource-from-pool - (connection-pool) - select-build-server-urls-by-id))) + (call-with-resource-from-pool (connection-pool) + select-build-server-urls-by-id))) (case (most-appropriate-mime-type '(application/json text/html) mime-types) @@ -696,11 +695,11 @@ package-outputs)))))) (else (letpar& ((systems - (with-resource-from-pool (connection-pool) conn - list-systems)) + (call-with-resource-from-pool (connection-pool) + list-systems)) (targets - (with-resource-from-pool (connection-pool) conn - valid-targets))) + (call-with-resource-from-pool (connection-pool) + valid-targets))) (render-html #:sxml (view-branch-package-outputs parsed-query-parameters -- cgit v1.2.3