module GitHub.Endpoints.Repos.Forks (
forksFor,
forksFor',
forksForR,
module GitHub.Data,
) where
import Data.Vector (Vector)
import GitHub.Data
import GitHub.Request
forksFor :: Name Owner -> Name Repo -> IO (Either Error (Vector Repo))
forksFor = forksFor' Nothing
forksFor' :: Maybe Auth -> Name Owner -> Name Repo -> IO (Either Error (Vector Repo))
forksFor' auth user repo =
executeRequestMaybe auth $ forksForR user repo Nothing
forksForR :: Name Owner -> Name Repo -> Maybe Count -> Request k (Vector Repo)
forksForR user repo =
PagedQuery ["repos", toPathPart user, toPathPart repo, "forks"] []