diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -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 diff --git a/amazonka-codepipeline.cabal b/amazonka-codepipeline.cabal --- a/amazonka-codepipeline.cabal +++ b/amazonka-codepipeline.cabal @@ -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 diff --git a/gen/Network/AWS/CodePipeline.hs b/gen/Network/AWS/CodePipeline.hs --- a/gen/Network/AWS/CodePipeline.hs +++ b/gen/Network/AWS/CodePipeline.hs @@ -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 diff --git a/gen/Network/AWS/CodePipeline/AcknowledgeJob.hs b/gen/Network/AWS/CodePipeline/AcknowledgeJob.hs --- a/gen/Network/AWS/CodePipeline/AcknowledgeJob.hs +++ b/gen/Network/AWS/CodePipeline/AcknowledgeJob.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs b/gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs --- a/gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs +++ b/gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/CreateCustomActionType.hs b/gen/Network/AWS/CodePipeline/CreateCustomActionType.hs --- a/gen/Network/AWS/CodePipeline/CreateCustomActionType.hs +++ b/gen/Network/AWS/CodePipeline/CreateCustomActionType.hs @@ -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 diff --git a/gen/Network/AWS/CodePipeline/CreatePipeline.hs b/gen/Network/AWS/CodePipeline/CreatePipeline.hs --- a/gen/Network/AWS/CodePipeline/CreatePipeline.hs +++ b/gen/Network/AWS/CodePipeline/CreatePipeline.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/GetJobDetails.hs b/gen/Network/AWS/CodePipeline/GetJobDetails.hs --- a/gen/Network/AWS/CodePipeline/GetJobDetails.hs +++ b/gen/Network/AWS/CodePipeline/GetJobDetails.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/GetPipeline.hs b/gen/Network/AWS/CodePipeline/GetPipeline.hs --- a/gen/Network/AWS/CodePipeline/GetPipeline.hs +++ b/gen/Network/AWS/CodePipeline/GetPipeline.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/GetPipelineState.hs b/gen/Network/AWS/CodePipeline/GetPipelineState.hs --- a/gen/Network/AWS/CodePipeline/GetPipelineState.hs +++ b/gen/Network/AWS/CodePipeline/GetPipelineState.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs b/gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs --- a/gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs +++ b/gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/ListActionTypes.hs b/gen/Network/AWS/CodePipeline/ListActionTypes.hs --- a/gen/Network/AWS/CodePipeline/ListActionTypes.hs +++ b/gen/Network/AWS/CodePipeline/ListActionTypes.hs @@ -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] diff --git a/gen/Network/AWS/CodePipeline/ListPipelines.hs b/gen/Network/AWS/CodePipeline/ListPipelines.hs --- a/gen/Network/AWS/CodePipeline/ListPipelines.hs +++ b/gen/Network/AWS/CodePipeline/ListPipelines.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/PollForJobs.hs b/gen/Network/AWS/CodePipeline/PollForJobs.hs --- a/gen/Network/AWS/CodePipeline/PollForJobs.hs +++ b/gen/Network/AWS/CodePipeline/PollForJobs.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs b/gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs --- a/gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs +++ b/gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/PutActionRevision.hs b/gen/Network/AWS/CodePipeline/PutActionRevision.hs --- a/gen/Network/AWS/CodePipeline/PutActionRevision.hs +++ b/gen/Network/AWS/CodePipeline/PutActionRevision.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/StartPipelineExecution.hs b/gen/Network/AWS/CodePipeline/StartPipelineExecution.hs --- a/gen/Network/AWS/CodePipeline/StartPipelineExecution.hs +++ b/gen/Network/AWS/CodePipeline/StartPipelineExecution.hs @@ -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}); diff --git a/gen/Network/AWS/CodePipeline/Types.hs b/gen/Network/AWS/CodePipeline/Types.hs --- a/gen/Network/AWS/CodePipeline/Types.hs +++ b/gen/Network/AWS/CodePipeline/Types.hs @@ -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. diff --git a/gen/Network/AWS/CodePipeline/Types/Product.hs b/gen/Network/AWS/CodePipeline/Types/Product.hs --- a/gen/Network/AWS/CodePipeline/Types/Product.hs +++ b/gen/Network/AWS/CodePipeline/Types/Product.hs @@ -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")) diff --git a/gen/Network/AWS/CodePipeline/Types/Sum.hs b/gen/Network/AWS/CodePipeline/Types/Sum.hs --- a/gen/Network/AWS/CodePipeline/Types/Sum.hs +++ b/gen/Network/AWS/CodePipeline/Types/Sum.hs @@ -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 diff --git a/gen/Network/AWS/CodePipeline/UpdatePipeline.hs b/gen/Network/AWS/CodePipeline/UpdatePipeline.hs --- a/gen/Network/AWS/CodePipeline/UpdatePipeline.hs +++ b/gen/Network/AWS/CodePipeline/UpdatePipeline.hs @@ -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}); diff --git a/test/Test/AWS/Gen/CodePipeline.hs b/test/Test/AWS/Gen/CodePipeline.hs --- a/test/Test/AWS/Gen/CodePipeline.hs +++ b/test/Test/AWS/Gen/CodePipeline.hs @@ -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)