From fc715d9613b3696baf8ea01ccdd278836138845b Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 22 Jun 2025 14:56:55 +0100 Subject: [PATCH] Fix the system tests page --- guix-data-service/web/revision/controller.scm | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) 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