Fix the system tests page
This commit is contained in:
parent
a75c998739
commit
fc715d9613
1 changed files with 6 additions and 5 deletions
|
|
@ -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
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue