From 1de4fcd028fd27874dd15f13f9a4e81528effb58 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Thu, 8 Jan 2026 00:50:51 +0000 Subject: [PATCH] Avoid quotes in tree output --- haskell/Main.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/haskell/Main.hs b/haskell/Main.hs index d754bf5..3678f01 100644 --- a/haskell/Main.hs +++ b/haskell/Main.hs @@ -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 ()