diff options
Diffstat (limited to 'src')
| -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"] |