amazonka-codepipeline 1.1.0 → 1.2.0

raw patch · 29 files changed

+238/−187 lines, 29 filesdep ~amazonka-codepipelinedep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-codepipeline.cabal +5/−5
• gen/Network/AWS/CodePipeline.hs +2/−2
• gen/Network/AWS/CodePipeline/AcknowledgeJob.hs +5/−3
• gen/Network/AWS/CodePipeline/AcknowledgeThirdPartyJob.hs +5/−4
• gen/Network/AWS/CodePipeline/CreateCustomActionType.hs +14/−11
• gen/Network/AWS/CodePipeline/CreatePipeline.hs +3/−3
• gen/Network/AWS/CodePipeline/DeleteCustomActionType.hs +5/−5
• gen/Network/AWS/CodePipeline/DeletePipeline.hs +2/−3
• gen/Network/AWS/CodePipeline/DisableStageTransition.hs +6/−6
• gen/Network/AWS/CodePipeline/EnableStageTransition.hs +5/−5
• gen/Network/AWS/CodePipeline/GetJobDetails.hs +2/−3
• gen/Network/AWS/CodePipeline/GetPipeline.hs +5/−3
• gen/Network/AWS/CodePipeline/GetPipelineState.hs +2/−3
• gen/Network/AWS/CodePipeline/GetThirdPartyJobDetails.hs +4/−4
• gen/Network/AWS/CodePipeline/ListActionTypes.hs +4/−4
• gen/Network/AWS/CodePipeline/ListPipelines.hs +3/−3
• gen/Network/AWS/CodePipeline/PollForJobs.hs +5/−5
• gen/Network/AWS/CodePipeline/PollForThirdPartyJobs.hs +4/−4
• gen/Network/AWS/CodePipeline/PutActionRevision.hs +6/−6
• gen/Network/AWS/CodePipeline/PutJobFailureResult.hs +4/−4
• gen/Network/AWS/CodePipeline/PutJobSuccessResult.hs +6/−6
• gen/Network/AWS/CodePipeline/PutThirdPartyJobFailureResult.hs +5/−5
• gen/Network/AWS/CodePipeline/PutThirdPartyJobSuccessResult.hs +8/−7
• gen/Network/AWS/CodePipeline/StartPipelineExecution.hs +2/−3
• gen/Network/AWS/CodePipeline/Types.hs +32/−36
• gen/Network/AWS/CodePipeline/Types/Product.hs +67/−40
• gen/Network/AWS/CodePipeline/UpdatePipeline.hs +3/−3
• test/Test/AWS/Gen/CodePipeline.hs +23/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -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

@@ -106,8 +106,8 @@ -- /See:/ <http://docs.aws.amazon.com/codepipeline/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.CodePipeline     (-    -- * Service-      CodePipeline+    -- * Service Configuration+      codePipeline      -- * Errors     -- $errors

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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 "/"

@@ -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

@@ -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. --

@@ -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 "/"

@@ -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)