Avoid quotes in tree output
This commit is contained in:
parent
23e82c069f
commit
1de4fcd028
@ -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 ()
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user