fetchNumberOfRepos :: MonadHttp m
  => Text
  -> m Natural
fetchNumberOfRepos orgName = do
  let listReposUrl = gitHubApiUrl /: "orgs" /: orgName
      params       = header "User-Agent" "github-stats"
  repos <- req GET listReposUrl NoReqBody jsonResponse params
  return $ fromMaybe 0 . orgPublicRepos $ responseBody repos
fetchNumberOfRepos :: MonadHttp m
  => Text
  -> m Natural
fetchNumberOfRepos orgName = do
  let listReposUrl = gitHubApiUrl /: "orgs" /: orgName
      params       = header "User-Agent" "github-stats"
  repos <- req GET listReposUrl NoReqBody jsonResponse params
  return $ fromMaybe 0 . orgPublicRepos $ responseBody repos
fetchNumberOfRepos orgName = do
  let listReposUrl = gitHubApiUrl /: "orgs" /: orgName
      params       = header "User-Agent" "github-stats"
  repos <- req GET listReposUrl NoReqBody jsonResponse params
  return $ fromMaybe 0 . orgPublicRepos $ responseBody repos