diff options
| author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-11-23 09:05:33 +0000 |
|---|---|---|
| committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-11-25 08:33:31 +0000 |
| commit | 0123efde8090fc60a6bfef5943ba35440cec0c69 (patch) | |
| tree | d3d2a01a00532811adae95d1a174ec7f80ea9718 | |
| parent | f04f1188ffd39dc3540241cc09c750223f435cc1 (diff) | |
| download | haskell-0123efde8090fc60a6bfef5943ba35440cec0c69.tar.gz | |
Add elemDVarEnv
I need this in a later patch
| -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 |