companyName :: Client -> Maybe String
companyName (Company name _ _ _) = Just name
companyName :: Client -> Maybe String
companyName (Company name _ _ _) = Just name
companyName (Company name _ _ _) = Just name