Adding "Check membership" API

Author: mwu

src/GitHub.hs

@@ -158,9 +158,10 @@ module GitHub (
     -- ** Members
     -- | See <https://developer.github.com/v3/orgs/members/>
     --
-    -- Missing endpoints: All except /Members List/
+    -- Missing endpoints: All except /Members List/ and /Check Membership/
     membersOfR,
     membersOfWithR,
+    isMemberOfR,
 
     -- ** Teams
     -- | See <https://developer.github.com/v3/orgs/teams/>

src/GitHub/Endpoints/Organizations/Members.hs

@@ -10,6 +10,9 @@ module GitHub.Endpoints.Organizations.Members (
     membersOf',
     membersOfR,
     membersOfWithR,
+    isMemberOf,
+    isMemberOf',
+    isMemberOfR,
     module GitHub.Data,
     ) where
 
@@ -54,3 +57,25 @@ membersOfWithR org f r =
         OrgMemberRoleAll    -> "all"
         OrgMemberRoleAdmin  -> "admin"
         OrgMemberRoleMember -> "member"
+
+-- | Check if a user is a member of an organization,
+-- | with or without authentication.
+--
+-- > isMemberOf' (Just $ OAuth "token") "phadej" "haskell-infra"
+isMemberOf' :: Maybe Auth -> Name User -> Name Organization -> IO (Either Error Bool)
+isMemberOf' auth user org =
+    executeRequestMaybe auth $ isMemberOfR user org
+
+-- | Check if a user is a member of an organization,
+-- | without authentication.
+--
+-- > isMemberOf "phadej" "haskell-infra"
+isMemberOf :: Name User -> Name Organization -> IO (Either Error Bool)
+isMemberOf = isMemberOf' Nothing
+
+-- | Check if a user is a member of an organization.
+--
+-- See <https://developer.github.com/v3/orgs/members/#check-membership>
+isMemberOfR :: Name User -> Name Organization -> Request k Bool
+isMemberOfR user org = StatusQuery statusOnlyOk $
+    Query [ "orgs", toPathPart org, "members", toPathPart user ] []