From 13d022e89d1fbe81ec318f7cc3ceace980f85d11 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Thu, 14 Aug 2014 20:23:27 +0100
Subject: Revert "Track type signature change of lookupModuleInAllPackages"

This reverts commit d59fec2c9551b5662a3507c0011e32a09a9c118f.
---
 src/Haddock/Interface/Create.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

(limited to 'src/Haddock/Interface')

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
 
 
 -------------------------------------------------------------------------------
-- 
cgit v1.2.3