Commit a985eb21 authored by Simon Marlow's avatar Simon Marlow
Browse files

don't qualify module name for importedSrcLoc

parent 8eb5a108
......@@ -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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment