cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix issues with with-resource-from-pool

Browse source
This commit is contained in:
Christopher Baines 2023-07-26 10:11:00 +01:00
parent abe50b0443
commit 1c75394187
1 changed files with 10 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

21
guix-data-service/web/repository/controller.scm
View file

@ -620,11 +620,11 @@
package-derivations)))))) package-derivations))))))
(else (else
(letpar& ((systems (letpar& ((systems
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
list-systems)) list-systems))
(targets (targets
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
valid-targets))) valid-targets)))
(render-html (render-html
#:sxml (view-branch-package-derivations #:sxml (view-branch-package-derivations
parsed-query-parameters parsed-query-parameters
@ -667,9 +667,8 @@
package-name package-name
output-name))) output-name)))
(build-server-urls (build-server-urls
(call-with-resource-from-pool (call-with-resource-from-pool (connection-pool)
(connection-pool) select-build-server-urls-by-id)))
select-build-server-urls-by-id)))
(case (most-appropriate-mime-type (case (most-appropriate-mime-type
'(application/json text/html) '(application/json text/html)
mime-types) mime-types)
@ -696,11 +695,11 @@
package-outputs)))))) package-outputs))))))
(else (else
(letpar& ((systems (letpar& ((systems
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
list-systems)) list-systems))
(targets (targets
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
valid-targets))) valid-targets)))
(render-html (render-html
#:sxml (view-branch-package-outputs #:sxml (view-branch-package-outputs
parsed-query-parameters parsed-query-parameters