diff --git a/haskell/Main.hs b/haskell/Main.hs
index c200a47..e804462 100644
--- a/haskell/Main.hs
+++ b/haskell/Main.hs
@@ -19,7 +19,7 @@ import Text.Pretty.Simple (pPrintForceColor)
 
 main :: IO ()
 main = do
-    pPrintForceColor $ getTestTree tests
+    putStrLn $ drawTree $ show <$> getTestTree tests
     pPrintForceColor =<< runTests () tests
 
 tests :: TestTree IO ()
diff --git a/haskell/Pre.hs b/haskell/Pre.hs
index bef2906..002a0f5 100644
--- a/haskell/Pre.hs
+++ b/haskell/Pre.hs
@@ -27,6 +27,7 @@ module Pre (
     module Data.Text,
     module Data.Text.Encoding,
     module Data.Traversable,
+    module Data.Tree,
     module Data.Tuple.Extra,
     module Data.Void,
     module Data.Word,