haskell-src-exts-1.9.5: Test/examples/RecordInfixSelector.hs

data RecordWithInfixSelector = Cons { (<>) :: Int -> Int }

idRecord = Cons { (<>) = id }