From fca21bb35eb4ea1e8957bc1590d88d27ac9e4676 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 10 Dec 2001 14:02:45 +0000
Subject: [PATCH] [project @ 2001-12-10 14:02:45 by simonmar] Print the "type
 description" of a closure for profiling as the user string,
 not the Z-encoded string.  Fixes problems with things like
 'ZMZN' appearing in profiling output.

---
 ghc/compiler/types/PprType.lhs |    3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ghc/compiler/types/PprType.lhs b/ghc/compiler/types/PprType.lhs
index 24a4bb3..dab39da 100644
--- a/ghc/compiler/types/PprType.lhs
+++ b/ghc/compiler/types/PprType.lhs
@@ -36,6 +36,7 @@ import TyCon		( TyCon, isPrimTyCon, isTupleTyCon, tupleTyConBoxity,
 import CmdLineOpts	( opt_PprStyle_RawTypes )
 import Maybes		( maybeToBool )
 import Name		( getOccString, getOccName )
+import OccName		( occNameUserString )
 import Outputable
 import Unique		( Uniquable(..) )
 import Util             ( lengthIs )
@@ -254,7 +255,7 @@ getTyDescription ty
       TyVarTy _	       	     -> "*"
       AppTy fun _      	     -> getTyDescription fun
       FunTy _ res      	     -> '-' : '>' : fun_result res
-      TyConApp tycon _ 	     -> getOccString tycon
+      TyConApp tycon _ 	     -> occNameUserString (getOccName tycon)
       NoteTy (FTVNote _) ty  -> getTyDescription ty
       NoteTy (SynNote ty1) _ -> getTyDescription ty1
       SourceTy sty	     -> getSourceTyDescription sty
-- 
1.7.10.4