diff options
| author | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-03 17:34:16 +0100 |
|---|---|---|
| committer | Tom Smeding <t.j.smeding@uu.nl> | 2025-03-03 17:34:16 +0100 |
| commit | cabd95c691e7bf0bf5adb4609e6df2a10b08856c (patch) | |
| tree | 0a9216f89afd28614940dae940a86334b41e5572 /src/Compile.hs | |
| parent | e34869318cd37fa73c12291141a5fea29248aede (diff) | |
Run test primals with Compile (not all succeed yet)
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 4c07f3a..d31c531 100644 --- a/src/Compile.hs +++ b/src/Compile.hs @@ -48,7 +48,7 @@ compile :: SList STy env -> Ex env t -> IO (SList Value env -> IO (Rep t)) compile = \env expr -> do let source = compileToString env expr - hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ source ++ "\x1B[0m>>>" + -- hPutStrLn stderr $ "Generated C source: <<<\n\x1B[2m" ++ source ++ "\x1B[0m>>>" lib <- buildKernel source ["kernel"] let arg_metrics = reverse (unSList metricsSTy env) |