repoNameArgP :: T.Text -> Parser RepoName
repoNameArgP htext = argument (RepoName . T.pack <$> str) $
      metavar "REPONAME"
  <>  help (T.unpack htext)
repoNameArgP :: T.Text -> Parser RepoName
repoNameArgP htext = argument (RepoName . T.pack <$> str) $
      metavar "REPONAME"
  <>  help (T.unpack htext)
repoNameArgP htext = argument (RepoName . T.pack <$> str) $
      metavar "REPONAME"
  <>  help (T.unpack htext)