Commit 7b10d013 authored by eir@cis.upenn.edu's avatar eir@cis.upenn.edu
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
T9097.hs:10:3:
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, ['']) ...@@ -122,4 +122,4 @@ test('T8518', normal, compile_fail, [''])
test('T9036', normal, compile_fail, ['']) test('T9036', normal, compile_fail, [''])
test('T9167', normal, compile_fail, ['']) test('T9167', normal, compile_fail, [''])
test('T9171', normal, compile_fail, ['']) test('T9171', normal, compile_fail, [''])
test('T9097', normal, compile_fail, [''])
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