Minor refactor
This commit is contained in:
parent
83b14ed6ed
commit
a7f7a2506f
@ -20,7 +20,7 @@ import System.Console.Terminal.Size qualified as Terminal.Size
|
||||
|
||||
main :: IO ()
|
||||
main = do
|
||||
-- terminalWidth <- fmap 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 60
|
||||
putStrLn $ drawTree $ show <$> getTestTree tests
|
||||
TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests () tests
|
||||
|
||||
Loading…
x
Reference in New Issue
Block a user