data Foo = Bar
  { fooz :: Baz
  , bar  :: Bizzz
  }
  deriving Show