Commit 649b68fd authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #2334

parent 1c8d7a29
{-# LANGUAGE TypeFamilies,EmptyDataDecls,MultiParamTypeClasses #-}
module Test where
type family Fam1 a
class C b where
f :: ( Fam1 s ~ () ) => b -> s
......@@ -79,6 +79,8 @@ test('rn065', if_compiler_lt('ghc', '6.9', expect_fail), multimod_compile, ['rn0
test('T1972', if_compiler_lt('ghc', '6.9', expect_fail), compile, [''])
test('T2205', normal, compile, [''])
test('2334', normal, compile, [''])
test('timing001', normal, compile, [''])
test('timing002', normal, compile, [''])
test('timing003', normal, compile, [''])
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