From 0a9e6dfc1accf9dc0254f0c720f633dab6e71f42 Mon Sep 17 00:00:00 2001 From: Tom Smeding Date: Sun, 6 Apr 2025 17:07:22 +0200 Subject: Populate accumMap --- src/Compile.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'src/Compile.hs') 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) -- cgit v1.2.3-70-g09d2