shithub: MicroHs

Info  •  Files  •  Log  •  Branches

More debug

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

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

@@ -154,6 +154,8 @@

   let pmdl = parseDie pTop pathfn file

       mdl@(EModule mnn _ defs) = addPreludeImport pmdl

   when (verbosityGT flags 4) $

+    liftIO $ putStrLn $ "parsing: " ++ pathfn

+  when (verbosityGT flags 4) $

     liftIO $ putStrLn $ "parsed:\n" ++ show pmdl

   -- liftIO $ putStrLn $ showEModule mdl

-- 

⑨