Ignore output of repository invitation

Author: sajidanower23

src/GitHub/Endpoints/Repos/Collaborators.hs

@@ -68,15 +68,15 @@ addCollaborator
     -> Name Owner        -- ^ Repository owner
     -> Name Repo         -- ^ Repository name
     -> Name User         -- ^ Collaborator to add
-    -> IO (Either Error Invitation)
+    -> IO (Either Error ())
 addCollaborator auth owner repo coll =
     executeRequest auth $ addCollaboratorR owner repo coll
 
 addCollaboratorR
     :: Name Owner        -- ^ Repository owner
     -> Name Repo         -- ^ Repository name
     -> Name User         -- ^ Collaborator to add
-    -> Request 'RW Invitation
+    -> Request 'RW ()
 addCollaboratorR owner repo coll =
-    command Put ["repos", toPathPart owner, toPathPart repo, "collaborators", toPathPart coll] mempty
+    command Put' ["repos", toPathPart owner, toPathPart repo, "collaborators", toPathPart coll] mempty
 -- /repos/:owner/:repo/collaborators/:username