packages feed

amazonka-codedeploy 0.0.1 → 0.0.2

raw patch · 20 files changed

+382/−310 lines, 20 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,13 @@  ## Description -Amazon CodeDeploy is a service that automates code deployments to Amazon EC2 instances. Amazon CodeDeploy makes it easier for you to rapidly release new features, helps you avoid downtime during deployment, and handles the complexity of updating your applications. You can use Amazon CodeDeploy to automate deployments, eliminating the need for error-prone manual operations, and the service scales with your infrastructure so you can easily deploy to one EC2 instance or thousands.+    Amazon CodeDeploy is a service that automates code deployments to Amazon EC2+    instances. Amazon CodeDeploy makes it easier for you to rapidly release new+    features, helps you avoid downtime during deployment, and handles the+    complexity of updating your applications. You can use Amazon CodeDeploy to+    automate deployments, eliminating the need for error-prone manual operations,+    and the service scales with your infrastructure so you can easily deploy to+    one EC2 instance or thousands.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-codedeploy) and [AWS API Reference](http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html).
amazonka-codedeploy.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-codedeploy-version:               0.0.1+version:               0.0.2 synopsis:              Amazon CodeDeploy SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -13,14 +13,13 @@ cabal-version:         >= 1.10  description:-    Amazon CodeDeploy is a service that automates code deployments to-    Amazon EC2 instances. Amazon CodeDeploy makes it easier for you to-    rapidly release new features, helps you avoid downtime during-    deployment, and handles the complexity of updating your applications.-    You can use Amazon CodeDeploy to automate deployments, eliminating the-    need for error-prone manual operations, and the service scales with-    your infrastructure so you can easily deploy to one EC2 instance or-    thousands.+    Amazon CodeDeploy is a service that automates code deployments to Amazon EC2+    instances. Amazon CodeDeploy makes it easier for you to rapidly release new+    features, helps you avoid downtime during deployment, and handles the+    complexity of updating your applications. You can use Amazon CodeDeploy to+    automate deployments, eliminating the need for error-prone manual operations,+    and the service scales with your infrastructure so you can easily deploy to+    one EC2 instance or thousands.     .     /See:/ <http://docs.aws.amazon.com/codedeploy/latest/APIReference/Welcome.html AWS API Reference>     .@@ -69,5 +68,5 @@     other-modules:      build-depends:-          amazonka-core == 0.0.1.*+          amazonka-core == 0.0.2.*         , base          >= 4.7     && < 5
gen/Network/AWS/CodeDeploy.hs view
@@ -8,13 +8,13 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Amazon CodeDeploy is a service that automates code deployments to Amazon--- EC2 instances. Amazon CodeDeploy makes it easier for you to rapidly release--- new features, helps you avoid downtime during deployment, and handles the+-- | Amazon CodeDeploy is a service that automates code deployments to Amazon EC2+-- instances. Amazon CodeDeploy makes it easier for you to rapidly release new+-- features, helps you avoid downtime during deployment, and handles the -- complexity of updating your applications. You can use Amazon CodeDeploy to--- automate deployments, eliminating the need for error-prone manual--- operations, and the service scales with your infrastructure so you can--- easily deploy to one EC2 instance or thousands.+-- automate deployments, eliminating the need for error-prone manual operations,+-- and the service scales with your infrastructure so you can easily deploy to+-- one EC2 instance or thousands. module Network.AWS.CodeDeploy     ( module Network.AWS.CodeDeploy.BatchGetApplications     , module Network.AWS.CodeDeploy.BatchGetDeployments
gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs view
@@ -66,8 +66,7 @@     { _bgdDeploymentIds = mempty     } --- | A list of deployment IDs, with multiple deployment IDs separated by--- spaces.+-- | A list of deployment IDs, with multiple deployment IDs separated by spaces. bgdDeploymentIds :: Lens' BatchGetDeployments [Text] bgdDeploymentIds = lens _bgdDeploymentIds (\s a -> s { _bgdDeploymentIds = a }) . _List
gen/Network/AWS/CodeDeploy/CreateDeployment.hs view
@@ -92,11 +92,12 @@ cdApplicationName =     lens _cdApplicationName (\s a -> s { _cdApplicationName = a }) --- | The name of an existing deployment configuration within the AWS user--- 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 an existing deployment configuration within the AWS user 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 })@@ -110,21 +111,22 @@ cdDescription :: Lens' CreateDeployment (Maybe Text) cdDescription = lens _cdDescription (\s a -> s { _cdDescription = a }) --- | If set to true, then if the deployment causes the ApplicationStop--- deployment lifecycle event to fail to a specific instance, the deployment--- will not be considered to have failed to that instance 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 a specific--- instance, the deployment will stop to that instance, 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 fail to a specific instance, the deployment will not be+-- considered to have failed to that instance 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 a specific instance,+-- the deployment will stop to that instance, 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 }) --- | The type of revision to deploy, along with information about the--- revision's location.+-- | The type of revision to deploy, along with information about the revision's+-- location. cdRevision :: Lens' CreateDeployment (Maybe RevisionLocation) cdRevision = lens _cdRevision (\s a -> s { _cdRevision = a })
gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs view
@@ -71,17 +71,21 @@ cdcDeploymentConfigName =     lens _cdcDeploymentConfigName (\s a -> s { _cdcDeploymentConfigName = a }) --- | The minimum number of healthy instances that should be available at any--- time during the deployment. There are two parameters expected in the--- input: type and value. The type parameter takes either of the following--- values: HOST_COUNT: The value parameter represents the minimum number of--- healthy instances, as an absolute value. FLEET_PERCENT: The value--- parameter represents the minimum number of healthy instances, as a--- percentage of the total number of instances in the deployment. If you--- specify FLEET_PERCENT, then at the start of the deployment AWS CodeDeploy--- converts the percentage to the equivalent number of instances and rounds--- fractional instances up. The value parameter takes an integer. For--- example, to set a minimum of 95% healthy instances, specify a type of+-- | 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,+-- then at the start of the deployment AWS CodeDeploy converts the percentage to+-- the equivalent number of instances and rounds fractional instances up.  The+-- value parameter takes an integer.+--+-- For example, to set a minimum of 95% healthy instances, specify a type of -- FLEET_PERCENT and a value of 95. cdcMinimumHealthyHosts :: Lens' CreateDeploymentConfig (Maybe MinimumHealthyHosts) cdcMinimumHealthyHosts =
gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs view
@@ -99,36 +99,35 @@     lens _cdgAutoScalingGroups (\s a -> s { _cdgAutoScalingGroups = a })         . _List --- | If specified, the deployment configuration name must be one of the--- predefined values, or it can be a custom deployment configuration:--- CodeDeployDefault.AllAtOnce deploys an application revision to up to all--- of the Amazon EC2 instances at once. The overall deployment succeeds if--- the application revision deploys to at least one of the instances. The--- overall deployment fails after the application revision fails to deploy--- to all of the instances. For example, for 9 instances, deploy to up to--- all 9 instances at once. The overall deployment succeeds if any of the 9--- instances is successfully deployed to, and it fails if all 9 instances--- fail to be deployed to. 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 deploys to at--- least half of the instances (with fractions rounded up); otherwise, the--- deployment fails. For example, for 9 instances, deploy to up to 4--- instances at a time. The overall deployment succeeds if 5 or more--- instances are successfully deployed to; otherwise, the deployment fails.--- Note that the deployment may successfully deploy to some instances, even--- if the overall deployment fails. CodeDeployDefault.OneAtATime deploys the--- application revision to only one of the instances at a time. The overall--- deployment succeeds if the application revision deploys to all of the--- instances. The overall deployment fails after the application revision--- first fails to deploy to any one instance. For example, for 9 instances,--- deploy to one instance at a time. The overall deployment succeeds if all--- 9 instances are successfully deployed to, and it fails if any of one of--- the 9 instances fail to be deployed to. Note that the deployment may--- successfully deploy to some instances, even if the overall deployment--- fails. This is the default deployment configuration if a configuration--- isn't specified for either the deployment or the deployment group. To--- create a custom deployment configuration, call the create deployment--- configuration operation.+-- | If specified, the deployment configuration name must be one of the predefined+-- values, or it can be a custom deployment configuration:+--+-- CodeDeployDefault.AllAtOnce deploys an application revision to up to all of+-- the Amazon EC2 instances at once. The overall deployment succeeds if the+-- application revision deploys to at least one of the instances. The overall+-- deployment fails after the application revision fails to deploy to all of the+-- instances. For example, for 9 instances, deploy to up to all 9 instances at+-- once. The overall deployment succeeds if any of the 9 instances is+-- successfully deployed to, and it fails if all 9 instances fail to be deployed+-- to. 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 deploys to at least half of the instances (with+-- fractions rounded up); otherwise, the deployment fails. For example, for 9+-- instances, deploy to up to 4 instances at a time. The overall deployment+-- succeeds if 5 or more instances are successfully deployed to; otherwise, the+-- deployment fails. Note that the deployment may successfully deploy to some+-- instances, even if the overall deployment fails. CodeDeployDefault.OneAtATime+-- deploys the application revision to only one of the instances at a time. The+-- overall deployment succeeds if the application revision deploys to all of the+-- instances. The overall deployment fails after the application revision first+-- fails to deploy to any one instance. For example, for 9 instances, deploy to+-- one instance at a time. The overall deployment succeeds if all 9 instances+-- are successfully deployed to, and it fails if any of one of the 9 instances+-- fail to be deployed to. Note that the deployment may successfully deploy to+-- some instances, even if the overall deployment fails. This is the default+-- deployment configuration if a configuration isn't specified for either the+-- deployment or the deployment group.  To create a custom deployment+-- configuration, call the create deployment configuration operation. cdgDeploymentConfigName :: Lens' CreateDeploymentGroup (Maybe Text) cdgDeploymentConfigName =     lens _cdgDeploymentConfigName (\s a -> s { _cdgDeploymentConfigName = a })
gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs view
@@ -20,10 +20,11 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Deletes a deployment configuration. A deployment configuration cannot be--- deleted if it is currently in use. Also, predefined configurations cannot--- be deleted.+-- | Deletes a deployment configuration. --+-- A deployment configuration cannot be deleted if it is currently in use.+-- Also, predefined configurations cannot be deleted.+-- -- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_DeleteDeploymentConfig.html> module Network.AWS.CodeDeploy.DeleteDeploymentConfig     (@@ -61,8 +62,7 @@     { _ddcDeploymentConfigName = p1     } --- | The name of an existing deployment configuration within the AWS user--- account.+-- | The name of an existing deployment configuration within the AWS user account. ddcDeploymentConfigName :: Lens' DeleteDeploymentConfig Text ddcDeploymentConfigName =     lens _ddcDeploymentConfigName (\s a -> s { _ddcDeploymentConfigName = a })
gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs view
@@ -103,8 +103,8 @@ -- contained at least one Auto Scaling group, AWS CodeDeploy successfully -- removed all corresponding Auto Scaling lifecycle event hooks from the -- instances in the Auto Scaling. If the output does contain data, AWS--- CodeDeploy could not remove some Auto Scaling lifecycle event hooks from--- the instances in the Auto Scaling group.+-- CodeDeploy could not remove some Auto Scaling lifecycle event hooks from the+-- instances in the Auto Scaling group. ddgrHooksNotCleanedUp :: Lens' DeleteDeploymentGroupResponse [AutoScalingGroup] ddgrHooksNotCleanedUp =     lens _ddgrHooksNotCleanedUp (\s a -> s { _ddgrHooksNotCleanedUp = a })
gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs view
@@ -74,8 +74,8 @@ garApplicationName =     lens _garApplicationName (\s a -> s { _garApplicationName = a }) --- | Information about the application revision to get, including the--- revision's type and its location.+-- | Information about the application revision to get, including the revision's+-- type and its location. garRevision :: Lens' GetApplicationRevision RevisionLocation garRevision = lens _garRevision (\s a -> s { _garRevision = a }) @@ -107,8 +107,8 @@ garrApplicationName =     lens _garrApplicationName (\s a -> s { _garrApplicationName = a }) --- | Additional information about the revision, including the revision's type--- and its location.+-- | Additional information about the revision, including the revision's type and+-- its location. garrRevision :: Lens' GetApplicationRevisionResponse (Maybe RevisionLocation) garrRevision = lens _garrRevision (\s a -> s { _garrRevision = a })
gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs view
@@ -61,8 +61,7 @@     { _gdcDeploymentConfigName = p1     } --- | The name of an existing deployment configuration within the AWS user--- account.+-- | The name of an existing deployment configuration within the AWS user account. gdcDeploymentConfigName :: Lens' GetDeploymentConfig Text gdcDeploymentConfigName =     lens _gdcDeploymentConfigName (\s a -> s { _gdcDeploymentConfigName = a })
gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs view
@@ -71,8 +71,7 @@ gdiDeploymentId :: Lens' GetDeploymentInstance Text gdiDeploymentId = lens _gdiDeploymentId (\s a -> s { _gdiDeploymentId = a }) --- | The unique ID of an Amazon EC2 instance in the deployment's deployment--- group.+-- | The unique ID of an Amazon EC2 instance in the deployment's deployment group. gdiInstanceId :: Lens' GetDeploymentInstance Text gdiInstanceId = lens _gdiInstanceId (\s a -> s { _gdiInstanceId = a })
gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs view
@@ -99,41 +99,46 @@     lens _larApplicationName (\s a -> s { _larApplicationName = 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,--- regardless of whether they are target revisions of a deployment group.+-- 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, regardless of whether they are target revisions+-- of a deployment group. larDeployed :: Lens' ListApplicationRevisions (Maybe ListStateFilterAction) larDeployed = lens _larDeployed (\s a -> s { _larDeployed = a }) --- | An identifier that was returned from the previous list application--- revisions call, which can be used to return the next set of applications--- in the list.+-- | An identifier that was returned from the previous list application revisions+-- call, which can be used to return the next set of applications in the list. larNextToken :: Lens' ListApplicationRevisions (Maybe Text) larNextToken = lens _larNextToken (\s a -> s { _larNextToken = a }) --- | A specific Amazon S3 bucket name to limit the search for revisions. If--- set to null, then all of the user's buckets will be searched.+-- | A specific Amazon S3 bucket name to limit the search for revisions.+--+-- If set to null, then all of the user's buckets will be searched. larS3Bucket :: Lens' ListApplicationRevisions (Maybe Text) larS3Bucket = lens _larS3Bucket (\s a -> s { _larS3Bucket = a }) --- | A specific key prefix for the set of Amazon S3 objects to limit the--- search for revisions.+-- | A specific key prefix for the set of Amazon S3 objects to limit the search+-- for revisions. larS3KeyPrefix :: Lens' ListApplicationRevisions (Maybe Text) larS3KeyPrefix = lens _larS3KeyPrefix (\s a -> s { _larS3KeyPrefix = a }) --- | The column name to sort the list results by: registerTime: Sort the list--- results by when the revisions were registered with AWS CodeDeploy.--- firstUsedTime: Sort the list results by when the revisions were first--- used by in a deployment. lastUsedTime: Sort the list results by when 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 sort the list results by:+--+-- registerTime: Sort the list results by when the revisions were registered+-- with AWS CodeDeploy. firstUsedTime: Sort the list results by when the+-- revisions were first used by in a deployment. lastUsedTime: Sort the list+-- results by when 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 }) --- | The order to sort the list results by: ascending: Sort the list results--- in ascending order. descending: Sort the list results in descending--- order. If not specified, the results will be sorted in ascending order.+-- | The order to sort the list results by:+--+-- ascending: Sort the list results in ascending order. descending: Sort the+-- list results in 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 })@@ -159,8 +164,8 @@  -- | If the amount of information that is returned is significantly large, an -- identifier will also be returned, which can be used in a subsequent list--- application revisions call to return the next set of application--- revisions in the list.+-- application revisions call to return the next set of application revisions in+-- the list. larrNextToken :: Lens' ListApplicationRevisionsResponse (Maybe Text) larrNextToken = lens _larrNextToken (\s a -> s { _larrNextToken = a })
gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs view
@@ -62,8 +62,8 @@     }  -- | An identifier that was returned from the previous list deployment--- configurations call, which can be used to return the next set of--- deployment configurations in the list.+-- configurations call, which can be used to return the next set of deployment+-- configurations in the list. ldcNextToken :: Lens' ListDeploymentConfigs (Maybe Text) ldcNextToken = lens _ldcNextToken (\s a -> s { _ldcNextToken = a }) @@ -86,8 +86,8 @@     , _ldcrNextToken             = Nothing     } --- | A list of deployment configurations, including the built-in--- configurations such as CodeDeployDefault.OneAtATime.+-- | A list of deployment configurations, including the built-in configurations+-- such as CodeDeployDefault.OneAtATime. ldcrDeploymentConfigsList :: Lens' ListDeploymentConfigsResponse [Text] ldcrDeploymentConfigsList =     lens _ldcrDeploymentConfigsList
gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs view
@@ -20,8 +20,8 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Lists the deployment groups for an application registered within the AWS--- user account.+-- | Lists the deployment groups for an application registered within the AWS user+-- account. -- -- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentGroups.html> module Network.AWS.CodeDeploy.ListDeploymentGroups@@ -76,8 +76,8 @@     lens _ldgApplicationName (\s a -> s { _ldgApplicationName = a })  -- | An identifier that was returned from the previous list deployment groups--- call, which can be used to return the next set of deployment groups in--- the list.+-- call, which can be used to return the next set of deployment groups in the+-- list. ldgNextToken :: Lens' ListDeploymentGroups (Maybe Text) ldgNextToken = lens _ldgNextToken (\s a -> s { _ldgNextToken = a })
gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs view
@@ -20,8 +20,7 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Lists the Amazon EC2 instances for a deployment within the AWS user--- account.+-- | Lists the Amazon EC2 instances for a deployment within the AWS user account. -- -- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeploymentInstances.html> module Network.AWS.CodeDeploy.ListDeploymentInstances@@ -77,22 +76,23 @@ ldiDeploymentId :: Lens' ListDeploymentInstances Text ldiDeploymentId = lens _ldiDeploymentId (\s a -> s { _ldiDeploymentId = a }) --- | A subset of instances to list, by status: Pending: Include in the--- resulting list those instances with pending deployments. InProgress:--- Include in the resulting list those instances with in-progress--- deployments. Succeeded: Include in the resulting list those instances--- with succeeded deployments. Failed: Include in the resulting list those--- instances with failed deployments. Skipped: Include in the resulting list--- those instances with skipped deployments. Unknown: Include in the+-- | A subset of instances to list, by status:+--+-- Pending: Include in the resulting list those instances with pending+-- deployments. InProgress: Include in the resulting list those instances with+-- in-progress deployments. Succeeded: Include in the resulting list those+-- instances with succeeded deployments. Failed: Include in the resulting list+-- those instances with failed deployments. Skipped: Include in the resulting+-- list those instances with skipped deployments. Unknown: Include in the -- resulting list those instances with deployments in an unknown state. ldiInstanceStatusFilter :: Lens' ListDeploymentInstances [InstanceStatus] ldiInstanceStatusFilter =     lens _ldiInstanceStatusFilter (\s a -> s { _ldiInstanceStatusFilter = a })         . _List --- | An identifier that was returned from the previous list deployment--- instances call, which can be used to return the next set of deployment--- instances in the list.+-- | An identifier that was returned from the previous list deployment instances+-- call, which can be used to return the next set of deployment instances in the+-- list. ldiNextToken :: Lens' ListDeploymentInstances (Maybe Text) ldiNextToken = lens _ldiNextToken (\s a -> s { _ldiNextToken = a }) @@ -123,8 +123,8 @@  -- | If the amount of information that is returned is significantly large, an -- identifier will also be returned, which can be used in a subsequent list--- deployment instances call to return the next set of deployment instances--- in the list.+-- deployment instances call to return the next set of deployment instances in+-- the list. ldirNextToken :: Lens' ListDeploymentInstancesResponse (Maybe Text) ldirNextToken = lens _ldirNextToken (\s a -> s { _ldirNextToken = a })
gen/Network/AWS/CodeDeploy/ListDeployments.hs view
@@ -20,8 +20,8 @@ -- Stability   : experimental -- Portability : non-portable (GHC extensions) --- | Lists the deployments under a deployment group for an application--- registered within the AWS user account.+-- | Lists the deployments under a deployment group for an application registered+-- within the AWS user account. -- -- <http://docs.aws.amazon.com/codedeploy/latest/APIReference/API_ListDeployments.html> module Network.AWS.CodeDeploy.ListDeployments@@ -88,8 +88,8 @@ ldApplicationName =     lens _ldApplicationName (\s a -> s { _ldApplicationName = a }) --- | A deployment creation start- and end-time range for returning a subset of--- the list of deployments.+-- | A deployment creation start- and end-time range for returning a subset of the+-- list of deployments. ldCreateTimeRange :: Lens' ListDeployments (Maybe TimeRange) ldCreateTimeRange =     lens _ldCreateTimeRange (\s a -> s { _ldCreateTimeRange = a })@@ -99,12 +99,11 @@ ldDeploymentGroupName =     lens _ldDeploymentGroupName (\s a -> s { _ldDeploymentGroupName = a }) --- | A subset of deployments to list, by status: Created: Include in the+-- | A subset of deployments to list, by status:  Created: Include in the -- resulting list created deployments. Queued: Include in the resulting list--- queued deployments. In Progress: Include in the resulting list--- in-progress deployments. Succeeded: Include in the resulting list--- succeeded deployments. Failed: Include in the resulting list failed--- deployments. Aborted: Include in the resulting list aborted deployments.+-- queued deployments. In Progress: Include in the resulting list in-progress+-- deployments. Succeeded: Include in the resulting list succeeded deployments. Failed: Include in the resulting list failed deployments.+-- Aborted: Include in the resulting list aborted deployments. ldIncludeOnlyStatuses :: Lens' ListDeployments [DeploymentStatus] ldIncludeOnlyStatuses =     lens _ldIncludeOnlyStatuses (\s a -> s { _ldIncludeOnlyStatuses = a })
gen/Network/AWS/CodeDeploy/StopDeployment.hs view
@@ -85,8 +85,10 @@     , _sdrStatusMessage = Nothing     } --- | The status of the stop deployment operation: Pending: The stop operation--- is pending. Succeeded: The stop operation succeeded.+-- | The status of the stop deployment operation:+--+-- Pending: The stop operation is pending. Succeeded: The stop operation+-- succeeded. sdrStatus :: Lens' StopDeploymentResponse (Maybe StopStatus) sdrStatus = lens _sdrStatus (\s a -> s { _sdrStatus = a })
gen/Network/AWS/CodeDeploy/Types.hs view
@@ -240,9 +240,9 @@ data GenericRevisionInfo = GenericRevisionInfo     { _griDeploymentGroups :: List "deploymentGroups" Text     , _griDescription      :: Maybe Text-    , _griFirstUsedTime    :: Maybe RFC822-    , _griLastUsedTime     :: Maybe RFC822-    , _griRegisterTime     :: Maybe RFC822+    , _griFirstUsedTime    :: Maybe ISO8601+    , _griLastUsedTime     :: Maybe ISO8601+    , _griRegisterTime     :: Maybe ISO8601     } deriving (Eq, Ord, Show)  -- | 'GenericRevisionInfo' constructor.@@ -310,7 +310,7 @@ data ApplicationInfo = ApplicationInfo     { _aiApplicationId   :: Maybe Text     , _aiApplicationName :: Maybe Text-    , _aiCreateTime      :: Maybe RFC822+    , _aiCreateTime      :: Maybe ISO8601     , _aiLinkedToGitHub  :: Maybe Bool     } deriving (Eq, Ord, Show) @@ -347,8 +347,8 @@ aiCreateTime :: Lens' ApplicationInfo (Maybe UTCTime) aiCreateTime = lens _aiCreateTime (\s a -> s { _aiCreateTime = a }) . mapping _Time --- | True if the user has authenticated with GitHub for the specified--- application; otherwise, false.+-- | True if the user has authenticated with GitHub for the specified application;+-- otherwise, false. aiLinkedToGitHub :: Lens' ApplicationInfo (Maybe Bool) aiLinkedToGitHub = lens _aiLinkedToGitHub (\s a -> s { _aiLinkedToGitHub = a }) @@ -376,9 +376,12 @@ instance Hashable BundleType  instance FromText BundleType where-    parser = match "tar" Tar-         <|> match "tgz" Tgz-         <|> match "zip" Zip+    parser = takeText >>= \case+        "tar" -> pure Tar+        "tgz" -> pure Tgz+        "zip" -> pure Zip+        e     -> fail $+            "Failure parsing BundleType from " ++ show e  instance ToText BundleType where     toText = \case@@ -397,8 +400,8 @@     toJSON = toJSONText  data TimeRange = TimeRange-    { _trEnd   :: Maybe RFC822-    , _trStart :: Maybe RFC822+    { _trEnd   :: Maybe ISO8601+    , _trStart :: Maybe ISO8601     } deriving (Eq, Ord, Show)  -- | 'TimeRange' constructor.@@ -415,13 +418,15 @@     , _trEnd   = Nothing     } --- | The time range's end time. Specify null to leave the time range's end--- time open-ended.+-- | The time range's end time.+--+-- Specify null to leave the time range's end time open-ended. trEnd :: Lens' TimeRange (Maybe UTCTime) trEnd = lens _trEnd (\s a -> s { _trEnd = a }) . mapping _Time --- | The time range's start time. Specify null to leave the time range's start--- time open-ended.+-- | The time range's start time.+--+-- Specify null to leave the time range's start time open-ended. trStart :: Lens' TimeRange (Maybe UTCTime) trStart = lens _trStart (\s a -> s { _trStart = a }) . mapping _Time @@ -444,8 +449,11 @@ instance Hashable DeploymentCreator  instance FromText DeploymentCreator where-    parser = match "autoscaling" Autoscaling-         <|> match "user"        User+    parser = takeText >>= \case+        "autoscaling" -> pure Autoscaling+        "user"        -> pure User+        e             -> fail $+            "Failure parsing DeploymentCreator from " ++ show e  instance ToText DeploymentCreator where     toText = \case@@ -465,7 +473,7 @@ data InstanceSummary = InstanceSummary     { _isDeploymentId    :: Maybe Text     , _isInstanceId      :: Maybe Text-    , _isLastUpdatedAt   :: Maybe RFC822+    , _isLastUpdatedAt   :: Maybe ISO8601     , _isLifecycleEvents :: List "lifecycleEvents" LifecycleEvent     , _isStatus          :: Maybe InstanceStatus     } deriving (Eq, Show)@@ -511,12 +519,13 @@     lens _isLifecycleEvents (\s a -> s { _isLifecycleEvents = a })         . _List --- | 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 }) @@ -691,9 +700,12 @@ instance Hashable ApplicationRevisionSortBy  instance FromText ApplicationRevisionSortBy where-    parser = match "firstUsedTime" FirstUsedTime-         <|> match "lastUsedTime"  LastUsedTime-         <|> match "registerTime"  RegisterTime+    parser = takeText >>= \case+        "firstUsedTime" -> pure FirstUsedTime+        "lastUsedTime"  -> pure LastUsedTime+        "registerTime"  -> pure RegisterTime+        e               -> fail $+            "Failure parsing ApplicationRevisionSortBy from " ++ show e  instance ToText ApplicationRevisionSortBy where     toText = \case@@ -730,20 +742,21 @@     , _mhhType  = Nothing     } --- | The minimum healthy instances type: HOST_COUNT: The minimum number of--- healthy instances, as an absolute value. FLEET_PERCENT: The minimum--- number of healthy instances, as a percentage of the total number of--- instances in the deployment. For example, for 9 Amazon EC2 instances, if--- a HOST_COUNT of 6 is specified, deploy to up to 3 instances at a time.--- The deployment succeeds if 6 or more instances are successfully deployed--- to; otherwise, the deployment fails. If a FLEET_PERCENT of 40 is--- specified, deploy to up to 5 instances at a time. The deployment succeeds--- if 4 or more instances are successfully deployed to; otherwise, the--- deployment fails. In a call to the get deployment configuration--- operation, CodeDeployDefault.OneAtATime will return a minimum healthy--- instances type of MOST_CONCURRENCY and a value of 1. This means a--- deployment to only one Amazon EC2 instance at a time. (You cannot set the--- type to MOST_CONCURRENCY, only to HOST_COUNT or FLEET_PERCENT.).+-- | The minimum healthy instances type:+--+-- HOST_COUNT: The minimum number of healthy instances, as an absolute value. FLEET_PERCENT: The minimum number of healthy instances, as a percentage of the total number of instances in the deployment.+-- For example, for 9 Amazon EC2 instances, if a HOST_COUNT of 6 is specified,+-- deploy to up to 3 instances at a time. The deployment succeeds if 6 or more+-- instances are successfully deployed to; otherwise, the deployment fails. If a+-- FLEET_PERCENT of 40 is specified, deploy to up to 5 instances at a time. The+-- deployment succeeds if 4 or more instances are successfully deployed to;+-- otherwise, the deployment fails.+--+-- In a call to the get deployment configuration operation,+-- CodeDeployDefault.OneAtATime will return a minimum healthy instances type of+-- MOST_CONCURRENCY and a value of 1. This means a deployment to only one Amazon+-- EC2 instance at a time. (You cannot set the type to MOST_CONCURRENCY, only to+-- HOST_COUNT or FLEET_PERCENT.) mhhType :: Lens' MinimumHealthyHosts (Maybe MinimumHealthyHostsType) mhhType = lens _mhhType (\s a -> s { _mhhType = a }) @@ -771,9 +784,12 @@ instance Hashable ListStateFilterAction  instance FromText ListStateFilterAction where-    parser = match "exclude" Exclude-         <|> match "ignore"  Ignore-         <|> match "include" Include+    parser = takeText >>= \case+        "exclude" -> pure Exclude+        "ignore"  -> pure Ignore+        "include" -> pure Include+        e         -> fail $+            "Failure parsing ListStateFilterAction from " ++ show e  instance ToText ListStateFilterAction where     toText = \case@@ -803,12 +819,15 @@ instance Hashable LifecycleErrorCode  instance FromText LifecycleErrorCode where-    parser = match "ScriptFailed"        ScriptFailed-         <|> match "ScriptMissing"       ScriptMissing-         <|> match "ScriptNotExecutable" ScriptNotExecutable-         <|> match "ScriptTimedOut"      ScriptTimedOut-         <|> match "Success"             Success-         <|> match "UnknownError"        UnknownError+    parser = takeText >>= \case+        "ScriptFailed"        -> pure ScriptFailed+        "ScriptMissing"       -> pure ScriptMissing+        "ScriptNotExecutable" -> pure ScriptNotExecutable+        "ScriptTimedOut"      -> pure ScriptTimedOut+        "Success"             -> pure Success+        "UnknownError"        -> pure UnknownError+        e                     -> fail $+            "Failure parsing LifecycleErrorCode from " ++ show e  instance ToText LifecycleErrorCode where     toText = \case@@ -855,8 +874,10 @@ rlGitHubLocation :: Lens' RevisionLocation (Maybe GitHubLocation) rlGitHubLocation = lens _rlGitHubLocation (\s a -> s { _rlGitHubLocation = a }) --- | The application revision's type: S3: An application revision stored in--- Amazon S3. GitHub: An application revision stored in GitHub.+-- | The application revision's type:+--+-- 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 }) @@ -888,12 +909,15 @@ instance Hashable LifecycleEventStatus  instance FromText LifecycleEventStatus where-    parser = match "Failed"     Failed-         <|> match "InProgress" InProgress-         <|> match "Pending"    Pending-         <|> match "Skipped"    Skipped-         <|> match "Succeeded"  Succeeded-         <|> match "Unknown"    Unknown+    parser = takeText >>= \case+        "Failed"     -> pure Failed+        "InProgress" -> pure InProgress+        "Pending"    -> pure Pending+        "Skipped"    -> pure Skipped+        "Succeeded"  -> pure Succeeded+        "Unknown"    -> pure Unknown+        e            -> fail $+            "Failure parsing LifecycleEventStatus from " ++ show e  instance ToText LifecycleEventStatus where     toText = \case@@ -941,8 +965,9 @@ ectfKey :: Lens' EC2TagFilter (Maybe Text) ectfKey = lens _ectfKey (\s a -> s { _ectfKey = a }) --- | The Amazon EC2 tag filter type: KEY_ONLY: Key only. VALUE_ONLY: Value--- only. KEY_AND_VALUE: Key and value.+-- | The Amazon EC2 tag filter type:+--+-- KEY_ONLY: Key only. VALUE_ONLY: Value only. KEY_AND_VALUE: Key and value. ectfType :: Lens' EC2TagFilter (Maybe EC2TagFilterType) ectfType = lens _ectfType (\s a -> s { _ectfType = a }) @@ -990,13 +1015,13 @@     , _dLogTail    = Nothing     } --- | 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 }) @@ -1035,8 +1060,11 @@ instance Hashable StopStatus  instance FromText StopStatus where-    parser = match "Pending"   SSPending-         <|> match "Succeeded" SSSucceeded+    parser = takeText >>= \case+        "Pending"   -> pure SSPending+        "Succeeded" -> pure SSSucceeded+        e           -> fail $+            "Failure parsing StopStatus from " ++ show e  instance ToText StopStatus where     toText = \case@@ -1072,24 +1100,24 @@     , _eiMessage = Nothing     } --- | The error code: APPLICATION_MISSING: The application was missing. Note--- that this error code will most likely be raised if the application is--- deleted after the deployment is created but before it starts.--- DEPLOYMENT_GROUP_MISSING: The deployment group was missing. Note that--- this error code will most likely be raised if the deployment group is--- deleted after the deployment is created but before it starts.--- REVISION_MISSING: The revision ID was missing. Note that this error code--- will most likely be raised if the revision is deleted after the+-- | The error code:+--+-- APPLICATION_MISSING: The application was missing. Note that this error code+-- will most likely be raised if the application is deleted after the deployment+-- is created but before it starts. DEPLOYMENT_GROUP_MISSING: The deployment+-- group was missing. Note that this error code will most likely be raised if+-- the deployment group is deleted after the deployment is created but before it+-- starts. REVISION_MISSING: The revision ID was missing. Note that this error+-- code will most likely be raised if the revision is deleted after the -- deployment is created but before it starts. IAM_ROLE_MISSING: The service--- role cannot be accessed. IAM_ROLE_PERMISSIONS: The service role does not--- have the correct permissions. OVER_MAX_INSTANCES: The maximum number of--- instances was exceeded. NO_INSTANCES: No instances were specified, or no--- instances can be found. TIMEOUT: The deployment has timed out.--- HEALTH_CONSTRAINTS_INVALID: The revision can never successfully deploy--- under the instance health constraints as specified. HEALTH_CONSTRAINTS:--- The deployment failed on too many instances to be able to successfully--- deploy under the specified instance health constraints. INTERNAL_ERROR:--- There was an internal error.+-- role cannot be accessed. IAM_ROLE_PERMISSIONS: The service role does not have+-- the correct permissions. OVER_MAX_INSTANCES: The maximum number of instances+-- was exceeded. NO_INSTANCES: No instances were specified, or no instances can+-- be found. TIMEOUT: The deployment has timed out. HEALTH_CONSTRAINTS_INVALID:+-- The revision can never successfully deploy under the instance health+-- constraints as specified. HEALTH_CONSTRAINTS: The deployment failed on too+-- many instances to be able to successfully deploy under the specified instance+-- health constraints. INTERNAL_ERROR: There was an internal error. eiCode :: Lens' ErrorInformation (Maybe ErrorCode) eiCode = lens _eiCode (\s a -> s { _eiCode = a }) @@ -1116,8 +1144,11 @@ instance Hashable SortOrder  instance FromText SortOrder where-    parser = match "ascending"  Ascending-         <|> match "descending" Descending+    parser = takeText >>= \case+        "ascending"  -> pure Ascending+        "descending" -> pure Descending+        e            -> fail $+            "Failure parsing SortOrder from " ++ show e  instance ToText SortOrder where     toText = \case@@ -1136,8 +1167,8 @@  data DeploymentInfo = DeploymentInfo     { _diApplicationName               :: Maybe Text-    , _diCompleteTime                  :: Maybe RFC822-    , _diCreateTime                    :: Maybe RFC822+    , _diCompleteTime                  :: Maybe ISO8601+    , _diCreateTime                    :: Maybe ISO8601     , _diCreator                       :: Maybe DeploymentCreator     , _diDeploymentConfigName          :: Maybe Text     , _diDeploymentGroupName           :: Maybe Text@@ -1147,7 +1178,7 @@     , _diErrorInformation              :: Maybe ErrorInformation     , _diIgnoreApplicationStopFailures :: Maybe Bool     , _diRevision                      :: Maybe RevisionLocation-    , _diStartTime                     :: Maybe RFC822+    , _diStartTime                     :: Maybe ISO8601     , _diStatus                        :: Maybe DeploymentStatus     } deriving (Eq, Show) @@ -1214,8 +1245,10 @@ diCreateTime :: Lens' DeploymentInfo (Maybe UTCTime) diCreateTime = lens _diCreateTime (\s a -> s { _diCreateTime = a }) . mapping _Time --- | How the deployment was created: user: A user created the deployment.--- autoscaling: Auto Scaling created the deployment.+-- | How the deployment was created:+--+-- user: A user created the deployment. autoscaling: Auto Scaling created the+-- deployment. diCreator :: Lens' DeploymentInfo (Maybe DeploymentCreator) diCreator = lens _diCreator (\s a -> s { _diCreator = a }) @@ -1248,10 +1281,11 @@     lens _diErrorInformation (\s a -> s { _diErrorInformation = a })  -- | If true, then if the deployment causes the ApplicationStop deployment--- lifecycle event to fail to a specific instance, the deployment will not--- be considered to have failed to that instance 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+-- lifecycle event to fail to a specific instance, the deployment will not be+-- considered to have failed to that instance 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 fail to a specific instance, the deployment -- will stop to that instance, and the deployment to that instance will be -- considered to have failed.@@ -1260,16 +1294,17 @@     lens _diIgnoreApplicationStopFailures         (\s a -> s { _diIgnoreApplicationStopFailures = a }) --- | Information about the location of application artifacts that are stored--- and the service to retrieve them from.+-- | Information about the location of application artifacts that are stored and+-- the service to retrieve them from. diRevision :: Lens' DeploymentInfo (Maybe RevisionLocation) diRevision = lens _diRevision (\s a -> s { _diRevision = a }) --- | A timestamp indicating when the deployment began deploying to the--- deployment group. Note that 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 various back-end servers that--- participate in the overall deployment process.+-- | A timestamp indicating when the deployment began deploying to the deployment+-- group.+--+-- Note that 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+-- various back-end servers that participate in the overall deployment process. diStartTime :: Lens' DeploymentInfo (Maybe UTCTime) diStartTime = lens _diStartTime (\s a -> s { _diStartTime = a }) . mapping _Time @@ -1314,9 +1349,9 @@  data LifecycleEvent = LifecycleEvent     { _leDiagnostics        :: Maybe Diagnostics-    , _leEndTime            :: Maybe RFC822+    , _leEndTime            :: Maybe ISO8601     , _leLifecycleEventName :: Maybe Text-    , _leStartTime          :: Maybe RFC822+    , _leStartTime          :: Maybe ISO8601     , _leStatus             :: Maybe LifecycleEventStatus     } deriving (Eq, Show) @@ -1351,8 +1386,8 @@ leEndTime :: Lens' LifecycleEvent (Maybe UTCTime) leEndTime = lens _leEndTime (\s a -> s { _leEndTime = a }) . mapping _Time --- | The deployment lifecycle event name, such as ApplicationStop,--- BeforeInstall, AfterInstall, ApplicationStart, or ValidateService.+-- | The deployment lifecycle event name, such as ApplicationStop, BeforeInstall,+-- AfterInstall, ApplicationStart, or ValidateService. leLifecycleEventName :: Lens' LifecycleEvent (Maybe Text) leLifecycleEventName =     lens _leLifecycleEventName (\s a -> s { _leLifecycleEventName = a })@@ -1361,12 +1396,13 @@ leStartTime :: Lens' LifecycleEvent (Maybe UTCTime) leStartTime = lens _leStartTime (\s a -> s { _leStartTime = a }) . mapping _Time --- | 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 has succeeded.--- 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 has succeeded. 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 }) @@ -1472,17 +1508,20 @@ instance Hashable ErrorCode  instance FromText ErrorCode where-    parser = match "APPLICATION_MISSING"        ApplicationMissing-         <|> match "DEPLOYMENT_GROUP_MISSING"   DeploymentGroupMissing-         <|> match "HEALTH_CONSTRAINTS"         HealthConstraints-         <|> match "HEALTH_CONSTRAINTS_INVALID" HealthConstraintsInvalid-         <|> match "IAM_ROLE_MISSING"           IamRoleMissing-         <|> match "IAM_ROLE_PERMISSIONS"       IamRolePermissions-         <|> match "INTERNAL_ERROR"             InternalError-         <|> match "NO_INSTANCES"               NoInstances-         <|> match "OVER_MAX_INSTANCES"         OverMaxInstances-         <|> match "REVISION_MISSING"           RevisionMissing-         <|> match "TIMEOUT"                    Timeout+    parser = takeText >>= \case+        "APPLICATION_MISSING"        -> pure ApplicationMissing+        "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+        "NO_INSTANCES"               -> pure NoInstances+        "OVER_MAX_INSTANCES"         -> pure OverMaxInstances+        "REVISION_MISSING"           -> pure RevisionMissing+        "TIMEOUT"                    -> pure Timeout+        e                            -> fail $+            "Failure parsing ErrorCode from " ++ show e  instance ToText ErrorCode where     toText = \case@@ -1509,7 +1548,7 @@     toJSON = toJSONText  data DeploymentConfigInfo = DeploymentConfigInfo-    { _dciCreateTime           :: Maybe RFC822+    { _dciCreateTime           :: Maybe ISO8601     , _dciDeploymentConfigId   :: Maybe Text     , _dciDeploymentConfigName :: Maybe Text     , _dciMinimumHealthyHosts  :: Maybe MinimumHealthyHosts@@ -1581,12 +1620,15 @@ instance Hashable InstanceStatus  instance FromText InstanceStatus where-    parser = match "Failed"     ISFailed-         <|> match "InProgress" ISInProgress-         <|> match "Pending"    ISPending-         <|> match "Skipped"    ISSkipped-         <|> match "Succeeded"  ISSucceeded-         <|> match "Unknown"    ISUnknown+    parser = takeText >>= \case+        "Failed"     -> pure ISFailed+        "InProgress" -> pure ISInProgress+        "Pending"    -> pure ISPending+        "Skipped"    -> pure ISSkipped+        "Succeeded"  -> pure ISSucceeded+        "Unknown"    -> pure ISUnknown+        e            -> fail $+            "Failure parsing InstanceStatus from " ++ show e  instance ToText InstanceStatus where     toText = \case@@ -1619,12 +1661,15 @@ instance Hashable DeploymentStatus  instance FromText DeploymentStatus where-    parser = match "Created"    DSCreated-         <|> match "Failed"     DSFailed-         <|> match "InProgress" DSInProgress-         <|> match "Queued"     DSQueued-         <|> match "Stopped"    DSStopped-         <|> match "Succeeded"  DSSucceeded+    parser = takeText >>= \case+        "Created"    -> pure DSCreated+        "Failed"     -> pure DSFailed+        "InProgress" -> pure DSInProgress+        "Queued"     -> pure DSQueued+        "Stopped"    -> pure DSStopped+        "Succeeded"  -> pure DSSucceeded+        e            -> fail $+            "Failure parsing DeploymentStatus from " ++ show e  instance ToText DeploymentStatus where     toText = \case@@ -1676,31 +1721,35 @@     , _slETag       = Nothing     } --- | The name of the Amazon S3 bucket where the application revision is--- stored.+-- | The name of the Amazon S3 bucket where the application revision is stored. slBucket :: Lens' S3Location (Maybe Text) slBucket = lens _slBucket (\s a -> s { _slBucket = a })  -- | 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 }) --- | The name of the Amazon S3 object that represents the bundled artifacts--- for the application revision.+-- | The name of the Amazon S3 object that represents the bundled artifacts for+-- the application revision. slKey :: Lens' S3Location (Maybe Text) slKey = lens _slKey (\s a -> s { _slKey = a })  -- | 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.+-- 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 }) @@ -1729,8 +1778,11 @@ instance Hashable MinimumHealthyHostsType  instance FromText MinimumHealthyHostsType where-    parser = match "FLEET_PERCENT" FleetPercent-         <|> match "HOST_COUNT"    HostCount+    parser = takeText >>= \case+        "FLEET_PERCENT" -> pure FleetPercent+        "HOST_COUNT"    -> pure HostCount+        e               -> fail $+            "Failure parsing MinimumHealthyHostsType from " ++ show e  instance ToText MinimumHealthyHostsType where     toText = \case@@ -1766,14 +1818,15 @@     , _ghlCommitId   = Nothing     } --- | The SHA1 commit ID of the GitHub commit that references the that--- represents the bundled artifacts for the application revision.+-- | The SHA1 commit ID of the GitHub commit that references the that represents+-- the bundled artifacts for the application revision. 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 }) @@ -1796,8 +1849,11 @@ instance Hashable RevisionLocationType  instance FromText RevisionLocationType where-    parser = match "GitHub" GitHub-         <|> match "S3"     S3+    parser = takeText >>= \case+        "GitHub" -> pure GitHub+        "S3"     -> pure S3+        e        -> fail $+            "Failure parsing RevisionLocationType from " ++ show e  instance ToText RevisionLocationType where     toText = \case@@ -1823,9 +1879,12 @@ instance Hashable EC2TagFilterType  instance FromText EC2TagFilterType where-    parser = match "KEY_AND_VALUE" KeyAndValue-         <|> match "KEY_ONLY"      KeyOnly-         <|> match "VALUE_ONLY"    ValueOnly+    parser = takeText >>= \case+        "KEY_AND_VALUE" -> pure KeyAndValue+        "KEY_ONLY"      -> pure KeyOnly+        "VALUE_ONLY"    -> pure ValueOnly+        e               -> fail $+            "Failure parsing EC2TagFilterType from " ++ show e  instance ToText EC2TagFilterType where     toText = \case
gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs view
@@ -97,8 +97,8 @@ udgApplicationName =     lens _udgApplicationName (\s a -> s { _udgApplicationName = a }) --- | The replacement list of Auto Scaling groups to be included in the--- deployment group, if you want to change them.+-- | The replacement list of Auto Scaling groups to be included in the deployment+-- group, if you want to change them. udgAutoScalingGroups :: Lens' UpdateDeploymentGroup [Text] udgAutoScalingGroups =     lens _udgAutoScalingGroups (\s a -> s { _udgAutoScalingGroups = a })@@ -110,14 +110,14 @@     lens _udgCurrentDeploymentGroupName         (\s a -> s { _udgCurrentDeploymentGroupName = a }) --- | The replacement deployment configuration name to use, if you want to--- change it.+-- | The replacement deployment configuration name to use, if you want to change+-- it. udgDeploymentConfigName :: Lens' UpdateDeploymentGroup (Maybe Text) udgDeploymentConfigName =     lens _udgDeploymentConfigName (\s a -> s { _udgDeploymentConfigName = a }) --- | The replacement set of Amazon EC2 tags to filter on, if you want to--- change them.+-- | The replacement set of Amazon EC2 tags to filter on, if you want to change+-- them. udgEc2TagFilters :: Lens' UpdateDeploymentGroup [EC2TagFilter] udgEc2TagFilters = lens _udgEc2TagFilters (\s a -> s { _udgEc2TagFilters = a }) . _List