1 2 3 4
-- !!! Infix record constructor. module ShouldCompile where data Rec = (:<-:) { a :: Int, b :: Float }