Populate accumMapHEADmaster

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Compile.hs b/src/Compile.hs
index 7bbb043..2a184f7 100644
--- a/src/Compile.hs
+++ b/src/Compile.hs
@@ -7,7 +7,7 @@
 {-# LANGUAGE MultiWayIf #-}
 {-# LANGUAGE PolyKinds #-}
 {-# LANGUAGE TypeApplications #-}
-module Compile (compile, debugCSource, debugRefc, emitChecks) where
+module Compile (compile) where
 
 import Control.Applicative (empty)
 import Control.Monad (forM_, when, replicateM)
@@ -71,7 +71,7 @@ compile :: SList STy env -> Ex env t
 compile = \env expr -> do
   let source = compileToString env expr
   when debugPrintAST $ hPutStrLn stderr $ "Compiled AST: <<<\n" ++ ppExpr env expr ++ "\n>>>"
-  when debugCSource $ hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ source ++ "\x1B[0m>>>"
+  when debugCSource $ hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ lineNumbers source ++ "\x1B[0m>>>"
   lib <- buildKernel source ["kernel"]
 
   let arg_metrics = reverse (unSList metricsSTy env)