From: sof <unknown>
Date: Thu, 5 Jun 1997 09:29:07 +0000 (+0000)
Subject: [project @ 1997-06-05 09:29:07 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~425
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=dac953bc82de9816f29d1992c1c48d3b19c3fd8b;p=ghc-hetmet.git

[project @ 1997-06-05 09:29:07 by sof]
ppr changes
---

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]