data Foo = Foo { bar :: Int, baz :: String } deriving Show
data Foo
Foo { .. }
bar, baz
x :: Foo x = Foo { bar = 3, baz = "hal" }