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-23 22:56:27 +0000 |
| commit | 3c14858d2b741179964816c6bf664e15ab58c9b8 (patch) | |
| tree | e290f1183e730d891f4b9ad298d948f21bc1dcea | |
| parent | be6709ea39c0a642c14df82bd3419ef702d8f1fe (diff) | |
| download | haskell-3c14858d2b741179964816c6bf664e15ab58c9b8.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 |