module GitHub.Endpoints.Organizations (
publicOrganizationsFor,
publicOrganizationsFor',
publicOrganizationsForR,
publicOrganization,
publicOrganization',
publicOrganizationR,
module GitHub.Data,
) where
import Data.Vector (Vector)
import GitHub.Data
import GitHub.Request
publicOrganizationsFor' :: Maybe Auth -> Name User -> IO (Either Error (Vector SimpleOrganization))
publicOrganizationsFor' auth org =
executeRequestMaybe auth $ publicOrganizationsForR org Nothing
publicOrganizationsFor :: Name User -> IO (Either Error (Vector SimpleOrganization))
publicOrganizationsFor = publicOrganizationsFor' Nothing
publicOrganizationsForR :: Name User -> Maybe Count -> Request k (Vector SimpleOrganization)
publicOrganizationsForR user = PagedQuery ["users", toPathPart user, "orgs"] []
publicOrganization' :: Maybe Auth -> Name Organization -> IO (Either Error Organization)
publicOrganization' auth = executeRequestMaybe auth . publicOrganizationR
publicOrganization :: Name Organization -> IO (Either Error Organization)
publicOrganization = publicOrganization' Nothing
publicOrganizationR :: Name Organization -> Request k Organization
publicOrganizationR reqOrganizationName = Query ["orgs", toPathPart reqOrganizationName] []