From b3e6904fd44613ff06c31afc0e3c0e03b59f07f9 Mon Sep 17 00:00:00 2001 From: Roman Leshchinskiy Date: Thu, 10 May 2007 01:50:27 +0000 Subject: [PATCH] Modify generation of OccNames for closure conversion --- compiler/basicTypes/OccName.lhs | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/basicTypes/OccName.lhs b/compiler/basicTypes/OccName.lhs index 4968463..d3047a9 100644 --- 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, - mkCloOcc, mkCloTyCoOcc, + mkCloOcc, mkCloTyConOcc, mkCloDataConOcc, -- ** Deconstruction occNameFS, occNameString, occNameSpace, @@ -459,8 +459,9 @@ mkDataTOcc = mk_simple_deriv varName "$t" mkDataCOcc = mk_simple_deriv varName "$c" -- Closure conversion -mkCloOcc = mk_simple_deriv varName "$CC_" -mkCloTyCoOcc = mk_simple_deriv tcName ":CC_" +mkCloOcc = mk_simple_deriv varName "$CC_" +mkCloTyConOcc = mk_simple_deriv tcName ":CC_" +mkCloDataConOcc = mk_simple_deriv dataName ":CD_" mk_simple_deriv sp px occ = mk_deriv sp px (occNameString occ) -- 1.7.10.4