aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/web
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-07-26 10:11:00 +0100
committerChristopher Baines <mail@cbaines.net>2023-07-26 10:11:00 +0100
commit1c7539418743e0dfe3a9cad22c414fd732daef8f (patch)
tree029f6c2f7adb5e55ccd7770d091134e3cb086959 /guix-data-service/web
parentabe50b044378cf1a838410cb8b1ce723e3c4ff4d (diff)
downloaddata-service-1c7539418743e0dfe3a9cad22c414fd732daef8f.tar
data-service-1c7539418743e0dfe3a9cad22c414fd732daef8f.tar.gz
Fix issues with with-resource-from-pool
Diffstat (limited to 'guix-data-service/web')
-rw-r--r--guix-data-service/web/repository/controller.scm21
1 files 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