diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-07-07 18:23:40 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-07-25 16:28:46 -0700 |
| commit | b99b57c0df072d12b67816b45eca2a03cb1da96d (patch) | |
| tree | 54a2ac7ada10090b6dba04a5e0bb9b1e97c6b7b0 /src | |
| parent | 8ac42d3327473939c013551750425cac191ff0fd (diff) | |
Track changes for module reexports.
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Conflicts:
src/Haddock/Interface/Create.hs
Diffstat (limited to 'src')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index abc65f12..d2115305 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -45,6 +45,7 @@ import Bag import RdrName import TcRnTypes import FastString (concatFS) +import UniqFM -- | Use a 'TypecheckedModule' to produce an 'Interface'. @@ -170,9 +171,9 @@ lookupModuleDyn _ (Just pkgId) mdlName = Module.mkModule pkgId mdlName lookupModuleDyn dflags Nothing mdlName = flip Module.mkModule mdlName $ - case filter snd $ + case filter Packages.modConfExposed . eltsUFM $ Packages.lookupModuleInAllPackages dflags mdlName of - (pkgId,_):_ -> Packages.packageConfigId pkgId + m:_ -> Packages.packageConfigId (Packages.modConfPkg m) [] -> Module.mainPackageKey |