testsuite/tests/rename/should_compile/rn059.hs


1
2
3
4
5
6
7
8
9
10
11
12
13

{-# OPTIONS_GHC -XDisambiguateRecordFields #-}

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)