@@ -147,7 +147,8 @@ compile number filePath =
147 Left errors -> do Print.errors errors
147 Left errors -> do Print.errors errors
148 exitFailure
148 exitFailure
150+ liftIO $ when (Flag.print_types flags) $ do
150− liftIO $ when (Flag.print_types flags) $ Print.moduleTypes interfaces canonicalModule
151+ Print.moduleTypes interfaces canonicalModule
152 let newInters = Module.toInterface canonicalModule
153 let newInters = Module.toInterface canonicalModule
153 generateCache name newInters canonicalModule
154 generateCache name newInters canonicalModule