diff options
| author | Henning Thielemann <git@henning-thielemann.de> | 2012-04-02 00:19:36 +0200 |
|---|---|---|
| committer | Henning Thielemann <git@henning-thielemann.de> | 2012-04-02 00:19:36 +0200 |
| commit | c3d370ad042eeeb9f8afc3bf3e99cbbcb9407d60 (patch) | |
| tree | 561d545ec0688573a7bc9274957e6634c74c7f1d /src/Haddock/Backends | |
| parent | 979ada5bc63cba38bf570f943a3666298879bdc9 (diff) | |
abbreviated qualification: use Packages.lookupModuleInAllPackages for finding the package that a module belongs to
Diffstat (limited to 'src/Haddock/Backends')
| -rw-r--r-- | src/Haddock/Backends/Xhtml/Names.hs | 2 |
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 |