diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-08-02 00:58:19 +0100 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-08-05 03:11:00 -0700 |
| commit | d59fec2c9551b5662a3507c0011e32a09a9c118f (patch) | |
| tree | b4b3a10418f34f579ed5fc7bc0005cb99415beff /src/Haddock/Interface | |
| parent | d6aec63c009c4e57181900eb03847d7dc0fc3c7c (diff) | |
Track type signature change of lookupModuleInAllPackages
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'src/Haddock/Interface')
| -rw-r--r-- | src/Haddock/Interface/Create.hs | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs index d2115305..ad6a1e98 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'. @@ -170,11 +169,9 @@ lookupModuleDyn :: lookupModuleDyn _ (Just pkgId) mdlName = Module.mkModule pkgId mdlName lookupModuleDyn dflags Nothing mdlName = - flip Module.mkModule mdlName $ - case filter Packages.modConfExposed . eltsUFM $ - Packages.lookupModuleInAllPackages dflags mdlName of - m:_ -> Packages.packageConfigId (Packages.modConfPkg m) - [] -> Module.mainPackageKey + case Packages.lookupModuleInAllPackages dflags mdlName of + (m,_):_ -> m + [] -> Module.mkModule Module.mainPackageKey mdlName ------------------------------------------------------------------------------- |