From: Simon Marlow <simonmar@microsoft.com>
Date: Wed, 23 Aug 2006 09:52:25 +0000 (+0000)
Subject: In the Compiling/Skipping message, print ModuleNames not Modules
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=20f9bf2e066bd22d15a72d6e5efe92c6323bcdbe;hp=2fed3e94049de8f31da7e0586e719d7f29398428

In the Compiling/Skipping message, print ModuleNames not Modules
These modules are always home modules, by definition, so the package
name is redundant.
---

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}