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

Fix some uses of select-build-server-urls-by-id

Browse source
This commit is contained in:
Christopher Baines 2023-07-20 16:12:00 +01:00
parent ce1480edf4
commit 6e4d436d75
2 changed files with 14 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

20
guix-data-service/web/compare/controller.scm
View file

@ -703,8 +703,8 @@
#:after-name after-name #:after-name after-name
#:limit-results limit-results))) #:limit-results limit-results)))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id))) select-build-server-urls-by-id)))
(let ((names-and-versions (let ((names-and-versions
(package-derivation-data->names-and-versions data))) (package-derivation-data->names-and-versions data)))
(let-values (let-values
@ -936,8 +936,8 @@
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
list-systems)) list-systems))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id))) select-build-server-urls-by-id)))
(render-html (render-html
#:sxml (compare/system-test-derivations #:sxml (compare/system-test-derivations
query-parameters query-parameters
@ -959,8 +959,8 @@
(commit->revision-id conn target-commit) (commit->revision-id conn target-commit)
system))) system)))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id)) select-build-server-urls-by-id))
(base-git-repositories (base-git-repositories
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
(git-repositories-containing-commit conn base-commit))) (git-repositories-containing-commit conn base-commit)))
@ -1006,8 +1006,8 @@
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
list-systems)) list-systems))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id))) select-build-server-urls-by-id)))
(render-html (render-html
#:sxml (compare/system-test-derivations #:sxml (compare/system-test-derivations
query-parameters query-parameters
@ -1042,8 +1042,8 @@
(first target-revision-details) (first target-revision-details)
system))) system)))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id)) select-build-server-urls-by-id))
(base-git-repositories (base-git-repositories
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
(git-repositories-containing-commit (git-repositories-containing-commit

8
guix-data-service/web/revision/controller.scm
View file

@ -1066,8 +1066,8 @@
#:after-name (assq-ref query-parameters 'after_name) #:after-name (assq-ref query-parameters 'after_name)
#:include-builds? (member "builds" fields))))) #:include-builds? (member "builds" fields)))))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id))) select-build-server-urls-by-id)))
(let ((show-next-page? (let ((show-next-page?
(if all-results (if all-results
#f #f
@ -1178,8 +1178,8 @@
#:after-derivation-file-name #:after-derivation-file-name
(assq-ref query-parameters 'after_name)))) (assq-ref query-parameters 'after_name))))
(build-server-urls (build-server-urls
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-server-urls-by-id))) select-build-server-urls-by-id)))
(let ((show-next-page? (let ((show-next-page?
(if all-results (if all-results
#f #f