From 9246597b49a90118612c741ee86e2a2171db14c8 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Tue, 6 Jan 2026 18:54:40 +0000 Subject: [PATCH] Render ASCII drawing of test tree --- haskell/Main.hs | 2 +- haskell/Pre.hs | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) 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,