Add support for organisation teams

charleso · charleso · commit cbc8d269133e · 2016-09-09T08:36:55.000+10:00
diff --git a/Github/Data.hs b/Github/Data.hs
@@ -560,6 +560,14 @@ instance FromJSON Hook where
                               <*> o .: "updated_at"
   parseJSON _ = fail "Could not build a Hook"
 
+instance FromJSON Team where
+  parseJSON (Object o) =
+    Team
+      <$> (TeamName <$> o .: "name")
+      <*> o .: "id"
+  parseJSON _ =
+    fail "Could not build a Team"
+
 -- | A slightly more generic version of Aeson's @(.:?)@, using `mzero' instead
 -- of `Nothing'.
 (.:<) :: (FromJSON a) => Object -> T.Text -> Parser [a]
diff --git a/Github/Data/Definitions.hs b/Github/Data/Definitions.hs
@@ -520,6 +520,12 @@ newtype User =
       user :: String
     } deriving (Show, Data, Typeable, Eq, Ord)
 
+data Team =
+  Team {
+      teamName :: TeamName
+    , teamId :: Integer
+    } deriving (Show, Data, Typeable, Eq, Ord)
+
 newtype TeamName =
   TeamName {
       team :: String
diff --git a/Github/Organizations/Teams.hs b/Github/Organizations/Teams.hs
@@ -0,0 +1,18 @@
+-- | The organization members API as described on
+-- <http://developer.github.com/v3/orgs/teams/>.
+module Github.Organizations.Teams (
+ listTeams'
+,listTeamMembers'
+,module Github.Data
+) where
+
+import Github.Data
+import Github.Private
+
+listTeams' :: Maybe GithubAuth -> String -> IO (Either Error [Team])
+listTeams' auth organization =
+  githubGet' auth ["orgs", organization, "teams"]
+
+listTeamMembers' :: Maybe GithubAuth -> Integer -> IO (Either Error [GithubOwner])
+listTeamMembers' auth teamId =
+  githubGet' auth ["teams", show teamId, "members"]
diff --git a/github.cabal b/github.cabal
@@ -131,6 +131,7 @@ Library
                    Github.Issues.Milestones,
                    Github.Organizations,
                    Github.Organizations.Members,
+                   Github.Organizations.Teams,
                    Github.PullRequests,
                    Github.Repos,
                    Github.Repos.Branches,
