aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-12-04 11:09:46 +0000
committerChristopher Baines <mail@cbaines.net>2023-12-04 11:09:46 +0000
commit8a8dccf2d8e188191abe8064cdbcee845f5953ab (patch)
treebe4642f18ed20ab83d5078dbca3715e997f39845
parenta3ec1f326d13024ade43f2ab6e6db9b392cc31f1 (diff)
downloaddata-service-8a8dccf2d8e188191abe8064cdbcee845f5953ab.tar
data-service-8a8dccf2d8e188191abe8064cdbcee845f5953ab.tar.gz
Fix some select-build-servers calls
-rw-r--r--guix-data-service/web/build-server/controller.scm2
-rw-r--r--guix-data-service/web/build/controller.scm4
-rw-r--r--guix-data-service/web/revision/controller.scm3
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)