Revert "Track type signature change of lookupModuleInAllPackages"

This reverts commit d59fec2c9551b5662a3507c0011e32a09a9c118f.

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
 
 
 -------------------------------------------------------------------------------