From d59fec2c9551b5662a3507c0011e32a09a9c118f Mon Sep 17 00:00:00 2001
From: "Edward Z. Yang" <ezyang@cs.stanford.edu>
Date: Sat, 2 Aug 2014 00:58:19 +0100
Subject: Track type signature change of lookupModuleInAllPackages

Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
---
 src/Haddock/Interface/Create.hs | 9 +++------
 1 file 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
 
 
 -------------------------------------------------------------------------------
-- 
cgit v1.2.3