groupOwnerP :: T.Text -> Parser GroupOwner
groupOwnerP htext = option (GroupOwner . T.pack <$> str) $
      long "group-owner"
  <>  help (T.unpack htext)
groupOwnerP :: T.Text -> Parser GroupOwner
groupOwnerP htext = option (GroupOwner . T.pack <$> str) $
      long "group-owner"
  <>  help (T.unpack htext)
groupOwnerP htext = option (GroupOwner . T.pack <$> str) $
      long "group-owner"
  <>  help (T.unpack htext)