From: simonpj@microsoft.com <unknown>
Date: Wed, 8 Feb 2006 15:43:43 +0000 (+0000)
Subject: Add mapOccEnv
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c5b03909e7c630a874f6f1abf76d28baf4b19d55

Add mapOccEnv
---

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