Commit 8adac5d1 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a test for -fdisambiguate-record-fields (trac #1401)

parent 30376b89
module Rn059_A where
data A = A { label :: Char }
module Rn059_B where
data B = B { label :: Char }
......@@ -66,6 +66,8 @@ test('rn055', normal, compile, [''])
test('rn056', normal, compile, [''])
test('rn057', normal, compile, [''])
test('rn058', normal, compile, [''])
test('rn059', normal, multimod_compile, ['rn059', '-v0'])
clean(['Rn059_A.hi', 'Rn059_A.o', 'Rn059_B.hi', 'Rn059_B.o'])
test('timing001', normal, compile, [''])
test('timing002', normal, compile, [''])
......
{-# OPTIONS_GHC -fdisambiguate-record-fields #-}
module Foo () where
import Rn059_A
import Rn059_B
a = A { label = 'a' }
b = B { label = 'b' }
f (A { label = a }) (B { label = b }) = (a,b)
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