module GitHub.Endpoints.Users.Followers (
usersFollowing,
usersFollowedBy,
usersFollowingR,
usersFollowedByR,
module GitHub.Data,
) where
import Data.Vector (Vector)
import GitHub.Data
import GitHub.Request
usersFollowing :: Name User -> IO (Either Error (Vector SimpleUser))
usersFollowing user =
executeRequest' $ usersFollowingR user Nothing
usersFollowingR :: Name User -> Maybe Count -> Request k (Vector SimpleUser)
usersFollowingR user = PagedQuery ["users", toPathPart user, "followers"] []
usersFollowedBy :: Name User -> IO (Either Error (Vector SimpleUser))
usersFollowedBy user =
executeRequest' $ usersFollowedByR user Nothing
usersFollowedByR :: Name User -> Maybe Count -> Request k (Vector SimpleUser)
usersFollowedByR user = PagedQuery ["users", toPathPart user, "following"] []