Add function to list user's invitations

Author: sajidanower23

src/GitHub.hs

@@ -318,11 +318,11 @@ module GitHub (
 
     -- * Delete a repository invitation
     -- * Update a repository invitation
-    -- * List a user's repository invitations
     -- * Decline a repository invitation
 
     listInvitationsOnR,
     acceptInvitationFromR,
+    listInvitationsForR,
 
 
     -- * Search

src/GitHub/Endpoints/Repos/Invitations.hs

@@ -7,6 +7,7 @@
 -- <https://developer.github.com/v3/repos/invitations/>.
 module GitHub.Endpoints.Repos.Invitations (
     listInvitationsOnR,
+    listInvitationsForR,
     acceptInvitationFromR
     ) where
 
@@ -20,6 +21,13 @@ listInvitationsOnR :: Name Owner -> Name Repo -> FetchCount -> GenRequest 'MtJSO
 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 ()