Commit a3a99eb4 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu

Add test case for #7938.

parent 65a5305e
{-# LANGUAGE TypeFamilies, PolyKinds, MultiParamTypeClasses,
FlexibleInstances, DataKinds #-}
module T7938 where
data KProxy (a :: *) = KP
class Foo (a :: k1) (b :: k2) where
type Bar a
instance Foo (a :: k1) (b :: k2) where
type Bar a = (KP :: KProxy k2)
\ No newline at end of file
T7938.hs:12:16:
Expected kind ‛*’, but ‛KP’ has kind ‛KProxy k2’
In the type ‛(KP :: KProxy k2)’
In the type instance declaration for ‛Bar’
In the instance declaration for ‛Foo (a :: k1) (b :: k2)’
......@@ -100,3 +100,4 @@ test('T7786', normal, compile_fail, [''])
test('NoGood', normal, compile_fail, [''])
test('T7967', normal, compile_fail, [''])
test('T7938', normal, compile_fail, [''])
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment