guix
/
data-service
mirror of git://git.savannah.gnu.org/guix/data-service.git
2
0
Fork 0
Code Issues Releases Wiki Activity

Fix some select-build-servers calls

This commit is contained in:
Christopher Baines 2023-12-04 11:09:46 +00:00
parent a3ec1f326d
commit 8a8dccf2d8
3 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
guix-data-service/web/build-server/controller.scm
View File

@ -326,7 +326,7 @@
(match method-and-path-components (match method-and-path-components
(('GET "build-servers") (('GET "build-servers")
(let ((build-servers (let ((build-servers
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-servers))) select-build-servers)))
(render-build-servers mime-types (render-build-servers mime-types
build-servers))) build-servers)))

4
guix-data-service/web/build/controller.scm
View File

@ -42,8 +42,8 @@
(define parse-build-server (define parse-build-server
(lambda (v) (lambda (v)
(letpar& ((build-servers (letpar& ((build-servers
(with-resource-from-pool (connection-pool) conn (call-with-resource-from-pool (connection-pool)
select-build-servers))) select-build-servers)))
(or (any (match-lambda (or (any (match-lambda
((id url lookup-all-derivations? lookup-builds?) ((id url lookup-all-derivations? lookup-builds?)
(if (eq? (string->number v) (if (eq? (string->number v)

3
guix-data-service/web/revision/controller.scm
View File

@ -85,7 +85,8 @@
(define (parse-build-server v) (define (parse-build-server v)
(letpar& ((build-servers (letpar& ((build-servers
(with-resource-from-pool (connection-pool) conn select-build-servers))) (call-with-resource-from-pool (connection-pool)
select-build-servers)))
(or (any (match-lambda (or (any (match-lambda
((id url lookup-all-derivations? lookup-builds?) ((id url lookup-all-derivations? lookup-builds?)
(if (eq? (string->number v) (if (eq? (string->number v)