module Record where data Foo = Foo { bar :: Char, baz :: Int }