Merge pull request haskell-github#445 from cachix/org-outside-collaborators

phadej · web-flow · commit 8590fd03cf6d · 2020-05-26T13:21:12.000+03:00
Organizations: allow listing outside collaborators
diff --git a/github.cabal b/github.cabal
@@ -132,6 +132,7 @@ library
     GitHub.Endpoints.Issues.Milestones
     GitHub.Endpoints.Organizations
     GitHub.Endpoints.Organizations.Members
+    GitHub.Endpoints.Organizations.OutsideCollaborators
     GitHub.Endpoints.Organizations.Teams
     GitHub.Endpoints.PullRequests
     GitHub.Endpoints.PullRequests.Comments
diff --git a/src/GitHub.hs b/src/GitHub.hs
@@ -175,6 +175,11 @@ module GitHub (
     membersOfWithR,
     isMemberOfR,
     orgInvitationsR,
+    -- ** Outside Collaborators
+    -- | See <https://developer.github.com/v3/orgs/outside_collaborators/>
+    --
+    -- Missing endpoints: All except /Outside Collaborator List/
+    outsideCollaboratorsR,
 
     -- ** Teams
     -- | See <https://developer.github.com/v3/orgs/teams/>
@@ -433,6 +438,7 @@ import GitHub.Endpoints.Issues.Labels
 import GitHub.Endpoints.Issues.Milestones
 import GitHub.Endpoints.Organizations
 import GitHub.Endpoints.Organizations.Members
+import GitHub.Endpoints.Organizations.OutsideCollaborators
 import GitHub.Endpoints.Organizations.Teams
 import GitHub.Endpoints.PullRequests
 import GitHub.Endpoints.PullRequests.Comments
diff --git a/src/GitHub/Endpoints/Organizations/OutsideCollaborators.hs b/src/GitHub/Endpoints/Organizations/OutsideCollaborators.hs
@@ -0,0 +1,21 @@
+-----------------------------------------------------------------------------
+-- |
+-- License     :  BSD-3-Clause
+-- Maintainer  :  Oleg Grenrus <oleg.grenrus@iki.fi>
+--
+-- The organization members API as described on
+-- <https://developer.github.com/v3/orgs/outside_collaborators/>.
+module GitHub.Endpoints.Organizations.OutsideCollaborators (
+    outsideCollaboratorsR,
+    ) where
+
+import GitHub.Data
+import GitHub.Internal.Prelude
+import Prelude ()
+
+-- | All the users who are outside collaborators of the specified organization.
+--
+-- See <https://developer.github.com/v3/orgs/outside_collaborators/#list-outside-collaborators>
+outsideCollaboratorsR :: Name Organization -> FetchCount -> Request k (Vector SimpleUser)
+outsideCollaboratorsR organization =
+    pagedQuery ["orgs", toPathPart organization, "outside_collaborators"] []
