repoNameP :: T.Text -> Parser RepoName
repoNameP htext = option (RepoName . T.pack <$> str) $
      short 'r'
  <>  long "repository"
  <>  help (T.unpack htext)
repoNameP :: T.Text -> Parser RepoName
repoNameP htext = option (RepoName . T.pack <$> str) $
      short 'r'
  <>  long "repository"
  <>  help (T.unpack htext)
repoNameP htext = option (RepoName . T.pack <$> str) $
      short 'r'
  <>  long "repository"
  <>  help (T.unpack htext)