diff --git a/guix-data-service/web/revision/controller.scm b/guix-data-service/web/revision/controller.scm index b22fbed..9d900d7 100644 --- a/guix-data-service/web/revision/controller.scm +++ b/guix-data-service/web/revision/controller.scm @@ -545,11 +545,12 @@ system-tests)))))) (else (fibers-let ((git-repositories - (with-resource-from-pool (connection-pool) conn - (git-repositories-containing-commit conn - commit-hash))) - (systems - (with-resource-from-pool (connection-pool) conn list-systems))) + (with-resource-from-pool (connection-pool) conn + (git-repositories-containing-commit conn + commit-hash))) + (systems + (call-with-resource-from-pool (connection-pool) + list-systems))) (render-html #:sxml (view-revision-system-tests commit-hash