amazonka-codepipeline 1.4.3 → 1.4.4

raw patch · 21 files changed

+1338/−164 lines, 21 filesdep ~amazonka-codepipelinedep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-codepipeline, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +36/−16
• amazonka-codepipeline.cabal +44/−21
• fixture/GetPipelineExecution.yaml +0/−0
• fixture/GetPipelineExecutionResponse.proto +0/−0
• fixture/PutApprovalResult.yaml +0/−0
• fixture/PutApprovalResultResponse.proto +0/−0
• fixture/RetryStageExecution.yaml +0/−0
• fixture/RetryStageExecutionResponse.proto +0/−0
• gen/Network/AWS/CodePipeline.hs +114/−18
• gen/Network/AWS/CodePipeline/CreateCustomActionType.hs +1/−1
• gen/Network/AWS/CodePipeline/GetPipelineExecution.hs +149/−0
• gen/Network/AWS/CodePipeline/GetPipelineState.hs +1/−1
• gen/Network/AWS/CodePipeline/PutActionRevision.hs +52/−52
• gen/Network/AWS/CodePipeline/PutApprovalResult.hs +180/−0
• gen/Network/AWS/CodePipeline/RetryStageExecution.hs +172/−0
• gen/Network/AWS/CodePipeline/StartPipelineExecution.hs +1/−1
• gen/Network/AWS/CodePipeline/Types.hs +81/−3
• gen/Network/AWS/CodePipeline/Types/Product.hs +319/−30
• gen/Network/AWS/CodePipeline/Types/Sum.hs +134/−21
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/CodePipeline.hs +54/−0

@@ -8,13 +8,15 @@  ## Version -`1.4.3`+`1.4.4`   ## Description -AWS CodePipeline __Overview__+AWS CodePipeline +__Overview__+ This is the AWS CodePipeline API Reference. This guide provides descriptions of the actions and data types for AWS CodePipeline. Some functionality for your pipeline is only configurable through the API. For additional information, see the <http://docs.aws.amazon.com/codepipeline/latest/userguide/welcome.html AWS CodePipeline User Guide>.  You can use the AWS CodePipeline API to work with pipelines, stages, actions, gates, and transitions, as described below.@@ -24,11 +26,19 @@ You can work with pipelines by calling:  -   < CreatePipeline>, which creates a uniquely-named pipeline.+ -   < DeletePipeline>, which deletes the specified pipeline.+ -   < GetPipeline>, which returns information about a pipeline structure.++-   < GetPipelineExecution>, which returns information about a specific execution of a pipeline.+ -   < GetPipelineState>, which returns information about the current state of the stages and actions of a pipeline.+ -   < ListPipelines>, which gets a summary of all of the pipelines associated with your account.+ -   < StartPipelineExecution>, which runs the the most recent revision of an artifact through the pipeline.+ -   < UpdatePipeline>, which updates a pipeline with edits or changes to the structure of the pipeline.  Pipelines include /stages/, which are which are logical groupings of gates and actions. Each stage contains one or more actions that must complete before the next stage begins. A stage will result in success or failure. If a stage fails, then the pipeline stops at that stage and will remain stopped until either a new version of an artifact appears in the source location, or a user takes action to re-run the most recent artifact through the pipeline. You can call < GetPipelineState>, which displays the status of a pipeline, including the status of stages in the pipeline, or < GetPipeline>, which returns the entire structure of the pipeline, including the stages of that pipeline. For more information about the structure of stages and actions, also refer to the <http://docs.aws.amazon.com/codepipeline/latest/userguide/pipeline-structure.html AWS CodePipeline Pipeline Structure Reference>.@@ -40,30 +50,40 @@ You can work with transitions by calling:  -   < DisableStageTransition>, which prevents artifacts from transitioning to the next stage in a pipeline.+ -   < EnableStageTransition>, which enables transition of artifacts between stages in a pipeline.  __Using the API to integrate with AWS CodePipeline__  For third-party integrators or developers who want to create their own integrations with AWS CodePipeline, the expected sequence varies from the standard API user. In order to integrate with AWS CodePipeline, developers will need to work with the following items: --   Jobs, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source.+__Jobs__, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source. -    You can work with jobs by calling:+You can work with jobs by calling: -    -   < AcknowledgeJob>, which confirms whether a job worker has received the specified job,-    -   < GetJobDetails>, which returns the details of a job,-    -   < PollForJobs>, which determines whether there are any jobs to act upon,-    -   < PutJobFailureResult>, which provides details of a job failure, and-    -   < PutJobSuccessResult>, which provides details of a job success.--   Third party jobs, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.+-   < AcknowledgeJob>, which confirms whether a job worker has received the specified job, -    You can work with third party jobs by calling:+-   < GetJobDetails>, which returns the details of a job, -    -   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,-    -   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,-    -   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,-    -   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and-    -   < PutThirdPartyJobSuccessResult>, which provides details of a job success.+-   < PollForJobs>, which determines whether there are any jobs to act upon,++-   < PutJobFailureResult>, which provides details of a job failure, and++-   < PutJobSuccessResult>, which provides details of a job success.++__Third party jobs__, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.++You can work with third party jobs by calling:++-   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,++-   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,++-   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,++-   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and++-   < PutThirdPartyJobSuccessResult>, which provides details of a job success.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-codepipeline) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-codepipeline-version:               1.4.3+version:               1.4.4 synopsis:              Amazon CodePipeline SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,10 +11,12 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS CodePipeline __Overview__+    AWS CodePipeline +    __Overview__+     This is the AWS CodePipeline API Reference. This guide provides descriptions of the actions and data types for AWS CodePipeline. Some functionality for your pipeline is only configurable through the API. For additional information, see the <http://docs.aws.amazon.com/codepipeline/latest/userguide/welcome.html AWS CodePipeline User Guide>.      You can use the AWS CodePipeline API to work with pipelines, stages, actions, gates, and transitions, as described below.@@ -24,11 +26,19 @@     You can work with pipelines by calling:      -   < CreatePipeline>, which creates a uniquely-named pipeline.+     -   < DeletePipeline>, which deletes the specified pipeline.+     -   < GetPipeline>, which returns information about a pipeline structure.++    -   < GetPipelineExecution>, which returns information about a specific execution of a pipeline.+     -   < GetPipelineState>, which returns information about the current state of the stages and actions of a pipeline.+     -   < ListPipelines>, which gets a summary of all of the pipelines associated with your account.+     -   < StartPipelineExecution>, which runs the the most recent revision of an artifact through the pipeline.+     -   < UpdatePipeline>, which updates a pipeline with edits or changes to the structure of the pipeline.      Pipelines include /stages/, which are which are logical groupings of gates and actions. Each stage contains one or more actions that must complete before the next stage begins. A stage will result in success or failure. If a stage fails, then the pipeline stops at that stage and will remain stopped until either a new version of an artifact appears in the source location, or a user takes action to re-run the most recent artifact through the pipeline. You can call < GetPipelineState>, which displays the status of a pipeline, including the status of stages in the pipeline, or < GetPipeline>, which returns the entire structure of the pipeline, including the stages of that pipeline. For more information about the structure of stages and actions, also refer to the <http://docs.aws.amazon.com/codepipeline/latest/userguide/pipeline-structure.html AWS CodePipeline Pipeline Structure Reference>.@@ -40,30 +50,40 @@     You can work with transitions by calling:      -   < DisableStageTransition>, which prevents artifacts from transitioning to the next stage in a pipeline.+     -   < EnableStageTransition>, which enables transition of artifacts between stages in a pipeline.      __Using the API to integrate with AWS CodePipeline__      For third-party integrators or developers who want to create their own integrations with AWS CodePipeline, the expected sequence varies from the standard API user. In order to integrate with AWS CodePipeline, developers will need to work with the following items: -    -   Jobs, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source.+    __Jobs__, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source. -        You can work with jobs by calling:+    You can work with jobs by calling: -        -   < AcknowledgeJob>, which confirms whether a job worker has received the specified job,-        -   < GetJobDetails>, which returns the details of a job,-        -   < PollForJobs>, which determines whether there are any jobs to act upon,-        -   < PutJobFailureResult>, which provides details of a job failure, and-        -   < PutJobSuccessResult>, which provides details of a job success.-    -   Third party jobs, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.+    -   < AcknowledgeJob>, which confirms whether a job worker has received the specified job, -        You can work with third party jobs by calling:+    -   < GetJobDetails>, which returns the details of a job, -        -   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,-        -   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,-        -   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,-        -   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and-        -   < PutThirdPartyJobSuccessResult>, which provides details of a job success.+    -   < PollForJobs>, which determines whether there are any jobs to act upon,++    -   < PutJobFailureResult>, which provides details of a job failure, and++    -   < PutJobSuccessResult>, which provides details of a job success.++    __Third party jobs__, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.++    You can work with third party jobs by calling:++    -   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,++    -   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,++    -   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,++    -   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and++    -   < PutThirdPartyJobSuccessResult>, which provides details of a job success.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -101,6 +121,7 @@         , Network.AWS.CodePipeline.EnableStageTransition         , Network.AWS.CodePipeline.GetJobDetails         , Network.AWS.CodePipeline.GetPipeline+        , Network.AWS.CodePipeline.GetPipelineExecution         , Network.AWS.CodePipeline.GetPipelineState         , Network.AWS.CodePipeline.GetThirdPartyJobDetails         , Network.AWS.CodePipeline.ListActionTypes@@ -108,10 +129,12 @@         , Network.AWS.CodePipeline.PollForJobs         , Network.AWS.CodePipeline.PollForThirdPartyJobs         , Network.AWS.CodePipeline.PutActionRevision+        , Network.AWS.CodePipeline.PutApprovalResult         , Network.AWS.CodePipeline.PutJobFailureResult         , Network.AWS.CodePipeline.PutJobSuccessResult         , Network.AWS.CodePipeline.PutThirdPartyJobFailureResult         , Network.AWS.CodePipeline.PutThirdPartyJobSuccessResult+        , Network.AWS.CodePipeline.RetryStageExecution         , Network.AWS.CodePipeline.StartPipelineExecution         , Network.AWS.CodePipeline.Types         , Network.AWS.CodePipeline.UpdatePipeline@@ -122,7 +145,7 @@         , Network.AWS.CodePipeline.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-codepipeline-test@@ -142,9 +165,9 @@         , Test.AWS.CodePipeline.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-codepipeline == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-codepipeline == 1.4.4.*         , base         , bytestring         , tasty

@@ -11,8 +11,10 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS CodePipeline __Overview__+-- AWS CodePipeline --+-- __Overview__+-- -- This is the AWS CodePipeline API Reference. This guide provides descriptions of the actions and data types for AWS CodePipeline. Some functionality for your pipeline is only configurable through the API. For additional information, see the <http://docs.aws.amazon.com/codepipeline/latest/userguide/welcome.html AWS CodePipeline User Guide>. -- -- You can use the AWS CodePipeline API to work with pipelines, stages, actions, gates, and transitions, as described below.@@ -22,11 +24,19 @@ -- You can work with pipelines by calling: -- -- -   < CreatePipeline>, which creates a uniquely-named pipeline.+-- -- -   < DeletePipeline>, which deletes the specified pipeline.+-- -- -   < GetPipeline>, which returns information about a pipeline structure.+--+-- -   < GetPipelineExecution>, which returns information about a specific execution of a pipeline.+-- -- -   < GetPipelineState>, which returns information about the current state of the stages and actions of a pipeline.+-- -- -   < ListPipelines>, which gets a summary of all of the pipelines associated with your account.+-- -- -   < StartPipelineExecution>, which runs the the most recent revision of an artifact through the pipeline.+-- -- -   < UpdatePipeline>, which updates a pipeline with edits or changes to the structure of the pipeline. -- -- Pipelines include /stages/, which are which are logical groupings of gates and actions. Each stage contains one or more actions that must complete before the next stage begins. A stage will result in success or failure. If a stage fails, then the pipeline stops at that stage and will remain stopped until either a new version of an artifact appears in the source location, or a user takes action to re-run the most recent artifact through the pipeline. You can call < GetPipelineState>, which displays the status of a pipeline, including the status of stages in the pipeline, or < GetPipeline>, which returns the entire structure of the pipeline, including the stages of that pipeline. For more information about the structure of stages and actions, also refer to the <http://docs.aws.amazon.com/codepipeline/latest/userguide/pipeline-structure.html AWS CodePipeline Pipeline Structure Reference>.@@ -38,30 +48,41 @@ -- You can work with transitions by calling: -- -- -   < DisableStageTransition>, which prevents artifacts from transitioning to the next stage in a pipeline.+-- -- -   < EnableStageTransition>, which enables transition of artifacts between stages in a pipeline. -- -- __Using the API to integrate with AWS CodePipeline__ -- -- For third-party integrators or developers who want to create their own integrations with AWS CodePipeline, the expected sequence varies from the standard API user. In order to integrate with AWS CodePipeline, developers will need to work with the following items: ----- -   Jobs, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source.+-- __Jobs__, which are instances of an action. For example, a job for a source action might import a revision of an artifact from a source. -----     You can work with jobs by calling:+-- You can work with jobs by calling: -----     -   < AcknowledgeJob>, which confirms whether a job worker has received the specified job,---     -   < GetJobDetails>, which returns the details of a job,---     -   < PollForJobs>, which determines whether there are any jobs to act upon,---     -   < PutJobFailureResult>, which provides details of a job failure, and---     -   < PutJobSuccessResult>, which provides details of a job success.--- -   Third party jobs, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.+-- -   < AcknowledgeJob>, which confirms whether a job worker has received the specified job, -----     You can work with third party jobs by calling:+-- -   < GetJobDetails>, which returns the details of a job, -----     -   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,---     -   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,---     -   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,---     -   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and---     -   < PutThirdPartyJobSuccessResult>, which provides details of a job success.+-- -   < PollForJobs>, which determines whether there are any jobs to act upon,+--+-- -   < PutJobFailureResult>, which provides details of a job failure, and+--+-- -   < PutJobSuccessResult>, which provides details of a job success.+--+-- __Third party jobs__, which are instances of an action created by a partner action and integrated into AWS CodePipeline. Partner actions are created by members of the AWS Partner Network.+--+-- You can work with third party jobs by calling:+--+-- -   < AcknowledgeThirdPartyJob>, which confirms whether a job worker has received the specified job,+--+-- -   < GetThirdPartyJobDetails>, which requests the details of a job for a partner action,+--+-- -   < PollForThirdPartyJobs>, which determines whether there are any jobs to act upon,+--+-- -   < PutThirdPartyJobFailureResult>, which provides details of a job failure, and+--+-- -   < PutThirdPartyJobSuccessResult>, which provides details of a job success.+-- module Network.AWS.CodePipeline     (     -- * Service Configuration@@ -82,6 +103,9 @@     -- ** ActionNotFoundException     , _ActionNotFoundException +    -- ** InvalidApprovalTokenException+    , _InvalidApprovalTokenException+     -- ** InvalidBlockerDeclarationException     , _InvalidBlockerDeclarationException @@ -94,6 +118,12 @@     -- ** PipelineVersionNotFoundException     , _PipelineVersionNotFoundException +    -- ** StageNotRetryableException+    , _StageNotRetryableException++    -- ** PipelineExecutionNotFoundException+    , _PipelineExecutionNotFoundException+     -- ** ActionTypeNotFoundException     , _ActionTypeNotFoundException @@ -115,6 +145,9 @@     -- ** JobNotFoundException     , _JobNotFoundException +    -- ** ApprovalAlreadyCompletedException+    , _ApprovalAlreadyCompletedException+     -- ** PipelineNameInUseException     , _PipelineNameInUseException @@ -124,6 +157,9 @@     -- ** LimitExceededException     , _LimitExceededException +    -- ** NotLatestPipelineExecutionException+    , _NotLatestPipelineExecutionException+     -- * Waiters     -- $waiters @@ -136,6 +172,9 @@     -- ** PutJobFailureResult     , module Network.AWS.CodePipeline.PutJobFailureResult +    -- ** PutApprovalResult+    , module Network.AWS.CodePipeline.PutApprovalResult+     -- ** AcknowledgeThirdPartyJob     , module Network.AWS.CodePipeline.AcknowledgeThirdPartyJob @@ -166,6 +205,12 @@     -- ** ListPipelines     , module Network.AWS.CodePipeline.ListPipelines +    -- ** RetryStageExecution+    , module Network.AWS.CodePipeline.RetryStageExecution++    -- ** GetPipelineExecution+    , module Network.AWS.CodePipeline.GetPipelineExecution+     -- ** PutJobSuccessResult     , module Network.AWS.CodePipeline.PutJobSuccessResult @@ -213,6 +258,9 @@     -- ** ActionOwner     , ActionOwner (..) +    -- ** ApprovalStatus+    , ApprovalStatus (..)+     -- ** ArtifactLocationType     , ArtifactLocationType (..) @@ -231,6 +279,15 @@     -- ** JobStatus     , JobStatus (..) +    -- ** PipelineExecutionStatus+    , PipelineExecutionStatus (..)++    -- ** StageExecutionStatus+    , StageExecutionStatus (..)++    -- ** StageRetryMode+    , StageRetryMode (..)+     -- ** StageTransitionType     , StageTransitionType (..) @@ -276,9 +333,11 @@     -- ** ActionExecution     , ActionExecution     , actionExecution+    , aeLastUpdatedBy     , aeSummary     , aeStatus     , aeLastStatusChange+    , aeToken     , aeExternalExecutionURL     , aeExternalExecutionId     , aeErrorDetails@@ -287,9 +346,9 @@     -- ** ActionRevision     , ActionRevision     , actionRevision-    , arRevisionId-    , arRevisionChangeId-    , arCreated+    , aRevisionId+    , aRevisionChangeId+    , aCreated      -- ** ActionState     , ActionState@@ -325,6 +384,12 @@     , atsRevisionURLTemplate     , atsEntityURLTemplate +    -- ** ApprovalResult+    , ApprovalResult+    , approvalResult+    , arSummary+    , arStatus+     -- ** Artifact     , Artifact     , artifact@@ -344,6 +409,16 @@     , alS3Location     , alType +    -- ** ArtifactRevision+    , ArtifactRevision+    , artifactRevision+    , arRevisionSummary+    , arRevisionURL+    , arCreated+    , arName+    , arRevisionId+    , arRevisionChangeIdentifier+     -- ** ArtifactStore     , ArtifactStore     , artifactStore@@ -360,6 +435,8 @@     -- ** CurrentRevision     , CurrentRevision     , currentRevision+    , crRevisionSummary+    , crCreated     , crRevision     , crChangeIdentifier @@ -442,6 +519,15 @@     , pdArtifactStore     , pdStages +    -- ** PipelineExecution+    , PipelineExecution+    , pipelineExecution+    , peStatus+    , pePipelineName+    , pePipelineVersion+    , pePipelineExecutionId+    , peArtifactRevisions+     -- ** PipelineSummary     , PipelineSummary     , pipelineSummary@@ -468,12 +554,19 @@     , sdName     , sdActions +    -- ** StageExecution+    , StageExecution+    , stageExecution+    , sePipelineExecutionId+    , seStatus+     -- ** StageState     , StageState     , stageState     , ssInboundTransitionState     , ssActionStates     , ssStageName+    , ssLatestExecution      -- ** ThirdPartyJob     , ThirdPartyJob@@ -519,6 +612,7 @@ import           Network.AWS.CodePipeline.EnableStageTransition import           Network.AWS.CodePipeline.GetJobDetails import           Network.AWS.CodePipeline.GetPipeline+import           Network.AWS.CodePipeline.GetPipelineExecution import           Network.AWS.CodePipeline.GetPipelineState import           Network.AWS.CodePipeline.GetThirdPartyJobDetails import           Network.AWS.CodePipeline.ListActionTypes@@ -526,10 +620,12 @@ import           Network.AWS.CodePipeline.PollForJobs import           Network.AWS.CodePipeline.PollForThirdPartyJobs import           Network.AWS.CodePipeline.PutActionRevision+import           Network.AWS.CodePipeline.PutApprovalResult import           Network.AWS.CodePipeline.PutJobFailureResult import           Network.AWS.CodePipeline.PutJobSuccessResult import           Network.AWS.CodePipeline.PutThirdPartyJobFailureResult import           Network.AWS.CodePipeline.PutThirdPartyJobSuccessResult+import           Network.AWS.CodePipeline.RetryStageExecution import           Network.AWS.CodePipeline.StartPipelineExecution import           Network.AWS.CodePipeline.Types import           Network.AWS.CodePipeline.UpdatePipeline

@@ -102,7 +102,7 @@  -- | The configuration properties for the custom action. ----- You can refer to a name in the configuration properties of the custom action within the URL templates by following the format of {Config:/name/}, as long as the configuration property is both required and not secret. For more information, see <http://docs.aws.amazon.com/codepipeline/latest/userguide/how-to-create-custom-action.html Create a Custom Action for a Pipeline>.+-- You can refer to a name in the configuration properties of the custom action within the URL templates by following the format of {Config:name}, as long as the configuration property is both required and not secret. For more information, see <http://docs.aws.amazon.com/codepipeline/latest/userguide/how-to-create-custom-action.html Create a Custom Action for a Pipeline>. ccatConfigurationProperties :: Lens' CreateCustomActionType [ActionConfigurationProperty] ccatConfigurationProperties = lens _ccatConfigurationProperties (\ s a -> s{_ccatConfigurationProperties = a}) . _Default . _Coerce; 

@@ -0,0 +1,149 @@+{-# 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.CodePipeline.GetPipelineExecution+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about an execution of a pipeline, including details about artifacts, the pipeline execution ID, and the name, version, and status of the pipeline.+module Network.AWS.CodePipeline.GetPipelineExecution+    (+    -- * Creating a Request+      getPipelineExecution+    , GetPipelineExecution+    -- * Request Lenses+    , gpePipelineName+    , gpePipelineExecutionId++    -- * Destructuring the Response+    , getPipelineExecutionResponse+    , GetPipelineExecutionResponse+    -- * Response Lenses+    , gpersPipelineExecution+    , gpersResponseStatus+    ) where++import           Network.AWS.CodePipeline.Types+import           Network.AWS.CodePipeline.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the input of a get pipeline execution action.+--+-- /See:/ 'getPipelineExecution' smart constructor.+data GetPipelineExecution = GetPipelineExecution'+    { _gpePipelineName        :: !Text+    , _gpePipelineExecutionId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetPipelineExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gpePipelineName'+--+-- * 'gpePipelineExecutionId'+getPipelineExecution+    :: Text -- ^ 'gpePipelineName'+    -> Text -- ^ 'gpePipelineExecutionId'+    -> GetPipelineExecution+getPipelineExecution pPipelineName_ pPipelineExecutionId_ =+    GetPipelineExecution'+    { _gpePipelineName = pPipelineName_+    , _gpePipelineExecutionId = pPipelineExecutionId_+    }++-- | The name of the pipeline about which you want to get execution details.+gpePipelineName :: Lens' GetPipelineExecution Text+gpePipelineName = lens _gpePipelineName (\ s a -> s{_gpePipelineName = a});++-- | The ID of the pipeline execution about which you want to get execution details.+gpePipelineExecutionId :: Lens' GetPipelineExecution Text+gpePipelineExecutionId = lens _gpePipelineExecutionId (\ s a -> s{_gpePipelineExecutionId = a});++instance AWSRequest GetPipelineExecution where+        type Rs GetPipelineExecution =+             GetPipelineExecutionResponse+        request = postJSON codePipeline+        response+          = receiveJSON+              (\ s h x ->+                 GetPipelineExecutionResponse' <$>+                   (x .?> "pipelineExecution") <*> (pure (fromEnum s)))++instance Hashable GetPipelineExecution++instance NFData GetPipelineExecution++instance ToHeaders GetPipelineExecution where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodePipeline_20150709.GetPipelineExecution" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON GetPipelineExecution where+        toJSON GetPipelineExecution'{..}+          = object+              (catMaybes+                 [Just ("pipelineName" .= _gpePipelineName),+                  Just+                    ("pipelineExecutionId" .= _gpePipelineExecutionId)])++instance ToPath GetPipelineExecution where+        toPath = const "/"++instance ToQuery GetPipelineExecution where+        toQuery = const mempty++-- | Represents the output of a get pipeline execution action.+--+-- /See:/ 'getPipelineExecutionResponse' smart constructor.+data GetPipelineExecutionResponse = GetPipelineExecutionResponse'+    { _gpersPipelineExecution :: !(Maybe PipelineExecution)+    , _gpersResponseStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetPipelineExecutionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gpersPipelineExecution'+--+-- * 'gpersResponseStatus'+getPipelineExecutionResponse+    :: Int -- ^ 'gpersResponseStatus'+    -> GetPipelineExecutionResponse+getPipelineExecutionResponse pResponseStatus_ =+    GetPipelineExecutionResponse'+    { _gpersPipelineExecution = Nothing+    , _gpersResponseStatus = pResponseStatus_+    }++-- | Represents information about the execution of a pipeline.+gpersPipelineExecution :: Lens' GetPipelineExecutionResponse (Maybe PipelineExecution)+gpersPipelineExecution = lens _gpersPipelineExecution (\ s a -> s{_gpersPipelineExecution = a});++-- | The response status code.+gpersResponseStatus :: Lens' GetPipelineExecutionResponse Int+gpersResponseStatus = lens _gpersResponseStatus (\ s a -> s{_gpersResponseStatus = a});++instance NFData GetPipelineExecutionResponse

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the state of a pipeline, including the stages, actions, and details about the last run of the pipeline.+-- Returns information about the state of a pipeline, including the stages and actions. module Network.AWS.CodePipeline.GetPipelineState     (     -- * Creating a Request

@@ -25,18 +25,18 @@       putActionRevision     , PutActionRevision     -- * Request Lenses-    , parPipelineName-    , parStageName-    , parActionName-    , parActionRevision+    , pPipelineName+    , pStageName+    , pActionName+    , pActionRevision      -- * Destructuring the Response     , putActionRevisionResponse     , PutActionRevisionResponse     -- * Response Lenses-    , parrsNewRevision-    , parrsPipelineExecutionId-    , parrsResponseStatus+    , prsNewRevision+    , prsPipelineExecutionId+    , prsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -50,52 +50,52 @@ -- -- /See:/ 'putActionRevision' smart constructor. data PutActionRevision = PutActionRevision'-    { _parPipelineName   :: !Text-    , _parStageName      :: !Text-    , _parActionName     :: !Text-    , _parActionRevision :: !ActionRevision+    { _pPipelineName   :: !Text+    , _pStageName      :: !Text+    , _pActionName     :: !Text+    , _pActionRevision :: !ActionRevision     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PutActionRevision' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'parPipelineName'+-- * 'pPipelineName' ----- * 'parStageName'+-- * 'pStageName' ----- * 'parActionName'+-- * 'pActionName' ----- * 'parActionRevision'+-- * 'pActionRevision' putActionRevision-    :: Text -- ^ 'parPipelineName'-    -> Text -- ^ 'parStageName'-    -> Text -- ^ 'parActionName'-    -> ActionRevision -- ^ 'parActionRevision'+    :: Text -- ^ 'pPipelineName'+    -> Text -- ^ 'pStageName'+    -> Text -- ^ 'pActionName'+    -> ActionRevision -- ^ 'pActionRevision'     -> PutActionRevision putActionRevision pPipelineName_ pStageName_ pActionName_ pActionRevision_ =     PutActionRevision'-    { _parPipelineName = pPipelineName_-    , _parStageName = pStageName_-    , _parActionName = pActionName_-    , _parActionRevision = pActionRevision_+    { _pPipelineName = pPipelineName_+    , _pStageName = pStageName_+    , _pActionName = pActionName_+    , _pActionRevision = pActionRevision_     }  -- | The name of the pipeline that will start processing the revision to the source.-parPipelineName :: Lens' PutActionRevision Text-parPipelineName = lens _parPipelineName (\ s a -> s{_parPipelineName = a});+pPipelineName :: Lens' PutActionRevision Text+pPipelineName = lens _pPipelineName (\ s a -> s{_pPipelineName = a});  -- | The name of the stage that contains the action that will act upon the revision.-parStageName :: Lens' PutActionRevision Text-parStageName = lens _parStageName (\ s a -> s{_parStageName = a});+pStageName :: Lens' PutActionRevision Text+pStageName = lens _pStageName (\ s a -> s{_pStageName = a});  -- | The name of the action that will process the revision.-parActionName :: Lens' PutActionRevision Text-parActionName = lens _parActionName (\ s a -> s{_parActionName = a});+pActionName :: Lens' PutActionRevision Text+pActionName = lens _pActionName (\ s a -> s{_pActionName = a});  -- | Undocumented member.-parActionRevision :: Lens' PutActionRevision ActionRevision-parActionRevision = lens _parActionRevision (\ s a -> s{_parActionRevision = a});+pActionRevision :: Lens' PutActionRevision ActionRevision+pActionRevision = lens _pActionRevision (\ s a -> s{_pActionRevision = a});  instance AWSRequest PutActionRevision where         type Rs PutActionRevision = PutActionRevisionResponse@@ -126,10 +126,10 @@         toJSON PutActionRevision'{..}           = object               (catMaybes-                 [Just ("pipelineName" .= _parPipelineName),-                  Just ("stageName" .= _parStageName),-                  Just ("actionName" .= _parActionName),-                  Just ("actionRevision" .= _parActionRevision)])+                 [Just ("pipelineName" .= _pPipelineName),+                  Just ("stageName" .= _pStageName),+                  Just ("actionName" .= _pActionName),+                  Just ("actionRevision" .= _pActionRevision)])  instance ToPath PutActionRevision where         toPath = const "/"@@ -141,40 +141,40 @@ -- -- /See:/ 'putActionRevisionResponse' smart constructor. data PutActionRevisionResponse = PutActionRevisionResponse'-    { _parrsNewRevision         :: !(Maybe Bool)-    , _parrsPipelineExecutionId :: !(Maybe Text)-    , _parrsResponseStatus      :: !Int+    { _prsNewRevision         :: !(Maybe Bool)+    , _prsPipelineExecutionId :: !(Maybe Text)+    , _prsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PutActionRevisionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'parrsNewRevision'+-- * 'prsNewRevision' ----- * 'parrsPipelineExecutionId'+-- * 'prsPipelineExecutionId' ----- * 'parrsResponseStatus'+-- * 'prsResponseStatus' putActionRevisionResponse-    :: Int -- ^ 'parrsResponseStatus'+    :: Int -- ^ 'prsResponseStatus'     -> PutActionRevisionResponse putActionRevisionResponse pResponseStatus_ =     PutActionRevisionResponse'-    { _parrsNewRevision = Nothing-    , _parrsPipelineExecutionId = Nothing-    , _parrsResponseStatus = pResponseStatus_+    { _prsNewRevision = Nothing+    , _prsPipelineExecutionId = Nothing+    , _prsResponseStatus = pResponseStatus_     } --- | The new revision number or ID for the revision after the action completes.-parrsNewRevision :: Lens' PutActionRevisionResponse (Maybe Bool)-parrsNewRevision = lens _parrsNewRevision (\ s a -> s{_parrsNewRevision = a});+-- | Indicates whether the artifact revision was previously used in an execution of the specified pipeline.+prsNewRevision :: Lens' PutActionRevisionResponse (Maybe Bool)+prsNewRevision = lens _prsNewRevision (\ s a -> s{_prsNewRevision = a});  -- | The ID of the current workflow state of the pipeline.-parrsPipelineExecutionId :: Lens' PutActionRevisionResponse (Maybe Text)-parrsPipelineExecutionId = lens _parrsPipelineExecutionId (\ s a -> s{_parrsPipelineExecutionId = a});+prsPipelineExecutionId :: Lens' PutActionRevisionResponse (Maybe Text)+prsPipelineExecutionId = lens _prsPipelineExecutionId (\ s a -> s{_prsPipelineExecutionId = a});  -- | The response status code.-parrsResponseStatus :: Lens' PutActionRevisionResponse Int-parrsResponseStatus = lens _parrsResponseStatus (\ s a -> s{_parrsResponseStatus = a});+prsResponseStatus :: Lens' PutActionRevisionResponse Int+prsResponseStatus = lens _prsResponseStatus (\ s a -> s{_prsResponseStatus = a});  instance NFData PutActionRevisionResponse

@@ -0,0 +1,180 @@+{-# 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.CodePipeline.PutApprovalResult+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides the response to a manual approval request to AWS CodePipeline. Valid responses include Approved and Rejected.+module Network.AWS.CodePipeline.PutApprovalResult+    (+    -- * Creating a Request+      putApprovalResult+    , PutApprovalResult+    -- * Request Lenses+    , parPipelineName+    , parStageName+    , parActionName+    , parResult+    , parToken++    -- * Destructuring the Response+    , putApprovalResultResponse+    , PutApprovalResultResponse+    -- * Response Lenses+    , parrsApprovedAt+    , parrsResponseStatus+    ) where++import           Network.AWS.CodePipeline.Types+import           Network.AWS.CodePipeline.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the input of a put approval result action.+--+-- /See:/ 'putApprovalResult' smart constructor.+data PutApprovalResult = PutApprovalResult'+    { _parPipelineName :: !Text+    , _parStageName    :: !Text+    , _parActionName   :: !Text+    , _parResult       :: !ApprovalResult+    , _parToken        :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PutApprovalResult' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'parPipelineName'+--+-- * 'parStageName'+--+-- * 'parActionName'+--+-- * 'parResult'+--+-- * 'parToken'+putApprovalResult+    :: Text -- ^ 'parPipelineName'+    -> Text -- ^ 'parStageName'+    -> Text -- ^ 'parActionName'+    -> ApprovalResult -- ^ 'parResult'+    -> Text -- ^ 'parToken'+    -> PutApprovalResult+putApprovalResult pPipelineName_ pStageName_ pActionName_ pResult_ pToken_ =+    PutApprovalResult'+    { _parPipelineName = pPipelineName_+    , _parStageName = pStageName_+    , _parActionName = pActionName_+    , _parResult = pResult_+    , _parToken = pToken_+    }++-- | The name of the pipeline that contains the action.+parPipelineName :: Lens' PutApprovalResult Text+parPipelineName = lens _parPipelineName (\ s a -> s{_parPipelineName = a});++-- | The name of the stage that contains the action.+parStageName :: Lens' PutApprovalResult Text+parStageName = lens _parStageName (\ s a -> s{_parStageName = a});++-- | The name of the action for which approval is requested.+parActionName :: Lens' PutApprovalResult Text+parActionName = lens _parActionName (\ s a -> s{_parActionName = a});++-- | Represents information about the result of the approval request.+parResult :: Lens' PutApprovalResult ApprovalResult+parResult = lens _parResult (\ s a -> s{_parResult = a});++-- | The system-generated token used to identify a unique approval request. The token for each open approval request can be obtained using the < GetPipelineState> action and is used to validate that the approval request corresponding to this token is still valid.+parToken :: Lens' PutApprovalResult Text+parToken = lens _parToken (\ s a -> s{_parToken = a});++instance AWSRequest PutApprovalResult where+        type Rs PutApprovalResult = PutApprovalResultResponse+        request = postJSON codePipeline+        response+          = receiveJSON+              (\ s h x ->+                 PutApprovalResultResponse' <$>+                   (x .?> "approvedAt") <*> (pure (fromEnum s)))++instance Hashable PutApprovalResult++instance NFData PutApprovalResult++instance ToHeaders PutApprovalResult where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodePipeline_20150709.PutApprovalResult" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON PutApprovalResult where+        toJSON PutApprovalResult'{..}+          = object+              (catMaybes+                 [Just ("pipelineName" .= _parPipelineName),+                  Just ("stageName" .= _parStageName),+                  Just ("actionName" .= _parActionName),+                  Just ("result" .= _parResult),+                  Just ("token" .= _parToken)])++instance ToPath PutApprovalResult where+        toPath = const "/"++instance ToQuery PutApprovalResult where+        toQuery = const mempty++-- | Represents the output of a put approval result action.+--+-- /See:/ 'putApprovalResultResponse' smart constructor.+data PutApprovalResultResponse = PutApprovalResultResponse'+    { _parrsApprovedAt     :: !(Maybe POSIX)+    , _parrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PutApprovalResultResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'parrsApprovedAt'+--+-- * 'parrsResponseStatus'+putApprovalResultResponse+    :: Int -- ^ 'parrsResponseStatus'+    -> PutApprovalResultResponse+putApprovalResultResponse pResponseStatus_ =+    PutApprovalResultResponse'+    { _parrsApprovedAt = Nothing+    , _parrsResponseStatus = pResponseStatus_+    }++-- | The timestamp showing when the approval or rejection was submitted.+parrsApprovedAt :: Lens' PutApprovalResultResponse (Maybe UTCTime)+parrsApprovedAt = lens _parrsApprovedAt (\ s a -> s{_parrsApprovedAt = a}) . mapping _Time;++-- | The response status code.+parrsResponseStatus :: Lens' PutApprovalResultResponse Int+parrsResponseStatus = lens _parrsResponseStatus (\ s a -> s{_parrsResponseStatus = a});++instance NFData PutApprovalResultResponse

@@ -0,0 +1,172 @@+{-# 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.CodePipeline.RetryStageExecution+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Resumes the pipeline execution by retrying the last failed actions in a stage.+module Network.AWS.CodePipeline.RetryStageExecution+    (+    -- * Creating a Request+      retryStageExecution+    , RetryStageExecution+    -- * Request Lenses+    , rsePipelineName+    , rseStageName+    , rsePipelineExecutionId+    , rseRetryMode++    -- * Destructuring the Response+    , retryStageExecutionResponse+    , RetryStageExecutionResponse+    -- * Response Lenses+    , rsersPipelineExecutionId+    , rsersResponseStatus+    ) where++import           Network.AWS.CodePipeline.Types+import           Network.AWS.CodePipeline.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Represents the input of a retry stage execution action.+--+-- /See:/ 'retryStageExecution' smart constructor.+data RetryStageExecution = RetryStageExecution'+    { _rsePipelineName        :: !Text+    , _rseStageName           :: !Text+    , _rsePipelineExecutionId :: !Text+    , _rseRetryMode           :: !StageRetryMode+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RetryStageExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsePipelineName'+--+-- * 'rseStageName'+--+-- * 'rsePipelineExecutionId'+--+-- * 'rseRetryMode'+retryStageExecution+    :: Text -- ^ 'rsePipelineName'+    -> Text -- ^ 'rseStageName'+    -> Text -- ^ 'rsePipelineExecutionId'+    -> StageRetryMode -- ^ 'rseRetryMode'+    -> RetryStageExecution+retryStageExecution pPipelineName_ pStageName_ pPipelineExecutionId_ pRetryMode_ =+    RetryStageExecution'+    { _rsePipelineName = pPipelineName_+    , _rseStageName = pStageName_+    , _rsePipelineExecutionId = pPipelineExecutionId_+    , _rseRetryMode = pRetryMode_+    }++-- | The name of the pipeline that contains the failed stage.+rsePipelineName :: Lens' RetryStageExecution Text+rsePipelineName = lens _rsePipelineName (\ s a -> s{_rsePipelineName = a});++-- | The name of the failed stage to be retried.+rseStageName :: Lens' RetryStageExecution Text+rseStageName = lens _rseStageName (\ s a -> s{_rseStageName = a});++-- | The ID of the pipeline execution in the failed stage to be retried. Use the < GetPipelineState> action to retrieve the current pipelineExecutionId of the failed stage+rsePipelineExecutionId :: Lens' RetryStageExecution Text+rsePipelineExecutionId = lens _rsePipelineExecutionId (\ s a -> s{_rsePipelineExecutionId = a});++-- | The scope of the retry attempt. Currently, the only supported value is FAILED_ACTIONS.+rseRetryMode :: Lens' RetryStageExecution StageRetryMode+rseRetryMode = lens _rseRetryMode (\ s a -> s{_rseRetryMode = a});++instance AWSRequest RetryStageExecution where+        type Rs RetryStageExecution =+             RetryStageExecutionResponse+        request = postJSON codePipeline+        response+          = receiveJSON+              (\ s h x ->+                 RetryStageExecutionResponse' <$>+                   (x .?> "pipelineExecutionId") <*>+                     (pure (fromEnum s)))++instance Hashable RetryStageExecution++instance NFData RetryStageExecution++instance ToHeaders RetryStageExecution where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("CodePipeline_20150709.RetryStageExecution" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RetryStageExecution where+        toJSON RetryStageExecution'{..}+          = object+              (catMaybes+                 [Just ("pipelineName" .= _rsePipelineName),+                  Just ("stageName" .= _rseStageName),+                  Just+                    ("pipelineExecutionId" .= _rsePipelineExecutionId),+                  Just ("retryMode" .= _rseRetryMode)])++instance ToPath RetryStageExecution where+        toPath = const "/"++instance ToQuery RetryStageExecution where+        toQuery = const mempty++-- | Represents the output of a retry stage execution action.+--+-- /See:/ 'retryStageExecutionResponse' smart constructor.+data RetryStageExecutionResponse = RetryStageExecutionResponse'+    { _rsersPipelineExecutionId :: !(Maybe Text)+    , _rsersResponseStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'RetryStageExecutionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rsersPipelineExecutionId'+--+-- * 'rsersResponseStatus'+retryStageExecutionResponse+    :: Int -- ^ 'rsersResponseStatus'+    -> RetryStageExecutionResponse+retryStageExecutionResponse pResponseStatus_ =+    RetryStageExecutionResponse'+    { _rsersPipelineExecutionId = Nothing+    , _rsersResponseStatus = pResponseStatus_+    }++-- | The ID of the current workflow execution in the failed stage.+rsersPipelineExecutionId :: Lens' RetryStageExecutionResponse (Maybe Text)+rsersPipelineExecutionId = lens _rsersPipelineExecutionId (\ s a -> s{_rsersPipelineExecutionId = a});++-- | The response status code.+rsersResponseStatus :: Lens' RetryStageExecutionResponse Int+rsersResponseStatus = lens _rsersResponseStatus (\ s a -> s{_rsersResponseStatus = a});++instance NFData RetryStageExecutionResponse

@@ -125,7 +125,7 @@     , _spersResponseStatus = pResponseStatus_     } --- | The unique system-generated ID of the pipeline that was started.+-- | The unique system-generated ID of the pipeline execution that was started. spersPipelineExecutionId :: Lens' StartPipelineExecutionResponse (Maybe Text) spersPipelineExecutionId = lens _spersPipelineExecutionId (\ s a -> s{_spersPipelineExecutionId = a}); 

@@ -20,10 +20,13 @@     , _ValidationException     , _InvalidNonceException     , _ActionNotFoundException+    , _InvalidApprovalTokenException     , _InvalidBlockerDeclarationException     , _InvalidJobStateException     , _InvalidJobException     , _PipelineVersionNotFoundException+    , _StageNotRetryableException+    , _PipelineExecutionNotFoundException     , _ActionTypeNotFoundException     , _InvalidNextTokenException     , _InvalidStageDeclarationException@@ -31,9 +34,11 @@     , _StageNotFoundException     , _InvalidStructureException     , _JobNotFoundException+    , _ApprovalAlreadyCompletedException     , _PipelineNameInUseException     , _PipelineNotFoundException     , _LimitExceededException+    , _NotLatestPipelineExecutionException      -- * ActionCategory     , ActionCategory (..)@@ -47,6 +52,9 @@     -- * ActionOwner     , ActionOwner (..) +    -- * ApprovalStatus+    , ApprovalStatus (..)+     -- * ArtifactLocationType     , ArtifactLocationType (..) @@ -65,6 +73,15 @@     -- * JobStatus     , JobStatus (..) +    -- * PipelineExecutionStatus+    , PipelineExecutionStatus (..)++    -- * StageExecutionStatus+    , StageExecutionStatus (..)++    -- * StageRetryMode+    , StageRetryMode (..)+     -- * StageTransitionType     , StageTransitionType (..) @@ -110,9 +127,11 @@     -- * ActionExecution     , ActionExecution     , actionExecution+    , aeLastUpdatedBy     , aeSummary     , aeStatus     , aeLastStatusChange+    , aeToken     , aeExternalExecutionURL     , aeExternalExecutionId     , aeErrorDetails@@ -121,9 +140,9 @@     -- * ActionRevision     , ActionRevision     , actionRevision-    , arRevisionId-    , arRevisionChangeId-    , arCreated+    , aRevisionId+    , aRevisionChangeId+    , aCreated      -- * ActionState     , ActionState@@ -159,6 +178,12 @@     , atsRevisionURLTemplate     , atsEntityURLTemplate +    -- * ApprovalResult+    , ApprovalResult+    , approvalResult+    , arSummary+    , arStatus+     -- * Artifact     , Artifact     , artifact@@ -178,6 +203,16 @@     , alS3Location     , alType +    -- * ArtifactRevision+    , ArtifactRevision+    , artifactRevision+    , arRevisionSummary+    , arRevisionURL+    , arCreated+    , arName+    , arRevisionId+    , arRevisionChangeIdentifier+     -- * ArtifactStore     , ArtifactStore     , artifactStore@@ -194,6 +229,8 @@     -- * CurrentRevision     , CurrentRevision     , currentRevision+    , crRevisionSummary+    , crCreated     , crRevision     , crChangeIdentifier @@ -276,6 +313,15 @@     , pdArtifactStore     , pdStages +    -- * PipelineExecution+    , PipelineExecution+    , pipelineExecution+    , peStatus+    , pePipelineName+    , pePipelineVersion+    , pePipelineExecutionId+    , peArtifactRevisions+     -- * PipelineSummary     , PipelineSummary     , pipelineSummary@@ -302,12 +348,19 @@     , sdName     , sdActions +    -- * StageExecution+    , StageExecution+    , stageExecution+    , sePipelineExecutionId+    , seStatus+     -- * StageState     , StageState     , stageState     , ssInboundTransitionState     , ssActionStates     , ssStageName+    , ssLatestExecution      -- * ThirdPartyJob     , ThirdPartyJob@@ -400,6 +453,11 @@ _ActionNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ActionNotFoundException = _ServiceError . hasCode "ActionNotFoundException" +-- | The approval request already received a response or has expired.+_InvalidApprovalTokenException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidApprovalTokenException =+    _ServiceError . hasCode "InvalidApprovalTokenException"+ -- | Reserved for future use. _InvalidBlockerDeclarationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidBlockerDeclarationException =@@ -418,6 +476,16 @@ _PipelineVersionNotFoundException =     _ServiceError . hasCode "PipelineVersionNotFoundException" +-- | The specified stage can\'t be retried because the pipeline structure or stage state changed after the stage was not completed; the stage contains no failed actions; one or more actions are still in progress; or another retry attempt is already in progress.+_StageNotRetryableException :: AsError a => Getting (First ServiceError) a ServiceError+_StageNotRetryableException =+    _ServiceError . hasCode "StageNotRetryableException"++-- | The pipeline execution was specified in an invalid format or cannot be found, or an execution ID does not belong to the specified pipeline.+_PipelineExecutionNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_PipelineExecutionNotFoundException =+    _ServiceError . hasCode "PipelineExecutionNotFoundException"+ -- | The specified action type cannot be found. _ActionTypeNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ActionTypeNotFoundException =@@ -451,6 +519,11 @@ _JobNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _JobNotFoundException = _ServiceError . hasCode "JobNotFoundException" +-- | The approval action has already been approved or rejected.+_ApprovalAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError+_ApprovalAlreadyCompletedException =+    _ServiceError . hasCode "ApprovalAlreadyCompletedException"+ -- | The specified pipeline name is already in use. _PipelineNameInUseException :: AsError a => Getting (First ServiceError) a ServiceError _PipelineNameInUseException =@@ -464,3 +537,8 @@ -- | The number of pipelines associated with the AWS account has exceeded the limit allowed for the account. _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException = _ServiceError . hasCode "LimitExceededException"++-- | The stage has failed in a later run of the pipeline and the pipelineExecutionId associated with the request is out of date.+_NotLatestPipelineExecutionException :: AsError a => Getting (First ServiceError) a ServiceError+_NotLatestPipelineExecutionException =+    _ServiceError . hasCode "NotLatestPipelineExecutionException"

@@ -350,13 +350,15 @@                   Just ("name" .= _adName),                   Just ("actionTypeId" .= _adActionTypeId)]) --- | Represents information about how an action runs.+-- | Represents information about the run of an action. -- -- /See:/ 'actionExecution' smart constructor. data ActionExecution = ActionExecution'-    { _aeSummary              :: !(Maybe Text)+    { _aeLastUpdatedBy        :: !(Maybe Text)+    , _aeSummary              :: !(Maybe Text)     , _aeStatus               :: !(Maybe ActionExecutionStatus)     , _aeLastStatusChange     :: !(Maybe POSIX)+    , _aeToken                :: !(Maybe Text)     , _aeExternalExecutionURL :: !(Maybe Text)     , _aeExternalExecutionId  :: !(Maybe Text)     , _aeErrorDetails         :: !(Maybe ErrorDetails)@@ -367,12 +369,16 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'aeLastUpdatedBy'+-- -- * 'aeSummary' -- -- * 'aeStatus' -- -- * 'aeLastStatusChange' --+-- * 'aeToken'+-- -- * 'aeExternalExecutionURL' -- -- * 'aeExternalExecutionId'@@ -384,15 +390,21 @@     :: ActionExecution actionExecution =     ActionExecution'-    { _aeSummary = Nothing+    { _aeLastUpdatedBy = Nothing+    , _aeSummary = Nothing     , _aeStatus = Nothing     , _aeLastStatusChange = Nothing+    , _aeToken = Nothing     , _aeExternalExecutionURL = Nothing     , _aeExternalExecutionId = Nothing     , _aeErrorDetails = Nothing     , _aePercentComplete = Nothing     } +-- | The ARN of the user who last changed the pipeline.+aeLastUpdatedBy :: Lens' ActionExecution (Maybe Text)+aeLastUpdatedBy = lens _aeLastUpdatedBy (\ s a -> s{_aeLastUpdatedBy = a});+ -- | A summary of the run of the action. aeSummary :: Lens' ActionExecution (Maybe Text) aeSummary = lens _aeSummary (\ s a -> s{_aeSummary = a});@@ -405,6 +417,10 @@ aeLastStatusChange :: Lens' ActionExecution (Maybe UTCTime) aeLastStatusChange = lens _aeLastStatusChange (\ s a -> s{_aeLastStatusChange = a}) . mapping _Time; +-- | The system-generated token used to identify a unique approval request. The token for each open approval request can be obtained using the GetPipelineState command and is used to validate that the approval request corresponding to this token is still valid.+aeToken :: Lens' ActionExecution (Maybe Text)+aeToken = lens _aeToken (\ s a -> s{_aeToken = a});+ -- | The URL of a resource external to AWS that will be used when running the action, for example an external repository URL. aeExternalExecutionURL :: Lens' ActionExecution (Maybe Text) aeExternalExecutionURL = lens _aeExternalExecutionURL (\ s a -> s{_aeExternalExecutionURL = a});@@ -426,8 +442,10 @@           = withObject "ActionExecution"               (\ x ->                  ActionExecution' <$>-                   (x .:? "summary") <*> (x .:? "status") <*>-                     (x .:? "lastStatusChange")+                   (x .:? "lastUpdatedBy") <*> (x .:? "summary") <*>+                     (x .:? "status")+                     <*> (x .:? "lastStatusChange")+                     <*> (x .:? "token")                      <*> (x .:? "externalExecutionUrl")                      <*> (x .:? "externalExecutionId")                      <*> (x .:? "errorDetails")@@ -441,43 +459,43 @@ -- -- /See:/ 'actionRevision' smart constructor. data ActionRevision = ActionRevision'-    { _arRevisionId       :: !Text-    , _arRevisionChangeId :: !Text-    , _arCreated          :: !POSIX+    { _aRevisionId       :: !Text+    , _aRevisionChangeId :: !Text+    , _aCreated          :: !POSIX     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ActionRevision' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'arRevisionId'+-- * 'aRevisionId' ----- * 'arRevisionChangeId'+-- * 'aRevisionChangeId' ----- * 'arCreated'+-- * 'aCreated' actionRevision-    :: Text -- ^ 'arRevisionId'-    -> Text -- ^ 'arRevisionChangeId'-    -> UTCTime -- ^ 'arCreated'+    :: Text -- ^ 'aRevisionId'+    -> Text -- ^ 'aRevisionChangeId'+    -> UTCTime -- ^ 'aCreated'     -> ActionRevision actionRevision pRevisionId_ pRevisionChangeId_ pCreated_ =     ActionRevision'-    { _arRevisionId = pRevisionId_-    , _arRevisionChangeId = pRevisionChangeId_-    , _arCreated = _Time # pCreated_+    { _aRevisionId = pRevisionId_+    , _aRevisionChangeId = pRevisionChangeId_+    , _aCreated = _Time # pCreated_     }  -- | The system-generated unique ID that identifies the revision number of the action.-arRevisionId :: Lens' ActionRevision Text-arRevisionId = lens _arRevisionId (\ s a -> s{_arRevisionId = a});+aRevisionId :: Lens' ActionRevision Text+aRevisionId = lens _aRevisionId (\ s a -> s{_aRevisionId = a});  -- | The unique identifier of the change that set the state to this revision, for example a deployment ID or timestamp.-arRevisionChangeId :: Lens' ActionRevision Text-arRevisionChangeId = lens _arRevisionChangeId (\ s a -> s{_arRevisionChangeId = a});+aRevisionChangeId :: Lens' ActionRevision Text+aRevisionChangeId = lens _aRevisionChangeId (\ s a -> s{_aRevisionChangeId = a});  -- | The date and time when the most recent version of the action was created, in timestamp format.-arCreated :: Lens' ActionRevision UTCTime-arCreated = lens _arCreated (\ s a -> s{_arCreated = a}) . _Time;+aCreated :: Lens' ActionRevision UTCTime+aCreated = lens _aCreated (\ s a -> s{_aCreated = a}) . _Time;  instance FromJSON ActionRevision where         parseJSON@@ -495,9 +513,9 @@         toJSON ActionRevision'{..}           = object               (catMaybes-                 [Just ("revisionId" .= _arRevisionId),-                  Just ("revisionChangeId" .= _arRevisionChangeId),-                  Just ("created" .= _arCreated)])+                 [Just ("revisionId" .= _aRevisionId),+                  Just ("revisionChangeId" .= _aRevisionChangeId),+                  Just ("created" .= _aCreated)])  -- | Represents information about the state of an action. --@@ -787,6 +805,50 @@                     _atsRevisionURLTemplate,                   ("entityUrlTemplate" .=) <$> _atsEntityURLTemplate]) +-- | Represents information about the result of an approval request.+--+-- /See:/ 'approvalResult' smart constructor.+data ApprovalResult = ApprovalResult'+    { _arSummary :: !Text+    , _arStatus  :: !ApprovalStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ApprovalResult' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arSummary'+--+-- * 'arStatus'+approvalResult+    :: Text -- ^ 'arSummary'+    -> ApprovalStatus -- ^ 'arStatus'+    -> ApprovalResult+approvalResult pSummary_ pStatus_ =+    ApprovalResult'+    { _arSummary = pSummary_+    , _arStatus = pStatus_+    }++-- | The summary of the current status of the approval request.+arSummary :: Lens' ApprovalResult Text+arSummary = lens _arSummary (\ s a -> s{_arSummary = a});++-- | The response submitted by a reviewer assigned to an approval action request.+arStatus :: Lens' ApprovalResult ApprovalStatus+arStatus = lens _arStatus (\ s a -> s{_arStatus = a});++instance Hashable ApprovalResult++instance NFData ApprovalResult++instance ToJSON ApprovalResult where+        toJSON ApprovalResult'{..}+          = object+              (catMaybes+                 [Just ("summary" .= _arSummary),+                  Just ("status" .= _arStatus)])+ -- | Represents information about an artifact that will be worked upon by actions in the pipeline. -- -- /See:/ 'artifact' smart constructor.@@ -931,6 +993,84 @@  instance NFData ArtifactLocation +-- | Represents revision details of an artifact.+--+-- /See:/ 'artifactRevision' smart constructor.+data ArtifactRevision = ArtifactRevision'+    { _arRevisionSummary          :: !(Maybe Text)+    , _arRevisionURL              :: !(Maybe Text)+    , _arCreated                  :: !(Maybe POSIX)+    , _arName                     :: !(Maybe Text)+    , _arRevisionId               :: !(Maybe Text)+    , _arRevisionChangeIdentifier :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ArtifactRevision' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arRevisionSummary'+--+-- * 'arRevisionURL'+--+-- * 'arCreated'+--+-- * 'arName'+--+-- * 'arRevisionId'+--+-- * 'arRevisionChangeIdentifier'+artifactRevision+    :: ArtifactRevision+artifactRevision =+    ArtifactRevision'+    { _arRevisionSummary = Nothing+    , _arRevisionURL = Nothing+    , _arCreated = Nothing+    , _arName = Nothing+    , _arRevisionId = Nothing+    , _arRevisionChangeIdentifier = Nothing+    }++-- | Summary information about the most recent revision of the artifact. For GitHub and AWS CodeCommit repositories, the commit message. For Amazon S3 buckets or actions, the user-provided content of a 'codepipeline-artifact-revision-summary' key specified in the object metadata.+arRevisionSummary :: Lens' ArtifactRevision (Maybe Text)+arRevisionSummary = lens _arRevisionSummary (\ s a -> s{_arRevisionSummary = a});++-- | The commit ID for the artifact revision. For artifacts stored in GitHub or AWS CodeCommit repositories, the commit ID is linked to a commit details page.+arRevisionURL :: Lens' ArtifactRevision (Maybe Text)+arRevisionURL = lens _arRevisionURL (\ s a -> s{_arRevisionURL = a});++-- | The date and time when the most recent revision of the artifact was created, in timestamp format.+arCreated :: Lens' ArtifactRevision (Maybe UTCTime)+arCreated = lens _arCreated (\ s a -> s{_arCreated = a}) . mapping _Time;++-- | The name of an artifact. This name might be system-generated, such as \"MyApp\", or might be defined by the user when an action is created.+arName :: Lens' ArtifactRevision (Maybe Text)+arName = lens _arName (\ s a -> s{_arName = a});++-- | The revision ID of the artifact.+arRevisionId :: Lens' ArtifactRevision (Maybe Text)+arRevisionId = lens _arRevisionId (\ s a -> s{_arRevisionId = a});++-- | An additional identifier for a revision, such as a commit date or, for artifacts stored in Amazon S3 buckets, the ETag value.+arRevisionChangeIdentifier :: Lens' ArtifactRevision (Maybe Text)+arRevisionChangeIdentifier = lens _arRevisionChangeIdentifier (\ s a -> s{_arRevisionChangeIdentifier = a});++instance FromJSON ArtifactRevision where+        parseJSON+          = withObject "ArtifactRevision"+              (\ x ->+                 ArtifactRevision' <$>+                   (x .:? "revisionSummary") <*> (x .:? "revisionUrl")+                     <*> (x .:? "created")+                     <*> (x .:? "name")+                     <*> (x .:? "revisionId")+                     <*> (x .:? "revisionChangeIdentifier"))++instance Hashable ArtifactRevision++instance NFData ArtifactRevision+ -- | The Amazon S3 location where artifacts are stored for the pipeline. If this Amazon S3 bucket is created manually, it must meet the requirements for AWS CodePipeline. For more information, see the <http://docs.aws.amazon.com/codepipeline/latest/userguide/concepts.html#CPS3Bucket Concepts>. -- -- /See:/ 'artifactStore' smart constructor.@@ -1046,7 +1186,9 @@ -- -- /See:/ 'currentRevision' smart constructor. data CurrentRevision = CurrentRevision'-    { _crRevision         :: !Text+    { _crRevisionSummary  :: !(Maybe Text)+    , _crCreated          :: !(Maybe POSIX)+    , _crRevision         :: !Text     , _crChangeIdentifier :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -1054,6 +1196,10 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'crRevisionSummary'+--+-- * 'crCreated'+-- -- * 'crRevision' -- -- * 'crChangeIdentifier'@@ -1063,10 +1209,20 @@     -> CurrentRevision currentRevision pRevision_ pChangeIdentifier_ =     CurrentRevision'-    { _crRevision = pRevision_+    { _crRevisionSummary = Nothing+    , _crCreated = Nothing+    , _crRevision = pRevision_     , _crChangeIdentifier = pChangeIdentifier_     } +-- | The summary of the most recent revision of the artifact.+crRevisionSummary :: Lens' CurrentRevision (Maybe Text)+crRevisionSummary = lens _crRevisionSummary (\ s a -> s{_crRevisionSummary = a});++-- | The date and time when the most recent revision of the artifact was created, in timestamp format.+crCreated :: Lens' CurrentRevision (Maybe UTCTime)+crCreated = lens _crCreated (\ s a -> s{_crCreated = a}) . mapping _Time;+ -- | The revision ID of the current version of an artifact. crRevision :: Lens' CurrentRevision Text crRevision = lens _crRevision (\ s a -> s{_crRevision = a});@@ -1083,7 +1239,9 @@         toJSON CurrentRevision'{..}           = object               (catMaybes-                 [Just ("revision" .= _crRevision),+                 [("revisionSummary" .=) <$> _crRevisionSummary,+                  ("created" .=) <$> _crCreated,+                  Just ("revision" .= _crRevision),                   Just ("changeIdentifier" .= _crChangeIdentifier)])  -- | Represents information about the key used to encrypt data in the artifact store, such as an AWS Key Management Service (AWS KMS) key.@@ -1704,6 +1862,84 @@                   Just ("artifactStore" .= _pdArtifactStore),                   Just ("stages" .= _pdStages)]) +-- | Represents information about an execution of a pipeline.+--+-- /See:/ 'pipelineExecution' smart constructor.+data PipelineExecution = PipelineExecution'+    { _peStatus              :: !(Maybe PipelineExecutionStatus)+    , _pePipelineName        :: !(Maybe Text)+    , _pePipelineVersion     :: !(Maybe Nat)+    , _pePipelineExecutionId :: !(Maybe Text)+    , _peArtifactRevisions   :: !(Maybe [ArtifactRevision])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PipelineExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'peStatus'+--+-- * 'pePipelineName'+--+-- * 'pePipelineVersion'+--+-- * 'pePipelineExecutionId'+--+-- * 'peArtifactRevisions'+pipelineExecution+    :: PipelineExecution+pipelineExecution =+    PipelineExecution'+    { _peStatus = Nothing+    , _pePipelineName = Nothing+    , _pePipelineVersion = Nothing+    , _pePipelineExecutionId = Nothing+    , _peArtifactRevisions = Nothing+    }++-- | The status of the pipeline execution.+--+-- -   InProgress: The pipeline execution is currently running.+--+-- -   Succeeded: The pipeline execution completed successfully.+--+-- -   Superseded: While this pipeline execution was waiting for the next stage to be completed, a newer pipeline execution caught up and continued through the pipeline instead.+--+-- -   Failed: The pipeline did not complete successfully.+--+peStatus :: Lens' PipelineExecution (Maybe PipelineExecutionStatus)+peStatus = lens _peStatus (\ s a -> s{_peStatus = a});++-- | The name of the pipeline that was executed.+pePipelineName :: Lens' PipelineExecution (Maybe Text)+pePipelineName = lens _pePipelineName (\ s a -> s{_pePipelineName = a});++-- | The version number of the pipeline that was executed.+pePipelineVersion :: Lens' PipelineExecution (Maybe Natural)+pePipelineVersion = lens _pePipelineVersion (\ s a -> s{_pePipelineVersion = a}) . mapping _Nat;++-- | The ID of the pipeline execution.+pePipelineExecutionId :: Lens' PipelineExecution (Maybe Text)+pePipelineExecutionId = lens _pePipelineExecutionId (\ s a -> s{_pePipelineExecutionId = a});++-- | A list of ArtifactRevision objects included in a pipeline execution.+peArtifactRevisions :: Lens' PipelineExecution [ArtifactRevision]+peArtifactRevisions = lens _peArtifactRevisions (\ s a -> s{_peArtifactRevisions = a}) . _Default . _Coerce;++instance FromJSON PipelineExecution where+        parseJSON+          = withObject "PipelineExecution"+              (\ x ->+                 PipelineExecution' <$>+                   (x .:? "status") <*> (x .:? "pipelineName") <*>+                     (x .:? "pipelineVersion")+                     <*> (x .:? "pipelineExecutionId")+                     <*> (x .:? "artifactRevisions" .!= mempty))++instance Hashable PipelineExecution++instance NFData PipelineExecution+ -- | Returns a summary of a pipeline. -- -- /See:/ 'pipelineSummary' smart constructor.@@ -1900,6 +2136,50 @@                   Just ("name" .= _sdName),                   Just ("actions" .= _sdActions)]) +-- | Represents information about the run of a stage.+--+-- /See:/ 'stageExecution' smart constructor.+data StageExecution = StageExecution'+    { _sePipelineExecutionId :: !Text+    , _seStatus              :: !StageExecutionStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StageExecution' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sePipelineExecutionId'+--+-- * 'seStatus'+stageExecution+    :: Text -- ^ 'sePipelineExecutionId'+    -> StageExecutionStatus -- ^ 'seStatus'+    -> StageExecution+stageExecution pPipelineExecutionId_ pStatus_ =+    StageExecution'+    { _sePipelineExecutionId = pPipelineExecutionId_+    , _seStatus = pStatus_+    }++-- | The ID of the pipeline execution associated with the stage.+sePipelineExecutionId :: Lens' StageExecution Text+sePipelineExecutionId = lens _sePipelineExecutionId (\ s a -> s{_sePipelineExecutionId = a});++-- | The status of the stage, or for a completed stage, the last status of the stage.+seStatus :: Lens' StageExecution StageExecutionStatus+seStatus = lens _seStatus (\ s a -> s{_seStatus = a});++instance FromJSON StageExecution where+        parseJSON+          = withObject "StageExecution"+              (\ x ->+                 StageExecution' <$>+                   (x .: "pipelineExecutionId") <*> (x .: "status"))++instance Hashable StageExecution++instance NFData StageExecution+ -- | Represents information about the state of the stage. -- -- /See:/ 'stageState' smart constructor.@@ -1907,6 +2187,7 @@     { _ssInboundTransitionState :: !(Maybe TransitionState)     , _ssActionStates           :: !(Maybe [ActionState])     , _ssStageName              :: !(Maybe Text)+    , _ssLatestExecution        :: !(Maybe StageExecution)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'StageState' with the minimum fields required to make a request.@@ -1918,6 +2199,8 @@ -- * 'ssActionStates' -- -- * 'ssStageName'+--+-- * 'ssLatestExecution' stageState     :: StageState stageState =@@ -1925,6 +2208,7 @@     { _ssInboundTransitionState = Nothing     , _ssActionStates = Nothing     , _ssStageName = Nothing+    , _ssLatestExecution = Nothing     }  -- | The state of the inbound transition, which is either enabled or disabled.@@ -1939,6 +2223,10 @@ ssStageName :: Lens' StageState (Maybe Text) ssStageName = lens _ssStageName (\ s a -> s{_ssStageName = a}); +-- | Information about the latest execution in the stage, including its ID and status.+ssLatestExecution :: Lens' StageState (Maybe StageExecution)+ssLatestExecution = lens _ssLatestExecution (\ s a -> s{_ssLatestExecution = a});+ instance FromJSON StageState where         parseJSON           = withObject "StageState"@@ -1946,7 +2234,8 @@                  StageState' <$>                    (x .:? "inboundTransitionState") <*>                      (x .:? "actionStates" .!= mempty)-                     <*> (x .:? "stageName"))+                     <*> (x .:? "stageName")+                     <*> (x .:? "latestExecution"))  instance Hashable StageState 

@@ -20,7 +20,8 @@ import           Network.AWS.Prelude  data ActionCategory-    = Build+    = Approval+    | Build     | Deploy     | Invoke     | Source@@ -29,16 +30,18 @@  instance FromText ActionCategory where     parser = takeLowerText >>= \case+        "approval" -> pure Approval         "build" -> pure Build         "deploy" -> pure Deploy         "invoke" -> pure Invoke         "source" -> pure Source         "test" -> pure Test         e -> fromTextError $ "Failure parsing ActionCategory from value: '" <> e-           <> "'. Accepted values: Build, Deploy, Invoke, Source, Test"+           <> "'. Accepted values: approval, build, deploy, invoke, source, test"  instance ToText ActionCategory where     toText = \case+        Approval -> "Approval"         Build -> "Build"         Deploy -> "Deploy"         Invoke -> "Invoke"@@ -69,7 +72,7 @@         "number" -> pure Number         "string" -> pure String         e -> fromTextError $ "Failure parsing ActionConfigurationPropertyType from value: '" <> e-           <> "'. Accepted values: Boolean, Number, String"+           <> "'. Accepted values: boolean, number, string"  instance ToText ActionConfigurationPropertyType where     toText = \case@@ -90,24 +93,24 @@     parseJSON = parseJSONText "ActionConfigurationPropertyType"  data ActionExecutionStatus-    = Failed-    | InProgress-    | Succeeded+    = AESFailed+    | AESInProgress+    | AESSucceeded     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText ActionExecutionStatus where     parser = takeLowerText >>= \case-        "failed" -> pure Failed-        "inprogress" -> pure InProgress-        "succeeded" -> pure Succeeded+        "failed" -> pure AESFailed+        "inprogress" -> pure AESInProgress+        "succeeded" -> pure AESSucceeded         e -> fromTextError $ "Failure parsing ActionExecutionStatus from value: '" <> e-           <> "'. Accepted values: Failed, InProgress, Succeeded"+           <> "'. Accepted values: failed, inprogress, succeeded"  instance ToText ActionExecutionStatus where     toText = \case-        Failed -> "Failed"-        InProgress -> "InProgress"-        Succeeded -> "Succeeded"+        AESFailed -> "Failed"+        AESInProgress -> "InProgress"+        AESSucceeded -> "Succeeded"  instance Hashable     ActionExecutionStatus instance NFData       ActionExecutionStatus@@ -130,7 +133,7 @@         "custom" -> pure Custom         "thirdparty" -> pure ThirdParty         e -> fromTextError $ "Failure parsing ActionOwner from value: '" <> e-           <> "'. Accepted values: AWS, Custom, ThirdParty"+           <> "'. Accepted values: aws, custom, thirdparty"  instance ToText ActionOwner where     toText = \case@@ -150,6 +153,32 @@ instance FromJSON ActionOwner where     parseJSON = parseJSONText "ActionOwner" +data ApprovalStatus+    = Approved+    | Rejected+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ApprovalStatus where+    parser = takeLowerText >>= \case+        "approved" -> pure Approved+        "rejected" -> pure Rejected+        e -> fromTextError $ "Failure parsing ApprovalStatus from value: '" <> e+           <> "'. Accepted values: approved, rejected"++instance ToText ApprovalStatus where+    toText = \case+        Approved -> "Approved"+        Rejected -> "Rejected"++instance Hashable     ApprovalStatus+instance NFData       ApprovalStatus+instance ToByteString ApprovalStatus+instance ToQuery      ApprovalStatus+instance ToHeader     ApprovalStatus++instance ToJSON ApprovalStatus where+    toJSON = toJSONText+ data ArtifactLocationType =     ALTS3     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -158,7 +187,7 @@     parser = takeLowerText >>= \case         "s3" -> pure ALTS3         e -> fromTextError $ "Failure parsing ArtifactLocationType from value: '" <> e-           <> "'. Accepted values: S3"+           <> "'. Accepted values: s3"  instance ToText ArtifactLocationType where     toText = \case@@ -181,7 +210,7 @@     parser = takeLowerText >>= \case         "s3" -> pure S3         e -> fromTextError $ "Failure parsing ArtifactStoreType from value: '" <> e-           <> "'. Accepted values: S3"+           <> "'. Accepted values: s3"  instance ToText ArtifactStoreType where     toText = \case@@ -207,7 +236,7 @@     parser = takeLowerText >>= \case         "schedule" -> pure Schedule         e -> fromTextError $ "Failure parsing BlockerType from value: '" <> e-           <> "'. Accepted values: Schedule"+           <> "'. Accepted values: schedule"  instance ToText BlockerType where     toText = \case@@ -233,7 +262,7 @@     parser = takeLowerText >>= \case         "kms" -> pure KMS         e -> fromTextError $ "Failure parsing EncryptionKeyType from value: '" <> e-           <> "'. Accepted values: KMS"+           <> "'. Accepted values: kms"  instance ToText EncryptionKeyType where     toText = \case@@ -269,7 +298,7 @@         "revisionunavailable" -> pure RevisionUnavailable         "systemunavailable" -> pure SystemUnavailable         e -> fromTextError $ "Failure parsing FailureType from value: '" <> e-           <> "'. Accepted values: ConfigurationError, JobFailed, PermissionError, RevisionOutOfSync, RevisionUnavailable, SystemUnavailable"+           <> "'. Accepted values: configurationerror, jobfailed, permissionerror, revisionoutofsync, revisionunavailable, systemunavailable"  instance ToText FailureType where     toText = \case@@ -309,7 +338,7 @@         "succeeded" -> pure JSSucceeded         "timedout" -> pure JSTimedOut         e -> fromTextError $ "Failure parsing JobStatus from value: '" <> e-           <> "'. Accepted values: Created, Dispatched, Failed, InProgress, Queued, Succeeded, TimedOut"+           <> "'. Accepted values: created, dispatched, failed, inprogress, queued, succeeded, timedout"  instance ToText JobStatus where     toText = \case@@ -330,6 +359,90 @@ instance FromJSON JobStatus where     parseJSON = parseJSONText "JobStatus" +data PipelineExecutionStatus+    = Failed+    | InProgress+    | Succeeded+    | Superseded+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText PipelineExecutionStatus where+    parser = takeLowerText >>= \case+        "failed" -> pure Failed+        "inprogress" -> pure InProgress+        "succeeded" -> pure Succeeded+        "superseded" -> pure Superseded+        e -> fromTextError $ "Failure parsing PipelineExecutionStatus from value: '" <> e+           <> "'. Accepted values: failed, inprogress, succeeded, superseded"++instance ToText PipelineExecutionStatus where+    toText = \case+        Failed -> "Failed"+        InProgress -> "InProgress"+        Succeeded -> "Succeeded"+        Superseded -> "Superseded"++instance Hashable     PipelineExecutionStatus+instance NFData       PipelineExecutionStatus+instance ToByteString PipelineExecutionStatus+instance ToQuery      PipelineExecutionStatus+instance ToHeader     PipelineExecutionStatus++instance FromJSON PipelineExecutionStatus where+    parseJSON = parseJSONText "PipelineExecutionStatus"++data StageExecutionStatus+    = SESFailed+    | SESInProgress+    | SESSucceeded+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText StageExecutionStatus where+    parser = takeLowerText >>= \case+        "failed" -> pure SESFailed+        "inprogress" -> pure SESInProgress+        "succeeded" -> pure SESSucceeded+        e -> fromTextError $ "Failure parsing StageExecutionStatus from value: '" <> e+           <> "'. Accepted values: failed, inprogress, succeeded"++instance ToText StageExecutionStatus where+    toText = \case+        SESFailed -> "Failed"+        SESInProgress -> "InProgress"+        SESSucceeded -> "Succeeded"++instance Hashable     StageExecutionStatus+instance NFData       StageExecutionStatus+instance ToByteString StageExecutionStatus+instance ToQuery      StageExecutionStatus+instance ToHeader     StageExecutionStatus++instance FromJSON StageExecutionStatus where+    parseJSON = parseJSONText "StageExecutionStatus"++data StageRetryMode =+    FailedActions+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText StageRetryMode where+    parser = takeLowerText >>= \case+        "failed_actions" -> pure FailedActions+        e -> fromTextError $ "Failure parsing StageRetryMode from value: '" <> e+           <> "'. Accepted values: failed_actions"++instance ToText StageRetryMode where+    toText = \case+        FailedActions -> "FAILED_ACTIONS"++instance Hashable     StageRetryMode+instance NFData       StageRetryMode+instance ToByteString StageRetryMode+instance ToQuery      StageRetryMode+instance ToHeader     StageRetryMode++instance ToJSON StageRetryMode where+    toJSON = toJSONText+ data StageTransitionType     = Inbound     | Outbound@@ -340,7 +453,7 @@         "inbound" -> pure Inbound         "outbound" -> pure Outbound         e -> fromTextError $ "Failure parsing StageTransitionType from value: '" <> e-           <> "'. Accepted values: Inbound, Outbound"+           <> "'. Accepted values: inbound, outbound"  instance ToText StageTransitionType where     toText = \case

@@ -34,6 +34,9 @@ --         , requestPutJobFailureResult $ --             putJobFailureResult --+--         , requestPutApprovalResult $+--             putApprovalResult+-- --         , requestAcknowledgeThirdPartyJob $ --             acknowledgeThirdPartyJob --@@ -64,6 +67,12 @@ --         , requestListPipelines $ --             listPipelines --+--         , requestRetryStageExecution $+--             retryStageExecution+--+--         , requestGetPipelineExecution $+--             getPipelineExecution+-- --         , requestPutJobSuccessResult $ --             putJobSuccessResult --@@ -106,6 +115,9 @@ --         , responsePutJobFailureResult $ --             putJobFailureResultResponse --+--         , responsePutApprovalResult $+--             putApprovalResultResponse+-- --         , responseAcknowledgeThirdPartyJob $ --             acknowledgeThirdPartyJobResponse --@@ -136,6 +148,12 @@ --         , responseListPipelines $ --             listPipelinesResponse --+--         , responseRetryStageExecution $+--             retryStageExecutionResponse+--+--         , responseGetPipelineExecution $+--             getPipelineExecutionResponse+-- --         , responsePutJobSuccessResult $ --             putJobSuccessResultResponse --@@ -184,6 +202,11 @@     "PutJobFailureResult"     "fixture/PutJobFailureResult.yaml" +requestPutApprovalResult :: PutApprovalResult -> TestTree+requestPutApprovalResult = req+    "PutApprovalResult"+    "fixture/PutApprovalResult.yaml"+ requestAcknowledgeThirdPartyJob :: AcknowledgeThirdPartyJob -> TestTree requestAcknowledgeThirdPartyJob = req     "AcknowledgeThirdPartyJob"@@ -234,6 +257,16 @@     "ListPipelines"     "fixture/ListPipelines.yaml" +requestRetryStageExecution :: RetryStageExecution -> TestTree+requestRetryStageExecution = req+    "RetryStageExecution"+    "fixture/RetryStageExecution.yaml"++requestGetPipelineExecution :: GetPipelineExecution -> TestTree+requestGetPipelineExecution = req+    "GetPipelineExecution"+    "fixture/GetPipelineExecution.yaml"+ requestPutJobSuccessResult :: PutJobSuccessResult -> TestTree requestPutJobSuccessResult = req     "PutJobSuccessResult"@@ -305,6 +338,13 @@     codePipeline     (Proxy :: Proxy PutJobFailureResult) +responsePutApprovalResult :: PutApprovalResultResponse -> TestTree+responsePutApprovalResult = res+    "PutApprovalResultResponse"+    "fixture/PutApprovalResultResponse.proto"+    codePipeline+    (Proxy :: Proxy PutApprovalResult)+ responseAcknowledgeThirdPartyJob :: AcknowledgeThirdPartyJobResponse -> TestTree responseAcknowledgeThirdPartyJob = res     "AcknowledgeThirdPartyJobResponse"@@ -374,6 +414,20 @@     "fixture/ListPipelinesResponse.proto"     codePipeline     (Proxy :: Proxy ListPipelines)++responseRetryStageExecution :: RetryStageExecutionResponse -> TestTree+responseRetryStageExecution = res+    "RetryStageExecutionResponse"+    "fixture/RetryStageExecutionResponse.proto"+    codePipeline+    (Proxy :: Proxy RetryStageExecution)++responseGetPipelineExecution :: GetPipelineExecutionResponse -> TestTree+responseGetPipelineExecution = res+    "GetPipelineExecutionResponse"+    "fixture/GetPipelineExecutionResponse.proto"+    codePipeline+    (Proxy :: Proxy GetPipelineExecution)  responsePutJobSuccessResult :: PutJobSuccessResultResponse -> TestTree responsePutJobSuccessResult = res