data Foo = Bar
  { foo, bar :: Baz
  }