projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
Refactoring
[ghc-hetmet.git]
/
compiler
/
ghci
/
GhciTags.hs
diff --git
a/compiler/ghci/GhciTags.hs
b/compiler/ghci/GhciTags.hs
index
686633e
..
4333f69
100644
(file)
--- a/
compiler/ghci/GhciTags.hs
+++ b/
compiler/ghci/GhciTags.hs
@@
-81,7
+81,7
@@
listTags :: PrintUnqualified -> GHC.ModuleInfo -> [TagInfo]
listTags unqual modInfo =
[ tagInfo unqual name loc
| name <- GHC.modInfoExports modInfo
- , let loc = nameSrcLoc name
+ , let loc = srcSpanStart (nameSrcSpan name)
, isGoodSrcLoc loc
]