From a985eb214dc777cccba85883cb24181fe188fe9c Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 11 Aug 2006 10:13:27 +0000 Subject: [PATCH] don't qualify module name for importedSrcLoc --- compiler/iface/LoadIface.lhs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- 1.7.10.4