如何重构Haskell数据类型中的重复字段名？

data Person = Person { name :: String, age :: Int, name :: String }

data Person = Person { firstName :: String, age :: Int, lastName :: String }

data Person = Person { name :: String, age :: Int }
data Company = Company { name :: String, employees :: [Person] }

class HasName a where
  getName :: a -> String

data Person = Person { personName :: String, age :: Int }
data Company = Company { companyName :: String, employees :: [Person] }

instance HasName Person where
  getName = personName

instance HasName Company where
  getName = companyName