amazonka-codecommit 1.5.0 → 1.6.0

raw patch · 83 files changed

+6762/−786 lines, 83 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-codecommit.cabal +23/−5
• fixture/CreatePullRequest.yaml +10/−0
• fixture/CreatePullRequestResponse.proto +0/−0
• fixture/DeleteCommentContent.yaml +10/−0
• fixture/DeleteCommentContentResponse.proto +0/−0
• fixture/DescribePullRequestEvents.yaml +10/−0
• fixture/DescribePullRequestEventsResponse.proto +0/−0
• fixture/GetComment.yaml +10/−0
• fixture/GetCommentResponse.proto +0/−0
• fixture/GetCommentsForComparedCommit.yaml +10/−0
• fixture/GetCommentsForComparedCommitResponse.proto +0/−0
• fixture/GetCommentsForPullRequest.yaml +10/−0
• fixture/GetCommentsForPullRequestResponse.proto +0/−0
• fixture/GetMergeConflicts.yaml +10/−0
• fixture/GetMergeConflictsResponse.proto +0/−0
• fixture/GetPullRequest.yaml +10/−0
• fixture/GetPullRequestResponse.proto +0/−0
• fixture/ListPullRequests.yaml +10/−0
• fixture/ListPullRequestsResponse.proto +0/−0
• fixture/MergePullRequestByFastForward.yaml +10/−0
• fixture/MergePullRequestByFastForwardResponse.proto +0/−0
• fixture/PostCommentForComparedCommit.yaml +10/−0
• fixture/PostCommentForComparedCommitResponse.proto +0/−0
• fixture/PostCommentForPullRequest.yaml +10/−0
• fixture/PostCommentForPullRequestResponse.proto +0/−0
• fixture/PostCommentReply.yaml +10/−0
• fixture/PostCommentReplyResponse.proto +0/−0
• fixture/PutFile.yaml +10/−0
• fixture/PutFileResponse.proto +0/−0
• fixture/UpdateComment.yaml +10/−0
• fixture/UpdateCommentResponse.proto +0/−0
• fixture/UpdatePullRequestDescription.yaml +10/−0
• fixture/UpdatePullRequestDescriptionResponse.proto +0/−0
• fixture/UpdatePullRequestStatus.yaml +10/−0
• fixture/UpdatePullRequestStatusResponse.proto +0/−0
• fixture/UpdatePullRequestTitle.yaml +10/−0
• fixture/UpdatePullRequestTitleResponse.proto +0/−0
• gen/Network/AWS/CodeCommit.hs +451/−19
• gen/Network/AWS/CodeCommit/BatchGetRepositories.hs +9/−9
• gen/Network/AWS/CodeCommit/CreateBranch.hs +8/−8
• gen/Network/AWS/CodeCommit/CreatePullRequest.hs +168/−0
• gen/Network/AWS/CodeCommit/CreateRepository.hs +7/−7
• gen/Network/AWS/CodeCommit/DeleteBranch.hs +7/−7
• gen/Network/AWS/CodeCommit/DeleteCommentContent.hs +134/−0
• gen/Network/AWS/CodeCommit/DeleteRepository.hs +5/−5
• gen/Network/AWS/CodeCommit/DescribePullRequestEvents.hs +201/−0
• gen/Network/AWS/CodeCommit/GetBlob.hs +6/−6
• gen/Network/AWS/CodeCommit/GetBranch.hs +6/−6
• gen/Network/AWS/CodeCommit/GetComment.hs +131/−0
• gen/Network/AWS/CodeCommit/GetCommentsForComparedCommit.hs +204/−0
• gen/Network/AWS/CodeCommit/GetCommentsForPullRequest.hs +212/−0
• gen/Network/AWS/CodeCommit/GetCommit.hs +6/−6
• gen/Network/AWS/CodeCommit/GetDifferences.hs +33/−23
• gen/Network/AWS/CodeCommit/GetMergeConflicts.hs +198/−0
• gen/Network/AWS/CodeCommit/GetPullRequest.hs +134/−0
• gen/Network/AWS/CodeCommit/GetRepository.hs +5/−5
• gen/Network/AWS/CodeCommit/GetRepositoryTriggers.hs +9/−9
• gen/Network/AWS/CodeCommit/ListBranches.hs +10/−10
• gen/Network/AWS/CodeCommit/ListPullRequests.hs +198/−0
• gen/Network/AWS/CodeCommit/ListRepositories.hs +12/−12
• gen/Network/AWS/CodeCommit/MergePullRequestByFastForward.hs +161/−0
• gen/Network/AWS/CodeCommit/PostCommentForComparedCommit.hs +254/−0
• gen/Network/AWS/CodeCommit/PostCommentForPullRequest.hs +275/−0
• gen/Network/AWS/CodeCommit/PostCommentReply.hs +158/−0
• gen/Network/AWS/CodeCommit/PutFile.hs +243/−0
• gen/Network/AWS/CodeCommit/PutRepositoryTriggers.hs +18/−18
• gen/Network/AWS/CodeCommit/TestRepositoryTriggers.hs +11/−11
• gen/Network/AWS/CodeCommit/Types.hs +706/−17
• gen/Network/AWS/CodeCommit/Types/Product.hs +1488/−581
• gen/Network/AWS/CodeCommit/Types/Sum.hs +151/−1
• gen/Network/AWS/CodeCommit/UpdateComment.hs +143/−0
• gen/Network/AWS/CodeCommit/UpdateDefaultBranch.hs +6/−6
• gen/Network/AWS/CodeCommit/UpdatePullRequestDescription.hs +151/−0
• gen/Network/AWS/CodeCommit/UpdatePullRequestStatus.hs +152/−0
• gen/Network/AWS/CodeCommit/UpdatePullRequestTitle.hs +149/−0
• gen/Network/AWS/CodeCommit/UpdateRepositoryDescription.hs +4/−4
• gen/Network/AWS/CodeCommit/UpdateRepositoryName.hs +3/−3
• gen/Network/AWS/CodeCommit/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/CodeCommit.hs +1/−1
• test/Test/AWS/CodeCommit/Internal.hs +1/−1
• test/Test/AWS/Gen/CodeCommit.hs +327/−3

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-codecommit-version:               1.5.0+version:               1.6.0 synopsis:              Amazon CodeCommit SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -47,21 +47,39 @@           Network.AWS.CodeCommit         , Network.AWS.CodeCommit.BatchGetRepositories         , Network.AWS.CodeCommit.CreateBranch+        , Network.AWS.CodeCommit.CreatePullRequest         , Network.AWS.CodeCommit.CreateRepository         , Network.AWS.CodeCommit.DeleteBranch+        , Network.AWS.CodeCommit.DeleteCommentContent         , Network.AWS.CodeCommit.DeleteRepository+        , Network.AWS.CodeCommit.DescribePullRequestEvents         , Network.AWS.CodeCommit.GetBlob         , Network.AWS.CodeCommit.GetBranch+        , Network.AWS.CodeCommit.GetComment+        , Network.AWS.CodeCommit.GetCommentsForComparedCommit+        , Network.AWS.CodeCommit.GetCommentsForPullRequest         , Network.AWS.CodeCommit.GetCommit         , Network.AWS.CodeCommit.GetDifferences+        , Network.AWS.CodeCommit.GetMergeConflicts+        , Network.AWS.CodeCommit.GetPullRequest         , Network.AWS.CodeCommit.GetRepository         , Network.AWS.CodeCommit.GetRepositoryTriggers         , Network.AWS.CodeCommit.ListBranches+        , Network.AWS.CodeCommit.ListPullRequests         , Network.AWS.CodeCommit.ListRepositories+        , Network.AWS.CodeCommit.MergePullRequestByFastForward+        , Network.AWS.CodeCommit.PostCommentForComparedCommit+        , Network.AWS.CodeCommit.PostCommentForPullRequest+        , Network.AWS.CodeCommit.PostCommentReply+        , Network.AWS.CodeCommit.PutFile         , Network.AWS.CodeCommit.PutRepositoryTriggers         , Network.AWS.CodeCommit.TestRepositoryTriggers         , Network.AWS.CodeCommit.Types+        , Network.AWS.CodeCommit.UpdateComment         , Network.AWS.CodeCommit.UpdateDefaultBranch+        , Network.AWS.CodeCommit.UpdatePullRequestDescription+        , Network.AWS.CodeCommit.UpdatePullRequestStatus+        , Network.AWS.CodeCommit.UpdatePullRequestTitle         , Network.AWS.CodeCommit.UpdateRepositoryDescription         , Network.AWS.CodeCommit.UpdateRepositoryName         , Network.AWS.CodeCommit.Waiters@@ -71,7 +89,7 @@         , Network.AWS.CodeCommit.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-codecommit-test@@ -91,8 +109,8 @@         , Test.AWS.CodeCommit.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-codecommit         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codecommit/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  codecommit.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CodeCommit--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -19,17 +19,17 @@ -- -- Repositories, by calling the following: -----     * 'BatchGetRepositories' , which returns information about one or more repositories associated with your AWS account+--     * 'BatchGetRepositories' , which returns information about one or more repositories associated with your AWS account. -----     * 'CreateRepository' , which creates an AWS CodeCommit repository+--     * 'CreateRepository' , which creates an AWS CodeCommit repository. -----     * 'DeleteRepository' , which deletes an AWS CodeCommit repository+--     * 'DeleteRepository' , which deletes an AWS CodeCommit repository. -----     * 'GetRepository' , which returns information about a specified repository+--     * 'GetRepository' , which returns information about a specified repository. -----     * 'ListRepositories' , which lists all AWS CodeCommit repositories associated with your AWS account+--     * 'ListRepositories' , which lists all AWS CodeCommit repositories associated with your AWS account. -----     * 'UpdateRepositoryDescription' , which sets or updates the description of the repository+--     * 'UpdateRepositoryDescription' , which sets or updates the description of the repository. -- --     * 'UpdateRepositoryName' , which changes the name of the repository. If you change the name of a repository, no other users of that repository will be able to access it until you send them the new HTTPS or SSH URL to use. --@@ -37,35 +37,83 @@ -- -- Branches, by calling the following: -----     * 'CreateBranch' , which creates a new branch in a specified repository+--     * 'CreateBranch' , which creates a new branch in a specified repository. -----     * 'DeleteBranch' , which deletes the specified branch in a repository unless it is the default branch+--     * 'DeleteBranch' , which deletes the specified branch in a repository unless it is the default branch. -----     * 'GetBranch' , which returns information about a specified branch+--     * 'GetBranch' , which returns information about a specified branch. -----     * 'ListBranches' , which lists all branches for a specified repository+--     * 'ListBranches' , which lists all branches for a specified repository. -----     * 'UpdateDefaultBranch' , which changes the default branch for a repository+--     * 'UpdateDefaultBranch' , which changes the default branch for a repository. -- -- --+-- Files, by calling the following:+--+--     * 'PutFile' , which adds or modifies a file in a specified repository and branch.+--+--+-- -- Information about committed code in a repository, by calling the following: -----     * 'GetBlob' , which returns the base-64 encoded content of an individual Git blob object within a repository+--     * 'GetBlob' , which returns the base-64 encoded content of an individual Git blob object within a repository. -----     * 'GetCommit' , which returns information about a commit, including commit messages and author and committer information+--     * 'GetCommit' , which returns information about a commit, including commit messages and author and committer information. -----     * 'GetDifferences' , which returns information about the differences in a valid commit specifier (such as a branch, tag, HEAD, commit ID or other fully qualified reference)+--     * 'GetDifferences' , which returns information about the differences in a valid commit specifier (such as a branch, tag, HEAD, commit ID or other fully qualified reference). -- -- --+-- Pull requests, by calling the following:+--+--     * 'CreatePullRequest' , which creates a pull request in a specified repository.+--+--     * 'DescribePullRequestEvents' , which returns information about one or more pull request events.+--+--     * 'GetCommentsForPullRequest' , which returns information about comments on a specified pull request.+--+--     * 'GetMergeConflicts' , which returns information about merge conflicts between the source and destination branch in a pull request.+--+--     * 'GetPullRequest' , which returns information about a specified pull request.+--+--     * 'ListPullRequests' , which lists all pull requests for a repository.+--+--     * 'MergePullRequestByFastForward' , which merges the source destination branch of a pull request into the specified destination branch for that pull request using the fast-forward merge option.+--+--     * 'PostCommentForPullRequest' , which posts a comment to a pull request at the specified line, file, or request.+--+--     * 'UpdatePullRequestDescription' , which updates the description of a pull request.+--+--     * 'UpdatePullRequestStatus' , which updates the status of a pull request.+--+--     * 'UpdatePullRequestTitle' , which updates the title of a pull request.+--+--+--+-- Information about comments in a repository, by calling the following:+--+--     * 'DeleteCommentContent' , which deletes the content of a comment on a commit in a repository.+--+--     * 'GetComment' , which returns information about a comment on a commit.+--+--     * 'GetCommentsForComparedCommit' , which returns information about comments on the comparison between two commit specifiers in a repository.+--+--     * 'PostCommentForComparedCommit' , which creates a comment on the comparison between two commit specifiers in a repository.+--+--     * 'PostCommentReply' , which creates a reply to a comment.+--+--     * 'UpdateComment' , which updates the content of a comment on a commit in a repository.+--+--+-- -- Triggers, by calling the following: -----     * 'GetRepositoryTriggers' , which returns information about triggers configured for a repository+--     * 'GetRepositoryTriggers' , which returns information about triggers configured for a repository. -----     * 'PutRepositoryTriggers' , which replaces all triggers for a repository and can be used to create or delete triggers+--     * 'PutRepositoryTriggers' , which replaces all triggers for a repository and can be used to create or delete triggers. -----     * 'TestRepositoryTriggers' , which tests the functionality of a repository trigger by sending data to the trigger target+--     * 'TestRepositoryTriggers' , which tests the functionality of a repository trigger by sending data to the trigger target. -- -- --@@ -85,15 +133,45 @@     -- ** InvalidContinuationTokenException     , _InvalidContinuationTokenException +    -- ** ManualMergeRequiredException+    , _ManualMergeRequiredException++    -- ** TargetsRequiredException+    , _TargetsRequiredException+     -- ** EncryptionKeyNotFoundException     , _EncryptionKeyNotFoundException +    -- ** TipsDivergenceExceededException+    , _TipsDivergenceExceededException+     -- ** InvalidRepositoryTriggerBranchNameException     , _InvalidRepositoryTriggerBranchNameException +    -- ** PullRequestAlreadyClosedException+    , _PullRequestAlreadyClosedException+     -- ** InvalidRepositoryTriggerCustomDataException     , _InvalidRepositoryTriggerCustomDataException +    -- ** DirectoryNameConflictsWithFileNameException+    , _DirectoryNameConflictsWithFileNameException++    -- ** ReferenceDoesNotExistException+    , _ReferenceDoesNotExistException++    -- ** ActorDoesNotExistException+    , _ActorDoesNotExistException++    -- ** PullRequestIdRequiredException+    , _PullRequestIdRequiredException++    -- ** InvalidEmailException+    , _InvalidEmailException++    -- ** CommitMessageLengthExceededException+    , _CommitMessageLengthExceededException+     -- ** BlobIdDoesNotExistException     , _BlobIdDoesNotExistException @@ -106,6 +184,9 @@     -- ** RepositoryNameExistsException     , _RepositoryNameExistsException +    -- ** ReferenceNameRequiredException+    , _ReferenceNameRequiredException+     -- ** MaximumRepositoryTriggersExceededException     , _MaximumRepositoryTriggersExceededException @@ -115,12 +196,27 @@     -- ** BranchNameRequiredException     , _BranchNameRequiredException +    -- ** MergeOptionRequiredException+    , _MergeOptionRequiredException++    -- ** InvalidFileLocationException+    , _InvalidFileLocationException++    -- ** BeforeCommitIdAndAfterCommitIdAreSameException+    , _BeforeCommitIdAndAfterCommitIdAreSameException+     -- ** RepositoryTriggersListRequiredException     , _RepositoryTriggersListRequiredException +    -- ** IdempotencyParameterMismatchException+    , _IdempotencyParameterMismatchException+     -- ** EncryptionKeyUnavailableException     , _EncryptionKeyUnavailableException +    -- ** InvalidRelativeFileVersionEnumException+    , _InvalidRelativeFileVersionEnumException+     -- ** InvalidRepositoryTriggerDestinationARNException     , _InvalidRepositoryTriggerDestinationARNException @@ -130,9 +226,21 @@     -- ** RepositoryNamesRequiredException     , _RepositoryNamesRequiredException +    -- ** InvalidActorARNException+    , _InvalidActorARNException++    -- ** InvalidCommentIdException+    , _InvalidCommentIdException++    -- ** InvalidDescriptionException+    , _InvalidDescriptionException+     -- ** InvalidBlobIdException     , _InvalidBlobIdException +    -- ** PullRequestDoesNotExistException+    , _PullRequestDoesNotExistException+     -- ** InvalidOrderException     , _InvalidOrderException @@ -145,24 +253,66 @@     -- ** InvalidPathException     , _InvalidPathException +    -- ** PathRequiredException+    , _PathRequiredException+     -- ** RepositoryTriggerNameRequiredException     , _RepositoryTriggerNameRequiredException +    -- ** InvalidFileModeException+    , _InvalidFileModeException++    -- ** InvalidPullRequestStatusException+    , _InvalidPullRequestStatusException++    -- ** ParentCommitIdRequiredException+    , _ParentCommitIdRequiredException++    -- ** InvalidSourceCommitSpecifierException+    , _InvalidSourceCommitSpecifierException+     -- ** RepositoryDoesNotExistException     , _RepositoryDoesNotExistException      -- ** MaximumBranchesExceededException     , _MaximumBranchesExceededException +    -- ** InvalidTitleException+    , _InvalidTitleException++    -- ** CommentContentSizeLimitExceededException+    , _CommentContentSizeLimitExceededException++    -- ** InvalidParentCommitIdException+    , _InvalidParentCommitIdException++    -- ** InvalidPullRequestEventTypeException+    , _InvalidPullRequestEventTypeException++    -- ** FileContentRequiredException+    , _FileContentRequiredException++    -- ** SourceAndDestinationAreSameException+    , _SourceAndDestinationAreSameException+     -- ** PathDoesNotExistException     , _PathDoesNotExistException      -- ** EncryptionIntegrityChecksFailedException     , _EncryptionIntegrityChecksFailedException +    -- ** ParentCommitIdOutdatedException+    , _ParentCommitIdOutdatedException+     -- ** RepositoryTriggerEventsListRequiredException     , _RepositoryTriggerEventsListRequiredException +    -- ** CommentContentRequiredException+    , _CommentContentRequiredException++    -- ** InvalidTargetsException+    , _InvalidTargetsException+     -- ** EncryptionKeyAccessDeniedException     , _EncryptionKeyAccessDeniedException @@ -172,6 +322,24 @@     -- ** InvalidCommitException     , _InvalidCommitException +    -- ** TargetRequiredException+    , _TargetRequiredException++    -- ** InvalidDestinationCommitSpecifierException+    , _InvalidDestinationCommitSpecifierException++    -- ** CommentDoesNotExistException+    , _CommentDoesNotExistException++    -- ** ReferenceTypeNotSupportedException+    , _ReferenceTypeNotSupportedException++    -- ** FileNameConflictsWithDirectoryNameException+    , _FileNameConflictsWithDirectoryNameException++    -- ** NameLengthExceededException+    , _NameLengthExceededException+     -- ** InvalidSortByException     , _InvalidSortByException @@ -181,21 +349,57 @@     -- ** CommitRequiredException     , _CommitRequiredException +    -- ** MaximumOpenPullRequestsExceededException+    , _MaximumOpenPullRequestsExceededException++    -- ** InvalidTargetException+    , _InvalidTargetException++    -- ** InvalidPullRequestIdException+    , _InvalidPullRequestIdException++    -- ** CommentNotCreatedByCallerException+    , _CommentNotCreatedByCallerException++    -- ** InvalidPullRequestStatusUpdateException+    , _InvalidPullRequestStatusUpdateException++    -- ** InvalidReferenceNameException+    , _InvalidReferenceNameException++    -- ** SameFileContentException+    , _SameFileContentException+     -- ** CommitIdRequiredException     , _CommitIdRequiredException      -- ** InvalidCommitIdException     , _InvalidCommitIdException +    -- ** TipOfSourceReferenceIsDifferentException+    , _TipOfSourceReferenceIsDifferentException+     -- ** RepositoryTriggerDestinationARNRequiredException     , _RepositoryTriggerDestinationARNRequiredException +    -- ** InvalidClientRequestTokenException+    , _InvalidClientRequestTokenException+     -- ** CommitDoesNotExistException     , _CommitDoesNotExistException      -- ** RepositoryTriggerBranchNameListRequiredException     , _RepositoryTriggerBranchNameListRequiredException +    -- ** ClientRequestTokenRequiredException+    , _ClientRequestTokenRequiredException++    -- ** InvalidMergeOptionException+    , _InvalidMergeOptionException++    -- ** CommentIdRequiredException+    , _CommentIdRequiredException+     -- ** InvalidMaxResultsException     , _InvalidMaxResultsException @@ -205,6 +409,12 @@     -- ** CommitIdDoesNotExistException     , _CommitIdDoesNotExistException +    -- ** MultipleRepositoriesInPullRequestException+    , _MultipleRepositoriesInPullRequestException++    -- ** FileContentSizeLimitExceededException+    , _FileContentSizeLimitExceededException+     -- ** InvalidRepositoryTriggerNameException     , _InvalidRepositoryTriggerNameException @@ -217,27 +427,69 @@     -- ** InvalidRepositoryTriggerEventsException     , _InvalidRepositoryTriggerEventsException +    -- ** BranchNameIsTagNameException+    , _BranchNameIsTagNameException+     -- ** InvalidRepositoryNameException     , _InvalidRepositoryNameException +    -- ** InvalidAuthorARNException+    , _InvalidAuthorARNException++    -- ** PullRequestStatusRequiredException+    , _PullRequestStatusRequiredException++    -- ** RepositoryNotAssociatedWithPullRequestException+    , _RepositoryNotAssociatedWithPullRequestException++    -- ** TitleRequiredException+    , _TitleRequiredException++    -- ** InvalidFilePositionException+    , _InvalidFilePositionException++    -- ** CommentDeletedException+    , _CommentDeletedException++    -- ** ParentCommitDoesNotExistException+    , _ParentCommitDoesNotExistException++    -- ** AuthorDoesNotExistException+    , _AuthorDoesNotExistException+     -- * Waiters     -- $waiters      -- * Operations     -- $operations +    -- ** MergePullRequestByFastForward+    , module Network.AWS.CodeCommit.MergePullRequestByFastForward+     -- ** UpdateRepositoryName     , module Network.AWS.CodeCommit.UpdateRepositoryName +    -- ** PostCommentForPullRequest+    , module Network.AWS.CodeCommit.PostCommentForPullRequest+     -- ** GetCommit     , module Network.AWS.CodeCommit.GetCommit      -- ** GetBranch     , module Network.AWS.CodeCommit.GetBranch -    -- ** GetDifferences+    -- ** GetDifferences (Paginated)     , module Network.AWS.CodeCommit.GetDifferences +    -- ** GetPullRequest+    , module Network.AWS.CodeCommit.GetPullRequest++    -- ** ListPullRequests (Paginated)+    , module Network.AWS.CodeCommit.ListPullRequests++    -- ** GetComment+    , module Network.AWS.CodeCommit.GetComment+     -- ** DeleteBranch     , module Network.AWS.CodeCommit.DeleteBranch @@ -247,9 +499,15 @@     -- ** CreateBranch     , module Network.AWS.CodeCommit.CreateBranch +    -- ** CreatePullRequest+    , module Network.AWS.CodeCommit.CreatePullRequest+     -- ** ListBranches (Paginated)     , module Network.AWS.CodeCommit.ListBranches +    -- ** UpdatePullRequestDescription+    , module Network.AWS.CodeCommit.UpdatePullRequestDescription+     -- ** ListRepositories (Paginated)     , module Network.AWS.CodeCommit.ListRepositories @@ -259,35 +517,83 @@     -- ** UpdateDefaultBranch     , module Network.AWS.CodeCommit.UpdateDefaultBranch +    -- ** PostCommentReply+    , module Network.AWS.CodeCommit.PostCommentReply+     -- ** GetRepository     , module Network.AWS.CodeCommit.GetRepository      -- ** GetRepositoryTriggers     , module Network.AWS.CodeCommit.GetRepositoryTriggers +    -- ** PutFile+    , module Network.AWS.CodeCommit.PutFile++    -- ** GetCommentsForComparedCommit (Paginated)+    , module Network.AWS.CodeCommit.GetCommentsForComparedCommit+     -- ** TestRepositoryTriggers     , module Network.AWS.CodeCommit.TestRepositoryTriggers +    -- ** UpdateComment+    , module Network.AWS.CodeCommit.UpdateComment++    -- ** PostCommentForComparedCommit+    , module Network.AWS.CodeCommit.PostCommentForComparedCommit++    -- ** UpdatePullRequestTitle+    , module Network.AWS.CodeCommit.UpdatePullRequestTitle+     -- ** GetBlob     , module Network.AWS.CodeCommit.GetBlob      -- ** PutRepositoryTriggers     , module Network.AWS.CodeCommit.PutRepositoryTriggers +    -- ** GetMergeConflicts+    , module Network.AWS.CodeCommit.GetMergeConflicts+     -- ** DeleteRepository     , module Network.AWS.CodeCommit.DeleteRepository +    -- ** DeleteCommentContent+    , module Network.AWS.CodeCommit.DeleteCommentContent++    -- ** DescribePullRequestEvents (Paginated)+    , module Network.AWS.CodeCommit.DescribePullRequestEvents+     -- ** BatchGetRepositories     , module Network.AWS.CodeCommit.BatchGetRepositories +    -- ** GetCommentsForPullRequest (Paginated)+    , module Network.AWS.CodeCommit.GetCommentsForPullRequest++    -- ** UpdatePullRequestStatus+    , module Network.AWS.CodeCommit.UpdatePullRequestStatus+     -- * Types      -- ** ChangeTypeEnum     , ChangeTypeEnum (..) +    -- ** FileModeTypeEnum+    , FileModeTypeEnum (..)++    -- ** MergeOptionTypeEnum+    , MergeOptionTypeEnum (..)+     -- ** OrderEnum     , OrderEnum (..) +    -- ** PullRequestEventType+    , PullRequestEventType (..)++    -- ** PullRequestStatusEnum+    , PullRequestStatusEnum (..)++    -- ** RelativeFileVersionEnum+    , RelativeFileVersionEnum (..)+     -- ** RepositoryTriggerEventEnum     , RepositoryTriggerEventEnum (..) @@ -307,6 +613,41 @@     , biCommitId     , biBranchName +    -- ** Comment+    , Comment+    , comment+    , cLastModifiedDate+    , cAuthorARN+    , cContent+    , cCreationDate+    , cDeleted+    , cClientRequestToken+    , cCommentId+    , cInReplyTo++    -- ** CommentsForComparedCommit+    , CommentsForComparedCommit+    , commentsForComparedCommit+    , cfccBeforeBlobId+    , cfccLocation+    , cfccAfterCommitId+    , cfccAfterBlobId+    , cfccBeforeCommitId+    , cfccRepositoryName+    , cfccComments++    -- ** CommentsForPullRequest+    , CommentsForPullRequest+    , commentsForPullRequest+    , cfprBeforeBlobId+    , cfprLocation+    , cfprAfterCommitId+    , cfprPullRequestId+    , cfprAfterBlobId+    , cfprBeforeCommitId+    , cfprRepositoryName+    , cfprComments+     -- ** Commit     , Commit     , commit@@ -325,6 +666,72 @@     , dBeforeBlob     , dChangeType +    -- ** Location+    , Location+    , location+    , lRelativeFileVersion+    , lFilePath+    , lFilePosition++    -- ** MergeMetadata+    , MergeMetadata+    , mergeMetadata+    , mmMergedBy+    , mmIsMerged++    -- ** PullRequest+    , PullRequest+    , pullRequest+    , prAuthorARN+    , prPullRequestId+    , prCreationDate+    , prPullRequestStatus+    , prTitle+    , prClientRequestToken+    , prLastActivityDate+    , prPullRequestTargets+    , prDescription++    -- ** PullRequestEvent+    , PullRequestEvent+    , pullRequestEvent+    , prePullRequestMergedStateChangedEventMetadata+    , prePullRequestEventType+    , prePullRequestStatusChangedEventMetadata+    , preActorARN+    , prePullRequestId+    , preEventDate+    , prePullRequestSourceReferenceUpdatedEventMetadata++    -- ** PullRequestMergedStateChangedEventMetadata+    , PullRequestMergedStateChangedEventMetadata+    , pullRequestMergedStateChangedEventMetadata+    , prmscemDestinationReference+    , prmscemMergeMetadata+    , prmscemRepositoryName++    -- ** PullRequestSourceReferenceUpdatedEventMetadata+    , PullRequestSourceReferenceUpdatedEventMetadata+    , pullRequestSourceReferenceUpdatedEventMetadata+    , prsruemAfterCommitId+    , prsruemBeforeCommitId+    , prsruemRepositoryName++    -- ** PullRequestStatusChangedEventMetadata+    , PullRequestStatusChangedEventMetadata+    , pullRequestStatusChangedEventMetadata+    , prscemPullRequestStatus++    -- ** PullRequestTarget+    , PullRequestTarget+    , pullRequestTarget+    , prtSourceCommit+    , prtDestinationReference+    , prtMergeMetadata+    , prtDestinationCommit+    , prtRepositoryName+    , prtSourceReference+     -- ** RepositoryMetadata     , RepositoryMetadata     , repositoryMetadata@@ -360,6 +767,13 @@     , rtefFailureMessage     , rtefTrigger +    -- ** Target+    , Target+    , target+    , tDestinationReference+    , tRepositoryName+    , tSourceReference+     -- ** UserInfo     , UserInfo     , userInfo@@ -370,21 +784,39 @@  import Network.AWS.CodeCommit.BatchGetRepositories import Network.AWS.CodeCommit.CreateBranch+import Network.AWS.CodeCommit.CreatePullRequest import Network.AWS.CodeCommit.CreateRepository import Network.AWS.CodeCommit.DeleteBranch+import Network.AWS.CodeCommit.DeleteCommentContent import Network.AWS.CodeCommit.DeleteRepository+import Network.AWS.CodeCommit.DescribePullRequestEvents import Network.AWS.CodeCommit.GetBlob import Network.AWS.CodeCommit.GetBranch+import Network.AWS.CodeCommit.GetComment+import Network.AWS.CodeCommit.GetCommentsForComparedCommit+import Network.AWS.CodeCommit.GetCommentsForPullRequest import Network.AWS.CodeCommit.GetCommit import Network.AWS.CodeCommit.GetDifferences+import Network.AWS.CodeCommit.GetMergeConflicts+import Network.AWS.CodeCommit.GetPullRequest import Network.AWS.CodeCommit.GetRepository import Network.AWS.CodeCommit.GetRepositoryTriggers import Network.AWS.CodeCommit.ListBranches+import Network.AWS.CodeCommit.ListPullRequests import Network.AWS.CodeCommit.ListRepositories+import Network.AWS.CodeCommit.MergePullRequestByFastForward+import Network.AWS.CodeCommit.PostCommentForComparedCommit+import Network.AWS.CodeCommit.PostCommentForPullRequest+import Network.AWS.CodeCommit.PostCommentReply+import Network.AWS.CodeCommit.PutFile import Network.AWS.CodeCommit.PutRepositoryTriggers import Network.AWS.CodeCommit.TestRepositoryTriggers import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.UpdateComment import Network.AWS.CodeCommit.UpdateDefaultBranch+import Network.AWS.CodeCommit.UpdatePullRequestDescription+import Network.AWS.CodeCommit.UpdatePullRequestStatus+import Network.AWS.CodeCommit.UpdatePullRequestTitle import Network.AWS.CodeCommit.UpdateRepositoryDescription import Network.AWS.CodeCommit.UpdateRepositoryName import Network.AWS.CodeCommit.Waiters

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.BatchGetRepositories--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | The names of the repositories to get information about. bgrRepositoryNames :: Lens' BatchGetRepositories [Text]-bgrRepositoryNames = lens _bgrRepositoryNames (\ s a -> s{_bgrRepositoryNames = a}) . _Coerce;+bgrRepositoryNames = lens _bgrRepositoryNames (\ s a -> s{_bgrRepositoryNames = a}) . _Coerce  instance AWSRequest BatchGetRepositories where         type Rs BatchGetRepositories =@@ -133,22 +133,22 @@     -> BatchGetRepositoriesResponse batchGetRepositoriesResponse pResponseStatus_ =   BatchGetRepositoriesResponse'-  { _bgrrsRepositories = Nothing-  , _bgrrsRepositoriesNotFound = Nothing-  , _bgrrsResponseStatus = pResponseStatus_-  }+    { _bgrrsRepositories = Nothing+    , _bgrrsRepositoriesNotFound = Nothing+    , _bgrrsResponseStatus = pResponseStatus_+    }   -- | A list of repositories returned by the batch get repositories operation. bgrrsRepositories :: Lens' BatchGetRepositoriesResponse [RepositoryMetadata]-bgrrsRepositories = lens _bgrrsRepositories (\ s a -> s{_bgrrsRepositories = a}) . _Default . _Coerce;+bgrrsRepositories = lens _bgrrsRepositories (\ s a -> s{_bgrrsRepositories = a}) . _Default . _Coerce  -- | Returns a list of repository names for which information could not be found. bgrrsRepositoriesNotFound :: Lens' BatchGetRepositoriesResponse [Text]-bgrrsRepositoriesNotFound = lens _bgrrsRepositoriesNotFound (\ s a -> s{_bgrrsRepositoriesNotFound = a}) . _Default . _Coerce;+bgrrsRepositoriesNotFound = lens _bgrrsRepositoriesNotFound (\ s a -> s{_bgrrsRepositoriesNotFound = a}) . _Default . _Coerce  -- | -- | The response status code. bgrrsResponseStatus :: Lens' BatchGetRepositoriesResponse Int-bgrrsResponseStatus = lens _bgrrsResponseStatus (\ s a -> s{_bgrrsResponseStatus = a});+bgrrsResponseStatus = lens _bgrrsResponseStatus (\ s a -> s{_bgrrsResponseStatus = a})  instance NFData BatchGetRepositoriesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.CreateBranch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,23 +71,23 @@     -> CreateBranch createBranch pRepositoryName_ pBranchName_ pCommitId_ =   CreateBranch'-  { _cbRepositoryName = pRepositoryName_-  , _cbBranchName = pBranchName_-  , _cbCommitId = pCommitId_-  }+    { _cbRepositoryName = pRepositoryName_+    , _cbBranchName = pBranchName_+    , _cbCommitId = pCommitId_+    }   -- | The name of the repository in which you want to create the new branch. cbRepositoryName :: Lens' CreateBranch Text-cbRepositoryName = lens _cbRepositoryName (\ s a -> s{_cbRepositoryName = a});+cbRepositoryName = lens _cbRepositoryName (\ s a -> s{_cbRepositoryName = a})  -- | The name of the new branch to create. cbBranchName :: Lens' CreateBranch Text-cbBranchName = lens _cbBranchName (\ s a -> s{_cbBranchName = a});+cbBranchName = lens _cbBranchName (\ s a -> s{_cbBranchName = a})  -- | The ID of the commit to point the new branch to. cbCommitId :: Lens' CreateBranch Text-cbCommitId = lens _cbCommitId (\ s a -> s{_cbCommitId = a});+cbCommitId = lens _cbCommitId (\ s a -> s{_cbCommitId = a})  instance AWSRequest CreateBranch where         type Rs CreateBranch = CreateBranchResponse

@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.CreatePullRequest+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a pull request in the specified repository.+--+--+module Network.AWS.CodeCommit.CreatePullRequest+    (+    -- * Creating a Request+      createPullRequest+    , CreatePullRequest+    -- * Request Lenses+    , cprClientRequestToken+    , cprDescription+    , cprTitle+    , cprTargets++    -- * Destructuring the Response+    , createPullRequestResponse+    , CreatePullRequestResponse+    -- * Response Lenses+    , cprrsResponseStatus+    , cprrsPullRequest+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'createPullRequest' smart constructor.+data CreatePullRequest = CreatePullRequest'+  { _cprClientRequestToken :: !(Maybe Text)+  , _cprDescription        :: !(Maybe Text)+  , _cprTitle              :: !Text+  , _cprTargets            :: ![Target]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cprClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'cprDescription' - A description of the pull request.+--+-- * 'cprTitle' - The title of the pull request. This title will be used to identify the pull request to other users in the repository.+--+-- * 'cprTargets' - The targets for the pull request, including the source of the code to be reviewed (the source branch), and the destination where the creator of the pull request intends the code to be merged after the pull request is closed (the destination branch).+createPullRequest+    :: Text -- ^ 'cprTitle'+    -> CreatePullRequest+createPullRequest pTitle_ =+  CreatePullRequest'+    { _cprClientRequestToken = Nothing+    , _cprDescription = Nothing+    , _cprTitle = pTitle_+    , _cprTargets = mempty+    }+++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+cprClientRequestToken :: Lens' CreatePullRequest (Maybe Text)+cprClientRequestToken = lens _cprClientRequestToken (\ s a -> s{_cprClientRequestToken = a})++-- | A description of the pull request.+cprDescription :: Lens' CreatePullRequest (Maybe Text)+cprDescription = lens _cprDescription (\ s a -> s{_cprDescription = a})++-- | The title of the pull request. This title will be used to identify the pull request to other users in the repository.+cprTitle :: Lens' CreatePullRequest Text+cprTitle = lens _cprTitle (\ s a -> s{_cprTitle = a})++-- | The targets for the pull request, including the source of the code to be reviewed (the source branch), and the destination where the creator of the pull request intends the code to be merged after the pull request is closed (the destination branch).+cprTargets :: Lens' CreatePullRequest [Target]+cprTargets = lens _cprTargets (\ s a -> s{_cprTargets = a}) . _Coerce++instance AWSRequest CreatePullRequest where+        type Rs CreatePullRequest = CreatePullRequestResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 CreatePullRequestResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "pullRequest"))++instance Hashable CreatePullRequest where++instance NFData CreatePullRequest where++instance ToHeaders CreatePullRequest where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.CreatePullRequest" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreatePullRequest where+        toJSON CreatePullRequest'{..}+          = object+              (catMaybes+                 [("clientRequestToken" .=) <$>+                    _cprClientRequestToken,+                  ("description" .=) <$> _cprDescription,+                  Just ("title" .= _cprTitle),+                  Just ("targets" .= _cprTargets)])++instance ToPath CreatePullRequest where+        toPath = const "/"++instance ToQuery CreatePullRequest where+        toQuery = const mempty++-- | /See:/ 'createPullRequestResponse' smart constructor.+data CreatePullRequestResponse = CreatePullRequestResponse'+  { _cprrsResponseStatus :: !Int+  , _cprrsPullRequest    :: !PullRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreatePullRequestResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cprrsResponseStatus' - -- | The response status code.+--+-- * 'cprrsPullRequest' - Information about the newly created pull request.+createPullRequestResponse+    :: Int -- ^ 'cprrsResponseStatus'+    -> PullRequest -- ^ 'cprrsPullRequest'+    -> CreatePullRequestResponse+createPullRequestResponse pResponseStatus_ pPullRequest_ =+  CreatePullRequestResponse'+    {_cprrsResponseStatus = pResponseStatus_, _cprrsPullRequest = pPullRequest_}+++-- | -- | The response status code.+cprrsResponseStatus :: Lens' CreatePullRequestResponse Int+cprrsResponseStatus = lens _cprrsResponseStatus (\ s a -> s{_cprrsResponseStatus = a})++-- | Information about the newly created pull request.+cprrsPullRequest :: Lens' CreatePullRequestResponse PullRequest+cprrsPullRequest = lens _cprrsPullRequest (\ s a -> s{_cprrsPullRequest = a})++instance NFData CreatePullRequestResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.CreateRepository--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,16 +68,16 @@     -> CreateRepository createRepository pRepositoryName_ =   CreateRepository'-  {_crRepositoryDescription = Nothing, _crRepositoryName = pRepositoryName_}+    {_crRepositoryDescription = Nothing, _crRepositoryName = pRepositoryName_}   -- | A comment or description about the new repository. crRepositoryDescription :: Lens' CreateRepository (Maybe Text)-crRepositoryDescription = lens _crRepositoryDescription (\ s a -> s{_crRepositoryDescription = a});+crRepositoryDescription = lens _crRepositoryDescription (\ s a -> s{_crRepositoryDescription = a})  -- | The name of the new repository to be created. crRepositoryName :: Lens' CreateRepository Text-crRepositoryName = lens _crRepositoryName (\ s a -> s{_crRepositoryName = a});+crRepositoryName = lens _crRepositoryName (\ s a -> s{_crRepositoryName = a})  instance AWSRequest CreateRepository where         type Rs CreateRepository = CreateRepositoryResponse@@ -139,15 +139,15 @@     -> CreateRepositoryResponse createRepositoryResponse pResponseStatus_ =   CreateRepositoryResponse'-  {_crrsRepositoryMetadata = Nothing, _crrsResponseStatus = pResponseStatus_}+    {_crrsRepositoryMetadata = Nothing, _crrsResponseStatus = pResponseStatus_}   -- | Information about the newly created repository. crrsRepositoryMetadata :: Lens' CreateRepositoryResponse (Maybe RepositoryMetadata)-crrsRepositoryMetadata = lens _crrsRepositoryMetadata (\ s a -> s{_crrsRepositoryMetadata = a});+crrsRepositoryMetadata = lens _crrsRepositoryMetadata (\ s a -> s{_crrsRepositoryMetadata = a})  -- | -- | The response status code. crrsResponseStatus :: Lens' CreateRepositoryResponse Int-crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a})  instance NFData CreateRepositoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.DeleteBranch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     -> DeleteBranch deleteBranch pRepositoryName_ pBranchName_ =   DeleteBranch'-  {_dbRepositoryName = pRepositoryName_, _dbBranchName = pBranchName_}+    {_dbRepositoryName = pRepositoryName_, _dbBranchName = pBranchName_}   -- | The name of the repository that contains the branch to be deleted. dbRepositoryName :: Lens' DeleteBranch Text-dbRepositoryName = lens _dbRepositoryName (\ s a -> s{_dbRepositoryName = a});+dbRepositoryName = lens _dbRepositoryName (\ s a -> s{_dbRepositoryName = a})  -- | The name of the branch to delete. dbBranchName :: Lens' DeleteBranch Text-dbBranchName = lens _dbBranchName (\ s a -> s{_dbBranchName = a});+dbBranchName = lens _dbBranchName (\ s a -> s{_dbBranchName = a})  instance AWSRequest DeleteBranch where         type Rs DeleteBranch = DeleteBranchResponse@@ -138,15 +138,15 @@     -> DeleteBranchResponse deleteBranchResponse pResponseStatus_ =   DeleteBranchResponse'-  {_dbrsDeletedBranch = Nothing, _dbrsResponseStatus = pResponseStatus_}+    {_dbrsDeletedBranch = Nothing, _dbrsResponseStatus = pResponseStatus_}   -- | Information about the branch deleted by the operation, including the branch name and the commit ID that was the tip of the branch. dbrsDeletedBranch :: Lens' DeleteBranchResponse (Maybe BranchInfo)-dbrsDeletedBranch = lens _dbrsDeletedBranch (\ s a -> s{_dbrsDeletedBranch = a});+dbrsDeletedBranch = lens _dbrsDeletedBranch (\ s a -> s{_dbrsDeletedBranch = a})  -- | -- | The response status code. dbrsResponseStatus :: Lens' DeleteBranchResponse Int-dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a});+dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a})  instance NFData DeleteBranchResponse where

@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.DeleteCommentContent+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the content of a comment made on a change, file, or commit in a repository.+--+--+module Network.AWS.CodeCommit.DeleteCommentContent+    (+    -- * Creating a Request+      deleteCommentContent+    , DeleteCommentContent+    -- * Request Lenses+    , dccCommentId++    -- * Destructuring the Response+    , deleteCommentContentResponse+    , DeleteCommentContentResponse+    -- * Response Lenses+    , dccrsComment+    , dccrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'deleteCommentContent' smart constructor.+newtype DeleteCommentContent = DeleteCommentContent'+  { _dccCommentId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteCommentContent' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dccCommentId' - The unique, system-generated ID of the comment. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+deleteCommentContent+    :: Text -- ^ 'dccCommentId'+    -> DeleteCommentContent+deleteCommentContent pCommentId_ =+  DeleteCommentContent' {_dccCommentId = pCommentId_}+++-- | The unique, system-generated ID of the comment. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+dccCommentId :: Lens' DeleteCommentContent Text+dccCommentId = lens _dccCommentId (\ s a -> s{_dccCommentId = a})++instance AWSRequest DeleteCommentContent where+        type Rs DeleteCommentContent =+             DeleteCommentContentResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 DeleteCommentContentResponse' <$>+                   (x .?> "comment") <*> (pure (fromEnum s)))++instance Hashable DeleteCommentContent where++instance NFData DeleteCommentContent where++instance ToHeaders DeleteCommentContent where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.DeleteCommentContent" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteCommentContent where+        toJSON DeleteCommentContent'{..}+          = object+              (catMaybes [Just ("commentId" .= _dccCommentId)])++instance ToPath DeleteCommentContent where+        toPath = const "/"++instance ToQuery DeleteCommentContent where+        toQuery = const mempty++-- | /See:/ 'deleteCommentContentResponse' smart constructor.+data DeleteCommentContentResponse = DeleteCommentContentResponse'+  { _dccrsComment        :: !(Maybe Comment)+  , _dccrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteCommentContentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dccrsComment' - Information about the comment you just deleted.+--+-- * 'dccrsResponseStatus' - -- | The response status code.+deleteCommentContentResponse+    :: Int -- ^ 'dccrsResponseStatus'+    -> DeleteCommentContentResponse+deleteCommentContentResponse pResponseStatus_ =+  DeleteCommentContentResponse'+    {_dccrsComment = Nothing, _dccrsResponseStatus = pResponseStatus_}+++-- | Information about the comment you just deleted.+dccrsComment :: Lens' DeleteCommentContentResponse (Maybe Comment)+dccrsComment = lens _dccrsComment (\ s a -> s{_dccrsComment = a})++-- | -- | The response status code.+dccrsResponseStatus :: Lens' DeleteCommentContentResponse Int+dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a})++instance NFData DeleteCommentContentResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.DeleteRepository--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | The name of the repository to delete. drRepositoryName :: Lens' DeleteRepository Text-drRepositoryName = lens _drRepositoryName (\ s a -> s{_drRepositoryName = a});+drRepositoryName = lens _drRepositoryName (\ s a -> s{_drRepositoryName = a})  instance AWSRequest DeleteRepository where         type Rs DeleteRepository = DeleteRepositoryResponse@@ -130,15 +130,15 @@     -> DeleteRepositoryResponse deleteRepositoryResponse pResponseStatus_ =   DeleteRepositoryResponse'-  {_drrsRepositoryId = Nothing, _drrsResponseStatus = pResponseStatus_}+    {_drrsRepositoryId = Nothing, _drrsResponseStatus = pResponseStatus_}   -- | The ID of the repository that was deleted. drrsRepositoryId :: Lens' DeleteRepositoryResponse (Maybe Text)-drrsRepositoryId = lens _drrsRepositoryId (\ s a -> s{_drrsRepositoryId = a});+drrsRepositoryId = lens _drrsRepositoryId (\ s a -> s{_drrsRepositoryId = a})  -- | -- | The response status code. drrsResponseStatus :: Lens' DeleteRepositoryResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DeleteRepositoryResponse where

@@ -0,0 +1,201 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.DescribePullRequestEvents+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about one or more pull request events.+--+--+--+-- This operation returns paginated results.+module Network.AWS.CodeCommit.DescribePullRequestEvents+    (+    -- * Creating a Request+      describePullRequestEvents+    , DescribePullRequestEvents+    -- * Request Lenses+    , dprePullRequestEventType+    , dpreActorARN+    , dpreNextToken+    , dpreMaxResults+    , dprePullRequestId++    -- * Destructuring the Response+    , describePullRequestEventsResponse+    , DescribePullRequestEventsResponse+    -- * Response Lenses+    , dprersNextToken+    , dprersResponseStatus+    , dprersPullRequestEvents+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'describePullRequestEvents' smart constructor.+data DescribePullRequestEvents = DescribePullRequestEvents'+  { _dprePullRequestEventType :: !(Maybe PullRequestEventType)+  , _dpreActorARN             :: !(Maybe Text)+  , _dpreNextToken            :: !(Maybe Text)+  , _dpreMaxResults           :: !(Maybe Int)+  , _dprePullRequestId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribePullRequestEvents' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dprePullRequestEventType' - Optional. The pull request event type about which you want to return information.+--+-- * 'dpreActorARN' - The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with additional commits or changing the status of a pull request.+--+-- * 'dpreNextToken' - An enumeration token that when provided in a request, returns the next batch of the results.+--+-- * 'dpreMaxResults' - A non-negative integer used to limit the number of returned results. The default is 100 events, which is also the maximum number of events that can be returned in a result.+--+-- * 'dprePullRequestId' - The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+describePullRequestEvents+    :: Text -- ^ 'dprePullRequestId'+    -> DescribePullRequestEvents+describePullRequestEvents pPullRequestId_ =+  DescribePullRequestEvents'+    { _dprePullRequestEventType = Nothing+    , _dpreActorARN = Nothing+    , _dpreNextToken = Nothing+    , _dpreMaxResults = Nothing+    , _dprePullRequestId = pPullRequestId_+    }+++-- | Optional. The pull request event type about which you want to return information.+dprePullRequestEventType :: Lens' DescribePullRequestEvents (Maybe PullRequestEventType)+dprePullRequestEventType = lens _dprePullRequestEventType (\ s a -> s{_dprePullRequestEventType = a})++-- | The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with additional commits or changing the status of a pull request.+dpreActorARN :: Lens' DescribePullRequestEvents (Maybe Text)+dpreActorARN = lens _dpreActorARN (\ s a -> s{_dpreActorARN = a})++-- | An enumeration token that when provided in a request, returns the next batch of the results.+dpreNextToken :: Lens' DescribePullRequestEvents (Maybe Text)+dpreNextToken = lens _dpreNextToken (\ s a -> s{_dpreNextToken = a})++-- | A non-negative integer used to limit the number of returned results. The default is 100 events, which is also the maximum number of events that can be returned in a result.+dpreMaxResults :: Lens' DescribePullRequestEvents (Maybe Int)+dpreMaxResults = lens _dpreMaxResults (\ s a -> s{_dpreMaxResults = a})++-- | The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+dprePullRequestId :: Lens' DescribePullRequestEvents Text+dprePullRequestId = lens _dprePullRequestId (\ s a -> s{_dprePullRequestId = a})++instance AWSPager DescribePullRequestEvents where+        page rq rs+          | stop (rs ^. dprersNextToken) = Nothing+          | stop (rs ^. dprersPullRequestEvents) = Nothing+          | otherwise =+            Just $ rq & dpreNextToken .~ rs ^. dprersNextToken++instance AWSRequest DescribePullRequestEvents where+        type Rs DescribePullRequestEvents =+             DescribePullRequestEventsResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 DescribePullRequestEventsResponse' <$>+                   (x .?> "nextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "pullRequestEvents" .!@ mempty))++instance Hashable DescribePullRequestEvents where++instance NFData DescribePullRequestEvents where++instance ToHeaders DescribePullRequestEvents where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.DescribePullRequestEvents" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribePullRequestEvents where+        toJSON DescribePullRequestEvents'{..}+          = object+              (catMaybes+                 [("pullRequestEventType" .=) <$>+                    _dprePullRequestEventType,+                  ("actorArn" .=) <$> _dpreActorARN,+                  ("nextToken" .=) <$> _dpreNextToken,+                  ("maxResults" .=) <$> _dpreMaxResults,+                  Just ("pullRequestId" .= _dprePullRequestId)])++instance ToPath DescribePullRequestEvents where+        toPath = const "/"++instance ToQuery DescribePullRequestEvents where+        toQuery = const mempty++-- | /See:/ 'describePullRequestEventsResponse' smart constructor.+data DescribePullRequestEventsResponse = DescribePullRequestEventsResponse'+  { _dprersNextToken         :: !(Maybe Text)+  , _dprersResponseStatus    :: !Int+  , _dprersPullRequestEvents :: ![PullRequestEvent]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribePullRequestEventsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dprersNextToken' - An enumeration token that can be used in a request to return the next batch of the results.+--+-- * 'dprersResponseStatus' - -- | The response status code.+--+-- * 'dprersPullRequestEvents' - Information about the pull request events.+describePullRequestEventsResponse+    :: Int -- ^ 'dprersResponseStatus'+    -> DescribePullRequestEventsResponse+describePullRequestEventsResponse pResponseStatus_ =+  DescribePullRequestEventsResponse'+    { _dprersNextToken = Nothing+    , _dprersResponseStatus = pResponseStatus_+    , _dprersPullRequestEvents = mempty+    }+++-- | An enumeration token that can be used in a request to return the next batch of the results.+dprersNextToken :: Lens' DescribePullRequestEventsResponse (Maybe Text)+dprersNextToken = lens _dprersNextToken (\ s a -> s{_dprersNextToken = a})++-- | -- | The response status code.+dprersResponseStatus :: Lens' DescribePullRequestEventsResponse Int+dprersResponseStatus = lens _dprersResponseStatus (\ s a -> s{_dprersResponseStatus = a})++-- | Information about the pull request events.+dprersPullRequestEvents :: Lens' DescribePullRequestEventsResponse [PullRequestEvent]+dprersPullRequestEvents = lens _dprersPullRequestEvents (\ s a -> s{_dprersPullRequestEvents = a}) . _Coerce++instance NFData DescribePullRequestEventsResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetBlob--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,11 +73,11 @@  -- | The name of the repository that contains the blob. gRepositoryName :: Lens' GetBlob Text-gRepositoryName = lens _gRepositoryName (\ s a -> s{_gRepositoryName = a});+gRepositoryName = lens _gRepositoryName (\ s a -> s{_gRepositoryName = a})  -- | The ID of the blob, which is its SHA-1 pointer. gBlobId :: Lens' GetBlob Text-gBlobId = lens _gBlobId (\ s a -> s{_gBlobId = a});+gBlobId = lens _gBlobId (\ s a -> s{_gBlobId = a})  instance AWSRequest GetBlob where         type Rs GetBlob = GetBlobResponse@@ -138,15 +138,15 @@     -> GetBlobResponse getBlobResponse pResponseStatus_ pContent_ =   GetBlobResponse'-  {_gbrsResponseStatus = pResponseStatus_, _gbrsContent = _Base64 # pContent_}+    {_gbrsResponseStatus = pResponseStatus_, _gbrsContent = _Base64 # pContent_}   -- | -- | The response status code. gbrsResponseStatus :: Lens' GetBlobResponse Int-gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a});+gbrsResponseStatus = lens _gbrsResponseStatus (\ s a -> s{_gbrsResponseStatus = a})  -- | The content of the blob, usually a file.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. gbrsContent :: Lens' GetBlobResponse ByteString-gbrsContent = lens _gbrsContent (\ s a -> s{_gbrsContent = a}) . _Base64;+gbrsContent = lens _gbrsContent (\ s a -> s{_gbrsContent = a}) . _Base64  instance NFData GetBlobResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetBranch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,11 +70,11 @@  -- | The name of the branch for which you want to retrieve information. gbBranchName :: Lens' GetBranch (Maybe Text)-gbBranchName = lens _gbBranchName (\ s a -> s{_gbBranchName = a});+gbBranchName = lens _gbBranchName (\ s a -> s{_gbBranchName = a})  -- | The name of the repository that contains the branch for which you want to retrieve information. gbRepositoryName :: Lens' GetBranch (Maybe Text)-gbRepositoryName = lens _gbRepositoryName (\ s a -> s{_gbRepositoryName = a});+gbRepositoryName = lens _gbRepositoryName (\ s a -> s{_gbRepositoryName = a})  instance AWSRequest GetBranch where         type Rs GetBranch = GetBranchResponse@@ -134,15 +134,15 @@     -> GetBranchResponse getBranchResponse pResponseStatus_ =   GetBranchResponse'-  {_grsBranch = Nothing, _grsResponseStatus = pResponseStatus_}+    {_grsBranch = Nothing, _grsResponseStatus = pResponseStatus_}   -- | The name of the branch. grsBranch :: Lens' GetBranchResponse (Maybe BranchInfo)-grsBranch = lens _grsBranch (\ s a -> s{_grsBranch = a});+grsBranch = lens _grsBranch (\ s a -> s{_grsBranch = a})  -- | -- | The response status code. grsResponseStatus :: Lens' GetBranchResponse Int-grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a});+grsResponseStatus = lens _grsResponseStatus (\ s a -> s{_grsResponseStatus = a})  instance NFData GetBranchResponse where

@@ -0,0 +1,131 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.GetComment+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the content of a comment made on a change, file, or commit in a repository.+--+--+module Network.AWS.CodeCommit.GetComment+    (+    -- * Creating a Request+      getComment+    , GetComment+    -- * Request Lenses+    , gcCommentId++    -- * Destructuring the Response+    , getCommentResponse+    , GetCommentResponse+    -- * Response Lenses+    , getrsComment+    , getrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getComment' smart constructor.+newtype GetComment = GetComment'+  { _gcCommentId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetComment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcCommentId' - The unique, system-generated ID of the comment. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+getComment+    :: Text -- ^ 'gcCommentId'+    -> GetComment+getComment pCommentId_ = GetComment' {_gcCommentId = pCommentId_}+++-- | The unique, system-generated ID of the comment. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+gcCommentId :: Lens' GetComment Text+gcCommentId = lens _gcCommentId (\ s a -> s{_gcCommentId = a})++instance AWSRequest GetComment where+        type Rs GetComment = GetCommentResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 GetCommentResponse' <$>+                   (x .?> "comment") <*> (pure (fromEnum s)))++instance Hashable GetComment where++instance NFData GetComment where++instance ToHeaders GetComment where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.GetComment" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetComment where+        toJSON GetComment'{..}+          = object+              (catMaybes [Just ("commentId" .= _gcCommentId)])++instance ToPath GetComment where+        toPath = const "/"++instance ToQuery GetComment where+        toQuery = const mempty++-- | /See:/ 'getCommentResponse' smart constructor.+data GetCommentResponse = GetCommentResponse'+  { _getrsComment        :: !(Maybe Comment)+  , _getrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCommentResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'getrsComment' - The contents of the comment.+--+-- * 'getrsResponseStatus' - -- | The response status code.+getCommentResponse+    :: Int -- ^ 'getrsResponseStatus'+    -> GetCommentResponse+getCommentResponse pResponseStatus_ =+  GetCommentResponse'+    {_getrsComment = Nothing, _getrsResponseStatus = pResponseStatus_}+++-- | The contents of the comment.+getrsComment :: Lens' GetCommentResponse (Maybe Comment)+getrsComment = lens _getrsComment (\ s a -> s{_getrsComment = a})++-- | -- | The response status code.+getrsResponseStatus :: Lens' GetCommentResponse Int+getrsResponseStatus = lens _getrsResponseStatus (\ s a -> s{_getrsResponseStatus = a})++instance NFData GetCommentResponse where

@@ -0,0 +1,204 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.GetCommentsForComparedCommit+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about comments made on the comparison between two commits.+--+--+--+-- This operation returns paginated results.+module Network.AWS.CodeCommit.GetCommentsForComparedCommit+    (+    -- * Creating a Request+      getCommentsForComparedCommit+    , GetCommentsForComparedCommit+    -- * Request Lenses+    , gcfccNextToken+    , gcfccBeforeCommitId+    , gcfccMaxResults+    , gcfccRepositoryName+    , gcfccAfterCommitId++    -- * Destructuring the Response+    , getCommentsForComparedCommitResponse+    , GetCommentsForComparedCommitResponse+    -- * Response Lenses+    , gcfccrsCommentsForComparedCommitData+    , gcfccrsNextToken+    , gcfccrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getCommentsForComparedCommit' smart constructor.+data GetCommentsForComparedCommit = GetCommentsForComparedCommit'+  { _gcfccNextToken      :: !(Maybe Text)+  , _gcfccBeforeCommitId :: !(Maybe Text)+  , _gcfccMaxResults     :: !(Maybe Int)+  , _gcfccRepositoryName :: !Text+  , _gcfccAfterCommitId  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCommentsForComparedCommit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcfccNextToken' - An enumeration token that when provided in a request, returns the next batch of the results.+--+-- * 'gcfccBeforeCommitId' - To establish the directionality of the comparison, the full commit ID of the 'before' commit.+--+-- * 'gcfccMaxResults' - A non-negative integer used to limit the number of returned results. The default is 100 comments, and is configurable up to 500.+--+-- * 'gcfccRepositoryName' - The name of the repository where you want to compare commits.+--+-- * 'gcfccAfterCommitId' - To establish the directionality of the comparison, the full commit ID of the 'after' commit.+getCommentsForComparedCommit+    :: Text -- ^ 'gcfccRepositoryName'+    -> Text -- ^ 'gcfccAfterCommitId'+    -> GetCommentsForComparedCommit+getCommentsForComparedCommit pRepositoryName_ pAfterCommitId_ =+  GetCommentsForComparedCommit'+    { _gcfccNextToken = Nothing+    , _gcfccBeforeCommitId = Nothing+    , _gcfccMaxResults = Nothing+    , _gcfccRepositoryName = pRepositoryName_+    , _gcfccAfterCommitId = pAfterCommitId_+    }+++-- | An enumeration token that when provided in a request, returns the next batch of the results.+gcfccNextToken :: Lens' GetCommentsForComparedCommit (Maybe Text)+gcfccNextToken = lens _gcfccNextToken (\ s a -> s{_gcfccNextToken = a})++-- | To establish the directionality of the comparison, the full commit ID of the 'before' commit.+gcfccBeforeCommitId :: Lens' GetCommentsForComparedCommit (Maybe Text)+gcfccBeforeCommitId = lens _gcfccBeforeCommitId (\ s a -> s{_gcfccBeforeCommitId = a})++-- | A non-negative integer used to limit the number of returned results. The default is 100 comments, and is configurable up to 500.+gcfccMaxResults :: Lens' GetCommentsForComparedCommit (Maybe Int)+gcfccMaxResults = lens _gcfccMaxResults (\ s a -> s{_gcfccMaxResults = a})++-- | The name of the repository where you want to compare commits.+gcfccRepositoryName :: Lens' GetCommentsForComparedCommit Text+gcfccRepositoryName = lens _gcfccRepositoryName (\ s a -> s{_gcfccRepositoryName = a})++-- | To establish the directionality of the comparison, the full commit ID of the 'after' commit.+gcfccAfterCommitId :: Lens' GetCommentsForComparedCommit Text+gcfccAfterCommitId = lens _gcfccAfterCommitId (\ s a -> s{_gcfccAfterCommitId = a})++instance AWSPager GetCommentsForComparedCommit where+        page rq rs+          | stop (rs ^. gcfccrsNextToken) = Nothing+          | stop (rs ^. gcfccrsCommentsForComparedCommitData) =+            Nothing+          | otherwise =+            Just $ rq & gcfccNextToken .~ rs ^. gcfccrsNextToken++instance AWSRequest GetCommentsForComparedCommit+         where+        type Rs GetCommentsForComparedCommit =+             GetCommentsForComparedCommitResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 GetCommentsForComparedCommitResponse' <$>+                   (x .?> "commentsForComparedCommitData" .!@ mempty)+                     <*> (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable GetCommentsForComparedCommit where++instance NFData GetCommentsForComparedCommit where++instance ToHeaders GetCommentsForComparedCommit where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.GetCommentsForComparedCommit"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetCommentsForComparedCommit where+        toJSON GetCommentsForComparedCommit'{..}+          = object+              (catMaybes+                 [("nextToken" .=) <$> _gcfccNextToken,+                  ("beforeCommitId" .=) <$> _gcfccBeforeCommitId,+                  ("maxResults" .=) <$> _gcfccMaxResults,+                  Just ("repositoryName" .= _gcfccRepositoryName),+                  Just ("afterCommitId" .= _gcfccAfterCommitId)])++instance ToPath GetCommentsForComparedCommit where+        toPath = const "/"++instance ToQuery GetCommentsForComparedCommit where+        toQuery = const mempty++-- | /See:/ 'getCommentsForComparedCommitResponse' smart constructor.+data GetCommentsForComparedCommitResponse = GetCommentsForComparedCommitResponse'+  { _gcfccrsCommentsForComparedCommitData :: !(Maybe [CommentsForComparedCommit])+  , _gcfccrsNextToken :: !(Maybe Text)+  , _gcfccrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCommentsForComparedCommitResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcfccrsCommentsForComparedCommitData' - A list of comment objects on the compared commit.+--+-- * 'gcfccrsNextToken' - An enumeration token that can be used in a request to return the next batch of the results.+--+-- * 'gcfccrsResponseStatus' - -- | The response status code.+getCommentsForComparedCommitResponse+    :: Int -- ^ 'gcfccrsResponseStatus'+    -> GetCommentsForComparedCommitResponse+getCommentsForComparedCommitResponse pResponseStatus_ =+  GetCommentsForComparedCommitResponse'+    { _gcfccrsCommentsForComparedCommitData = Nothing+    , _gcfccrsNextToken = Nothing+    , _gcfccrsResponseStatus = pResponseStatus_+    }+++-- | A list of comment objects on the compared commit.+gcfccrsCommentsForComparedCommitData :: Lens' GetCommentsForComparedCommitResponse [CommentsForComparedCommit]+gcfccrsCommentsForComparedCommitData = lens _gcfccrsCommentsForComparedCommitData (\ s a -> s{_gcfccrsCommentsForComparedCommitData = a}) . _Default . _Coerce++-- | An enumeration token that can be used in a request to return the next batch of the results.+gcfccrsNextToken :: Lens' GetCommentsForComparedCommitResponse (Maybe Text)+gcfccrsNextToken = lens _gcfccrsNextToken (\ s a -> s{_gcfccrsNextToken = a})++-- | -- | The response status code.+gcfccrsResponseStatus :: Lens' GetCommentsForComparedCommitResponse Int+gcfccrsResponseStatus = lens _gcfccrsResponseStatus (\ s a -> s{_gcfccrsResponseStatus = a})++instance NFData GetCommentsForComparedCommitResponse+         where

@@ -0,0 +1,212 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.GetCommentsForPullRequest+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns comments made on a pull request.+--+--+--+-- This operation returns paginated results.+module Network.AWS.CodeCommit.GetCommentsForPullRequest+    (+    -- * Creating a Request+      getCommentsForPullRequest+    , GetCommentsForPullRequest+    -- * Request Lenses+    , gcfprAfterCommitId+    , gcfprNextToken+    , gcfprBeforeCommitId+    , gcfprRepositoryName+    , gcfprMaxResults+    , gcfprPullRequestId++    -- * Destructuring the Response+    , getCommentsForPullRequestResponse+    , GetCommentsForPullRequestResponse+    -- * Response Lenses+    , gcfprrsCommentsForPullRequestData+    , gcfprrsNextToken+    , gcfprrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getCommentsForPullRequest' smart constructor.+data GetCommentsForPullRequest = GetCommentsForPullRequest'+  { _gcfprAfterCommitId  :: !(Maybe Text)+  , _gcfprNextToken      :: !(Maybe Text)+  , _gcfprBeforeCommitId :: !(Maybe Text)+  , _gcfprRepositoryName :: !(Maybe Text)+  , _gcfprMaxResults     :: !(Maybe Int)+  , _gcfprPullRequestId  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCommentsForPullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcfprAfterCommitId' - The full commit ID of the commit in the source branch that was the tip of the branch at the time the comment was made.+--+-- * 'gcfprNextToken' - An enumeration token that when provided in a request, returns the next batch of the results.+--+-- * 'gcfprBeforeCommitId' - The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created.+--+-- * 'gcfprRepositoryName' - The name of the repository that contains the pull request.+--+-- * 'gcfprMaxResults' - A non-negative integer used to limit the number of returned results. The default is 100 comments. You can return up to 500 comments with a single request.+--+-- * 'gcfprPullRequestId' - The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+getCommentsForPullRequest+    :: Text -- ^ 'gcfprPullRequestId'+    -> GetCommentsForPullRequest+getCommentsForPullRequest pPullRequestId_ =+  GetCommentsForPullRequest'+    { _gcfprAfterCommitId = Nothing+    , _gcfprNextToken = Nothing+    , _gcfprBeforeCommitId = Nothing+    , _gcfprRepositoryName = Nothing+    , _gcfprMaxResults = Nothing+    , _gcfprPullRequestId = pPullRequestId_+    }+++-- | The full commit ID of the commit in the source branch that was the tip of the branch at the time the comment was made.+gcfprAfterCommitId :: Lens' GetCommentsForPullRequest (Maybe Text)+gcfprAfterCommitId = lens _gcfprAfterCommitId (\ s a -> s{_gcfprAfterCommitId = a})++-- | An enumeration token that when provided in a request, returns the next batch of the results.+gcfprNextToken :: Lens' GetCommentsForPullRequest (Maybe Text)+gcfprNextToken = lens _gcfprNextToken (\ s a -> s{_gcfprNextToken = a})++-- | The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created.+gcfprBeforeCommitId :: Lens' GetCommentsForPullRequest (Maybe Text)+gcfprBeforeCommitId = lens _gcfprBeforeCommitId (\ s a -> s{_gcfprBeforeCommitId = a})++-- | The name of the repository that contains the pull request.+gcfprRepositoryName :: Lens' GetCommentsForPullRequest (Maybe Text)+gcfprRepositoryName = lens _gcfprRepositoryName (\ s a -> s{_gcfprRepositoryName = a})++-- | A non-negative integer used to limit the number of returned results. The default is 100 comments. You can return up to 500 comments with a single request.+gcfprMaxResults :: Lens' GetCommentsForPullRequest (Maybe Int)+gcfprMaxResults = lens _gcfprMaxResults (\ s a -> s{_gcfprMaxResults = a})++-- | The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+gcfprPullRequestId :: Lens' GetCommentsForPullRequest Text+gcfprPullRequestId = lens _gcfprPullRequestId (\ s a -> s{_gcfprPullRequestId = a})++instance AWSPager GetCommentsForPullRequest where+        page rq rs+          | stop (rs ^. gcfprrsNextToken) = Nothing+          | stop (rs ^. gcfprrsCommentsForPullRequestData) =+            Nothing+          | otherwise =+            Just $ rq & gcfprNextToken .~ rs ^. gcfprrsNextToken++instance AWSRequest GetCommentsForPullRequest where+        type Rs GetCommentsForPullRequest =+             GetCommentsForPullRequestResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 GetCommentsForPullRequestResponse' <$>+                   (x .?> "commentsForPullRequestData" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable GetCommentsForPullRequest where++instance NFData GetCommentsForPullRequest where++instance ToHeaders GetCommentsForPullRequest where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.GetCommentsForPullRequest" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetCommentsForPullRequest where+        toJSON GetCommentsForPullRequest'{..}+          = object+              (catMaybes+                 [("afterCommitId" .=) <$> _gcfprAfterCommitId,+                  ("nextToken" .=) <$> _gcfprNextToken,+                  ("beforeCommitId" .=) <$> _gcfprBeforeCommitId,+                  ("repositoryName" .=) <$> _gcfprRepositoryName,+                  ("maxResults" .=) <$> _gcfprMaxResults,+                  Just ("pullRequestId" .= _gcfprPullRequestId)])++instance ToPath GetCommentsForPullRequest where+        toPath = const "/"++instance ToQuery GetCommentsForPullRequest where+        toQuery = const mempty++-- | /See:/ 'getCommentsForPullRequestResponse' smart constructor.+data GetCommentsForPullRequestResponse = GetCommentsForPullRequestResponse'+  { _gcfprrsCommentsForPullRequestData :: !(Maybe [CommentsForPullRequest])+  , _gcfprrsNextToken                  :: !(Maybe Text)+  , _gcfprrsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetCommentsForPullRequestResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcfprrsCommentsForPullRequestData' - An array of comment objects on the pull request.+--+-- * 'gcfprrsNextToken' - An enumeration token that can be used in a request to return the next batch of the results.+--+-- * 'gcfprrsResponseStatus' - -- | The response status code.+getCommentsForPullRequestResponse+    :: Int -- ^ 'gcfprrsResponseStatus'+    -> GetCommentsForPullRequestResponse+getCommentsForPullRequestResponse pResponseStatus_ =+  GetCommentsForPullRequestResponse'+    { _gcfprrsCommentsForPullRequestData = Nothing+    , _gcfprrsNextToken = Nothing+    , _gcfprrsResponseStatus = pResponseStatus_+    }+++-- | An array of comment objects on the pull request.+gcfprrsCommentsForPullRequestData :: Lens' GetCommentsForPullRequestResponse [CommentsForPullRequest]+gcfprrsCommentsForPullRequestData = lens _gcfprrsCommentsForPullRequestData (\ s a -> s{_gcfprrsCommentsForPullRequestData = a}) . _Default . _Coerce++-- | An enumeration token that can be used in a request to return the next batch of the results.+gcfprrsNextToken :: Lens' GetCommentsForPullRequestResponse (Maybe Text)+gcfprrsNextToken = lens _gcfprrsNextToken (\ s a -> s{_gcfprrsNextToken = a})++-- | -- | The response status code.+gcfprrsResponseStatus :: Lens' GetCommentsForPullRequestResponse Int+gcfprrsResponseStatus = lens _gcfprrsResponseStatus (\ s a -> s{_gcfprrsResponseStatus = a})++instance NFData GetCommentsForPullRequestResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetCommit--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,11 +73,11 @@  -- | The name of the repository to which the commit was made. gcRepositoryName :: Lens' GetCommit Text-gcRepositoryName = lens _gcRepositoryName (\ s a -> s{_gcRepositoryName = a});+gcRepositoryName = lens _gcRepositoryName (\ s a -> s{_gcRepositoryName = a})  -- | The commit ID. Commit IDs are the full SHA of the commit. gcCommitId :: Lens' GetCommit Text-gcCommitId = lens _gcCommitId (\ s a -> s{_gcCommitId = a});+gcCommitId = lens _gcCommitId (\ s a -> s{_gcCommitId = a})  instance AWSRequest GetCommit where         type Rs GetCommit = GetCommitResponse@@ -138,15 +138,15 @@     -> GetCommitResponse getCommitResponse pResponseStatus_ pCommit_ =   GetCommitResponse'-  {_gcrsResponseStatus = pResponseStatus_, _gcrsCommit = pCommit_}+    {_gcrsResponseStatus = pResponseStatus_, _gcrsCommit = pCommit_}   -- | -- | The response status code. gcrsResponseStatus :: Lens' GetCommitResponse Int-gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a});+gcrsResponseStatus = lens _gcrsResponseStatus (\ s a -> s{_gcrsResponseStatus = a})  -- | A commit data type object that contains information about the specified commit. gcrsCommit :: Lens' GetCommitResponse Commit-gcrsCommit = lens _gcrsCommit (\ s a -> s{_gcrsCommit = a});+gcrsCommit = lens _gcrsCommit (\ s a -> s{_gcrsCommit = a})  instance NFData GetCommitResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetDifferences--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- Returns information about the differences in a valid commit specifier (such as a branch, tag, HEAD, commit ID or other fully qualified reference). Results can be limited to a specified path. -- --+--+-- This operation returns paginated results. module Network.AWS.CodeCommit.GetDifferences     (     -- * Creating a Request@@ -47,6 +49,7 @@ import Network.AWS.CodeCommit.Types import Network.AWS.CodeCommit.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -86,44 +89,51 @@     -> GetDifferences getDifferences pRepositoryName_ pAfterCommitSpecifier_ =   GetDifferences'-  { _gdAfterPath = Nothing-  , _gdNextToken = Nothing-  , _gdBeforeCommitSpecifier = Nothing-  , _gdBeforePath = Nothing-  , _gdMaxResults = Nothing-  , _gdRepositoryName = pRepositoryName_-  , _gdAfterCommitSpecifier = pAfterCommitSpecifier_-  }+    { _gdAfterPath = Nothing+    , _gdNextToken = Nothing+    , _gdBeforeCommitSpecifier = Nothing+    , _gdBeforePath = Nothing+    , _gdMaxResults = Nothing+    , _gdRepositoryName = pRepositoryName_+    , _gdAfterCommitSpecifier = pAfterCommitSpecifier_+    }   -- | The file path in which to check differences. Limits the results to this path. Can also be used to specify the changed name of a directory or folder, if it has changed. If not specified, differences will be shown for all paths. gdAfterPath :: Lens' GetDifferences (Maybe Text)-gdAfterPath = lens _gdAfterPath (\ s a -> s{_gdAfterPath = a});+gdAfterPath = lens _gdAfterPath (\ s a -> s{_gdAfterPath = a})  -- | An enumeration token that when provided in a request, returns the next batch of the results. gdNextToken :: Lens' GetDifferences (Maybe Text)-gdNextToken = lens _gdNextToken (\ s a -> s{_gdNextToken = a});+gdNextToken = lens _gdNextToken (\ s a -> s{_gdNextToken = a})  -- | The branch, tag, HEAD, or other fully qualified reference used to identify a commit. For example, the full commit ID. Optional. If not specified, all changes prior to the @afterCommitSpecifier@ value will be shown. If you do not use @beforeCommitSpecifier@ in your request, consider limiting the results with @maxResults@ . gdBeforeCommitSpecifier :: Lens' GetDifferences (Maybe Text)-gdBeforeCommitSpecifier = lens _gdBeforeCommitSpecifier (\ s a -> s{_gdBeforeCommitSpecifier = a});+gdBeforeCommitSpecifier = lens _gdBeforeCommitSpecifier (\ s a -> s{_gdBeforeCommitSpecifier = a})  -- | The file path in which to check for differences. Limits the results to this path. Can also be used to specify the previous name of a directory or folder. If @beforePath@ and @afterPath@ are not specified, differences will be shown for all paths. gdBeforePath :: Lens' GetDifferences (Maybe Text)-gdBeforePath = lens _gdBeforePath (\ s a -> s{_gdBeforePath = a});+gdBeforePath = lens _gdBeforePath (\ s a -> s{_gdBeforePath = a})  -- | A non-negative integer used to limit the number of returned results. gdMaxResults :: Lens' GetDifferences (Maybe Int)-gdMaxResults = lens _gdMaxResults (\ s a -> s{_gdMaxResults = a});+gdMaxResults = lens _gdMaxResults (\ s a -> s{_gdMaxResults = a})  -- | The name of the repository where you want to get differences. gdRepositoryName :: Lens' GetDifferences Text-gdRepositoryName = lens _gdRepositoryName (\ s a -> s{_gdRepositoryName = a});+gdRepositoryName = lens _gdRepositoryName (\ s a -> s{_gdRepositoryName = a})  -- | The branch, tag, HEAD, or other fully qualified reference used to identify a commit. gdAfterCommitSpecifier :: Lens' GetDifferences Text-gdAfterCommitSpecifier = lens _gdAfterCommitSpecifier (\ s a -> s{_gdAfterCommitSpecifier = a});+gdAfterCommitSpecifier = lens _gdAfterCommitSpecifier (\ s a -> s{_gdAfterCommitSpecifier = a}) +instance AWSPager GetDifferences where+        page rq rs+          | stop (rs ^. gdrsNextToken) = Nothing+          | stop (rs ^. gdrsDifferences) = Nothing+          | otherwise =+            Just $ rq & gdNextToken .~ rs ^. gdrsNextToken+ instance AWSRequest GetDifferences where         type Rs GetDifferences = GetDifferencesResponse         request = postJSON codeCommit@@ -190,22 +200,22 @@     -> GetDifferencesResponse getDifferencesResponse pResponseStatus_ =   GetDifferencesResponse'-  { _gdrsNextToken = Nothing-  , _gdrsDifferences = Nothing-  , _gdrsResponseStatus = pResponseStatus_-  }+    { _gdrsNextToken = Nothing+    , _gdrsDifferences = Nothing+    , _gdrsResponseStatus = pResponseStatus_+    }   -- | An enumeration token that can be used in a request to return the next batch of the results. gdrsNextToken :: Lens' GetDifferencesResponse (Maybe Text)-gdrsNextToken = lens _gdrsNextToken (\ s a -> s{_gdrsNextToken = a});+gdrsNextToken = lens _gdrsNextToken (\ s a -> s{_gdrsNextToken = a})  -- | A differences data type object that contains information about the differences, including whether the difference is added, modified, or deleted (A, D, M). gdrsDifferences :: Lens' GetDifferencesResponse [Difference]-gdrsDifferences = lens _gdrsDifferences (\ s a -> s{_gdrsDifferences = a}) . _Default . _Coerce;+gdrsDifferences = lens _gdrsDifferences (\ s a -> s{_gdrsDifferences = a}) . _Default . _Coerce  -- | -- | The response status code. gdrsResponseStatus :: Lens' GetDifferencesResponse Int-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})  instance NFData GetDifferencesResponse where

@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.GetMergeConflicts+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about merge conflicts between the before and after commit IDs for a pull request in a repository.+--+--+module Network.AWS.CodeCommit.GetMergeConflicts+    (+    -- * Creating a Request+      getMergeConflicts+    , GetMergeConflicts+    -- * Request Lenses+    , gmcRepositoryName+    , gmcDestinationCommitSpecifier+    , gmcSourceCommitSpecifier+    , gmcMergeOption++    -- * Destructuring the Response+    , getMergeConflictsResponse+    , GetMergeConflictsResponse+    -- * Response Lenses+    , gmcrsResponseStatus+    , gmcrsMergeable+    , gmcrsDestinationCommitId+    , gmcrsSourceCommitId+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getMergeConflicts' smart constructor.+data GetMergeConflicts = GetMergeConflicts'+  { _gmcRepositoryName             :: !Text+  , _gmcDestinationCommitSpecifier :: !Text+  , _gmcSourceCommitSpecifier      :: !Text+  , _gmcMergeOption                :: !MergeOptionTypeEnum+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetMergeConflicts' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gmcRepositoryName' - The name of the repository where the pull request was created.+--+-- * 'gmcDestinationCommitSpecifier' - The branch, tag, HEAD, or other fully qualified reference used to identify a commit. For example, a branch name or a full commit ID.+--+-- * 'gmcSourceCommitSpecifier' - The branch, tag, HEAD, or other fully qualified reference used to identify a commit. For example, a branch name or a full commit ID.+--+-- * 'gmcMergeOption' - The merge option or strategy you want to use to merge the code. The only valid value is FAST_FORWARD_MERGE.+getMergeConflicts+    :: Text -- ^ 'gmcRepositoryName'+    -> Text -- ^ 'gmcDestinationCommitSpecifier'+    -> Text -- ^ 'gmcSourceCommitSpecifier'+    -> MergeOptionTypeEnum -- ^ 'gmcMergeOption'+    -> GetMergeConflicts+getMergeConflicts pRepositoryName_ pDestinationCommitSpecifier_ pSourceCommitSpecifier_ pMergeOption_ =+  GetMergeConflicts'+    { _gmcRepositoryName = pRepositoryName_+    , _gmcDestinationCommitSpecifier = pDestinationCommitSpecifier_+    , _gmcSourceCommitSpecifier = pSourceCommitSpecifier_+    , _gmcMergeOption = pMergeOption_+    }+++-- | The name of the repository where the pull request was created.+gmcRepositoryName :: Lens' GetMergeConflicts Text+gmcRepositoryName = lens _gmcRepositoryName (\ s a -> s{_gmcRepositoryName = a})++-- | The branch, tag, HEAD, or other fully qualified reference used to identify a commit. For example, a branch name or a full commit ID.+gmcDestinationCommitSpecifier :: Lens' GetMergeConflicts Text+gmcDestinationCommitSpecifier = lens _gmcDestinationCommitSpecifier (\ s a -> s{_gmcDestinationCommitSpecifier = a})++-- | The branch, tag, HEAD, or other fully qualified reference used to identify a commit. For example, a branch name or a full commit ID.+gmcSourceCommitSpecifier :: Lens' GetMergeConflicts Text+gmcSourceCommitSpecifier = lens _gmcSourceCommitSpecifier (\ s a -> s{_gmcSourceCommitSpecifier = a})++-- | The merge option or strategy you want to use to merge the code. The only valid value is FAST_FORWARD_MERGE.+gmcMergeOption :: Lens' GetMergeConflicts MergeOptionTypeEnum+gmcMergeOption = lens _gmcMergeOption (\ s a -> s{_gmcMergeOption = a})++instance AWSRequest GetMergeConflicts where+        type Rs GetMergeConflicts = GetMergeConflictsResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 GetMergeConflictsResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "mergeable") <*>+                     (x .:> "destinationCommitId")+                     <*> (x .:> "sourceCommitId"))++instance Hashable GetMergeConflicts where++instance NFData GetMergeConflicts where++instance ToHeaders GetMergeConflicts where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.GetMergeConflicts" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetMergeConflicts where+        toJSON GetMergeConflicts'{..}+          = object+              (catMaybes+                 [Just ("repositoryName" .= _gmcRepositoryName),+                  Just+                    ("destinationCommitSpecifier" .=+                       _gmcDestinationCommitSpecifier),+                  Just+                    ("sourceCommitSpecifier" .=+                       _gmcSourceCommitSpecifier),+                  Just ("mergeOption" .= _gmcMergeOption)])++instance ToPath GetMergeConflicts where+        toPath = const "/"++instance ToQuery GetMergeConflicts where+        toQuery = const mempty++-- | /See:/ 'getMergeConflictsResponse' smart constructor.+data GetMergeConflictsResponse = GetMergeConflictsResponse'+  { _gmcrsResponseStatus      :: !Int+  , _gmcrsMergeable           :: !Bool+  , _gmcrsDestinationCommitId :: !Text+  , _gmcrsSourceCommitId      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetMergeConflictsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gmcrsResponseStatus' - -- | The response status code.+--+-- * 'gmcrsMergeable' - A Boolean value that indicates whether the code is mergable by the specified merge option.+--+-- * 'gmcrsDestinationCommitId' - The commit ID of the destination commit specifier that was used in the merge evaluation.+--+-- * 'gmcrsSourceCommitId' - The commit ID of the source commit specifier that was used in the merge evaluation.+getMergeConflictsResponse+    :: Int -- ^ 'gmcrsResponseStatus'+    -> Bool -- ^ 'gmcrsMergeable'+    -> Text -- ^ 'gmcrsDestinationCommitId'+    -> Text -- ^ 'gmcrsSourceCommitId'+    -> GetMergeConflictsResponse+getMergeConflictsResponse pResponseStatus_ pMergeable_ pDestinationCommitId_ pSourceCommitId_ =+  GetMergeConflictsResponse'+    { _gmcrsResponseStatus = pResponseStatus_+    , _gmcrsMergeable = pMergeable_+    , _gmcrsDestinationCommitId = pDestinationCommitId_+    , _gmcrsSourceCommitId = pSourceCommitId_+    }+++-- | -- | The response status code.+gmcrsResponseStatus :: Lens' GetMergeConflictsResponse Int+gmcrsResponseStatus = lens _gmcrsResponseStatus (\ s a -> s{_gmcrsResponseStatus = a})++-- | A Boolean value that indicates whether the code is mergable by the specified merge option.+gmcrsMergeable :: Lens' GetMergeConflictsResponse Bool+gmcrsMergeable = lens _gmcrsMergeable (\ s a -> s{_gmcrsMergeable = a})++-- | The commit ID of the destination commit specifier that was used in the merge evaluation.+gmcrsDestinationCommitId :: Lens' GetMergeConflictsResponse Text+gmcrsDestinationCommitId = lens _gmcrsDestinationCommitId (\ s a -> s{_gmcrsDestinationCommitId = a})++-- | The commit ID of the source commit specifier that was used in the merge evaluation.+gmcrsSourceCommitId :: Lens' GetMergeConflictsResponse Text+gmcrsSourceCommitId = lens _gmcrsSourceCommitId (\ s a -> s{_gmcrsSourceCommitId = a})++instance NFData GetMergeConflictsResponse where

@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.GetPullRequest+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about a pull request in a specified repository.+--+--+module Network.AWS.CodeCommit.GetPullRequest+    (+    -- * Creating a Request+      getPullRequest+    , GetPullRequest+    -- * Request Lenses+    , gprPullRequestId++    -- * Destructuring the Response+    , getPullRequestResponse+    , GetPullRequestResponse+    -- * Response Lenses+    , gprrsResponseStatus+    , gprrsPullRequest+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'getPullRequest' smart constructor.+newtype GetPullRequest = GetPullRequest'+  { _gprPullRequestId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gprPullRequestId' - The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+getPullRequest+    :: Text -- ^ 'gprPullRequestId'+    -> GetPullRequest+getPullRequest pPullRequestId_ =+  GetPullRequest' {_gprPullRequestId = pPullRequestId_}+++-- | The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+gprPullRequestId :: Lens' GetPullRequest Text+gprPullRequestId = lens _gprPullRequestId (\ s a -> s{_gprPullRequestId = a})++instance AWSRequest GetPullRequest where+        type Rs GetPullRequest = GetPullRequestResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 GetPullRequestResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "pullRequest"))++instance Hashable GetPullRequest where++instance NFData GetPullRequest where++instance ToHeaders GetPullRequest where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.GetPullRequest" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetPullRequest where+        toJSON GetPullRequest'{..}+          = object+              (catMaybes+                 [Just ("pullRequestId" .= _gprPullRequestId)])++instance ToPath GetPullRequest where+        toPath = const "/"++instance ToQuery GetPullRequest where+        toQuery = const mempty++-- | /See:/ 'getPullRequestResponse' smart constructor.+data GetPullRequestResponse = GetPullRequestResponse'+  { _gprrsResponseStatus :: !Int+  , _gprrsPullRequest    :: !PullRequest+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'GetPullRequestResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gprrsResponseStatus' - -- | The response status code.+--+-- * 'gprrsPullRequest' - Information about the specified pull request.+getPullRequestResponse+    :: Int -- ^ 'gprrsResponseStatus'+    -> PullRequest -- ^ 'gprrsPullRequest'+    -> GetPullRequestResponse+getPullRequestResponse pResponseStatus_ pPullRequest_ =+  GetPullRequestResponse'+    {_gprrsResponseStatus = pResponseStatus_, _gprrsPullRequest = pPullRequest_}+++-- | -- | The response status code.+gprrsResponseStatus :: Lens' GetPullRequestResponse Int+gprrsResponseStatus = lens _gprrsResponseStatus (\ s a -> s{_gprrsResponseStatus = a})++-- | Information about the specified pull request.+gprrsPullRequest :: Lens' GetPullRequestResponse PullRequest+gprrsPullRequest = lens _gprrsPullRequest (\ s a -> s{_gprrsPullRequest = a})++instance NFData GetPullRequestResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetRepository--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the repository to get information about. grRepositoryName :: Lens' GetRepository Text-grRepositoryName = lens _grRepositoryName (\ s a -> s{_grRepositoryName = a});+grRepositoryName = lens _grRepositoryName (\ s a -> s{_grRepositoryName = a})  instance AWSRequest GetRepository where         type Rs GetRepository = GetRepositoryResponse@@ -127,15 +127,15 @@     -> GetRepositoryResponse getRepositoryResponse pResponseStatus_ =   GetRepositoryResponse'-  {_grrsRepositoryMetadata = Nothing, _grrsResponseStatus = pResponseStatus_}+    {_grrsRepositoryMetadata = Nothing, _grrsResponseStatus = pResponseStatus_}   -- | Information about the repository. grrsRepositoryMetadata :: Lens' GetRepositoryResponse (Maybe RepositoryMetadata)-grrsRepositoryMetadata = lens _grrsRepositoryMetadata (\ s a -> s{_grrsRepositoryMetadata = a});+grrsRepositoryMetadata = lens _grrsRepositoryMetadata (\ s a -> s{_grrsRepositoryMetadata = a})  -- | -- | The response status code. grrsResponseStatus :: Lens' GetRepositoryResponse Int-grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a});+grrsResponseStatus = lens _grrsResponseStatus (\ s a -> s{_grrsResponseStatus = a})  instance NFData GetRepositoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.GetRepositoryTriggers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | The name of the repository for which the trigger is configured. grtRepositoryName :: Lens' GetRepositoryTriggers Text-grtRepositoryName = lens _grtRepositoryName (\ s a -> s{_grtRepositoryName = a});+grtRepositoryName = lens _grtRepositoryName (\ s a -> s{_grtRepositoryName = a})  instance AWSRequest GetRepositoryTriggers where         type Rs GetRepositoryTriggers =@@ -135,22 +135,22 @@     -> GetRepositoryTriggersResponse getRepositoryTriggersResponse pResponseStatus_ =   GetRepositoryTriggersResponse'-  { _grtrsConfigurationId = Nothing-  , _grtrsTriggers = Nothing-  , _grtrsResponseStatus = pResponseStatus_-  }+    { _grtrsConfigurationId = Nothing+    , _grtrsTriggers = Nothing+    , _grtrsResponseStatus = pResponseStatus_+    }   -- | The system-generated unique ID for the trigger. grtrsConfigurationId :: Lens' GetRepositoryTriggersResponse (Maybe Text)-grtrsConfigurationId = lens _grtrsConfigurationId (\ s a -> s{_grtrsConfigurationId = a});+grtrsConfigurationId = lens _grtrsConfigurationId (\ s a -> s{_grtrsConfigurationId = a})  -- | The JSON block of configuration information for each trigger. grtrsTriggers :: Lens' GetRepositoryTriggersResponse [RepositoryTrigger]-grtrsTriggers = lens _grtrsTriggers (\ s a -> s{_grtrsTriggers = a}) . _Default . _Coerce;+grtrsTriggers = lens _grtrsTriggers (\ s a -> s{_grtrsTriggers = a}) . _Default . _Coerce  -- | -- | The response status code. grtrsResponseStatus :: Lens' GetRepositoryTriggersResponse Int-grtrsResponseStatus = lens _grtrsResponseStatus (\ s a -> s{_grtrsResponseStatus = a});+grtrsResponseStatus = lens _grtrsResponseStatus (\ s a -> s{_grtrsResponseStatus = a})  instance NFData GetRepositoryTriggersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.ListBranches--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,11 +76,11 @@  -- | An enumeration token that allows the operation to batch the results. lbNextToken :: Lens' ListBranches (Maybe Text)-lbNextToken = lens _lbNextToken (\ s a -> s{_lbNextToken = a});+lbNextToken = lens _lbNextToken (\ s a -> s{_lbNextToken = a})  -- | The name of the repository that contains the branches. lbRepositoryName :: Lens' ListBranches Text-lbRepositoryName = lens _lbRepositoryName (\ s a -> s{_lbRepositoryName = a});+lbRepositoryName = lens _lbRepositoryName (\ s a -> s{_lbRepositoryName = a})  instance AWSPager ListBranches where         page rq rs@@ -151,22 +151,22 @@     -> ListBranchesResponse listBranchesResponse pResponseStatus_ =   ListBranchesResponse'-  { _lbrsBranches = Nothing-  , _lbrsNextToken = Nothing-  , _lbrsResponseStatus = pResponseStatus_-  }+    { _lbrsBranches = Nothing+    , _lbrsNextToken = Nothing+    , _lbrsResponseStatus = pResponseStatus_+    }   -- | The list of branch names. lbrsBranches :: Lens' ListBranchesResponse [Text]-lbrsBranches = lens _lbrsBranches (\ s a -> s{_lbrsBranches = a}) . _Default . _Coerce;+lbrsBranches = lens _lbrsBranches (\ s a -> s{_lbrsBranches = a}) . _Default . _Coerce  -- | An enumeration token that returns the batch of the results. lbrsNextToken :: Lens' ListBranchesResponse (Maybe Text)-lbrsNextToken = lens _lbrsNextToken (\ s a -> s{_lbrsNextToken = a});+lbrsNextToken = lens _lbrsNextToken (\ s a -> s{_lbrsNextToken = a})  -- | -- | The response status code. lbrsResponseStatus :: Lens' ListBranchesResponse Int-lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a});+lbrsResponseStatus = lens _lbrsResponseStatus (\ s a -> s{_lbrsResponseStatus = a})  instance NFData ListBranchesResponse where

@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.ListPullRequests+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of pull requests for a specified repository. The return list can be refined by pull request status or pull request author ARN.+--+--+--+-- This operation returns paginated results.+module Network.AWS.CodeCommit.ListPullRequests+    (+    -- * Creating a Request+      listPullRequests+    , ListPullRequests+    -- * Request Lenses+    , lprAuthorARN+    , lprNextToken+    , lprPullRequestStatus+    , lprMaxResults+    , lprRepositoryName++    -- * Destructuring the Response+    , listPullRequestsResponse+    , ListPullRequestsResponse+    -- * Response Lenses+    , lprrsNextToken+    , lprrsResponseStatus+    , lprrsPullRequestIds+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'listPullRequests' smart constructor.+data ListPullRequests = ListPullRequests'+  { _lprAuthorARN         :: !(Maybe Text)+  , _lprNextToken         :: !(Maybe Text)+  , _lprPullRequestStatus :: !(Maybe PullRequestStatusEnum)+  , _lprMaxResults        :: !(Maybe Int)+  , _lprRepositoryName    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListPullRequests' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lprAuthorARN' - Optional. The Amazon Resource Name (ARN) of the user who created the pull request. If used, this filters the results to pull requests created by that user.+--+-- * 'lprNextToken' - An enumeration token that when provided in a request, returns the next batch of the results.+--+-- * 'lprPullRequestStatus' - Optional. The status of the pull request. If used, this refines the results to the pull requests that match the specified status.+--+-- * 'lprMaxResults' - A non-negative integer used to limit the number of returned results.+--+-- * 'lprRepositoryName' - The name of the repository for which you want to list pull requests.+listPullRequests+    :: Text -- ^ 'lprRepositoryName'+    -> ListPullRequests+listPullRequests pRepositoryName_ =+  ListPullRequests'+    { _lprAuthorARN = Nothing+    , _lprNextToken = Nothing+    , _lprPullRequestStatus = Nothing+    , _lprMaxResults = Nothing+    , _lprRepositoryName = pRepositoryName_+    }+++-- | Optional. The Amazon Resource Name (ARN) of the user who created the pull request. If used, this filters the results to pull requests created by that user.+lprAuthorARN :: Lens' ListPullRequests (Maybe Text)+lprAuthorARN = lens _lprAuthorARN (\ s a -> s{_lprAuthorARN = a})++-- | An enumeration token that when provided in a request, returns the next batch of the results.+lprNextToken :: Lens' ListPullRequests (Maybe Text)+lprNextToken = lens _lprNextToken (\ s a -> s{_lprNextToken = a})++-- | Optional. The status of the pull request. If used, this refines the results to the pull requests that match the specified status.+lprPullRequestStatus :: Lens' ListPullRequests (Maybe PullRequestStatusEnum)+lprPullRequestStatus = lens _lprPullRequestStatus (\ s a -> s{_lprPullRequestStatus = a})++-- | A non-negative integer used to limit the number of returned results.+lprMaxResults :: Lens' ListPullRequests (Maybe Int)+lprMaxResults = lens _lprMaxResults (\ s a -> s{_lprMaxResults = a})++-- | The name of the repository for which you want to list pull requests.+lprRepositoryName :: Lens' ListPullRequests Text+lprRepositoryName = lens _lprRepositoryName (\ s a -> s{_lprRepositoryName = a})++instance AWSPager ListPullRequests where+        page rq rs+          | stop (rs ^. lprrsNextToken) = Nothing+          | stop (rs ^. lprrsPullRequestIds) = Nothing+          | otherwise =+            Just $ rq & lprNextToken .~ rs ^. lprrsNextToken++instance AWSRequest ListPullRequests where+        type Rs ListPullRequests = ListPullRequestsResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 ListPullRequestsResponse' <$>+                   (x .?> "nextToken") <*> (pure (fromEnum s)) <*>+                     (x .?> "pullRequestIds" .!@ mempty))++instance Hashable ListPullRequests where++instance NFData ListPullRequests where++instance ToHeaders ListPullRequests where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.ListPullRequests" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListPullRequests where+        toJSON ListPullRequests'{..}+          = object+              (catMaybes+                 [("authorArn" .=) <$> _lprAuthorARN,+                  ("nextToken" .=) <$> _lprNextToken,+                  ("pullRequestStatus" .=) <$> _lprPullRequestStatus,+                  ("maxResults" .=) <$> _lprMaxResults,+                  Just ("repositoryName" .= _lprRepositoryName)])++instance ToPath ListPullRequests where+        toPath = const "/"++instance ToQuery ListPullRequests where+        toQuery = const mempty++-- | /See:/ 'listPullRequestsResponse' smart constructor.+data ListPullRequestsResponse = ListPullRequestsResponse'+  { _lprrsNextToken      :: !(Maybe Text)+  , _lprrsResponseStatus :: !Int+  , _lprrsPullRequestIds :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListPullRequestsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lprrsNextToken' - An enumeration token that when provided in a request, returns the next batch of the results.+--+-- * 'lprrsResponseStatus' - -- | The response status code.+--+-- * 'lprrsPullRequestIds' - The system-generated IDs of the pull requests.+listPullRequestsResponse+    :: Int -- ^ 'lprrsResponseStatus'+    -> ListPullRequestsResponse+listPullRequestsResponse pResponseStatus_ =+  ListPullRequestsResponse'+    { _lprrsNextToken = Nothing+    , _lprrsResponseStatus = pResponseStatus_+    , _lprrsPullRequestIds = mempty+    }+++-- | An enumeration token that when provided in a request, returns the next batch of the results.+lprrsNextToken :: Lens' ListPullRequestsResponse (Maybe Text)+lprrsNextToken = lens _lprrsNextToken (\ s a -> s{_lprrsNextToken = a})++-- | -- | The response status code.+lprrsResponseStatus :: Lens' ListPullRequestsResponse Int+lprrsResponseStatus = lens _lprrsResponseStatus (\ s a -> s{_lprrsResponseStatus = a})++-- | The system-generated IDs of the pull requests.+lprrsPullRequestIds :: Lens' ListPullRequestsResponse [Text]+lprrsPullRequestIds = lens _lprrsPullRequestIds (\ s a -> s{_lprrsPullRequestIds = a}) . _Coerce++instance NFData ListPullRequestsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.ListRepositories--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -75,20 +75,20 @@     :: ListRepositories listRepositories =   ListRepositories'-  {_lrNextToken = Nothing, _lrOrder = Nothing, _lrSortBy = Nothing}+    {_lrNextToken = Nothing, _lrOrder = Nothing, _lrSortBy = Nothing}   -- | An enumeration token that allows the operation to batch the results of the operation. Batch sizes are 1,000 for list repository operations. When the client sends the token back to AWS CodeCommit, another page of 1,000 records is retrieved. lrNextToken :: Lens' ListRepositories (Maybe Text)-lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});+lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a})  -- | The order in which to sort the results of a list repositories operation. lrOrder :: Lens' ListRepositories (Maybe OrderEnum)-lrOrder = lens _lrOrder (\ s a -> s{_lrOrder = a});+lrOrder = lens _lrOrder (\ s a -> s{_lrOrder = a})  -- | The criteria used to sort the results of a list repositories operation. lrSortBy :: Lens' ListRepositories (Maybe SortByEnum)-lrSortBy = lens _lrSortBy (\ s a -> s{_lrSortBy = a});+lrSortBy = lens _lrSortBy (\ s a -> s{_lrSortBy = a})  instance AWSPager ListRepositories where         page rq rs@@ -162,22 +162,22 @@     -> ListRepositoriesResponse listRepositoriesResponse pResponseStatus_ =   ListRepositoriesResponse'-  { _lrrsRepositories = Nothing-  , _lrrsNextToken = Nothing-  , _lrrsResponseStatus = pResponseStatus_-  }+    { _lrrsRepositories = Nothing+    , _lrrsNextToken = Nothing+    , _lrrsResponseStatus = pResponseStatus_+    }   -- | Lists the repositories called by the list repositories operation. lrrsRepositories :: Lens' ListRepositoriesResponse [RepositoryNameIdPair]-lrrsRepositories = lens _lrrsRepositories (\ s a -> s{_lrrsRepositories = a}) . _Default . _Coerce;+lrrsRepositories = lens _lrrsRepositories (\ s a -> s{_lrrsRepositories = a}) . _Default . _Coerce  -- | An enumeration token that allows the operation to batch the results of the operation. Batch sizes are 1,000 for list repository operations. When the client sends the token back to AWS CodeCommit, another page of 1,000 records is retrieved. lrrsNextToken :: Lens' ListRepositoriesResponse (Maybe Text)-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})  -- | -- | The response status code. lrrsResponseStatus :: Lens' ListRepositoriesResponse Int-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})  instance NFData ListRepositoriesResponse where

@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.MergePullRequestByFastForward+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Closes a pull request and attempts to merge the source commit of a pull request into the specified destination branch for that pull request at the specified commit using the fast-forward merge option.+--+--+module Network.AWS.CodeCommit.MergePullRequestByFastForward+    (+    -- * Creating a Request+      mergePullRequestByFastForward+    , MergePullRequestByFastForward+    -- * Request Lenses+    , mprbffSourceCommitId+    , mprbffPullRequestId+    , mprbffRepositoryName++    -- * Destructuring the Response+    , mergePullRequestByFastForwardResponse+    , MergePullRequestByFastForwardResponse+    -- * Response Lenses+    , mprbffrsPullRequest+    , mprbffrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'mergePullRequestByFastForward' smart constructor.+data MergePullRequestByFastForward = MergePullRequestByFastForward'+  { _mprbffSourceCommitId :: !(Maybe Text)+  , _mprbffPullRequestId  :: !Text+  , _mprbffRepositoryName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MergePullRequestByFastForward' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mprbffSourceCommitId' - The full commit ID of the original or updated commit in the pull request source branch. Pass this value if you want an exception thrown if the current commit ID of the tip of the source branch does not match this commit ID.+--+-- * 'mprbffPullRequestId' - The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+--+-- * 'mprbffRepositoryName' - The name of the repository where the pull request was created.+mergePullRequestByFastForward+    :: Text -- ^ 'mprbffPullRequestId'+    -> Text -- ^ 'mprbffRepositoryName'+    -> MergePullRequestByFastForward+mergePullRequestByFastForward pPullRequestId_ pRepositoryName_ =+  MergePullRequestByFastForward'+    { _mprbffSourceCommitId = Nothing+    , _mprbffPullRequestId = pPullRequestId_+    , _mprbffRepositoryName = pRepositoryName_+    }+++-- | The full commit ID of the original or updated commit in the pull request source branch. Pass this value if you want an exception thrown if the current commit ID of the tip of the source branch does not match this commit ID.+mprbffSourceCommitId :: Lens' MergePullRequestByFastForward (Maybe Text)+mprbffSourceCommitId = lens _mprbffSourceCommitId (\ s a -> s{_mprbffSourceCommitId = a})++-- | The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+mprbffPullRequestId :: Lens' MergePullRequestByFastForward Text+mprbffPullRequestId = lens _mprbffPullRequestId (\ s a -> s{_mprbffPullRequestId = a})++-- | The name of the repository where the pull request was created.+mprbffRepositoryName :: Lens' MergePullRequestByFastForward Text+mprbffRepositoryName = lens _mprbffRepositoryName (\ s a -> s{_mprbffRepositoryName = a})++instance AWSRequest MergePullRequestByFastForward+         where+        type Rs MergePullRequestByFastForward =+             MergePullRequestByFastForwardResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 MergePullRequestByFastForwardResponse' <$>+                   (x .?> "pullRequest") <*> (pure (fromEnum s)))++instance Hashable MergePullRequestByFastForward where++instance NFData MergePullRequestByFastForward where++instance ToHeaders MergePullRequestByFastForward+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.MergePullRequestByFastForward"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON MergePullRequestByFastForward where+        toJSON MergePullRequestByFastForward'{..}+          = object+              (catMaybes+                 [("sourceCommitId" .=) <$> _mprbffSourceCommitId,+                  Just ("pullRequestId" .= _mprbffPullRequestId),+                  Just ("repositoryName" .= _mprbffRepositoryName)])++instance ToPath MergePullRequestByFastForward where+        toPath = const "/"++instance ToQuery MergePullRequestByFastForward where+        toQuery = const mempty++-- | /See:/ 'mergePullRequestByFastForwardResponse' smart constructor.+data MergePullRequestByFastForwardResponse = MergePullRequestByFastForwardResponse'+  { _mprbffrsPullRequest    :: !(Maybe PullRequest)+  , _mprbffrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MergePullRequestByFastForwardResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mprbffrsPullRequest' - Information about the specified pull request, including information about the merge.+--+-- * 'mprbffrsResponseStatus' - -- | The response status code.+mergePullRequestByFastForwardResponse+    :: Int -- ^ 'mprbffrsResponseStatus'+    -> MergePullRequestByFastForwardResponse+mergePullRequestByFastForwardResponse pResponseStatus_ =+  MergePullRequestByFastForwardResponse'+    {_mprbffrsPullRequest = Nothing, _mprbffrsResponseStatus = pResponseStatus_}+++-- | Information about the specified pull request, including information about the merge.+mprbffrsPullRequest :: Lens' MergePullRequestByFastForwardResponse (Maybe PullRequest)+mprbffrsPullRequest = lens _mprbffrsPullRequest (\ s a -> s{_mprbffrsPullRequest = a})++-- | -- | The response status code.+mprbffrsResponseStatus :: Lens' MergePullRequestByFastForwardResponse Int+mprbffrsResponseStatus = lens _mprbffrsResponseStatus (\ s a -> s{_mprbffrsResponseStatus = a})++instance NFData MergePullRequestByFastForwardResponse+         where

@@ -0,0 +1,254 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.PostCommentForComparedCommit+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Posts a comment on the comparison between two commits.+--+--+module Network.AWS.CodeCommit.PostCommentForComparedCommit+    (+    -- * Creating a Request+      postCommentForComparedCommit+    , PostCommentForComparedCommit+    -- * Request Lenses+    , pcfccLocation+    , pcfccBeforeCommitId+    , pcfccClientRequestToken+    , pcfccRepositoryName+    , pcfccAfterCommitId+    , pcfccContent++    -- * Destructuring the Response+    , postCommentForComparedCommitResponse+    , PostCommentForComparedCommitResponse+    -- * Response Lenses+    , pcfccrsBeforeBlobId+    , pcfccrsLocation+    , pcfccrsAfterCommitId+    , pcfccrsAfterBlobId+    , pcfccrsBeforeCommitId+    , pcfccrsRepositoryName+    , pcfccrsComment+    , pcfccrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'postCommentForComparedCommit' smart constructor.+data PostCommentForComparedCommit = PostCommentForComparedCommit'+  { _pcfccLocation           :: !(Maybe Location)+  , _pcfccBeforeCommitId     :: !(Maybe Text)+  , _pcfccClientRequestToken :: !(Maybe Text)+  , _pcfccRepositoryName     :: !Text+  , _pcfccAfterCommitId      :: !Text+  , _pcfccContent            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentForComparedCommit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcfccLocation' - The location of the comparison where you want to comment.+--+-- * 'pcfccBeforeCommitId' - To establish the directionality of the comparison, the full commit ID of the 'before' commit.+--+-- * 'pcfccClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'pcfccRepositoryName' - The name of the repository where you want to post a comment on the comparison between commits.+--+-- * 'pcfccAfterCommitId' - To establish the directionality of the comparison, the full commit ID of the 'after' commit.+--+-- * 'pcfccContent' - The content of the comment you want to make.+postCommentForComparedCommit+    :: Text -- ^ 'pcfccRepositoryName'+    -> Text -- ^ 'pcfccAfterCommitId'+    -> Text -- ^ 'pcfccContent'+    -> PostCommentForComparedCommit+postCommentForComparedCommit pRepositoryName_ pAfterCommitId_ pContent_ =+  PostCommentForComparedCommit'+    { _pcfccLocation = Nothing+    , _pcfccBeforeCommitId = Nothing+    , _pcfccClientRequestToken = Nothing+    , _pcfccRepositoryName = pRepositoryName_+    , _pcfccAfterCommitId = pAfterCommitId_+    , _pcfccContent = pContent_+    }+++-- | The location of the comparison where you want to comment.+pcfccLocation :: Lens' PostCommentForComparedCommit (Maybe Location)+pcfccLocation = lens _pcfccLocation (\ s a -> s{_pcfccLocation = a})++-- | To establish the directionality of the comparison, the full commit ID of the 'before' commit.+pcfccBeforeCommitId :: Lens' PostCommentForComparedCommit (Maybe Text)+pcfccBeforeCommitId = lens _pcfccBeforeCommitId (\ s a -> s{_pcfccBeforeCommitId = a})++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+pcfccClientRequestToken :: Lens' PostCommentForComparedCommit (Maybe Text)+pcfccClientRequestToken = lens _pcfccClientRequestToken (\ s a -> s{_pcfccClientRequestToken = a})++-- | The name of the repository where you want to post a comment on the comparison between commits.+pcfccRepositoryName :: Lens' PostCommentForComparedCommit Text+pcfccRepositoryName = lens _pcfccRepositoryName (\ s a -> s{_pcfccRepositoryName = a})++-- | To establish the directionality of the comparison, the full commit ID of the 'after' commit.+pcfccAfterCommitId :: Lens' PostCommentForComparedCommit Text+pcfccAfterCommitId = lens _pcfccAfterCommitId (\ s a -> s{_pcfccAfterCommitId = a})++-- | The content of the comment you want to make.+pcfccContent :: Lens' PostCommentForComparedCommit Text+pcfccContent = lens _pcfccContent (\ s a -> s{_pcfccContent = a})++instance AWSRequest PostCommentForComparedCommit+         where+        type Rs PostCommentForComparedCommit =+             PostCommentForComparedCommitResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 PostCommentForComparedCommitResponse' <$>+                   (x .?> "beforeBlobId") <*> (x .?> "location") <*>+                     (x .?> "afterCommitId")+                     <*> (x .?> "afterBlobId")+                     <*> (x .?> "beforeCommitId")+                     <*> (x .?> "repositoryName")+                     <*> (x .?> "comment")+                     <*> (pure (fromEnum s)))++instance Hashable PostCommentForComparedCommit where++instance NFData PostCommentForComparedCommit where++instance ToHeaders PostCommentForComparedCommit where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.PostCommentForComparedCommit"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PostCommentForComparedCommit where+        toJSON PostCommentForComparedCommit'{..}+          = object+              (catMaybes+                 [("location" .=) <$> _pcfccLocation,+                  ("beforeCommitId" .=) <$> _pcfccBeforeCommitId,+                  ("clientRequestToken" .=) <$>+                    _pcfccClientRequestToken,+                  Just ("repositoryName" .= _pcfccRepositoryName),+                  Just ("afterCommitId" .= _pcfccAfterCommitId),+                  Just ("content" .= _pcfccContent)])++instance ToPath PostCommentForComparedCommit where+        toPath = const "/"++instance ToQuery PostCommentForComparedCommit where+        toQuery = const mempty++-- | /See:/ 'postCommentForComparedCommitResponse' smart constructor.+data PostCommentForComparedCommitResponse = PostCommentForComparedCommitResponse'+  { _pcfccrsBeforeBlobId   :: !(Maybe Text)+  , _pcfccrsLocation       :: !(Maybe Location)+  , _pcfccrsAfterCommitId  :: !(Maybe Text)+  , _pcfccrsAfterBlobId    :: !(Maybe Text)+  , _pcfccrsBeforeCommitId :: !(Maybe Text)+  , _pcfccrsRepositoryName :: !(Maybe Text)+  , _pcfccrsComment        :: !(Maybe Comment)+  , _pcfccrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentForComparedCommitResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcfccrsBeforeBlobId' - In the directionality you established, the blob ID of the 'before' blob.+--+-- * 'pcfccrsLocation' - The location of the comment in the comparison between the two commits.+--+-- * 'pcfccrsAfterCommitId' - In the directionality you established, the full commit ID of the 'after' commit.+--+-- * 'pcfccrsAfterBlobId' - In the directionality you established, the blob ID of the 'after' blob.+--+-- * 'pcfccrsBeforeCommitId' - In the directionality you established, the full commit ID of the 'before' commit.+--+-- * 'pcfccrsRepositoryName' - The name of the repository where you posted a comment on the comparison between commits.+--+-- * 'pcfccrsComment' - The content of the comment you posted.+--+-- * 'pcfccrsResponseStatus' - -- | The response status code.+postCommentForComparedCommitResponse+    :: Int -- ^ 'pcfccrsResponseStatus'+    -> PostCommentForComparedCommitResponse+postCommentForComparedCommitResponse pResponseStatus_ =+  PostCommentForComparedCommitResponse'+    { _pcfccrsBeforeBlobId = Nothing+    , _pcfccrsLocation = Nothing+    , _pcfccrsAfterCommitId = Nothing+    , _pcfccrsAfterBlobId = Nothing+    , _pcfccrsBeforeCommitId = Nothing+    , _pcfccrsRepositoryName = Nothing+    , _pcfccrsComment = Nothing+    , _pcfccrsResponseStatus = pResponseStatus_+    }+++-- | In the directionality you established, the blob ID of the 'before' blob.+pcfccrsBeforeBlobId :: Lens' PostCommentForComparedCommitResponse (Maybe Text)+pcfccrsBeforeBlobId = lens _pcfccrsBeforeBlobId (\ s a -> s{_pcfccrsBeforeBlobId = a})++-- | The location of the comment in the comparison between the two commits.+pcfccrsLocation :: Lens' PostCommentForComparedCommitResponse (Maybe Location)+pcfccrsLocation = lens _pcfccrsLocation (\ s a -> s{_pcfccrsLocation = a})++-- | In the directionality you established, the full commit ID of the 'after' commit.+pcfccrsAfterCommitId :: Lens' PostCommentForComparedCommitResponse (Maybe Text)+pcfccrsAfterCommitId = lens _pcfccrsAfterCommitId (\ s a -> s{_pcfccrsAfterCommitId = a})++-- | In the directionality you established, the blob ID of the 'after' blob.+pcfccrsAfterBlobId :: Lens' PostCommentForComparedCommitResponse (Maybe Text)+pcfccrsAfterBlobId = lens _pcfccrsAfterBlobId (\ s a -> s{_pcfccrsAfterBlobId = a})++-- | In the directionality you established, the full commit ID of the 'before' commit.+pcfccrsBeforeCommitId :: Lens' PostCommentForComparedCommitResponse (Maybe Text)+pcfccrsBeforeCommitId = lens _pcfccrsBeforeCommitId (\ s a -> s{_pcfccrsBeforeCommitId = a})++-- | The name of the repository where you posted a comment on the comparison between commits.+pcfccrsRepositoryName :: Lens' PostCommentForComparedCommitResponse (Maybe Text)+pcfccrsRepositoryName = lens _pcfccrsRepositoryName (\ s a -> s{_pcfccrsRepositoryName = a})++-- | The content of the comment you posted.+pcfccrsComment :: Lens' PostCommentForComparedCommitResponse (Maybe Comment)+pcfccrsComment = lens _pcfccrsComment (\ s a -> s{_pcfccrsComment = a})++-- | -- | The response status code.+pcfccrsResponseStatus :: Lens' PostCommentForComparedCommitResponse Int+pcfccrsResponseStatus = lens _pcfccrsResponseStatus (\ s a -> s{_pcfccrsResponseStatus = a})++instance NFData PostCommentForComparedCommitResponse+         where

@@ -0,0 +1,275 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.PostCommentForPullRequest+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Posts a comment on a pull request.+--+--+module Network.AWS.CodeCommit.PostCommentForPullRequest+    (+    -- * Creating a Request+      postCommentForPullRequest+    , PostCommentForPullRequest+    -- * Request Lenses+    , pcfprLocation+    , pcfprClientRequestToken+    , pcfprPullRequestId+    , pcfprRepositoryName+    , pcfprBeforeCommitId+    , pcfprAfterCommitId+    , pcfprContent++    -- * Destructuring the Response+    , postCommentForPullRequestResponse+    , PostCommentForPullRequestResponse+    -- * Response Lenses+    , pcfprrsBeforeBlobId+    , pcfprrsLocation+    , pcfprrsAfterCommitId+    , pcfprrsPullRequestId+    , pcfprrsAfterBlobId+    , pcfprrsBeforeCommitId+    , pcfprrsRepositoryName+    , pcfprrsComment+    , pcfprrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'postCommentForPullRequest' smart constructor.+data PostCommentForPullRequest = PostCommentForPullRequest'+  { _pcfprLocation           :: !(Maybe Location)+  , _pcfprClientRequestToken :: !(Maybe Text)+  , _pcfprPullRequestId      :: !Text+  , _pcfprRepositoryName     :: !Text+  , _pcfprBeforeCommitId     :: !Text+  , _pcfprAfterCommitId      :: !Text+  , _pcfprContent            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentForPullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcfprLocation' - The location of the change where you want to post your comment. If no location is provided, the comment will be posted as a general comment on the pull request difference between the before commit ID and the after commit ID.+--+-- * 'pcfprClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'pcfprPullRequestId' - The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+--+-- * 'pcfprRepositoryName' - The name of the repository where you want to post a comment on a pull request.+--+-- * 'pcfprBeforeCommitId' - The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created.+--+-- * 'pcfprAfterCommitId' - The full commit ID of the commit in the source branch that is the current tip of the branch for the pull request when you post the comment.+--+-- * 'pcfprContent' - The content of your comment on the change.+postCommentForPullRequest+    :: Text -- ^ 'pcfprPullRequestId'+    -> Text -- ^ 'pcfprRepositoryName'+    -> Text -- ^ 'pcfprBeforeCommitId'+    -> Text -- ^ 'pcfprAfterCommitId'+    -> Text -- ^ 'pcfprContent'+    -> PostCommentForPullRequest+postCommentForPullRequest pPullRequestId_ pRepositoryName_ pBeforeCommitId_ pAfterCommitId_ pContent_ =+  PostCommentForPullRequest'+    { _pcfprLocation = Nothing+    , _pcfprClientRequestToken = Nothing+    , _pcfprPullRequestId = pPullRequestId_+    , _pcfprRepositoryName = pRepositoryName_+    , _pcfprBeforeCommitId = pBeforeCommitId_+    , _pcfprAfterCommitId = pAfterCommitId_+    , _pcfprContent = pContent_+    }+++-- | The location of the change where you want to post your comment. If no location is provided, the comment will be posted as a general comment on the pull request difference between the before commit ID and the after commit ID.+pcfprLocation :: Lens' PostCommentForPullRequest (Maybe Location)+pcfprLocation = lens _pcfprLocation (\ s a -> s{_pcfprLocation = a})++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+pcfprClientRequestToken :: Lens' PostCommentForPullRequest (Maybe Text)+pcfprClientRequestToken = lens _pcfprClientRequestToken (\ s a -> s{_pcfprClientRequestToken = a})++-- | The system-generated ID of the pull request. To get this ID, use 'ListPullRequests' .+pcfprPullRequestId :: Lens' PostCommentForPullRequest Text+pcfprPullRequestId = lens _pcfprPullRequestId (\ s a -> s{_pcfprPullRequestId = a})++-- | The name of the repository where you want to post a comment on a pull request.+pcfprRepositoryName :: Lens' PostCommentForPullRequest Text+pcfprRepositoryName = lens _pcfprRepositoryName (\ s a -> s{_pcfprRepositoryName = a})++-- | The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was created.+pcfprBeforeCommitId :: Lens' PostCommentForPullRequest Text+pcfprBeforeCommitId = lens _pcfprBeforeCommitId (\ s a -> s{_pcfprBeforeCommitId = a})++-- | The full commit ID of the commit in the source branch that is the current tip of the branch for the pull request when you post the comment.+pcfprAfterCommitId :: Lens' PostCommentForPullRequest Text+pcfprAfterCommitId = lens _pcfprAfterCommitId (\ s a -> s{_pcfprAfterCommitId = a})++-- | The content of your comment on the change.+pcfprContent :: Lens' PostCommentForPullRequest Text+pcfprContent = lens _pcfprContent (\ s a -> s{_pcfprContent = a})++instance AWSRequest PostCommentForPullRequest where+        type Rs PostCommentForPullRequest =+             PostCommentForPullRequestResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 PostCommentForPullRequestResponse' <$>+                   (x .?> "beforeBlobId") <*> (x .?> "location") <*>+                     (x .?> "afterCommitId")+                     <*> (x .?> "pullRequestId")+                     <*> (x .?> "afterBlobId")+                     <*> (x .?> "beforeCommitId")+                     <*> (x .?> "repositoryName")+                     <*> (x .?> "comment")+                     <*> (pure (fromEnum s)))++instance Hashable PostCommentForPullRequest where++instance NFData PostCommentForPullRequest where++instance ToHeaders PostCommentForPullRequest where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.PostCommentForPullRequest" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PostCommentForPullRequest where+        toJSON PostCommentForPullRequest'{..}+          = object+              (catMaybes+                 [("location" .=) <$> _pcfprLocation,+                  ("clientRequestToken" .=) <$>+                    _pcfprClientRequestToken,+                  Just ("pullRequestId" .= _pcfprPullRequestId),+                  Just ("repositoryName" .= _pcfprRepositoryName),+                  Just ("beforeCommitId" .= _pcfprBeforeCommitId),+                  Just ("afterCommitId" .= _pcfprAfterCommitId),+                  Just ("content" .= _pcfprContent)])++instance ToPath PostCommentForPullRequest where+        toPath = const "/"++instance ToQuery PostCommentForPullRequest where+        toQuery = const mempty++-- | /See:/ 'postCommentForPullRequestResponse' smart constructor.+data PostCommentForPullRequestResponse = PostCommentForPullRequestResponse'+  { _pcfprrsBeforeBlobId   :: !(Maybe Text)+  , _pcfprrsLocation       :: !(Maybe Location)+  , _pcfprrsAfterCommitId  :: !(Maybe Text)+  , _pcfprrsPullRequestId  :: !(Maybe Text)+  , _pcfprrsAfterBlobId    :: !(Maybe Text)+  , _pcfprrsBeforeCommitId :: !(Maybe Text)+  , _pcfprrsRepositoryName :: !(Maybe Text)+  , _pcfprrsComment        :: !(Maybe Comment)+  , _pcfprrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentForPullRequestResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcfprrsBeforeBlobId' - In the directionality of the pull request, the blob ID of the 'before' blob.+--+-- * 'pcfprrsLocation' - The location of the change where you posted your comment.+--+-- * 'pcfprrsAfterCommitId' - The full commit ID of the commit in the destination branch where the pull request will be merged.+--+-- * 'pcfprrsPullRequestId' - The system-generated ID of the pull request.+--+-- * 'pcfprrsAfterBlobId' - In the directionality of the pull request, the blob ID of the 'after' blob.+--+-- * 'pcfprrsBeforeCommitId' - The full commit ID of the commit in the source branch used to create the pull request, or in the case of an updated pull request, the full commit ID of the commit used to update the pull request.+--+-- * 'pcfprrsRepositoryName' - The name of the repository where you posted a comment on a pull request.+--+-- * 'pcfprrsComment' - The content of the comment you posted.+--+-- * 'pcfprrsResponseStatus' - -- | The response status code.+postCommentForPullRequestResponse+    :: Int -- ^ 'pcfprrsResponseStatus'+    -> PostCommentForPullRequestResponse+postCommentForPullRequestResponse pResponseStatus_ =+  PostCommentForPullRequestResponse'+    { _pcfprrsBeforeBlobId = Nothing+    , _pcfprrsLocation = Nothing+    , _pcfprrsAfterCommitId = Nothing+    , _pcfprrsPullRequestId = Nothing+    , _pcfprrsAfterBlobId = Nothing+    , _pcfprrsBeforeCommitId = Nothing+    , _pcfprrsRepositoryName = Nothing+    , _pcfprrsComment = Nothing+    , _pcfprrsResponseStatus = pResponseStatus_+    }+++-- | In the directionality of the pull request, the blob ID of the 'before' blob.+pcfprrsBeforeBlobId :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsBeforeBlobId = lens _pcfprrsBeforeBlobId (\ s a -> s{_pcfprrsBeforeBlobId = a})++-- | The location of the change where you posted your comment.+pcfprrsLocation :: Lens' PostCommentForPullRequestResponse (Maybe Location)+pcfprrsLocation = lens _pcfprrsLocation (\ s a -> s{_pcfprrsLocation = a})++-- | The full commit ID of the commit in the destination branch where the pull request will be merged.+pcfprrsAfterCommitId :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsAfterCommitId = lens _pcfprrsAfterCommitId (\ s a -> s{_pcfprrsAfterCommitId = a})++-- | The system-generated ID of the pull request.+pcfprrsPullRequestId :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsPullRequestId = lens _pcfprrsPullRequestId (\ s a -> s{_pcfprrsPullRequestId = a})++-- | In the directionality of the pull request, the blob ID of the 'after' blob.+pcfprrsAfterBlobId :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsAfterBlobId = lens _pcfprrsAfterBlobId (\ s a -> s{_pcfprrsAfterBlobId = a})++-- | The full commit ID of the commit in the source branch used to create the pull request, or in the case of an updated pull request, the full commit ID of the commit used to update the pull request.+pcfprrsBeforeCommitId :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsBeforeCommitId = lens _pcfprrsBeforeCommitId (\ s a -> s{_pcfprrsBeforeCommitId = a})++-- | The name of the repository where you posted a comment on a pull request.+pcfprrsRepositoryName :: Lens' PostCommentForPullRequestResponse (Maybe Text)+pcfprrsRepositoryName = lens _pcfprrsRepositoryName (\ s a -> s{_pcfprrsRepositoryName = a})++-- | The content of the comment you posted.+pcfprrsComment :: Lens' PostCommentForPullRequestResponse (Maybe Comment)+pcfprrsComment = lens _pcfprrsComment (\ s a -> s{_pcfprrsComment = a})++-- | -- | The response status code.+pcfprrsResponseStatus :: Lens' PostCommentForPullRequestResponse Int+pcfprrsResponseStatus = lens _pcfprrsResponseStatus (\ s a -> s{_pcfprrsResponseStatus = a})++instance NFData PostCommentForPullRequestResponse+         where

@@ -0,0 +1,158 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.PostCommentReply+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Posts a comment in reply to an existing comment on a comparison between commits or a pull request.+--+--+module Network.AWS.CodeCommit.PostCommentReply+    (+    -- * Creating a Request+      postCommentReply+    , PostCommentReply+    -- * Request Lenses+    , pcrClientRequestToken+    , pcrInReplyTo+    , pcrContent++    -- * Destructuring the Response+    , postCommentReplyResponse+    , PostCommentReplyResponse+    -- * Response Lenses+    , pcrrsComment+    , pcrrsResponseStatus+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'postCommentReply' smart constructor.+data PostCommentReply = PostCommentReply'+  { _pcrClientRequestToken :: !(Maybe Text)+  , _pcrInReplyTo          :: !Text+  , _pcrContent            :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentReply' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcrClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'pcrInReplyTo' - The system-generated ID of the comment to which you want to reply. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+--+-- * 'pcrContent' - The contents of your reply to a comment.+postCommentReply+    :: Text -- ^ 'pcrInReplyTo'+    -> Text -- ^ 'pcrContent'+    -> PostCommentReply+postCommentReply pInReplyTo_ pContent_ =+  PostCommentReply'+    { _pcrClientRequestToken = Nothing+    , _pcrInReplyTo = pInReplyTo_+    , _pcrContent = pContent_+    }+++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+pcrClientRequestToken :: Lens' PostCommentReply (Maybe Text)+pcrClientRequestToken = lens _pcrClientRequestToken (\ s a -> s{_pcrClientRequestToken = a})++-- | The system-generated ID of the comment to which you want to reply. To get this ID, use 'GetCommentsForComparedCommit' or 'GetCommentsForPullRequest' .+pcrInReplyTo :: Lens' PostCommentReply Text+pcrInReplyTo = lens _pcrInReplyTo (\ s a -> s{_pcrInReplyTo = a})++-- | The contents of your reply to a comment.+pcrContent :: Lens' PostCommentReply Text+pcrContent = lens _pcrContent (\ s a -> s{_pcrContent = a})++instance AWSRequest PostCommentReply where+        type Rs PostCommentReply = PostCommentReplyResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 PostCommentReplyResponse' <$>+                   (x .?> "comment") <*> (pure (fromEnum s)))++instance Hashable PostCommentReply where++instance NFData PostCommentReply where++instance ToHeaders PostCommentReply where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.PostCommentReply" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PostCommentReply where+        toJSON PostCommentReply'{..}+          = object+              (catMaybes+                 [("clientRequestToken" .=) <$>+                    _pcrClientRequestToken,+                  Just ("inReplyTo" .= _pcrInReplyTo),+                  Just ("content" .= _pcrContent)])++instance ToPath PostCommentReply where+        toPath = const "/"++instance ToQuery PostCommentReply where+        toQuery = const mempty++-- | /See:/ 'postCommentReplyResponse' smart constructor.+data PostCommentReplyResponse = PostCommentReplyResponse'+  { _pcrrsComment        :: !(Maybe Comment)+  , _pcrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PostCommentReplyResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pcrrsComment' - Information about the reply to a comment.+--+-- * 'pcrrsResponseStatus' - -- | The response status code.+postCommentReplyResponse+    :: Int -- ^ 'pcrrsResponseStatus'+    -> PostCommentReplyResponse+postCommentReplyResponse pResponseStatus_ =+  PostCommentReplyResponse'+    {_pcrrsComment = Nothing, _pcrrsResponseStatus = pResponseStatus_}+++-- | Information about the reply to a comment.+pcrrsComment :: Lens' PostCommentReplyResponse (Maybe Comment)+pcrrsComment = lens _pcrrsComment (\ s a -> s{_pcrrsComment = a})++-- | -- | The response status code.+pcrrsResponseStatus :: Lens' PostCommentReplyResponse Int+pcrrsResponseStatus = lens _pcrrsResponseStatus (\ s a -> s{_pcrrsResponseStatus = a})++instance NFData PostCommentReplyResponse where

@@ -0,0 +1,243 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CodeCommit.PutFile+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds or updates a file in an AWS CodeCommit repository.+--+--+module Network.AWS.CodeCommit.PutFile+    (+    -- * Creating a Request+      putFile+    , PutFile+    -- * Request Lenses+    , pfEmail+    , pfFileMode+    , pfParentCommitId+    , pfName+    , pfCommitMessage+    , pfRepositoryName+    , pfBranchName+    , pfFileContent+    , pfFilePath++    -- * Destructuring the Response+    , putFileResponse+    , PutFileResponse+    -- * Response Lenses+    , pfrsResponseStatus+    , pfrsCommitId+    , pfrsBlobId+    , pfrsTreeId+    ) where++import Network.AWS.CodeCommit.Types+import Network.AWS.CodeCommit.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | /See:/ 'putFile' smart constructor.+data PutFile = PutFile'+  { _pfEmail          :: !(Maybe Text)+  , _pfFileMode       :: !(Maybe FileModeTypeEnum)+  , _pfParentCommitId :: !(Maybe Text)+  , _pfName           :: !(Maybe Text)+  , _pfCommitMessage  :: !(Maybe Text)+  , _pfRepositoryName :: !Text+  , _pfBranchName     :: !Text+  , _pfFileContent    :: !Base64+  , _pfFilePath       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutFile' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pfEmail' - An email address for the person adding or updating the file.+--+-- * 'pfFileMode' - The file mode permissions of the blob. Valid file mode permissions are listed below.+--+-- * 'pfParentCommitId' - The full commit ID of the head commit in the branch where you want to add or update the file. If the commit ID does not match the ID of the head commit at the time of the operation, an error will occur, and the file will not be added or updated.+--+-- * 'pfName' - The name of the person adding or updating the file. While optional, adding a name is strongly encouraged in order to provide a more useful commit history for your repository.+--+-- * 'pfCommitMessage' - A message about why this file was added or updated. While optional, adding a message is strongly encouraged in order to provide a more useful commit history for your repository.+--+-- * 'pfRepositoryName' - The name of the repository where you want to add or update the file.+--+-- * 'pfBranchName' - The name of the branch where you want to add or update the file.+--+-- * 'pfFileContent' - The content of the file, in binary object format. -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+--+-- * 'pfFilePath' - The name of the file you want to add or update, including the relative path to the file in the repository.+putFile+    :: Text -- ^ 'pfRepositoryName'+    -> Text -- ^ 'pfBranchName'+    -> ByteString -- ^ 'pfFileContent'+    -> Text -- ^ 'pfFilePath'+    -> PutFile+putFile pRepositoryName_ pBranchName_ pFileContent_ pFilePath_ =+  PutFile'+    { _pfEmail = Nothing+    , _pfFileMode = Nothing+    , _pfParentCommitId = Nothing+    , _pfName = Nothing+    , _pfCommitMessage = Nothing+    , _pfRepositoryName = pRepositoryName_+    , _pfBranchName = pBranchName_+    , _pfFileContent = _Base64 # pFileContent_+    , _pfFilePath = pFilePath_+    }+++-- | An email address for the person adding or updating the file.+pfEmail :: Lens' PutFile (Maybe Text)+pfEmail = lens _pfEmail (\ s a -> s{_pfEmail = a})++-- | The file mode permissions of the blob. Valid file mode permissions are listed below.+pfFileMode :: Lens' PutFile (Maybe FileModeTypeEnum)+pfFileMode = lens _pfFileMode (\ s a -> s{_pfFileMode = a})++-- | The full commit ID of the head commit in the branch where you want to add or update the file. If the commit ID does not match the ID of the head commit at the time of the operation, an error will occur, and the file will not be added or updated.+pfParentCommitId :: Lens' PutFile (Maybe Text)+pfParentCommitId = lens _pfParentCommitId (\ s a -> s{_pfParentCommitId = a})++-- | The name of the person adding or updating the file. While optional, adding a name is strongly encouraged in order to provide a more useful commit history for your repository.+pfName :: Lens' PutFile (Maybe Text)+pfName = lens _pfName (\ s a -> s{_pfName = a})++-- | A message about why this file was added or updated. While optional, adding a message is strongly encouraged in order to provide a more useful commit history for your repository.+pfCommitMessage :: Lens' PutFile (Maybe Text)+pfCommitMessage = lens _pfCommitMessage (\ s a -> s{_pfCommitMessage = a})++-- | The name of the repository where you want to add or update the file.+pfRepositoryName :: Lens' PutFile Text+pfRepositoryName = lens _pfRepositoryName (\ s a -> s{_pfRepositoryName = a})++-- | The name of the branch where you want to add or update the file.+pfBranchName :: Lens' PutFile Text+pfBranchName = lens _pfBranchName (\ s a -> s{_pfBranchName = a})++-- | The content of the file, in binary object format. -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.+pfFileContent :: Lens' PutFile ByteString+pfFileContent = lens _pfFileContent (\ s a -> s{_pfFileContent = a}) . _Base64++-- | The name of the file you want to add or update, including the relative path to the file in the repository.+pfFilePath :: Lens' PutFile Text+pfFilePath = lens _pfFilePath (\ s a -> s{_pfFilePath = a})++instance AWSRequest PutFile where+        type Rs PutFile = PutFileResponse+        request = postJSON codeCommit+        response+          = receiveJSON+              (\ s h x ->+                 PutFileResponse' <$>+                   (pure (fromEnum s)) <*> (x .:> "commitId") <*>+                     (x .:> "blobId")+                     <*> (x .:> "treeId"))++instance Hashable PutFile where++instance NFData PutFile where++instance ToHeaders PutFile where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodeCommit_20150413.PutFile" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PutFile where+        toJSON PutFile'{..}+          = object+              (catMaybes+                 [("email" .=) <$> _pfEmail,+                  ("fileMode" .=) <$> _pfFileMode,+                  ("parentCommitId" .=) <$> _pfParentCommitId,+                  ("name" .=) <$> _pfName,+                  ("commitMessage" .=) <$> _pfCommitMessage,+                  Just ("repositoryName" .= _pfRepositoryName),+                  Just ("branchName" .= _pfBranchName),+                  Just ("fileContent" .= _pfFileContent),+                  Just ("filePath" .= _pfFilePath)])++instance ToPath PutFile where+        toPath = const "/"++instance ToQuery PutFile where+        toQuery = const mempty++-- | /See:/ 'putFileResponse' smart constructor.+data PutFileResponse = PutFileResponse'+  { _pfrsResponseStatus :: !Int+  , _pfrsCommitId       :: !Text+  , _pfrsBlobId         :: !Text+  , _pfrsTreeId         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PutFileResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pfrsResponseStatus' - -- | The response status code.+--+-- * 'pfrsCommitId' - The full SHA of the commit that contains this file change.+--+-- * 'pfrsBlobId' - The ID of the blob, which is its SHA-1 pointer.+--+-- * 'pfrsTreeId' - Tree information for the commit that contains this file change.+putFileResponse+    :: Int -- ^ 'pfrsResponseStatus'+    -> Text -- ^ 'pfrsCommitId'+    -> Text -- ^ 'pfrsBlobId'+    -> Text -- ^ 'pfrsTreeId'+    -> PutFileResponse+putFileResponse pResponseStatus_ pCommitId_ pBlobId_ pTreeId_ =+  PutFileResponse'+    { _pfrsResponseStatus = pResponseStatus_+    , _pfrsCommitId = pCommitId_+    , _pfrsBlobId = pBlobId_+    , _pfrsTreeId = pTreeId_+    }+++-- | -- | The response status code.+pfrsResponseStatus :: Lens' PutFileResponse Int+pfrsResponseStatus = lens _pfrsResponseStatus (\ s a -> s{_pfrsResponseStatus = a})++-- | The full SHA of the commit that contains this file change.+pfrsCommitId :: Lens' PutFileResponse Text+pfrsCommitId = lens _pfrsCommitId (\ s a -> s{_pfrsCommitId = a})++-- | The ID of the blob, which is its SHA-1 pointer.+pfrsBlobId :: Lens' PutFileResponse Text+pfrsBlobId = lens _pfrsBlobId (\ s a -> s{_pfrsBlobId = a})++-- | Tree information for the commit that contains this file change.+pfrsTreeId :: Lens' PutFileResponse Text+pfrsTreeId = lens _pfrsTreeId (\ s a -> s{_pfrsTreeId = a})++instance NFData PutFileResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.PutRepositoryTriggers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -27,8 +27,8 @@       putRepositoryTriggers     , PutRepositoryTriggers     -- * Request Lenses-    , prtRepositoryName-    , prtTriggers+    , pRepositoryName+    , pTriggers      -- * Destructuring the Response     , putRepositoryTriggersResponse@@ -51,8 +51,8 @@ -- -- /See:/ 'putRepositoryTriggers' smart constructor. data PutRepositoryTriggers = PutRepositoryTriggers'-  { _prtRepositoryName :: !Text-  , _prtTriggers       :: ![RepositoryTrigger]+  { _pRepositoryName :: !Text+  , _pTriggers       :: ![RepositoryTrigger]   } deriving (Eq, Read, Show, Data, Typeable, Generic)  @@ -60,24 +60,24 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'prtRepositoryName' - The name of the repository where you want to create or update the trigger.+-- * 'pRepositoryName' - The name of the repository where you want to create or update the trigger. ----- * 'prtTriggers' - The JSON block of configuration information for each trigger.+-- * 'pTriggers' - The JSON block of configuration information for each trigger. putRepositoryTriggers-    :: Text -- ^ 'prtRepositoryName'+    :: Text -- ^ 'pRepositoryName'     -> PutRepositoryTriggers putRepositoryTriggers pRepositoryName_ =   PutRepositoryTriggers'-  {_prtRepositoryName = pRepositoryName_, _prtTriggers = mempty}+    {_pRepositoryName = pRepositoryName_, _pTriggers = mempty}   -- | The name of the repository where you want to create or update the trigger.-prtRepositoryName :: Lens' PutRepositoryTriggers Text-prtRepositoryName = lens _prtRepositoryName (\ s a -> s{_prtRepositoryName = a});+pRepositoryName :: Lens' PutRepositoryTriggers Text+pRepositoryName = lens _pRepositoryName (\ s a -> s{_pRepositoryName = a})  -- | The JSON block of configuration information for each trigger.-prtTriggers :: Lens' PutRepositoryTriggers [RepositoryTrigger]-prtTriggers = lens _prtTriggers (\ s a -> s{_prtTriggers = a}) . _Coerce;+pTriggers :: Lens' PutRepositoryTriggers [RepositoryTrigger]+pTriggers = lens _pTriggers (\ s a -> s{_pTriggers = a}) . _Coerce  instance AWSRequest PutRepositoryTriggers where         type Rs PutRepositoryTriggers =@@ -107,8 +107,8 @@         toJSON PutRepositoryTriggers'{..}           = object               (catMaybes-                 [Just ("repositoryName" .= _prtRepositoryName),-                  Just ("triggers" .= _prtTriggers)])+                 [Just ("repositoryName" .= _pRepositoryName),+                  Just ("triggers" .= _pTriggers)])  instance ToPath PutRepositoryTriggers where         toPath = const "/"@@ -139,15 +139,15 @@     -> PutRepositoryTriggersResponse putRepositoryTriggersResponse pResponseStatus_ =   PutRepositoryTriggersResponse'-  {_prtrsConfigurationId = Nothing, _prtrsResponseStatus = pResponseStatus_}+    {_prtrsConfigurationId = Nothing, _prtrsResponseStatus = pResponseStatus_}   -- | The system-generated unique ID for the create or update operation. prtrsConfigurationId :: Lens' PutRepositoryTriggersResponse (Maybe Text)-prtrsConfigurationId = lens _prtrsConfigurationId (\ s a -> s{_prtrsConfigurationId = a});+prtrsConfigurationId = lens _prtrsConfigurationId (\ s a -> s{_prtrsConfigurationId = a})  -- | -- | The response status code. prtrsResponseStatus :: Lens' PutRepositoryTriggersResponse Int-prtrsResponseStatus = lens _prtrsResponseStatus (\ s a -> s{_prtrsResponseStatus = a});+prtrsResponseStatus = lens _prtrsResponseStatus (\ s a -> s{_prtrsResponseStatus = a})  instance NFData PutRepositoryTriggersResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CodeCommit.TestRepositoryTriggers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     -> TestRepositoryTriggers testRepositoryTriggers pRepositoryName_ =   TestRepositoryTriggers'-  {_trtRepositoryName = pRepositoryName_, _trtTriggers = mempty}+    {_trtRepositoryName = pRepositoryName_, _trtTriggers = mempty}   -- | The name of the repository in which to test the triggers. trtRepositoryName :: Lens' TestRepositoryTriggers Text-trtRepositoryName = lens _trtRepositoryName (\ s a -> s{_trtRepositoryName = a});+trtRepositoryName = lens _trtRepositoryName (\ s a -> s{_trtRepositoryName = a})  -- | The list of triggers to test. trtTriggers :: Lens' TestRepositoryTriggers [RepositoryTrigger]-trtTriggers = lens _trtTriggers (\ s a -> s{_trtTriggers = a}) . _Coerce;+trtTriggers = lens _trtTriggers (\ s a -> s{_trtTriggers = a}) . _Coerce  instance AWSRequest TestRepositoryTriggers where         type Rs TestRepositoryTriggers =@@ -145,22 +145,22 @@     -> TestRepositoryTriggersResponse testRepositoryTriggersResponse pResponseStatus_ =   TestRepositoryTriggersResponse'-  { _trtrsFailedExecutions = Nothing-  , _trtrsSuccessfulExecutions = Nothing-  , _trtrsResponseStatus = pResponseStatus_-  }+    { _trtrsFailedExecutions = Nothing+    , _trtrsSuccessfulExecutions = Nothing+    , _trtrsResponseStatus = pResponseStatus_+    }   -- | The list of triggers that were not able to be tested. This list provides the names of the triggers that could not be tested, separated by commas. trtrsFailedExecutions :: Lens' TestRepositoryTriggersResponse [RepositoryTriggerExecutionFailure]-trtrsFailedExecutions = lens _trtrsFailedExecutions (\ s a -> s{_trtrsFailedExecutions = a}) . _Default . _Coerce;+trtrsFailedExecutions = lens _trtrsFailedExecutions (\ s a -> s{_trtrsFailedExecutions = a}) . _Default . _Coerce  -- | The list of triggers that were successfully tested. This list provides the names of the triggers that were successfully tested, separated by commas. trtrsSuccessfulExecutions :: Lens' TestRepositoryTriggersResponse [Text]-trtrsSuccessfulExecutions = lens _trtrsSuccessfulExecutions (\ s a -> s{_trtrsSuccessfulExecutions = a}) . _Default . _Coerce;+trtrsSuccessfulExecutions = lens _trtrsSuccessfulExecutions (\ s a -> s{_trtrsSuccessfulExecutions = a}) . _Default . _Coerce  -- | -- | The response status code. trtrsResponseStatus :: Lens' TestRepositoryTriggersResponse Int-trtrsResponseStatus = lens _trtrsResponseStatus (\ s a -> s{_trtrsResponseStatus = a});+trtrsResponseStatus = lens _trtrsResponseStatus (\ s a -> s{_trtrsResponseStatus = a})  instance NFData TestRepositoryTriggersResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CodeCommit.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -18,58 +18,136 @@     -- * Errors     , _InvalidRepositoryTriggerRegionException     , _InvalidContinuationTokenException+    , _ManualMergeRequiredException+    , _TargetsRequiredException     , _EncryptionKeyNotFoundException+    , _TipsDivergenceExceededException     , _InvalidRepositoryTriggerBranchNameException+    , _PullRequestAlreadyClosedException     , _InvalidRepositoryTriggerCustomDataException+    , _DirectoryNameConflictsWithFileNameException+    , _ReferenceDoesNotExistException+    , _ActorDoesNotExistException+    , _PullRequestIdRequiredException+    , _InvalidEmailException+    , _CommitMessageLengthExceededException     , _BlobIdDoesNotExistException     , _MaximumRepositoryNamesExceededException     , _InvalidRepositoryDescriptionException     , _RepositoryNameExistsException+    , _ReferenceNameRequiredException     , _MaximumRepositoryTriggersExceededException     , _InvalidBranchNameException     , _BranchNameRequiredException+    , _MergeOptionRequiredException+    , _InvalidFileLocationException+    , _BeforeCommitIdAndAfterCommitIdAreSameException     , _RepositoryTriggersListRequiredException+    , _IdempotencyParameterMismatchException     , _EncryptionKeyUnavailableException+    , _InvalidRelativeFileVersionEnumException     , _InvalidRepositoryTriggerDestinationARNException     , _BlobIdRequiredException     , _RepositoryNamesRequiredException+    , _InvalidActorARNException+    , _InvalidCommentIdException+    , _InvalidDescriptionException     , _InvalidBlobIdException+    , _PullRequestDoesNotExistException     , _InvalidOrderException     , _BranchDoesNotExistException     , _DefaultBranchCannotBeDeletedException     , _InvalidPathException+    , _PathRequiredException     , _RepositoryTriggerNameRequiredException+    , _InvalidFileModeException+    , _InvalidPullRequestStatusException+    , _ParentCommitIdRequiredException+    , _InvalidSourceCommitSpecifierException     , _RepositoryDoesNotExistException     , _MaximumBranchesExceededException+    , _InvalidTitleException+    , _CommentContentSizeLimitExceededException+    , _InvalidParentCommitIdException+    , _InvalidPullRequestEventTypeException+    , _FileContentRequiredException+    , _SourceAndDestinationAreSameException     , _PathDoesNotExistException     , _EncryptionIntegrityChecksFailedException+    , _ParentCommitIdOutdatedException     , _RepositoryTriggerEventsListRequiredException+    , _CommentContentRequiredException+    , _InvalidTargetsException     , _EncryptionKeyAccessDeniedException     , _BranchNameExistsException     , _InvalidCommitException+    , _TargetRequiredException+    , _InvalidDestinationCommitSpecifierException+    , _CommentDoesNotExistException+    , _ReferenceTypeNotSupportedException+    , _FileNameConflictsWithDirectoryNameException+    , _NameLengthExceededException     , _InvalidSortByException     , _EncryptionKeyDisabledException     , _CommitRequiredException+    , _MaximumOpenPullRequestsExceededException+    , _InvalidTargetException+    , _InvalidPullRequestIdException+    , _CommentNotCreatedByCallerException+    , _InvalidPullRequestStatusUpdateException+    , _InvalidReferenceNameException+    , _SameFileContentException     , _CommitIdRequiredException     , _InvalidCommitIdException+    , _TipOfSourceReferenceIsDifferentException     , _RepositoryTriggerDestinationARNRequiredException+    , _InvalidClientRequestTokenException     , _CommitDoesNotExistException     , _RepositoryTriggerBranchNameListRequiredException+    , _ClientRequestTokenRequiredException+    , _InvalidMergeOptionException+    , _CommentIdRequiredException     , _InvalidMaxResultsException     , _FileTooLargeException     , _CommitIdDoesNotExistException+    , _MultipleRepositoriesInPullRequestException+    , _FileContentSizeLimitExceededException     , _InvalidRepositoryTriggerNameException     , _RepositoryNameRequiredException     , _RepositoryLimitExceededException     , _InvalidRepositoryTriggerEventsException+    , _BranchNameIsTagNameException     , _InvalidRepositoryNameException+    , _InvalidAuthorARNException+    , _PullRequestStatusRequiredException+    , _RepositoryNotAssociatedWithPullRequestException+    , _TitleRequiredException+    , _InvalidFilePositionException+    , _CommentDeletedException+    , _ParentCommitDoesNotExistException+    , _AuthorDoesNotExistException      -- * ChangeTypeEnum     , ChangeTypeEnum (..) +    -- * FileModeTypeEnum+    , FileModeTypeEnum (..)++    -- * MergeOptionTypeEnum+    , MergeOptionTypeEnum (..)+     -- * OrderEnum     , OrderEnum (..) +    -- * PullRequestEventType+    , PullRequestEventType (..)++    -- * PullRequestStatusEnum+    , PullRequestStatusEnum (..)++    -- * RelativeFileVersionEnum+    , RelativeFileVersionEnum (..)+     -- * RepositoryTriggerEventEnum     , RepositoryTriggerEventEnum (..) @@ -89,6 +167,41 @@     , biCommitId     , biBranchName +    -- * Comment+    , Comment+    , comment+    , cLastModifiedDate+    , cAuthorARN+    , cContent+    , cCreationDate+    , cDeleted+    , cClientRequestToken+    , cCommentId+    , cInReplyTo++    -- * CommentsForComparedCommit+    , CommentsForComparedCommit+    , commentsForComparedCommit+    , cfccBeforeBlobId+    , cfccLocation+    , cfccAfterCommitId+    , cfccAfterBlobId+    , cfccBeforeCommitId+    , cfccRepositoryName+    , cfccComments++    -- * CommentsForPullRequest+    , CommentsForPullRequest+    , commentsForPullRequest+    , cfprBeforeBlobId+    , cfprLocation+    , cfprAfterCommitId+    , cfprPullRequestId+    , cfprAfterBlobId+    , cfprBeforeCommitId+    , cfprRepositoryName+    , cfprComments+     -- * Commit     , Commit     , commit@@ -107,6 +220,72 @@     , dBeforeBlob     , dChangeType +    -- * Location+    , Location+    , location+    , lRelativeFileVersion+    , lFilePath+    , lFilePosition++    -- * MergeMetadata+    , MergeMetadata+    , mergeMetadata+    , mmMergedBy+    , mmIsMerged++    -- * PullRequest+    , PullRequest+    , pullRequest+    , prAuthorARN+    , prPullRequestId+    , prCreationDate+    , prPullRequestStatus+    , prTitle+    , prClientRequestToken+    , prLastActivityDate+    , prPullRequestTargets+    , prDescription++    -- * PullRequestEvent+    , PullRequestEvent+    , pullRequestEvent+    , prePullRequestMergedStateChangedEventMetadata+    , prePullRequestEventType+    , prePullRequestStatusChangedEventMetadata+    , preActorARN+    , prePullRequestId+    , preEventDate+    , prePullRequestSourceReferenceUpdatedEventMetadata++    -- * PullRequestMergedStateChangedEventMetadata+    , PullRequestMergedStateChangedEventMetadata+    , pullRequestMergedStateChangedEventMetadata+    , prmscemDestinationReference+    , prmscemMergeMetadata+    , prmscemRepositoryName++    -- * PullRequestSourceReferenceUpdatedEventMetadata+    , PullRequestSourceReferenceUpdatedEventMetadata+    , pullRequestSourceReferenceUpdatedEventMetadata+    , prsruemAfterCommitId+    , prsruemBeforeCommitId+    , prsruemRepositoryName++    -- * PullRequestStatusChangedEventMetadata+    , PullRequestStatusChangedEventMetadata+    , pullRequestStatusChangedEventMetadata+    , prscemPullRequestStatus++    -- * PullRequestTarget+    , PullRequestTarget+    , pullRequestTarget+    , prtSourceCommit+    , prtDestinationReference+    , prtMergeMetadata+    , prtDestinationCommit+    , prtRepositoryName+    , prtSourceReference+     -- * RepositoryMetadata     , RepositoryMetadata     , repositoryMetadata@@ -142,6 +321,13 @@     , rtefFailureMessage     , rtefTrigger +    -- * Target+    , Target+    , target+    , tDestinationReference+    , tRepositoryName+    , tSourceReference+     -- * UserInfo     , UserInfo     , userInfo@@ -160,24 +346,24 @@ codeCommit :: Service codeCommit =   Service-  { _svcAbbrev = "CodeCommit"-  , _svcSigner = v4-  , _svcPrefix = "codecommit"-  , _svcVersion = "2015-04-13"-  , _svcEndpoint = defaultEndpoint codeCommit-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "CodeCommit"-  , _svcRetry = retry-  }+    { _svcAbbrev = "CodeCommit"+    , _svcSigner = v4+    , _svcPrefix = "codecommit"+    , _svcVersion = "2015-04-13"+    , _svcEndpoint = defaultEndpoint codeCommit+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "CodeCommit"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -186,6 +372,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"@@ -209,6 +397,22 @@   _MatchServiceError codeCommit "InvalidContinuationTokenException"  +-- | The pull request cannot be merged automatically into the destination branch. You must manually merge the branches and resolve any conflicts.+--+--+_ManualMergeRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_ManualMergeRequiredException =+  _MatchServiceError codeCommit "ManualMergeRequiredException"+++-- | An array of target objects is required. It cannot be empty or null.+--+--+_TargetsRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_TargetsRequiredException =+  _MatchServiceError codeCommit "TargetsRequiredException"++ -- | No encryption key was found. -- --@@ -217,6 +421,14 @@   _MatchServiceError codeCommit "EncryptionKeyNotFoundException"  +-- | The divergence between the tips of the provided commit specifiers is too great to determine whether there might be any merge conflicts. Locally compare the specifiers using @git diff@ or a diff tool.+--+--+_TipsDivergenceExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_TipsDivergenceExceededException =+  _MatchServiceError codeCommit "TipsDivergenceExceededException"++ -- | One or more branch names specified for the trigger is not valid. -- --@@ -225,6 +437,14 @@   _MatchServiceError codeCommit "InvalidRepositoryTriggerBranchNameException"  +-- | The pull request status cannot be updated because it is already closed.+--+--+_PullRequestAlreadyClosedException :: AsError a => Getting (First ServiceError) a ServiceError+_PullRequestAlreadyClosedException =+  _MatchServiceError codeCommit "PullRequestAlreadyClosedException"++ -- | The custom data provided for the trigger is not valid. -- --@@ -233,6 +453,53 @@   _MatchServiceError codeCommit "InvalidRepositoryTriggerCustomDataException"  +-- | A file cannot be added to the repository because the specified path name has the same name as a file that already exists in this repository. Either provide a different name for the file, or specify a different path for the file.+--+--+_DirectoryNameConflictsWithFileNameException :: AsError a => Getting (First ServiceError) a ServiceError+_DirectoryNameConflictsWithFileNameException =+  _MatchServiceError codeCommit "DirectoryNameConflictsWithFileNameException"+++-- | The specified reference does not exist. You must provide a full commit ID.+--+--+_ReferenceDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_ReferenceDoesNotExistException =+  _MatchServiceError codeCommit "ReferenceDoesNotExistException"+++-- | The specified Amazon Resource Name (ARN) does not exist in the AWS account.+--+--+_ActorDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_ActorDoesNotExistException =+  _MatchServiceError codeCommit "ActorDoesNotExistException"+++-- | A pull request ID is required, but none was provided.+--+--+_PullRequestIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_PullRequestIdRequiredException =+  _MatchServiceError codeCommit "PullRequestIdRequiredException"+++-- | The specified email address either contains one or more characters that are not allowed, or it exceeds the maximum number of characters allowed for an email address.+--+--+_InvalidEmailException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidEmailException = _MatchServiceError codeCommit "InvalidEmailException"+++-- | The commit message is too long. Provide a shorter string.+--+--+_CommitMessageLengthExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_CommitMessageLengthExceededException =+  _MatchServiceError codeCommit "CommitMessageLengthExceededException"++ -- | The specified blob does not exist. -- --@@ -265,6 +532,14 @@   _MatchServiceError codeCommit "RepositoryNameExistsException"  +-- | A reference name is required, but none was provided.+--+--+_ReferenceNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_ReferenceNameRequiredException =+  _MatchServiceError codeCommit "ReferenceNameRequiredException"++ -- | The number of triggers allowed for the repository was exceeded. -- --@@ -273,7 +548,7 @@   _MatchServiceError codeCommit "MaximumRepositoryTriggersExceededException"  --- | The specified branch name is not valid.+-- | The specified reference name is not valid. -- -- _InvalidBranchNameException :: AsError a => Getting (First ServiceError) a ServiceError@@ -289,6 +564,30 @@   _MatchServiceError codeCommit "BranchNameRequiredException"  +-- | A merge option or stategy is required, and none was provided.+--+--+_MergeOptionRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_MergeOptionRequiredException =+  _MatchServiceError codeCommit "MergeOptionRequiredException"+++-- | The location of the file is not valid. Make sure that you include the extension of the file as well as the file name.+--+--+_InvalidFileLocationException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidFileLocationException =+  _MatchServiceError codeCommit "InvalidFileLocationException"+++-- | The before commit ID and the after commit ID are the same, which is not valid. The before commit ID and the after commit ID must be different commit IDs.+--+--+_BeforeCommitIdAndAfterCommitIdAreSameException :: AsError a => Getting (First ServiceError) a ServiceError+_BeforeCommitIdAndAfterCommitIdAreSameException =+  _MatchServiceError codeCommit "BeforeCommitIdAndAfterCommitIdAreSameException"++ -- | The list of triggers for the repository is required but was not specified. -- --@@ -297,6 +596,14 @@   _MatchServiceError codeCommit "RepositoryTriggersListRequiredException"  +-- | The client request token is not valid. Either the token is not in a valid format, or the token has been used in a previous request and cannot be re-used.+--+--+_IdempotencyParameterMismatchException :: AsError a => Getting (First ServiceError) a ServiceError+_IdempotencyParameterMismatchException =+  _MatchServiceError codeCommit "IdempotencyParameterMismatchException"++ -- | The encryption key is not available. -- --@@ -305,6 +612,14 @@   _MatchServiceError codeCommit "EncryptionKeyUnavailableException"  +-- | Either the enum is not in a valid format, or the specified file version enum is not valid in respect to the current file version.+--+--+_InvalidRelativeFileVersionEnumException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidRelativeFileVersionEnumException =+  _MatchServiceError codeCommit "InvalidRelativeFileVersionEnumException"++ -- | The Amazon Resource Name (ARN) for the trigger is not valid for the specified destination. The most common reason for this error is that the ARN does not meet the requirements for the service type. -- --@@ -331,6 +646,30 @@   _MatchServiceError codeCommit "RepositoryNamesRequiredException"  +-- | The Amazon Resource Name (ARN) is not valid. Make sure that you have provided the full ARN for the user who initiated the change for the pull request, and then try again.+--+--+_InvalidActorARNException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidActorARNException =+  _MatchServiceError codeCommit "InvalidActorArnException"+++-- | The comment ID is not in a valid format. Make sure that you have provided the full comment ID.+--+--+_InvalidCommentIdException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidCommentIdException =+  _MatchServiceError codeCommit "InvalidCommentIdException"+++-- | The pull request description is not valid. Descriptions are limited to 1,000 characters in length.+--+--+_InvalidDescriptionException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDescriptionException =+  _MatchServiceError codeCommit "InvalidDescriptionException"++ -- | The specified blob is not valid. -- --@@ -338,6 +677,14 @@ _InvalidBlobIdException = _MatchServiceError codeCommit "InvalidBlobIdException"  +-- | The pull request ID could not be found. Make sure that you have specified the correct repository name and pull request ID, and then try again.+--+--+_PullRequestDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_PullRequestDoesNotExistException =+  _MatchServiceError codeCommit "PullRequestDoesNotExistException"++ -- | The specified sort order is not valid. -- --@@ -368,6 +715,13 @@ _InvalidPathException = _MatchServiceError codeCommit "InvalidPathException"  +-- | The filePath for a location cannot be empty or null.+--+--+_PathRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_PathRequiredException = _MatchServiceError codeCommit "PathRequiredException"++ -- | A name for the trigger is required but was not specified. -- --@@ -376,6 +730,38 @@   _MatchServiceError codeCommit "RepositoryTriggerNameRequiredException"  +-- | The specified file mode permission is not valid. For a list of valid file mode permissions, see 'PutFile' .+--+--+_InvalidFileModeException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidFileModeException =+  _MatchServiceError codeCommit "InvalidFileModeException"+++-- | The pull request status is not valid. The only valid values are @OPEN@ and @CLOSED@ .+--+--+_InvalidPullRequestStatusException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidPullRequestStatusException =+  _MatchServiceError codeCommit "InvalidPullRequestStatusException"+++-- | A parent commit ID is required. To view the full commit ID of a branch in a repository, use 'GetBranch' or a Git command (for example, git pull or git log).+--+--+_ParentCommitIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_ParentCommitIdRequiredException =+  _MatchServiceError codeCommit "ParentCommitIdRequiredException"+++-- | The source commit specifier is not valid. You must provide a valid branch name, tag, or full commit ID.+--+--+_InvalidSourceCommitSpecifierException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidSourceCommitSpecifierException =+  _MatchServiceError codeCommit "InvalidSourceCommitSpecifierException"++ -- | The specified repository does not exist. -- --@@ -392,6 +778,53 @@   _MatchServiceError codeCommit "MaximumBranchesExceededException"  +-- | The title of the pull request is not valid. Pull request titles cannot exceed 100 characters in length.+--+--+_InvalidTitleException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidTitleException = _MatchServiceError codeCommit "InvalidTitleException"+++-- | The comment is too large. Comments are limited to 1,000 characters.+--+--+_CommentContentSizeLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentContentSizeLimitExceededException =+  _MatchServiceError codeCommit "CommentContentSizeLimitExceededException"+++-- | The parent commit ID is not valid. The commit ID cannot be empty, and must match the head commit ID for the branch of the repository where you want to add or update a file.+--+--+_InvalidParentCommitIdException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidParentCommitIdException =+  _MatchServiceError codeCommit "InvalidParentCommitIdException"+++-- | The pull request event type is not valid.+--+--+_InvalidPullRequestEventTypeException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidPullRequestEventTypeException =+  _MatchServiceError codeCommit "InvalidPullRequestEventTypeException"+++-- | The file cannot be added because it is empty. Empty files cannot be added to the repository with this API.+--+--+_FileContentRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_FileContentRequiredException =+  _MatchServiceError codeCommit "FileContentRequiredException"+++-- | The source branch and the destination branch for the pull request are the same. You must specify different branches for the source and destination.+--+--+_SourceAndDestinationAreSameException :: AsError a => Getting (First ServiceError) a ServiceError+_SourceAndDestinationAreSameException =+  _MatchServiceError codeCommit "SourceAndDestinationAreSameException"++ -- | The specified path does not exist. -- --@@ -408,6 +841,14 @@   _MatchServiceError codeCommit "EncryptionIntegrityChecksFailedException"  +-- | The file could not be added because the provided parent commit ID is not the current tip of the specified branch. To view the full commit ID of the current head of the branch, use 'GetBranch' .+--+--+_ParentCommitIdOutdatedException :: AsError a => Getting (First ServiceError) a ServiceError+_ParentCommitIdOutdatedException =+  _MatchServiceError codeCommit "ParentCommitIdOutdatedException"++ -- | At least one event for the trigger is required but was not specified. -- --@@ -416,6 +857,22 @@   _MatchServiceError codeCommit "RepositoryTriggerEventsListRequiredException"  +-- | The comment is empty. You must provide some content for a comment. The content cannot be null.+--+--+_CommentContentRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentContentRequiredException =+  _MatchServiceError codeCommit "CommentContentRequiredException"+++-- | The targets for the pull request is not valid or not in a valid format. Targets are a list of target objects. Each target object must contain the full values for the repository name, source branch, and destination branch for a pull request.+--+--+_InvalidTargetsException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidTargetsException =+  _MatchServiceError codeCommit "InvalidTargetsException"++ -- | An encryption key could not be accessed. -- --@@ -439,6 +896,54 @@ _InvalidCommitException = _MatchServiceError codeCommit "InvalidCommitException"  +-- | A pull request target is required. It cannot be empty or null. A pull request target must contain the full values for the repository name, source branch, and destination branch for the pull request.+--+--+_TargetRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_TargetRequiredException =+  _MatchServiceError codeCommit "TargetRequiredException"+++-- | The destination commit specifier is not valid. You must provide a valid branch name, tag, or full commit ID.+--+--+_InvalidDestinationCommitSpecifierException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidDestinationCommitSpecifierException =+  _MatchServiceError codeCommit "InvalidDestinationCommitSpecifierException"+++-- | No comment exists with the provided ID. Verify that you have provided the correct ID, and then try again.+--+--+_CommentDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentDoesNotExistException =+  _MatchServiceError codeCommit "CommentDoesNotExistException"+++-- | The specified reference is not a supported type.+--+--+_ReferenceTypeNotSupportedException :: AsError a => Getting (First ServiceError) a ServiceError+_ReferenceTypeNotSupportedException =+  _MatchServiceError codeCommit "ReferenceTypeNotSupportedException"+++-- | A file cannot be added to the repository because the specified file name has the same name as a directory in this repository. Either provide another name for the file, or add the file in a directory that does not match the file name.+--+--+_FileNameConflictsWithDirectoryNameException :: AsError a => Getting (First ServiceError) a ServiceError+_FileNameConflictsWithDirectoryNameException =+  _MatchServiceError codeCommit "FileNameConflictsWithDirectoryNameException"+++-- | The file name is not valid because it has exceeded the character limit for file names. File names, including the path to the file, cannot exceed the character limit.+--+--+_NameLengthExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_NameLengthExceededException =+  _MatchServiceError codeCommit "NameLengthExceededException"++ -- | The specified sort by value is not valid. -- --@@ -462,6 +967,61 @@   _MatchServiceError codeCommit "CommitRequiredException"  +-- | You cannot create the pull request because the repository has too many open pull requests. The maximum number of open pull requests for a repository is 1,000. Close one or more open pull requests, and then try again.+--+--+_MaximumOpenPullRequestsExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_MaximumOpenPullRequestsExceededException =+  _MatchServiceError codeCommit "MaximumOpenPullRequestsExceededException"+++-- | The target for the pull request is not valid. A target must contain the full values for the repository name, source branch, and destination branch for the pull request.+--+--+_InvalidTargetException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidTargetException = _MatchServiceError codeCommit "InvalidTargetException"+++-- | The pull request ID is not valid. Make sure that you have provided the full ID and that the pull request is in the specified repository, and then try again.+--+--+_InvalidPullRequestIdException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidPullRequestIdException =+  _MatchServiceError codeCommit "InvalidPullRequestIdException"+++-- | You cannot modify or delete this comment. Only comment authors can modify or delete their comments.+--+--+_CommentNotCreatedByCallerException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentNotCreatedByCallerException =+  _MatchServiceError codeCommit "CommentNotCreatedByCallerException"+++-- | The pull request status update is not valid. The only valid update is from @OPEN@ to @CLOSED@ .+--+--+_InvalidPullRequestStatusUpdateException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidPullRequestStatusUpdateException =+  _MatchServiceError codeCommit "InvalidPullRequestStatusUpdateException"+++-- | The specified reference name format is not valid. Reference names must conform to the Git references format, for example refs/heads/master. For more information, see <https://git-scm.com/book/en/v2/Git-Internals-Git-References Git Internals - Git References> or consult your Git documentation.+--+--+_InvalidReferenceNameException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidReferenceNameException =+  _MatchServiceError codeCommit "InvalidReferenceNameException"+++-- | The file was not added or updated because the content of the file is exactly the same as the content of that file in the repository and branch that you specified.+--+--+_SameFileContentException :: AsError a => Getting (First ServiceError) a ServiceError+_SameFileContentException =+  _MatchServiceError codeCommit "SameFileContentException"++ -- | A commit ID was not specified. -- --@@ -478,6 +1038,14 @@   _MatchServiceError codeCommit "InvalidCommitIdException"  +-- | The tip of the source branch in the destination repository does not match the tip of the source branch specified in your request. The pull request might have been updated. Make sure that you have the latest changes.+--+--+_TipOfSourceReferenceIsDifferentException :: AsError a => Getting (First ServiceError) a ServiceError+_TipOfSourceReferenceIsDifferentException =+  _MatchServiceError codeCommit "TipOfSourceReferenceIsDifferentException"++ -- | A destination ARN for the target service for the trigger is required but was not specified. -- --@@ -488,6 +1056,14 @@     "RepositoryTriggerDestinationArnRequiredException"  +-- | The client request token is not valid.+--+--+_InvalidClientRequestTokenException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidClientRequestTokenException =+  _MatchServiceError codeCommit "InvalidClientRequestTokenException"++ -- | The specified commit does not exist or no commit was specified, and the specified repository has no default branch. -- --@@ -506,6 +1082,30 @@     "RepositoryTriggerBranchNameListRequiredException"  +-- | A client request token is required. A client request token is an unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+--+_ClientRequestTokenRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_ClientRequestTokenRequiredException =+  _MatchServiceError codeCommit "ClientRequestTokenRequiredException"+++-- | The specified merge option is not valid. The only valid value is FAST_FORWARD_MERGE.+--+--+_InvalidMergeOptionException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidMergeOptionException =+  _MatchServiceError codeCommit "InvalidMergeOptionException"+++-- | The comment ID is missing or null. A comment ID is required.+--+--+_CommentIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentIdRequiredException =+  _MatchServiceError codeCommit "CommentIdRequiredException"++ -- | The specified number of maximum results is not valid. -- --@@ -529,6 +1129,22 @@   _MatchServiceError codeCommit "CommitIdDoesNotExistException"  +-- | You cannot include more than one repository in a pull request. Make sure you have specified only one repository name in your request, and then try again.+--+--+_MultipleRepositoriesInPullRequestException :: AsError a => Getting (First ServiceError) a ServiceError+_MultipleRepositoriesInPullRequestException =+  _MatchServiceError codeCommit "MultipleRepositoriesInPullRequestException"+++-- | The file cannot be added because it is too large. The maximum file size that can be added using PutFile is 6 MB. For files larger than 6 MB but smaller than 2 GB, add them using a Git client.+--+--+_FileContentSizeLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_FileContentSizeLimitExceededException =+  _MatchServiceError codeCommit "FileContentSizeLimitExceededException"++ -- | The name of the trigger is not valid. -- --@@ -561,10 +1177,83 @@   _MatchServiceError codeCommit "InvalidRepositoryTriggerEventsException"  +-- | The specified branch name is not valid because it is a tag name. Type the name of a current branch in the repository. For a list of valid branch names, use 'ListBranches' .+--+--+_BranchNameIsTagNameException :: AsError a => Getting (First ServiceError) a ServiceError+_BranchNameIsTagNameException =+  _MatchServiceError codeCommit "BranchNameIsTagNameException"++ -- | At least one specified repository name is not valid. -- -- _InvalidRepositoryNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRepositoryNameException =   _MatchServiceError codeCommit "InvalidRepositoryNameException"+++-- | The Amazon Resource Name (ARN) is not valid. Make sure that you have provided the full ARN for the author of the pull request, and then try again.+--+--+_InvalidAuthorARNException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidAuthorARNException =+  _MatchServiceError codeCommit "InvalidAuthorArnException"+++-- | A pull request status is required, but none was provided.+--+--+_PullRequestStatusRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_PullRequestStatusRequiredException =+  _MatchServiceError codeCommit "PullRequestStatusRequiredException"+++-- | The repository does not contain any pull requests with that pull request ID. Check to make sure you have provided the correct repository name for the pull request.+--+--+_RepositoryNotAssociatedWithPullRequestException :: AsError a => Getting (First ServiceError) a ServiceError+_RepositoryNotAssociatedWithPullRequestException =+  _MatchServiceError+    codeCommit+    "RepositoryNotAssociatedWithPullRequestException"+++-- | A pull request title is required. It cannot be empty or null.+--+--+_TitleRequiredException :: AsError a => Getting (First ServiceError) a ServiceError+_TitleRequiredException = _MatchServiceError codeCommit "TitleRequiredException"+++-- | The position is not valid. Make sure that the line number exists in the version of the file you want to comment on.+--+--+_InvalidFilePositionException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidFilePositionException =+  _MatchServiceError codeCommit "InvalidFilePositionException"+++-- | This comment has already been deleted. You cannot edit or delete a deleted comment.+--+--+_CommentDeletedException :: AsError a => Getting (First ServiceError) a ServiceError+_CommentDeletedException =+  _MatchServiceError codeCommit "CommentDeletedException"+++-- | The parent commit ID is not valid. The specified parent commit ID does not exist in the specified branch of the repository.+--+--+_ParentCommitDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_ParentCommitDoesNotExistException =+  _MatchServiceError codeCommit "ParentCommitDoesNotExistException"+++-- | The specified Amazon Resource Name (ARN) does not exist in the AWS account.+--+--+_AuthorDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError+_AuthorDoesNotExistException =+  _MatchServiceError codeCommit "AuthorDoesNotExistException" 

@@ -9,587 +9,1494 @@  -- | -- Module      : Network.AWS.CodeCommit.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.CodeCommit.Types.Product where--import Network.AWS.CodeCommit.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | Returns information about a specific Git blob object.------------ /See:/ 'blobMetadata' smart constructor.-data BlobMetadata = BlobMetadata'-  { _bmPath   :: !(Maybe Text)-  , _bmMode   :: !(Maybe Text)-  , _bmBlobId :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'BlobMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bmPath' - The path to the blob and any associated file name, if any.------ * 'bmMode' - The file mode permissions of the blob. File mode permission codes include:     * @100644@ indicates read/write     * @100755@ indicates read/write/execute     * @160000@ indicates a submodule     * @120000@ indicates a symlink------ * 'bmBlobId' - The full ID of the blob.-blobMetadata-    :: BlobMetadata-blobMetadata =-  BlobMetadata' {_bmPath = Nothing, _bmMode = Nothing, _bmBlobId = Nothing}----- | The path to the blob and any associated file name, if any.-bmPath :: Lens' BlobMetadata (Maybe Text)-bmPath = lens _bmPath (\ s a -> s{_bmPath = a});---- | The file mode permissions of the blob. File mode permission codes include:     * @100644@ indicates read/write     * @100755@ indicates read/write/execute     * @160000@ indicates a submodule     * @120000@ indicates a symlink-bmMode :: Lens' BlobMetadata (Maybe Text)-bmMode = lens _bmMode (\ s a -> s{_bmMode = a});---- | The full ID of the blob.-bmBlobId :: Lens' BlobMetadata (Maybe Text)-bmBlobId = lens _bmBlobId (\ s a -> s{_bmBlobId = a});--instance FromJSON BlobMetadata where-        parseJSON-          = withObject "BlobMetadata"-              (\ x ->-                 BlobMetadata' <$>-                   (x .:? "path") <*> (x .:? "mode") <*>-                     (x .:? "blobId"))--instance Hashable BlobMetadata where--instance NFData BlobMetadata where---- | Returns information about a branch.------------ /See:/ 'branchInfo' smart constructor.-data BranchInfo = BranchInfo'-  { _biCommitId   :: !(Maybe Text)-  , _biBranchName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'BranchInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'biCommitId' - The ID of the last commit made to the branch.------ * 'biBranchName' - The name of the branch.-branchInfo-    :: BranchInfo-branchInfo = BranchInfo' {_biCommitId = Nothing, _biBranchName = Nothing}----- | The ID of the last commit made to the branch.-biCommitId :: Lens' BranchInfo (Maybe Text)-biCommitId = lens _biCommitId (\ s a -> s{_biCommitId = a});---- | The name of the branch.-biBranchName :: Lens' BranchInfo (Maybe Text)-biBranchName = lens _biBranchName (\ s a -> s{_biBranchName = a});--instance FromJSON BranchInfo where-        parseJSON-          = withObject "BranchInfo"-              (\ x ->-                 BranchInfo' <$>-                   (x .:? "commitId") <*> (x .:? "branchName"))--instance Hashable BranchInfo where--instance NFData BranchInfo where---- | Returns information about a specific commit.------------ /See:/ 'commit' smart constructor.-data Commit = Commit'-  { _cCommitId       :: !(Maybe Text)-  , _cCommitter      :: !(Maybe UserInfo)-  , _cTreeId         :: !(Maybe Text)-  , _cAdditionalData :: !(Maybe Text)-  , _cParents        :: !(Maybe [Text])-  , _cAuthor         :: !(Maybe UserInfo)-  , _cMessage        :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Commit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cCommitId' - The full SHA of the specified commit.------ * 'cCommitter' - Information about the person who committed the specified commit, also known as the committer. Information includes the date in timestamp format with GMT offset, the name of the committer, and the email address for the committer, as configured in Git. For more information about the difference between an author and a committer in Git, see <http://git-scm.com/book/ch2-3.html Viewing the Commit History> in Pro Git by Scott Chacon and Ben Straub.------ * 'cTreeId' - Tree information for the specified commit.------ * 'cAdditionalData' - Any additional data associated with the specified commit.------ * 'cParents' - The parent list for the specified commit.------ * 'cAuthor' - Information about the author of the specified commit. Information includes the date in timestamp format with GMT offset, the name of the author, and the email address for the author, as configured in Git.------ * 'cMessage' - The commit message associated with the specified commit.-commit-    :: Commit-commit =-  Commit'-  { _cCommitId = Nothing-  , _cCommitter = Nothing-  , _cTreeId = Nothing-  , _cAdditionalData = Nothing-  , _cParents = Nothing-  , _cAuthor = Nothing-  , _cMessage = Nothing-  }----- | The full SHA of the specified commit.-cCommitId :: Lens' Commit (Maybe Text)-cCommitId = lens _cCommitId (\ s a -> s{_cCommitId = a});---- | Information about the person who committed the specified commit, also known as the committer. Information includes the date in timestamp format with GMT offset, the name of the committer, and the email address for the committer, as configured in Git. For more information about the difference between an author and a committer in Git, see <http://git-scm.com/book/ch2-3.html Viewing the Commit History> in Pro Git by Scott Chacon and Ben Straub.-cCommitter :: Lens' Commit (Maybe UserInfo)-cCommitter = lens _cCommitter (\ s a -> s{_cCommitter = a});---- | Tree information for the specified commit.-cTreeId :: Lens' Commit (Maybe Text)-cTreeId = lens _cTreeId (\ s a -> s{_cTreeId = a});---- | Any additional data associated with the specified commit.-cAdditionalData :: Lens' Commit (Maybe Text)-cAdditionalData = lens _cAdditionalData (\ s a -> s{_cAdditionalData = a});---- | The parent list for the specified commit.-cParents :: Lens' Commit [Text]-cParents = lens _cParents (\ s a -> s{_cParents = a}) . _Default . _Coerce;---- | Information about the author of the specified commit. Information includes the date in timestamp format with GMT offset, the name of the author, and the email address for the author, as configured in Git.-cAuthor :: Lens' Commit (Maybe UserInfo)-cAuthor = lens _cAuthor (\ s a -> s{_cAuthor = a});---- | The commit message associated with the specified commit.-cMessage :: Lens' Commit (Maybe Text)-cMessage = lens _cMessage (\ s a -> s{_cMessage = a});--instance FromJSON Commit where-        parseJSON-          = withObject "Commit"-              (\ x ->-                 Commit' <$>-                   (x .:? "commitId") <*> (x .:? "committer") <*>-                     (x .:? "treeId")-                     <*> (x .:? "additionalData")-                     <*> (x .:? "parents" .!= mempty)-                     <*> (x .:? "author")-                     <*> (x .:? "message"))--instance Hashable Commit where--instance NFData Commit where---- | Returns information about a set of differences for a commit specifier.------------ /See:/ 'difference' smart constructor.-data Difference = Difference'-  { _dAfterBlob  :: !(Maybe BlobMetadata)-  , _dBeforeBlob :: !(Maybe BlobMetadata)-  , _dChangeType :: !(Maybe ChangeTypeEnum)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Difference' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dAfterBlob' - Information about an @afterBlob@ data type object, including the ID, the file mode permission code, and the path.------ * 'dBeforeBlob' - Information about a @beforeBlob@ data type object, including the ID, the file mode permission code, and the path.------ * 'dChangeType' - Whether the change type of the difference is an addition (A), deletion (D), or modification (M).-difference-    :: Difference-difference =-  Difference'-  {_dAfterBlob = Nothing, _dBeforeBlob = Nothing, _dChangeType = Nothing}----- | Information about an @afterBlob@ data type object, including the ID, the file mode permission code, and the path.-dAfterBlob :: Lens' Difference (Maybe BlobMetadata)-dAfterBlob = lens _dAfterBlob (\ s a -> s{_dAfterBlob = a});---- | Information about a @beforeBlob@ data type object, including the ID, the file mode permission code, and the path.-dBeforeBlob :: Lens' Difference (Maybe BlobMetadata)-dBeforeBlob = lens _dBeforeBlob (\ s a -> s{_dBeforeBlob = a});---- | Whether the change type of the difference is an addition (A), deletion (D), or modification (M).-dChangeType :: Lens' Difference (Maybe ChangeTypeEnum)-dChangeType = lens _dChangeType (\ s a -> s{_dChangeType = a});--instance FromJSON Difference where-        parseJSON-          = withObject "Difference"-              (\ x ->-                 Difference' <$>-                   (x .:? "afterBlob") <*> (x .:? "beforeBlob") <*>-                     (x .:? "changeType"))--instance Hashable Difference where--instance NFData Difference where---- | Information about a repository.------------ /See:/ 'repositoryMetadata' smart constructor.-data RepositoryMetadata = RepositoryMetadata'-  { _rmRepositoryDescription :: !(Maybe Text)-  , _rmLastModifiedDate      :: !(Maybe POSIX)-  , _rmARN                   :: !(Maybe Text)-  , _rmCloneURLHTTP          :: !(Maybe Text)-  , _rmAccountId             :: !(Maybe Text)-  , _rmDefaultBranch         :: !(Maybe Text)-  , _rmRepositoryId          :: !(Maybe Text)-  , _rmRepositoryName        :: !(Maybe Text)-  , _rmCreationDate          :: !(Maybe POSIX)-  , _rmCloneURLSSH           :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RepositoryMetadata' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rmRepositoryDescription' - A comment or description about the repository.------ * 'rmLastModifiedDate' - The date and time the repository was last modified, in timestamp format.------ * 'rmARN' - The Amazon Resource Name (ARN) of the repository.------ * 'rmCloneURLHTTP' - The URL to use for cloning the repository over HTTPS.------ * 'rmAccountId' - The ID of the AWS account associated with the repository.------ * 'rmDefaultBranch' - The repository's default branch name.------ * 'rmRepositoryId' - The ID of the repository.------ * 'rmRepositoryName' - The repository's name.------ * 'rmCreationDate' - The date and time the repository was created, in timestamp format.------ * 'rmCloneURLSSH' - The URL to use for cloning the repository over SSH.-repositoryMetadata-    :: RepositoryMetadata-repositoryMetadata =-  RepositoryMetadata'-  { _rmRepositoryDescription = Nothing-  , _rmLastModifiedDate = Nothing-  , _rmARN = Nothing-  , _rmCloneURLHTTP = Nothing-  , _rmAccountId = Nothing-  , _rmDefaultBranch = Nothing-  , _rmRepositoryId = Nothing-  , _rmRepositoryName = Nothing-  , _rmCreationDate = Nothing-  , _rmCloneURLSSH = Nothing-  }----- | A comment or description about the repository.-rmRepositoryDescription :: Lens' RepositoryMetadata (Maybe Text)-rmRepositoryDescription = lens _rmRepositoryDescription (\ s a -> s{_rmRepositoryDescription = a});---- | The date and time the repository was last modified, in timestamp format.-rmLastModifiedDate :: Lens' RepositoryMetadata (Maybe UTCTime)-rmLastModifiedDate = lens _rmLastModifiedDate (\ s a -> s{_rmLastModifiedDate = a}) . mapping _Time;---- | The Amazon Resource Name (ARN) of the repository.-rmARN :: Lens' RepositoryMetadata (Maybe Text)-rmARN = lens _rmARN (\ s a -> s{_rmARN = a});---- | The URL to use for cloning the repository over HTTPS.-rmCloneURLHTTP :: Lens' RepositoryMetadata (Maybe Text)-rmCloneURLHTTP = lens _rmCloneURLHTTP (\ s a -> s{_rmCloneURLHTTP = a});---- | The ID of the AWS account associated with the repository.-rmAccountId :: Lens' RepositoryMetadata (Maybe Text)-rmAccountId = lens _rmAccountId (\ s a -> s{_rmAccountId = a});---- | The repository's default branch name.-rmDefaultBranch :: Lens' RepositoryMetadata (Maybe Text)-rmDefaultBranch = lens _rmDefaultBranch (\ s a -> s{_rmDefaultBranch = a});---- | The ID of the repository.-rmRepositoryId :: Lens' RepositoryMetadata (Maybe Text)-rmRepositoryId = lens _rmRepositoryId (\ s a -> s{_rmRepositoryId = a});---- | The repository's name.-rmRepositoryName :: Lens' RepositoryMetadata (Maybe Text)-rmRepositoryName = lens _rmRepositoryName (\ s a -> s{_rmRepositoryName = a});---- | The date and time the repository was created, in timestamp format.-rmCreationDate :: Lens' RepositoryMetadata (Maybe UTCTime)-rmCreationDate = lens _rmCreationDate (\ s a -> s{_rmCreationDate = a}) . mapping _Time;---- | The URL to use for cloning the repository over SSH.-rmCloneURLSSH :: Lens' RepositoryMetadata (Maybe Text)-rmCloneURLSSH = lens _rmCloneURLSSH (\ s a -> s{_rmCloneURLSSH = a});--instance FromJSON RepositoryMetadata where-        parseJSON-          = withObject "RepositoryMetadata"-              (\ x ->-                 RepositoryMetadata' <$>-                   (x .:? "repositoryDescription") <*>-                     (x .:? "lastModifiedDate")-                     <*> (x .:? "Arn")-                     <*> (x .:? "cloneUrlHttp")-                     <*> (x .:? "accountId")-                     <*> (x .:? "defaultBranch")-                     <*> (x .:? "repositoryId")-                     <*> (x .:? "repositoryName")-                     <*> (x .:? "creationDate")-                     <*> (x .:? "cloneUrlSsh"))--instance Hashable RepositoryMetadata where--instance NFData RepositoryMetadata where---- | Information about a repository name and ID.------------ /See:/ 'repositoryNameIdPair' smart constructor.-data RepositoryNameIdPair = RepositoryNameIdPair'-  { _rnipRepositoryId   :: !(Maybe Text)-  , _rnipRepositoryName :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RepositoryNameIdPair' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rnipRepositoryId' - The ID associated with the repository.------ * 'rnipRepositoryName' - The name associated with the repository.-repositoryNameIdPair-    :: RepositoryNameIdPair-repositoryNameIdPair =-  RepositoryNameIdPair'-  {_rnipRepositoryId = Nothing, _rnipRepositoryName = Nothing}----- | The ID associated with the repository.-rnipRepositoryId :: Lens' RepositoryNameIdPair (Maybe Text)-rnipRepositoryId = lens _rnipRepositoryId (\ s a -> s{_rnipRepositoryId = a});---- | The name associated with the repository.-rnipRepositoryName :: Lens' RepositoryNameIdPair (Maybe Text)-rnipRepositoryName = lens _rnipRepositoryName (\ s a -> s{_rnipRepositoryName = a});--instance FromJSON RepositoryNameIdPair where-        parseJSON-          = withObject "RepositoryNameIdPair"-              (\ x ->-                 RepositoryNameIdPair' <$>-                   (x .:? "repositoryId") <*> (x .:? "repositoryName"))--instance Hashable RepositoryNameIdPair where--instance NFData RepositoryNameIdPair where---- | Information about a trigger for a repository.------------ /See:/ 'repositoryTrigger' smart constructor.-data RepositoryTrigger = RepositoryTrigger'-  { _rtBranches       :: !(Maybe [Text])-  , _rtCustomData     :: !(Maybe Text)-  , _rtName           :: !Text-  , _rtDestinationARN :: !Text-  , _rtEvents         :: ![RepositoryTriggerEventEnum]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RepositoryTrigger' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtBranches' - The branches that will be included in the trigger configuration. If you specify an empty array, the trigger will apply to all branches.------ * 'rtCustomData' - Any custom data associated with the trigger that will be included in the information sent to the target of the trigger.------ * 'rtName' - The name of the trigger.------ * 'rtDestinationARN' - The ARN of the resource that is the target for a trigger. For example, the ARN of a topic in Amazon Simple Notification Service (SNS).------ * 'rtEvents' - The repository events that will cause the trigger to run actions in another service, such as sending a notification through Amazon Simple Notification Service (SNS).-repositoryTrigger-    :: Text -- ^ 'rtName'-    -> Text -- ^ 'rtDestinationARN'-    -> RepositoryTrigger-repositoryTrigger pName_ pDestinationARN_ =-  RepositoryTrigger'-  { _rtBranches = Nothing-  , _rtCustomData = Nothing-  , _rtName = pName_-  , _rtDestinationARN = pDestinationARN_-  , _rtEvents = mempty-  }----- | The branches that will be included in the trigger configuration. If you specify an empty array, the trigger will apply to all branches.-rtBranches :: Lens' RepositoryTrigger [Text]-rtBranches = lens _rtBranches (\ s a -> s{_rtBranches = a}) . _Default . _Coerce;---- | Any custom data associated with the trigger that will be included in the information sent to the target of the trigger.-rtCustomData :: Lens' RepositoryTrigger (Maybe Text)-rtCustomData = lens _rtCustomData (\ s a -> s{_rtCustomData = a});---- | The name of the trigger.-rtName :: Lens' RepositoryTrigger Text-rtName = lens _rtName (\ s a -> s{_rtName = a});---- | The ARN of the resource that is the target for a trigger. For example, the ARN of a topic in Amazon Simple Notification Service (SNS).-rtDestinationARN :: Lens' RepositoryTrigger Text-rtDestinationARN = lens _rtDestinationARN (\ s a -> s{_rtDestinationARN = a});---- | The repository events that will cause the trigger to run actions in another service, such as sending a notification through Amazon Simple Notification Service (SNS).-rtEvents :: Lens' RepositoryTrigger [RepositoryTriggerEventEnum]-rtEvents = lens _rtEvents (\ s a -> s{_rtEvents = a}) . _Coerce;--instance FromJSON RepositoryTrigger where-        parseJSON-          = withObject "RepositoryTrigger"-              (\ x ->-                 RepositoryTrigger' <$>-                   (x .:? "branches" .!= mempty) <*>-                     (x .:? "customData")-                     <*> (x .: "name")-                     <*> (x .: "destinationArn")-                     <*> (x .:? "events" .!= mempty))--instance Hashable RepositoryTrigger where--instance NFData RepositoryTrigger where--instance ToJSON RepositoryTrigger where-        toJSON RepositoryTrigger'{..}-          = object-              (catMaybes-                 [("branches" .=) <$> _rtBranches,-                  ("customData" .=) <$> _rtCustomData,-                  Just ("name" .= _rtName),-                  Just ("destinationArn" .= _rtDestinationARN),-                  Just ("events" .= _rtEvents)])---- | A trigger failed to run.------------ /See:/ 'repositoryTriggerExecutionFailure' smart constructor.-data RepositoryTriggerExecutionFailure = RepositoryTriggerExecutionFailure'-  { _rtefFailureMessage :: !(Maybe Text)-  , _rtefTrigger        :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RepositoryTriggerExecutionFailure' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtefFailureMessage' - Additional message information about the trigger that did not run.------ * 'rtefTrigger' - The name of the trigger that did not run.-repositoryTriggerExecutionFailure-    :: RepositoryTriggerExecutionFailure-repositoryTriggerExecutionFailure =-  RepositoryTriggerExecutionFailure'-  {_rtefFailureMessage = Nothing, _rtefTrigger = Nothing}----- | Additional message information about the trigger that did not run.-rtefFailureMessage :: Lens' RepositoryTriggerExecutionFailure (Maybe Text)-rtefFailureMessage = lens _rtefFailureMessage (\ s a -> s{_rtefFailureMessage = a});---- | The name of the trigger that did not run.-rtefTrigger :: Lens' RepositoryTriggerExecutionFailure (Maybe Text)-rtefTrigger = lens _rtefTrigger (\ s a -> s{_rtefTrigger = a});--instance FromJSON RepositoryTriggerExecutionFailure-         where-        parseJSON-          = withObject "RepositoryTriggerExecutionFailure"-              (\ x ->-                 RepositoryTriggerExecutionFailure' <$>-                   (x .:? "failureMessage") <*> (x .:? "trigger"))--instance Hashable RepositoryTriggerExecutionFailure-         where--instance NFData RepositoryTriggerExecutionFailure-         where---- | Information about the user who made a specified commit.------------ /See:/ 'userInfo' smart constructor.-data UserInfo = UserInfo'-  { _uiEmail :: !(Maybe Text)-  , _uiDate  :: !(Maybe Text)-  , _uiName  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UserInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'uiEmail' - The email address associated with the user who made the commit, if any.------ * 'uiDate' - The date when the specified commit was pushed to the repository.------ * 'uiName' - The name of the user who made the specified commit.-userInfo-    :: UserInfo-userInfo = UserInfo' {_uiEmail = Nothing, _uiDate = Nothing, _uiName = Nothing}----- | The email address associated with the user who made the commit, if any.-uiEmail :: Lens' UserInfo (Maybe Text)-uiEmail = lens _uiEmail (\ s a -> s{_uiEmail = a});---- | The date when the specified commit was pushed to the repository.-uiDate :: Lens' UserInfo (Maybe Text)-uiDate = lens _uiDate (\ s a -> s{_uiDate = a});---- | The name of the user who made the specified commit.-uiName :: Lens' UserInfo (Maybe Text)-uiName = lens _uiName (\ s a -> s{_uiName = a});+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.CodeCommit.Types.Product where++import Network.AWS.CodeCommit.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | Returns information about a specific Git blob object.+--+--+--+-- /See:/ 'blobMetadata' smart constructor.+data BlobMetadata = BlobMetadata'+  { _bmPath   :: !(Maybe Text)+  , _bmMode   :: !(Maybe Text)+  , _bmBlobId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BlobMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bmPath' - The path to the blob and any associated file name, if any.+--+-- * 'bmMode' - The file mode permissions of the blob. File mode permission codes include:     * @100644@ indicates read/write     * @100755@ indicates read/write/execute     * @160000@ indicates a submodule     * @120000@ indicates a symlink+--+-- * 'bmBlobId' - The full ID of the blob.+blobMetadata+    :: BlobMetadata+blobMetadata =+  BlobMetadata' {_bmPath = Nothing, _bmMode = Nothing, _bmBlobId = Nothing}+++-- | The path to the blob and any associated file name, if any.+bmPath :: Lens' BlobMetadata (Maybe Text)+bmPath = lens _bmPath (\ s a -> s{_bmPath = a})++-- | The file mode permissions of the blob. File mode permission codes include:     * @100644@ indicates read/write     * @100755@ indicates read/write/execute     * @160000@ indicates a submodule     * @120000@ indicates a symlink+bmMode :: Lens' BlobMetadata (Maybe Text)+bmMode = lens _bmMode (\ s a -> s{_bmMode = a})++-- | The full ID of the blob.+bmBlobId :: Lens' BlobMetadata (Maybe Text)+bmBlobId = lens _bmBlobId (\ s a -> s{_bmBlobId = a})++instance FromJSON BlobMetadata where+        parseJSON+          = withObject "BlobMetadata"+              (\ x ->+                 BlobMetadata' <$>+                   (x .:? "path") <*> (x .:? "mode") <*>+                     (x .:? "blobId"))++instance Hashable BlobMetadata where++instance NFData BlobMetadata where++-- | Returns information about a branch.+--+--+--+-- /See:/ 'branchInfo' smart constructor.+data BranchInfo = BranchInfo'+  { _biCommitId   :: !(Maybe Text)+  , _biBranchName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BranchInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'biCommitId' - The ID of the last commit made to the branch.+--+-- * 'biBranchName' - The name of the branch.+branchInfo+    :: BranchInfo+branchInfo = BranchInfo' {_biCommitId = Nothing, _biBranchName = Nothing}+++-- | The ID of the last commit made to the branch.+biCommitId :: Lens' BranchInfo (Maybe Text)+biCommitId = lens _biCommitId (\ s a -> s{_biCommitId = a})++-- | The name of the branch.+biBranchName :: Lens' BranchInfo (Maybe Text)+biBranchName = lens _biBranchName (\ s a -> s{_biBranchName = a})++instance FromJSON BranchInfo where+        parseJSON+          = withObject "BranchInfo"+              (\ x ->+                 BranchInfo' <$>+                   (x .:? "commitId") <*> (x .:? "branchName"))++instance Hashable BranchInfo where++instance NFData BranchInfo where++-- | Returns information about a specific comment.+--+--+--+-- /See:/ 'comment' smart constructor.+data Comment = Comment'+  { _cLastModifiedDate   :: !(Maybe POSIX)+  , _cAuthorARN          :: !(Maybe Text)+  , _cContent            :: !(Maybe Text)+  , _cCreationDate       :: !(Maybe POSIX)+  , _cDeleted            :: !(Maybe Bool)+  , _cClientRequestToken :: !(Maybe Text)+  , _cCommentId          :: !(Maybe Text)+  , _cInReplyTo          :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Comment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cLastModifiedDate' - The date and time the comment was most recently modified, in timestamp format.+--+-- * 'cAuthorARN' - The Amazon Resource Name (ARN) of the person who posted the comment.+--+-- * 'cContent' - The content of the comment.+--+-- * 'cCreationDate' - The date and time the comment was created, in timestamp format.+--+-- * 'cDeleted' - A Boolean value indicating whether the comment has been deleted.+--+-- * 'cClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'cCommentId' - The system-generated comment ID.+--+-- * 'cInReplyTo' - The ID of the comment for which this comment is a reply, if any.+comment+    :: Comment+comment =+  Comment'+    { _cLastModifiedDate = Nothing+    , _cAuthorARN = Nothing+    , _cContent = Nothing+    , _cCreationDate = Nothing+    , _cDeleted = Nothing+    , _cClientRequestToken = Nothing+    , _cCommentId = Nothing+    , _cInReplyTo = Nothing+    }+++-- | The date and time the comment was most recently modified, in timestamp format.+cLastModifiedDate :: Lens' Comment (Maybe UTCTime)+cLastModifiedDate = lens _cLastModifiedDate (\ s a -> s{_cLastModifiedDate = a}) . mapping _Time++-- | The Amazon Resource Name (ARN) of the person who posted the comment.+cAuthorARN :: Lens' Comment (Maybe Text)+cAuthorARN = lens _cAuthorARN (\ s a -> s{_cAuthorARN = a})++-- | The content of the comment.+cContent :: Lens' Comment (Maybe Text)+cContent = lens _cContent (\ s a -> s{_cContent = a})++-- | The date and time the comment was created, in timestamp format.+cCreationDate :: Lens' Comment (Maybe UTCTime)+cCreationDate = lens _cCreationDate (\ s a -> s{_cCreationDate = a}) . mapping _Time++-- | A Boolean value indicating whether the comment has been deleted.+cDeleted :: Lens' Comment (Maybe Bool)+cDeleted = lens _cDeleted (\ s a -> s{_cDeleted = a})++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+cClientRequestToken :: Lens' Comment (Maybe Text)+cClientRequestToken = lens _cClientRequestToken (\ s a -> s{_cClientRequestToken = a})++-- | The system-generated comment ID.+cCommentId :: Lens' Comment (Maybe Text)+cCommentId = lens _cCommentId (\ s a -> s{_cCommentId = a})++-- | The ID of the comment for which this comment is a reply, if any.+cInReplyTo :: Lens' Comment (Maybe Text)+cInReplyTo = lens _cInReplyTo (\ s a -> s{_cInReplyTo = a})++instance FromJSON Comment where+        parseJSON+          = withObject "Comment"+              (\ x ->+                 Comment' <$>+                   (x .:? "lastModifiedDate") <*> (x .:? "authorArn")+                     <*> (x .:? "content")+                     <*> (x .:? "creationDate")+                     <*> (x .:? "deleted")+                     <*> (x .:? "clientRequestToken")+                     <*> (x .:? "commentId")+                     <*> (x .:? "inReplyTo"))++instance Hashable Comment where++instance NFData Comment where++-- | Returns information about comments on the comparison between two commits.+--+--+--+-- /See:/ 'commentsForComparedCommit' smart constructor.+data CommentsForComparedCommit = CommentsForComparedCommit'+  { _cfccBeforeBlobId   :: !(Maybe Text)+  , _cfccLocation       :: !(Maybe Location)+  , _cfccAfterCommitId  :: !(Maybe Text)+  , _cfccAfterBlobId    :: !(Maybe Text)+  , _cfccBeforeCommitId :: !(Maybe Text)+  , _cfccRepositoryName :: !(Maybe Text)+  , _cfccComments       :: !(Maybe [Comment])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CommentsForComparedCommit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cfccBeforeBlobId' - The full blob ID of the commit used to establish the 'before' of the comparison.+--+-- * 'cfccLocation' - Location information about the comment on the comparison, including the file name, line number, and whether the version of the file where the comment was made is 'BEFORE' or 'AFTER'.+--+-- * 'cfccAfterCommitId' - The full commit ID of the commit used to establish the 'after' of the comparison.+--+-- * 'cfccAfterBlobId' - The full blob ID of the commit used to establish the 'after' of the comparison.+--+-- * 'cfccBeforeCommitId' - The full commit ID of the commit used to establish the 'before' of the comparison.+--+-- * 'cfccRepositoryName' - The name of the repository that contains the compared commits.+--+-- * 'cfccComments' - An array of comment objects. Each comment object contains information about a comment on the comparison between commits.+commentsForComparedCommit+    :: CommentsForComparedCommit+commentsForComparedCommit =+  CommentsForComparedCommit'+    { _cfccBeforeBlobId = Nothing+    , _cfccLocation = Nothing+    , _cfccAfterCommitId = Nothing+    , _cfccAfterBlobId = Nothing+    , _cfccBeforeCommitId = Nothing+    , _cfccRepositoryName = Nothing+    , _cfccComments = Nothing+    }+++-- | The full blob ID of the commit used to establish the 'before' of the comparison.+cfccBeforeBlobId :: Lens' CommentsForComparedCommit (Maybe Text)+cfccBeforeBlobId = lens _cfccBeforeBlobId (\ s a -> s{_cfccBeforeBlobId = a})++-- | Location information about the comment on the comparison, including the file name, line number, and whether the version of the file where the comment was made is 'BEFORE' or 'AFTER'.+cfccLocation :: Lens' CommentsForComparedCommit (Maybe Location)+cfccLocation = lens _cfccLocation (\ s a -> s{_cfccLocation = a})++-- | The full commit ID of the commit used to establish the 'after' of the comparison.+cfccAfterCommitId :: Lens' CommentsForComparedCommit (Maybe Text)+cfccAfterCommitId = lens _cfccAfterCommitId (\ s a -> s{_cfccAfterCommitId = a})++-- | The full blob ID of the commit used to establish the 'after' of the comparison.+cfccAfterBlobId :: Lens' CommentsForComparedCommit (Maybe Text)+cfccAfterBlobId = lens _cfccAfterBlobId (\ s a -> s{_cfccAfterBlobId = a})++-- | The full commit ID of the commit used to establish the 'before' of the comparison.+cfccBeforeCommitId :: Lens' CommentsForComparedCommit (Maybe Text)+cfccBeforeCommitId = lens _cfccBeforeCommitId (\ s a -> s{_cfccBeforeCommitId = a})++-- | The name of the repository that contains the compared commits.+cfccRepositoryName :: Lens' CommentsForComparedCommit (Maybe Text)+cfccRepositoryName = lens _cfccRepositoryName (\ s a -> s{_cfccRepositoryName = a})++-- | An array of comment objects. Each comment object contains information about a comment on the comparison between commits.+cfccComments :: Lens' CommentsForComparedCommit [Comment]+cfccComments = lens _cfccComments (\ s a -> s{_cfccComments = a}) . _Default . _Coerce++instance FromJSON CommentsForComparedCommit where+        parseJSON+          = withObject "CommentsForComparedCommit"+              (\ x ->+                 CommentsForComparedCommit' <$>+                   (x .:? "beforeBlobId") <*> (x .:? "location") <*>+                     (x .:? "afterCommitId")+                     <*> (x .:? "afterBlobId")+                     <*> (x .:? "beforeCommitId")+                     <*> (x .:? "repositoryName")+                     <*> (x .:? "comments" .!= mempty))++instance Hashable CommentsForComparedCommit where++instance NFData CommentsForComparedCommit where++-- | Returns information about comments on a pull request.+--+--+--+-- /See:/ 'commentsForPullRequest' smart constructor.+data CommentsForPullRequest = CommentsForPullRequest'+  { _cfprBeforeBlobId   :: !(Maybe Text)+  , _cfprLocation       :: !(Maybe Location)+  , _cfprAfterCommitId  :: !(Maybe Text)+  , _cfprPullRequestId  :: !(Maybe Text)+  , _cfprAfterBlobId    :: !(Maybe Text)+  , _cfprBeforeCommitId :: !(Maybe Text)+  , _cfprRepositoryName :: !(Maybe Text)+  , _cfprComments       :: !(Maybe [Comment])+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CommentsForPullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cfprBeforeBlobId' - The full blob ID of the file on which you want to comment on the destination commit.+--+-- * 'cfprLocation' - Location information about the comment on the pull request, including the file name, line number, and whether the version of the file where the comment was made is 'BEFORE' (destination branch) or 'AFTER' (source branch).+--+-- * 'cfprAfterCommitId' - he full commit ID of the commit that was the tip of the source branch at the time the comment was made.+--+-- * 'cfprPullRequestId' - The system-generated ID of the pull request.+--+-- * 'cfprAfterBlobId' - The full blob ID of the file on which you want to comment on the source commit.+--+-- * 'cfprBeforeCommitId' - The full commit ID of the commit that was the tip of the destination branch when the pull request was created. This commit will be superceded by the after commit in the source branch when and if you merge the source branch into the destination branch.+--+-- * 'cfprRepositoryName' - The name of the repository that contains the pull request.+--+-- * 'cfprComments' - An array of comment objects. Each comment object contains information about a comment on the pull request.+commentsForPullRequest+    :: CommentsForPullRequest+commentsForPullRequest =+  CommentsForPullRequest'+    { _cfprBeforeBlobId = Nothing+    , _cfprLocation = Nothing+    , _cfprAfterCommitId = Nothing+    , _cfprPullRequestId = Nothing+    , _cfprAfterBlobId = Nothing+    , _cfprBeforeCommitId = Nothing+    , _cfprRepositoryName = Nothing+    , _cfprComments = Nothing+    }+++-- | The full blob ID of the file on which you want to comment on the destination commit.+cfprBeforeBlobId :: Lens' CommentsForPullRequest (Maybe Text)+cfprBeforeBlobId = lens _cfprBeforeBlobId (\ s a -> s{_cfprBeforeBlobId = a})++-- | Location information about the comment on the pull request, including the file name, line number, and whether the version of the file where the comment was made is 'BEFORE' (destination branch) or 'AFTER' (source branch).+cfprLocation :: Lens' CommentsForPullRequest (Maybe Location)+cfprLocation = lens _cfprLocation (\ s a -> s{_cfprLocation = a})++-- | he full commit ID of the commit that was the tip of the source branch at the time the comment was made.+cfprAfterCommitId :: Lens' CommentsForPullRequest (Maybe Text)+cfprAfterCommitId = lens _cfprAfterCommitId (\ s a -> s{_cfprAfterCommitId = a})++-- | The system-generated ID of the pull request.+cfprPullRequestId :: Lens' CommentsForPullRequest (Maybe Text)+cfprPullRequestId = lens _cfprPullRequestId (\ s a -> s{_cfprPullRequestId = a})++-- | The full blob ID of the file on which you want to comment on the source commit.+cfprAfterBlobId :: Lens' CommentsForPullRequest (Maybe Text)+cfprAfterBlobId = lens _cfprAfterBlobId (\ s a -> s{_cfprAfterBlobId = a})++-- | The full commit ID of the commit that was the tip of the destination branch when the pull request was created. This commit will be superceded by the after commit in the source branch when and if you merge the source branch into the destination branch.+cfprBeforeCommitId :: Lens' CommentsForPullRequest (Maybe Text)+cfprBeforeCommitId = lens _cfprBeforeCommitId (\ s a -> s{_cfprBeforeCommitId = a})++-- | The name of the repository that contains the pull request.+cfprRepositoryName :: Lens' CommentsForPullRequest (Maybe Text)+cfprRepositoryName = lens _cfprRepositoryName (\ s a -> s{_cfprRepositoryName = a})++-- | An array of comment objects. Each comment object contains information about a comment on the pull request.+cfprComments :: Lens' CommentsForPullRequest [Comment]+cfprComments = lens _cfprComments (\ s a -> s{_cfprComments = a}) . _Default . _Coerce++instance FromJSON CommentsForPullRequest where+        parseJSON+          = withObject "CommentsForPullRequest"+              (\ x ->+                 CommentsForPullRequest' <$>+                   (x .:? "beforeBlobId") <*> (x .:? "location") <*>+                     (x .:? "afterCommitId")+                     <*> (x .:? "pullRequestId")+                     <*> (x .:? "afterBlobId")+                     <*> (x .:? "beforeCommitId")+                     <*> (x .:? "repositoryName")+                     <*> (x .:? "comments" .!= mempty))++instance Hashable CommentsForPullRequest where++instance NFData CommentsForPullRequest where++-- | Returns information about a specific commit.+--+--+--+-- /See:/ 'commit' smart constructor.+data Commit = Commit'+  { _cCommitId       :: !(Maybe Text)+  , _cCommitter      :: !(Maybe UserInfo)+  , _cTreeId         :: !(Maybe Text)+  , _cAdditionalData :: !(Maybe Text)+  , _cParents        :: !(Maybe [Text])+  , _cAuthor         :: !(Maybe UserInfo)+  , _cMessage        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Commit' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cCommitId' - The full SHA of the specified commit.+--+-- * 'cCommitter' - Information about the person who committed the specified commit, also known as the committer. Information includes the date in timestamp format with GMT offset, the name of the committer, and the email address for the committer, as configured in Git. For more information about the difference between an author and a committer in Git, see <http://git-scm.com/book/ch2-3.html Viewing the Commit History> in Pro Git by Scott Chacon and Ben Straub.+--+-- * 'cTreeId' - Tree information for the specified commit.+--+-- * 'cAdditionalData' - Any additional data associated with the specified commit.+--+-- * 'cParents' - A list of parent commits for the specified commit. Each parent commit ID is the full commit ID.+--+-- * 'cAuthor' - Information about the author of the specified commit. Information includes the date in timestamp format with GMT offset, the name of the author, and the email address for the author, as configured in Git.+--+-- * 'cMessage' - The commit message associated with the specified commit.+commit+    :: Commit+commit =+  Commit'+    { _cCommitId = Nothing+    , _cCommitter = Nothing+    , _cTreeId = Nothing+    , _cAdditionalData = Nothing+    , _cParents = Nothing+    , _cAuthor = Nothing+    , _cMessage = Nothing+    }+++-- | The full SHA of the specified commit.+cCommitId :: Lens' Commit (Maybe Text)+cCommitId = lens _cCommitId (\ s a -> s{_cCommitId = a})++-- | Information about the person who committed the specified commit, also known as the committer. Information includes the date in timestamp format with GMT offset, the name of the committer, and the email address for the committer, as configured in Git. For more information about the difference between an author and a committer in Git, see <http://git-scm.com/book/ch2-3.html Viewing the Commit History> in Pro Git by Scott Chacon and Ben Straub.+cCommitter :: Lens' Commit (Maybe UserInfo)+cCommitter = lens _cCommitter (\ s a -> s{_cCommitter = a})++-- | Tree information for the specified commit.+cTreeId :: Lens' Commit (Maybe Text)+cTreeId = lens _cTreeId (\ s a -> s{_cTreeId = a})++-- | Any additional data associated with the specified commit.+cAdditionalData :: Lens' Commit (Maybe Text)+cAdditionalData = lens _cAdditionalData (\ s a -> s{_cAdditionalData = a})++-- | A list of parent commits for the specified commit. Each parent commit ID is the full commit ID.+cParents :: Lens' Commit [Text]+cParents = lens _cParents (\ s a -> s{_cParents = a}) . _Default . _Coerce++-- | Information about the author of the specified commit. Information includes the date in timestamp format with GMT offset, the name of the author, and the email address for the author, as configured in Git.+cAuthor :: Lens' Commit (Maybe UserInfo)+cAuthor = lens _cAuthor (\ s a -> s{_cAuthor = a})++-- | The commit message associated with the specified commit.+cMessage :: Lens' Commit (Maybe Text)+cMessage = lens _cMessage (\ s a -> s{_cMessage = a})++instance FromJSON Commit where+        parseJSON+          = withObject "Commit"+              (\ x ->+                 Commit' <$>+                   (x .:? "commitId") <*> (x .:? "committer") <*>+                     (x .:? "treeId")+                     <*> (x .:? "additionalData")+                     <*> (x .:? "parents" .!= mempty)+                     <*> (x .:? "author")+                     <*> (x .:? "message"))++instance Hashable Commit where++instance NFData Commit where++-- | Returns information about a set of differences for a commit specifier.+--+--+--+-- /See:/ 'difference' smart constructor.+data Difference = Difference'+  { _dAfterBlob  :: !(Maybe BlobMetadata)+  , _dBeforeBlob :: !(Maybe BlobMetadata)+  , _dChangeType :: !(Maybe ChangeTypeEnum)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Difference' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dAfterBlob' - Information about an @afterBlob@ data type object, including the ID, the file mode permission code, and the path.+--+-- * 'dBeforeBlob' - Information about a @beforeBlob@ data type object, including the ID, the file mode permission code, and the path.+--+-- * 'dChangeType' - Whether the change type of the difference is an addition (A), deletion (D), or modification (M).+difference+    :: Difference+difference =+  Difference'+    {_dAfterBlob = Nothing, _dBeforeBlob = Nothing, _dChangeType = Nothing}+++-- | Information about an @afterBlob@ data type object, including the ID, the file mode permission code, and the path.+dAfterBlob :: Lens' Difference (Maybe BlobMetadata)+dAfterBlob = lens _dAfterBlob (\ s a -> s{_dAfterBlob = a})++-- | Information about a @beforeBlob@ data type object, including the ID, the file mode permission code, and the path.+dBeforeBlob :: Lens' Difference (Maybe BlobMetadata)+dBeforeBlob = lens _dBeforeBlob (\ s a -> s{_dBeforeBlob = a})++-- | Whether the change type of the difference is an addition (A), deletion (D), or modification (M).+dChangeType :: Lens' Difference (Maybe ChangeTypeEnum)+dChangeType = lens _dChangeType (\ s a -> s{_dChangeType = a})++instance FromJSON Difference where+        parseJSON+          = withObject "Difference"+              (\ x ->+                 Difference' <$>+                   (x .:? "afterBlob") <*> (x .:? "beforeBlob") <*>+                     (x .:? "changeType"))++instance Hashable Difference where++instance NFData Difference where++-- | Returns information about the location of a change or comment in the comparison between two commits or a pull request.+--+--+--+-- /See:/ 'location' smart constructor.+data Location = Location'+  { _lRelativeFileVersion :: !(Maybe RelativeFileVersionEnum)+  , _lFilePath            :: !(Maybe Text)+  , _lFilePosition        :: !(Maybe Integer)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Location' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lRelativeFileVersion' - In a comparison of commits or a pull request, whether the change is in the 'before' or 'after' of that comparison.+--+-- * 'lFilePath' - The name of the file being compared, including its extension and subdirectory, if any.+--+-- * 'lFilePosition' - The position of a change within a compared file, in line number format.+location+    :: Location+location =+  Location'+    { _lRelativeFileVersion = Nothing+    , _lFilePath = Nothing+    , _lFilePosition = Nothing+    }+++-- | In a comparison of commits or a pull request, whether the change is in the 'before' or 'after' of that comparison.+lRelativeFileVersion :: Lens' Location (Maybe RelativeFileVersionEnum)+lRelativeFileVersion = lens _lRelativeFileVersion (\ s a -> s{_lRelativeFileVersion = a})++-- | The name of the file being compared, including its extension and subdirectory, if any.+lFilePath :: Lens' Location (Maybe Text)+lFilePath = lens _lFilePath (\ s a -> s{_lFilePath = a})++-- | The position of a change within a compared file, in line number format.+lFilePosition :: Lens' Location (Maybe Integer)+lFilePosition = lens _lFilePosition (\ s a -> s{_lFilePosition = a})++instance FromJSON Location where+        parseJSON+          = withObject "Location"+              (\ x ->+                 Location' <$>+                   (x .:? "relativeFileVersion") <*> (x .:? "filePath")+                     <*> (x .:? "filePosition"))++instance Hashable Location where++instance NFData Location where++instance ToJSON Location where+        toJSON Location'{..}+          = object+              (catMaybes+                 [("relativeFileVersion" .=) <$>+                    _lRelativeFileVersion,+                  ("filePath" .=) <$> _lFilePath,+                  ("filePosition" .=) <$> _lFilePosition])++-- | Returns information about a merge or potential merge between a source reference and a destination reference in a pull request.+--+--+--+-- /See:/ 'mergeMetadata' smart constructor.+data MergeMetadata = MergeMetadata'+  { _mmMergedBy :: !(Maybe Text)+  , _mmIsMerged :: !(Maybe Bool)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'MergeMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'mmMergedBy' - The Amazon Resource Name (ARN) of the user who merged the branches.+--+-- * 'mmIsMerged' - A Boolean value indicating whether the merge has been made.+mergeMetadata+    :: MergeMetadata+mergeMetadata = MergeMetadata' {_mmMergedBy = Nothing, _mmIsMerged = Nothing}+++-- | The Amazon Resource Name (ARN) of the user who merged the branches.+mmMergedBy :: Lens' MergeMetadata (Maybe Text)+mmMergedBy = lens _mmMergedBy (\ s a -> s{_mmMergedBy = a})++-- | A Boolean value indicating whether the merge has been made.+mmIsMerged :: Lens' MergeMetadata (Maybe Bool)+mmIsMerged = lens _mmIsMerged (\ s a -> s{_mmIsMerged = a})++instance FromJSON MergeMetadata where+        parseJSON+          = withObject "MergeMetadata"+              (\ x ->+                 MergeMetadata' <$>+                   (x .:? "mergedBy") <*> (x .:? "isMerged"))++instance Hashable MergeMetadata where++instance NFData MergeMetadata where++-- | Returns information about a pull request.+--+--+--+-- /See:/ 'pullRequest' smart constructor.+data PullRequest = PullRequest'+  { _prAuthorARN          :: !(Maybe Text)+  , _prPullRequestId      :: !(Maybe Text)+  , _prCreationDate       :: !(Maybe POSIX)+  , _prPullRequestStatus  :: !(Maybe PullRequestStatusEnum)+  , _prTitle              :: !(Maybe Text)+  , _prClientRequestToken :: !(Maybe Text)+  , _prLastActivityDate   :: !(Maybe POSIX)+  , _prPullRequestTargets :: !(Maybe [PullRequestTarget])+  , _prDescription        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequest' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prAuthorARN' - The Amazon Resource Name (ARN) of the user who created the pull request.+--+-- * 'prPullRequestId' - The system-generated ID of the pull request.+--+-- * 'prCreationDate' - The date and time the pull request was originally created, in timestamp format.+--+-- * 'prPullRequestStatus' - The status of the pull request. Pull request status can only change from @OPEN@ to @CLOSED@ .+--+-- * 'prTitle' - The user-defined title of the pull request. This title is displayed in the list of pull requests to other users of the repository.+--+-- * 'prClientRequestToken' - A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+--+-- * 'prLastActivityDate' - The day and time of the last user or system activity on the pull request, in timestamp format.+--+-- * 'prPullRequestTargets' - The targets of the pull request, including the source branch and destination branch for the pull request.+--+-- * 'prDescription' - The user-defined description of the pull request. This description can be used to clarify what should be reviewed and other details of the request.+pullRequest+    :: PullRequest+pullRequest =+  PullRequest'+    { _prAuthorARN = Nothing+    , _prPullRequestId = Nothing+    , _prCreationDate = Nothing+    , _prPullRequestStatus = Nothing+    , _prTitle = Nothing+    , _prClientRequestToken = Nothing+    , _prLastActivityDate = Nothing+    , _prPullRequestTargets = Nothing+    , _prDescription = Nothing+    }+++-- | The Amazon Resource Name (ARN) of the user who created the pull request.+prAuthorARN :: Lens' PullRequest (Maybe Text)+prAuthorARN = lens _prAuthorARN (\ s a -> s{_prAuthorARN = a})++-- | The system-generated ID of the pull request.+prPullRequestId :: Lens' PullRequest (Maybe Text)+prPullRequestId = lens _prPullRequestId (\ s a -> s{_prPullRequestId = a})++-- | The date and time the pull request was originally created, in timestamp format.+prCreationDate :: Lens' PullRequest (Maybe UTCTime)+prCreationDate = lens _prCreationDate (\ s a -> s{_prCreationDate = a}) . mapping _Time++-- | The status of the pull request. Pull request status can only change from @OPEN@ to @CLOSED@ .+prPullRequestStatus :: Lens' PullRequest (Maybe PullRequestStatusEnum)+prPullRequestStatus = lens _prPullRequestStatus (\ s a -> s{_prPullRequestStatus = a})++-- | The user-defined title of the pull request. This title is displayed in the list of pull requests to other users of the repository.+prTitle :: Lens' PullRequest (Maybe Text)+prTitle = lens _prTitle (\ s a -> s{_prTitle = a})++-- | A unique, client-generated idempotency token that when provided in a request, ensures the request cannot be repeated with a changed parameter. If a request is received with the same parameters and a token is included, the request will return information about the initial request that used that token.+prClientRequestToken :: Lens' PullRequest (Maybe Text)+prClientRequestToken = lens _prClientRequestToken (\ s a -> s{_prClientRequestToken = a})++-- | The day and time of the last user or system activity on the pull request, in timestamp format.+prLastActivityDate :: Lens' PullRequest (Maybe UTCTime)+prLastActivityDate = lens _prLastActivityDate (\ s a -> s{_prLastActivityDate = a}) . mapping _Time++-- | The targets of the pull request, including the source branch and destination branch for the pull request.+prPullRequestTargets :: Lens' PullRequest [PullRequestTarget]+prPullRequestTargets = lens _prPullRequestTargets (\ s a -> s{_prPullRequestTargets = a}) . _Default . _Coerce++-- | The user-defined description of the pull request. This description can be used to clarify what should be reviewed and other details of the request.+prDescription :: Lens' PullRequest (Maybe Text)+prDescription = lens _prDescription (\ s a -> s{_prDescription = a})++instance FromJSON PullRequest where+        parseJSON+          = withObject "PullRequest"+              (\ x ->+                 PullRequest' <$>+                   (x .:? "authorArn") <*> (x .:? "pullRequestId") <*>+                     (x .:? "creationDate")+                     <*> (x .:? "pullRequestStatus")+                     <*> (x .:? "title")+                     <*> (x .:? "clientRequestToken")+                     <*> (x .:? "lastActivityDate")+                     <*> (x .:? "pullRequestTargets" .!= mempty)+                     <*> (x .:? "description"))++instance Hashable PullRequest where++instance NFData PullRequest where++-- | Returns information about a pull request event.+--+--+--+-- /See:/ 'pullRequestEvent' smart constructor.+data PullRequestEvent = PullRequestEvent'+  { _prePullRequestMergedStateChangedEventMetadata :: !(Maybe PullRequestMergedStateChangedEventMetadata)+  , _prePullRequestEventType :: !(Maybe PullRequestEventType)+  , _prePullRequestStatusChangedEventMetadata :: !(Maybe PullRequestStatusChangedEventMetadata)+  , _preActorARN :: !(Maybe Text)+  , _prePullRequestId :: !(Maybe Text)+  , _preEventDate :: !(Maybe POSIX)+  , _prePullRequestSourceReferenceUpdatedEventMetadata :: !(Maybe PullRequestSourceReferenceUpdatedEventMetadata)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestEvent' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prePullRequestMergedStateChangedEventMetadata' - Information about the change in mergability state for the pull request event.+--+-- * 'prePullRequestEventType' - The type of the pull request event, for example a status change event (PULL_REQUEST_STATUS_CHANGED) or update event (PULL_REQUEST_SOURCE_REFERENCE_UPDATED).+--+-- * 'prePullRequestStatusChangedEventMetadata' - Information about the change in status for the pull request event.+--+-- * 'preActorARN' - The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with additional commits or changing the status of a pull request.+--+-- * 'prePullRequestId' - The system-generated ID of the pull request.+--+-- * 'preEventDate' - The day and time of the pull request event, in timestamp format.+--+-- * 'prePullRequestSourceReferenceUpdatedEventMetadata' - Information about the updated source branch for the pull request event.+pullRequestEvent+    :: PullRequestEvent+pullRequestEvent =+  PullRequestEvent'+    { _prePullRequestMergedStateChangedEventMetadata = Nothing+    , _prePullRequestEventType = Nothing+    , _prePullRequestStatusChangedEventMetadata = Nothing+    , _preActorARN = Nothing+    , _prePullRequestId = Nothing+    , _preEventDate = Nothing+    , _prePullRequestSourceReferenceUpdatedEventMetadata = Nothing+    }+++-- | Information about the change in mergability state for the pull request event.+prePullRequestMergedStateChangedEventMetadata :: Lens' PullRequestEvent (Maybe PullRequestMergedStateChangedEventMetadata)+prePullRequestMergedStateChangedEventMetadata = lens _prePullRequestMergedStateChangedEventMetadata (\ s a -> s{_prePullRequestMergedStateChangedEventMetadata = a})++-- | The type of the pull request event, for example a status change event (PULL_REQUEST_STATUS_CHANGED) or update event (PULL_REQUEST_SOURCE_REFERENCE_UPDATED).+prePullRequestEventType :: Lens' PullRequestEvent (Maybe PullRequestEventType)+prePullRequestEventType = lens _prePullRequestEventType (\ s a -> s{_prePullRequestEventType = a})++-- | Information about the change in status for the pull request event.+prePullRequestStatusChangedEventMetadata :: Lens' PullRequestEvent (Maybe PullRequestStatusChangedEventMetadata)+prePullRequestStatusChangedEventMetadata = lens _prePullRequestStatusChangedEventMetadata (\ s a -> s{_prePullRequestStatusChangedEventMetadata = a})++-- | The Amazon Resource Name (ARN) of the user whose actions resulted in the event. Examples include updating the pull request with additional commits or changing the status of a pull request.+preActorARN :: Lens' PullRequestEvent (Maybe Text)+preActorARN = lens _preActorARN (\ s a -> s{_preActorARN = a})++-- | The system-generated ID of the pull request.+prePullRequestId :: Lens' PullRequestEvent (Maybe Text)+prePullRequestId = lens _prePullRequestId (\ s a -> s{_prePullRequestId = a})++-- | The day and time of the pull request event, in timestamp format.+preEventDate :: Lens' PullRequestEvent (Maybe UTCTime)+preEventDate = lens _preEventDate (\ s a -> s{_preEventDate = a}) . mapping _Time++-- | Information about the updated source branch for the pull request event.+prePullRequestSourceReferenceUpdatedEventMetadata :: Lens' PullRequestEvent (Maybe PullRequestSourceReferenceUpdatedEventMetadata)+prePullRequestSourceReferenceUpdatedEventMetadata = lens _prePullRequestSourceReferenceUpdatedEventMetadata (\ s a -> s{_prePullRequestSourceReferenceUpdatedEventMetadata = a})++instance FromJSON PullRequestEvent where+        parseJSON+          = withObject "PullRequestEvent"+              (\ x ->+                 PullRequestEvent' <$>+                   (x .:? "pullRequestMergedStateChangedEventMetadata")+                     <*> (x .:? "pullRequestEventType")+                     <*> (x .:? "pullRequestStatusChangedEventMetadata")+                     <*> (x .:? "actorArn")+                     <*> (x .:? "pullRequestId")+                     <*> (x .:? "eventDate")+                     <*>+                     (x .:?+                        "pullRequestSourceReferenceUpdatedEventMetadata"))++instance Hashable PullRequestEvent where++instance NFData PullRequestEvent where++-- | Returns information about the change in the merge state for a pull request event.+--+--+--+-- /See:/ 'pullRequestMergedStateChangedEventMetadata' smart constructor.+data PullRequestMergedStateChangedEventMetadata = PullRequestMergedStateChangedEventMetadata'+  { _prmscemDestinationReference :: !(Maybe Text)+  , _prmscemMergeMetadata        :: !(Maybe MergeMetadata)+  , _prmscemRepositoryName       :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestMergedStateChangedEventMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prmscemDestinationReference' - The name of the branch that the pull request will be merged into.+--+-- * 'prmscemMergeMetadata' - Information about the merge state change event.+--+-- * 'prmscemRepositoryName' - The name of the repository where the pull request was created.+pullRequestMergedStateChangedEventMetadata+    :: PullRequestMergedStateChangedEventMetadata+pullRequestMergedStateChangedEventMetadata =+  PullRequestMergedStateChangedEventMetadata'+    { _prmscemDestinationReference = Nothing+    , _prmscemMergeMetadata = Nothing+    , _prmscemRepositoryName = Nothing+    }+++-- | The name of the branch that the pull request will be merged into.+prmscemDestinationReference :: Lens' PullRequestMergedStateChangedEventMetadata (Maybe Text)+prmscemDestinationReference = lens _prmscemDestinationReference (\ s a -> s{_prmscemDestinationReference = a})++-- | Information about the merge state change event.+prmscemMergeMetadata :: Lens' PullRequestMergedStateChangedEventMetadata (Maybe MergeMetadata)+prmscemMergeMetadata = lens _prmscemMergeMetadata (\ s a -> s{_prmscemMergeMetadata = a})++-- | The name of the repository where the pull request was created.+prmscemRepositoryName :: Lens' PullRequestMergedStateChangedEventMetadata (Maybe Text)+prmscemRepositoryName = lens _prmscemRepositoryName (\ s a -> s{_prmscemRepositoryName = a})++instance FromJSON+           PullRequestMergedStateChangedEventMetadata+         where+        parseJSON+          = withObject+              "PullRequestMergedStateChangedEventMetadata"+              (\ x ->+                 PullRequestMergedStateChangedEventMetadata' <$>+                   (x .:? "destinationReference") <*>+                     (x .:? "mergeMetadata")+                     <*> (x .:? "repositoryName"))++instance Hashable+           PullRequestMergedStateChangedEventMetadata+         where++instance NFData+           PullRequestMergedStateChangedEventMetadata+         where++-- | Information about an update to the source branch of a pull request.+--+--+--+-- /See:/ 'pullRequestSourceReferenceUpdatedEventMetadata' smart constructor.+data PullRequestSourceReferenceUpdatedEventMetadata = PullRequestSourceReferenceUpdatedEventMetadata'+  { _prsruemAfterCommitId  :: !(Maybe Text)+  , _prsruemBeforeCommitId :: !(Maybe Text)+  , _prsruemRepositoryName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestSourceReferenceUpdatedEventMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prsruemAfterCommitId' - The full commit ID of the commit in the source branch that was the tip of the branch at the time the pull request was updated.+--+-- * 'prsruemBeforeCommitId' - The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was updated.+--+-- * 'prsruemRepositoryName' - The name of the repository where the pull request was updated.+pullRequestSourceReferenceUpdatedEventMetadata+    :: PullRequestSourceReferenceUpdatedEventMetadata+pullRequestSourceReferenceUpdatedEventMetadata =+  PullRequestSourceReferenceUpdatedEventMetadata'+    { _prsruemAfterCommitId = Nothing+    , _prsruemBeforeCommitId = Nothing+    , _prsruemRepositoryName = Nothing+    }+++-- | The full commit ID of the commit in the source branch that was the tip of the branch at the time the pull request was updated.+prsruemAfterCommitId :: Lens' PullRequestSourceReferenceUpdatedEventMetadata (Maybe Text)+prsruemAfterCommitId = lens _prsruemAfterCommitId (\ s a -> s{_prsruemAfterCommitId = a})++-- | The full commit ID of the commit in the destination branch that was the tip of the branch at the time the pull request was updated.+prsruemBeforeCommitId :: Lens' PullRequestSourceReferenceUpdatedEventMetadata (Maybe Text)+prsruemBeforeCommitId = lens _prsruemBeforeCommitId (\ s a -> s{_prsruemBeforeCommitId = a})++-- | The name of the repository where the pull request was updated.+prsruemRepositoryName :: Lens' PullRequestSourceReferenceUpdatedEventMetadata (Maybe Text)+prsruemRepositoryName = lens _prsruemRepositoryName (\ s a -> s{_prsruemRepositoryName = a})++instance FromJSON+           PullRequestSourceReferenceUpdatedEventMetadata+         where+        parseJSON+          = withObject+              "PullRequestSourceReferenceUpdatedEventMetadata"+              (\ x ->+                 PullRequestSourceReferenceUpdatedEventMetadata' <$>+                   (x .:? "afterCommitId") <*> (x .:? "beforeCommitId")+                     <*> (x .:? "repositoryName"))++instance Hashable+           PullRequestSourceReferenceUpdatedEventMetadata+         where++instance NFData+           PullRequestSourceReferenceUpdatedEventMetadata+         where++-- | Information about a change to the status of a pull request.+--+--+--+-- /See:/ 'pullRequestStatusChangedEventMetadata' smart constructor.+newtype PullRequestStatusChangedEventMetadata = PullRequestStatusChangedEventMetadata'+  { _prscemPullRequestStatus :: Maybe PullRequestStatusEnum+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestStatusChangedEventMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prscemPullRequestStatus' - The changed status of the pull request.+pullRequestStatusChangedEventMetadata+    :: PullRequestStatusChangedEventMetadata+pullRequestStatusChangedEventMetadata =+  PullRequestStatusChangedEventMetadata' {_prscemPullRequestStatus = Nothing}+++-- | The changed status of the pull request.+prscemPullRequestStatus :: Lens' PullRequestStatusChangedEventMetadata (Maybe PullRequestStatusEnum)+prscemPullRequestStatus = lens _prscemPullRequestStatus (\ s a -> s{_prscemPullRequestStatus = a})++instance FromJSON+           PullRequestStatusChangedEventMetadata+         where+        parseJSON+          = withObject "PullRequestStatusChangedEventMetadata"+              (\ x ->+                 PullRequestStatusChangedEventMetadata' <$>+                   (x .:? "pullRequestStatus"))++instance Hashable+           PullRequestStatusChangedEventMetadata+         where++instance NFData PullRequestStatusChangedEventMetadata+         where++-- | Returns information about a pull request target.+--+--+--+-- /See:/ 'pullRequestTarget' smart constructor.+data PullRequestTarget = PullRequestTarget'+  { _prtSourceCommit         :: !(Maybe Text)+  , _prtDestinationReference :: !(Maybe Text)+  , _prtMergeMetadata        :: !(Maybe MergeMetadata)+  , _prtDestinationCommit    :: !(Maybe Text)+  , _prtRepositoryName       :: !(Maybe Text)+  , _prtSourceReference      :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PullRequestTarget' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'prtSourceCommit' - The full commit ID of the tip of the source branch used to create the pull request. If the pull request branch is updated by a push while the pull request is open, the commit ID will change to reflect the new tip of the branch.+--+-- * 'prtDestinationReference' - The branch of the repository where the pull request changes will be merged into. Also known as the destination branch.+--+-- * 'prtMergeMetadata' - Returns metadata about the state of the merge, including whether the merge has been made.+--+-- * 'prtDestinationCommit' - The full commit ID that is the tip of the destination branch. This is the commit where the pull request was or will be merged.+--+-- * 'prtRepositoryName' - The name of the repository that contains the pull request source and destination branches.+--+-- * 'prtSourceReference' - The branch of the repository that contains the changes for the pull request. Also known as the source branch.+pullRequestTarget+    :: PullRequestTarget+pullRequestTarget =+  PullRequestTarget'+    { _prtSourceCommit = Nothing+    , _prtDestinationReference = Nothing+    , _prtMergeMetadata = Nothing+    , _prtDestinationCommit = Nothing+    , _prtRepositoryName = Nothing+    , _prtSourceReference = Nothing+    }+++-- | The full commit ID of the tip of the source branch used to create the pull request. If the pull request branch is updated by a push while the pull request is open, the commit ID will change to reflect the new tip of the branch.+prtSourceCommit :: Lens' PullRequestTarget (Maybe Text)+prtSourceCommit = lens _prtSourceCommit (\ s a -> s{_prtSourceCommit = a})++-- | The branch of the repository where the pull request changes will be merged into. Also known as the destination branch.+prtDestinationReference :: Lens' PullRequestTarget (Maybe Text)+prtDestinationReference = lens _prtDestinationReference (\ s a -> s{_prtDestinationReference = a})++-- | Returns metadata about the state of the merge, including whether the merge has been made.+prtMergeMetadata :: Lens' PullRequestTarget (Maybe MergeMetadata)+prtMergeMetadata = lens _prtMergeMetadata (\ s a -> s{_prtMergeMetadata = a})++-- | The full commit ID that is the tip of the destination branch. This is the commit where the pull request was or will be merged.+prtDestinationCommit :: Lens' PullRequestTarget (Maybe Text)+prtDestinationCommit = lens _prtDestinationCommit (\ s a -> s{_prtDestinationCommit = a})++-- | The name of the repository that contains the pull request source and destination branches.+prtRepositoryName :: Lens' PullRequestTarget (Maybe Text)+prtRepositoryName = lens _prtRepositoryName (\ s a -> s{_prtRepositoryName = a})++-- | The branch of the repository that contains the changes for the pull request. Also known as the source branch.+prtSourceReference :: Lens' PullRequestTarget (Maybe Text)+prtSourceReference = lens _prtSourceReference (\ s a -> s{_prtSourceReference = a})++instance FromJSON PullRequestTarget where+        parseJSON+          = withObject "PullRequestTarget"+              (\ x ->+                 PullRequestTarget' <$>+                   (x .:? "sourceCommit") <*>+                     (x .:? "destinationReference")+                     <*> (x .:? "mergeMetadata")+                     <*> (x .:? "destinationCommit")+                     <*> (x .:? "repositoryName")+                     <*> (x .:? "sourceReference"))++instance Hashable PullRequestTarget where++instance NFData PullRequestTarget where++-- | Information about a repository.+--+--+--+-- /See:/ 'repositoryMetadata' smart constructor.+data RepositoryMetadata = RepositoryMetadata'+  { _rmRepositoryDescription :: !(Maybe Text)+  , _rmLastModifiedDate      :: !(Maybe POSIX)+  , _rmARN                   :: !(Maybe Text)+  , _rmCloneURLHTTP          :: !(Maybe Text)+  , _rmAccountId             :: !(Maybe Text)+  , _rmDefaultBranch         :: !(Maybe Text)+  , _rmRepositoryId          :: !(Maybe Text)+  , _rmRepositoryName        :: !(Maybe Text)+  , _rmCreationDate          :: !(Maybe POSIX)+  , _rmCloneURLSSH           :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RepositoryMetadata' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rmRepositoryDescription' - A comment or description about the repository.+--+-- * 'rmLastModifiedDate' - The date and time the repository was last modified, in timestamp format.+--+-- * 'rmARN' - The Amazon Resource Name (ARN) of the repository.+--+-- * 'rmCloneURLHTTP' - The URL to use for cloning the repository over HTTPS.+--+-- * 'rmAccountId' - The ID of the AWS account associated with the repository.+--+-- * 'rmDefaultBranch' - The repository's default branch name.+--+-- * 'rmRepositoryId' - The ID of the repository.+--+-- * 'rmRepositoryName' - The repository's name.+--+-- * 'rmCreationDate' - The date and time the repository was created, in timestamp format.+--+-- * 'rmCloneURLSSH' - The URL to use for cloning the repository over SSH.+repositoryMetadata+    :: RepositoryMetadata+repositoryMetadata =+  RepositoryMetadata'+    { _rmRepositoryDescription = Nothing+    , _rmLastModifiedDate = Nothing+    , _rmARN = Nothing+    , _rmCloneURLHTTP = Nothing+    , _rmAccountId = Nothing+    , _rmDefaultBranch = Nothing+    , _rmRepositoryId = Nothing+    , _rmRepositoryName = Nothing+    , _rmCreationDate = Nothing+    , _rmCloneURLSSH = Nothing+    }+++-- | A comment or description about the repository.+rmRepositoryDescription :: Lens' RepositoryMetadata (Maybe Text)+rmRepositoryDescription = lens _rmRepositoryDescription (\ s a -> s{_rmRepositoryDescription = a})++-- | The date and time the repository was last modified, in timestamp format.+rmLastModifiedDate :: Lens' RepositoryMetadata (Maybe UTCTime)+rmLastModifiedDate = lens _rmLastModifiedDate (\ s a -> s{_rmLastModifiedDate = a}) . mapping _Time++-- | The Amazon Resource Name (ARN) of the repository.+rmARN :: Lens' RepositoryMetadata (Maybe Text)+rmARN = lens _rmARN (\ s a -> s{_rmARN = a})++-- | The URL to use for cloning the repository over HTTPS.+rmCloneURLHTTP :: Lens' RepositoryMetadata (Maybe Text)+rmCloneURLHTTP = lens _rmCloneURLHTTP (\ s a -> s{_rmCloneURLHTTP = a})++-- | The ID of the AWS account associated with the repository.+rmAccountId :: Lens' RepositoryMetadata (Maybe Text)+rmAccountId = lens _rmAccountId (\ s a -> s{_rmAccountId = a})++-- | The repository's default branch name.+rmDefaultBranch :: Lens' RepositoryMetadata (Maybe Text)+rmDefaultBranch = lens _rmDefaultBranch (\ s a -> s{_rmDefaultBranch = a})++-- | The ID of the repository.+rmRepositoryId :: Lens' RepositoryMetadata (Maybe Text)+rmRepositoryId = lens _rmRepositoryId (\ s a -> s{_rmRepositoryId = a})++-- | The repository's name.+rmRepositoryName :: Lens' RepositoryMetadata (Maybe Text)+rmRepositoryName = lens _rmRepositoryName (\ s a -> s{_rmRepositoryName = a})++-- | The date and time the repository was created, in timestamp format.+rmCreationDate :: Lens' RepositoryMetadata (Maybe UTCTime)+rmCreationDate = lens _rmCreationDate (\ s a -> s{_rmCreationDate = a}) . mapping _Time++-- | The URL to use for cloning the repository over SSH.+rmCloneURLSSH :: Lens' RepositoryMetadata (Maybe Text)+rmCloneURLSSH = lens _rmCloneURLSSH (\ s a -> s{_rmCloneURLSSH = a})++instance FromJSON RepositoryMetadata where+        parseJSON+          = withObject "RepositoryMetadata"+              (\ x ->+                 RepositoryMetadata' <$>+                   (x .:? "repositoryDescription") <*>+                     (x .:? "lastModifiedDate")+                     <*> (x .:? "Arn")+                     <*> (x .:? "cloneUrlHttp")+                     <*> (x .:? "accountId")+                     <*> (x .:? "defaultBranch")+                     <*> (x .:? "repositoryId")+                     <*> (x .:? "repositoryName")+                     <*> (x .:? "creationDate")+                     <*> (x .:? "cloneUrlSsh"))++instance Hashable RepositoryMetadata where++instance NFData RepositoryMetadata where++-- | Information about a repository name and ID.+--+--+--+-- /See:/ 'repositoryNameIdPair' smart constructor.+data RepositoryNameIdPair = RepositoryNameIdPair'+  { _rnipRepositoryId   :: !(Maybe Text)+  , _rnipRepositoryName :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RepositoryNameIdPair' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rnipRepositoryId' - The ID associated with the repository.+--+-- * 'rnipRepositoryName' - The name associated with the repository.+repositoryNameIdPair+    :: RepositoryNameIdPair+repositoryNameIdPair =+  RepositoryNameIdPair'+    {_rnipRepositoryId = Nothing, _rnipRepositoryName = Nothing}+++-- | The ID associated with the repository.+rnipRepositoryId :: Lens' RepositoryNameIdPair (Maybe Text)+rnipRepositoryId = lens _rnipRepositoryId (\ s a -> s{_rnipRepositoryId = a})++-- | The name associated with the repository.+rnipRepositoryName :: Lens' RepositoryNameIdPair (Maybe Text)+rnipRepositoryName = lens _rnipRepositoryName (\ s a -> s{_rnipRepositoryName = a})++instance FromJSON RepositoryNameIdPair where+        parseJSON+          = withObject "RepositoryNameIdPair"+              (\ x ->+                 RepositoryNameIdPair' <$>+                   (x .:? "repositoryId") <*> (x .:? "repositoryName"))++instance Hashable RepositoryNameIdPair where++instance NFData RepositoryNameIdPair where++-- | Information about a trigger for a repository.+--+--+--+-- /See:/ 'repositoryTrigger' smart constructor.+data RepositoryTrigger = RepositoryTrigger'+  { _rtBranches       :: !(Maybe [Text])+  , _rtCustomData     :: !(Maybe Text)+  , _rtName           :: !Text+  , _rtDestinationARN :: !Text+  , _rtEvents         :: ![RepositoryTriggerEventEnum]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RepositoryTrigger' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtBranches' - The branches that will be included in the trigger configuration. If you specify an empty array, the trigger will apply to all branches.+--+-- * 'rtCustomData' - Any custom data associated with the trigger that will be included in the information sent to the target of the trigger.+--+-- * 'rtName' - The name of the trigger.+--+-- * 'rtDestinationARN' - The ARN of the resource that is the target for a trigger. For example, the ARN of a topic in Amazon Simple Notification Service (SNS).+--+-- * 'rtEvents' - The repository events that will cause the trigger to run actions in another service, such as sending a notification through Amazon Simple Notification Service (SNS).+repositoryTrigger+    :: Text -- ^ 'rtName'+    -> Text -- ^ 'rtDestinationARN'+    -> RepositoryTrigger+repositoryTrigger pName_ pDestinationARN_ =+  RepositoryTrigger'+    { _rtBranches = Nothing+    , _rtCustomData = Nothing+    , _rtName = pName_+    , _rtDestinationARN = pDestinationARN_+    , _rtEvents = mempty+    }+++-- | The branches that will be included in the trigger configuration. If you specify an empty array, the trigger will apply to all branches.+rtBranches :: Lens' RepositoryTrigger [Text]+rtBranches = lens _rtBranches (\ s a -> s{_rtBranches = a}) . _Default . _Coerce++-- | Any custom data associated with the trigger that will be included in the information sent to the target of the trigger.+rtCustomData :: Lens' RepositoryTrigger (Maybe Text)+rtCustomData = lens _rtCustomData (\ s a -> s{_rtCustomData = a})++-- | The name of the trigger.+rtName :: Lens' RepositoryTrigger Text+rtName = lens _rtName (\ s a -> s{_rtName = a})++-- | The ARN of the resource that is the target for a trigger. For example, the ARN of a topic in Amazon Simple Notification Service (SNS).+rtDestinationARN :: Lens' RepositoryTrigger Text+rtDestinationARN = lens _rtDestinationARN (\ s a -> s{_rtDestinationARN = a})++-- | The repository events that will cause the trigger to run actions in another service, such as sending a notification through Amazon Simple Notification Service (SNS).+rtEvents :: Lens' RepositoryTrigger [RepositoryTriggerEventEnum]+rtEvents = lens _rtEvents (\ s a -> s{_rtEvents = a}) . _Coerce++instance FromJSON RepositoryTrigger where+        parseJSON+          = withObject "RepositoryTrigger"+              (\ x ->+                 RepositoryTrigger' <$>+                   (x .:? "branches" .!= mempty) <*>+                     (x .:? "customData")+                     <*> (x .: "name")+                     <*> (x .: "destinationArn")+                     <*> (x .:? "events" .!= mempty))++instance Hashable RepositoryTrigger where++instance NFData RepositoryTrigger where++instance ToJSON RepositoryTrigger where+        toJSON RepositoryTrigger'{..}+          = object+              (catMaybes+                 [("branches" .=) <$> _rtBranches,+                  ("customData" .=) <$> _rtCustomData,+                  Just ("name" .= _rtName),+                  Just ("destinationArn" .= _rtDestinationARN),+                  Just ("events" .= _rtEvents)])++-- | A trigger failed to run.+--+--+--+-- /See:/ 'repositoryTriggerExecutionFailure' smart constructor.+data RepositoryTriggerExecutionFailure = RepositoryTriggerExecutionFailure'+  { _rtefFailureMessage :: !(Maybe Text)+  , _rtefTrigger        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RepositoryTriggerExecutionFailure' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtefFailureMessage' - Additional message information about the trigger that did not run.+--+-- * 'rtefTrigger' - The name of the trigger that did not run.+repositoryTriggerExecutionFailure+    :: RepositoryTriggerExecutionFailure+repositoryTriggerExecutionFailure =+  RepositoryTriggerExecutionFailure'+    {_rtefFailureMessage = Nothing, _rtefTrigger = Nothing}+++-- | Additional message information about the trigger that did not run.+rtefFailureMessage :: Lens' RepositoryTriggerExecutionFailure (Maybe Text)+rtefFailureMessage = lens _rtefFailureMessage (\ s a -> s{_rtefFailureMessage = a})++-- | The name of the trigger that did not run.+rtefTrigger :: Lens' RepositoryTriggerExecutionFailure (Maybe Text)+rtefTrigger = lens _rtefTrigger (\ s a -> s{_rtefTrigger = a})++instance FromJSON RepositoryTriggerExecutionFailure+         where+        parseJSON+          = withObject "RepositoryTriggerExecutionFailure"+              (\ x ->+                 RepositoryTriggerExecutionFailure' <$>+                   (x .:? "failureMessage") <*> (x .:? "trigger"))++instance Hashable RepositoryTriggerExecutionFailure+         where++instance NFData RepositoryTriggerExecutionFailure+         where++-- | Returns information about a target for a pull request.+--+--+--+-- /See:/ 'target' smart constructor.+data Target = Target'+  { _tDestinationReference :: !(Maybe Text)+  , _tRepositoryName       :: !Text+  , _tSourceReference      :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Target' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tDestinationReference' - The branch of the repository where the pull request changes will be merged into. Also known as the destination branch.+--+-- * 'tRepositoryName' - The name of the repository that contains the pull request.+--+-- * 'tSourceReference' - The branch of the repository that contains the changes for the pull request. Also known as the source branch.+target+    :: Text -- ^ 'tRepositoryName'+    -> Text -- ^ 'tSourceReference'+    -> Target+target pRepositoryName_ pSourceReference_ =+  Target'+    { _tDestinationReference = Nothing+    , _tRepositoryName = pRepositoryName_+    , _tSourceReference = pSourceReference_+    }+++-- | The branch of the repository where the pull request changes will be merged into. Also known as the destination branch.+tDestinationReference :: Lens' Target (Maybe Text)+tDestinationReference = lens _tDestinationReference (\ s a -> s{_tDestinationReference = a})++-- | The name of the repository that contains the pull request.+tRepositoryName :: Lens' Target Text+tRepositoryName = lens _tRepositoryName (\ s a -> s{_tRepositoryName = a})++-- | The branch of the repository that contains the changes for the pull request. Also known as the source branch.+tSourceReference :: Lens' Target Text+tSourceReference = lens _tSourceReference (\ s a -> s{_tSourceReference = a})++instance Hashable Target where++instance NFData Target where++instance ToJSON Target where+        toJSON Target'{..}+          = object+              (catMaybes+                 [("destinationReference" .=) <$>+                    _tDestinationReference,+                  Just ("repositoryName" .= _tRepositoryName),+                  Just ("sourceReference" .= _tSourceReference)])++-- | Information about the user who made a specified commit.+--+--+--+-- /See:/ 'userInfo' smart constructor.+data UserInfo = UserInfo'+  { _uiEmail :: !(Maybe Text)+  , _uiDate  :: !(Maybe Text)+  , _uiName  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'UserInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'uiEmail' - The email address associated with the user who made the commit, if any.+--+-- * 'uiDate' - The date when the specified commit was commited, in timestamp format with GMT offset.+--+-- * 'uiName' - The name of the user who made the specified commit.+userInfo+    :: UserInfo+userInfo = UserInfo' {_uiEmail = Nothing, _uiDate = Nothing, _uiName = Nothing}+++-- | The email address associated with the user who made the commit, if any.+uiEmail :: Lens' UserInfo (Maybe Text)+uiEmail = lens _uiEmail (\ s a -> s{_uiEmail = a})++-- | The date when the specified commit was commited, in timestamp format with GMT offset.+uiDate :: Lens' UserInfo (Maybe Text)+uiDate = lens _uiDate (\ s a -> s{_uiDate = a})++-- | The name of the user who made the specified commit.+uiName :: Lens' UserInfo (Maybe Text)+uiName = lens _uiName (\ s a -> s{_uiName = a})  instance FromJSON UserInfo where         parseJSON