module Github.Issues.Labels (
label
,labelsOnRepo
,labelsOnIssue
,labelsOnMilestone
,module Github.Data
) where
import Github.Data
import Github.Private
labelsOnRepo :: String -> String -> IO (Either Error [IssueLabel])
labelsOnRepo user reqRepoName = githubGet ["repos", user, reqRepoName, "labels"]
labelsOnIssue :: String -> String -> Int -> IO (Either Error [IssueLabel])
labelsOnIssue user reqRepoName reqIssueId =
githubGet ["repos", user, reqRepoName, "issues", show reqIssueId, "labels"]
labelsOnMilestone :: String -> String -> Int -> IO (Either Error [IssueLabel])
labelsOnMilestone user reqRepoName milestoneId =
githubGet ["repos", user, reqRepoName, "milestones", show milestoneId, "labels"]
label :: String -> String -> String -> IO (Either Error IssueLabel)
label user reqRepoName reqLabelName =
githubGet ["repos", user, reqRepoName, "labels", reqLabelName]