groupNameP :: T.Text -> Parser GroupName
groupNameP htext = option (GroupName . T.pack <$> str) $
      short 'g'
  <>  long "group"
  <>  help (T.unpack htext)
groupNameP :: T.Text -> Parser GroupName
groupNameP htext = option (GroupName . T.pack <$> str) $
      short 'g'
  <>  long "group"
  <>  help (T.unpack htext)
groupNameP htext = option (GroupName . T.pack <$> str) $
      short 'g'
  <>  long "group"
  <>  help (T.unpack htext)