amazonka-codedeploy 1.4.4 → 1.4.5

raw patch · 42 files changed

+1207/−577 lines, 42 filesdep ~amazonka-codedeploydep ~amazonka-coredep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−36
• amazonka-codedeploy.cabal +10/−41
• gen/Network/AWS/CodeDeploy.hs +60/−14
• gen/Network/AWS/CodeDeploy/AddTagsToOnPremisesInstances.hs +7/−5
• gen/Network/AWS/CodeDeploy/BatchGetApplicationRevisions.hs +13/−7
• gen/Network/AWS/CodeDeploy/BatchGetApplications.hs +10/−4
• gen/Network/AWS/CodeDeploy/BatchGetDeploymentGroups.hs +13/−7
• gen/Network/AWS/CodeDeploy/BatchGetDeploymentInstances.hs +12/−6
• gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs +10/−4
• gen/Network/AWS/CodeDeploy/BatchGetOnPremisesInstances.hs +10/−4
• gen/Network/AWS/CodeDeploy/CreateApplication.hs +10/−4
• gen/Network/AWS/CodeDeploy/CreateDeployment.hs +39/−15
• gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs +12/−15
• gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs +41/−35
• gen/Network/AWS/CodeDeploy/DeleteApplication.hs +5/−1
• gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs +4/−2
• gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs +11/−5
• gen/Network/AWS/CodeDeploy/DeregisterOnPremisesInstance.hs +5/−1
• gen/Network/AWS/CodeDeploy/GetApplication.hs +10/−4
• gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs +13/−7
• gen/Network/AWS/CodeDeploy/GetDeployment.hs +10/−4
• gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs +10/−4
• gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs +11/−5
• gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs +11/−5
• gen/Network/AWS/CodeDeploy/GetOnPremisesInstance.hs +10/−4
• gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs +21/−34
• gen/Network/AWS/CodeDeploy/ListApplications.hs +11/−5
• gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs +11/−5
• gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs +13/−7
• gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs +14/−15
• gen/Network/AWS/CodeDeploy/ListDeployments.hs +16/−17
• gen/Network/AWS/CodeDeploy/ListOnPremisesInstances.hs +13/−12
• gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs +7/−3
• gen/Network/AWS/CodeDeploy/RegisterOnPremisesInstance.hs +6/−2
• gen/Network/AWS/CodeDeploy/RemoveTagsFromOnPremisesInstances.hs +6/−2
• gen/Network/AWS/CodeDeploy/StopDeployment.hs +27/−13
• gen/Network/AWS/CodeDeploy/Types.hs +194/−3
• gen/Network/AWS/CodeDeploy/Types/Product.hs +408/−199
• gen/Network/AWS/CodeDeploy/Types/Sum.hs +57/−4
• gen/Network/AWS/CodeDeploy/UpdateApplication.hs +6/−2
• gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs +40/−13
• gen/Network/AWS/CodeDeploy/Waiters.hs +1/−2

@@ -8,54 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -AWS CodeDeploy __Overview__--This reference guide provides descriptions of the AWS CodeDeploy APIs. For more information about AWS CodeDeploy, see the <docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.--__Using the APIs__--You can use the AWS CodeDeploy APIs to work with the following:---   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.--    You can use the AWS CodeDeploy APIs to create, delete, get, list, and update applications.---   Deployment configurations are sets of deployment rules and success and failure conditions used by AWS CodeDeploy during deployments.--    You can use the AWS CodeDeploy APIs to create, delete, get, and list deployment configurations.---   Deployment groups are groups of instances to which application revisions can be deployed.--    You can use the AWS CodeDeploy APIs to create, delete, get, list, and update deployment groups.---   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.--    You can use the AWS CodeDeploy APIs to create, get, list, and stop deployments.---   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.) Ffor 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.--    You can use the AWS CodeDeploy APIs to get, list, and register application revisions.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-codedeploy) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.CodeDeploy](http://hackage.haskell.org/package/amazonka-codedeploy/docs/Network-AWS-CodeDeploy.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-codedeploy-version:               1.4.4+version:               1.4.5 synopsis:              Amazon CodeDeploy SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,50 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS CodeDeploy __Overview__--    This reference guide provides descriptions of the AWS CodeDeploy APIs. For more information about AWS CodeDeploy, see the <docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.--    __Using the APIs__--    You can use the AWS CodeDeploy APIs to work with the following:--    -   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.--        You can use the AWS CodeDeploy APIs to create, delete, get, list, and update applications.--    -   Deployment configurations are sets of deployment rules and success and failure conditions used by AWS CodeDeploy during deployments.--        You can use the AWS CodeDeploy APIs to create, delete, get, and list deployment configurations.--    -   Deployment groups are groups of instances to which application revisions can be deployed.--        You can use the AWS CodeDeploy APIs to create, delete, get, list, and update deployment groups.--    -   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.--        You can use the AWS CodeDeploy APIs to create, get, list, and stop deployments.--    -   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.) Ffor 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.--        You can use the AWS CodeDeploy APIs to get, list, and register application revisions.-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.CodeDeploy" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.CodeDeploy" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -114,7 +83,7 @@         , Network.AWS.CodeDeploy.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-codedeploy-test@@ -134,9 +103,9 @@         , Test.AWS.CodeDeploy.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-codedeploy == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-codedeploy == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,38 +11,42 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS CodeDeploy __Overview__+-- __AWS CodeDeploy__ ----- This reference guide provides descriptions of the AWS CodeDeploy APIs. For more information about AWS CodeDeploy, see the <docs.aws.amazon.com/codedeploy/latest/userguide AWS CodeDeploy User Guide>.+-- __Overview__ --+-- 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> .+-- -- __Using the APIs__ -- -- You can use the AWS CodeDeploy APIs to work with the following: ----- -   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.+--     * 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. -----     You can use the AWS CodeDeploy APIs to create, delete, get, list, and update applications.+-- You can use the AWS CodeDeploy APIs to create, delete, get, list, and update applications. ----- -   Deployment configurations are sets of deployment rules and success and failure conditions used by AWS CodeDeploy during deployments.+--     * Deployment configurations are sets of deployment rules and success and failure conditions used by AWS CodeDeploy during deployments. -----     You can use the AWS CodeDeploy APIs to create, delete, get, and list deployment configurations.+-- You can use the AWS CodeDeploy APIs to create, delete, get, and list deployment configurations. ----- -   Deployment groups are groups of instances to which application revisions can be deployed.+--     * Deployment groups are groups of instances to which application revisions can be deployed. -----     You can use the AWS CodeDeploy APIs to create, delete, get, list, and update deployment groups.+-- You can use the AWS CodeDeploy APIs to create, delete, get, list, and update deployment groups. ----- -   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.+--     * 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.+-- You can use the AWS CodeDeploy APIs to get and list instance. ----- -   Deployments represent the process of deploying revisions to instances.+--     * Deployments represent the process of deploying revisions to instances. -----     You can use the AWS CodeDeploy APIs to create, get, list, and stop deployments.+-- You can use the AWS CodeDeploy APIs to create, get, list, and stop deployments. ----- -   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.) Ffor 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.+--     * 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. -----     You can use the AWS CodeDeploy APIs to get, list, and register application revisions.+-- You can use the AWS CodeDeploy APIs to get, list, and register application revisions. --+--+-- module Network.AWS.CodeDeploy     (     -- * Service Configuration@@ -60,6 +64,9 @@     -- ** InvalidTagException     , _InvalidTagException +    -- ** InvalidAlarmConfigException+    , _InvalidAlarmConfigException+     -- ** InstanceNameAlreadyRegisteredException     , _InstanceNameAlreadyRegisteredException @@ -114,6 +121,9 @@     -- ** InvalidMinimumHealthyHostValueException     , _InvalidMinimumHealthyHostValueException +    -- ** AlarmsLimitExceededException+    , _AlarmsLimitExceededException+     -- ** InvalidTagFilterException     , _InvalidTagFilterException @@ -171,6 +181,9 @@     -- ** InvalidSortOrderException     , _InvalidSortOrderException +    -- ** InvalidAutoRollbackConfigException+    , _InvalidAutoRollbackConfigException+     -- ** DeploymentAlreadyCompletedException     , _DeploymentAlreadyCompletedException @@ -353,6 +366,9 @@     -- ** ApplicationRevisionSortBy     , ApplicationRevisionSortBy (..) +    -- ** AutoRollbackEvent+    , AutoRollbackEvent (..)+     -- ** BundleType     , BundleType (..) @@ -401,6 +417,18 @@     -- ** TriggerEventType     , TriggerEventType (..) +    -- ** Alarm+    , Alarm+    , alarm+    , aName++    -- ** AlarmConfiguration+    , AlarmConfiguration+    , alarmConfiguration+    , acIgnorePollAlarmFailure+    , acEnabled+    , acAlarms+     -- ** ApplicationInfo     , ApplicationInfo     , applicationInfo@@ -409,6 +437,12 @@     , aiApplicationName     , aiCreateTime +    -- ** AutoRollbackConfiguration+    , AutoRollbackConfiguration+    , autoRollbackConfiguration+    , arcEnabled+    , arcEvents+     -- ** AutoScalingGroup     , AutoScalingGroup     , autoScalingGroup@@ -432,9 +466,11 @@     , dgiEc2TagFilters     , dgiOnPremisesInstanceTagFilters     , dgiApplicationName+    , dgiAlarmConfiguration     , dgiTriggerConfigurations     , dgiDeploymentGroupId     , dgiAutoScalingGroups+    , dgiAutoRollbackConfiguration     , dgiDeploymentGroupName      -- ** DeploymentInfo@@ -449,9 +485,12 @@     , diErrorInformation     , diDeploymentOverview     , diApplicationName+    , diRollbackInfo     , diRevision     , diDescription     , diCreateTime+    , diAutoRollbackConfiguration+    , diUpdateOutdatedInstancesOnly     , diDeploymentGroupName     , diIgnoreApplicationStopFailures @@ -546,6 +585,13 @@     , rlRevisionType     , rlS3Location     , rlGitHubLocation++    -- ** RollbackInfo+    , RollbackInfo+    , rollbackInfo+    , riRollbackTriggeringDeploymentId+    , riRollbackMessage+    , riRollbackDeploymentId      -- ** S3Location     , S3Location

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Adds tags to on-premises instances.+--+-- module Network.AWS.CodeDeploy.AddTagsToOnPremisesInstances     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the input of, and adds tags to, an on-premises instance operation. --+--+-- -- /See:/ 'addTagsToOnPremisesInstances' smart constructor. data AddTagsToOnPremisesInstances = AddTagsToOnPremisesInstances'     { _attopiTags          :: ![Tag]@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'attopiTags'+-- * 'attopiTags' - 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. ----- * 'attopiInstanceNames'+-- * 'attopiInstanceNames' - The names of the on-premises instances to which to add tags. addTagsToOnPremisesInstances     :: AddTagsToOnPremisesInstances addTagsToOnPremisesInstances =@@ -63,9 +67,7 @@     , _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.+-- | The tag key-value pairs to add to the on-premises instances. Keys and values are both required. Keys cannot be null or empty strings. Value-only tags are not allowed. attopiTags :: Lens' AddTagsToOnPremisesInstances [Tag] attopiTags = lens _attopiTags (\ s a -> s{_attopiTags = a}) . _Coerce; 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about one or more application revisions.+--+-- module Network.AWS.CodeDeploy.BatchGetApplicationRevisions     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the input of a batch get application revisions operation. --+--+-- -- /See:/ 'batchGetApplicationRevisions' smart constructor. data BatchGetApplicationRevisions = BatchGetApplicationRevisions'     { _bgarApplicationName :: !Text@@ -57,9 +61,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgarApplicationName'+-- * 'bgarApplicationName' - The name of an AWS CodeDeploy application about which to get revision information. ----- * 'bgarRevisions'+-- * 'bgarRevisions' - Information to get about the application revisions, including type and location. batchGetApplicationRevisions     :: Text -- ^ 'bgarApplicationName'     -> BatchGetApplicationRevisions@@ -120,6 +124,8 @@  -- | Represents the output of a batch get application revisions operation. --+--+-- -- /See:/ 'batchGetApplicationRevisionsResponse' smart constructor. data BatchGetApplicationRevisionsResponse = BatchGetApplicationRevisionsResponse'     { _bgarrsApplicationName :: !(Maybe Text)@@ -132,13 +138,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgarrsApplicationName'+-- * 'bgarrsApplicationName' - The name of the application that corresponds to the revisions. ----- * 'bgarrsRevisions'+-- * 'bgarrsRevisions' - Additional information about the revisions, including the type and location. ----- * 'bgarrsErrorMessage'+-- * 'bgarrsErrorMessage' - Information about errors that may have occurred during the API call. ----- * 'bgarrsResponseStatus'+-- * 'bgarrsResponseStatus' - -- | The response status code. batchGetApplicationRevisionsResponse     :: Int -- ^ 'bgarrsResponseStatus'     -> BatchGetApplicationRevisionsResponse@@ -162,7 +168,7 @@ bgarrsErrorMessage :: Lens' BatchGetApplicationRevisionsResponse (Maybe Text) bgarrsErrorMessage = lens _bgarrsErrorMessage (\ s a -> s{_bgarrsErrorMessage = a}); --- | The response status code.+-- | -- | The response status code. bgarrsResponseStatus :: Lens' BatchGetApplicationRevisionsResponse Int bgarrsResponseStatus = lens _bgarrsResponseStatus (\ s a -> s{_bgarrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about one or more applications.+--+-- module Network.AWS.CodeDeploy.BatchGetApplications     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a batch get applications operation. --+--+-- -- /See:/ 'batchGetApplications' smart constructor. newtype BatchGetApplications = BatchGetApplications'     { _bgaApplicationNames :: Maybe [Text]@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgaApplicationNames'+-- * 'bgaApplicationNames' - A list of application names separated by spaces. batchGetApplications     :: BatchGetApplications batchGetApplications =@@ -104,6 +108,8 @@  -- | Represents the output of a batch get applications operation. --+--+-- -- /See:/ 'batchGetApplicationsResponse' smart constructor. data BatchGetApplicationsResponse = BatchGetApplicationsResponse'     { _bgarsApplicationsInfo :: !(Maybe [ApplicationInfo])@@ -114,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgarsApplicationsInfo'+-- * 'bgarsApplicationsInfo' - Information about the applications. ----- * 'bgarsResponseStatus'+-- * 'bgarsResponseStatus' - -- | The response status code. batchGetApplicationsResponse     :: Int -- ^ 'bgarsResponseStatus'     -> BatchGetApplicationsResponse@@ -130,7 +136,7 @@ bgarsApplicationsInfo :: Lens' BatchGetApplicationsResponse [ApplicationInfo] bgarsApplicationsInfo = lens _bgarsApplicationsInfo (\ s a -> s{_bgarsApplicationsInfo = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bgarsResponseStatus :: Lens' BatchGetApplicationsResponse Int bgarsResponseStatus = lens _bgarsResponseStatus (\ s a -> s{_bgarsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Get information about one or more deployment groups.+--+-- module Network.AWS.CodeDeploy.BatchGetDeploymentGroups     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the input of a batch get deployment groups operation. --+--+-- -- /See:/ 'batchGetDeploymentGroups' smart constructor. data BatchGetDeploymentGroups = BatchGetDeploymentGroups'     { _bgdgApplicationName      :: !Text@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdgApplicationName'+-- * 'bgdgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. ----- * 'bgdgDeploymentGroupNames'+-- * 'bgdgDeploymentGroupNames' - The deployment groups' names. batchGetDeploymentGroups     :: Text -- ^ 'bgdgApplicationName'     -> BatchGetDeploymentGroups@@ -72,7 +76,7 @@ bgdgApplicationName :: Lens' BatchGetDeploymentGroups Text bgdgApplicationName = lens _bgdgApplicationName (\ s a -> s{_bgdgApplicationName = a}); --- | The deployment groups\' names.+-- | The deployment groups' names. bgdgDeploymentGroupNames :: Lens' BatchGetDeploymentGroups [Text] bgdgDeploymentGroupNames = lens _bgdgDeploymentGroupNames (\ s a -> s{_bgdgDeploymentGroupNames = a}) . _Coerce; @@ -119,6 +123,8 @@  -- | Represents the output of a batch get deployment groups operation. --+--+-- -- /See:/ 'batchGetDeploymentGroupsResponse' smart constructor. data BatchGetDeploymentGroupsResponse = BatchGetDeploymentGroupsResponse'     { _bgdgrsDeploymentGroupsInfo :: !(Maybe [DeploymentGroupInfo])@@ -130,11 +136,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdgrsDeploymentGroupsInfo'+-- * 'bgdgrsDeploymentGroupsInfo' - Information about the deployment groups. ----- * 'bgdgrsErrorMessage'+-- * 'bgdgrsErrorMessage' - Information about errors that may have occurred during the API call. ----- * 'bgdgrsResponseStatus'+-- * 'bgdgrsResponseStatus' - -- | The response status code. batchGetDeploymentGroupsResponse     :: Int -- ^ 'bgdgrsResponseStatus'     -> BatchGetDeploymentGroupsResponse@@ -153,7 +159,7 @@ bgdgrsErrorMessage :: Lens' BatchGetDeploymentGroupsResponse (Maybe Text) bgdgrsErrorMessage = lens _bgdgrsErrorMessage (\ s a -> s{_bgdgrsErrorMessage = a}); --- | The response status code.+-- | -- | The response status code. bgdgrsResponseStatus :: Lens' BatchGetDeploymentGroupsResponse Int bgdgrsResponseStatus = lens _bgdgrsResponseStatus (\ s a -> s{_bgdgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about one or more instance that are part of a deployment group.+--+-- module Network.AWS.CodeDeploy.BatchGetDeploymentInstances     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Represents the input of a batch get deployment instances operation. --+--+-- -- /See:/ 'batchGetDeploymentInstances' smart constructor. data BatchGetDeploymentInstances = BatchGetDeploymentInstances'     { _bgdiDeploymentId :: !Text@@ -56,9 +60,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdiDeploymentId'+-- * 'bgdiDeploymentId' - The unique ID of a deployment. ----- * 'bgdiInstanceIds'+-- * 'bgdiInstanceIds' - The unique IDs of instances in the deployment group. batchGetDeploymentInstances     :: Text -- ^ 'bgdiDeploymentId'     -> BatchGetDeploymentInstances@@ -117,6 +121,8 @@  -- | Represents the output of a batch get deployment instance operation. --+--+-- -- /See:/ 'batchGetDeploymentInstancesResponse' smart constructor. data BatchGetDeploymentInstancesResponse = BatchGetDeploymentInstancesResponse'     { _bgdirsInstancesSummary :: !(Maybe [InstanceSummary])@@ -128,11 +134,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdirsInstancesSummary'+-- * 'bgdirsInstancesSummary' - Information about the instance. ----- * 'bgdirsErrorMessage'+-- * 'bgdirsErrorMessage' - Information about errors that may have occurred during the API call. ----- * 'bgdirsResponseStatus'+-- * 'bgdirsResponseStatus' - -- | The response status code. batchGetDeploymentInstancesResponse     :: Int -- ^ 'bgdirsResponseStatus'     -> BatchGetDeploymentInstancesResponse@@ -151,7 +157,7 @@ bgdirsErrorMessage :: Lens' BatchGetDeploymentInstancesResponse (Maybe Text) bgdirsErrorMessage = lens _bgdirsErrorMessage (\ s a -> s{_bgdirsErrorMessage = a}); --- | The response status code.+-- | -- | The response status code. bgdirsResponseStatus :: Lens' BatchGetDeploymentInstancesResponse Int bgdirsResponseStatus = lens _bgdirsResponseStatus (\ s a -> s{_bgdirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about one or more deployments.+--+-- module Network.AWS.CodeDeploy.BatchGetDeployments     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a batch get deployments operation. --+--+-- -- /See:/ 'batchGetDeployments' smart constructor. newtype BatchGetDeployments = BatchGetDeployments'     { _bgdDeploymentIds :: Maybe [Text]@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdDeploymentIds'+-- * 'bgdDeploymentIds' - A list of deployment IDs, separated by spaces. batchGetDeployments     :: BatchGetDeployments batchGetDeployments =@@ -104,6 +108,8 @@  -- | Represents the output of a batch get deployments operation. --+--+-- -- /See:/ 'batchGetDeploymentsResponse' smart constructor. data BatchGetDeploymentsResponse = BatchGetDeploymentsResponse'     { _bgdrsDeploymentsInfo :: !(Maybe [DeploymentInfo])@@ -114,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgdrsDeploymentsInfo'+-- * 'bgdrsDeploymentsInfo' - Information about the deployments. ----- * 'bgdrsResponseStatus'+-- * 'bgdrsResponseStatus' - -- | The response status code. batchGetDeploymentsResponse     :: Int -- ^ 'bgdrsResponseStatus'     -> BatchGetDeploymentsResponse@@ -130,7 +136,7 @@ bgdrsDeploymentsInfo :: Lens' BatchGetDeploymentsResponse [DeploymentInfo] bgdrsDeploymentsInfo = lens _bgdrsDeploymentsInfo (\ s a -> s{_bgdrsDeploymentsInfo = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bgdrsResponseStatus :: Lens' BatchGetDeploymentsResponse Int bgdrsResponseStatus = lens _bgdrsResponseStatus (\ s a -> s{_bgdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about one or more on-premises instances.+--+-- module Network.AWS.CodeDeploy.BatchGetOnPremisesInstances     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a batch get on-premises instances operation. --+--+-- -- /See:/ 'batchGetOnPremisesInstances' smart constructor. newtype BatchGetOnPremisesInstances = BatchGetOnPremisesInstances'     { _bgopiInstanceNames :: Maybe [Text]@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgopiInstanceNames'+-- * 'bgopiInstanceNames' - The names of the on-premises instances about which to get information. batchGetOnPremisesInstances     :: BatchGetOnPremisesInstances batchGetOnPremisesInstances =@@ -104,6 +108,8 @@  -- | Represents the output of a batch get on-premises instances operation. --+--+-- -- /See:/ 'batchGetOnPremisesInstancesResponse' smart constructor. data BatchGetOnPremisesInstancesResponse = BatchGetOnPremisesInstancesResponse'     { _bgopirsInstanceInfos  :: !(Maybe [InstanceInfo])@@ -114,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'bgopirsInstanceInfos'+-- * 'bgopirsInstanceInfos' - Information about the on-premises instances. ----- * 'bgopirsResponseStatus'+-- * 'bgopirsResponseStatus' - -- | The response status code. batchGetOnPremisesInstancesResponse     :: Int -- ^ 'bgopirsResponseStatus'     -> BatchGetOnPremisesInstancesResponse@@ -130,7 +136,7 @@ bgopirsInstanceInfos :: Lens' BatchGetOnPremisesInstancesResponse [InstanceInfo] bgopirsInstanceInfos = lens _bgopirsInstanceInfos (\ s a -> s{_bgopirsInstanceInfos = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. bgopirsResponseStatus :: Lens' BatchGetOnPremisesInstancesResponse Int bgopirsResponseStatus = lens _bgopirsResponseStatus (\ s a -> s{_bgopirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates an application.+--+-- module Network.AWS.CodeDeploy.CreateApplication     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a create application operation. --+--+-- -- /See:/ 'createApplication' smart constructor. newtype CreateApplication = CreateApplication'     { _caApplicationName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'caApplicationName'+-- * 'caApplicationName' - The name of the application. This name must be unique with the applicable IAM user or AWS account. createApplication     :: Text -- ^ 'caApplicationName'     -> CreateApplication@@ -103,6 +107,8 @@  -- | Represents the output of a create application operation. --+--+-- -- /See:/ 'createApplicationResponse' smart constructor. data CreateApplicationResponse = CreateApplicationResponse'     { _carsApplicationId  :: !(Maybe Text)@@ -113,9 +119,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'carsApplicationId'+-- * 'carsApplicationId' - A unique application ID. ----- * 'carsResponseStatus'+-- * 'carsResponseStatus' - -- | The response status code. createApplicationResponse     :: Int -- ^ 'carsResponseStatus'     -> CreateApplicationResponse@@ -129,7 +135,7 @@ carsApplicationId :: Lens' CreateApplicationResponse (Maybe Text) carsApplicationId = lens _carsApplicationId (\ s a -> s{_carsApplicationId = a}); --- | The response status code.+-- | -- | The response status code. carsResponseStatus :: Lens' CreateApplicationResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deploys an application revision through the specified deployment group.+--+-- module Network.AWS.CodeDeploy.CreateDeployment     (     -- * Creating a Request@@ -28,6 +30,8 @@     , cdDeploymentConfigName     , cdRevision     , cdDescription+    , cdAutoRollbackConfiguration+    , cdUpdateOutdatedInstancesOnly     , cdDeploymentGroupName     , cdIgnoreApplicationStopFailures     , cdApplicationName@@ -49,11 +53,15 @@  -- | Represents the input of a create deployment 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@@ -63,17 +71,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdDeploymentConfigName'+-- * '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. ----- * 'cdRevision'+-- * 'cdRevision' - The type and location of the revision to deploy. ----- * 'cdDescription'+-- * 'cdDescription' - A comment about the deployment. ----- * 'cdDeploymentGroupName'+-- * 'cdAutoRollbackConfiguration' - Configuration information for an automatic rollback that is added when a deployment is created. ----- * 'cdIgnoreApplicationStopFailures'+-- * 'cdUpdateOutdatedInstancesOnly' - Indicates whether to deploy to all instances or only to instances that are not running the latest application revision. ----- * 'cdApplicationName'+-- * 'cdDeploymentGroupName' - The name of the deployment group.+--+-- * 'cdIgnoreApplicationStopFailures' - If set to true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If set to false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to fail to an instance, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed.+--+-- * 'cdApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. createDeployment     :: Text -- ^ 'cdApplicationName'     -> CreateDeployment@@ -82,14 +94,14 @@     { _cdDeploymentConfigName = 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.+-- | 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}); @@ -101,13 +113,19 @@ cdDescription :: Lens' CreateDeployment (Maybe Text) cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a}); +-- | Configuration information for an automatic rollback that is added when a deployment is created.+cdAutoRollbackConfiguration :: Lens' CreateDeployment (Maybe AutoRollbackConfiguration)+cdAutoRollbackConfiguration = lens _cdAutoRollbackConfiguration (\ s a -> s{_cdAutoRollbackConfiguration = a});++-- | Indicates whether to deploy to all instances or only to instances that are not running the latest application revision.+cdUpdateOutdatedInstancesOnly :: Lens' CreateDeployment (Maybe Bool)+cdUpdateOutdatedInstancesOnly = lens _cdUpdateOutdatedInstancesOnly (\ s a -> s{_cdUpdateOutdatedInstancesOnly = a});+ -- | The name of the deployment group. cdDeploymentGroupName :: Lens' CreateDeployment (Maybe Text) cdDeploymentGroupName = lens _cdDeploymentGroupName (\ s a -> s{_cdDeploymentGroupName = a}); --- | If set to true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event.------ If set to false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to fail to an instance, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed.+-- | If set to true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If set to false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to fail to an instance, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed. cdIgnoreApplicationStopFailures :: Lens' CreateDeployment (Maybe Bool) cdIgnoreApplicationStopFailures = lens _cdIgnoreApplicationStopFailures (\ s a -> s{_cdIgnoreApplicationStopFailures = a}); @@ -146,6 +164,10 @@                     _cdDeploymentConfigName,                   ("revision" .=) <$> _cdRevision,                   ("description" .=) <$> _cdDescription,+                  ("autoRollbackConfiguration" .=) <$>+                    _cdAutoRollbackConfiguration,+                  ("updateOutdatedInstancesOnly" .=) <$>+                    _cdUpdateOutdatedInstancesOnly,                   ("deploymentGroupName" .=) <$>                     _cdDeploymentGroupName,                   ("ignoreApplicationStopFailures" .=) <$>@@ -160,6 +182,8 @@  -- | Represents the output of a create deployment operation. --+--+-- -- /See:/ 'createDeploymentResponse' smart constructor. data CreateDeploymentResponse = CreateDeploymentResponse'     { _cdrsDeploymentId   :: !(Maybe Text)@@ -170,9 +194,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdrsDeploymentId'+-- * 'cdrsDeploymentId' - A unique deployment ID. ----- * 'cdrsResponseStatus'+-- * 'cdrsResponseStatus' - -- | The response status code. createDeploymentResponse     :: Int -- ^ 'cdrsResponseStatus'     -> CreateDeploymentResponse@@ -186,7 +210,7 @@ cdrsDeploymentId :: Lens' CreateDeploymentResponse (Maybe Text) cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a}); --- | The response status code.+-- | -- | The response status code. cdrsResponseStatus :: Lens' CreateDeploymentResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a deployment configuration.+--+-- module Network.AWS.CodeDeploy.CreateDeploymentConfig     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a create deployment configuration operation. --+--+-- -- /See:/ 'createDeploymentConfig' smart constructor. data CreateDeploymentConfig = CreateDeploymentConfig'     { _cdcMinimumHealthyHosts  :: !(Maybe MinimumHealthyHosts)@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdcMinimumHealthyHosts'+-- * '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'+-- * 'cdcDeploymentConfigName' - The name of the deployment configuration to create. createDeploymentConfig     :: Text -- ^ 'cdcDeploymentConfigName'     -> CreateDeploymentConfig@@ -67,16 +71,7 @@     , _cdcDeploymentConfigName = pDeploymentConfigName_     } --- | 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.+-- | 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}); @@ -126,6 +121,8 @@  -- | Represents the output of a create deployment configuration operation. --+--+-- -- /See:/ 'createDeploymentConfigResponse' smart constructor. data CreateDeploymentConfigResponse = CreateDeploymentConfigResponse'     { _cdcrsDeploymentConfigId :: !(Maybe Text)@@ -136,9 +133,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdcrsDeploymentConfigId'+-- * 'cdcrsDeploymentConfigId' - A unique deployment configuration ID. ----- * 'cdcrsResponseStatus'+-- * 'cdcrsResponseStatus' - -- | The response status code. createDeploymentConfigResponse     :: Int -- ^ 'cdcrsResponseStatus'     -> CreateDeploymentConfigResponse@@ -152,7 +149,7 @@ cdcrsDeploymentConfigId :: Lens' CreateDeploymentConfigResponse (Maybe Text) cdcrsDeploymentConfigId = lens _cdcrsDeploymentConfigId (\ s a -> s{_cdcrsDeploymentConfigId = a}); --- | The response status code.+-- | -- | The response status code. cdcrsResponseStatus :: Lens' CreateDeploymentConfigResponse Int cdcrsResponseStatus = lens _cdcrsResponseStatus (\ s a -> s{_cdcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a deployment group to which application revisions will be deployed.+--+-- module Network.AWS.CodeDeploy.CreateDeploymentGroup     (     -- * Creating a Request@@ -28,8 +30,10 @@     , cdgDeploymentConfigName     , cdgEc2TagFilters     , cdgOnPremisesInstanceTagFilters+    , cdgAlarmConfiguration     , cdgTriggerConfigurations     , cdgAutoScalingGroups+    , cdgAutoRollbackConfiguration     , cdgApplicationName     , cdgDeploymentGroupName     , cdgServiceRoleARN@@ -51,13 +55,17 @@  -- | Represents the input of a create deployment group 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@@ -67,21 +75,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdgDeploymentConfigName'+-- * '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 ----- * 'cdgEc2TagFilters'+-- * 'cdgEc2TagFilters' - The Amazon EC2 tags on which to filter. ----- * 'cdgOnPremisesInstanceTagFilters'+-- * 'cdgOnPremisesInstanceTagFilters' - The on-premises instance tags on which to filter. ----- * 'cdgTriggerConfigurations'+-- * 'cdgAlarmConfiguration' - Information to add about Amazon CloudWatch alarms when the deployment group is created. ----- * 'cdgAutoScalingGroups'+-- * 'cdgTriggerConfigurations' - Information about triggers to create when the deployment group is created. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-sns.html Create a Trigger for an AWS CodeDeploy Event> in the AWS CodeDeploy User Guide. ----- * 'cdgApplicationName'+-- * 'cdgAutoScalingGroups' - A list of associated Auto Scaling groups. ----- * 'cdgDeploymentGroupName'+-- * 'cdgAutoRollbackConfiguration' - Configuration information for an automatic rollback that is added when a deployment group is created. ----- * 'cdgServiceRoleARN'+-- * 'cdgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account.+--+-- * 'cdgDeploymentGroupName' - The name of a new deployment group for the specified application.+--+-- * 'cdgServiceRoleARN' - A service role ARN that allows AWS CodeDeploy to act on the user's behalf when interacting with AWS services. createDeploymentGroup     :: Text -- ^ 'cdgApplicationName'     -> Text -- ^ 'cdgDeploymentGroupName'@@ -92,35 +104,16 @@     { _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.------ CodeDeployDefault.OneAtATime is the default deployment configuration. It is used if a configuration isn\'t specified for the deployment or the deployment group.------ The predefined deployment configurations include the following:------ -   __CodeDeployDefault.AllAtOnce__ attempts to deploy an application revision to as many instance 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 instance, CodeDeployDefault.AllAtOnce will attempt to deploy to all nine instance 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 instance 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 instance 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 instance, it will deploy to one instance at a time. The overall deployment succeeds if deployment to the first eight instance is successful; the overall deployment fails if deployment to any of the first eight instance fails.------     For deployment groups that contain only one instance, the overall deployment is successful only if deployment to the single instance is successful---+-- | 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 cdgDeploymentConfigName :: Lens' CreateDeploymentGroup (Maybe Text) cdgDeploymentConfigName = lens _cdgDeploymentConfigName (\ s a -> s{_cdgDeploymentConfigName = a}); @@ -132,7 +125,11 @@ cdgOnPremisesInstanceTagFilters :: Lens' CreateDeploymentGroup [TagFilter] cdgOnPremisesInstanceTagFilters = lens _cdgOnPremisesInstanceTagFilters (\ s a -> s{_cdgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce; --- | Information about triggers to create when the deployment group is created.+-- | Information to add about Amazon CloudWatch alarms when the deployment group is created.+cdgAlarmConfiguration :: Lens' CreateDeploymentGroup (Maybe AlarmConfiguration)+cdgAlarmConfiguration = lens _cdgAlarmConfiguration (\ s a -> s{_cdgAlarmConfiguration = a});++-- | Information about triggers to create when the deployment group is created. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-sns.html Create a Trigger for an AWS CodeDeploy Event> in the AWS CodeDeploy User Guide. cdgTriggerConfigurations :: Lens' CreateDeploymentGroup [TriggerConfig] cdgTriggerConfigurations = lens _cdgTriggerConfigurations (\ s a -> s{_cdgTriggerConfigurations = a}) . _Default . _Coerce; @@ -140,6 +137,10 @@ cdgAutoScalingGroups :: Lens' CreateDeploymentGroup [Text] cdgAutoScalingGroups = lens _cdgAutoScalingGroups (\ s a -> s{_cdgAutoScalingGroups = a}) . _Default . _Coerce; +-- | 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});+ -- | The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. cdgApplicationName :: Lens' CreateDeploymentGroup Text cdgApplicationName = lens _cdgApplicationName (\ s a -> s{_cdgApplicationName = a});@@ -148,7 +149,7 @@ cdgDeploymentGroupName :: Lens' CreateDeploymentGroup Text cdgDeploymentGroupName = lens _cdgDeploymentGroupName (\ s a -> s{_cdgDeploymentGroupName = a}); --- | A service role ARN that allows AWS CodeDeploy to act on the user\'s behalf when interacting with AWS services.+-- | A service role ARN that allows AWS CodeDeploy to act on the user's behalf when interacting with AWS services. cdgServiceRoleARN :: Lens' CreateDeploymentGroup Text cdgServiceRoleARN = lens _cdgServiceRoleARN (\ s a -> s{_cdgServiceRoleARN = a}); @@ -185,9 +186,12 @@                   ("ec2TagFilters" .=) <$> _cdgEc2TagFilters,                   ("onPremisesInstanceTagFilters" .=) <$>                     _cdgOnPremisesInstanceTagFilters,+                  ("alarmConfiguration" .=) <$> _cdgAlarmConfiguration,                   ("triggerConfigurations" .=) <$>                     _cdgTriggerConfigurations,                   ("autoScalingGroups" .=) <$> _cdgAutoScalingGroups,+                  ("autoRollbackConfiguration" .=) <$>+                    _cdgAutoRollbackConfiguration,                   Just ("applicationName" .= _cdgApplicationName),                   Just                     ("deploymentGroupName" .= _cdgDeploymentGroupName),@@ -201,6 +205,8 @@  -- | Represents the output of a create deployment group operation. --+--+-- -- /See:/ 'createDeploymentGroupResponse' smart constructor. data CreateDeploymentGroupResponse = CreateDeploymentGroupResponse'     { _cdgrsDeploymentGroupId :: !(Maybe Text)@@ -211,9 +217,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cdgrsDeploymentGroupId'+-- * 'cdgrsDeploymentGroupId' - A unique deployment group ID. ----- * 'cdgrsResponseStatus'+-- * 'cdgrsResponseStatus' - -- | The response status code. createDeploymentGroupResponse     :: Int -- ^ 'cdgrsResponseStatus'     -> CreateDeploymentGroupResponse@@ -227,7 +233,7 @@ cdgrsDeploymentGroupId :: Lens' CreateDeploymentGroupResponse (Maybe Text) cdgrsDeploymentGroupId = lens _cdgrsDeploymentGroupId (\ s a -> s{_cdgrsDeploymentGroupId = a}); --- | The response status code.+-- | -- | The response status code. cdgrsResponseStatus :: Lens' CreateDeploymentGroupResponse Int cdgrsResponseStatus = lens _cdgrsResponseStatus (\ s a -> s{_cdgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes an application.+--+-- module Network.AWS.CodeDeploy.DeleteApplication     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | Represents the input of a delete application operation. --+--+-- -- /See:/ 'deleteApplication' smart constructor. newtype DeleteApplication = DeleteApplication'     { _daApplicationName :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'daApplicationName'+-- * 'daApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. deleteApplication     :: Text -- ^ 'daApplicationName'     -> DeleteApplication

@@ -20,7 +20,7 @@ -- -- Deletes a deployment configuration. ----- A deployment configuration cannot be deleted if it is currently in use. Predefined configurations cannot be deleted.+-- module Network.AWS.CodeDeploy.DeleteDeploymentConfig     (     -- * Creating a Request@@ -43,6 +43,8 @@  -- | Represents the input of a delete deployment configuration operation. --+--+-- -- /See:/ 'deleteDeploymentConfig' smart constructor. newtype DeleteDeploymentConfig = DeleteDeploymentConfig'     { _ddcDeploymentConfigName :: Text@@ -52,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddcDeploymentConfigName'+-- * 'ddcDeploymentConfigName' - The name of a deployment configuration associated with the applicable IAM user or AWS account. deleteDeploymentConfig     :: Text -- ^ 'ddcDeploymentConfigName'     -> DeleteDeploymentConfig

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a deployment group.+--+-- module Network.AWS.CodeDeploy.DeleteDeploymentGroup     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a delete deployment group operation. --+--+-- -- /See:/ 'deleteDeploymentGroup' smart constructor. data DeleteDeploymentGroup = DeleteDeploymentGroup'     { _ddgApplicationName     :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddgApplicationName'+-- * 'ddgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. ----- * 'ddgDeploymentGroupName'+-- * 'ddgDeploymentGroupName' - The name of an existing deployment group for the specified application. deleteDeploymentGroup     :: Text -- ^ 'ddgApplicationName'     -> Text -- ^ 'ddgDeploymentGroupName'@@ -117,6 +121,8 @@  -- | Represents the output of a delete deployment group operation. --+--+-- -- /See:/ 'deleteDeploymentGroupResponse' smart constructor. data DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse'     { _ddgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])@@ -127,9 +133,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ddgrsHooksNotCleanedUp'+-- * 'ddgrsHooksNotCleanedUp' - 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. ----- * 'ddgrsResponseStatus'+-- * 'ddgrsResponseStatus' - -- | The response status code. deleteDeploymentGroupResponse     :: Int -- ^ 'ddgrsResponseStatus'     -> DeleteDeploymentGroupResponse@@ -143,7 +149,7 @@ ddgrsHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup] ddgrsHooksNotCleanedUp = lens _ddgrsHooksNotCleanedUp (\ s a -> s{_ddgrsHooksNotCleanedUp = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ddgrsResponseStatus :: Lens' DeleteDeploymentGroupResponse Int ddgrsResponseStatus = lens _ddgrsResponseStatus (\ s a -> s{_ddgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deregisters an on-premises instance.+--+-- module Network.AWS.CodeDeploy.DeregisterOnPremisesInstance     (     -- * Creating a Request@@ -41,6 +43,8 @@  -- | Represents the input of a deregister on-premises instance operation. --+--+-- -- /See:/ 'deregisterOnPremisesInstance' smart constructor. newtype DeregisterOnPremisesInstance = DeregisterOnPremisesInstance'     { _dopiInstanceName :: Text@@ -50,7 +54,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dopiInstanceName'+-- * 'dopiInstanceName' - The name of the on-premises instance to deregister. deregisterOnPremisesInstance     :: Text -- ^ 'dopiInstanceName'     -> DeregisterOnPremisesInstance

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about an application.+--+-- module Network.AWS.CodeDeploy.GetApplication     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a get application operation. --+--+-- -- /See:/ 'getApplication' smart constructor. newtype GetApplication = GetApplication'     { _gaApplicationName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gaApplicationName'+-- * 'gaApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. getApplication     :: Text -- ^ 'gaApplicationName'     -> GetApplication@@ -102,6 +106,8 @@  -- | Represents the output of a get application operation. --+--+-- -- /See:/ 'getApplicationResponse' smart constructor. data GetApplicationResponse = GetApplicationResponse'     { _garsApplication    :: !(Maybe ApplicationInfo)@@ -112,9 +118,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garsApplication'+-- * 'garsApplication' - Information about the application. ----- * 'garsResponseStatus'+-- * 'garsResponseStatus' - -- | The response status code. getApplicationResponse     :: Int -- ^ 'garsResponseStatus'     -> GetApplicationResponse@@ -128,7 +134,7 @@ garsApplication :: Lens' GetApplicationResponse (Maybe ApplicationInfo) garsApplication = lens _garsApplication (\ s a -> s{_garsApplication = a}); --- | The response status code.+-- | -- | The response status code. garsResponseStatus :: Lens' GetApplicationResponse Int garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about an application revision.+--+-- module Network.AWS.CodeDeploy.GetApplicationRevision     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the input of a get application revision operation. --+--+-- -- /See:/ 'getApplicationRevision' smart constructor. data GetApplicationRevision = GetApplicationRevision'     { _garApplicationName :: !Text@@ -57,9 +61,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garApplicationName'+-- * 'garApplicationName' - The name of the application that corresponds to the revision. ----- * 'garRevision'+-- * 'garRevision' - Information about the application revision to get, including type and location. getApplicationRevision     :: Text -- ^ 'garApplicationName'     -> RevisionLocation -- ^ 'garRevision'@@ -119,6 +123,8 @@  -- | Represents the output of a get application revision operation. --+--+-- -- /See:/ 'getApplicationRevisionResponse' smart constructor. data GetApplicationRevisionResponse = GetApplicationRevisionResponse'     { _garrsApplicationName :: !(Maybe Text)@@ -131,13 +137,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'garrsApplicationName'+-- * 'garrsApplicationName' - The name of the application that corresponds to the revision. ----- * 'garrsRevisionInfo'+-- * 'garrsRevisionInfo' - General information about the revision. ----- * 'garrsRevision'+-- * 'garrsRevision' - Additional information about the revision, including type and location. ----- * 'garrsResponseStatus'+-- * 'garrsResponseStatus' - -- | The response status code. getApplicationRevisionResponse     :: Int -- ^ 'garrsResponseStatus'     -> GetApplicationRevisionResponse@@ -161,7 +167,7 @@ garrsRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation) garrsRevision = lens _garrsRevision (\ s a -> s{_garrsRevision = a}); --- | The response status code.+-- | -- | The response status code. garrsResponseStatus :: Lens' GetApplicationRevisionResponse Int garrsResponseStatus = lens _garrsResponseStatus (\ s a -> s{_garrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about a deployment.+--+-- module Network.AWS.CodeDeploy.GetDeployment     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a get deployment operation. --+--+-- -- /See:/ 'getDeployment' smart constructor. newtype GetDeployment = GetDeployment'     { _gdDeploymentId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdDeploymentId'+-- * 'gdDeploymentId' - A deployment ID associated with the applicable IAM user or AWS account. getDeployment     :: Text -- ^ 'gdDeploymentId'     -> GetDeployment@@ -102,6 +106,8 @@  -- | Represents the output of a get deployment operation. --+--+-- -- /See:/ 'getDeploymentResponse' smart constructor. data GetDeploymentResponse = GetDeploymentResponse'     { _gdrsDeploymentInfo :: !(Maybe DeploymentInfo)@@ -112,9 +118,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdrsDeploymentInfo'+-- * 'gdrsDeploymentInfo' - Information about the deployment. ----- * 'gdrsResponseStatus'+-- * 'gdrsResponseStatus' - -- | The response status code. getDeploymentResponse     :: Int -- ^ 'gdrsResponseStatus'     -> GetDeploymentResponse@@ -128,7 +134,7 @@ gdrsDeploymentInfo :: Lens' GetDeploymentResponse (Maybe DeploymentInfo) gdrsDeploymentInfo = lens _gdrsDeploymentInfo (\ s a -> s{_gdrsDeploymentInfo = a}); --- | The response status code.+-- | -- | The response status code. gdrsResponseStatus :: Lens' GetDeploymentResponse Int gdrsResponseStatus = lens _gdrsResponseStatus (\ s a -> s{_gdrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about a deployment configuration.+--+-- module Network.AWS.CodeDeploy.GetDeploymentConfig     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a get deployment configuration operation. --+--+-- -- /See:/ 'getDeploymentConfig' smart constructor. newtype GetDeploymentConfig = GetDeploymentConfig'     { _gdcDeploymentConfigName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdcDeploymentConfigName'+-- * 'gdcDeploymentConfigName' - The name of a deployment configuration associated with the applicable IAM user or AWS account. getDeploymentConfig     :: Text -- ^ 'gdcDeploymentConfigName'     -> GetDeploymentConfig@@ -107,6 +111,8 @@  -- | Represents the output of a get deployment configuration operation. --+--+-- -- /See:/ 'getDeploymentConfigResponse' smart constructor. data GetDeploymentConfigResponse = GetDeploymentConfigResponse'     { _gdcrsDeploymentConfigInfo :: !(Maybe DeploymentConfigInfo)@@ -117,9 +123,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdcrsDeploymentConfigInfo'+-- * 'gdcrsDeploymentConfigInfo' - Information about the deployment configuration. ----- * 'gdcrsResponseStatus'+-- * 'gdcrsResponseStatus' - -- | The response status code. getDeploymentConfigResponse     :: Int -- ^ 'gdcrsResponseStatus'     -> GetDeploymentConfigResponse@@ -133,7 +139,7 @@ gdcrsDeploymentConfigInfo :: Lens' GetDeploymentConfigResponse (Maybe DeploymentConfigInfo) gdcrsDeploymentConfigInfo = lens _gdcrsDeploymentConfigInfo (\ s a -> s{_gdcrsDeploymentConfigInfo = a}); --- | The response status code.+-- | -- | The response status code. gdcrsResponseStatus :: Lens' GetDeploymentConfigResponse Int gdcrsResponseStatus = lens _gdcrsResponseStatus (\ s a -> s{_gdcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about a deployment group.+--+-- module Network.AWS.CodeDeploy.GetDeploymentGroup     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a get deployment group operation. --+--+-- -- /See:/ 'getDeploymentGroup' smart constructor. data GetDeploymentGroup = GetDeploymentGroup'     { _gdgApplicationName     :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdgApplicationName'+-- * 'gdgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. ----- * 'gdgDeploymentGroupName'+-- * 'gdgDeploymentGroupName' - The name of an existing deployment group for the specified application. getDeploymentGroup     :: Text -- ^ 'gdgApplicationName'     -> Text -- ^ 'gdgDeploymentGroupName'@@ -117,6 +121,8 @@  -- | Represents the output of a get deployment group operation. --+--+-- -- /See:/ 'getDeploymentGroupResponse' smart constructor. data GetDeploymentGroupResponse = GetDeploymentGroupResponse'     { _gdgrsDeploymentGroupInfo :: !(Maybe DeploymentGroupInfo)@@ -127,9 +133,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdgrsDeploymentGroupInfo'+-- * 'gdgrsDeploymentGroupInfo' - Information about the deployment group. ----- * 'gdgrsResponseStatus'+-- * 'gdgrsResponseStatus' - -- | The response status code. getDeploymentGroupResponse     :: Int -- ^ 'gdgrsResponseStatus'     -> GetDeploymentGroupResponse@@ -143,7 +149,7 @@ gdgrsDeploymentGroupInfo :: Lens' GetDeploymentGroupResponse (Maybe DeploymentGroupInfo) gdgrsDeploymentGroupInfo = lens _gdgrsDeploymentGroupInfo (\ s a -> s{_gdgrsDeploymentGroupInfo = a}); --- | The response status code.+-- | -- | The response status code. gdgrsResponseStatus :: Lens' GetDeploymentGroupResponse Int gdgrsResponseStatus = lens _gdgrsResponseStatus (\ s a -> s{_gdgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about an instance as part of a deployment.+--+-- module Network.AWS.CodeDeploy.GetDeploymentInstance     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a get deployment instance operation. --+--+-- -- /See:/ 'getDeploymentInstance' smart constructor. data GetDeploymentInstance = GetDeploymentInstance'     { _gdiDeploymentId :: !Text@@ -55,9 +59,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdiDeploymentId'+-- * 'gdiDeploymentId' - The unique ID of a deployment. ----- * 'gdiInstanceId'+-- * 'gdiInstanceId' - The unique ID of an instance in the deployment group. getDeploymentInstance     :: Text -- ^ 'gdiDeploymentId'     -> Text -- ^ 'gdiInstanceId'@@ -115,6 +119,8 @@  -- | Represents the output of a get deployment instance operation. --+--+-- -- /See:/ 'getDeploymentInstanceResponse' smart constructor. data GetDeploymentInstanceResponse = GetDeploymentInstanceResponse'     { _gdirsInstanceSummary :: !(Maybe InstanceSummary)@@ -125,9 +131,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gdirsInstanceSummary'+-- * 'gdirsInstanceSummary' - Information about the instance. ----- * 'gdirsResponseStatus'+-- * 'gdirsResponseStatus' - -- | The response status code. getDeploymentInstanceResponse     :: Int -- ^ 'gdirsResponseStatus'     -> GetDeploymentInstanceResponse@@ -141,7 +147,7 @@ gdirsInstanceSummary :: Lens' GetDeploymentInstanceResponse (Maybe InstanceSummary) gdirsInstanceSummary = lens _gdirsInstanceSummary (\ s a -> s{_gdirsInstanceSummary = a}); --- | The response status code.+-- | -- | The response status code. gdirsResponseStatus :: Lens' GetDeploymentInstanceResponse Int gdirsResponseStatus = lens _gdirsResponseStatus (\ s a -> s{_gdirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Gets information about an on-premises instance.+--+-- module Network.AWS.CodeDeploy.GetOnPremisesInstance     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Represents the input of a get on-premises instance operation. --+--+-- -- /See:/ 'getOnPremisesInstance' smart constructor. newtype GetOnPremisesInstance = GetOnPremisesInstance'     { _gopiInstanceName :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gopiInstanceName'+-- * 'gopiInstanceName' - The name of the on-premises instance about which to get information. getOnPremisesInstance     :: Text -- ^ 'gopiInstanceName'     -> GetOnPremisesInstance@@ -104,6 +108,8 @@  -- | Represents the output of a get on-premises instance operation. --+--+-- -- /See:/ 'getOnPremisesInstanceResponse' smart constructor. data GetOnPremisesInstanceResponse = GetOnPremisesInstanceResponse'     { _gopirsInstanceInfo   :: !(Maybe InstanceInfo)@@ -114,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'gopirsInstanceInfo'+-- * 'gopirsInstanceInfo' - Information about the on-premises instance. ----- * 'gopirsResponseStatus'+-- * 'gopirsResponseStatus' - -- | The response status code. getOnPremisesInstanceResponse     :: Int -- ^ 'gopirsResponseStatus'     -> GetOnPremisesInstanceResponse@@ -130,7 +136,7 @@ gopirsInstanceInfo :: Lens' GetOnPremisesInstanceResponse (Maybe InstanceInfo) gopirsInstanceInfo = lens _gopirsInstanceInfo (\ s a -> s{_gopirsInstanceInfo = a}); --- | The response status code.+-- | -- | The response status code. gopirsResponseStatus :: Lens' GetOnPremisesInstanceResponse Int gopirsResponseStatus = lens _gopirsResponseStatus (\ s a -> s{_gopirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists information about revisions for an application.+--+-- module Network.AWS.CodeDeploy.ListApplicationRevisions     (     -- * Creating a Request@@ -51,6 +53,8 @@  -- | Represents the input of a list application revisions operation. --+--+-- -- /See:/ 'listApplicationRevisions' smart constructor. data ListApplicationRevisions = ListApplicationRevisions'     { _larS3KeyPrefix     :: !(Maybe Text)@@ -66,19 +70,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'larS3KeyPrefix'+-- * 'larS3KeyPrefix' - A key prefix for the set of Amazon S3 objects to limit the search for revisions. ----- * 'larDeployed'+-- * 'larDeployed' - Whether to list revisions based on whether the revision is the target revision of an deployment group:     * include: List revisions that are target revisions of a deployment group.     * exclude: Do not list revisions that are target revisions of a deployment group.     * ignore: List all revisions. ----- * 'larSortOrder'+-- * 'larSortOrder' - The order in which to sort the list results:     * ascending: ascending order.     * descending: descending order. If not specified, the results will be sorted in ascending order. If set to null, the results will be sorted in an arbitrary order. ----- * 'larNextToken'+-- * 'larNextToken' - An identifier returned from the previous list application revisions call. It can be used to return the next set of applications in the list. ----- * 'larS3Bucket'+-- * 'larS3Bucket' - An Amazon S3 bucket name to limit the search for revisions. If set to null, all of the user's buckets will be searched. ----- * 'larSortBy'+-- * 'larSortBy' - The column name to use to sort the list results:     * registerTime: Sort by the time the revisions were registered with AWS CodeDeploy.     * firstUsedTime: Sort by the time the revisions were first used in a deployment.     * lastUsedTime: Sort by the time the revisions were last used in a deployment. If not specified or set to null, the results will be returned in an arbitrary order. ----- * 'larApplicationName'+-- * 'larApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. listApplicationRevisions     :: Text -- ^ 'larApplicationName'     -> ListApplicationRevisions@@ -97,22 +101,11 @@ larS3KeyPrefix :: Lens' ListApplicationRevisions (Maybe Text) larS3KeyPrefix = lens _larS3KeyPrefix (\ s a -> s{_larS3KeyPrefix = a}); --- | Whether to list revisions based on whether the revision is the target revision of an deployment group:------ -   include: List revisions that are target revisions of a deployment group.--- -   exclude: Do not list revisions that are target revisions of a deployment group.--- -   ignore: List all revisions.+-- | Whether to list revisions based on whether the revision is the target revision of an deployment group:     * include: List revisions that are target revisions of a deployment group.     * exclude: Do not list revisions that are target revisions of a deployment group.     * ignore: List all revisions. larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction) larDeployed = lens _larDeployed (\ s a -> s{_larDeployed = a}); --- | The order in which to sort the list results:------ -   ascending: ascending order.--- -   descending: descending order.------ If not specified, the results will be sorted in ascending order.------ If set to null, the results will be sorted in an arbitrary order.+-- | The order in which to sort the list results:     * ascending: ascending order.     * descending: descending order. If not specified, the results will be sorted in ascending order. If set to null, the results will be sorted in an arbitrary order. larSortOrder :: Lens' ListApplicationRevisions (Maybe SortOrder) larSortOrder = lens _larSortOrder (\ s a -> s{_larSortOrder = a}); @@ -120,19 +113,11 @@ larNextToken :: Lens' ListApplicationRevisions (Maybe Text) larNextToken = lens _larNextToken (\ s a -> s{_larNextToken = a}); --- | An Amazon S3 bucket name to limit the search for revisions.------ If set to null, all of the user\'s buckets will be searched.+-- | An Amazon S3 bucket name to limit the search for revisions. If set to null, all of the user's buckets will be searched. larS3Bucket :: Lens' ListApplicationRevisions (Maybe Text) larS3Bucket = lens _larS3Bucket (\ s a -> s{_larS3Bucket = a}); --- | The column name to use to sort the list results:------ -   registerTime: Sort by the time the revisions were registered with AWS CodeDeploy.--- -   firstUsedTime: Sort by the time the revisions were first used in a deployment.--- -   lastUsedTime: Sort by the time the revisions were last used in a deployment.------ If not specified or set to null, the results will be returned in an arbitrary order.+-- | The column name to use to sort the list results:     * registerTime: Sort by the time the revisions were registered with AWS CodeDeploy.     * firstUsedTime: Sort by the time the revisions were first used in a deployment.     * lastUsedTime: Sort by the time the revisions were last used in a deployment. If not specified or set to null, the results will be returned in an arbitrary order. larSortBy :: Lens' ListApplicationRevisions (Maybe ApplicationRevisionSortBy) larSortBy = lens _larSortBy (\ s a -> s{_larSortBy = a}); @@ -186,6 +171,8 @@  -- | Represents the output of a list application revisions operation. --+--+-- -- /See:/ 'listApplicationRevisionsResponse' smart constructor. data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse'     { _larrsNextToken      :: !(Maybe Text)@@ -197,11 +184,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'larrsNextToken'+-- * 'larrsNextToken' - 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. ----- * 'larrsRevisions'+-- * 'larrsRevisions' - A list of locations that contain the matching revisions. ----- * 'larrsResponseStatus'+-- * 'larrsResponseStatus' - -- | The response status code. listApplicationRevisionsResponse     :: Int -- ^ 'larrsResponseStatus'     -> ListApplicationRevisionsResponse@@ -220,7 +207,7 @@ larrsRevisions :: Lens' ListApplicationRevisionsResponse [RevisionLocation] larrsRevisions = lens _larrsRevisions (\ s a -> s{_larrsRevisions = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. larrsResponseStatus :: Lens' ListApplicationRevisionsResponse Int larrsResponseStatus = lens _larrsResponseStatus (\ s a -> s{_larrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the applications registered with the applicable IAM user or AWS account.+--+-- module Network.AWS.CodeDeploy.ListApplications     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a list applications operation. --+--+-- -- /See:/ 'listApplications' smart constructor. newtype ListApplications = ListApplications'     { _laNextToken :: Maybe Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'laNextToken'+-- * '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 =@@ -104,6 +108,8 @@  -- | Represents the output of a list applications operation. --+--+-- -- /See:/ 'listApplicationsResponse' smart constructor. data ListApplicationsResponse = ListApplicationsResponse'     { _larsNextToken      :: !(Maybe Text)@@ -115,11 +121,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'larsNextToken'+-- * 'larsNextToken' - 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. ----- * 'larsApplications'+-- * 'larsApplications' - A list of application names. ----- * 'larsResponseStatus'+-- * 'larsResponseStatus' - -- | The response status code. listApplicationsResponse     :: Int -- ^ 'larsResponseStatus'     -> ListApplicationsResponse@@ -138,7 +144,7 @@ larsApplications :: Lens' ListApplicationsResponse [Text] larsApplications = lens _larsApplications (\ s a -> s{_larsApplications = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. larsResponseStatus :: Lens' ListApplicationsResponse Int larsResponseStatus = lens _larsResponseStatus (\ s a -> s{_larsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the deployment configurations with the applicable IAM user or AWS account.+--+-- module Network.AWS.CodeDeploy.ListDeploymentConfigs     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Represents the input of a list deployment configurations operation. --+--+-- -- /See:/ 'listDeploymentConfigs' smart constructor. newtype ListDeploymentConfigs = ListDeploymentConfigs'     { _ldcNextToken :: Maybe Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldcNextToken'+-- * '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 =@@ -105,6 +109,8 @@  -- | Represents the output of a list deployment configurations operation. --+--+-- -- /See:/ 'listDeploymentConfigsResponse' smart constructor. data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse'     { _ldcrsNextToken             :: !(Maybe Text)@@ -116,11 +122,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldcrsNextToken'+-- * 'ldcrsNextToken' - 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. ----- * 'ldcrsDeploymentConfigsList'+-- * 'ldcrsDeploymentConfigsList' - A list of deployment configurations, including built-in configurations such as CodeDeployDefault.OneAtATime. ----- * 'ldcrsResponseStatus'+-- * 'ldcrsResponseStatus' - -- | The response status code. listDeploymentConfigsResponse     :: Int -- ^ 'ldcrsResponseStatus'     -> ListDeploymentConfigsResponse@@ -139,7 +145,7 @@ ldcrsDeploymentConfigsList :: Lens' ListDeploymentConfigsResponse [Text] ldcrsDeploymentConfigsList = lens _ldcrsDeploymentConfigsList (\ s a -> s{_ldcrsDeploymentConfigsList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ldcrsResponseStatus :: Lens' ListDeploymentConfigsResponse Int ldcrsResponseStatus = lens _ldcrsResponseStatus (\ s a -> s{_ldcrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the deployment groups for an application registered with the applicable IAM user or AWS account.+--+-- module Network.AWS.CodeDeploy.ListDeploymentGroups     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the input of a list deployment groups operation. --+--+-- -- /See:/ 'listDeploymentGroups' smart constructor. data ListDeploymentGroups = ListDeploymentGroups'     { _ldgNextToken       :: !(Maybe Text)@@ -57,9 +61,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldgNextToken'+-- * 'ldgNextToken' - 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. ----- * 'ldgApplicationName'+-- * 'ldgApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. listDeploymentGroups     :: Text -- ^ 'ldgApplicationName'     -> ListDeploymentGroups@@ -118,6 +122,8 @@  -- | Represents the output of a list deployment groups operation. --+--+-- -- /See:/ 'listDeploymentGroupsResponse' smart constructor. data ListDeploymentGroupsResponse = ListDeploymentGroupsResponse'     { _ldgrsNextToken        :: !(Maybe Text)@@ -130,13 +136,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldgrsNextToken'+-- * 'ldgrsNextToken' - 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. ----- * 'ldgrsApplicationName'+-- * 'ldgrsApplicationName' - The application name. ----- * 'ldgrsDeploymentGroups'+-- * 'ldgrsDeploymentGroups' - A list of corresponding deployment group names. ----- * 'ldgrsResponseStatus'+-- * 'ldgrsResponseStatus' - -- | The response status code. listDeploymentGroupsResponse     :: Int -- ^ 'ldgrsResponseStatus'     -> ListDeploymentGroupsResponse@@ -160,7 +166,7 @@ ldgrsDeploymentGroups :: Lens' ListDeploymentGroupsResponse [Text] ldgrsDeploymentGroups = lens _ldgrsDeploymentGroups (\ s a -> s{_ldgrsDeploymentGroups = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ldgrsResponseStatus :: Lens' ListDeploymentGroupsResponse Int ldgrsResponseStatus = lens _ldgrsResponseStatus (\ s a -> s{_ldgrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the instance for a deployment associated with the applicable IAM user or AWS account.+--+-- module Network.AWS.CodeDeploy.ListDeploymentInstances     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Represents the input of a list deployment instances operation. --+--+-- -- /See:/ 'listDeploymentInstances' smart constructor. data ListDeploymentInstances = ListDeploymentInstances'     { _ldiInstanceStatusFilter :: !(Maybe [InstanceStatus])@@ -58,11 +62,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldiInstanceStatusFilter'+-- * '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. ----- * 'ldiNextToken'+-- * '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. ----- * 'ldiDeploymentId'+-- * 'ldiDeploymentId' - The unique ID of a deployment. listDeploymentInstances     :: Text -- ^ 'ldiDeploymentId'     -> ListDeploymentInstances@@ -73,14 +77,7 @@     , _ldiDeploymentId = 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.+-- | 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; @@ -135,6 +132,8 @@  -- | Represents the output of a list deployment instances operation. --+--+-- -- /See:/ 'listDeploymentInstancesResponse' smart constructor. data ListDeploymentInstancesResponse = ListDeploymentInstancesResponse'     { _ldirsNextToken      :: !(Maybe Text)@@ -146,11 +145,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldirsNextToken'+-- * 'ldirsNextToken' - 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. ----- * 'ldirsInstancesList'+-- * 'ldirsInstancesList' - A list of instance IDs. ----- * 'ldirsResponseStatus'+-- * 'ldirsResponseStatus' - -- | The response status code. listDeploymentInstancesResponse     :: Int -- ^ 'ldirsResponseStatus'     -> ListDeploymentInstancesResponse@@ -169,7 +168,7 @@ ldirsInstancesList :: Lens' ListDeploymentInstancesResponse [Text] ldirsInstancesList = lens _ldirsInstancesList (\ s a -> s{_ldirsInstancesList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ldirsResponseStatus :: Lens' ListDeploymentInstancesResponse Int ldirsResponseStatus = lens _ldirsResponseStatus (\ s a -> s{_ldirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Lists the deployments in a deployment group for an application registered with the applicable IAM user or AWS account.+--+-- module Network.AWS.CodeDeploy.ListDeployments     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | Represents the input of a list deployments operation. --+--+-- -- /See:/ 'listDeployments' smart constructor. data ListDeployments = ListDeployments'     { _ldCreateTimeRange     :: !(Maybe TimeRange)@@ -62,15 +66,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldCreateTimeRange'+-- * 'ldCreateTimeRange' - A time range (start and end) for returning a subset of the list of deployments. ----- * 'ldNextToken'+-- * 'ldNextToken' - An identifier returned from the previous list deployments call. It can be used to return the next set of deployments in the list. ----- * 'ldIncludeOnlyStatuses'+-- * 'ldIncludeOnlyStatuses' - A subset of deployments to list by status:     * Created: Include created deployments in the resulting list.     * Queued: Include queued deployments in the resulting list.     * In Progress: Include in-progress deployments in the resulting list.     * Succeeded: Include successful deployments in the resulting list.     * Failed: Include failed deployments in the resulting list.     * Stopped: Include stopped deployments in the resulting list. ----- * 'ldApplicationName'+-- * 'ldApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. ----- * 'ldDeploymentGroupName'+-- * 'ldDeploymentGroupName' - The name of an existing deployment group for the specified application. listDeployments     :: ListDeployments listDeployments =@@ -90,14 +94,7 @@ ldNextToken :: Lens' ListDeployments (Maybe Text) ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a}); --- | A subset of deployments to list by status:------ -   Created: Include created deployments in the resulting list.--- -   Queued: Include queued deployments in the resulting list.--- -   In Progress: Include in-progress deployments in the resulting list.--- -   Succeeded: Include successful deployments in the resulting list.--- -   Failed: Include failed deployments in the resulting list.--- -   Stopped: Include stopped deployments in the resulting list.+-- | A subset of deployments to list by status:     * Created: Include created deployments in the resulting list.     * Queued: Include queued deployments in the resulting list.     * In Progress: Include in-progress deployments in the resulting list.     * Succeeded: Include successful deployments in the resulting list.     * Failed: Include failed deployments in the resulting list.     * Stopped: Include stopped deployments in the resulting list. ldIncludeOnlyStatuses :: Lens' ListDeployments [DeploymentStatus] ldIncludeOnlyStatuses = lens _ldIncludeOnlyStatuses (\ s a -> s{_ldIncludeOnlyStatuses = a}) . _Default . _Coerce; @@ -154,6 +151,8 @@  -- | Represents the output of a list deployments operation. --+--+-- -- /See:/ 'listDeploymentsResponse' smart constructor. data ListDeploymentsResponse = ListDeploymentsResponse'     { _ldrsNextToken      :: !(Maybe Text)@@ -165,11 +164,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ldrsNextToken'+-- * 'ldrsNextToken' - 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. ----- * 'ldrsDeployments'+-- * 'ldrsDeployments' - A list of deployment IDs. ----- * 'ldrsResponseStatus'+-- * 'ldrsResponseStatus' - -- | The response status code. listDeploymentsResponse     :: Int -- ^ 'ldrsResponseStatus'     -> ListDeploymentsResponse@@ -188,7 +187,7 @@ ldrsDeployments :: Lens' ListDeploymentsResponse [Text] ldrsDeployments = lens _ldrsDeployments (\ s a -> s{_ldrsDeployments = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. ldrsResponseStatus :: Lens' ListDeploymentsResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Gets a list of names for one or more on-premises instances. --+-- -- Unless otherwise specified, both registered and deregistered on-premises instance names will be listed. To list only registered or deregistered on-premises instance names, use the registration status parameter.+-- module Network.AWS.CodeDeploy.ListOnPremisesInstances     (     -- * Creating a Request@@ -49,8 +51,8 @@  -- | Represents the input of a list on-premises instances operation. ----- . --+-- -- /See:/ 'listOnPremisesInstances' smart constructor. data ListOnPremisesInstances = ListOnPremisesInstances'     { _lopiTagFilters         :: !(Maybe [TagFilter])@@ -62,11 +64,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lopiTagFilters'+-- * 'lopiTagFilters' - The on-premises instance tags that will be used to restrict the corresponding on-premises instance names returned. ----- * 'lopiNextToken'+-- * 'lopiNextToken' - An identifier returned from the previous list on-premises instances call. It can be used to return the next set of on-premises instances in the list. ----- * 'lopiRegistrationStatus'+-- * 'lopiRegistrationStatus' - The registration status of the on-premises instances:     * Deregistered: Include deregistered on-premises instances in the resulting list.     * Registered: Include registered on-premises instances in the resulting list. listOnPremisesInstances     :: ListOnPremisesInstances listOnPremisesInstances =@@ -84,10 +86,7 @@ lopiNextToken :: Lens' ListOnPremisesInstances (Maybe Text) lopiNextToken = lens _lopiNextToken (\ s a -> s{_lopiNextToken = a}); --- | The registration status of the on-premises instances:------ -   Deregistered: Include deregistered on-premises instances in the resulting list.--- -   Registered: Include registered on-premises instances in the resulting list.+-- | The registration status of the on-premises instances:     * Deregistered: Include deregistered on-premises instances in the resulting list.     * Registered: Include registered on-premises instances in the resulting list. lopiRegistrationStatus :: Lens' ListOnPremisesInstances (Maybe RegistrationStatus) lopiRegistrationStatus = lens _lopiRegistrationStatus (\ s a -> s{_lopiRegistrationStatus = a}); @@ -134,6 +133,8 @@  -- | Represents the output of list on-premises instances operation. --+--+-- -- /See:/ 'listOnPremisesInstancesResponse' smart constructor. data ListOnPremisesInstancesResponse = ListOnPremisesInstancesResponse'     { _lopirsNextToken      :: !(Maybe Text)@@ -145,11 +146,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lopirsNextToken'+-- * 'lopirsNextToken' - 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. ----- * 'lopirsInstanceNames'+-- * 'lopirsInstanceNames' - The list of matching on-premises instance names. ----- * 'lopirsResponseStatus'+-- * 'lopirsResponseStatus' - -- | The response status code. listOnPremisesInstancesResponse     :: Int -- ^ 'lopirsResponseStatus'     -> ListOnPremisesInstancesResponse@@ -168,7 +169,7 @@ lopirsInstanceNames :: Lens' ListOnPremisesInstancesResponse [Text] lopirsInstanceNames = lens _lopirsInstanceNames (\ s a -> s{_lopirsInstanceNames = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. lopirsResponseStatus :: Lens' ListOnPremisesInstancesResponse Int lopirsResponseStatus = lens _lopirsResponseStatus (\ s a -> s{_lopirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Registers with AWS CodeDeploy a revision for the specified application.+--+-- module Network.AWS.CodeDeploy.RegisterApplicationRevision     (     -- * Creating a Request@@ -43,6 +45,8 @@  -- | Represents the input of a register application revision operation. --+--+-- -- /See:/ 'registerApplicationRevision' smart constructor. data RegisterApplicationRevision = RegisterApplicationRevision'     { _rarDescription     :: !(Maybe Text)@@ -54,11 +58,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rarDescription'+-- * 'rarDescription' - A comment about the revision. ----- * 'rarApplicationName'+-- * 'rarApplicationName' - The name of an AWS CodeDeploy application associated with the applicable IAM user or AWS account. ----- * 'rarRevision'+-- * 'rarRevision' - Information about the application revision to register, including type and location. registerApplicationRevision     :: Text -- ^ 'rarApplicationName'     -> RevisionLocation -- ^ 'rarRevision'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Registers an on-premises instance.+--+-- module Network.AWS.CodeDeploy.RegisterOnPremisesInstance     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the input of the register on-premises instance operation. --+--+-- -- /See:/ 'registerOnPremisesInstance' smart constructor. data RegisterOnPremisesInstance = RegisterOnPremisesInstance'     { _ropiInstanceName :: !Text@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ropiInstanceName'+-- * 'ropiInstanceName' - The name of the on-premises instance to register. ----- * 'ropiIamUserARN'+-- * 'ropiIamUserARN' - The ARN of the IAM user to associate with the on-premises instance. registerOnPremisesInstance     :: Text -- ^ 'ropiInstanceName'     -> Text -- ^ 'ropiIamUserARN'

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Removes one or more tags from one or more on-premises instances.+--+-- module Network.AWS.CodeDeploy.RemoveTagsFromOnPremisesInstances     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the input of a remove tags from on-premises instances operation. --+--+-- -- /See:/ 'removeTagsFromOnPremisesInstances' smart constructor. data RemoveTagsFromOnPremisesInstances = RemoveTagsFromOnPremisesInstances'     { _rtfopiTags          :: ![Tag]@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rtfopiTags'+-- * 'rtfopiTags' - The tag key-value pairs to remove from the on-premises instances. ----- * 'rtfopiInstanceNames'+-- * 'rtfopiInstanceNames' - The names of the on-premises instances from which to remove tags. removeTagsFromOnPremisesInstances     :: RemoveTagsFromOnPremisesInstances removeTagsFromOnPremisesInstances =

@@ -19,12 +19,15 @@ -- Portability : non-portable (GHC extensions) -- -- Attempts to stop an ongoing deployment.+--+-- module Network.AWS.CodeDeploy.StopDeployment     (     -- * Creating a Request       stopDeployment     , StopDeployment     -- * Request Lenses+    , sdAutoRollbackEnabled     , sdDeploymentId      -- * Destructuring the Response@@ -45,24 +48,34 @@  -- | Represents the input of a stop deployment operation. --+--+-- -- /See:/ 'stopDeployment' smart constructor.-newtype StopDeployment = StopDeployment'-    { _sdDeploymentId :: Text+data StopDeployment = StopDeployment'+    { _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. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sdDeploymentId'+-- * 'sdAutoRollbackEnabled' - Indicates, when a deployment is stopped, whether instances that have been updated should be rolled back to the previous version of the application revision.+--+-- * 'sdDeploymentId' - The unique ID of a deployment. stopDeployment     :: Text -- ^ 'sdDeploymentId'     -> StopDeployment stopDeployment pDeploymentId_ =     StopDeployment'-    { _sdDeploymentId = pDeploymentId_+    { _sdAutoRollbackEnabled = Nothing+    , _sdDeploymentId = pDeploymentId_     } +-- | Indicates, when a deployment is stopped, whether instances that have been updated should be rolled back to the previous version of the application revision.+sdAutoRollbackEnabled :: Lens' StopDeployment (Maybe Bool)+sdAutoRollbackEnabled = lens _sdAutoRollbackEnabled (\ s a -> s{_sdAutoRollbackEnabled = a});+ -- | The unique ID of a deployment. sdDeploymentId :: Lens' StopDeployment Text sdDeploymentId = lens _sdDeploymentId (\ s a -> s{_sdDeploymentId = a});@@ -94,7 +107,9 @@         toJSON StopDeployment'{..}           = object               (catMaybes-                 [Just ("deploymentId" .= _sdDeploymentId)])+                 [("autoRollbackEnabled" .=) <$>+                    _sdAutoRollbackEnabled,+                  Just ("deploymentId" .= _sdDeploymentId)])  instance ToPath StopDeployment where         toPath = const "/"@@ -104,6 +119,8 @@  -- | Represents the output of a stop deployment operation. --+--+-- -- /See:/ 'stopDeploymentResponse' smart constructor. data StopDeploymentResponse = StopDeploymentResponse'     { _sdrsStatus         :: !(Maybe StopStatus)@@ -115,11 +132,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sdrsStatus'+-- * 'sdrsStatus' - The status of the stop deployment operation:     * Pending: The stop operation is pending.     * Succeeded: The stop operation was successful. ----- * 'sdrsStatusMessage'+-- * 'sdrsStatusMessage' - An accompanying status message. ----- * 'sdrsResponseStatus'+-- * 'sdrsResponseStatus' - -- | The response status code. stopDeploymentResponse     :: Int -- ^ 'sdrsResponseStatus'     -> StopDeploymentResponse@@ -130,10 +147,7 @@     , _sdrsResponseStatus = pResponseStatus_     } --- | The status of the stop deployment operation:------ -   Pending: The stop operation is pending.--- -   Succeeded: The stop operation was successful.+-- | The status of the stop deployment operation:     * Pending: The stop operation is pending.     * Succeeded: The stop operation was successful. sdrsStatus :: Lens' StopDeploymentResponse (Maybe StopStatus) sdrsStatus = lens _sdrsStatus (\ s a -> s{_sdrsStatus = a}); @@ -141,7 +155,7 @@ sdrsStatusMessage :: Lens' StopDeploymentResponse (Maybe Text) sdrsStatusMessage = lens _sdrsStatusMessage (\ s a -> s{_sdrsStatusMessage = a}); --- | The response status code.+-- | -- | The response status code. sdrsResponseStatus :: Lens' StopDeploymentResponse Int sdrsResponseStatus = lens _sdrsResponseStatus (\ s a -> s{_sdrsResponseStatus = a}); 

@@ -19,6 +19,7 @@     , _LifecycleHookLimitExceededException     , _InvalidTimeRangeException     , _InvalidTagException+    , _InvalidAlarmConfigException     , _InstanceNameAlreadyRegisteredException     , _IAMUserARNRequiredException     , _InvalidDeploymentGroupNameException@@ -37,6 +38,7 @@     , _InvalidApplicationNameException     , _ApplicationDoesNotExistException     , _InvalidMinimumHealthyHostValueException+    , _AlarmsLimitExceededException     , _InvalidTagFilterException     , _InvalidTriggerConfigException     , _TagRequiredException@@ -56,6 +58,7 @@     , _InstanceIdRequiredException     , _InvalidDeploymentIdException     , _InvalidSortOrderException+    , _InvalidAutoRollbackConfigException     , _DeploymentAlreadyCompletedException     , _DeploymentDoesNotExistException     , _BatchLimitExceededException@@ -81,6 +84,9 @@     -- * ApplicationRevisionSortBy     , ApplicationRevisionSortBy (..) +    -- * AutoRollbackEvent+    , AutoRollbackEvent (..)+     -- * BundleType     , BundleType (..) @@ -129,6 +135,18 @@     -- * TriggerEventType     , TriggerEventType (..) +    -- * Alarm+    , Alarm+    , alarm+    , aName++    -- * AlarmConfiguration+    , AlarmConfiguration+    , alarmConfiguration+    , acIgnorePollAlarmFailure+    , acEnabled+    , acAlarms+     -- * ApplicationInfo     , ApplicationInfo     , applicationInfo@@ -137,6 +155,12 @@     , aiApplicationName     , aiCreateTime +    -- * AutoRollbackConfiguration+    , AutoRollbackConfiguration+    , autoRollbackConfiguration+    , arcEnabled+    , arcEvents+     -- * AutoScalingGroup     , AutoScalingGroup     , autoScalingGroup@@ -160,9 +184,11 @@     , dgiEc2TagFilters     , dgiOnPremisesInstanceTagFilters     , dgiApplicationName+    , dgiAlarmConfiguration     , dgiTriggerConfigurations     , dgiDeploymentGroupId     , dgiAutoScalingGroups+    , dgiAutoRollbackConfiguration     , dgiDeploymentGroupName      -- * DeploymentInfo@@ -177,9 +203,12 @@     , diErrorInformation     , diDeploymentOverview     , diApplicationName+    , diRollbackInfo     , diRevision     , diDescription     , diCreateTime+    , diAutoRollbackConfiguration+    , diUpdateOutdatedInstancesOnly     , diDeploymentGroupName     , diIgnoreApplicationStopFailures @@ -275,6 +304,13 @@     , rlS3Location     , rlGitHubLocation +    -- * RollbackInfo+    , RollbackInfo+    , rollbackInfo+    , riRollbackTriggeringDeploymentId+    , riRollbackMessage+    , riRollbackDeploymentId+     -- * S3Location     , S3Location     , s3Location@@ -317,7 +353,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2014-10-06' of the Amazon CodeDeploy SDK configuration.+-- | API version @2014-10-06@ of the Amazon CodeDeploy SDK configuration. codeDeploy :: Service codeDeploy =     Service@@ -352,299 +388,454 @@       | otherwise = Nothing  -- | The limit for lifecycle hooks was exceeded.+--+-- _LifecycleHookLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LifecycleHookLimitExceededException =     _ServiceError . hasCode "LifecycleHookLimitExceededException"  -- | The specified time range was specified in an invalid format.+--+-- _InvalidTimeRangeException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTimeRangeException =     _ServiceError . hasCode "InvalidTimeRangeException"  -- | The specified tag was specified in an invalid format.+--+-- _InvalidTagException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTagException = _ServiceError . hasCode "InvalidTagException" +-- | The format of the alarm configuration is invalid. Possible causes include:+--+--+--     * The alarm list is null.+--+--     * The alarm object is null.+--+--     * The alarm name is empty or null or exceeds the 255 character limit.+--+--     * Two alarms with the same name have been specified.+--+--     * The alarm configuration is enabled but the alarm list is empty.+--+--+--+_InvalidAlarmConfigException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidAlarmConfigException =+    _ServiceError . hasCode "InvalidAlarmConfigException"+ -- | The specified on-premises instance name is already registered.+--+-- _InstanceNameAlreadyRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceNameAlreadyRegisteredException =     _ServiceError . hasCode "InstanceNameAlreadyRegisteredException"  -- | An IAM user ARN was not specified.+--+-- _IAMUserARNRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _IAMUserARNRequiredException =     _ServiceError . hasCode "IamUserArnRequiredException"  -- | The deployment group name was specified in an invalid format.+--+-- _InvalidDeploymentGroupNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDeploymentGroupNameException =     _ServiceError . hasCode "InvalidDeploymentGroupNameException"  -- | The description is too long.+--+-- _DescriptionTooLongException :: AsError a => Getting (First ServiceError) a ServiceError _DescriptionTooLongException =     _ServiceError . hasCode "DescriptionTooLongException"  -- | The IAM user ARN was specified in an invalid format.+--+-- _InvalidIAMUserARNException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidIAMUserARNException =     _ServiceError . hasCode "InvalidIamUserArnException"  -- | The specified deployment has not started.+--+-- _DeploymentNotStartedException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentNotStartedException =     _ServiceError . hasCode "DeploymentNotStartedException"  -- | The deployment configurations limit was exceeded.+--+-- _DeploymentConfigLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentConfigLimitExceededException =     _ServiceError . hasCode "DeploymentConfigLimitExceededException"  -- | The role ID was not specified.+--+-- _RoleRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _RoleRequiredException = _ServiceError . hasCode "RoleRequiredException"  -- | 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"  -- | 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"  -- | The number of allowed deployments was exceeded.+--+-- _DeploymentLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentLimitExceededException =     _ServiceError . hasCode "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"  -- | 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"  -- | The deployed state filter was specified in an invalid format.+--+-- _InvalidDeployedStateFilterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDeployedStateFilterException =     _ServiceError . hasCode "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"  -- | The application name was specified in an invalid format.+--+-- _InvalidApplicationNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidApplicationNameException =     _ServiceError . hasCode "InvalidApplicationNameException"  -- | 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"  -- | The minimum healthy instance value was specified in an invalid format.+--+-- _InvalidMinimumHealthyHostValueException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidMinimumHealthyHostValueException =     _ServiceError . hasCode "InvalidMinimumHealthyHostValueException" +-- | The maximum number of alarms for a deployment group (10) was exceeded.+--+--+_AlarmsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_AlarmsLimitExceededException =+    _ServiceError . hasCode "AlarmsLimitExceededException"+ -- | The specified tag filter was specified in an invalid format.+--+-- _InvalidTagFilterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTagFilterException =     _ServiceError . hasCode "InvalidTagFilterException"  -- | The trigger was specified in an invalid format.+--+-- _InvalidTriggerConfigException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidTriggerConfigException =     _ServiceError . hasCode "InvalidTriggerConfigException"  -- | A tag was not specified.+--+-- _TagRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _TagRequiredException = _ServiceError . hasCode "TagRequiredException"  -- | The deployment group name was not specified.+--+-- _DeploymentGroupNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentGroupNameRequiredException =     _ServiceError . hasCode "DeploymentGroupNameRequiredException"  -- | A bucket name is required, but was not provided.+--+-- _BucketNameFilterRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _BucketNameFilterRequiredException =     _ServiceError . hasCode "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" --- | The bucket name either doesn\'t exist or was specified in an invalid format.+-- | 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"  -- | 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"  -- | 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"  -- | 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"  -- | The deployment groups limit was exceeded.+--+-- _DeploymentGroupLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentGroupLimitExceededException =     _ServiceError . hasCode "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"  -- | The deployment configuration name was specified in an invalid format.+--+-- _InvalidDeploymentConfigNameException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDeploymentConfigNameException =     _ServiceError . hasCode "InvalidDeploymentConfigNameException"  -- | The deployment configuration name was not specified.+--+-- _DeploymentConfigNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentConfigNameRequiredException =     _ServiceError . hasCode "DeploymentConfigNameRequiredException"  -- | At least one deployment ID must be specified.+--+-- _DeploymentIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentIdRequiredException =     _ServiceError . hasCode "DeploymentIdRequiredException"  -- | The next token was specified in an invalid format.+--+-- _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextTokenException =     _ServiceError . hasCode "InvalidNextTokenException"  -- | The instance ID was not specified.+--+-- _InstanceIdRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceIdRequiredException =     _ServiceError . hasCode "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"  -- | The sort order was specified in an invalid format.+--+-- _InvalidSortOrderException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSortOrderException =     _ServiceError . hasCode "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"+ -- | The deployment is already complete.+--+-- _DeploymentAlreadyCompletedException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentAlreadyCompletedException =     _ServiceError . hasCode "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"  -- | 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"  -- | The revision was specified in an invalid format.+--+-- _InvalidRevisionException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRevisionException = _ServiceError . hasCode "InvalidRevisionException"  -- | The revision ID was not specified.+--+-- _RevisionRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _RevisionRequiredException =     _ServiceError . hasCode "RevisionRequiredException"  -- | The specified instance does not exist in the deployment group.+--+-- _InstanceDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceDoesNotExistException =     _ServiceError . hasCode "InstanceDoesNotExistException"  -- | The deployment configuration is still in use.+--+-- _DeploymentConfigInUseException :: AsError a => Getting (First ServiceError) a ServiceError _DeploymentConfigInUseException =     _ServiceError . hasCode "DeploymentConfigInUseException"  -- | The tag was specified in an invalid format.+--+-- _InvalidEC2TagException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidEC2TagException = _ServiceError . hasCode "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"  -- | An on-premises instance name was not specified.+--+-- _InstanceNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceNameRequiredException =     _ServiceError . hasCode "InstanceNameRequiredException"  -- | The maximum allowed number of triggers was exceeded.+--+-- _TriggerTargetsLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _TriggerTargetsLimitExceededException =     _ServiceError . hasCode "TriggerTargetsLimitExceededException" --- | The specified deployment status doesn\'t exist or cannot be determined.+-- | The specified deployment status doesn't exist or cannot be determined.+--+-- _InvalidDeploymentStatusException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidDeploymentStatusException =     _ServiceError . hasCode "InvalidDeploymentStatusException"  -- | The registration status was specified in an invalid format.+--+-- _InvalidRegistrationStatusException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidRegistrationStatusException =     _ServiceError . hasCode "InvalidRegistrationStatusException"  -- | The minimum number of required application names was not specified.+--+-- _ApplicationNameRequiredException :: AsError a => Getting (First ServiceError) a ServiceError _ApplicationNameRequiredException =     _ServiceError . hasCode "ApplicationNameRequiredException"  -- | The specified on-premises instance is not registered.+--+-- _InstanceNotRegisteredException :: AsError a => Getting (First ServiceError) a ServiceError _InstanceNotRegisteredException =     _ServiceError . hasCode "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"  -- | The specified instance status does not exist.+--+-- _InvalidInstanceStatusException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidInstanceStatusException =     _ServiceError . hasCode "InvalidInstanceStatusException"  -- | The maximum allowed number of tags was exceeded.+--+-- _TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _TagLimitExceededException =     _ServiceError . hasCode "TagLimitExceededException"  -- | More applications were attempted to be created than are allowed.+--+-- _ApplicationLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _ApplicationLimitExceededException =     _ServiceError . hasCode "ApplicationLimitExceededException"  -- | An invalid operation was detected.+--+-- _InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidOperationException =     _ServiceError . hasCode "InvalidOperationException"  -- | The specified key prefix filter was specified in an invalid format.+--+-- _InvalidKeyPrefixFilterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidKeyPrefixFilterException =     _ServiceError . hasCode "InvalidKeyPrefixFilterException"

@@ -21,8 +21,111 @@ import           Network.AWS.Lens import           Network.AWS.Prelude +-- | Information about an alarm.+--+--+--+-- /See:/ 'alarm' smart constructor.+newtype Alarm = Alarm'+    { _aName :: Maybe Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Alarm' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * '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+    }++-- | The name of the alarm. Maximum length is 255 characters. Each alarm name can be used only once in a list of alarms.+aName :: Lens' Alarm (Maybe Text)+aName = lens _aName (\ s a -> s{_aName = a});++instance FromJSON Alarm where+        parseJSON+          = withObject "Alarm"+              (\ x -> Alarm' <$> (x .:? "name"))++instance Hashable Alarm++instance NFData Alarm++instance ToJSON Alarm where+        toJSON Alarm'{..}+          = object (catMaybes [("name" .=) <$> _aName])++-- | Information about alarms associated with the deployment group.+--+--+--+-- /See:/ 'alarmConfiguration' smart constructor.+data AlarmConfiguration = AlarmConfiguration'+    { _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.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acIgnorePollAlarmFailure' - 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.+--+-- * 'acEnabled' - Indicates whether the alarm configuration is enabled.+--+-- * 'acAlarms' - A list of alarms configured for the deployment group. A maximum of 10 alarms can be added to a deployment group.+alarmConfiguration+    :: AlarmConfiguration+alarmConfiguration =+    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)+acIgnorePollAlarmFailure = lens _acIgnorePollAlarmFailure (\ s a -> s{_acIgnorePollAlarmFailure = a});++-- | Indicates whether the alarm configuration is enabled.+acEnabled :: Lens' AlarmConfiguration (Maybe Bool)+acEnabled = lens _acEnabled (\ s a -> s{_acEnabled = a});++-- | A list of alarms configured for the deployment group. A maximum of 10 alarms can be added to a deployment group.+acAlarms :: Lens' AlarmConfiguration [Alarm]+acAlarms = lens _acAlarms (\ s a -> s{_acAlarms = a}) . _Default . _Coerce;++instance FromJSON AlarmConfiguration where+        parseJSON+          = withObject "AlarmConfiguration"+              (\ x ->+                 AlarmConfiguration' <$>+                   (x .:? "ignorePollAlarmFailure") <*>+                     (x .:? "enabled")+                     <*> (x .:? "alarms" .!= mempty))++instance Hashable AlarmConfiguration++instance NFData AlarmConfiguration++instance ToJSON AlarmConfiguration where+        toJSON AlarmConfiguration'{..}+          = object+              (catMaybes+                 [("ignorePollAlarmFailure" .=) <$>+                    _acIgnorePollAlarmFailure,+                  ("enabled" .=) <$> _acEnabled,+                  ("alarms" .=) <$> _acAlarms])+ -- | Information about an application. --+--+-- -- /See:/ 'applicationInfo' smart constructor. data ApplicationInfo = ApplicationInfo'     { _aiLinkedToGitHub  :: !(Maybe Bool)@@ -35,13 +138,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aiLinkedToGitHub'+-- * 'aiLinkedToGitHub' - True if the user has authenticated with GitHub for the specified application; otherwise, false. ----- * 'aiApplicationId'+-- * 'aiApplicationId' - The application ID. ----- * 'aiApplicationName'+-- * 'aiApplicationName' - The application name. ----- * 'aiCreateTime'+-- * 'aiCreateTime' - The time at which the application was created. applicationInfo     :: ApplicationInfo applicationInfo =@@ -81,8 +184,61 @@  instance NFData ApplicationInfo +-- | Information about a configuration for automatically rolling back to a previous version of an application revision when a deployment doesn't complete successfully.+--+--+--+-- /See:/ 'autoRollbackConfiguration' smart constructor.+data AutoRollbackConfiguration = AutoRollbackConfiguration'+    { _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.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'arcEnabled' - Indicates whether a defined automatic rollback configuration is currently enabled.+--+-- * 'arcEvents' - The event type or types that trigger a rollback.+autoRollbackConfiguration+    :: AutoRollbackConfiguration+autoRollbackConfiguration =+    AutoRollbackConfiguration'+    { _arcEnabled = Nothing+    , _arcEvents = Nothing+    }++-- | Indicates whether a defined automatic rollback configuration is currently enabled.+arcEnabled :: Lens' AutoRollbackConfiguration (Maybe Bool)+arcEnabled = lens _arcEnabled (\ s a -> s{_arcEnabled = a});++-- | The event type or types that trigger a rollback.+arcEvents :: Lens' AutoRollbackConfiguration [AutoRollbackEvent]+arcEvents = lens _arcEvents (\ s a -> s{_arcEvents = a}) . _Default . _Coerce;++instance FromJSON AutoRollbackConfiguration where+        parseJSON+          = withObject "AutoRollbackConfiguration"+              (\ x ->+                 AutoRollbackConfiguration' <$>+                   (x .:? "enabled") <*> (x .:? "events" .!= mempty))++instance Hashable AutoRollbackConfiguration++instance NFData AutoRollbackConfiguration++instance ToJSON AutoRollbackConfiguration where+        toJSON AutoRollbackConfiguration'{..}+          = object+              (catMaybes+                 [("enabled" .=) <$> _arcEnabled,+                  ("events" .=) <$> _arcEvents])+ -- | Information about an Auto Scaling group. --+--+-- -- /See:/ 'autoScalingGroup' smart constructor. data AutoScalingGroup = AutoScalingGroup'     { _asgHook :: !(Maybe Text)@@ -93,9 +249,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'asgHook'+-- * 'asgHook' - An Auto Scaling lifecycle event hook name. ----- * 'asgName'+-- * 'asgName' - The Auto Scaling group name. autoScalingGroup     :: AutoScalingGroup autoScalingGroup =@@ -125,6 +281,8 @@  -- | Information about a deployment configuration. --+--+-- -- /See:/ 'deploymentConfigInfo' smart constructor. data DeploymentConfigInfo = DeploymentConfigInfo'     { _dciDeploymentConfigName :: !(Maybe Text)@@ -137,13 +295,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dciDeploymentConfigName'+-- * 'dciDeploymentConfigName' - The deployment configuration name. ----- * 'dciMinimumHealthyHosts'+-- * 'dciMinimumHealthyHosts' - Information about the number or percentage of minimum healthy instance. ----- * 'dciDeploymentConfigId'+-- * 'dciDeploymentConfigId' - The deployment configuration ID. ----- * 'dciCreateTime'+-- * 'dciCreateTime' - The time at which the deployment configuration was created. deploymentConfigInfo     :: DeploymentConfigInfo deploymentConfigInfo =@@ -186,6 +344,8 @@  -- | Information about a deployment group. --+--+-- -- /See:/ 'deploymentGroupInfo' smart constructor. data DeploymentGroupInfo = DeploymentGroupInfo'     { _dgiServiceRoleARN               :: !(Maybe Text)@@ -194,9 +354,11 @@     , _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) @@ -204,25 +366,29 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dgiServiceRoleARN'+-- * 'dgiServiceRoleARN' - A service role ARN. ----- * 'dgiDeploymentConfigName'+-- * 'dgiDeploymentConfigName' - The deployment configuration name. ----- * 'dgiTargetRevision'+-- * 'dgiTargetRevision' - Information about the deployment group's target revision, including type and location. ----- * 'dgiEc2TagFilters'+-- * 'dgiEc2TagFilters' - The Amazon EC2 tags on which to filter. ----- * 'dgiOnPremisesInstanceTagFilters'+-- * 'dgiOnPremisesInstanceTagFilters' - The on-premises instance tags on which to filter. ----- * 'dgiApplicationName'+-- * 'dgiApplicationName' - The application name. ----- * 'dgiTriggerConfigurations'+-- * 'dgiAlarmConfiguration' - A list of alarms associated with the deployment group. ----- * 'dgiDeploymentGroupId'+-- * 'dgiTriggerConfigurations' - Information about triggers associated with the deployment group. ----- * 'dgiAutoScalingGroups'+-- * 'dgiDeploymentGroupId' - The deployment group ID. ----- * 'dgiDeploymentGroupName'+-- * 'dgiAutoScalingGroups' - A list of associated Auto Scaling groups.+--+-- * 'dgiAutoRollbackConfiguration' - Information about the automatic rollback configuration associated with the deployment group.+--+-- * 'dgiDeploymentGroupName' - The deployment group name. deploymentGroupInfo     :: DeploymentGroupInfo deploymentGroupInfo =@@ -233,9 +399,11 @@     , _dgiEc2TagFilters = Nothing     , _dgiOnPremisesInstanceTagFilters = Nothing     , _dgiApplicationName = Nothing+    , _dgiAlarmConfiguration = Nothing     , _dgiTriggerConfigurations = Nothing     , _dgiDeploymentGroupId = Nothing     , _dgiAutoScalingGroups = Nothing+    , _dgiAutoRollbackConfiguration = Nothing     , _dgiDeploymentGroupName = Nothing     } @@ -247,7 +415,7 @@ dgiDeploymentConfigName :: Lens' DeploymentGroupInfo (Maybe Text) dgiDeploymentConfigName = lens _dgiDeploymentConfigName (\ s a -> s{_dgiDeploymentConfigName = a}); --- | Information about the deployment group\'s target revision, including type and location.+-- | 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}); @@ -263,7 +431,11 @@ dgiApplicationName :: Lens' DeploymentGroupInfo (Maybe Text) dgiApplicationName = lens _dgiApplicationName (\ s a -> s{_dgiApplicationName = a}); --- | A list of associated triggers.+-- | A list of alarms associated with the deployment group.+dgiAlarmConfiguration :: Lens' DeploymentGroupInfo (Maybe AlarmConfiguration)+dgiAlarmConfiguration = lens _dgiAlarmConfiguration (\ s a -> s{_dgiAlarmConfiguration = a});++-- | Information about triggers associated with the deployment group. dgiTriggerConfigurations :: Lens' DeploymentGroupInfo [TriggerConfig] dgiTriggerConfigurations = lens _dgiTriggerConfigurations (\ s a -> s{_dgiTriggerConfigurations = a}) . _Default . _Coerce; @@ -275,6 +447,10 @@ dgiAutoScalingGroups :: Lens' DeploymentGroupInfo [AutoScalingGroup] dgiAutoScalingGroups = lens _dgiAutoScalingGroups (\ s a -> s{_dgiAutoScalingGroups = a}) . _Default . _Coerce; +-- | Information about the automatic rollback configuration associated with the deployment group.+dgiAutoRollbackConfiguration :: Lens' DeploymentGroupInfo (Maybe AutoRollbackConfiguration)+dgiAutoRollbackConfiguration = lens _dgiAutoRollbackConfiguration (\ s a -> s{_dgiAutoRollbackConfiguration = a});+ -- | The deployment group name. dgiDeploymentGroupName :: Lens' DeploymentGroupInfo (Maybe Text) dgiDeploymentGroupName = lens _dgiDeploymentGroupName (\ s a -> s{_dgiDeploymentGroupName = a});@@ -290,9 +466,11 @@                      <*> (x .:? "ec2TagFilters" .!= mempty)                      <*> (x .:? "onPremisesInstanceTagFilters" .!= mempty)                      <*> (x .:? "applicationName")+                     <*> (x .:? "alarmConfiguration")                      <*> (x .:? "triggerConfigurations" .!= mempty)                      <*> (x .:? "deploymentGroupId")                      <*> (x .:? "autoScalingGroups" .!= mempty)+                     <*> (x .:? "autoRollbackConfiguration")                      <*> (x .:? "deploymentGroupName"))  instance Hashable DeploymentGroupInfo@@ -301,6 +479,8 @@  -- | Information about a deployment. --+--+-- -- /See:/ 'deploymentInfo' smart constructor. data DeploymentInfo = DeploymentInfo'     { _diCreator                       :: !(Maybe DeploymentCreator)@@ -312,9 +492,12 @@     , _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)@@ -323,33 +506,39 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diCreator'+-- * 'diCreator' - 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. ----- * 'diStatus'+-- * 'diStatus' - The current state of the deployment as a whole. ----- * 'diDeploymentId'+-- * 'diDeploymentId' - The deployment ID. ----- * 'diDeploymentConfigName'+-- * 'diDeploymentConfigName' - The deployment configuration name. ----- * 'diStartTime'+-- * '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'+-- * 'diCompleteTime' - A timestamp indicating when the deployment was complete. ----- * 'diErrorInformation'+-- * 'diErrorInformation' - Information about any error associated with this deployment. ----- * 'diDeploymentOverview'+-- * 'diDeploymentOverview' - A summary of the deployment status of the instances in the deployment. ----- * 'diApplicationName'+-- * 'diApplicationName' - The application name. ----- * 'diRevision'+-- * 'diRollbackInfo' - Information about a deployment rollback. ----- * 'diDescription'+-- * 'diRevision' - Information about the location of stored application artifacts and the service from which to retrieve them. ----- * 'diCreateTime'+-- * 'diDescription' - A comment about the deployment. ----- * 'diDeploymentGroupName'+-- * 'diCreateTime' - A timestamp indicating when the deployment was created. ----- * 'diIgnoreApplicationStopFailures'+-- * 'diAutoRollbackConfiguration' - Information about the automatic rollback configuration associated with the deployment.+--+-- * 'diUpdateOutdatedInstancesOnly' - Indicates whether only instances that are not running the latest application revision are to be deployed to.+--+-- * 'diDeploymentGroupName' - The deployment group name.+--+-- * 'diIgnoreApplicationStopFailures' - If true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed. deploymentInfo     :: DeploymentInfo deploymentInfo =@@ -363,17 +552,17 @@     , _diErrorInformation = Nothing     , _diDeploymentOverview = Nothing     , _diApplicationName = Nothing+    , _diRollbackInfo = Nothing     , _diRevision = Nothing     , _diDescription = 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.+-- | The means by which the deployment was created:     * user: A user created the deployment.     * autoscaling: Auto Scaling created the deployment.     * codeDeployRollback: A rollback process created the deployment. diCreator :: Lens' DeploymentInfo (Maybe DeploymentCreator) diCreator = lens _diCreator (\ s a -> s{_diCreator = a}); @@ -389,9 +578,7 @@ diDeploymentConfigName :: Lens' DeploymentInfo (Maybe Text) diDeploymentConfigName = lens _diDeploymentConfigName (\ s a -> s{_diDeploymentConfigName = 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.+-- | 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; @@ -411,6 +598,10 @@ diApplicationName :: Lens' DeploymentInfo (Maybe Text) diApplicationName = lens _diApplicationName (\ s a -> s{_diApplicationName = a}); +-- | Information about a deployment rollback.+diRollbackInfo :: Lens' DeploymentInfo (Maybe RollbackInfo)+diRollbackInfo = lens _diRollbackInfo (\ s a -> s{_diRollbackInfo = a});+ -- | 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});@@ -423,13 +614,19 @@ diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime) diCreateTime = lens _diCreateTime (\ s a -> s{_diCreateTime = a}) . mapping _Time; +-- | Information about the automatic rollback configuration associated with the deployment.+diAutoRollbackConfiguration :: Lens' DeploymentInfo (Maybe AutoRollbackConfiguration)+diAutoRollbackConfiguration = lens _diAutoRollbackConfiguration (\ s a -> s{_diAutoRollbackConfiguration = a});++-- | Indicates whether only instances that are not running the latest application revision are to be deployed to.+diUpdateOutdatedInstancesOnly :: Lens' DeploymentInfo (Maybe Bool)+diUpdateOutdatedInstancesOnly = lens _diUpdateOutdatedInstancesOnly (\ s a -> s{_diUpdateOutdatedInstancesOnly = a});+ -- | The deployment group name. diDeploymentGroupName :: Lens' DeploymentInfo (Maybe Text) diDeploymentGroupName = lens _diDeploymentGroupName (\ s a -> s{_diDeploymentGroupName = a}); --- | If true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event.------ If false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed.+-- | If true, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will not be considered to have failed at that point and will continue on to the BeforeInstall deployment lifecycle event. If false or not specified, then if the deployment causes the ApplicationStop deployment lifecycle event to an instance to fail, the deployment to that instance will stop, and the deployment to that instance will be considered to have failed. diIgnoreApplicationStopFailures :: Lens' DeploymentInfo (Maybe Bool) diIgnoreApplicationStopFailures = lens _diIgnoreApplicationStopFailures (\ s a -> s{_diIgnoreApplicationStopFailures = a}); @@ -446,9 +643,12 @@                      <*> (x .:? "errorInformation")                      <*> (x .:? "deploymentOverview")                      <*> (x .:? "applicationName")+                     <*> (x .:? "rollbackInfo")                      <*> (x .:? "revision")                      <*> (x .:? "description")                      <*> (x .:? "createTime")+                     <*> (x .:? "autoRollbackConfiguration")+                     <*> (x .:? "updateOutdatedInstancesOnly")                      <*> (x .:? "deploymentGroupName")                      <*> (x .:? "ignoreApplicationStopFailures")) @@ -458,6 +658,8 @@  -- | Information about the deployment status of the instances in the deployment. --+--+-- -- /See:/ 'deploymentOverview' smart constructor. data DeploymentOverview = DeploymentOverview'     { _doPending    :: !(Maybe Integer)@@ -471,15 +673,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'doPending'+-- * 'doPending' - The number of instances in the deployment in a pending state. ----- * 'doSkipped'+-- * 'doSkipped' - The number of instances in the deployment in a skipped state. ----- * 'doInProgress'+-- * 'doInProgress' - The number of instances in which the deployment is in progress. ----- * 'doSucceeded'+-- * 'doSucceeded' - The number of instances in the deployment to which revisions have been successfully deployed. ----- * 'doFailed'+-- * 'doFailed' - The number of instances in the deployment in a failed state. deploymentOverview     :: DeploymentOverview deploymentOverview =@@ -527,6 +729,8 @@  -- | Diagnostic information about executable scripts that are part of a deployment. --+--+-- -- /See:/ 'diagnostics' smart constructor. data Diagnostics = Diagnostics'     { _dLogTail    :: !(Maybe Text)@@ -539,13 +743,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dLogTail'+-- * 'dLogTail' - The last portion of the diagnostic log. If available, AWS CodeDeploy returns up to the last 4 KB of the diagnostic log. ----- * 'dErrorCode'+-- * 'dErrorCode' - The associated error code:     * Success: The specified script ran.     * ScriptMissing: The specified script was not found in the specified location.     * ScriptNotExecutable: The specified script is not a recognized executable file type.     * ScriptTimedOut: The specified script did not finish running in the specified time period.     * ScriptFailed: The specified script failed to run as expected.     * UnknownError: The specified script did not run for an unknown reason. ----- * 'dScriptName'+-- * 'dScriptName' - The name of the script. ----- * 'dMessage'+-- * 'dMessage' - The message associated with the error. diagnostics     :: Diagnostics diagnostics =@@ -556,20 +760,11 @@     , _dMessage = Nothing     } --- | The last portion of the diagnostic log.------ If available, AWS CodeDeploy returns up to the last 4 KB of the diagnostic log.+-- | The last portion of the diagnostic log. If available, AWS CodeDeploy returns up to the last 4 KB of the diagnostic log. dLogTail :: Lens' Diagnostics (Maybe Text) dLogTail = lens _dLogTail (\ s a -> s{_dLogTail = a}); --- | The associated error code:------ -   Success: The specified script ran.--- -   ScriptMissing: The specified script was not found in the specified location.--- -   ScriptNotExecutable: The specified script is not a recognized executable file type.--- -   ScriptTimedOut: The specified script did not finish running in the specified time period.--- -   ScriptFailed: The specified script failed to run as expected.--- -   UnknownError: The specified script did not run for an unknown reason.+-- | The associated error code:     * Success: The specified script ran.     * ScriptMissing: The specified script was not found in the specified location.     * ScriptNotExecutable: The specified script is not a recognized executable file type.     * ScriptTimedOut: The specified script did not finish running in the specified time period.     * ScriptFailed: The specified script failed to run as expected.     * UnknownError: The specified script did not run for an unknown reason. dErrorCode :: Lens' Diagnostics (Maybe LifecycleErrorCode) dErrorCode = lens _dErrorCode (\ s a -> s{_dErrorCode = a}); @@ -596,6 +791,8 @@  -- | Information about a tag filter. --+--+-- -- /See:/ 'ec2TagFilter' smart constructor. data EC2TagFilter = EC2TagFilter'     { _etfValue :: !(Maybe Text)@@ -607,11 +804,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'etfValue'+-- * 'etfValue' - The tag filter value. ----- * 'etfKey'+-- * 'etfKey' - The tag filter key. ----- * 'etfType'+-- * 'etfType' - The tag filter type:     * KEY_ONLY: Key only.     * VALUE_ONLY: Value only.     * KEY_AND_VALUE: Key and value. ec2TagFilter     :: EC2TagFilter ec2TagFilter =@@ -629,11 +826,7 @@ etfKey :: Lens' EC2TagFilter (Maybe Text) etfKey = lens _etfKey (\ s a -> s{_etfKey = a}); --- | The tag filter type:------ -   KEY_ONLY: Key only.--- -   VALUE_ONLY: Value only.--- -   KEY_AND_VALUE: Key and value.+-- | The tag filter type:     * KEY_ONLY: Key only.     * VALUE_ONLY: Value only.     * KEY_AND_VALUE: Key and value. etfType :: Lens' EC2TagFilter (Maybe EC2TagFilterType) etfType = lens _etfType (\ s a -> s{_etfType = a}); @@ -657,6 +850,8 @@  -- | Information about a deployment error. --+--+-- -- /See:/ 'errorInformation' smart constructor. data ErrorInformation = ErrorInformation'     { _eiCode    :: !(Maybe DeployErrorCode)@@ -667,9 +862,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'eiCode'+-- * '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. ----- * 'eiMessage'+-- * 'eiMessage' - An accompanying error message. errorInformation     :: ErrorInformation errorInformation =@@ -678,21 +873,7 @@     , _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.+-- | 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}); @@ -713,6 +894,8 @@  -- | Information about an application revision. --+--+-- -- /See:/ 'genericRevisionInfo' smart constructor. data GenericRevisionInfo = GenericRevisionInfo'     { _griRegisterTime     :: !(Maybe POSIX)@@ -726,15 +909,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'griRegisterTime'+-- * 'griRegisterTime' - When the revision was registered with AWS CodeDeploy. ----- * 'griFirstUsedTime'+-- * 'griFirstUsedTime' - When the revision was first used by AWS CodeDeploy. ----- * 'griDeploymentGroups'+-- * 'griDeploymentGroups' - The deployment groups for which this is the current target revision. ----- * 'griLastUsedTime'+-- * 'griLastUsedTime' - When the revision was last used by AWS CodeDeploy. ----- * 'griDescription'+-- * 'griDescription' - A comment about the revision. genericRevisionInfo     :: GenericRevisionInfo genericRevisionInfo =@@ -782,6 +965,8 @@  -- | Information about the location of application artifacts stored in GitHub. --+--+-- -- /See:/ 'gitHubLocation' smart constructor. data GitHubLocation = GitHubLocation'     { _ghlCommitId   :: !(Maybe Text)@@ -792,9 +977,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ghlCommitId'+-- * 'ghlCommitId' - The SHA1 commit ID of the GitHub commit that represents the bundled artifacts for the application revision. ----- * 'ghlRepository'+-- * 'ghlRepository' - The GitHub account and repository pair that stores a reference to the commit that represents the bundled artifacts for the application revision.  Specified as account/repository. gitHubLocation     :: GitHubLocation gitHubLocation =@@ -807,9 +992,7 @@ ghlCommitId :: Lens' GitHubLocation (Maybe Text) ghlCommitId = lens _ghlCommitId (\ s a -> s{_ghlCommitId = a}); --- | The GitHub account and repository pair that stores a reference to the commit that represents the bundled artifacts for the application revision.------ Specified as account\/repository.+-- | The GitHub account and repository pair that stores a reference to the commit that represents the bundled artifacts for the application revision.  Specified as account/repository. ghlRepository :: Lens' GitHubLocation (Maybe Text) ghlRepository = lens _ghlRepository (\ s a -> s{_ghlRepository = a}); @@ -833,6 +1016,8 @@  -- | Information about an on-premises instance. --+--+-- -- /See:/ 'instanceInfo' smart constructor. data InstanceInfo = InstanceInfo'     { _iiRegisterTime   :: !(Maybe POSIX)@@ -847,17 +1032,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iiRegisterTime'+-- * 'iiRegisterTime' - The time at which the on-premises instance was registered. ----- * 'iiInstanceARN'+-- * 'iiInstanceARN' - The ARN of the on-premises instance. ----- * 'iiDeregisterTime'+-- * 'iiDeregisterTime' - If the on-premises instance was deregistered, the time at which the on-premises instance was deregistered. ----- * 'iiIamUserARN'+-- * 'iiIamUserARN' - The IAM user ARN associated with the on-premises instance. ----- * 'iiInstanceName'+-- * 'iiInstanceName' - The name of the on-premises instance. ----- * 'iiTags'+-- * 'iiTags' - The tags currently associated with the on-premises instance. instanceInfo     :: InstanceInfo instanceInfo =@@ -911,6 +1096,8 @@  -- | Information about an instance in a deployment. --+--+-- -- /See:/ 'instanceSummary' smart constructor. data InstanceSummary = InstanceSummary'     { _isInstanceId      :: !(Maybe Text)@@ -924,15 +1111,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'isInstanceId'+-- * 'isInstanceId' - The instance ID. ----- * 'isStatus'+-- * 'isStatus' - The deployment status for this instance:     * Pending: The deployment is pending for this instance.     * In Progress: The deployment is in progress for this instance.     * Succeeded: The deployment has succeeded for this instance.     * Failed: The deployment has failed for this instance.     * Skipped: The deployment has been skipped for this instance.     * Unknown: The deployment status is unknown for this instance. ----- * 'isDeploymentId'+-- * 'isDeploymentId' - The deployment ID. ----- * 'isLastUpdatedAt'+-- * 'isLastUpdatedAt' - A timestamp indicating when the instance information was last updated. ----- * 'isLifecycleEvents'+-- * 'isLifecycleEvents' - A list of lifecycle events for this instance. instanceSummary     :: InstanceSummary instanceSummary =@@ -948,14 +1135,7 @@ isInstanceId :: Lens' InstanceSummary (Maybe Text) isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a}); --- | The deployment status for this instance:------ -   Pending: The deployment is pending for this instance.--- -   In Progress: The deployment is in progress for this instance.--- -   Succeeded: The deployment has succeeded for this instance.--- -   Failed: The deployment has failed for this instance.--- -   Skipped: The deployment has been skipped for this instance.--- -   Unknown: The deployment status is unknown for this instance.+-- | The deployment status for this instance:     * Pending: The deployment is pending for this instance.     * In Progress: The deployment is in progress for this instance.     * Succeeded: The deployment has succeeded for this instance.     * Failed: The deployment has failed for this instance.     * Skipped: The deployment has been skipped for this instance.     * Unknown: The deployment status is unknown for this instance. isStatus :: Lens' InstanceSummary (Maybe InstanceStatus) isStatus = lens _isStatus (\ s a -> s{_isStatus = a}); @@ -987,6 +1167,8 @@  -- | Information about a deployment lifecycle event. --+--+-- -- /See:/ 'lifecycleEvent' smart constructor. data LifecycleEvent = LifecycleEvent'     { _leStatus             :: !(Maybe LifecycleEventStatus)@@ -1000,15 +1182,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'leStatus'+-- * 'leStatus' - 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. ----- * 'leLifecycleEventName'+-- * 'leLifecycleEventName' - The deployment lifecycle event name, such as ApplicationStop, BeforeInstall, AfterInstall, ApplicationStart, or ValidateService. ----- * 'leStartTime'+-- * 'leStartTime' - A timestamp indicating when the deployment lifecycle event started. ----- * 'leDiagnostics'+-- * 'leDiagnostics' - Diagnostic information about the deployment lifecycle event. ----- * 'leEndTime'+-- * 'leEndTime' - A timestamp indicating when the deployment lifecycle event ended. lifecycleEvent     :: LifecycleEvent lifecycleEvent =@@ -1020,14 +1202,7 @@     , _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.+-- | The deployment lifecycle event status:     * Pending: The deployment lifecycle event is pending.     * InProgress: The deployment lifecycle event is in progress.     * Succeeded: The deployment lifecycle event ran successfully.     * Failed: The deployment lifecycle event has failed.     * Skipped: The deployment lifecycle event has been skipped.     * Unknown: The deployment lifecycle event is unknown. leStatus :: Lens' LifecycleEvent (Maybe LifecycleEventStatus) leStatus = lens _leStatus (\ s a -> s{_leStatus = a}); @@ -1063,6 +1238,8 @@  -- | Information about minimum healthy instance. --+--+-- -- /See:/ 'minimumHealthyHosts' smart constructor. data MinimumHealthyHosts = MinimumHealthyHosts'     { _mhhValue :: !(Maybe Int)@@ -1073,9 +1250,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mhhValue'+-- * 'mhhValue' - The minimum healthy instance value. ----- * 'mhhType'+-- * '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. minimumHealthyHosts     :: MinimumHealthyHosts minimumHealthyHosts =@@ -1088,14 +1265,7 @@ 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.------ In a call to the get deployment configuration operation, CodeDeployDefault.OneAtATime will return a minimum healthy instance type of MOST_CONCURRENCY and a value of 1. This means a deployment to only one instance at a time. (You cannot set the type to MOST_CONCURRENCY, only to HOST_COUNT or FLEET_PERCENT.) In addition, with CodeDeployDefault.OneAtATime, AWS CodeDeploy will try to ensure that all instances but one are kept in a healthy state during the deployment. Although this allows one instance at a time to be taken offline for a new deployment, it also means that if the deployment to the last instance fails, the overall deployment still succeeds.+-- | 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 :: Lens' MinimumHealthyHosts (Maybe MinimumHealthyHostsType) mhhType = lens _mhhType (\ s a -> s{_mhhType = a}); @@ -1119,6 +1289,8 @@  -- | Information about an application revision. --+--+-- -- /See:/ 'revisionInfo' smart constructor. data RevisionInfo = RevisionInfo'     { _riGenericRevisionInfo :: !(Maybe GenericRevisionInfo)@@ -1129,9 +1301,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'riGenericRevisionInfo'+-- * 'riGenericRevisionInfo' - Undocumented member. ----- * 'riRevisionLocation'+-- * 'riRevisionLocation' - Undocumented member. revisionInfo     :: RevisionInfo revisionInfo =@@ -1162,6 +1334,8 @@  -- | Information about the location of an application revision. --+--+-- -- /See:/ 'revisionLocation' smart constructor. data RevisionLocation = RevisionLocation'     { _rlRevisionType   :: !(Maybe RevisionLocationType)@@ -1173,11 +1347,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rlRevisionType'+-- * 'rlRevisionType' - The type of application revision:     * S3: An application revision stored in Amazon S3.     * GitHub: An application revision stored in GitHub. ----- * 'rlS3Location'+-- * 'rlS3Location' - Undocumented member. ----- * 'rlGitHubLocation'+-- * 'rlGitHubLocation' - Undocumented member. revisionLocation     :: RevisionLocation revisionLocation =@@ -1187,10 +1361,7 @@     , _rlGitHubLocation = Nothing     } --- | The type of application revision:------ -   S3: An application revision stored in Amazon S3.--- -   GitHub: An application revision stored in GitHub.+-- | The type of application revision:     * S3: An application revision stored in Amazon S3.     * GitHub: An application revision stored in GitHub. rlRevisionType :: Lens' RevisionLocation (Maybe RevisionLocationType) rlRevisionType = lens _rlRevisionType (\ s a -> s{_rlRevisionType = a}); @@ -1222,8 +1393,64 @@                   ("s3Location" .=) <$> _rlS3Location,                   ("gitHubLocation" .=) <$> _rlGitHubLocation]) +-- | Information about a deployment rollback.+--+--+--+-- /See:/ 'rollbackInfo' smart constructor.+data RollbackInfo = RollbackInfo'+    { _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.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'riRollbackTriggeringDeploymentId' - The deployment ID of the deployment that was underway and triggered a rollback deployment because it failed or was stopped.+--+-- * 'riRollbackMessage' - Information describing the status of a deployment rollback; for example, whether the deployment can't be rolled back, is in progress, failed, or succeeded.+--+-- * 'riRollbackDeploymentId' - The ID of the deployment rollback.+rollbackInfo+    :: RollbackInfo+rollbackInfo =+    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)+riRollbackTriggeringDeploymentId = lens _riRollbackTriggeringDeploymentId (\ s a -> s{_riRollbackTriggeringDeploymentId = a});++-- | Information describing the status of a deployment rollback; for example, whether the deployment can't be rolled back, is in progress, failed, or succeeded.+riRollbackMessage :: Lens' RollbackInfo (Maybe Text)+riRollbackMessage = lens _riRollbackMessage (\ s a -> s{_riRollbackMessage = a});++-- | The ID of the deployment rollback.+riRollbackDeploymentId :: Lens' RollbackInfo (Maybe Text)+riRollbackDeploymentId = lens _riRollbackDeploymentId (\ s a -> s{_riRollbackDeploymentId = a});++instance FromJSON RollbackInfo where+        parseJSON+          = withObject "RollbackInfo"+              (\ x ->+                 RollbackInfo' <$>+                   (x .:? "rollbackTriggeringDeploymentId") <*>+                     (x .:? "rollbackMessage")+                     <*> (x .:? "rollbackDeploymentId"))++instance Hashable RollbackInfo++instance NFData RollbackInfo+ -- | Information about the location of application artifacts stored in Amazon S3. --+--+-- -- /See:/ 's3Location' smart constructor. data S3Location = S3Location'     { _slBundleType :: !(Maybe BundleType)@@ -1237,15 +1464,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'slBundleType'+-- * 'slBundleType' - 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. ----- * 'slETag'+-- * 'slETag' - The ETag of the Amazon S3 object that represents the bundled artifacts for the application revision. If the ETag is not specified as an input parameter, ETag validation of the object will be skipped. ----- * 'slBucket'+-- * 'slBucket' - The name of the Amazon S3 bucket where the application revision is stored. ----- * 'slKey'+-- * 'slKey' - The name of the Amazon S3 object that represents the bundled artifacts for the application revision. ----- * 'slVersion'+-- * 'slVersion' - A specific version of the Amazon S3 object that represents the bundled artifacts for the application revision. If the version is not specified, the system will use the most recent version by default. s3Location     :: S3Location s3Location =@@ -1257,17 +1484,11 @@     , _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.+-- | The file type of the application revision. Must be one of the following:     * tar: A tar archive file.     * tgz: A compressed tar archive file.     * zip: A zip archive file. slBundleType :: Lens' S3Location (Maybe BundleType) slBundleType = lens _slBundleType (\ s a -> s{_slBundleType = a}); --- | The ETag of the Amazon S3 object that represents the bundled artifacts for the application revision.------ If the ETag is not specified as an input parameter, ETag validation of the object will be skipped.+-- | The ETag of the Amazon S3 object that represents the bundled artifacts for the application revision. If the ETag is not specified as an input parameter, ETag validation of the object will be skipped. slETag :: Lens' S3Location (Maybe Text) slETag = lens _slETag (\ s a -> s{_slETag = a}); @@ -1279,9 +1500,7 @@ slKey :: Lens' S3Location (Maybe Text) slKey = lens _slKey (\ s a -> s{_slKey = a}); --- | A specific version of the Amazon S3 object that represents the bundled artifacts for the application revision.------ If the version is not specified, the system will use the most recent version by default.+-- | A specific version of the Amazon S3 object that represents the bundled artifacts for the application revision. If the version is not specified, the system will use the most recent version by default. slVersion :: Lens' S3Location (Maybe Text) slVersion = lens _slVersion (\ s a -> s{_slVersion = a}); @@ -1310,6 +1529,8 @@  -- | Information about a tag. --+--+-- -- /See:/ 'tag' smart constructor. data Tag = Tag'     { _tagValue :: !(Maybe Text)@@ -1320,9 +1541,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tagValue'+-- * 'tagValue' - The tag's value. ----- * 'tagKey'+-- * 'tagKey' - The tag's key. tag     :: Tag tag =@@ -1331,11 +1552,11 @@     , _tagKey = Nothing     } --- | The tag\'s value.+-- | The tag's value. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); --- | The tag\'s key.+-- | The tag's key. tagKey :: Lens' Tag (Maybe Text) tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); @@ -1356,6 +1577,8 @@  -- | Information about an on-premises instance tag filter. --+--+-- -- /See:/ 'tagFilter' smart constructor. data TagFilter = TagFilter'     { _tfValue :: !(Maybe Text)@@ -1367,11 +1590,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tfValue'+-- * 'tfValue' - The on-premises instance tag filter value. ----- * 'tfKey'+-- * 'tfKey' - The on-premises instance tag filter key. ----- * 'tfType'+-- * '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 =@@ -1389,11 +1612,7 @@ tfKey :: Lens' TagFilter (Maybe Text) tfKey = lens _tfKey (\ s a -> s{_tfKey = a}); --- | The on-premises instance tag filter type:------ -   KEY_ONLY: Key only.--- -   VALUE_ONLY: Value only.--- -   KEY_AND_VALUE: Key and value.+-- | The on-premises instance tag filter type:     * KEY_ONLY: Key only.     * VALUE_ONLY: Value only.     * KEY_AND_VALUE: Key and value. tfType :: Lens' TagFilter (Maybe TagFilterType) tfType = lens _tfType (\ s a -> s{_tfType = a}); @@ -1417,6 +1636,8 @@  -- | Information about a time range. --+--+-- -- /See:/ 'timeRange' smart constructor. data TimeRange = TimeRange'     { _trStart :: !(Maybe POSIX)@@ -1427,9 +1648,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'trStart'+-- * 'trStart' - The start time of the time range. ----- * 'trEnd'+-- * 'trEnd' - The end time of the time range. timeRange     :: TimeRange timeRange =@@ -1439,14 +1660,10 @@     }  -- | The start time of the time range.------ Specify null to leave the start time open-ended. trStart :: Lens' TimeRange (Maybe UTCTime) trStart = lens _trStart (\ s a -> s{_trStart = a}) . mapping _Time;  -- | The end time of the time range.------ Specify null to leave the end time open-ended. trEnd :: Lens' TimeRange (Maybe UTCTime) trEnd = lens _trEnd (\ s a -> s{_trEnd = a}) . mapping _Time; @@ -1462,6 +1679,8 @@  -- | Information about notification triggers for the deployment group. --+--+-- -- /See:/ 'triggerConfig' smart constructor. data TriggerConfig = TriggerConfig'     { _tcTriggerName      :: !(Maybe Text)@@ -1473,11 +1692,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tcTriggerName'+-- * 'tcTriggerName' - The name of the notification trigger. ----- * 'tcTriggerEvents'+-- * 'tcTriggerEvents' - The event type or types for which notifications are triggered. ----- * 'tcTriggerTargetARN'+-- * 'tcTriggerTargetARN' - The ARN of the Amazon Simple Notification Service topic through which notifications about deployment or instance events are sent. triggerConfig     :: TriggerConfig triggerConfig =@@ -1492,16 +1711,6 @@ tcTriggerName = lens _tcTriggerName (\ s a -> s{_tcTriggerName = a});  -- | The event type or types for which notifications are triggered.------ The following event type values are supported:------ -   DEPLOYMENT_START--- -   DEPLOYMENT_SUCCESS--- -   DEPLOYMENT_FAILURE--- -   DEPLOYMENT_STOP--- -   INSTANCE_START--- -   INSTANCE_SUCCESS--- -   INSTANCE_FAILURE tcTriggerEvents :: Lens' TriggerConfig [TriggerEventType] tcTriggerEvents = lens _tcTriggerEvents (\ s a -> s{_tcTriggerEvents = a}) . _Default . _Coerce; 

@@ -48,6 +48,38 @@ instance ToJSON ApplicationRevisionSortBy where     toJSON = toJSONText +data AutoRollbackEvent+    = AREDeploymentFailure+    | AREDeploymentStopOnAlarm+    | AREDeploymentStopOnRequest+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText AutoRollbackEvent where+    parser = takeLowerText >>= \case+        "deployment_failure" -> pure AREDeploymentFailure+        "deployment_stop_on_alarm" -> pure AREDeploymentStopOnAlarm+        "deployment_stop_on_request" -> pure AREDeploymentStopOnRequest+        e -> fromTextError $ "Failure parsing AutoRollbackEvent from value: '" <> e+           <> "'. Accepted values: deployment_failure, deployment_stop_on_alarm, deployment_stop_on_request"++instance ToText AutoRollbackEvent where+    toText = \case+        AREDeploymentFailure -> "DEPLOYMENT_FAILURE"+        AREDeploymentStopOnAlarm -> "DEPLOYMENT_STOP_ON_ALARM"+        AREDeploymentStopOnRequest -> "DEPLOYMENT_STOP_ON_REQUEST"++instance Hashable     AutoRollbackEvent+instance NFData       AutoRollbackEvent+instance ToByteString AutoRollbackEvent+instance ToQuery      AutoRollbackEvent+instance ToHeader     AutoRollbackEvent++instance ToJSON AutoRollbackEvent where+    toJSON = toJSONText++instance FromJSON AutoRollbackEvent where+    parseJSON = parseJSONText "AutoRollbackEvent"+ data BundleType     = TAR     | TGZ@@ -81,13 +113,18 @@     parseJSON = parseJSONText "BundleType"  data DeployErrorCode-    = ApplicationMissing+    = AgentIssue+    | AlarmActive+    | ApplicationMissing+    | AutoScalingConfiguration+    | AutoScalingIAMRolePermissions     | DeploymentGroupMissing     | HealthConstraints     | HealthConstraintsInvalid     | IAMRoleMissing     | IAMRolePermissions     | InternalError+    | ManualStop     | NoEC2Subscription     | NoInstances     | OverMaxInstances@@ -98,13 +135,18 @@  instance FromText DeployErrorCode where     parser = takeLowerText >>= \case+        "agent_issue" -> pure AgentIssue+        "alarm_active" -> pure AlarmActive         "application_missing" -> pure ApplicationMissing+        "auto_scaling_configuration" -> pure AutoScalingConfiguration+        "auto_scaling_iam_role_permissions" -> pure AutoScalingIAMRolePermissions         "deployment_group_missing" -> pure DeploymentGroupMissing         "health_constraints" -> pure HealthConstraints         "health_constraints_invalid" -> pure HealthConstraintsInvalid         "iam_role_missing" -> pure IAMRoleMissing         "iam_role_permissions" -> pure IAMRolePermissions         "internal_error" -> pure InternalError+        "manual_stop" -> pure ManualStop         "no_ec2_subscription" -> pure NoEC2Subscription         "no_instances" -> pure NoInstances         "over_max_instances" -> pure OverMaxInstances@@ -112,17 +154,22 @@         "throttled" -> pure Throttled         "timeout" -> pure Timeout         e -> fromTextError $ "Failure parsing DeployErrorCode from value: '" <> e-           <> "'. Accepted values: application_missing, deployment_group_missing, health_constraints, health_constraints_invalid, iam_role_missing, iam_role_permissions, internal_error, no_ec2_subscription, no_instances, over_max_instances, revision_missing, throttled, timeout"+           <> "'. Accepted values: agent_issue, alarm_active, application_missing, auto_scaling_configuration, auto_scaling_iam_role_permissions, deployment_group_missing, health_constraints, health_constraints_invalid, iam_role_missing, iam_role_permissions, internal_error, manual_stop, no_ec2_subscription, no_instances, over_max_instances, revision_missing, throttled, timeout"  instance ToText DeployErrorCode where     toText = \case+        AgentIssue -> "AGENT_ISSUE"+        AlarmActive -> "ALARM_ACTIVE"         ApplicationMissing -> "APPLICATION_MISSING"+        AutoScalingConfiguration -> "AUTO_SCALING_CONFIGURATION"+        AutoScalingIAMRolePermissions -> "AUTO_SCALING_IAM_ROLE_PERMISSIONS"         DeploymentGroupMissing -> "DEPLOYMENT_GROUP_MISSING"         HealthConstraints -> "HEALTH_CONSTRAINTS"         HealthConstraintsInvalid -> "HEALTH_CONSTRAINTS_INVALID"         IAMRoleMissing -> "IAM_ROLE_MISSING"         IAMRolePermissions -> "IAM_ROLE_PERMISSIONS"         InternalError -> "INTERNAL_ERROR"+        ManualStop -> "MANUAL_STOP"         NoEC2Subscription -> "NO_EC2_SUBSCRIPTION"         NoInstances -> "NO_INSTANCES"         OverMaxInstances -> "OVER_MAX_INSTANCES"@@ -141,19 +188,22 @@  data DeploymentCreator     = Autoscaling+    | CodeDeployRollback     | User     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText DeploymentCreator where     parser = takeLowerText >>= \case         "autoscaling" -> pure Autoscaling+        "codedeployrollback" -> pure CodeDeployRollback         "user" -> pure User         e -> fromTextError $ "Failure parsing DeploymentCreator from value: '" <> e-           <> "'. Accepted values: autoscaling, user"+           <> "'. Accepted values: autoscaling, codedeployrollback, user"  instance ToText DeploymentCreator where     toText = \case         Autoscaling -> "autoscaling"+        CodeDeployRollback -> "codeDeployRollback"         User -> "user"  instance Hashable     DeploymentCreator@@ -554,6 +604,7 @@  data TriggerEventType     = DeploymentFailure+    | DeploymentRollback     | DeploymentStart     | DeploymentStop     | DeploymentSuccess@@ -565,6 +616,7 @@ instance FromText TriggerEventType where     parser = takeLowerText >>= \case         "deploymentfailure" -> pure DeploymentFailure+        "deploymentrollback" -> pure DeploymentRollback         "deploymentstart" -> pure DeploymentStart         "deploymentstop" -> pure DeploymentStop         "deploymentsuccess" -> pure DeploymentSuccess@@ -572,11 +624,12 @@         "instancestart" -> pure InstanceStart         "instancesuccess" -> pure InstanceSuccess         e -> fromTextError $ "Failure parsing TriggerEventType from value: '" <> e-           <> "'. Accepted values: deploymentfailure, deploymentstart, deploymentstop, deploymentsuccess, instancefailure, instancestart, instancesuccess"+           <> "'. Accepted values: deploymentfailure, deploymentrollback, deploymentstart, deploymentstop, deploymentsuccess, instancefailure, instancestart, instancesuccess"  instance ToText TriggerEventType where     toText = \case         DeploymentFailure -> "DeploymentFailure"+        DeploymentRollback -> "DeploymentRollback"         DeploymentStart -> "DeploymentStart"         DeploymentStop -> "DeploymentStop"         DeploymentSuccess -> "DeploymentSuccess"

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Changes the name of an application.+--+-- module Network.AWS.CodeDeploy.UpdateApplication     (     -- * Creating a Request@@ -42,6 +44,8 @@  -- | Represents the input of an update application operation. --+--+-- -- /See:/ 'updateApplication' smart constructor. data UpdateApplication = UpdateApplication'     { _uaNewApplicationName :: !(Maybe Text)@@ -52,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uaNewApplicationName'+-- * 'uaNewApplicationName' - The new name to give the application. ----- * 'uaApplicationName'+-- * 'uaApplicationName' - The current name of the application you want to change. updateApplication     :: UpdateApplication updateApplication =

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Changes information about a deployment group.+--+-- module Network.AWS.CodeDeploy.UpdateDeploymentGroup     (     -- * Creating a Request@@ -30,8 +32,10 @@     , udgNewDeploymentGroupName     , udgEc2TagFilters     , udgOnPremisesInstanceTagFilters+    , udgAlarmConfiguration     , udgTriggerConfigurations     , udgAutoScalingGroups+    , udgAutoRollbackConfiguration     , udgApplicationName     , udgCurrentDeploymentGroupName @@ -52,6 +56,8 @@  -- | Represents the input of an update deployment group operation. --+--+-- -- /See:/ 'updateDeploymentGroup' smart constructor. data UpdateDeploymentGroup = UpdateDeploymentGroup'     { _udgServiceRoleARN               :: !(Maybe Text)@@ -59,8 +65,10 @@     , _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)@@ -69,23 +77,27 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udgServiceRoleARN'+-- * 'udgServiceRoleARN' - A replacement ARN for the service role, if you want to change it. ----- * 'udgDeploymentConfigName'+-- * 'udgDeploymentConfigName' - The replacement deployment configuration name to use, if you want to change it. ----- * 'udgNewDeploymentGroupName'+-- * 'udgNewDeploymentGroupName' - The new name of the deployment group, if you want to change it. ----- * 'udgEc2TagFilters'+-- * '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. ----- * 'udgOnPremisesInstanceTagFilters'+-- * '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. ----- * 'udgTriggerConfigurations'+-- * 'udgAlarmConfiguration' - Information to add or change about Amazon CloudWatch alarms when the deployment group is updated. ----- * 'udgAutoScalingGroups'+-- * 'udgTriggerConfigurations' - Information about triggers to change when the deployment group is updated. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-edit.html Modify Triggers in an AWS CodeDeploy Deployment Group> in the AWS CodeDeploy User Guide. ----- * 'udgApplicationName'+-- * '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. ----- * 'udgCurrentDeploymentGroupName'+-- * '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.+--+-- * 'udgCurrentDeploymentGroupName' - The current name of the deployment group. updateDeploymentGroup     :: Text -- ^ 'udgApplicationName'     -> Text -- ^ 'udgCurrentDeploymentGroupName'@@ -97,8 +109,10 @@     , _udgNewDeploymentGroupName = Nothing     , _udgEc2TagFilters = Nothing     , _udgOnPremisesInstanceTagFilters = Nothing+    , _udgAlarmConfiguration = Nothing     , _udgTriggerConfigurations = Nothing     , _udgAutoScalingGroups = Nothing+    , _udgAutoRollbackConfiguration = Nothing     , _udgApplicationName = pApplicationName_     , _udgCurrentDeploymentGroupName = pCurrentDeploymentGroupName_     }@@ -123,7 +137,11 @@ udgOnPremisesInstanceTagFilters :: Lens' UpdateDeploymentGroup [TagFilter] udgOnPremisesInstanceTagFilters = lens _udgOnPremisesInstanceTagFilters (\ s a -> s{_udgOnPremisesInstanceTagFilters = a}) . _Default . _Coerce; --- | Information about triggers to change when the deployment group is updated.+-- | Information to add or change about Amazon CloudWatch alarms when the deployment group is updated.+udgAlarmConfiguration :: Lens' UpdateDeploymentGroup (Maybe AlarmConfiguration)+udgAlarmConfiguration = lens _udgAlarmConfiguration (\ s a -> s{_udgAlarmConfiguration = a});++-- | Information about triggers to change when the deployment group is updated. For examples, see <http://docs.aws.amazon.com/codedeploy/latest/userguide/how-to-notify-edit.html Modify Triggers in an AWS CodeDeploy Deployment Group> in the AWS CodeDeploy User Guide. udgTriggerConfigurations :: Lens' UpdateDeploymentGroup [TriggerConfig] udgTriggerConfigurations = lens _udgTriggerConfigurations (\ s a -> s{_udgTriggerConfigurations = a}) . _Default . _Coerce; @@ -131,6 +149,10 @@ udgAutoScalingGroups :: Lens' UpdateDeploymentGroup [Text] udgAutoScalingGroups = lens _udgAutoScalingGroups (\ s a -> s{_udgAutoScalingGroups = a}) . _Default . _Coerce; +-- | 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});+ -- | The application name corresponding to the deployment group to update. udgApplicationName :: Lens' UpdateDeploymentGroup Text udgApplicationName = lens _udgApplicationName (\ s a -> s{_udgApplicationName = a});@@ -176,9 +198,12 @@                   ("ec2TagFilters" .=) <$> _udgEc2TagFilters,                   ("onPremisesInstanceTagFilters" .=) <$>                     _udgOnPremisesInstanceTagFilters,+                  ("alarmConfiguration" .=) <$> _udgAlarmConfiguration,                   ("triggerConfigurations" .=) <$>                     _udgTriggerConfigurations,                   ("autoScalingGroups" .=) <$> _udgAutoScalingGroups,+                  ("autoRollbackConfiguration" .=) <$>+                    _udgAutoRollbackConfiguration,                   Just ("applicationName" .= _udgApplicationName),                   Just                     ("currentDeploymentGroupName" .=@@ -192,6 +217,8 @@  -- | Represents the output of an update deployment group operation. --+--+-- -- /See:/ 'updateDeploymentGroupResponse' smart constructor. data UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse'     { _udgrsHooksNotCleanedUp :: !(Maybe [AutoScalingGroup])@@ -202,9 +229,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'udgrsHooksNotCleanedUp'+-- * 'udgrsHooksNotCleanedUp' - 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. ----- * 'udgrsResponseStatus'+-- * 'udgrsResponseStatus' - -- | The response status code. updateDeploymentGroupResponse     :: Int -- ^ 'udgrsResponseStatus'     -> UpdateDeploymentGroupResponse@@ -218,7 +245,7 @@ udgrsHooksNotCleanedUp :: Lens' UpdateDeploymentGroupResponse [AutoScalingGroup] udgrsHooksNotCleanedUp = lens _udgrsHooksNotCleanedUp (\ s a -> s{_udgrsHooksNotCleanedUp = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. udgrsResponseStatus :: Lens' UpdateDeploymentGroupResponse Int udgrsResponseStatus = lens _udgrsResponseStatus (\ s a -> s{_udgrsResponseStatus = a}); 

@@ -21,8 +21,7 @@ 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.+-- | 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