summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2018-05-16 14:36:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2018-05-16 14:36:00 (GMT)
commit65a004a6e66e5962695eac0551c2702fc5bdbf58 (patch)
tree40fd5b79a17c9a94db2ec5ec05f7482db47e38c1
parent71bec44ba4f65975e63bae39f46005fbae8c6c12 (diff)
version 1.6.01.6.0
-rw-r--r--README.md2
-rw-r--r--amazonka-codedeploy.cabal12
-rw-r--r--fixture/DeleteGitHubAccountToken.yaml10
-rw-r--r--fixture/DeleteGitHubAccountTokenResponse.proto0
-rw-r--r--fixture/PutLifecycleEventHookExecutionStatus.yaml10
-rw-r--r--fixture/PutLifecycleEventHookExecutionStatusResponse.proto0
-rw-r--r--gen/Network/AWS/CodeDeploy.hs102
-rw-r--r--gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs8
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs26
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetApplications.hs16
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs24
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs22
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs16
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs16
-rw-r--r--gen/Network/AWS/CodeDeploy/ContinueDeployment.hs4
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateApplication.hs28
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeployment.hs50
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs65
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs70
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteApplication.hs4
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs4
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs18
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteGitHubAccountToken.hs141
-rw-r--r--gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs4
-rw-r--r--gen/Network/AWS/CodeDeploy/GetApplication.hs10
-rw-r--r--gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs26
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeployment.hs10
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs14
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs20
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs14
-rw-r--r--gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs10
-rw-r--r--gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs46
-rw-r--r--gen/Network/AWS/CodeDeploy/ListApplications.hs18
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs18
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs26
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs34
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeployments.hs38
-rw-r--r--gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs18
-rw-r--r--gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs30
-rw-r--r--gen/Network/AWS/CodeDeploy/PutLifecycleEventHookExecutionStatus.hs172
-rw-r--r--gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs16
-rw-r--r--gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs16
-rw-r--r--gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs8
-rw-r--r--gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs4
-rw-r--r--gen/Network/AWS/CodeDeploy/StopDeployment.hs22
-rw-r--r--gen/Network/AWS/CodeDeploy/Types.hs202
-rw-r--r--gen/Network/AWS/CodeDeploy/Types/Product.hs880
-rw-r--r--gen/Network/AWS/CodeDeploy/Types/Sum.hs109
-rw-r--r--gen/Network/AWS/CodeDeploy/UpdateApplication.hs8
-rw-r--r--gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs74
-rw-r--r--gen/Network/AWS/CodeDeploy/Waiters.hs38
-rw-r--r--test/Main.hs2
-rw-r--r--test/Test/AWS/CodeDeploy.hs2
-rw-r--r--test/Test/AWS/CodeDeploy/Internal.hs2
-rw-r--r--test/Test/AWS/Gen/CodeDeploy.hs38
55 files changed, 1812 insertions, 765 deletions
diff --git a/README.md b/README.md
index a29381b..a087e44 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.5.0`
+`1.6.0`
## Description
diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal
index 51a411f..7c7cf4e 100644
--- a/amazonka-codedeploy.cabal
+++ b/amazonka-codedeploy.cabal
@@ -1,5 +1,5 @@
name: amazonka-codedeploy
-version: 1.5.0
+version: 1.6.0
synopsis: Amazon CodeDeploy SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
@@ -7,7 +7,7 @@ license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-copyright: Copyright (c) 2013-2017 Brendan Hay
+copyright: Copyright (c) 2013-2018 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -60,6 +60,7 @@ library
, Network.AWS.CodeDeploy.DeleteApplication
, Network.AWS.CodeDeploy.DeleteDeploymentConfig
, Network.AWS.CodeDeploy.DeleteDeploymentGroup
+ , Network.AWS.CodeDeploy.DeleteGitHubAccountToken
, Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
, Network.AWS.CodeDeploy.GetApplication
, Network.AWS.CodeDeploy.GetApplicationRevision
@@ -76,6 +77,7 @@ library
, Network.AWS.CodeDeploy.ListDeployments
, Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
, Network.AWS.CodeDeploy.ListOnPremisesInstances
+ , Network.AWS.CodeDeploy.PutLifecycleEventHookExecutionStatus
, Network.AWS.CodeDeploy.RegisterApplicationRevision
, Network.AWS.CodeDeploy.RegisterOnPremisesInstance
, Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
@@ -91,7 +93,7 @@ library
, Network.AWS.CodeDeploy.Types.Sum
build-depends:
- amazonka-core == 1.5.0.*
+ amazonka-core == 1.6.0.*
, base >= 4.7 && < 5
test-suite amazonka-codedeploy-test
@@ -111,8 +113,8 @@ test-suite amazonka-codedeploy-test
, Test.AWS.CodeDeploy.Internal
build-depends:
- amazonka-core == 1.5.0.*
- , amazonka-test == 1.5.0.*
+ amazonka-core == 1.6.0.*
+ , amazonka-test == 1.6.0.*
, amazonka-codedeploy
, base
, bytestring
diff --git a/fixture/DeleteGitHubAccountToken.yaml b/fixture/DeleteGitHubAccountToken.yaml
new file mode 100644
index 0000000..cf3d81d
--- /dev/null
+++ b/fixture/DeleteGitHubAccountToken.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codedeploy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: codedeploy.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/DeleteGitHubAccountTokenResponse.proto b/fixture/DeleteGitHubAccountTokenResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/DeleteGitHubAccountTokenResponse.proto
diff --git a/fixture/PutLifecycleEventHookExecutionStatus.yaml b/fixture/PutLifecycleEventHookExecutionStatus.yaml
new file mode 100644
index 0000000..cf3d81d
--- /dev/null
+++ b/fixture/PutLifecycleEventHookExecutionStatus.yaml
@@ -0,0 +1,10 @@
+---
+method: POST
+headers:
+ Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/codedeploy/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?
+ Host: codedeploy.us-east-1.amazonaws.com
+ Content-Type: application/x-www-form-urlencoded; charset=utf-8
+ X-Amz-Content-SHA256: abcdef
+ X-Amz-Date: 20091028T223200Z
+body:
+ ''
diff --git a/fixture/PutLifecycleEventHookExecutionStatusResponse.proto b/fixture/PutLifecycleEventHookExecutionStatusResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/PutLifecycleEventHookExecutionStatusResponse.proto
diff --git a/gen/Network/AWS/CodeDeploy.hs b/gen/Network/AWS/CodeDeploy.hs
index ddeff28..1443da8 100644
--- a/gen/Network/AWS/CodeDeploy.hs
+++ b/gen/Network/AWS/CodeDeploy.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Network.AWS.CodeDeploy
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -13,9 +13,9 @@
--
-- __AWS CodeDeploy__
--
--- AWS CodeDeploy is a deployment service that automates application deployments to Amazon EC2 instances or on-premises instances running in your own facility.
+-- AWS CodeDeploy is a deployment service that automates application deployments to Amazon EC2 instances, on-premises instances running in your own facility, or serverless AWS Lambda functions.
--
--- You can deploy a nearly unlimited variety of application content, such as code, web and configuration files, executables, packages, scripts, multimedia files, and so on. AWS CodeDeploy can deploy application content stored in Amazon S3 buckets, GitHub repositories, or Bitbucket repositories. You do not need to make changes to your existing code before you can use AWS CodeDeploy.
+-- You can deploy a nearly unlimited variety of application content, such as an updated Lambda function, code, web and configuration files, executables, packages, scripts, multimedia files, and so on. AWS CodeDeploy can deploy application content stored in Amazon S3 buckets, GitHub repositories, or Bitbucket repositories. You do not need to make changes to your existing code before you can use AWS CodeDeploy.
--
-- AWS CodeDeploy makes it easier for you to rapidly release new features, helps you avoid downtime during application deployment, and handles the complexity of updating your applications, without many of the risks associated with error-prone manual deployments.
--
@@ -25,17 +25,17 @@
--
-- * __Application__ : A name that uniquely identifies the application you want to deploy. AWS CodeDeploy uses this name, which functions as a container, to ensure the correct combination of revision, deployment configuration, and deployment group are referenced during a deployment.
--
--- * __Deployment group__ : A set of individual instances. A deployment group contains individually tagged instances, Amazon EC2 instances in Auto Scaling groups, or both.
+-- * __Deployment group__ : A set of individual instances or CodeDeploy Lambda applications. A Lambda deployment group contains a group of applications. An EC2/On-premises deployment group contains individually tagged instances, Amazon EC2 instances in Auto Scaling groups, or both.
--
-- * __Deployment configuration__ : A set of deployment rules and deployment success and failure conditions used by AWS CodeDeploy during a deployment.
--
--- * __Deployment__ : The process, and the components involved in the process, of installing content on one or more instances.
+-- * __Deployment__ : The process and the components used in the process of updating a Lambda function or of installing content on one or more instances.
--
--- * __Application revisions__ : An archive file containing source content—source code, web pages, executable files, and deployment scripts—along with an application specification file (AppSpec file). Revisions are stored in Amazon S3 buckets or GitHub repositories. For Amazon S3, a revision is uniquely identified by its Amazon S3 object key and its ETag, version, or both. For GitHub, a revision is uniquely identified by its commit ID.
+-- * __Application revisions__ : For an AWS Lambda deployment, this is an AppSpec file that specifies the Lambda function to update and one or more functions to validate deployment lifecycle events. For an EC2/On-premises deployment, this is an archive file containing source content—source code, web pages, executable files, and deployment scripts—along with an AppSpec file. Revisions are stored in Amazon S3 buckets or GitHub repositories. For Amazon S3, a revision is uniquely identified by its Amazon S3 object key and its ETag, version, or both. For GitHub, a revision is uniquely identified by its commit ID.
--
--
--
--- This guide also contains information to help you get details about the instances in your deployments and to make on-premises instances available for AWS CodeDeploy deployments.
+-- This guide also contains information to help you get details about the instances in your deployments, to make on-premises instances available for AWS CodeDeploy deployments, and to get details about a Lambda function deployment.
--
-- __AWS CodeDeploy Information Resources__
--
@@ -63,6 +63,9 @@ module Network.AWS.CodeDeploy
-- ** InvalidTimeRangeException
, _InvalidTimeRangeException
+ -- ** InvalidComputePlatformException
+ , _InvalidComputePlatformException
+
-- ** InvalidTagException
, _InvalidTagException
@@ -87,6 +90,9 @@ module Network.AWS.CodeDeploy
-- ** IAMSessionARNAlreadyRegisteredException
, _IAMSessionARNAlreadyRegisteredException
+ -- ** InvalidTrafficRoutingConfigurationException
+ , _InvalidTrafficRoutingConfigurationException
+
-- ** DescriptionTooLongException
, _DescriptionTooLongException
@@ -132,6 +138,9 @@ module Network.AWS.CodeDeploy
-- ** InstanceLimitExceededException
, _InstanceLimitExceededException
+ -- ** InvalidLifecycleEventHookExecutionIdException
+ , _InvalidLifecycleEventHookExecutionIdException
+
-- ** InvalidDeploymentStyleException
, _InvalidDeploymentStyleException
@@ -159,18 +168,33 @@ module Network.AWS.CodeDeploy
-- ** ResourceValidationException
, _ResourceValidationException
+ -- ** InvalidGitHubAccountTokenException
+ , _InvalidGitHubAccountTokenException
+
-- ** InvalidEC2TagCombinationException
, _InvalidEC2TagCombinationException
+ -- ** InvalidLifecycleEventHookExecutionStatusException
+ , _InvalidLifecycleEventHookExecutionStatusException
+
-- ** AlarmsLimitExceededException
, _AlarmsLimitExceededException
+ -- ** OperationNotSupportedException
+ , _OperationNotSupportedException
+
-- ** InvalidTagFilterException
, _InvalidTagFilterException
-- ** InvalidTriggerConfigException
, _InvalidTriggerConfigException
+ -- ** InvalidIgnoreApplicationStopFailuresValueException
+ , _InvalidIgnoreApplicationStopFailuresValueException
+
+ -- ** InvalidUpdateOutdatedInstancesOnlyValueException
+ , _InvalidUpdateOutdatedInstancesOnlyValueException
+
-- ** TagRequiredException
, _TagRequiredException
@@ -201,6 +225,9 @@ module Network.AWS.CodeDeploy
-- ** DeploymentGroupDoesNotExistException
, _DeploymentGroupDoesNotExistException
+ -- ** ThrottlingException
+ , _ThrottlingException
+
-- ** InvalidDeploymentConfigNameException
, _InvalidDeploymentConfigNameException
@@ -210,6 +237,9 @@ module Network.AWS.CodeDeploy
-- ** DeploymentIdRequiredException
, _DeploymentIdRequiredException
+ -- ** InvalidInstanceIdException
+ , _InvalidInstanceIdException
+
-- ** DeploymentIsNotInReadyStateException
, _DeploymentIsNotInReadyStateException
@@ -249,6 +279,9 @@ module Network.AWS.CodeDeploy
-- ** DeploymentConfigInUseException
, _DeploymentConfigInUseException
+ -- ** InvalidInputException
+ , _InvalidInputException
+
-- ** InvalidEC2TagException
, _InvalidEC2TagException
@@ -294,12 +327,21 @@ module Network.AWS.CodeDeploy
-- ** InvalidOperationException
, _InvalidOperationException
+ -- ** GitHubAccountTokenNameRequiredException
+ , _GitHubAccountTokenNameRequiredException
+
-- ** InvalidDeploymentInstanceTypeException
, _InvalidDeploymentInstanceTypeException
-- ** IAMARNRequiredException
, _IAMARNRequiredException
+ -- ** InvalidGitHubAccountTokenNameException
+ , _InvalidGitHubAccountTokenNameException
+
+ -- ** LifecycleEventAlreadyCompletedException
+ , _LifecycleEventAlreadyCompletedException
+
-- ** InvalidKeyPrefixFilterException
, _InvalidKeyPrefixFilterException
@@ -369,12 +411,18 @@ module Network.AWS.CodeDeploy
-- ** UpdateApplication
, module Network.AWS.CodeDeploy.UpdateApplication
+ -- ** DeleteGitHubAccountToken
+ , module Network.AWS.CodeDeploy.DeleteGitHubAccountToken
+
-- ** GetDeploymentInstance
, module Network.AWS.CodeDeploy.GetDeploymentInstance
-- ** DeregisterOnPremisesInstance
, module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
+ -- ** PutLifecycleEventHookExecutionStatus
+ , module Network.AWS.CodeDeploy.PutLifecycleEventHookExecutionStatus
+
-- ** CreateApplication
, module Network.AWS.CodeDeploy.CreateApplication
@@ -437,6 +485,9 @@ module Network.AWS.CodeDeploy
-- ** BundleType
, BundleType (..)
+ -- ** ComputePlatform
+ , ComputePlatform (..)
+
-- ** DeployErrorCode
, DeployErrorCode (..)
@@ -500,6 +551,9 @@ module Network.AWS.CodeDeploy
-- ** TagFilterType
, TagFilterType (..)
+ -- ** TrafficRoutingType
+ , TrafficRoutingType (..)
+
-- ** TriggerEventType
, TriggerEventType (..)
@@ -519,6 +573,7 @@ module Network.AWS.CodeDeploy
, ApplicationInfo
, applicationInfo
, aiLinkedToGitHub
+ , aiComputePlatform
, aiApplicationId
, aiApplicationName
, aiGitHubAccountName
@@ -553,7 +608,9 @@ module Network.AWS.CodeDeploy
, DeploymentConfigInfo
, deploymentConfigInfo
, dciDeploymentConfigName
+ , dciComputePlatform
, dciMinimumHealthyHosts
+ , dciTrafficRoutingConfig
, dciDeploymentConfigId
, dciCreateTime
@@ -565,6 +622,7 @@ module Network.AWS.CodeDeploy
, dgiDeploymentConfigName
, dgiLastAttemptedDeployment
, dgiOnPremisesTagSet
+ , dgiComputePlatform
, dgiTargetRevision
, dgiEc2TagFilters
, dgiBlueGreenDeploymentConfiguration
@@ -587,8 +645,10 @@ module Network.AWS.CodeDeploy
, diStatus
, diDeploymentId
, diDeploymentConfigName
+ , diComputePlatform
, diPreviousRevision
, diInstanceTerminationWaitTimeStarted
+ , diDeploymentStatusMessages
, diStartTime
, diCompleteTime
, diBlueGreenDeploymentConfiguration
@@ -737,6 +797,12 @@ module Network.AWS.CodeDeploy
, onPremisesTagSet
, optsOnPremisesTagSetList
+ -- ** RawString
+ , RawString
+ , rawString
+ , rsContent
+ , rsSha256
+
-- ** RevisionInfo
, RevisionInfo
, revisionInfo
@@ -746,6 +812,7 @@ module Network.AWS.CodeDeploy
-- ** RevisionLocation
, RevisionLocation
, revisionLocation
+ , rlString
, rlRevisionType
, rlS3Location
, rlGitHubLocation
@@ -791,12 +858,31 @@ module Network.AWS.CodeDeploy
, tiTagFilters
, tiAutoScalingGroups
+ -- ** TimeBasedCanary
+ , TimeBasedCanary
+ , timeBasedCanary
+ , tbcCanaryInterval
+ , tbcCanaryPercentage
+
+ -- ** TimeBasedLinear
+ , TimeBasedLinear
+ , timeBasedLinear
+ , tblLinearInterval
+ , tblLinearPercentage
+
-- ** TimeRange
, TimeRange
, timeRange
, trStart
, trEnd
+ -- ** TrafficRoutingConfig
+ , TrafficRoutingConfig
+ , trafficRoutingConfig
+ , trcTimeBasedCanary
+ , trcTimeBasedLinear
+ , trcType
+
-- ** TriggerConfig
, TriggerConfig
, triggerConfig
@@ -820,6 +906,7 @@ import Network.AWS.CodeDeploy.CreateDeploymentGroup
import Network.AWS.CodeDeploy.DeleteApplication
import Network.AWS.CodeDeploy.DeleteDeploymentConfig
import Network.AWS.CodeDeploy.DeleteDeploymentGroup
+import Network.AWS.CodeDeploy.DeleteGitHubAccountToken
import Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
import Network.AWS.CodeDeploy.GetApplication
import Network.AWS.CodeDeploy.GetApplicationRevision
@@ -836,6 +923,7 @@ import Network.AWS.CodeDeploy.ListDeploymentInstances
import Network.AWS.CodeDeploy.ListDeployments
import Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
import Network.AWS.CodeDeploy.ListOnPremisesInstances
+import Network.AWS.CodeDeploy.PutLifecycleEventHookExecutionStatus
import Network.AWS.CodeDeploy.RegisterApplicationRevision
import Network.AWS.CodeDeploy.RegisterOnPremisesInstance
import Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
diff --git a/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
index 27b1c22..7915120 100644
--- a/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,16 +64,16 @@ addTagsToOnPremisesInstances
:: AddTagsToOnPremisesInstances
addTagsToOnPremisesInstances =
AddTagsToOnPremisesInstances'
- {_attopiTags = mempty, _attopiInstanceNames = mempty}
+ {_attopiTags = mempty, _attopiInstanceNames = mempty}
-- | The tag key-value pairs to add to the on-premises instances. Keys and values are both required. Keys cannot be null or empty strings. Value-only tags are not allowed.
attopiTags :: Lens' AddTagsToOnPremisesInstances [Tag]
-attopiTags = lens _attopiTags (\ s a -> s{_attopiTags = a}) . _Coerce;
+attopiTags = lens _attopiTags (\ s a -> s{_attopiTags = a}) . _Coerce
-- | The names of the on-premises instances to which to add tags.
attopiInstanceNames :: Lens' AddTagsToOnPremisesInstances [Text]
-attopiInstanceNames = lens _attopiInstanceNames (\ s a -> s{_attopiInstanceNames = a}) . _Coerce;
+attopiInstanceNames = lens _attopiInstanceNames (\ s a -> s{_attopiInstanceNames = a}) . _Coerce
instance AWSRequest AddTagsToOnPremisesInstances
where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
index 0543a1d..db069af 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetApplicationRevisions
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,16 +70,16 @@ batchGetApplicationRevisions
-> BatchGetApplicationRevisions
batchGetApplicationRevisions pApplicationName_ =
BatchGetApplicationRevisions'
- {_bgarApplicationName = pApplicationName_, _bgarRevisions = mempty}
+ {_bgarApplicationName = pApplicationName_, _bgarRevisions = mempty}
-- | The name of an AWS CodeDeploy application about which to get revision information.
bgarApplicationName :: Lens' BatchGetApplicationRevisions Text
-bgarApplicationName = lens _bgarApplicationName (\ s a -> s{_bgarApplicationName = a});
+bgarApplicationName = lens _bgarApplicationName (\ s a -> s{_bgarApplicationName = a})
-- | Information to get about the application revisions, including type and location.
bgarRevisions :: Lens' BatchGetApplicationRevisions [RevisionLocation]
-bgarRevisions = lens _bgarRevisions (\ s a -> s{_bgarRevisions = a}) . _Coerce;
+bgarRevisions = lens _bgarRevisions (\ s a -> s{_bgarRevisions = a}) . _Coerce
instance AWSRequest BatchGetApplicationRevisions
where
@@ -151,28 +151,28 @@ batchGetApplicationRevisionsResponse
-> BatchGetApplicationRevisionsResponse
batchGetApplicationRevisionsResponse pResponseStatus_ =
BatchGetApplicationRevisionsResponse'
- { _bgarrsApplicationName = Nothing
- , _bgarrsRevisions = Nothing
- , _bgarrsErrorMessage = Nothing
- , _bgarrsResponseStatus = pResponseStatus_
- }
+ { _bgarrsApplicationName = Nothing
+ , _bgarrsRevisions = Nothing
+ , _bgarrsErrorMessage = Nothing
+ , _bgarrsResponseStatus = pResponseStatus_
+ }
-- | The name of the application that corresponds to the revisions.
bgarrsApplicationName :: Lens' BatchGetApplicationRevisionsResponse (Maybe Text)
-bgarrsApplicationName = lens _bgarrsApplicationName (\ s a -> s{_bgarrsApplicationName = a});
+bgarrsApplicationName = lens _bgarrsApplicationName (\ s a -> s{_bgarrsApplicationName = a})
-- | Additional information about the revisions, including the type and location.
bgarrsRevisions :: Lens' BatchGetApplicationRevisionsResponse [RevisionInfo]
-bgarrsRevisions = lens _bgarrsRevisions (\ s a -> s{_bgarrsRevisions = a}) . _Default . _Coerce;
+bgarrsRevisions = lens _bgarrsRevisions (\ s a -> s{_bgarrsRevisions = a}) . _Default . _Coerce
-- | Information about errors that may have occurred during the API call.
bgarrsErrorMessage :: Lens' BatchGetApplicationRevisionsResponse (Maybe Text)
-bgarrsErrorMessage = lens _bgarrsErrorMessage (\ s a -> s{_bgarrsErrorMessage = a});
+bgarrsErrorMessage = lens _bgarrsErrorMessage (\ s a -> s{_bgarrsErrorMessage = a})
-- | -- | The response status code.
bgarrsResponseStatus :: Lens' BatchGetApplicationRevisionsResponse Int
-bgarrsResponseStatus = lens _bgarrsResponseStatus (\ s a -> s{_bgarrsResponseStatus = a});
+bgarrsResponseStatus = lens _bgarrsResponseStatus (\ s a -> s{_bgarrsResponseStatus = a})
instance NFData BatchGetApplicationRevisionsResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
index fb17371..643cd87 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetApplications
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -50,7 +50,7 @@ import Network.AWS.Response
--
-- /See:/ 'batchGetApplications' smart constructor.
newtype BatchGetApplications = BatchGetApplications'
- { _bgaApplicationNames :: Maybe [Text]
+ { _bgaApplicationNames :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -61,12 +61,12 @@ newtype BatchGetApplications = BatchGetApplications'
-- * 'bgaApplicationNames' - A list of application names separated by spaces.
batchGetApplications
:: BatchGetApplications
-batchGetApplications = BatchGetApplications' {_bgaApplicationNames = Nothing}
+batchGetApplications = BatchGetApplications' {_bgaApplicationNames = mempty}
-- | A list of application names separated by spaces.
bgaApplicationNames :: Lens' BatchGetApplications [Text]
-bgaApplicationNames = lens _bgaApplicationNames (\ s a -> s{_bgaApplicationNames = a}) . _Default . _Coerce;
+bgaApplicationNames = lens _bgaApplicationNames (\ s a -> s{_bgaApplicationNames = a}) . _Coerce
instance AWSRequest BatchGetApplications where
type Rs BatchGetApplications =
@@ -97,7 +97,7 @@ instance ToJSON BatchGetApplications where
toJSON BatchGetApplications'{..}
= object
(catMaybes
- [("applicationNames" .=) <$> _bgaApplicationNames])
+ [Just ("applicationNames" .= _bgaApplicationNames)])
instance ToPath BatchGetApplications where
toPath = const "/"
@@ -128,15 +128,15 @@ batchGetApplicationsResponse
-> BatchGetApplicationsResponse
batchGetApplicationsResponse pResponseStatus_ =
BatchGetApplicationsResponse'
- {_bgarsApplicationsInfo = Nothing, _bgarsResponseStatus = pResponseStatus_}
+ {_bgarsApplicationsInfo = Nothing, _bgarsResponseStatus = pResponseStatus_}
-- | Information about the applications.
bgarsApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo]
-bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicationsInfo = a}) . _Default . _Coerce;
+bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicationsInfo = a}) . _Default . _Coerce
-- | -- | The response status code.
bgarsResponseStatus :: Lens' BatchGetApplicationsResponse Int
-bgarsResponseStatus = lens _bgarsResponseStatus (\ s a -> s{_bgarsResponseStatus = a});
+bgarsResponseStatus = lens _bgarsResponseStatus (\ s a -> s{_bgarsResponseStatus = a})
instance NFData BatchGetApplicationsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
index 0bab5d5..a1e5d15 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeploymentGroups
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,16 +69,18 @@ batchGetDeploymentGroups
-> BatchGetDeploymentGroups
batchGetDeploymentGroups pApplicationName_ =
BatchGetDeploymentGroups'
- {_bgdgApplicationName = pApplicationName_, _bgdgDeploymentGroupNames = mempty}
+ { _bgdgApplicationName = pApplicationName_
+ , _bgdgDeploymentGroupNames = mempty
+ }
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
bgdgApplicationName :: Lens' BatchGetDeploymentGroups Text
-bgdgApplicationName = lens _bgdgApplicationName (\ s a -> s{_bgdgApplicationName = a});
+bgdgApplicationName = lens _bgdgApplicationName (\ s a -> s{_bgdgApplicationName = a})
-- | The deployment groups' names.
bgdgDeploymentGroupNames :: Lens' BatchGetDeploymentGroups [Text]
-bgdgDeploymentGroupNames = lens _bgdgDeploymentGroupNames (\ s a -> s{_bgdgDeploymentGroupNames = a}) . _Coerce;
+bgdgDeploymentGroupNames = lens _bgdgDeploymentGroupNames (\ s a -> s{_bgdgDeploymentGroupNames = a}) . _Coerce
instance AWSRequest BatchGetDeploymentGroups where
type Rs BatchGetDeploymentGroups =
@@ -147,23 +149,23 @@ batchGetDeploymentGroupsResponse
-> BatchGetDeploymentGroupsResponse
batchGetDeploymentGroupsResponse pResponseStatus_ =
BatchGetDeploymentGroupsResponse'
- { _bgdgrsDeploymentGroupsInfo = Nothing
- , _bgdgrsErrorMessage = Nothing
- , _bgdgrsResponseStatus = pResponseStatus_
- }
+ { _bgdgrsDeploymentGroupsInfo = Nothing
+ , _bgdgrsErrorMessage = Nothing
+ , _bgdgrsResponseStatus = pResponseStatus_
+ }
-- | Information about the deployment groups.
bgdgrsDeploymentGroupsInfo :: Lens' BatchGetDeploymentGroupsResponse [DeploymentGroupInfo]
-bgdgrsDeploymentGroupsInfo = lens _bgdgrsDeploymentGroupsInfo (\ s a -> s{_bgdgrsDeploymentGroupsInfo = a}) . _Default . _Coerce;
+bgdgrsDeploymentGroupsInfo = lens _bgdgrsDeploymentGroupsInfo (\ s a -> s{_bgdgrsDeploymentGroupsInfo = a}) . _Default . _Coerce
-- | Information about errors that may have occurred during the API call.
bgdgrsErrorMessage :: Lens' BatchGetDeploymentGroupsResponse (Maybe Text)
-bgdgrsErrorMessage = lens _bgdgrsErrorMessage (\ s a -> s{_bgdgrsErrorMessage = a});
+bgdgrsErrorMessage = lens _bgdgrsErrorMessage (\ s a -> s{_bgdgrsErrorMessage = a})
-- | -- | The response status code.
bgdgrsResponseStatus :: Lens' BatchGetDeploymentGroupsResponse Int
-bgdgrsResponseStatus = lens _bgdgrsResponseStatus (\ s a -> s{_bgdgrsResponseStatus = a});
+bgdgrsResponseStatus = lens _bgdgrsResponseStatus (\ s a -> s{_bgdgrsResponseStatus = a})
instance NFData BatchGetDeploymentGroupsResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs
index 5726e4e..a5cd824 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeploymentInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,16 +69,16 @@ batchGetDeploymentInstances
-> BatchGetDeploymentInstances
batchGetDeploymentInstances pDeploymentId_ =
BatchGetDeploymentInstances'
- {_bgdiDeploymentId = pDeploymentId_, _bgdiInstanceIds = mempty}
+ {_bgdiDeploymentId = pDeploymentId_, _bgdiInstanceIds = mempty}
-- | The unique ID of a deployment.
bgdiDeploymentId :: Lens' BatchGetDeploymentInstances Text
-bgdiDeploymentId = lens _bgdiDeploymentId (\ s a -> s{_bgdiDeploymentId = a});
+bgdiDeploymentId = lens _bgdiDeploymentId (\ s a -> s{_bgdiDeploymentId = a})
-- | The unique IDs of instances in the deployment group.
bgdiInstanceIds :: Lens' BatchGetDeploymentInstances [Text]
-bgdiInstanceIds = lens _bgdiInstanceIds (\ s a -> s{_bgdiInstanceIds = a}) . _Coerce;
+bgdiInstanceIds = lens _bgdiInstanceIds (\ s a -> s{_bgdiInstanceIds = a}) . _Coerce
instance AWSRequest BatchGetDeploymentInstances where
type Rs BatchGetDeploymentInstances =
@@ -145,23 +145,23 @@ batchGetDeploymentInstancesResponse
-> BatchGetDeploymentInstancesResponse
batchGetDeploymentInstancesResponse pResponseStatus_ =
BatchGetDeploymentInstancesResponse'
- { _bgdirsInstancesSummary = Nothing
- , _bgdirsErrorMessage = Nothing
- , _bgdirsResponseStatus = pResponseStatus_
- }
+ { _bgdirsInstancesSummary = Nothing
+ , _bgdirsErrorMessage = Nothing
+ , _bgdirsResponseStatus = pResponseStatus_
+ }
-- | Information about the instance.
bgdirsInstancesSummary :: Lens' BatchGetDeploymentInstancesResponse [InstanceSummary]
-bgdirsInstancesSummary = lens _bgdirsInstancesSummary (\ s a -> s{_bgdirsInstancesSummary = a}) . _Default . _Coerce;
+bgdirsInstancesSummary = lens _bgdirsInstancesSummary (\ s a -> s{_bgdirsInstancesSummary = a}) . _Default . _Coerce
-- | Information about errors that may have occurred during the API call.
bgdirsErrorMessage :: Lens' BatchGetDeploymentInstancesResponse (Maybe Text)
-bgdirsErrorMessage = lens _bgdirsErrorMessage (\ s a -> s{_bgdirsErrorMessage = a});
+bgdirsErrorMessage = lens _bgdirsErrorMessage (\ s a -> s{_bgdirsErrorMessage = a})
-- | -- | The response status code.
bgdirsResponseStatus :: Lens' BatchGetDeploymentInstancesResponse Int
-bgdirsResponseStatus = lens _bgdirsResponseStatus (\ s a -> s{_bgdirsResponseStatus = a});
+bgdirsResponseStatus = lens _bgdirsResponseStatus (\ s a -> s{_bgdirsResponseStatus = a})
instance NFData BatchGetDeploymentInstancesResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
index 9e480af..33f15d9 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeployments
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -50,7 +50,7 @@ import Network.AWS.Response
--
-- /See:/ 'batchGetDeployments' smart constructor.
newtype BatchGetDeployments = BatchGetDeployments'
- { _bgdDeploymentIds :: Maybe [Text]
+ { _bgdDeploymentIds :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -61,12 +61,12 @@ newtype BatchGetDeployments = BatchGetDeployments'
-- * 'bgdDeploymentIds' - A list of deployment IDs, separated by spaces.
batchGetDeployments
:: BatchGetDeployments
-batchGetDeployments = BatchGetDeployments' {_bgdDeploymentIds = Nothing}
+batchGetDeployments = BatchGetDeployments' {_bgdDeploymentIds = mempty}
-- | A list of deployment IDs, separated by spaces.
bgdDeploymentIds :: Lens' BatchGetDeployments [Text]
-bgdDeploymentIds = lens _bgdDeploymentIds (\ s a -> s{_bgdDeploymentIds = a}) . _Default . _Coerce;
+bgdDeploymentIds = lens _bgdDeploymentIds (\ s a -> s{_bgdDeploymentIds = a}) . _Coerce
instance AWSRequest BatchGetDeployments where
type Rs BatchGetDeployments =
@@ -97,7 +97,7 @@ instance ToJSON BatchGetDeployments where
toJSON BatchGetDeployments'{..}
= object
(catMaybes
- [("deploymentIds" .=) <$> _bgdDeploymentIds])
+ [Just ("deploymentIds" .= _bgdDeploymentIds)])
instance ToPath BatchGetDeployments where
toPath = const "/"
@@ -128,15 +128,15 @@ batchGetDeploymentsResponse
-> BatchGetDeploymentsResponse
batchGetDeploymentsResponse pResponseStatus_ =
BatchGetDeploymentsResponse'
- {_bgdrsDeploymentsInfo = Nothing, _bgdrsResponseStatus = pResponseStatus_}
+ {_bgdrsDeploymentsInfo = Nothing, _bgdrsResponseStatus = pResponseStatus_}
-- | Information about the deployments.
bgdrsDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo]
-bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsInfo = a}) . _Default . _Coerce;
+bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsInfo = a}) . _Default . _Coerce
-- | -- | The response status code.
bgdrsResponseStatus :: Lens' BatchGetDeploymentsResponse Int
-bgdrsResponseStatus = lens _bgdrsResponseStatus (\ s a -> s{_bgdrsResponseStatus = a});
+bgdrsResponseStatus = lens _bgdrsResponseStatus (\ s a -> s{_bgdrsResponseStatus = a})
instance NFData BatchGetDeploymentsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
index cdebc82..9c1958f 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -50,7 +50,7 @@ import Network.AWS.Response
--
-- /See:/ 'batchGetOnPremisesInstances' smart constructor.
newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'
- { _bgopiInstanceNames :: Maybe [Text]
+ { _bgopiInstanceNames :: [Text]
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -62,12 +62,12 @@ newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'
batchGetOnPremisesInstances
:: BatchGetOnPremisesInstances
batchGetOnPremisesInstances =
- BatchGetOnPremisesInstances' {_bgopiInstanceNames = Nothing}
+ BatchGetOnPremisesInstances' {_bgopiInstanceNames = mempty}
-- | The names of the on-premises instances about which to get information.
bgopiInstanceNames :: Lens' BatchGetOnPremisesInstances [Text]
-bgopiInstanceNames = lens _bgopiInstanceNames (\ s a -> s{_bgopiInstanceNames = a}) . _Default . _Coerce;
+bgopiInstanceNames = lens _bgopiInstanceNames (\ s a -> s{_bgopiInstanceNames = a}) . _Coerce
instance AWSRequest BatchGetOnPremisesInstances where
type Rs BatchGetOnPremisesInstances =
@@ -98,7 +98,7 @@ instance ToJSON BatchGetOnPremisesInstances where
toJSON BatchGetOnPremisesInstances'{..}
= object
(catMaybes
- [("instanceNames" .=) <$> _bgopiInstanceNames])
+ [Just ("instanceNames" .= _bgopiInstanceNames)])
instance ToPath BatchGetOnPremisesInstances where
toPath = const "/"
@@ -129,16 +129,16 @@ batchGetOnPremisesInstancesResponse
-> BatchGetOnPremisesInstancesResponse
batchGetOnPremisesInstancesResponse pResponseStatus_ =
BatchGetOnPremisesInstancesResponse'
- {_bgopirsInstanceInfos = Nothing, _bgopirsResponseStatus = pResponseStatus_}
+ {_bgopirsInstanceInfos = Nothing, _bgopirsResponseStatus = pResponseStatus_}
-- | Information about the on-premises instances.
bgopirsInstanceInfos :: Lens' BatchGetOnPremisesInstancesResponse [InstanceInfo]
-bgopirsInstanceInfos = lens _bgopirsInstanceInfos (\ s a -> s{_bgopirsInstanceInfos = a}) . _Default . _Coerce;
+bgopirsInstanceInfos = lens _bgopirsInstanceInfos (\ s a -> s{_bgopirsInstanceInfos = a}) . _Default . _Coerce
-- | -- | The response status code.
bgopirsResponseStatus :: Lens' BatchGetOnPremisesInstancesResponse Int
-bgopirsResponseStatus = lens _bgopirsResponseStatus (\ s a -> s{_bgopirsResponseStatus = a});
+bgopirsResponseStatus = lens _bgopirsResponseStatus (\ s a -> s{_bgopirsResponseStatus = a})
instance NFData BatchGetOnPremisesInstancesResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/ContinueDeployment.hs b/gen/Network/AWS/CodeDeploy/ContinueDeployment.hs
index 5372373..3f0ff51 100644
--- a/gen/Network/AWS/CodeDeploy/ContinueDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/ContinueDeployment.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ContinueDeployment
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -59,7 +59,7 @@ continueDeployment = ContinueDeployment' {_cdDeploymentId = Nothing}
-- | The deployment ID of the blue/green deployment for which you want to start rerouting traffic to the replacement environment.
cdDeploymentId :: Lens' ContinueDeployment (Maybe Text)
-cdDeploymentId = lens _cdDeploymentId (\ s a -> s{_cdDeploymentId = a});
+cdDeploymentId = lens _cdDeploymentId (\ s a -> s{_cdDeploymentId = a})
instance AWSRequest ContinueDeployment where
type Rs ContinueDeployment =
diff --git a/gen/Network/AWS/CodeDeploy/CreateApplication.hs b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
index a0ff318..09f8e17 100644
--- a/gen/Network/AWS/CodeDeploy/CreateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateApplication
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -27,6 +27,7 @@ module Network.AWS.CodeDeploy.CreateApplication
createApplication
, CreateApplication
-- * Request Lenses
+ , caComputePlatform
, caApplicationName
-- * Destructuring the Response
@@ -49,8 +50,9 @@ import Network.AWS.Response
--
--
-- /See:/ 'createApplication' smart constructor.
-newtype CreateApplication = CreateApplication'
- { _caApplicationName :: Text
+data CreateApplication = CreateApplication'
+ { _caComputePlatform :: !(Maybe ComputePlatform)
+ , _caApplicationName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -58,17 +60,24 @@ newtype CreateApplication = CreateApplication'
--
-- Use one of the following lenses to modify other fields as desired:
--
+-- * 'caComputePlatform' - The destination platform type for the deployment (@Lambda@ or @Server@ ).
+--
-- * 'caApplicationName' - The name of the application. This name must be unique with the applicable IAM user or AWS account.
createApplication
:: Text -- ^ 'caApplicationName'
-> CreateApplication
createApplication pApplicationName_ =
- CreateApplication' {_caApplicationName = pApplicationName_}
+ CreateApplication'
+ {_caComputePlatform = Nothing, _caApplicationName = pApplicationName_}
+
+-- | The destination platform type for the deployment (@Lambda@ or @Server@ ).
+caComputePlatform :: Lens' CreateApplication (Maybe ComputePlatform)
+caComputePlatform = lens _caComputePlatform (\ s a -> s{_caComputePlatform = a})
-- | The name of the application. This name must be unique with the applicable IAM user or AWS account.
caApplicationName :: Lens' CreateApplication Text
-caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a});
+caApplicationName = lens _caApplicationName (\ s a -> s{_caApplicationName = a})
instance AWSRequest CreateApplication where
type Rs CreateApplication = CreateApplicationResponse
@@ -97,7 +106,8 @@ instance ToJSON CreateApplication where
toJSON CreateApplication'{..}
= object
(catMaybes
- [Just ("applicationName" .= _caApplicationName)])
+ [("computePlatform" .=) <$> _caComputePlatform,
+ Just ("applicationName" .= _caApplicationName)])
instance ToPath CreateApplication where
toPath = const "/"
@@ -128,15 +138,15 @@ createApplicationResponse
-> CreateApplicationResponse
createApplicationResponse pResponseStatus_ =
CreateApplicationResponse'
- {_carsApplicationId = Nothing, _carsResponseStatus = pResponseStatus_}
+ {_carsApplicationId = Nothing, _carsResponseStatus = pResponseStatus_}
-- | A unique application ID.
carsApplicationId :: Lens' CreateApplicationResponse (Maybe Text)
-carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a});
+carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a})
-- | -- | The response status code.
carsResponseStatus :: Lens' CreateApplicationResponse Int
-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});
+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})
instance NFData CreateApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
index 615bd74..b08a3eb 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeployment
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -100,58 +100,58 @@ createDeployment
-> CreateDeployment
createDeployment pApplicationName_ =
CreateDeployment'
- { _cdDeploymentConfigName = Nothing
- , _cdFileExistsBehavior = Nothing
- , _cdTargetInstances = Nothing
- , _cdRevision = Nothing
- , _cdDescription = Nothing
- , _cdAutoRollbackConfiguration = Nothing
- , _cdUpdateOutdatedInstancesOnly = Nothing
- , _cdDeploymentGroupName = Nothing
- , _cdIgnoreApplicationStopFailures = Nothing
- , _cdApplicationName = pApplicationName_
- }
+ { _cdDeploymentConfigName = Nothing
+ , _cdFileExistsBehavior = Nothing
+ , _cdTargetInstances = Nothing
+ , _cdRevision = Nothing
+ , _cdDescription = Nothing
+ , _cdAutoRollbackConfiguration = Nothing
+ , _cdUpdateOutdatedInstancesOnly = Nothing
+ , _cdDeploymentGroupName = Nothing
+ , _cdIgnoreApplicationStopFailures = Nothing
+ , _cdApplicationName = pApplicationName_
+ }
-- | The name of a deployment configuration associated with the applicable IAM user or AWS account. If not specified, the value configured in the deployment group will be used as the default. If the deployment group does not have a deployment configuration associated with it, then CodeDeployDefault.OneAtATime will be used by default.
cdDeploymentConfigName :: Lens' CreateDeployment (Maybe Text)
-cdDeploymentConfigName = lens _cdDeploymentConfigName (\ s a -> s{_cdDeploymentConfigName = a});
+cdDeploymentConfigName = lens _cdDeploymentConfigName (\ s a -> s{_cdDeploymentConfigName = a})
-- | Information about how AWS CodeDeploy handles files that already exist in a deployment target location but weren't part of the previous successful deployment. The fileExistsBehavior parameter takes any of the following values: * DISALLOW: The deployment fails. This is also the default behavior if no option is specified. * OVERWRITE: The version of the file from the application revision currently being deployed replaces the version already on the instance. * RETAIN: The version of the file already on the instance is kept and used as part of the new deployment.
cdFileExistsBehavior :: Lens' CreateDeployment (Maybe FileExistsBehavior)
-cdFileExistsBehavior = lens _cdFileExistsBehavior (\ s a -> s{_cdFileExistsBehavior = a});
+cdFileExistsBehavior = lens _cdFileExistsBehavior (\ s a -> s{_cdFileExistsBehavior = a})
-- | Information about the instances that will belong to the replacement environment in a blue/green deployment.
cdTargetInstances :: Lens' CreateDeployment (Maybe TargetInstances)
-cdTargetInstances = lens _cdTargetInstances (\ s a -> s{_cdTargetInstances = a});
+cdTargetInstances = lens _cdTargetInstances (\ s a -> s{_cdTargetInstances = a})
-- | The type and location of the revision to deploy.
cdRevision :: Lens' CreateDeployment (Maybe RevisionLocation)
-cdRevision = lens _cdRevision (\ s a -> s{_cdRevision = a});
+cdRevision = lens _cdRevision (\ s a -> s{_cdRevision = a})
-- | A comment about the deployment.
cdDescription :: Lens' CreateDeployment (Maybe Text)
-cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a});
+cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a})
-- | Configuration information for an automatic rollback that is added when a deployment is created.
cdAutoRollbackConfiguration :: Lens' CreateDeployment (Maybe AutoRollbackConfiguration)
-cdAutoRollbackConfiguration = lens _cdAutoRollbackConfiguration (\ s a -> s{_cdAutoRollbackConfiguration = a});
+cdAutoRollbackConfiguration = lens _cdAutoRollbackConfiguration (\ s a -> s{_cdAutoRollbackConfiguration = a})
-- | Indicates whether to deploy to all instances or only to instances that are not running the latest application revision.
cdUpdateOutdatedInstancesOnly :: Lens' CreateDeployment (Maybe Bool)
-cdUpdateOutdatedInstancesOnly = lens _cdUpdateOutdatedInstancesOnly (\ s a -> s{_cdUpdateOutdatedInstancesOnly = a});
+cdUpdateOutdatedInstancesOnly = lens _cdUpdateOutdatedInstancesOnly (\ s a -> s{_cdUpdateOutdatedInstancesOnly = a})
-- | The name of the deployment group.
cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text)
-cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a});
+cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a})
-- | If set to true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If set to false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to fail to an instance, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed.
cdIgnoreApplicationStopFailures :: Lens' CreateDeployment (Maybe Bool)
-cdIgnoreApplicationStopFailures = lens _cdIgnoreApplicationStopFailures (\ s a -> s{_cdIgnoreApplicationStopFailures = a});
+cdIgnoreApplicationStopFailures = lens _cdIgnoreApplicationStopFailures (\ s a -> s{_cdIgnoreApplicationStopFailures = a})
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
cdApplicationName :: Lens' CreateDeployment Text
-cdApplicationName = lens _cdApplicationName (\ s a -> s{_cdApplicationName = a});
+cdApplicationName = lens _cdApplicationName (\ s a -> s{_cdApplicationName = a})
instance AWSRequest CreateDeployment where
type Rs CreateDeployment = CreateDeploymentResponse
@@ -225,15 +225,15 @@ createDeploymentResponse
-> CreateDeploymentResponse
createDeploymentResponse pResponseStatus_ =
CreateDeploymentResponse'
- {_cdrsDeploymentId = Nothing, _cdrsResponseStatus = pResponseStatus_}
+ {_cdrsDeploymentId = Nothing, _cdrsResponseStatus = pResponseStatus_}
-- | A unique deployment ID.
cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)
-cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a});
+cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a})
-- | -- | The response status code.
cdrsResponseStatus :: Lens' CreateDeploymentResponse Int
-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})
instance NFData CreateDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
index 76bb54b..3f4e320 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeploymentConfig
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -27,8 +27,10 @@ module Network.AWS.CodeDeploy.CreateDeploymentConfig
createDeploymentConfig
, CreateDeploymentConfig
-- * Request Lenses
- , cdcDeploymentConfigName
+ , cdcComputePlatform
, cdcMinimumHealthyHosts
+ , cdcTrafficRoutingConfig
+ , cdcDeploymentConfigName
-- * Destructuring the Response
, createDeploymentConfigResponse
@@ -51,8 +53,10 @@ import Network.AWS.Response
--
-- /See:/ 'createDeploymentConfig' smart constructor.
data CreateDeploymentConfig = CreateDeploymentConfig'
- { _cdcDeploymentConfigName :: !Text
- , _cdcMinimumHealthyHosts :: !MinimumHealthyHosts
+ { _cdcComputePlatform :: !(Maybe ComputePlatform)
+ , _cdcMinimumHealthyHosts :: !(Maybe MinimumHealthyHosts)
+ , _cdcTrafficRoutingConfig :: !(Maybe TrafficRoutingConfig)
+ , _cdcDeploymentConfigName :: !Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -60,27 +64,40 @@ data CreateDeploymentConfig = CreateDeploymentConfig'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'cdcDeploymentConfigName' - The name of the deployment configuration to create.
+-- * 'cdcComputePlatform' - The destination platform type for the deployment (@Lambda@ or @Server@ >).
--
-- * 'cdcMinimumHealthyHosts' - The minimum number of healthy instances that should be available at any time during the deployment. There are two parameters expected in the input: type and value. The type parameter takes either of the following values: * HOST_COUNT: The value parameter represents the minimum number of healthy instances as an absolute value. * FLEET_PERCENT: The value parameter represents the minimum number of healthy instances as a percentage of the total number of instances in the deployment. If you specify FLEET_PERCENT, at the start of the deployment, AWS CodeDeploy converts the percentage to the equivalent number of instance and rounds up fractional instances. The value parameter takes an integer. For example, to set a minimum of 95% healthy instance, specify a type of FLEET_PERCENT and a value of 95.
+--
+-- * 'cdcTrafficRoutingConfig' - The configuration that specifies how the deployment traffic will be routed.
+--
+-- * 'cdcDeploymentConfigName' - The name of the deployment configuration to create.
createDeploymentConfig
:: Text -- ^ 'cdcDeploymentConfigName'
- -> MinimumHealthyHosts -- ^ 'cdcMinimumHealthyHosts'
-> CreateDeploymentConfig
-createDeploymentConfig pDeploymentConfigName_ pMinimumHealthyHosts_ =
+createDeploymentConfig pDeploymentConfigName_ =
CreateDeploymentConfig'
- { _cdcDeploymentConfigName = pDeploymentConfigName_
- , _cdcMinimumHealthyHosts = pMinimumHealthyHosts_
- }
+ { _cdcComputePlatform = Nothing
+ , _cdcMinimumHealthyHosts = Nothing
+ , _cdcTrafficRoutingConfig = Nothing
+ , _cdcDeploymentConfigName = pDeploymentConfigName_
+ }
--- | The name of the deployment configuration to create.
-cdcDeploymentConfigName :: Lens' CreateDeploymentConfig Text
-cdcDeploymentConfigName = lens _cdcDeploymentConfigName (\ s a -> s{_cdcDeploymentConfigName = a});
+-- | The destination platform type for the deployment (@Lambda@ or @Server@ >).
+cdcComputePlatform :: Lens' CreateDeploymentConfig (Maybe ComputePlatform)
+cdcComputePlatform = lens _cdcComputePlatform (\ s a -> s{_cdcComputePlatform = a})
-- | The minimum number of healthy instances that should be available at any time during the deployment. There are two parameters expected in the input: type and value. The type parameter takes either of the following values: * HOST_COUNT: The value parameter represents the minimum number of healthy instances as an absolute value. * FLEET_PERCENT: The value parameter represents the minimum number of healthy instances as a percentage of the total number of instances in the deployment. If you specify FLEET_PERCENT, at the start of the deployment, AWS CodeDeploy converts the percentage to the equivalent number of instance and rounds up fractional instances. The value parameter takes an integer. For example, to set a minimum of 95% healthy instance, specify a type of FLEET_PERCENT and a value of 95.
-cdcMinimumHealthyHosts :: Lens' CreateDeploymentConfig MinimumHealthyHosts
-cdcMinimumHealthyHosts = lens _cdcMinimumHealthyHosts (\ s a -> s{_cdcMinimumHealthyHosts = a});
+cdcMinimumHealthyHosts :: Lens' CreateDeploymentConfig (Maybe MinimumHealthyHosts)
+cdcMinimumHealthyHosts = lens _cdcMinimumHealthyHosts (\ s a -> s{_cdcMinimumHealthyHosts = a})
+
+-- | The configuration that specifies how the deployment traffic will be routed.
+cdcTrafficRoutingConfig :: Lens' CreateDeploymentConfig (Maybe TrafficRoutingConfig)
+cdcTrafficRoutingConfig = lens _cdcTrafficRoutingConfig (\ s a -> s{_cdcTrafficRoutingConfig = a})
+
+-- | The name of the deployment configuration to create.
+cdcDeploymentConfigName :: Lens' CreateDeploymentConfig Text
+cdcDeploymentConfigName = lens _cdcDeploymentConfigName (\ s a -> s{_cdcDeploymentConfigName = a})
instance AWSRequest CreateDeploymentConfig where
type Rs CreateDeploymentConfig =
@@ -110,10 +127,14 @@ instance ToJSON CreateDeploymentConfig where
toJSON CreateDeploymentConfig'{..}
= object
(catMaybes
- [Just
- ("deploymentConfigName" .= _cdcDeploymentConfigName),
+ [("computePlatform" .=) <$> _cdcComputePlatform,
+ ("minimumHealthyHosts" .=) <$>
+ _cdcMinimumHealthyHosts,
+ ("trafficRoutingConfig" .=) <$>
+ _cdcTrafficRoutingConfig,
Just
- ("minimumHealthyHosts" .= _cdcMinimumHealthyHosts)])
+ ("deploymentConfigName" .=
+ _cdcDeploymentConfigName)])
instance ToPath CreateDeploymentConfig where
toPath = const "/"
@@ -144,15 +165,17 @@ createDeploymentConfigResponse
-> CreateDeploymentConfigResponse
createDeploymentConfigResponse pResponseStatus_ =
CreateDeploymentConfigResponse'
- {_cdcrsDeploymentConfigId = Nothing, _cdcrsResponseStatus = pResponseStatus_}
+ { _cdcrsDeploymentConfigId = Nothing
+ , _cdcrsResponseStatus = pResponseStatus_
+ }
-- | A unique deployment configuration ID.
cdcrsDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text)
-cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploymentConfigId = a});
+cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploymentConfigId = a})
-- | -- | The response status code.
cdcrsResponseStatus :: Lens' CreateDeploymentConfigResponse Int
-cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a});
+cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a})
instance NFData CreateDeploymentConfigResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
index 4e1ffed..6ad0a4b 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeploymentGroup
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -122,83 +122,83 @@ createDeploymentGroup
-> CreateDeploymentGroup
createDeploymentGroup pApplicationName_ pDeploymentGroupName_ pServiceRoleARN_ =
CreateDeploymentGroup'
- { _cdgEc2TagSet = Nothing
- , _cdgDeploymentConfigName = Nothing
- , _cdgOnPremisesTagSet = Nothing
- , _cdgEc2TagFilters = Nothing
- , _cdgBlueGreenDeploymentConfiguration = Nothing
- , _cdgLoadBalancerInfo = Nothing
- , _cdgOnPremisesInstanceTagFilters = Nothing
- , _cdgAlarmConfiguration = Nothing
- , _cdgTriggerConfigurations = Nothing
- , _cdgAutoScalingGroups = Nothing
- , _cdgDeploymentStyle = Nothing
- , _cdgAutoRollbackConfiguration = Nothing
- , _cdgApplicationName = pApplicationName_
- , _cdgDeploymentGroupName = pDeploymentGroupName_
- , _cdgServiceRoleARN = pServiceRoleARN_
- }
+ { _cdgEc2TagSet = Nothing
+ , _cdgDeploymentConfigName = Nothing
+ , _cdgOnPremisesTagSet = Nothing
+ , _cdgEc2TagFilters = Nothing
+ , _cdgBlueGreenDeploymentConfiguration = Nothing
+ , _cdgLoadBalancerInfo = Nothing
+ , _cdgOnPremisesInstanceTagFilters = Nothing
+ , _cdgAlarmConfiguration = Nothing
+ , _cdgTriggerConfigurations = Nothing
+ , _cdgAutoScalingGroups = Nothing
+ , _cdgDeploymentStyle = Nothing
+ , _cdgAutoRollbackConfiguration = Nothing
+ , _cdgApplicationName = pApplicationName_
+ , _cdgDeploymentGroupName = pDeploymentGroupName_
+ , _cdgServiceRoleARN = pServiceRoleARN_
+ }
-- | Information about groups of tags applied to EC2 instances. The deployment group will include only EC2 instances identified by all the tag groups. Cannot be used in the same call as ec2TagFilters.
cdgEc2TagSet :: Lens' CreateDeploymentGroup (Maybe EC2TagSet)
-cdgEc2TagSet = lens _cdgEc2TagSet (\ s a -> s{_cdgEc2TagSet = a});
+cdgEc2TagSet = lens _cdgEc2TagSet (\ s a -> s{_cdgEc2TagSet = a})
-- | If specified, the deployment configuration name can be either one of the predefined configurations provided with AWS CodeDeploy or a custom deployment configuration that you create by calling the create deployment configuration operation. CodeDeployDefault.OneAtATime is the default deployment configuration. It is used if a configuration isn't specified for the deployment or the deployment group. For more information about the predefined deployment configurations in AWS CodeDeploy, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/deployment-configurations.html Working with Deployment Groups in AWS CodeDeploy> in the AWS CodeDeploy User Guide.
cdgDeploymentConfigName :: Lens' CreateDeploymentGroup (Maybe Text)
-cdgDeploymentConfigName = lens _cdgDeploymentConfigName (\ s a -> s{_cdgDeploymentConfigName = a});
+cdgDeploymentConfigName = lens _cdgDeploymentConfigName (\ s a -> s{_cdgDeploymentConfigName = a})
-- | Information about groups of tags applied to on-premises instances. The deployment group will include only on-premises instances identified by all the tag groups. Cannot be used in the same call as onPremisesInstanceTagFilters.
cdgOnPremisesTagSet :: Lens' CreateDeploymentGroup (Maybe OnPremisesTagSet)
-cdgOnPremisesTagSet = lens _cdgOnPremisesTagSet (\ s a -> s{_cdgOnPremisesTagSet = a});
+cdgOnPremisesTagSet = lens _cdgOnPremisesTagSet (\ s a -> s{_cdgOnPremisesTagSet = a})
-- | The Amazon EC2 tags on which to filter. The deployment group will include EC2 instances with any of the specified tags. Cannot be used in the same call as ec2TagSet.
cdgEc2TagFilters :: Lens' CreateDeploymentGroup [EC2TagFilter]
-cdgEc2TagFilters = lens _cdgEc2TagFilters (\ s a -> s{_cdgEc2TagFilters = a}) . _Default . _Coerce;
+cdgEc2TagFilters = lens _cdgEc2TagFilters (\ s a -> s{_cdgEc2TagFilters = a}) . _Default . _Coerce
-- | Information about blue/green deployment options for a deployment group.
cdgBlueGreenDeploymentConfiguration :: Lens' CreateDeploymentGroup (Maybe BlueGreenDeploymentConfiguration)
-cdgBlueGreenDeploymentConfiguration = lens _cdgBlueGreenDeploymentConfiguration (\ s a -> s{_cdgBlueGreenDeploymentConfiguration = a});
+cdgBlueGreenDeploymentConfiguration = lens _cdgBlueGreenDeploymentConfiguration (\ s a -> s{_cdgBlueGreenDeploymentConfiguration = a})
-- | Information about the load balancer used in a deployment.
cdgLoadBalancerInfo :: Lens' CreateDeploymentGroup (Maybe LoadBalancerInfo)
-cdgLoadBalancerInfo = lens _cdgLoadBalancerInfo (\ s a -> s{_cdgLoadBalancerInfo = a});
+cdgLoadBalancerInfo = lens _cdgLoadBalancerInfo (\ s a -> s{_cdgLoadBalancerInfo = a})
-- | The on-premises instance tags on which to filter. The deployment group will include on-premises instances with any of the specified tags. Cannot be used in the same call as OnPremisesTagSet.
cdgOnPremisesInstanceTagFilters :: Lens' CreateDeploymentGroup [TagFilter]
-cdgOnPremisesInstanceTagFilters = lens _cdgOnPremisesInstanceTagFilters (\ s a -> s{_cdgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce;
+cdgOnPremisesInstanceTagFilters = lens _cdgOnPremisesInstanceTagFilters (\ s a -> s{_cdgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce
-- | Information to add about Amazon CloudWatch alarms when the deployment group is created.
cdgAlarmConfiguration :: Lens' CreateDeploymentGroup (Maybe AlarmConfiguration)
-cdgAlarmConfiguration = lens _cdgAlarmConfiguration (\ s a -> s{_cdgAlarmConfiguration = a});
+cdgAlarmConfiguration = lens _cdgAlarmConfiguration (\ s a -> s{_cdgAlarmConfiguration = a})
-- | Information about triggers to create when the deployment group is created. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-sns.html Create a Trigger for an AWS CodeDeploy Event> in the AWS CodeDeploy User Guide.
cdgTriggerConfigurations :: Lens' CreateDeploymentGroup [TriggerConfig]
-cdgTriggerConfigurations = lens _cdgTriggerConfigurations (\ s a -> s{_cdgTriggerConfigurations = a}) . _Default . _Coerce;
+cdgTriggerConfigurations = lens _cdgTriggerConfigurations (\ s a -> s{_cdgTriggerConfigurations = a}) . _Default . _Coerce
-- | A list of associated Auto Scaling groups.
cdgAutoScalingGroups :: Lens' CreateDeploymentGroup [Text]
-cdgAutoScalingGroups = lens _cdgAutoScalingGroups (\ s a -> s{_cdgAutoScalingGroups = a}) . _Default . _Coerce;
+cdgAutoScalingGroups = lens _cdgAutoScalingGroups (\ s a -> s{_cdgAutoScalingGroups = a}) . _Default . _Coerce
-- | Information about the type of deployment, in-place or blue/green, that you want to run and whether to route deployment traffic behind a load balancer.
cdgDeploymentStyle :: Lens' CreateDeploymentGroup (Maybe DeploymentStyle)
-cdgDeploymentStyle = lens _cdgDeploymentStyle (\ s a -> s{_cdgDeploymentStyle = a});
+cdgDeploymentStyle = lens _cdgDeploymentStyle (\ s a -> s{_cdgDeploymentStyle = a})
-- | Configuration information for an automatic rollback that is added when a deployment group is created.
cdgAutoRollbackConfiguration :: Lens' CreateDeploymentGroup (Maybe AutoRollbackConfiguration)
-cdgAutoRollbackConfiguration = lens _cdgAutoRollbackConfiguration (\ s a -> s{_cdgAutoRollbackConfiguration = a});
+cdgAutoRollbackConfiguration = lens _cdgAutoRollbackConfiguration (\ s a -> s{_cdgAutoRollbackConfiguration = a})
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
cdgApplicationName :: Lens' CreateDeploymentGroup Text
-cdgApplicationName = lens _cdgApplicationName (\ s a -> s{_cdgApplicationName = a});
+cdgApplicationName = lens _cdgApplicationName (\ s a -> s{_cdgApplicationName = a})
-- | The name of a new deployment group for the specified application.
cdgDeploymentGroupName :: Lens' CreateDeploymentGroup Text
-cdgDeploymentGroupName = lens _cdgDeploymentGroupName (\ s a -> s{_cdgDeploymentGroupName = a});
+cdgDeploymentGroupName = lens _cdgDeploymentGroupName (\ s a -> s{_cdgDeploymentGroupName = a})
-- | A service role ARN that allows AWS CodeDeploy to act on the user's behalf when interacting with AWS services.
cdgServiceRoleARN :: Lens' CreateDeploymentGroup Text
-cdgServiceRoleARN = lens _cdgServiceRoleARN (\ s a -> s{_cdgServiceRoleARN = a});
+cdgServiceRoleARN = lens _cdgServiceRoleARN (\ s a -> s{_cdgServiceRoleARN = a})
instance AWSRequest CreateDeploymentGroup where
type Rs CreateDeploymentGroup =
@@ -279,15 +279,15 @@ createDeploymentGroupResponse
-> CreateDeploymentGroupResponse
createDeploymentGroupResponse pResponseStatus_ =
CreateDeploymentGroupResponse'
- {_cdgrsDeploymentGroupId = Nothing, _cdgrsResponseStatus = pResponseStatus_}
+ {_cdgrsDeploymentGroupId = Nothing, _cdgrsResponseStatus = pResponseStatus_}
-- | A unique deployment group ID.
cdgrsDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text)
-cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeploymentGroupId = a});
+cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeploymentGroupId = a})
-- | -- | The response status code.
cdgrsResponseStatus :: Lens' CreateDeploymentGroupResponse Int
-cdgrsResponseStatus = lens _cdgrsResponseStatus (\ s a -> s{_cdgrsResponseStatus = a});
+cdgrsResponseStatus = lens _cdgrsResponseStatus (\ s a -> s{_cdgrsResponseStatus = a})
instance NFData CreateDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
index 7b35b0f..ebaa818 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteApplication
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -65,7 +65,7 @@ deleteApplication pApplicationName_ =
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
daApplicationName :: Lens' DeleteApplication Text
-daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a});
+daApplicationName = lens _daApplicationName (\ s a -> s{_daApplicationName = a})
instance AWSRequest DeleteApplication where
type Rs DeleteApplication = DeleteApplicationResponse
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
index f400925..c2dd617 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteDeploymentConfig
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -65,7 +65,7 @@ deleteDeploymentConfig pDeploymentConfigName_ =
-- | The name of a deployment configuration associated with the applicable IAM user or AWS account.
ddcDeploymentConfigName :: Lens' DeleteDeploymentConfig Text
-ddcDeploymentConfigName = lens _ddcDeploymentConfigName (\ s a -> s{_ddcDeploymentConfigName = a});
+ddcDeploymentConfigName = lens _ddcDeploymentConfigName (\ s a -> s{_ddcDeploymentConfigName = a})
instance AWSRequest DeleteDeploymentConfig where
type Rs DeleteDeploymentConfig =
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
index 1294cda..5c02d55 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteDeploymentGroup
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,18 +69,18 @@ deleteDeploymentGroup
-> DeleteDeploymentGroup
deleteDeploymentGroup pApplicationName_ pDeploymentGroupName_ =
DeleteDeploymentGroup'
- { _ddgApplicationName = pApplicationName_
- , _ddgDeploymentGroupName = pDeploymentGroupName_
- }
+ { _ddgApplicationName = pApplicationName_
+ , _ddgDeploymentGroupName = pDeploymentGroupName_
+ }
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
ddgApplicationName :: Lens' DeleteDeploymentGroup Text
-ddgApplicationName = lens _ddgApplicationName (\ s a -> s{_ddgApplicationName = a});
+ddgApplicationName = lens _ddgApplicationName (\ s a -> s{_ddgApplicationName = a})
-- | The name of an existing deployment group for the specified application.
ddgDeploymentGroupName :: Lens' DeleteDeploymentGroup Text
-ddgDeploymentGroupName = lens _ddgDeploymentGroupName (\ s a -> s{_ddgDeploymentGroupName = a});
+ddgDeploymentGroupName = lens _ddgDeploymentGroupName (\ s a -> s{_ddgDeploymentGroupName = a})
instance AWSRequest DeleteDeploymentGroup where
type Rs DeleteDeploymentGroup =
@@ -144,15 +144,15 @@ deleteDeploymentGroupResponse
-> DeleteDeploymentGroupResponse
deleteDeploymentGroupResponse pResponseStatus_ =
DeleteDeploymentGroupResponse'
- {_ddgrsHooksNotCleanedUp = Nothing, _ddgrsResponseStatus = pResponseStatus_}
+ {_ddgrsHooksNotCleanedUp = Nothing, _ddgrsResponseStatus = pResponseStatus_}
-- | If the output contains no data, and the corresponding deployment group contained at least one Auto Scaling group, AWS CodeDeploy successfully removed all corresponding Auto Scaling lifecycle event hooks from the Amazon EC2 instances in the Auto Scaling group. If the output contains data, AWS CodeDeploy could not remove some Auto Scaling lifecycle event hooks from the Amazon EC2 instances in the Auto Scaling group.
ddgrsHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup]
-ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNotCleanedUp = a}) . _Default . _Coerce;
+ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNotCleanedUp = a}) . _Default . _Coerce
-- | -- | The response status code.
ddgrsResponseStatus :: Lens' DeleteDeploymentGroupResponse Int
-ddgrsResponseStatus = lens _ddgrsResponseStatus (\ s a -> s{_ddgrsResponseStatus = a});
+ddgrsResponseStatus = lens _ddgrsResponseStatus (\ s a -> s{_ddgrsResponseStatus = a})
instance NFData DeleteDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeleteGitHubAccountToken.hs b/gen/Network/AWS/CodeDeploy/DeleteGitHubAccountToken.hs
new file mode 100644
index 0000000..426a363
--- /dev/null
+++ b/gen/Network/AWS/CodeDeploy/DeleteGitHubAccountToken.hs
@@ -0,0 +1,141 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CodeDeploy.DeleteGitHubAccountToken
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Deletes a GitHub account connection.
+--
+--
+module Network.AWS.CodeDeploy.DeleteGitHubAccountToken
+ (
+ -- * Creating a Request
+ deleteGitHubAccountToken
+ , DeleteGitHubAccountToken
+ -- * Request Lenses
+ , dghatTokenName
+
+ -- * Destructuring the Response
+ , deleteGitHubAccountTokenResponse
+ , DeleteGitHubAccountTokenResponse
+ -- * Response Lenses
+ , dghatrsTokenName
+ , dghatrsResponseStatus
+ ) where
+
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | Represents the input of a DeleteGitHubAccount operation.
+--
+--
+--
+-- /See:/ 'deleteGitHubAccountToken' smart constructor.
+newtype DeleteGitHubAccountToken = DeleteGitHubAccountToken'
+ { _dghatTokenName :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteGitHubAccountToken' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dghatTokenName' - The name of the GitHub account connection to delete.
+deleteGitHubAccountToken
+ :: DeleteGitHubAccountToken
+deleteGitHubAccountToken = DeleteGitHubAccountToken' {_dghatTokenName = Nothing}
+
+
+-- | The name of the GitHub account connection to delete.
+dghatTokenName :: Lens' DeleteGitHubAccountToken (Maybe Text)
+dghatTokenName = lens _dghatTokenName (\ s a -> s{_dghatTokenName = a})
+
+instance AWSRequest DeleteGitHubAccountToken where
+ type Rs DeleteGitHubAccountToken =
+ DeleteGitHubAccountTokenResponse
+ request = postJSON codeDeploy
+ response
+ = receiveJSON
+ (\ s h x ->
+ DeleteGitHubAccountTokenResponse' <$>
+ (x .?> "tokenName") <*> (pure (fromEnum s)))
+
+instance Hashable DeleteGitHubAccountToken where
+
+instance NFData DeleteGitHubAccountToken where
+
+instance ToHeaders DeleteGitHubAccountToken where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("CodeDeploy_20141006.DeleteGitHubAccountToken" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON DeleteGitHubAccountToken where
+ toJSON DeleteGitHubAccountToken'{..}
+ = object
+ (catMaybes [("tokenName" .=) <$> _dghatTokenName])
+
+instance ToPath DeleteGitHubAccountToken where
+ toPath = const "/"
+
+instance ToQuery DeleteGitHubAccountToken where
+ toQuery = const mempty
+
+-- | Represents the output of a DeleteGitHubAccountToken operation.
+--
+--
+--
+-- /See:/ 'deleteGitHubAccountTokenResponse' smart constructor.
+data DeleteGitHubAccountTokenResponse = DeleteGitHubAccountTokenResponse'
+ { _dghatrsTokenName :: !(Maybe Text)
+ , _dghatrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeleteGitHubAccountTokenResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dghatrsTokenName' - The name of the GitHub account connection that was deleted.
+--
+-- * 'dghatrsResponseStatus' - -- | The response status code.
+deleteGitHubAccountTokenResponse
+ :: Int -- ^ 'dghatrsResponseStatus'
+ -> DeleteGitHubAccountTokenResponse
+deleteGitHubAccountTokenResponse pResponseStatus_ =
+ DeleteGitHubAccountTokenResponse'
+ {_dghatrsTokenName = Nothing, _dghatrsResponseStatus = pResponseStatus_}
+
+
+-- | The name of the GitHub account connection that was deleted.
+dghatrsTokenName :: Lens' DeleteGitHubAccountTokenResponse (Maybe Text)
+dghatrsTokenName = lens _dghatrsTokenName (\ s a -> s{_dghatrsTokenName = a})
+
+-- | -- | The response status code.
+dghatrsResponseStatus :: Lens' DeleteGitHubAccountTokenResponse Int
+dghatrsResponseStatus = lens _dghatrsResponseStatus (\ s a -> s{_dghatrsResponseStatus = a})
+
+instance NFData DeleteGitHubAccountTokenResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
index c64a15c..2a5ae10 100644
--- a/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -65,7 +65,7 @@ deregisterOnPremisesInstance pInstanceName_ =
-- | The name of the on-premises instance to deregister.
dopiInstanceName :: Lens' DeregisterOnPremisesInstance Text
-dopiInstanceName = lens _dopiInstanceName (\ s a -> s{_dopiInstanceName = a});
+dopiInstanceName = lens _dopiInstanceName (\ s a -> s{_dopiInstanceName = a})
instance AWSRequest DeregisterOnPremisesInstance
where
diff --git a/gen/Network/AWS/CodeDeploy/GetApplication.hs b/gen/Network/AWS/CodeDeploy/GetApplication.hs
index 97cf183..d3bee07 100644
--- a/gen/Network/AWS/CodeDeploy/GetApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetApplication
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ getApplication pApplicationName_ =
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
gaApplicationName :: Lens' GetApplication Text
-gaApplicationName = lens _gaApplicationName (\ s a -> s{_gaApplicationName = a});
+gaApplicationName = lens _gaApplicationName (\ s a -> s{_gaApplicationName = a})
instance AWSRequest GetApplication where
type Rs GetApplication = GetApplicationResponse
@@ -127,15 +127,15 @@ getApplicationResponse
-> GetApplicationResponse
getApplicationResponse pResponseStatus_ =
GetApplicationResponse'
- {_garsApplication = Nothing, _garsResponseStatus = pResponseStatus_}
+ {_garsApplication = Nothing, _garsResponseStatus = pResponseStatus_}
-- | Information about the application.
garsApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo)
-garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a});
+garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a})
-- | -- | The response status code.
garsResponseStatus :: Lens' GetApplicationResponse Int
-garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});
+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a})
instance NFData GetApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
index 3acbac8..2771725 100644
--- a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetApplicationRevision
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -71,16 +71,16 @@ getApplicationRevision
-> GetApplicationRevision
getApplicationRevision pApplicationName_ pRevision_ =
GetApplicationRevision'
- {_garApplicationName = pApplicationName_, _garRevision = pRevision_}
+ {_garApplicationName = pApplicationName_, _garRevision = pRevision_}
-- | The name of the application that corresponds to the revision.
garApplicationName :: Lens' GetApplicationRevision Text
-garApplicationName = lens _garApplicationName (\ s a -> s{_garApplicationName = a});
+garApplicationName = lens _garApplicationName (\ s a -> s{_garApplicationName = a})
-- | Information about the application revision to get, including type and location.
garRevision :: Lens' GetApplicationRevision RevisionLocation
-garRevision = lens _garRevision (\ s a -> s{_garRevision = a});
+garRevision = lens _garRevision (\ s a -> s{_garRevision = a})
instance AWSRequest GetApplicationRevision where
type Rs GetApplicationRevision =
@@ -150,27 +150,27 @@ getApplicationRevisionResponse
-> GetApplicationRevisionResponse
getApplicationRevisionResponse pResponseStatus_ =
GetApplicationRevisionResponse'
- { _garrsApplicationName = Nothing
- , _garrsRevisionInfo = Nothing
- , _garrsRevision = Nothing
- , _garrsResponseStatus = pResponseStatus_
- }
+ { _garrsApplicationName = Nothing
+ , _garrsRevisionInfo = Nothing
+ , _garrsRevision = Nothing
+ , _garrsResponseStatus = pResponseStatus_
+ }
-- | The name of the application that corresponds to the revision.
garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)
-garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a});
+garrsApplicationName = lens _garrsApplicationName (\ s a -> s{_garrsApplicationName = a})
-- | General information about the revision.
garrsRevisionInfo :: Lens' GetApplicationRevisionResponse (Maybe GenericRevisionInfo)
-garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a});
+garrsRevisionInfo = lens _garrsRevisionInfo (\ s a -> s{_garrsRevisionInfo = a})
-- | Additional information about the revision, including type and location.
garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation)
-garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a});
+garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a})
-- | -- | The response status code.
garrsResponseStatus :: Lens' GetApplicationRevisionResponse Int
-garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a});
+garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a})
instance NFData GetApplicationRevisionResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeployment.hs b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
index 946ecaa..7c29bd1 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeployment
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -67,7 +67,7 @@ getDeployment pDeploymentId_ = GetDeployment' {_gdDeploymentId = pDeploymentId_}
-- | A deployment ID associated with the applicable IAM user or AWS account.
gdDeploymentId :: Lens' GetDeployment Text
-gdDeploymentId = lens _gdDeploymentId (\ s a -> s{_gdDeploymentId = a});
+gdDeploymentId = lens _gdDeploymentId (\ s a -> s{_gdDeploymentId = a})
instance AWSRequest GetDeployment where
type Rs GetDeployment = GetDeploymentResponse
@@ -126,15 +126,15 @@ getDeploymentResponse
-> GetDeploymentResponse
getDeploymentResponse pResponseStatus_ =
GetDeploymentResponse'
- {_gdrsDeploymentInfo = Nothing, _gdrsResponseStatus = pResponseStatus_}
+ {_gdrsDeploymentInfo = Nothing, _gdrsResponseStatus = pResponseStatus_}
-- | Information about the deployment.
gdrsDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo)
-gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo = a});
+gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo = a})
-- | -- | The response status code.
gdrsResponseStatus :: Lens' GetDeploymentResponse Int
-gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
+gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a})
instance NFData GetDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
index d56287e..b711222 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentConfig
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ getDeploymentConfig pDeploymentConfigName_ =
-- | The name of a deployment configuration associated with the applicable IAM user or AWS account.
gdcDeploymentConfigName :: Lens' GetDeploymentConfig Text
-gdcDeploymentConfigName = lens _gdcDeploymentConfigName (\ s a -> s{_gdcDeploymentConfigName = a});
+gdcDeploymentConfigName = lens _gdcDeploymentConfigName (\ s a -> s{_gdcDeploymentConfigName = a})
instance AWSRequest GetDeploymentConfig where
type Rs GetDeploymentConfig =
@@ -132,17 +132,17 @@ getDeploymentConfigResponse
-> GetDeploymentConfigResponse
getDeploymentConfigResponse pResponseStatus_ =
GetDeploymentConfigResponse'
- { _gdcrsDeploymentConfigInfo = Nothing
- , _gdcrsResponseStatus = pResponseStatus_
- }
+ { _gdcrsDeploymentConfigInfo = Nothing
+ , _gdcrsResponseStatus = pResponseStatus_
+ }
-- | Information about the deployment configuration.
gdcrsDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo)
-gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDeploymentConfigInfo = a});
+gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDeploymentConfigInfo = a})
-- | -- | The response status code.
gdcrsResponseStatus :: Lens' GetDeploymentConfigResponse Int
-gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a});
+gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a})
instance NFData GetDeploymentConfigResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
index f8cb337..b94145b 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentGroup
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,18 +69,18 @@ getDeploymentGroup
-> GetDeploymentGroup
getDeploymentGroup pApplicationName_ pDeploymentGroupName_ =
GetDeploymentGroup'
- { _gdgApplicationName = pApplicationName_
- , _gdgDeploymentGroupName = pDeploymentGroupName_
- }
+ { _gdgApplicationName = pApplicationName_
+ , _gdgDeploymentGroupName = pDeploymentGroupName_
+ }
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
gdgApplicationName :: Lens' GetDeploymentGroup Text
-gdgApplicationName = lens _gdgApplicationName (\ s a -> s{_gdgApplicationName = a});
+gdgApplicationName = lens _gdgApplicationName (\ s a -> s{_gdgApplicationName = a})
-- | The name of an existing deployment group for the specified application.
gdgDeploymentGroupName :: Lens' GetDeploymentGroup Text
-gdgDeploymentGroupName = lens _gdgDeploymentGroupName (\ s a -> s{_gdgDeploymentGroupName = a});
+gdgDeploymentGroupName = lens _gdgDeploymentGroupName (\ s a -> s{_gdgDeploymentGroupName = a})
instance AWSRequest GetDeploymentGroup where
type Rs GetDeploymentGroup =
@@ -144,15 +144,17 @@ getDeploymentGroupResponse
-> GetDeploymentGroupResponse
getDeploymentGroupResponse pResponseStatus_ =
GetDeploymentGroupResponse'
- {_gdgrsDeploymentGroupInfo = Nothing, _gdgrsResponseStatus = pResponseStatus_}
+ { _gdgrsDeploymentGroupInfo = Nothing
+ , _gdgrsResponseStatus = pResponseStatus_
+ }
-- | Information about the deployment group.
gdgrsDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo)
-gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDeploymentGroupInfo = a});
+gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDeploymentGroupInfo = a})
-- | -- | The response status code.
gdgrsResponseStatus :: Lens' GetDeploymentGroupResponse Int
-gdgrsResponseStatus = lens _gdgrsResponseStatus (\ s a -> s{_gdgrsResponseStatus = a});
+gdgrsResponseStatus = lens _gdgrsResponseStatus (\ s a -> s{_gdgrsResponseStatus = a})
instance NFData GetDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
index a0ba02f..3baf6e4 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentInstance
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,16 +69,16 @@ getDeploymentInstance
-> GetDeploymentInstance
getDeploymentInstance pDeploymentId_ pInstanceId_ =
GetDeploymentInstance'
- {_gdiDeploymentId = pDeploymentId_, _gdiInstanceId = pInstanceId_}
+ {_gdiDeploymentId = pDeploymentId_, _gdiInstanceId = pInstanceId_}
-- | The unique ID of a deployment.
gdiDeploymentId :: Lens' GetDeploymentInstance Text
-gdiDeploymentId = lens _gdiDeploymentId (\ s a -> s{_gdiDeploymentId = a});
+gdiDeploymentId = lens _gdiDeploymentId (\ s a -> s{_gdiDeploymentId = a})
-- | The unique ID of an instance in the deployment group.
gdiInstanceId :: Lens' GetDeploymentInstance Text
-gdiInstanceId = lens _gdiInstanceId (\ s a -> s{_gdiInstanceId = a});
+gdiInstanceId = lens _gdiInstanceId (\ s a -> s{_gdiInstanceId = a})
instance AWSRequest GetDeploymentInstance where
type Rs GetDeploymentInstance =
@@ -140,15 +140,15 @@ getDeploymentInstanceResponse
-> GetDeploymentInstanceResponse
getDeploymentInstanceResponse pResponseStatus_ =
GetDeploymentInstanceResponse'
- {_gdirsInstanceSummary = Nothing, _gdirsResponseStatus = pResponseStatus_}
+ {_gdirsInstanceSummary = Nothing, _gdirsResponseStatus = pResponseStatus_}
-- | Information about the instance.
gdirsInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary)
-gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSummary = a});
+gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSummary = a})
-- | -- | The response status code.
gdirsResponseStatus :: Lens' GetDeploymentInstanceResponse Int
-gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a});
+gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a})
instance NFData GetDeploymentInstanceResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
index 634209c..2821b6b 100644
--- a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetOnPremisesInstance
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ getOnPremisesInstance pInstanceName_ =
-- | The name of the on-premises instance about which to get information.
gopiInstanceName :: Lens' GetOnPremisesInstance Text
-gopiInstanceName = lens _gopiInstanceName (\ s a -> s{_gopiInstanceName = a});
+gopiInstanceName = lens _gopiInstanceName (\ s a -> s{_gopiInstanceName = a})
instance AWSRequest GetOnPremisesInstance where
type Rs GetOnPremisesInstance =
@@ -129,15 +129,15 @@ getOnPremisesInstanceResponse
-> GetOnPremisesInstanceResponse
getOnPremisesInstanceResponse pResponseStatus_ =
GetOnPremisesInstanceResponse'
- {_gopirsInstanceInfo = Nothing, _gopirsResponseStatus = pResponseStatus_}
+ {_gopirsInstanceInfo = Nothing, _gopirsResponseStatus = pResponseStatus_}
-- | Information about the on-premises instance.
gopirsInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo)
-gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a});
+gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a})
-- | -- | The response status code.
gopirsResponseStatus :: Lens' GetOnPremisesInstanceResponse Int
-gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a});
+gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a})
instance NFData GetOnPremisesInstanceResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
index de64956..f38d1ab 100644
--- a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListApplicationRevisions
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -92,43 +92,43 @@ listApplicationRevisions
-> ListApplicationRevisions
listApplicationRevisions pApplicationName_ =
ListApplicationRevisions'
- { _larS3KeyPrefix = Nothing
- , _larDeployed = Nothing
- , _larSortOrder = Nothing
- , _larNextToken = Nothing
- , _larS3Bucket = Nothing
- , _larSortBy = Nothing
- , _larApplicationName = pApplicationName_
- }
+ { _larS3KeyPrefix = Nothing
+ , _larDeployed = Nothing
+ , _larSortOrder = Nothing
+ , _larNextToken = Nothing
+ , _larS3Bucket = Nothing
+ , _larSortBy = Nothing
+ , _larApplicationName = pApplicationName_
+ }
-- | A key prefix for the set of Amazon S3 objects to limit the search for revisions.
larS3KeyPrefix :: Lens' ListApplicationRevisions (Maybe Text)
-larS3KeyPrefix = lens _larS3KeyPrefix (\ s a -> s{_larS3KeyPrefix = a});
+larS3KeyPrefix = lens _larS3KeyPrefix (\ s a -> s{_larS3KeyPrefix = a})
-- | Whether to list revisions based on whether the revision is the target revision of an deployment group: * include: List revisions that are target revisions of a deployment group. * exclude: Do not list revisions that are target revisions of a deployment group. * ignore: List all revisions.
larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction)
-larDeployed = lens _larDeployed (\ s a -> s{_larDeployed = a});
+larDeployed = lens _larDeployed (\ s a -> s{_larDeployed = a})
-- | The order in which to sort the list results: * ascending: ascending order. * descending: descending order. If not specified, the results will be sorted in ascending order. If set to null, the results will be sorted in an arbitrary order.
larSortOrder :: Lens' ListApplicationRevisions (Maybe SortOrder)
-larSortOrder = lens _larSortOrder (\ s a -> s{_larSortOrder = a});
+larSortOrder = lens _larSortOrder (\ s a -> s{_larSortOrder = a})
-- | An identifier returned from the previous list application revisions call. It can be used to return the next set of applications in the list.
larNextToken :: Lens' ListApplicationRevisions (Maybe Text)
-larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a});
+larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a})
-- | An Amazon S3 bucket name to limit the search for revisions. If set to null, all of the user's buckets will be searched.
larS3Bucket :: Lens' ListApplicationRevisions (Maybe Text)
-larS3Bucket = lens _larS3Bucket (\ s a -> s{_larS3Bucket = a});
+larS3Bucket = lens _larS3Bucket (\ s a -> s{_larS3Bucket = a})
-- | The column name to use to sort the list results: * registerTime: Sort by the time the revisions were registered with AWS CodeDeploy. * firstUsedTime: Sort by the time the revisions were first used in a deployment. * lastUsedTime: Sort by the time the revisions were last used in a deployment. If not specified or set to null, the results will be returned in an arbitrary order.
larSortBy :: Lens' ListApplicationRevisions (Maybe ApplicationRevisionSortBy)
-larSortBy = lens _larSortBy (\ s a -> s{_larSortBy = a});
+larSortBy = lens _larSortBy (\ s a -> s{_larSortBy = a})
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
larApplicationName :: Lens' ListApplicationRevisions Text
-larApplicationName = lens _larApplicationName (\ s a -> s{_larApplicationName = a});
+larApplicationName = lens _larApplicationName (\ s a -> s{_larApplicationName = a})
instance AWSPager ListApplicationRevisions where
page rq rs
@@ -207,23 +207,23 @@ listApplicationRevisionsResponse
-> ListApplicationRevisionsResponse
listApplicationRevisionsResponse pResponseStatus_ =
ListApplicationRevisionsResponse'
- { _larrsNextToken = Nothing
- , _larrsRevisions = Nothing
- , _larrsResponseStatus = pResponseStatus_
- }
+ { _larrsNextToken = Nothing
+ , _larrsRevisions = Nothing
+ , _larrsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier will also be returned. It can be used in a subsequent list application revisions call to return the next set of application revisions in the list.
larrsNextToken :: Lens' ListApplicationRevisionsResponse (Maybe Text)
-larrsNextToken = lens _larrsNextToken (\ s a -> s{_larrsNextToken = a});
+larrsNextToken = lens _larrsNextToken (\ s a -> s{_larrsNextToken = a})
-- | A list of locations that contain the matching revisions.
larrsRevisions :: Lens' ListApplicationRevisionsResponse [RevisionLocation]
-larrsRevisions = lens _larrsRevisions (\ s a -> s{_larrsRevisions = a}) . _Default . _Coerce;
+larrsRevisions = lens _larrsRevisions (\ s a -> s{_larrsRevisions = a}) . _Default . _Coerce
-- | -- | The response status code.
larrsResponseStatus :: Lens' ListApplicationRevisionsResponse Int
-larrsResponseStatus = lens _larrsResponseStatus (\ s a -> s{_larrsResponseStatus = a});
+larrsResponseStatus = lens _larrsResponseStatus (\ s a -> s{_larrsResponseStatus = a})
instance NFData ListApplicationRevisionsResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/ListApplications.hs b/gen/Network/AWS/CodeDeploy/ListApplications.hs
index 553bf03..0dec14c 100644
--- a/gen/Network/AWS/CodeDeploy/ListApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplications.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListApplications
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,7 +70,7 @@ listApplications = ListApplications' {_laNextToken = Nothing}
-- | An identifier returned from the previous list applications call. It can be used to return the next set of applications in the list.
laNextToken :: Lens' ListApplications (Maybe Text)
-laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a});
+laNextToken = lens _laNextToken (\ s a -> s{_laNextToken = a})
instance AWSPager ListApplications where
page rq rs
@@ -141,22 +141,22 @@ listApplicationsResponse
-> ListApplicationsResponse
listApplicationsResponse pResponseStatus_ =
ListApplicationsResponse'
- { _larsNextToken = Nothing
- , _larsApplications = Nothing
- , _larsResponseStatus = pResponseStatus_
- }
+ { _larsNextToken = Nothing
+ , _larsApplications = Nothing
+ , _larsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list applications call to return the next set of applications, will also be returned. in the list.
larsNextToken :: Lens' ListApplicationsResponse (Maybe Text)
-larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a});
+larsNextToken = lens _larsNextToken (\ s a -> s{_larsNextToken = a})
-- | A list of application names.
larsApplications :: Lens' ListApplicationsResponse [Text]
-larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) . _Default . _Coerce;
+larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) . _Default . _Coerce
-- | -- | The response status code.
larsResponseStatus :: Lens' ListApplicationsResponse Int
-larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});
+larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a})
instance NFData ListApplicationsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
index e95b347..c3c0385 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentConfigs
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,7 +70,7 @@ listDeploymentConfigs = ListDeploymentConfigs' {_ldcNextToken = Nothing}
-- | An identifier returned from the previous list deployment configurations call. It can be used to return the next set of deployment configurations in the list.
ldcNextToken :: Lens' ListDeploymentConfigs (Maybe Text)
-ldcNextToken = lens _ldcNextToken (\ s a -> s{_ldcNextToken = a});
+ldcNextToken = lens _ldcNextToken (\ s a -> s{_ldcNextToken = a})
instance AWSPager ListDeploymentConfigs where
page rq rs
@@ -142,22 +142,22 @@ listDeploymentConfigsResponse
-> ListDeploymentConfigsResponse
listDeploymentConfigsResponse pResponseStatus_ =
ListDeploymentConfigsResponse'
- { _ldcrsNextToken = Nothing
- , _ldcrsDeploymentConfigsList = Nothing
- , _ldcrsResponseStatus = pResponseStatus_
- }
+ { _ldcrsNextToken = Nothing
+ , _ldcrsDeploymentConfigsList = Nothing
+ , _ldcrsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list deployment configurations call to return the next set of deployment configurations in the list.
ldcrsNextToken :: Lens' ListDeploymentConfigsResponse (Maybe Text)
-ldcrsNextToken = lens _ldcrsNextToken (\ s a -> s{_ldcrsNextToken = a});
+ldcrsNextToken = lens _ldcrsNextToken (\ s a -> s{_ldcrsNextToken = a})
-- | A list of deployment configurations, including built-in configurations such as CodeDeployDefault.OneAtATime.
ldcrsDeploymentConfigsList :: Lens' ListDeploymentConfigsResponse [Text]
-ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrsDeploymentConfigsList = a}) . _Default . _Coerce;
+ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrsDeploymentConfigsList = a}) . _Default . _Coerce
-- | -- | The response status code.
ldcrsResponseStatus :: Lens' ListDeploymentConfigsResponse Int
-ldcrsResponseStatus = lens _ldcrsResponseStatus (\ s a -> s{_ldcrsResponseStatus = a});
+ldcrsResponseStatus = lens _ldcrsResponseStatus (\ s a -> s{_ldcrsResponseStatus = a})
instance NFData ListDeploymentConfigsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
index 92309a5..f3b35a6 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentGroups
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -73,16 +73,16 @@ listDeploymentGroups
-> ListDeploymentGroups
listDeploymentGroups pApplicationName_ =
ListDeploymentGroups'
- {_ldgNextToken = Nothing, _ldgApplicationName = pApplicationName_}
+ {_ldgNextToken = Nothing, _ldgApplicationName = pApplicationName_}
-- | An identifier returned from the previous list deployment groups call. It can be used to return the next set of deployment groups in the list.
ldgNextToken :: Lens' ListDeploymentGroups (Maybe Text)
-ldgNextToken = lens _ldgNextToken (\ s a -> s{_ldgNextToken = a});
+ldgNextToken = lens _ldgNextToken (\ s a -> s{_ldgNextToken = a})
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
ldgApplicationName :: Lens' ListDeploymentGroups Text
-ldgApplicationName = lens _ldgApplicationName (\ s a -> s{_ldgApplicationName = a});
+ldgApplicationName = lens _ldgApplicationName (\ s a -> s{_ldgApplicationName = a})
instance AWSPager ListDeploymentGroups where
page rq rs
@@ -159,27 +159,27 @@ listDeploymentGroupsResponse
-> ListDeploymentGroupsResponse
listDeploymentGroupsResponse pResponseStatus_ =
ListDeploymentGroupsResponse'
- { _ldgrsNextToken = Nothing
- , _ldgrsApplicationName = Nothing
- , _ldgrsDeploymentGroups = Nothing
- , _ldgrsResponseStatus = pResponseStatus_
- }
+ { _ldgrsNextToken = Nothing
+ , _ldgrsApplicationName = Nothing
+ , _ldgrsDeploymentGroups = Nothing
+ , _ldgrsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list deployment groups call to return the next set of deployment groups in the list.
ldgrsNextToken :: Lens' ListDeploymentGroupsResponse (Maybe Text)
-ldgrsNextToken = lens _ldgrsNextToken (\ s a -> s{_ldgrsNextToken = a});
+ldgrsNextToken = lens _ldgrsNextToken (\ s a -> s{_ldgrsNextToken = a})
-- | The application name.
ldgrsApplicationName :: Lens' ListDeploymentGroupsResponse (Maybe Text)
-ldgrsApplicationName = lens _ldgrsApplicationName (\ s a -> s{_ldgrsApplicationName = a});
+ldgrsApplicationName = lens _ldgrsApplicationName (\ s a -> s{_ldgrsApplicationName = a})
-- | A list of corresponding deployment group names.
ldgrsDeploymentGroups :: Lens' ListDeploymentGroupsResponse [Text]
-ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeploymentGroups = a}) . _Default . _Coerce;
+ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeploymentGroups = a}) . _Default . _Coerce
-- | -- | The response status code.
ldgrsResponseStatus :: Lens' ListDeploymentGroupsResponse Int
-ldgrsResponseStatus = lens _ldgrsResponseStatus (\ s a -> s{_ldgrsResponseStatus = a});
+ldgrsResponseStatus = lens _ldgrsResponseStatus (\ s a -> s{_ldgrsResponseStatus = a})
instance NFData ListDeploymentGroupsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
index ff5609e..8bc2736 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -80,28 +80,28 @@ listDeploymentInstances
-> ListDeploymentInstances
listDeploymentInstances pDeploymentId_ =
ListDeploymentInstances'
- { _lInstanceStatusFilter = Nothing
- , _lNextToken = Nothing
- , _lInstanceTypeFilter = Nothing
- , _lDeploymentId = pDeploymentId_
- }
+ { _lInstanceStatusFilter = Nothing
+ , _lNextToken = Nothing
+ , _lInstanceTypeFilter = Nothing
+ , _lDeploymentId = pDeploymentId_
+ }
-- | A subset of instances to list by status: * Pending: Include those instance with pending deployments. * InProgress: Include those instance where deployments are still in progress. * Succeeded: Include those instances with successful deployments. * Failed: Include those instance with failed deployments. * Skipped: Include those instance with skipped deployments. * Unknown: Include those instance with deployments in an unknown state.
lInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus]
-lInstanceStatusFilter = lens _lInstanceStatusFilter (\ s a -> s{_lInstanceStatusFilter = a}) . _Default . _Coerce;
+lInstanceStatusFilter = lens _lInstanceStatusFilter (\ s a -> s{_lInstanceStatusFilter = a}) . _Default . _Coerce
-- | An identifier returned from the previous list deployment instances call. It can be used to return the next set of deployment instances in the list.
lNextToken :: Lens' ListDeploymentInstances (Maybe Text)
-lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a});
+lNextToken = lens _lNextToken (\ s a -> s{_lNextToken = a})
-- | The set of instances in a blue/green deployment, either those in the original environment ("BLUE") or those in the replacement environment ("GREEN"), for which you want to view instance information.
lInstanceTypeFilter :: Lens' ListDeploymentInstances [InstanceType]
-lInstanceTypeFilter = lens _lInstanceTypeFilter (\ s a -> s{_lInstanceTypeFilter = a}) . _Default . _Coerce;
+lInstanceTypeFilter = lens _lInstanceTypeFilter (\ s a -> s{_lInstanceTypeFilter = a}) . _Default . _Coerce
-- | The unique ID of a deployment.
lDeploymentId :: Lens' ListDeploymentInstances Text
-lDeploymentId = lens _lDeploymentId (\ s a -> s{_lDeploymentId = a});
+lDeploymentId = lens _lDeploymentId (\ s a -> s{_lDeploymentId = a})
instance AWSPager ListDeploymentInstances where
page rq rs
@@ -178,22 +178,22 @@ listDeploymentInstancesResponse
-> ListDeploymentInstancesResponse
listDeploymentInstancesResponse pResponseStatus_ =
ListDeploymentInstancesResponse'
- { _ldirsNextToken = Nothing
- , _ldirsInstancesList = Nothing
- , _ldirsResponseStatus = pResponseStatus_
- }
+ { _ldirsNextToken = Nothing
+ , _ldirsInstancesList = Nothing
+ , _ldirsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list deployment instances call to return the next set of deployment instances in the list.
ldirsNextToken :: Lens' ListDeploymentInstancesResponse (Maybe Text)
-ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a});
+ldirsNextToken = lens _ldirsNextToken (\ s a -> s{_ldirsNextToken = a})
-- | A list of instance IDs.
ldirsInstancesList :: Lens' ListDeploymentInstancesResponse [Text]
-ldirsInstancesList = lens _ldirsInstancesList (\ s a -> s{_ldirsInstancesList = a}) . _Default . _Coerce;
+ldirsInstancesList = lens _ldirsInstancesList (\ s a -> s{_ldirsInstancesList = a}) . _Default . _Coerce
-- | -- | The response status code.
ldirsResponseStatus :: Lens' ListDeploymentInstancesResponse Int
-ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});
+ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a})
instance NFData ListDeploymentInstancesResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeployments.hs b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
index 8402124..c9af3c7 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeployments
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -83,33 +83,33 @@ listDeployments
:: ListDeployments
listDeployments =
ListDeployments'
- { _ldCreateTimeRange = Nothing
- , _ldNextToken = Nothing
- , _ldIncludeOnlyStatuses = Nothing
- , _ldApplicationName = Nothing
- , _ldDeploymentGroupName = Nothing
- }
+ { _ldCreateTimeRange = Nothing
+ , _ldNextToken = Nothing
+ , _ldIncludeOnlyStatuses = Nothing
+ , _ldApplicationName = Nothing
+ , _ldDeploymentGroupName = Nothing
+ }
-- | A time range (start and end) for returning a subset of the list of deployments.
ldCreateTimeRange :: Lens' ListDeployments (Maybe TimeRange)
-ldCreateTimeRange = lens _ldCreateTimeRange (\ s a -> s{_ldCreateTimeRange = a});
+ldCreateTimeRange = lens _ldCreateTimeRange (\ s a -> s{_ldCreateTimeRange = a})
-- | An identifier returned from the previous list deployments call. It can be used to return the next set of deployments in the list.
ldNextToken :: Lens' ListDeployments (Maybe Text)
-ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});
+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})
-- | A subset of deployments to list by status: * Created: Include created deployments in the resulting list. * Queued: Include queued deployments in the resulting list. * In Progress: Include in-progress deployments in the resulting list. * Succeeded: Include successful deployments in the resulting list. * Failed: Include failed deployments in the resulting list. * Stopped: Include stopped deployments in the resulting list.
ldIncludeOnlyStatuses :: Lens' ListDeployments [DeploymentStatus]
-ldIncludeOnlyStatuses = lens _ldIncludeOnlyStatuses (\ s a -> s{_ldIncludeOnlyStatuses = a}) . _Default . _Coerce;
+ldIncludeOnlyStatuses = lens _ldIncludeOnlyStatuses (\ s a -> s{_ldIncludeOnlyStatuses = a}) . _Default . _Coerce
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
ldApplicationName :: Lens' ListDeployments (Maybe Text)
-ldApplicationName = lens _ldApplicationName (\ s a -> s{_ldApplicationName = a});
+ldApplicationName = lens _ldApplicationName (\ s a -> s{_ldApplicationName = a})
-- | The name of an existing deployment group for the specified application.
ldDeploymentGroupName :: Lens' ListDeployments (Maybe Text)
-ldDeploymentGroupName = lens _ldDeploymentGroupName (\ s a -> s{_ldDeploymentGroupName = a});
+ldDeploymentGroupName = lens _ldDeploymentGroupName (\ s a -> s{_ldDeploymentGroupName = a})
instance AWSPager ListDeployments where
page rq rs
@@ -187,22 +187,22 @@ listDeploymentsResponse
-> ListDeploymentsResponse
listDeploymentsResponse pResponseStatus_ =
ListDeploymentsResponse'
- { _ldrsNextToken = Nothing
- , _ldrsDeployments = Nothing
- , _ldrsResponseStatus = pResponseStatus_
- }
+ { _ldrsNextToken = Nothing
+ , _ldrsDeployments = Nothing
+ , _ldrsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list deployments call to return the next set of deployments in the list.
ldrsNextToken :: Lens' ListDeploymentsResponse (Maybe Text)
-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});
+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})
-- | A list of deployment IDs.
ldrsDeployments :: Lens' ListDeploymentsResponse [Text]
-ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce;
+ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce
-- | -- | The response status code.
ldrsResponseStatus :: Lens' ListDeploymentsResponse Int
-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})
instance NFData ListDeploymentsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs b/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs
index 4f19832..29c3ca2 100644
--- a/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs
+++ b/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -68,7 +68,7 @@ listGitHubAccountTokenNames =
-- | An identifier returned from the previous ListGitHubAccountTokenNames call. It can be used to return the next set of names in the list.
lghatnNextToken :: Lens' ListGitHubAccountTokenNames (Maybe Text)
-lghatnNextToken = lens _lghatnNextToken (\ s a -> s{_lghatnNextToken = a});
+lghatnNextToken = lens _lghatnNextToken (\ s a -> s{_lghatnNextToken = a})
instance AWSRequest ListGitHubAccountTokenNames where
type Rs ListGitHubAccountTokenNames =
@@ -133,23 +133,23 @@ listGitHubAccountTokenNamesResponse
-> ListGitHubAccountTokenNamesResponse
listGitHubAccountTokenNamesResponse pResponseStatus_ =
ListGitHubAccountTokenNamesResponse'
- { _lghatnrsTokenNameList = Nothing
- , _lghatnrsNextToken = Nothing
- , _lghatnrsResponseStatus = pResponseStatus_
- }
+ { _lghatnrsTokenNameList = Nothing
+ , _lghatnrsNextToken = Nothing
+ , _lghatnrsResponseStatus = pResponseStatus_
+ }
-- | A list of names of connections to GitHub accounts.
lghatnrsTokenNameList :: Lens' ListGitHubAccountTokenNamesResponse [Text]
-lghatnrsTokenNameList = lens _lghatnrsTokenNameList (\ s a -> s{_lghatnrsTokenNameList = a}) . _Default . _Coerce;
+lghatnrsTokenNameList = lens _lghatnrsTokenNameList (\ s a -> s{_lghatnrsTokenNameList = a}) . _Default . _Coerce
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent ListGitHubAccountTokenNames call to return the next set of names in the list.
lghatnrsNextToken :: Lens' ListGitHubAccountTokenNamesResponse (Maybe Text)
-lghatnrsNextToken = lens _lghatnrsNextToken (\ s a -> s{_lghatnrsNextToken = a});
+lghatnrsNextToken = lens _lghatnrsNextToken (\ s a -> s{_lghatnrsNextToken = a})
-- | -- | The response status code.
lghatnrsResponseStatus :: Lens' ListGitHubAccountTokenNamesResponse Int
-lghatnrsResponseStatus = lens _lghatnrsResponseStatus (\ s a -> s{_lghatnrsResponseStatus = a});
+lghatnrsResponseStatus = lens _lghatnrsResponseStatus (\ s a -> s{_lghatnrsResponseStatus = a})
instance NFData ListGitHubAccountTokenNamesResponse
where
diff --git a/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs
index 1be7092..be4bb64 100644
--- a/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListOnPremisesInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -74,23 +74,23 @@ listOnPremisesInstances
:: ListOnPremisesInstances
listOnPremisesInstances =
ListOnPremisesInstances'
- { _lopiTagFilters = Nothing
- , _lopiNextToken = Nothing
- , _lopiRegistrationStatus = Nothing
- }
+ { _lopiTagFilters = Nothing
+ , _lopiNextToken = Nothing
+ , _lopiRegistrationStatus = Nothing
+ }
-- | The on-premises instance tags that will be used to restrict the corresponding on-premises instance names returned.
lopiTagFilters :: Lens' ListOnPremisesInstances [TagFilter]
-lopiTagFilters = lens _lopiTagFilters (\ s a -> s{_lopiTagFilters = a}) . _Default . _Coerce;
+lopiTagFilters = lens _lopiTagFilters (\ s a -> s{_lopiTagFilters = a}) . _Default . _Coerce
-- | An identifier returned from the previous list on-premises instances call. It can be used to return the next set of on-premises instances in the list.
lopiNextToken :: Lens' ListOnPremisesInstances (Maybe Text)
-lopiNextToken = lens _lopiNextToken (\ s a -> s{_lopiNextToken = a});
+lopiNextToken = lens _lopiNextToken (\ s a -> s{_lopiNextToken = a})
-- | The registration status of the on-premises instances: * Deregistered: Include deregistered on-premises instances in the resulting list. * Registered: Include registered on-premises instances in the resulting list.
lopiRegistrationStatus :: Lens' ListOnPremisesInstances (Maybe RegistrationStatus)
-lopiRegistrationStatus = lens _lopiRegistrationStatus (\ s a -> s{_lopiRegistrationStatus = a});
+lopiRegistrationStatus = lens _lopiRegistrationStatus (\ s a -> s{_lopiRegistrationStatus = a})
instance AWSRequest ListOnPremisesInstances where
type Rs ListOnPremisesInstances =
@@ -159,22 +159,22 @@ listOnPremisesInstancesResponse
-> ListOnPremisesInstancesResponse
listOnPremisesInstancesResponse pResponseStatus_ =
ListOnPremisesInstancesResponse'
- { _lopirsNextToken = Nothing
- , _lopirsInstanceNames = Nothing
- , _lopirsResponseStatus = pResponseStatus_
- }
+ { _lopirsNextToken = Nothing
+ , _lopirsInstanceNames = Nothing
+ , _lopirsResponseStatus = pResponseStatus_
+ }
-- | If a large amount of information is returned, an identifier is also returned. It can be used in a subsequent list on-premises instances call to return the next set of on-premises instances in the list.
lopirsNextToken :: Lens' ListOnPremisesInstancesResponse (Maybe Text)
-lopirsNextToken = lens _lopirsNextToken (\ s a -> s{_lopirsNextToken = a});
+lopirsNextToken = lens _lopirsNextToken (\ s a -> s{_lopirsNextToken = a})
-- | The list of matching on-premises instance names.
lopirsInstanceNames :: Lens' ListOnPremisesInstancesResponse [Text]
-lopirsInstanceNames = lens _lopirsInstanceNames (\ s a -> s{_lopirsInstanceNames = a}) . _Default . _Coerce;
+lopirsInstanceNames = lens _lopirsInstanceNames (\ s a -> s{_lopirsInstanceNames = a}) . _Default . _Coerce
-- | -- | The response status code.
lopirsResponseStatus :: Lens' ListOnPremisesInstancesResponse Int
-lopirsResponseStatus = lens _lopirsResponseStatus (\ s a -> s{_lopirsResponseStatus = a});
+lopirsResponseStatus = lens _lopirsResponseStatus (\ s a -> s{_lopirsResponseStatus = a})
instance NFData ListOnPremisesInstancesResponse where
diff --git a/gen/Network/AWS/CodeDeploy/PutLifecycleEventHookExecutionStatus.hs b/gen/Network/AWS/CodeDeploy/PutLifecycleEventHookExecutionStatus.hs
new file mode 100644
index 0000000..07dc1f8
--- /dev/null
+++ b/gen/Network/AWS/CodeDeploy/PutLifecycleEventHookExecutionStatus.hs
@@ -0,0 +1,172 @@
+{-# LANGUAGE DeriveDataTypeable #-}
+{-# LANGUAGE DeriveGeneric #-}
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE RecordWildCards #-}
+{-# LANGUAGE TypeFamilies #-}
+
+{-# OPTIONS_GHC -fno-warn-unused-imports #-}
+{-# OPTIONS_GHC -fno-warn-unused-binds #-}
+{-# OPTIONS_GHC -fno-warn-unused-matches #-}
+
+-- Derived from AWS service descriptions, licensed under Apache 2.0.
+
+-- |
+-- Module : Network.AWS.CodeDeploy.PutLifecycleEventHookExecutionStatus
+-- Copyright : (c) 2013-2018 Brendan Hay
+-- License : Mozilla Public License, v. 2.0.
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+-- Stability : auto-generated
+-- Portability : non-portable (GHC extensions)
+--
+-- Sets the result of a Lambda validation function. The function validates one or both lifecycle events (@BeforeAllowTraffic@ and @AfterAllowTraffic@ ) and returns @Succeeded@ or @Failed@ .
+--
+--
+module Network.AWS.CodeDeploy.PutLifecycleEventHookExecutionStatus
+ (
+ -- * Creating a Request
+ putLifecycleEventHookExecutionStatus
+ , PutLifecycleEventHookExecutionStatus
+ -- * Request Lenses
+ , plehesStatus
+ , plehesDeploymentId
+ , plehesLifecycleEventHookExecutionId
+
+ -- * Destructuring the Response
+ , putLifecycleEventHookExecutionStatusResponse
+ , PutLifecycleEventHookExecutionStatusResponse
+ -- * Response Lenses
+ , plehesrsLifecycleEventHookExecutionId
+ , plehesrsResponseStatus
+ ) where
+
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
+
+-- | /See:/ 'putLifecycleEventHookExecutionStatus' smart constructor.
+data PutLifecycleEventHookExecutionStatus = PutLifecycleEventHookExecutionStatus'
+ { _plehesStatus :: !(Maybe LifecycleEventStatus)
+ , _plehesDeploymentId :: !(Maybe Text)
+ , _plehesLifecycleEventHookExecutionId :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'PutLifecycleEventHookExecutionStatus' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plehesStatus' - The result of a Lambda function that validates a deployment lifecycle event (@Succeeded@ or @Failed@ ).
+--
+-- * 'plehesDeploymentId' - The ID of the deployment. Pass this ID to a Lambda function that validates a deployment lifecycle event.
+--
+-- * 'plehesLifecycleEventHookExecutionId' - The execution ID of a deployment's lifecycle hook. A deployment lifecycle hook is specified in the @hooks@ section of the AppSpec file.
+putLifecycleEventHookExecutionStatus
+ :: PutLifecycleEventHookExecutionStatus
+putLifecycleEventHookExecutionStatus =
+ PutLifecycleEventHookExecutionStatus'
+ { _plehesStatus = Nothing
+ , _plehesDeploymentId = Nothing
+ , _plehesLifecycleEventHookExecutionId = Nothing
+ }
+
+
+-- | The result of a Lambda function that validates a deployment lifecycle event (@Succeeded@ or @Failed@ ).
+plehesStatus :: Lens' PutLifecycleEventHookExecutionStatus (Maybe LifecycleEventStatus)
+plehesStatus = lens _plehesStatus (\ s a -> s{_plehesStatus = a})
+
+-- | The ID of the deployment. Pass this ID to a Lambda function that validates a deployment lifecycle event.
+plehesDeploymentId :: Lens' PutLifecycleEventHookExecutionStatus (Maybe Text)
+plehesDeploymentId = lens _plehesDeploymentId (\ s a -> s{_plehesDeploymentId = a})
+
+-- | The execution ID of a deployment's lifecycle hook. A deployment lifecycle hook is specified in the @hooks@ section of the AppSpec file.
+plehesLifecycleEventHookExecutionId :: Lens' PutLifecycleEventHookExecutionStatus (Maybe Text)
+plehesLifecycleEventHookExecutionId = lens _plehesLifecycleEventHookExecutionId (\ s a -> s{_plehesLifecycleEventHookExecutionId = a})
+
+instance AWSRequest
+ PutLifecycleEventHookExecutionStatus
+ where
+ type Rs PutLifecycleEventHookExecutionStatus =
+ PutLifecycleEventHookExecutionStatusResponse
+ request = postJSON codeDeploy
+ response
+ = receiveJSON
+ (\ s h x ->
+ PutLifecycleEventHookExecutionStatusResponse' <$>
+ (x .?> "lifecycleEventHookExecutionId") <*>
+ (pure (fromEnum s)))
+
+instance Hashable
+ PutLifecycleEventHookExecutionStatus
+ where
+
+instance NFData PutLifecycleEventHookExecutionStatus
+ where
+
+instance ToHeaders
+ PutLifecycleEventHookExecutionStatus
+ where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("CodeDeploy_20141006.PutLifecycleEventHookExecutionStatus"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON PutLifecycleEventHookExecutionStatus
+ where
+ toJSON PutLifecycleEventHookExecutionStatus'{..}
+ = object
+ (catMaybes
+ [("status" .=) <$> _plehesStatus,
+ ("deploymentId" .=) <$> _plehesDeploymentId,
+ ("lifecycleEventHookExecutionId" .=) <$>
+ _plehesLifecycleEventHookExecutionId])
+
+instance ToPath PutLifecycleEventHookExecutionStatus
+ where
+ toPath = const "/"
+
+instance ToQuery PutLifecycleEventHookExecutionStatus
+ where
+ toQuery = const mempty
+
+-- | /See:/ 'putLifecycleEventHookExecutionStatusResponse' smart constructor.
+data PutLifecycleEventHookExecutionStatusResponse = PutLifecycleEventHookExecutionStatusResponse'
+ { _plehesrsLifecycleEventHookExecutionId :: !(Maybe Text)
+ , _plehesrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'PutLifecycleEventHookExecutionStatusResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'plehesrsLifecycleEventHookExecutionId' - The execution ID of the lifecycle event hook. A hook is specified in the @hooks@ section of the deployment's AppSpec file.
+--
+-- * 'plehesrsResponseStatus' - -- | The response status code.
+putLifecycleEventHookExecutionStatusResponse
+ :: Int -- ^ 'plehesrsResponseStatus'
+ -> PutLifecycleEventHookExecutionStatusResponse
+putLifecycleEventHookExecutionStatusResponse pResponseStatus_ =
+ PutLifecycleEventHookExecutionStatusResponse'
+ { _plehesrsLifecycleEventHookExecutionId = Nothing
+ , _plehesrsResponseStatus = pResponseStatus_
+ }
+
+
+-- | The execution ID of the lifecycle event hook. A hook is specified in the @hooks@ section of the deployment's AppSpec file.
+plehesrsLifecycleEventHookExecutionId :: Lens' PutLifecycleEventHookExecutionStatusResponse (Maybe Text)
+plehesrsLifecycleEventHookExecutionId = lens _plehesrsLifecycleEventHookExecutionId (\ s a -> s{_plehesrsLifecycleEventHookExecutionId = a})
+
+-- | -- | The response status code.
+plehesrsResponseStatus :: Lens' PutLifecycleEventHookExecutionStatusResponse Int
+plehesrsResponseStatus = lens _plehesrsResponseStatus (\ s a -> s{_plehesrsResponseStatus = a})
+
+instance NFData
+ PutLifecycleEventHookExecutionStatusResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
index 009292a..a34716a 100644
--- a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.RegisterApplicationRevision
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -70,23 +70,23 @@ registerApplicationRevision
-> RegisterApplicationRevision
registerApplicationRevision pApplicationName_ pRevision_ =
RegisterApplicationRevision'
- { _rarDescription = Nothing
- , _rarApplicationName = pApplicationName_
- , _rarRevision = pRevision_
- }
+ { _rarDescription = Nothing
+ , _rarApplicationName = pApplicationName_
+ , _rarRevision = pRevision_
+ }
-- | A comment about the revision.
rarDescription :: Lens' RegisterApplicationRevision (Maybe Text)
-rarDescription = lens _rarDescription (\ s a -> s{_rarDescription = a});
+rarDescription = lens _rarDescription (\ s a -> s{_rarDescription = a})
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
rarApplicationName :: Lens' RegisterApplicationRevision Text
-rarApplicationName = lens _rarApplicationName (\ s a -> s{_rarApplicationName = a});
+rarApplicationName = lens _rarApplicationName (\ s a -> s{_rarApplicationName = a})
-- | Information about the application revision to register, including type and location.
rarRevision :: Lens' RegisterApplicationRevision RevisionLocation
-rarRevision = lens _rarRevision (\ s a -> s{_rarRevision = a});
+rarRevision = lens _rarRevision (\ s a -> s{_rarRevision = a})
instance AWSRequest RegisterApplicationRevision where
type Rs RegisterApplicationRevision =
diff --git a/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
index c247335..9113ef1 100644
--- a/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.RegisterOnPremisesInstance
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,23 +69,23 @@ registerOnPremisesInstance
-> RegisterOnPremisesInstance
registerOnPremisesInstance pInstanceName_ =
RegisterOnPremisesInstance'
- { _ropiIamUserARN = Nothing
- , _ropiIamSessionARN = Nothing
- , _ropiInstanceName = pInstanceName_
- }
+ { _ropiIamUserARN = Nothing
+ , _ropiIamSessionARN = Nothing
+ , _ropiInstanceName = pInstanceName_
+ }
-- | The ARN of the IAM user to associate with the on-premises instance.
ropiIamUserARN :: Lens' RegisterOnPremisesInstance (Maybe Text)
-ropiIamUserARN = lens _ropiIamUserARN (\ s a -> s{_ropiIamUserARN = a});
+ropiIamUserARN = lens _ropiIamUserARN (\ s a -> s{_ropiIamUserARN = a})
-- | The ARN of the IAM session to associate with the on-premises instance.
ropiIamSessionARN :: Lens' RegisterOnPremisesInstance (Maybe Text)
-ropiIamSessionARN = lens _ropiIamSessionARN (\ s a -> s{_ropiIamSessionARN = a});
+ropiIamSessionARN = lens _ropiIamSessionARN (\ s a -> s{_ropiIamSessionARN = a})
-- | The name of the on-premises instance to register.
ropiInstanceName :: Lens' RegisterOnPremisesInstance Text
-ropiInstanceName = lens _ropiInstanceName (\ s a -> s{_ropiInstanceName = a});
+ropiInstanceName = lens _ropiInstanceName (\ s a -> s{_ropiInstanceName = a})
instance AWSRequest RegisterOnPremisesInstance where
type Rs RegisterOnPremisesInstance =
diff --git a/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
index 8fea735..1756461 100644
--- a/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,16 +64,16 @@ removeTagsFromOnPremisesInstances
:: RemoveTagsFromOnPremisesInstances
removeTagsFromOnPremisesInstances =
RemoveTagsFromOnPremisesInstances'
- {_rtfopiTags = mempty, _rtfopiInstanceNames = mempty}
+ {_rtfopiTags = mempty, _rtfopiInstanceNames = mempty}
-- | The tag key-value pairs to remove from the on-premises instances.
rtfopiTags :: Lens' RemoveTagsFromOnPremisesInstances [Tag]
-rtfopiTags = lens _rtfopiTags (\ s a -> s{_rtfopiTags = a}) . _Coerce;
+rtfopiTags = lens _rtfopiTags (\ s a -> s{_rtfopiTags = a}) . _Coerce
-- | The names of the on-premises instances from which to remove tags.
rtfopiInstanceNames :: Lens' RemoveTagsFromOnPremisesInstances [Text]
-rtfopiInstanceNames = lens _rtfopiInstanceNames (\ s a -> s{_rtfopiInstanceNames = a}) . _Coerce;
+rtfopiInstanceNames = lens _rtfopiInstanceNames (\ s a -> s{_rtfopiInstanceNames = a}) . _Coerce
instance AWSRequest RemoveTagsFromOnPremisesInstances
where
diff --git a/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs b/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs
index 1ca827d..5bfee21 100644
--- a/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs
+++ b/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.SkipWaitTimeForInstanceTermination
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -60,7 +60,7 @@ skipWaitTimeForInstanceTermination =
-- | The ID of the blue/green deployment for which you want to skip the instance termination wait time.
swtfitDeploymentId :: Lens' SkipWaitTimeForInstanceTermination (Maybe Text)
-swtfitDeploymentId = lens _swtfitDeploymentId (\ s a -> s{_swtfitDeploymentId = a});
+swtfitDeploymentId = lens _swtfitDeploymentId (\ s a -> s{_swtfitDeploymentId = a})
instance AWSRequest
SkipWaitTimeForInstanceTermination
diff --git a/gen/Network/AWS/CodeDeploy/StopDeployment.hs b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
index 8b019a5..4e9ce9a 100644
--- a/gen/Network/AWS/CodeDeploy/StopDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.StopDeployment
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -69,16 +69,16 @@ stopDeployment
-> StopDeployment
stopDeployment pDeploymentId_ =
StopDeployment'
- {_sdAutoRollbackEnabled = Nothing, _sdDeploymentId = pDeploymentId_}
+ {_sdAutoRollbackEnabled = Nothing, _sdDeploymentId = pDeploymentId_}
-- | Indicates, when a deployment is stopped, whether instances that have been updated should be rolled back to the previous version of the application revision.
sdAutoRollbackEnabled :: Lens' StopDeployment (Maybe Bool)
-sdAutoRollbackEnabled = lens _sdAutoRollbackEnabled (\ s a -> s{_sdAutoRollbackEnabled = a});
+sdAutoRollbackEnabled = lens _sdAutoRollbackEnabled (\ s a -> s{_sdAutoRollbackEnabled = a})
-- | The unique ID of a deployment.
sdDeploymentId :: Lens' StopDeployment Text
-sdDeploymentId = lens _sdDeploymentId (\ s a -> s{_sdDeploymentId = a});
+sdDeploymentId = lens _sdDeploymentId (\ s a -> s{_sdDeploymentId = a})
instance AWSRequest StopDeployment where
type Rs StopDeployment = StopDeploymentResponse
@@ -143,22 +143,22 @@ stopDeploymentResponse
-> StopDeploymentResponse
stopDeploymentResponse pResponseStatus_ =
StopDeploymentResponse'
- { _sdrsStatus = Nothing
- , _sdrsStatusMessage = Nothing
- , _sdrsResponseStatus = pResponseStatus_
- }
+ { _sdrsStatus = Nothing
+ , _sdrsStatusMessage = Nothing
+ , _sdrsResponseStatus = pResponseStatus_
+ }
-- | The status of the stop deployment operation: * Pending: The stop operation is pending. * Succeeded: The stop operation was successful.
sdrsStatus :: Lens' StopDeploymentResponse (Maybe StopStatus)
-sdrsStatus = lens _sdrsStatus (\ s a -> s{_sdrsStatus = a});
+sdrsStatus = lens _sdrsStatus (\ s a -> s{_sdrsStatus = a})
-- | An accompanying status message.
sdrsStatusMessage :: Lens' StopDeploymentResponse (Maybe Text)
-sdrsStatusMessage = lens _sdrsStatusMessage (\ s a -> s{_sdrsStatusMessage = a});
+sdrsStatusMessage = lens _sdrsStatusMessage (\ s a -> s{_sdrsStatusMessage = a})
-- | -- | The response status code.
sdrsResponseStatus :: Lens' StopDeploymentResponse Int
-sdrsResponseStatus = lens _sdrsResponseStatus (\ s a -> s{_sdrsResponseStatus = a});
+sdrsResponseStatus = lens _sdrsResponseStatus (\ s a -> s{_sdrsResponseStatus = a})
instance NFData StopDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/Types.hs b/gen/Network/AWS/CodeDeploy/Types.hs
index 369ce7d..c2d013e 100644
--- a/gen/Network/AWS/CodeDeploy/Types.hs
+++ b/gen/Network/AWS/CodeDeploy/Types.hs
@@ -4,7 +4,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -18,6 +18,7 @@ module Network.AWS.CodeDeploy.Types
-- * Errors
, _LifecycleHookLimitExceededException
, _InvalidTimeRangeException
+ , _InvalidComputePlatformException
, _InvalidTagException
, _InvalidFileExistsBehaviorException
, _InvalidAlarmConfigException
@@ -26,6 +27,7 @@ module Network.AWS.CodeDeploy.Types
, _InvalidDeploymentGroupNameException
, _InvalidInstanceTypeException
, _IAMSessionARNAlreadyRegisteredException
+ , _InvalidTrafficRoutingConfigurationException
, _DescriptionTooLongException
, _InvalidIAMUserARNException
, _InvalidOnPremisesTagCombinationException
@@ -41,6 +43,7 @@ module Network.AWS.CodeDeploy.Types
, _IAMUserARNAlreadyRegisteredException
, _InvalidIAMSessionARNException
, _InstanceLimitExceededException
+ , _InvalidLifecycleEventHookExecutionIdException
, _InvalidDeploymentStyleException
, _InvalidDeployedStateFilterException
, _InvalidAutoScalingGroupException
@@ -50,10 +53,15 @@ module Network.AWS.CodeDeploy.Types
, _InvalidMinimumHealthyHostValueException
, _UnsupportedActionForDeploymentTypeException
, _ResourceValidationException
+ , _InvalidGitHubAccountTokenException
, _InvalidEC2TagCombinationException
+ , _InvalidLifecycleEventHookExecutionStatusException
, _AlarmsLimitExceededException
+ , _OperationNotSupportedException
, _InvalidTagFilterException
, _InvalidTriggerConfigException
+ , _InvalidIgnoreApplicationStopFailuresValueException
+ , _InvalidUpdateOutdatedInstancesOnlyValueException
, _TagRequiredException
, _DeploymentGroupNameRequiredException
, _BucketNameFilterRequiredException
@@ -64,9 +72,11 @@ module Network.AWS.CodeDeploy.Types
, _RevisionDoesNotExistException
, _DeploymentGroupLimitExceededException
, _DeploymentGroupDoesNotExistException
+ , _ThrottlingException
, _InvalidDeploymentConfigNameException
, _DeploymentConfigNameRequiredException
, _DeploymentIdRequiredException
+ , _InvalidInstanceIdException
, _DeploymentIsNotInReadyStateException
, _InvalidNextTokenException
, _InstanceIdRequiredException
@@ -80,6 +90,7 @@ module Network.AWS.CodeDeploy.Types
, _RevisionRequiredException
, _InstanceDoesNotExistException
, _DeploymentConfigInUseException
+ , _InvalidInputException
, _InvalidEC2TagException
, _InvalidInstanceNameException
, _InstanceNameRequiredException
@@ -95,8 +106,11 @@ module Network.AWS.CodeDeploy.Types
, _ApplicationLimitExceededException
, _TagSetListLimitExceededException
, _InvalidOperationException
+ , _GitHubAccountTokenNameRequiredException
, _InvalidDeploymentInstanceTypeException
, _IAMARNRequiredException
+ , _InvalidGitHubAccountTokenNameException
+ , _LifecycleEventAlreadyCompletedException
, _InvalidKeyPrefixFilterException
-- * ApplicationRevisionSortBy
@@ -108,6 +122,9 @@ module Network.AWS.CodeDeploy.Types
-- * BundleType
, BundleType (..)
+ -- * ComputePlatform
+ , ComputePlatform (..)
+
-- * DeployErrorCode
, DeployErrorCode (..)
@@ -171,6 +188,9 @@ module Network.AWS.CodeDeploy.Types
-- * TagFilterType
, TagFilterType (..)
+ -- * TrafficRoutingType
+ , TrafficRoutingType (..)
+
-- * TriggerEventType
, TriggerEventType (..)
@@ -190,6 +210,7 @@ module Network.AWS.CodeDeploy.Types
, ApplicationInfo
, applicationInfo
, aiLinkedToGitHub
+ , aiComputePlatform
, aiApplicationId
, aiApplicationName
, aiGitHubAccountName
@@ -224,7 +245,9 @@ module Network.AWS.CodeDeploy.Types
, DeploymentConfigInfo
, deploymentConfigInfo
, dciDeploymentConfigName
+ , dciComputePlatform
, dciMinimumHealthyHosts
+ , dciTrafficRoutingConfig
, dciDeploymentConfigId
, dciCreateTime
@@ -236,6 +259,7 @@ module Network.AWS.CodeDeploy.Types
, dgiDeploymentConfigName
, dgiLastAttemptedDeployment
, dgiOnPremisesTagSet
+ , dgiComputePlatform
, dgiTargetRevision
, dgiEc2TagFilters
, dgiBlueGreenDeploymentConfiguration
@@ -258,8 +282,10 @@ module Network.AWS.CodeDeploy.Types
, diStatus
, diDeploymentId
, diDeploymentConfigName
+ , diComputePlatform
, diPreviousRevision
, diInstanceTerminationWaitTimeStarted
+ , diDeploymentStatusMessages
, diStartTime
, diCompleteTime
, diBlueGreenDeploymentConfiguration
@@ -408,6 +434,12 @@ module Network.AWS.CodeDeploy.Types
, onPremisesTagSet
, optsOnPremisesTagSetList
+ -- * RawString
+ , RawString
+ , rawString
+ , rsContent
+ , rsSha256
+
-- * RevisionInfo
, RevisionInfo
, revisionInfo
@@ -417,6 +449,7 @@ module Network.AWS.CodeDeploy.Types
-- * RevisionLocation
, RevisionLocation
, revisionLocation
+ , rlString
, rlRevisionType
, rlS3Location
, rlGitHubLocation
@@ -462,12 +495,31 @@ module Network.AWS.CodeDeploy.Types
, tiTagFilters
, tiAutoScalingGroups
+ -- * TimeBasedCanary
+ , TimeBasedCanary
+ , timeBasedCanary
+ , tbcCanaryInterval
+ , tbcCanaryPercentage
+
+ -- * TimeBasedLinear
+ , TimeBasedLinear
+ , timeBasedLinear
+ , tblLinearInterval
+ , tblLinearPercentage
+
-- * TimeRange
, TimeRange
, timeRange
, trStart
, trEnd
+ -- * TrafficRoutingConfig
+ , TrafficRoutingConfig
+ , trafficRoutingConfig
+ , trcTimeBasedCanary
+ , trcTimeBasedLinear
+ , trcType
+
-- * TriggerConfig
, TriggerConfig
, triggerConfig
@@ -486,24 +538,24 @@ import Network.AWS.Sign.V4
codeDeploy :: Service
codeDeploy =
Service
- { _svcAbbrev = "CodeDeploy"
- , _svcSigner = v4
- , _svcPrefix = "codedeploy"
- , _svcVersion = "2014-10-06"
- , _svcEndpoint = defaultEndpoint codeDeploy
- , _svcTimeout = Just 70
- , _svcCheck = statusSuccess
- , _svcError = parseJSONError "CodeDeploy"
- , _svcRetry = retry
- }
+ { _svcAbbrev = "CodeDeploy"
+ , _svcSigner = v4
+ , _svcPrefix = "codedeploy"
+ , _svcVersion = "2014-10-06"
+ , _svcEndpoint = defaultEndpoint codeDeploy
+ , _svcTimeout = Just 70
+ , _svcCheck = statusSuccess
+ , _svcError = parseJSONError "CodeDeploy"
+ , _svcRetry = retry
+ }
where
retry =
Exponential
- { _retryBase = 5.0e-2
- , _retryGrowth = 2
- , _retryAttempts = 5
- , _retryCheck = check
- }
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
@@ -512,6 +564,8 @@ codeDeploy =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =
+ Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
@@ -535,6 +589,14 @@ _InvalidTimeRangeException =
_MatchServiceError codeDeploy "InvalidTimeRangeException"
+-- | The computePlatform is invalid. The computePlatform should be @Lambda@ or @Server@ .
+--
+--
+_InvalidComputePlatformException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidComputePlatformException =
+ _MatchServiceError codeDeploy "InvalidComputePlatformException"
+
+
-- | The specified tag was specified in an invalid format.
--
--
@@ -610,6 +672,14 @@ _IAMSessionARNAlreadyRegisteredException =
_MatchServiceError codeDeploy "IamSessionArnAlreadyRegisteredException"
+-- | The configuration that specifies how traffic is routed during a deployment is invalid.
+--
+--
+_InvalidTrafficRoutingConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidTrafficRoutingConfigurationException =
+ _MatchServiceError codeDeploy "InvalidTrafficRoutingConfigurationException"
+
+
-- | The description is too long.
--
--
@@ -740,6 +810,14 @@ _InstanceLimitExceededException =
_MatchServiceError codeDeploy "InstanceLimitExceededException"
+-- | A lifecycle event hook is invalid. Review the @hooks@ section in your AppSpec file to ensure the lifecycle events and @hooks@ functions are valid.
+--
+--
+_InvalidLifecycleEventHookExecutionIdException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidLifecycleEventHookExecutionIdException =
+ _MatchServiceError codeDeploy "InvalidLifecycleEventHookExecutionIdException"
+
+
-- | An invalid deployment style was specified. Valid deployment types include "IN_PLACE" and "BLUE_GREEN". Valid deployment options include "WITH_TRAFFIC_CONTROL" and "WITHOUT_TRAFFIC_CONTROL".
--
--
@@ -812,6 +890,14 @@ _ResourceValidationException =
_MatchServiceError codeDeploy "ResourceValidationException"
+-- | The GitHub token is not valid.
+--
+--
+_InvalidGitHubAccountTokenException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidGitHubAccountTokenException =
+ _MatchServiceError codeDeploy "InvalidGitHubAccountTokenException"
+
+
-- | A call was submitted that specified both Ec2TagFilters and Ec2TagSet, but only one of these data types can be used in a single call.
--
--
@@ -820,6 +906,16 @@ _InvalidEC2TagCombinationException =
_MatchServiceError codeDeploy "InvalidEC2TagCombinationException"
+-- | The result of a Lambda validation function that verifies a lifecycle event is invalid. It should return @Succeeded@ or @Failed@ .
+--
+--
+_InvalidLifecycleEventHookExecutionStatusException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidLifecycleEventHookExecutionStatusException =
+ _MatchServiceError
+ codeDeploy
+ "InvalidLifecycleEventHookExecutionStatusException"
+
+
-- | The maximum number of alarms for a deployment group (10) was exceeded.
--
--
@@ -828,6 +924,14 @@ _AlarmsLimitExceededException =
_MatchServiceError codeDeploy "AlarmsLimitExceededException"
+-- | The API used does not support the deployment.
+--
+--
+_OperationNotSupportedException :: AsError a => Getting (First ServiceError) a ServiceError
+_OperationNotSupportedException =
+ _MatchServiceError codeDeploy "OperationNotSupportedException"
+
+
-- | The specified tag filter was specified in an invalid format.
--
--
@@ -844,6 +948,26 @@ _InvalidTriggerConfigException =
_MatchServiceError codeDeploy "InvalidTriggerConfigException"
+-- | The IgnoreApplicationStopFailures value is invalid. For AWS Lambda deployments, @false@ is expected. For EC2/On-premises deployments, @true@ or @false@ is expected.
+--
+--
+_InvalidIgnoreApplicationStopFailuresValueException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidIgnoreApplicationStopFailuresValueException =
+ _MatchServiceError
+ codeDeploy
+ "InvalidIgnoreApplicationStopFailuresValueException"
+
+
+-- | The UpdateOutdatedInstancesOnly value is invalid. For AWS Lambda deployments, @false@ is expected. For EC2/On-premises deployments, @true@ or @false@ is expected.
+--
+--
+_InvalidUpdateOutdatedInstancesOnlyValueException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidUpdateOutdatedInstancesOnlyValueException =
+ _MatchServiceError
+ codeDeploy
+ "InvalidUpdateOutdatedInstancesOnlyValueException"
+
+
-- | A tag was not specified.
--
--
@@ -922,6 +1046,13 @@ _DeploymentGroupDoesNotExistException =
_MatchServiceError codeDeploy "DeploymentGroupDoesNotExistException"
+-- | An API function was called too frequently.
+--
+--
+_ThrottlingException :: AsError a => Getting (First ServiceError) a ServiceError
+_ThrottlingException = _MatchServiceError codeDeploy "ThrottlingException"
+
+
-- | The deployment configuration name was specified in an invalid format.
--
--
@@ -946,6 +1077,14 @@ _DeploymentIdRequiredException =
_MatchServiceError codeDeploy "DeploymentIdRequiredException"
+-- |
+--
+--
+_InvalidInstanceIdException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidInstanceIdException =
+ _MatchServiceError codeDeploy "InvalidInstanceIdException"
+
+
-- | The deployment does not have a status of Ready and can't continue yet.
--
--
@@ -1050,6 +1189,13 @@ _DeploymentConfigInUseException =
_MatchServiceError codeDeploy "DeploymentConfigInUseException"
+-- | The specified input was specified in an invalid format.
+--
+--
+_InvalidInputException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidInputException = _MatchServiceError codeDeploy "InvalidInputException"
+
+
-- | The tag was specified in an invalid format.
--
--
@@ -1169,6 +1315,14 @@ _InvalidOperationException =
_MatchServiceError codeDeploy "InvalidOperationException"
+-- | The call is missing a required GitHub account connection name.
+--
+--
+_GitHubAccountTokenNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
+_GitHubAccountTokenNameRequiredException =
+ _MatchServiceError codeDeploy "GitHubAccountTokenNameRequiredException"
+
+
-- | An instance type was specified for an in-place deployment. Instance types are supported for blue/green deployments only.
--
--
@@ -1185,6 +1339,22 @@ _IAMARNRequiredException =
_MatchServiceError codeDeploy "IamArnRequiredException"
+-- | The format of the specified GitHub account connection name is invalid.
+--
+--
+_InvalidGitHubAccountTokenNameException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidGitHubAccountTokenNameException =
+ _MatchServiceError codeDeploy "InvalidGitHubAccountTokenNameException"
+
+
+-- | An attempt to return the status of an already completed lifecycle event occurred.
+--
+--
+_LifecycleEventAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError
+_LifecycleEventAlreadyCompletedException =
+ _MatchServiceError codeDeploy "LifecycleEventAlreadyCompletedException"
+
+
-- | The specified key prefix filter was specified in an invalid format.
--
--
diff --git a/gen/Network/AWS/CodeDeploy/Types/Product.hs b/gen/Network/AWS/CodeDeploy/Types/Product.hs
index 980e4ad..19ff6d5 100644
--- a/gen/Network/AWS/CodeDeploy/Types/Product.hs
+++ b/gen/Network/AWS/CodeDeploy/Types/Product.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types.Product
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -43,7 +43,7 @@ alarm = Alarm' {_aName = Nothing}
-- | The name of the alarm. Maximum length is 255 characters. Each alarm name can be used only once in a list of alarms.
aName :: Lens' Alarm (Maybe Text)
-aName = lens _aName (\ s a -> s{_aName = a});
+aName = lens _aName (\ s a -> s{_aName = a})
instance FromJSON Alarm where
parseJSON
@@ -83,23 +83,23 @@ alarmConfiguration
:: AlarmConfiguration
alarmConfiguration =
AlarmConfiguration'
- { _acIgnorePollAlarmFailure = Nothing
- , _acEnabled = Nothing
- , _acAlarms = Nothing
- }
+ { _acIgnorePollAlarmFailure = Nothing
+ , _acEnabled = Nothing
+ , _acAlarms = Nothing
+ }
-- | Indicates whether a deployment should continue if information about the current state of alarms cannot be retrieved from Amazon CloudWatch. The default value is false. * true: The deployment will proceed even if alarm status information can't be retrieved from Amazon CloudWatch. * false: The deployment will stop if alarm status information can't be retrieved from Amazon CloudWatch.
acIgnorePollAlarmFailure :: Lens' AlarmConfiguration (Maybe Bool)
-acIgnorePollAlarmFailure = lens _acIgnorePollAlarmFailure (\ s a -> s{_acIgnorePollAlarmFailure = a});
+acIgnorePollAlarmFailure = lens _acIgnorePollAlarmFailure (\ s a -> s{_acIgnorePollAlarmFailure = a})
-- | Indicates whether the alarm configuration is enabled.
acEnabled :: Lens' AlarmConfiguration (Maybe Bool)
-acEnabled = lens _acEnabled (\ s a -> s{_acEnabled = a});
+acEnabled = lens _acEnabled (\ s a -> s{_acEnabled = a})
-- | A list of alarms configured for the deployment group. A maximum of 10 alarms can be added to a deployment group.
acAlarms :: Lens' AlarmConfiguration [Alarm]
-acAlarms = lens _acAlarms (\ s a -> s{_acAlarms = a}) . _Default . _Coerce;
+acAlarms = lens _acAlarms (\ s a -> s{_acAlarms = a}) . _Default . _Coerce
instance FromJSON AlarmConfiguration where
parseJSON
@@ -130,6 +130,7 @@ instance ToJSON AlarmConfiguration where
-- /See:/ 'applicationInfo' smart constructor.
data ApplicationInfo = ApplicationInfo'
{ _aiLinkedToGitHub :: !(Maybe Bool)
+ , _aiComputePlatform :: !(Maybe ComputePlatform)
, _aiApplicationId :: !(Maybe Text)
, _aiApplicationName :: !(Maybe Text)
, _aiGitHubAccountName :: !(Maybe Text)
@@ -143,6 +144,8 @@ data ApplicationInfo = ApplicationInfo'
--
-- * 'aiLinkedToGitHub' - True if the user has authenticated with GitHub for the specified application; otherwise, false.
--
+-- * 'aiComputePlatform' - The destination platform type for deployment of the application (@Lambda@ or @Server@ ).
+--
-- * 'aiApplicationId' - The application ID.
--
-- * 'aiApplicationName' - The application name.
@@ -154,40 +157,47 @@ applicationInfo
:: ApplicationInfo
applicationInfo =
ApplicationInfo'
- { _aiLinkedToGitHub = Nothing
- , _aiApplicationId = Nothing
- , _aiApplicationName = Nothing
- , _aiGitHubAccountName = Nothing
- , _aiCreateTime = Nothing
- }
+ { _aiLinkedToGitHub = Nothing
+ , _aiComputePlatform = Nothing
+ , _aiApplicationId = Nothing
+ , _aiApplicationName = Nothing
+ , _aiGitHubAccountName = Nothing
+ , _aiCreateTime = Nothing
+ }
-- | True if the user has authenticated with GitHub for the specified application; otherwise, false.
aiLinkedToGitHub :: Lens' ApplicationInfo (Maybe Bool)
-aiLinkedToGitHub = lens _aiLinkedToGitHub (\ s a -> s{_aiLinkedToGitHub = a});
+aiLinkedToGitHub = lens _aiLinkedToGitHub (\ s a -> s{_aiLinkedToGitHub = a})
+
+-- | The destination platform type for deployment of the application (@Lambda@ or @Server@ ).
+aiComputePlatform :: Lens' ApplicationInfo (Maybe ComputePlatform)
+aiComputePlatform = lens _aiComputePlatform (\ s a -> s{_aiComputePlatform = a})
-- | The application ID.
aiApplicationId :: Lens' ApplicationInfo (Maybe Text)
-aiApplicationId = lens _aiApplicationId (\ s a -> s{_aiApplicationId = a});
+aiApplicationId = lens _aiApplicationId (\ s a -> s{_aiApplicationId = a})
-- | The application name.
aiApplicationName :: Lens' ApplicationInfo (Maybe Text)
-aiApplicationName = lens _aiApplicationName (\ s a -> s{_aiApplicationName = a});
+aiApplicationName = lens _aiApplicationName (\ s a -> s{_aiApplicationName = a})
-- | The name for a connection to a GitHub account.
aiGitHubAccountName :: Lens' ApplicationInfo (Maybe Text)
-aiGitHubAccountName = lens _aiGitHubAccountName (\ s a -> s{_aiGitHubAccountName = a});
+aiGitHubAccountName = lens _aiGitHubAccountName (\ s a -> s{_aiGitHubAccountName = a})
-- | The time at which the application was created.
aiCreateTime :: Lens' ApplicationInfo (Maybe UTCTime)
-aiCreateTime = lens _aiCreateTime (\ s a -> s{_aiCreateTime = a}) . mapping _Time;
+aiCreateTime = lens _aiCreateTime (\ s a -> s{_aiCreateTime = a}) . mapping _Time
instance FromJSON ApplicationInfo where
parseJSON
= withObject "ApplicationInfo"
(\ x ->
ApplicationInfo' <$>
- (x .:? "linkedToGitHub") <*> (x .:? "applicationId")
+ (x .:? "linkedToGitHub") <*>
+ (x .:? "computePlatform")
+ <*> (x .:? "applicationId")
<*> (x .:? "applicationName")
<*> (x .:? "gitHubAccountName")
<*> (x .:? "createTime"))
@@ -222,11 +232,11 @@ autoRollbackConfiguration =
-- | Indicates whether a defined automatic rollback configuration is currently enabled.
arcEnabled :: Lens' AutoRollbackConfiguration (Maybe Bool)
-arcEnabled = lens _arcEnabled (\ s a -> s{_arcEnabled = a});
+arcEnabled = lens _arcEnabled (\ s a -> s{_arcEnabled = a})
-- | The event type or types that trigger a rollback.
arcEvents :: Lens' AutoRollbackConfiguration [AutoRollbackEvent]
-arcEvents = lens _arcEvents (\ s a -> s{_arcEvents = a}) . _Default . _Coerce;
+arcEvents = lens _arcEvents (\ s a -> s{_arcEvents = a}) . _Default . _Coerce
instance FromJSON AutoRollbackConfiguration where
parseJSON
@@ -271,11 +281,11 @@ autoScalingGroup = AutoScalingGroup' {_asgHook = Nothing, _asgName = Nothing}
-- | An Auto Scaling lifecycle event hook name.
asgHook :: Lens' AutoScalingGroup (Maybe Text)
-asgHook = lens _asgHook (\ s a -> s{_asgHook = a});
+asgHook = lens _asgHook (\ s a -> s{_asgHook = a})
-- | The Auto Scaling group name.
asgName :: Lens' AutoScalingGroup (Maybe Text)
-asgName = lens _asgName (\ s a -> s{_asgName = a});
+asgName = lens _asgName (\ s a -> s{_asgName = a})
instance FromJSON AutoScalingGroup where
parseJSON
@@ -313,23 +323,23 @@ blueGreenDeploymentConfiguration
:: BlueGreenDeploymentConfiguration
blueGreenDeploymentConfiguration =
BlueGreenDeploymentConfiguration'
- { _bgdcDeploymentReadyOption = Nothing
- , _bgdcGreenFleetProvisioningOption = Nothing
- , _bgdcTerminateBlueInstancesOnDeploymentSuccess = Nothing
- }
+ { _bgdcDeploymentReadyOption = Nothing
+ , _bgdcGreenFleetProvisioningOption = Nothing
+ , _bgdcTerminateBlueInstancesOnDeploymentSuccess = Nothing
+ }
-- | Information about the action to take when newly provisioned instances are ready to receive traffic in a blue/green deployment.
bgdcDeploymentReadyOption :: Lens' BlueGreenDeploymentConfiguration (Maybe DeploymentReadyOption)
-bgdcDeploymentReadyOption = lens _bgdcDeploymentReadyOption (\ s a -> s{_bgdcDeploymentReadyOption = a});
+bgdcDeploymentReadyOption = lens _bgdcDeploymentReadyOption (\ s a -> s{_bgdcDeploymentReadyOption = a})
-- | Information about how instances are provisioned for a replacement environment in a blue/green deployment.
bgdcGreenFleetProvisioningOption :: Lens' BlueGreenDeploymentConfiguration (Maybe GreenFleetProvisioningOption)
-bgdcGreenFleetProvisioningOption = lens _bgdcGreenFleetProvisioningOption (\ s a -> s{_bgdcGreenFleetProvisioningOption = a});
+bgdcGreenFleetProvisioningOption = lens _bgdcGreenFleetProvisioningOption (\ s a -> s{_bgdcGreenFleetProvisioningOption = a})
-- | Information about whether to terminate instances in the original fleet during a blue/green deployment.
bgdcTerminateBlueInstancesOnDeploymentSuccess :: Lens' BlueGreenDeploymentConfiguration (Maybe BlueInstanceTerminationOption)
-bgdcTerminateBlueInstancesOnDeploymentSuccess = lens _bgdcTerminateBlueInstancesOnDeploymentSuccess (\ s a -> s{_bgdcTerminateBlueInstancesOnDeploymentSuccess = a});
+bgdcTerminateBlueInstancesOnDeploymentSuccess = lens _bgdcTerminateBlueInstancesOnDeploymentSuccess (\ s a -> s{_bgdcTerminateBlueInstancesOnDeploymentSuccess = a})
instance FromJSON BlueGreenDeploymentConfiguration
where
@@ -382,16 +392,16 @@ blueInstanceTerminationOption
:: BlueInstanceTerminationOption
blueInstanceTerminationOption =
BlueInstanceTerminationOption'
- {_bitoAction = Nothing, _bitoTerminationWaitTimeInMinutes = Nothing}
+ {_bitoAction = Nothing, _bitoTerminationWaitTimeInMinutes = Nothing}
-- | The action to take on instances in the original environment after a successful blue/green deployment. * TERMINATE: Instances are terminated after a specified wait time. * KEEP_ALIVE: Instances are left running after they are deregistered from the load balancer and removed from the deployment group.
bitoAction :: Lens' BlueInstanceTerminationOption (Maybe InstanceAction)
-bitoAction = lens _bitoAction (\ s a -> s{_bitoAction = a});
+bitoAction = lens _bitoAction (\ s a -> s{_bitoAction = a})
-- | The number of minutes to wait after a successful blue/green deployment before terminating instances from the original environment.
bitoTerminationWaitTimeInMinutes :: Lens' BlueInstanceTerminationOption (Maybe Int)
-bitoTerminationWaitTimeInMinutes = lens _bitoTerminationWaitTimeInMinutes (\ s a -> s{_bitoTerminationWaitTimeInMinutes = a});
+bitoTerminationWaitTimeInMinutes = lens _bitoTerminationWaitTimeInMinutes (\ s a -> s{_bitoTerminationWaitTimeInMinutes = a})
instance FromJSON BlueInstanceTerminationOption where
parseJSON
@@ -420,7 +430,9 @@ instance ToJSON BlueInstanceTerminationOption where
-- /See:/ 'deploymentConfigInfo' smart constructor.
data DeploymentConfigInfo = DeploymentConfigInfo'
{ _dciDeploymentConfigName :: !(Maybe Text)
+ , _dciComputePlatform :: !(Maybe ComputePlatform)
, _dciMinimumHealthyHosts :: !(Maybe MinimumHealthyHosts)
+ , _dciTrafficRoutingConfig :: !(Maybe TrafficRoutingConfig)
, _dciDeploymentConfigId :: !(Maybe Text)
, _dciCreateTime :: !(Maybe POSIX)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -432,8 +444,12 @@ data DeploymentConfigInfo = DeploymentConfigInfo'
--
-- * 'dciDeploymentConfigName' - The deployment configuration name.
--
+-- * 'dciComputePlatform' - The destination platform type for the deployment (@Lambda@ or @Server@ ).
+--
-- * 'dciMinimumHealthyHosts' - Information about the number or percentage of minimum healthy instance.
--
+-- * 'dciTrafficRoutingConfig' - The configuration specifying how the deployment traffic will be routed. Only deployments with a Lambda compute platform can specify this.
+--
-- * 'dciDeploymentConfigId' - The deployment configuration ID.
--
-- * 'dciCreateTime' - The time at which the deployment configuration was created.
@@ -441,28 +457,38 @@ deploymentConfigInfo
:: DeploymentConfigInfo
deploymentConfigInfo =
DeploymentConfigInfo'
- { _dciDeploymentConfigName = Nothing
- , _dciMinimumHealthyHosts = Nothing
- , _dciDeploymentConfigId = Nothing
- , _dciCreateTime = Nothing
- }
+ { _dciDeploymentConfigName = Nothing
+ , _dciComputePlatform = Nothing
+ , _dciMinimumHealthyHosts = Nothing
+ , _dciTrafficRoutingConfig = Nothing
+ , _dciDeploymentConfigId = Nothing
+ , _dciCreateTime = Nothing
+ }
-- | The deployment configuration name.
dciDeploymentConfigName :: Lens' DeploymentConfigInfo (Maybe Text)
-dciDeploymentConfigName = lens _dciDeploymentConfigName (\ s a -> s{_dciDeploymentConfigName = a});
+dciDeploymentConfigName = lens _dciDeploymentConfigName (\ s a -> s{_dciDeploymentConfigName = a})
+
+-- | The destination platform type for the deployment (@Lambda@ or @Server@ ).
+dciComputePlatform :: Lens' DeploymentConfigInfo (Maybe ComputePlatform)
+dciComputePlatform = lens _dciComputePlatform (\ s a -> s{_dciComputePlatform = a})
-- | Information about the number or percentage of minimum healthy instance.
dciMinimumHealthyHosts :: Lens' DeploymentConfigInfo (Maybe MinimumHealthyHosts)
-dciMinimumHealthyHosts = lens _dciMinimumHealthyHosts (\ s a -> s{_dciMinimumHealthyHosts = a});
+dciMinimumHealthyHosts = lens _dciMinimumHealthyHosts (\ s a -> s{_dciMinimumHealthyHosts = a})
+
+-- | The configuration specifying how the deployment traffic will be routed. Only deployments with a Lambda compute platform can specify this.
+dciTrafficRoutingConfig :: Lens' DeploymentConfigInfo (Maybe TrafficRoutingConfig)
+dciTrafficRoutingConfig = lens _dciTrafficRoutingConfig (\ s a -> s{_dciTrafficRoutingConfig = a})
-- | The deployment configuration ID.
dciDeploymentConfigId :: Lens' DeploymentConfigInfo (Maybe Text)
-dciDeploymentConfigId = lens _dciDeploymentConfigId (\ s a -> s{_dciDeploymentConfigId = a});
+dciDeploymentConfigId = lens _dciDeploymentConfigId (\ s a -> s{_dciDeploymentConfigId = a})
-- | The time at which the deployment configuration was created.
dciCreateTime :: Lens' DeploymentConfigInfo (Maybe UTCTime)
-dciCreateTime = lens _dciCreateTime (\ s a -> s{_dciCreateTime = a}) . mapping _Time;
+dciCreateTime = lens _dciCreateTime (\ s a -> s{_dciCreateTime = a}) . mapping _Time
instance FromJSON DeploymentConfigInfo where
parseJSON
@@ -470,7 +496,9 @@ instance FromJSON DeploymentConfigInfo where
(\ x ->
DeploymentConfigInfo' <$>
(x .:? "deploymentConfigName") <*>
- (x .:? "minimumHealthyHosts")
+ (x .:? "computePlatform")
+ <*> (x .:? "minimumHealthyHosts")
+ <*> (x .:? "trafficRoutingConfig")
<*> (x .:? "deploymentConfigId")
<*> (x .:? "createTime"))
@@ -489,6 +517,7 @@ data DeploymentGroupInfo = DeploymentGroupInfo'
, _dgiDeploymentConfigName :: !(Maybe Text)
, _dgiLastAttemptedDeployment :: !(Maybe LastDeploymentInfo)
, _dgiOnPremisesTagSet :: !(Maybe OnPremisesTagSet)
+ , _dgiComputePlatform :: !(Maybe ComputePlatform)
, _dgiTargetRevision :: !(Maybe RevisionLocation)
, _dgiEc2TagFilters :: !(Maybe [EC2TagFilter])
, _dgiBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
@@ -520,6 +549,8 @@ data DeploymentGroupInfo = DeploymentGroupInfo'
--
-- * 'dgiOnPremisesTagSet' - Information about groups of tags applied to an on-premises instance. The deployment group includes only on-premises instances identified by all the tag groups. Cannot be used in the same call as onPremisesInstanceTagFilters.
--
+-- * 'dgiComputePlatform' - The destination platform type for the deployment group (@Lambda@ or @Server@ ).
+--
-- * 'dgiTargetRevision' - Information about the deployment group's target revision, including type and location.
--
-- * 'dgiEc2TagFilters' - The Amazon EC2 tags on which to filter. The deployment group includes EC2 instances with any of the specified tags.
@@ -551,103 +582,108 @@ deploymentGroupInfo
:: DeploymentGroupInfo
deploymentGroupInfo =
DeploymentGroupInfo'
- { _dgiServiceRoleARN = Nothing
- , _dgiEc2TagSet = Nothing
- , _dgiDeploymentConfigName = Nothing
- , _dgiLastAttemptedDeployment = Nothing
- , _dgiOnPremisesTagSet = Nothing
- , _dgiTargetRevision = Nothing
- , _dgiEc2TagFilters = Nothing
- , _dgiBlueGreenDeploymentConfiguration = Nothing
- , _dgiLoadBalancerInfo = Nothing
- , _dgiOnPremisesInstanceTagFilters = Nothing
- , _dgiLastSuccessfulDeployment = Nothing
- , _dgiApplicationName = Nothing
- , _dgiAlarmConfiguration = Nothing
- , _dgiTriggerConfigurations = Nothing
- , _dgiDeploymentGroupId = Nothing
- , _dgiAutoScalingGroups = Nothing
- , _dgiDeploymentStyle = Nothing
- , _dgiAutoRollbackConfiguration = Nothing
- , _dgiDeploymentGroupName = Nothing
- }
+ { _dgiServiceRoleARN = Nothing
+ , _dgiEc2TagSet = Nothing
+ , _dgiDeploymentConfigName = Nothing
+ , _dgiLastAttemptedDeployment = Nothing
+ , _dgiOnPremisesTagSet = Nothing
+ , _dgiComputePlatform = Nothing
+ , _dgiTargetRevision = Nothing
+ , _dgiEc2TagFilters = Nothing
+ , _dgiBlueGreenDeploymentConfiguration = Nothing
+ , _dgiLoadBalancerInfo = Nothing
+ , _dgiOnPremisesInstanceTagFilters = Nothing
+ , _dgiLastSuccessfulDeployment = Nothing
+ , _dgiApplicationName = Nothing
+ , _dgiAlarmConfiguration = Nothing
+ , _dgiTriggerConfigurations = Nothing
+ , _dgiDeploymentGroupId = Nothing
+ , _dgiAutoScalingGroups = Nothing
+ , _dgiDeploymentStyle = Nothing
+ , _dgiAutoRollbackConfiguration = Nothing
+ , _dgiDeploymentGroupName = Nothing
+ }
-- | A service role ARN.
dgiServiceRoleARN :: Lens' DeploymentGroupInfo (Maybe Text)
-dgiServiceRoleARN = lens _dgiServiceRoleARN (\ s a -> s{_dgiServiceRoleARN = a});
+dgiServiceRoleARN = lens _dgiServiceRoleARN (\ s a -> s{_dgiServiceRoleARN = a})
-- | Information about groups of tags applied to an EC2 instance. The deployment group includes only EC2 instances identified by all the tag groups. Cannot be used in the same call as ec2TagFilters.
dgiEc2TagSet :: Lens' DeploymentGroupInfo (Maybe EC2TagSet)
-dgiEc2TagSet = lens _dgiEc2TagSet (\ s a -> s{_dgiEc2TagSet = a});
+dgiEc2TagSet = lens _dgiEc2TagSet (\ s a -> s{_dgiEc2TagSet = a})
-- | The deployment configuration name.
dgiDeploymentConfigName :: Lens' DeploymentGroupInfo (Maybe Text)
-dgiDeploymentConfigName = lens _dgiDeploymentConfigName (\ s a -> s{_dgiDeploymentConfigName = a});
+dgiDeploymentConfigName = lens _dgiDeploymentConfigName (\ s a -> s{_dgiDeploymentConfigName = a})
-- | Information about the most recent attempted deployment to the deployment group.
dgiLastAttemptedDeployment :: Lens' DeploymentGroupInfo (Maybe LastDeploymentInfo)
-dgiLastAttemptedDeployment = lens _dgiLastAttemptedDeployment (\ s a -> s{_dgiLastAttemptedDeployment = a});
+dgiLastAttemptedDeployment = lens _dgiLastAttemptedDeployment (\ s a -> s{_dgiLastAttemptedDeployment = a})
-- | Information about groups of tags applied to an on-premises instance. The deployment group includes only on-premises instances identified by all the tag groups. Cannot be used in the same call as onPremisesInstanceTagFilters.
dgiOnPremisesTagSet :: Lens' DeploymentGroupInfo (Maybe OnPremisesTagSet)
-dgiOnPremisesTagSet = lens _dgiOnPremisesTagSet (\ s a -> s{_dgiOnPremisesTagSet = a});
+dgiOnPremisesTagSet = lens _dgiOnPremisesTagSet (\ s a -> s{_dgiOnPremisesTagSet = a})
+
+-- | The destination platform type for the deployment group (@Lambda@ or @Server@ ).
+dgiComputePlatform :: Lens' DeploymentGroupInfo (Maybe ComputePlatform)
+dgiComputePlatform = lens _dgiComputePlatform (\ s a -> s{_dgiComputePlatform = a})
-- | Information about the deployment group's target revision, including type and location.
dgiTargetRevision :: Lens' DeploymentGroupInfo (Maybe RevisionLocation)
-dgiTargetRevision = lens _dgiTargetRevision (\ s a -> s{_dgiTargetRevision = a});
+dgiTargetRevision = lens _dgiTargetRevision (\ s a -> s{_dgiTargetRevision = a})
-- | The Amazon EC2 tags on which to filter. The deployment group includes EC2 instances with any of the specified tags.
dgiEc2TagFilters :: Lens' DeploymentGroupInfo [EC2TagFilter]
-dgiEc2TagFilters = lens _dgiEc2TagFilters (\ s a -> s{_dgiEc2TagFilters = a}) . _Default . _Coerce;
+dgiEc2TagFilters = lens _dgiEc2TagFilters (\ s a -> s{_dgiEc2TagFilters = a}) . _Default . _Coerce
-- | Information about blue/green deployment options for a deployment group.
dgiBlueGreenDeploymentConfiguration :: Lens' DeploymentGroupInfo (Maybe BlueGreenDeploymentConfiguration)
-dgiBlueGreenDeploymentConfiguration = lens _dgiBlueGreenDeploymentConfiguration (\ s a -> s{_dgiBlueGreenDeploymentConfiguration = a});
+dgiBlueGreenDeploymentConfiguration = lens _dgiBlueGreenDeploymentConfiguration (\ s a -> s{_dgiBlueGreenDeploymentConfiguration = a})
-- | Information about the load balancer to use in a deployment.
dgiLoadBalancerInfo :: Lens' DeploymentGroupInfo (Maybe LoadBalancerInfo)
-dgiLoadBalancerInfo = lens _dgiLoadBalancerInfo (\ s a -> s{_dgiLoadBalancerInfo = a});
+dgiLoadBalancerInfo = lens _dgiLoadBalancerInfo (\ s a -> s{_dgiLoadBalancerInfo = a})
-- | The on-premises instance tags on which to filter. The deployment group includes on-premises instances with any of the specified tags.
dgiOnPremisesInstanceTagFilters :: Lens' DeploymentGroupInfo [TagFilter]
-dgiOnPremisesInstanceTagFilters = lens _dgiOnPremisesInstanceTagFilters (\ s a -> s{_dgiOnPremisesInstanceTagFilters = a}) . _Default . _Coerce;
+dgiOnPremisesInstanceTagFilters = lens _dgiOnPremisesInstanceTagFilters (\ s a -> s{_dgiOnPremisesInstanceTagFilters = a}) . _Default . _Coerce
-- | Information about the most recent successful deployment to the deployment group.
dgiLastSuccessfulDeployment :: Lens' DeploymentGroupInfo (Maybe LastDeploymentInfo)
-dgiLastSuccessfulDeployment = lens _dgiLastSuccessfulDeployment (\ s a -> s{_dgiLastSuccessfulDeployment = a});
+dgiLastSuccessfulDeployment = lens _dgiLastSuccessfulDeployment (\ s a -> s{_dgiLastSuccessfulDeployment = a})
-- | The application name.
dgiApplicationName :: Lens' DeploymentGroupInfo (Maybe Text)
-dgiApplicationName = lens _dgiApplicationName (\ s a -> s{_dgiApplicationName = a});
+dgiApplicationName = lens _dgiApplicationName (\ s a -> s{_dgiApplicationName = a})
-- | A list of alarms associated with the deployment group.
dgiAlarmConfiguration :: Lens' DeploymentGroupInfo (Maybe AlarmConfiguration)
-dgiAlarmConfiguration = lens _dgiAlarmConfiguration (\ s a -> s{_dgiAlarmConfiguration = a});
+dgiAlarmConfiguration = lens _dgiAlarmConfiguration (\ s a -> s{_dgiAlarmConfiguration = a})
-- | Information about triggers associated with the deployment group.
dgiTriggerConfigurations :: Lens' DeploymentGroupInfo [TriggerConfig]
-dgiTriggerConfigurations = lens _dgiTriggerConfigurations (\ s a -> s{_dgiTriggerConfigurations = a}) . _Default . _Coerce;
+dgiTriggerConfigurations = lens _dgiTriggerConfigurations (\ s a -> s{_dgiTriggerConfigurations = a}) . _Default . _Coerce
-- | The deployment group ID.
dgiDeploymentGroupId :: Lens' DeploymentGroupInfo (Maybe Text)
-dgiDeploymentGroupId = lens _dgiDeploymentGroupId (\ s a -> s{_dgiDeploymentGroupId = a});
+dgiDeploymentGroupId = lens _dgiDeploymentGroupId (\ s a -> s{_dgiDeploymentGroupId = a})
-- | A list of associated Auto Scaling groups.
dgiAutoScalingGroups :: Lens' DeploymentGroupInfo [AutoScalingGroup]
-dgiAutoScalingGroups = lens _dgiAutoScalingGroups (\ s a -> s{_dgiAutoScalingGroups = a}) . _Default . _Coerce;
+dgiAutoScalingGroups = lens _dgiAutoScalingGroups (\ s a -> s{_dgiAutoScalingGroups = a}) . _Default . _Coerce
-- | Information about the type of deployment, either in-place or blue/green, you want to run and whether to route deployment traffic behind a load balancer.
dgiDeploymentStyle :: Lens' DeploymentGroupInfo (Maybe DeploymentStyle)
-dgiDeploymentStyle = lens _dgiDeploymentStyle (\ s a -> s{_dgiDeploymentStyle = a});
+dgiDeploymentStyle = lens _dgiDeploymentStyle (\ s a -> s{_dgiDeploymentStyle = a})
-- | Information about the automatic rollback configuration associated with the deployment group.
dgiAutoRollbackConfiguration :: Lens' DeploymentGroupInfo (Maybe AutoRollbackConfiguration)
-dgiAutoRollbackConfiguration = lens _dgiAutoRollbackConfiguration (\ s a -> s{_dgiAutoRollbackConfiguration = a});
+dgiAutoRollbackConfiguration = lens _dgiAutoRollbackConfiguration (\ s a -> s{_dgiAutoRollbackConfiguration = a})
-- | The deployment group name.
dgiDeploymentGroupName :: Lens' DeploymentGroupInfo (Maybe Text)
-dgiDeploymentGroupName = lens _dgiDeploymentGroupName (\ s a -> s{_dgiDeploymentGroupName = a});
+dgiDeploymentGroupName = lens _dgiDeploymentGroupName (\ s a -> s{_dgiDeploymentGroupName = a})
instance FromJSON DeploymentGroupInfo where
parseJSON
@@ -658,6 +694,7 @@ instance FromJSON DeploymentGroupInfo where
(x .:? "deploymentConfigName")
<*> (x .:? "lastAttemptedDeployment")
<*> (x .:? "onPremisesTagSet")
+ <*> (x .:? "computePlatform")
<*> (x .:? "targetRevision")
<*> (x .:? "ec2TagFilters" .!= mempty)
<*> (x .:? "blueGreenDeploymentConfiguration")
@@ -687,8 +724,10 @@ data DeploymentInfo = DeploymentInfo'
, _diStatus :: !(Maybe DeploymentStatus)
, _diDeploymentId :: !(Maybe Text)
, _diDeploymentConfigName :: !(Maybe Text)
+ , _diComputePlatform :: !(Maybe ComputePlatform)
, _diPreviousRevision :: !(Maybe RevisionLocation)
, _diInstanceTerminationWaitTimeStarted :: !(Maybe Bool)
+ , _diDeploymentStatusMessages :: !(Maybe [Text])
, _diStartTime :: !(Maybe POSIX)
, _diCompleteTime :: !(Maybe POSIX)
, _diBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
@@ -723,10 +762,14 @@ data DeploymentInfo = DeploymentInfo'
--
-- * 'diDeploymentConfigName' - The deployment configuration name.
--
+-- * 'diComputePlatform' - The destination platform type for the deployment (@Lambda@ or @Server@ ).
+--
-- * 'diPreviousRevision' - Information about the application revision that was deployed to the deployment group before the most recent successful deployment.
--
-- * 'diInstanceTerminationWaitTimeStarted' - Indicates whether the wait period set for the termination of instances in the original environment has started. Status is 'false' if the KEEP_ALIVE option is specified; otherwise, 'true' as soon as the termination wait period starts.
--
+-- * 'diDeploymentStatusMessages' - Messages that contain information about the status of a deployment.
+--
-- * 'diStartTime' - A timestamp indicating when the deployment was deployed to the deployment group. In some cases, the reported value of the start time may be later than the complete time. This is due to differences in the clock settings of back-end servers that participate in the deployment process.
--
-- * 'diCompleteTime' - A timestamp indicating when the deployment was complete.
@@ -768,133 +811,143 @@ deploymentInfo
:: DeploymentInfo
deploymentInfo =
DeploymentInfo'
- { _diCreator = Nothing
- , _diStatus = Nothing
- , _diDeploymentId = Nothing
- , _diDeploymentConfigName = Nothing
- , _diPreviousRevision = Nothing
- , _diInstanceTerminationWaitTimeStarted = Nothing
- , _diStartTime = Nothing
- , _diCompleteTime = Nothing
- , _diBlueGreenDeploymentConfiguration = Nothing
- , _diErrorInformation = Nothing
- , _diLoadBalancerInfo = Nothing
- , _diAdditionalDeploymentStatusInfo = Nothing
- , _diDeploymentOverview = Nothing
- , _diFileExistsBehavior = Nothing
- , _diApplicationName = Nothing
- , _diRollbackInfo = Nothing
- , _diTargetInstances = Nothing
- , _diRevision = Nothing
- , _diDescription = Nothing
- , _diDeploymentStyle = Nothing
- , _diCreateTime = Nothing
- , _diAutoRollbackConfiguration = Nothing
- , _diUpdateOutdatedInstancesOnly = Nothing
- , _diDeploymentGroupName = Nothing
- , _diIgnoreApplicationStopFailures = Nothing
- }
+ { _diCreator = Nothing
+ , _diStatus = Nothing
+ , _diDeploymentId = Nothing
+ , _diDeploymentConfigName = Nothing
+ , _diComputePlatform = Nothing
+ , _diPreviousRevision = Nothing
+ , _diInstanceTerminationWaitTimeStarted = Nothing
+ , _diDeploymentStatusMessages = Nothing
+ , _diStartTime = Nothing
+ , _diCompleteTime = Nothing
+ , _diBlueGreenDeploymentConfiguration = Nothing
+ , _diErrorInformation = Nothing
+ , _diLoadBalancerInfo = Nothing
+ , _diAdditionalDeploymentStatusInfo = Nothing
+ , _diDeploymentOverview = Nothing
+ , _diFileExistsBehavior = Nothing
+ , _diApplicationName = Nothing
+ , _diRollbackInfo = Nothing
+ , _diTargetInstances = Nothing
+ , _diRevision = Nothing
+ , _diDescription = Nothing
+ , _diDeploymentStyle = Nothing
+ , _diCreateTime = Nothing
+ , _diAutoRollbackConfiguration = Nothing
+ , _diUpdateOutdatedInstancesOnly = Nothing
+ , _diDeploymentGroupName = Nothing
+ , _diIgnoreApplicationStopFailures = Nothing
+ }
-- | The means by which the deployment was created: * user: A user created the deployment. * autoscaling: Auto Scaling created the deployment. * codeDeployRollback: A rollback process created the deployment.
diCreator :: Lens' DeploymentInfo (Maybe DeploymentCreator)
-diCreator = lens _diCreator (\ s a -> s{_diCreator = a});
+diCreator = lens _diCreator (\ s a -> s{_diCreator = a})
-- | The current state of the deployment as a whole.
diStatus :: Lens' DeploymentInfo (Maybe DeploymentStatus)
-diStatus = lens _diStatus (\ s a -> s{_diStatus = a});
+diStatus = lens _diStatus (\ s a -> s{_diStatus = a})
-- | The deployment ID.
diDeploymentId :: Lens' DeploymentInfo (Maybe Text)
-diDeploymentId = lens _diDeploymentId (\ s a -> s{_diDeploymentId = a});
+diDeploymentId = lens _diDeploymentId (\ s a -> s{_diDeploymentId = a})
-- | The deployment configuration name.
diDeploymentConfigName :: Lens' DeploymentInfo (Maybe Text)
-diDeploymentConfigName = lens _diDeploymentConfigName (\ s a -> s{_diDeploymentConfigName = a});
+diDeploymentConfigName = lens _diDeploymentConfigName (\ s a -> s{_diDeploymentConfigName = a})
+
+-- | The destination platform type for the deployment (@Lambda@ or @Server@ ).
+diComputePlatform :: Lens' DeploymentInfo (Maybe ComputePlatform)
+diComputePlatform = lens _diComputePlatform (\ s a -> s{_diComputePlatform = a})
-- | Information about the application revision that was deployed to the deployment group before the most recent successful deployment.
diPreviousRevision :: Lens' DeploymentInfo (Maybe RevisionLocation)
-diPreviousRevision = lens _diPreviousRevision (\ s a -> s{_diPreviousRevision = a});
+diPreviousRevision = lens _diPreviousRevision (\ s a -> s{_diPreviousRevision = a})
-- | Indicates whether the wait period set for the termination of instances in the original environment has started. Status is 'false' if the KEEP_ALIVE option is specified; otherwise, 'true' as soon as the termination wait period starts.
diInstanceTerminationWaitTimeStarted :: Lens' DeploymentInfo (Maybe Bool)
-diInstanceTerminationWaitTimeStarted = lens _diInstanceTerminationWaitTimeStarted (\ s a -> s{_diInstanceTerminationWaitTimeStarted = a});
+diInstanceTerminationWaitTimeStarted = lens _diInstanceTerminationWaitTimeStarted (\ s a -> s{_diInstanceTerminationWaitTimeStarted = a})
+
+-- | Messages that contain information about the status of a deployment.
+diDeploymentStatusMessages :: Lens' DeploymentInfo [Text]
+diDeploymentStatusMessages = lens _diDeploymentStatusMessages (\ s a -> s{_diDeploymentStatusMessages = a}) . _Default . _Coerce
-- | A timestamp indicating when the deployment was deployed to the deployment group. In some cases, the reported value of the start time may be later than the complete time. This is due to differences in the clock settings of back-end servers that participate in the deployment process.
diStartTime :: Lens' DeploymentInfo (Maybe UTCTime)
-diStartTime = lens _diStartTime (\ s a -> s{_diStartTime = a}) . mapping _Time;
+diStartTime = lens _diStartTime (\ s a -> s{_diStartTime = a}) . mapping _Time
-- | A timestamp indicating when the deployment was complete.
diCompleteTime :: Lens' DeploymentInfo (Maybe UTCTime)
-diCompleteTime = lens _diCompleteTime (\ s a -> s{_diCompleteTime = a}) . mapping _Time;
+diCompleteTime = lens _diCompleteTime (\ s a -> s{_diCompleteTime = a}) . mapping _Time
-- | Information about blue/green deployment options for this deployment.
diBlueGreenDeploymentConfiguration :: Lens' DeploymentInfo (Maybe BlueGreenDeploymentConfiguration)
-diBlueGreenDeploymentConfiguration = lens _diBlueGreenDeploymentConfiguration (\ s a -> s{_diBlueGreenDeploymentConfiguration = a});
+diBlueGreenDeploymentConfiguration = lens _diBlueGreenDeploymentConfiguration (\ s a -> s{_diBlueGreenDeploymentConfiguration = a})
-- | Information about any error associated with this deployment.
diErrorInformation :: Lens' DeploymentInfo (Maybe ErrorInformation)
-diErrorInformation = lens _diErrorInformation (\ s a -> s{_diErrorInformation = a});
+diErrorInformation = lens _diErrorInformation (\ s a -> s{_diErrorInformation = a})
-- | Information about the load balancer used in the deployment.
diLoadBalancerInfo :: Lens' DeploymentInfo (Maybe LoadBalancerInfo)
-diLoadBalancerInfo = lens _diLoadBalancerInfo (\ s a -> s{_diLoadBalancerInfo = a});
+diLoadBalancerInfo = lens _diLoadBalancerInfo (\ s a -> s{_diLoadBalancerInfo = a})
-- | Provides information about the results of a deployment, such as whether instances in the original environment in a blue/green deployment were not terminated.
diAdditionalDeploymentStatusInfo :: Lens' DeploymentInfo (Maybe Text)
-diAdditionalDeploymentStatusInfo = lens _diAdditionalDeploymentStatusInfo (\ s a -> s{_diAdditionalDeploymentStatusInfo = a});
+diAdditionalDeploymentStatusInfo = lens _diAdditionalDeploymentStatusInfo (\ s a -> s{_diAdditionalDeploymentStatusInfo = a})
-- | A summary of the deployment status of the instances in the deployment.
diDeploymentOverview :: Lens' DeploymentInfo (Maybe DeploymentOverview)
-diDeploymentOverview = lens _diDeploymentOverview (\ s a -> s{_diDeploymentOverview = a});
+diDeploymentOverview = lens _diDeploymentOverview (\ s a -> s{_diDeploymentOverview = a})
-- | Information about how AWS CodeDeploy handles files that already exist in a deployment target location but weren't part of the previous successful deployment. * DISALLOW: The deployment fails. This is also the default behavior if no option is specified. * OVERWRITE: The version of the file from the application revision currently being deployed replaces the version already on the instance. * RETAIN: The version of the file already on the instance is kept and used as part of the new deployment.
diFileExistsBehavior :: Lens' DeploymentInfo (Maybe FileExistsBehavior)
-diFileExistsBehavior = lens _diFileExistsBehavior (\ s a -> s{_diFileExistsBehavior = a});
+diFileExistsBehavior = lens _diFileExistsBehavior (\ s a -> s{_diFileExistsBehavior = a})
-- | The application name.
diApplicationName :: Lens' DeploymentInfo (Maybe Text)
-diApplicationName = lens _diApplicationName (\ s a -> s{_diApplicationName = a});
+diApplicationName = lens _diApplicationName (\ s a -> s{_diApplicationName = a})
-- | Information about a deployment rollback.
diRollbackInfo :: Lens' DeploymentInfo (Maybe RollbackInfo)
-diRollbackInfo = lens _diRollbackInfo (\ s a -> s{_diRollbackInfo = a});
+diRollbackInfo = lens _diRollbackInfo (\ s a -> s{_diRollbackInfo = a})
-- | Information about the instances that belong to the replacement environment in a blue/green deployment.
diTargetInstances :: Lens' DeploymentInfo (Maybe TargetInstances)
-diTargetInstances = lens _diTargetInstances (\ s a -> s{_diTargetInstances = a});
+diTargetInstances = lens _diTargetInstances (\ s a -> s{_diTargetInstances = a})
-- | Information about the location of stored application artifacts and the service from which to retrieve them.
diRevision :: Lens' DeploymentInfo (Maybe RevisionLocation)
-diRevision = lens _diRevision (\ s a -> s{_diRevision = a});
+diRevision = lens _diRevision (\ s a -> s{_diRevision = a})
-- | A comment about the deployment.
diDescription :: Lens' DeploymentInfo (Maybe Text)
-diDescription = lens _diDescription (\ s a -> s{_diDescription = a});
+diDescription = lens _diDescription (\ s a -> s{_diDescription = a})
-- | Information about the type of deployment, either in-place or blue/green, you want to run and whether to route deployment traffic behind a load balancer.
diDeploymentStyle :: Lens' DeploymentInfo (Maybe DeploymentStyle)
-diDeploymentStyle = lens _diDeploymentStyle (\ s a -> s{_diDeploymentStyle = a});
+diDeploymentStyle = lens _diDeploymentStyle (\ s a -> s{_diDeploymentStyle = a})
-- | A timestamp indicating when the deployment was created.
diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime)
-diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time;
+diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time
-- | Information about the automatic rollback configuration associated with the deployment.
diAutoRollbackConfiguration :: Lens' DeploymentInfo (Maybe AutoRollbackConfiguration)
-diAutoRollbackConfiguration = lens _diAutoRollbackConfiguration (\ s a -> s{_diAutoRollbackConfiguration = a});
+diAutoRollbackConfiguration = lens _diAutoRollbackConfiguration (\ s a -> s{_diAutoRollbackConfiguration = a})
-- | Indicates whether only instances that are not running the latest application revision are to be deployed to.
diUpdateOutdatedInstancesOnly :: Lens' DeploymentInfo (Maybe Bool)
-diUpdateOutdatedInstancesOnly = lens _diUpdateOutdatedInstancesOnly (\ s a -> s{_diUpdateOutdatedInstancesOnly = a});
+diUpdateOutdatedInstancesOnly = lens _diUpdateOutdatedInstancesOnly (\ s a -> s{_diUpdateOutdatedInstancesOnly = a})
-- | The deployment group name.
diDeploymentGroupName :: Lens' DeploymentInfo (Maybe Text)
-diDeploymentGroupName = lens _diDeploymentGroupName (\ s a -> s{_diDeploymentGroupName = a});
+diDeploymentGroupName = lens _diDeploymentGroupName (\ s a -> s{_diDeploymentGroupName = a})
-- | If true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed.
diIgnoreApplicationStopFailures :: Lens' DeploymentInfo (Maybe Bool)
-diIgnoreApplicationStopFailures = lens _diIgnoreApplicationStopFailures (\ s a -> s{_diIgnoreApplicationStopFailures = a});
+diIgnoreApplicationStopFailures = lens _diIgnoreApplicationStopFailures (\ s a -> s{_diIgnoreApplicationStopFailures = a})
instance FromJSON DeploymentInfo where
parseJSON
@@ -904,8 +957,10 @@ instance FromJSON DeploymentInfo where
(x .:? "creator") <*> (x .:? "status") <*>
(x .:? "deploymentId")
<*> (x .:? "deploymentConfigName")
+ <*> (x .:? "computePlatform")
<*> (x .:? "previousRevision")
<*> (x .:? "instanceTerminationWaitTimeStarted")
+ <*> (x .:? "deploymentStatusMessages" .!= mempty)
<*> (x .:? "startTime")
<*> (x .:? "completeTime")
<*> (x .:? "blueGreenDeploymentConfiguration")
@@ -964,38 +1019,38 @@ deploymentOverview
:: DeploymentOverview
deploymentOverview =
DeploymentOverview'
- { _doPending = Nothing
- , _doSkipped = Nothing
- , _doInProgress = Nothing
- , _doSucceeded = Nothing
- , _doReady = Nothing
- , _doFailed = Nothing
- }
+ { _doPending = Nothing
+ , _doSkipped = Nothing
+ , _doInProgress = Nothing
+ , _doSucceeded = Nothing
+ , _doReady = Nothing
+ , _doFailed = Nothing
+ }
-- | The number of instances in the deployment in a pending state.
doPending :: Lens' DeploymentOverview (Maybe Integer)
-doPending = lens _doPending (\ s a -> s{_doPending = a});
+doPending = lens _doPending (\ s a -> s{_doPending = a})
-- | The number of instances in the deployment in a skipped state.
doSkipped :: Lens' DeploymentOverview (Maybe Integer)
-doSkipped = lens _doSkipped (\ s a -> s{_doSkipped = a});
+doSkipped = lens _doSkipped (\ s a -> s{_doSkipped = a})
-- | The number of instances in which the deployment is in progress.
doInProgress :: Lens' DeploymentOverview (Maybe Integer)
-doInProgress = lens _doInProgress (\ s a -> s{_doInProgress = a});
+doInProgress = lens _doInProgress (\ s a -> s{_doInProgress = a})
-- | The number of instances in the deployment to which revisions have been successfully deployed.
doSucceeded :: Lens' DeploymentOverview (Maybe Integer)
-doSucceeded = lens _doSucceeded (\ s a -> s{_doSucceeded = a});
+doSucceeded = lens _doSucceeded (\ s a -> s{_doSucceeded = a})
-- | The number of instances in a replacement environment ready to receive traffic in a blue/green deployment.
doReady :: Lens' DeploymentOverview (Maybe Integer)
-doReady = lens _doReady (\ s a -> s{_doReady = a});
+doReady = lens _doReady (\ s a -> s{_doReady = a})
-- | The number of instances in the deployment in a failed state.
doFailed :: Lens' DeploymentOverview (Maybe Integer)
-doFailed = lens _doFailed (\ s a -> s{_doFailed = a});
+doFailed = lens _doFailed (\ s a -> s{_doFailed = a})
instance FromJSON DeploymentOverview where
parseJSON
@@ -1027,23 +1082,23 @@ data DeploymentReadyOption = DeploymentReadyOption'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'droActionOnTimeout' - Information about when to reroute traffic from an original environment to a replacement environment in a blue/green deployment. * CONTINUE_DEPLOYMENT: Register new instances with the load balancer immediately after the new application revision is installed on the instances in the replacement environment. * STOP_DEPLOYMENT: Do not register new instances with load balancer unless traffic is rerouted manually. If traffic is not rerouted manually before the end of the specified wait period, the deployment status is changed to Stopped.
+-- * 'droActionOnTimeout' - Information about when to reroute traffic from an original environment to a replacement environment in a blue/green deployment. * CONTINUE_DEPLOYMENT: Register new instances with the load balancer immediately after the new application revision is installed on the instances in the replacement environment. * STOP_DEPLOYMENT: Do not register new instances with a load balancer unless traffic rerouting is started using 'ContinueDeployment' . If traffic rerouting is not started before the end of the specified wait period, the deployment status is changed to Stopped.
--
-- * 'droWaitTimeInMinutes' - The number of minutes to wait before the status of a blue/green deployment changed to Stopped if rerouting is not started manually. Applies only to the STOP_DEPLOYMENT option for actionOnTimeout
deploymentReadyOption
:: DeploymentReadyOption
deploymentReadyOption =
DeploymentReadyOption'
- {_droActionOnTimeout = Nothing, _droWaitTimeInMinutes = Nothing}
+ {_droActionOnTimeout = Nothing, _droWaitTimeInMinutes = Nothing}
--- | Information about when to reroute traffic from an original environment to a replacement environment in a blue/green deployment. * CONTINUE_DEPLOYMENT: Register new instances with the load balancer immediately after the new application revision is installed on the instances in the replacement environment. * STOP_DEPLOYMENT: Do not register new instances with load balancer unless traffic is rerouted manually. If traffic is not rerouted manually before the end of the specified wait period, the deployment status is changed to Stopped.
+-- | Information about when to reroute traffic from an original environment to a replacement environment in a blue/green deployment. * CONTINUE_DEPLOYMENT: Register new instances with the load balancer immediately after the new application revision is installed on the instances in the replacement environment. * STOP_DEPLOYMENT: Do not register new instances with a load balancer unless traffic rerouting is started using 'ContinueDeployment' . If traffic rerouting is not started before the end of the specified wait period, the deployment status is changed to Stopped.
droActionOnTimeout :: Lens' DeploymentReadyOption (Maybe DeploymentReadyAction)
-droActionOnTimeout = lens _droActionOnTimeout (\ s a -> s{_droActionOnTimeout = a});
+droActionOnTimeout = lens _droActionOnTimeout (\ s a -> s{_droActionOnTimeout = a})
-- | The number of minutes to wait before the status of a blue/green deployment changed to Stopped if rerouting is not started manually. Applies only to the STOP_DEPLOYMENT option for actionOnTimeout
droWaitTimeInMinutes :: Lens' DeploymentReadyOption (Maybe Int)
-droWaitTimeInMinutes = lens _droWaitTimeInMinutes (\ s a -> s{_droWaitTimeInMinutes = a});
+droWaitTimeInMinutes = lens _droWaitTimeInMinutes (\ s a -> s{_droWaitTimeInMinutes = a})
instance FromJSON DeploymentReadyOption where
parseJSON
@@ -1090,11 +1145,11 @@ deploymentStyle =
-- | Indicates whether to route deployment traffic behind a load balancer.
dsDeploymentOption :: Lens' DeploymentStyle (Maybe DeploymentOption)
-dsDeploymentOption = lens _dsDeploymentOption (\ s a -> s{_dsDeploymentOption = a});
+dsDeploymentOption = lens _dsDeploymentOption (\ s a -> s{_dsDeploymentOption = a})
-- | Indicates whether to run an in-place deployment or a blue/green deployment.
dsDeploymentType :: Lens' DeploymentStyle (Maybe DeploymentType)
-dsDeploymentType = lens _dsDeploymentType (\ s a -> s{_dsDeploymentType = a});
+dsDeploymentType = lens _dsDeploymentType (\ s a -> s{_dsDeploymentType = a})
instance FromJSON DeploymentStyle where
parseJSON
@@ -1143,28 +1198,28 @@ diagnostics
:: Diagnostics
diagnostics =
Diagnostics'
- { _dLogTail = Nothing
- , _dErrorCode = Nothing
- , _dScriptName = Nothing
- , _dMessage = Nothing
- }
+ { _dLogTail = Nothing
+ , _dErrorCode = Nothing
+ , _dScriptName = Nothing
+ , _dMessage = Nothing
+ }
-- | The last portion of the diagnostic log. If available, AWS CodeDeploy returns up to the last 4 KB of the diagnostic log.
dLogTail :: Lens' Diagnostics (Maybe Text)
-dLogTail = lens _dLogTail (\ s a -> s{_dLogTail = a});
+dLogTail = lens _dLogTail (\ s a -> s{_dLogTail = a})
-- | The associated error code: * Success: The specified script ran. * ScriptMissing: The specified script was not found in the specified location. * ScriptNotExecutable: The specified script is not a recognized executable file type. * ScriptTimedOut: The specified script did not finish running in the specified time period. * ScriptFailed: The specified script failed to run as expected. * UnknownError: The specified script did not run for an unknown reason.
dErrorCode :: Lens' Diagnostics (Maybe LifecycleErrorCode)
-dErrorCode = lens _dErrorCode (\ s a -> s{_dErrorCode = a});
+dErrorCode = lens _dErrorCode (\ s a -> s{_dErrorCode = a})
-- | The name of the script.
dScriptName :: Lens' Diagnostics (Maybe Text)
-dScriptName = lens _dScriptName (\ s a -> s{_dScriptName = a});
+dScriptName = lens _dScriptName (\ s a -> s{_dScriptName = a})
-- | The message associated with the error.
dMessage :: Lens' Diagnostics (Maybe Text)
-dMessage = lens _dMessage (\ s a -> s{_dMessage = a});
+dMessage = lens _dMessage (\ s a -> s{_dMessage = a})
instance FromJSON Diagnostics where
parseJSON
@@ -1208,15 +1263,15 @@ ec2TagFilter =
-- | The tag filter value.
etfValue :: Lens' EC2TagFilter (Maybe Text)
-etfValue = lens _etfValue (\ s a -> s{_etfValue = a});
+etfValue = lens _etfValue (\ s a -> s{_etfValue = a})
-- | The tag filter key.
etfKey :: Lens' EC2TagFilter (Maybe Text)
-etfKey = lens _etfKey (\ s a -> s{_etfKey = a});
+etfKey = lens _etfKey (\ s a -> s{_etfKey = a})
-- | The tag filter type: * KEY_ONLY: Key only. * VALUE_ONLY: Value only. * KEY_AND_VALUE: Key and value.
etfType :: Lens' EC2TagFilter (Maybe EC2TagFilterType)
-etfType = lens _etfType (\ s a -> s{_etfType = a});
+etfType = lens _etfType (\ s a -> s{_etfType = a})
instance FromJSON EC2TagFilter where
parseJSON
@@ -1258,7 +1313,7 @@ ec2TagSet = EC2TagSet' {_etsEc2TagSetList = Nothing}
-- | A list containing other lists of EC2 instance tag groups. In order for an instance to be included in the deployment group, it must be identified by all the tag groups in the list.
etsEc2TagSetList :: Lens' EC2TagSet [[EC2TagFilter]]
-etsEc2TagSetList = lens _etsEc2TagSetList (\ s a -> s{_etsEc2TagSetList = a}) . _Default . _Coerce;
+etsEc2TagSetList = lens _etsEc2TagSetList (\ s a -> s{_etsEc2TagSetList = a}) . _Default . _Coerce
instance FromJSON EC2TagSet where
parseJSON
@@ -1290,15 +1345,15 @@ newtype ELBInfo = ELBInfo'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'elbiName' - For blue/green deployments, the name of the load balancer that will be used to route traffic from original instances to replacement instances in a blue/green deployment. For in-place deployments, the name of the load balancer that instances are deregistered from, so they are not serving traffic during a deployment, and then re-registered with after the deployment completes.
+-- * 'elbiName' - For blue/green deployments, the name of the load balancer that will be used to route traffic from original instances to replacement instances in a blue/green deployment. For in-place deployments, the name of the load balancer that instances are deregistered from so they are not serving traffic during a deployment, and then re-registered with after the deployment completes.
eLBInfo
:: ELBInfo
eLBInfo = ELBInfo' {_elbiName = Nothing}
--- | For blue/green deployments, the name of the load balancer that will be used to route traffic from original instances to replacement instances in a blue/green deployment. For in-place deployments, the name of the load balancer that instances are deregistered from, so they are not serving traffic during a deployment, and then re-registered with after the deployment completes.
+-- | For blue/green deployments, the name of the load balancer that will be used to route traffic from original instances to replacement instances in a blue/green deployment. For in-place deployments, the name of the load balancer that instances are deregistered from so they are not serving traffic during a deployment, and then re-registered with after the deployment completes.
elbiName :: Lens' ELBInfo (Maybe Text)
-elbiName = lens _elbiName (\ s a -> s{_elbiName = a});
+elbiName = lens _elbiName (\ s a -> s{_elbiName = a})
instance FromJSON ELBInfo where
parseJSON
@@ -1338,11 +1393,11 @@ errorInformation = ErrorInformation' {_eiCode = Nothing, _eiMessage = Nothing}
-- | For information about additional error codes, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/error-codes.html Error Codes for AWS CodeDeploy> in the <http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide> . The error code: * APPLICATION_MISSING: The application was missing. This error code will most likely be raised if the application is deleted after the deployment is created but before it is started. * DEPLOYMENT_GROUP_MISSING: The deployment group was missing. This error code will most likely be raised if the deployment group is deleted after the deployment is created but before it is started. * HEALTH_CONSTRAINTS: The deployment failed on too many instances to be successfully deployed within the instance health constraints specified. * HEALTH_CONSTRAINTS_INVALID: The revision cannot be successfully deployed within the instance health constraints specified. * IAM_ROLE_MISSING: The service role cannot be accessed. * IAM_ROLE_PERMISSIONS: The service role does not have the correct permissions. * INTERNAL_ERROR: There was an internal error. * NO_EC2_SUBSCRIPTION: The calling account is not subscribed to the Amazon EC2 service. * NO_INSTANCES: No instance were specified, or no instance can be found. * OVER_MAX_INSTANCES: The maximum number of instance was exceeded. * THROTTLED: The operation was throttled because the calling account exceeded the throttling limits of one or more AWS services. * TIMEOUT: The deployment has timed out. * REVISION_MISSING: The revision ID was missing. This error code will most likely be raised if the revision is deleted after the deployment is created but before it is started.
eiCode :: Lens' ErrorInformation (Maybe DeployErrorCode)
-eiCode = lens _eiCode (\ s a -> s{_eiCode = a});
+eiCode = lens _eiCode (\ s a -> s{_eiCode = a})
-- | An accompanying error message.
eiMessage :: Lens' ErrorInformation (Maybe Text)
-eiMessage = lens _eiMessage (\ s a -> s{_eiMessage = a});
+eiMessage = lens _eiMessage (\ s a -> s{_eiMessage = a})
instance FromJSON ErrorInformation where
parseJSON
@@ -1386,33 +1441,33 @@ genericRevisionInfo
:: GenericRevisionInfo
genericRevisionInfo =
GenericRevisionInfo'
- { _griRegisterTime = Nothing
- , _griFirstUsedTime = Nothing
- , _griDeploymentGroups = Nothing
- , _griLastUsedTime = Nothing
- , _griDescription = Nothing
- }
+ { _griRegisterTime = Nothing
+ , _griFirstUsedTime = Nothing
+ , _griDeploymentGroups = Nothing
+ , _griLastUsedTime = Nothing
+ , _griDescription = Nothing
+ }
-- | When the revision was registered with AWS CodeDeploy.
griRegisterTime :: Lens' GenericRevisionInfo (Maybe UTCTime)
-griRegisterTime = lens _griRegisterTime (\ s a -> s{_griRegisterTime = a}) . mapping _Time;
+griRegisterTime = lens _griRegisterTime (\ s a -> s{_griRegisterTime = a}) . mapping _Time
-- | When the revision was first used by AWS CodeDeploy.
griFirstUsedTime :: Lens' GenericRevisionInfo (Maybe UTCTime)
-griFirstUsedTime = lens _griFirstUsedTime (\ s a -> s{_griFirstUsedTime = a}) . mapping _Time;
+griFirstUsedTime = lens _griFirstUsedTime (\ s a -> s{_griFirstUsedTime = a}) . mapping _Time
-- | The deployment groups for which this is the current target revision.
griDeploymentGroups :: Lens' GenericRevisionInfo [Text]
-griDeploymentGroups = lens _griDeploymentGroups (\ s a -> s{_griDeploymentGroups = a}) . _Default . _Coerce;
+griDeploymentGroups = lens _griDeploymentGroups (\ s a -> s{_griDeploymentGroups = a}) . _Default . _Coerce
-- | When the revision was last used by AWS CodeDeploy.
griLastUsedTime :: Lens' GenericRevisionInfo (Maybe UTCTime)
-griLastUsedTime = lens _griLastUsedTime (\ s a -> s{_griLastUsedTime = a}) . mapping _Time;
+griLastUsedTime = lens _griLastUsedTime (\ s a -> s{_griLastUsedTime = a}) . mapping _Time
-- | A comment about the revision.
griDescription :: Lens' GenericRevisionInfo (Maybe Text)
-griDescription = lens _griDescription (\ s a -> s{_griDescription = a});
+griDescription = lens _griDescription (\ s a -> s{_griDescription = a})
instance FromJSON GenericRevisionInfo where
parseJSON
@@ -1454,11 +1509,11 @@ gitHubLocation =
-- | The SHA1 commit ID of the GitHub commit that represents the bundled artifacts for the application revision.
ghlCommitId :: Lens' GitHubLocation (Maybe Text)
-ghlCommitId = lens _ghlCommitId (\ s a -> s{_ghlCommitId = a});
+ghlCommitId = lens _ghlCommitId (\ s a -> s{_ghlCommitId = a})
-- | The GitHub account and repository pair that stores a reference to the commit that represents the bundled artifacts for the application revision. Specified as account/repository.
ghlRepository :: Lens' GitHubLocation (Maybe Text)
-ghlRepository = lens _ghlRepository (\ s a -> s{_ghlRepository = a});
+ghlRepository = lens _ghlRepository (\ s a -> s{_ghlRepository = a})
instance FromJSON GitHubLocation where
parseJSON
@@ -1501,7 +1556,7 @@ greenFleetProvisioningOption =
-- | The method used to add instances to a replacement environment. * DISCOVER_EXISTING: Use instances that already exist or will be created manually. * COPY_AUTO_SCALING_GROUP: Use settings from a specified Auto Scaling group to define and create instances in a new Auto Scaling group.
gfpoAction :: Lens' GreenFleetProvisioningOption (Maybe GreenFleetProvisioningAction)
-gfpoAction = lens _gfpoAction (\ s a -> s{_gfpoAction = a});
+gfpoAction = lens _gfpoAction (\ s a -> s{_gfpoAction = a})
instance FromJSON GreenFleetProvisioningOption where
parseJSON
@@ -1554,43 +1609,43 @@ instanceInfo
:: InstanceInfo
instanceInfo =
InstanceInfo'
- { _iiRegisterTime = Nothing
- , _iiInstanceARN = Nothing
- , _iiDeregisterTime = Nothing
- , _iiIamUserARN = Nothing
- , _iiInstanceName = Nothing
- , _iiIamSessionARN = Nothing
- , _iiTags = Nothing
- }
+ { _iiRegisterTime = Nothing
+ , _iiInstanceARN = Nothing
+ , _iiDeregisterTime = Nothing
+ , _iiIamUserARN = Nothing
+ , _iiInstanceName = Nothing
+ , _iiIamSessionARN = Nothing
+ , _iiTags = Nothing
+ }
-- | The time at which the on-premises instance was registered.
iiRegisterTime :: Lens' InstanceInfo (Maybe UTCTime)
-iiRegisterTime = lens _iiRegisterTime (\ s a -> s{_iiRegisterTime = a}) . mapping _Time;
+iiRegisterTime = lens _iiRegisterTime (\ s a -> s{_iiRegisterTime = a}) . mapping _Time
-- | The ARN of the on-premises instance.
iiInstanceARN :: Lens' InstanceInfo (Maybe Text)
-iiInstanceARN = lens _iiInstanceARN (\ s a -> s{_iiInstanceARN = a});
+iiInstanceARN = lens _iiInstanceARN (\ s a -> s{_iiInstanceARN = a})
-- | If the on-premises instance was deregistered, the time at which the on-premises instance was deregistered.
iiDeregisterTime :: Lens' InstanceInfo (Maybe UTCTime)
-iiDeregisterTime = lens _iiDeregisterTime (\ s a -> s{_iiDeregisterTime = a}) . mapping _Time;
+iiDeregisterTime = lens _iiDeregisterTime (\ s a -> s{_iiDeregisterTime = a}) . mapping _Time
-- | The IAM user ARN associated with the on-premises instance.
iiIamUserARN :: Lens' InstanceInfo (Maybe Text)
-iiIamUserARN = lens _iiIamUserARN (\ s a -> s{_iiIamUserARN = a});
+iiIamUserARN = lens _iiIamUserARN (\ s a -> s{_iiIamUserARN = a})
-- | The name of the on-premises instance.
iiInstanceName :: Lens' InstanceInfo (Maybe Text)
-iiInstanceName = lens _iiInstanceName (\ s a -> s{_iiInstanceName = a});
+iiInstanceName = lens _iiInstanceName (\ s a -> s{_iiInstanceName = a})
-- | The ARN of the IAM session associated with the on-premises instance.
iiIamSessionARN :: Lens' InstanceInfo (Maybe Text)
-iiIamSessionARN = lens _iiIamSessionARN (\ s a -> s{_iiIamSessionARN = a});
+iiIamSessionARN = lens _iiIamSessionARN (\ s a -> s{_iiIamSessionARN = a})
-- | The tags currently associated with the on-premises instance.
iiTags :: Lens' InstanceInfo [Tag]
-iiTags = lens _iiTags (\ s a -> s{_iiTags = a}) . _Default . _Coerce;
+iiTags = lens _iiTags (\ s a -> s{_iiTags = a}) . _Default . _Coerce
instance FromJSON InstanceInfo where
parseJSON
@@ -1642,38 +1697,38 @@ instanceSummary
:: InstanceSummary
instanceSummary =
InstanceSummary'
- { _isInstanceId = Nothing
- , _isStatus = Nothing
- , _isDeploymentId = Nothing
- , _isLastUpdatedAt = Nothing
- , _isLifecycleEvents = Nothing
- , _isInstanceType = Nothing
- }
+ { _isInstanceId = Nothing
+ , _isStatus = Nothing
+ , _isDeploymentId = Nothing
+ , _isLastUpdatedAt = Nothing
+ , _isLifecycleEvents = Nothing
+ , _isInstanceType = Nothing
+ }
-- | The instance ID.
isInstanceId :: Lens' InstanceSummary (Maybe Text)
-isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a});
+isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a})
-- | The deployment status for this instance: * Pending: The deployment is pending for this instance. * In Progress: The deployment is in progress for this instance. * Succeeded: The deployment has succeeded for this instance. * Failed: The deployment has failed for this instance. * Skipped: The deployment has been skipped for this instance. * Unknown: The deployment status is unknown for this instance.
isStatus :: Lens' InstanceSummary (Maybe InstanceStatus)
-isStatus = lens _isStatus (\ s a -> s{_isStatus = a});
+isStatus = lens _isStatus (\ s a -> s{_isStatus = a})
-- | The deployment ID.
isDeploymentId :: Lens' InstanceSummary (Maybe Text)
-isDeploymentId = lens _isDeploymentId (\ s a -> s{_isDeploymentId = a});
+isDeploymentId = lens _isDeploymentId (\ s a -> s{_isDeploymentId = a})
-- | A timestamp indicating when the instance information was last updated.
isLastUpdatedAt :: Lens' InstanceSummary (Maybe UTCTime)
-isLastUpdatedAt = lens _isLastUpdatedAt (\ s a -> s{_isLastUpdatedAt = a}) . mapping _Time;
+isLastUpdatedAt = lens _isLastUpdatedAt (\ s a -> s{_isLastUpdatedAt = a}) . mapping _Time
-- | A list of lifecycle events for this instance.
isLifecycleEvents :: Lens' InstanceSummary [LifecycleEvent]
-isLifecycleEvents = lens _isLifecycleEvents (\ s a -> s{_isLifecycleEvents = a}) . _Default . _Coerce;
+isLifecycleEvents = lens _isLifecycleEvents (\ s a -> s{_isLifecycleEvents = a}) . _Default . _Coerce
-- | Information about which environment an instance belongs to in a blue/green deployment. * BLUE: The instance is part of the original environment. * GREEN: The instance is part of the replacement environment.
isInstanceType :: Lens' InstanceSummary (Maybe InstanceType)
-isInstanceType = lens _isInstanceType (\ s a -> s{_isInstanceType = a});
+isInstanceType = lens _isInstanceType (\ s a -> s{_isInstanceType = a})
instance FromJSON InstanceSummary where
parseJSON
@@ -1718,28 +1773,28 @@ lastDeploymentInfo
:: LastDeploymentInfo
lastDeploymentInfo =
LastDeploymentInfo'
- { _ldiStatus = Nothing
- , _ldiDeploymentId = Nothing
- , _ldiEndTime = Nothing
- , _ldiCreateTime = Nothing
- }
+ { _ldiStatus = Nothing
+ , _ldiDeploymentId = Nothing
+ , _ldiEndTime = Nothing
+ , _ldiCreateTime = Nothing
+ }
-- | The status of the most recent deployment.
ldiStatus :: Lens' LastDeploymentInfo (Maybe DeploymentStatus)
-ldiStatus = lens _ldiStatus (\ s a -> s{_ldiStatus = a});
+ldiStatus = lens _ldiStatus (\ s a -> s{_ldiStatus = a})
-- | The deployment ID.
ldiDeploymentId :: Lens' LastDeploymentInfo (Maybe Text)
-ldiDeploymentId = lens _ldiDeploymentId (\ s a -> s{_ldiDeploymentId = a});
+ldiDeploymentId = lens _ldiDeploymentId (\ s a -> s{_ldiDeploymentId = a})
-- | A timestamp indicating when the most recent deployment to the deployment group completed.
ldiEndTime :: Lens' LastDeploymentInfo (Maybe UTCTime)
-ldiEndTime = lens _ldiEndTime (\ s a -> s{_ldiEndTime = a}) . mapping _Time;
+ldiEndTime = lens _ldiEndTime (\ s a -> s{_ldiEndTime = a}) . mapping _Time
-- | A timestamp indicating when the most recent deployment to the deployment group started.
ldiCreateTime :: Lens' LastDeploymentInfo (Maybe UTCTime)
-ldiCreateTime = lens _ldiCreateTime (\ s a -> s{_ldiCreateTime = a}) . mapping _Time;
+ldiCreateTime = lens _ldiCreateTime (\ s a -> s{_ldiCreateTime = a}) . mapping _Time
instance FromJSON LastDeploymentInfo where
parseJSON
@@ -1785,33 +1840,33 @@ lifecycleEvent
:: LifecycleEvent
lifecycleEvent =
LifecycleEvent'
- { _leStatus = Nothing
- , _leLifecycleEventName = Nothing
- , _leStartTime = Nothing
- , _leDiagnostics = Nothing
- , _leEndTime = Nothing
- }
+ { _leStatus = Nothing
+ , _leLifecycleEventName = Nothing
+ , _leStartTime = Nothing
+ , _leDiagnostics = Nothing
+ , _leEndTime = Nothing
+ }
-- | The deployment lifecycle event status: * Pending: The deployment lifecycle event is pending. * InProgress: The deployment lifecycle event is in progress. * Succeeded: The deployment lifecycle event ran successfully. * Failed: The deployment lifecycle event has failed. * Skipped: The deployment lifecycle event has been skipped. * Unknown: The deployment lifecycle event is unknown.
leStatus :: Lens' LifecycleEvent (Maybe LifecycleEventStatus)
-leStatus = lens _leStatus (\ s a -> s{_leStatus = a});
+leStatus = lens _leStatus (\ s a -> s{_leStatus = a})
-- | The deployment lifecycle event name, such as ApplicationStop, BeforeInstall, AfterInstall, ApplicationStart, or ValidateService.
leLifecycleEventName :: Lens' LifecycleEvent (Maybe Text)
-leLifecycleEventName = lens _leLifecycleEventName (\ s a -> s{_leLifecycleEventName = a});
+leLifecycleEventName = lens _leLifecycleEventName (\ s a -> s{_leLifecycleEventName = a})
-- | A timestamp indicating when the deployment lifecycle event started.
leStartTime :: Lens' LifecycleEvent (Maybe UTCTime)
-leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time;
+leStartTime = lens _leStartTime (\ s a -> s{_leStartTime = a}) . mapping _Time
-- | Diagnostic information about the deployment lifecycle event.
leDiagnostics :: Lens' LifecycleEvent (Maybe Diagnostics)
-leDiagnostics = lens _leDiagnostics (\ s a -> s{_leDiagnostics = a});
+leDiagnostics = lens _leDiagnostics (\ s a -> s{_leDiagnostics = a})
-- | A timestamp indicating when the deployment lifecycle event ended.
leEndTime :: Lens' LifecycleEvent (Maybe UTCTime)
-leEndTime = lens _leEndTime (\ s a -> s{_leEndTime = a}) . mapping _Time;
+leEndTime = lens _leEndTime (\ s a -> s{_leEndTime = a}) . mapping _Time
instance FromJSON LifecycleEvent where
parseJSON
@@ -1849,16 +1904,16 @@ loadBalancerInfo
:: LoadBalancerInfo
loadBalancerInfo =
LoadBalancerInfo'
- {_lbiElbInfoList = Nothing, _lbiTargetGroupInfoList = Nothing}
+ {_lbiElbInfoList = Nothing, _lbiTargetGroupInfoList = Nothing}
-- | An array containing information about the load balancer to use for load balancing in a deployment. In Elastic Load Balancing, load balancers are used with Classic Load Balancers.
lbiElbInfoList :: Lens' LoadBalancerInfo [ELBInfo]
-lbiElbInfoList = lens _lbiElbInfoList (\ s a -> s{_lbiElbInfoList = a}) . _Default . _Coerce;
+lbiElbInfoList = lens _lbiElbInfoList (\ s a -> s{_lbiElbInfoList = a}) . _Default . _Coerce
-- | An array containing information about the target group to use for load balancing in a deployment. In Elastic Load Balancing, target groups are used with Application Load Balancers.
lbiTargetGroupInfoList :: Lens' LoadBalancerInfo [TargetGroupInfo]
-lbiTargetGroupInfoList = lens _lbiTargetGroupInfoList (\ s a -> s{_lbiTargetGroupInfoList = a}) . _Default . _Coerce;
+lbiTargetGroupInfoList = lens _lbiTargetGroupInfoList (\ s a -> s{_lbiTargetGroupInfoList = a}) . _Default . _Coerce
instance FromJSON LoadBalancerInfo where
parseJSON
@@ -1906,11 +1961,11 @@ minimumHealthyHosts =
-- | The minimum healthy instance value.
mhhValue :: Lens' MinimumHealthyHosts (Maybe Int)
-mhhValue = lens _mhhValue (\ s a -> s{_mhhValue = a});
+mhhValue = lens _mhhValue (\ s a -> s{_mhhValue = a})
-- | The minimum healthy instance type: * HOST_COUNT: The minimum number of healthy instance as an absolute value. * FLEET_PERCENT: The minimum number of healthy instance as a percentage of the total number of instance in the deployment. In an example of nine instance, if a HOST_COUNT of six is specified, deploy to up to three instances at a time. The deployment will be successful if six or more instances are deployed to successfully; otherwise, the deployment fails. If a FLEET_PERCENT of 40 is specified, deploy to up to five instance at a time. The deployment will be successful if four or more instance are deployed to successfully; otherwise, the deployment fails. For more information, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/instances-health.html AWS CodeDeploy Instance Health> in the /AWS CodeDeploy User Guide/ .
mhhType :: Lens' MinimumHealthyHosts (Maybe MinimumHealthyHostsType)
-mhhType = lens _mhhType (\ s a -> s{_mhhType = a});
+mhhType = lens _mhhType (\ s a -> s{_mhhType = a})
instance FromJSON MinimumHealthyHosts where
parseJSON
@@ -1952,7 +2007,7 @@ onPremisesTagSet = OnPremisesTagSet' {_optsOnPremisesTagSetList = Nothing}
-- | A list containing other lists of on-premises instance tag groups. In order for an instance to be included in the deployment group, it must be identified by all the tag groups in the list.
optsOnPremisesTagSetList :: Lens' OnPremisesTagSet [[TagFilter]]
-optsOnPremisesTagSetList = lens _optsOnPremisesTagSetList (\ s a -> s{_optsOnPremisesTagSetList = a}) . _Default . _Coerce;
+optsOnPremisesTagSetList = lens _optsOnPremisesTagSetList (\ s a -> s{_optsOnPremisesTagSetList = a}) . _Default . _Coerce
instance FromJSON OnPremisesTagSet where
parseJSON
@@ -1972,6 +2027,55 @@ instance ToJSON OnPremisesTagSet where
[("onPremisesTagSetList" .=) <$>
_optsOnPremisesTagSetList])
+-- | A revision for an AWS Lambda deployment that is a YAML-formatted or JSON-formatted string. For AWS Lambda deployments, the revision is the same as the AppSpec file.
+--
+--
+--
+-- /See:/ 'rawString' smart constructor.
+data RawString = RawString'
+ { _rsContent :: !(Maybe Text)
+ , _rsSha256 :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'RawString' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'rsContent' - The YAML-formatted or JSON-formatted revision string. It includes information about which Lambda function to update and optional Lambda functions that validate deployment lifecycle events.
+--
+-- * 'rsSha256' - The SHA256 hash value of the revision that is specified as a RawString.
+rawString
+ :: RawString
+rawString = RawString' {_rsContent = Nothing, _rsSha256 = Nothing}
+
+
+-- | The YAML-formatted or JSON-formatted revision string. It includes information about which Lambda function to update and optional Lambda functions that validate deployment lifecycle events.
+rsContent :: Lens' RawString (Maybe Text)
+rsContent = lens _rsContent (\ s a -> s{_rsContent = a})
+
+-- | The SHA256 hash value of the revision that is specified as a RawString.
+rsSha256 :: Lens' RawString (Maybe Text)
+rsSha256 = lens _rsSha256 (\ s a -> s{_rsSha256 = a})
+
+instance FromJSON RawString where
+ parseJSON
+ = withObject "RawString"
+ (\ x ->
+ RawString' <$>
+ (x .:? "content") <*> (x .:? "sha256"))
+
+instance Hashable RawString where
+
+instance NFData RawString where
+
+instance ToJSON RawString where
+ toJSON RawString'{..}
+ = object
+ (catMaybes
+ [("content" .=) <$> _rsContent,
+ ("sha256" .=) <$> _rsSha256])
+
-- | Information about an application revision.
--
--
@@ -1994,16 +2098,16 @@ revisionInfo
:: RevisionInfo
revisionInfo =
RevisionInfo'
- {_riGenericRevisionInfo = Nothing, _riRevisionLocation = Nothing}
+ {_riGenericRevisionInfo = Nothing, _riRevisionLocation = Nothing}
-- | Information about an application revision, including usage details and associated deployment groups.
riGenericRevisionInfo :: Lens' RevisionInfo (Maybe GenericRevisionInfo)
-riGenericRevisionInfo = lens _riGenericRevisionInfo (\ s a -> s{_riGenericRevisionInfo = a});
+riGenericRevisionInfo = lens _riGenericRevisionInfo (\ s a -> s{_riGenericRevisionInfo = a})
-- | Information about the location and type of an application revision.
riRevisionLocation :: Lens' RevisionInfo (Maybe RevisionLocation)
-riRevisionLocation = lens _riRevisionLocation (\ s a -> s{_riRevisionLocation = a});
+riRevisionLocation = lens _riRevisionLocation (\ s a -> s{_riRevisionLocation = a})
instance FromJSON RevisionInfo where
parseJSON
@@ -2023,7 +2127,8 @@ instance NFData RevisionInfo where
--
-- /See:/ 'revisionLocation' smart constructor.
data RevisionLocation = RevisionLocation'
- { _rlRevisionType :: !(Maybe RevisionLocationType)
+ { _rlString :: !(Maybe RawString)
+ , _rlRevisionType :: !(Maybe RevisionLocationType)
, _rlS3Location :: !(Maybe S3Location)
, _rlGitHubLocation :: !(Maybe GitHubLocation)
} deriving (Eq, Read, Show, Data, Typeable, Generic)
@@ -2033,40 +2138,48 @@ data RevisionLocation = RevisionLocation'
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'rlRevisionType' - The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub.
+-- * 'rlString' - Information about the location of an AWS Lambda deployment revision stored as a RawString.
--
--- * 'rlS3Location' - Information about the location of application artifacts stored in Amazon S3.
+-- * 'rlRevisionType' - The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub (EC2/On-premises deployments only) * String: A YAML-formatted or JSON-formatted string (AWS Lambda deployments only)
+--
+-- * 'rlS3Location' - Information about the location of a revision stored in Amazon S3.
--
-- * 'rlGitHubLocation' - Information about the location of application artifacts stored in GitHub.
revisionLocation
:: RevisionLocation
revisionLocation =
RevisionLocation'
- { _rlRevisionType = Nothing
- , _rlS3Location = Nothing
- , _rlGitHubLocation = Nothing
- }
+ { _rlString = Nothing
+ , _rlRevisionType = Nothing
+ , _rlS3Location = Nothing
+ , _rlGitHubLocation = Nothing
+ }
+
+-- | Information about the location of an AWS Lambda deployment revision stored as a RawString.
+rlString :: Lens' RevisionLocation (Maybe RawString)
+rlString = lens _rlString (\ s a -> s{_rlString = a})
--- | The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub.
+-- | The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub (EC2/On-premises deployments only) * String: A YAML-formatted or JSON-formatted string (AWS Lambda deployments only)
rlRevisionType :: Lens' RevisionLocation (Maybe RevisionLocationType)
-rlRevisionType = lens _rlRevisionType (\ s a -> s{_rlRevisionType = a});
+rlRevisionType = lens _rlRevisionType (\ s a -> s{_rlRevisionType = a})
--- | Information about the location of application artifacts stored in Amazon S3.
+-- | Information about the location of a revision stored in Amazon S3.
rlS3Location :: Lens' RevisionLocation (Maybe S3Location)
-rlS3Location = lens _rlS3Location (\ s a -> s{_rlS3Location = a});
+rlS3Location = lens _rlS3Location (\ s a -> s{_rlS3Location = a})
-- | Information about the location of application artifacts stored in GitHub.
rlGitHubLocation :: Lens' RevisionLocation (Maybe GitHubLocation)
-rlGitHubLocation = lens _rlGitHubLocation (\ s a -> s{_rlGitHubLocation = a});
+rlGitHubLocation = lens _rlGitHubLocation (\ s a -> s{_rlGitHubLocation = a})
instance FromJSON RevisionLocation where
parseJSON
= withObject "RevisionLocation"
(\ x ->
RevisionLocation' <$>
- (x .:? "revisionType") <*> (x .:? "s3Location") <*>
- (x .:? "gitHubLocation"))
+ (x .:? "string") <*> (x .:? "revisionType") <*>
+ (x .:? "s3Location")
+ <*> (x .:? "gitHubLocation"))
instance Hashable RevisionLocation where
@@ -2076,7 +2189,8 @@ instance ToJSON RevisionLocation where
toJSON RevisionLocation'{..}
= object
(catMaybes
- [("revisionType" .=) <$> _rlRevisionType,
+ [("string" .=) <$> _rlString,
+ ("revisionType" .=) <$> _rlRevisionType,
("s3Location" .=) <$> _rlS3Location,
("gitHubLocation" .=) <$> _rlGitHubLocation])
@@ -2105,23 +2219,23 @@ rollbackInfo
:: RollbackInfo
rollbackInfo =
RollbackInfo'
- { _riRollbackTriggeringDeploymentId = Nothing
- , _riRollbackMessage = Nothing
- , _riRollbackDeploymentId = Nothing
- }
+ { _riRollbackTriggeringDeploymentId = Nothing
+ , _riRollbackMessage = Nothing
+ , _riRollbackDeploymentId = Nothing
+ }
-- | The deployment ID of the deployment that was underway and triggered a rollback deployment because it failed or was stopped.
riRollbackTriggeringDeploymentId :: Lens' RollbackInfo (Maybe Text)
-riRollbackTriggeringDeploymentId = lens _riRollbackTriggeringDeploymentId (\ s a -> s{_riRollbackTriggeringDeploymentId = a});
+riRollbackTriggeringDeploymentId = lens _riRollbackTriggeringDeploymentId (\ s a -> s{_riRollbackTriggeringDeploymentId = a})
-- | Information describing the status of a deployment rollback; for example, whether the deployment can't be rolled back, is in progress, failed, or succeeded.
riRollbackMessage :: Lens' RollbackInfo (Maybe Text)
-riRollbackMessage = lens _riRollbackMessage (\ s a -> s{_riRollbackMessage = a});
+riRollbackMessage = lens _riRollbackMessage (\ s a -> s{_riRollbackMessage = a})
-- | The ID of the deployment rollback.
riRollbackDeploymentId :: Lens' RollbackInfo (Maybe Text)
-riRollbackDeploymentId = lens _riRollbackDeploymentId (\ s a -> s{_riRollbackDeploymentId = a});
+riRollbackDeploymentId = lens _riRollbackDeploymentId (\ s a -> s{_riRollbackDeploymentId = a})
instance FromJSON RollbackInfo where
parseJSON
@@ -2167,33 +2281,33 @@ s3Location
:: S3Location
s3Location =
S3Location'
- { _slBundleType = Nothing
- , _slETag = Nothing
- , _slBucket = Nothing
- , _slKey = Nothing
- , _slVersion = Nothing
- }
+ { _slBundleType = Nothing
+ , _slETag = Nothing
+ , _slBucket = Nothing
+ , _slKey = Nothing
+ , _slVersion = Nothing
+ }
-- | The file type of the application revision. Must be one of the following: * tar: A tar archive file. * tgz: A compressed tar archive file. * zip: A zip archive file.
slBundleType :: Lens' S3Location (Maybe BundleType)
-slBundleType = lens _slBundleType (\ s a -> s{_slBundleType = a});
+slBundleType = lens _slBundleType (\ s a -> s{_slBundleType = a})
-- | The ETag of the Amazon S3 object that represents the bundled artifacts for the application revision. If the ETag is not specified as an input parameter, ETag validation of the object will be skipped.
slETag :: Lens' S3Location (Maybe Text)
-slETag = lens _slETag (\ s a -> s{_slETag = a});
+slETag = lens _slETag (\ s a -> s{_slETag = a})
-- | The name of the Amazon S3 bucket where the application revision is stored.
slBucket :: Lens' S3Location (Maybe Text)
-slBucket = lens _slBucket (\ s a -> s{_slBucket = a});
+slBucket = lens _slBucket (\ s a -> s{_slBucket = a})
-- | The name of the Amazon S3 object that represents the bundled artifacts for the application revision.
slKey :: Lens' S3Location (Maybe Text)
-slKey = lens _slKey (\ s a -> s{_slKey = a});
+slKey = lens _slKey (\ s a -> s{_slKey = a})
-- | A specific version of the Amazon S3 object that represents the bundled artifacts for the application revision. If the version is not specified, the system will use the most recent version by default.
slVersion :: Lens' S3Location (Maybe Text)
-slVersion = lens _slVersion (\ s a -> s{_slVersion = a});
+slVersion = lens _slVersion (\ s a -> s{_slVersion = a})
instance FromJSON S3Location where
parseJSON
@@ -2243,11 +2357,11 @@ tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}
-- | The tag's value.
tagValue :: Lens' Tag (Maybe Text)
-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});
+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})
-- | The tag's key.
tagKey :: Lens' Tag (Maybe Text)
-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});
+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})
instance FromJSON Tag where
parseJSON
@@ -2292,15 +2406,15 @@ tagFilter = TagFilter' {_tfValue = Nothing, _tfKey = Nothing, _tfType = Nothing}
-- | The on-premises instance tag filter value.
tfValue :: Lens' TagFilter (Maybe Text)
-tfValue = lens _tfValue (\ s a -> s{_tfValue = a});
+tfValue = lens _tfValue (\ s a -> s{_tfValue = a})
-- | The on-premises instance tag filter key.
tfKey :: Lens' TagFilter (Maybe Text)
-tfKey = lens _tfKey (\ s a -> s{_tfKey = a});
+tfKey = lens _tfKey (\ s a -> s{_tfKey = a})
-- | The on-premises instance tag filter type: * KEY_ONLY: Key only. * VALUE_ONLY: Value only. * KEY_AND_VALUE: Key and value.
tfType :: Lens' TagFilter (Maybe TagFilterType)
-tfType = lens _tfType (\ s a -> s{_tfType = a});
+tfType = lens _tfType (\ s a -> s{_tfType = a})
instance FromJSON TagFilter where
parseJSON
@@ -2342,7 +2456,7 @@ targetGroupInfo = TargetGroupInfo' {_tgiName = Nothing}
-- | For blue/green deployments, the name of the target group that instances in the original environment are deregistered from, and instances in the replacement environment registered with. For in-place deployments, the name of the target group that instances are deregistered from, so they are not serving traffic during a deployment, and then re-registered with after the deployment completes.
tgiName :: Lens' TargetGroupInfo (Maybe Text)
-tgiName = lens _tgiName (\ s a -> s{_tgiName = a});
+tgiName = lens _tgiName (\ s a -> s{_tgiName = a})
instance FromJSON TargetGroupInfo where
parseJSON
@@ -2382,23 +2496,23 @@ targetInstances
:: TargetInstances
targetInstances =
TargetInstances'
- { _tiEc2TagSet = Nothing
- , _tiTagFilters = Nothing
- , _tiAutoScalingGroups = Nothing
- }
+ { _tiEc2TagSet = Nothing
+ , _tiTagFilters = Nothing
+ , _tiAutoScalingGroups = Nothing
+ }
-- | Information about the groups of EC2 instance tags that an instance must be identified by in order for it to be included in the replacement environment for a blue/green deployment. Cannot be used in the same call as tagFilters.
tiEc2TagSet :: Lens' TargetInstances (Maybe EC2TagSet)
-tiEc2TagSet = lens _tiEc2TagSet (\ s a -> s{_tiEc2TagSet = a});
+tiEc2TagSet = lens _tiEc2TagSet (\ s a -> s{_tiEc2TagSet = a})
-- | The tag filter key, type, and value used to identify Amazon EC2 instances in a replacement environment for a blue/green deployment. Cannot be used in the same call as ec2TagSet.
tiTagFilters :: Lens' TargetInstances [EC2TagFilter]
-tiTagFilters = lens _tiTagFilters (\ s a -> s{_tiTagFilters = a}) . _Default . _Coerce;
+tiTagFilters = lens _tiTagFilters (\ s a -> s{_tiTagFilters = a}) . _Default . _Coerce
-- | The names of one or more Auto Scaling groups to identify a replacement environment for a blue/green deployment.
tiAutoScalingGroups :: Lens' TargetInstances [Text]
-tiAutoScalingGroups = lens _tiAutoScalingGroups (\ s a -> s{_tiAutoScalingGroups = a}) . _Default . _Coerce;
+tiAutoScalingGroups = lens _tiAutoScalingGroups (\ s a -> s{_tiAutoScalingGroups = a}) . _Default . _Coerce
instance FromJSON TargetInstances where
parseJSON
@@ -2421,6 +2535,110 @@ instance ToJSON TargetInstances where
("tagFilters" .=) <$> _tiTagFilters,
("autoScalingGroups" .=) <$> _tiAutoScalingGroups])
+-- | A configuration that shifts traffic from one version of a Lambda function to another in two increments. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+--
+--
+--
+-- /See:/ 'timeBasedCanary' smart constructor.
+data TimeBasedCanary = TimeBasedCanary'
+ { _tbcCanaryInterval :: !(Maybe Int)
+ , _tbcCanaryPercentage :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'TimeBasedCanary' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'tbcCanaryInterval' - The number of minutes between the first and second traffic shifts of a @TimeBasedCanary@ deployment.
+--
+-- * 'tbcCanaryPercentage' - The percentage of traffic to shift in the first increment of a @TimeBasedCanary@ deployment.
+timeBasedCanary
+ :: TimeBasedCanary
+timeBasedCanary =
+ TimeBasedCanary'
+ {_tbcCanaryInterval = Nothing, _tbcCanaryPercentage = Nothing}
+
+
+-- | The number of minutes between the first and second traffic shifts of a @TimeBasedCanary@ deployment.
+tbcCanaryInterval :: Lens' TimeBasedCanary (Maybe Int)
+tbcCanaryInterval = lens _tbcCanaryInterval (\ s a -> s{_tbcCanaryInterval = a})
+
+-- | The percentage of traffic to shift in the first increment of a @TimeBasedCanary@ deployment.
+tbcCanaryPercentage :: Lens' TimeBasedCanary (Maybe Int)
+tbcCanaryPercentage = lens _tbcCanaryPercentage (\ s a -> s{_tbcCanaryPercentage = a})
+
+instance FromJSON TimeBasedCanary where
+ parseJSON
+ = withObject "TimeBasedCanary"
+ (\ x ->
+ TimeBasedCanary' <$>
+ (x .:? "canaryInterval") <*>
+ (x .:? "canaryPercentage"))
+
+instance Hashable TimeBasedCanary where
+
+instance NFData TimeBasedCanary where
+
+instance ToJSON TimeBasedCanary where
+ toJSON TimeBasedCanary'{..}
+ = object
+ (catMaybes
+ [("canaryInterval" .=) <$> _tbcCanaryInterval,
+ ("canaryPercentage" .=) <$> _tbcCanaryPercentage])
+
+-- | A configuration that shifts traffic from one version of a Lambda function to another in equal increments, with an equal number of minutes between each increment. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+--
+--
+--
+-- /See:/ 'timeBasedLinear' smart constructor.
+data TimeBasedLinear = TimeBasedLinear'
+ { _tblLinearInterval :: !(Maybe Int)
+ , _tblLinearPercentage :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'TimeBasedLinear' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'tblLinearInterval' - The number of minutes between each incremental traffic shift of a @TimeBasedLinear@ deployment.
+--
+-- * 'tblLinearPercentage' - The percentage of traffic that is shifted at the start of each increment of a @TimeBasedLinear@ deployment.
+timeBasedLinear
+ :: TimeBasedLinear
+timeBasedLinear =
+ TimeBasedLinear'
+ {_tblLinearInterval = Nothing, _tblLinearPercentage = Nothing}
+
+
+-- | The number of minutes between each incremental traffic shift of a @TimeBasedLinear@ deployment.
+tblLinearInterval :: Lens' TimeBasedLinear (Maybe Int)
+tblLinearInterval = lens _tblLinearInterval (\ s a -> s{_tblLinearInterval = a})
+
+-- | The percentage of traffic that is shifted at the start of each increment of a @TimeBasedLinear@ deployment.
+tblLinearPercentage :: Lens' TimeBasedLinear (Maybe Int)
+tblLinearPercentage = lens _tblLinearPercentage (\ s a -> s{_tblLinearPercentage = a})
+
+instance FromJSON TimeBasedLinear where
+ parseJSON
+ = withObject "TimeBasedLinear"
+ (\ x ->
+ TimeBasedLinear' <$>
+ (x .:? "linearInterval") <*>
+ (x .:? "linearPercentage"))
+
+instance Hashable TimeBasedLinear where
+
+instance NFData TimeBasedLinear where
+
+instance ToJSON TimeBasedLinear where
+ toJSON TimeBasedLinear'{..}
+ = object
+ (catMaybes
+ [("linearInterval" .=) <$> _tblLinearInterval,
+ ("linearPercentage" .=) <$> _tblLinearPercentage])
+
-- | Information about a time range.
--
--
@@ -2446,11 +2664,11 @@ timeRange = TimeRange' {_trStart = Nothing, _trEnd = Nothing}
-- | The start time of the time range.
trStart :: Lens' TimeRange (Maybe UTCTime)
-trStart = lens _trStart (\ s a -> s{_trStart = a}) . mapping _Time;
+trStart = lens _trStart (\ s a -> s{_trStart = a}) . mapping _Time
-- | The end time of the time range.
trEnd :: Lens' TimeRange (Maybe UTCTime)
-trEnd = lens _trEnd (\ s a -> s{_trEnd = a}) . mapping _Time;
+trEnd = lens _trEnd (\ s a -> s{_trEnd = a}) . mapping _Time
instance Hashable TimeRange where
@@ -2462,6 +2680,70 @@ instance ToJSON TimeRange where
(catMaybes
[("start" .=) <$> _trStart, ("end" .=) <$> _trEnd])
+-- | The configuration that specifies how traffic is shifted from one version of a Lambda function to another version during an AWS Lambda deployment.
+--
+--
+--
+-- /See:/ 'trafficRoutingConfig' smart constructor.
+data TrafficRoutingConfig = TrafficRoutingConfig'
+ { _trcTimeBasedCanary :: !(Maybe TimeBasedCanary)
+ , _trcTimeBasedLinear :: !(Maybe TimeBasedLinear)
+ , _trcType :: !(Maybe TrafficRoutingType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'TrafficRoutingConfig' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'trcTimeBasedCanary' - A configuration that shifts traffic from one version of a Lambda function to another in two increments. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+--
+-- * 'trcTimeBasedLinear' - A configuration that shifts traffic from one version of a Lambda function to another in equal increments, with an equal number of minutes between each increment. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+--
+-- * 'trcType' - The type of traffic shifting (@TimeBasedCanary@ or @TimeBasedLinear@ ) used by a deployment configuration .
+trafficRoutingConfig
+ :: TrafficRoutingConfig
+trafficRoutingConfig =
+ TrafficRoutingConfig'
+ { _trcTimeBasedCanary = Nothing
+ , _trcTimeBasedLinear = Nothing
+ , _trcType = Nothing
+ }
+
+
+-- | A configuration that shifts traffic from one version of a Lambda function to another in two increments. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+trcTimeBasedCanary :: Lens' TrafficRoutingConfig (Maybe TimeBasedCanary)
+trcTimeBasedCanary = lens _trcTimeBasedCanary (\ s a -> s{_trcTimeBasedCanary = a})
+
+-- | A configuration that shifts traffic from one version of a Lambda function to another in equal increments, with an equal number of minutes between each increment. The original and target Lambda function versions are specified in the deployment's AppSpec file.
+trcTimeBasedLinear :: Lens' TrafficRoutingConfig (Maybe TimeBasedLinear)
+trcTimeBasedLinear = lens _trcTimeBasedLinear (\ s a -> s{_trcTimeBasedLinear = a})
+
+-- | The type of traffic shifting (@TimeBasedCanary@ or @TimeBasedLinear@ ) used by a deployment configuration .
+trcType :: Lens' TrafficRoutingConfig (Maybe TrafficRoutingType)
+trcType = lens _trcType (\ s a -> s{_trcType = a})
+
+instance FromJSON TrafficRoutingConfig where
+ parseJSON
+ = withObject "TrafficRoutingConfig"
+ (\ x ->
+ TrafficRoutingConfig' <$>
+ (x .:? "timeBasedCanary") <*>
+ (x .:? "timeBasedLinear")
+ <*> (x .:? "type"))
+
+instance Hashable TrafficRoutingConfig where
+
+instance NFData TrafficRoutingConfig where
+
+instance ToJSON TrafficRoutingConfig where
+ toJSON TrafficRoutingConfig'{..}
+ = object
+ (catMaybes
+ [("timeBasedCanary" .=) <$> _trcTimeBasedCanary,
+ ("timeBasedLinear" .=) <$> _trcTimeBasedLinear,
+ ("type" .=) <$> _trcType])
+
-- | Information about notification triggers for the deployment group.
--
--
@@ -2487,23 +2769,23 @@ triggerConfig
:: TriggerConfig
triggerConfig =
TriggerConfig'
- { _tcTriggerName = Nothing
- , _tcTriggerEvents = Nothing
- , _tcTriggerTargetARN = Nothing
- }
+ { _tcTriggerName = Nothing
+ , _tcTriggerEvents = Nothing
+ , _tcTriggerTargetARN = Nothing
+ }
-- | The name of the notification trigger.
tcTriggerName :: Lens' TriggerConfig (Maybe Text)
-tcTriggerName = lens _tcTriggerName (\ s a -> s{_tcTriggerName = a});
+tcTriggerName = lens _tcTriggerName (\ s a -> s{_tcTriggerName = a})
-- | The event type or types for which notifications are triggered.
tcTriggerEvents :: Lens' TriggerConfig [TriggerEventType]
-tcTriggerEvents = lens _tcTriggerEvents (\ s a -> s{_tcTriggerEvents = a}) . _Default . _Coerce;
+tcTriggerEvents = lens _tcTriggerEvents (\ s a -> s{_tcTriggerEvents = a}) . _Default . _Coerce
-- | The ARN of the Amazon Simple Notification Service topic through which notifications about deployment or instance events are sent.
tcTriggerTargetARN :: Lens' TriggerConfig (Maybe Text)
-tcTriggerTargetARN = lens _tcTriggerTargetARN (\ s a -> s{_tcTriggerTargetARN = a});
+tcTriggerTargetARN = lens _tcTriggerTargetARN (\ s a -> s{_tcTriggerTargetARN = a})
instance FromJSON TriggerConfig where
parseJSON
diff --git a/gen/Network/AWS/CodeDeploy/Types/Sum.hs b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
index 8e353e4..dba4ce4 100644
--- a/gen/Network/AWS/CodeDeploy/Types/Sum.hs
+++ b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
@@ -9,7 +9,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types.Sum
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -83,24 +83,30 @@ instance FromJSON AutoRollbackEvent where
parseJSON = parseJSONText "AutoRollbackEvent"
data BundleType
- = TAR
+ = JSON
+ | TAR
| TGZ
+ | Yaml
| Zip
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
instance FromText BundleType where
parser = takeLowerText >>= \case
+ "json" -> pure JSON
"tar" -> pure TAR
"tgz" -> pure TGZ
+ "yaml" -> pure Yaml
"zip" -> pure Zip
e -> fromTextError $ "Failure parsing BundleType from value: '" <> e
- <> "'. Accepted values: tar, tgz, zip"
+ <> "'. Accepted values: json, tar, tgz, yaml, zip"
instance ToText BundleType where
toText = \case
+ JSON -> "JSON"
TAR -> "tar"
TGZ -> "tgz"
+ Yaml -> "YAML"
Zip -> "zip"
instance Hashable BundleType
@@ -115,6 +121,36 @@ instance ToJSON BundleType where
instance FromJSON BundleType where
parseJSON = parseJSONText "BundleType"
+data ComputePlatform
+ = Lambda
+ | Server
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText ComputePlatform where
+ parser = takeLowerText >>= \case
+ "lambda" -> pure Lambda
+ "server" -> pure Server
+ e -> fromTextError $ "Failure parsing ComputePlatform from value: '" <> e
+ <> "'. Accepted values: lambda, server"
+
+instance ToText ComputePlatform where
+ toText = \case
+ Lambda -> "Lambda"
+ Server -> "Server"
+
+instance Hashable ComputePlatform
+instance NFData ComputePlatform
+instance ToByteString ComputePlatform
+instance ToQuery ComputePlatform
+instance ToHeader ComputePlatform
+
+instance ToJSON ComputePlatform where
+ toJSON = toJSONText
+
+instance FromJSON ComputePlatform where
+ parseJSON = parseJSONText "ComputePlatform"
+
data DeployErrorCode
= AgentIssue
| AlarmActive
@@ -122,12 +158,20 @@ data DeployErrorCode
| AutoScalingConfiguration
| AutoScalingIAMRolePermissions
| DeploymentGroupMissing
+ | ElasticLoadBalancingInvalid
+ | ElbInvalidInstance
| HealthConstraints
| HealthConstraintsInvalid
+ | HookExecutionFailure
| IAMRoleMissing
| IAMRolePermissions
| InternalError
+ | InvalidLambdaConfiguration
+ | InvalidLambdaFunction
| ManualStop
+ | MissingBlueGreenDeploymentConfiguration
+ | MissingElbInformation
+ | MissingGithubToken
| NoEC2Subscription
| NoInstances
| OverMaxInstances
@@ -145,12 +189,20 @@ instance FromText DeployErrorCode where
"auto_scaling_configuration" -> pure AutoScalingConfiguration
"auto_scaling_iam_role_permissions" -> pure AutoScalingIAMRolePermissions
"deployment_group_missing" -> pure DeploymentGroupMissing
+ "elastic_load_balancing_invalid" -> pure ElasticLoadBalancingInvalid
+ "elb_invalid_instance" -> pure ElbInvalidInstance
"health_constraints" -> pure HealthConstraints
"health_constraints_invalid" -> pure HealthConstraintsInvalid
+ "hook_execution_failure" -> pure HookExecutionFailure
"iam_role_missing" -> pure IAMRoleMissing
"iam_role_permissions" -> pure IAMRolePermissions
"internal_error" -> pure InternalError
+ "invalid_lambda_configuration" -> pure InvalidLambdaConfiguration
+ "invalid_lambda_function" -> pure InvalidLambdaFunction
"manual_stop" -> pure ManualStop
+ "missing_blue_green_deployment_configuration" -> pure MissingBlueGreenDeploymentConfiguration
+ "missing_elb_information" -> pure MissingElbInformation
+ "missing_github_token" -> pure MissingGithubToken
"no_ec2_subscription" -> pure NoEC2Subscription
"no_instances" -> pure NoInstances
"over_max_instances" -> pure OverMaxInstances
@@ -158,7 +210,7 @@ instance FromText DeployErrorCode where
"throttled" -> pure Throttled
"timeout" -> pure Timeout
e -> fromTextError $ "Failure parsing DeployErrorCode from value: '" <> e
- <> "'. Accepted values: agent_issue, alarm_active, application_missing, auto_scaling_configuration, auto_scaling_iam_role_permissions, deployment_group_missing, health_constraints, health_constraints_invalid, iam_role_missing, iam_role_permissions, internal_error, manual_stop, no_ec2_subscription, no_instances, over_max_instances, revision_missing, throttled, timeout"
+ <> "'. Accepted values: agent_issue, alarm_active, application_missing, auto_scaling_configuration, auto_scaling_iam_role_permissions, deployment_group_missing, elastic_load_balancing_invalid, elb_invalid_instance, health_constraints, health_constraints_invalid, hook_execution_failure, iam_role_missing, iam_role_permissions, internal_error, invalid_lambda_configuration, invalid_lambda_function, manual_stop, missing_blue_green_deployment_configuration, missing_elb_information, missing_github_token, no_ec2_subscription, no_instances, over_max_instances, revision_missing, throttled, timeout"
instance ToText DeployErrorCode where
toText = \case
@@ -168,12 +220,20 @@ instance ToText DeployErrorCode where
AutoScalingConfiguration -> "AUTO_SCALING_CONFIGURATION"
AutoScalingIAMRolePermissions -> "AUTO_SCALING_IAM_ROLE_PERMISSIONS"
DeploymentGroupMissing -> "DEPLOYMENT_GROUP_MISSING"
+ ElasticLoadBalancingInvalid -> "ELASTIC_LOAD_BALANCING_INVALID"
+ ElbInvalidInstance -> "ELB_INVALID_INSTANCE"
HealthConstraints -> "HEALTH_CONSTRAINTS"
HealthConstraintsInvalid -> "HEALTH_CONSTRAINTS_INVALID"
+ HookExecutionFailure -> "HOOK_EXECUTION_FAILURE"
IAMRoleMissing -> "IAM_ROLE_MISSING"
IAMRolePermissions -> "IAM_ROLE_PERMISSIONS"
InternalError -> "INTERNAL_ERROR"
+ InvalidLambdaConfiguration -> "INVALID_LAMBDA_CONFIGURATION"
+ InvalidLambdaFunction -> "INVALID_LAMBDA_FUNCTION"
ManualStop -> "MANUAL_STOP"
+ MissingBlueGreenDeploymentConfiguration -> "MISSING_BLUE_GREEN_DEPLOYMENT_CONFIGURATION"
+ MissingElbInformation -> "MISSING_ELB_INFORMATION"
+ MissingGithubToken -> "MISSING_GITHUB_TOKEN"
NoEC2Subscription -> "NO_EC2_SUBSCRIPTION"
NoInstances -> "NO_INSTANCES"
OverMaxInstances -> "OVER_MAX_INSTANCES"
@@ -631,6 +691,9 @@ instance ToByteString LifecycleEventStatus
instance ToQuery LifecycleEventStatus
instance ToHeader LifecycleEventStatus
+instance ToJSON LifecycleEventStatus where
+ toJSON = toJSONText
+
instance FromJSON LifecycleEventStatus where
parseJSON = parseJSONText "LifecycleEventStatus"
@@ -724,6 +787,7 @@ instance ToJSON RegistrationStatus where
data RevisionLocationType
= GitHub
| S3
+ | String
deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
@@ -731,13 +795,15 @@ instance FromText RevisionLocationType where
parser = takeLowerText >>= \case
"github" -> pure GitHub
"s3" -> pure S3
+ "string" -> pure String
e -> fromTextError $ "Failure parsing RevisionLocationType from value: '" <> e
- <> "'. Accepted values: github, s3"
+ <> "'. Accepted values: github, s3, string"
instance ToText RevisionLocationType where
toText = \case
GitHub -> "GitHub"
S3 -> "S3"
+ String -> "String"
instance Hashable RevisionLocationType
instance NFData RevisionLocationType
@@ -838,6 +904,39 @@ instance ToJSON TagFilterType where
instance FromJSON TagFilterType where
parseJSON = parseJSONText "TagFilterType"
+data TrafficRoutingType
+ = AllAtOnce
+ | TimeBasedCanary
+ | TimeBasedLinear
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText TrafficRoutingType where
+ parser = takeLowerText >>= \case
+ "allatonce" -> pure AllAtOnce
+ "timebasedcanary" -> pure TimeBasedCanary
+ "timebasedlinear" -> pure TimeBasedLinear
+ e -> fromTextError $ "Failure parsing TrafficRoutingType from value: '" <> e
+ <> "'. Accepted values: allatonce, timebasedcanary, timebasedlinear"
+
+instance ToText TrafficRoutingType where
+ toText = \case
+ AllAtOnce -> "AllAtOnce"
+ TimeBasedCanary -> "TimeBasedCanary"
+ TimeBasedLinear -> "TimeBasedLinear"
+
+instance Hashable TrafficRoutingType
+instance NFData TrafficRoutingType
+instance ToByteString TrafficRoutingType
+instance ToQuery TrafficRoutingType
+instance ToHeader TrafficRoutingType
+
+instance ToJSON TrafficRoutingType where
+ toJSON = toJSONText
+
+instance FromJSON TrafficRoutingType where
+ parseJSON = parseJSONText "TrafficRoutingType"
+
data TriggerEventType
= DeploymentFailure
| DeploymentReady
diff --git a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
index a79da83..f495d96 100644
--- a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.UpdateApplication
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -64,16 +64,16 @@ updateApplication
:: UpdateApplication
updateApplication =
UpdateApplication'
- {_uaNewApplicationName = Nothing, _uaApplicationName = Nothing}
+ {_uaNewApplicationName = Nothing, _uaApplicationName = Nothing}
-- | The new name to give the application.
uaNewApplicationName :: Lens' UpdateApplication (Maybe Text)
-uaNewApplicationName = lens _uaNewApplicationName (\ s a -> s{_uaNewApplicationName = a});
+uaNewApplicationName = lens _uaNewApplicationName (\ s a -> s{_uaNewApplicationName = a})
-- | The current name of the application you want to change.
uaApplicationName :: Lens' UpdateApplication (Maybe Text)
-uaApplicationName = lens _uaApplicationName (\ s a -> s{_uaApplicationName = a});
+uaApplicationName = lens _uaApplicationName (\ s a -> s{_uaApplicationName = a})
instance AWSRequest UpdateApplication where
type Rs UpdateApplication = UpdateApplicationResponse
diff --git a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
index 22a46ec..30b7e03 100644
--- a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
@@ -12,7 +12,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.UpdateDeploymentGroup
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -125,88 +125,88 @@ updateDeploymentGroup
-> UpdateDeploymentGroup
updateDeploymentGroup pApplicationName_ pCurrentDeploymentGroupName_ =
UpdateDeploymentGroup'
- { _udgServiceRoleARN = Nothing
- , _udgEc2TagSet = Nothing
- , _udgDeploymentConfigName = Nothing
- , _udgOnPremisesTagSet = Nothing
- , _udgNewDeploymentGroupName = Nothing
- , _udgEc2TagFilters = Nothing
- , _udgBlueGreenDeploymentConfiguration = Nothing
- , _udgLoadBalancerInfo = Nothing
- , _udgOnPremisesInstanceTagFilters = Nothing
- , _udgAlarmConfiguration = Nothing
- , _udgTriggerConfigurations = Nothing
- , _udgAutoScalingGroups = Nothing
- , _udgDeploymentStyle = Nothing
- , _udgAutoRollbackConfiguration = Nothing
- , _udgApplicationName = pApplicationName_
- , _udgCurrentDeploymentGroupName = pCurrentDeploymentGroupName_
- }
+ { _udgServiceRoleARN = Nothing
+ , _udgEc2TagSet = Nothing
+ , _udgDeploymentConfigName = Nothing
+ , _udgOnPremisesTagSet = Nothing
+ , _udgNewDeploymentGroupName = Nothing
+ , _udgEc2TagFilters = Nothing
+ , _udgBlueGreenDeploymentConfiguration = Nothing
+ , _udgLoadBalancerInfo = Nothing
+ , _udgOnPremisesInstanceTagFilters = Nothing
+ , _udgAlarmConfiguration = Nothing
+ , _udgTriggerConfigurations = Nothing
+ , _udgAutoScalingGroups = Nothing
+ , _udgDeploymentStyle = Nothing
+ , _udgAutoRollbackConfiguration = Nothing
+ , _udgApplicationName = pApplicationName_
+ , _udgCurrentDeploymentGroupName = pCurrentDeploymentGroupName_
+ }
-- | A replacement ARN for the service role, if you want to change it.
udgServiceRoleARN :: Lens' UpdateDeploymentGroup (Maybe Text)
-udgServiceRoleARN = lens _udgServiceRoleARN (\ s a -> s{_udgServiceRoleARN = a});
+udgServiceRoleARN = lens _udgServiceRoleARN (\ s a -> s{_udgServiceRoleARN = a})
-- | Information about groups of tags applied to on-premises instances. The deployment group will include only EC2 instances identified by all the tag groups.
udgEc2TagSet :: Lens' UpdateDeploymentGroup (Maybe EC2TagSet)
-udgEc2TagSet = lens _udgEc2TagSet (\ s a -> s{_udgEc2TagSet = a});
+udgEc2TagSet = lens _udgEc2TagSet (\ s a -> s{_udgEc2TagSet = a})
-- | The replacement deployment configuration name to use, if you want to change it.
udgDeploymentConfigName :: Lens' UpdateDeploymentGroup (Maybe Text)
-udgDeploymentConfigName = lens _udgDeploymentConfigName (\ s a -> s{_udgDeploymentConfigName = a});
+udgDeploymentConfigName = lens _udgDeploymentConfigName (\ s a -> s{_udgDeploymentConfigName = a})
-- | Information about an on-premises instance tag set. The deployment group will include only on-premises instances identified by all the tag groups.
udgOnPremisesTagSet :: Lens' UpdateDeploymentGroup (Maybe OnPremisesTagSet)
-udgOnPremisesTagSet = lens _udgOnPremisesTagSet (\ s a -> s{_udgOnPremisesTagSet = a});
+udgOnPremisesTagSet = lens _udgOnPremisesTagSet (\ s a -> s{_udgOnPremisesTagSet = a})
-- | The new name of the deployment group, if you want to change it.
udgNewDeploymentGroupName :: Lens' UpdateDeploymentGroup (Maybe Text)
-udgNewDeploymentGroupName = lens _udgNewDeploymentGroupName (\ s a -> s{_udgNewDeploymentGroupName = a});
+udgNewDeploymentGroupName = lens _udgNewDeploymentGroupName (\ s a -> s{_udgNewDeploymentGroupName = a})
-- | The replacement set of Amazon EC2 tags on which to filter, if you want to change them. To keep the existing tags, enter their names. To remove tags, do not enter any tag names.
udgEc2TagFilters :: Lens' UpdateDeploymentGroup [EC2TagFilter]
-udgEc2TagFilters = lens _udgEc2TagFilters (\ s a -> s{_udgEc2TagFilters = a}) . _Default . _Coerce;
+udgEc2TagFilters = lens _udgEc2TagFilters (\ s a -> s{_udgEc2TagFilters = a}) . _Default . _Coerce
-- | Information about blue/green deployment options for a deployment group.
udgBlueGreenDeploymentConfiguration :: Lens' UpdateDeploymentGroup (Maybe BlueGreenDeploymentConfiguration)
-udgBlueGreenDeploymentConfiguration = lens _udgBlueGreenDeploymentConfiguration (\ s a -> s{_udgBlueGreenDeploymentConfiguration = a});
+udgBlueGreenDeploymentConfiguration = lens _udgBlueGreenDeploymentConfiguration (\ s a -> s{_udgBlueGreenDeploymentConfiguration = a})
-- | Information about the load balancer used in a deployment.
udgLoadBalancerInfo :: Lens' UpdateDeploymentGroup (Maybe LoadBalancerInfo)
-udgLoadBalancerInfo = lens _udgLoadBalancerInfo (\ s a -> s{_udgLoadBalancerInfo = a});
+udgLoadBalancerInfo = lens _udgLoadBalancerInfo (\ s a -> s{_udgLoadBalancerInfo = a})
-- | The replacement set of on-premises instance tags on which to filter, if you want to change them. To keep the existing tags, enter their names. To remove tags, do not enter any tag names.
udgOnPremisesInstanceTagFilters :: Lens' UpdateDeploymentGroup [TagFilter]
-udgOnPremisesInstanceTagFilters = lens _udgOnPremisesInstanceTagFilters (\ s a -> s{_udgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce;
+udgOnPremisesInstanceTagFilters = lens _udgOnPremisesInstanceTagFilters (\ s a -> s{_udgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce
-- | Information to add or change about Amazon CloudWatch alarms when the deployment group is updated.
udgAlarmConfiguration :: Lens' UpdateDeploymentGroup (Maybe AlarmConfiguration)
-udgAlarmConfiguration = lens _udgAlarmConfiguration (\ s a -> s{_udgAlarmConfiguration = a});
+udgAlarmConfiguration = lens _udgAlarmConfiguration (\ s a -> s{_udgAlarmConfiguration = a})
-- | Information about triggers to change when the deployment group is updated. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-edit.html Modify Triggers in an AWS CodeDeploy Deployment Group> in the AWS CodeDeploy User Guide.
udgTriggerConfigurations :: Lens' UpdateDeploymentGroup [TriggerConfig]
-udgTriggerConfigurations = lens _udgTriggerConfigurations (\ s a -> s{_udgTriggerConfigurations = a}) . _Default . _Coerce;
+udgTriggerConfigurations = lens _udgTriggerConfigurations (\ s a -> s{_udgTriggerConfigurations = a}) . _Default . _Coerce
-- | The replacement list of Auto Scaling groups to be included in the deployment group, if you want to change them. To keep the Auto Scaling groups, enter their names. To remove Auto Scaling groups, do not enter any Auto Scaling group names.
udgAutoScalingGroups :: Lens' UpdateDeploymentGroup [Text]
-udgAutoScalingGroups = lens _udgAutoScalingGroups (\ s a -> s{_udgAutoScalingGroups = a}) . _Default . _Coerce;
+udgAutoScalingGroups = lens _udgAutoScalingGroups (\ s a -> s{_udgAutoScalingGroups = a}) . _Default . _Coerce
-- | Information about the type of deployment, either in-place or blue/green, you want to run and whether to route deployment traffic behind a load balancer.
udgDeploymentStyle :: Lens' UpdateDeploymentGroup (Maybe DeploymentStyle)
-udgDeploymentStyle = lens _udgDeploymentStyle (\ s a -> s{_udgDeploymentStyle = a});
+udgDeploymentStyle = lens _udgDeploymentStyle (\ s a -> s{_udgDeploymentStyle = a})
-- | Information for an automatic rollback configuration that is added or changed when a deployment group is updated.
udgAutoRollbackConfiguration :: Lens' UpdateDeploymentGroup (Maybe AutoRollbackConfiguration)
-udgAutoRollbackConfiguration = lens _udgAutoRollbackConfiguration (\ s a -> s{_udgAutoRollbackConfiguration = a});
+udgAutoRollbackConfiguration = lens _udgAutoRollbackConfiguration (\ s a -> s{_udgAutoRollbackConfiguration = a})
-- | The application name corresponding to the deployment group to update.
udgApplicationName :: Lens' UpdateDeploymentGroup Text
-udgApplicationName = lens _udgApplicationName (\ s a -> s{_udgApplicationName = a});
+udgApplicationName = lens _udgApplicationName (\ s a -> s{_udgApplicationName = a})
-- | The current name of the deployment group.
udgCurrentDeploymentGroupName :: Lens' UpdateDeploymentGroup Text
-udgCurrentDeploymentGroupName = lens _udgCurrentDeploymentGroupName (\ s a -> s{_udgCurrentDeploymentGroupName = a});
+udgCurrentDeploymentGroupName = lens _udgCurrentDeploymentGroupName (\ s a -> s{_udgCurrentDeploymentGroupName = a})
instance AWSRequest UpdateDeploymentGroup where
type Rs UpdateDeploymentGroup =
@@ -291,15 +291,15 @@ updateDeploymentGroupResponse
-> UpdateDeploymentGroupResponse
updateDeploymentGroupResponse pResponseStatus_ =
UpdateDeploymentGroupResponse'
- {_udgrsHooksNotCleanedUp = Nothing, _udgrsResponseStatus = pResponseStatus_}
+ {_udgrsHooksNotCleanedUp = Nothing, _udgrsResponseStatus = pResponseStatus_}
-- | If the output contains no data, and the corresponding deployment group contained at least one Auto Scaling group, AWS CodeDeploy successfully removed all corresponding Auto Scaling lifecycle event hooks from the AWS account. If the output contains data, AWS CodeDeploy could not remove some Auto Scaling lifecycle event hooks from the AWS account.
udgrsHooksNotCleanedUp :: Lens' UpdateDeploymentGroupResponse [AutoScalingGroup]
-udgrsHooksNotCleanedUp = lens _udgrsHooksNotCleanedUp (\ s a -> s{_udgrsHooksNotCleanedUp = a}) . _Default . _Coerce;
+udgrsHooksNotCleanedUp = lens _udgrsHooksNotCleanedUp (\ s a -> s{_udgrsHooksNotCleanedUp = a}) . _Default . _Coerce
-- | -- | The response status code.
udgrsResponseStatus :: Lens' UpdateDeploymentGroupResponse Int
-udgrsResponseStatus = lens _udgrsResponseStatus (\ s a -> s{_udgrsResponseStatus = a});
+udgrsResponseStatus = lens _udgrsResponseStatus (\ s a -> s{_udgrsResponseStatus = a})
instance NFData UpdateDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/Waiters.hs b/gen/Network/AWS/CodeDeploy/Waiters.hs
index 21cb61f..b6eebdb 100644
--- a/gen/Network/AWS/CodeDeploy/Waiters.hs
+++ b/gen/Network/AWS/CodeDeploy/Waiters.hs
@@ -7,7 +7,7 @@
-- |
-- Module : Network.AWS.CodeDeploy.Waiters
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -25,22 +25,22 @@ import Network.AWS.Waiter
deploymentSuccessful :: Wait GetDeployment
deploymentSuccessful =
Wait
- { _waitName = "DeploymentSuccessful"
- , _waitAttempts = 120
- , _waitDelay = 15
- , _waitAcceptors =
- [ matchAll
- "Succeeded"
- AcceptSuccess
- (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
- , matchAll
- "Failed"
- AcceptFailure
- (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
- , matchAll
- "Stopped"
- AcceptFailure
- (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
- ]
- }
+ { _waitName = "DeploymentSuccessful"
+ , _waitAttempts = 120
+ , _waitDelay = 15
+ , _waitAcceptors =
+ [ matchAll
+ "Succeeded"
+ AcceptSuccess
+ (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
+ , matchAll
+ "Failed"
+ AcceptFailure
+ (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
+ , matchAll
+ "Stopped"
+ AcceptFailure
+ (gdrsDeploymentInfo . _Just . diStatus . _Just . to toTextCI)
+ ]
+ }
diff --git a/test/Main.hs b/test/Main.hs
index 33b0056..1bdaded 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,7 +2,7 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
diff --git a/test/Test/AWS/CodeDeploy.hs b/test/Test/AWS/CodeDeploy.hs
index 817efb5..13537bd 100644
--- a/test/Test/AWS/CodeDeploy.hs
+++ b/test/Test/AWS/CodeDeploy.hs
@@ -1,7 +1,7 @@
{-# LANGUAGE OverloadedStrings #-}
-- Module : Test.AWS.CodeDeploy
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/CodeDeploy/Internal.hs b/test/Test/AWS/CodeDeploy/Internal.hs
index 0d38f10..f30aeee 100644
--- a/test/Test/AWS/CodeDeploy/Internal.hs
+++ b/test/Test/AWS/CodeDeploy/Internal.hs
@@ -2,7 +2,7 @@
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
-- Module : Test.AWS.CodeDeploy.Internal
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : This Source Code Form is subject to the terms of
-- the Mozilla Public License, v. 2.0.
-- A copy of the MPL can be found in the LICENSE file or
diff --git a/test/Test/AWS/Gen/CodeDeploy.hs b/test/Test/AWS/Gen/CodeDeploy.hs
index 5d84633..353ecf5 100644
--- a/test/Test/AWS/Gen/CodeDeploy.hs
+++ b/test/Test/AWS/Gen/CodeDeploy.hs
@@ -5,7 +5,7 @@
-- |
-- Module : Test.AWS.Gen.CodeDeploy
--- Copyright : (c) 2013-2017 Brendan Hay
+-- Copyright : (c) 2013-2018 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
@@ -85,12 +85,18 @@ import Test.Tasty
-- , requestUpdateApplication $
-- updateApplication
--
+-- , requestDeleteGitHubAccountToken $
+-- deleteGitHubAccountToken
+--
-- , requestGetDeploymentInstance $
-- getDeploymentInstance
--
-- , requestDeregisterOnPremisesInstance $
-- deregisterOnPremisesInstance
--
+-- , requestPutLifecycleEventHookExecutionStatus $
+-- putLifecycleEventHookExecutionStatus
+--
-- , requestCreateApplication $
-- createApplication
--
@@ -202,12 +208,18 @@ import Test.Tasty
-- , responseUpdateApplication $
-- updateApplicationResponse
--
+-- , responseDeleteGitHubAccountToken $
+-- deleteGitHubAccountTokenResponse
+--
-- , responseGetDeploymentInstance $
-- getDeploymentInstanceResponse
--
-- , responseDeregisterOnPremisesInstance $
-- deregisterOnPremisesInstanceResponse
--
+-- , responsePutLifecycleEventHookExecutionStatus $
+-- putLifecycleEventHookExecutionStatusResponse
+--
-- , responseCreateApplication $
-- createApplicationResponse
--
@@ -359,6 +371,11 @@ requestUpdateApplication = req
"UpdateApplication"
"fixture/UpdateApplication.yaml"
+requestDeleteGitHubAccountToken :: DeleteGitHubAccountToken -> TestTree
+requestDeleteGitHubAccountToken = req
+ "DeleteGitHubAccountToken"
+ "fixture/DeleteGitHubAccountToken.yaml"
+
requestGetDeploymentInstance :: GetDeploymentInstance -> TestTree
requestGetDeploymentInstance = req
"GetDeploymentInstance"
@@ -369,6 +386,11 @@ requestDeregisterOnPremisesInstance = req
"DeregisterOnPremisesInstance"
"fixture/DeregisterOnPremisesInstance.yaml"
+requestPutLifecycleEventHookExecutionStatus :: PutLifecycleEventHookExecutionStatus -> TestTree
+requestPutLifecycleEventHookExecutionStatus = req
+ "PutLifecycleEventHookExecutionStatus"
+ "fixture/PutLifecycleEventHookExecutionStatus.yaml"
+
requestCreateApplication :: CreateApplication -> TestTree
requestCreateApplication = req
"CreateApplication"
@@ -589,6 +611,13 @@ responseUpdateApplication = res
codeDeploy
(Proxy :: Proxy UpdateApplication)
+responseDeleteGitHubAccountToken :: DeleteGitHubAccountTokenResponse -> TestTree
+responseDeleteGitHubAccountToken = res
+ "DeleteGitHubAccountTokenResponse"
+ "fixture/DeleteGitHubAccountTokenResponse.proto"
+ codeDeploy
+ (Proxy :: Proxy DeleteGitHubAccountToken)
+
responseGetDeploymentInstance :: GetDeploymentInstanceResponse -> TestTree
responseGetDeploymentInstance = res
"GetDeploymentInstanceResponse"
@@ -603,6 +632,13 @@ responseDeregisterOnPremisesInstance = res
codeDeploy
(Proxy :: Proxy DeregisterOnPremisesInstance)
+responsePutLifecycleEventHookExecutionStatus :: PutLifecycleEventHookExecutionStatusResponse -> TestTree
+responsePutLifecycleEventHookExecutionStatus = res
+ "PutLifecycleEventHookExecutionStatusResponse"
+ "fixture/PutLifecycleEventHookExecutionStatusResponse.proto"
+ codeDeploy
+ (Proxy :: Proxy PutLifecycleEventHookExecutionStatus)
+
responseCreateApplication :: CreateApplicationResponse -> TestTree
responseCreateApplication = res
"CreateApplicationResponse"