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

[ghc-hetmet.git] / ghc / compiler / types / Kind.lhs

diff --git a/ghc/compiler/types/Kind.lhs b/ghc/compiler/types/Kind.lhs
index 5509070..6d6e8a3 100644 (file)
--- 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]