1-- Test selectors cannot be used ambiguously 2 3{-# LANGUAGE DuplicateRecordFields #-} 4 5data R = MkR { x :: Int, y :: Bool } 6data S = MkS { x :: Int } 7 8main = do print (x (MkS 42)) 9 print (y (MkR 42 42)) 10