projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Iface representation of synonym family instances
[ghc-hetmet.git]
/
compiler
/
iface
/
LoadIface.lhs
diff --git
a/compiler/iface/LoadIface.lhs
b/compiler/iface/LoadIface.lhs
index
7fa2f1f
..
e6c8f63
100644
(file)
--- a/
compiler/iface/LoadIface.lhs
+++ b/
compiler/iface/LoadIface.lhs
@@
-367,8
+367,7
@@
loadDecl ignore_prags mod (_version, decl)
-- * location
-- imported name, to fix the module correctly in the cache
mk_new_bndr mod occ
-- * location
-- imported name, to fix the module correctly in the cache
mk_new_bndr mod occ
- = newGlobalBinder mod occ
- (importedSrcLoc (showSDoc (ppr (moduleName mod))))
+ = newGlobalBinder mod occ (importedSrcSpan (moduleNameFS (moduleName mod)))
-- ToDo: qualify with the package name if necessary
doc = ptext SLIT("Declaration for") <+> ppr (ifName decl)
-- ToDo: qualify with the package name if necessary
doc = ptext SLIT("Declaration for") <+> ppr (ifName decl)