aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs9
1 files changed, 6 insertions, 3 deletions
diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index ad6a1e98..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'.
@@ -169,9 +170,11 @@ lookupModuleDyn ::
lookupModuleDyn _ (Just pkgId) mdlName =
Module.mkModule pkgId mdlName
lookupModuleDyn dflags Nothing mdlName =
- case Packages.lookupModuleInAllPackages dflags mdlName of
- (m,_):_ -> m
- [] -> Module.mkModule Module.mainPackageKey mdlName
+ flip Module.mkModule mdlName $
+ case filter Packages.modConfExposed . eltsUFM $
+ Packages.lookupModuleInAllPackages dflags mdlName of
+ m:_ -> Packages.packageConfigId (Packages.modConfPkg m)
+ [] -> Module.mainPackageKey
-------------------------------------------------------------------------------