diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description 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.1.0 +version: 1.2.0 synopsis: Amazon CodePipeline SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -162,7 +162,7 @@ , Network.AWS.CodePipeline.Types.Sum build-depends: - amazonka-core == 1.1.0.* + amazonka-core == 1.2.0.* , base >= 4.7 && < 5 test-suite amazonka-codepipeline-test @@ -181,9 +181,9 @@ , Test.AWS.CodePipeline.Internal build-depends: - amazonka-core == 1.1.0 - , amazonka-test == 1.1.0 - , amazonka-codepipeline == 1.1.0 + amazonka-core == 1.2.0 + , amazonka-test == 1.2.0 + , amazonka-codepipeline == 1.2.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 @@ -106,8 +106,8 @@ -- /See:/ module Network.AWS.CodePipeline ( - -- * Service - CodePipeline + -- * Service Configuration + codePipeline -- * Errors -- $errors 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 @@ -81,9 +81,8 @@ ajNonce = lens _ajNonce (\ s a -> s{_ajNonce = a}); instance AWSRequest AcknowledgeJob where - type Sv AcknowledgeJob = CodePipeline type Rs AcknowledgeJob = AcknowledgeJobResponse - request = postJSON + request = postJSON codePipeline response = receiveEmpty (\ s h x -> @@ -101,7 +100,10 @@ instance ToJSON AcknowledgeJob where toJSON AcknowledgeJob'{..} - = object ["jobId" .= _ajJobId, "nonce" .= _ajNonce] + = object + (catMaybes + [Just ("jobId" .= _ajJobId), + Just ("nonce" .= _ajNonce)]) instance ToPath AcknowledgeJob where toPath = const "/" 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 @@ -92,10 +92,9 @@ atpjClientToken = lens _atpjClientToken (\ s a -> s{_atpjClientToken = a}); instance AWSRequest AcknowledgeThirdPartyJob where - type Sv AcknowledgeThirdPartyJob = CodePipeline type Rs AcknowledgeThirdPartyJob = AcknowledgeThirdPartyJobResponse - request = postJSON + request = postJSON codePipeline response = receiveEmpty (\ s h x -> @@ -115,8 +114,10 @@ instance ToJSON AcknowledgeThirdPartyJob where toJSON AcknowledgeThirdPartyJob'{..} = object - ["jobId" .= _atpjJobId, "nonce" .= _atpjNonce, - "clientToken" .= _atpjClientToken] + (catMaybes + [Just ("jobId" .= _atpjJobId), + Just ("nonce" .= _atpjNonce), + Just ("clientToken" .= _atpjClientToken)]) instance ToPath AcknowledgeThirdPartyJob where toPath = const "/" 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 @@ -132,10 +132,9 @@ ccatOutputArtifactDetails = lens _ccatOutputArtifactDetails (\ s a -> s{_ccatOutputArtifactDetails = a}); instance AWSRequest CreateCustomActionType where - type Sv CreateCustomActionType = CodePipeline type Rs CreateCustomActionType = CreateCustomActionTypeResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -155,15 +154,19 @@ instance ToJSON CreateCustomActionType where toJSON CreateCustomActionType'{..} = object - ["settings" .= _ccatSettings, - "configurationProperties" .= - _ccatConfigurationProperties, - "category" .= _ccatCategory, - "provider" .= _ccatProvider, - "version" .= _ccatVersion, - "inputArtifactDetails" .= _ccatInputArtifactDetails, - "outputArtifactDetails" .= - _ccatOutputArtifactDetails] + (catMaybes + [("settings" .=) <$> _ccatSettings, + ("configurationProperties" .=) <$> + _ccatConfigurationProperties, + Just ("category" .= _ccatCategory), + Just ("provider" .= _ccatProvider), + Just ("version" .= _ccatVersion), + Just + ("inputArtifactDetails" .= + _ccatInputArtifactDetails), + Just + ("outputArtifactDetails" .= + _ccatOutputArtifactDetails)]) instance ToPath CreateCustomActionType where toPath = const "/" 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 @@ -68,9 +68,8 @@ cpPipeline = lens _cpPipeline (\ s a -> s{_cpPipeline = a}); instance AWSRequest CreatePipeline where - type Sv CreatePipeline = CodePipeline type Rs CreatePipeline = CreatePipelineResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -89,7 +88,8 @@ instance ToJSON CreatePipeline where toJSON CreatePipeline'{..} - = object ["pipeline" .= _cpPipeline] + = object + (catMaybes [Just ("pipeline" .= _cpPipeline)]) instance ToPath CreatePipeline where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/DeleteCustomActionType.hs b/gen/Network/AWS/CodePipeline/DeleteCustomActionType.hs --- a/gen/Network/AWS/CodePipeline/DeleteCustomActionType.hs +++ b/gen/Network/AWS/CodePipeline/DeleteCustomActionType.hs @@ -93,10 +93,9 @@ dcatVersion = lens _dcatVersion (\ s a -> s{_dcatVersion = a}); instance AWSRequest DeleteCustomActionType where - type Sv DeleteCustomActionType = CodePipeline type Rs DeleteCustomActionType = DeleteCustomActionTypeResponse - request = postJSON + request = postJSON codePipeline response = receiveNull DeleteCustomActionTypeResponse' @@ -113,9 +112,10 @@ instance ToJSON DeleteCustomActionType where toJSON DeleteCustomActionType'{..} = object - ["category" .= _dcatCategory, - "provider" .= _dcatProvider, - "version" .= _dcatVersion] + (catMaybes + [Just ("category" .= _dcatCategory), + Just ("provider" .= _dcatProvider), + Just ("version" .= _dcatVersion)]) instance ToPath DeleteCustomActionType where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/DeletePipeline.hs b/gen/Network/AWS/CodePipeline/DeletePipeline.hs --- a/gen/Network/AWS/CodePipeline/DeletePipeline.hs +++ b/gen/Network/AWS/CodePipeline/DeletePipeline.hs @@ -65,9 +65,8 @@ dpName = lens _dpName (\ s a -> s{_dpName = a}); instance AWSRequest DeletePipeline where - type Sv DeletePipeline = CodePipeline type Rs DeletePipeline = DeletePipelineResponse - request = postJSON + request = postJSON codePipeline response = receiveNull DeletePipelineResponse' instance ToHeaders DeletePipeline where @@ -82,7 +81,7 @@ instance ToJSON DeletePipeline where toJSON DeletePipeline'{..} - = object ["name" .= _dpName] + = object (catMaybes [Just ("name" .= _dpName)]) instance ToPath DeletePipeline where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/DisableStageTransition.hs b/gen/Network/AWS/CodePipeline/DisableStageTransition.hs --- a/gen/Network/AWS/CodePipeline/DisableStageTransition.hs +++ b/gen/Network/AWS/CodePipeline/DisableStageTransition.hs @@ -103,10 +103,9 @@ dstReason = lens _dstReason (\ s a -> s{_dstReason = a}); instance AWSRequest DisableStageTransition where - type Sv DisableStageTransition = CodePipeline type Rs DisableStageTransition = DisableStageTransitionResponse - request = postJSON + request = postJSON codePipeline response = receiveNull DisableStageTransitionResponse' @@ -123,10 +122,11 @@ instance ToJSON DisableStageTransition where toJSON DisableStageTransition'{..} = object - ["pipelineName" .= _dstPipelineName, - "stageName" .= _dstStageName, - "transitionType" .= _dstTransitionType, - "reason" .= _dstReason] + (catMaybes + [Just ("pipelineName" .= _dstPipelineName), + Just ("stageName" .= _dstStageName), + Just ("transitionType" .= _dstTransitionType), + Just ("reason" .= _dstReason)]) instance ToPath DisableStageTransition where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/EnableStageTransition.hs b/gen/Network/AWS/CodePipeline/EnableStageTransition.hs --- a/gen/Network/AWS/CodePipeline/EnableStageTransition.hs +++ b/gen/Network/AWS/CodePipeline/EnableStageTransition.hs @@ -91,10 +91,9 @@ estTransitionType = lens _estTransitionType (\ s a -> s{_estTransitionType = a}); instance AWSRequest EnableStageTransition where - type Sv EnableStageTransition = CodePipeline type Rs EnableStageTransition = EnableStageTransitionResponse - request = postJSON + request = postJSON codePipeline response = receiveNull EnableStageTransitionResponse' instance ToHeaders EnableStageTransition where @@ -110,9 +109,10 @@ instance ToJSON EnableStageTransition where toJSON EnableStageTransition'{..} = object - ["pipelineName" .= _estPipelineName, - "stageName" .= _estStageName, - "transitionType" .= _estTransitionType] + (catMaybes + [Just ("pipelineName" .= _estPipelineName), + Just ("stageName" .= _estStageName), + Just ("transitionType" .= _estTransitionType)]) instance ToPath EnableStageTransition where toPath = const "/" 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 @@ -74,9 +74,8 @@ gjdJobId = lens _gjdJobId (\ s a -> s{_gjdJobId = a}); instance AWSRequest GetJobDetails where - type Sv GetJobDetails = CodePipeline type Rs GetJobDetails = GetJobDetailsResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -95,7 +94,7 @@ instance ToJSON GetJobDetails where toJSON GetJobDetails'{..} - = object ["jobId" .= _gjdJobId] + = object (catMaybes [Just ("jobId" .= _gjdJobId)]) instance ToPath GetJobDetails where toPath = const "/" 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 @@ -82,9 +82,8 @@ gpName = lens _gpName (\ s a -> s{_gpName = a}); instance AWSRequest GetPipeline where - type Sv GetPipeline = CodePipeline type Rs GetPipeline = GetPipelineResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -102,7 +101,10 @@ instance ToJSON GetPipeline where toJSON GetPipeline'{..} - = object ["version" .= _gpVersion, "name" .= _gpName] + = object + (catMaybes + [("version" .=) <$> _gpVersion, + Just ("name" .= _gpName)]) instance ToPath GetPipeline where toPath = const "/" 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 @@ -73,9 +73,8 @@ gpsName = lens _gpsName (\ s a -> s{_gpsName = a}); instance AWSRequest GetPipelineState where - type Sv GetPipelineState = CodePipeline type Rs GetPipelineState = GetPipelineStateResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -98,7 +97,7 @@ instance ToJSON GetPipelineState where toJSON GetPipelineState'{..} - = object ["name" .= _gpsName] + = object (catMaybes [Just ("name" .= _gpsName)]) instance ToPath GetPipelineState where toPath = const "/" 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 @@ -87,10 +87,9 @@ gtpjdClientToken = lens _gtpjdClientToken (\ s a -> s{_gtpjdClientToken = a}); instance AWSRequest GetThirdPartyJobDetails where - type Sv GetThirdPartyJobDetails = CodePipeline type Rs GetThirdPartyJobDetails = GetThirdPartyJobDetailsResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -110,8 +109,9 @@ instance ToJSON GetThirdPartyJobDetails where toJSON GetThirdPartyJobDetails'{..} = object - ["jobId" .= _gtpjdJobId, - "clientToken" .= _gtpjdClientToken] + (catMaybes + [Just ("jobId" .= _gtpjdJobId), + Just ("clientToken" .= _gtpjdClientToken)]) instance ToPath GetThirdPartyJobDetails where toPath = const "/" 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 @@ -80,9 +80,8 @@ latNextToken = lens _latNextToken (\ s a -> s{_latNextToken = a}); instance AWSRequest ListActionTypes where - type Sv ListActionTypes = CodePipeline type Rs ListActionTypes = ListActionTypesResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -103,8 +102,9 @@ instance ToJSON ListActionTypes where toJSON ListActionTypes'{..} = object - ["actionOwnerFilter" .= _latActionOwnerFilter, - "nextToken" .= _latNextToken] + (catMaybes + [("actionOwnerFilter" .=) <$> _latActionOwnerFilter, + ("nextToken" .=) <$> _latNextToken]) instance ToPath ListActionTypes where toPath = const "/" 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 @@ -69,9 +69,8 @@ lpNextToken = lens _lpNextToken (\ s a -> s{_lpNextToken = a}); instance AWSRequest ListPipelines where - type Sv ListPipelines = CodePipeline type Rs ListPipelines = ListPipelinesResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -92,7 +91,8 @@ instance ToJSON ListPipelines where toJSON ListPipelines'{..} - = object ["nextToken" .= _lpNextToken] + = object + (catMaybes [("nextToken" .=) <$> _lpNextToken]) instance ToPath ListPipelines where toPath = const "/" 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 @@ -96,9 +96,8 @@ pfjActionTypeId = lens _pfjActionTypeId (\ s a -> s{_pfjActionTypeId = a}); instance AWSRequest PollForJobs where - type Sv PollForJobs = CodePipeline type Rs PollForJobs = PollForJobsResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -117,9 +116,10 @@ instance ToJSON PollForJobs where toJSON PollForJobs'{..} = object - ["maxBatchSize" .= _pfjMaxBatchSize, - "queryParam" .= _pfjQueryParam, - "actionTypeId" .= _pfjActionTypeId] + (catMaybes + [("maxBatchSize" .=) <$> _pfjMaxBatchSize, + ("queryParam" .=) <$> _pfjQueryParam, + Just ("actionTypeId" .= _pfjActionTypeId)]) instance ToPath PollForJobs where toPath = const "/" 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 @@ -83,10 +83,9 @@ pftpjActionTypeId = lens _pftpjActionTypeId (\ s a -> s{_pftpjActionTypeId = a}); instance AWSRequest PollForThirdPartyJobs where - type Sv PollForThirdPartyJobs = CodePipeline type Rs PollForThirdPartyJobs = PollForThirdPartyJobsResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -106,8 +105,9 @@ instance ToJSON PollForThirdPartyJobs where toJSON PollForThirdPartyJobs'{..} = object - ["maxBatchSize" .= _pftpjMaxBatchSize, - "actionTypeId" .= _pftpjActionTypeId] + (catMaybes + [("maxBatchSize" .=) <$> _pftpjMaxBatchSize, + Just ("actionTypeId" .= _pftpjActionTypeId)]) instance ToPath PollForThirdPartyJobs where toPath = const "/" 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 @@ -102,9 +102,8 @@ parActionRevision = lens _parActionRevision (\ s a -> s{_parActionRevision = a}); instance AWSRequest PutActionRevision where - type Sv PutActionRevision = CodePipeline type Rs PutActionRevision = PutActionRevisionResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -126,10 +125,11 @@ instance ToJSON PutActionRevision where toJSON PutActionRevision'{..} = object - ["pipelineName" .= _parPipelineName, - "stageName" .= _parStageName, - "actionName" .= _parActionName, - "actionRevision" .= _parActionRevision] + (catMaybes + [Just ("pipelineName" .= _parPipelineName), + Just ("stageName" .= _parStageName), + Just ("actionName" .= _parActionName), + Just ("actionRevision" .= _parActionRevision)]) instance ToPath PutActionRevision where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/PutJobFailureResult.hs b/gen/Network/AWS/CodePipeline/PutJobFailureResult.hs --- a/gen/Network/AWS/CodePipeline/PutJobFailureResult.hs +++ b/gen/Network/AWS/CodePipeline/PutJobFailureResult.hs @@ -77,10 +77,9 @@ pjfrFailureDetails = lens _pjfrFailureDetails (\ s a -> s{_pjfrFailureDetails = a}); instance AWSRequest PutJobFailureResult where - type Sv PutJobFailureResult = CodePipeline type Rs PutJobFailureResult = PutJobFailureResultResponse - request = postJSON + request = postJSON codePipeline response = receiveNull PutJobFailureResultResponse' instance ToHeaders PutJobFailureResult where @@ -96,8 +95,9 @@ instance ToJSON PutJobFailureResult where toJSON PutJobFailureResult'{..} = object - ["jobId" .= _pjfrJobId, - "failureDetails" .= _pjfrFailureDetails] + (catMaybes + [Just ("jobId" .= _pjfrJobId), + Just ("failureDetails" .= _pjfrFailureDetails)]) instance ToPath PutJobFailureResult where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/PutJobSuccessResult.hs b/gen/Network/AWS/CodePipeline/PutJobSuccessResult.hs --- a/gen/Network/AWS/CodePipeline/PutJobSuccessResult.hs +++ b/gen/Network/AWS/CodePipeline/PutJobSuccessResult.hs @@ -97,10 +97,9 @@ pjsrJobId = lens _pjsrJobId (\ s a -> s{_pjsrJobId = a}); instance AWSRequest PutJobSuccessResult where - type Sv PutJobSuccessResult = CodePipeline type Rs PutJobSuccessResult = PutJobSuccessResultResponse - request = postJSON + request = postJSON codePipeline response = receiveNull PutJobSuccessResultResponse' instance ToHeaders PutJobSuccessResult where @@ -116,10 +115,11 @@ instance ToJSON PutJobSuccessResult where toJSON PutJobSuccessResult'{..} = object - ["continuationToken" .= _pjsrContinuationToken, - "executionDetails" .= _pjsrExecutionDetails, - "currentRevision" .= _pjsrCurrentRevision, - "jobId" .= _pjsrJobId] + (catMaybes + [("continuationToken" .=) <$> _pjsrContinuationToken, + ("executionDetails" .=) <$> _pjsrExecutionDetails, + ("currentRevision" .=) <$> _pjsrCurrentRevision, + Just ("jobId" .= _pjsrJobId)]) instance ToPath PutJobSuccessResult where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/PutThirdPartyJobFailureResult.hs b/gen/Network/AWS/CodePipeline/PutThirdPartyJobFailureResult.hs --- a/gen/Network/AWS/CodePipeline/PutThirdPartyJobFailureResult.hs +++ b/gen/Network/AWS/CodePipeline/PutThirdPartyJobFailureResult.hs @@ -90,10 +90,9 @@ instance AWSRequest PutThirdPartyJobFailureResult where - type Sv PutThirdPartyJobFailureResult = CodePipeline type Rs PutThirdPartyJobFailureResult = PutThirdPartyJobFailureResultResponse - request = postJSON + request = postJSON codePipeline response = receiveNull PutThirdPartyJobFailureResultResponse' @@ -111,9 +110,10 @@ instance ToJSON PutThirdPartyJobFailureResult where toJSON PutThirdPartyJobFailureResult'{..} = object - ["jobId" .= _ptpjfrJobId, - "clientToken" .= _ptpjfrClientToken, - "failureDetails" .= _ptpjfrFailureDetails] + (catMaybes + [Just ("jobId" .= _ptpjfrJobId), + Just ("clientToken" .= _ptpjfrClientToken), + Just ("failureDetails" .= _ptpjfrFailureDetails)]) instance ToPath PutThirdPartyJobFailureResult where toPath = const "/" diff --git a/gen/Network/AWS/CodePipeline/PutThirdPartyJobSuccessResult.hs b/gen/Network/AWS/CodePipeline/PutThirdPartyJobSuccessResult.hs --- a/gen/Network/AWS/CodePipeline/PutThirdPartyJobSuccessResult.hs +++ b/gen/Network/AWS/CodePipeline/PutThirdPartyJobSuccessResult.hs @@ -108,10 +108,9 @@ instance AWSRequest PutThirdPartyJobSuccessResult where - type Sv PutThirdPartyJobSuccessResult = CodePipeline type Rs PutThirdPartyJobSuccessResult = PutThirdPartyJobSuccessResultResponse - request = postJSON + request = postJSON codePipeline response = receiveNull PutThirdPartyJobSuccessResultResponse' @@ -129,11 +128,13 @@ instance ToJSON PutThirdPartyJobSuccessResult where toJSON PutThirdPartyJobSuccessResult'{..} = object - ["continuationToken" .= _ptpjsrContinuationToken, - "executionDetails" .= _ptpjsrExecutionDetails, - "currentRevision" .= _ptpjsrCurrentRevision, - "jobId" .= _ptpjsrJobId, - "clientToken" .= _ptpjsrClientToken] + (catMaybes + [("continuationToken" .=) <$> + _ptpjsrContinuationToken, + ("executionDetails" .=) <$> _ptpjsrExecutionDetails, + ("currentRevision" .=) <$> _ptpjsrCurrentRevision, + Just ("jobId" .= _ptpjsrJobId), + Just ("clientToken" .= _ptpjsrClientToken)]) instance ToPath PutThirdPartyJobSuccessResult where toPath = const "/" 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 @@ -69,10 +69,9 @@ speName = lens _speName (\ s a -> s{_speName = a}); instance AWSRequest StartPipelineExecution where - type Sv StartPipelineExecution = CodePipeline type Rs StartPipelineExecution = StartPipelineExecutionResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -92,7 +91,7 @@ instance ToJSON StartPipelineExecution where toJSON StartPipelineExecution'{..} - = object ["name" .= _speName] + = object (catMaybes [Just ("name" .= _speName)]) instance ToPath StartPipelineExecution where toPath = const "/" 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 @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.CodePipeline.Types ( - -- * Service - CodePipeline + -- * Service Configuration + codePipeline -- * Errors , _ValidationException @@ -337,39 +336,36 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | Version @2015-07-09@ of the Amazon CodePipeline SDK. -data CodePipeline - -instance AWSService CodePipeline where - type Sg CodePipeline = V4 - service = const svc - where - svc = - Service - { _svcAbbrev = "CodePipeline" - , _svcPrefix = "codepipeline" - , _svcVersion = "2015-07-09" - , _svcEndpoint = defaultEndpoint svc - , _svcTimeout = Just 70 - , _svcStatus = statusSuccess - , _svcError = parseJSONError - , _svcRetry = retry - } - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing +-- | API version '2015-07-09' of the Amazon CodePipeline SDK configuration. +codePipeline :: Service +codePipeline = + Service + { _svcAbbrev = "CodePipeline" + , _svcSigner = v4 + , _svcPrefix = "codepipeline" + , _svcVersion = "2015-07-09" + , _svcEndpoint = defaultEndpoint codePipeline + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError + , _svcRetry = retry + } + where + retry = + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } + check e + | has (hasCode "ThrottlingException" . hasStatus 400) e = + Just "throttling_exception" + | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 503) e = Just "service_unavailable" + | has (hasStatus 500) e = Just "general_server_error" + | 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 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 @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -209,10 +208,14 @@ instance ToJSON ActionConfigurationProperty where toJSON ActionConfigurationProperty'{..} = object - ["queryable" .= _acpQueryable, "type" .= _acpType, - "description" .= _acpDescription, "name" .= _acpName, - "required" .= _acpRequired, "key" .= _acpKey, - "secret" .= _acpSecret] + (catMaybes + [("queryable" .=) <$> _acpQueryable, + ("type" .=) <$> _acpType, + ("description" .=) <$> _acpDescription, + Just ("name" .= _acpName), + Just ("required" .= _acpRequired), + Just ("key" .= _acpKey), + Just ("secret" .= _acpSecret)]) -- | Represents the context of an action within the stage of a pipeline to a -- job worker. @@ -335,12 +338,14 @@ instance ToJSON ActionDeclaration where toJSON ActionDeclaration'{..} = object - ["outputArtifacts" .= _adOutputArtifacts, - "runOrder" .= _adRunOrder, - "configuration" .= _adConfiguration, - "inputArtifacts" .= _adInputArtifacts, - "roleArn" .= _adRoleARN, "name" .= _adName, - "actionTypeId" .= _adActionTypeId] + (catMaybes + [("outputArtifacts" .=) <$> _adOutputArtifacts, + ("runOrder" .=) <$> _adRunOrder, + ("configuration" .=) <$> _adConfiguration, + ("inputArtifacts" .=) <$> _adInputArtifacts, + ("roleArn" .=) <$> _adRoleARN, + Just ("name" .= _adName), + Just ("actionTypeId" .= _adActionTypeId)]) -- | Represents information about how an action runs. -- @@ -482,9 +487,10 @@ instance ToJSON ActionRevision where toJSON ActionRevision'{..} = object - ["revisionChangeId" .= _arRevisionChangeId, - "revisionId" .= _arRevisionId, - "created" .= _arCreated] + (catMaybes + [("revisionChangeId" .=) <$> _arRevisionChangeId, + Just ("revisionId" .= _arRevisionId), + Just ("created" .= _arCreated)]) -- | Represents information about the state of an action. -- @@ -690,8 +696,11 @@ instance ToJSON ActionTypeId where toJSON ActionTypeId'{..} = object - ["category" .= _atiCategory, "owner" .= _atiOwner, - "provider" .= _atiProvider, "version" .= _atiVersion] + (catMaybes + [Just ("category" .= _atiCategory), + Just ("owner" .= _atiOwner), + Just ("provider" .= _atiProvider), + Just ("version" .= _atiVersion)]) -- | Returns information about the settings for an action type. -- @@ -764,11 +773,14 @@ instance ToJSON ActionTypeSettings where toJSON ActionTypeSettings'{..} = object - ["thirdPartyConfigurationUrl" .= - _atsThirdPartyConfigurationURL, - "executionUrlTemplate" .= _atsExecutionURLTemplate, - "entityUrlTemplate" .= _atsEntityURLTemplate, - "revisionUrlTemplate" .= _atsRevisionURLTemplate] + (catMaybes + [("thirdPartyConfigurationUrl" .=) <$> + _atsThirdPartyConfigurationURL, + ("executionUrlTemplate" .=) <$> + _atsExecutionURLTemplate, + ("entityUrlTemplate" .=) <$> _atsEntityURLTemplate, + ("revisionUrlTemplate" .=) <$> + _atsRevisionURLTemplate]) -- | Represents information about an artifact that will be worked upon by -- actions in the pipeline. @@ -862,8 +874,9 @@ instance ToJSON ArtifactDetails where toJSON ArtifactDetails'{..} = object - ["minimumCount" .= _adMinimumCount, - "maximumCount" .= _adMaximumCount] + (catMaybes + [Just ("minimumCount" .= _adMinimumCount), + Just ("maximumCount" .= _adMaximumCount)]) -- | Represents information about the location of an artifact. -- @@ -949,7 +962,9 @@ instance ToJSON ArtifactStore where toJSON ArtifactStore'{..} = object - ["type" .= _asType, "location" .= _asLocation] + (catMaybes + [Just ("type" .= _asType), + Just ("location" .= _asLocation)]) -- | Represents information about a gate declaration. -- @@ -993,7 +1008,9 @@ instance ToJSON BlockerDeclaration where toJSON BlockerDeclaration'{..} - = object ["name" .= _bdName, "type" .= _bdType] + = object + (catMaybes + [Just ("name" .= _bdName), Just ("type" .= _bdType)]) -- | Represents information about a current revision. -- @@ -1031,8 +1048,9 @@ instance ToJSON CurrentRevision where toJSON CurrentRevision'{..} = object - ["revision" .= _crRevision, - "changeIdentifier" .= _crChangeIdentifier] + (catMaybes + [Just ("revision" .= _crRevision), + Just ("changeIdentifier" .= _crChangeIdentifier)]) -- | Represents information about an error in AWS CodePipeline. -- @@ -1117,9 +1135,11 @@ instance ToJSON ExecutionDetails where toJSON ExecutionDetails'{..} = object - ["summary" .= _edSummary, - "percentComplete" .= _edPercentComplete, - "externalExecutionId" .= _edExternalExecutionId] + (catMaybes + [("summary" .=) <$> _edSummary, + ("percentComplete" .=) <$> _edPercentComplete, + ("externalExecutionId" .=) <$> + _edExternalExecutionId]) -- | Represents information about failure details. -- @@ -1164,8 +1184,11 @@ instance ToJSON FailureDetails where toJSON FailureDetails'{..} = object - ["externalExecutionId" .= _fdExternalExecutionId, - "message" .= _fdMessage, "type" .= _fdType] + (catMaybes + [("externalExecutionId" .=) <$> + _fdExternalExecutionId, + ("message" .=) <$> _fdMessage, + Just ("type" .= _fdType)]) -- | Represents information about an artifact to be worked on, such as a test -- or build artifact. @@ -1205,7 +1228,7 @@ instance ToJSON InputArtifact where toJSON InputArtifact'{..} - = object ["name" .= _iaName] + = object (catMaybes [Just ("name" .= _iaName)]) -- | Represents information about a job. -- @@ -1437,7 +1460,7 @@ instance ToJSON OutputArtifact where toJSON OutputArtifact'{..} - = object ["name" .= _oaName] + = object (catMaybes [Just ("name" .= _oaName)]) -- | Represents information about a pipeline to a job worker. -- @@ -1564,10 +1587,12 @@ instance ToJSON PipelineDeclaration where toJSON PipelineDeclaration'{..} = object - ["version" .= _pdVersion, "name" .= _pdName, - "roleArn" .= _pdRoleARN, - "artifactStore" .= _pdArtifactStore, - "stages" .= _pdStages] + (catMaybes + [("version" .=) <$> _pdVersion, + Just ("name" .= _pdName), + Just ("roleArn" .= _pdRoleARN), + Just ("artifactStore" .= _pdArtifactStore), + Just ("stages" .= _pdStages)]) -- | Returns a summary of a pipeline. -- @@ -1746,8 +1771,10 @@ instance ToJSON StageDeclaration where toJSON StageDeclaration'{..} = object - ["blockers" .= _sdBlockers, "name" .= _sdName, - "actions" .= _sdActions] + (catMaybes + [("blockers" .=) <$> _sdBlockers, + Just ("name" .= _sdName), + Just ("actions" .= _sdActions)]) -- | Represents information about the state of the stage. -- 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 @@ -71,9 +71,8 @@ upPipeline = lens _upPipeline (\ s a -> s{_upPipeline = a}); instance AWSRequest UpdatePipeline where - type Sv UpdatePipeline = CodePipeline type Rs UpdatePipeline = UpdatePipelineResponse - request = postJSON + request = postJSON codePipeline response = receiveJSON (\ s h x -> @@ -92,7 +91,8 @@ instance ToJSON UpdatePipeline where toJSON UpdatePipeline'{..} - = object ["pipeline" .= _upPipeline] + = object + (catMaybes [Just ("pipeline" .= _upPipeline)]) instance ToPath UpdatePipeline where toPath = const "/" 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 @@ -295,136 +295,159 @@ testGetPipelineResponse = res "GetPipelineResponse" "fixture/GetPipelineResponse" + codePipeline (Proxy :: Proxy GetPipeline) testPutJobFailureResultResponse :: PutJobFailureResultResponse -> TestTree testPutJobFailureResultResponse = res "PutJobFailureResultResponse" "fixture/PutJobFailureResultResponse" + codePipeline (Proxy :: Proxy PutJobFailureResult) testAcknowledgeThirdPartyJobResponse :: AcknowledgeThirdPartyJobResponse -> TestTree testAcknowledgeThirdPartyJobResponse = res "AcknowledgeThirdPartyJobResponse" "fixture/AcknowledgeThirdPartyJobResponse" + codePipeline (Proxy :: Proxy AcknowledgeThirdPartyJob) testPutThirdPartyJobFailureResultResponse :: PutThirdPartyJobFailureResultResponse -> TestTree testPutThirdPartyJobFailureResultResponse = res "PutThirdPartyJobFailureResultResponse" "fixture/PutThirdPartyJobFailureResultResponse" + codePipeline (Proxy :: Proxy PutThirdPartyJobFailureResult) testPollForThirdPartyJobsResponse :: PollForThirdPartyJobsResponse -> TestTree testPollForThirdPartyJobsResponse = res "PollForThirdPartyJobsResponse" "fixture/PollForThirdPartyJobsResponse" + codePipeline (Proxy :: Proxy PollForThirdPartyJobs) testPollForJobsResponse :: PollForJobsResponse -> TestTree testPollForJobsResponse = res "PollForJobsResponse" "fixture/PollForJobsResponse" + codePipeline (Proxy :: Proxy PollForJobs) testStartPipelineExecutionResponse :: StartPipelineExecutionResponse -> TestTree testStartPipelineExecutionResponse = res "StartPipelineExecutionResponse" "fixture/StartPipelineExecutionResponse" + codePipeline (Proxy :: Proxy StartPipelineExecution) testUpdatePipelineResponse :: UpdatePipelineResponse -> TestTree testUpdatePipelineResponse = res "UpdatePipelineResponse" "fixture/UpdatePipelineResponse" + codePipeline (Proxy :: Proxy UpdatePipeline) testDeletePipelineResponse :: DeletePipelineResponse -> TestTree testDeletePipelineResponse = res "DeletePipelineResponse" "fixture/DeletePipelineResponse" + codePipeline (Proxy :: Proxy DeletePipeline) testGetPipelineStateResponse :: GetPipelineStateResponse -> TestTree testGetPipelineStateResponse = res "GetPipelineStateResponse" "fixture/GetPipelineStateResponse" + codePipeline (Proxy :: Proxy GetPipelineState) testGetJobDetailsResponse :: GetJobDetailsResponse -> TestTree testGetJobDetailsResponse = res "GetJobDetailsResponse" "fixture/GetJobDetailsResponse" + codePipeline (Proxy :: Proxy GetJobDetails) testListPipelinesResponse :: ListPipelinesResponse -> TestTree testListPipelinesResponse = res "ListPipelinesResponse" "fixture/ListPipelinesResponse" + codePipeline (Proxy :: Proxy ListPipelines) testDeleteCustomActionTypeResponse :: DeleteCustomActionTypeResponse -> TestTree testDeleteCustomActionTypeResponse = res "DeleteCustomActionTypeResponse" "fixture/DeleteCustomActionTypeResponse" + codePipeline (Proxy :: Proxy DeleteCustomActionType) testPutActionRevisionResponse :: PutActionRevisionResponse -> TestTree testPutActionRevisionResponse = res "PutActionRevisionResponse" "fixture/PutActionRevisionResponse" + codePipeline (Proxy :: Proxy PutActionRevision) testPutJobSuccessResultResponse :: PutJobSuccessResultResponse -> TestTree testPutJobSuccessResultResponse = res "PutJobSuccessResultResponse" "fixture/PutJobSuccessResultResponse" + codePipeline (Proxy :: Proxy PutJobSuccessResult) testListActionTypesResponse :: ListActionTypesResponse -> TestTree testListActionTypesResponse = res "ListActionTypesResponse" "fixture/ListActionTypesResponse" + codePipeline (Proxy :: Proxy ListActionTypes) testDisableStageTransitionResponse :: DisableStageTransitionResponse -> TestTree testDisableStageTransitionResponse = res "DisableStageTransitionResponse" "fixture/DisableStageTransitionResponse" + codePipeline (Proxy :: Proxy DisableStageTransition) testAcknowledgeJobResponse :: AcknowledgeJobResponse -> TestTree testAcknowledgeJobResponse = res "AcknowledgeJobResponse" "fixture/AcknowledgeJobResponse" + codePipeline (Proxy :: Proxy AcknowledgeJob) testEnableStageTransitionResponse :: EnableStageTransitionResponse -> TestTree testEnableStageTransitionResponse = res "EnableStageTransitionResponse" "fixture/EnableStageTransitionResponse" + codePipeline (Proxy :: Proxy EnableStageTransition) testGetThirdPartyJobDetailsResponse :: GetThirdPartyJobDetailsResponse -> TestTree testGetThirdPartyJobDetailsResponse = res "GetThirdPartyJobDetailsResponse" "fixture/GetThirdPartyJobDetailsResponse" + codePipeline (Proxy :: Proxy GetThirdPartyJobDetails) testCreatePipelineResponse :: CreatePipelineResponse -> TestTree testCreatePipelineResponse = res "CreatePipelineResponse" "fixture/CreatePipelineResponse" + codePipeline (Proxy :: Proxy CreatePipeline) testCreateCustomActionTypeResponse :: CreateCustomActionTypeResponse -> TestTree testCreateCustomActionTypeResponse = res "CreateCustomActionTypeResponse" "fixture/CreateCustomActionTypeResponse" + codePipeline (Proxy :: Proxy CreateCustomActionType) testPutThirdPartyJobSuccessResultResponse :: PutThirdPartyJobSuccessResultResponse -> TestTree testPutThirdPartyJobSuccessResultResponse = res "PutThirdPartyJobSuccessResultResponse" "fixture/PutThirdPartyJobSuccessResultResponse" + codePipeline (Proxy :: Proxy PutThirdPartyJobSuccessResult)