Commit 14c2d4ca authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test rnfail054 for trac #2141

parent cc1d61b3
......@@ -55,6 +55,7 @@ test('rnfail050', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
test('rnfail051', if_compiler_lt('ghc', '6.9', skip), compile_fail, [''])
test('rnfail052', normal, compile_fail, [''])
test('rnfail053', normal, compile_fail, [''])
test('rnfail054', normal, compile_fail, [''])
test('rn_dup', normal, compile_fail, [''])
-- Test for trac #2141
module Foo where
foo :: () -> ()
foo x = x { foo = 1 }
rnfail054.hs:6:8:
Local identifier `foo' used as a field name
In the expression: x {foo = 1}
In the definition of `foo': foo x = x {foo = 1}
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