merge GHC HEAD

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

diff --git a/compiler/types/Kind.lhs b/compiler/types/Kind.lhs
index 0594f7f..32a9eac 100644 (file)
--- a/compiler/types/Kind.lhs
+++ b/compiler/types/Kind.lhs
@@ -15,6 +15,7 @@ module Kind (
         -- Kind constructors...
         liftedTypeKindTyCon, openTypeKindTyCon, unliftedTypeKindTyCon,
         argTypeKindTyCon, ubxTupleKindTyCon,
         -- Kind constructors...
         liftedTypeKindTyCon, openTypeKindTyCon, unliftedTypeKindTyCon,
         argTypeKindTyCon, ubxTupleKindTyCon,

+        ecKind,

 
         -- Super Kinds
        tySuperKind, tySuperKindTyCon, 
 
         -- Super Kinds
        tySuperKind, tySuperKindTyCon, 

@@ -232,4 +233,6 @@ defaultKind k
   | isSubOpenTypeKind k = liftedTypeKind
   | isSubArgTypeKind k  = liftedTypeKind
   | otherwise        = k
   | isSubOpenTypeKind k = liftedTypeKind
   | isSubArgTypeKind k  = liftedTypeKind
   | otherwise        = k

+
+ecKind           = liftedTypeKind `mkArrowKind` (liftedTypeKind `mkArrowKind` liftedTypeKind)

 \end{code}
\ No newline at end of file
 \end{code}
\ No newline at end of file