amazonka-codepipeline 1.2.0.2 → 1.3.0

raw patch · 22 files changed

+493/−332 lines, 22 filesdep ~amazonka-codepipelinedep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +7/−2
• amazonka-codepipeline.cabal +11/−6
• gen/Network/AWS/CodePipeline.hs +42/−25
• gen/Network/AWS/CodePipeline/AcknowledgeJob.hs +19/−9
• gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs +18/−9
• gen/Network/AWS/CodePipeline/CreateCustomActionType.hs +9/−9
• gen/Network/AWS/CodePipeline/CreatePipeline.hs +9/−9
• gen/Network/AWS/CodePipeline/GetJobDetails.hs +9/−9
• gen/Network/AWS/CodePipeline/GetPipeline.hs +9/−9
• gen/Network/AWS/CodePipeline/GetPipelineState.hs +22/−22
• gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs +9/−9
• gen/Network/AWS/CodePipeline/ListActionTypes.hs +10/−10
• gen/Network/AWS/CodePipeline/ListPipelines.hs +10/−10
• gen/Network/AWS/CodePipeline/PollForJobs.hs +9/−9
• gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs +9/−9
• gen/Network/AWS/CodePipeline/PutActionRevision.hs +8/−8
• gen/Network/AWS/CodePipeline/StartPipelineExecution.hs +8/−8
• gen/Network/AWS/CodePipeline/Types.hs +34/−22
• gen/Network/AWS/CodePipeline/Types/Product.hs +145/−67
• gen/Network/AWS/CodePipeline/Types/Sum.hs +25/−0
• gen/Network/AWS/CodePipeline/UpdatePipeline.hs +9/−9
• test/Test/AWS/Gen/CodePipeline.hs +62/−62

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description@@ -50,7 +50,9 @@ 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.+pipeline, including the stages of that pipeline. For more information+about the structure of stages and actions, also refer to the AWS+CodePipeline Pipeline Structure Reference.  Pipeline stages include /actions/, which are categorized into categories such as source or build actions performed within a stage of a pipeline.@@ -85,6 +87,7 @@      -   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,@@ -98,6 +101,8 @@      -   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

@@ -1,5 +1,5 @@ name:                  amazonka-codepipeline-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon CodePipeline SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -50,7 +50,9 @@     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.+    pipeline, including the stages of that pipeline. For more information+    about the structure of stages and actions, also refer to the AWS+    CodePipeline Pipeline Structure Reference.      Pipeline stages include /actions/, which are categorized into categories     such as source or build actions performed within a stage of a pipeline.@@ -85,6 +87,7 @@          -   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,@@ -98,6 +101,8 @@          -   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@@ -162,7 +167,7 @@         , Network.AWS.CodePipeline.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-codepipeline-test@@ -182,9 +187,9 @@         , Test.AWS.CodePipeline.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-codepipeline == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-codepipeline == 1.3.0.*         , base         , bytestring         , lens

@@ -48,7 +48,9 @@ -- 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.+-- pipeline, including the stages of that pipeline. For more information+-- about the structure of stages and actions, also refer to the AWS+-- CodePipeline Pipeline Structure Reference. -- -- Pipeline stages include /actions/, which are categorized into categories -- such as source or build actions performed within a stage of a pipeline.@@ -83,6 +85,7 @@ -- --     -   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,@@ -96,6 +99,8 @@ -- --     -   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@@ -112,12 +117,12 @@     -- * Errors     -- $errors -    -- ** ValidationException-    , _ValidationException-     -- ** InvalidClientTokenException     , _InvalidClientTokenException +    -- ** ValidationException+    , _ValidationException+     -- ** InvalidNonceException     , _InvalidNonceException @@ -151,18 +156,18 @@     -- ** StageNotFoundException     , _StageNotFoundException -    -- ** JobNotFoundException-    , _JobNotFoundException-     -- ** InvalidStructureException     , _InvalidStructureException -    -- ** PipelineNotFoundException-    , _PipelineNotFoundException+    -- ** JobNotFoundException+    , _JobNotFoundException      -- ** PipelineNameInUseException     , _PipelineNameInUseException +    -- ** PipelineNotFoundException+    , _PipelineNotFoundException+     -- ** LimitExceededException     , _LimitExceededException @@ -208,39 +213,39 @@     -- ** ListPipelines     , module Network.AWS.CodePipeline.ListPipelines +    -- ** PutJobSuccessResult+    , module Network.AWS.CodePipeline.PutJobSuccessResult+     -- ** DeleteCustomActionType     , module Network.AWS.CodePipeline.DeleteCustomActionType      -- ** PutActionRevision     , module Network.AWS.CodePipeline.PutActionRevision -    -- ** PutJobSuccessResult-    , module Network.AWS.CodePipeline.PutJobSuccessResult+    -- ** DisableStageTransition+    , module Network.AWS.CodePipeline.DisableStageTransition      -- ** ListActionTypes     , module Network.AWS.CodePipeline.ListActionTypes -    -- ** DisableStageTransition-    , module Network.AWS.CodePipeline.DisableStageTransition-     -- ** AcknowledgeJob     , module Network.AWS.CodePipeline.AcknowledgeJob      -- ** EnableStageTransition     , module Network.AWS.CodePipeline.EnableStageTransition -    -- ** GetThirdPartyJobDetails-    , module Network.AWS.CodePipeline.GetThirdPartyJobDetails-     -- ** CreatePipeline     , module Network.AWS.CodePipeline.CreatePipeline -    -- ** CreateCustomActionType-    , module Network.AWS.CodePipeline.CreateCustomActionType+    -- ** GetThirdPartyJobDetails+    , module Network.AWS.CodePipeline.GetThirdPartyJobDetails      -- ** PutThirdPartyJobSuccessResult     , module Network.AWS.CodePipeline.PutThirdPartyJobSuccessResult +    -- ** CreateCustomActionType+    , module Network.AWS.CodePipeline.CreateCustomActionType+     -- * Types      -- ** ActionCategory@@ -264,6 +269,9 @@     -- ** BlockerType     , BlockerType (..) +    -- ** EncryptionKeyType+    , EncryptionKeyType (..)+     -- ** FailureType     , FailureType (..) @@ -319,9 +327,9 @@     , aeStatus     , aeLastStatusChange     , aeExternalExecutionURL-    , aePercentComplete-    , aeErrorDetails     , aeExternalExecutionId+    , aeErrorDetails+    , aePercentComplete      -- ** ActionRevision     , ActionRevision@@ -333,8 +341,8 @@     -- ** ActionState     , ActionState     , actionState-    , asEntityURL     , asRevisionURL+    , asEntityURL     , asActionName     , asCurrentRevision     , asLatestExecution@@ -361,8 +369,8 @@     , actionTypeSettings     , atsThirdPartyConfigurationURL     , atsExecutionURLTemplate-    , atsEntityURLTemplate     , atsRevisionURLTemplate+    , atsEntityURLTemplate      -- ** Artifact     , Artifact@@ -386,6 +394,7 @@     -- ** ArtifactStore     , ArtifactStore     , artifactStore+    , asEncryptionKey     , asType     , asLocation @@ -401,6 +410,12 @@     , crRevision     , crChangeIdentifier +    -- ** EncryptionKey+    , EncryptionKey+    , encryptionKey+    , ekId+    , ekType+     -- ** ErrorDetails     , ErrorDetails     , errorDetails@@ -411,15 +426,15 @@     , ExecutionDetails     , executionDetails     , edSummary-    , edPercentComplete     , edExternalExecutionId+    , edPercentComplete      -- ** FailureDetails     , FailureDetails     , failureDetails     , fdExternalExecutionId-    , fdMessage     , fdType+    , fdMessage      -- ** InputArtifact     , InputArtifact@@ -441,6 +456,7 @@     , jdOutputArtifacts     , jdArtifactCredentials     , jdPipelineContext+    , jdEncryptionKey     , jdActionTypeId     , jdInputArtifacts     , jdActionConfiguration@@ -519,6 +535,7 @@     , tpjdOutputArtifacts     , tpjdArtifactCredentials     , tpjdPipelineContext+    , tpjdEncryptionKey     , tpjdActionTypeId     , tpjdInputArtifacts     , tpjdActionConfiguration

@@ -36,6 +36,7 @@     , AcknowledgeJobResponse     -- * Response Lenses     , ajrsStatus+    , ajrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -84,9 +85,10 @@         type Rs AcknowledgeJob = AcknowledgeJobResponse         request = postJSON codePipeline         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->-                 AcknowledgeJobResponse' <$> (pure (fromEnum s)))+                 AcknowledgeJobResponse' <$>+                   (x .?> "status") <*> (pure (fromEnum s)))  instance ToHeaders AcknowledgeJob where         toHeaders@@ -114,8 +116,9 @@ -- | Represents the output of an acknowledge job action. -- -- /See:/ 'acknowledgeJobResponse' smart constructor.-newtype AcknowledgeJobResponse = AcknowledgeJobResponse'-    { _ajrsStatus :: Int+data AcknowledgeJobResponse = AcknowledgeJobResponse'+    { _ajrsStatus         :: !(Maybe JobStatus)+    , _ajrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AcknowledgeJobResponse' with the minimum fields required to make a request.@@ -123,14 +126,21 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'ajrsStatus'+--+-- * 'ajrsResponseStatus' acknowledgeJobResponse-    :: Int -- ^ 'ajrsStatus'+    :: Int -- ^ 'ajrsResponseStatus'     -> AcknowledgeJobResponse-acknowledgeJobResponse pStatus_ =+acknowledgeJobResponse pResponseStatus_ =     AcknowledgeJobResponse'-    { _ajrsStatus = pStatus_+    { _ajrsStatus = Nothing+    , _ajrsResponseStatus = pResponseStatus_     } --- | The response status code.-ajrsStatus :: Lens' AcknowledgeJobResponse Int+-- | Whether the job worker has received the specified job.+ajrsStatus :: Lens' AcknowledgeJobResponse (Maybe JobStatus) ajrsStatus = lens _ajrsStatus (\ s a -> s{_ajrsStatus = a});++-- | The response status code.+ajrsResponseStatus :: Lens' AcknowledgeJobResponse Int+ajrsResponseStatus = lens _ajrsResponseStatus (\ s a -> s{_ajrsResponseStatus = a});

@@ -37,6 +37,7 @@     , AcknowledgeThirdPartyJobResponse     -- * Response Lenses     , atpjrsStatus+    , atpjrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -96,10 +97,10 @@              AcknowledgeThirdPartyJobResponse         request = postJSON codePipeline         response-          = receiveEmpty+          = receiveJSON               (\ s h x ->                  AcknowledgeThirdPartyJobResponse' <$>-                   (pure (fromEnum s)))+                   (x .?> "status") <*> (pure (fromEnum s)))  instance ToHeaders AcknowledgeThirdPartyJob where         toHeaders@@ -128,8 +129,9 @@ -- | Represents the output of an acknowledge third party job action. -- -- /See:/ 'acknowledgeThirdPartyJobResponse' smart constructor.-newtype AcknowledgeThirdPartyJobResponse = AcknowledgeThirdPartyJobResponse'-    { _atpjrsStatus :: Int+data AcknowledgeThirdPartyJobResponse = AcknowledgeThirdPartyJobResponse'+    { _atpjrsStatus         :: !(Maybe JobStatus)+    , _atpjrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AcknowledgeThirdPartyJobResponse' with the minimum fields required to make a request.@@ -137,14 +139,21 @@ -- Use one of the following lenses to modify other fields as desired: -- -- * 'atpjrsStatus'+--+-- * 'atpjrsResponseStatus' acknowledgeThirdPartyJobResponse-    :: Int -- ^ 'atpjrsStatus'+    :: Int -- ^ 'atpjrsResponseStatus'     -> AcknowledgeThirdPartyJobResponse-acknowledgeThirdPartyJobResponse pStatus_ =+acknowledgeThirdPartyJobResponse pResponseStatus_ =     AcknowledgeThirdPartyJobResponse'-    { _atpjrsStatus = pStatus_+    { _atpjrsStatus = Nothing+    , _atpjrsResponseStatus = pResponseStatus_     } --- | The response status code.-atpjrsStatus :: Lens' AcknowledgeThirdPartyJobResponse Int+-- | The status information for the third party job, if any.+atpjrsStatus :: Lens' AcknowledgeThirdPartyJobResponse (Maybe JobStatus) atpjrsStatus = lens _atpjrsStatus (\ s a -> s{_atpjrsStatus = a});++-- | The response status code.+atpjrsResponseStatus :: Lens' AcknowledgeThirdPartyJobResponse Int+atpjrsResponseStatus = lens _atpjrsResponseStatus (\ s a -> s{_atpjrsResponseStatus = a});

@@ -40,7 +40,7 @@     , createCustomActionTypeResponse     , CreateCustomActionTypeResponse     -- * Response Lenses-    , ccatrsStatus+    , ccatrsResponseStatus     , ccatrsActionType     ) where @@ -178,30 +178,30 @@ -- -- /See:/ 'createCustomActionTypeResponse' smart constructor. data CreateCustomActionTypeResponse = CreateCustomActionTypeResponse'-    { _ccatrsStatus     :: !Int-    , _ccatrsActionType :: !ActionType+    { _ccatrsResponseStatus :: !Int+    , _ccatrsActionType     :: !ActionType     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCustomActionTypeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccatrsStatus'+-- * 'ccatrsResponseStatus' -- -- * 'ccatrsActionType' createCustomActionTypeResponse-    :: Int -- ^ 'ccatrsStatus'+    :: Int -- ^ 'ccatrsResponseStatus'     -> ActionType -- ^ 'ccatrsActionType'     -> CreateCustomActionTypeResponse-createCustomActionTypeResponse pStatus_ pActionType_ =+createCustomActionTypeResponse pResponseStatus_ pActionType_ =     CreateCustomActionTypeResponse'-    { _ccatrsStatus = pStatus_+    { _ccatrsResponseStatus = pResponseStatus_     , _ccatrsActionType = pActionType_     }  -- | The response status code.-ccatrsStatus :: Lens' CreateCustomActionTypeResponse Int-ccatrsStatus = lens _ccatrsStatus (\ s a -> s{_ccatrsStatus = a});+ccatrsResponseStatus :: Lens' CreateCustomActionTypeResponse Int+ccatrsResponseStatus = lens _ccatrsResponseStatus (\ s a -> s{_ccatrsResponseStatus = a});  -- | Undocumented member. ccatrsActionType :: Lens' CreateCustomActionTypeResponse ActionType

@@ -34,7 +34,7 @@     , CreatePipelineResponse     -- * Response Lenses     , cprsPipeline-    , cprsStatus+    , cprsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -101,8 +101,8 @@ -- -- /See:/ 'createPipelineResponse' smart constructor. data CreatePipelineResponse = CreatePipelineResponse'-    { _cprsPipeline :: !(Maybe PipelineDeclaration)-    , _cprsStatus   :: !Int+    { _cprsPipeline       :: !(Maybe PipelineDeclaration)+    , _cprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreatePipelineResponse' with the minimum fields required to make a request.@@ -111,14 +111,14 @@ -- -- * 'cprsPipeline' ----- * 'cprsStatus'+-- * 'cprsResponseStatus' createPipelineResponse-    :: Int -- ^ 'cprsStatus'+    :: Int -- ^ 'cprsResponseStatus'     -> CreatePipelineResponse-createPipelineResponse pStatus_ =+createPipelineResponse pResponseStatus_ =     CreatePipelineResponse'     { _cprsPipeline = Nothing-    , _cprsStatus = pStatus_+    , _cprsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -126,5 +126,5 @@ cprsPipeline = lens _cprsPipeline (\ s a -> s{_cprsPipeline = a});  -- | The response status code.-cprsStatus :: Lens' CreatePipelineResponse Int-cprsStatus = lens _cprsStatus (\ s a -> s{_cprsStatus = a});+cprsResponseStatus :: Lens' CreatePipelineResponse Int+cprsResponseStatus = lens _cprsResponseStatus (\ s a -> s{_cprsResponseStatus = a});

@@ -40,7 +40,7 @@     , GetJobDetailsResponse     -- * Response Lenses     , gjdrsJobDetails-    , gjdrsStatus+    , gjdrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -106,8 +106,8 @@ -- -- /See:/ 'getJobDetailsResponse' smart constructor. data GetJobDetailsResponse = GetJobDetailsResponse'-    { _gjdrsJobDetails :: !(Maybe JobDetails)-    , _gjdrsStatus     :: !Int+    { _gjdrsJobDetails     :: !(Maybe JobDetails)+    , _gjdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetJobDetailsResponse' with the minimum fields required to make a request.@@ -116,14 +116,14 @@ -- -- * 'gjdrsJobDetails' ----- * 'gjdrsStatus'+-- * 'gjdrsResponseStatus' getJobDetailsResponse-    :: Int -- ^ 'gjdrsStatus'+    :: Int -- ^ 'gjdrsResponseStatus'     -> GetJobDetailsResponse-getJobDetailsResponse pStatus_ =+getJobDetailsResponse pResponseStatus_ =     GetJobDetailsResponse'     { _gjdrsJobDetails = Nothing-    , _gjdrsStatus = pStatus_+    , _gjdrsResponseStatus = pResponseStatus_     }  -- | The details of the job.@@ -134,5 +134,5 @@ gjdrsJobDetails = lens _gjdrsJobDetails (\ s a -> s{_gjdrsJobDetails = a});  -- | The response status code.-gjdrsStatus :: Lens' GetJobDetailsResponse Int-gjdrsStatus = lens _gjdrsStatus (\ s a -> s{_gjdrsStatus = a});+gjdrsResponseStatus :: Lens' GetJobDetailsResponse Int+gjdrsResponseStatus = lens _gjdrsResponseStatus (\ s a -> s{_gjdrsResponseStatus = a});

@@ -38,7 +38,7 @@     , GetPipelineResponse     -- * Response Lenses     , gprsPipeline-    , gprsStatus+    , gprsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -116,8 +116,8 @@ -- -- /See:/ 'getPipelineResponse' smart constructor. data GetPipelineResponse = GetPipelineResponse'-    { _gprsPipeline :: !(Maybe PipelineDeclaration)-    , _gprsStatus   :: !Int+    { _gprsPipeline       :: !(Maybe PipelineDeclaration)+    , _gprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetPipelineResponse' with the minimum fields required to make a request.@@ -126,14 +126,14 @@ -- -- * 'gprsPipeline' ----- * 'gprsStatus'+-- * 'gprsResponseStatus' getPipelineResponse-    :: Int -- ^ 'gprsStatus'+    :: Int -- ^ 'gprsResponseStatus'     -> GetPipelineResponse-getPipelineResponse pStatus_ =+getPipelineResponse pResponseStatus_ =     GetPipelineResponse'     { _gprsPipeline = Nothing-    , _gprsStatus = pStatus_+    , _gprsResponseStatus = pResponseStatus_     }  -- | Undocumented member.@@ -141,5 +141,5 @@ gprsPipeline = lens _gprsPipeline (\ s a -> s{_gprsPipeline = a});  -- | The response status code.-gprsStatus :: Lens' GetPipelineResponse Int-gprsStatus = lens _gprsStatus (\ s a -> s{_gprsStatus = a});+gprsResponseStatus :: Lens' GetPipelineResponse Int+gprsResponseStatus = lens _gprsResponseStatus (\ s a -> s{_gprsResponseStatus = a});

@@ -35,11 +35,11 @@     , GetPipelineStateResponse     -- * Response Lenses     , gpsrsPipelineName-    , gpsrsPipelineVersion     , gpsrsCreated     , gpsrsStageStates+    , gpsrsPipelineVersion     , gpsrsUpdated-    , gpsrsStatus+    , gpsrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -79,9 +79,9 @@           = receiveJSON               (\ s h x ->                  GetPipelineStateResponse' <$>-                   (x .?> "pipelineName") <*> (x .?> "pipelineVersion")-                     <*> (x .?> "created")-                     <*> (x .?> "stageStates" .!@ mempty)+                   (x .?> "pipelineName") <*> (x .?> "created") <*>+                     (x .?> "stageStates" .!@ mempty)+                     <*> (x .?> "pipelineVersion")                      <*> (x .?> "updated")                      <*> (pure (fromEnum s))) @@ -110,11 +110,11 @@ -- /See:/ 'getPipelineStateResponse' smart constructor. data GetPipelineStateResponse = GetPipelineStateResponse'     { _gpsrsPipelineName    :: !(Maybe Text)-    , _gpsrsPipelineVersion :: !(Maybe Nat)     , _gpsrsCreated         :: !(Maybe POSIX)     , _gpsrsStageStates     :: !(Maybe [StageState])+    , _gpsrsPipelineVersion :: !(Maybe Nat)     , _gpsrsUpdated         :: !(Maybe POSIX)-    , _gpsrsStatus          :: !Int+    , _gpsrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetPipelineStateResponse' with the minimum fields required to make a request.@@ -123,38 +123,32 @@ -- -- * 'gpsrsPipelineName' ----- * 'gpsrsPipelineVersion'--- -- * 'gpsrsCreated' -- -- * 'gpsrsStageStates' --+-- * 'gpsrsPipelineVersion'+-- -- * 'gpsrsUpdated' ----- * 'gpsrsStatus'+-- * 'gpsrsResponseStatus' getPipelineStateResponse-    :: Int -- ^ 'gpsrsStatus'+    :: Int -- ^ 'gpsrsResponseStatus'     -> GetPipelineStateResponse-getPipelineStateResponse pStatus_ =+getPipelineStateResponse pResponseStatus_ =     GetPipelineStateResponse'     { _gpsrsPipelineName = Nothing-    , _gpsrsPipelineVersion = Nothing     , _gpsrsCreated = Nothing     , _gpsrsStageStates = Nothing+    , _gpsrsPipelineVersion = Nothing     , _gpsrsUpdated = Nothing-    , _gpsrsStatus = pStatus_+    , _gpsrsResponseStatus = pResponseStatus_     }  -- | The name of the pipeline for which you want to get the state. gpsrsPipelineName :: Lens' GetPipelineStateResponse (Maybe Text) gpsrsPipelineName = lens _gpsrsPipelineName (\ s a -> s{_gpsrsPipelineName = a}); --- | The version number of the pipeline.------ A newly-created pipeline is always assigned a version number of '1'.-gpsrsPipelineVersion :: Lens' GetPipelineStateResponse (Maybe Natural)-gpsrsPipelineVersion = lens _gpsrsPipelineVersion (\ s a -> s{_gpsrsPipelineVersion = a}) . mapping _Nat;- -- | The date and time the pipeline was created, in timestamp format. gpsrsCreated :: Lens' GetPipelineStateResponse (Maybe UTCTime) gpsrsCreated = lens _gpsrsCreated (\ s a -> s{_gpsrsCreated = a}) . mapping _Time;@@ -165,10 +159,16 @@ gpsrsStageStates :: Lens' GetPipelineStateResponse [StageState] gpsrsStageStates = lens _gpsrsStageStates (\ s a -> s{_gpsrsStageStates = a}) . _Default . _Coerce; +-- | The version number of the pipeline.+--+-- A newly-created pipeline is always assigned a version number of '1'.+gpsrsPipelineVersion :: Lens' GetPipelineStateResponse (Maybe Natural)+gpsrsPipelineVersion = lens _gpsrsPipelineVersion (\ s a -> s{_gpsrsPipelineVersion = a}) . mapping _Nat;+ -- | The date and time the pipeline was last updated, in timestamp format. gpsrsUpdated :: Lens' GetPipelineStateResponse (Maybe UTCTime) gpsrsUpdated = lens _gpsrsUpdated (\ s a -> s{_gpsrsUpdated = a}) . mapping _Time;  -- | The response status code.-gpsrsStatus :: Lens' GetPipelineStateResponse Int-gpsrsStatus = lens _gpsrsStatus (\ s a -> s{_gpsrsStatus = a});+gpsrsResponseStatus :: Lens' GetPipelineStateResponse Int+gpsrsResponseStatus = lens _gpsrsResponseStatus (\ s a -> s{_gpsrsResponseStatus = a});

@@ -42,7 +42,7 @@     , GetThirdPartyJobDetailsResponse     -- * Response Lenses     , gtpjdrsJobDetails-    , gtpjdrsStatus+    , gtpjdrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -123,8 +123,8 @@ -- -- /See:/ 'getThirdPartyJobDetailsResponse' smart constructor. data GetThirdPartyJobDetailsResponse = GetThirdPartyJobDetailsResponse'-    { _gtpjdrsJobDetails :: !(Maybe ThirdPartyJobDetails)-    , _gtpjdrsStatus     :: !Int+    { _gtpjdrsJobDetails     :: !(Maybe ThirdPartyJobDetails)+    , _gtpjdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetThirdPartyJobDetailsResponse' with the minimum fields required to make a request.@@ -133,14 +133,14 @@ -- -- * 'gtpjdrsJobDetails' ----- * 'gtpjdrsStatus'+-- * 'gtpjdrsResponseStatus' getThirdPartyJobDetailsResponse-    :: Int -- ^ 'gtpjdrsStatus'+    :: Int -- ^ 'gtpjdrsResponseStatus'     -> GetThirdPartyJobDetailsResponse-getThirdPartyJobDetailsResponse pStatus_ =+getThirdPartyJobDetailsResponse pResponseStatus_ =     GetThirdPartyJobDetailsResponse'     { _gtpjdrsJobDetails = Nothing-    , _gtpjdrsStatus = pStatus_+    , _gtpjdrsResponseStatus = pResponseStatus_     }  -- | The details of the job, including any protected values defined for the@@ -149,5 +149,5 @@ gtpjdrsJobDetails = lens _gtpjdrsJobDetails (\ s a -> s{_gtpjdrsJobDetails = a});  -- | The response status code.-gtpjdrsStatus :: Lens' GetThirdPartyJobDetailsResponse Int-gtpjdrsStatus = lens _gtpjdrsStatus (\ s a -> s{_gtpjdrsStatus = a});+gtpjdrsResponseStatus :: Lens' GetThirdPartyJobDetailsResponse Int+gtpjdrsResponseStatus = lens _gtpjdrsResponseStatus (\ s a -> s{_gtpjdrsResponseStatus = a});

@@ -36,7 +36,7 @@     , ListActionTypesResponse     -- * Response Lenses     , latrsNextToken-    , latrsStatus+    , latrsResponseStatus     , latrsActionTypes     ) where @@ -116,9 +116,9 @@ -- -- /See:/ 'listActionTypesResponse' smart constructor. data ListActionTypesResponse = ListActionTypesResponse'-    { _latrsNextToken   :: !(Maybe Text)-    , _latrsStatus      :: !Int-    , _latrsActionTypes :: ![ActionType]+    { _latrsNextToken      :: !(Maybe Text)+    , _latrsResponseStatus :: !Int+    , _latrsActionTypes    :: ![ActionType]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListActionTypesResponse' with the minimum fields required to make a request.@@ -127,16 +127,16 @@ -- -- * 'latrsNextToken' ----- * 'latrsStatus'+-- * 'latrsResponseStatus' -- -- * 'latrsActionTypes' listActionTypesResponse-    :: Int -- ^ 'latrsStatus'+    :: Int -- ^ 'latrsResponseStatus'     -> ListActionTypesResponse-listActionTypesResponse pStatus_ =+listActionTypesResponse pResponseStatus_ =     ListActionTypesResponse'     { _latrsNextToken = Nothing-    , _latrsStatus = pStatus_+    , _latrsResponseStatus = pResponseStatus_     , _latrsActionTypes = mempty     } @@ -147,8 +147,8 @@ latrsNextToken = lens _latrsNextToken (\ s a -> s{_latrsNextToken = a});  -- | The response status code.-latrsStatus :: Lens' ListActionTypesResponse Int-latrsStatus = lens _latrsStatus (\ s a -> s{_latrsStatus = a});+latrsResponseStatus :: Lens' ListActionTypesResponse Int+latrsResponseStatus = lens _latrsResponseStatus (\ s a -> s{_latrsResponseStatus = a});  -- | Provides details of the action types. latrsActionTypes :: Lens' ListActionTypesResponse [ActionType]

@@ -35,7 +35,7 @@     -- * Response Lenses     , lprsPipelines     , lprsNextToken-    , lprsStatus+    , lprsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -104,9 +104,9 @@ -- -- /See:/ 'listPipelinesResponse' smart constructor. data ListPipelinesResponse = ListPipelinesResponse'-    { _lprsPipelines :: !(Maybe [PipelineSummary])-    , _lprsNextToken :: !(Maybe Text)-    , _lprsStatus    :: !Int+    { _lprsPipelines      :: !(Maybe [PipelineSummary])+    , _lprsNextToken      :: !(Maybe Text)+    , _lprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListPipelinesResponse' with the minimum fields required to make a request.@@ -117,15 +117,15 @@ -- -- * 'lprsNextToken' ----- * 'lprsStatus'+-- * 'lprsResponseStatus' listPipelinesResponse-    :: Int -- ^ 'lprsStatus'+    :: Int -- ^ 'lprsResponseStatus'     -> ListPipelinesResponse-listPipelinesResponse pStatus_ =+listPipelinesResponse pResponseStatus_ =     ListPipelinesResponse'     { _lprsPipelines = Nothing     , _lprsNextToken = Nothing-    , _lprsStatus = pStatus_+    , _lprsResponseStatus = pResponseStatus_     }  -- | The list of pipelines.@@ -139,5 +139,5 @@ lprsNextToken = lens _lprsNextToken (\ s a -> s{_lprsNextToken = a});  -- | The response status code.-lprsStatus :: Lens' ListPipelinesResponse Int-lprsStatus = lens _lprsStatus (\ s a -> s{_lprsStatus = a});+lprsResponseStatus :: Lens' ListPipelinesResponse Int+lprsResponseStatus = lens _lprsResponseStatus (\ s a -> s{_lprsResponseStatus = a});

@@ -42,7 +42,7 @@     , PollForJobsResponse     -- * Response Lenses     , pfjrsJobs-    , pfjrsStatus+    , pfjrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -131,8 +131,8 @@ -- -- /See:/ 'pollForJobsResponse' smart constructor. data PollForJobsResponse = PollForJobsResponse'-    { _pfjrsJobs   :: !(Maybe [Job])-    , _pfjrsStatus :: !Int+    { _pfjrsJobs           :: !(Maybe [Job])+    , _pfjrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PollForJobsResponse' with the minimum fields required to make a request.@@ -141,14 +141,14 @@ -- -- * 'pfjrsJobs' ----- * 'pfjrsStatus'+-- * 'pfjrsResponseStatus' pollForJobsResponse-    :: Int -- ^ 'pfjrsStatus'+    :: Int -- ^ 'pfjrsResponseStatus'     -> PollForJobsResponse-pollForJobsResponse pStatus_ =+pollForJobsResponse pResponseStatus_ =     PollForJobsResponse'     { _pfjrsJobs = Nothing-    , _pfjrsStatus = pStatus_+    , _pfjrsResponseStatus = pResponseStatus_     }  -- | Information about the jobs to take action on.@@ -156,5 +156,5 @@ pfjrsJobs = lens _pfjrsJobs (\ s a -> s{_pfjrsJobs = a}) . _Default . _Coerce;  -- | The response status code.-pfjrsStatus :: Lens' PollForJobsResponse Int-pfjrsStatus = lens _pfjrsStatus (\ s a -> s{_pfjrsStatus = a});+pfjrsResponseStatus :: Lens' PollForJobsResponse Int+pfjrsResponseStatus = lens _pfjrsResponseStatus (\ s a -> s{_pfjrsResponseStatus = a});

@@ -41,7 +41,7 @@     , PollForThirdPartyJobsResponse     -- * Response Lenses     , pftpjrsJobs-    , pftpjrsStatus+    , pftpjrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -119,8 +119,8 @@ -- -- /See:/ 'pollForThirdPartyJobsResponse' smart constructor. data PollForThirdPartyJobsResponse = PollForThirdPartyJobsResponse'-    { _pftpjrsJobs   :: !(Maybe [ThirdPartyJob])-    , _pftpjrsStatus :: !Int+    { _pftpjrsJobs           :: !(Maybe [ThirdPartyJob])+    , _pftpjrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PollForThirdPartyJobsResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'pftpjrsJobs' ----- * 'pftpjrsStatus'+-- * 'pftpjrsResponseStatus' pollForThirdPartyJobsResponse-    :: Int -- ^ 'pftpjrsStatus'+    :: Int -- ^ 'pftpjrsResponseStatus'     -> PollForThirdPartyJobsResponse-pollForThirdPartyJobsResponse pStatus_ =+pollForThirdPartyJobsResponse pResponseStatus_ =     PollForThirdPartyJobsResponse'     { _pftpjrsJobs = Nothing-    , _pftpjrsStatus = pStatus_+    , _pftpjrsResponseStatus = pResponseStatus_     }  -- | Information about the jobs to take action on.@@ -144,5 +144,5 @@ pftpjrsJobs = lens _pftpjrsJobs (\ s a -> s{_pftpjrsJobs = a}) . _Default . _Coerce;  -- | The response status code.-pftpjrsStatus :: Lens' PollForThirdPartyJobsResponse Int-pftpjrsStatus = lens _pftpjrsStatus (\ s a -> s{_pftpjrsStatus = a});+pftpjrsResponseStatus :: Lens' PollForThirdPartyJobsResponse Int+pftpjrsResponseStatus = lens _pftpjrsResponseStatus (\ s a -> s{_pftpjrsResponseStatus = a});

@@ -39,7 +39,7 @@     -- * Response Lenses     , parrsNewRevision     , parrsPipelineExecutionId-    , parrsStatus+    , parrsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -143,7 +143,7 @@ data PutActionRevisionResponse = PutActionRevisionResponse'     { _parrsNewRevision         :: !(Maybe Bool)     , _parrsPipelineExecutionId :: !(Maybe Text)-    , _parrsStatus              :: !Int+    , _parrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PutActionRevisionResponse' with the minimum fields required to make a request.@@ -154,15 +154,15 @@ -- -- * 'parrsPipelineExecutionId' ----- * 'parrsStatus'+-- * 'parrsResponseStatus' putActionRevisionResponse-    :: Int -- ^ 'parrsStatus'+    :: Int -- ^ 'parrsResponseStatus'     -> PutActionRevisionResponse-putActionRevisionResponse pStatus_ =+putActionRevisionResponse pResponseStatus_ =     PutActionRevisionResponse'     { _parrsNewRevision = Nothing     , _parrsPipelineExecutionId = Nothing-    , _parrsStatus = pStatus_+    , _parrsResponseStatus = pResponseStatus_     }  -- | The new revision number or ID for the revision after the action@@ -175,5 +175,5 @@ parrsPipelineExecutionId = lens _parrsPipelineExecutionId (\ s a -> s{_parrsPipelineExecutionId = a});  -- | The response status code.-parrsStatus :: Lens' PutActionRevisionResponse Int-parrsStatus = lens _parrsStatus (\ s a -> s{_parrsStatus = a});+parrsResponseStatus :: Lens' PutActionRevisionResponse Int+parrsResponseStatus = lens _parrsResponseStatus (\ s a -> s{_parrsResponseStatus = a});

@@ -35,7 +35,7 @@     , StartPipelineExecutionResponse     -- * Response Lenses     , spersPipelineExecutionId-    , spersStatus+    , spersResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -104,7 +104,7 @@ -- /See:/ 'startPipelineExecutionResponse' smart constructor. data StartPipelineExecutionResponse = StartPipelineExecutionResponse'     { _spersPipelineExecutionId :: !(Maybe Text)-    , _spersStatus              :: !Int+    , _spersResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'StartPipelineExecutionResponse' with the minimum fields required to make a request.@@ -113,14 +113,14 @@ -- -- * 'spersPipelineExecutionId' ----- * 'spersStatus'+-- * 'spersResponseStatus' startPipelineExecutionResponse-    :: Int -- ^ 'spersStatus'+    :: Int -- ^ 'spersResponseStatus'     -> StartPipelineExecutionResponse-startPipelineExecutionResponse pStatus_ =+startPipelineExecutionResponse pResponseStatus_ =     StartPipelineExecutionResponse'     { _spersPipelineExecutionId = Nothing-    , _spersStatus = pStatus_+    , _spersResponseStatus = pResponseStatus_     }  -- | The unique system-generated ID of the pipeline that was started.@@ -128,5 +128,5 @@ spersPipelineExecutionId = lens _spersPipelineExecutionId (\ s a -> s{_spersPipelineExecutionId = a});  -- | The response status code.-spersStatus :: Lens' StartPipelineExecutionResponse Int-spersStatus = lens _spersStatus (\ s a -> s{_spersStatus = a});+spersResponseStatus :: Lens' StartPipelineExecutionResponse Int+spersResponseStatus = lens _spersResponseStatus (\ s a -> s{_spersResponseStatus = a});

@@ -16,8 +16,8 @@       codePipeline      -- * Errors-    , _ValidationException     , _InvalidClientTokenException+    , _ValidationException     , _InvalidNonceException     , _ActionNotFoundException     , _InvalidBlockerDeclarationException@@ -29,10 +29,10 @@     , _InvalidStageDeclarationException     , _InvalidActionDeclarationException     , _StageNotFoundException-    , _JobNotFoundException     , _InvalidStructureException-    , _PipelineNotFoundException+    , _JobNotFoundException     , _PipelineNameInUseException+    , _PipelineNotFoundException     , _LimitExceededException      -- * ActionCategory@@ -56,6 +56,9 @@     -- * BlockerType     , BlockerType (..) +    -- * EncryptionKeyType+    , EncryptionKeyType (..)+     -- * FailureType     , FailureType (..) @@ -111,9 +114,9 @@     , aeStatus     , aeLastStatusChange     , aeExternalExecutionURL-    , aePercentComplete-    , aeErrorDetails     , aeExternalExecutionId+    , aeErrorDetails+    , aePercentComplete      -- * ActionRevision     , ActionRevision@@ -125,8 +128,8 @@     -- * ActionState     , ActionState     , actionState-    , asEntityURL     , asRevisionURL+    , asEntityURL     , asActionName     , asCurrentRevision     , asLatestExecution@@ -153,8 +156,8 @@     , actionTypeSettings     , atsThirdPartyConfigurationURL     , atsExecutionURLTemplate-    , atsEntityURLTemplate     , atsRevisionURLTemplate+    , atsEntityURLTemplate      -- * Artifact     , Artifact@@ -178,6 +181,7 @@     -- * ArtifactStore     , ArtifactStore     , artifactStore+    , asEncryptionKey     , asType     , asLocation @@ -193,6 +197,12 @@     , crRevision     , crChangeIdentifier +    -- * EncryptionKey+    , EncryptionKey+    , encryptionKey+    , ekId+    , ekType+     -- * ErrorDetails     , ErrorDetails     , errorDetails@@ -203,15 +213,15 @@     , ExecutionDetails     , executionDetails     , edSummary-    , edPercentComplete     , edExternalExecutionId+    , edPercentComplete      -- * FailureDetails     , FailureDetails     , failureDetails     , fdExternalExecutionId-    , fdMessage     , fdType+    , fdMessage      -- * InputArtifact     , InputArtifact@@ -233,6 +243,7 @@     , jdOutputArtifacts     , jdArtifactCredentials     , jdPipelineContext+    , jdEncryptionKey     , jdActionTypeId     , jdInputArtifacts     , jdActionConfiguration@@ -311,6 +322,7 @@     , tpjdOutputArtifacts     , tpjdArtifactCredentials     , tpjdPipelineContext+    , tpjdEncryptionKey     , tpjdActionTypeId     , tpjdInputArtifacts     , tpjdActionConfiguration@@ -367,15 +379,15 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | The validation was specified in an invalid format.-_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError-_ValidationException = _ServiceError . hasCode "ValidationException"- -- | The client token was specified in an invalid format _InvalidClientTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidClientTokenException =     _ServiceError . hasCode "InvalidClientTokenException" +-- | The validation was specified in an invalid format.+_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError+_ValidationException = _ServiceError . hasCode "ValidationException"+ -- | The specified nonce was specified in an invalid format. _InvalidNonceException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNonceException = _ServiceError . hasCode "InvalidNonceException"@@ -429,25 +441,25 @@ _StageNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _StageNotFoundException = _ServiceError . hasCode "StageNotFoundException" --- | The specified job was specified in an invalid format or cannot be found.-_JobNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_JobNotFoundException = _ServiceError . hasCode "JobNotFoundException"- -- | The specified structure was specified in an invalid format. _InvalidStructureException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidStructureException =     _ServiceError . hasCode "InvalidStructureException" --- | The specified pipeline was specified in an invalid format or cannot be--- found.-_PipelineNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError-_PipelineNotFoundException =-    _ServiceError . hasCode "PipelineNotFoundException"+-- | The specified job was specified in an invalid format or cannot be found.+_JobNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_JobNotFoundException = _ServiceError . hasCode "JobNotFoundException"  -- | The specified pipeline name is already in use. _PipelineNameInUseException :: AsError a => Getting (First ServiceError) a ServiceError _PipelineNameInUseException =     _ServiceError . hasCode "PipelineNameInUseException"++-- | The specified pipeline was specified in an invalid format or cannot be+-- found.+_PipelineNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_PipelineNotFoundException =+    _ServiceError . hasCode "PipelineNotFoundException"  -- | The number of pipelines associated with the AWS account has exceeded the -- limit allowed for the account.

@@ -355,9 +355,9 @@     , _aeStatus               :: !(Maybe ActionExecutionStatus)     , _aeLastStatusChange     :: !(Maybe POSIX)     , _aeExternalExecutionURL :: !(Maybe Text)-    , _aePercentComplete      :: !(Maybe Nat)-    , _aeErrorDetails         :: !(Maybe ErrorDetails)     , _aeExternalExecutionId  :: !(Maybe Text)+    , _aeErrorDetails         :: !(Maybe ErrorDetails)+    , _aePercentComplete      :: !(Maybe Nat)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ActionExecution' with the minimum fields required to make a request.@@ -372,11 +372,11 @@ -- -- * 'aeExternalExecutionURL' ----- * 'aePercentComplete'+-- * 'aeExternalExecutionId' -- -- * 'aeErrorDetails' ----- * 'aeExternalExecutionId'+-- * 'aePercentComplete' actionExecution     :: ActionExecution actionExecution =@@ -385,9 +385,9 @@     , _aeStatus = Nothing     , _aeLastStatusChange = Nothing     , _aeExternalExecutionURL = Nothing-    , _aePercentComplete = Nothing-    , _aeErrorDetails = Nothing     , _aeExternalExecutionId = Nothing+    , _aeErrorDetails = Nothing+    , _aePercentComplete = Nothing     }  -- | A summary of the run of the action.@@ -408,17 +408,17 @@ aeExternalExecutionURL :: Lens' ActionExecution (Maybe Text) aeExternalExecutionURL = lens _aeExternalExecutionURL (\ s a -> s{_aeExternalExecutionURL = a}); --- | A percentage of completeness of the action as it runs.-aePercentComplete :: Lens' ActionExecution (Maybe Natural)-aePercentComplete = lens _aePercentComplete (\ s a -> s{_aePercentComplete = a}) . mapping _Nat;+-- | The external ID of the run of the action.+aeExternalExecutionId :: Lens' ActionExecution (Maybe Text)+aeExternalExecutionId = lens _aeExternalExecutionId (\ s a -> s{_aeExternalExecutionId = a});  -- | The details of an error returned by a URL external to AWS. aeErrorDetails :: Lens' ActionExecution (Maybe ErrorDetails) aeErrorDetails = lens _aeErrorDetails (\ s a -> s{_aeErrorDetails = a}); --- | The external ID of the run of the action.-aeExternalExecutionId :: Lens' ActionExecution (Maybe Text)-aeExternalExecutionId = lens _aeExternalExecutionId (\ s a -> s{_aeExternalExecutionId = a});+-- | A percentage of completeness of the action as it runs.+aePercentComplete :: Lens' ActionExecution (Maybe Natural)+aePercentComplete = lens _aePercentComplete (\ s a -> s{_aePercentComplete = a}) . mapping _Nat;  instance FromJSON ActionExecution where         parseJSON@@ -428,9 +428,9 @@                    (x .:? "summary") <*> (x .:? "status") <*>                      (x .:? "lastStatusChange")                      <*> (x .:? "externalExecutionUrl")-                     <*> (x .:? "percentComplete")+                     <*> (x .:? "externalExecutionId")                      <*> (x .:? "errorDetails")-                     <*> (x .:? "externalExecutionId"))+                     <*> (x .:? "percentComplete"))  -- | Represents information about the version (or revision) of an action. --@@ -496,8 +496,8 @@ -- -- /See:/ 'actionState' smart constructor. data ActionState = ActionState'-    { _asEntityURL       :: !(Maybe Text)-    , _asRevisionURL     :: !(Maybe Text)+    { _asRevisionURL     :: !(Maybe Text)+    , _asEntityURL       :: !(Maybe Text)     , _asActionName      :: !(Maybe Text)     , _asCurrentRevision :: !(Maybe ActionRevision)     , _asLatestExecution :: !(Maybe ActionExecution)@@ -507,10 +507,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asEntityURL'--- -- * 'asRevisionURL' --+-- * 'asEntityURL'+-- -- * 'asActionName' -- -- * 'asCurrentRevision'@@ -520,23 +520,23 @@     :: ActionState actionState =     ActionState'-    { _asEntityURL = Nothing-    , _asRevisionURL = Nothing+    { _asRevisionURL = Nothing+    , _asEntityURL = Nothing     , _asActionName = Nothing     , _asCurrentRevision = Nothing     , _asLatestExecution = Nothing     } --- | A URL link for more information about the state of the action, such as a--- deployment group details page.-asEntityURL :: Lens' ActionState (Maybe Text)-asEntityURL = lens _asEntityURL (\ s a -> s{_asEntityURL = a});- -- | A URL link for more information about the revision, such as a commit -- details page. asRevisionURL :: Lens' ActionState (Maybe Text) asRevisionURL = lens _asRevisionURL (\ s a -> s{_asRevisionURL = a}); +-- | A URL link for more information about the state of the action, such as a+-- deployment group details page.+asEntityURL :: Lens' ActionState (Maybe Text)+asEntityURL = lens _asEntityURL (\ s a -> s{_asEntityURL = a});+ -- | The name of the action. asActionName :: Lens' ActionState (Maybe Text) asActionName = lens _asActionName (\ s a -> s{_asActionName = a});@@ -554,7 +554,7 @@           = withObject "ActionState"               (\ x ->                  ActionState' <$>-                   (x .:? "entityUrl") <*> (x .:? "revisionUrl") <*>+                   (x .:? "revisionUrl") <*> (x .:? "entityUrl") <*>                      (x .:? "actionName")                      <*> (x .:? "currentRevision")                      <*> (x .:? "latestExecution"))@@ -708,8 +708,8 @@ data ActionTypeSettings = ActionTypeSettings'     { _atsThirdPartyConfigurationURL :: !(Maybe Text)     , _atsExecutionURLTemplate       :: !(Maybe Text)-    , _atsEntityURLTemplate          :: !(Maybe Text)     , _atsRevisionURLTemplate        :: !(Maybe Text)+    , _atsEntityURLTemplate          :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ActionTypeSettings' with the minimum fields required to make a request.@@ -720,17 +720,17 @@ -- -- * 'atsExecutionURLTemplate' ----- * 'atsEntityURLTemplate'--- -- * 'atsRevisionURLTemplate'+--+-- * 'atsEntityURLTemplate' actionTypeSettings     :: ActionTypeSettings actionTypeSettings =     ActionTypeSettings'     { _atsThirdPartyConfigurationURL = Nothing     , _atsExecutionURLTemplate = Nothing-    , _atsEntityURLTemplate = Nothing     , _atsRevisionURLTemplate = Nothing+    , _atsEntityURLTemplate = Nothing     }  -- | The URL of a sign-up page where users can sign up for an external@@ -747,6 +747,12 @@ atsExecutionURLTemplate :: Lens' ActionTypeSettings (Maybe Text) atsExecutionURLTemplate = lens _atsExecutionURLTemplate (\ s a -> s{_atsExecutionURLTemplate = a}); +-- | The URL returned to the AWS CodePipeline console that contains a link to+-- the page where customers can update or change the configuration of the+-- external action.+atsRevisionURLTemplate :: Lens' ActionTypeSettings (Maybe Text)+atsRevisionURLTemplate = lens _atsRevisionURLTemplate (\ s a -> s{_atsRevisionURLTemplate = a});+ -- | The URL returned to the AWS CodePipeline console that provides a deep -- link to the resources of the external system, such as the configuration -- page for an AWS CodeDeploy deployment group. This link is provided as@@ -754,12 +760,6 @@ atsEntityURLTemplate :: Lens' ActionTypeSettings (Maybe Text) atsEntityURLTemplate = lens _atsEntityURLTemplate (\ s a -> s{_atsEntityURLTemplate = a}); --- | The URL returned to the AWS CodePipeline console that contains a link to--- the page where customers can update or change the configuration of the--- external action.-atsRevisionURLTemplate :: Lens' ActionTypeSettings (Maybe Text)-atsRevisionURLTemplate = lens _atsRevisionURLTemplate (\ s a -> s{_atsRevisionURLTemplate = a});- instance FromJSON ActionTypeSettings where         parseJSON           = withObject "ActionTypeSettings"@@ -767,8 +767,8 @@                  ActionTypeSettings' <$>                    (x .:? "thirdPartyConfigurationUrl") <*>                      (x .:? "executionUrlTemplate")-                     <*> (x .:? "entityUrlTemplate")-                     <*> (x .:? "revisionUrlTemplate"))+                     <*> (x .:? "revisionUrlTemplate")+                     <*> (x .:? "entityUrlTemplate"))  instance ToJSON ActionTypeSettings where         toJSON ActionTypeSettings'{..}@@ -778,9 +778,9 @@                     _atsThirdPartyConfigurationURL,                   ("executionUrlTemplate" .=) <$>                     _atsExecutionURLTemplate,-                  ("entityUrlTemplate" .=) <$> _atsEntityURLTemplate,                   ("revisionUrlTemplate" .=) <$>-                    _atsRevisionURLTemplate])+                    _atsRevisionURLTemplate,+                  ("entityUrlTemplate" .=) <$> _atsEntityURLTemplate])  -- | Represents information about an artifact that will be worked upon by -- actions in the pipeline.@@ -922,14 +922,17 @@ -- -- /See:/ 'artifactStore' smart constructor. data ArtifactStore = ArtifactStore'-    { _asType     :: !ArtifactStoreType-    , _asLocation :: !Text+    { _asEncryptionKey :: !(Maybe EncryptionKey)+    , _asType          :: !ArtifactStoreType+    , _asLocation      :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ArtifactStore' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'asEncryptionKey'+-- -- * 'asType' -- -- * 'asLocation'@@ -939,10 +942,17 @@     -> ArtifactStore artifactStore pType_ pLocation_ =     ArtifactStore'-    { _asType = pType_+    { _asEncryptionKey = Nothing+    , _asType = pType_     , _asLocation = pLocation_     } +-- | The AWS Key Management Service (AWS KMS) key used to encrypt the data in+-- the artifact store. If this is undefined, the default key for Amazon S3+-- is used.+asEncryptionKey :: Lens' ArtifactStore (Maybe EncryptionKey)+asEncryptionKey = lens _asEncryptionKey (\ s a -> s{_asEncryptionKey = a});+ -- | The type of the artifact store, such as S3. asType :: Lens' ArtifactStore ArtifactStoreType asType = lens _asType (\ s a -> s{_asType = a});@@ -957,13 +967,15 @@           = withObject "ArtifactStore"               (\ x ->                  ArtifactStore' <$>-                   (x .: "type") <*> (x .: "location"))+                   (x .:? "encryptionKey") <*> (x .: "type") <*>+                     (x .: "location"))  instance ToJSON ArtifactStore where         toJSON ArtifactStore'{..}           = object               (catMaybes-                 [Just ("type" .= _asType),+                 [("encryptionKey" .=) <$> _asEncryptionKey,+                  Just ("type" .= _asType),                   Just ("location" .= _asLocation)])  -- | Represents information about a gate declaration.@@ -1052,6 +1064,52 @@                  [Just ("revision" .= _crRevision),                   Just ("changeIdentifier" .= _crChangeIdentifier)]) +-- | Represents information about the AWS Key Management Service (AWS KMS)+-- key used to encrypt data in the artifact store.+--+-- /See:/ 'encryptionKey' smart constructor.+data EncryptionKey = EncryptionKey'+    { _ekId   :: !Text+    , _ekType :: !EncryptionKeyType+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'EncryptionKey' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ekId'+--+-- * 'ekType'+encryptionKey+    :: Text -- ^ 'ekId'+    -> EncryptionKeyType -- ^ 'ekType'+    -> EncryptionKey+encryptionKey pId_ pType_ =+    EncryptionKey'+    { _ekId = pId_+    , _ekType = pType_+    }++-- | The ID of the AWS KMS key.+ekId :: Lens' EncryptionKey Text+ekId = lens _ekId (\ s a -> s{_ekId = a});++-- | The type of AWS KMS key, such as a customer master key.+ekType :: Lens' EncryptionKey EncryptionKeyType+ekType = lens _ekType (\ s a -> s{_ekType = a});++instance FromJSON EncryptionKey where+        parseJSON+          = withObject "EncryptionKey"+              (\ x ->+                 EncryptionKey' <$> (x .: "id") <*> (x .: "type"))++instance ToJSON EncryptionKey where+        toJSON EncryptionKey'{..}+          = object+              (catMaybes+                 [Just ("id" .= _ekId), Just ("type" .= _ekType)])+ -- | Represents information about an error in AWS CodePipeline. -- -- /See:/ 'errorDetails' smart constructor.@@ -1096,8 +1154,8 @@ -- /See:/ 'executionDetails' smart constructor. data ExecutionDetails = ExecutionDetails'     { _edSummary             :: !(Maybe Text)-    , _edPercentComplete     :: !(Maybe Nat)     , _edExternalExecutionId :: !(Maybe Text)+    , _edPercentComplete     :: !(Maybe Nat)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ExecutionDetails' with the minimum fields required to make a request.@@ -1106,48 +1164,48 @@ -- -- * 'edSummary' ----- * 'edPercentComplete'--- -- * 'edExternalExecutionId'+--+-- * 'edPercentComplete' executionDetails     :: ExecutionDetails executionDetails =     ExecutionDetails'     { _edSummary = Nothing-    , _edPercentComplete = Nothing     , _edExternalExecutionId = Nothing+    , _edPercentComplete = Nothing     }  -- | The summary of the current status of the actions. edSummary :: Lens' ExecutionDetails (Maybe Text) edSummary = lens _edSummary (\ s a -> s{_edSummary = a}); --- | The percentage of work completed on the action, represented on a scale--- of zero to one hundred percent.-edPercentComplete :: Lens' ExecutionDetails (Maybe Natural)-edPercentComplete = lens _edPercentComplete (\ s a -> s{_edPercentComplete = a}) . mapping _Nat;- -- | The system-generated unique ID of this action used to identify this job -- worker in any external systems, such as AWS CodeDeploy. edExternalExecutionId :: Lens' ExecutionDetails (Maybe Text) edExternalExecutionId = lens _edExternalExecutionId (\ s a -> s{_edExternalExecutionId = a}); +-- | The percentage of work completed on the action, represented on a scale+-- of zero to one hundred percent.+edPercentComplete :: Lens' ExecutionDetails (Maybe Natural)+edPercentComplete = lens _edPercentComplete (\ s a -> s{_edPercentComplete = a}) . mapping _Nat;+ instance ToJSON ExecutionDetails where         toJSON ExecutionDetails'{..}           = object               (catMaybes                  [("summary" .=) <$> _edSummary,-                  ("percentComplete" .=) <$> _edPercentComplete,                   ("externalExecutionId" .=) <$>-                    _edExternalExecutionId])+                    _edExternalExecutionId,+                  ("percentComplete" .=) <$> _edPercentComplete])  -- | Represents information about failure details. -- -- /See:/ 'failureDetails' smart constructor. data FailureDetails = FailureDetails'     { _fdExternalExecutionId :: !(Maybe Text)-    , _fdMessage             :: !(Maybe Text)     , _fdType                :: !FailureType+    , _fdMessage             :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'FailureDetails' with the minimum fields required to make a request.@@ -1156,39 +1214,40 @@ -- -- * 'fdExternalExecutionId' ----- * 'fdMessage'--- -- * 'fdType'+--+-- * 'fdMessage' failureDetails     :: FailureType -- ^ 'fdType'+    -> Text -- ^ 'fdMessage'     -> FailureDetails-failureDetails pType_ =+failureDetails pType_ pMessage_ =     FailureDetails'     { _fdExternalExecutionId = Nothing-    , _fdMessage = Nothing     , _fdType = pType_+    , _fdMessage = pMessage_     }  -- | The external ID of the run of the action that failed. fdExternalExecutionId :: Lens' FailureDetails (Maybe Text) fdExternalExecutionId = lens _fdExternalExecutionId (\ s a -> s{_fdExternalExecutionId = a}); --- | The message about the failure.-fdMessage :: Lens' FailureDetails (Maybe Text)-fdMessage = lens _fdMessage (\ s a -> s{_fdMessage = a});- -- | The type of the failure. fdType :: Lens' FailureDetails FailureType fdType = lens _fdType (\ s a -> s{_fdType = a}); +-- | The message about the failure.+fdMessage :: Lens' FailureDetails Text+fdMessage = lens _fdMessage (\ s a -> s{_fdMessage = a});+ instance ToJSON FailureDetails where         toJSON FailureDetails'{..}           = object               (catMaybes                  [("externalExecutionId" .=) <$>                     _fdExternalExecutionId,-                  ("message" .=) <$> _fdMessage,-                  Just ("type" .= _fdType)])+                  Just ("type" .= _fdType),+                  Just ("message" .= _fdMessage)])  -- | Represents information about an artifact to be worked on, such as a test -- or build artifact.@@ -1297,6 +1356,7 @@     , _jdOutputArtifacts     :: !(Maybe [Artifact])     , _jdArtifactCredentials :: !(Maybe (Sensitive AWSSessionCredentials))     , _jdPipelineContext     :: !(Maybe PipelineContext)+    , _jdEncryptionKey       :: !(Maybe EncryptionKey)     , _jdActionTypeId        :: !(Maybe ActionTypeId)     , _jdInputArtifacts      :: !(Maybe [Artifact])     , _jdActionConfiguration :: !(Maybe ActionConfiguration)@@ -1314,6 +1374,8 @@ -- -- * 'jdPipelineContext' --+-- * 'jdEncryptionKey'+-- -- * 'jdActionTypeId' -- -- * 'jdInputArtifacts'@@ -1327,6 +1389,7 @@     , _jdOutputArtifacts = Nothing     , _jdArtifactCredentials = Nothing     , _jdPipelineContext = Nothing+    , _jdEncryptionKey = Nothing     , _jdActionTypeId = Nothing     , _jdInputArtifacts = Nothing     , _jdActionConfiguration = Nothing@@ -1350,6 +1413,10 @@ jdPipelineContext = lens _jdPipelineContext (\ s a -> s{_jdPipelineContext = a});  -- | Undocumented member.+jdEncryptionKey :: Lens' JobData (Maybe EncryptionKey)+jdEncryptionKey = lens _jdEncryptionKey (\ s a -> s{_jdEncryptionKey = a});++-- | Undocumented member. jdActionTypeId :: Lens' JobData (Maybe ActionTypeId) jdActionTypeId = lens _jdActionTypeId (\ s a -> s{_jdActionTypeId = a}); @@ -1370,6 +1437,7 @@                      (x .:? "outputArtifacts" .!= mempty)                      <*> (x .:? "artifactCredentials")                      <*> (x .:? "pipelineContext")+                     <*> (x .:? "encryptionKey")                      <*> (x .:? "actionTypeId")                      <*> (x .:? "inputArtifacts" .!= mempty)                      <*> (x .:? "actionConfiguration"))@@ -1874,6 +1942,7 @@     , _tpjdOutputArtifacts     :: !(Maybe [Artifact])     , _tpjdArtifactCredentials :: !(Maybe (Sensitive AWSSessionCredentials))     , _tpjdPipelineContext     :: !(Maybe PipelineContext)+    , _tpjdEncryptionKey       :: !(Maybe EncryptionKey)     , _tpjdActionTypeId        :: !(Maybe ActionTypeId)     , _tpjdInputArtifacts      :: !(Maybe [Artifact])     , _tpjdActionConfiguration :: !(Maybe ActionConfiguration)@@ -1891,6 +1960,8 @@ -- -- * 'tpjdPipelineContext' --+-- * 'tpjdEncryptionKey'+-- -- * 'tpjdActionTypeId' -- -- * 'tpjdInputArtifacts'@@ -1904,6 +1975,7 @@     , _tpjdOutputArtifacts = Nothing     , _tpjdArtifactCredentials = Nothing     , _tpjdPipelineContext = Nothing+    , _tpjdEncryptionKey = Nothing     , _tpjdActionTypeId = Nothing     , _tpjdInputArtifacts = Nothing     , _tpjdActionConfiguration = Nothing@@ -1928,6 +2000,11 @@ tpjdPipelineContext :: Lens' ThirdPartyJobData (Maybe PipelineContext) tpjdPipelineContext = lens _tpjdPipelineContext (\ s a -> s{_tpjdPipelineContext = a}); +-- | The AWS Key Management Service (AWS KMS) key used to encrypt and decrypt+-- data in the artifact store for the pipeline.+tpjdEncryptionKey :: Lens' ThirdPartyJobData (Maybe EncryptionKey)+tpjdEncryptionKey = lens _tpjdEncryptionKey (\ s a -> s{_tpjdEncryptionKey = a});+ -- | Undocumented member. tpjdActionTypeId :: Lens' ThirdPartyJobData (Maybe ActionTypeId) tpjdActionTypeId = lens _tpjdActionTypeId (\ s a -> s{_tpjdActionTypeId = a});@@ -1953,6 +2030,7 @@                      (x .:? "outputArtifacts" .!= mempty)                      <*> (x .:? "artifactCredentials")                      <*> (x .:? "pipelineContext")+                     <*> (x .:? "encryptionKey")                      <*> (x .:? "actionTypeId")                      <*> (x .:? "inputArtifacts" .!= mempty)                      <*> (x .:? "actionConfiguration"))

@@ -218,6 +218,31 @@ instance FromJSON BlockerType where     parseJSON = parseJSONText "BlockerType" +data EncryptionKeyType =+    KMS+    deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic)++instance FromText EncryptionKeyType where+    parser = takeLowerText >>= \case+        "kms" -> pure KMS+        e -> fromTextError $ "Failure parsing EncryptionKeyType from value: '" <> e+           <> "'. Accepted values: KMS"++instance ToText EncryptionKeyType where+    toText = \case+        KMS -> "KMS"++instance Hashable     EncryptionKeyType+instance ToByteString EncryptionKeyType+instance ToQuery      EncryptionKeyType+instance ToHeader     EncryptionKeyType++instance ToJSON EncryptionKeyType where+    toJSON = toJSONText++instance FromJSON EncryptionKeyType where+    parseJSON = parseJSONText "EncryptionKeyType"+ data FailureType     = ConfigurationError     | JobFailed

@@ -37,7 +37,7 @@     , UpdatePipelineResponse     -- * Response Lenses     , uprsPipeline-    , uprsStatus+    , uprsResponseStatus     ) where  import           Network.AWS.CodePipeline.Types@@ -104,8 +104,8 @@ -- -- /See:/ 'updatePipelineResponse' smart constructor. data UpdatePipelineResponse = UpdatePipelineResponse'-    { _uprsPipeline :: !(Maybe PipelineDeclaration)-    , _uprsStatus   :: !Int+    { _uprsPipeline       :: !(Maybe PipelineDeclaration)+    , _uprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'UpdatePipelineResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'uprsPipeline' ----- * 'uprsStatus'+-- * 'uprsResponseStatus' updatePipelineResponse-    :: Int -- ^ 'uprsStatus'+    :: Int -- ^ 'uprsResponseStatus'     -> UpdatePipelineResponse-updatePipelineResponse pStatus_ =+updatePipelineResponse pResponseStatus_ =     UpdatePipelineResponse'     { _uprsPipeline = Nothing-    , _uprsStatus = pStatus_+    , _uprsResponseStatus = pResponseStatus_     }  -- | The structure of the updated pipeline.@@ -129,5 +129,5 @@ uprsPipeline = lens _uprsPipeline (\ s a -> s{_uprsPipeline = a});  -- | The response status code.-uprsStatus :: Lens' UpdatePipelineResponse Int-uprsStatus = lens _uprsStatus (\ s a -> s{_uprsStatus = a});+uprsResponseStatus :: Lens' UpdatePipelineResponse Int+uprsResponseStatus = lens _uprsResponseStatus (\ s a -> s{_uprsResponseStatus = a});

@@ -64,39 +64,39 @@ --         , testListPipelines $ --             listPipelines --+--         , testPutJobSuccessResult $+--             putJobSuccessResult+-- --         , testDeleteCustomActionType $ --             deleteCustomActionType -- --         , testPutActionRevision $ --             putActionRevision -----         , testPutJobSuccessResult $---             putJobSuccessResult+--         , testDisableStageTransition $+--             disableStageTransition -- --         , testListActionTypes $ --             listActionTypes -----         , testDisableStageTransition $---             disableStageTransition--- --         , testAcknowledgeJob $ --             acknowledgeJob -- --         , testEnableStageTransition $ --             enableStageTransition -----         , testGetThirdPartyJobDetails $---             getThirdPartyJobDetails--- --         , testCreatePipeline $ --             createPipeline -----         , testCreateCustomActionType $---             createCustomActionType+--         , testGetThirdPartyJobDetails $+--             getThirdPartyJobDetails -- --         , testPutThirdPartyJobSuccessResult $ --             putThirdPartyJobSuccessResult --+--         , testCreateCustomActionType $+--             createCustomActionType+-- --           ]  --     , testGroup "response"@@ -136,39 +136,39 @@ --         , testListPipelinesResponse $ --             listPipelinesResponse --+--         , testPutJobSuccessResultResponse $+--             putJobSuccessResultResponse+-- --         , testDeleteCustomActionTypeResponse $ --             deleteCustomActionTypeResponse -- --         , testPutActionRevisionResponse $ --             putActionRevisionResponse -----         , testPutJobSuccessResultResponse $---             putJobSuccessResultResponse+--         , testDisableStageTransitionResponse $+--             disableStageTransitionResponse -- --         , testListActionTypesResponse $ --             listActionTypesResponse -----         , testDisableStageTransitionResponse $---             disableStageTransitionResponse--- --         , testAcknowledgeJobResponse $ --             acknowledgeJobResponse -- --         , testEnableStageTransitionResponse $ --             enableStageTransitionResponse -----         , testGetThirdPartyJobDetailsResponse $---             getThirdPartyJobDetailsResponse--- --         , testCreatePipelineResponse $ --             createPipelineResponse -----         , testCreateCustomActionTypeResponse $---             createCustomActionTypeResponse+--         , testGetThirdPartyJobDetailsResponse $+--             getThirdPartyJobDetailsResponse -- --         , testPutThirdPartyJobSuccessResultResponse $ --             putThirdPartyJobSuccessResultResponse --+--         , testCreateCustomActionTypeResponse $+--             createCustomActionTypeResponse+-- --           ] --     ] @@ -234,6 +234,11 @@     "ListPipelines"     "fixture/ListPipelines.yaml" +testPutJobSuccessResult :: PutJobSuccessResult -> TestTree+testPutJobSuccessResult = req+    "PutJobSuccessResult"+    "fixture/PutJobSuccessResult.yaml"+ testDeleteCustomActionType :: DeleteCustomActionType -> TestTree testDeleteCustomActionType = req     "DeleteCustomActionType"@@ -244,21 +249,16 @@     "PutActionRevision"     "fixture/PutActionRevision.yaml" -testPutJobSuccessResult :: PutJobSuccessResult -> TestTree-testPutJobSuccessResult = req-    "PutJobSuccessResult"-    "fixture/PutJobSuccessResult.yaml"+testDisableStageTransition :: DisableStageTransition -> TestTree+testDisableStageTransition = req+    "DisableStageTransition"+    "fixture/DisableStageTransition.yaml"  testListActionTypes :: ListActionTypes -> TestTree testListActionTypes = req     "ListActionTypes"     "fixture/ListActionTypes.yaml" -testDisableStageTransition :: DisableStageTransition -> TestTree-testDisableStageTransition = req-    "DisableStageTransition"-    "fixture/DisableStageTransition.yaml"- testAcknowledgeJob :: AcknowledgeJob -> TestTree testAcknowledgeJob = req     "AcknowledgeJob"@@ -269,26 +269,26 @@     "EnableStageTransition"     "fixture/EnableStageTransition.yaml" -testGetThirdPartyJobDetails :: GetThirdPartyJobDetails -> TestTree-testGetThirdPartyJobDetails = req-    "GetThirdPartyJobDetails"-    "fixture/GetThirdPartyJobDetails.yaml"- testCreatePipeline :: CreatePipeline -> TestTree testCreatePipeline = req     "CreatePipeline"     "fixture/CreatePipeline.yaml" -testCreateCustomActionType :: CreateCustomActionType -> TestTree-testCreateCustomActionType = req-    "CreateCustomActionType"-    "fixture/CreateCustomActionType.yaml"+testGetThirdPartyJobDetails :: GetThirdPartyJobDetails -> TestTree+testGetThirdPartyJobDetails = req+    "GetThirdPartyJobDetails"+    "fixture/GetThirdPartyJobDetails.yaml"  testPutThirdPartyJobSuccessResult :: PutThirdPartyJobSuccessResult -> TestTree testPutThirdPartyJobSuccessResult = req     "PutThirdPartyJobSuccessResult"     "fixture/PutThirdPartyJobSuccessResult.yaml" +testCreateCustomActionType :: CreateCustomActionType -> TestTree+testCreateCustomActionType = req+    "CreateCustomActionType"+    "fixture/CreateCustomActionType.yaml"+ -- Responses  testGetPipelineResponse :: GetPipelineResponse -> TestTree@@ -375,6 +375,13 @@     codePipeline     (Proxy :: Proxy ListPipelines) +testPutJobSuccessResultResponse :: PutJobSuccessResultResponse -> TestTree+testPutJobSuccessResultResponse = res+    "PutJobSuccessResultResponse"+    "fixture/PutJobSuccessResultResponse.proto"+    codePipeline+    (Proxy :: Proxy PutJobSuccessResult)+ testDeleteCustomActionTypeResponse :: DeleteCustomActionTypeResponse -> TestTree testDeleteCustomActionTypeResponse = res     "DeleteCustomActionTypeResponse"@@ -389,12 +396,12 @@     codePipeline     (Proxy :: Proxy PutActionRevision) -testPutJobSuccessResultResponse :: PutJobSuccessResultResponse -> TestTree-testPutJobSuccessResultResponse = res-    "PutJobSuccessResultResponse"-    "fixture/PutJobSuccessResultResponse.proto"+testDisableStageTransitionResponse :: DisableStageTransitionResponse -> TestTree+testDisableStageTransitionResponse = res+    "DisableStageTransitionResponse"+    "fixture/DisableStageTransitionResponse.proto"     codePipeline-    (Proxy :: Proxy PutJobSuccessResult)+    (Proxy :: Proxy DisableStageTransition)  testListActionTypesResponse :: ListActionTypesResponse -> TestTree testListActionTypesResponse = res@@ -403,13 +410,6 @@     codePipeline     (Proxy :: Proxy ListActionTypes) -testDisableStageTransitionResponse :: DisableStageTransitionResponse -> TestTree-testDisableStageTransitionResponse = res-    "DisableStageTransitionResponse"-    "fixture/DisableStageTransitionResponse.proto"-    codePipeline-    (Proxy :: Proxy DisableStageTransition)- testAcknowledgeJobResponse :: AcknowledgeJobResponse -> TestTree testAcknowledgeJobResponse = res     "AcknowledgeJobResponse"@@ -424,13 +424,6 @@     codePipeline     (Proxy :: Proxy EnableStageTransition) -testGetThirdPartyJobDetailsResponse :: GetThirdPartyJobDetailsResponse -> TestTree-testGetThirdPartyJobDetailsResponse = res-    "GetThirdPartyJobDetailsResponse"-    "fixture/GetThirdPartyJobDetailsResponse.proto"-    codePipeline-    (Proxy :: Proxy GetThirdPartyJobDetails)- testCreatePipelineResponse :: CreatePipelineResponse -> TestTree testCreatePipelineResponse = res     "CreatePipelineResponse"@@ -438,12 +431,12 @@     codePipeline     (Proxy :: Proxy CreatePipeline) -testCreateCustomActionTypeResponse :: CreateCustomActionTypeResponse -> TestTree-testCreateCustomActionTypeResponse = res-    "CreateCustomActionTypeResponse"-    "fixture/CreateCustomActionTypeResponse.proto"+testGetThirdPartyJobDetailsResponse :: GetThirdPartyJobDetailsResponse -> TestTree+testGetThirdPartyJobDetailsResponse = res+    "GetThirdPartyJobDetailsResponse"+    "fixture/GetThirdPartyJobDetailsResponse.proto"     codePipeline-    (Proxy :: Proxy CreateCustomActionType)+    (Proxy :: Proxy GetThirdPartyJobDetails)  testPutThirdPartyJobSuccessResultResponse :: PutThirdPartyJobSuccessResultResponse -> TestTree testPutThirdPartyJobSuccessResultResponse = res@@ -451,3 +444,10 @@     "fixture/PutThirdPartyJobSuccessResultResponse.proto"     codePipeline     (Proxy :: Proxy PutThirdPartyJobSuccessResult)++testCreateCustomActionTypeResponse :: CreateCustomActionTypeResponse -> TestTree+testCreateCustomActionTypeResponse = res+    "CreateCustomActionTypeResponse"+    "fixture/CreateCustomActionTypeResponse.proto"+    codePipeline+    (Proxy :: Proxy CreateCustomActionType)