shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Dump combinators when really verbose.

--- a/src/MicroHs/Compile.hs

+++ b/src/MicroHs/Compile.hs

@@ -85,6 +85,8 @@

   t2 <- getTimeMilli

   when (verbose flags > 0) $

     putStrLn $ "combinator conversion " ++ padLeft 6 (show (t2-t1)) ++ "ms"

+  when (verbose flags > 3) $

+    putStrLn $ "combinators:\n" ++ showLDefs dsn

   return (dsn, ch')

 --compileTop :: Flags -> IdentModule -> IO [LDef]

-- 

⑨