diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-12-04 11:09:46 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-12-04 11:09:46 +0000 |
| commit | 8a8dccf2d8e188191abe8064cdbcee845f5953ab (patch) | |
| tree | be4642f18ed20ab83d5078dbca3715e997f39845 /guix-data-service/web/revision | |
| parent | a3ec1f326d13024ade43f2ab6e6db9b392cc31f1 (diff) | |
| download | data-service-8a8dccf2d8e188191abe8064cdbcee845f5953ab.tar data-service-8a8dccf2d8e188191abe8064cdbcee845f5953ab.tar.gz | |
Fix some select-build-servers calls
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 938f55c..d4b741f 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -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) |