From: Simon Marlow <simonmar@microsoft.com>
Date: Fri, 11 Aug 2006 10:13:27 +0000 (+0000)
Subject: don't qualify module name for importedSrcLoc
X-Git-Tag: Before_FC_branch_merge~225
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a985eb214dc777cccba85883cb24181fe188fe9c

don't qualify module name for importedSrcLoc
---

diff --git a/compiler/iface/LoadIface.lhs b/compiler/iface/LoadIface.lhs
index 8bcf987..51b540c 100644
--- a/compiler/iface/LoadIface.lhs
+++ b/compiler/iface/LoadIface.lhs
@@ -315,7 +315,8 @@ loadDecl ignore_prags mod (_version, decl)
 	-- imported name, to fix the module correctly in the cache
     mk_new_bndr mod mb_parent occ 
 	= newGlobalBinder mod occ mb_parent 
-			  (importedSrcLoc (showSDoc (pprModule mod)))
+			  (importedSrcLoc (showSDoc (ppr (moduleName mod))))
+			-- ToDo: qualify with the package name if necessary
 
     doc = ptext SLIT("Declaration for") <+> ppr (ifName decl)