Commit 1c81f61e authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #7601

parent bea606f2
{-# LANGUAGE PolyKinds #-}
{-# LANGUAGE TypeFamilies #-}
module T7601 where
import GHC.Exts
class C (a :: k) where
type F (a :: k)
class Category (c :: k -> k -> *) where
type Ob c :: k -> Constraint
\ No newline at end of file
......@@ -84,3 +84,4 @@ test('T7502', normal, compile,[''])
test('T7488', normal, compile,[''])
test('T7594', normal, compile_fail,[''])
test('T7524', normal, compile_fail,[''])
test('T7601', 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