Commit eb32f344 authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #6020 again, and #6044

parent fa48f52a
{-# LANGUAGE DataKinds, FunctionalDependencies, FlexibleInstances,
UndecidableInstances, PolyKinds, KindSignatures,
ConstraintKinds, FlexibleContexts, GADTs #-}
module T6020a where
class Id (a :: k) (b :: k) | b -> a
instance a ~ b => Id a b
class Test (x :: a) (y :: a)
instance (Id x y, Id y z) => Test x z
test :: Test True True => ()
test = ()
{-# LANGUAGE PolyKinds, DataKinds, TypeFamilies, KindSignatures #-}
module T6044 where
type family Foo (a :: k) :: Maybe k
type instance Foo a = Just a
...@@ -41,3 +41,5 @@ test('T6025', normal, run_command, ['$MAKE -s --no-print-directory T6025']) ...@@ -41,3 +41,5 @@ test('T6025', normal, run_command, ['$MAKE -s --no-print-directory T6025'])
test('T6002', normal, compile, ['']) test('T6002', normal, compile, [''])
test('T6039', normal, compile_fail, ['']) test('T6039', normal, compile_fail, [''])
test('T6021', normal, compile_fail, ['']) test('T6021', normal, compile_fail, [''])
test('T6020a', normal, compile, [''])
test('T6044', normal, compile, [''])
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