04/05: Fix some select-build-servers calls

[Christopher Baines]

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

commit 8a8dccf2d8e188191abe8064cdbcee845f5953ab
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Dec 4 11:09:46 2023 +0000

    Fix some select-build-servers calls
---
 guix-data-service/web/build-server/controller.scm | 2 +-
 guix-data-service/web/build/controller.scm        | 4 ++--
 guix-data-service/web/revision/controller.scm     | 3 ++-
 3 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/guix-data-service/web/build-server/controller.scm 
b/guix-data-service/web/build-server/controller.scm
index df3f3d7..e759fc8 100644
--- a/guix-data-service/web/build-server/controller.scm
+++ b/guix-data-service/web/build-server/controller.scm
@@ -326,7 +326,7 @@
   (match method-and-path-components
     (('GET "build-servers")
      (let ((build-servers
-            (with-resource-from-pool (connection-pool) conn
+            (call-with-resource-from-pool (connection-pool)
               select-build-servers)))
        (render-build-servers mime-types
                              build-servers)))
diff --git a/guix-data-service/web/build/controller.scm 
b/guix-data-service/web/build/controller.scm
index 44b3380..bf77e03 100644
--- a/guix-data-service/web/build/controller.scm
+++ b/guix-data-service/web/build/controller.scm
@@ -42,8 +42,8 @@
 (define parse-build-server
   (lambda (v)
     (letpar& ((build-servers
-               (with-resource-from-pool (connection-pool) conn
-                select-build-servers)))
+               (call-with-resource-from-pool (connection-pool)
+                 select-build-servers)))
       (or (any (match-lambda
                  ((id url lookup-all-derivations? lookup-builds?)
                   (if (eq? (string->number v)
diff --git a/guix-data-service/web/revision/controller.scm 
b/guix-data-service/web/revision/controller.scm
index 938f55c..d4b741f 100644
--- a/guix-data-service/web/revision/controller.scm
+++ b/guix-data-service/web/revision/controller.scm
@@ -85,7 +85,8 @@
 
 (define (parse-build-server v)
   (letpar& ((build-servers
-             (with-resource-from-pool (connection-pool) conn 
select-build-servers)))
+             (call-with-resource-from-pool (connection-pool)
+               select-build-servers)))
     (or (any (match-lambda
                ((id url lookup-all-derivations? lookup-builds?)
                 (if (eq? (string->number v)