patrickaldis/garnet
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Render ASCII drawing of test tree

Browse Source
This commit is contained in:
George Thomas 2026-01-06 18:54:40 +00:00
parent ce8cfeca67
commit 9246597b49
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haskell/Main.hs
View File

@ -19,7 +19,7 @@ import Text.Pretty.Simple (pPrintForceColor)
main :: IO () main :: IO ()
main = do main = do
pPrintForceColor $ getTestTree tests putStrLn $ drawTree $ show <$> getTestTree tests
pPrintForceColor =<< runTests () tests pPrintForceColor =<< runTests () tests
tests :: TestTree IO () tests :: TestTree IO ()

1
haskell/Pre.hs
View File

@ -27,6 +27,7 @@ module Pre (
module Data.Text, module Data.Text,
module Data.Text.Encoding, module Data.Text.Encoding,
module Data.Traversable, module Data.Traversable,
module Data.Tree,
module Data.Tuple.Extra, module Data.Tuple.Extra,
module Data.Void, module Data.Void,
module Data.Word, module Data.Word,