diff options
| author | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-14 20:23:31 +0100 |
|---|---|---|
| committer | Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk> | 2014-08-14 20:23:31 +0100 |
| commit | c90796ed7a6a625854d28bf55c71eeb36d298c55 (patch) | |
| tree | dbd25dc43e156a70426028a093cd981aea99e945 /src/Haddock/Interface/Create.hs | |
| parent | 13d022e89d1fbe81ec318f7cc3ceace980f85d11 (diff) | |
Revert "Track changes for module reexports."
This reverts commit b99b57c0df072d12b67816b45eca2a03cb1da96d.
Diffstat (limited to 'src/Haddock/Interface/Create.hs')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index d2115305..abc65f12 100644 --- a/src/Haddock/Interface/Create.hs +++ b/src/Haddock/Interface/Create.hs @@ -45,7 +45,6 @@ import Bag import RdrName import TcRnTypes import FastString (concatFS) -import UniqFM -- | Use a 'TypecheckedModule' to produce an 'Interface'. @@ -171,9 +170,9 @@ lookupModuleDyn _ (Just pkgId) mdlName = Module.mkModule pkgId mdlName lookupModuleDyn dflags Nothing mdlName = flip Module.mkModule mdlName $ - case filter Packages.modConfExposed . eltsUFM $ + case filter snd $ Packages.lookupModuleInAllPackages dflags mdlName of - m:_ -> Packages.packageConfigId (Packages.modConfPkg m) + (pkgId,_):_ -> Packages.packageConfigId pkgId [] -> Module.mainPackageKey |