Commit ddb3ea22 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-03-12 15:55:03 by simonpj]

Test inspired by Ralf Laemmel
parent ca62d8c4
......@@ -150,3 +150,4 @@ test "tc145" { myvtc("") }
test "tc146" { myvtc("") }
test "tc147" { myvtc("") }
test "tc148" { myvtc("") }
test "tc149" { myvtc("") }
{-# OPTIONS -fglasgow-exts #-}
module ShouldCompile where
type Generic i o = forall x. i x -> o x
type Id x = x
foo :: Generic Id Id
foo = error "urk"
-- The point here is that we instantiate "i" and "o"
-- with a partially applied type synonym. This is
-- OK in GHC because we check type validity only *after*
-- expanding type synonyms.
--
-- However, a bug in GHC 5.03-Feb02 made this break a
-- type invariant (see Type.mkAppTy)
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