From dac953bc82de9816f29d1992c1c48d3b19c3fd8b Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 5 Jun 1997 09:29:07 +0000
Subject: [PATCH] [project @ 1997-06-05 09:29:07 by sof] ppr changes

---
 ghc/compiler/types/Kind.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/types/Kind.lhs b/ghc/compiler/types/Kind.lhs
index 5509070..6d6e8a3 100644
--- a/ghc/compiler/types/Kind.lhs
+++ b/ghc/compiler/types/Kind.lhs
@@ -92,7 +92,7 @@ Printing
 instance Outputable Kind where
   ppr sty kind = pprQuote sty $ \ _ -> pprKind kind
 
-pprKind TypeKind        = char '*'	-- Can be boxed or unboxed
+pprKind TypeKind        = text "**"	-- Can be boxed or unboxed
 pprKind BoxedTypeKind   = char '*'
 pprKind UnboxedTypeKind = text  "*#"	-- Unboxed
 pprKind (ArrowKind k1 k2) = sep [pprParendKind k1, text "->", pprKind k2]
-- 
1.7.10.4