data Foo = Bar
  { foo  :: Baz
  , bars :: Bizzz
  }