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

Minor refactor

Browse Source
This commit is contained in:
George Thomas 2026-01-06 23:16:08 +00:00
parent 83b14ed6ed
commit a7f7a2506f
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

@ -20,7 +20,7 @@ import System.Console.Terminal.Size qualified as Terminal.Size
main :: IO () main :: IO ()
main = do 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 terminalWidth <- pure $ Just 60
putStrLn $ drawTree $ show <$> getTestTree tests putStrLn $ drawTree $ show <$> getTestTree tests
TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests () tests TL.putStrLn . displayTestResultsConsole terminalWidth =<< runTests () tests