module GitHub.Endpoints.Issues.Milestones (
milestones,
milestones',
milestonesR,
milestone,
milestoneR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
milestones :: Name Owner -> Name Repo -> IO (Either Error (Vector Milestone))
milestones = milestones' Nothing
milestones' :: Maybe Auth -> Name Owner -> Name Repo -> IO (Either Error (Vector Milestone))
milestones' auth user repo =
executeRequestMaybe auth $ milestonesR user repo FetchAll
milestonesR :: Name Owner -> Name Repo -> FetchCount -> Request k (Vector Milestone)
milestonesR user repo =
pagedQuery ["repos", toPathPart user, toPathPart repo, "milestones"] []
milestone :: Name Owner -> Name Repo -> Id Milestone -> IO (Either Error Milestone)
milestone user repo mid =
executeRequest' $ milestoneR user repo mid
milestoneR :: Name Owner -> Name Repo -> Id Milestone -> Request k Milestone
milestoneR user repo mid =
query ["repos", toPathPart user, toPathPart repo, "milestones", toPathPart mid] []