Commit 2e7d1fda authored by Simon Peyton Jones's avatar Simon Peyton Jones

Test Trac #7809

parent 4112b1f4
{-# LANGUAGE RankNTypes, TypeFamilies, LiberalTypeSynonyms #-}
module T7809 where
type PolyId = (forall a. a -> a)
type family F a
foo :: F PolyId
foo = undefined
\ No newline at end of file
T7809.hs:8:8:
Illegal polymorphic or qualified type: PolyId
Perhaps you intended to use -XImpredicativeTypes
In the type signature for ‛foo’: foo :: F PolyId
......@@ -309,3 +309,4 @@ test('T7851', normal, compile_fail, [''])
test('T7856', normal, compile_fail, [''])
test('T7869', normal, compile_fail, [''])
test('T7892', normal, compile_fail, [''])
test('T7809', 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