diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-26 10:11:00 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-26 10:11:00 +0100 |
| commit | 1c7539418743e0dfe3a9cad22c414fd732daef8f (patch) | |
| tree | 029f6c2f7adb5e55ccd7770d091134e3cb086959 /guix-data-service/web | |
| parent | abe50b044378cf1a838410cb8b1ce723e3c4ff4d (diff) | |
| download | data-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.scm | 21 |
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 |