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:
b3e6904
)
OccNames for closure conversion isomorphisms
author
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Fri, 11 May 2007 01:39:32 +0000
(
01:39
+0000)
committer
Roman Leshchinskiy
<rl@cse.unsw.edu.au>
Fri, 11 May 2007 01:39:32 +0000
(
01:39
+0000)
compiler/basicTypes/OccName.lhs
patch
|
blob
|
history
diff --git
a/compiler/basicTypes/OccName.lhs
b/compiler/basicTypes/OccName.lhs
index
d3047a9
..
8de65b8
100644
(file)
--- a/
compiler/basicTypes/OccName.lhs
+++ b/
compiler/basicTypes/OccName.lhs
@@
-32,7
+32,7
@@
module OccName (
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
mkDataTOcc, mkDataCOcc, mkDataConWorkerOcc,
mkSuperDictSelOcc, mkLocalOcc, mkMethodOcc, mkInstTyTcOcc,
mkInstTyCoOcc, mkEqPredCoOcc,
- mkCloOcc, mkCloTyConOcc, mkCloDataConOcc,
+ mkCloOcc, mkCloTyConOcc, mkCloDataConOcc, mkCloIsoOcc,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
-- ** Deconstruction
occNameFS, occNameString, occNameSpace,
@@
-462,6
+462,7
@@
mkDataCOcc = mk_simple_deriv varName "$c"
mkCloOcc = mk_simple_deriv varName "$CC_"
mkCloTyConOcc = mk_simple_deriv tcName ":CC_"
mkCloDataConOcc = mk_simple_deriv dataName ":CD_"
mkCloOcc = mk_simple_deriv varName "$CC_"
mkCloTyConOcc = mk_simple_deriv tcName ":CC_"
mkCloDataConOcc = mk_simple_deriv dataName ":CD_"
+mkCloIsoOcc = mk_simple_deriv varName "$CCiso_"
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)
mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ)