Render ASCII drawing of test tree

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

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,