From 8a8dccf2d8e188191abe8064cdbcee845f5953ab Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 4 Dec 2023 11:09:46 +0000 Subject: 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(-) (limited to 'guix-data-service/web') 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) -- cgit v1.2.3