X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=ghc%2Fcompiler%2FbasicTypes%2FOccName.lhs;h=a3661a9ab0d093eba7e43ee1574dcc9a8a8c4f33;hp=e553cc5107e799234321aebfa239dda8bcb6e222;hb=c5b03909e7c630a874f6f1abf76d28baf4b19d55;hpb=2231d6544ba75e0fe41061339a23e1c90a0409bd

diff --git a/ghc/compiler/basicTypes/OccName.lhs b/ghc/compiler/basicTypes/OccName.lhs
index e553cc5..a3661a9 100644
--- a/ghc/compiler/basicTypes/OccName.lhs
+++ b/ghc/compiler/basicTypes/OccName.lhs
@@ -42,7 +42,7 @@ module OccName (
 	isTupleOcc_maybe,
 
 	-- The OccEnv type
-	OccEnv, emptyOccEnv, unitOccEnv, extendOccEnv,
+	OccEnv, emptyOccEnv, unitOccEnv, extendOccEnv, mapOccEnv,
 	lookupOccEnv, mkOccEnv, extendOccEnvList, elemOccEnv,
 	occEnvElts, foldOccEnv, plusOccEnv, plusOccEnv_C, extendOccEnv_C,
 
@@ -266,6 +266,7 @@ occEnvElts   :: OccEnv a -> [a]
 extendOccEnv_C :: (a->a->a) -> OccEnv a -> OccName -> a -> OccEnv a
 plusOccEnv     :: OccEnv a -> OccEnv a -> OccEnv a
 plusOccEnv_C   :: (a->a->a) -> OccEnv a -> OccEnv a -> OccEnv a
+mapOccEnv      :: (a->b) -> OccEnv a -> OccEnv b
 
 emptyOccEnv  	 = emptyUFM
 unitOccEnv   	 = unitUFM
@@ -279,7 +280,7 @@ occEnvElts 	 = eltsUFM
 plusOccEnv	 = plusUFM
 plusOccEnv_C	 = plusUFM_C
 extendOccEnv_C   = addToUFM_C
-
+mapOccEnv	 = mapUFM
 
 type OccSet = UniqFM OccName