Commit 3eb5711e authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #3155

parent bc64f556
{-# LANGUAGE GADTs, TypeOperators #-}
module T3155 where
-- Test Trac #3155
-- Gave bad error message in GHC 6.10
data Any s where
Any :: s ix -> ix -> Any s
data AnyR s r where
AnyR :: s ix -> r ix -> AnyR s r
unR :: (forall ix. r ix -> ix) -> AnyR s r -> Any s
unR f (AnyR ix rix) = Any ix (f rix)
T3155.hs:13:17:
Illegal symbol '.' in type
Perhaps you intended -XRankNTypes or similar flag
to enable explicit-forall syntax: forall <tvs>. <type>
......@@ -207,3 +207,4 @@ test('T2538', normal, compile_fail, [''])
test('T2688', normal, compile_fail, [''])
test('T2714', normal, compile_fail, [''])
test('T2994', normal, compile_fail, [''])
test('T3155', 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