Compile: Fix debugPrintAST formatting

1 files changed, 1 insertions, 1 deletions

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"]