[project @ 2002-12-12 13:21:46 by ross]

[ghc-hetmet.git] / ghc / compiler / basicTypes / NameEnv.lhs

diff --git a/ghc/compiler/basicTypes/NameEnv.lhs b/ghc/compiler/basicTypes/NameEnv.lhs
index 6872042..fe3bcb3 100644 (file)
--- a/ghc/compiler/basicTypes/NameEnv.lhs
+++ b/ghc/compiler/basicTypes/NameEnv.lhs
@@ -7,9 +7,11 @@
 module NameEnv (
        NameEnv, mkNameEnv,
        emptyNameEnv, unitNameEnv, nameEnvElts, 
-       extendNameEnv_C, extendNameEnv, foldNameEnv, filterNameEnv,
-       plusNameEnv, plusNameEnv_C, extendNameEnv, extendNameEnvList,
-       lookupNameEnv, lookupNameEnv_NF, delFromNameEnv, elemNameEnv
+       extendNameEnv_C, extendNameEnv, extendNameEnvList, 
+       foldNameEnv, filterNameEnv,
+       plusNameEnv, plusNameEnv_C, 
+       lookupNameEnv, lookupNameEnv_NF, delFromNameEnv, delListFromNameEnv,
+       elemNameEnv
     ) where
 
 #include "HsVersions.h"
@@ -37,6 +39,7 @@ plusNameEnv            :: NameEnv a -> NameEnv a -> NameEnv a
 plusNameEnv_C           :: (a->a->a) -> NameEnv a -> NameEnv a -> NameEnv a
 extendNameEnvList:: NameEnv a -> [(Name,a)] -> NameEnv a
 delFromNameEnv          :: NameEnv a -> Name -> NameEnv a
+delListFromNameEnv :: NameEnv a -> [Name] -> NameEnv a
 elemNameEnv             :: Name -> NameEnv a -> Bool
 unitNameEnv             :: Name -> a -> NameEnv a
 lookupNameEnv           :: NameEnv a -> Name -> Maybe a
@@ -55,6 +58,7 @@ plusNameEnv            = plusUFM
 plusNameEnv_C           = plusUFM_C
 extendNameEnvList= addListToUFM
 delFromNameEnv          = delFromUFM
+delListFromNameEnv = delListFromUFM
 elemNameEnv             = elemUFM
 mapNameEnv      = mapUFM
 unitNameEnv             = unitUFM