From c90796ed7a6a625854d28bf55c71eeb36d298c55 Mon Sep 17 00:00:00 2001
From: Mateusz Kowalczyk <fuuzetsu@fuuzetsu.co.uk>
Date: Thu, 14 Aug 2014 20:23:31 +0100
Subject: Revert "Track changes for module reexports."

This reverts commit b99b57c0df072d12b67816b45eca2a03cb1da96d.
---
 src/Haddock/Interface/Create.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'src')

diff --git a/src/Haddock/Interface/Create.hs b/src/Haddock/Interface/Create.hs
index d2115305..abc65f12 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'.
@@ -171,9 +170,9 @@ lookupModuleDyn _ (Just pkgId) mdlName =
   Module.mkModule pkgId mdlName
 lookupModuleDyn dflags Nothing mdlName =
   flip Module.mkModule mdlName $
-  case filter Packages.modConfExposed . eltsUFM $
+  case filter snd $
        Packages.lookupModuleInAllPackages dflags mdlName of
-    m:_ -> Packages.packageConfigId (Packages.modConfPkg m)
+    (pkgId,_):_ -> Packages.packageConfigId pkgId
     [] -> Module.mainPackageKey
 
 
-- 
cgit v1.2.3