From c5b03909e7c630a874f6f1abf76d28baf4b19d55 Mon Sep 17 00:00:00 2001
From: "simonpj@microsoft.com" <unknown>
Date: Wed, 8 Feb 2006 15:43:43 +0000
Subject: [PATCH] Add mapOccEnv

---
 ghc/compiler/basicTypes/OccName.lhs |    5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

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
 
-- 
1.7.10.4