X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FVarEnv.lhs;h=bfeecdc923d41925ff3e2d69d12a03f558339913;hb=28a464a75e14cece5db40f2765a29348273ff2d2;hp=d3b9bcb6938e66b694832fe0141f68b031d85640;hpb=7f05f1095e9a2c7b2b378859da00fde7ca907080;p=ghc-hetmet.git

diff --git a/ghc/compiler/basicTypes/VarEnv.lhs b/ghc/compiler/basicTypes/VarEnv.lhs
index d3b9bcb..bfeecdc 100644
--- a/ghc/compiler/basicTypes/VarEnv.lhs
+++ b/ghc/compiler/basicTypes/VarEnv.lhs
@@ -15,7 +15,7 @@ module VarEnv (
 	mapVarEnv, zipVarEnv,
 	modifyVarEnv, modifyVarEnv_Directly,
 	isEmptyVarEnv, foldVarEnv, 
-	lookupVarEnv_Directly,
+	elemVarEnvByKey, lookupVarEnv_Directly,
 	filterVarEnv_Directly,
 
 	-- InScopeSet
@@ -41,7 +41,7 @@ import UniqFM
 import Unique	  ( Unique, deriveUnique, getUnique )
 import Util	  ( zipEqual, foldl2 )
 import Maybes	  ( orElse, isJust )
-import CmdLineOpts	( opt_PprStyle_Debug )
+import StaticFlags( opt_PprStyle_Debug )
 import Outputable
 import FastTypes
 \end{code}
@@ -297,11 +297,13 @@ lookupVarEnv	  :: VarEnv a -> Var -> Maybe a
 lookupVarEnv_NF   :: VarEnv a -> Var -> a
 lookupWithDefaultVarEnv :: VarEnv a -> a -> Var -> a
 elemVarEnv	  :: Var -> VarEnv a -> Bool
+elemVarEnvByKey   :: Unique -> VarEnv a -> Bool
 foldVarEnv	  :: (a -> b -> b) -> b -> VarEnv a -> b
 \end{code}
 
 \begin{code}
 elemVarEnv       = elemUFM
+elemVarEnvByKey  = elemUFM_Directly
 extendVarEnv	 = addToUFM
 extendVarEnv_C	 = addToUFM_C
 extendVarEnvList = addListToUFM