Fix some select-build-servers calls
This commit is contained in:
parent
a3ec1f326d
commit
8a8dccf2d8
|
@ -326,7 +326,7 @@
|
|||
(match method-and-path-components
|
||||
(('GET "build-servers")
|
||||
(let ((build-servers
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-servers)))
|
||||
(render-build-servers mime-types
|
||||
build-servers)))
|
||||
|
|
|
@ -42,7 +42,7 @@
|
|||
(define parse-build-server
|
||||
(lambda (v)
|
||||
(letpar& ((build-servers
|
||||
(with-resource-from-pool (connection-pool) conn
|
||||
(call-with-resource-from-pool (connection-pool)
|
||||
select-build-servers)))
|
||||
(or (any (match-lambda
|
||||
((id url lookup-all-derivations? lookup-builds?)
|
||||
|
|
|
@ -85,7 +85,8 @@
|
|||
|
||||
(define (parse-build-server v)
|
||||
(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
|
||||
((id url lookup-all-derivations? lookup-builds?)
|
||||
(if (eq? (string->number v)
|
||||
|
|
Loading…
Reference in New Issue