diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-07-20 16:12:00 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-07-20 16:12:00 +0100 |
| commit | 6e4d436d7548108f78d279658292f034d447a09e (patch) | |
| tree | fb7f551c079d50c10f6e892b1e3499e8af10f9ca /guix-data-service/web/revision | |
| parent | ce1480edf44a7d2db30a05eb47ad812c00839659 (diff) | |
| download | data-service-6e4d436d7548108f78d279658292f034d447a09e.tar data-service-6e4d436d7548108f78d279658292f034d447a09e.tar.gz | |
Fix some uses of select-build-server-urls-by-id
Diffstat (limited to 'guix-data-service/web/revision')
| -rw-r--r-- | guix-data-service/web/revision/controller.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index 9cfddd4..f55b0e0 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -1066,8 +1066,8 @@ #:after-name (assq-ref query-parameters 'after_name) #:include-builds? (member "builds" fields))))) (build-server-urls - (with-resource-from-pool (connection-pool) conn - select-build-server-urls-by-id))) + (call-with-resource-from-pool (connection-pool) + select-build-server-urls-by-id))) (let ((show-next-page? (if all-results #f @@ -1178,8 +1178,8 @@ #:after-derivation-file-name (assq-ref query-parameters 'after_name)))) (build-server-urls - (with-resource-from-pool (connection-pool) conn - select-build-server-urls-by-id))) + (call-with-resource-from-pool (connection-pool) + select-build-server-urls-by-id))) (let ((show-next-page? (if all-results #f |