Commit cf796b31 authored by simonpj's avatar simonpj
Browse files

[project @ 2001-10-22 09:35:11 by simonpj]

Add tc140
parent a944b299
......@@ -143,3 +143,4 @@ test "tc136" { myvtc("") }
test "tc137" { myvtc("") }
test "tc138" { myvtc("") }
test "tc139" { myvtc("") }
test "tc140" { myvtc("") }
{-# OPTIONS -fglasgow-exts #-}
-- Make sure for-alls can occur in data types
module Foo where
newtype CPS1 a = CPS1 { unCPS1 :: forall ans . (a -> ans) -> ans }
newtype CPS2 a = CPS2 (forall ans . (a -> ans) -> ans)
data CPS3 a = CPS3 { unCPS3 :: forall ans . (a -> ans) -> ans }
data CPS4 a = CPS4 (forall ans . (a -> ans) -> ans)
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