Track type signature change of lookupModuleInAllPackages

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>

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