module GitHub.Endpoints.Issues.Events (
eventsForIssue,
eventsForIssue',
eventsForIssueR,
eventsForRepo,
eventsForRepo',
eventsForRepoR,
event,
event',
eventR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import GitHub.Request
import Prelude ()
eventsForIssue :: Name Owner -> Name Repo -> Id Issue -> IO (Either Error (Vector IssueEvent))
eventsForIssue = eventsForIssue' Nothing
eventsForIssue' :: Maybe Auth -> Name Owner -> Name Repo -> Id Issue -> IO (Either Error (Vector IssueEvent))
eventsForIssue' auth user repo iid =
executeRequestMaybe auth $ eventsForIssueR user repo iid FetchAll
eventsForIssueR :: Name Owner -> Name Repo -> Id Issue -> FetchCount -> Request k (Vector IssueEvent)
eventsForIssueR user repo iid =
pagedQuery ["repos", toPathPart user, toPathPart repo, "issues", toPathPart iid, "events"] []
eventsForRepo :: Name Owner -> Name Repo -> IO (Either Error (Vector IssueEvent))
eventsForRepo = eventsForRepo' Nothing
eventsForRepo' :: Maybe Auth -> Name Owner -> Name Repo -> IO (Either Error (Vector IssueEvent))
eventsForRepo' auth user repo =
executeRequestMaybe auth $ eventsForRepoR user repo FetchAll
eventsForRepoR :: Name Owner -> Name Repo -> FetchCount -> Request k (Vector IssueEvent)
eventsForRepoR user repo =
pagedQuery ["repos", toPathPart user, toPathPart repo, "issues", "events"] []
event :: Name Owner -> Name Repo -> Id IssueEvent -> IO (Either Error IssueEvent)
event = event' Nothing
event' :: Maybe Auth -> Name Owner -> Name Repo -> Id IssueEvent -> IO (Either Error IssueEvent)
event' auth user repo eid =
executeRequestMaybe auth $ eventR user repo eid
eventR :: Name Owner -> Name Repo -> Id IssueEvent -> Request k IssueEvent
eventR user repo eid =
query ["repos", toPathPart user, toPathPart repo, "issues", "events", toPathPart eid] []