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