module GitHub.Endpoints.Activity.Events (
repositoryEventsR,
userEventsR,
module GitHub.Data,
) where
import GitHub.Data
import GitHub.Internal.Prelude
import Prelude ()
repositoryEventsR :: Name Owner -> Name Repo -> FetchCount -> Request 'RO (Vector Event)
repositoryEventsR :: Name Owner -> Name Repo -> FetchCount -> Request 'RO (Vector Event)
repositoryEventsR user :: Name Owner
user repo :: Name Repo
repo =
Paths -> QueryString -> FetchCount -> Request 'RO (Vector Event)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["repos", Name Owner -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Owner
user, Name Repo -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name Repo
repo, "events"] []
userEventsR :: Name User -> FetchCount -> Request 'RO (Vector Event)
userEventsR :: Name User -> FetchCount -> Request 'RO (Vector Event)
userEventsR user :: Name User
user =
Paths -> QueryString -> FetchCount -> Request 'RO (Vector Event)
forall a (mt :: RW).
FromJSON a =>
Paths -> QueryString -> FetchCount -> Request mt (Vector a)
pagedQuery ["users", Name User -> Text
forall a. IsPathPart a => a -> Text
toPathPart Name User
user, "events", "public"] []