[project @ 2005-08-30 12:08:13 by simonpj]

Two type-formation tests (cf Sourceforge 1276246)

testsuite/tests/ghc-regress/typecheck/should_fail/tcfail146.hs

+module Foo1 where
+
+-- Variant: class used as data
+class SClass a where
+ sFun :: a -> SData a
+ 
+data SData a = SCon (SClass a)

testsuite/tests/ghc-regress/typecheck/should_fail/tcfail146.stderr

+
+tcfail146.hs:7:15:
+    Class `SClass' used as a type
+    In the data type declaration for `SData'

testsuite/tests/ghc-regress/typecheck/should_fail/tcfail147.hs

+module Foo1 where
+
+-- Variant: ill-kinded. 
+class XClass a where
+ xFun :: a -> XData
+ 
+data XData = XCon XClass

testsuite/tests/ghc-regress/typecheck/should_fail/tcfail147.stderr

+
+tcfail147.hs:7:18:
+    `XClass' is not applied to enough type arguments
+    Expected kind `?', but `XClass' has kind `k -> *'
+    In the data type declaration for `XData'