aboutsummaryrefslogtreecommitdiff
path: root/src/Haddock/Interface
diff options
context:
space:
mode:
authorEdward Z. Yang <ezyang@cs.stanford.edu>2014-08-02 00:58:19 +0100
committerEdward Z. Yang <ezyang@cs.stanford.edu>2014-08-05 03:11:00 -0700
commitd59fec2c9551b5662a3507c0011e32a09a9c118f (patch)
treeb4b3a10418f34f579ed5fc7bc0005cb99415beff /src/Haddock/Interface
parentd6aec63c009c4e57181900eb03847d7dc0fc3c7c (diff)
Track type signature change of lookupModuleInAllPackages
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
Diffstat (limited to 'src/Haddock/Interface')
-rw-r--r--src/Haddock/Interface/Create.hs9
1 files 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
-------------------------------------------------------------------------------