From 52795556160d0612faaa5d72e362116fb1fe9259 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 5 Apr 2000 15:18:29 +0000
Subject: [PATCH] [project @ 2000-04-05 15:18:29 by simonmar] Use the decoded
 string, not the z-encoded string, for the closure
 description.

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

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