Fix some uses of select-build-server-urls-by-id
This commit is contained in:
parent
ce1480edf4
commit
6e4d436d75
|
@ -703,8 +703,8 @@
|
|||
#:after-name after-name
|
||||
#:limit-results limit-results)))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id)))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id)))
|
||||
(let ((names-and-versions
|
||||
(package-derivation-data->names-and-versions data)))
|
||||
(let-values
|
||||
|
@ -936,8 +936,8 @@
|
|||
(with-resource-from-pool (connection-pool) conn
|
||||
list-systems))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id)))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id)))
|
||||
(render-html
|
||||
#:sxml (compare/system-test-derivations
|
||||
query-parameters
|
||||
|
@ -959,8 +959,8 @@
|
|||
(commit->revision-id conn target-commit)
|
||||
system)))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id))
|
||||
(base-git-repositories
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
(git-repositories-containing-commit conn base-commit)))
|
||||
|
@ -1006,8 +1006,8 @@
|
|||
(with-resource-from-pool (connection-pool) conn
|
||||
list-systems))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id)))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id)))
|
||||
(render-html
|
||||
#:sxml (compare/system-test-derivations
|
||||
query-parameters
|
||||
|
@ -1042,8 +1042,8 @@
|
|||
(first target-revision-details)
|
||||
system)))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id))
|
||||
(base-git-repositories
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
(git-repositories-containing-commit
|
||||
|
|
|
@ -1066,8 +1066,8 @@
|
|||
#:after-name (assq-ref query-parameters 'after_name)
|
||||
#:include-builds? (member "builds" fields)))))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id)))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id)))
|
||||
(let ((show-next-page?
|
||||
(if all-results
|
||||
#f
|
||||
|
@ -1178,8 +1178,8 @@
|
|||
#:after-derivation-file-name
|
||||
(assq-ref query-parameters 'after_name))))
|
||||
(build-server-urls
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
select-build-server-urls-by-id)))
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-server-urls-by-id)))
|
||||
(let ((show-next-page?
|
||||
(if all-results
|
||||
#f
|
||||
|
|
Loading…
Reference in New Issue