diff options
Diffstat (limited to 'guix-data-service/web/build/controller.scm')
-rw-r--r-- | guix-data-service/web/build/controller.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-data-service/web/build/controller.scm b/guix-data-service/web/build/controller.scm index 44b3380..bf77e03 100644 --- a/guix-data-service/web/build/controller.scm +++ b/guix-data-service/web/build/controller.scm @@ -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) |