aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Backends/Xhtml
diff options
context:
space:
mode:
authorHenning Thielemann <git@henning-thielemann.de>2012-04-02 00:19:36 +0200
committerHenning Thielemann <git@henning-thielemann.de>2012-04-02 00:19:36 +0200
commitc3d370ad042eeeb9f8afc3bf3e99cbbcb9407d60 (patch)
tree561d545ec0688573a7bc9274957e6634c74c7f1d /src/Haddock/Backends/Xhtml
parent979ada5bc63cba38bf570f943a3666298879bdc9 (diff)
abbreviated qualification: use Packages.lookupModuleInAllPackages for finding the package that a module belongs to
Diffstat (limited to 'src/Haddock/Backends/Xhtml')
-rw-r--r--src/Haddock/Backends/Xhtml/Names.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Haddock/Backends/Xhtml/Names.hs b/src/Haddock/Backends/Xhtml/Names.hs
index 88ba14dc..863e5f90 100644
--- a/src/Haddock/Backends/Xhtml/Names.hs
+++ b/src/Haddock/Backends/Xhtml/Names.hs
@@ -81,7 +81,7 @@ ppQualifyName qual name mdl =
Nothing -> ppFullQualName mdl name
AbbreviateQual abbrevs localmdl ->
case (moduleString mdl == moduleString localmdl,
- M.lookup (moduleName mdl) abbrevs) of
+ M.lookup mdl abbrevs) of
(False, Just abbrev) -> ppQualName abbrev name
_ -> ppName name