diff options
| author | Tom Smeding <tom@tomsmeding.com> | 2025-03-27 12:52:23 +0100 |
|---|---|---|
| committer | Tom Smeding <tom@tomsmeding.com> | 2025-03-27 12:52:23 +0100 |
| commit | cfe2aad01ceab3698755162a1d48a2dd8f882b19 (patch) | |
| tree | 4b199f5a8f86df46e0a30dff17e1630ae2eb997c /src/Compile.hs | |
| parent | ff59a9541ce8b978424a07c54476e2d2a63a40ad (diff) | |
Compile: Fix debugPrintAST formatting
Diffstat (limited to 'src/Compile.hs')
| -rw-r--r-- | src/Compile.hs | 2 |
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"] |