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

Fix some select-build-servers calls

Browse source
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
Download patch file Download diff file Expand all files Collapse all files

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

@ -42,8 +42,8 @@
(define parse-build-server
(lambda (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)