X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FHscTypes.lhs;h=3cdc200c9ba35b6c780214af2612994e0c4b58e4;hb=fffba9e37c59f6b03bb79dcafb818b88abc0ed47;hp=1b34ec0c4366e568f54aac696bf7b394789afcb2;hpb=99073d876ea762016683fb0b22b9d343ff864eb4;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/HscTypes.lhs b/ghc/compiler/main/HscTypes.lhs
index 1b34ec0..3cdc200 100644
--- a/ghc/compiler/main/HscTypes.lhs
+++ b/ghc/compiler/main/HscTypes.lhs
@@ -10,7 +10,7 @@ module HscTypes (
 	ModDetails(..),	ModIface(..), GlobalSymbolTable, 
 	HomeSymbolTable, PackageSymbolTable,
 	HomeIfaceTable, PackageIfaceTable, 
-	lookupTable,
+	lookupTable, lookupTableByModName,
 
 	IfaceDecls(..), 
 
@@ -49,7 +49,8 @@ import Name		( Name, NameEnv, NamedThing,
 import NameSet		( NameSet )
 import OccName		( OccName )
 import Module		( Module, ModuleName, ModuleEnv,
-			  lookupModuleEnv )
+			  lookupModuleEnv, lookupModuleEnvByName
+			)
 import VarSet		( TyVarSet )
 import VarEnv		( emptyVarEnv )
 import Id		( Id )
@@ -191,6 +192,11 @@ lookupTable ht pt name
   = lookupModuleEnv ht mod `seqMaybe` lookupModuleEnv pt mod
   where
     mod = nameModule name
+
+lookupTableByModName :: ModuleEnv a -> ModuleEnv a -> ModuleName -> Maybe a
+-- We often have two Symbol- or IfaceTables, and want to do a lookup
+lookupTableByModName ht pt mod
+  = lookupModuleEnvByName ht mod `seqMaybe` lookupModuleEnvByName pt mod
 \end{code}