Avoid quotes in tree output

This commit is contained in:
George Thomas 2026-01-08 00:50:51 +00:00
parent 23e82c069f
commit 1de4fcd028

View File

@ -23,7 +23,7 @@ main :: IO ()
main = do
-- terminalWidth <- Terminal.Size.width <<$>> Terminal.Size.size -- TODO this doesn't work in GHCID or GHCIWatch...
terminalWidth <- pure $ Just 62
putStrLn $ drawTree $ show <$> getTestTree tests
putStrLn $ drawTree $ T.unpack <$> getTestTree tests
TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests () tests
tests :: TestTree IO ()