Add deployments to GitHub

Author: phadej

src/GitHub.hs

@@ -259,7 +259,7 @@ module GitHub (
     --
     -- * Create a commit comment
     -- * Update a commit comment
-    -- *  Delete a commit comment
+    -- * Delete a commit comment
     commentsForR,
     commitCommentsForR,
     commitCommentForR,
@@ -271,6 +271,18 @@ module GitHub (
     commitR,
     diffR,
 
+    -- ** Deployments
+    -- | See <https://developer.github.com/v3/repos/deployments/#deployments>
+    --
+    -- Missing endpoints:
+    -- * Get a single deployment
+    -- * Update a deployment
+    -- * Get a single deployment status
+    deploymentsWithOptionsForR,
+    createDeploymentR,
+    deploymentStatusesForR,
+    createDeploymentStatusR,
+
     -- ** Forks
     -- | See <https://developer.github.com/v3/repos/forks/>
     --
@@ -344,7 +356,7 @@ module GitHub (
     createStatusR,
     statusesForR,
     statusForR,
-    
+
     -- ** Rate Limit
     -- | See <https://developer.github.com/v3/rate_limit/>
     rateLimit,
@@ -375,13 +387,14 @@ import GitHub.Endpoints.Organizations
 import GitHub.Endpoints.Organizations.Members
 import GitHub.Endpoints.Organizations.Teams
 import GitHub.Endpoints.PullRequests
-import GitHub.Endpoints.PullRequests.Reviews
 import GitHub.Endpoints.PullRequests.Comments
+import GitHub.Endpoints.PullRequests.Reviews
 import GitHub.Endpoints.RateLimit
 import GitHub.Endpoints.Repos
 import GitHub.Endpoints.Repos.Collaborators
 import GitHub.Endpoints.Repos.Comments
 import GitHub.Endpoints.Repos.Commits
+import GitHub.Endpoints.Repos.Deployments
 import GitHub.Endpoints.Repos.Forks
 import GitHub.Endpoints.Repos.Releases
 import GitHub.Endpoints.Repos.Statuses

src/GitHub/Endpoints/Repos/Deployments.hs

@@ -1,5 +1,3 @@
-{-# LANGUAGE LambdaCase #-}
-
 -- | The deployments API, as described at <https://developer.github.com/v3/repos/deployments/>
 module GitHub.Endpoints.Repos.Deployments
     ( deploymentsWithOptionsForR
@@ -18,6 +16,8 @@ import Data.Vector (Vector)
 import GitHub.Data
 import GitHub.Internal.Prelude
 
+-- | List deployments.
+-- See <https://developer.github.com/v3/repos/deployments/#list-deployments>
 deploymentsWithOptionsForR
     :: FromJSON a
     => Name Owner
@@ -30,6 +30,8 @@ deploymentsWithOptionsForR owner repo limit opts =
         (map (second Just . renderDeploymentQueryOption) opts)
         limit
 
+-- | Create a deployment.
+-- See <https://developer.github.com/v3/repos/deployments/#create-a-deployment>
 createDeploymentR
     :: ( ToJSON   a
        , FromJSON a
@@ -41,6 +43,8 @@ createDeploymentR
 createDeploymentR owner repo =
     command Post (deployPaths owner repo) . encode
 
+-- | List deployment statuses.
+-- See <https://developer.github.com/v3/repos/deployments/#list-deployment-statuses>
 deploymentStatusesForR
     :: Name Owner
     -> Name Repo
@@ -50,6 +54,8 @@ deploymentStatusesForR
 deploymentStatusesForR owner repo deploy =
     pagedQuery (statusesPaths owner repo deploy) []
 
+-- | Create a deployment status.
+-- See <https://developer.github.com/v3/repos/deployments/#list-deployment-statuses>
 createDeploymentStatusR
     :: Name Owner
     -> Name Repo