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))))))
(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