From cfe2aad01ceab3698755162a1d48a2dd8f882b19 Mon Sep 17 00:00:00 2001
From: Tom Smeding <tom@tomsmeding.com>
Date: Thu, 27 Mar 2025 12:52:23 +0100
Subject: Compile: Fix debugPrintAST formatting

---
 src/Compile.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Compile.hs b/src/Compile.hs
index 4e60ace..2652ed4 100644
--- a/src/Compile.hs
+++ b/src/Compile.hs
@@ -70,7 +70,7 @@ compile :: SList STy env -> Ex env t
         -> IO (SList Value env -> IO (Rep t))
 compile = \env expr -> do
   let source = compileToString env expr
-  when debugPrintAST $ hPutStrLn stderr $ "Compiled AST: <<<\n\x1B[2m" ++ ppExpr env expr ++ "\x1B[0m>>>"
+  when debugPrintAST $ hPutStrLn stderr $ "Compiled AST: <<<\n" ++ ppExpr env expr ++ "\n>>>"
   when debugCSource $ hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ source ++ "\x1B[0m>>>"
   lib <- buildKernel source ["kernel"]
 
-- 
cgit v1.2.3-70-g09d2