Commit d90640e7 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7939

parent dcafadf3
{-# LANGUAGE TypeFamilies, PolyKinds #-}
module T7939 where
class Foo a where
type Bar a
class Foo (k :: BOX) (a :: k) where
type family Bar (k :: BOX) (k :: BOX) (a :: k) :: k
-- Defined at T7939.hs:6:9
Bar :: k1 -> k
......@@ -149,4 +149,5 @@ test('T7586', normal, ghci_script, ['T7586.script'])
test('T4175', normal, ghci_script, ['T4175.script'])
test('T7872', normal, ghci_script, ['T7872.script'])
test('T7873', normal, ghci_script, ['T7873.script'])
test('T7939', normal, ghci_script, ['T7939.script'])
Supports Markdown
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