projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2231d65
)
Add mapOccEnv
author
simonpj@microsoft.com
<unknown>
Wed, 8 Feb 2006 15:43:43 +0000
(15:43 +0000)
committer
simonpj@microsoft.com
<unknown>
Wed, 8 Feb 2006 15:43:43 +0000
(15:43 +0000)
ghc/compiler/basicTypes/OccName.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/OccName.lhs
b/ghc/compiler/basicTypes/OccName.lhs
index
e553cc5
..
a3661a9
100644
(file)
--- a/
ghc/compiler/basicTypes/OccName.lhs
+++ b/
ghc/compiler/basicTypes/OccName.lhs
@@
-42,7
+42,7
@@
module OccName (
isTupleOcc_maybe,
-- The OccEnv type
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,
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
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
emptyOccEnv = emptyUFM
unitOccEnv = unitUFM
@@
-279,7
+280,7
@@
occEnvElts = eltsUFM
plusOccEnv = plusUFM
plusOccEnv_C = plusUFM_C
extendOccEnv_C = addToUFM_C
plusOccEnv = plusUFM
plusOccEnv_C = plusUFM_C
extendOccEnv_C = addToUFM_C
-
+mapOccEnv = mapUFM
type OccSet = UniqFM OccName
type OccSet = UniqFM OccName