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

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

idRecord = Cons { (<>) = id }