From 712a6f8a506402b887efda3a2db70a1e5907ff13 Mon Sep 17 00:00:00 2001
From: "audreyt@audreyt.org" <unknown>
Date: Thu, 21 Sep 2006 01:25:31 +0000
Subject: [PATCH] * TypeRep.lhs and TypeRep.lhs-boot didn't agree on their
 signatures (SuperKind vs Kind)

---
 compiler/types/TypeRep.lhs      |    1 +
 compiler/types/TypeRep.lhs-boot |    8 +++++---
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/compiler/types/TypeRep.lhs b/compiler/types/TypeRep.lhs
index 7705650..b89d170 100644
--- a/compiler/types/TypeRep.lhs
+++ b/compiler/types/TypeRep.lhs
@@ -397,6 +397,7 @@ isTySuperKind (NoteTy _ ty)    = isTySuperKind ty
 isTySuperKind (TyConApp kc []) = kc `hasKey` tySuperKindTyConKey
 isTySuperKind other            = False
 
+isCoSuperKind :: SuperKind -> Bool
 isCoSuperKind (NoteTy _ ty)    = isCoSuperKind ty
 isCoSuperKind (TyConApp kc []) = kc `hasKey` coSuperKindTyConKey
 isCoSuperKind other            = False
diff --git a/compiler/types/TypeRep.lhs-boot b/compiler/types/TypeRep.lhs-boot
index 376aa68..b259005 100644
--- a/compiler/types/TypeRep.lhs-boot
+++ b/compiler/types/TypeRep.lhs-boot
@@ -11,9 +11,11 @@ type Coercion = Type
 
 type Kind = Type
 
-tySuperKind :: Kind
-coSuperKind :: Kind
+type SuperKind = Type
 
-isCoSuperKind :: Kind -> Bool
+tySuperKind :: SuperKind
+coSuperKind :: SuperKind
+
+isCoSuperKind :: SuperKind -> Bool
 \end{code}
 
-- 
1.7.10.4