Commit 7b10d013 authored by's avatar
Browse files

Test #9097.

parent e79e2c39
{-# LANGUAGE TypeFamilies, DataKinds #-}
module T9097 where
import GHC.Exts
type family Foo x where
Foo True = False
Foo False = False
Foo Any = True
Illegal type synonym family application in instance: Any
In the equations for closed type family ‘Foo’
In the type family declaration for ‘Foo’
......@@ -122,4 +122,4 @@ test('T8518', normal, compile_fail, [''])
test('T9036', normal, compile_fail, [''])
test('T9167', normal, compile_fail, [''])
test('T9171', normal, compile_fail, [''])
test('T9097', normal, compile_fail, [''])
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