From 96179bddcb250a1772adc5a86d62c17125637709 Mon Sep 17 00:00:00 2001
From: simonpj <unknown>
Date: Thu, 12 Feb 2004 14:31:11 +0000
Subject: [PATCH] [project @ 2004-02-12 14:31:11 by simonpj] Fix printing bug
 for Kinds

---
 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 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}
 
 
-- 
1.7.10.4