From 20f9bf2e066bd22d15a72d6e5efe92c6323bcdbe Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Wed, 23 Aug 2006 09:52:25 +0000 Subject: [PATCH] In the Compiling/Skipping message, print ModuleNames not Modules These modules are always home modules, by definition, so the package name is redundant. --- compiler/main/HscTypes.lhs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/compiler/main/HscTypes.lhs b/compiler/main/HscTypes.lhs index 9bc5fb1..793b56d 100644 --- a/compiler/main/HscTypes.lhs +++ b/compiler/main/HscTypes.lhs @@ -1064,7 +1064,7 @@ showModMsg target recomp mod_summary _other -> text (msObjFilePath mod_summary), char ')']) where - mod = ms_mod mod_summary + mod = moduleName (ms_mod mod_summary) mod_str = showSDoc (ppr mod) ++ hscSourceString (ms_hsc_src mod_summary) \end{code} -- 1.7.10.4