@@ -130,10 +130,17 @@ compileModule packageState deps tmr =
130130 let pm = tm_parsed_module tm
131131 let pm' = pm{pm_mod_summary = tweak $ pm_mod_summary pm}
132132 let tm' = tm{tm_parsed_module = pm'}
133− GHC.dm_core_module <$> GHC.desugarModule tm'
133+ timer <- liftIO offsetTime
134+ r <- GHC.dm_core_module <$> GHC.desugarModule tm'
135+ time <- liftIO timer
136+ liftIO $ T.hPutStrLn stderr $ T.pack $ "desugarModule: " <> show time
137+ pure r
134138
135139 -- give variables unique OccNames
140+ timer <- liftIO offsetTime
136141 (tidy, details) <- liftIO $ tidyProgram session desugar
142+ time <- liftIO timer
143+ liftIO $ T.hPutStrLn stderr $ T.pack $ "tidyProgram: " <> show time
137144
138145 let core = CoreModule
139146 (cg_module tidy)