Fix the system tests page

This commit is contained in:
Christopher Baines 2025-06-22 14:56:55 +01:00
parent a75c998739
commit fc715d9613

View file

@ -545,11 +545,12 @@
system-tests)))))) system-tests))))))
(else (else
(fibers-let ((git-repositories (fibers-let ((git-repositories
(with-resource-from-pool (connection-pool) conn (with-resource-from-pool (connection-pool) conn
(git-repositories-containing-commit conn (git-repositories-containing-commit conn
commit-hash))) commit-hash)))
(systems (systems
(with-resource-from-pool (connection-pool) conn list-systems))) (call-with-resource-from-pool (connection-pool)
list-systems)))
(render-html (render-html
#:sxml (view-revision-system-tests #:sxml (view-revision-system-tests
commit-hash commit-hash