summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBrendanHay <>2017-11-15 08:24:00 (GMT)
committerhdiff <hdiff@hdiff.luite.com>2017-11-15 08:24:00 (GMT)
commit71bec44ba4f65975e63bae39f46005fbae8c6c12 (patch)
treef5ca2b15c479ef0651cdb9e5cd7485cb1a2f0d85
parent2277d8bc35d6e07f3344bb2a080010fb6ed1e7fa (diff)
version 1.5.01.5.0
-rw-r--r--README.md2
-rw-r--r--amazonka-codedeploy.cabal30
-rw-r--r--fixture/ContinueDeployment.yaml10
-rw-r--r--fixture/ContinueDeploymentResponse.proto0
-rw-r--r--fixture/ListGitHubAccountTokenNames.yaml10
-rw-r--r--fixture/ListGitHubAccountTokenNamesResponse.proto0
-rw-r--r--fixture/SkipWaitTimeForInstanceTermination.yaml10
-rw-r--r--fixture/SkipWaitTimeForInstanceTerminationResponse.proto0
-rw-r--r--gen/Network/AWS/CodeDeploy.hs301
-rw-r--r--gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs41
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs63
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetApplications.hs51
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs61
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs59
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs51
-rw-r--r--gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs49
-rw-r--r--gen/Network/AWS/CodeDeploy/ContinueDeployment.hs108
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateApplication.hs50
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeployment.hs100
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs78
-rw-r--r--gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs155
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteApplication.hs40
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs40
-rw-r--r--gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs56
-rw-r--r--gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs39
-rw-r--r--gen/Network/AWS/CodeDeploy/GetApplication.hs50
-rw-r--r--gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs64
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeployment.hs51
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs52
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs56
-rw-r--r--gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs54
-rw-r--r--gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs50
-rw-r--r--gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs91
-rw-r--r--gen/Network/AWS/CodeDeploy/ListApplications.hs67
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs67
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs74
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs118
-rw-r--r--gen/Network/AWS/CodeDeploy/ListDeployments.hs84
-rw-r--r--gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs155
-rw-r--r--gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs64
-rw-r--r--gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs49
-rw-r--r--gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs74
-rw-r--r--gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs45
-rw-r--r--gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs123
-rw-r--r--gen/Network/AWS/CodeDeploy/StopDeployment.hs60
-rw-r--r--gen/Network/AWS/CodeDeploy/Types.hs531
-rw-r--r--gen/Network/AWS/CodeDeploy/Types/Product.hs1535
-rw-r--r--gen/Network/AWS/CodeDeploy/Types/Sum.hs453
-rw-r--r--gen/Network/AWS/CodeDeploy/UpdateApplication.hs44
-rw-r--r--gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs143
-rw-r--r--gen/Network/AWS/CodeDeploy/Waiters.hs54
-rw-r--r--test/Main.hs4
-rw-r--r--test/Test/AWS/Gen/CodeDeploy.hs62
53 files changed, 3996 insertions, 1682 deletions
diff --git a/README.md b/README.md
index 73fe6c4..a29381b 100644
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
## Version
-`1.4.5`
+`1.5.0`
## Description
diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal
index 44ba45e..51a411f 100644
--- a/amazonka-codedeploy.cabal
+++ b/amazonka-codedeploy.cabal
@@ -1,13 +1,13 @@
name: amazonka-codedeploy
-version: 1.4.5
+version: 1.5.0
synopsis: Amazon CodeDeploy SDK.
homepage: https://github.com/brendanhay/amazonka
bug-reports: https://github.com/brendanhay/amazonka/issues
-license: OtherLicense
+license: MPL-2.0
license-file: LICENSE
author: Brendan Hay
-maintainer: Brendan Hay <brendan.g.hay@gmail.com>
-copyright: Copyright (c) 2013-2016 Brendan Hay
+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>
+copyright: Copyright (c) 2013-2017 Brendan Hay
category: Network, AWS, Cloud, Distributed Computing
build-type: Simple
cabal-version: >= 1.10
@@ -29,14 +29,19 @@ description:
to get started.
source-repository head
- type: git
- location: git://github.com/brendanhay/amazonka.git
+ type: git
+ location: git://github.com/brendanhay/amazonka.git
+ subdir: amazonka-codedeploy
library
default-language: Haskell2010
hs-source-dirs: src gen
- ghc-options: -Wall
+ ghc-options:
+ -Wall
+ -fwarn-incomplete-uni-patterns
+ -fwarn-incomplete-record-updates
+ -funbox-strict-fields
exposed-modules:
Network.AWS.CodeDeploy
@@ -47,6 +52,7 @@ library
, Network.AWS.CodeDeploy.BatchGetDeploymentInstances
, Network.AWS.CodeDeploy.BatchGetDeployments
, Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
+ , Network.AWS.CodeDeploy.ContinueDeployment
, Network.AWS.CodeDeploy.CreateApplication
, Network.AWS.CodeDeploy.CreateDeployment
, Network.AWS.CodeDeploy.CreateDeploymentConfig
@@ -68,10 +74,12 @@ library
, Network.AWS.CodeDeploy.ListDeploymentGroups
, Network.AWS.CodeDeploy.ListDeploymentInstances
, Network.AWS.CodeDeploy.ListDeployments
+ , Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
, Network.AWS.CodeDeploy.ListOnPremisesInstances
, Network.AWS.CodeDeploy.RegisterApplicationRevision
, Network.AWS.CodeDeploy.RegisterOnPremisesInstance
, Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
+ , Network.AWS.CodeDeploy.SkipWaitTimeForInstanceTermination
, Network.AWS.CodeDeploy.StopDeployment
, Network.AWS.CodeDeploy.Types
, Network.AWS.CodeDeploy.UpdateApplication
@@ -83,7 +91,7 @@ library
, Network.AWS.CodeDeploy.Types.Sum
build-depends:
- amazonka-core == 1.4.5.*
+ amazonka-core == 1.5.0.*
, base >= 4.7 && < 5
test-suite amazonka-codedeploy-test
@@ -103,9 +111,9 @@ test-suite amazonka-codedeploy-test
, Test.AWS.CodeDeploy.Internal
build-depends:
- amazonka-core == 1.4.5.*
- , amazonka-test == 1.4.5.*
- , amazonka-codedeploy == 1.4.5.*
+ amazonka-core == 1.5.0.*
+ , amazonka-test == 1.5.0.*
+ , amazonka-codedeploy
, base
, bytestring
, tasty
diff --git a/fixture/ContinueDeployment.yaml b/fixture/ContinueDeployment.yaml
new file mode 100644
index 0000000..cf3d81d
--- /dev/null
+++ b/fixture/ContinueDeployment.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/ContinueDeploymentResponse.proto b/fixture/ContinueDeploymentResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ContinueDeploymentResponse.proto
diff --git a/fixture/ListGitHubAccountTokenNames.yaml b/fixture/ListGitHubAccountTokenNames.yaml
new file mode 100644
index 0000000..cf3d81d
--- /dev/null
+++ b/fixture/ListGitHubAccountTokenNames.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/ListGitHubAccountTokenNamesResponse.proto b/fixture/ListGitHubAccountTokenNamesResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/ListGitHubAccountTokenNamesResponse.proto
diff --git a/fixture/SkipWaitTimeForInstanceTermination.yaml b/fixture/SkipWaitTimeForInstanceTermination.yaml
new file mode 100644
index 0000000..cf3d81d
--- /dev/null
+++ b/fixture/SkipWaitTimeForInstanceTermination.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/SkipWaitTimeForInstanceTerminationResponse.proto b/fixture/SkipWaitTimeForInstanceTerminationResponse.proto
new file mode 100644
index 0000000..e69de29
--- /dev/null
+++ b/fixture/SkipWaitTimeForInstanceTerminationResponse.proto
diff --git a/gen/Network/AWS/CodeDeploy.hs b/gen/Network/AWS/CodeDeploy.hs
index d4aa0c6..ddeff28 100644
--- a/gen/Network/AWS/CodeDeploy.hs
+++ b/gen/Network/AWS/CodeDeploy.hs
@@ -5,45 +5,47 @@
-- |
-- Module : Network.AWS.CodeDeploy
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- __AWS CodeDeploy__
--
--- __Overview__
+-- AWS CodeDeploy is a deployment service that automates application deployments to Amazon EC2 instances or on-premises instances running in your own facility.
--
--- This reference guide provides descriptions of the AWS CodeDeploy APIs. For more information about AWS CodeDeploy, see the <http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide> .
+-- 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.
--
--- __Using the APIs__
+-- 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.
--
--- You can use the AWS CodeDeploy APIs to work with the following:
+-- __AWS CodeDeploy Components__
--
--- * Applications are unique identifiers used by AWS CodeDeploy to ensure the correct combinations of revisions, deployment configurations, and deployment groups are being referenced during deployments.
+-- Use the information in this guide to help you work with the following AWS CodeDeploy components:
--
--- You can use the AWS CodeDeploy APIs to create, delete, get, list, and update applications.
+-- * __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 configurations are sets of deployment rules and success and failure conditions used by AWS CodeDeploy during deployments.
+-- * __Deployment group__ : A set of individual instances. A deployment group contains individually tagged instances, Amazon EC2 instances in Auto Scaling groups, or both.
--
--- You can use the AWS CodeDeploy APIs to create, delete, get, and list deployment configurations.
+-- * __Deployment configuration__ : A set of deployment rules and deployment success and failure conditions used by AWS CodeDeploy during a deployment.
--
--- * Deployment groups are groups of instances to which application revisions can be deployed.
+-- * __Deployment__ : The process, and the components involved in the process, of installing content on one or more instances.
--
--- You can use the AWS CodeDeploy APIs to create, delete, get, list, and update deployment groups.
+-- * __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.
--
--- * Instances represent Amazon EC2 instances to which application revisions are deployed. Instances are identified by their Amazon EC2 tags or Auto Scaling group names. Instances belong to deployment groups.
--
--- You can use the AWS CodeDeploy APIs to get and list instance.
--
--- * Deployments represent the process of deploying revisions to instances.
+-- 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.
--
--- You can use the AWS CodeDeploy APIs to create, get, list, and stop deployments.
+-- __AWS CodeDeploy Information Resources__
--
--- * Application revisions are archive files stored in Amazon S3 buckets or GitHub repositories. These revisions contain source content (such as source code, web pages, executable files, and deployment scripts) along with an application specification (AppSpec) file. (The AppSpec file is unique to AWS CodeDeploy; it defines the deployment actions you want AWS CodeDeploy to execute.) For application revisions stored in Amazon S3 buckets, an application revision is uniquely identified by its Amazon S3 object key and its ETag, version, or both. For application revisions stored in GitHub repositories, an application revision is uniquely identified by its repository name and commit ID. Application revisions are deployed through deployment groups.
+-- * <http://docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>
--
--- You can use the AWS CodeDeploy APIs to get, list, and register application revisions.
+-- * <http://docs.aws.amazon.com/codedeploy/latest/APIReference/ AWS CodeDeploy API Reference Guide>
+--
+-- * <http://docs.aws.amazon.com/cli/latest/reference/deploy/index.html AWS CLI Reference for AWS CodeDeploy>
+--
+-- * <https://forums.aws.amazon.com/forum.jspa?forumID=179 AWS CodeDeploy Developer Forum>
--
--
--
@@ -64,6 +66,9 @@ module Network.AWS.CodeDeploy
-- ** InvalidTagException
, _InvalidTagException
+ -- ** InvalidFileExistsBehaviorException
+ , _InvalidFileExistsBehaviorException
+
-- ** InvalidAlarmConfigException
, _InvalidAlarmConfigException
@@ -76,12 +81,21 @@ module Network.AWS.CodeDeploy
-- ** InvalidDeploymentGroupNameException
, _InvalidDeploymentGroupNameException
+ -- ** InvalidInstanceTypeException
+ , _InvalidInstanceTypeException
+
+ -- ** IAMSessionARNAlreadyRegisteredException
+ , _IAMSessionARNAlreadyRegisteredException
+
-- ** DescriptionTooLongException
, _DescriptionTooLongException
-- ** InvalidIAMUserARNException
, _InvalidIAMUserARNException
+ -- ** InvalidOnPremisesTagCombinationException
+ , _InvalidOnPremisesTagCombinationException
+
-- ** DeploymentNotStartedException
, _DeploymentNotStartedException
@@ -91,21 +105,36 @@ module Network.AWS.CodeDeploy
-- ** RoleRequiredException
, _RoleRequiredException
+ -- ** InvalidLoadBalancerInfoException
+ , _InvalidLoadBalancerInfoException
+
+ -- ** InvalidBlueGreenDeploymentConfigurationException
+ , _InvalidBlueGreenDeploymentConfigurationException
+
-- ** InvalidRoleException
, _InvalidRoleException
-- ** DeploymentConfigAlreadyExistsException
, _DeploymentConfigAlreadyExistsException
+ -- ** InvalidTargetInstancesException
+ , _InvalidTargetInstancesException
+
-- ** DeploymentLimitExceededException
, _DeploymentLimitExceededException
-- ** IAMUserARNAlreadyRegisteredException
, _IAMUserARNAlreadyRegisteredException
+ -- ** InvalidIAMSessionARNException
+ , _InvalidIAMSessionARNException
+
-- ** InstanceLimitExceededException
, _InstanceLimitExceededException
+ -- ** InvalidDeploymentStyleException
+ , _InvalidDeploymentStyleException
+
-- ** InvalidDeployedStateFilterException
, _InvalidDeployedStateFilterException
@@ -115,12 +144,24 @@ module Network.AWS.CodeDeploy
-- ** InvalidApplicationNameException
, _InvalidApplicationNameException
+ -- ** GitHubAccountTokenDoesNotExistException
+ , _GitHubAccountTokenDoesNotExistException
+
-- ** ApplicationDoesNotExistException
, _ApplicationDoesNotExistException
-- ** InvalidMinimumHealthyHostValueException
, _InvalidMinimumHealthyHostValueException
+ -- ** UnsupportedActionForDeploymentTypeException
+ , _UnsupportedActionForDeploymentTypeException
+
+ -- ** ResourceValidationException
+ , _ResourceValidationException
+
+ -- ** InvalidEC2TagCombinationException
+ , _InvalidEC2TagCombinationException
+
-- ** AlarmsLimitExceededException
, _AlarmsLimitExceededException
@@ -169,6 +210,9 @@ module Network.AWS.CodeDeploy
-- ** DeploymentIdRequiredException
, _DeploymentIdRequiredException
+ -- ** DeploymentIsNotInReadyStateException
+ , _DeploymentIsNotInReadyStateException
+
-- ** InvalidNextTokenException
, _InvalidNextTokenException
@@ -214,6 +258,9 @@ module Network.AWS.CodeDeploy
-- ** InstanceNameRequiredException
, _InstanceNameRequiredException
+ -- ** MultipleIAMARNsProvidedException
+ , _MultipleIAMARNsProvidedException
+
-- ** TriggerTargetsLimitExceededException
, _TriggerTargetsLimitExceededException
@@ -241,9 +288,18 @@ module Network.AWS.CodeDeploy
-- ** ApplicationLimitExceededException
, _ApplicationLimitExceededException
+ -- ** TagSetListLimitExceededException
+ , _TagSetListLimitExceededException
+
-- ** InvalidOperationException
, _InvalidOperationException
+ -- ** InvalidDeploymentInstanceTypeException
+ , _InvalidDeploymentInstanceTypeException
+
+ -- ** IAMARNRequiredException
+ , _IAMARNRequiredException
+
-- ** InvalidKeyPrefixFilterException
, _InvalidKeyPrefixFilterException
@@ -301,6 +357,9 @@ module Network.AWS.CodeDeploy
-- ** RegisterApplicationRevision
, module Network.AWS.CodeDeploy.RegisterApplicationRevision
+ -- ** ContinueDeployment
+ , module Network.AWS.CodeDeploy.ContinueDeployment
+
-- ** BatchGetApplications
, module Network.AWS.CodeDeploy.BatchGetApplications
@@ -322,13 +381,19 @@ module Network.AWS.CodeDeploy
-- ** StopDeployment
, module Network.AWS.CodeDeploy.StopDeployment
+ -- ** ListGitHubAccountTokenNames
+ , module Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
+
-- ** BatchGetDeploymentInstances
, module Network.AWS.CodeDeploy.BatchGetDeploymentInstances
+ -- ** SkipWaitTimeForInstanceTermination
+ , module Network.AWS.CodeDeploy.SkipWaitTimeForInstanceTermination
+
-- ** GetApplication
, module Network.AWS.CodeDeploy.GetApplication
- -- ** ListDeploymentGroups
+ -- ** ListDeploymentGroups (Paginated)
, module Network.AWS.CodeDeploy.ListDeploymentGroups
-- ** BatchGetOnPremisesInstances
@@ -340,25 +405,25 @@ module Network.AWS.CodeDeploy
-- ** CreateDeploymentGroup
, module Network.AWS.CodeDeploy.CreateDeploymentGroup
- -- ** ListDeploymentConfigs
+ -- ** ListDeploymentConfigs (Paginated)
, module Network.AWS.CodeDeploy.ListDeploymentConfigs
-- ** GetDeploymentGroup
, module Network.AWS.CodeDeploy.GetDeploymentGroup
- -- ** ListDeployments
+ -- ** ListDeployments (Paginated)
, module Network.AWS.CodeDeploy.ListDeployments
- -- ** ListApplicationRevisions
+ -- ** ListApplicationRevisions (Paginated)
, module Network.AWS.CodeDeploy.ListApplicationRevisions
- -- ** ListApplications
+ -- ** ListApplications (Paginated)
, module Network.AWS.CodeDeploy.ListApplications
-- ** AddTagsToOnPremisesInstances
, module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
- -- ** ListDeploymentInstances
+ -- ** ListDeploymentInstances (Paginated)
, module Network.AWS.CodeDeploy.ListDeploymentInstances
-- * Types
@@ -378,15 +443,36 @@ module Network.AWS.CodeDeploy
-- ** DeploymentCreator
, DeploymentCreator (..)
+ -- ** DeploymentOption
+ , DeploymentOption (..)
+
+ -- ** DeploymentReadyAction
+ , DeploymentReadyAction (..)
+
-- ** DeploymentStatus
, DeploymentStatus (..)
+ -- ** DeploymentType
+ , DeploymentType (..)
+
-- ** EC2TagFilterType
, EC2TagFilterType (..)
+ -- ** FileExistsBehavior
+ , FileExistsBehavior (..)
+
+ -- ** GreenFleetProvisioningAction
+ , GreenFleetProvisioningAction (..)
+
+ -- ** InstanceAction
+ , InstanceAction (..)
+
-- ** InstanceStatus
, InstanceStatus (..)
+ -- ** InstanceType
+ , InstanceType (..)
+
-- ** LifecycleErrorCode
, LifecycleErrorCode (..)
@@ -435,6 +521,7 @@ module Network.AWS.CodeDeploy
, aiLinkedToGitHub
, aiApplicationId
, aiApplicationName
+ , aiGitHubAccountName
, aiCreateTime
-- ** AutoRollbackConfiguration
@@ -449,6 +536,19 @@ module Network.AWS.CodeDeploy
, asgHook
, asgName
+ -- ** BlueGreenDeploymentConfiguration
+ , BlueGreenDeploymentConfiguration
+ , blueGreenDeploymentConfiguration
+ , bgdcDeploymentReadyOption
+ , bgdcGreenFleetProvisioningOption
+ , bgdcTerminateBlueInstancesOnDeploymentSuccess
+
+ -- ** BlueInstanceTerminationOption
+ , BlueInstanceTerminationOption
+ , blueInstanceTerminationOption
+ , bitoAction
+ , bitoTerminationWaitTimeInMinutes
+
-- ** DeploymentConfigInfo
, DeploymentConfigInfo
, deploymentConfigInfo
@@ -461,15 +561,22 @@ module Network.AWS.CodeDeploy
, DeploymentGroupInfo
, deploymentGroupInfo
, dgiServiceRoleARN
+ , dgiEc2TagSet
, dgiDeploymentConfigName
+ , dgiLastAttemptedDeployment
+ , dgiOnPremisesTagSet
, dgiTargetRevision
, dgiEc2TagFilters
+ , dgiBlueGreenDeploymentConfiguration
+ , dgiLoadBalancerInfo
, dgiOnPremisesInstanceTagFilters
+ , dgiLastSuccessfulDeployment
, dgiApplicationName
, dgiAlarmConfiguration
, dgiTriggerConfigurations
, dgiDeploymentGroupId
, dgiAutoScalingGroups
+ , dgiDeploymentStyle
, dgiAutoRollbackConfiguration
, dgiDeploymentGroupName
@@ -480,14 +587,22 @@ module Network.AWS.CodeDeploy
, diStatus
, diDeploymentId
, diDeploymentConfigName
+ , diPreviousRevision
+ , diInstanceTerminationWaitTimeStarted
, diStartTime
, diCompleteTime
+ , diBlueGreenDeploymentConfiguration
, diErrorInformation
+ , diLoadBalancerInfo
+ , diAdditionalDeploymentStatusInfo
, diDeploymentOverview
+ , diFileExistsBehavior
, diApplicationName
, diRollbackInfo
+ , diTargetInstances
, diRevision
, diDescription
+ , diDeploymentStyle
, diCreateTime
, diAutoRollbackConfiguration
, diUpdateOutdatedInstancesOnly
@@ -501,8 +616,21 @@ module Network.AWS.CodeDeploy
, doSkipped
, doInProgress
, doSucceeded
+ , doReady
, doFailed
+ -- ** DeploymentReadyOption
+ , DeploymentReadyOption
+ , deploymentReadyOption
+ , droActionOnTimeout
+ , droWaitTimeInMinutes
+
+ -- ** DeploymentStyle
+ , DeploymentStyle
+ , deploymentStyle
+ , dsDeploymentOption
+ , dsDeploymentType
+
-- ** Diagnostics
, Diagnostics
, diagnostics
@@ -518,6 +646,16 @@ module Network.AWS.CodeDeploy
, etfKey
, etfType
+ -- ** EC2TagSet
+ , EC2TagSet
+ , ec2TagSet
+ , etsEc2TagSetList
+
+ -- ** ELBInfo
+ , ELBInfo
+ , eLBInfo
+ , elbiName
+
-- ** ErrorInformation
, ErrorInformation
, errorInformation
@@ -539,6 +677,11 @@ module Network.AWS.CodeDeploy
, ghlCommitId
, ghlRepository
+ -- ** GreenFleetProvisioningOption
+ , GreenFleetProvisioningOption
+ , greenFleetProvisioningOption
+ , gfpoAction
+
-- ** InstanceInfo
, InstanceInfo
, instanceInfo
@@ -547,6 +690,7 @@ module Network.AWS.CodeDeploy
, iiDeregisterTime
, iiIamUserARN
, iiInstanceName
+ , iiIamSessionARN
, iiTags
-- ** InstanceSummary
@@ -557,6 +701,15 @@ module Network.AWS.CodeDeploy
, isDeploymentId
, isLastUpdatedAt
, isLifecycleEvents
+ , isInstanceType
+
+ -- ** LastDeploymentInfo
+ , LastDeploymentInfo
+ , lastDeploymentInfo
+ , ldiStatus
+ , ldiDeploymentId
+ , ldiEndTime
+ , ldiCreateTime
-- ** LifecycleEvent
, LifecycleEvent
@@ -567,12 +720,23 @@ module Network.AWS.CodeDeploy
, leDiagnostics
, leEndTime
+ -- ** LoadBalancerInfo
+ , LoadBalancerInfo
+ , loadBalancerInfo
+ , lbiElbInfoList
+ , lbiTargetGroupInfoList
+
-- ** MinimumHealthyHosts
, MinimumHealthyHosts
, minimumHealthyHosts
, mhhValue
, mhhType
+ -- ** OnPremisesTagSet
+ , OnPremisesTagSet
+ , onPremisesTagSet
+ , optsOnPremisesTagSetList
+
-- ** RevisionInfo
, RevisionInfo
, revisionInfo
@@ -615,6 +779,18 @@ module Network.AWS.CodeDeploy
, tfKey
, tfType
+ -- ** TargetGroupInfo
+ , TargetGroupInfo
+ , targetGroupInfo
+ , tgiName
+
+ -- ** TargetInstances
+ , TargetInstances
+ , targetInstances
+ , tiEc2TagSet
+ , tiTagFilters
+ , tiAutoScalingGroups
+
-- ** TimeRange
, TimeRange
, timeRange
@@ -629,43 +805,46 @@ module Network.AWS.CodeDeploy
, tcTriggerTargetARN
) where
-import Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
-import Network.AWS.CodeDeploy.BatchGetApplicationRevisions
-import Network.AWS.CodeDeploy.BatchGetApplications
-import Network.AWS.CodeDeploy.BatchGetDeploymentGroups
-import Network.AWS.CodeDeploy.BatchGetDeploymentInstances
-import Network.AWS.CodeDeploy.BatchGetDeployments
-import Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
-import Network.AWS.CodeDeploy.CreateApplication
-import Network.AWS.CodeDeploy.CreateDeployment
-import Network.AWS.CodeDeploy.CreateDeploymentConfig
-import Network.AWS.CodeDeploy.CreateDeploymentGroup
-import Network.AWS.CodeDeploy.DeleteApplication
-import Network.AWS.CodeDeploy.DeleteDeploymentConfig
-import Network.AWS.CodeDeploy.DeleteDeploymentGroup
-import Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
-import Network.AWS.CodeDeploy.GetApplication
-import Network.AWS.CodeDeploy.GetApplicationRevision
-import Network.AWS.CodeDeploy.GetDeployment
-import Network.AWS.CodeDeploy.GetDeploymentConfig
-import Network.AWS.CodeDeploy.GetDeploymentGroup
-import Network.AWS.CodeDeploy.GetDeploymentInstance
-import Network.AWS.CodeDeploy.GetOnPremisesInstance
-import Network.AWS.CodeDeploy.ListApplicationRevisions
-import Network.AWS.CodeDeploy.ListApplications
-import Network.AWS.CodeDeploy.ListDeploymentConfigs
-import Network.AWS.CodeDeploy.ListDeploymentGroups
-import Network.AWS.CodeDeploy.ListDeploymentInstances
-import Network.AWS.CodeDeploy.ListDeployments
-import Network.AWS.CodeDeploy.ListOnPremisesInstances
-import Network.AWS.CodeDeploy.RegisterApplicationRevision
-import Network.AWS.CodeDeploy.RegisterOnPremisesInstance
-import Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
-import Network.AWS.CodeDeploy.StopDeployment
-import Network.AWS.CodeDeploy.Types
-import Network.AWS.CodeDeploy.UpdateApplication
-import Network.AWS.CodeDeploy.UpdateDeploymentGroup
-import Network.AWS.CodeDeploy.Waiters
+import Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
+import Network.AWS.CodeDeploy.BatchGetApplicationRevisions
+import Network.AWS.CodeDeploy.BatchGetApplications
+import Network.AWS.CodeDeploy.BatchGetDeploymentGroups
+import Network.AWS.CodeDeploy.BatchGetDeploymentInstances
+import Network.AWS.CodeDeploy.BatchGetDeployments
+import Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
+import Network.AWS.CodeDeploy.ContinueDeployment
+import Network.AWS.CodeDeploy.CreateApplication
+import Network.AWS.CodeDeploy.CreateDeployment
+import Network.AWS.CodeDeploy.CreateDeploymentConfig
+import Network.AWS.CodeDeploy.CreateDeploymentGroup
+import Network.AWS.CodeDeploy.DeleteApplication
+import Network.AWS.CodeDeploy.DeleteDeploymentConfig
+import Network.AWS.CodeDeploy.DeleteDeploymentGroup
+import Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
+import Network.AWS.CodeDeploy.GetApplication
+import Network.AWS.CodeDeploy.GetApplicationRevision
+import Network.AWS.CodeDeploy.GetDeployment
+import Network.AWS.CodeDeploy.GetDeploymentConfig
+import Network.AWS.CodeDeploy.GetDeploymentGroup
+import Network.AWS.CodeDeploy.GetDeploymentInstance
+import Network.AWS.CodeDeploy.GetOnPremisesInstance
+import Network.AWS.CodeDeploy.ListApplicationRevisions
+import Network.AWS.CodeDeploy.ListApplications
+import Network.AWS.CodeDeploy.ListDeploymentConfigs
+import Network.AWS.CodeDeploy.ListDeploymentGroups
+import Network.AWS.CodeDeploy.ListDeploymentInstances
+import Network.AWS.CodeDeploy.ListDeployments
+import Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
+import Network.AWS.CodeDeploy.ListOnPremisesInstances
+import Network.AWS.CodeDeploy.RegisterApplicationRevision
+import Network.AWS.CodeDeploy.RegisterOnPremisesInstance
+import Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
+import Network.AWS.CodeDeploy.SkipWaitTimeForInstanceTermination
+import Network.AWS.CodeDeploy.StopDeployment
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.UpdateApplication
+import Network.AWS.CodeDeploy.UpdateDeploymentGroup
+import Network.AWS.CodeDeploy.Waiters
{- $errors
Error matchers are designed for use with the functions provided by
diff --git a/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
index 20f0e76..27b1c22 100644
--- a/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -35,12 +35,12 @@ module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances
, AddTagsToOnPremisesInstancesResponse
) 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
+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, and adds tags to, an on-premises instance operation.
--
@@ -48,9 +48,10 @@ import Network.AWS.Response
--
-- /See:/ 'addTagsToOnPremisesInstances' smart constructor.
data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances'
- { _attopiTags :: ![Tag]
- , _attopiInstanceNames :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _attopiTags :: ![Tag]
+ , _attopiInstanceNames :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AddTagsToOnPremisesInstances' with the minimum fields required to make a request.
--
@@ -62,10 +63,9 @@ data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances'
addTagsToOnPremisesInstances
:: AddTagsToOnPremisesInstances
addTagsToOnPremisesInstances =
- AddTagsToOnPremisesInstances'
- { _attopiTags = mempty
- , _attopiInstanceNames = mempty
- }
+ AddTagsToOnPremisesInstances'
+ {_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]
@@ -83,9 +83,9 @@ instance AWSRequest AddTagsToOnPremisesInstances
response
= receiveNull AddTagsToOnPremisesInstancesResponse'
-instance Hashable AddTagsToOnPremisesInstances
+instance Hashable AddTagsToOnPremisesInstances where
-instance NFData AddTagsToOnPremisesInstances
+instance NFData AddTagsToOnPremisesInstances where
instance ToHeaders AddTagsToOnPremisesInstances where
toHeaders
@@ -112,8 +112,9 @@ instance ToQuery AddTagsToOnPremisesInstances where
-- | /See:/ 'addTagsToOnPremisesInstancesResponse' smart constructor.
data AddTagsToOnPremisesInstancesResponse =
- AddTagsToOnPremisesInstancesResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ AddTagsToOnPremisesInstancesResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AddTagsToOnPremisesInstancesResponse' with the minimum fields required to make a request.
--
@@ -121,4 +122,6 @@ addTagsToOnPremisesInstancesResponse
:: AddTagsToOnPremisesInstancesResponse
addTagsToOnPremisesInstancesResponse = AddTagsToOnPremisesInstancesResponse'
+
instance NFData AddTagsToOnPremisesInstancesResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
index b2ec9cb..0543a1d 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetApplicationRevisions
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -40,22 +40,23 @@ module Network.AWS.CodeDeploy.BatchGetApplicationRevisions
, bgarrsResponseStatus
) 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
+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 batch get application revisions operation.
+-- | Represents the input of a BatchGetApplicationRevisions operation.
--
--
--
-- /See:/ 'batchGetApplicationRevisions' smart constructor.
data BatchGetApplicationRevisions = BatchGetApplicationRevisions'
- { _bgarApplicationName :: !Text
- , _bgarRevisions :: ![RevisionLocation]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgarApplicationName :: !Text
+ , _bgarRevisions :: ![RevisionLocation]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetApplicationRevisions' with the minimum fields required to make a request.
--
@@ -68,10 +69,9 @@ batchGetApplicationRevisions
:: Text -- ^ 'bgarApplicationName'
-> BatchGetApplicationRevisions
batchGetApplicationRevisions pApplicationName_ =
- BatchGetApplicationRevisions'
- { _bgarApplicationName = pApplicationName_
- , _bgarRevisions = mempty
- }
+ BatchGetApplicationRevisions'
+ {_bgarApplicationName = pApplicationName_, _bgarRevisions = mempty}
+
-- | The name of an AWS CodeDeploy application about which to get revision information.
bgarApplicationName :: Lens' BatchGetApplicationRevisions Text
@@ -95,9 +95,9 @@ instance AWSRequest BatchGetApplicationRevisions
<*> (x .?> "errorMessage")
<*> (pure (fromEnum s)))
-instance Hashable BatchGetApplicationRevisions
+instance Hashable BatchGetApplicationRevisions where
-instance NFData BatchGetApplicationRevisions
+instance NFData BatchGetApplicationRevisions where
instance ToHeaders BatchGetApplicationRevisions where
toHeaders
@@ -122,17 +122,18 @@ instance ToPath BatchGetApplicationRevisions where
instance ToQuery BatchGetApplicationRevisions where
toQuery = const mempty
--- | Represents the output of a batch get application revisions operation.
+-- | Represents the output of a BatchGetApplicationRevisions operation.
--
--
--
-- /See:/ 'batchGetApplicationRevisionsResponse' smart constructor.
data BatchGetApplicationRevisionsResponse = BatchGetApplicationRevisionsResponse'
- { _bgarrsApplicationName :: !(Maybe Text)
- , _bgarrsRevisions :: !(Maybe [RevisionInfo])
- , _bgarrsErrorMessage :: !(Maybe Text)
- , _bgarrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgarrsApplicationName :: !(Maybe Text)
+ , _bgarrsRevisions :: !(Maybe [RevisionInfo])
+ , _bgarrsErrorMessage :: !(Maybe Text)
+ , _bgarrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetApplicationRevisionsResponse' with the minimum fields required to make a request.
--
@@ -149,12 +150,13 @@ batchGetApplicationRevisionsResponse
:: Int -- ^ 'bgarrsResponseStatus'
-> BatchGetApplicationRevisionsResponse
batchGetApplicationRevisionsResponse pResponseStatus_ =
- BatchGetApplicationRevisionsResponse'
- { _bgarrsApplicationName = Nothing
- , _bgarrsRevisions = Nothing
- , _bgarrsErrorMessage = Nothing
- , _bgarrsResponseStatus = pResponseStatus_
- }
+ BatchGetApplicationRevisionsResponse'
+ { _bgarrsApplicationName = Nothing
+ , _bgarrsRevisions = Nothing
+ , _bgarrsErrorMessage = Nothing
+ , _bgarrsResponseStatus = pResponseStatus_
+ }
+
-- | The name of the application that corresponds to the revisions.
bgarrsApplicationName :: Lens' BatchGetApplicationRevisionsResponse (Maybe Text)
@@ -173,3 +175,4 @@ bgarrsResponseStatus :: Lens' BatchGetApplicationRevisionsResponse Int
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 a1e584c..fb17371 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetApplications
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.BatchGetApplications
, bgarsResponseStatus
) 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
+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 batch get applications operation.
+-- | Represents the input of a BatchGetApplications operation.
--
--
--
-- /See:/ 'batchGetApplications' smart constructor.
newtype BatchGetApplications = BatchGetApplications'
- { _bgaApplicationNames :: Maybe [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgaApplicationNames :: Maybe [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetApplications' with the minimum fields required to make a request.
--
@@ -60,10 +61,8 @@ newtype BatchGetApplications = BatchGetApplications'
-- * 'bgaApplicationNames' - A list of application names separated by spaces.
batchGetApplications
:: BatchGetApplications
-batchGetApplications =
- BatchGetApplications'
- { _bgaApplicationNames = Nothing
- }
+batchGetApplications = BatchGetApplications' {_bgaApplicationNames = Nothing}
+
-- | A list of application names separated by spaces.
bgaApplicationNames :: Lens' BatchGetApplications [Text]
@@ -80,9 +79,9 @@ instance AWSRequest BatchGetApplications where
(x .?> "applicationsInfo" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable BatchGetApplications
+instance Hashable BatchGetApplications where
-instance NFData BatchGetApplications
+instance NFData BatchGetApplications where
instance ToHeaders BatchGetApplications where
toHeaders
@@ -106,15 +105,16 @@ instance ToPath BatchGetApplications where
instance ToQuery BatchGetApplications where
toQuery = const mempty
--- | Represents the output of a batch get applications operation.
+-- | Represents the output of a BatchGetApplications operation.
--
--
--
-- /See:/ 'batchGetApplicationsResponse' smart constructor.
data BatchGetApplicationsResponse = BatchGetApplicationsResponse'
- { _bgarsApplicationsInfo :: !(Maybe [ApplicationInfo])
- , _bgarsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgarsApplicationsInfo :: !(Maybe [ApplicationInfo])
+ , _bgarsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetApplicationsResponse' with the minimum fields required to make a request.
--
@@ -127,10 +127,9 @@ batchGetApplicationsResponse
:: Int -- ^ 'bgarsResponseStatus'
-> BatchGetApplicationsResponse
batchGetApplicationsResponse pResponseStatus_ =
- BatchGetApplicationsResponse'
- { _bgarsApplicationsInfo = Nothing
- , _bgarsResponseStatus = pResponseStatus_
- }
+ BatchGetApplicationsResponse'
+ {_bgarsApplicationsInfo = Nothing, _bgarsResponseStatus = pResponseStatus_}
+
-- | Information about the applications.
bgarsApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo]
@@ -140,4 +139,4 @@ bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicatio
bgarsResponseStatus :: Lens' BatchGetApplicationsResponse Int
bgarsResponseStatus = lens _bgarsResponseStatus (\ s a -> s{_bgarsResponseStatus = a});
-instance NFData BatchGetApplicationsResponse
+instance NFData BatchGetApplicationsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
index 34910f8..0bab5d5 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs
@@ -12,13 +12,13 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeploymentGroups
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
--- Get information about one or more deployment groups.
+-- Gets information about one or more deployment groups.
--
--
module Network.AWS.CodeDeploy.BatchGetDeploymentGroups
@@ -39,22 +39,23 @@ module Network.AWS.CodeDeploy.BatchGetDeploymentGroups
, bgdgrsResponseStatus
) 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
+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 batch get deployment groups operation.
+-- | Represents the input of a BatchGetDeploymentGroups operation.
--
--
--
-- /See:/ 'batchGetDeploymentGroups' smart constructor.
data BatchGetDeploymentGroups = BatchGetDeploymentGroups'
- { _bgdgApplicationName :: !Text
- , _bgdgDeploymentGroupNames :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdgApplicationName :: !Text
+ , _bgdgDeploymentGroupNames :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeploymentGroups' with the minimum fields required to make a request.
--
@@ -67,10 +68,9 @@ batchGetDeploymentGroups
:: Text -- ^ 'bgdgApplicationName'
-> BatchGetDeploymentGroups
batchGetDeploymentGroups pApplicationName_ =
- BatchGetDeploymentGroups'
- { _bgdgApplicationName = pApplicationName_
- , _bgdgDeploymentGroupNames = mempty
- }
+ BatchGetDeploymentGroups'
+ {_bgdgApplicationName = pApplicationName_, _bgdgDeploymentGroupNames = mempty}
+
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
bgdgApplicationName :: Lens' BatchGetDeploymentGroups Text
@@ -92,9 +92,9 @@ instance AWSRequest BatchGetDeploymentGroups where
(x .?> "errorMessage")
<*> (pure (fromEnum s)))
-instance Hashable BatchGetDeploymentGroups
+instance Hashable BatchGetDeploymentGroups where
-instance NFData BatchGetDeploymentGroups
+instance NFData BatchGetDeploymentGroups where
instance ToHeaders BatchGetDeploymentGroups where
toHeaders
@@ -121,16 +121,17 @@ instance ToPath BatchGetDeploymentGroups where
instance ToQuery BatchGetDeploymentGroups where
toQuery = const mempty
--- | Represents the output of a batch get deployment groups operation.
+-- | Represents the output of a BatchGetDeploymentGroups operation.
--
--
--
-- /See:/ 'batchGetDeploymentGroupsResponse' smart constructor.
data BatchGetDeploymentGroupsResponse = BatchGetDeploymentGroupsResponse'
- { _bgdgrsDeploymentGroupsInfo :: !(Maybe [DeploymentGroupInfo])
- , _bgdgrsErrorMessage :: !(Maybe Text)
- , _bgdgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdgrsDeploymentGroupsInfo :: !(Maybe [DeploymentGroupInfo])
+ , _bgdgrsErrorMessage :: !(Maybe Text)
+ , _bgdgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeploymentGroupsResponse' with the minimum fields required to make a request.
--
@@ -145,11 +146,12 @@ batchGetDeploymentGroupsResponse
:: Int -- ^ 'bgdgrsResponseStatus'
-> BatchGetDeploymentGroupsResponse
batchGetDeploymentGroupsResponse pResponseStatus_ =
- BatchGetDeploymentGroupsResponse'
- { _bgdgrsDeploymentGroupsInfo = Nothing
- , _bgdgrsErrorMessage = Nothing
- , _bgdgrsResponseStatus = pResponseStatus_
- }
+ BatchGetDeploymentGroupsResponse'
+ { _bgdgrsDeploymentGroupsInfo = Nothing
+ , _bgdgrsErrorMessage = Nothing
+ , _bgdgrsResponseStatus = pResponseStatus_
+ }
+
-- | Information about the deployment groups.
bgdgrsDeploymentGroupsInfo :: Lens' BatchGetDeploymentGroupsResponse [DeploymentGroupInfo]
@@ -164,3 +166,4 @@ bgdgrsResponseStatus :: Lens' BatchGetDeploymentGroupsResponse Int
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 e48b0ec..5726e4e 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeploymentInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -39,22 +39,23 @@ module Network.AWS.CodeDeploy.BatchGetDeploymentInstances
, bgdirsResponseStatus
) 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
+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 batch get deployment instances operation.
+-- | Represents the input of a BatchGetDeploymentInstances operation.
--
--
--
-- /See:/ 'batchGetDeploymentInstances' smart constructor.
data BatchGetDeploymentInstances = BatchGetDeploymentInstances'
- { _bgdiDeploymentId :: !Text
- , _bgdiInstanceIds :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdiDeploymentId :: !Text
+ , _bgdiInstanceIds :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeploymentInstances' with the minimum fields required to make a request.
--
@@ -67,10 +68,9 @@ batchGetDeploymentInstances
:: Text -- ^ 'bgdiDeploymentId'
-> BatchGetDeploymentInstances
batchGetDeploymentInstances pDeploymentId_ =
- BatchGetDeploymentInstances'
- { _bgdiDeploymentId = pDeploymentId_
- , _bgdiInstanceIds = mempty
- }
+ BatchGetDeploymentInstances'
+ {_bgdiDeploymentId = pDeploymentId_, _bgdiInstanceIds = mempty}
+
-- | The unique ID of a deployment.
bgdiDeploymentId :: Lens' BatchGetDeploymentInstances Text
@@ -92,9 +92,9 @@ instance AWSRequest BatchGetDeploymentInstances where
(x .?> "errorMessage")
<*> (pure (fromEnum s)))
-instance Hashable BatchGetDeploymentInstances
+instance Hashable BatchGetDeploymentInstances where
-instance NFData BatchGetDeploymentInstances
+instance NFData BatchGetDeploymentInstances where
instance ToHeaders BatchGetDeploymentInstances where
toHeaders
@@ -119,16 +119,17 @@ instance ToPath BatchGetDeploymentInstances where
instance ToQuery BatchGetDeploymentInstances where
toQuery = const mempty
--- | Represents the output of a batch get deployment instance operation.
+-- | Represents the output of a BatchGetDeploymentInstances operation.
--
--
--
-- /See:/ 'batchGetDeploymentInstancesResponse' smart constructor.
data BatchGetDeploymentInstancesResponse = BatchGetDeploymentInstancesResponse'
- { _bgdirsInstancesSummary :: !(Maybe [InstanceSummary])
- , _bgdirsErrorMessage :: !(Maybe Text)
- , _bgdirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdirsInstancesSummary :: !(Maybe [InstanceSummary])
+ , _bgdirsErrorMessage :: !(Maybe Text)
+ , _bgdirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeploymentInstancesResponse' with the minimum fields required to make a request.
--
@@ -143,11 +144,12 @@ batchGetDeploymentInstancesResponse
:: Int -- ^ 'bgdirsResponseStatus'
-> BatchGetDeploymentInstancesResponse
batchGetDeploymentInstancesResponse pResponseStatus_ =
- BatchGetDeploymentInstancesResponse'
- { _bgdirsInstancesSummary = Nothing
- , _bgdirsErrorMessage = Nothing
- , _bgdirsResponseStatus = pResponseStatus_
- }
+ BatchGetDeploymentInstancesResponse'
+ { _bgdirsInstancesSummary = Nothing
+ , _bgdirsErrorMessage = Nothing
+ , _bgdirsResponseStatus = pResponseStatus_
+ }
+
-- | Information about the instance.
bgdirsInstancesSummary :: Lens' BatchGetDeploymentInstancesResponse [InstanceSummary]
@@ -162,3 +164,4 @@ bgdirsResponseStatus :: Lens' BatchGetDeploymentInstancesResponse Int
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 bc6200a..9e480af 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetDeployments
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.BatchGetDeployments
, bgdrsResponseStatus
) 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
+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 batch get deployments operation.
+-- | Represents the input of a BatchGetDeployments operation.
--
--
--
-- /See:/ 'batchGetDeployments' smart constructor.
newtype BatchGetDeployments = BatchGetDeployments'
- { _bgdDeploymentIds :: Maybe [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdDeploymentIds :: Maybe [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeployments' with the minimum fields required to make a request.
--
@@ -60,10 +61,8 @@ newtype BatchGetDeployments = BatchGetDeployments'
-- * 'bgdDeploymentIds' - A list of deployment IDs, separated by spaces.
batchGetDeployments
:: BatchGetDeployments
-batchGetDeployments =
- BatchGetDeployments'
- { _bgdDeploymentIds = Nothing
- }
+batchGetDeployments = BatchGetDeployments' {_bgdDeploymentIds = Nothing}
+
-- | A list of deployment IDs, separated by spaces.
bgdDeploymentIds :: Lens' BatchGetDeployments [Text]
@@ -80,9 +79,9 @@ instance AWSRequest BatchGetDeployments where
(x .?> "deploymentsInfo" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable BatchGetDeployments
+instance Hashable BatchGetDeployments where
-instance NFData BatchGetDeployments
+instance NFData BatchGetDeployments where
instance ToHeaders BatchGetDeployments where
toHeaders
@@ -106,15 +105,16 @@ instance ToPath BatchGetDeployments where
instance ToQuery BatchGetDeployments where
toQuery = const mempty
--- | Represents the output of a batch get deployments operation.
+-- | Represents the output of a BatchGetDeployments operation.
--
--
--
-- /See:/ 'batchGetDeploymentsResponse' smart constructor.
data BatchGetDeploymentsResponse = BatchGetDeploymentsResponse'
- { _bgdrsDeploymentsInfo :: !(Maybe [DeploymentInfo])
- , _bgdrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgdrsDeploymentsInfo :: !(Maybe [DeploymentInfo])
+ , _bgdrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetDeploymentsResponse' with the minimum fields required to make a request.
--
@@ -127,10 +127,9 @@ batchGetDeploymentsResponse
:: Int -- ^ 'bgdrsResponseStatus'
-> BatchGetDeploymentsResponse
batchGetDeploymentsResponse pResponseStatus_ =
- BatchGetDeploymentsResponse'
- { _bgdrsDeploymentsInfo = Nothing
- , _bgdrsResponseStatus = pResponseStatus_
- }
+ BatchGetDeploymentsResponse'
+ {_bgdrsDeploymentsInfo = Nothing, _bgdrsResponseStatus = pResponseStatus_}
+
-- | Information about the deployments.
bgdrsDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo]
@@ -140,4 +139,4 @@ bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsI
bgdrsResponseStatus :: Lens' BatchGetDeploymentsResponse Int
bgdrsResponseStatus = lens _bgdrsResponseStatus (\ s a -> s{_bgdrsResponseStatus = a});
-instance NFData BatchGetDeploymentsResponse
+instance NFData BatchGetDeploymentsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
index 94de670..cdebc82 100644
--- a/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances
, bgopirsResponseStatus
) 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
+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 batch get on-premises instances operation.
+-- | Represents the input of a BatchGetOnPremisesInstances operation.
--
--
--
-- /See:/ 'batchGetOnPremisesInstances' smart constructor.
newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'
- { _bgopiInstanceNames :: Maybe [Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgopiInstanceNames :: Maybe [Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetOnPremisesInstances' with the minimum fields required to make a request.
--
@@ -61,9 +62,8 @@ newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'
batchGetOnPremisesInstances
:: BatchGetOnPremisesInstances
batchGetOnPremisesInstances =
- BatchGetOnPremisesInstances'
- { _bgopiInstanceNames = Nothing
- }
+ BatchGetOnPremisesInstances' {_bgopiInstanceNames = Nothing}
+
-- | The names of the on-premises instances about which to get information.
bgopiInstanceNames :: Lens' BatchGetOnPremisesInstances [Text]
@@ -80,9 +80,9 @@ instance AWSRequest BatchGetOnPremisesInstances where
(x .?> "instanceInfos" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable BatchGetOnPremisesInstances
+instance Hashable BatchGetOnPremisesInstances where
-instance NFData BatchGetOnPremisesInstances
+instance NFData BatchGetOnPremisesInstances where
instance ToHeaders BatchGetOnPremisesInstances where
toHeaders
@@ -106,15 +106,16 @@ instance ToPath BatchGetOnPremisesInstances where
instance ToQuery BatchGetOnPremisesInstances where
toQuery = const mempty
--- | Represents the output of a batch get on-premises instances operation.
+-- | Represents the output of a BatchGetOnPremisesInstances operation.
--
--
--
-- /See:/ 'batchGetOnPremisesInstancesResponse' smart constructor.
data BatchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse'
- { _bgopirsInstanceInfos :: !(Maybe [InstanceInfo])
- , _bgopirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _bgopirsInstanceInfos :: !(Maybe [InstanceInfo])
+ , _bgopirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'BatchGetOnPremisesInstancesResponse' with the minimum fields required to make a request.
--
@@ -127,10 +128,9 @@ batchGetOnPremisesInstancesResponse
:: Int -- ^ 'bgopirsResponseStatus'
-> BatchGetOnPremisesInstancesResponse
batchGetOnPremisesInstancesResponse pResponseStatus_ =
- BatchGetOnPremisesInstancesResponse'
- { _bgopirsInstanceInfos = Nothing
- , _bgopirsResponseStatus = pResponseStatus_
- }
+ BatchGetOnPremisesInstancesResponse'
+ {_bgopirsInstanceInfos = Nothing, _bgopirsResponseStatus = pResponseStatus_}
+
-- | Information about the on-premises instances.
bgopirsInstanceInfos :: Lens' BatchGetOnPremisesInstancesResponse [InstanceInfo]
@@ -141,3 +141,4 @@ bgopirsResponseStatus :: Lens' BatchGetOnPremisesInstancesResponse Int
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
new file mode 100644
index 0000000..5372373
--- /dev/null
+++ b/gen/Network/AWS/CodeDeploy/ContinueDeployment.hs
@@ -0,0 +1,108 @@
+{-# 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.ContinueDeployment
+-- Copyright : (c) 2013-2017 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)
+--
+-- For a blue/green deployment, starts the process of rerouting traffic from instances in the original environment to instances in the replacement environment without waiting for a specified wait time to elapse. (Traffic rerouting, which is achieved by registering instances in the replacement environment with the load balancer, can start as soon as all instances have a status of Ready.)
+--
+--
+module Network.AWS.CodeDeploy.ContinueDeployment
+ (
+ -- * Creating a Request
+ continueDeployment
+ , ContinueDeployment
+ -- * Request Lenses
+ , cdDeploymentId
+
+ -- * Destructuring the Response
+ , continueDeploymentResponse
+ , ContinueDeploymentResponse
+ ) 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:/ 'continueDeployment' smart constructor.
+newtype ContinueDeployment = ContinueDeployment'
+ { _cdDeploymentId :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ContinueDeployment' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'cdDeploymentId' - The deployment ID of the blue/green deployment for which you want to start rerouting traffic to the replacement environment.
+continueDeployment
+ :: ContinueDeployment
+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});
+
+instance AWSRequest ContinueDeployment where
+ type Rs ContinueDeployment =
+ ContinueDeploymentResponse
+ request = postJSON codeDeploy
+ response = receiveNull ContinueDeploymentResponse'
+
+instance Hashable ContinueDeployment where
+
+instance NFData ContinueDeployment where
+
+instance ToHeaders ContinueDeployment where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("CodeDeploy_20141006.ContinueDeployment" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ContinueDeployment where
+ toJSON ContinueDeployment'{..}
+ = object
+ (catMaybes [("deploymentId" .=) <$> _cdDeploymentId])
+
+instance ToPath ContinueDeployment where
+ toPath = const "/"
+
+instance ToQuery ContinueDeployment where
+ toQuery = const mempty
+
+-- | /See:/ 'continueDeploymentResponse' smart constructor.
+data ContinueDeploymentResponse =
+ ContinueDeploymentResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ContinueDeploymentResponse' with the minimum fields required to make a request.
+--
+continueDeploymentResponse
+ :: ContinueDeploymentResponse
+continueDeploymentResponse = ContinueDeploymentResponse'
+
+
+instance NFData ContinueDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateApplication.hs b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
index 2137aa9..a0ff318 100644
--- a/gen/Network/AWS/CodeDeploy/CreateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateApplication
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.CreateApplication
, carsResponseStatus
) 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
+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 create application operation.
+-- | Represents the input of a CreateApplication operation.
--
--
--
-- /See:/ 'createApplication' smart constructor.
newtype CreateApplication = CreateApplication'
- { _caApplicationName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _caApplicationName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateApplication' with the minimum fields required to make a request.
--
@@ -62,9 +63,8 @@ createApplication
:: Text -- ^ 'caApplicationName'
-> CreateApplication
createApplication pApplicationName_ =
- CreateApplication'
- { _caApplicationName = pApplicationName_
- }
+ CreateApplication' {_caApplicationName = pApplicationName_}
+
-- | The name of the application. This name must be unique with the applicable IAM user or AWS account.
caApplicationName :: Lens' CreateApplication Text
@@ -79,9 +79,9 @@ instance AWSRequest CreateApplication where
CreateApplicationResponse' <$>
(x .?> "applicationId") <*> (pure (fromEnum s)))
-instance Hashable CreateApplication
+instance Hashable CreateApplication where
-instance NFData CreateApplication
+instance NFData CreateApplication where
instance ToHeaders CreateApplication where
toHeaders
@@ -105,15 +105,16 @@ instance ToPath CreateApplication where
instance ToQuery CreateApplication where
toQuery = const mempty
--- | Represents the output of a create application operation.
+-- | Represents the output of a CreateApplication operation.
--
--
--
-- /See:/ 'createApplicationResponse' smart constructor.
data CreateApplicationResponse = CreateApplicationResponse'
- { _carsApplicationId :: !(Maybe Text)
- , _carsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _carsApplicationId :: !(Maybe Text)
+ , _carsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateApplicationResponse' with the minimum fields required to make a request.
--
@@ -126,10 +127,9 @@ createApplicationResponse
:: Int -- ^ 'carsResponseStatus'
-> CreateApplicationResponse
createApplicationResponse pResponseStatus_ =
- CreateApplicationResponse'
- { _carsApplicationId = Nothing
- , _carsResponseStatus = pResponseStatus_
- }
+ CreateApplicationResponse'
+ {_carsApplicationId = Nothing, _carsResponseStatus = pResponseStatus_}
+
-- | A unique application ID.
carsApplicationId :: Lens' CreateApplicationResponse (Maybe Text)
@@ -139,4 +139,4 @@ carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a})
carsResponseStatus :: Lens' CreateApplicationResponse Int
carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});
-instance NFData CreateApplicationResponse
+instance NFData CreateApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
index 7686a8f..615bd74 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeployment
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -28,6 +28,8 @@ module Network.AWS.CodeDeploy.CreateDeployment
, CreateDeployment
-- * Request Lenses
, cdDeploymentConfigName
+ , cdFileExistsBehavior
+ , cdTargetInstances
, cdRevision
, cdDescription
, cdAutoRollbackConfiguration
@@ -44,28 +46,31 @@ module Network.AWS.CodeDeploy.CreateDeployment
, cdrsResponseStatus
) 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
+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 create deployment operation.
+-- | Represents the input of a CreateDeployment operation.
--
--
--
-- /See:/ 'createDeployment' smart constructor.
data CreateDeployment = CreateDeployment'
- { _cdDeploymentConfigName :: !(Maybe Text)
- , _cdRevision :: !(Maybe RevisionLocation)
- , _cdDescription :: !(Maybe Text)
- , _cdAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
- , _cdUpdateOutdatedInstancesOnly :: !(Maybe Bool)
- , _cdDeploymentGroupName :: !(Maybe Text)
- , _cdIgnoreApplicationStopFailures :: !(Maybe Bool)
- , _cdApplicationName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdDeploymentConfigName :: !(Maybe Text)
+ , _cdFileExistsBehavior :: !(Maybe FileExistsBehavior)
+ , _cdTargetInstances :: !(Maybe TargetInstances)
+ , _cdRevision :: !(Maybe RevisionLocation)
+ , _cdDescription :: !(Maybe Text)
+ , _cdAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
+ , _cdUpdateOutdatedInstancesOnly :: !(Maybe Bool)
+ , _cdDeploymentGroupName :: !(Maybe Text)
+ , _cdIgnoreApplicationStopFailures :: !(Maybe Bool)
+ , _cdApplicationName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeployment' with the minimum fields required to make a request.
--
@@ -73,6 +78,10 @@ data CreateDeployment = CreateDeployment'
--
-- * 'cdDeploymentConfigName' - 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.
--
+-- * 'cdFileExistsBehavior' - 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.
+--
+-- * 'cdTargetInstances' - Information about the instances that will belong to the replacement environment in a blue/green deployment.
+--
-- * 'cdRevision' - The type and location of the revision to deploy.
--
-- * 'cdDescription' - A comment about the deployment.
@@ -90,21 +99,32 @@ createDeployment
:: Text -- ^ 'cdApplicationName'
-> CreateDeployment
createDeployment pApplicationName_ =
- CreateDeployment'
- { _cdDeploymentConfigName = Nothing
- , _cdRevision = Nothing
- , _cdDescription = Nothing
- , _cdAutoRollbackConfiguration = Nothing
- , _cdUpdateOutdatedInstancesOnly = Nothing
- , _cdDeploymentGroupName = Nothing
- , _cdIgnoreApplicationStopFailures = Nothing
- , _cdApplicationName = pApplicationName_
- }
+ CreateDeployment'
+ { _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});
+-- | 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});
+
+-- | 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});
+
-- | The type and location of the revision to deploy.
cdRevision :: Lens' CreateDeployment (Maybe RevisionLocation)
cdRevision = lens _cdRevision (\ s a -> s{_cdRevision = a});
@@ -142,9 +162,9 @@ instance AWSRequest CreateDeployment where
CreateDeploymentResponse' <$>
(x .?> "deploymentId") <*> (pure (fromEnum s)))
-instance Hashable CreateDeployment
+instance Hashable CreateDeployment where
-instance NFData CreateDeployment
+instance NFData CreateDeployment where
instance ToHeaders CreateDeployment where
toHeaders
@@ -162,6 +182,8 @@ instance ToJSON CreateDeployment where
(catMaybes
[("deploymentConfigName" .=) <$>
_cdDeploymentConfigName,
+ ("fileExistsBehavior" .=) <$> _cdFileExistsBehavior,
+ ("targetInstances" .=) <$> _cdTargetInstances,
("revision" .=) <$> _cdRevision,
("description" .=) <$> _cdDescription,
("autoRollbackConfiguration" .=) <$>
@@ -180,15 +202,16 @@ instance ToPath CreateDeployment where
instance ToQuery CreateDeployment where
toQuery = const mempty
--- | Represents the output of a create deployment operation.
+-- | Represents the output of a CreateDeployment operation.
--
--
--
-- /See:/ 'createDeploymentResponse' smart constructor.
data CreateDeploymentResponse = CreateDeploymentResponse'
- { _cdrsDeploymentId :: !(Maybe Text)
- , _cdrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdrsDeploymentId :: !(Maybe Text)
+ , _cdrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeploymentResponse' with the minimum fields required to make a request.
--
@@ -201,10 +224,9 @@ createDeploymentResponse
:: Int -- ^ 'cdrsResponseStatus'
-> CreateDeploymentResponse
createDeploymentResponse pResponseStatus_ =
- CreateDeploymentResponse'
- { _cdrsDeploymentId = Nothing
- , _cdrsResponseStatus = pResponseStatus_
- }
+ CreateDeploymentResponse'
+ {_cdrsDeploymentId = Nothing, _cdrsResponseStatus = pResponseStatus_}
+
-- | A unique deployment ID.
cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text)
@@ -214,4 +236,4 @@ cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a});
cdrsResponseStatus :: Lens' CreateDeploymentResponse Int
cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});
-instance NFData CreateDeploymentResponse
+instance NFData CreateDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
index 92bc6b2..76bb54b 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeploymentConfig
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -27,8 +27,8 @@ module Network.AWS.CodeDeploy.CreateDeploymentConfig
createDeploymentConfig
, CreateDeploymentConfig
-- * Request Lenses
- , cdcMinimumHealthyHosts
, cdcDeploymentConfigName
+ , cdcMinimumHealthyHosts
-- * Destructuring the Response
, createDeploymentConfigResponse
@@ -38,47 +38,50 @@ module Network.AWS.CodeDeploy.CreateDeploymentConfig
, cdcrsResponseStatus
) 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
+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 create deployment configuration operation.
+-- | Represents the input of a CreateDeploymentConfig operation.
--
--
--
-- /See:/ 'createDeploymentConfig' smart constructor.
data CreateDeploymentConfig = CreateDeploymentConfig'
- { _cdcMinimumHealthyHosts :: !(Maybe MinimumHealthyHosts)
- , _cdcDeploymentConfigName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdcDeploymentConfigName :: !Text
+ , _cdcMinimumHealthyHosts :: !MinimumHealthyHosts
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeploymentConfig' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * '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.
---
-- * 'cdcDeploymentConfigName' - The name of the deployment configuration to create.
+--
+-- * '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.
createDeploymentConfig
:: Text -- ^ 'cdcDeploymentConfigName'
+ -> MinimumHealthyHosts -- ^ 'cdcMinimumHealthyHosts'
-> CreateDeploymentConfig
-createDeploymentConfig pDeploymentConfigName_ =
- CreateDeploymentConfig'
- { _cdcMinimumHealthyHosts = Nothing
- , _cdcDeploymentConfigName = pDeploymentConfigName_
- }
+createDeploymentConfig pDeploymentConfigName_ pMinimumHealthyHosts_ =
+ CreateDeploymentConfig'
+ { _cdcDeploymentConfigName = pDeploymentConfigName_
+ , _cdcMinimumHealthyHosts = pMinimumHealthyHosts_
+ }
--- | 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 (Maybe MinimumHealthyHosts)
-cdcMinimumHealthyHosts = lens _cdcMinimumHealthyHosts (\ s a -> s{_cdcMinimumHealthyHosts = a});
-- | The name of the deployment configuration to create.
cdcDeploymentConfigName :: Lens' CreateDeploymentConfig Text
cdcDeploymentConfigName = lens _cdcDeploymentConfigName (\ s a -> s{_cdcDeploymentConfigName = 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});
+
instance AWSRequest CreateDeploymentConfig where
type Rs CreateDeploymentConfig =
CreateDeploymentConfigResponse
@@ -89,9 +92,9 @@ instance AWSRequest CreateDeploymentConfig where
CreateDeploymentConfigResponse' <$>
(x .?> "deploymentConfigId") <*> (pure (fromEnum s)))
-instance Hashable CreateDeploymentConfig
+instance Hashable CreateDeploymentConfig where
-instance NFData CreateDeploymentConfig
+instance NFData CreateDeploymentConfig where
instance ToHeaders CreateDeploymentConfig where
toHeaders
@@ -107,11 +110,10 @@ instance ToJSON CreateDeploymentConfig where
toJSON CreateDeploymentConfig'{..}
= object
(catMaybes
- [("minimumHealthyHosts" .=) <$>
- _cdcMinimumHealthyHosts,
+ [Just
+ ("deploymentConfigName" .= _cdcDeploymentConfigName),
Just
- ("deploymentConfigName" .=
- _cdcDeploymentConfigName)])
+ ("minimumHealthyHosts" .= _cdcMinimumHealthyHosts)])
instance ToPath CreateDeploymentConfig where
toPath = const "/"
@@ -119,15 +121,16 @@ instance ToPath CreateDeploymentConfig where
instance ToQuery CreateDeploymentConfig where
toQuery = const mempty
--- | Represents the output of a create deployment configuration operation.
+-- | Represents the output of a CreateDeploymentConfig operation.
--
--
--
-- /See:/ 'createDeploymentConfigResponse' smart constructor.
data CreateDeploymentConfigResponse = CreateDeploymentConfigResponse'
- { _cdcrsDeploymentConfigId :: !(Maybe Text)
- , _cdcrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdcrsDeploymentConfigId :: !(Maybe Text)
+ , _cdcrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeploymentConfigResponse' with the minimum fields required to make a request.
--
@@ -140,10 +143,9 @@ createDeploymentConfigResponse
:: Int -- ^ 'cdcrsResponseStatus'
-> CreateDeploymentConfigResponse
createDeploymentConfigResponse pResponseStatus_ =
- CreateDeploymentConfigResponse'
- { _cdcrsDeploymentConfigId = Nothing
- , _cdcrsResponseStatus = pResponseStatus_
- }
+ CreateDeploymentConfigResponse'
+ {_cdcrsDeploymentConfigId = Nothing, _cdcrsResponseStatus = pResponseStatus_}
+
-- | A unique deployment configuration ID.
cdcrsDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text)
@@ -153,4 +155,4 @@ cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploy
cdcrsResponseStatus :: Lens' CreateDeploymentConfigResponse Int
cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a});
-instance NFData CreateDeploymentConfigResponse
+instance NFData CreateDeploymentConfigResponse where
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
index 1c56108..4e1ffed 100644
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.CreateDeploymentGroup
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -27,12 +27,17 @@ module Network.AWS.CodeDeploy.CreateDeploymentGroup
createDeploymentGroup
, CreateDeploymentGroup
-- * Request Lenses
+ , cdgEc2TagSet
, cdgDeploymentConfigName
+ , cdgOnPremisesTagSet
, cdgEc2TagFilters
+ , cdgBlueGreenDeploymentConfiguration
+ , cdgLoadBalancerInfo
, cdgOnPremisesInstanceTagFilters
, cdgAlarmConfiguration
, cdgTriggerConfigurations
, cdgAutoScalingGroups
+ , cdgDeploymentStyle
, cdgAutoRollbackConfiguration
, cdgApplicationName
, cdgDeploymentGroupName
@@ -46,40 +51,54 @@ module Network.AWS.CodeDeploy.CreateDeploymentGroup
, cdgrsResponseStatus
) 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
+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 create deployment group operation.
+-- | Represents the input of a CreateDeploymentGroup operation.
--
--
--
-- /See:/ 'createDeploymentGroup' smart constructor.
data CreateDeploymentGroup = CreateDeploymentGroup'
- { _cdgDeploymentConfigName :: !(Maybe Text)
- , _cdgEc2TagFilters :: !(Maybe [EC2TagFilter])
- , _cdgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
- , _cdgAlarmConfiguration :: !(Maybe AlarmConfiguration)
- , _cdgTriggerConfigurations :: !(Maybe [TriggerConfig])
- , _cdgAutoScalingGroups :: !(Maybe [Text])
- , _cdgAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
- , _cdgApplicationName :: !Text
- , _cdgDeploymentGroupName :: !Text
- , _cdgServiceRoleARN :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdgEc2TagSet :: !(Maybe EC2TagSet)
+ , _cdgDeploymentConfigName :: !(Maybe Text)
+ , _cdgOnPremisesTagSet :: !(Maybe OnPremisesTagSet)
+ , _cdgEc2TagFilters :: !(Maybe [EC2TagFilter])
+ , _cdgBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
+ , _cdgLoadBalancerInfo :: !(Maybe LoadBalancerInfo)
+ , _cdgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
+ , _cdgAlarmConfiguration :: !(Maybe AlarmConfiguration)
+ , _cdgTriggerConfigurations :: !(Maybe [TriggerConfig])
+ , _cdgAutoScalingGroups :: !(Maybe [Text])
+ , _cdgDeploymentStyle :: !(Maybe DeploymentStyle)
+ , _cdgAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
+ , _cdgApplicationName :: !Text
+ , _cdgDeploymentGroupName :: !Text
+ , _cdgServiceRoleARN :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeploymentGroup' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'cdgDeploymentConfigName' - 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. The predefined deployment configurations include the following: * __CodeDeployDefault.AllAtOnce__ attempts to deploy an application revision to as many instances as possible at once. The status of the overall deployment will be displayed as __Succeeded__ if the application revision is deployed to one or more of the instances. The status of the overall deployment will be displayed as __Failed__ if the application revision is not deployed to any of the instances. Using an example of nine instances, CodeDeployDefault.AllAtOnce will attempt to deploy to all nine instances at once. The overall deployment will succeed if deployment to even a single instance is successful; it will fail only if deployments to all nine instances fail. * __CodeDeployDefault.HalfAtATime__ deploys to up to half of the instances at a time (with fractions rounded down). The overall deployment succeeds if the application revision is deployed to at least half of the instances (with fractions rounded up); otherwise, the deployment fails. In the example of nine instances, it will deploy to up to four instances at a time. The overall deployment succeeds if deployment to five or more instances succeed; otherwise, the deployment fails. The deployment may be successfully deployed to some instances even if the overall deployment fails. * __CodeDeployDefault.OneAtATime__ deploys the application revision to only one instance at a time. For deployment groups that contain more than one instance: * The overall deployment succeeds if the application revision is deployed to all of the instances. The exception to this rule is if deployment to the last instance fails, the overall deployment still succeeds. This is because AWS CodeDeploy allows only one instance at a time to be taken offline with the CodeDeployDefault.OneAtATime configuration. * The overall deployment fails as soon as the application revision fails to be deployed to any but the last instance. The deployment may be successfully deployed to some instances even if the overall deployment fails. * In an example using nine instances, it will deploy to one instance at a time. The overall deployment succeeds if deployment to the first eight instances is successful; the overall deployment fails if deployment to any of the first eight instances fails. For deployment groups that contain only one instance, the overall deployment is successful only if deployment to the single instance is successful
+-- * 'cdgEc2TagSet' - 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.
+--
+-- * 'cdgDeploymentConfigName' - 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.
+--
+-- * 'cdgOnPremisesTagSet' - 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.
+--
+-- * 'cdgEc2TagFilters' - 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' - The Amazon EC2 tags on which to filter.
+-- * 'cdgBlueGreenDeploymentConfiguration' - Information about blue/green deployment options for a deployment group.
--
--- * 'cdgOnPremisesInstanceTagFilters' - The on-premises instance tags on which to filter.
+-- * 'cdgLoadBalancerInfo' - Information about the load balancer used in a deployment.
+--
+-- * 'cdgOnPremisesInstanceTagFilters' - 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.
--
-- * 'cdgAlarmConfiguration' - Information to add about Amazon CloudWatch alarms when the deployment group is created.
--
@@ -87,6 +106,8 @@ data CreateDeploymentGroup = CreateDeploymentGroup'
--
-- * 'cdgAutoScalingGroups' - A list of associated Auto Scaling groups.
--
+-- * 'cdgDeploymentStyle' - 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.
+--
-- * 'cdgAutoRollbackConfiguration' - Configuration information for an automatic rollback that is added when a deployment group is created.
--
-- * 'cdgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
@@ -100,28 +121,50 @@ createDeploymentGroup
-> Text -- ^ 'cdgServiceRoleARN'
-> CreateDeploymentGroup
createDeploymentGroup pApplicationName_ pDeploymentGroupName_ pServiceRoleARN_ =
- CreateDeploymentGroup'
- { _cdgDeploymentConfigName = Nothing
- , _cdgEc2TagFilters = Nothing
- , _cdgOnPremisesInstanceTagFilters = Nothing
- , _cdgAlarmConfiguration = Nothing
- , _cdgTriggerConfigurations = Nothing
- , _cdgAutoScalingGroups = Nothing
- , _cdgAutoRollbackConfiguration = Nothing
- , _cdgApplicationName = pApplicationName_
- , _cdgDeploymentGroupName = pDeploymentGroupName_
- , _cdgServiceRoleARN = pServiceRoleARN_
- }
-
--- | 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. The predefined deployment configurations include the following: * __CodeDeployDefault.AllAtOnce__ attempts to deploy an application revision to as many instances as possible at once. The status of the overall deployment will be displayed as __Succeeded__ if the application revision is deployed to one or more of the instances. The status of the overall deployment will be displayed as __Failed__ if the application revision is not deployed to any of the instances. Using an example of nine instances, CodeDeployDefault.AllAtOnce will attempt to deploy to all nine instances at once. The overall deployment will succeed if deployment to even a single instance is successful; it will fail only if deployments to all nine instances fail. * __CodeDeployDefault.HalfAtATime__ deploys to up to half of the instances at a time (with fractions rounded down). The overall deployment succeeds if the application revision is deployed to at least half of the instances (with fractions rounded up); otherwise, the deployment fails. In the example of nine instances, it will deploy to up to four instances at a time. The overall deployment succeeds if deployment to five or more instances succeed; otherwise, the deployment fails. The deployment may be successfully deployed to some instances even if the overall deployment fails. * __CodeDeployDefault.OneAtATime__ deploys the application revision to only one instance at a time. For deployment groups that contain more than one instance: * The overall deployment succeeds if the application revision is deployed to all of the instances. The exception to this rule is if deployment to the last instance fails, the overall deployment still succeeds. This is because AWS CodeDeploy allows only one instance at a time to be taken offline with the CodeDeployDefault.OneAtATime configuration. * The overall deployment fails as soon as the application revision fails to be deployed to any but the last instance. The deployment may be successfully deployed to some instances even if the overall deployment fails. * In an example using nine instances, it will deploy to one instance at a time. The overall deployment succeeds if deployment to the first eight instances is successful; the overall deployment fails if deployment to any of the first eight instances fails. For deployment groups that contain only one instance, the overall deployment is successful only if deployment to the single instance is successful
+ 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_
+ }
+
+
+-- | 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});
+
+-- | 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});
--- | The Amazon EC2 tags on which to filter.
+-- | 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});
+
+-- | 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;
--- | The on-premises instance tags on which to filter.
+-- | Information about blue/green deployment options for a deployment group.
+cdgBlueGreenDeploymentConfiguration :: Lens' CreateDeploymentGroup (Maybe BlueGreenDeploymentConfiguration)
+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});
+
+-- | 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;
@@ -137,6 +180,10 @@ cdgTriggerConfigurations = lens _cdgTriggerConfigurations (\ s a -> s{_cdgTrigge
cdgAutoScalingGroups :: Lens' CreateDeploymentGroup [Text]
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});
+
-- | 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});
@@ -163,9 +210,9 @@ instance AWSRequest CreateDeploymentGroup where
CreateDeploymentGroupResponse' <$>
(x .?> "deploymentGroupId") <*> (pure (fromEnum s)))
-instance Hashable CreateDeploymentGroup
+instance Hashable CreateDeploymentGroup where
-instance NFData CreateDeploymentGroup
+instance NFData CreateDeploymentGroup where
instance ToHeaders CreateDeploymentGroup where
toHeaders
@@ -181,15 +228,21 @@ instance ToJSON CreateDeploymentGroup where
toJSON CreateDeploymentGroup'{..}
= object
(catMaybes
- [("deploymentConfigName" .=) <$>
+ [("ec2TagSet" .=) <$> _cdgEc2TagSet,
+ ("deploymentConfigName" .=) <$>
_cdgDeploymentConfigName,
+ ("onPremisesTagSet" .=) <$> _cdgOnPremisesTagSet,
("ec2TagFilters" .=) <$> _cdgEc2TagFilters,
+ ("blueGreenDeploymentConfiguration" .=) <$>
+ _cdgBlueGreenDeploymentConfiguration,
+ ("loadBalancerInfo" .=) <$> _cdgLoadBalancerInfo,
("onPremisesInstanceTagFilters" .=) <$>
_cdgOnPremisesInstanceTagFilters,
("alarmConfiguration" .=) <$> _cdgAlarmConfiguration,
("triggerConfigurations" .=) <$>
_cdgTriggerConfigurations,
("autoScalingGroups" .=) <$> _cdgAutoScalingGroups,
+ ("deploymentStyle" .=) <$> _cdgDeploymentStyle,
("autoRollbackConfiguration" .=) <$>
_cdgAutoRollbackConfiguration,
Just ("applicationName" .= _cdgApplicationName),
@@ -203,15 +256,16 @@ instance ToPath CreateDeploymentGroup where
instance ToQuery CreateDeploymentGroup where
toQuery = const mempty
--- | Represents the output of a create deployment group operation.
+-- | Represents the output of a CreateDeploymentGroup operation.
--
--
--
-- /See:/ 'createDeploymentGroupResponse' smart constructor.
data CreateDeploymentGroupResponse = CreateDeploymentGroupResponse'
- { _cdgrsDeploymentGroupId :: !(Maybe Text)
- , _cdgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _cdgrsDeploymentGroupId :: !(Maybe Text)
+ , _cdgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'CreateDeploymentGroupResponse' with the minimum fields required to make a request.
--
@@ -224,10 +278,9 @@ createDeploymentGroupResponse
:: Int -- ^ 'cdgrsResponseStatus'
-> CreateDeploymentGroupResponse
createDeploymentGroupResponse pResponseStatus_ =
- CreateDeploymentGroupResponse'
- { _cdgrsDeploymentGroupId = Nothing
- , _cdgrsResponseStatus = pResponseStatus_
- }
+ CreateDeploymentGroupResponse'
+ {_cdgrsDeploymentGroupId = Nothing, _cdgrsResponseStatus = pResponseStatus_}
+
-- | A unique deployment group ID.
cdgrsDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text)
@@ -237,4 +290,4 @@ cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeployme
cdgrsResponseStatus :: Lens' CreateDeploymentGroupResponse Int
cdgrsResponseStatus = lens _cdgrsResponseStatus (\ s a -> s{_cdgrsResponseStatus = a});
-instance NFData CreateDeploymentGroupResponse
+instance NFData CreateDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
index 42b95bf..7b35b0f 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteApplication
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -34,21 +34,22 @@ module Network.AWS.CodeDeploy.DeleteApplication
, DeleteApplicationResponse
) 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
+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 delete application operation.
+-- | Represents the input of a DeleteApplication operation.
--
--
--
-- /See:/ 'deleteApplication' smart constructor.
newtype DeleteApplication = DeleteApplication'
- { _daApplicationName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _daApplicationName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteApplication' with the minimum fields required to make a request.
--
@@ -59,9 +60,8 @@ deleteApplication
:: Text -- ^ 'daApplicationName'
-> DeleteApplication
deleteApplication pApplicationName_ =
- DeleteApplication'
- { _daApplicationName = pApplicationName_
- }
+ DeleteApplication' {_daApplicationName = pApplicationName_}
+
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
daApplicationName :: Lens' DeleteApplication Text
@@ -72,9 +72,9 @@ instance AWSRequest DeleteApplication where
request = postJSON codeDeploy
response = receiveNull DeleteApplicationResponse'
-instance Hashable DeleteApplication
+instance Hashable DeleteApplication where
-instance NFData DeleteApplication
+instance NFData DeleteApplication where
instance ToHeaders DeleteApplication where
toHeaders
@@ -100,8 +100,9 @@ instance ToQuery DeleteApplication where
-- | /See:/ 'deleteApplicationResponse' smart constructor.
data DeleteApplicationResponse =
- DeleteApplicationResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ DeleteApplicationResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteApplicationResponse' with the minimum fields required to make a request.
--
@@ -109,4 +110,5 @@ deleteApplicationResponse
:: DeleteApplicationResponse
deleteApplicationResponse = DeleteApplicationResponse'
-instance NFData DeleteApplicationResponse
+
+instance NFData DeleteApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
index c020e98..f400925 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteDeploymentConfig
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -34,21 +34,22 @@ module Network.AWS.CodeDeploy.DeleteDeploymentConfig
, DeleteDeploymentConfigResponse
) 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
+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 delete deployment configuration operation.
+-- | Represents the input of a DeleteDeploymentConfig operation.
--
--
--
-- /See:/ 'deleteDeploymentConfig' smart constructor.
newtype DeleteDeploymentConfig = DeleteDeploymentConfig'
- { _ddcDeploymentConfigName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ddcDeploymentConfigName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteDeploymentConfig' with the minimum fields required to make a request.
--
@@ -59,9 +60,8 @@ deleteDeploymentConfig
:: Text -- ^ 'ddcDeploymentConfigName'
-> DeleteDeploymentConfig
deleteDeploymentConfig pDeploymentConfigName_ =
- DeleteDeploymentConfig'
- { _ddcDeploymentConfigName = pDeploymentConfigName_
- }
+ DeleteDeploymentConfig' {_ddcDeploymentConfigName = pDeploymentConfigName_}
+
-- | The name of a deployment configuration associated with the applicable IAM user or AWS account.
ddcDeploymentConfigName :: Lens' DeleteDeploymentConfig Text
@@ -74,9 +74,9 @@ instance AWSRequest DeleteDeploymentConfig where
response
= receiveNull DeleteDeploymentConfigResponse'
-instance Hashable DeleteDeploymentConfig
+instance Hashable DeleteDeploymentConfig where
-instance NFData DeleteDeploymentConfig
+instance NFData DeleteDeploymentConfig where
instance ToHeaders DeleteDeploymentConfig where
toHeaders
@@ -104,8 +104,9 @@ instance ToQuery DeleteDeploymentConfig where
-- | /See:/ 'deleteDeploymentConfigResponse' smart constructor.
data DeleteDeploymentConfigResponse =
- DeleteDeploymentConfigResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ DeleteDeploymentConfigResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteDeploymentConfigResponse' with the minimum fields required to make a request.
--
@@ -113,4 +114,5 @@ deleteDeploymentConfigResponse
:: DeleteDeploymentConfigResponse
deleteDeploymentConfigResponse = DeleteDeploymentConfigResponse'
-instance NFData DeleteDeploymentConfigResponse
+
+instance NFData DeleteDeploymentConfigResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
index 858cafb..1294cda 100644
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeleteDeploymentGroup
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -38,22 +38,23 @@ module Network.AWS.CodeDeploy.DeleteDeploymentGroup
, ddgrsResponseStatus
) 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
+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 delete deployment group operation.
+-- | Represents the input of a DeleteDeploymentGroup operation.
--
--
--
-- /See:/ 'deleteDeploymentGroup' smart constructor.
data DeleteDeploymentGroup = DeleteDeploymentGroup'
- { _ddgApplicationName :: !Text
- , _ddgDeploymentGroupName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ddgApplicationName :: !Text
+ , _ddgDeploymentGroupName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteDeploymentGroup' with the minimum fields required to make a request.
--
@@ -67,10 +68,11 @@ deleteDeploymentGroup
-> Text -- ^ 'ddgDeploymentGroupName'
-> DeleteDeploymentGroup
deleteDeploymentGroup pApplicationName_ pDeploymentGroupName_ =
- DeleteDeploymentGroup'
- { _ddgApplicationName = pApplicationName_
- , _ddgDeploymentGroupName = pDeploymentGroupName_
- }
+ DeleteDeploymentGroup'
+ { _ddgApplicationName = pApplicationName_
+ , _ddgDeploymentGroupName = pDeploymentGroupName_
+ }
+
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
ddgApplicationName :: Lens' DeleteDeploymentGroup Text
@@ -91,9 +93,9 @@ instance AWSRequest DeleteDeploymentGroup where
(x .?> "hooksNotCleanedUp" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable DeleteDeploymentGroup
+instance Hashable DeleteDeploymentGroup where
-instance NFData DeleteDeploymentGroup
+instance NFData DeleteDeploymentGroup where
instance ToHeaders DeleteDeploymentGroup where
toHeaders
@@ -119,15 +121,16 @@ instance ToPath DeleteDeploymentGroup where
instance ToQuery DeleteDeploymentGroup where
toQuery = const mempty
--- | Represents the output of a delete deployment group operation.
+-- | Represents the output of a DeleteDeploymentGroup operation.
--
--
--
-- /See:/ 'deleteDeploymentGroupResponse' smart constructor.
data DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse'
- { _ddgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])
- , _ddgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ddgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])
+ , _ddgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeleteDeploymentGroupResponse' with the minimum fields required to make a request.
--
@@ -140,10 +143,9 @@ deleteDeploymentGroupResponse
:: Int -- ^ 'ddgrsResponseStatus'
-> DeleteDeploymentGroupResponse
deleteDeploymentGroupResponse pResponseStatus_ =
- DeleteDeploymentGroupResponse'
- { _ddgrsHooksNotCleanedUp = Nothing
- , _ddgrsResponseStatus = pResponseStatus_
- }
+ DeleteDeploymentGroupResponse'
+ {_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]
@@ -153,4 +155,4 @@ ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNot
ddgrsResponseStatus :: Lens' DeleteDeploymentGroupResponse Int
ddgrsResponseStatus = lens _ddgrsResponseStatus (\ s a -> s{_ddgrsResponseStatus = a});
-instance NFData DeleteDeploymentGroupResponse
+instance NFData DeleteDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
index 81eded5..c64a15c 100644
--- a/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -34,21 +34,22 @@ module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance
, DeregisterOnPremisesInstanceResponse
) 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
+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 deregister on-premises instance operation.
+-- | Represents the input of a DeregisterOnPremisesInstance operation.
--
--
--
-- /See:/ 'deregisterOnPremisesInstance' smart constructor.
newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance'
- { _dopiInstanceName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dopiInstanceName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeregisterOnPremisesInstance' with the minimum fields required to make a request.
--
@@ -59,9 +60,8 @@ deregisterOnPremisesInstance
:: Text -- ^ 'dopiInstanceName'
-> DeregisterOnPremisesInstance
deregisterOnPremisesInstance pInstanceName_ =
- DeregisterOnPremisesInstance'
- { _dopiInstanceName = pInstanceName_
- }
+ DeregisterOnPremisesInstance' {_dopiInstanceName = pInstanceName_}
+
-- | The name of the on-premises instance to deregister.
dopiInstanceName :: Lens' DeregisterOnPremisesInstance Text
@@ -75,9 +75,9 @@ instance AWSRequest DeregisterOnPremisesInstance
response
= receiveNull DeregisterOnPremisesInstanceResponse'
-instance Hashable DeregisterOnPremisesInstance
+instance Hashable DeregisterOnPremisesInstance where
-instance NFData DeregisterOnPremisesInstance
+instance NFData DeregisterOnPremisesInstance where
instance ToHeaders DeregisterOnPremisesInstance where
toHeaders
@@ -103,8 +103,9 @@ instance ToQuery DeregisterOnPremisesInstance where
-- | /See:/ 'deregisterOnPremisesInstanceResponse' smart constructor.
data DeregisterOnPremisesInstanceResponse =
- DeregisterOnPremisesInstanceResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ DeregisterOnPremisesInstanceResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeregisterOnPremisesInstanceResponse' with the minimum fields required to make a request.
--
@@ -112,4 +113,6 @@ deregisterOnPremisesInstanceResponse
:: DeregisterOnPremisesInstanceResponse
deregisterOnPremisesInstanceResponse = DeregisterOnPremisesInstanceResponse'
+
instance NFData DeregisterOnPremisesInstanceResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/GetApplication.hs b/gen/Network/AWS/CodeDeploy/GetApplication.hs
index 61795b3..97cf183 100644
--- a/gen/Network/AWS/CodeDeploy/GetApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplication.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetApplication
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.GetApplication
, garsResponseStatus
) 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
+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 get application operation.
+-- | Represents the input of a GetApplication operation.
--
--
--
-- /See:/ 'getApplication' smart constructor.
newtype GetApplication = GetApplication'
- { _gaApplicationName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gaApplicationName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetApplication' with the minimum fields required to make a request.
--
@@ -62,9 +63,8 @@ getApplication
:: Text -- ^ 'gaApplicationName'
-> GetApplication
getApplication pApplicationName_ =
- GetApplication'
- { _gaApplicationName = pApplicationName_
- }
+ GetApplication' {_gaApplicationName = pApplicationName_}
+
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
gaApplicationName :: Lens' GetApplication Text
@@ -79,9 +79,9 @@ instance AWSRequest GetApplication where
GetApplicationResponse' <$>
(x .?> "application") <*> (pure (fromEnum s)))
-instance Hashable GetApplication
+instance Hashable GetApplication where
-instance NFData GetApplication
+instance NFData GetApplication where
instance ToHeaders GetApplication where
toHeaders
@@ -104,15 +104,16 @@ instance ToPath GetApplication where
instance ToQuery GetApplication where
toQuery = const mempty
--- | Represents the output of a get application operation.
+-- | Represents the output of a GetApplication operation.
--
--
--
-- /See:/ 'getApplicationResponse' smart constructor.
data GetApplicationResponse = GetApplicationResponse'
- { _garsApplication :: !(Maybe ApplicationInfo)
- , _garsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _garsApplication :: !(Maybe ApplicationInfo)
+ , _garsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetApplicationResponse' with the minimum fields required to make a request.
--
@@ -125,10 +126,9 @@ getApplicationResponse
:: Int -- ^ 'garsResponseStatus'
-> GetApplicationResponse
getApplicationResponse pResponseStatus_ =
- GetApplicationResponse'
- { _garsApplication = Nothing
- , _garsResponseStatus = pResponseStatus_
- }
+ GetApplicationResponse'
+ {_garsApplication = Nothing, _garsResponseStatus = pResponseStatus_}
+
-- | Information about the application.
garsApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo)
@@ -138,4 +138,4 @@ garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a});
garsResponseStatus :: Lens' GetApplicationResponse Int
garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});
-instance NFData GetApplicationResponse
+instance NFData GetApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
index 5386693..3acbac8 100644
--- a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetApplicationRevision
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -40,22 +40,23 @@ module Network.AWS.CodeDeploy.GetApplicationRevision
, garrsResponseStatus
) 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
+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 get application revision operation.
+-- | Represents the input of a GetApplicationRevision operation.
--
--
--
-- /See:/ 'getApplicationRevision' smart constructor.
data GetApplicationRevision = GetApplicationRevision'
- { _garApplicationName :: !Text
- , _garRevision :: !RevisionLocation
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _garApplicationName :: !Text
+ , _garRevision :: !RevisionLocation
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetApplicationRevision' with the minimum fields required to make a request.
--
@@ -69,10 +70,9 @@ getApplicationRevision
-> RevisionLocation -- ^ 'garRevision'
-> GetApplicationRevision
getApplicationRevision pApplicationName_ pRevision_ =
- GetApplicationRevision'
- { _garApplicationName = pApplicationName_
- , _garRevision = pRevision_
- }
+ GetApplicationRevision'
+ {_garApplicationName = pApplicationName_, _garRevision = pRevision_}
+
-- | The name of the application that corresponds to the revision.
garApplicationName :: Lens' GetApplicationRevision Text
@@ -94,9 +94,9 @@ instance AWSRequest GetApplicationRevision where
<*> (x .?> "revision")
<*> (pure (fromEnum s)))
-instance Hashable GetApplicationRevision
+instance Hashable GetApplicationRevision where
-instance NFData GetApplicationRevision
+instance NFData GetApplicationRevision where
instance ToHeaders GetApplicationRevision where
toHeaders
@@ -121,17 +121,18 @@ instance ToPath GetApplicationRevision where
instance ToQuery GetApplicationRevision where
toQuery = const mempty
--- | Represents the output of a get application revision operation.
+-- | Represents the output of a GetApplicationRevision operation.
--
--
--
-- /See:/ 'getApplicationRevisionResponse' smart constructor.
data GetApplicationRevisionResponse = GetApplicationRevisionResponse'
- { _garrsApplicationName :: !(Maybe Text)
- , _garrsRevisionInfo :: !(Maybe GenericRevisionInfo)
- , _garrsRevision :: !(Maybe RevisionLocation)
- , _garrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _garrsApplicationName :: !(Maybe Text)
+ , _garrsRevisionInfo :: !(Maybe GenericRevisionInfo)
+ , _garrsRevision :: !(Maybe RevisionLocation)
+ , _garrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetApplicationRevisionResponse' with the minimum fields required to make a request.
--
@@ -148,12 +149,13 @@ getApplicationRevisionResponse
:: Int -- ^ 'garrsResponseStatus'
-> GetApplicationRevisionResponse
getApplicationRevisionResponse pResponseStatus_ =
- GetApplicationRevisionResponse'
- { _garrsApplicationName = Nothing
- , _garrsRevisionInfo = Nothing
- , _garrsRevision = Nothing
- , _garrsResponseStatus = pResponseStatus_
- }
+ GetApplicationRevisionResponse'
+ { _garrsApplicationName = Nothing
+ , _garrsRevisionInfo = Nothing
+ , _garrsRevision = Nothing
+ , _garrsResponseStatus = pResponseStatus_
+ }
+
-- | The name of the application that corresponds to the revision.
garrsApplicationName :: Lens' GetApplicationRevisionResponse (Maybe Text)
@@ -171,4 +173,4 @@ garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a});
garrsResponseStatus :: Lens' GetApplicationRevisionResponse Int
garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a});
-instance NFData GetApplicationRevisionResponse
+instance NFData GetApplicationRevisionResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeployment.hs b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
index a469c37..946ecaa 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeployment
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.GetDeployment
, gdrsResponseStatus
) 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
+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 get deployment operation.
+-- | Represents the input of a GetDeployment operation.
--
--
--
-- /See:/ 'getDeployment' smart constructor.
newtype GetDeployment = GetDeployment'
- { _gdDeploymentId :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdDeploymentId :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeployment' with the minimum fields required to make a request.
--
@@ -61,10 +62,8 @@ newtype GetDeployment = GetDeployment'
getDeployment
:: Text -- ^ 'gdDeploymentId'
-> GetDeployment
-getDeployment pDeploymentId_ =
- GetDeployment'
- { _gdDeploymentId = pDeploymentId_
- }
+getDeployment pDeploymentId_ = GetDeployment' {_gdDeploymentId = pDeploymentId_}
+
-- | A deployment ID associated with the applicable IAM user or AWS account.
gdDeploymentId :: Lens' GetDeployment Text
@@ -79,9 +78,9 @@ instance AWSRequest GetDeployment where
GetDeploymentResponse' <$>
(x .?> "deploymentInfo") <*> (pure (fromEnum s)))
-instance Hashable GetDeployment
+instance Hashable GetDeployment where
-instance NFData GetDeployment
+instance NFData GetDeployment where
instance ToHeaders GetDeployment where
toHeaders
@@ -104,15 +103,16 @@ instance ToPath GetDeployment where
instance ToQuery GetDeployment where
toQuery = const mempty
--- | Represents the output of a get deployment operation.
+-- | Represents the output of a GetDeployment operation.
--
--
--
-- /See:/ 'getDeploymentResponse' smart constructor.
data GetDeploymentResponse = GetDeploymentResponse'
- { _gdrsDeploymentInfo :: !(Maybe DeploymentInfo)
- , _gdrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdrsDeploymentInfo :: !(Maybe DeploymentInfo)
+ , _gdrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentResponse' with the minimum fields required to make a request.
--
@@ -125,10 +125,9 @@ getDeploymentResponse
:: Int -- ^ 'gdrsResponseStatus'
-> GetDeploymentResponse
getDeploymentResponse pResponseStatus_ =
- GetDeploymentResponse'
- { _gdrsDeploymentInfo = Nothing
- , _gdrsResponseStatus = pResponseStatus_
- }
+ GetDeploymentResponse'
+ {_gdrsDeploymentInfo = Nothing, _gdrsResponseStatus = pResponseStatus_}
+
-- | Information about the deployment.
gdrsDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo)
@@ -138,4 +137,4 @@ gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo =
gdrsResponseStatus :: Lens' GetDeploymentResponse Int
gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a});
-instance NFData GetDeploymentResponse
+instance NFData GetDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
index 08913be..d56287e 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentConfig
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.GetDeploymentConfig
, gdcrsResponseStatus
) 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
+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 get deployment configuration operation.
+-- | Represents the input of a GetDeploymentConfig operation.
--
--
--
-- /See:/ 'getDeploymentConfig' smart constructor.
newtype GetDeploymentConfig = GetDeploymentConfig'
- { _gdcDeploymentConfigName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdcDeploymentConfigName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentConfig' with the minimum fields required to make a request.
--
@@ -62,9 +63,8 @@ getDeploymentConfig
:: Text -- ^ 'gdcDeploymentConfigName'
-> GetDeploymentConfig
getDeploymentConfig pDeploymentConfigName_ =
- GetDeploymentConfig'
- { _gdcDeploymentConfigName = pDeploymentConfigName_
- }
+ GetDeploymentConfig' {_gdcDeploymentConfigName = pDeploymentConfigName_}
+
-- | The name of a deployment configuration associated with the applicable IAM user or AWS account.
gdcDeploymentConfigName :: Lens' GetDeploymentConfig Text
@@ -81,9 +81,9 @@ instance AWSRequest GetDeploymentConfig where
(x .?> "deploymentConfigInfo") <*>
(pure (fromEnum s)))
-instance Hashable GetDeploymentConfig
+instance Hashable GetDeploymentConfig where
-instance NFData GetDeploymentConfig
+instance NFData GetDeploymentConfig where
instance ToHeaders GetDeploymentConfig where
toHeaders
@@ -109,15 +109,16 @@ instance ToPath GetDeploymentConfig where
instance ToQuery GetDeploymentConfig where
toQuery = const mempty
--- | Represents the output of a get deployment configuration operation.
+-- | Represents the output of a GetDeploymentConfig operation.
--
--
--
-- /See:/ 'getDeploymentConfigResponse' smart constructor.
data GetDeploymentConfigResponse = GetDeploymentConfigResponse'
- { _gdcrsDeploymentConfigInfo :: !(Maybe DeploymentConfigInfo)
- , _gdcrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdcrsDeploymentConfigInfo :: !(Maybe DeploymentConfigInfo)
+ , _gdcrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentConfigResponse' with the minimum fields required to make a request.
--
@@ -130,10 +131,11 @@ getDeploymentConfigResponse
:: Int -- ^ 'gdcrsResponseStatus'
-> GetDeploymentConfigResponse
getDeploymentConfigResponse pResponseStatus_ =
- GetDeploymentConfigResponse'
- { _gdcrsDeploymentConfigInfo = Nothing
- , _gdcrsResponseStatus = pResponseStatus_
- }
+ GetDeploymentConfigResponse'
+ { _gdcrsDeploymentConfigInfo = Nothing
+ , _gdcrsResponseStatus = pResponseStatus_
+ }
+
-- | Information about the deployment configuration.
gdcrsDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo)
@@ -143,4 +145,4 @@ gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDe
gdcrsResponseStatus :: Lens' GetDeploymentConfigResponse Int
gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a});
-instance NFData GetDeploymentConfigResponse
+instance NFData GetDeploymentConfigResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
index a2db9d7..f8cb337 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentGroup
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -38,22 +38,23 @@ module Network.AWS.CodeDeploy.GetDeploymentGroup
, gdgrsResponseStatus
) 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
+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 get deployment group operation.
+-- | Represents the input of a GetDeploymentGroup operation.
--
--
--
-- /See:/ 'getDeploymentGroup' smart constructor.
data GetDeploymentGroup = GetDeploymentGroup'
- { _gdgApplicationName :: !Text
- , _gdgDeploymentGroupName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdgApplicationName :: !Text
+ , _gdgDeploymentGroupName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentGroup' with the minimum fields required to make a request.
--
@@ -67,10 +68,11 @@ getDeploymentGroup
-> Text -- ^ 'gdgDeploymentGroupName'
-> GetDeploymentGroup
getDeploymentGroup pApplicationName_ pDeploymentGroupName_ =
- GetDeploymentGroup'
- { _gdgApplicationName = pApplicationName_
- , _gdgDeploymentGroupName = pDeploymentGroupName_
- }
+ GetDeploymentGroup'
+ { _gdgApplicationName = pApplicationName_
+ , _gdgDeploymentGroupName = pDeploymentGroupName_
+ }
+
-- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.
gdgApplicationName :: Lens' GetDeploymentGroup Text
@@ -91,9 +93,9 @@ instance AWSRequest GetDeploymentGroup where
(x .?> "deploymentGroupInfo") <*>
(pure (fromEnum s)))
-instance Hashable GetDeploymentGroup
+instance Hashable GetDeploymentGroup where
-instance NFData GetDeploymentGroup
+instance NFData GetDeploymentGroup where
instance ToHeaders GetDeploymentGroup where
toHeaders
@@ -119,15 +121,16 @@ instance ToPath GetDeploymentGroup where
instance ToQuery GetDeploymentGroup where
toQuery = const mempty
--- | Represents the output of a get deployment group operation.
+-- | Represents the output of a GetDeploymentGroup operation.
--
--
--
-- /See:/ 'getDeploymentGroupResponse' smart constructor.
data GetDeploymentGroupResponse = GetDeploymentGroupResponse'
- { _gdgrsDeploymentGroupInfo :: !(Maybe DeploymentGroupInfo)
- , _gdgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdgrsDeploymentGroupInfo :: !(Maybe DeploymentGroupInfo)
+ , _gdgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentGroupResponse' with the minimum fields required to make a request.
--
@@ -140,10 +143,9 @@ getDeploymentGroupResponse
:: Int -- ^ 'gdgrsResponseStatus'
-> GetDeploymentGroupResponse
getDeploymentGroupResponse pResponseStatus_ =
- GetDeploymentGroupResponse'
- { _gdgrsDeploymentGroupInfo = Nothing
- , _gdgrsResponseStatus = pResponseStatus_
- }
+ GetDeploymentGroupResponse'
+ {_gdgrsDeploymentGroupInfo = Nothing, _gdgrsResponseStatus = pResponseStatus_}
+
-- | Information about the deployment group.
gdgrsDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo)
@@ -153,4 +155,4 @@ gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDepl
gdgrsResponseStatus :: Lens' GetDeploymentGroupResponse Int
gdgrsResponseStatus = lens _gdgrsResponseStatus (\ s a -> s{_gdgrsResponseStatus = a});
-instance NFData GetDeploymentGroupResponse
+instance NFData GetDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
index c22486b..a0ba02f 100644
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetDeploymentInstance
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -38,22 +38,23 @@ module Network.AWS.CodeDeploy.GetDeploymentInstance
, gdirsResponseStatus
) 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
+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 get deployment instance operation.
+-- | Represents the input of a GetDeploymentInstance operation.
--
--
--
-- /See:/ 'getDeploymentInstance' smart constructor.
data GetDeploymentInstance = GetDeploymentInstance'
- { _gdiDeploymentId :: !Text
- , _gdiInstanceId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdiDeploymentId :: !Text
+ , _gdiInstanceId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentInstance' with the minimum fields required to make a request.
--
@@ -67,10 +68,9 @@ getDeploymentInstance
-> Text -- ^ 'gdiInstanceId'
-> GetDeploymentInstance
getDeploymentInstance pDeploymentId_ pInstanceId_ =
- GetDeploymentInstance'
- { _gdiDeploymentId = pDeploymentId_
- , _gdiInstanceId = pInstanceId_
- }
+ GetDeploymentInstance'
+ {_gdiDeploymentId = pDeploymentId_, _gdiInstanceId = pInstanceId_}
+
-- | The unique ID of a deployment.
gdiDeploymentId :: Lens' GetDeploymentInstance Text
@@ -90,9 +90,9 @@ instance AWSRequest GetDeploymentInstance where
GetDeploymentInstanceResponse' <$>
(x .?> "instanceSummary") <*> (pure (fromEnum s)))
-instance Hashable GetDeploymentInstance
+instance Hashable GetDeploymentInstance where
-instance NFData GetDeploymentInstance
+instance NFData GetDeploymentInstance where
instance ToHeaders GetDeploymentInstance where
toHeaders
@@ -117,15 +117,16 @@ instance ToPath GetDeploymentInstance where
instance ToQuery GetDeploymentInstance where
toQuery = const mempty
--- | Represents the output of a get deployment instance operation.
+-- | Represents the output of a GetDeploymentInstance operation.
--
--
--
-- /See:/ 'getDeploymentInstanceResponse' smart constructor.
data GetDeploymentInstanceResponse = GetDeploymentInstanceResponse'
- { _gdirsInstanceSummary :: !(Maybe InstanceSummary)
- , _gdirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gdirsInstanceSummary :: !(Maybe InstanceSummary)
+ , _gdirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetDeploymentInstanceResponse' with the minimum fields required to make a request.
--
@@ -138,10 +139,9 @@ getDeploymentInstanceResponse
:: Int -- ^ 'gdirsResponseStatus'
-> GetDeploymentInstanceResponse
getDeploymentInstanceResponse pResponseStatus_ =
- GetDeploymentInstanceResponse'
- { _gdirsInstanceSummary = Nothing
- , _gdirsResponseStatus = pResponseStatus_
- }
+ GetDeploymentInstanceResponse'
+ {_gdirsInstanceSummary = Nothing, _gdirsResponseStatus = pResponseStatus_}
+
-- | Information about the instance.
gdirsInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary)
@@ -151,4 +151,4 @@ gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSumm
gdirsResponseStatus :: Lens' GetDeploymentInstanceResponse Int
gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a});
-instance NFData GetDeploymentInstanceResponse
+instance NFData GetDeploymentInstanceResponse where
diff --git a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
index fdd0131..634209c 100644
--- a/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.GetOnPremisesInstance
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -37,21 +37,22 @@ module Network.AWS.CodeDeploy.GetOnPremisesInstance
, gopirsResponseStatus
) 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
+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 get on-premises instance operation.
+-- | Represents the input of a GetOnPremisesInstance operation.
--
--
--
-- /See:/ 'getOnPremisesInstance' smart constructor.
newtype GetOnPremisesInstance = GetOnPremisesInstance'
- { _gopiInstanceName :: Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gopiInstanceName :: Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOnPremisesInstance' with the minimum fields required to make a request.
--
@@ -62,9 +63,8 @@ getOnPremisesInstance
:: Text -- ^ 'gopiInstanceName'
-> GetOnPremisesInstance
getOnPremisesInstance pInstanceName_ =
- GetOnPremisesInstance'
- { _gopiInstanceName = pInstanceName_
- }
+ GetOnPremisesInstance' {_gopiInstanceName = pInstanceName_}
+
-- | The name of the on-premises instance about which to get information.
gopiInstanceName :: Lens' GetOnPremisesInstance Text
@@ -80,9 +80,9 @@ instance AWSRequest GetOnPremisesInstance where
GetOnPremisesInstanceResponse' <$>
(x .?> "instanceInfo") <*> (pure (fromEnum s)))
-instance Hashable GetOnPremisesInstance
+instance Hashable GetOnPremisesInstance where
-instance NFData GetOnPremisesInstance
+instance NFData GetOnPremisesInstance where
instance ToHeaders GetOnPremisesInstance where
toHeaders
@@ -106,15 +106,16 @@ instance ToPath GetOnPremisesInstance where
instance ToQuery GetOnPremisesInstance where
toQuery = const mempty
--- | Represents the output of a get on-premises instance operation.
+-- | Represents the output of a GetOnPremisesInstance operation.
--
--
--
-- /See:/ 'getOnPremisesInstanceResponse' smart constructor.
data GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse'
- { _gopirsInstanceInfo :: !(Maybe InstanceInfo)
- , _gopirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _gopirsInstanceInfo :: !(Maybe InstanceInfo)
+ , _gopirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GetOnPremisesInstanceResponse' with the minimum fields required to make a request.
--
@@ -127,10 +128,9 @@ getOnPremisesInstanceResponse
:: Int -- ^ 'gopirsResponseStatus'
-> GetOnPremisesInstanceResponse
getOnPremisesInstanceResponse pResponseStatus_ =
- GetOnPremisesInstanceResponse'
- { _gopirsInstanceInfo = Nothing
- , _gopirsResponseStatus = pResponseStatus_
- }
+ GetOnPremisesInstanceResponse'
+ {_gopirsInstanceInfo = Nothing, _gopirsResponseStatus = pResponseStatus_}
+
-- | Information about the on-premises instance.
gopirsInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo)
@@ -140,4 +140,4 @@ gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo =
gopirsResponseStatus :: Lens' GetOnPremisesInstanceResponse Int
gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a});
-instance NFData GetOnPremisesInstanceResponse
+instance NFData GetOnPremisesInstanceResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
index 7fafd4f..de64956 100644
--- a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListApplicationRevisions
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists information about revisions for an application.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListApplicationRevisions
(
-- * Creating a Request
@@ -44,27 +46,29 @@ module Network.AWS.CodeDeploy.ListApplicationRevisions
, larrsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list application revisions operation.
+-- | Represents the input of a ListApplicationRevisions operation.
--
--
--
-- /See:/ 'listApplicationRevisions' smart constructor.
data ListApplicationRevisions = ListApplicationRevisions'
- { _larS3KeyPrefix :: !(Maybe Text)
- , _larDeployed :: !(Maybe ListStateFilterAction)
- , _larSortOrder :: !(Maybe SortOrder)
- , _larNextToken :: !(Maybe Text)
- , _larS3Bucket :: !(Maybe Text)
- , _larSortBy :: !(Maybe ApplicationRevisionSortBy)
- , _larApplicationName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _larS3KeyPrefix :: !(Maybe Text)
+ , _larDeployed :: !(Maybe ListStateFilterAction)
+ , _larSortOrder :: !(Maybe SortOrder)
+ , _larNextToken :: !(Maybe Text)
+ , _larS3Bucket :: !(Maybe Text)
+ , _larSortBy :: !(Maybe ApplicationRevisionSortBy)
+ , _larApplicationName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListApplicationRevisions' with the minimum fields required to make a request.
--
@@ -87,15 +91,16 @@ listApplicationRevisions
:: Text -- ^ 'larApplicationName'
-> ListApplicationRevisions
listApplicationRevisions pApplicationName_ =
- ListApplicationRevisions'
- { _larS3KeyPrefix = Nothing
- , _larDeployed = Nothing
- , _larSortOrder = Nothing
- , _larNextToken = Nothing
- , _larS3Bucket = Nothing
- , _larSortBy = Nothing
- , _larApplicationName = pApplicationName_
- }
+ ListApplicationRevisions'
+ { _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)
@@ -125,6 +130,13 @@ larSortBy = lens _larSortBy (\ s a -> s{_larSortBy = a});
larApplicationName :: Lens' ListApplicationRevisions Text
larApplicationName = lens _larApplicationName (\ s a -> s{_larApplicationName = a});
+instance AWSPager ListApplicationRevisions where
+ page rq rs
+ | stop (rs ^. larrsNextToken) = Nothing
+ | stop (rs ^. larrsRevisions) = Nothing
+ | otherwise =
+ Just $ rq & larNextToken .~ rs ^. larrsNextToken
+
instance AWSRequest ListApplicationRevisions where
type Rs ListApplicationRevisions =
ListApplicationRevisionsResponse
@@ -137,9 +149,9 @@ instance AWSRequest ListApplicationRevisions where
(x .?> "revisions" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListApplicationRevisions
+instance Hashable ListApplicationRevisions where
-instance NFData ListApplicationRevisions
+instance NFData ListApplicationRevisions where
instance ToHeaders ListApplicationRevisions where
toHeaders
@@ -169,16 +181,17 @@ instance ToPath ListApplicationRevisions where
instance ToQuery ListApplicationRevisions where
toQuery = const mempty
--- | Represents the output of a list application revisions operation.
+-- | Represents the output of a ListApplicationRevisions operation.
--
--
--
-- /See:/ 'listApplicationRevisionsResponse' smart constructor.
data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse'
- { _larrsNextToken :: !(Maybe Text)
- , _larrsRevisions :: !(Maybe [RevisionLocation])
- , _larrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _larrsNextToken :: !(Maybe Text)
+ , _larrsRevisions :: !(Maybe [RevisionLocation])
+ , _larrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListApplicationRevisionsResponse' with the minimum fields required to make a request.
--
@@ -193,11 +206,12 @@ listApplicationRevisionsResponse
:: Int -- ^ 'larrsResponseStatus'
-> ListApplicationRevisionsResponse
listApplicationRevisionsResponse pResponseStatus_ =
- ListApplicationRevisionsResponse'
- { _larrsNextToken = Nothing
- , _larrsRevisions = Nothing
- , _larrsResponseStatus = pResponseStatus_
- }
+ ListApplicationRevisionsResponse'
+ { _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)
@@ -212,3 +226,4 @@ larrsResponseStatus :: Lens' ListApplicationRevisionsResponse Int
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 b752a82..553bf03 100644
--- a/gen/Network/AWS/CodeDeploy/ListApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplications.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListApplications
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the applications registered with the applicable IAM user or AWS account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListApplications
(
-- * Creating a Request
@@ -38,21 +40,23 @@ module Network.AWS.CodeDeploy.ListApplications
, larsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list applications operation.
+-- | Represents the input of a ListApplications operation.
--
--
--
-- /See:/ 'listApplications' smart constructor.
newtype ListApplications = ListApplications'
- { _laNextToken :: Maybe Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _laNextToken :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListApplications' with the minimum fields required to make a request.
--
@@ -61,15 +65,20 @@ newtype ListApplications = ListApplications'
-- * 'laNextToken' - An identifier returned from the previous list applications call. It can be used to return the next set of applications in the list.
listApplications
:: ListApplications
-listApplications =
- ListApplications'
- { _laNextToken = Nothing
- }
+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});
+instance AWSPager ListApplications where
+ page rq rs
+ | stop (rs ^. larsNextToken) = Nothing
+ | stop (rs ^. larsApplications) = Nothing
+ | otherwise =
+ Just $ rq & laNextToken .~ rs ^. larsNextToken
+
instance AWSRequest ListApplications where
type Rs ListApplications = ListApplicationsResponse
request = postJSON codeDeploy
@@ -81,9 +90,9 @@ instance AWSRequest ListApplications where
(x .?> "applications" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListApplications
+instance Hashable ListApplications where
-instance NFData ListApplications
+instance NFData ListApplications where
instance ToHeaders ListApplications where
toHeaders
@@ -106,16 +115,17 @@ instance ToPath ListApplications where
instance ToQuery ListApplications where
toQuery = const mempty
--- | Represents the output of a list applications operation.
+-- | Represents the output of a ListApplications operation.
--
--
--
-- /See:/ 'listApplicationsResponse' smart constructor.
data ListApplicationsResponse = ListApplicationsResponse'
- { _larsNextToken :: !(Maybe Text)
- , _larsApplications :: !(Maybe [Text])
- , _larsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _larsNextToken :: !(Maybe Text)
+ , _larsApplications :: !(Maybe [Text])
+ , _larsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListApplicationsResponse' with the minimum fields required to make a request.
--
@@ -130,11 +140,12 @@ listApplicationsResponse
:: Int -- ^ 'larsResponseStatus'
-> ListApplicationsResponse
listApplicationsResponse pResponseStatus_ =
- ListApplicationsResponse'
- { _larsNextToken = Nothing
- , _larsApplications = Nothing
- , _larsResponseStatus = pResponseStatus_
- }
+ ListApplicationsResponse'
+ { _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)
@@ -148,4 +159,4 @@ larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) .
larsResponseStatus :: Lens' ListApplicationsResponse Int
larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a});
-instance NFData ListApplicationsResponse
+instance NFData ListApplicationsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
index 77367a2..e95b347 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentConfigs
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the deployment configurations with the applicable IAM user or AWS account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListDeploymentConfigs
(
-- * Creating a Request
@@ -38,21 +40,23 @@ module Network.AWS.CodeDeploy.ListDeploymentConfigs
, ldcrsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list deployment configurations operation.
+-- | Represents the input of a ListDeploymentConfigs operation.
--
--
--
-- /See:/ 'listDeploymentConfigs' smart constructor.
newtype ListDeploymentConfigs = ListDeploymentConfigs'
- { _ldcNextToken :: Maybe Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldcNextToken :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentConfigs' with the minimum fields required to make a request.
--
@@ -61,15 +65,20 @@ newtype ListDeploymentConfigs = ListDeploymentConfigs'
-- * 'ldcNextToken' - 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.
listDeploymentConfigs
:: ListDeploymentConfigs
-listDeploymentConfigs =
- ListDeploymentConfigs'
- { _ldcNextToken = Nothing
- }
+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});
+instance AWSPager ListDeploymentConfigs where
+ page rq rs
+ | stop (rs ^. ldcrsNextToken) = Nothing
+ | stop (rs ^. ldcrsDeploymentConfigsList) = Nothing
+ | otherwise =
+ Just $ rq & ldcNextToken .~ rs ^. ldcrsNextToken
+
instance AWSRequest ListDeploymentConfigs where
type Rs ListDeploymentConfigs =
ListDeploymentConfigsResponse
@@ -82,9 +91,9 @@ instance AWSRequest ListDeploymentConfigs where
(x .?> "deploymentConfigsList" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListDeploymentConfigs
+instance Hashable ListDeploymentConfigs where
-instance NFData ListDeploymentConfigs
+instance NFData ListDeploymentConfigs where
instance ToHeaders ListDeploymentConfigs where
toHeaders
@@ -107,16 +116,17 @@ instance ToPath ListDeploymentConfigs where
instance ToQuery ListDeploymentConfigs where
toQuery = const mempty
--- | Represents the output of a list deployment configurations operation.
+-- | Represents the output of a ListDeploymentConfigs operation.
--
--
--
-- /See:/ 'listDeploymentConfigsResponse' smart constructor.
data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse'
- { _ldcrsNextToken :: !(Maybe Text)
- , _ldcrsDeploymentConfigsList :: !(Maybe [Text])
- , _ldcrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldcrsNextToken :: !(Maybe Text)
+ , _ldcrsDeploymentConfigsList :: !(Maybe [Text])
+ , _ldcrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentConfigsResponse' with the minimum fields required to make a request.
--
@@ -131,11 +141,12 @@ listDeploymentConfigsResponse
:: Int -- ^ 'ldcrsResponseStatus'
-> ListDeploymentConfigsResponse
listDeploymentConfigsResponse pResponseStatus_ =
- ListDeploymentConfigsResponse'
- { _ldcrsNextToken = Nothing
- , _ldcrsDeploymentConfigsList = Nothing
- , _ldcrsResponseStatus = pResponseStatus_
- }
+ ListDeploymentConfigsResponse'
+ { _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)
@@ -149,4 +160,4 @@ ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrs
ldcrsResponseStatus :: Lens' ListDeploymentConfigsResponse Int
ldcrsResponseStatus = lens _ldcrsResponseStatus (\ s a -> s{_ldcrsResponseStatus = a});
-instance NFData ListDeploymentConfigsResponse
+instance NFData ListDeploymentConfigsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
index 6631827..92309a5 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentGroups
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the deployment groups for an application registered with the applicable IAM user or AWS account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListDeploymentGroups
(
-- * Creating a Request
@@ -40,22 +42,24 @@ module Network.AWS.CodeDeploy.ListDeploymentGroups
, ldgrsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list deployment groups operation.
+-- | Represents the input of a ListDeploymentGroups operation.
--
--
--
-- /See:/ 'listDeploymentGroups' smart constructor.
data ListDeploymentGroups = ListDeploymentGroups'
- { _ldgNextToken :: !(Maybe Text)
- , _ldgApplicationName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldgNextToken :: !(Maybe Text)
+ , _ldgApplicationName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentGroups' with the minimum fields required to make a request.
--
@@ -68,10 +72,9 @@ listDeploymentGroups
:: Text -- ^ 'ldgApplicationName'
-> ListDeploymentGroups
listDeploymentGroups pApplicationName_ =
- ListDeploymentGroups'
- { _ldgNextToken = Nothing
- , _ldgApplicationName = pApplicationName_
- }
+ ListDeploymentGroups'
+ {_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)
@@ -81,6 +84,13 @@ ldgNextToken = lens _ldgNextToken (\ s a -> s{_ldgNextToken = a});
ldgApplicationName :: Lens' ListDeploymentGroups Text
ldgApplicationName = lens _ldgApplicationName (\ s a -> s{_ldgApplicationName = a});
+instance AWSPager ListDeploymentGroups where
+ page rq rs
+ | stop (rs ^. ldgrsNextToken) = Nothing
+ | stop (rs ^. ldgrsDeploymentGroups) = Nothing
+ | otherwise =
+ Just $ rq & ldgNextToken .~ rs ^. ldgrsNextToken
+
instance AWSRequest ListDeploymentGroups where
type Rs ListDeploymentGroups =
ListDeploymentGroupsResponse
@@ -93,9 +103,9 @@ instance AWSRequest ListDeploymentGroups where
(x .?> "deploymentGroups" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListDeploymentGroups
+instance Hashable ListDeploymentGroups where
-instance NFData ListDeploymentGroups
+instance NFData ListDeploymentGroups where
instance ToHeaders ListDeploymentGroups where
toHeaders
@@ -120,17 +130,18 @@ instance ToPath ListDeploymentGroups where
instance ToQuery ListDeploymentGroups where
toQuery = const mempty
--- | Represents the output of a list deployment groups operation.
+-- | Represents the output of a ListDeploymentGroups operation.
--
--
--
-- /See:/ 'listDeploymentGroupsResponse' smart constructor.
data ListDeploymentGroupsResponse = ListDeploymentGroupsResponse'
- { _ldgrsNextToken :: !(Maybe Text)
- , _ldgrsApplicationName :: !(Maybe Text)
- , _ldgrsDeploymentGroups :: !(Maybe [Text])
- , _ldgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldgrsNextToken :: !(Maybe Text)
+ , _ldgrsApplicationName :: !(Maybe Text)
+ , _ldgrsDeploymentGroups :: !(Maybe [Text])
+ , _ldgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentGroupsResponse' with the minimum fields required to make a request.
--
@@ -147,12 +158,13 @@ listDeploymentGroupsResponse
:: Int -- ^ 'ldgrsResponseStatus'
-> ListDeploymentGroupsResponse
listDeploymentGroupsResponse pResponseStatus_ =
- ListDeploymentGroupsResponse'
- { _ldgrsNextToken = Nothing
- , _ldgrsApplicationName = Nothing
- , _ldgrsDeploymentGroups = Nothing
- , _ldgrsResponseStatus = pResponseStatus_
- }
+ ListDeploymentGroupsResponse'
+ { _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)
@@ -170,4 +182,4 @@ ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeployment
ldgrsResponseStatus :: Lens' ListDeploymentGroupsResponse Int
ldgrsResponseStatus = lens _ldgrsResponseStatus (\ s a -> s{_ldgrsResponseStatus = a});
-instance NFData ListDeploymentGroupsResponse
+instance NFData ListDeploymentGroupsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
index 74d5931..ff5609e 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
@@ -12,24 +12,27 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeploymentInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the instance for a deployment associated with the applicable IAM user or AWS account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListDeploymentInstances
(
-- * Creating a Request
listDeploymentInstances
, ListDeploymentInstances
-- * Request Lenses
- , ldiInstanceStatusFilter
- , ldiNextToken
- , ldiDeploymentId
+ , lInstanceStatusFilter
+ , lNextToken
+ , lInstanceTypeFilter
+ , lDeploymentId
-- * Destructuring the Response
, listDeploymentInstancesResponse
@@ -40,54 +43,72 @@ module Network.AWS.CodeDeploy.ListDeploymentInstances
, ldirsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list deployment instances operation.
+-- | Represents the input of a ListDeploymentInstances operation.
--
--
--
-- /See:/ 'listDeploymentInstances' smart constructor.
data ListDeploymentInstances = ListDeploymentInstances'
- { _ldiInstanceStatusFilter :: !(Maybe [InstanceStatus])
- , _ldiNextToken :: !(Maybe Text)
- , _ldiDeploymentId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lInstanceStatusFilter :: !(Maybe [InstanceStatus])
+ , _lNextToken :: !(Maybe Text)
+ , _lInstanceTypeFilter :: !(Maybe [InstanceType])
+ , _lDeploymentId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentInstances' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ldiInstanceStatusFilter' - 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' - 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.
--
--- * 'ldiNextToken' - 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' - 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.
--
--- * 'ldiDeploymentId' - The unique ID of a deployment.
+-- * 'lInstanceTypeFilter' - 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.
+--
+-- * 'lDeploymentId' - The unique ID of a deployment.
listDeploymentInstances
- :: Text -- ^ 'ldiDeploymentId'
+ :: Text -- ^ 'lDeploymentId'
-> ListDeploymentInstances
listDeploymentInstances pDeploymentId_ =
- ListDeploymentInstances'
- { _ldiInstanceStatusFilter = Nothing
- , _ldiNextToken = Nothing
- , _ldiDeploymentId = pDeploymentId_
- }
+ ListDeploymentInstances'
+ { _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.
-ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus]
-ldiInstanceStatusFilter = lens _ldiInstanceStatusFilter (\ s a -> s{_ldiInstanceStatusFilter = a}) . _Default . _Coerce;
+lInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus]
+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.
-ldiNextToken :: Lens' ListDeploymentInstances (Maybe Text)
-ldiNextToken = lens _ldiNextToken (\ s a -> s{_ldiNextToken = a});
+lNextToken :: Lens' ListDeploymentInstances (Maybe Text)
+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;
-- | The unique ID of a deployment.
-ldiDeploymentId :: Lens' ListDeploymentInstances Text
-ldiDeploymentId = lens _ldiDeploymentId (\ s a -> s{_ldiDeploymentId = a});
+lDeploymentId :: Lens' ListDeploymentInstances Text
+lDeploymentId = lens _lDeploymentId (\ s a -> s{_lDeploymentId = a});
+
+instance AWSPager ListDeploymentInstances where
+ page rq rs
+ | stop (rs ^. ldirsNextToken) = Nothing
+ | stop (rs ^. ldirsInstancesList) = Nothing
+ | otherwise =
+ Just $ rq & lNextToken .~ rs ^. ldirsNextToken
instance AWSRequest ListDeploymentInstances where
type Rs ListDeploymentInstances =
@@ -101,9 +122,9 @@ instance AWSRequest ListDeploymentInstances where
(x .?> "instancesList" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListDeploymentInstances
+instance Hashable ListDeploymentInstances where
-instance NFData ListDeploymentInstances
+instance NFData ListDeploymentInstances where
instance ToHeaders ListDeploymentInstances where
toHeaders
@@ -120,9 +141,10 @@ instance ToJSON ListDeploymentInstances where
= object
(catMaybes
[("instanceStatusFilter" .=) <$>
- _ldiInstanceStatusFilter,
- ("nextToken" .=) <$> _ldiNextToken,
- Just ("deploymentId" .= _ldiDeploymentId)])
+ _lInstanceStatusFilter,
+ ("nextToken" .=) <$> _lNextToken,
+ ("instanceTypeFilter" .=) <$> _lInstanceTypeFilter,
+ Just ("deploymentId" .= _lDeploymentId)])
instance ToPath ListDeploymentInstances where
toPath = const "/"
@@ -130,16 +152,17 @@ instance ToPath ListDeploymentInstances where
instance ToQuery ListDeploymentInstances where
toQuery = const mempty
--- | Represents the output of a list deployment instances operation.
+-- | Represents the output of a ListDeploymentInstances operation.
--
--
--
-- /See:/ 'listDeploymentInstancesResponse' smart constructor.
data ListDeploymentInstancesResponse = ListDeploymentInstancesResponse'
- { _ldirsNextToken :: !(Maybe Text)
- , _ldirsInstancesList :: !(Maybe [Text])
- , _ldirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldirsNextToken :: !(Maybe Text)
+ , _ldirsInstancesList :: !(Maybe [Text])
+ , _ldirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentInstancesResponse' with the minimum fields required to make a request.
--
@@ -154,11 +177,12 @@ listDeploymentInstancesResponse
:: Int -- ^ 'ldirsResponseStatus'
-> ListDeploymentInstancesResponse
listDeploymentInstancesResponse pResponseStatus_ =
- ListDeploymentInstancesResponse'
- { _ldirsNextToken = Nothing
- , _ldirsInstancesList = Nothing
- , _ldirsResponseStatus = pResponseStatus_
- }
+ ListDeploymentInstancesResponse'
+ { _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)
@@ -172,4 +196,4 @@ ldirsInstancesList = lens _ldirsInstancesList (\ s a -> s{_ldirsInstancesList =
ldirsResponseStatus :: Lens' ListDeploymentInstancesResponse Int
ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a});
-instance NFData ListDeploymentInstancesResponse
+instance NFData ListDeploymentInstancesResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListDeployments.hs b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
index 73d1827..8402124 100644
--- a/gen/Network/AWS/CodeDeploy/ListDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
@@ -12,15 +12,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListDeployments
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
-- Lists the deployments in a deployment group for an application registered with the applicable IAM user or AWS account.
--
--
+--
+-- This operation returns paginated results.
module Network.AWS.CodeDeploy.ListDeployments
(
-- * Creating a Request
@@ -42,25 +44,27 @@ module Network.AWS.CodeDeploy.ListDeployments
, ldrsResponseStatus
) 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
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.Lens
+import Network.AWS.Pager
+import Network.AWS.Prelude
+import Network.AWS.Request
+import Network.AWS.Response
--- | Represents the input of a list deployments operation.
+-- | Represents the input of a ListDeployments operation.
--
--
--
-- /See:/ 'listDeployments' smart constructor.
data ListDeployments = ListDeployments'
- { _ldCreateTimeRange :: !(Maybe TimeRange)
- , _ldNextToken :: !(Maybe Text)
- , _ldIncludeOnlyStatuses :: !(Maybe [DeploymentStatus])
- , _ldApplicationName :: !(Maybe Text)
- , _ldDeploymentGroupName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldCreateTimeRange :: !(Maybe TimeRange)
+ , _ldNextToken :: !(Maybe Text)
+ , _ldIncludeOnlyStatuses :: !(Maybe [DeploymentStatus])
+ , _ldApplicationName :: !(Maybe Text)
+ , _ldDeploymentGroupName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeployments' with the minimum fields required to make a request.
--
@@ -78,13 +82,14 @@ data ListDeployments = ListDeployments'
listDeployments
:: ListDeployments
listDeployments =
- ListDeployments'
- { _ldCreateTimeRange = Nothing
- , _ldNextToken = Nothing
- , _ldIncludeOnlyStatuses = Nothing
- , _ldApplicationName = Nothing
- , _ldDeploymentGroupName = Nothing
- }
+ ListDeployments'
+ { _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)
@@ -106,6 +111,13 @@ ldApplicationName = lens _ldApplicationName (\ s a -> s{_ldApplicationName = a})
ldDeploymentGroupName :: Lens' ListDeployments (Maybe Text)
ldDeploymentGroupName = lens _ldDeploymentGroupName (\ s a -> s{_ldDeploymentGroupName = a});
+instance AWSPager ListDeployments where
+ page rq rs
+ | stop (rs ^. ldrsNextToken) = Nothing
+ | stop (rs ^. ldrsDeployments) = Nothing
+ | otherwise =
+ Just $ rq & ldNextToken .~ rs ^. ldrsNextToken
+
instance AWSRequest ListDeployments where
type Rs ListDeployments = ListDeploymentsResponse
request = postJSON codeDeploy
@@ -117,9 +129,9 @@ instance AWSRequest ListDeployments where
(x .?> "deployments" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListDeployments
+instance Hashable ListDeployments where
-instance NFData ListDeployments
+instance NFData ListDeployments where
instance ToHeaders ListDeployments where
toHeaders
@@ -149,16 +161,17 @@ instance ToPath ListDeployments where
instance ToQuery ListDeployments where
toQuery = const mempty
--- | Represents the output of a list deployments operation.
+-- | Represents the output of a ListDeployments operation.
--
--
--
-- /See:/ 'listDeploymentsResponse' smart constructor.
data ListDeploymentsResponse = ListDeploymentsResponse'
- { _ldrsNextToken :: !(Maybe Text)
- , _ldrsDeployments :: !(Maybe [Text])
- , _ldrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ldrsNextToken :: !(Maybe Text)
+ , _ldrsDeployments :: !(Maybe [Text])
+ , _ldrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListDeploymentsResponse' with the minimum fields required to make a request.
--
@@ -173,11 +186,12 @@ listDeploymentsResponse
:: Int -- ^ 'ldrsResponseStatus'
-> ListDeploymentsResponse
listDeploymentsResponse pResponseStatus_ =
- ListDeploymentsResponse'
- { _ldrsNextToken = Nothing
- , _ldrsDeployments = Nothing
- , _ldrsResponseStatus = pResponseStatus_
- }
+ ListDeploymentsResponse'
+ { _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)
@@ -191,4 +205,4 @@ ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _De
ldrsResponseStatus :: Lens' ListDeploymentsResponse Int
ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});
-instance NFData ListDeploymentsResponse
+instance NFData ListDeploymentsResponse where
diff --git a/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs b/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs
new file mode 100644
index 0000000..4f19832
--- /dev/null
+++ b/gen/Network/AWS/CodeDeploy/ListGitHubAccountTokenNames.hs
@@ -0,0 +1,155 @@
+{-# 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.ListGitHubAccountTokenNames
+-- Copyright : (c) 2013-2017 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)
+--
+-- Lists the names of stored connections to GitHub accounts.
+--
+--
+module Network.AWS.CodeDeploy.ListGitHubAccountTokenNames
+ (
+ -- * Creating a Request
+ listGitHubAccountTokenNames
+ , ListGitHubAccountTokenNames
+ -- * Request Lenses
+ , lghatnNextToken
+
+ -- * Destructuring the Response
+ , listGitHubAccountTokenNamesResponse
+ , ListGitHubAccountTokenNamesResponse
+ -- * Response Lenses
+ , lghatnrsTokenNameList
+ , lghatnrsNextToken
+ , lghatnrsResponseStatus
+ ) 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 ListGitHubAccountTokenNames operation.
+--
+--
+--
+-- /See:/ 'listGitHubAccountTokenNames' smart constructor.
+newtype ListGitHubAccountTokenNames = ListGitHubAccountTokenNames'
+ { _lghatnNextToken :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListGitHubAccountTokenNames' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lghatnNextToken' - An identifier returned from the previous ListGitHubAccountTokenNames call. It can be used to return the next set of names in the list.
+listGitHubAccountTokenNames
+ :: ListGitHubAccountTokenNames
+listGitHubAccountTokenNames =
+ ListGitHubAccountTokenNames' {_lghatnNextToken = Nothing}
+
+
+-- | 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});
+
+instance AWSRequest ListGitHubAccountTokenNames where
+ type Rs ListGitHubAccountTokenNames =
+ ListGitHubAccountTokenNamesResponse
+ request = postJSON codeDeploy
+ response
+ = receiveJSON
+ (\ s h x ->
+ ListGitHubAccountTokenNamesResponse' <$>
+ (x .?> "tokenNameList" .!@ mempty) <*>
+ (x .?> "nextToken")
+ <*> (pure (fromEnum s)))
+
+instance Hashable ListGitHubAccountTokenNames where
+
+instance NFData ListGitHubAccountTokenNames where
+
+instance ToHeaders ListGitHubAccountTokenNames where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("CodeDeploy_20141006.ListGitHubAccountTokenNames" ::
+ ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON ListGitHubAccountTokenNames where
+ toJSON ListGitHubAccountTokenNames'{..}
+ = object
+ (catMaybes [("nextToken" .=) <$> _lghatnNextToken])
+
+instance ToPath ListGitHubAccountTokenNames where
+ toPath = const "/"
+
+instance ToQuery ListGitHubAccountTokenNames where
+ toQuery = const mempty
+
+-- | Represents the output of a ListGitHubAccountTokenNames operation.
+--
+--
+--
+-- /See:/ 'listGitHubAccountTokenNamesResponse' smart constructor.
+data ListGitHubAccountTokenNamesResponse = ListGitHubAccountTokenNamesResponse'
+ { _lghatnrsTokenNameList :: !(Maybe [Text])
+ , _lghatnrsNextToken :: !(Maybe Text)
+ , _lghatnrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ListGitHubAccountTokenNamesResponse' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lghatnrsTokenNameList' - A list of names of connections to GitHub accounts.
+--
+-- * 'lghatnrsNextToken' - 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.
+--
+-- * 'lghatnrsResponseStatus' - -- | The response status code.
+listGitHubAccountTokenNamesResponse
+ :: Int -- ^ 'lghatnrsResponseStatus'
+ -> ListGitHubAccountTokenNamesResponse
+listGitHubAccountTokenNamesResponse pResponseStatus_ =
+ ListGitHubAccountTokenNamesResponse'
+ { _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;
+
+-- | 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});
+
+-- | -- | The response status code.
+lghatnrsResponseStatus :: Lens' ListGitHubAccountTokenNamesResponse Int
+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 725b1d6..1be7092 100644
--- a/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.ListOnPremisesInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -42,23 +42,24 @@ module Network.AWS.CodeDeploy.ListOnPremisesInstances
, lopirsResponseStatus
) 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
+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 list on-premises instances operation.
+-- | Represents the input of a ListOnPremisesInstances operation.
--
--
--
-- /See:/ 'listOnPremisesInstances' smart constructor.
data ListOnPremisesInstances = ListOnPremisesInstances'
- { _lopiTagFilters :: !(Maybe [TagFilter])
- , _lopiNextToken :: !(Maybe Text)
- , _lopiRegistrationStatus :: !(Maybe RegistrationStatus)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lopiTagFilters :: !(Maybe [TagFilter])
+ , _lopiNextToken :: !(Maybe Text)
+ , _lopiRegistrationStatus :: !(Maybe RegistrationStatus)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListOnPremisesInstances' with the minimum fields required to make a request.
--
@@ -72,11 +73,12 @@ data ListOnPremisesInstances = ListOnPremisesInstances'
listOnPremisesInstances
:: ListOnPremisesInstances
listOnPremisesInstances =
- ListOnPremisesInstances'
- { _lopiTagFilters = Nothing
- , _lopiNextToken = Nothing
- , _lopiRegistrationStatus = Nothing
- }
+ ListOnPremisesInstances'
+ { _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]
@@ -102,9 +104,9 @@ instance AWSRequest ListOnPremisesInstances where
(x .?> "instanceNames" .!@ mempty)
<*> (pure (fromEnum s)))
-instance Hashable ListOnPremisesInstances
+instance Hashable ListOnPremisesInstances where
-instance NFData ListOnPremisesInstances
+instance NFData ListOnPremisesInstances where
instance ToHeaders ListOnPremisesInstances where
toHeaders
@@ -137,10 +139,11 @@ instance ToQuery ListOnPremisesInstances where
--
-- /See:/ 'listOnPremisesInstancesResponse' smart constructor.
data ListOnPremisesInstancesResponse = ListOnPremisesInstancesResponse'
- { _lopirsNextToken :: !(Maybe Text)
- , _lopirsInstanceNames :: !(Maybe [Text])
- , _lopirsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _lopirsNextToken :: !(Maybe Text)
+ , _lopirsInstanceNames :: !(Maybe [Text])
+ , _lopirsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ListOnPremisesInstancesResponse' with the minimum fields required to make a request.
--
@@ -155,11 +158,12 @@ listOnPremisesInstancesResponse
:: Int -- ^ 'lopirsResponseStatus'
-> ListOnPremisesInstancesResponse
listOnPremisesInstancesResponse pResponseStatus_ =
- ListOnPremisesInstancesResponse'
- { _lopirsNextToken = Nothing
- , _lopirsInstanceNames = Nothing
- , _lopirsResponseStatus = pResponseStatus_
- }
+ ListOnPremisesInstancesResponse'
+ { _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)
@@ -173,4 +177,4 @@ lopirsInstanceNames = lens _lopirsInstanceNames (\ s a -> s{_lopirsInstanceNames
lopirsResponseStatus :: Lens' ListOnPremisesInstancesResponse Int
lopirsResponseStatus = lens _lopirsResponseStatus (\ s a -> s{_lopirsResponseStatus = a});
-instance NFData ListOnPremisesInstancesResponse
+instance NFData ListOnPremisesInstancesResponse where
diff --git a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
index 4781b92..009292a 100644
--- a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.RegisterApplicationRevision
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -36,23 +36,24 @@ module Network.AWS.CodeDeploy.RegisterApplicationRevision
, RegisterApplicationRevisionResponse
) 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
+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 register application revision operation.
+-- | Represents the input of a RegisterApplicationRevision operation.
--
--
--
-- /See:/ 'registerApplicationRevision' smart constructor.
data RegisterApplicationRevision = RegisterApplicationRevision'
- { _rarDescription :: !(Maybe Text)
- , _rarApplicationName :: !Text
- , _rarRevision :: !RevisionLocation
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _rarDescription :: !(Maybe Text)
+ , _rarApplicationName :: !Text
+ , _rarRevision :: !RevisionLocation
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RegisterApplicationRevision' with the minimum fields required to make a request.
--
@@ -68,11 +69,12 @@ registerApplicationRevision
-> RevisionLocation -- ^ 'rarRevision'
-> RegisterApplicationRevision
registerApplicationRevision pApplicationName_ pRevision_ =
- RegisterApplicationRevision'
- { _rarDescription = Nothing
- , _rarApplicationName = pApplicationName_
- , _rarRevision = pRevision_
- }
+ RegisterApplicationRevision'
+ { _rarDescription = Nothing
+ , _rarApplicationName = pApplicationName_
+ , _rarRevision = pRevision_
+ }
+
-- | A comment about the revision.
rarDescription :: Lens' RegisterApplicationRevision (Maybe Text)
@@ -93,9 +95,9 @@ instance AWSRequest RegisterApplicationRevision where
response
= receiveNull RegisterApplicationRevisionResponse'
-instance Hashable RegisterApplicationRevision
+instance Hashable RegisterApplicationRevision where
-instance NFData RegisterApplicationRevision
+instance NFData RegisterApplicationRevision where
instance ToHeaders RegisterApplicationRevision where
toHeaders
@@ -123,8 +125,9 @@ instance ToQuery RegisterApplicationRevision where
-- | /See:/ 'registerApplicationRevisionResponse' smart constructor.
data RegisterApplicationRevisionResponse =
- RegisterApplicationRevisionResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ RegisterApplicationRevisionResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RegisterApplicationRevisionResponse' with the minimum fields required to make a request.
--
@@ -132,4 +135,6 @@ registerApplicationRevisionResponse
:: RegisterApplicationRevisionResponse
registerApplicationRevisionResponse = RegisterApplicationRevisionResponse'
+
instance NFData RegisterApplicationRevisionResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs b/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
index fcca9dc..c247335 100644
--- a/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.RegisterOnPremisesInstance
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -27,20 +27,21 @@ module Network.AWS.CodeDeploy.RegisterOnPremisesInstance
registerOnPremisesInstance
, RegisterOnPremisesInstance
-- * Request Lenses
- , ropiInstanceName
, ropiIamUserARN
+ , ropiIamSessionARN
+ , ropiInstanceName
-- * Destructuring the Response
, registerOnPremisesInstanceResponse
, RegisterOnPremisesInstanceResponse
) 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
+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 the register on-premises instance operation.
--
@@ -48,35 +49,44 @@ import Network.AWS.Response
--
-- /See:/ 'registerOnPremisesInstance' smart constructor.
data RegisterOnPremisesInstance = RegisterOnPremisesInstance'
- { _ropiInstanceName :: !Text
- , _ropiIamUserARN :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ropiIamUserARN :: !(Maybe Text)
+ , _ropiIamSessionARN :: !(Maybe Text)
+ , _ropiInstanceName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RegisterOnPremisesInstance' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'ropiInstanceName' - The name of the on-premises instance to register.
---
-- * 'ropiIamUserARN' - The ARN of the IAM user to associate with the on-premises instance.
+--
+-- * 'ropiIamSessionARN' - The ARN of the IAM session to associate with the on-premises instance.
+--
+-- * 'ropiInstanceName' - The name of the on-premises instance to register.
registerOnPremisesInstance
:: Text -- ^ 'ropiInstanceName'
- -> Text -- ^ 'ropiIamUserARN'
-> RegisterOnPremisesInstance
-registerOnPremisesInstance pInstanceName_ pIamUserARN_ =
- RegisterOnPremisesInstance'
- { _ropiInstanceName = pInstanceName_
- , _ropiIamUserARN = pIamUserARN_
- }
+registerOnPremisesInstance pInstanceName_ =
+ RegisterOnPremisesInstance'
+ { _ropiIamUserARN = Nothing
+ , _ropiIamSessionARN = Nothing
+ , _ropiInstanceName = pInstanceName_
+ }
--- | The name of the on-premises instance to register.
-ropiInstanceName :: Lens' RegisterOnPremisesInstance Text
-ropiInstanceName = lens _ropiInstanceName (\ s a -> s{_ropiInstanceName = a});
-- | The ARN of the IAM user to associate with the on-premises instance.
-ropiIamUserARN :: Lens' RegisterOnPremisesInstance Text
+ropiIamUserARN :: Lens' RegisterOnPremisesInstance (Maybe Text)
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});
+
+-- | The name of the on-premises instance to register.
+ropiInstanceName :: Lens' RegisterOnPremisesInstance Text
+ropiInstanceName = lens _ropiInstanceName (\ s a -> s{_ropiInstanceName = a});
+
instance AWSRequest RegisterOnPremisesInstance where
type Rs RegisterOnPremisesInstance =
RegisterOnPremisesInstanceResponse
@@ -84,9 +94,9 @@ instance AWSRequest RegisterOnPremisesInstance where
response
= receiveNull RegisterOnPremisesInstanceResponse'
-instance Hashable RegisterOnPremisesInstance
+instance Hashable RegisterOnPremisesInstance where
-instance NFData RegisterOnPremisesInstance
+instance NFData RegisterOnPremisesInstance where
instance ToHeaders RegisterOnPremisesInstance where
toHeaders
@@ -102,8 +112,9 @@ instance ToJSON RegisterOnPremisesInstance where
toJSON RegisterOnPremisesInstance'{..}
= object
(catMaybes
- [Just ("instanceName" .= _ropiInstanceName),
- Just ("iamUserArn" .= _ropiIamUserARN)])
+ [("iamUserArn" .=) <$> _ropiIamUserARN,
+ ("iamSessionArn" .=) <$> _ropiIamSessionARN,
+ Just ("instanceName" .= _ropiInstanceName)])
instance ToPath RegisterOnPremisesInstance where
toPath = const "/"
@@ -113,8 +124,9 @@ instance ToQuery RegisterOnPremisesInstance where
-- | /See:/ 'registerOnPremisesInstanceResponse' smart constructor.
data RegisterOnPremisesInstanceResponse =
- RegisterOnPremisesInstanceResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ RegisterOnPremisesInstanceResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RegisterOnPremisesInstanceResponse' with the minimum fields required to make a request.
--
@@ -122,4 +134,6 @@ registerOnPremisesInstanceResponse
:: RegisterOnPremisesInstanceResponse
registerOnPremisesInstanceResponse = RegisterOnPremisesInstanceResponse'
+
instance NFData RegisterOnPremisesInstanceResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs b/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
index 0cec042..8fea735 100644
--- a/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -35,22 +35,23 @@ module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances
, RemoveTagsFromOnPremisesInstancesResponse
) 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
+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 remove tags from on-premises instances operation.
+-- | Represents the input of a RemoveTagsFromOnPremisesInstances operation.
--
--
--
-- /See:/ 'removeTagsFromOnPremisesInstances' smart constructor.
data RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances'
- { _rtfopiTags :: ![Tag]
- , _rtfopiInstanceNames :: ![Text]
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _rtfopiTags :: ![Tag]
+ , _rtfopiInstanceNames :: ![Text]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RemoveTagsFromOnPremisesInstances' with the minimum fields required to make a request.
--
@@ -62,10 +63,9 @@ data RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances'
removeTagsFromOnPremisesInstances
:: RemoveTagsFromOnPremisesInstances
removeTagsFromOnPremisesInstances =
- RemoveTagsFromOnPremisesInstances'
- { _rtfopiTags = mempty
- , _rtfopiInstanceNames = mempty
- }
+ RemoveTagsFromOnPremisesInstances'
+ {_rtfopiTags = mempty, _rtfopiInstanceNames = mempty}
+
-- | The tag key-value pairs to remove from the on-premises instances.
rtfopiTags :: Lens' RemoveTagsFromOnPremisesInstances [Tag]
@@ -85,8 +85,10 @@ instance AWSRequest RemoveTagsFromOnPremisesInstances
RemoveTagsFromOnPremisesInstancesResponse'
instance Hashable RemoveTagsFromOnPremisesInstances
+ where
instance NFData RemoveTagsFromOnPremisesInstances
+ where
instance ToHeaders RemoveTagsFromOnPremisesInstances
where
@@ -117,15 +119,18 @@ instance ToQuery RemoveTagsFromOnPremisesInstances
-- | /See:/ 'removeTagsFromOnPremisesInstancesResponse' smart constructor.
data RemoveTagsFromOnPremisesInstancesResponse =
- RemoveTagsFromOnPremisesInstancesResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ RemoveTagsFromOnPremisesInstancesResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RemoveTagsFromOnPremisesInstancesResponse' with the minimum fields required to make a request.
--
removeTagsFromOnPremisesInstancesResponse
:: RemoveTagsFromOnPremisesInstancesResponse
removeTagsFromOnPremisesInstancesResponse =
- RemoveTagsFromOnPremisesInstancesResponse'
+ RemoveTagsFromOnPremisesInstancesResponse'
+
instance NFData
- RemoveTagsFromOnPremisesInstancesResponse
+ RemoveTagsFromOnPremisesInstancesResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs b/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs
new file mode 100644
index 0000000..1ca827d
--- /dev/null
+++ b/gen/Network/AWS/CodeDeploy/SkipWaitTimeForInstanceTermination.hs
@@ -0,0 +1,123 @@
+{-# 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.SkipWaitTimeForInstanceTermination
+-- Copyright : (c) 2013-2017 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)
+--
+-- In a blue/green deployment, overrides any specified wait time and starts terminating instances immediately after the traffic routing is completed.
+--
+--
+module Network.AWS.CodeDeploy.SkipWaitTimeForInstanceTermination
+ (
+ -- * Creating a Request
+ skipWaitTimeForInstanceTermination
+ , SkipWaitTimeForInstanceTermination
+ -- * Request Lenses
+ , swtfitDeploymentId
+
+ -- * Destructuring the Response
+ , skipWaitTimeForInstanceTerminationResponse
+ , SkipWaitTimeForInstanceTerminationResponse
+ ) 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:/ 'skipWaitTimeForInstanceTermination' smart constructor.
+newtype SkipWaitTimeForInstanceTermination = SkipWaitTimeForInstanceTermination'
+ { _swtfitDeploymentId :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'SkipWaitTimeForInstanceTermination' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'swtfitDeploymentId' - The ID of the blue/green deployment for which you want to skip the instance termination wait time.
+skipWaitTimeForInstanceTermination
+ :: SkipWaitTimeForInstanceTermination
+skipWaitTimeForInstanceTermination =
+ SkipWaitTimeForInstanceTermination' {_swtfitDeploymentId = Nothing}
+
+
+-- | 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});
+
+instance AWSRequest
+ SkipWaitTimeForInstanceTermination
+ where
+ type Rs SkipWaitTimeForInstanceTermination =
+ SkipWaitTimeForInstanceTerminationResponse
+ request = postJSON codeDeploy
+ response
+ = receiveNull
+ SkipWaitTimeForInstanceTerminationResponse'
+
+instance Hashable SkipWaitTimeForInstanceTermination
+ where
+
+instance NFData SkipWaitTimeForInstanceTermination
+ where
+
+instance ToHeaders SkipWaitTimeForInstanceTermination
+ where
+ toHeaders
+ = const
+ (mconcat
+ ["X-Amz-Target" =#
+ ("CodeDeploy_20141006.SkipWaitTimeForInstanceTermination"
+ :: ByteString),
+ "Content-Type" =#
+ ("application/x-amz-json-1.1" :: ByteString)])
+
+instance ToJSON SkipWaitTimeForInstanceTermination
+ where
+ toJSON SkipWaitTimeForInstanceTermination'{..}
+ = object
+ (catMaybes
+ [("deploymentId" .=) <$> _swtfitDeploymentId])
+
+instance ToPath SkipWaitTimeForInstanceTermination
+ where
+ toPath = const "/"
+
+instance ToQuery SkipWaitTimeForInstanceTermination
+ where
+ toQuery = const mempty
+
+-- | /See:/ 'skipWaitTimeForInstanceTerminationResponse' smart constructor.
+data SkipWaitTimeForInstanceTerminationResponse =
+ SkipWaitTimeForInstanceTerminationResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'SkipWaitTimeForInstanceTerminationResponse' with the minimum fields required to make a request.
+--
+skipWaitTimeForInstanceTerminationResponse
+ :: SkipWaitTimeForInstanceTerminationResponse
+skipWaitTimeForInstanceTerminationResponse =
+ SkipWaitTimeForInstanceTerminationResponse'
+
+
+instance NFData
+ SkipWaitTimeForInstanceTerminationResponse
+ where
diff --git a/gen/Network/AWS/CodeDeploy/StopDeployment.hs b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
index ca93499..8b019a5 100644
--- a/gen/Network/AWS/CodeDeploy/StopDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.StopDeployment
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -39,22 +39,23 @@ module Network.AWS.CodeDeploy.StopDeployment
, sdrsResponseStatus
) 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
+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 stop deployment operation.
+-- | Represents the input of a StopDeployment operation.
--
--
--
-- /See:/ 'stopDeployment' smart constructor.
data StopDeployment = StopDeployment'
- { _sdAutoRollbackEnabled :: !(Maybe Bool)
- , _sdDeploymentId :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _sdAutoRollbackEnabled :: !(Maybe Bool)
+ , _sdDeploymentId :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StopDeployment' with the minimum fields required to make a request.
--
@@ -67,10 +68,9 @@ stopDeployment
:: Text -- ^ 'sdDeploymentId'
-> StopDeployment
stopDeployment pDeploymentId_ =
- StopDeployment'
- { _sdAutoRollbackEnabled = Nothing
- , _sdDeploymentId = pDeploymentId_
- }
+ StopDeployment'
+ {_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)
@@ -90,9 +90,9 @@ instance AWSRequest StopDeployment where
(x .?> "status") <*> (x .?> "statusMessage") <*>
(pure (fromEnum s)))
-instance Hashable StopDeployment
+instance Hashable StopDeployment where
-instance NFData StopDeployment
+instance NFData StopDeployment where
instance ToHeaders StopDeployment where
toHeaders
@@ -117,16 +117,17 @@ instance ToPath StopDeployment where
instance ToQuery StopDeployment where
toQuery = const mempty
--- | Represents the output of a stop deployment operation.
+-- | Represents the output of a StopDeployment operation.
--
--
--
-- /See:/ 'stopDeploymentResponse' smart constructor.
data StopDeploymentResponse = StopDeploymentResponse'
- { _sdrsStatus :: !(Maybe StopStatus)
- , _sdrsStatusMessage :: !(Maybe Text)
- , _sdrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _sdrsStatus :: !(Maybe StopStatus)
+ , _sdrsStatusMessage :: !(Maybe Text)
+ , _sdrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'StopDeploymentResponse' with the minimum fields required to make a request.
--
@@ -141,11 +142,12 @@ stopDeploymentResponse
:: Int -- ^ 'sdrsResponseStatus'
-> StopDeploymentResponse
stopDeploymentResponse pResponseStatus_ =
- StopDeploymentResponse'
- { _sdrsStatus = Nothing
- , _sdrsStatusMessage = Nothing
- , _sdrsResponseStatus = pResponseStatus_
- }
+ StopDeploymentResponse'
+ { _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)
@@ -159,4 +161,4 @@ sdrsStatusMessage = lens _sdrsStatusMessage (\ s a -> s{_sdrsStatusMessage = a})
sdrsResponseStatus :: Lens' StopDeploymentResponse Int
sdrsResponseStatus = lens _sdrsResponseStatus (\ s a -> s{_sdrsResponseStatus = a});
-instance NFData StopDeploymentResponse
+instance NFData StopDeploymentResponse where
diff --git a/gen/Network/AWS/CodeDeploy/Types.hs b/gen/Network/AWS/CodeDeploy/Types.hs
index 0f9fe85..369ce7d 100644
--- a/gen/Network/AWS/CodeDeploy/Types.hs
+++ b/gen/Network/AWS/CodeDeploy/Types.hs
@@ -4,9 +4,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -19,25 +19,38 @@ module Network.AWS.CodeDeploy.Types
, _LifecycleHookLimitExceededException
, _InvalidTimeRangeException
, _InvalidTagException
+ , _InvalidFileExistsBehaviorException
, _InvalidAlarmConfigException
, _InstanceNameAlreadyRegisteredException
, _IAMUserARNRequiredException
, _InvalidDeploymentGroupNameException
+ , _InvalidInstanceTypeException
+ , _IAMSessionARNAlreadyRegisteredException
, _DescriptionTooLongException
, _InvalidIAMUserARNException
+ , _InvalidOnPremisesTagCombinationException
, _DeploymentNotStartedException
, _DeploymentConfigLimitExceededException
, _RoleRequiredException
+ , _InvalidLoadBalancerInfoException
+ , _InvalidBlueGreenDeploymentConfigurationException
, _InvalidRoleException
, _DeploymentConfigAlreadyExistsException
+ , _InvalidTargetInstancesException
, _DeploymentLimitExceededException
, _IAMUserARNAlreadyRegisteredException
+ , _InvalidIAMSessionARNException
, _InstanceLimitExceededException
+ , _InvalidDeploymentStyleException
, _InvalidDeployedStateFilterException
, _InvalidAutoScalingGroupException
, _InvalidApplicationNameException
+ , _GitHubAccountTokenDoesNotExistException
, _ApplicationDoesNotExistException
, _InvalidMinimumHealthyHostValueException
+ , _UnsupportedActionForDeploymentTypeException
+ , _ResourceValidationException
+ , _InvalidEC2TagCombinationException
, _AlarmsLimitExceededException
, _InvalidTagFilterException
, _InvalidTriggerConfigException
@@ -54,6 +67,7 @@ module Network.AWS.CodeDeploy.Types
, _InvalidDeploymentConfigNameException
, _DeploymentConfigNameRequiredException
, _DeploymentIdRequiredException
+ , _DeploymentIsNotInReadyStateException
, _InvalidNextTokenException
, _InstanceIdRequiredException
, _InvalidDeploymentIdException
@@ -69,6 +83,7 @@ module Network.AWS.CodeDeploy.Types
, _InvalidEC2TagException
, _InvalidInstanceNameException
, _InstanceNameRequiredException
+ , _MultipleIAMARNsProvidedException
, _TriggerTargetsLimitExceededException
, _InvalidDeploymentStatusException
, _InvalidRegistrationStatusException
@@ -78,7 +93,10 @@ module Network.AWS.CodeDeploy.Types
, _InvalidInstanceStatusException
, _TagLimitExceededException
, _ApplicationLimitExceededException
+ , _TagSetListLimitExceededException
, _InvalidOperationException
+ , _InvalidDeploymentInstanceTypeException
+ , _IAMARNRequiredException
, _InvalidKeyPrefixFilterException
-- * ApplicationRevisionSortBy
@@ -96,15 +114,36 @@ module Network.AWS.CodeDeploy.Types
-- * DeploymentCreator
, DeploymentCreator (..)
+ -- * DeploymentOption
+ , DeploymentOption (..)
+
+ -- * DeploymentReadyAction
+ , DeploymentReadyAction (..)
+
-- * DeploymentStatus
, DeploymentStatus (..)
+ -- * DeploymentType
+ , DeploymentType (..)
+
-- * EC2TagFilterType
, EC2TagFilterType (..)
+ -- * FileExistsBehavior
+ , FileExistsBehavior (..)
+
+ -- * GreenFleetProvisioningAction
+ , GreenFleetProvisioningAction (..)
+
+ -- * InstanceAction
+ , InstanceAction (..)
+
-- * InstanceStatus
, InstanceStatus (..)
+ -- * InstanceType
+ , InstanceType (..)
+
-- * LifecycleErrorCode
, LifecycleErrorCode (..)
@@ -153,6 +192,7 @@ module Network.AWS.CodeDeploy.Types
, aiLinkedToGitHub
, aiApplicationId
, aiApplicationName
+ , aiGitHubAccountName
, aiCreateTime
-- * AutoRollbackConfiguration
@@ -167,6 +207,19 @@ module Network.AWS.CodeDeploy.Types
, asgHook
, asgName
+ -- * BlueGreenDeploymentConfiguration
+ , BlueGreenDeploymentConfiguration
+ , blueGreenDeploymentConfiguration
+ , bgdcDeploymentReadyOption
+ , bgdcGreenFleetProvisioningOption
+ , bgdcTerminateBlueInstancesOnDeploymentSuccess
+
+ -- * BlueInstanceTerminationOption
+ , BlueInstanceTerminationOption
+ , blueInstanceTerminationOption
+ , bitoAction
+ , bitoTerminationWaitTimeInMinutes
+
-- * DeploymentConfigInfo
, DeploymentConfigInfo
, deploymentConfigInfo
@@ -179,15 +232,22 @@ module Network.AWS.CodeDeploy.Types
, DeploymentGroupInfo
, deploymentGroupInfo
, dgiServiceRoleARN
+ , dgiEc2TagSet
, dgiDeploymentConfigName
+ , dgiLastAttemptedDeployment
+ , dgiOnPremisesTagSet
, dgiTargetRevision
, dgiEc2TagFilters
+ , dgiBlueGreenDeploymentConfiguration
+ , dgiLoadBalancerInfo
, dgiOnPremisesInstanceTagFilters
+ , dgiLastSuccessfulDeployment
, dgiApplicationName
, dgiAlarmConfiguration
, dgiTriggerConfigurations
, dgiDeploymentGroupId
, dgiAutoScalingGroups
+ , dgiDeploymentStyle
, dgiAutoRollbackConfiguration
, dgiDeploymentGroupName
@@ -198,14 +258,22 @@ module Network.AWS.CodeDeploy.Types
, diStatus
, diDeploymentId
, diDeploymentConfigName
+ , diPreviousRevision
+ , diInstanceTerminationWaitTimeStarted
, diStartTime
, diCompleteTime
+ , diBlueGreenDeploymentConfiguration
, diErrorInformation
+ , diLoadBalancerInfo
+ , diAdditionalDeploymentStatusInfo
, diDeploymentOverview
+ , diFileExistsBehavior
, diApplicationName
, diRollbackInfo
+ , diTargetInstances
, diRevision
, diDescription
+ , diDeploymentStyle
, diCreateTime
, diAutoRollbackConfiguration
, diUpdateOutdatedInstancesOnly
@@ -219,8 +287,21 @@ module Network.AWS.CodeDeploy.Types
, doSkipped
, doInProgress
, doSucceeded
+ , doReady
, doFailed
+ -- * DeploymentReadyOption
+ , DeploymentReadyOption
+ , deploymentReadyOption
+ , droActionOnTimeout
+ , droWaitTimeInMinutes
+
+ -- * DeploymentStyle
+ , DeploymentStyle
+ , deploymentStyle
+ , dsDeploymentOption
+ , dsDeploymentType
+
-- * Diagnostics
, Diagnostics
, diagnostics
@@ -236,6 +317,16 @@ module Network.AWS.CodeDeploy.Types
, etfKey
, etfType
+ -- * EC2TagSet
+ , EC2TagSet
+ , ec2TagSet
+ , etsEc2TagSetList
+
+ -- * ELBInfo
+ , ELBInfo
+ , eLBInfo
+ , elbiName
+
-- * ErrorInformation
, ErrorInformation
, errorInformation
@@ -257,6 +348,11 @@ module Network.AWS.CodeDeploy.Types
, ghlCommitId
, ghlRepository
+ -- * GreenFleetProvisioningOption
+ , GreenFleetProvisioningOption
+ , greenFleetProvisioningOption
+ , gfpoAction
+
-- * InstanceInfo
, InstanceInfo
, instanceInfo
@@ -265,6 +361,7 @@ module Network.AWS.CodeDeploy.Types
, iiDeregisterTime
, iiIamUserARN
, iiInstanceName
+ , iiIamSessionARN
, iiTags
-- * InstanceSummary
@@ -275,6 +372,15 @@ module Network.AWS.CodeDeploy.Types
, isDeploymentId
, isLastUpdatedAt
, isLifecycleEvents
+ , isInstanceType
+
+ -- * LastDeploymentInfo
+ , LastDeploymentInfo
+ , lastDeploymentInfo
+ , ldiStatus
+ , ldiDeploymentId
+ , ldiEndTime
+ , ldiCreateTime
-- * LifecycleEvent
, LifecycleEvent
@@ -285,12 +391,23 @@ module Network.AWS.CodeDeploy.Types
, leDiagnostics
, leEndTime
+ -- * LoadBalancerInfo
+ , LoadBalancerInfo
+ , loadBalancerInfo
+ , lbiElbInfoList
+ , lbiTargetGroupInfoList
+
-- * MinimumHealthyHosts
, MinimumHealthyHosts
, minimumHealthyHosts
, mhhValue
, mhhType
+ -- * OnPremisesTagSet
+ , OnPremisesTagSet
+ , onPremisesTagSet
+ , optsOnPremisesTagSetList
+
-- * RevisionInfo
, RevisionInfo
, revisionInfo
@@ -333,6 +450,18 @@ module Network.AWS.CodeDeploy.Types
, tfKey
, tfType
+ -- * TargetGroupInfo
+ , TargetGroupInfo
+ , targetGroupInfo
+ , tgiName
+
+ -- * TargetInstances
+ , TargetInstances
+ , targetInstances
+ , tiEc2TagSet
+ , tiTagFilters
+ , tiAutoScalingGroups
+
-- * TimeRange
, TimeRange
, timeRange
@@ -347,38 +476,40 @@ module Network.AWS.CodeDeploy.Types
, tcTriggerTargetARN
) where
-import Network.AWS.CodeDeploy.Types.Product
-import Network.AWS.CodeDeploy.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Sign.V4
+import Network.AWS.CodeDeploy.Types.Product
+import Network.AWS.CodeDeploy.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Sign.V4
-- | API version @2014-10-06@ of the Amazon CodeDeploy SDK configuration.
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
- }
+ Service
+ { _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
- }
+ Exponential
+ { _retryBase = 5.0e-2
+ , _retryGrowth = 2
+ , _retryAttempts = 5
+ , _retryCheck = check
+ }
check e
+ | has (hasCode "ThrottledException" . hasStatus 400) e =
+ Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
- Just "throttling_exception"
+ Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasStatus 502) e = Just "bad_gateway"
@@ -387,25 +518,37 @@ codeDeploy =
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
+
-- | The limit for lifecycle hooks was exceeded.
--
--
_LifecycleHookLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LifecycleHookLimitExceededException =
- _ServiceError . hasCode "LifecycleHookLimitExceededException"
+ _MatchServiceError codeDeploy "LifecycleHookLimitExceededException"
+
-- | The specified time range was specified in an invalid format.
--
--
_InvalidTimeRangeException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTimeRangeException =
- _ServiceError . hasCode "InvalidTimeRangeException"
+ _MatchServiceError codeDeploy "InvalidTimeRangeException"
+
-- | The specified tag was specified in an invalid format.
--
--
_InvalidTagException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidTagException = _ServiceError . hasCode "InvalidTagException"
+_InvalidTagException = _MatchServiceError codeDeploy "InvalidTagException"
+
+
+-- | An invalid fileExistsBehavior option was specified to determine how AWS CodeDeploy handles files or directories that already exist in a deployment target location but weren't part of the previous successful deployment. Valid values include "DISALLOW", "OVERWRITE", and "RETAIN".
+--
+--
+_InvalidFileExistsBehaviorException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidFileExistsBehaviorException =
+ _MatchServiceError codeDeploy "InvalidFileExistsBehaviorException"
+
-- | The format of the alarm configuration is invalid. Possible causes include:
--
@@ -424,418 +567,628 @@ _InvalidTagException = _ServiceError . hasCode "InvalidTagException"
--
_InvalidAlarmConfigException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAlarmConfigException =
- _ServiceError . hasCode "InvalidAlarmConfigException"
+ _MatchServiceError codeDeploy "InvalidAlarmConfigException"
+
-- | The specified on-premises instance name is already registered.
--
--
_InstanceNameAlreadyRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceNameAlreadyRegisteredException =
- _ServiceError . hasCode "InstanceNameAlreadyRegisteredException"
+ _MatchServiceError codeDeploy "InstanceNameAlreadyRegisteredException"
+
-- | An IAM user ARN was not specified.
--
--
_IAMUserARNRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_IAMUserARNRequiredException =
- _ServiceError . hasCode "IamUserArnRequiredException"
+ _MatchServiceError codeDeploy "IamUserArnRequiredException"
+
-- | The deployment group name was specified in an invalid format.
--
--
_InvalidDeploymentGroupNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeploymentGroupNameException =
- _ServiceError . hasCode "InvalidDeploymentGroupNameException"
+ _MatchServiceError codeDeploy "InvalidDeploymentGroupNameException"
+
+
+-- | An invalid instance type was specified for instances in a blue/green deployment. Valid values include "Blue" for an original environment and "Green" for a replacement environment.
+--
+--
+_InvalidInstanceTypeException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidInstanceTypeException =
+ _MatchServiceError codeDeploy "InvalidInstanceTypeException"
+
+
+-- | The request included an IAM session ARN that has already been used to register a different instance.
+--
+--
+_IAMSessionARNAlreadyRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError
+_IAMSessionARNAlreadyRegisteredException =
+ _MatchServiceError codeDeploy "IamSessionArnAlreadyRegisteredException"
+
-- | The description is too long.
--
--
_DescriptionTooLongException :: AsError a => Getting (First ServiceError) a ServiceError
_DescriptionTooLongException =
- _ServiceError . hasCode "DescriptionTooLongException"
+ _MatchServiceError codeDeploy "DescriptionTooLongException"
+
-- | The IAM user ARN was specified in an invalid format.
--
--
_InvalidIAMUserARNException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidIAMUserARNException =
- _ServiceError . hasCode "InvalidIamUserArnException"
+ _MatchServiceError codeDeploy "InvalidIamUserArnException"
+
+
+-- | A call was submitted that specified both OnPremisesTagFilters and OnPremisesTagSet, but only one of these data types can be used in a single call.
+--
+--
+_InvalidOnPremisesTagCombinationException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidOnPremisesTagCombinationException =
+ _MatchServiceError codeDeploy "InvalidOnPremisesTagCombinationException"
+
-- | The specified deployment has not started.
--
--
_DeploymentNotStartedException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentNotStartedException =
- _ServiceError . hasCode "DeploymentNotStartedException"
+ _MatchServiceError codeDeploy "DeploymentNotStartedException"
+
-- | The deployment configurations limit was exceeded.
--
--
_DeploymentConfigLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentConfigLimitExceededException =
- _ServiceError . hasCode "DeploymentConfigLimitExceededException"
+ _MatchServiceError codeDeploy "DeploymentConfigLimitExceededException"
+
-- | The role ID was not specified.
--
--
_RoleRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
-_RoleRequiredException = _ServiceError . hasCode "RoleRequiredException"
+_RoleRequiredException = _MatchServiceError codeDeploy "RoleRequiredException"
+
+
+-- | An invalid load balancer name, or no load balancer name, was specified.
+--
+--
+_InvalidLoadBalancerInfoException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidLoadBalancerInfoException =
+ _MatchServiceError codeDeploy "InvalidLoadBalancerInfoException"
+
+
+-- | The configuration for the blue/green deployment group was provided in an invalid format. For information about deployment configuration format, see 'CreateDeploymentConfig' .
+--
+--
+_InvalidBlueGreenDeploymentConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidBlueGreenDeploymentConfigurationException =
+ _MatchServiceError
+ codeDeploy
+ "InvalidBlueGreenDeploymentConfigurationException"
+
-- | The service role ARN was specified in an invalid format. Or, if an Auto Scaling group was specified, the specified service role does not grant the appropriate permissions to Auto Scaling.
--
--
_InvalidRoleException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidRoleException = _ServiceError . hasCode "InvalidRoleException"
+_InvalidRoleException = _MatchServiceError codeDeploy "InvalidRoleException"
+
-- | A deployment configuration with the specified name already exists with the applicable IAM user or AWS account.
--
--
_DeploymentConfigAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentConfigAlreadyExistsException =
- _ServiceError . hasCode "DeploymentConfigAlreadyExistsException"
+ _MatchServiceError codeDeploy "DeploymentConfigAlreadyExistsException"
+
+
+-- | The target instance configuration is invalid. Possible causes include:
+--
+--
+-- * Configuration data for target instances was entered for an in-place deployment.
+--
+-- * The limit of 10 tags for a tag type was exceeded.
+--
+-- * The combined length of the tag names exceeded the limit.
+--
+-- * A specified tag is not currently applied to any instances.
+--
+--
+--
+_InvalidTargetInstancesException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidTargetInstancesException =
+ _MatchServiceError codeDeploy "InvalidTargetInstancesException"
+
-- | The number of allowed deployments was exceeded.
--
--
_DeploymentLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentLimitExceededException =
- _ServiceError . hasCode "DeploymentLimitExceededException"
+ _MatchServiceError codeDeploy "DeploymentLimitExceededException"
+
-- | The specified IAM user ARN is already registered with an on-premises instance.
--
--
_IAMUserARNAlreadyRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError
_IAMUserARNAlreadyRegisteredException =
- _ServiceError . hasCode "IamUserArnAlreadyRegisteredException"
+ _MatchServiceError codeDeploy "IamUserArnAlreadyRegisteredException"
+
+
+-- | The IAM session ARN was specified in an invalid format.
+--
+--
+_InvalidIAMSessionARNException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidIAMSessionARNException =
+ _MatchServiceError codeDeploy "InvalidIamSessionArnException"
+
-- | The maximum number of allowed on-premises instances in a single call was exceeded.
--
--
_InstanceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceLimitExceededException =
- _ServiceError . hasCode "InstanceLimitExceededException"
+ _MatchServiceError codeDeploy "InstanceLimitExceededException"
+
+
+-- | 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".
+--
+--
+_InvalidDeploymentStyleException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidDeploymentStyleException =
+ _MatchServiceError codeDeploy "InvalidDeploymentStyleException"
+
-- | The deployed state filter was specified in an invalid format.
--
--
_InvalidDeployedStateFilterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeployedStateFilterException =
- _ServiceError . hasCode "InvalidDeployedStateFilterException"
+ _MatchServiceError codeDeploy "InvalidDeployedStateFilterException"
+
-- | The Auto Scaling group was specified in an invalid format or does not exist.
--
--
_InvalidAutoScalingGroupException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAutoScalingGroupException =
- _ServiceError . hasCode "InvalidAutoScalingGroupException"
+ _MatchServiceError codeDeploy "InvalidAutoScalingGroupException"
+
-- | The application name was specified in an invalid format.
--
--
_InvalidApplicationNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidApplicationNameException =
- _ServiceError . hasCode "InvalidApplicationNameException"
+ _MatchServiceError codeDeploy "InvalidApplicationNameException"
+
+
+-- | No GitHub account connection exists with the named specified in the call.
+--
+--
+_GitHubAccountTokenDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
+_GitHubAccountTokenDoesNotExistException =
+ _MatchServiceError codeDeploy "GitHubAccountTokenDoesNotExistException"
+
-- | The application does not exist with the applicable IAM user or AWS account.
--
--
_ApplicationDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_ApplicationDoesNotExistException =
- _ServiceError . hasCode "ApplicationDoesNotExistException"
+ _MatchServiceError codeDeploy "ApplicationDoesNotExistException"
+
-- | The minimum healthy instance value was specified in an invalid format.
--
--
_InvalidMinimumHealthyHostValueException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidMinimumHealthyHostValueException =
- _ServiceError . hasCode "InvalidMinimumHealthyHostValueException"
+ _MatchServiceError codeDeploy "InvalidMinimumHealthyHostValueException"
+
+
+-- | A call was submitted that is not supported for the specified deployment type.
+--
+--
+_UnsupportedActionForDeploymentTypeException :: AsError a => Getting (First ServiceError) a ServiceError
+_UnsupportedActionForDeploymentTypeException =
+ _MatchServiceError codeDeploy "UnsupportedActionForDeploymentTypeException"
+
+
+-- | The specified resource could not be validated.
+--
+--
+_ResourceValidationException :: AsError a => Getting (First ServiceError) a ServiceError
+_ResourceValidationException =
+ _MatchServiceError codeDeploy "ResourceValidationException"
+
+
+-- | A call was submitted that specified both Ec2TagFilters and Ec2TagSet, but only one of these data types can be used in a single call.
+--
+--
+_InvalidEC2TagCombinationException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidEC2TagCombinationException =
+ _MatchServiceError codeDeploy "InvalidEC2TagCombinationException"
+
-- | The maximum number of alarms for a deployment group (10) was exceeded.
--
--
_AlarmsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_AlarmsLimitExceededException =
- _ServiceError . hasCode "AlarmsLimitExceededException"
+ _MatchServiceError codeDeploy "AlarmsLimitExceededException"
+
-- | The specified tag filter was specified in an invalid format.
--
--
_InvalidTagFilterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTagFilterException =
- _ServiceError . hasCode "InvalidTagFilterException"
+ _MatchServiceError codeDeploy "InvalidTagFilterException"
+
-- | The trigger was specified in an invalid format.
--
--
_InvalidTriggerConfigException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTriggerConfigException =
- _ServiceError . hasCode "InvalidTriggerConfigException"
+ _MatchServiceError codeDeploy "InvalidTriggerConfigException"
+
-- | A tag was not specified.
--
--
_TagRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
-_TagRequiredException = _ServiceError . hasCode "TagRequiredException"
+_TagRequiredException = _MatchServiceError codeDeploy "TagRequiredException"
+
-- | The deployment group name was not specified.
--
--
_DeploymentGroupNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentGroupNameRequiredException =
- _ServiceError . hasCode "DeploymentGroupNameRequiredException"
+ _MatchServiceError codeDeploy "DeploymentGroupNameRequiredException"
+
-- | A bucket name is required, but was not provided.
--
--
_BucketNameFilterRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_BucketNameFilterRequiredException =
- _ServiceError . hasCode "BucketNameFilterRequiredException"
+ _MatchServiceError codeDeploy "BucketNameFilterRequiredException"
+
-- | The deployment configuration does not exist with the applicable IAM user or AWS account.
--
--
_DeploymentConfigDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentConfigDoesNotExistException =
- _ServiceError . hasCode "DeploymentConfigDoesNotExistException"
+ _MatchServiceError codeDeploy "DeploymentConfigDoesNotExistException"
+
-- | The bucket name either doesn't exist or was specified in an invalid format.
--
--
_InvalidBucketNameFilterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidBucketNameFilterException =
- _ServiceError . hasCode "InvalidBucketNameFilterException"
+ _MatchServiceError codeDeploy "InvalidBucketNameFilterException"
+
-- | A deployment group with the specified name already exists with the applicable IAM user or AWS account.
--
--
_DeploymentGroupAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentGroupAlreadyExistsException =
- _ServiceError . hasCode "DeploymentGroupAlreadyExistsException"
+ _MatchServiceError codeDeploy "DeploymentGroupAlreadyExistsException"
+
-- | The column name to sort by is either not present or was specified in an invalid format.
--
--
_InvalidSortByException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidSortByException = _ServiceError . hasCode "InvalidSortByException"
+_InvalidSortByException = _MatchServiceError codeDeploy "InvalidSortByException"
+
-- | The named revision does not exist with the applicable IAM user or AWS account.
--
--
_RevisionDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_RevisionDoesNotExistException =
- _ServiceError . hasCode "RevisionDoesNotExistException"
+ _MatchServiceError codeDeploy "RevisionDoesNotExistException"
+
-- | The deployment groups limit was exceeded.
--
--
_DeploymentGroupLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentGroupLimitExceededException =
- _ServiceError . hasCode "DeploymentGroupLimitExceededException"
+ _MatchServiceError codeDeploy "DeploymentGroupLimitExceededException"
+
-- | The named deployment group does not exist with the applicable IAM user or AWS account.
--
--
_DeploymentGroupDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentGroupDoesNotExistException =
- _ServiceError . hasCode "DeploymentGroupDoesNotExistException"
+ _MatchServiceError codeDeploy "DeploymentGroupDoesNotExistException"
+
-- | The deployment configuration name was specified in an invalid format.
--
--
_InvalidDeploymentConfigNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeploymentConfigNameException =
- _ServiceError . hasCode "InvalidDeploymentConfigNameException"
+ _MatchServiceError codeDeploy "InvalidDeploymentConfigNameException"
+
-- | The deployment configuration name was not specified.
--
--
_DeploymentConfigNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentConfigNameRequiredException =
- _ServiceError . hasCode "DeploymentConfigNameRequiredException"
+ _MatchServiceError codeDeploy "DeploymentConfigNameRequiredException"
+
-- | At least one deployment ID must be specified.
--
--
_DeploymentIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentIdRequiredException =
- _ServiceError . hasCode "DeploymentIdRequiredException"
+ _MatchServiceError codeDeploy "DeploymentIdRequiredException"
+
+
+-- | The deployment does not have a status of Ready and can't continue yet.
+--
+--
+_DeploymentIsNotInReadyStateException :: AsError a => Getting (First ServiceError) a ServiceError
+_DeploymentIsNotInReadyStateException =
+ _MatchServiceError codeDeploy "DeploymentIsNotInReadyStateException"
+
-- | The next token was specified in an invalid format.
--
--
_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNextTokenException =
- _ServiceError . hasCode "InvalidNextTokenException"
+ _MatchServiceError codeDeploy "InvalidNextTokenException"
+
-- | The instance ID was not specified.
--
--
_InstanceIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceIdRequiredException =
- _ServiceError . hasCode "InstanceIdRequiredException"
+ _MatchServiceError codeDeploy "InstanceIdRequiredException"
+
-- | At least one of the deployment IDs was specified in an invalid format.
--
--
_InvalidDeploymentIdException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeploymentIdException =
- _ServiceError . hasCode "InvalidDeploymentIdException"
+ _MatchServiceError codeDeploy "InvalidDeploymentIdException"
+
-- | The sort order was specified in an invalid format.
--
--
_InvalidSortOrderException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSortOrderException =
- _ServiceError . hasCode "InvalidSortOrderException"
+ _MatchServiceError codeDeploy "InvalidSortOrderException"
+
-- | The automatic rollback configuration was specified in an invalid format. For example, automatic rollback is enabled but an invalid triggering event type or no event types were listed.
--
--
_InvalidAutoRollbackConfigException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAutoRollbackConfigException =
- _ServiceError . hasCode "InvalidAutoRollbackConfigException"
+ _MatchServiceError codeDeploy "InvalidAutoRollbackConfigException"
+
-- | The deployment is already complete.
--
--
_DeploymentAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentAlreadyCompletedException =
- _ServiceError . hasCode "DeploymentAlreadyCompletedException"
+ _MatchServiceError codeDeploy "DeploymentAlreadyCompletedException"
+
-- | The deployment does not exist with the applicable IAM user or AWS account.
--
--
_DeploymentDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentDoesNotExistException =
- _ServiceError . hasCode "DeploymentDoesNotExistException"
+ _MatchServiceError codeDeploy "DeploymentDoesNotExistException"
+
-- | The maximum number of names or IDs allowed for this request (100) was exceeded.
--
--
_BatchLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_BatchLimitExceededException =
- _ServiceError . hasCode "BatchLimitExceededException"
+ _MatchServiceError codeDeploy "BatchLimitExceededException"
+
-- | The revision was specified in an invalid format.
--
--
_InvalidRevisionException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidRevisionException = _ServiceError . hasCode "InvalidRevisionException"
+_InvalidRevisionException =
+ _MatchServiceError codeDeploy "InvalidRevisionException"
+
-- | The revision ID was not specified.
--
--
_RevisionRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_RevisionRequiredException =
- _ServiceError . hasCode "RevisionRequiredException"
+ _MatchServiceError codeDeploy "RevisionRequiredException"
+
-- | The specified instance does not exist in the deployment group.
--
--
_InstanceDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceDoesNotExistException =
- _ServiceError . hasCode "InstanceDoesNotExistException"
+ _MatchServiceError codeDeploy "InstanceDoesNotExistException"
+
-- | The deployment configuration is still in use.
--
--
_DeploymentConfigInUseException :: AsError a => Getting (First ServiceError) a ServiceError
_DeploymentConfigInUseException =
- _ServiceError . hasCode "DeploymentConfigInUseException"
+ _MatchServiceError codeDeploy "DeploymentConfigInUseException"
+
-- | The tag was specified in an invalid format.
--
--
_InvalidEC2TagException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidEC2TagException = _ServiceError . hasCode "InvalidEC2TagException"
+_InvalidEC2TagException = _MatchServiceError codeDeploy "InvalidEC2TagException"
+
-- | The specified on-premises instance name was specified in an invalid format.
--
--
_InvalidInstanceNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceNameException =
- _ServiceError . hasCode "InvalidInstanceNameException"
+ _MatchServiceError codeDeploy "InvalidInstanceNameException"
+
-- | An on-premises instance name was not specified.
--
--
_InstanceNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceNameRequiredException =
- _ServiceError . hasCode "InstanceNameRequiredException"
+ _MatchServiceError codeDeploy "InstanceNameRequiredException"
+
+
+-- | Both an IAM user ARN and an IAM session ARN were included in the request. Use only one ARN type.
+--
+--
+_MultipleIAMARNsProvidedException :: AsError a => Getting (First ServiceError) a ServiceError
+_MultipleIAMARNsProvidedException =
+ _MatchServiceError codeDeploy "MultipleIamArnsProvidedException"
+
-- | The maximum allowed number of triggers was exceeded.
--
--
_TriggerTargetsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_TriggerTargetsLimitExceededException =
- _ServiceError . hasCode "TriggerTargetsLimitExceededException"
+ _MatchServiceError codeDeploy "TriggerTargetsLimitExceededException"
+
-- | The specified deployment status doesn't exist or cannot be determined.
--
--
_InvalidDeploymentStatusException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeploymentStatusException =
- _ServiceError . hasCode "InvalidDeploymentStatusException"
+ _MatchServiceError codeDeploy "InvalidDeploymentStatusException"
+
-- | The registration status was specified in an invalid format.
--
--
_InvalidRegistrationStatusException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRegistrationStatusException =
- _ServiceError . hasCode "InvalidRegistrationStatusException"
+ _MatchServiceError codeDeploy "InvalidRegistrationStatusException"
+
-- | The minimum number of required application names was not specified.
--
--
_ApplicationNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
_ApplicationNameRequiredException =
- _ServiceError . hasCode "ApplicationNameRequiredException"
+ _MatchServiceError codeDeploy "ApplicationNameRequiredException"
+
-- | The specified on-premises instance is not registered.
--
--
_InstanceNotRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError
_InstanceNotRegisteredException =
- _ServiceError . hasCode "InstanceNotRegisteredException"
+ _MatchServiceError codeDeploy "InstanceNotRegisteredException"
+
-- | An application with the specified name already exists with the applicable IAM user or AWS account.
--
--
_ApplicationAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_ApplicationAlreadyExistsException =
- _ServiceError . hasCode "ApplicationAlreadyExistsException"
+ _MatchServiceError codeDeploy "ApplicationAlreadyExistsException"
+
-- | The specified instance status does not exist.
--
--
_InvalidInstanceStatusException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceStatusException =
- _ServiceError . hasCode "InvalidInstanceStatusException"
+ _MatchServiceError codeDeploy "InvalidInstanceStatusException"
+
-- | The maximum allowed number of tags was exceeded.
--
--
_TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_TagLimitExceededException =
- _ServiceError . hasCode "TagLimitExceededException"
+ _MatchServiceError codeDeploy "TagLimitExceededException"
+
-- | More applications were attempted to be created than are allowed.
--
--
_ApplicationLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_ApplicationLimitExceededException =
- _ServiceError . hasCode "ApplicationLimitExceededException"
+ _MatchServiceError codeDeploy "ApplicationLimitExceededException"
+
+
+-- | The number of tag groups included in the tag set list exceeded the maximum allowed limit of 3.
+--
+--
+_TagSetListLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
+_TagSetListLimitExceededException =
+ _MatchServiceError codeDeploy "TagSetListLimitExceededException"
+
-- | An invalid operation was detected.
--
--
_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOperationException =
- _ServiceError . hasCode "InvalidOperationException"
+ _MatchServiceError codeDeploy "InvalidOperationException"
+
+
+-- | An instance type was specified for an in-place deployment. Instance types are supported for blue/green deployments only.
+--
+--
+_InvalidDeploymentInstanceTypeException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidDeploymentInstanceTypeException =
+ _MatchServiceError codeDeploy "InvalidDeploymentInstanceTypeException"
+
+
+-- | No IAM ARN was included in the request. You must use an IAM session ARN or IAM user ARN in the request.
+--
+--
+_IAMARNRequiredException :: AsError a => Getting (First ServiceError) a ServiceError
+_IAMARNRequiredException =
+ _MatchServiceError codeDeploy "IamArnRequiredException"
+
-- | The specified key prefix filter was specified in an invalid format.
--
--
_InvalidKeyPrefixFilterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidKeyPrefixFilterException =
- _ServiceError . hasCode "InvalidKeyPrefixFilterException"
+ _MatchServiceError codeDeploy "InvalidKeyPrefixFilterException"
+
diff --git a/gen/Network/AWS/CodeDeploy/Types/Product.hs b/gen/Network/AWS/CodeDeploy/Types/Product.hs
index 1180dfa..980e4ad 100644
--- a/gen/Network/AWS/CodeDeploy/Types/Product.hs
+++ b/gen/Network/AWS/CodeDeploy/Types/Product.hs
@@ -9,17 +9,17 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types.Product
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CodeDeploy.Types.Product where
-import Network.AWS.CodeDeploy.Types.Sum
-import Network.AWS.Lens
-import Network.AWS.Prelude
+import Network.AWS.CodeDeploy.Types.Sum
+import Network.AWS.Lens
+import Network.AWS.Prelude
-- | Information about an alarm.
--
@@ -27,8 +27,9 @@ import Network.AWS.Prelude
--
-- /See:/ 'alarm' smart constructor.
newtype Alarm = Alarm'
- { _aName :: Maybe Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _aName :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Alarm' with the minimum fields required to make a request.
--
@@ -37,10 +38,8 @@ newtype Alarm = Alarm'
-- * 'aName' - The name of the alarm. Maximum length is 255 characters. Each alarm name can be used only once in a list of alarms.
alarm
:: Alarm
-alarm =
- Alarm'
- { _aName = Nothing
- }
+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)
@@ -51,9 +50,9 @@ instance FromJSON Alarm where
= withObject "Alarm"
(\ x -> Alarm' <$> (x .:? "name"))
-instance Hashable Alarm
+instance Hashable Alarm where
-instance NFData Alarm
+instance NFData Alarm where
instance ToJSON Alarm where
toJSON Alarm'{..}
@@ -65,10 +64,11 @@ instance ToJSON Alarm where
--
-- /See:/ 'alarmConfiguration' smart constructor.
data AlarmConfiguration = AlarmConfiguration'
- { _acIgnorePollAlarmFailure :: !(Maybe Bool)
- , _acEnabled :: !(Maybe Bool)
- , _acAlarms :: !(Maybe [Alarm])
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _acIgnorePollAlarmFailure :: !(Maybe Bool)
+ , _acEnabled :: !(Maybe Bool)
+ , _acAlarms :: !(Maybe [Alarm])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AlarmConfiguration' with the minimum fields required to make a request.
--
@@ -82,11 +82,12 @@ data AlarmConfiguration = AlarmConfiguration'
alarmConfiguration
:: AlarmConfiguration
alarmConfiguration =
- AlarmConfiguration'
- { _acIgnorePollAlarmFailure = Nothing
- , _acEnabled = Nothing
- , _acAlarms = Nothing
- }
+ AlarmConfiguration'
+ { _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)
@@ -109,9 +110,9 @@ instance FromJSON AlarmConfiguration where
(x .:? "enabled")
<*> (x .:? "alarms" .!= mempty))
-instance Hashable AlarmConfiguration
+instance Hashable AlarmConfiguration where
-instance NFData AlarmConfiguration
+instance NFData AlarmConfiguration where
instance ToJSON AlarmConfiguration where
toJSON AlarmConfiguration'{..}
@@ -128,11 +129,13 @@ instance ToJSON AlarmConfiguration where
--
-- /See:/ 'applicationInfo' smart constructor.
data ApplicationInfo = ApplicationInfo'
- { _aiLinkedToGitHub :: !(Maybe Bool)
- , _aiApplicationId :: !(Maybe Text)
- , _aiApplicationName :: !(Maybe Text)
- , _aiCreateTime :: !(Maybe POSIX)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _aiLinkedToGitHub :: !(Maybe Bool)
+ , _aiApplicationId :: !(Maybe Text)
+ , _aiApplicationName :: !(Maybe Text)
+ , _aiGitHubAccountName :: !(Maybe Text)
+ , _aiCreateTime :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ApplicationInfo' with the minimum fields required to make a request.
--
@@ -144,16 +147,20 @@ data ApplicationInfo = ApplicationInfo'
--
-- * 'aiApplicationName' - The application name.
--
+-- * 'aiGitHubAccountName' - The name for a connection to a GitHub account.
+--
-- * 'aiCreateTime' - The time at which the application was created.
applicationInfo
:: ApplicationInfo
applicationInfo =
- ApplicationInfo'
- { _aiLinkedToGitHub = Nothing
- , _aiApplicationId = Nothing
- , _aiApplicationName = Nothing
- , _aiCreateTime = Nothing
- }
+ ApplicationInfo'
+ { _aiLinkedToGitHub = 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)
@@ -167,6 +174,10 @@ aiApplicationId = lens _aiApplicationId (\ s a -> s{_aiApplicationId = a});
aiApplicationName :: Lens' ApplicationInfo (Maybe Text)
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});
+
-- | The time at which the application was created.
aiCreateTime :: Lens' ApplicationInfo (Maybe UTCTime)
aiCreateTime = lens _aiCreateTime (\ s a -> s{_aiCreateTime = a}) . mapping _Time;
@@ -178,11 +189,12 @@ instance FromJSON ApplicationInfo where
ApplicationInfo' <$>
(x .:? "linkedToGitHub") <*> (x .:? "applicationId")
<*> (x .:? "applicationName")
+ <*> (x .:? "gitHubAccountName")
<*> (x .:? "createTime"))
-instance Hashable ApplicationInfo
+instance Hashable ApplicationInfo where
-instance NFData ApplicationInfo
+instance NFData ApplicationInfo where
-- | Information about a configuration for automatically rolling back to a previous version of an application revision when a deployment doesn't complete successfully.
--
@@ -190,9 +202,10 @@ instance NFData ApplicationInfo
--
-- /See:/ 'autoRollbackConfiguration' smart constructor.
data AutoRollbackConfiguration = AutoRollbackConfiguration'
- { _arcEnabled :: !(Maybe Bool)
- , _arcEvents :: !(Maybe [AutoRollbackEvent])
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _arcEnabled :: !(Maybe Bool)
+ , _arcEvents :: !(Maybe [AutoRollbackEvent])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AutoRollbackConfiguration' with the minimum fields required to make a request.
--
@@ -204,10 +217,8 @@ data AutoRollbackConfiguration = AutoRollbackConfiguration'
autoRollbackConfiguration
:: AutoRollbackConfiguration
autoRollbackConfiguration =
- AutoRollbackConfiguration'
- { _arcEnabled = Nothing
- , _arcEvents = Nothing
- }
+ AutoRollbackConfiguration' {_arcEnabled = Nothing, _arcEvents = Nothing}
+
-- | Indicates whether a defined automatic rollback configuration is currently enabled.
arcEnabled :: Lens' AutoRollbackConfiguration (Maybe Bool)
@@ -224,9 +235,9 @@ instance FromJSON AutoRollbackConfiguration where
AutoRollbackConfiguration' <$>
(x .:? "enabled") <*> (x .:? "events" .!= mempty))
-instance Hashable AutoRollbackConfiguration
+instance Hashable AutoRollbackConfiguration where
-instance NFData AutoRollbackConfiguration
+instance NFData AutoRollbackConfiguration where
instance ToJSON AutoRollbackConfiguration where
toJSON AutoRollbackConfiguration'{..}
@@ -241,9 +252,10 @@ instance ToJSON AutoRollbackConfiguration where
--
-- /See:/ 'autoScalingGroup' smart constructor.
data AutoScalingGroup = AutoScalingGroup'
- { _asgHook :: !(Maybe Text)
- , _asgName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _asgHook :: !(Maybe Text)
+ , _asgName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'AutoScalingGroup' with the minimum fields required to make a request.
--
@@ -254,11 +266,8 @@ data AutoScalingGroup = AutoScalingGroup'
-- * 'asgName' - The Auto Scaling group name.
autoScalingGroup
:: AutoScalingGroup
-autoScalingGroup =
- AutoScalingGroup'
- { _asgHook = Nothing
- , _asgName = Nothing
- }
+autoScalingGroup = AutoScalingGroup' {_asgHook = Nothing, _asgName = Nothing}
+
-- | An Auto Scaling lifecycle event hook name.
asgHook :: Lens' AutoScalingGroup (Maybe Text)
@@ -275,9 +284,134 @@ instance FromJSON AutoScalingGroup where
AutoScalingGroup' <$>
(x .:? "hook") <*> (x .:? "name"))
-instance Hashable AutoScalingGroup
+instance Hashable AutoScalingGroup where
+
+instance NFData AutoScalingGroup where
+
+-- | Information about blue/green deployment options for a deployment group.
+--
+--
+--
+-- /See:/ 'blueGreenDeploymentConfiguration' smart constructor.
+data BlueGreenDeploymentConfiguration = BlueGreenDeploymentConfiguration'
+ { _bgdcDeploymentReadyOption :: !(Maybe DeploymentReadyOption)
+ , _bgdcGreenFleetProvisioningOption :: !(Maybe GreenFleetProvisioningOption)
+ , _bgdcTerminateBlueInstancesOnDeploymentSuccess :: !(Maybe BlueInstanceTerminationOption)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'BlueGreenDeploymentConfiguration' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'bgdcDeploymentReadyOption' - Information about the action to take when newly provisioned instances are ready to receive traffic in a blue/green deployment.
+--
+-- * 'bgdcGreenFleetProvisioningOption' - Information about how instances are provisioned for a replacement environment in a blue/green deployment.
+--
+-- * 'bgdcTerminateBlueInstancesOnDeploymentSuccess' - Information about whether to terminate instances in the original fleet during a blue/green deployment.
+blueGreenDeploymentConfiguration
+ :: BlueGreenDeploymentConfiguration
+blueGreenDeploymentConfiguration =
+ BlueGreenDeploymentConfiguration'
+ { _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});
+
+-- | 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});
+
+-- | 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});
+
+instance FromJSON BlueGreenDeploymentConfiguration
+ where
+ parseJSON
+ = withObject "BlueGreenDeploymentConfiguration"
+ (\ x ->
+ BlueGreenDeploymentConfiguration' <$>
+ (x .:? "deploymentReadyOption") <*>
+ (x .:? "greenFleetProvisioningOption")
+ <*>
+ (x .:? "terminateBlueInstancesOnDeploymentSuccess"))
+
+instance Hashable BlueGreenDeploymentConfiguration
+ where
+
+instance NFData BlueGreenDeploymentConfiguration
+ where
+
+instance ToJSON BlueGreenDeploymentConfiguration
+ where
+ toJSON BlueGreenDeploymentConfiguration'{..}
+ = object
+ (catMaybes
+ [("deploymentReadyOption" .=) <$>
+ _bgdcDeploymentReadyOption,
+ ("greenFleetProvisioningOption" .=) <$>
+ _bgdcGreenFleetProvisioningOption,
+ ("terminateBlueInstancesOnDeploymentSuccess" .=) <$>
+ _bgdcTerminateBlueInstancesOnDeploymentSuccess])
+
+-- | Information about whether instances in the original environment are terminated when a blue/green deployment is successful.
+--
+--
+--
+-- /See:/ 'blueInstanceTerminationOption' smart constructor.
+data BlueInstanceTerminationOption = BlueInstanceTerminationOption'
+ { _bitoAction :: !(Maybe InstanceAction)
+ , _bitoTerminationWaitTimeInMinutes :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'BlueInstanceTerminationOption' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'bitoAction' - 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.
+--
+-- * 'bitoTerminationWaitTimeInMinutes' - The number of minutes to wait after a successful blue/green deployment before terminating instances from the original environment.
+blueInstanceTerminationOption
+ :: BlueInstanceTerminationOption
+blueInstanceTerminationOption =
+ BlueInstanceTerminationOption'
+ {_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});
+
+-- | 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});
+
+instance FromJSON BlueInstanceTerminationOption where
+ parseJSON
+ = withObject "BlueInstanceTerminationOption"
+ (\ x ->
+ BlueInstanceTerminationOption' <$>
+ (x .:? "action") <*>
+ (x .:? "terminationWaitTimeInMinutes"))
+
+instance Hashable BlueInstanceTerminationOption where
-instance NFData AutoScalingGroup
+instance NFData BlueInstanceTerminationOption where
+
+instance ToJSON BlueInstanceTerminationOption where
+ toJSON BlueInstanceTerminationOption'{..}
+ = object
+ (catMaybes
+ [("action" .=) <$> _bitoAction,
+ ("terminationWaitTimeInMinutes" .=) <$>
+ _bitoTerminationWaitTimeInMinutes])
-- | Information about a deployment configuration.
--
@@ -285,11 +419,12 @@ instance NFData AutoScalingGroup
--
-- /See:/ 'deploymentConfigInfo' smart constructor.
data DeploymentConfigInfo = DeploymentConfigInfo'
- { _dciDeploymentConfigName :: !(Maybe Text)
- , _dciMinimumHealthyHosts :: !(Maybe MinimumHealthyHosts)
- , _dciDeploymentConfigId :: !(Maybe Text)
- , _dciCreateTime :: !(Maybe POSIX)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dciDeploymentConfigName :: !(Maybe Text)
+ , _dciMinimumHealthyHosts :: !(Maybe MinimumHealthyHosts)
+ , _dciDeploymentConfigId :: !(Maybe Text)
+ , _dciCreateTime :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeploymentConfigInfo' with the minimum fields required to make a request.
--
@@ -305,12 +440,13 @@ data DeploymentConfigInfo = DeploymentConfigInfo'
deploymentConfigInfo
:: DeploymentConfigInfo
deploymentConfigInfo =
- DeploymentConfigInfo'
- { _dciDeploymentConfigName = Nothing
- , _dciMinimumHealthyHosts = Nothing
- , _dciDeploymentConfigId = Nothing
- , _dciCreateTime = Nothing
- }
+ DeploymentConfigInfo'
+ { _dciDeploymentConfigName = Nothing
+ , _dciMinimumHealthyHosts = Nothing
+ , _dciDeploymentConfigId = Nothing
+ , _dciCreateTime = Nothing
+ }
+
-- | The deployment configuration name.
dciDeploymentConfigName :: Lens' DeploymentConfigInfo (Maybe Text)
@@ -338,9 +474,9 @@ instance FromJSON DeploymentConfigInfo where
<*> (x .:? "deploymentConfigId")
<*> (x .:? "createTime"))
-instance Hashable DeploymentConfigInfo
+instance Hashable DeploymentConfigInfo where
-instance NFData DeploymentConfigInfo
+instance NFData DeploymentConfigInfo where
-- | Information about a deployment group.
--
@@ -348,19 +484,27 @@ instance NFData DeploymentConfigInfo
--
-- /See:/ 'deploymentGroupInfo' smart constructor.
data DeploymentGroupInfo = DeploymentGroupInfo'
- { _dgiServiceRoleARN :: !(Maybe Text)
- , _dgiDeploymentConfigName :: !(Maybe Text)
- , _dgiTargetRevision :: !(Maybe RevisionLocation)
- , _dgiEc2TagFilters :: !(Maybe [EC2TagFilter])
- , _dgiOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
- , _dgiApplicationName :: !(Maybe Text)
- , _dgiAlarmConfiguration :: !(Maybe AlarmConfiguration)
- , _dgiTriggerConfigurations :: !(Maybe [TriggerConfig])
- , _dgiDeploymentGroupId :: !(Maybe Text)
- , _dgiAutoScalingGroups :: !(Maybe [AutoScalingGroup])
- , _dgiAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
- , _dgiDeploymentGroupName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dgiServiceRoleARN :: !(Maybe Text)
+ , _dgiEc2TagSet :: !(Maybe EC2TagSet)
+ , _dgiDeploymentConfigName :: !(Maybe Text)
+ , _dgiLastAttemptedDeployment :: !(Maybe LastDeploymentInfo)
+ , _dgiOnPremisesTagSet :: !(Maybe OnPremisesTagSet)
+ , _dgiTargetRevision :: !(Maybe RevisionLocation)
+ , _dgiEc2TagFilters :: !(Maybe [EC2TagFilter])
+ , _dgiBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
+ , _dgiLoadBalancerInfo :: !(Maybe LoadBalancerInfo)
+ , _dgiOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
+ , _dgiLastSuccessfulDeployment :: !(Maybe LastDeploymentInfo)
+ , _dgiApplicationName :: !(Maybe Text)
+ , _dgiAlarmConfiguration :: !(Maybe AlarmConfiguration)
+ , _dgiTriggerConfigurations :: !(Maybe [TriggerConfig])
+ , _dgiDeploymentGroupId :: !(Maybe Text)
+ , _dgiAutoScalingGroups :: !(Maybe [AutoScalingGroup])
+ , _dgiDeploymentStyle :: !(Maybe DeploymentStyle)
+ , _dgiAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
+ , _dgiDeploymentGroupName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeploymentGroupInfo' with the minimum fields required to make a request.
--
@@ -368,13 +512,25 @@ data DeploymentGroupInfo = DeploymentGroupInfo'
--
-- * 'dgiServiceRoleARN' - A service role ARN.
--
+-- * 'dgiEc2TagSet' - 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.
+--
-- * 'dgiDeploymentConfigName' - The deployment configuration name.
--
+-- * 'dgiLastAttemptedDeployment' - Information about the most recent attempted deployment to the deployment group.
+--
+-- * '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.
+--
-- * 'dgiTargetRevision' - Information about the deployment group's target revision, including type and location.
--
--- * 'dgiEc2TagFilters' - The Amazon EC2 tags on which to filter.
+-- * 'dgiEc2TagFilters' - The Amazon EC2 tags on which to filter. The deployment group includes EC2 instances with any of the specified tags.
+--
+-- * 'dgiBlueGreenDeploymentConfiguration' - Information about blue/green deployment options for a deployment group.
--
--- * 'dgiOnPremisesInstanceTagFilters' - The on-premises instance tags on which to filter.
+-- * 'dgiLoadBalancerInfo' - Information about the load balancer to use in a deployment.
+--
+-- * 'dgiOnPremisesInstanceTagFilters' - The on-premises instance tags on which to filter. The deployment group includes on-premises instances with any of the specified tags.
+--
+-- * 'dgiLastSuccessfulDeployment' - Information about the most recent successful deployment to the deployment group.
--
-- * 'dgiApplicationName' - The application name.
--
@@ -386,47 +542,81 @@ data DeploymentGroupInfo = DeploymentGroupInfo'
--
-- * 'dgiAutoScalingGroups' - A list of associated Auto Scaling groups.
--
+-- * 'dgiDeploymentStyle' - 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.
+--
-- * 'dgiAutoRollbackConfiguration' - Information about the automatic rollback configuration associated with the deployment group.
--
-- * 'dgiDeploymentGroupName' - The deployment group name.
deploymentGroupInfo
:: DeploymentGroupInfo
deploymentGroupInfo =
- DeploymentGroupInfo'
- { _dgiServiceRoleARN = Nothing
- , _dgiDeploymentConfigName = Nothing
- , _dgiTargetRevision = Nothing
- , _dgiEc2TagFilters = Nothing
- , _dgiOnPremisesInstanceTagFilters = Nothing
- , _dgiApplicationName = Nothing
- , _dgiAlarmConfiguration = Nothing
- , _dgiTriggerConfigurations = Nothing
- , _dgiDeploymentGroupId = Nothing
- , _dgiAutoScalingGroups = Nothing
- , _dgiAutoRollbackConfiguration = Nothing
- , _dgiDeploymentGroupName = Nothing
- }
+ 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
+ }
+
-- | A service role ARN.
dgiServiceRoleARN :: Lens' DeploymentGroupInfo (Maybe Text)
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});
+
-- | The deployment configuration name.
dgiDeploymentConfigName :: Lens' DeploymentGroupInfo (Maybe Text)
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});
+
+-- | 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});
+
-- | 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});
--- | The Amazon EC2 tags on which to filter.
+-- | 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;
--- | The on-premises instance tags on which to filter.
+-- | Information about blue/green deployment options for a deployment group.
+dgiBlueGreenDeploymentConfiguration :: Lens' DeploymentGroupInfo (Maybe BlueGreenDeploymentConfiguration)
+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});
+
+-- | 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;
+-- | Information about the most recent successful deployment to the deployment group.
+dgiLastSuccessfulDeployment :: Lens' DeploymentGroupInfo (Maybe LastDeploymentInfo)
+dgiLastSuccessfulDeployment = lens _dgiLastSuccessfulDeployment (\ s a -> s{_dgiLastSuccessfulDeployment = a});
+
-- | The application name.
dgiApplicationName :: Lens' DeploymentGroupInfo (Maybe Text)
dgiApplicationName = lens _dgiApplicationName (\ s a -> s{_dgiApplicationName = a});
@@ -447,6 +637,10 @@ dgiDeploymentGroupId = lens _dgiDeploymentGroupId (\ s a -> s{_dgiDeploymentGrou
dgiAutoScalingGroups :: Lens' DeploymentGroupInfo [AutoScalingGroup]
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});
+
-- | Information about the automatic rollback configuration associated with the deployment group.
dgiAutoRollbackConfiguration :: Lens' DeploymentGroupInfo (Maybe AutoRollbackConfiguration)
dgiAutoRollbackConfiguration = lens _dgiAutoRollbackConfiguration (\ s a -> s{_dgiAutoRollbackConfiguration = a});
@@ -460,22 +654,28 @@ instance FromJSON DeploymentGroupInfo where
= withObject "DeploymentGroupInfo"
(\ x ->
DeploymentGroupInfo' <$>
- (x .:? "serviceRoleArn") <*>
+ (x .:? "serviceRoleArn") <*> (x .:? "ec2TagSet") <*>
(x .:? "deploymentConfigName")
+ <*> (x .:? "lastAttemptedDeployment")
+ <*> (x .:? "onPremisesTagSet")
<*> (x .:? "targetRevision")
<*> (x .:? "ec2TagFilters" .!= mempty)
+ <*> (x .:? "blueGreenDeploymentConfiguration")
+ <*> (x .:? "loadBalancerInfo")
<*> (x .:? "onPremisesInstanceTagFilters" .!= mempty)
+ <*> (x .:? "lastSuccessfulDeployment")
<*> (x .:? "applicationName")
<*> (x .:? "alarmConfiguration")
<*> (x .:? "triggerConfigurations" .!= mempty)
<*> (x .:? "deploymentGroupId")
<*> (x .:? "autoScalingGroups" .!= mempty)
+ <*> (x .:? "deploymentStyle")
<*> (x .:? "autoRollbackConfiguration")
<*> (x .:? "deploymentGroupName"))
-instance Hashable DeploymentGroupInfo
+instance Hashable DeploymentGroupInfo where
-instance NFData DeploymentGroupInfo
+instance NFData DeploymentGroupInfo where
-- | Information about a deployment.
--
@@ -483,24 +683,33 @@ instance NFData DeploymentGroupInfo
--
-- /See:/ 'deploymentInfo' smart constructor.
data DeploymentInfo = DeploymentInfo'
- { _diCreator :: !(Maybe DeploymentCreator)
- , _diStatus :: !(Maybe DeploymentStatus)
- , _diDeploymentId :: !(Maybe Text)
- , _diDeploymentConfigName :: !(Maybe Text)
- , _diStartTime :: !(Maybe POSIX)
- , _diCompleteTime :: !(Maybe POSIX)
- , _diErrorInformation :: !(Maybe ErrorInformation)
- , _diDeploymentOverview :: !(Maybe DeploymentOverview)
- , _diApplicationName :: !(Maybe Text)
- , _diRollbackInfo :: !(Maybe RollbackInfo)
- , _diRevision :: !(Maybe RevisionLocation)
- , _diDescription :: !(Maybe Text)
- , _diCreateTime :: !(Maybe POSIX)
- , _diAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
- , _diUpdateOutdatedInstancesOnly :: !(Maybe Bool)
- , _diDeploymentGroupName :: !(Maybe Text)
- , _diIgnoreApplicationStopFailures :: !(Maybe Bool)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _diCreator :: !(Maybe DeploymentCreator)
+ , _diStatus :: !(Maybe DeploymentStatus)
+ , _diDeploymentId :: !(Maybe Text)
+ , _diDeploymentConfigName :: !(Maybe Text)
+ , _diPreviousRevision :: !(Maybe RevisionLocation)
+ , _diInstanceTerminationWaitTimeStarted :: !(Maybe Bool)
+ , _diStartTime :: !(Maybe POSIX)
+ , _diCompleteTime :: !(Maybe POSIX)
+ , _diBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
+ , _diErrorInformation :: !(Maybe ErrorInformation)
+ , _diLoadBalancerInfo :: !(Maybe LoadBalancerInfo)
+ , _diAdditionalDeploymentStatusInfo :: !(Maybe Text)
+ , _diDeploymentOverview :: !(Maybe DeploymentOverview)
+ , _diFileExistsBehavior :: !(Maybe FileExistsBehavior)
+ , _diApplicationName :: !(Maybe Text)
+ , _diRollbackInfo :: !(Maybe RollbackInfo)
+ , _diTargetInstances :: !(Maybe TargetInstances)
+ , _diRevision :: !(Maybe RevisionLocation)
+ , _diDescription :: !(Maybe Text)
+ , _diDeploymentStyle :: !(Maybe DeploymentStyle)
+ , _diCreateTime :: !(Maybe POSIX)
+ , _diAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
+ , _diUpdateOutdatedInstancesOnly :: !(Maybe Bool)
+ , _diDeploymentGroupName :: !(Maybe Text)
+ , _diIgnoreApplicationStopFailures :: !(Maybe Bool)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeploymentInfo' with the minimum fields required to make a request.
--
@@ -514,22 +723,38 @@ data DeploymentInfo = DeploymentInfo'
--
-- * 'diDeploymentConfigName' - The deployment configuration name.
--
+-- * '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.
+--
-- * '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.
--
+-- * 'diBlueGreenDeploymentConfiguration' - Information about blue/green deployment options for this deployment.
+--
-- * 'diErrorInformation' - Information about any error associated with this deployment.
--
+-- * 'diLoadBalancerInfo' - Information about the load balancer used in the deployment.
+--
+-- * 'diAdditionalDeploymentStatusInfo' - Provides information about the results of a deployment, such as whether instances in the original environment in a blue/green deployment were not terminated.
+--
-- * 'diDeploymentOverview' - A summary of the deployment status of the instances in the deployment.
--
+-- * 'diFileExistsBehavior' - 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.
+--
-- * 'diApplicationName' - The application name.
--
-- * 'diRollbackInfo' - Information about a deployment rollback.
--
+-- * 'diTargetInstances' - Information about the instances that belong to the replacement environment in a blue/green deployment.
+--
-- * 'diRevision' - Information about the location of stored application artifacts and the service from which to retrieve them.
--
-- * 'diDescription' - A comment about the deployment.
--
+-- * 'diDeploymentStyle' - 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.
+--
-- * 'diCreateTime' - A timestamp indicating when the deployment was created.
--
-- * 'diAutoRollbackConfiguration' - Information about the automatic rollback configuration associated with the deployment.
@@ -542,25 +767,34 @@ data DeploymentInfo = DeploymentInfo'
deploymentInfo
:: DeploymentInfo
deploymentInfo =
- DeploymentInfo'
- { _diCreator = Nothing
- , _diStatus = Nothing
- , _diDeploymentId = Nothing
- , _diDeploymentConfigName = Nothing
- , _diStartTime = Nothing
- , _diCompleteTime = Nothing
- , _diErrorInformation = Nothing
- , _diDeploymentOverview = Nothing
- , _diApplicationName = Nothing
- , _diRollbackInfo = Nothing
- , _diRevision = Nothing
- , _diDescription = Nothing
- , _diCreateTime = Nothing
- , _diAutoRollbackConfiguration = Nothing
- , _diUpdateOutdatedInstancesOnly = Nothing
- , _diDeploymentGroupName = Nothing
- , _diIgnoreApplicationStopFailures = Nothing
- }
+ 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
+ }
+
-- | 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)
@@ -578,6 +812,14 @@ diDeploymentId = lens _diDeploymentId (\ s a -> s{_diDeploymentId = a});
diDeploymentConfigName :: Lens' DeploymentInfo (Maybe Text)
diDeploymentConfigName = lens _diDeploymentConfigName (\ s a -> s{_diDeploymentConfigName = 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});
+
+-- | 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});
+
-- | 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;
@@ -586,14 +828,30 @@ diStartTime = lens _diStartTime (\ s a -> s{_diStartTime = a}) . mapping _Time;
diCompleteTime :: Lens' DeploymentInfo (Maybe UTCTime)
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});
+
-- | Information about any error associated with this deployment.
diErrorInformation :: Lens' DeploymentInfo (Maybe ErrorInformation)
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});
+
+-- | 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});
+
-- | 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});
+-- | 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});
+
-- | The application name.
diApplicationName :: Lens' DeploymentInfo (Maybe Text)
diApplicationName = lens _diApplicationName (\ s a -> s{_diApplicationName = a});
@@ -602,6 +860,10 @@ diApplicationName = lens _diApplicationName (\ s a -> s{_diApplicationName = a})
diRollbackInfo :: Lens' DeploymentInfo (Maybe RollbackInfo)
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});
+
-- | 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});
@@ -610,6 +872,10 @@ diRevision = lens _diRevision (\ s a -> s{_diRevision = a});
diDescription :: Lens' DeploymentInfo (Maybe Text)
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});
+
-- | A timestamp indicating when the deployment was created.
diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime)
diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time;
@@ -638,23 +904,31 @@ instance FromJSON DeploymentInfo where
(x .:? "creator") <*> (x .:? "status") <*>
(x .:? "deploymentId")
<*> (x .:? "deploymentConfigName")
+ <*> (x .:? "previousRevision")
+ <*> (x .:? "instanceTerminationWaitTimeStarted")
<*> (x .:? "startTime")
<*> (x .:? "completeTime")
+ <*> (x .:? "blueGreenDeploymentConfiguration")
<*> (x .:? "errorInformation")
+ <*> (x .:? "loadBalancerInfo")
+ <*> (x .:? "additionalDeploymentStatusInfo")
<*> (x .:? "deploymentOverview")
+ <*> (x .:? "fileExistsBehavior")
<*> (x .:? "applicationName")
<*> (x .:? "rollbackInfo")
+ <*> (x .:? "targetInstances")
<*> (x .:? "revision")
<*> (x .:? "description")
+ <*> (x .:? "deploymentStyle")
<*> (x .:? "createTime")
<*> (x .:? "autoRollbackConfiguration")
<*> (x .:? "updateOutdatedInstancesOnly")
<*> (x .:? "deploymentGroupName")
<*> (x .:? "ignoreApplicationStopFailures"))
-instance Hashable DeploymentInfo
+instance Hashable DeploymentInfo where
-instance NFData DeploymentInfo
+instance NFData DeploymentInfo where
-- | Information about the deployment status of the instances in the deployment.
--
@@ -662,12 +936,14 @@ instance NFData DeploymentInfo
--
-- /See:/ 'deploymentOverview' smart constructor.
data DeploymentOverview = DeploymentOverview'
- { _doPending :: !(Maybe Integer)
- , _doSkipped :: !(Maybe Integer)
- , _doInProgress :: !(Maybe Integer)
- , _doSucceeded :: !(Maybe Integer)
- , _doFailed :: !(Maybe Integer)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _doPending :: !(Maybe Integer)
+ , _doSkipped :: !(Maybe Integer)
+ , _doInProgress :: !(Maybe Integer)
+ , _doSucceeded :: !(Maybe Integer)
+ , _doReady :: !(Maybe Integer)
+ , _doFailed :: !(Maybe Integer)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'DeploymentOverview' with the minimum fields required to make a request.
--
@@ -681,17 +957,21 @@ data DeploymentOverview = DeploymentOverview'
--
-- * 'doSucceeded' - The number of instances in the deployment to which revisions have been successfully deployed.
--
+-- * 'doReady' - The number of instances in a replacement environment ready to receive traffic in a blue/green deployment.
+--
-- * 'doFailed' - The number of instances in the deployment in a failed state.
deploymentOverview
:: DeploymentOverview
deploymentOverview =
- DeploymentOverview'
- { _doPending = Nothing
- , _doSkipped = Nothing
- , _doInProgress = Nothing
- , _doSucceeded = Nothing
- , _doFailed = Nothing
- }
+ DeploymentOverview'
+ { _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)
@@ -709,6 +989,10 @@ doInProgress = lens _doInProgress (\ s a -> s{_doInProgress = a});
doSucceeded :: Lens' DeploymentOverview (Maybe Integer)
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});
+
-- | The number of instances in the deployment in a failed state.
doFailed :: Lens' DeploymentOverview (Maybe Integer)
doFailed = lens _doFailed (\ s a -> s{_doFailed = a});
@@ -721,11 +1005,115 @@ instance FromJSON DeploymentOverview where
(x .:? "Pending") <*> (x .:? "Skipped") <*>
(x .:? "InProgress")
<*> (x .:? "Succeeded")
+ <*> (x .:? "Ready")
<*> (x .:? "Failed"))
-instance Hashable DeploymentOverview
+instance Hashable DeploymentOverview where
+
+instance NFData DeploymentOverview where
+
+-- | Information about how traffic is rerouted to instances in a replacement environment in a blue/green deployment.
+--
+--
+--
+-- /See:/ 'deploymentReadyOption' smart constructor.
+data DeploymentReadyOption = DeploymentReadyOption'
+ { _droActionOnTimeout :: !(Maybe DeploymentReadyAction)
+ , _droWaitTimeInMinutes :: !(Maybe Int)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeploymentReadyOption' with the minimum fields required to make a request.
+--
+-- 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.
+--
+-- * '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}
+
-instance NFData DeploymentOverview
+-- | 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 :: Lens' DeploymentReadyOption (Maybe DeploymentReadyAction)
+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});
+
+instance FromJSON DeploymentReadyOption where
+ parseJSON
+ = withObject "DeploymentReadyOption"
+ (\ x ->
+ DeploymentReadyOption' <$>
+ (x .:? "actionOnTimeout") <*>
+ (x .:? "waitTimeInMinutes"))
+
+instance Hashable DeploymentReadyOption where
+
+instance NFData DeploymentReadyOption where
+
+instance ToJSON DeploymentReadyOption where
+ toJSON DeploymentReadyOption'{..}
+ = object
+ (catMaybes
+ [("actionOnTimeout" .=) <$> _droActionOnTimeout,
+ ("waitTimeInMinutes" .=) <$> _droWaitTimeInMinutes])
+
+-- | 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.
+--
+--
+--
+-- /See:/ 'deploymentStyle' smart constructor.
+data DeploymentStyle = DeploymentStyle'
+ { _dsDeploymentOption :: !(Maybe DeploymentOption)
+ , _dsDeploymentType :: !(Maybe DeploymentType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'DeploymentStyle' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'dsDeploymentOption' - Indicates whether to route deployment traffic behind a load balancer.
+--
+-- * 'dsDeploymentType' - Indicates whether to run an in-place deployment or a blue/green deployment.
+deploymentStyle
+ :: DeploymentStyle
+deploymentStyle =
+ DeploymentStyle' {_dsDeploymentOption = Nothing, _dsDeploymentType = Nothing}
+
+
+-- | Indicates whether to route deployment traffic behind a load balancer.
+dsDeploymentOption :: Lens' DeploymentStyle (Maybe DeploymentOption)
+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});
+
+instance FromJSON DeploymentStyle where
+ parseJSON
+ = withObject "DeploymentStyle"
+ (\ x ->
+ DeploymentStyle' <$>
+ (x .:? "deploymentOption") <*>
+ (x .:? "deploymentType"))
+
+instance Hashable DeploymentStyle where
+
+instance NFData DeploymentStyle where
+
+instance ToJSON DeploymentStyle where
+ toJSON DeploymentStyle'{..}
+ = object
+ (catMaybes
+ [("deploymentOption" .=) <$> _dsDeploymentOption,
+ ("deploymentType" .=) <$> _dsDeploymentType])
-- | Diagnostic information about executable scripts that are part of a deployment.
--
@@ -733,11 +1121,12 @@ instance NFData DeploymentOverview
--
-- /See:/ 'diagnostics' smart constructor.
data Diagnostics = Diagnostics'
- { _dLogTail :: !(Maybe Text)
- , _dErrorCode :: !(Maybe LifecycleErrorCode)
- , _dScriptName :: !(Maybe Text)
- , _dMessage :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _dLogTail :: !(Maybe Text)
+ , _dErrorCode :: !(Maybe LifecycleErrorCode)
+ , _dScriptName :: !(Maybe Text)
+ , _dMessage :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Diagnostics' with the minimum fields required to make a request.
--
@@ -753,12 +1142,13 @@ data Diagnostics = Diagnostics'
diagnostics
:: Diagnostics
diagnostics =
- Diagnostics'
- { _dLogTail = Nothing
- , _dErrorCode = Nothing
- , _dScriptName = Nothing
- , _dMessage = Nothing
- }
+ Diagnostics'
+ { _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)
@@ -785,20 +1175,21 @@ instance FromJSON Diagnostics where
(x .:? "scriptName")
<*> (x .:? "message"))
-instance Hashable Diagnostics
+instance Hashable Diagnostics where
-instance NFData Diagnostics
+instance NFData Diagnostics where
--- | Information about a tag filter.
+-- | Information about an EC2 tag filter.
--
--
--
-- /See:/ 'ec2TagFilter' smart constructor.
data EC2TagFilter = EC2TagFilter'
- { _etfValue :: !(Maybe Text)
- , _etfKey :: !(Maybe Text)
- , _etfType :: !(Maybe EC2TagFilterType)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _etfValue :: !(Maybe Text)
+ , _etfKey :: !(Maybe Text)
+ , _etfType :: !(Maybe EC2TagFilterType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'EC2TagFilter' with the minimum fields required to make a request.
--
@@ -812,11 +1203,8 @@ data EC2TagFilter = EC2TagFilter'
ec2TagFilter
:: EC2TagFilter
ec2TagFilter =
- EC2TagFilter'
- { _etfValue = Nothing
- , _etfKey = Nothing
- , _etfType = Nothing
- }
+ EC2TagFilter' {_etfValue = Nothing, _etfKey = Nothing, _etfType = Nothing}
+
-- | The tag filter value.
etfValue :: Lens' EC2TagFilter (Maybe Text)
@@ -837,9 +1225,9 @@ instance FromJSON EC2TagFilter where
EC2TagFilter' <$>
(x .:? "Value") <*> (x .:? "Key") <*> (x .:? "Type"))
-instance Hashable EC2TagFilter
+instance Hashable EC2TagFilter where
-instance NFData EC2TagFilter
+instance NFData EC2TagFilter where
instance ToJSON EC2TagFilter where
toJSON EC2TagFilter'{..}
@@ -848,32 +1236,107 @@ instance ToJSON EC2TagFilter where
[("Value" .=) <$> _etfValue, ("Key" .=) <$> _etfKey,
("Type" .=) <$> _etfType])
+-- | Information about groups of EC2 instance tags.
+--
+--
+--
+-- /See:/ 'ec2TagSet' smart constructor.
+newtype EC2TagSet = EC2TagSet'
+ { _etsEc2TagSetList :: Maybe [[EC2TagFilter]]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'EC2TagSet' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'etsEc2TagSetList' - 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.
+ec2TagSet
+ :: EC2TagSet
+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;
+
+instance FromJSON EC2TagSet where
+ parseJSON
+ = withObject "EC2TagSet"
+ (\ x ->
+ EC2TagSet' <$> (x .:? "ec2TagSetList" .!= mempty))
+
+instance Hashable EC2TagSet where
+
+instance NFData EC2TagSet where
+
+instance ToJSON EC2TagSet where
+ toJSON EC2TagSet'{..}
+ = object
+ (catMaybes
+ [("ec2TagSetList" .=) <$> _etsEc2TagSetList])
+
+-- | Information about a load balancer in Elastic Load Balancing to use in a deployment. Instances are registered directly with a load balancer, and traffic is routed to the load balancer.
+--
+--
+--
+-- /See:/ 'eLBInfo' smart constructor.
+newtype ELBInfo = ELBInfo'
+ { _elbiName :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'ELBInfo' with the minimum fields required to make a request.
+--
+-- 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.
+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.
+elbiName :: Lens' ELBInfo (Maybe Text)
+elbiName = lens _elbiName (\ s a -> s{_elbiName = a});
+
+instance FromJSON ELBInfo where
+ parseJSON
+ = withObject "ELBInfo"
+ (\ x -> ELBInfo' <$> (x .:? "name"))
+
+instance Hashable ELBInfo where
+
+instance NFData ELBInfo where
+
+instance ToJSON ELBInfo where
+ toJSON ELBInfo'{..}
+ = object (catMaybes [("name" .=) <$> _elbiName])
+
-- | Information about a deployment error.
--
--
--
-- /See:/ 'errorInformation' smart constructor.
data ErrorInformation = ErrorInformation'
- { _eiCode :: !(Maybe DeployErrorCode)
- , _eiMessage :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _eiCode :: !(Maybe DeployErrorCode)
+ , _eiMessage :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'ErrorInformation' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'eiCode' - 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' - 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.
--
-- * 'eiMessage' - An accompanying error message.
errorInformation
:: ErrorInformation
-errorInformation =
- ErrorInformation'
- { _eiCode = Nothing
- , _eiMessage = Nothing
- }
+errorInformation = ErrorInformation' {_eiCode = Nothing, _eiMessage = Nothing}
--- | 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.
+
+-- | 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});
@@ -888,9 +1351,9 @@ instance FromJSON ErrorInformation where
ErrorInformation' <$>
(x .:? "code") <*> (x .:? "message"))
-instance Hashable ErrorInformation
+instance Hashable ErrorInformation where
-instance NFData ErrorInformation
+instance NFData ErrorInformation where
-- | Information about an application revision.
--
@@ -898,12 +1361,13 @@ instance NFData ErrorInformation
--
-- /See:/ 'genericRevisionInfo' smart constructor.
data GenericRevisionInfo = GenericRevisionInfo'
- { _griRegisterTime :: !(Maybe POSIX)
- , _griFirstUsedTime :: !(Maybe POSIX)
- , _griDeploymentGroups :: !(Maybe [Text])
- , _griLastUsedTime :: !(Maybe POSIX)
- , _griDescription :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _griRegisterTime :: !(Maybe POSIX)
+ , _griFirstUsedTime :: !(Maybe POSIX)
+ , _griDeploymentGroups :: !(Maybe [Text])
+ , _griLastUsedTime :: !(Maybe POSIX)
+ , _griDescription :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GenericRevisionInfo' with the minimum fields required to make a request.
--
@@ -921,13 +1385,14 @@ data GenericRevisionInfo = GenericRevisionInfo'
genericRevisionInfo
:: GenericRevisionInfo
genericRevisionInfo =
- GenericRevisionInfo'
- { _griRegisterTime = Nothing
- , _griFirstUsedTime = Nothing
- , _griDeploymentGroups = Nothing
- , _griLastUsedTime = Nothing
- , _griDescription = Nothing
- }
+ GenericRevisionInfo'
+ { _griRegisterTime = Nothing
+ , _griFirstUsedTime = Nothing
+ , _griDeploymentGroups = Nothing
+ , _griLastUsedTime = Nothing
+ , _griDescription = Nothing
+ }
+
-- | When the revision was registered with AWS CodeDeploy.
griRegisterTime :: Lens' GenericRevisionInfo (Maybe UTCTime)
@@ -959,9 +1424,9 @@ instance FromJSON GenericRevisionInfo where
<*> (x .:? "lastUsedTime")
<*> (x .:? "description"))
-instance Hashable GenericRevisionInfo
+instance Hashable GenericRevisionInfo where
-instance NFData GenericRevisionInfo
+instance NFData GenericRevisionInfo where
-- | Information about the location of application artifacts stored in GitHub.
--
@@ -969,9 +1434,10 @@ instance NFData GenericRevisionInfo
--
-- /See:/ 'gitHubLocation' smart constructor.
data GitHubLocation = GitHubLocation'
- { _ghlCommitId :: !(Maybe Text)
- , _ghlRepository :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _ghlCommitId :: !(Maybe Text)
+ , _ghlRepository :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'GitHubLocation' with the minimum fields required to make a request.
--
@@ -983,10 +1449,8 @@ data GitHubLocation = GitHubLocation'
gitHubLocation
:: GitHubLocation
gitHubLocation =
- GitHubLocation'
- { _ghlCommitId = Nothing
- , _ghlRepository = Nothing
- }
+ GitHubLocation' {_ghlCommitId = Nothing, _ghlRepository = Nothing}
+
-- | The SHA1 commit ID of the GitHub commit that represents the bundled artifacts for the application revision.
ghlCommitId :: Lens' GitHubLocation (Maybe Text)
@@ -1003,9 +1467,9 @@ instance FromJSON GitHubLocation where
GitHubLocation' <$>
(x .:? "commitId") <*> (x .:? "repository"))
-instance Hashable GitHubLocation
+instance Hashable GitHubLocation where
-instance NFData GitHubLocation
+instance NFData GitHubLocation where
instance ToJSON GitHubLocation where
toJSON GitHubLocation'{..}
@@ -1014,19 +1478,60 @@ instance ToJSON GitHubLocation where
[("commitId" .=) <$> _ghlCommitId,
("repository" .=) <$> _ghlRepository])
+-- | Information about the instances that belong to the replacement environment in a blue/green deployment.
+--
+--
+--
+-- /See:/ 'greenFleetProvisioningOption' smart constructor.
+newtype GreenFleetProvisioningOption = GreenFleetProvisioningOption'
+ { _gfpoAction :: Maybe GreenFleetProvisioningAction
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'GreenFleetProvisioningOption' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'gfpoAction' - 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.
+greenFleetProvisioningOption
+ :: GreenFleetProvisioningOption
+greenFleetProvisioningOption =
+ GreenFleetProvisioningOption' {_gfpoAction = Nothing}
+
+
+-- | 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});
+
+instance FromJSON GreenFleetProvisioningOption where
+ parseJSON
+ = withObject "GreenFleetProvisioningOption"
+ (\ x ->
+ GreenFleetProvisioningOption' <$> (x .:? "action"))
+
+instance Hashable GreenFleetProvisioningOption where
+
+instance NFData GreenFleetProvisioningOption where
+
+instance ToJSON GreenFleetProvisioningOption where
+ toJSON GreenFleetProvisioningOption'{..}
+ = object (catMaybes [("action" .=) <$> _gfpoAction])
+
-- | Information about an on-premises instance.
--
--
--
-- /See:/ 'instanceInfo' smart constructor.
data InstanceInfo = InstanceInfo'
- { _iiRegisterTime :: !(Maybe POSIX)
- , _iiInstanceARN :: !(Maybe Text)
- , _iiDeregisterTime :: !(Maybe POSIX)
- , _iiIamUserARN :: !(Maybe Text)
- , _iiInstanceName :: !(Maybe Text)
- , _iiTags :: !(Maybe [Tag])
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _iiRegisterTime :: !(Maybe POSIX)
+ , _iiInstanceARN :: !(Maybe Text)
+ , _iiDeregisterTime :: !(Maybe POSIX)
+ , _iiIamUserARN :: !(Maybe Text)
+ , _iiInstanceName :: !(Maybe Text)
+ , _iiIamSessionARN :: !(Maybe Text)
+ , _iiTags :: !(Maybe [Tag])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'InstanceInfo' with the minimum fields required to make a request.
--
@@ -1042,18 +1547,22 @@ data InstanceInfo = InstanceInfo'
--
-- * 'iiInstanceName' - The name of the on-premises instance.
--
+-- * 'iiIamSessionARN' - The ARN of the IAM session associated with the on-premises instance.
+--
-- * 'iiTags' - The tags currently associated with the on-premises instance.
instanceInfo
:: InstanceInfo
instanceInfo =
- InstanceInfo'
- { _iiRegisterTime = Nothing
- , _iiInstanceARN = Nothing
- , _iiDeregisterTime = Nothing
- , _iiIamUserARN = Nothing
- , _iiInstanceName = Nothing
- , _iiTags = Nothing
- }
+ InstanceInfo'
+ { _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)
@@ -1075,6 +1584,10 @@ iiIamUserARN = lens _iiIamUserARN (\ s a -> s{_iiIamUserARN = a});
iiInstanceName :: Lens' InstanceInfo (Maybe Text)
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});
+
-- | The tags currently associated with the on-premises instance.
iiTags :: Lens' InstanceInfo [Tag]
iiTags = lens _iiTags (\ s a -> s{_iiTags = a}) . _Default . _Coerce;
@@ -1088,11 +1601,12 @@ instance FromJSON InstanceInfo where
(x .:? "deregisterTime")
<*> (x .:? "iamUserArn")
<*> (x .:? "instanceName")
+ <*> (x .:? "iamSessionArn")
<*> (x .:? "tags" .!= mempty))
-instance Hashable InstanceInfo
+instance Hashable InstanceInfo where
-instance NFData InstanceInfo
+instance NFData InstanceInfo where
-- | Information about an instance in a deployment.
--
@@ -1100,12 +1614,14 @@ instance NFData InstanceInfo
--
-- /See:/ 'instanceSummary' smart constructor.
data InstanceSummary = InstanceSummary'
- { _isInstanceId :: !(Maybe Text)
- , _isStatus :: !(Maybe InstanceStatus)
- , _isDeploymentId :: !(Maybe Text)
- , _isLastUpdatedAt :: !(Maybe POSIX)
- , _isLifecycleEvents :: !(Maybe [LifecycleEvent])
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _isInstanceId :: !(Maybe Text)
+ , _isStatus :: !(Maybe InstanceStatus)
+ , _isDeploymentId :: !(Maybe Text)
+ , _isLastUpdatedAt :: !(Maybe POSIX)
+ , _isLifecycleEvents :: !(Maybe [LifecycleEvent])
+ , _isInstanceType :: !(Maybe InstanceType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'InstanceSummary' with the minimum fields required to make a request.
--
@@ -1120,16 +1636,20 @@ data InstanceSummary = InstanceSummary'
-- * 'isLastUpdatedAt' - A timestamp indicating when the instance information was last updated.
--
-- * 'isLifecycleEvents' - A list of lifecycle events for this instance.
+--
+-- * 'isInstanceType' - 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.
instanceSummary
:: InstanceSummary
instanceSummary =
- InstanceSummary'
- { _isInstanceId = Nothing
- , _isStatus = Nothing
- , _isDeploymentId = Nothing
- , _isLastUpdatedAt = Nothing
- , _isLifecycleEvents = Nothing
- }
+ InstanceSummary'
+ { _isInstanceId = Nothing
+ , _isStatus = Nothing
+ , _isDeploymentId = Nothing
+ , _isLastUpdatedAt = Nothing
+ , _isLifecycleEvents = Nothing
+ , _isInstanceType = Nothing
+ }
+
-- | The instance ID.
isInstanceId :: Lens' InstanceSummary (Maybe Text)
@@ -1151,6 +1671,10 @@ isLastUpdatedAt = lens _isLastUpdatedAt (\ s a -> s{_isLastUpdatedAt = a}) . map
isLifecycleEvents :: Lens' InstanceSummary [LifecycleEvent]
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});
+
instance FromJSON InstanceSummary where
parseJSON
= withObject "InstanceSummary"
@@ -1159,11 +1683,76 @@ instance FromJSON InstanceSummary where
(x .:? "instanceId") <*> (x .:? "status") <*>
(x .:? "deploymentId")
<*> (x .:? "lastUpdatedAt")
- <*> (x .:? "lifecycleEvents" .!= mempty))
+ <*> (x .:? "lifecycleEvents" .!= mempty)
+ <*> (x .:? "instanceType"))
-instance Hashable InstanceSummary
+instance Hashable InstanceSummary where
-instance NFData InstanceSummary
+instance NFData InstanceSummary where
+
+-- | Information about the most recent attempted or successful deployment to a deployment group.
+--
+--
+--
+-- /See:/ 'lastDeploymentInfo' smart constructor.
+data LastDeploymentInfo = LastDeploymentInfo'
+ { _ldiStatus :: !(Maybe DeploymentStatus)
+ , _ldiDeploymentId :: !(Maybe Text)
+ , _ldiEndTime :: !(Maybe POSIX)
+ , _ldiCreateTime :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'LastDeploymentInfo' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'ldiStatus' - The status of the most recent deployment.
+--
+-- * 'ldiDeploymentId' - The deployment ID.
+--
+-- * 'ldiEndTime' - A timestamp indicating when the most recent deployment to the deployment group completed.
+--
+-- * 'ldiCreateTime' - A timestamp indicating when the most recent deployment to the deployment group started.
+lastDeploymentInfo
+ :: LastDeploymentInfo
+lastDeploymentInfo =
+ LastDeploymentInfo'
+ { _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});
+
+-- | The deployment ID.
+ldiDeploymentId :: Lens' LastDeploymentInfo (Maybe Text)
+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;
+
+-- | 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;
+
+instance FromJSON LastDeploymentInfo where
+ parseJSON
+ = withObject "LastDeploymentInfo"
+ (\ x ->
+ LastDeploymentInfo' <$>
+ (x .:? "status") <*> (x .:? "deploymentId") <*>
+ (x .:? "endTime")
+ <*> (x .:? "createTime"))
+
+instance Hashable LastDeploymentInfo where
+
+instance NFData LastDeploymentInfo where
-- | Information about a deployment lifecycle event.
--
@@ -1171,12 +1760,13 @@ instance NFData InstanceSummary
--
-- /See:/ 'lifecycleEvent' smart constructor.
data LifecycleEvent = LifecycleEvent'
- { _leStatus :: !(Maybe LifecycleEventStatus)
- , _leLifecycleEventName :: !(Maybe Text)
- , _leStartTime :: !(Maybe POSIX)
- , _leDiagnostics :: !(Maybe Diagnostics)
- , _leEndTime :: !(Maybe POSIX)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _leStatus :: !(Maybe LifecycleEventStatus)
+ , _leLifecycleEventName :: !(Maybe Text)
+ , _leStartTime :: !(Maybe POSIX)
+ , _leDiagnostics :: !(Maybe Diagnostics)
+ , _leEndTime :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'LifecycleEvent' with the minimum fields required to make a request.
--
@@ -1194,13 +1784,14 @@ data LifecycleEvent = LifecycleEvent'
lifecycleEvent
:: LifecycleEvent
lifecycleEvent =
- LifecycleEvent'
- { _leStatus = Nothing
- , _leLifecycleEventName = Nothing
- , _leStartTime = Nothing
- , _leDiagnostics = Nothing
- , _leEndTime = Nothing
- }
+ LifecycleEvent'
+ { _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)
@@ -1232,9 +1823,62 @@ instance FromJSON LifecycleEvent where
<*> (x .:? "diagnostics")
<*> (x .:? "endTime"))
-instance Hashable LifecycleEvent
+instance Hashable LifecycleEvent where
+
+instance NFData LifecycleEvent where
+
+-- | Information about the Elastic Load Balancing load balancer or target group used in a deployment.
+--
+--
+--
+-- /See:/ 'loadBalancerInfo' smart constructor.
+data LoadBalancerInfo = LoadBalancerInfo'
+ { _lbiElbInfoList :: !(Maybe [ELBInfo])
+ , _lbiTargetGroupInfoList :: !(Maybe [TargetGroupInfo])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'LoadBalancerInfo' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'lbiElbInfoList' - 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.
+--
+-- * 'lbiTargetGroupInfoList' - 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.
+loadBalancerInfo
+ :: LoadBalancerInfo
+loadBalancerInfo =
+ LoadBalancerInfo'
+ {_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;
+
+-- | 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;
+
+instance FromJSON LoadBalancerInfo where
+ parseJSON
+ = withObject "LoadBalancerInfo"
+ (\ x ->
+ LoadBalancerInfo' <$>
+ (x .:? "elbInfoList" .!= mempty) <*>
+ (x .:? "targetGroupInfoList" .!= mempty))
+
+instance Hashable LoadBalancerInfo where
+
+instance NFData LoadBalancerInfo where
-instance NFData LifecycleEvent
+instance ToJSON LoadBalancerInfo where
+ toJSON LoadBalancerInfo'{..}
+ = object
+ (catMaybes
+ [("elbInfoList" .=) <$> _lbiElbInfoList,
+ ("targetGroupInfoList" .=) <$>
+ _lbiTargetGroupInfoList])
-- | Information about minimum healthy instance.
--
@@ -1242,9 +1886,10 @@ instance NFData LifecycleEvent
--
-- /See:/ 'minimumHealthyHosts' smart constructor.
data MinimumHealthyHosts = MinimumHealthyHosts'
- { _mhhValue :: !(Maybe Int)
- , _mhhType :: !(Maybe MinimumHealthyHostsType)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _mhhValue :: !(Maybe Int)
+ , _mhhType :: !(Maybe MinimumHealthyHostsType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'MinimumHealthyHosts' with the minimum fields required to make a request.
--
@@ -1252,20 +1897,18 @@ data MinimumHealthyHosts = MinimumHealthyHosts'
--
-- * 'mhhValue' - The minimum healthy instance value.
--
--- * 'mhhType' - 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.
+-- * 'mhhType' - 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/ .
minimumHealthyHosts
:: MinimumHealthyHosts
minimumHealthyHosts =
- MinimumHealthyHosts'
- { _mhhValue = Nothing
- , _mhhType = Nothing
- }
+ MinimumHealthyHosts' {_mhhValue = Nothing, _mhhType = Nothing}
+
-- | The minimum healthy instance value.
mhhValue :: Lens' MinimumHealthyHosts (Maybe Int)
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.
+-- | 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});
@@ -1276,9 +1919,9 @@ instance FromJSON MinimumHealthyHosts where
MinimumHealthyHosts' <$>
(x .:? "value") <*> (x .:? "type"))
-instance Hashable MinimumHealthyHosts
+instance Hashable MinimumHealthyHosts where
-instance NFData MinimumHealthyHosts
+instance NFData MinimumHealthyHosts where
instance ToJSON MinimumHealthyHosts where
toJSON MinimumHealthyHosts'{..}
@@ -1287,36 +1930,78 @@ instance ToJSON MinimumHealthyHosts where
[("value" .=) <$> _mhhValue,
("type" .=) <$> _mhhType])
+-- | Information about groups of on-premises instance tags.
+--
+--
+--
+-- /See:/ 'onPremisesTagSet' smart constructor.
+newtype OnPremisesTagSet = OnPremisesTagSet'
+ { _optsOnPremisesTagSetList :: Maybe [[TagFilter]]
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'OnPremisesTagSet' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'optsOnPremisesTagSetList' - 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.
+onPremisesTagSet
+ :: OnPremisesTagSet
+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;
+
+instance FromJSON OnPremisesTagSet where
+ parseJSON
+ = withObject "OnPremisesTagSet"
+ (\ x ->
+ OnPremisesTagSet' <$>
+ (x .:? "onPremisesTagSetList" .!= mempty))
+
+instance Hashable OnPremisesTagSet where
+
+instance NFData OnPremisesTagSet where
+
+instance ToJSON OnPremisesTagSet where
+ toJSON OnPremisesTagSet'{..}
+ = object
+ (catMaybes
+ [("onPremisesTagSetList" .=) <$>
+ _optsOnPremisesTagSetList])
+
-- | Information about an application revision.
--
--
--
-- /See:/ 'revisionInfo' smart constructor.
data RevisionInfo = RevisionInfo'
- { _riGenericRevisionInfo :: !(Maybe GenericRevisionInfo)
- , _riRevisionLocation :: !(Maybe RevisionLocation)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _riGenericRevisionInfo :: !(Maybe GenericRevisionInfo)
+ , _riRevisionLocation :: !(Maybe RevisionLocation)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RevisionInfo' with the minimum fields required to make a request.
--
-- Use one of the following lenses to modify other fields as desired:
--
--- * 'riGenericRevisionInfo' - Undocumented member.
+-- * 'riGenericRevisionInfo' - Information about an application revision, including usage details and associated deployment groups.
--
--- * 'riRevisionLocation' - Undocumented member.
+-- * 'riRevisionLocation' - Information about the location and type of an application revision.
revisionInfo
:: RevisionInfo
revisionInfo =
- RevisionInfo'
- { _riGenericRevisionInfo = Nothing
- , _riRevisionLocation = Nothing
- }
+ RevisionInfo'
+ {_riGenericRevisionInfo = Nothing, _riRevisionLocation = Nothing}
--- | Undocumented member.
+
+-- | 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});
--- | Undocumented member.
+-- | Information about the location and type of an application revision.
riRevisionLocation :: Lens' RevisionInfo (Maybe RevisionLocation)
riRevisionLocation = lens _riRevisionLocation (\ s a -> s{_riRevisionLocation = a});
@@ -1328,9 +2013,9 @@ instance FromJSON RevisionInfo where
(x .:? "genericRevisionInfo") <*>
(x .:? "revisionLocation"))
-instance Hashable RevisionInfo
+instance Hashable RevisionInfo where
-instance NFData RevisionInfo
+instance NFData RevisionInfo where
-- | Information about the location of an application revision.
--
@@ -1338,10 +2023,11 @@ instance NFData RevisionInfo
--
-- /See:/ 'revisionLocation' smart constructor.
data RevisionLocation = RevisionLocation'
- { _rlRevisionType :: !(Maybe RevisionLocationType)
- , _rlS3Location :: !(Maybe S3Location)
- , _rlGitHubLocation :: !(Maybe GitHubLocation)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _rlRevisionType :: !(Maybe RevisionLocationType)
+ , _rlS3Location :: !(Maybe S3Location)
+ , _rlGitHubLocation :: !(Maybe GitHubLocation)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RevisionLocation' with the minimum fields required to make a request.
--
@@ -1349,27 +2035,28 @@ data RevisionLocation = RevisionLocation'
--
-- * 'rlRevisionType' - The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub.
--
--- * 'rlS3Location' - Undocumented member.
+-- * 'rlS3Location' - Information about the location of application artifacts stored in Amazon S3.
--
--- * 'rlGitHubLocation' - Undocumented member.
+-- * 'rlGitHubLocation' - Information about the location of application artifacts stored in GitHub.
revisionLocation
:: RevisionLocation
revisionLocation =
- RevisionLocation'
- { _rlRevisionType = Nothing
- , _rlS3Location = Nothing
- , _rlGitHubLocation = Nothing
- }
+ RevisionLocation'
+ { _rlRevisionType = Nothing
+ , _rlS3Location = Nothing
+ , _rlGitHubLocation = Nothing
+ }
+
-- | The type of application revision: * S3: An application revision stored in Amazon S3. * GitHub: An application revision stored in GitHub.
rlRevisionType :: Lens' RevisionLocation (Maybe RevisionLocationType)
rlRevisionType = lens _rlRevisionType (\ s a -> s{_rlRevisionType = a});
--- | Undocumented member.
+-- | Information about the location of application artifacts stored in Amazon S3.
rlS3Location :: Lens' RevisionLocation (Maybe S3Location)
rlS3Location = lens _rlS3Location (\ s a -> s{_rlS3Location = a});
--- | Undocumented member.
+-- | Information about the location of application artifacts stored in GitHub.
rlGitHubLocation :: Lens' RevisionLocation (Maybe GitHubLocation)
rlGitHubLocation = lens _rlGitHubLocation (\ s a -> s{_rlGitHubLocation = a});
@@ -1381,9 +2068,9 @@ instance FromJSON RevisionLocation where
(x .:? "revisionType") <*> (x .:? "s3Location") <*>
(x .:? "gitHubLocation"))
-instance Hashable RevisionLocation
+instance Hashable RevisionLocation where
-instance NFData RevisionLocation
+instance NFData RevisionLocation where
instance ToJSON RevisionLocation where
toJSON RevisionLocation'{..}
@@ -1399,10 +2086,11 @@ instance ToJSON RevisionLocation where
--
-- /See:/ 'rollbackInfo' smart constructor.
data RollbackInfo = RollbackInfo'
- { _riRollbackTriggeringDeploymentId :: !(Maybe Text)
- , _riRollbackMessage :: !(Maybe Text)
- , _riRollbackDeploymentId :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _riRollbackTriggeringDeploymentId :: !(Maybe Text)
+ , _riRollbackMessage :: !(Maybe Text)
+ , _riRollbackDeploymentId :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'RollbackInfo' with the minimum fields required to make a request.
--
@@ -1416,11 +2104,12 @@ data RollbackInfo = RollbackInfo'
rollbackInfo
:: RollbackInfo
rollbackInfo =
- RollbackInfo'
- { _riRollbackTriggeringDeploymentId = Nothing
- , _riRollbackMessage = Nothing
- , _riRollbackDeploymentId = Nothing
- }
+ RollbackInfo'
+ { _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)
@@ -1443,9 +2132,9 @@ instance FromJSON RollbackInfo where
(x .:? "rollbackMessage")
<*> (x .:? "rollbackDeploymentId"))
-instance Hashable RollbackInfo
+instance Hashable RollbackInfo where
-instance NFData RollbackInfo
+instance NFData RollbackInfo where
-- | Information about the location of application artifacts stored in Amazon S3.
--
@@ -1453,12 +2142,13 @@ instance NFData RollbackInfo
--
-- /See:/ 's3Location' smart constructor.
data S3Location = S3Location'
- { _slBundleType :: !(Maybe BundleType)
- , _slETag :: !(Maybe Text)
- , _slBucket :: !(Maybe Text)
- , _slKey :: !(Maybe Text)
- , _slVersion :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _slBundleType :: !(Maybe BundleType)
+ , _slETag :: !(Maybe Text)
+ , _slBucket :: !(Maybe Text)
+ , _slKey :: !(Maybe Text)
+ , _slVersion :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'S3Location' with the minimum fields required to make a request.
--
@@ -1476,13 +2166,14 @@ data S3Location = S3Location'
s3Location
:: S3Location
s3Location =
- S3Location'
- { _slBundleType = Nothing
- , _slETag = Nothing
- , _slBucket = Nothing
- , _slKey = Nothing
- , _slVersion = Nothing
- }
+ S3Location'
+ { _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)
@@ -1514,9 +2205,9 @@ instance FromJSON S3Location where
<*> (x .:? "key")
<*> (x .:? "version"))
-instance Hashable S3Location
+instance Hashable S3Location where
-instance NFData S3Location
+instance NFData S3Location where
instance ToJSON S3Location where
toJSON S3Location'{..}
@@ -1533,9 +2224,10 @@ instance ToJSON S3Location where
--
-- /See:/ 'tag' smart constructor.
data Tag = Tag'
- { _tagValue :: !(Maybe Text)
- , _tagKey :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _tagValue :: !(Maybe Text)
+ , _tagKey :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'Tag' with the minimum fields required to make a request.
--
@@ -1546,11 +2238,8 @@ data Tag = Tag'
-- * 'tagKey' - The tag's key.
tag
:: Tag
-tag =
- Tag'
- { _tagValue = Nothing
- , _tagKey = Nothing
- }
+tag = Tag' {_tagValue = Nothing, _tagKey = Nothing}
+
-- | The tag's value.
tagValue :: Lens' Tag (Maybe Text)
@@ -1565,9 +2254,9 @@ instance FromJSON Tag where
= withObject "Tag"
(\ x -> Tag' <$> (x .:? "Value") <*> (x .:? "Key"))
-instance Hashable Tag
+instance Hashable Tag where
-instance NFData Tag
+instance NFData Tag where
instance ToJSON Tag where
toJSON Tag'{..}
@@ -1581,10 +2270,11 @@ instance ToJSON Tag where
--
-- /See:/ 'tagFilter' smart constructor.
data TagFilter = TagFilter'
- { _tfValue :: !(Maybe Text)
- , _tfKey :: !(Maybe Text)
- , _tfType :: !(Maybe TagFilterType)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _tfValue :: !(Maybe Text)
+ , _tfKey :: !(Maybe Text)
+ , _tfType :: !(Maybe TagFilterType)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TagFilter' with the minimum fields required to make a request.
--
@@ -1597,12 +2287,8 @@ data TagFilter = TagFilter'
-- * 'tfType' - The on-premises instance tag filter type: * KEY_ONLY: Key only. * VALUE_ONLY: Value only. * KEY_AND_VALUE: Key and value.
tagFilter
:: TagFilter
-tagFilter =
- TagFilter'
- { _tfValue = Nothing
- , _tfKey = Nothing
- , _tfType = Nothing
- }
+tagFilter = TagFilter' {_tfValue = Nothing, _tfKey = Nothing, _tfType = Nothing}
+
-- | The on-premises instance tag filter value.
tfValue :: Lens' TagFilter (Maybe Text)
@@ -1623,9 +2309,9 @@ instance FromJSON TagFilter where
TagFilter' <$>
(x .:? "Value") <*> (x .:? "Key") <*> (x .:? "Type"))
-instance Hashable TagFilter
+instance Hashable TagFilter where
-instance NFData TagFilter
+instance NFData TagFilter where
instance ToJSON TagFilter where
toJSON TagFilter'{..}
@@ -1634,15 +2320,117 @@ instance ToJSON TagFilter where
[("Value" .=) <$> _tfValue, ("Key" .=) <$> _tfKey,
("Type" .=) <$> _tfType])
+-- | Information about a target group in Elastic Load Balancing to use in a deployment. Instances are registered as targets in a target group, and traffic is routed to the target group.
+--
+--
+--
+-- /See:/ 'targetGroupInfo' smart constructor.
+newtype TargetGroupInfo = TargetGroupInfo'
+ { _tgiName :: Maybe Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'TargetGroupInfo' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'tgiName' - 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.
+targetGroupInfo
+ :: TargetGroupInfo
+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});
+
+instance FromJSON TargetGroupInfo where
+ parseJSON
+ = withObject "TargetGroupInfo"
+ (\ x -> TargetGroupInfo' <$> (x .:? "name"))
+
+instance Hashable TargetGroupInfo where
+
+instance NFData TargetGroupInfo where
+
+instance ToJSON TargetGroupInfo where
+ toJSON TargetGroupInfo'{..}
+ = object (catMaybes [("name" .=) <$> _tgiName])
+
+-- | Information about the instances to be used in the replacement environment in a blue/green deployment.
+--
+--
+--
+-- /See:/ 'targetInstances' smart constructor.
+data TargetInstances = TargetInstances'
+ { _tiEc2TagSet :: !(Maybe EC2TagSet)
+ , _tiTagFilters :: !(Maybe [EC2TagFilter])
+ , _tiAutoScalingGroups :: !(Maybe [Text])
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
+
+-- | Creates a value of 'TargetInstances' with the minimum fields required to make a request.
+--
+-- Use one of the following lenses to modify other fields as desired:
+--
+-- * 'tiEc2TagSet' - 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.
+--
+-- * 'tiTagFilters' - 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.
+--
+-- * 'tiAutoScalingGroups' - The names of one or more Auto Scaling groups to identify a replacement environment for a blue/green deployment.
+targetInstances
+ :: TargetInstances
+targetInstances =
+ TargetInstances'
+ { _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});
+
+-- | 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;
+
+-- | 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;
+
+instance FromJSON TargetInstances where
+ parseJSON
+ = withObject "TargetInstances"
+ (\ x ->
+ TargetInstances' <$>
+ (x .:? "ec2TagSet") <*>
+ (x .:? "tagFilters" .!= mempty)
+ <*> (x .:? "autoScalingGroups" .!= mempty))
+
+instance Hashable TargetInstances where
+
+instance NFData TargetInstances where
+
+instance ToJSON TargetInstances where
+ toJSON TargetInstances'{..}
+ = object
+ (catMaybes
+ [("ec2TagSet" .=) <$> _tiEc2TagSet,
+ ("tagFilters" .=) <$> _tiTagFilters,
+ ("autoScalingGroups" .=) <$> _tiAutoScalingGroups])
+
-- | Information about a time range.
--
--
--
-- /See:/ 'timeRange' smart constructor.
data TimeRange = TimeRange'
- { _trStart :: !(Maybe POSIX)
- , _trEnd :: !(Maybe POSIX)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _trStart :: !(Maybe POSIX)
+ , _trEnd :: !(Maybe POSIX)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TimeRange' with the minimum fields required to make a request.
--
@@ -1653,11 +2441,8 @@ data TimeRange = TimeRange'
-- * 'trEnd' - The end time of the time range.
timeRange
:: TimeRange
-timeRange =
- TimeRange'
- { _trStart = Nothing
- , _trEnd = Nothing
- }
+timeRange = TimeRange' {_trStart = Nothing, _trEnd = Nothing}
+
-- | The start time of the time range.
trStart :: Lens' TimeRange (Maybe UTCTime)
@@ -1667,9 +2452,9 @@ trStart = lens _trStart (\ s a -> s{_trStart = a}) . mapping _Time;
trEnd :: Lens' TimeRange (Maybe UTCTime)
trEnd = lens _trEnd (\ s a -> s{_trEnd = a}) . mapping _Time;
-instance Hashable TimeRange
+instance Hashable TimeRange where
-instance NFData TimeRange
+instance NFData TimeRange where
instance ToJSON TimeRange where
toJSON TimeRange'{..}
@@ -1683,10 +2468,11 @@ instance ToJSON TimeRange where
--
-- /See:/ 'triggerConfig' smart constructor.
data TriggerConfig = TriggerConfig'
- { _tcTriggerName :: !(Maybe Text)
- , _tcTriggerEvents :: !(Maybe [TriggerEventType])
- , _tcTriggerTargetARN :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _tcTriggerName :: !(Maybe Text)
+ , _tcTriggerEvents :: !(Maybe [TriggerEventType])
+ , _tcTriggerTargetARN :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'TriggerConfig' with the minimum fields required to make a request.
--
@@ -1700,11 +2486,12 @@ data TriggerConfig = TriggerConfig'
triggerConfig
:: TriggerConfig
triggerConfig =
- TriggerConfig'
- { _tcTriggerName = Nothing
- , _tcTriggerEvents = Nothing
- , _tcTriggerTargetARN = Nothing
- }
+ TriggerConfig'
+ { _tcTriggerName = Nothing
+ , _tcTriggerEvents = Nothing
+ , _tcTriggerTargetARN = Nothing
+ }
+
-- | The name of the notification trigger.
tcTriggerName :: Lens' TriggerConfig (Maybe Text)
@@ -1727,9 +2514,9 @@ instance FromJSON TriggerConfig where
(x .:? "triggerEvents" .!= mempty)
<*> (x .:? "triggerTargetArn"))
-instance Hashable TriggerConfig
+instance Hashable TriggerConfig where
-instance NFData TriggerConfig
+instance NFData TriggerConfig where
instance ToJSON TriggerConfig where
toJSON TriggerConfig'{..}
diff --git a/gen/Network/AWS/CodeDeploy/Types/Sum.hs b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
index 9ffd114..8e353e4 100644
--- a/gen/Network/AWS/CodeDeploy/Types/Sum.hs
+++ b/gen/Network/AWS/CodeDeploy/Types/Sum.hs
@@ -9,21 +9,22 @@
-- |
-- Module : Network.AWS.CodeDeploy.Types.Sum
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CodeDeploy.Types.Sum where
-import Network.AWS.Prelude
+import Network.AWS.Prelude
data ApplicationRevisionSortBy
- = FirstUsedTime
- | LastUsedTime
- | RegisterTime
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = FirstUsedTime
+ | LastUsedTime
+ | RegisterTime
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText ApplicationRevisionSortBy where
parser = takeLowerText >>= \case
@@ -49,10 +50,11 @@ instance ToJSON ApplicationRevisionSortBy where
toJSON = toJSONText
data AutoRollbackEvent
- = AREDeploymentFailure
- | AREDeploymentStopOnAlarm
- | AREDeploymentStopOnRequest
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = AREDeploymentFailure
+ | AREDeploymentStopOnAlarm
+ | AREDeploymentStopOnRequest
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText AutoRollbackEvent where
parser = takeLowerText >>= \case
@@ -81,10 +83,11 @@ instance FromJSON AutoRollbackEvent where
parseJSON = parseJSONText "AutoRollbackEvent"
data BundleType
- = TAR
- | TGZ
- | Zip
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = TAR
+ | TGZ
+ | Zip
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText BundleType where
parser = takeLowerText >>= \case
@@ -113,25 +116,26 @@ instance FromJSON BundleType where
parseJSON = parseJSONText "BundleType"
data DeployErrorCode
- = AgentIssue
- | AlarmActive
- | ApplicationMissing
- | AutoScalingConfiguration
- | AutoScalingIAMRolePermissions
- | DeploymentGroupMissing
- | HealthConstraints
- | HealthConstraintsInvalid
- | IAMRoleMissing
- | IAMRolePermissions
- | InternalError
- | ManualStop
- | NoEC2Subscription
- | NoInstances
- | OverMaxInstances
- | RevisionMissing
- | Throttled
- | Timeout
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = AgentIssue
+ | AlarmActive
+ | ApplicationMissing
+ | AutoScalingConfiguration
+ | AutoScalingIAMRolePermissions
+ | DeploymentGroupMissing
+ | HealthConstraints
+ | HealthConstraintsInvalid
+ | IAMRoleMissing
+ | IAMRolePermissions
+ | InternalError
+ | ManualStop
+ | NoEC2Subscription
+ | NoInstances
+ | OverMaxInstances
+ | RevisionMissing
+ | Throttled
+ | Timeout
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText DeployErrorCode where
parser = takeLowerText >>= \case
@@ -187,10 +191,11 @@ instance FromJSON DeployErrorCode where
parseJSON = parseJSONText "DeployErrorCode"
data DeploymentCreator
- = Autoscaling
- | CodeDeployRollback
- | User
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Autoscaling
+ | CodeDeployRollback
+ | User
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText DeploymentCreator where
parser = takeLowerText >>= \case
@@ -215,14 +220,76 @@ instance ToHeader DeploymentCreator
instance FromJSON DeploymentCreator where
parseJSON = parseJSONText "DeploymentCreator"
+data DeploymentOption
+ = WithTrafficControl
+ | WithoutTrafficControl
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText DeploymentOption where
+ parser = takeLowerText >>= \case
+ "with_traffic_control" -> pure WithTrafficControl
+ "without_traffic_control" -> pure WithoutTrafficControl
+ e -> fromTextError $ "Failure parsing DeploymentOption from value: '" <> e
+ <> "'. Accepted values: with_traffic_control, without_traffic_control"
+
+instance ToText DeploymentOption where
+ toText = \case
+ WithTrafficControl -> "WITH_TRAFFIC_CONTROL"
+ WithoutTrafficControl -> "WITHOUT_TRAFFIC_CONTROL"
+
+instance Hashable DeploymentOption
+instance NFData DeploymentOption
+instance ToByteString DeploymentOption
+instance ToQuery DeploymentOption
+instance ToHeader DeploymentOption
+
+instance ToJSON DeploymentOption where
+ toJSON = toJSONText
+
+instance FromJSON DeploymentOption where
+ parseJSON = parseJSONText "DeploymentOption"
+
+data DeploymentReadyAction
+ = ContinueDeployment
+ | StopDeployment
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText DeploymentReadyAction where
+ parser = takeLowerText >>= \case
+ "continue_deployment" -> pure ContinueDeployment
+ "stop_deployment" -> pure StopDeployment
+ e -> fromTextError $ "Failure parsing DeploymentReadyAction from value: '" <> e
+ <> "'. Accepted values: continue_deployment, stop_deployment"
+
+instance ToText DeploymentReadyAction where
+ toText = \case
+ ContinueDeployment -> "CONTINUE_DEPLOYMENT"
+ StopDeployment -> "STOP_DEPLOYMENT"
+
+instance Hashable DeploymentReadyAction
+instance NFData DeploymentReadyAction
+instance ToByteString DeploymentReadyAction
+instance ToQuery DeploymentReadyAction
+instance ToHeader DeploymentReadyAction
+
+instance ToJSON DeploymentReadyAction where
+ toJSON = toJSONText
+
+instance FromJSON DeploymentReadyAction where
+ parseJSON = parseJSONText "DeploymentReadyAction"
+
data DeploymentStatus
- = Created
- | Failed
- | InProgress
- | Queued
- | Stopped
- | Succeeded
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Created
+ | Failed
+ | InProgress
+ | Queued
+ | Ready
+ | Stopped
+ | Succeeded
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText DeploymentStatus where
parser = takeLowerText >>= \case
@@ -230,10 +297,11 @@ instance FromText DeploymentStatus where
"failed" -> pure Failed
"inprogress" -> pure InProgress
"queued" -> pure Queued
+ "ready" -> pure Ready
"stopped" -> pure Stopped
"succeeded" -> pure Succeeded
e -> fromTextError $ "Failure parsing DeploymentStatus from value: '" <> e
- <> "'. Accepted values: created, failed, inprogress, queued, stopped, succeeded"
+ <> "'. Accepted values: created, failed, inprogress, queued, ready, stopped, succeeded"
instance ToText DeploymentStatus where
toText = \case
@@ -241,6 +309,7 @@ instance ToText DeploymentStatus where
Failed -> "Failed"
InProgress -> "InProgress"
Queued -> "Queued"
+ Ready -> "Ready"
Stopped -> "Stopped"
Succeeded -> "Succeeded"
@@ -256,11 +325,42 @@ instance ToJSON DeploymentStatus where
instance FromJSON DeploymentStatus where
parseJSON = parseJSONText "DeploymentStatus"
+data DeploymentType
+ = BlueGreen
+ | InPlace
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText DeploymentType where
+ parser = takeLowerText >>= \case
+ "blue_green" -> pure BlueGreen
+ "in_place" -> pure InPlace
+ e -> fromTextError $ "Failure parsing DeploymentType from value: '" <> e
+ <> "'. Accepted values: blue_green, in_place"
+
+instance ToText DeploymentType where
+ toText = \case
+ BlueGreen -> "BLUE_GREEN"
+ InPlace -> "IN_PLACE"
+
+instance Hashable DeploymentType
+instance NFData DeploymentType
+instance ToByteString DeploymentType
+instance ToQuery DeploymentType
+instance ToHeader DeploymentType
+
+instance ToJSON DeploymentType where
+ toJSON = toJSONText
+
+instance FromJSON DeploymentType where
+ parseJSON = parseJSONText "DeploymentType"
+
data EC2TagFilterType
- = KeyAndValue
- | KeyOnly
- | ValueOnly
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = KeyAndValue
+ | KeyOnly
+ | ValueOnly
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText EC2TagFilterType where
parser = takeLowerText >>= \case
@@ -288,31 +388,128 @@ instance ToJSON EC2TagFilterType where
instance FromJSON EC2TagFilterType where
parseJSON = parseJSONText "EC2TagFilterType"
+data FileExistsBehavior
+ = Disallow
+ | Overwrite
+ | Retain
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText FileExistsBehavior where
+ parser = takeLowerText >>= \case
+ "disallow" -> pure Disallow
+ "overwrite" -> pure Overwrite
+ "retain" -> pure Retain
+ e -> fromTextError $ "Failure parsing FileExistsBehavior from value: '" <> e
+ <> "'. Accepted values: disallow, overwrite, retain"
+
+instance ToText FileExistsBehavior where
+ toText = \case
+ Disallow -> "DISALLOW"
+ Overwrite -> "OVERWRITE"
+ Retain -> "RETAIN"
+
+instance Hashable FileExistsBehavior
+instance NFData FileExistsBehavior
+instance ToByteString FileExistsBehavior
+instance ToQuery FileExistsBehavior
+instance ToHeader FileExistsBehavior
+
+instance ToJSON FileExistsBehavior where
+ toJSON = toJSONText
+
+instance FromJSON FileExistsBehavior where
+ parseJSON = parseJSONText "FileExistsBehavior"
+
+data GreenFleetProvisioningAction
+ = CopyAutoScalingGroup
+ | DiscoverExisting
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText GreenFleetProvisioningAction where
+ parser = takeLowerText >>= \case
+ "copy_auto_scaling_group" -> pure CopyAutoScalingGroup
+ "discover_existing" -> pure DiscoverExisting
+ e -> fromTextError $ "Failure parsing GreenFleetProvisioningAction from value: '" <> e
+ <> "'. Accepted values: copy_auto_scaling_group, discover_existing"
+
+instance ToText GreenFleetProvisioningAction where
+ toText = \case
+ CopyAutoScalingGroup -> "COPY_AUTO_SCALING_GROUP"
+ DiscoverExisting -> "DISCOVER_EXISTING"
+
+instance Hashable GreenFleetProvisioningAction
+instance NFData GreenFleetProvisioningAction
+instance ToByteString GreenFleetProvisioningAction
+instance ToQuery GreenFleetProvisioningAction
+instance ToHeader GreenFleetProvisioningAction
+
+instance ToJSON GreenFleetProvisioningAction where
+ toJSON = toJSONText
+
+instance FromJSON GreenFleetProvisioningAction where
+ parseJSON = parseJSONText "GreenFleetProvisioningAction"
+
+data InstanceAction
+ = KeepAlive
+ | Terminate
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText InstanceAction where
+ parser = takeLowerText >>= \case
+ "keep_alive" -> pure KeepAlive
+ "terminate" -> pure Terminate
+ e -> fromTextError $ "Failure parsing InstanceAction from value: '" <> e
+ <> "'. Accepted values: keep_alive, terminate"
+
+instance ToText InstanceAction where
+ toText = \case
+ KeepAlive -> "KEEP_ALIVE"
+ Terminate -> "TERMINATE"
+
+instance Hashable InstanceAction
+instance NFData InstanceAction
+instance ToByteString InstanceAction
+instance ToQuery InstanceAction
+instance ToHeader InstanceAction
+
+instance ToJSON InstanceAction where
+ toJSON = toJSONText
+
+instance FromJSON InstanceAction where
+ parseJSON = parseJSONText "InstanceAction"
+
data InstanceStatus
- = ISFailed
- | ISInProgress
- | ISPending
- | ISSkipped
- | ISSucceeded
- | ISUnknown
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = ISFailed
+ | ISInProgress
+ | ISPending
+ | ISReady
+ | ISSkipped
+ | ISSucceeded
+ | ISUnknown
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText InstanceStatus where
parser = takeLowerText >>= \case
"failed" -> pure ISFailed
"inprogress" -> pure ISInProgress
"pending" -> pure ISPending
+ "ready" -> pure ISReady
"skipped" -> pure ISSkipped
"succeeded" -> pure ISSucceeded
"unknown" -> pure ISUnknown
e -> fromTextError $ "Failure parsing InstanceStatus from value: '" <> e
- <> "'. Accepted values: failed, inprogress, pending, skipped, succeeded, unknown"
+ <> "'. Accepted values: failed, inprogress, pending, ready, skipped, succeeded, unknown"
instance ToText InstanceStatus where
toText = \case
ISFailed -> "Failed"
ISInProgress -> "InProgress"
ISPending -> "Pending"
+ ISReady -> "Ready"
ISSkipped -> "Skipped"
ISSucceeded -> "Succeeded"
ISUnknown -> "Unknown"
@@ -329,14 +526,45 @@ instance ToJSON InstanceStatus where
instance FromJSON InstanceStatus where
parseJSON = parseJSONText "InstanceStatus"
+data InstanceType
+ = Blue
+ | Green
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
+
+instance FromText InstanceType where
+ parser = takeLowerText >>= \case
+ "blue" -> pure Blue
+ "green" -> pure Green
+ e -> fromTextError $ "Failure parsing InstanceType from value: '" <> e
+ <> "'. Accepted values: blue, green"
+
+instance ToText InstanceType where
+ toText = \case
+ Blue -> "Blue"
+ Green -> "Green"
+
+instance Hashable InstanceType
+instance NFData InstanceType
+instance ToByteString InstanceType
+instance ToQuery InstanceType
+instance ToHeader InstanceType
+
+instance ToJSON InstanceType where
+ toJSON = toJSONText
+
+instance FromJSON InstanceType where
+ parseJSON = parseJSONText "InstanceType"
+
data LifecycleErrorCode
- = ScriptFailed
- | ScriptMissing
- | ScriptNotExecutable
- | ScriptTimedOut
- | Success
- | UnknownError
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = ScriptFailed
+ | ScriptMissing
+ | ScriptNotExecutable
+ | ScriptTimedOut
+ | Success
+ | UnknownError
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText LifecycleErrorCode where
parser = takeLowerText >>= \case
@@ -368,13 +596,14 @@ instance FromJSON LifecycleErrorCode where
parseJSON = parseJSONText "LifecycleErrorCode"
data LifecycleEventStatus
- = LESFailed
- | LESInProgress
- | LESPending
- | LESSkipped
- | LESSucceeded
- | LESUnknown
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = LESFailed
+ | LESInProgress
+ | LESPending
+ | LESSkipped
+ | LESSucceeded
+ | LESUnknown
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText LifecycleEventStatus where
parser = takeLowerText >>= \case
@@ -406,10 +635,11 @@ instance FromJSON LifecycleEventStatus where
parseJSON = parseJSONText "LifecycleEventStatus"
data ListStateFilterAction
- = Exclude
- | Ignore
- | Include
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Exclude
+ | Ignore
+ | Include
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText ListStateFilterAction where
parser = takeLowerText >>= \case
@@ -435,9 +665,10 @@ instance ToJSON ListStateFilterAction where
toJSON = toJSONText
data MinimumHealthyHostsType
- = FleetPercent
- | HostCount
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = FleetPercent
+ | HostCount
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText MinimumHealthyHostsType where
parser = takeLowerText >>= \case
@@ -464,9 +695,10 @@ instance FromJSON MinimumHealthyHostsType where
parseJSON = parseJSONText "MinimumHealthyHostsType"
data RegistrationStatus
- = Deregistered
- | Registered
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Deregistered
+ | Registered
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText RegistrationStatus where
parser = takeLowerText >>= \case
@@ -490,9 +722,10 @@ instance ToJSON RegistrationStatus where
toJSON = toJSONText
data RevisionLocationType
- = GitHub
- | S3
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = GitHub
+ | S3
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText RevisionLocationType where
parser = takeLowerText >>= \case
@@ -519,9 +752,10 @@ instance FromJSON RevisionLocationType where
parseJSON = parseJSONText "RevisionLocationType"
data SortOrder
- = Ascending
- | Descending
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = Ascending
+ | Descending
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText SortOrder where
parser = takeLowerText >>= \case
@@ -545,9 +779,10 @@ instance ToJSON SortOrder where
toJSON = toJSONText
data StopStatus
- = SSPending
- | SSSucceeded
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = SSPending
+ | SSSucceeded
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText StopStatus where
parser = takeLowerText >>= \case
@@ -571,10 +806,11 @@ instance FromJSON StopStatus where
parseJSON = parseJSONText "StopStatus"
data TagFilterType
- = TFTKeyAndValue
- | TFTKeyOnly
- | TFTValueOnly
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = TFTKeyAndValue
+ | TFTKeyOnly
+ | TFTValueOnly
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText TagFilterType where
parser = takeLowerText >>= \case
@@ -603,37 +839,44 @@ instance FromJSON TagFilterType where
parseJSON = parseJSONText "TagFilterType"
data TriggerEventType
- = DeploymentFailure
- | DeploymentRollback
- | DeploymentStart
- | DeploymentStop
- | DeploymentSuccess
- | InstanceFailure
- | InstanceStart
- | InstanceSuccess
- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)
+ = DeploymentFailure
+ | DeploymentReady
+ | DeploymentRollback
+ | DeploymentStart
+ | DeploymentStop
+ | DeploymentSuccess
+ | InstanceFailure
+ | InstanceReady
+ | InstanceStart
+ | InstanceSuccess
+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)
+
instance FromText TriggerEventType where
parser = takeLowerText >>= \case
"deploymentfailure" -> pure DeploymentFailure
+ "deploymentready" -> pure DeploymentReady
"deploymentrollback" -> pure DeploymentRollback
"deploymentstart" -> pure DeploymentStart
"deploymentstop" -> pure DeploymentStop
"deploymentsuccess" -> pure DeploymentSuccess
"instancefailure" -> pure InstanceFailure
+ "instanceready" -> pure InstanceReady
"instancestart" -> pure InstanceStart
"instancesuccess" -> pure InstanceSuccess
e -> fromTextError $ "Failure parsing TriggerEventType from value: '" <> e
- <> "'. Accepted values: deploymentfailure, deploymentrollback, deploymentstart, deploymentstop, deploymentsuccess, instancefailure, instancestart, instancesuccess"
+ <> "'. Accepted values: deploymentfailure, deploymentready, deploymentrollback, deploymentstart, deploymentstop, deploymentsuccess, instancefailure, instanceready, instancestart, instancesuccess"
instance ToText TriggerEventType where
toText = \case
DeploymentFailure -> "DeploymentFailure"
+ DeploymentReady -> "DeploymentReady"
DeploymentRollback -> "DeploymentRollback"
DeploymentStart -> "DeploymentStart"
DeploymentStop -> "DeploymentStop"
DeploymentSuccess -> "DeploymentSuccess"
InstanceFailure -> "InstanceFailure"
+ InstanceReady -> "InstanceReady"
InstanceStart -> "InstanceStart"
InstanceSuccess -> "InstanceSuccess"
diff --git a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
index 478b8ca..a79da83 100644
--- a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.UpdateApplication
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -35,22 +35,23 @@ module Network.AWS.CodeDeploy.UpdateApplication
, UpdateApplicationResponse
) 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
+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 an update application operation.
+-- | Represents the input of an UpdateApplication operation.
--
--
--
-- /See:/ 'updateApplication' smart constructor.
data UpdateApplication = UpdateApplication'
- { _uaNewApplicationName :: !(Maybe Text)
- , _uaApplicationName :: !(Maybe Text)
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _uaNewApplicationName :: !(Maybe Text)
+ , _uaApplicationName :: !(Maybe Text)
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UpdateApplication' with the minimum fields required to make a request.
--
@@ -62,10 +63,9 @@ data UpdateApplication = UpdateApplication'
updateApplication
:: UpdateApplication
updateApplication =
- UpdateApplication'
- { _uaNewApplicationName = Nothing
- , _uaApplicationName = Nothing
- }
+ UpdateApplication'
+ {_uaNewApplicationName = Nothing, _uaApplicationName = Nothing}
+
-- | The new name to give the application.
uaNewApplicationName :: Lens' UpdateApplication (Maybe Text)
@@ -80,9 +80,9 @@ instance AWSRequest UpdateApplication where
request = postJSON codeDeploy
response = receiveNull UpdateApplicationResponse'
-instance Hashable UpdateApplication
+instance Hashable UpdateApplication where
-instance NFData UpdateApplication
+instance NFData UpdateApplication where
instance ToHeaders UpdateApplication where
toHeaders
@@ -109,8 +109,9 @@ instance ToQuery UpdateApplication where
-- | /See:/ 'updateApplicationResponse' smart constructor.
data UpdateApplicationResponse =
- UpdateApplicationResponse'
- deriving (Eq,Read,Show,Data,Typeable,Generic)
+ UpdateApplicationResponse'
+ deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UpdateApplicationResponse' with the minimum fields required to make a request.
--
@@ -118,4 +119,5 @@ updateApplicationResponse
:: UpdateApplicationResponse
updateApplicationResponse = UpdateApplicationResponse'
-instance NFData UpdateApplicationResponse
+
+instance NFData UpdateApplicationResponse where
diff --git a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
index f0f5bb4..22a46ec 100644
--- a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
@@ -12,9 +12,9 @@
-- |
-- Module : Network.AWS.CodeDeploy.UpdateDeploymentGroup
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
@@ -28,13 +28,18 @@ module Network.AWS.CodeDeploy.UpdateDeploymentGroup
, UpdateDeploymentGroup
-- * Request Lenses
, udgServiceRoleARN
+ , udgEc2TagSet
, udgDeploymentConfigName
+ , udgOnPremisesTagSet
, udgNewDeploymentGroupName
, udgEc2TagFilters
+ , udgBlueGreenDeploymentConfiguration
+ , udgLoadBalancerInfo
, udgOnPremisesInstanceTagFilters
, udgAlarmConfiguration
, udgTriggerConfigurations
, udgAutoScalingGroups
+ , udgDeploymentStyle
, udgAutoRollbackConfiguration
, udgApplicationName
, udgCurrentDeploymentGroupName
@@ -47,31 +52,37 @@ module Network.AWS.CodeDeploy.UpdateDeploymentGroup
, udgrsResponseStatus
) 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
+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 an update deployment group operation.
+-- | Represents the input of an UpdateDeploymentGroup operation.
--
--
--
-- /See:/ 'updateDeploymentGroup' smart constructor.
data UpdateDeploymentGroup = UpdateDeploymentGroup'
- { _udgServiceRoleARN :: !(Maybe Text)
- , _udgDeploymentConfigName :: !(Maybe Text)
- , _udgNewDeploymentGroupName :: !(Maybe Text)
- , _udgEc2TagFilters :: !(Maybe [EC2TagFilter])
- , _udgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
- , _udgAlarmConfiguration :: !(Maybe AlarmConfiguration)
- , _udgTriggerConfigurations :: !(Maybe [TriggerConfig])
- , _udgAutoScalingGroups :: !(Maybe [Text])
- , _udgAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
- , _udgApplicationName :: !Text
- , _udgCurrentDeploymentGroupName :: !Text
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _udgServiceRoleARN :: !(Maybe Text)
+ , _udgEc2TagSet :: !(Maybe EC2TagSet)
+ , _udgDeploymentConfigName :: !(Maybe Text)
+ , _udgOnPremisesTagSet :: !(Maybe OnPremisesTagSet)
+ , _udgNewDeploymentGroupName :: !(Maybe Text)
+ , _udgEc2TagFilters :: !(Maybe [EC2TagFilter])
+ , _udgBlueGreenDeploymentConfiguration :: !(Maybe BlueGreenDeploymentConfiguration)
+ , _udgLoadBalancerInfo :: !(Maybe LoadBalancerInfo)
+ , _udgOnPremisesInstanceTagFilters :: !(Maybe [TagFilter])
+ , _udgAlarmConfiguration :: !(Maybe AlarmConfiguration)
+ , _udgTriggerConfigurations :: !(Maybe [TriggerConfig])
+ , _udgAutoScalingGroups :: !(Maybe [Text])
+ , _udgDeploymentStyle :: !(Maybe DeploymentStyle)
+ , _udgAutoRollbackConfiguration :: !(Maybe AutoRollbackConfiguration)
+ , _udgApplicationName :: !Text
+ , _udgCurrentDeploymentGroupName :: !Text
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UpdateDeploymentGroup' with the minimum fields required to make a request.
--
@@ -79,12 +90,20 @@ data UpdateDeploymentGroup = UpdateDeploymentGroup'
--
-- * 'udgServiceRoleARN' - A replacement ARN for the service role, if you want to change it.
--
+-- * 'udgEc2TagSet' - Information about groups of tags applied to on-premises instances. The deployment group will include only EC2 instances identified by all the tag groups.
+--
-- * 'udgDeploymentConfigName' - The replacement deployment configuration name to use, if you want to change it.
--
+-- * 'udgOnPremisesTagSet' - Information about an on-premises instance tag set. The deployment group will include only on-premises instances identified by all the tag groups.
+--
-- * 'udgNewDeploymentGroupName' - The new name of the deployment group, if you want to change it.
--
-- * 'udgEc2TagFilters' - 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.
--
+-- * 'udgBlueGreenDeploymentConfiguration' - Information about blue/green deployment options for a deployment group.
+--
+-- * 'udgLoadBalancerInfo' - Information about the load balancer used in a deployment.
+--
-- * 'udgOnPremisesInstanceTagFilters' - 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.
--
-- * 'udgAlarmConfiguration' - Information to add or change about Amazon CloudWatch alarms when the deployment group is updated.
@@ -93,6 +112,8 @@ data UpdateDeploymentGroup = UpdateDeploymentGroup'
--
-- * 'udgAutoScalingGroups' - 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.
--
+-- * 'udgDeploymentStyle' - 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.
+--
-- * 'udgAutoRollbackConfiguration' - Information for an automatic rollback configuration that is added or changed when a deployment group is updated.
--
-- * 'udgApplicationName' - The application name corresponding to the deployment group to update.
@@ -103,28 +124,42 @@ updateDeploymentGroup
-> Text -- ^ 'udgCurrentDeploymentGroupName'
-> UpdateDeploymentGroup
updateDeploymentGroup pApplicationName_ pCurrentDeploymentGroupName_ =
- UpdateDeploymentGroup'
- { _udgServiceRoleARN = Nothing
- , _udgDeploymentConfigName = Nothing
- , _udgNewDeploymentGroupName = Nothing
- , _udgEc2TagFilters = Nothing
- , _udgOnPremisesInstanceTagFilters = Nothing
- , _udgAlarmConfiguration = Nothing
- , _udgTriggerConfigurations = Nothing
- , _udgAutoScalingGroups = Nothing
- , _udgAutoRollbackConfiguration = Nothing
- , _udgApplicationName = pApplicationName_
- , _udgCurrentDeploymentGroupName = 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_
+ }
+
-- | 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});
+-- | 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});
+
-- | 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});
+-- | 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});
+
-- | 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});
@@ -133,6 +168,14 @@ udgNewDeploymentGroupName = lens _udgNewDeploymentGroupName (\ s a -> s{_udgNewD
udgEc2TagFilters :: Lens' UpdateDeploymentGroup [EC2TagFilter]
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});
+
+-- | Information about the load balancer used in a deployment.
+udgLoadBalancerInfo :: Lens' UpdateDeploymentGroup (Maybe LoadBalancerInfo)
+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;
@@ -149,6 +192,10 @@ udgTriggerConfigurations = lens _udgTriggerConfigurations (\ s a -> s{_udgTrigge
udgAutoScalingGroups :: Lens' UpdateDeploymentGroup [Text]
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});
+
-- | 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});
@@ -172,9 +219,9 @@ instance AWSRequest UpdateDeploymentGroup where
(x .?> "hooksNotCleanedUp" .!@ mempty) <*>
(pure (fromEnum s)))
-instance Hashable UpdateDeploymentGroup
+instance Hashable UpdateDeploymentGroup where
-instance NFData UpdateDeploymentGroup
+instance NFData UpdateDeploymentGroup where
instance ToHeaders UpdateDeploymentGroup where
toHeaders
@@ -191,17 +238,23 @@ instance ToJSON UpdateDeploymentGroup where
= object
(catMaybes
[("serviceRoleArn" .=) <$> _udgServiceRoleARN,
+ ("ec2TagSet" .=) <$> _udgEc2TagSet,
("deploymentConfigName" .=) <$>
_udgDeploymentConfigName,
+ ("onPremisesTagSet" .=) <$> _udgOnPremisesTagSet,
("newDeploymentGroupName" .=) <$>
_udgNewDeploymentGroupName,
("ec2TagFilters" .=) <$> _udgEc2TagFilters,
+ ("blueGreenDeploymentConfiguration" .=) <$>
+ _udgBlueGreenDeploymentConfiguration,
+ ("loadBalancerInfo" .=) <$> _udgLoadBalancerInfo,
("onPremisesInstanceTagFilters" .=) <$>
_udgOnPremisesInstanceTagFilters,
("alarmConfiguration" .=) <$> _udgAlarmConfiguration,
("triggerConfigurations" .=) <$>
_udgTriggerConfigurations,
("autoScalingGroups" .=) <$> _udgAutoScalingGroups,
+ ("deploymentStyle" .=) <$> _udgDeploymentStyle,
("autoRollbackConfiguration" .=) <$>
_udgAutoRollbackConfiguration,
Just ("applicationName" .= _udgApplicationName),
@@ -215,15 +268,16 @@ instance ToPath UpdateDeploymentGroup where
instance ToQuery UpdateDeploymentGroup where
toQuery = const mempty
--- | Represents the output of an update deployment group operation.
+-- | Represents the output of an UpdateDeploymentGroup operation.
--
--
--
-- /See:/ 'updateDeploymentGroupResponse' smart constructor.
data UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse'
- { _udgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])
- , _udgrsResponseStatus :: !Int
- } deriving (Eq,Read,Show,Data,Typeable,Generic)
+ { _udgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])
+ , _udgrsResponseStatus :: !Int
+ } deriving (Eq, Read, Show, Data, Typeable, Generic)
+
-- | Creates a value of 'UpdateDeploymentGroupResponse' with the minimum fields required to make a request.
--
@@ -236,10 +290,9 @@ updateDeploymentGroupResponse
:: Int -- ^ 'udgrsResponseStatus'
-> UpdateDeploymentGroupResponse
updateDeploymentGroupResponse pResponseStatus_ =
- UpdateDeploymentGroupResponse'
- { _udgrsHooksNotCleanedUp = Nothing
- , _udgrsResponseStatus = pResponseStatus_
- }
+ UpdateDeploymentGroupResponse'
+ {_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]
@@ -249,4 +302,4 @@ udgrsHooksNotCleanedUp = lens _udgrsHooksNotCleanedUp (\ s a -> s{_udgrsHooksNot
udgrsResponseStatus :: Lens' UpdateDeploymentGroupResponse Int
udgrsResponseStatus = lens _udgrsResponseStatus (\ s a -> s{_udgrsResponseStatus = a});
-instance NFData UpdateDeploymentGroupResponse
+instance NFData UpdateDeploymentGroupResponse where
diff --git a/gen/Network/AWS/CodeDeploy/Waiters.hs b/gen/Network/AWS/CodeDeploy/Waiters.hs
index 54c2d79..21cb61f 100644
--- a/gen/Network/AWS/CodeDeploy/Waiters.hs
+++ b/gen/Network/AWS/CodeDeploy/Waiters.hs
@@ -7,40 +7,40 @@
-- |
-- Module : Network.AWS.CodeDeploy.Waiters
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Network.AWS.CodeDeploy.Waiters where
-import Network.AWS.CodeDeploy.GetDeployment
-import Network.AWS.CodeDeploy.Types
-import Network.AWS.Lens
-import Network.AWS.Prelude
-import Network.AWS.Waiter
+import Network.AWS.CodeDeploy.GetDeployment
+import Network.AWS.CodeDeploy.Types
+import Network.AWS.Lens
+import Network.AWS.Prelude
+import Network.AWS.Waiter
-- | Polls 'Network.AWS.CodeDeploy.GetDeployment' every 15 seconds until a successful state is reached. An error is returned after 120 failed checks.
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)]
- }
+ 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)
+ ]
+ }
+
diff --git a/test/Main.hs b/test/Main.hs
index 6c12334..33b0056 100644
--- a/test/Main.hs
+++ b/test/Main.hs
@@ -2,9 +2,9 @@
-- |
-- Module : Main
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
diff --git a/test/Test/AWS/Gen/CodeDeploy.hs b/test/Test/AWS/Gen/CodeDeploy.hs
index ff4434f..5d84633 100644
--- a/test/Test/AWS/Gen/CodeDeploy.hs
+++ b/test/Test/AWS/Gen/CodeDeploy.hs
@@ -5,20 +5,20 @@
-- |
-- Module : Test.AWS.Gen.CodeDeploy
--- Copyright : (c) 2013-2016 Brendan Hay
+-- Copyright : (c) 2013-2017 Brendan Hay
-- License : Mozilla Public License, v. 2.0.
--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>
+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com>
-- Stability : auto-generated
-- Portability : non-portable (GHC extensions)
--
module Test.AWS.Gen.CodeDeploy where
import Data.Proxy
+import Network.AWS.CodeDeploy
+import Test.AWS.CodeDeploy.Internal
import Test.AWS.Fixture
import Test.AWS.Prelude
import Test.Tasty
-import Network.AWS.CodeDeploy
-import Test.AWS.CodeDeploy.Internal
-- Auto-generated: the actual test selection needs to be manually placed into
-- the top-level so that real test data can be incrementally added.
@@ -73,6 +73,9 @@ import Test.AWS.CodeDeploy.Internal
-- , requestRegisterApplicationRevision $
-- registerApplicationRevision
--
+-- , requestContinueDeployment $
+-- continueDeployment
+--
-- , requestBatchGetApplications $
-- batchGetApplications
--
@@ -94,9 +97,15 @@ import Test.AWS.CodeDeploy.Internal
-- , requestStopDeployment $
-- stopDeployment
--
+-- , requestListGitHubAccountTokenNames $
+-- listGitHubAccountTokenNames
+--
-- , requestBatchGetDeploymentInstances $
-- batchGetDeploymentInstances
--
+-- , requestSkipWaitTimeForInstanceTermination $
+-- skipWaitTimeForInstanceTermination
+--
-- , requestGetApplication $
-- getApplication
--
@@ -181,6 +190,9 @@ import Test.AWS.CodeDeploy.Internal
-- , responseRegisterApplicationRevision $
-- registerApplicationRevisionResponse
--
+-- , responseContinueDeployment $
+-- continueDeploymentResponse
+--
-- , responseBatchGetApplications $
-- batchGetApplicationsResponse
--
@@ -202,9 +214,15 @@ import Test.AWS.CodeDeploy.Internal
-- , responseStopDeployment $
-- stopDeploymentResponse
--
+-- , responseListGitHubAccountTokenNames $
+-- listGitHubAccountTokenNamesResponse
+--
-- , responseBatchGetDeploymentInstances $
-- batchGetDeploymentInstancesResponse
--
+-- , responseSkipWaitTimeForInstanceTermination $
+-- skipWaitTimeForInstanceTerminationResponse
+--
-- , responseGetApplication $
-- getApplicationResponse
--
@@ -321,6 +339,11 @@ requestRegisterApplicationRevision = req
"RegisterApplicationRevision"
"fixture/RegisterApplicationRevision.yaml"
+requestContinueDeployment :: ContinueDeployment -> TestTree
+requestContinueDeployment = req
+ "ContinueDeployment"
+ "fixture/ContinueDeployment.yaml"
+
requestBatchGetApplications :: BatchGetApplications -> TestTree
requestBatchGetApplications = req
"BatchGetApplications"
@@ -356,11 +379,21 @@ requestStopDeployment = req
"StopDeployment"
"fixture/StopDeployment.yaml"
+requestListGitHubAccountTokenNames :: ListGitHubAccountTokenNames -> TestTree
+requestListGitHubAccountTokenNames = req
+ "ListGitHubAccountTokenNames"
+ "fixture/ListGitHubAccountTokenNames.yaml"
+
requestBatchGetDeploymentInstances :: BatchGetDeploymentInstances -> TestTree
requestBatchGetDeploymentInstances = req
"BatchGetDeploymentInstances"
"fixture/BatchGetDeploymentInstances.yaml"
+requestSkipWaitTimeForInstanceTermination :: SkipWaitTimeForInstanceTermination -> TestTree
+requestSkipWaitTimeForInstanceTermination = req
+ "SkipWaitTimeForInstanceTermination"
+ "fixture/SkipWaitTimeForInstanceTermination.yaml"
+
requestGetApplication :: GetApplication -> TestTree
requestGetApplication = req
"GetApplication"
@@ -528,6 +561,13 @@ responseRegisterApplicationRevision = res
codeDeploy
(Proxy :: Proxy RegisterApplicationRevision)
+responseContinueDeployment :: ContinueDeploymentResponse -> TestTree
+responseContinueDeployment = res
+ "ContinueDeploymentResponse"
+ "fixture/ContinueDeploymentResponse.proto"
+ codeDeploy
+ (Proxy :: Proxy ContinueDeployment)
+
responseBatchGetApplications :: BatchGetApplicationsResponse -> TestTree
responseBatchGetApplications = res
"BatchGetApplicationsResponse"
@@ -577,6 +617,13 @@ responseStopDeployment = res
codeDeploy
(Proxy :: Proxy StopDeployment)
+responseListGitHubAccountTokenNames :: ListGitHubAccountTokenNamesResponse -> TestTree
+responseListGitHubAccountTokenNames = res
+ "ListGitHubAccountTokenNamesResponse"
+ "fixture/ListGitHubAccountTokenNamesResponse.proto"
+ codeDeploy
+ (Proxy :: Proxy ListGitHubAccountTokenNames)
+
responseBatchGetDeploymentInstances :: BatchGetDeploymentInstancesResponse -> TestTree
responseBatchGetDeploymentInstances = res
"BatchGetDeploymentInstancesResponse"
@@ -584,6 +631,13 @@ responseBatchGetDeploymentInstances = res
codeDeploy
(Proxy :: Proxy BatchGetDeploymentInstances)
+responseSkipWaitTimeForInstanceTermination :: SkipWaitTimeForInstanceTerminationResponse -> TestTree
+responseSkipWaitTimeForInstanceTermination = res
+ "SkipWaitTimeForInstanceTerminationResponse"
+ "fixture/SkipWaitTimeForInstanceTerminationResponse.proto"
+ codeDeploy
+ (Proxy :: Proxy SkipWaitTimeForInstanceTermination)
+
responseGetApplication :: GetApplicationResponse -> TestTree
responseGetApplication = res
"GetApplicationResponse"