diff options
| -rw-r--r-- | compiler/basicTypes/VarEnv.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/basicTypes/VarEnv.hs b/compiler/basicTypes/VarEnv.hs index 146a2fce5f..dcb64a9c2d 100644 --- a/compiler/basicTypes/VarEnv.hs +++ b/compiler/basicTypes/VarEnv.hs @@ -32,7 +32,7 @@ module VarEnv ( dVarEnvElts, extendDVarEnv, extendDVarEnv_C, extendDVarEnvList, - lookupDVarEnv, + lookupDVarEnv, elemDVarEnv, isEmptyDVarEnv, foldDVarEnv, mapDVarEnv, modifyDVarEnv, @@ -571,6 +571,9 @@ delDVarEnvList = delListFromUDFM isEmptyDVarEnv :: DVarEnv a -> Bool isEmptyDVarEnv = isNullUDFM +elemDVarEnv :: Var -> DVarEnv a -> Bool +elemDVarEnv = elemUDFM + extendDVarEnv_C :: (a -> a -> a) -> DVarEnv a -> Var -> a -> DVarEnv a extendDVarEnv_C = addToUDFM_C |