Squashed commit of the following:

commit 267979d
Author: Sajid Ibne Anower <sajidanower23@gmail.com>
Date:   Thu May 2 13:16:38 2019 +1000

    Add function to list user's invitations

... and others

Author: phadej

github.cabal

@@ -132,6 +132,7 @@ library
     GitHub.Endpoints.Repos.Releases
     GitHub.Endpoints.Repos.Statuses
     GitHub.Endpoints.Repos.Webhooks
+    GitHub.Endpoints.Repos.Invitations
     GitHub.Endpoints.Search
     GitHub.Endpoints.Users
     GitHub.Endpoints.Users.Emails

src/GitHub.hs

@@ -319,6 +319,19 @@ module GitHub (
     latestReleaseR,
     releaseByTagNameR,
 
+    -- ** Invitations
+    -- | See <https://developer.github.com/v3/repos/invitations/>
+    -- Missing endpoints:
+
+    -- * Delete a repository invitation
+    -- * Update a repository invitation
+    -- * Decline a repository invitation
+
+    listInvitationsOnR,
+    acceptInvitationFromR,
+    listInvitationsForR,
+
+
     -- * Search
     -- | See <https://developer.github.com/v3/search/>
     --
@@ -408,6 +421,7 @@ import GitHub.Endpoints.Repos.Comments
 import GitHub.Endpoints.Repos.Commits
 import GitHub.Endpoints.Repos.Deployments
 import GitHub.Endpoints.Repos.Forks
+import GitHub.Endpoints.Repos.Invitations
 import GitHub.Endpoints.Repos.Releases
 import GitHub.Endpoints.Repos.Statuses
 import GitHub.Endpoints.Repos.Webhooks

src/GitHub/Data/Invitation.hs

@@ -8,6 +8,8 @@ module GitHub.Data.Invitation where
 import GitHub.Data.Definitions
 import GitHub.Data.Id          (Id)
 import GitHub.Data.Name        (Name)
+import GitHub.Data.Repos       (Repo)
+import GitHub.Data.URL         (URL)
 import GitHub.Internal.Prelude
 import Prelude ()
 
@@ -57,3 +59,29 @@ instance FromJSON InvitationRole where
         "hiring_manager"  -> pure InvitationRoleHiringManager
         "reinstate"       -> pure InvitationRoleReinstate
         _                 -> fail $ "Unknown InvitationRole: " <> T.unpack t
+
+data RepoInvitation = RepoInvitation
+    { repoInvitationId         :: !(Id RepoInvitation)
+    , repoInvitationInvitee    :: !SimpleUser
+    , repoInvitationInviter    :: !SimpleUser
+    , repoInvitationRepo       :: !Repo
+    , repoInvitationUrl        :: !URL
+    , repoInvitationCreatedAt  :: !UTCTime
+    , repoInvitationPermission :: !Text
+    , repoInvitationHtmlUrl    :: !URL
+    }
+  deriving (Show, Data, Typeable, Eq, Ord, Generic)
+
+instance NFData RepoInvitation where rnf = genericRnf
+instance Binary RepoInvitation
+
+instance FromJSON RepoInvitation where
+    parseJSON = withObject "RepoInvitation" $ \o -> RepoInvitation
+        <$> o .: "id"
+        <*> o .: "invitee"
+        <*> o .: "inviter"
+        <*> o .: "repository"
+        <*> o .: "url"
+        <*> o .: "created_at"
+        <*> o .: "permissions"
+        <*> o .: "html_url"

src/GitHub/Data/Request.hs

@@ -26,7 +26,7 @@ module GitHub.Data.Request (
     Count,
     ) where
 
-import GitHub.Data.Definitions (Count, QueryString, IssueNumber, unIssueNumber)
+import GitHub.Data.Definitions (Count, IssueNumber, QueryString, unIssueNumber)
 import GitHub.Data.Id          (Id, untagId)
 import GitHub.Data.Name        (Name, untagName)
 import GitHub.Internal.Prelude

src/GitHub/Endpoints/Repos/Collaborators.hs

@@ -68,7 +68,7 @@ addCollaborator
     -> Name Owner        -- ^ Repository owner
     -> Name Repo         -- ^ Repository name
     -> Name User         -- ^ Collaborator to add
-    -> IO (Either Error ())
+    -> IO (Either Error (Maybe RepoInvitation))
 addCollaborator auth owner repo coll =
     executeRequest auth $ addCollaboratorR owner repo coll
 
@@ -78,6 +78,6 @@ addCollaboratorR
     :: Name Owner        -- ^ Repository owner
     -> Name Repo         -- ^ Repository name
     -> Name User         -- ^ Collaborator to add
-    -> GenRequest 'MtUnit 'RW ()
+    -> GenRequest 'MtJSON 'RW (Maybe RepoInvitation)
 addCollaboratorR owner repo coll =
     Command Put ["repos", toPathPart owner, toPathPart repo, "collaborators", toPathPart coll] mempty

src/GitHub/Endpoints/Repos/Invitations.hs

@@ -0,0 +1,35 @@
+-----------------------------------------------------------------------------
+-- |
+-- License     :  BSD-3-Clause
+-- Maintainer  :  Oleg Grenrus <oleg.grenrus@iki.fi>
+--
+-- The repo invitations API as described on
+-- <https://developer.github.com/v3/repos/invitations/>.
+module GitHub.Endpoints.Repos.Invitations (
+    listInvitationsOnR,
+    listInvitationsForR,
+    acceptInvitationFromR
+    ) where
+
+import GitHub.Data
+import GitHub.Internal.Prelude
+import Prelude ()
+
+-- | List open invitations of a repository
+-- See <https://developer.github.com/v3/repos/invitations/#list-invitations-for-a-repository>
+listInvitationsOnR :: Name Owner -> Name Repo -> FetchCount -> GenRequest 'MtJSON k (Vector RepoInvitation)
+listInvitationsOnR user repo =
+    PagedQuery ["repos", toPathPart user, toPathPart repo, "invitations"] []
+
+-- | List a user's repository invitations
+-- See <https://developer.github.com/v3/repos/invitations/#list-a-users-repository-invitations>
+listInvitationsForR :: FetchCount -> Request k (Vector RepoInvitation)
+listInvitationsForR =
+    pagedQuery ["user", "repository_invitations"] []
+
+
+-- | Accept a repository invitation
+-- See <https://developer.github.com/v3/repos/invitations/#accept-a-repository-invitation>
+acceptInvitationFromR :: Id RepoInvitation -> GenRequest 'MtUnit 'RW ()
+acceptInvitationFromR invId =
+    Command Patch ["user", "repository_invitations", toPathPart invId] mempty