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

Avoid quotes in tree output

Browse Source
This commit is contained in:
George Thomas 2026-01-08 00:50:51 +00:00
parent 23e82c069f
commit 1de4fcd028
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
haskell/Main.hs
View File

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