From: simonpj <unknown>
Date: Thu, 12 Feb 2004 14:31:11 +0000 (+0000)
Subject: [project @ 2004-02-12 14:31:11 by simonpj]
X-Git-Tag: Approx_11550_changesets_converted~89
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=96179bddcb250a1772adc5a86d62c17125637709

[project @ 2004-02-12 14:31:11 by simonpj]
Fix printing bug for Kinds
---

diff --git a/ghc/compiler/types/Kind.lhs b/ghc/compiler/types/Kind.lhs
index a65ec1b..4c32ce1 100644
--- a/ghc/compiler/types/Kind.lhs
+++ b/ghc/compiler/types/Kind.lhs
@@ -194,7 +194,7 @@ pprKind UnliftedTypeKind = ptext SLIT("#")
 pprKind OpenTypeKind     = ptext SLIT("?")
 pprKind ArgTypeKind      = ptext SLIT("??")
 pprKind UbxTupleKind     = ptext SLIT("(#)")
-pprKind (FunKind k1 k2)  = sep [ pprKind k1, arrow <+> pprParendKind k2]
+pprKind (FunKind k1 k2)  = sep [ pprParendKind k1, arrow <+> pprKind k2]
 \end{code}