1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
|
-- | The milestones API as described on
-- <http://developer.github.com/v3/issues/milestones/>.
module Github.Issues.Milestones (
milestones
,milestones'
,milestone
,module Github.Data
) where
import Github.Data
import Github.Private
-- | All milestones in the repo.
--
-- > milestones "thoughtbot" "paperclip"
milestones :: String -> String -> IO (Either Error [Milestone])
milestones = milestones' Nothing
-- | All milestones in the repo, using authentication.
--
-- > milestones' (GithubUser (user, password)) "thoughtbot" "paperclip"
milestones' :: Maybe GithubAuth -> String -> String -> IO (Either Error [Milestone])
milestones' auth user reqRepoName = githubGet' auth ["repos", user, reqRepoName, "milestones"]
-- | Details on a specific milestone, given it's milestone number.
--
-- > milestone "thoughtbot" "paperclip" 2
milestone :: String -> String -> Int -> IO (Either Error Milestone)
milestone user reqRepoName reqMilestoneNumber =
githubGet ["repos", user, reqRepoName, "milestones", show reqMilestoneNumber]
|
