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 ()