X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2Fmain%2FHscTypes.lhs;h=793b56de5b73e93f13d54678593a45115281d95d;hb=1717c5831d71bfa63f9d098a2a709feb2d8fbcc9;hp=9bc5fb1f716c46dc5a7be12f98e4c9c02f04348f;hpb=26637fd8651f55fd424f3f6190220335ab5b80e9;p=ghc-hetmet.git

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}