Commit 5eb95084 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-07-29 13:14:39 by simonpj]

Add a type-synonym test
parent ce8120ff
......@@ -161,3 +161,4 @@ test "tc156" { myvtc("") }
test "tc157" { myvtc("") }
test "tc158" { myvtc("") }
test "tc159" { myvtc("") }
test "tc160" { myvtc("") }
{-# OPTIONS -fglasgow-exts #-}
--Tests alpha-renaming in with extended type-synonyms
module ShouldCompile where
type Foo x = forall a. a -> x
foo :: Foo (Foo ())
-- foo :: forall a b. a -> b -> ()
-- NOT forall a. a -> a -> ()
foo = undefined
-- baz = foo 'c' True
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