data Foo = Bar
  { foo :: Baz
  }