1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
-- | The milestones API as described on
-- <http://developer.github.com/v3/issues/milestones/>.
module Github.Issues.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 user repoName = githubGet ["repos", user, repoName, "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 repoName milestoneNumber =
githubGet ["repos", user, repoName, "milestones", show milestoneNumber]
|
