From: simonmar <unknown>
Date: Wed, 5 Apr 2000 15:18:29 +0000 (+0000)
Subject: [project @ 2000-04-05 15:18:29 by simonmar]
X-Git-Tag: Approximately_9120_patches~4814
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=52795556160d0612faaa5d72e362116fb1fe9259;p=ghc-hetmet.git

[project @ 2000-04-05 15:18:29 by simonmar]
Use the decoded string, not the z-encoded string, for the closure
description.
---

diff --git a/ghc/compiler/codeGen/CgConTbls.lhs b/ghc/compiler/codeGen/CgConTbls.lhs
index a20e0ee..40769f6 100644
--- a/ghc/compiler/codeGen/CgConTbls.lhs
+++ b/ghc/compiler/codeGen/CgConTbls.lhs
@@ -21,7 +21,8 @@ import ClosureInfo	( layOutStaticClosure, layOutDynCon,
 import CostCentre	( dontCareCCS )
 import FiniteMap	( fmToList, FiniteMap )
 import DataCon		( DataCon, dataConName, dataConRepArgTys, isNullaryDataCon )
-import Name		( getOccString )
+import Name		( getOccName )
+import OccName		( occNameUserString )
 import PrimRep		( getPrimRepSize, PrimRep(..) )
 import TyCon		( tyConDataCons, isEnumerationTyCon, TyCon )
 import Type		( typePrimRep, Type )
@@ -127,7 +128,7 @@ genConInfo comp_info tycon data_con
 		      body_code))
 
     entry_addr = CLbl entry_label CodePtrRep
-    con_descr  = getOccString data_con
+    con_descr  = occNameUserString (getOccName data_con)
 
     -- Don't need any dynamic closure code for zero-arity constructors
     closure_code = if zero_arity_con then