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