Commit 9dea9837 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-05-12 16:54:17 by simonpj]

Add rank-2 test
parent 9f765190
......@@ -40,6 +40,7 @@ test('tcrun031', only_compiler_types(['ghc']), compile_and_run, [''])
test('tcrun032', only_compiler_types(['ghc']), compile_and_run, [''])
test('tcrun033', only_compiler_types(['ghc']), compile_and_run, [''])
test('tcrun034', only_compiler_types(['ghc']), compile_and_run, [''])
test('tcrun035', only_compiler_types(['ghc']), compile_and_run, [''])
test('church', normal, compile_and_run, [''])
test('testeq2', normal, compile_and_run, [''])
{-# OPTIONS -fglasgow-exts #-}
-- Tests subsumption for infix operators (in this case (.))
-- Broke GHC 6.4!
module Main(main) where
foo :: (forall m. Monad m => m a) -> IO a
foo = id . id
main :: IO ()
main = foo (return ())
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