Commit ff65996a authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add tests for -XMultiParamTypeClasses

parent 0686017f
......@@ -58,3 +58,5 @@ test('read048', normal, compile, [''])
test('read049', normal, compile, [''])
test('read050', normal, compile, [''])
test('read051', normal, compile, [''])
test('read052', normal, compile, [''])
test('read053', normal, compile, [''])
{-# OPTIONS_GHC -XMultiParamTypeClasses #-}
module Foo where
class Foo a b
{-# LANGUAGE MultiParamTypeClasses #-}
module Foo where
class Foo a b
......@@ -43,3 +43,4 @@ test('read033', normal, compile_fail, [''])
test('read034', normal, compile_fail, [''])
test('read035', normal, compile_fail, [''])
test('read036', normal, compile_fail, [''])
test('read037', normal, compile_fail, [''])
read037.hs:4:0:
Too many parameters for class `Foo'
(Use -XMultiParamTypeClasses to allow multi-parameter classes)
In the class declaration for `Foo'
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