packages feed

amazonka-opsworks-cm 1.5.0 → 1.6.0

raw patch · 26 files changed

+412/−397 lines, 26 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-opsworks-cm.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-opsworks-cm-version:               1.5.0+version:               1.6.0 synopsis:              Amazon OpsWorks for Chef Automate SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -68,7 +68,7 @@         , Network.AWS.OpsWorksCM.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-opsworks-cm-test@@ -88,8 +88,8 @@         , Test.AWS.OpsWorksCM.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-opsworks-cm         , base         , bytestring
gen/Network/AWS/OpsWorksCM.hs view
@@ -5,33 +5,33 @@  -- | -- Module      : Network.AWS.OpsWorksCM--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- __AWS OpsWorks for Chef Automate__+-- __AWS OpsWorks CM__ ----- AWS OpsWorks for Chef Automate is a service that runs and manages configuration management servers.+-- AWS OpsWorks for configuration management (CM) is a service that runs and manages configuration management servers. -- -- __Glossary of terms__ -----     * __Server__ : A configuration management server that can be highly-available. The configuration manager runs on your instances by using various AWS services, such as Amazon Elastic Compute Cloud (EC2), and potentially Amazon Relational Database Service (RDS). A server is a generic abstraction over the configuration manager that you want to use, much like Amazon RDS. In AWS OpsWorks for Chef Automate, you do not start or stop servers. After you create servers, they continue to run until they are deleted.+--     * __Server__ : A configuration management server that can be highly-available. The configuration management server runs on an Amazon Elastic Compute Cloud (EC2) instance, and may use various other AWS services, such as Amazon Relational Database Service (RDS) and Elastic Load Balancing. A server is a generic abstraction over the configuration manager that you want to use, much like Amazon RDS. In AWS OpsWorks CM, you do not start or stop servers. After you create servers, they continue to run until they are deleted. -----     * __Engine__ : The specific configuration manager that you want to use (such as @Chef@ ) is the engine.+--     * __Engine__ : The engine is the specific configuration manager that you want to use. Valid values in this release include @Chef@ and @Puppet@ . -----     * __Backup__ : This is an application-level backup of the data that the configuration manager stores. A backup creates a .tar.gz file that is stored in an Amazon Simple Storage Service (S3) bucket in your account. AWS OpsWorks for Chef Automate creates the S3 bucket when you launch the first instance. A backup maintains a snapshot of all of a server's important attributes at the time of the backup.+--     * __Backup__ : This is an application-level backup of the data that the configuration manager stores. AWS OpsWorks CM creates an S3 bucket for backups when you launch the first server. A backup maintains a snapshot of a server's configuration-related attributes at the time the backup starts. -----     * __Events__ : Events are always related to a server. Events are written during server creation, when health checks run, when backups are created, etc. When you delete a server, the server's events are also deleted.+--     * __Events__ : Events are always related to a server. Events are written during server creation, when health checks run, when backups are created, when system maintenance is performed, etc. When you delete a server, the server's events are also deleted. -----     * __AccountAttributes__ : Every account has attributes that are assigned in the AWS OpsWorks for Chef Automate database. These attributes store information about configuration limits (servers, backups, etc.) and your customer account.+--     * __Account attributes__ : Every account has attributes that are assigned in the AWS OpsWorks CM database. These attributes store information about configuration limits (servers, backups, etc.) and your customer account. -- -- -- -- __Endpoints__ ----- AWS OpsWorks for Chef Automate supports the following endpoints, all HTTPS. You must connect to one of the following endpoints. Chef servers can only be accessed or managed within the endpoint in which they are created.+-- AWS OpsWorks CM supports the following endpoints, all HTTPS. You must connect to one of the following endpoints. Your servers can only be accessed or managed within the endpoint in which they are created. -- --     * opsworks-cm.us-east-1.amazonaws.com --
gen/Network/AWS/OpsWorksCM/AssociateNode.hs view
@@ -12,19 +12,25 @@  -- | -- Module      : Network.AWS.OpsWorksCM.AssociateNode--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Associates a new node with the Chef server. This command is an alternative to @knife bootstrap@ . For more information about how to disassociate a node, see 'DisassociateNode' .+-- Associates a new node with the server. For more information about how to disassociate a node, see 'DisassociateNode' . -- ----- A node can can only be associated with servers that are in a @HEALTHY@ state. Otherwise, an @InvalidStateException@ is thrown. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. The AssociateNode API call can be integrated into Auto Scaling configurations, AWS Cloudformation templates, or the user data of a server's instance.+-- On a Chef server: This command is an alternative to @knife bootstrap@ . ----- Example: @aws opsworks-cm associate-node --server-name /MyServer/ --node-name /MyManagedNode/ --engine-attributes "Name=/MyOrganization/ ,Value=default" "Name=/Chef_node_public_key/ ,Value=/Public_key_contents/ "@+-- Example (Chef): @aws opsworks-cm associate-node --server-name /MyServer/ --node-name /MyManagedNode/ --engine-attributes "Name=/CHEF_ORGANIZATION/ ,Value=default" "Name=/CHEF_NODE_PUBLIC_KEY/ ,Value=/public-key-pem/ "@ --+-- On a Puppet server, this command is an alternative to the @puppet cert sign@ command that signs a Puppet node CSR.+--+-- Example (Chef): @aws opsworks-cm associate-node --server-name /MyServer/ --node-name /MyManagedNode/ --engine-attributes "Name=/PUPPET_NODE_CSR/ ,Value=/csr-pem/ "@+--+-- A node can can only be associated with servers that are in a @HEALTHY@ state. Otherwise, an @InvalidStateException@ is thrown. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. The AssociateNode API call can be integrated into Auto Scaling configurations, AWS Cloudformation templates, or the user data of a server's instance.+-- module Network.AWS.OpsWorksCM.AssociateNode     (     -- * Creating a Request@@ -64,32 +70,32 @@ -- -- * 'anServerName' - The name of the server with which to associate the node. ----- * 'anNodeName' - The name of the Chef client node.+-- * 'anNodeName' - The name of the node. ----- * 'anEngineAttributes' - Engine attributes used for associating the node.  __Attributes accepted in a AssociateNode request:__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node is associated. By default only one organization named @default@ can exist.      * @CHEF_NODE_PUBLIC_KEY@ : A PEM-formatted public key. This key is required for the @chef-client@ agent to access the Chef API.+-- * 'anEngineAttributes' - Engine attributes used for associating the node.  __Attributes accepted in a AssociateNode request for Chef__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node is associated. By default only one organization named @default@ can exist.      * @CHEF_NODE_PUBLIC_KEY@ : A PEM-formatted public key. This key is required for the @chef-client@ agent to access the Chef API.  __Attributes accepted in a AssociateNode request for Puppet__      * @PUPPET_NODE_CSR@ : A PEM-formatted certificate-signing request (CSR) that is created by the node. associateNode     :: Text -- ^ 'anServerName'     -> Text -- ^ 'anNodeName'     -> AssociateNode associateNode pServerName_ pNodeName_ =   AssociateNode'-  { _anServerName = pServerName_-  , _anNodeName = pNodeName_-  , _anEngineAttributes = mempty-  }+    { _anServerName = pServerName_+    , _anNodeName = pNodeName_+    , _anEngineAttributes = mempty+    }   -- | The name of the server with which to associate the node. anServerName :: Lens' AssociateNode Text-anServerName = lens _anServerName (\ s a -> s{_anServerName = a});+anServerName = lens _anServerName (\ s a -> s{_anServerName = a}) --- | The name of the Chef client node.+-- | The name of the node. anNodeName :: Lens' AssociateNode Text-anNodeName = lens _anNodeName (\ s a -> s{_anNodeName = a});+anNodeName = lens _anNodeName (\ s a -> s{_anNodeName = a}) --- | Engine attributes used for associating the node.  __Attributes accepted in a AssociateNode request:__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node is associated. By default only one organization named @default@ can exist.      * @CHEF_NODE_PUBLIC_KEY@ : A PEM-formatted public key. This key is required for the @chef-client@ agent to access the Chef API.+-- | Engine attributes used for associating the node.  __Attributes accepted in a AssociateNode request for Chef__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node is associated. By default only one organization named @default@ can exist.      * @CHEF_NODE_PUBLIC_KEY@ : A PEM-formatted public key. This key is required for the @chef-client@ agent to access the Chef API.  __Attributes accepted in a AssociateNode request for Puppet__      * @PUPPET_NODE_CSR@ : A PEM-formatted certificate-signing request (CSR) that is created by the node. anEngineAttributes :: Lens' AssociateNode [EngineAttribute]-anEngineAttributes = lens _anEngineAttributes (\ s a -> s{_anEngineAttributes = a}) . _Coerce;+anEngineAttributes = lens _anEngineAttributes (\ s a -> s{_anEngineAttributes = a}) . _Coerce  instance AWSRequest AssociateNode where         type Rs AssociateNode = AssociateNodeResponse@@ -148,17 +154,17 @@     -> AssociateNodeResponse associateNodeResponse pResponseStatus_ =   AssociateNodeResponse'-  { _anrsNodeAssociationStatusToken = Nothing-  , _anrsResponseStatus = pResponseStatus_-  }+    { _anrsNodeAssociationStatusToken = Nothing+    , _anrsResponseStatus = pResponseStatus_+    }   -- | Contains a token which can be passed to the @DescribeNodeAssociationStatus@ API call to get the status of the association request. anrsNodeAssociationStatusToken :: Lens' AssociateNodeResponse (Maybe Text)-anrsNodeAssociationStatusToken = lens _anrsNodeAssociationStatusToken (\ s a -> s{_anrsNodeAssociationStatusToken = a});+anrsNodeAssociationStatusToken = lens _anrsNodeAssociationStatusToken (\ s a -> s{_anrsNodeAssociationStatusToken = a})  -- | -- | The response status code. anrsResponseStatus :: Lens' AssociateNodeResponse Int-anrsResponseStatus = lens _anrsResponseStatus (\ s a -> s{_anrsResponseStatus = a});+anrsResponseStatus = lens _anrsResponseStatus (\ s a -> s{_anrsResponseStatus = a})  instance NFData AssociateNodeResponse where
gen/Network/AWS/OpsWorksCM/CreateBackup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.CreateBackup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,11 +74,11 @@  -- | A user-defined description of the backup. cbDescription :: Lens' CreateBackup (Maybe Text)-cbDescription = lens _cbDescription (\ s a -> s{_cbDescription = a});+cbDescription = lens _cbDescription (\ s a -> s{_cbDescription = a})  -- | The name of the server that you want to back up. cbServerName :: Lens' CreateBackup Text-cbServerName = lens _cbServerName (\ s a -> s{_cbServerName = a});+cbServerName = lens _cbServerName (\ s a -> s{_cbServerName = a})  instance AWSRequest CreateBackup where         type Rs CreateBackup = CreateBackupResponse@@ -135,15 +135,15 @@     -> CreateBackupResponse createBackupResponse pResponseStatus_ =   CreateBackupResponse'-  {_cbrsBackup = Nothing, _cbrsResponseStatus = pResponseStatus_}+    {_cbrsBackup = Nothing, _cbrsResponseStatus = pResponseStatus_}   -- | Backup created by request. cbrsBackup :: Lens' CreateBackupResponse (Maybe Backup)-cbrsBackup = lens _cbrsBackup (\ s a -> s{_cbrsBackup = a});+cbrsBackup = lens _cbrsBackup (\ s a -> s{_cbrsBackup = a})  -- | -- | The response status code. cbrsResponseStatus :: Lens' CreateBackupResponse Int-cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a});+cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a})  instance NFData CreateBackupResponse where
gen/Network/AWS/OpsWorksCM/CreateServer.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.CreateServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -25,10 +25,14 @@ -- -- A @LimitExceededException@ is thrown when you have created the maximum number of servers (10). A @ResourceAlreadyExistsException@ is thrown when a server with the same name already exists in the account. A @ResourceNotFoundException@ is thrown when you specify a backup ID that is not valid or is for a backup that does not exist. A @ValidationException@ is thrown when parameters of the request are not valid. ----- If you do not specify a security group by adding the @SecurityGroupIds@ parameter, AWS OpsWorks creates a new security group. The default security group opens the Chef server to the world on TCP port 443. If a KeyName is present, AWS OpsWorks enables SSH access. SSH is also open to the world on TCP port 22.+-- If you do not specify a security group by adding the @SecurityGroupIds@ parameter, AWS OpsWorks creates a new security group. ----- By default, the Chef Server is accessible from any IP address. We recommend that you update your security group rules to allow access from known IP addresses and address ranges only. To edit security group rules, open Security Groups in the navigation pane of the EC2 management console.+-- /Chef Automate:/ The default security group opens the Chef server to the world on TCP port 443. If a KeyName is present, AWS OpsWorks enables SSH access. SSH is also open to the world on TCP port 22. --+-- /Puppet Enterprise:/ The default security group opens TCP ports 22, 443, 4433, 8140, 8142, 8143, and 8170. If a KeyName is present, AWS OpsWorks enables SSH access. SSH is also open to the world on TCP port 22.+--+-- By default, your server is accessible from any IP address. We recommend that you update your security group rules to allow access from known IP addresses and address ranges only. To edit security group rules, open Security Groups in the navigation pane of the EC2 management console.+-- module Network.AWS.OpsWorksCM.CreateServer     (     -- * Creating a Request@@ -94,11 +98,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csEngineVersion' - The major release version of the engine that you want to use. Values depend on the engine that you choose.+-- * 'csEngineVersion' - The major release version of the engine that you want to use. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ . -- -- * 'csDisableAutomatedBackup' - Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ . ----- * 'csSecurityGroupIds' - A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).+-- * 'csSecurityGroupIds' - A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks CM creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone). -- -- * 'csAssociatePublicIPAddress' - Associate a public IP address with a server that you are launching. Valid values are @true@ or @false@ . The default value is @true@ . --@@ -106,27 +110,27 @@ -- -- * 'csKeyPair' - The Amazon EC2 key pair to set for the instance. This parameter is optional; if desired, you may specify this parameter to connect to your instances by using SSH. ----- * 'csBackupId' - If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.+-- * 'csBackupId' - If you specify this field, AWS OpsWorks CM creates the server by using the backup represented by BackupId. ----- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ .+-- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ and @Puppet@ . ----- * 'csEngineModel' - The engine model, or option. Valid values include @Single@ .+-- * 'csEngineModel' - The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef. ----- * 'csEngineAttributes' - Optional engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef. This private key is required to access the Chef API. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response.+-- * 'csEngineAttributes' - Optional engine attributes on a specified server.  __Attributes accepted in a Chef createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response. __Attributes accepted in a Puppet createServer request:__      * @PUPPET_ADMIN_PASSWORD@ : To work with the Puppet Enterprise console, a password must use ASCII characters. ----- * 'csPreferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)+-- * 'csPreferredMaintenanceWindow' - The start time for a one-hour period each week during which AWS OpsWorks CM performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.) ----- * 'csPreferredBackupWindow' - The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if automated backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)+-- * 'csPreferredBackupWindow' - The start time for a one-hour period during which AWS OpsWorks CM backs up application-level data on your server if automated backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.) ----- * 'csBackupRetentionCount' - The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .+-- * 'csBackupRetentionCount' - The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks CM deletes the oldest backups if this number is exceeded. The default value is @1@ . -- -- * 'csServerName' - The name of the server. The server name must be unique within your AWS account, within each region. Server names must start with a letter; then letters, numbers, or hyphens (-) are allowed, up to a maximum of 40 characters. -- -- * 'csInstanceProfileARN' - The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, if you are using API commands instead, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the instance profile you need. ----- * 'csInstanceType' - The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @m4.large@ . Valid values are @t2.medium@ , @m4.large@ , or @m4.2xlarge@ .+-- * 'csInstanceType' - The Amazon EC2 instance type to use. For example, @m4.large@ . Recommended instance types include @t2.medium@ and greater, @m4.*@ , or @c4.xlarge@ and greater. ----- * 'csServiceRoleARN' - The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role that you need.+-- * 'csServiceRoleARN' - The service role that the AWS OpsWorks CM service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role and instance profile that you need. createServer     :: Text -- ^ 'csServerName'     -> Text -- ^ 'csInstanceProfileARN'@@ -135,93 +139,93 @@     -> CreateServer createServer pServerName_ pInstanceProfileARN_ pInstanceType_ pServiceRoleARN_ =   CreateServer'-  { _csEngineVersion = Nothing-  , _csDisableAutomatedBackup = Nothing-  , _csSecurityGroupIds = Nothing-  , _csAssociatePublicIPAddress = Nothing-  , _csSubnetIds = Nothing-  , _csKeyPair = Nothing-  , _csBackupId = Nothing-  , _csEngine = Nothing-  , _csEngineModel = Nothing-  , _csEngineAttributes = Nothing-  , _csPreferredMaintenanceWindow = Nothing-  , _csPreferredBackupWindow = Nothing-  , _csBackupRetentionCount = Nothing-  , _csServerName = pServerName_-  , _csInstanceProfileARN = pInstanceProfileARN_-  , _csInstanceType = pInstanceType_-  , _csServiceRoleARN = pServiceRoleARN_-  }+    { _csEngineVersion = Nothing+    , _csDisableAutomatedBackup = Nothing+    , _csSecurityGroupIds = Nothing+    , _csAssociatePublicIPAddress = Nothing+    , _csSubnetIds = Nothing+    , _csKeyPair = Nothing+    , _csBackupId = Nothing+    , _csEngine = Nothing+    , _csEngineModel = Nothing+    , _csEngineAttributes = Nothing+    , _csPreferredMaintenanceWindow = Nothing+    , _csPreferredBackupWindow = Nothing+    , _csBackupRetentionCount = Nothing+    , _csServerName = pServerName_+    , _csInstanceProfileARN = pInstanceProfileARN_+    , _csInstanceType = pInstanceType_+    , _csServiceRoleARN = pServiceRoleARN_+    }  --- | The major release version of the engine that you want to use. Values depend on the engine that you choose.+-- | The major release version of the engine that you want to use. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ . csEngineVersion :: Lens' CreateServer (Maybe Text)-csEngineVersion = lens _csEngineVersion (\ s a -> s{_csEngineVersion = a});+csEngineVersion = lens _csEngineVersion (\ s a -> s{_csEngineVersion = a})  -- | Enable or disable scheduled backups. Valid values are @true@ or @false@ . The default value is @true@ . csDisableAutomatedBackup :: Lens' CreateServer (Maybe Bool)-csDisableAutomatedBackup = lens _csDisableAutomatedBackup (\ s a -> s{_csDisableAutomatedBackup = a});+csDisableAutomatedBackup = lens _csDisableAutomatedBackup (\ s a -> s{_csDisableAutomatedBackup = a}) --- | A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks for Chef Automate creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone).+-- | A list of security group IDs to attach to the Amazon EC2 instance. If you add this parameter, the specified security groups must be within the VPC that is specified by @SubnetIds@ .  If you do not specify this parameter, AWS OpsWorks CM creates one new security group that uses TCP ports 22 and 443, open to 0.0.0.0/0 (everyone). csSecurityGroupIds :: Lens' CreateServer [Text]-csSecurityGroupIds = lens _csSecurityGroupIds (\ s a -> s{_csSecurityGroupIds = a}) . _Default . _Coerce;+csSecurityGroupIds = lens _csSecurityGroupIds (\ s a -> s{_csSecurityGroupIds = a}) . _Default . _Coerce  -- | Associate a public IP address with a server that you are launching. Valid values are @true@ or @false@ . The default value is @true@ . csAssociatePublicIPAddress :: Lens' CreateServer (Maybe Bool)-csAssociatePublicIPAddress = lens _csAssociatePublicIPAddress (\ s a -> s{_csAssociatePublicIPAddress = a});+csAssociatePublicIPAddress = lens _csAssociatePublicIPAddress (\ s a -> s{_csAssociatePublicIPAddress = a})  -- | The IDs of subnets in which to launch the server EC2 instance.  Amazon EC2-Classic customers: This field is required. All servers must run within a VPC. The VPC must have "Auto Assign Public IP" enabled.  EC2-VPC customers: This field is optional. If you do not specify subnet IDs, your EC2 instances are created in a default subnet that is selected by Amazon EC2. If you specify subnet IDs, the VPC must have "Auto Assign Public IP" enabled.  For more information about supported Amazon EC2 platforms, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> . csSubnetIds :: Lens' CreateServer [Text]-csSubnetIds = lens _csSubnetIds (\ s a -> s{_csSubnetIds = a}) . _Default . _Coerce;+csSubnetIds = lens _csSubnetIds (\ s a -> s{_csSubnetIds = a}) . _Default . _Coerce  -- | The Amazon EC2 key pair to set for the instance. This parameter is optional; if desired, you may specify this parameter to connect to your instances by using SSH. csKeyPair :: Lens' CreateServer (Maybe Text)-csKeyPair = lens _csKeyPair (\ s a -> s{_csKeyPair = a});+csKeyPair = lens _csKeyPair (\ s a -> s{_csKeyPair = a}) --- | If you specify this field, AWS OpsWorks for Chef Automate creates the server by using the backup represented by BackupId.+-- | If you specify this field, AWS OpsWorks CM creates the server by using the backup represented by BackupId. csBackupId :: Lens' CreateServer (Maybe Text)-csBackupId = lens _csBackupId (\ s a -> s{_csBackupId = a});+csBackupId = lens _csBackupId (\ s a -> s{_csBackupId = a}) --- | The configuration management engine to use. Valid values include @Chef@ .+-- | The configuration management engine to use. Valid values include @Chef@ and @Puppet@ . csEngine :: Lens' CreateServer (Maybe Text)-csEngine = lens _csEngine (\ s a -> s{_csEngine = a});+csEngine = lens _csEngine (\ s a -> s{_csEngine = a}) --- | The engine model, or option. Valid values include @Single@ .+-- | The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef. csEngineModel :: Lens' CreateServer (Maybe Text)-csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a});+csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a}) --- | Optional engine attributes on a specified server.  __Attributes accepted in a createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef. This private key is required to access the Chef API. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response.+-- | Optional engine attributes on a specified server.  __Attributes accepted in a Chef createServer request:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is not stored by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API. When no CHEF_PIVOTAL_KEY is set, one is generated and returned in the response.      * @CHEF_DELIVERY_ADMIN_PASSWORD@ : The password for the administrative user in the Chef Automate GUI. The password length is a minimum of eight characters, and a maximum of 32. The password can contain letters, numbers, and special characters (!/@#$%^&+=_). The password must contain at least one lower case letter, one upper case letter, one number, and one special character. When no CHEF_DELIVERY_ADMIN_PASSWORD is set, one is generated and returned in the response. __Attributes accepted in a Puppet createServer request:__      * @PUPPET_ADMIN_PASSWORD@ : To work with the Puppet Enterprise console, a password must use ASCII characters. csEngineAttributes :: Lens' CreateServer [EngineAttribute]-csEngineAttributes = lens _csEngineAttributes (\ s a -> s{_csEngineAttributes = a}) . _Default . _Coerce;+csEngineAttributes = lens _csEngineAttributes (\ s a -> s{_csEngineAttributes = a}) . _Default . _Coerce --- | The start time for a one-hour period each week during which AWS OpsWorks for Chef Automate performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)+-- | The start time for a one-hour period each week during which AWS OpsWorks CM performs maintenance on the instance. Valid values must be specified in the following format: @DDD:HH:MM@ . The specified time is in coordinated universal time (UTC). The default value is a random one-hour period on Tuesday, Wednesday, or Friday. See @TimeWindowDefinition@ for more information.  __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.) csPreferredMaintenanceWindow :: Lens' CreateServer (Maybe Text)-csPreferredMaintenanceWindow = lens _csPreferredMaintenanceWindow (\ s a -> s{_csPreferredMaintenanceWindow = a});+csPreferredMaintenanceWindow = lens _csPreferredMaintenanceWindow (\ s a -> s{_csPreferredMaintenanceWindow = a}) --- | The start time for a one-hour period during which AWS OpsWorks for Chef Automate backs up application-level data on your server if automated backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.)+-- | The start time for a one-hour period during which AWS OpsWorks CM backs up application-level data on your server if automated backups are enabled. Valid values must be specified in one of the following formats:      * @HH:MM@ for daily backups     * @DDD:HH:MM@ for weekly backups The specified time is in coordinated universal time (UTC). The default value is a random, daily start time. __Example:__ @08:00@ , which represents a daily start time of 08:00 UTC. __Example:__ @Mon:08:00@ , which represents a start time of every Monday at 08:00 UTC. (8:00 a.m.) csPreferredBackupWindow :: Lens' CreateServer (Maybe Text)-csPreferredBackupWindow = lens _csPreferredBackupWindow (\ s a -> s{_csPreferredBackupWindow = a});+csPreferredBackupWindow = lens _csPreferredBackupWindow (\ s a -> s{_csPreferredBackupWindow = a}) --- | The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks for Chef Automate deletes the oldest backups if this number is exceeded. The default value is @1@ .+-- | The number of automated backups that you want to keep. Whenever a new backup is created, AWS OpsWorks CM deletes the oldest backups if this number is exceeded. The default value is @1@ . csBackupRetentionCount :: Lens' CreateServer (Maybe Natural)-csBackupRetentionCount = lens _csBackupRetentionCount (\ s a -> s{_csBackupRetentionCount = a}) . mapping _Nat;+csBackupRetentionCount = lens _csBackupRetentionCount (\ s a -> s{_csBackupRetentionCount = a}) . mapping _Nat  -- | The name of the server. The server name must be unique within your AWS account, within each region. Server names must start with a letter; then letters, numbers, or hyphens (-) are allowed, up to a maximum of 40 characters. csServerName :: Lens' CreateServer Text-csServerName = lens _csServerName (\ s a -> s{_csServerName = a});+csServerName = lens _csServerName (\ s a -> s{_csServerName = a})  -- | The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, if you are using API commands instead, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the instance profile you need. csInstanceProfileARN :: Lens' CreateServer Text-csInstanceProfileARN = lens _csInstanceProfileARN (\ s a -> s{_csInstanceProfileARN = a});+csInstanceProfileARN = lens _csInstanceProfileARN (\ s a -> s{_csInstanceProfileARN = a}) --- | The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @m4.large@ . Valid values are @t2.medium@ , @m4.large@ , or @m4.2xlarge@ .+-- | The Amazon EC2 instance type to use. For example, @m4.large@ . Recommended instance types include @t2.medium@ and greater, @m4.*@ , or @c4.xlarge@ and greater. csInstanceType :: Lens' CreateServer Text-csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a});+csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a}) --- | The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role that you need.+-- | The service role that the AWS OpsWorks CM service backend uses to work with your account. Although the AWS OpsWorks management console typically creates the service role for you, if you are using the AWS CLI or API commands, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-cm-us-east-1-prod-default-assets/misc/opsworks-cm-roles.yaml. This template creates a CloudFormation stack that includes the service role and instance profile that you need. csServiceRoleARN :: Lens' CreateServer Text-csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = a});+csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = a})  instance AWSRequest CreateServer where         type Rs CreateServer = CreateServerResponse@@ -298,15 +302,15 @@     -> CreateServerResponse createServerResponse pResponseStatus_ =   CreateServerResponse'-  {_csrsServer = Nothing, _csrsResponseStatus = pResponseStatus_}+    {_csrsServer = Nothing, _csrsResponseStatus = pResponseStatus_}   -- | The server that is created by the request. csrsServer :: Lens' CreateServerResponse (Maybe Server)-csrsServer = lens _csrsServer (\ s a -> s{_csrsServer = a});+csrsServer = lens _csrsServer (\ s a -> s{_csrsServer = a})  -- | -- | The response status code. csrsResponseStatus :: Lens' CreateServerResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})  instance NFData CreateServerResponse where
gen/Network/AWS/OpsWorksCM/DeleteBackup.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DeleteBackup--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@  -- | The ID of the backup to delete. Run the DescribeBackups command to get a list of backup IDs. Backup IDs are in the format @ServerName-yyyyMMddHHmmssSSS@ . dbBackupId :: Lens' DeleteBackup Text-dbBackupId = lens _dbBackupId (\ s a -> s{_dbBackupId = a});+dbBackupId = lens _dbBackupId (\ s a -> s{_dbBackupId = a})  instance AWSRequest DeleteBackup where         type Rs DeleteBackup = DeleteBackupResponse@@ -119,6 +119,6 @@  -- | -- | The response status code. dbrsResponseStatus :: Lens' DeleteBackupResponse Int-dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a});+dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a})  instance NFData DeleteBackupResponse where
gen/Network/AWS/OpsWorksCM/DeleteServer.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DeleteServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the server and the underlying AWS CloudFormation stack (including the server's EC2 instance). When you run this command, the server state is updated to @DELETING@ . After the server is deleted, it is no longer returned by @DescribeServer@ requests. If the AWS CloudFormation stack cannot be deleted, the server cannot be deleted.+-- Deletes the server and the underlying AWS CloudFormation stacks (including the server's EC2 instance). When you run this command, the server state is updated to @DELETING@ . After the server is deleted, it is no longer returned by @DescribeServer@ requests. If the AWS CloudFormation stack cannot be deleted, the server cannot be deleted. -- -- -- This operation is asynchronous.@@ -68,7 +68,7 @@  -- | The ID of the server to delete. dsServerName :: Lens' DeleteServer Text-dsServerName = lens _dsServerName (\ s a -> s{_dsServerName = a});+dsServerName = lens _dsServerName (\ s a -> s{_dsServerName = a})  instance AWSRequest DeleteServer where         type Rs DeleteServer = DeleteServerResponse@@ -123,6 +123,6 @@  -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteServerResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DeleteServerResponse where
gen/Network/AWS/OpsWorksCM/DescribeAccountAttributes.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeAccountAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -110,16 +110,16 @@     -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ =   DescribeAccountAttributesResponse'-  {_daarsAttributes = Nothing, _daarsResponseStatus = pResponseStatus_}+    {_daarsAttributes = Nothing, _daarsResponseStatus = pResponseStatus_}   -- | The attributes that are currently set for the account. daarsAttributes :: Lens' DescribeAccountAttributesResponse [AccountAttribute]-daarsAttributes = lens _daarsAttributes (\ s a -> s{_daarsAttributes = a}) . _Default . _Coerce;+daarsAttributes = lens _daarsAttributes (\ s a -> s{_daarsAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int-daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a})  instance NFData DescribeAccountAttributesResponse          where
gen/Network/AWS/OpsWorksCM/DescribeBackups.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeBackups--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,28 +76,28 @@     :: DescribeBackups describeBackups =   DescribeBackups'-  { _dServerName = Nothing-  , _dBackupId = Nothing-  , _dNextToken = Nothing-  , _dMaxResults = Nothing-  }+    { _dServerName = Nothing+    , _dBackupId = Nothing+    , _dNextToken = Nothing+    , _dMaxResults = Nothing+    }   -- | Returns backups for the server with the specified ServerName. dServerName :: Lens' DescribeBackups (Maybe Text)-dServerName = lens _dServerName (\ s a -> s{_dServerName = a});+dServerName = lens _dServerName (\ s a -> s{_dServerName = a})  -- | Describes a single backup. dBackupId :: Lens' DescribeBackups (Maybe Text)-dBackupId = lens _dBackupId (\ s a -> s{_dBackupId = a});+dBackupId = lens _dBackupId (\ s a -> s{_dBackupId = a})  -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeBackups@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. dNextToken :: Lens' DescribeBackups (Maybe Text)-dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a});+dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a})  -- | To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. dMaxResults :: Lens' DescribeBackups (Maybe Natural)-dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat;+dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) . mapping _Nat  instance AWSRequest DescribeBackups where         type Rs DescribeBackups = DescribeBackupsResponse@@ -160,22 +160,22 @@     -> DescribeBackupsResponse describeBackupsResponse pResponseStatus_ =   DescribeBackupsResponse'-  { _drsBackups = Nothing-  , _drsNextToken = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsBackups = Nothing+    , _drsNextToken = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | Contains the response to a @DescribeBackups@ request. drsBackups :: Lens' DescribeBackupsResponse [Backup]-drsBackups = lens _drsBackups (\ s a -> s{_drsBackups = a}) . _Default . _Coerce;+drsBackups = lens _drsBackups (\ s a -> s{_drsBackups = a}) . _Default . _Coerce  -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeBackups@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. drsNextToken :: Lens' DescribeBackupsResponse (Maybe Text)-drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a});+drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DescribeBackupsResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DescribeBackupsResponse where
gen/Network/AWS/OpsWorksCM/DescribeEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,23 +73,23 @@     -> DescribeEvents describeEvents pServerName_ =   DescribeEvents'-  { _deNextToken = Nothing-  , _deMaxResults = Nothing-  , _deServerName = pServerName_-  }+    { _deNextToken = Nothing+    , _deMaxResults = Nothing+    , _deServerName = pServerName_+    }   -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeEvents@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. deNextToken :: Lens' DescribeEvents (Maybe Text)-deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a});+deNextToken = lens _deNextToken (\ s a -> s{_deNextToken = a})  -- | To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. deMaxResults :: Lens' DescribeEvents (Maybe Natural)-deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a}) . mapping _Nat;+deMaxResults = lens _deMaxResults (\ s a -> s{_deMaxResults = a}) . mapping _Nat  -- | The name of the server for which you want to view events. deServerName :: Lens' DescribeEvents Text-deServerName = lens _deServerName (\ s a -> s{_deServerName = a});+deServerName = lens _deServerName (\ s a -> s{_deServerName = a})  instance AWSRequest DescribeEvents where         type Rs DescribeEvents = DescribeEventsResponse@@ -152,22 +152,22 @@     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =   DescribeEventsResponse'-  { _dersServerEvents = Nothing-  , _dersNextToken = Nothing-  , _dersResponseStatus = pResponseStatus_-  }+    { _dersServerEvents = Nothing+    , _dersNextToken = Nothing+    , _dersResponseStatus = pResponseStatus_+    }   -- | Contains the response to a @DescribeEvents@ request. dersServerEvents :: Lens' DescribeEventsResponse [ServerEvent]-dersServerEvents = lens _dersServerEvents (\ s a -> s{_dersServerEvents = a}) . _Default . _Coerce;+dersServerEvents = lens _dersServerEvents (\ s a -> s{_dersServerEvents = a}) . _Default . _Coerce  -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeEvents@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. dersNextToken :: Lens' DescribeEventsResponse (Maybe Text)-dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a});+dersNextToken = lens _dersNextToken (\ s a -> s{_dersNextToken = a})  -- | -- | The response status code. dersResponseStatus :: Lens' DescribeEventsResponse Int-dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a});+dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a})  instance NFData DescribeEventsResponse where
gen/Network/AWS/OpsWorksCM/DescribeNodeAssociationStatus.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,18 +68,18 @@     -> DescribeNodeAssociationStatus describeNodeAssociationStatus pNodeAssociationStatusToken_ pServerName_ =   DescribeNodeAssociationStatus'-  { _dnasNodeAssociationStatusToken = pNodeAssociationStatusToken_-  , _dnasServerName = pServerName_-  }+    { _dnasNodeAssociationStatusToken = pNodeAssociationStatusToken_+    , _dnasServerName = pServerName_+    }   -- | The token returned in either the AssociateNodeResponse or the DisassociateNodeResponse. dnasNodeAssociationStatusToken :: Lens' DescribeNodeAssociationStatus Text-dnasNodeAssociationStatusToken = lens _dnasNodeAssociationStatusToken (\ s a -> s{_dnasNodeAssociationStatusToken = a});+dnasNodeAssociationStatusToken = lens _dnasNodeAssociationStatusToken (\ s a -> s{_dnasNodeAssociationStatusToken = a})  -- | The name of the server from which to disassociate the node. dnasServerName :: Lens' DescribeNodeAssociationStatus Text-dnasServerName = lens _dnasServerName (\ s a -> s{_dnasServerName = a});+dnasServerName = lens _dnasServerName (\ s a -> s{_dnasServerName = a})  instance AWSRequest DescribeNodeAssociationStatus          where@@ -136,7 +136,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnasrsEngineAttributes' - Attributes specific to the node association.+-- * 'dnasrsEngineAttributes' - Attributes specific to the node association. In Puppet, the attibute PUPPET_NODE_CERT contains the signed certificate (the result of the CSR). -- -- * 'dnasrsResponseStatus' - -- | The response status code. --@@ -147,23 +147,23 @@     -> DescribeNodeAssociationStatusResponse describeNodeAssociationStatusResponse pResponseStatus_ pNodeAssociationStatus_ =   DescribeNodeAssociationStatusResponse'-  { _dnasrsEngineAttributes = Nothing-  , _dnasrsResponseStatus = pResponseStatus_-  , _dnasrsNodeAssociationStatus = pNodeAssociationStatus_-  }+    { _dnasrsEngineAttributes = Nothing+    , _dnasrsResponseStatus = pResponseStatus_+    , _dnasrsNodeAssociationStatus = pNodeAssociationStatus_+    }  --- | Attributes specific to the node association.+-- | Attributes specific to the node association. In Puppet, the attibute PUPPET_NODE_CERT contains the signed certificate (the result of the CSR). dnasrsEngineAttributes :: Lens' DescribeNodeAssociationStatusResponse [EngineAttribute]-dnasrsEngineAttributes = lens _dnasrsEngineAttributes (\ s a -> s{_dnasrsEngineAttributes = a}) . _Default . _Coerce;+dnasrsEngineAttributes = lens _dnasrsEngineAttributes (\ s a -> s{_dnasrsEngineAttributes = a}) . _Default . _Coerce  -- | -- | The response status code. dnasrsResponseStatus :: Lens' DescribeNodeAssociationStatusResponse Int-dnasrsResponseStatus = lens _dnasrsResponseStatus (\ s a -> s{_dnasrsResponseStatus = a});+dnasrsResponseStatus = lens _dnasrsResponseStatus (\ s a -> s{_dnasrsResponseStatus = a})  -- | The status of the association or disassociation request.  __Possible values:__      * @SUCCESS@ : The association or disassociation succeeded.      * @FAILED@ : The association or disassociation failed.      * @IN_PROGRESS@ : The association or disassociation is still in progress. dnasrsNodeAssociationStatus :: Lens' DescribeNodeAssociationStatusResponse NodeAssociationStatus-dnasrsNodeAssociationStatus = lens _dnasrsNodeAssociationStatus (\ s a -> s{_dnasrsNodeAssociationStatus = a});+dnasrsNodeAssociationStatus = lens _dnasrsNodeAssociationStatus (\ s a -> s{_dnasrsNodeAssociationStatus = a})  instance NFData DescribeNodeAssociationStatusResponse          where
gen/Network/AWS/OpsWorksCM/DescribeServers.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeServers--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists all configuration management servers that are identified with your account. Only the stored results from Amazon DynamoDB are returned. AWS OpsWorks for Chef Automate does not query other services.+-- Lists all configuration management servers that are identified with your account. Only the stored results from Amazon DynamoDB are returned. AWS OpsWorks CM does not query other services. -- -- -- This operation is synchronous.@@ -72,20 +72,23 @@     :: DescribeServers describeServers =   DescribeServers'-  {_dssServerName = Nothing, _dssNextToken = Nothing, _dssMaxResults = Nothing}+    { _dssServerName = Nothing+    , _dssNextToken = Nothing+    , _dssMaxResults = Nothing+    }   -- | Describes the server with the specified ServerName. dssServerName :: Lens' DescribeServers (Maybe Text)-dssServerName = lens _dssServerName (\ s a -> s{_dssServerName = a});+dssServerName = lens _dssServerName (\ s a -> s{_dssServerName = a})  -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeServers@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. dssNextToken :: Lens' DescribeServers (Maybe Text)-dssNextToken = lens _dssNextToken (\ s a -> s{_dssNextToken = a});+dssNextToken = lens _dssNextToken (\ s a -> s{_dssNextToken = a})  -- | To receive a paginated response, use this parameter to specify the maximum number of results to be returned with a single call. If the number of available results exceeds this maximum, the response includes a @NextToken@ value that you can assign to the @NextToken@ request parameter to get the next set of results. dssMaxResults :: Lens' DescribeServers (Maybe Natural)-dssMaxResults = lens _dssMaxResults (\ s a -> s{_dssMaxResults = a}) . mapping _Nat;+dssMaxResults = lens _dssMaxResults (\ s a -> s{_dssMaxResults = a}) . mapping _Nat  instance AWSRequest DescribeServers where         type Rs DescribeServers = DescribeServersResponse@@ -137,7 +140,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dssrsServers' - Contains the response to a @DescribeServers@ request.+-- * 'dssrsServers' - Contains the response to a @DescribeServers@ request. /For Puppet Server:/ @DescribeServersResponse$Servers$EngineAttributes@ contains PUPPET_API_CA_CERT. This is the PEM-encoded CA certificate that is used by the Puppet API over TCP port number 8140. The CA certificate is also used to sign node certificates. -- -- * 'dssrsNextToken' - NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeServers@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. --@@ -147,22 +150,22 @@     -> DescribeServersResponse describeServersResponse pResponseStatus_ =   DescribeServersResponse'-  { _dssrsServers = Nothing-  , _dssrsNextToken = Nothing-  , _dssrsResponseStatus = pResponseStatus_-  }+    { _dssrsServers = Nothing+    , _dssrsNextToken = Nothing+    , _dssrsResponseStatus = pResponseStatus_+    }  --- | Contains the response to a @DescribeServers@ request.+-- | Contains the response to a @DescribeServers@ request. /For Puppet Server:/ @DescribeServersResponse$Servers$EngineAttributes@ contains PUPPET_API_CA_CERT. This is the PEM-encoded CA certificate that is used by the Puppet API over TCP port number 8140. The CA certificate is also used to sign node certificates. dssrsServers :: Lens' DescribeServersResponse [Server]-dssrsServers = lens _dssrsServers (\ s a -> s{_dssrsServers = a}) . _Default . _Coerce;+dssrsServers = lens _dssrsServers (\ s a -> s{_dssrsServers = a}) . _Default . _Coerce  -- | NextToken is a string that is returned in some command responses. It indicates that not all entries have been returned, and that you must run at least one more request to get remaining items. To get remaining results, call @DescribeServers@ again, and assign the token from the previous results as the value of the @nextToken@ parameter. If there are no more results, the response object's @nextToken@ parameter value is @null@ . Setting a @nextToken@ value that was not returned in your previous results causes an @InvalidNextTokenException@ to occur. dssrsNextToken :: Lens' DescribeServersResponse (Maybe Text)-dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a});+dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a})  -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeServersResponse Int-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})  instance NFData DescribeServersResponse where
gen/Network/AWS/OpsWorksCM/DisassociateNode.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DisassociateNode--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disassociates a node from a Chef server, and removes the node from the Chef server's managed nodes. After a node is disassociated, the node key pair is no longer valid for accessing the Chef API. For more information about how to associate a node, see 'AssociateNode' .+-- Disassociates a node from an AWS OpsWorks CM server, and removes the node from the server's managed nodes. After a node is disassociated, the node key pair is no longer valid for accessing the configuration manager's API. For more information about how to associate a node, see 'AssociateNode' . -- -- -- A node can can only be disassociated from a server that is in a @HEALTHY@ state. Otherwise, an @InvalidStateException@ is thrown. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid.@@ -60,34 +60,34 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnEngineAttributes' - Engine attributes used for disassociating the node.  __Attributes accepted in a DisassociateNode request:__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node was associated. By default only one organization named @default@ can exist.+-- * 'dnEngineAttributes' - Engine attributes that are used for disassociating the node. No attributes are required for Puppet.  __Attributes required in a DisassociateNode request for Chef__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node was associated. By default only one organization named @default@ can exist. -- -- * 'dnServerName' - The name of the server from which to disassociate the node. ----- * 'dnNodeName' - The name of the Chef client node.+-- * 'dnNodeName' - The name of the client node. disassociateNode     :: Text -- ^ 'dnServerName'     -> Text -- ^ 'dnNodeName'     -> DisassociateNode disassociateNode pServerName_ pNodeName_ =   DisassociateNode'-  { _dnEngineAttributes = Nothing-  , _dnServerName = pServerName_-  , _dnNodeName = pNodeName_-  }+    { _dnEngineAttributes = Nothing+    , _dnServerName = pServerName_+    , _dnNodeName = pNodeName_+    }  --- | Engine attributes used for disassociating the node.  __Attributes accepted in a DisassociateNode request:__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node was associated. By default only one organization named @default@ can exist.+-- | Engine attributes that are used for disassociating the node. No attributes are required for Puppet.  __Attributes required in a DisassociateNode request for Chef__      * @CHEF_ORGANIZATION@ : The Chef organization with which the node was associated. By default only one organization named @default@ can exist. dnEngineAttributes :: Lens' DisassociateNode [EngineAttribute]-dnEngineAttributes = lens _dnEngineAttributes (\ s a -> s{_dnEngineAttributes = a}) . _Default . _Coerce;+dnEngineAttributes = lens _dnEngineAttributes (\ s a -> s{_dnEngineAttributes = a}) . _Default . _Coerce  -- | The name of the server from which to disassociate the node. dnServerName :: Lens' DisassociateNode Text-dnServerName = lens _dnServerName (\ s a -> s{_dnServerName = a});+dnServerName = lens _dnServerName (\ s a -> s{_dnServerName = a}) --- | The name of the Chef client node.+-- | The name of the client node. dnNodeName :: Lens' DisassociateNode Text-dnNodeName = lens _dnNodeName (\ s a -> s{_dnNodeName = a});+dnNodeName = lens _dnNodeName (\ s a -> s{_dnNodeName = a})  instance AWSRequest DisassociateNode where         type Rs DisassociateNode = DisassociateNodeResponse@@ -146,17 +146,17 @@     -> DisassociateNodeResponse disassociateNodeResponse pResponseStatus_ =   DisassociateNodeResponse'-  { _dnrsNodeAssociationStatusToken = Nothing-  , _dnrsResponseStatus = pResponseStatus_-  }+    { _dnrsNodeAssociationStatusToken = Nothing+    , _dnrsResponseStatus = pResponseStatus_+    }   -- | Contains a token which can be passed to the @DescribeNodeAssociationStatus@ API call to get the status of the disassociation request. dnrsNodeAssociationStatusToken :: Lens' DisassociateNodeResponse (Maybe Text)-dnrsNodeAssociationStatusToken = lens _dnrsNodeAssociationStatusToken (\ s a -> s{_dnrsNodeAssociationStatusToken = a});+dnrsNodeAssociationStatusToken = lens _dnrsNodeAssociationStatusToken (\ s a -> s{_dnrsNodeAssociationStatusToken = a})  -- | -- | The response status code. dnrsResponseStatus :: Lens' DisassociateNodeResponse Int-dnrsResponseStatus = lens _dnrsResponseStatus (\ s a -> s{_dnrsResponseStatus = a});+dnrsResponseStatus = lens _dnrsResponseStatus (\ s a -> s{_dnrsResponseStatus = a})  instance NFData DisassociateNodeResponse where
gen/Network/AWS/OpsWorksCM/RestoreServer.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.RestoreServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,28 +76,28 @@     -> RestoreServer restoreServer pBackupId_ pServerName_ =   RestoreServer'-  { _rsKeyPair = Nothing-  , _rsInstanceType = Nothing-  , _rsBackupId = pBackupId_-  , _rsServerName = pServerName_-  }+    { _rsKeyPair = Nothing+    , _rsInstanceType = Nothing+    , _rsBackupId = pBackupId_+    , _rsServerName = pServerName_+    }   -- | The name of the key pair to set on the new EC2 instance. This can be helpful if the administrator no longer has the SSH key. rsKeyPair :: Lens' RestoreServer (Maybe Text)-rsKeyPair = lens _rsKeyPair (\ s a -> s{_rsKeyPair = a});+rsKeyPair = lens _rsKeyPair (\ s a -> s{_rsKeyPair = a})  -- | The type of the instance to create. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @m4.large@ . Valid values are @t2.medium@ , @m4.large@ , and @m4.2xlarge@ . If you do not specify this parameter, RestoreServer uses the instance type from the specified backup. rsInstanceType :: Lens' RestoreServer (Maybe Text)-rsInstanceType = lens _rsInstanceType (\ s a -> s{_rsInstanceType = a});+rsInstanceType = lens _rsInstanceType (\ s a -> s{_rsInstanceType = a})  -- | The ID of the backup that you want to use to restore a server. rsBackupId :: Lens' RestoreServer Text-rsBackupId = lens _rsBackupId (\ s a -> s{_rsBackupId = a});+rsBackupId = lens _rsBackupId (\ s a -> s{_rsBackupId = a})  -- | The name of the server that you want to restore. rsServerName :: Lens' RestoreServer Text-rsServerName = lens _rsServerName (\ s a -> s{_rsServerName = a});+rsServerName = lens _rsServerName (\ s a -> s{_rsServerName = a})  instance AWSRequest RestoreServer where         type Rs RestoreServer = RestoreServerResponse@@ -156,6 +156,6 @@  -- | -- | The response status code. rsrsResponseStatus :: Lens' RestoreServerResponse Int-rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a});+rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a})  instance NFData RestoreServerResponse where
gen/Network/AWS/OpsWorksCM/StartMaintenance.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.StartMaintenance--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -66,16 +66,16 @@     -> StartMaintenance startMaintenance pServerName_ =   StartMaintenance'-  {_smEngineAttributes = Nothing, _smServerName = pServerName_}+    {_smEngineAttributes = Nothing, _smServerName = pServerName_}   -- | Engine attributes that are specific to the server on which you want to run maintenance. smEngineAttributes :: Lens' StartMaintenance [EngineAttribute]-smEngineAttributes = lens _smEngineAttributes (\ s a -> s{_smEngineAttributes = a}) . _Default . _Coerce;+smEngineAttributes = lens _smEngineAttributes (\ s a -> s{_smEngineAttributes = a}) . _Default . _Coerce  -- | The name of the server on which to run maintenance. smServerName :: Lens' StartMaintenance Text-smServerName = lens _smServerName (\ s a -> s{_smServerName = a});+smServerName = lens _smServerName (\ s a -> s{_smServerName = a})  instance AWSRequest StartMaintenance where         type Rs StartMaintenance = StartMaintenanceResponse@@ -132,15 +132,15 @@     -> StartMaintenanceResponse startMaintenanceResponse pResponseStatus_ =   StartMaintenanceResponse'-  {_smrsServer = Nothing, _smrsResponseStatus = pResponseStatus_}+    {_smrsServer = Nothing, _smrsResponseStatus = pResponseStatus_}   -- | Contains the response to a @StartMaintenance@ request. smrsServer :: Lens' StartMaintenanceResponse (Maybe Server)-smrsServer = lens _smrsServer (\ s a -> s{_smrsServer = a});+smrsServer = lens _smrsServer (\ s a -> s{_smrsServer = a})  -- | -- | The response status code. smrsResponseStatus :: Lens' StartMaintenanceResponse Int-smrsResponseStatus = lens _smrsResponseStatus (\ s a -> s{_smrsResponseStatus = a});+smrsResponseStatus = lens _smrsResponseStatus (\ s a -> s{_smrsResponseStatus = a})  instance NFData StartMaintenanceResponse where
gen/Network/AWS/OpsWorksCM/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -125,24 +125,24 @@ opsWorksCM :: Service opsWorksCM =   Service-  { _svcAbbrev = "OpsWorksCM"-  , _svcSigner = v4-  , _svcPrefix = "opsworks-cm"-  , _svcVersion = "2016-11-01"-  , _svcEndpoint = defaultEndpoint opsWorksCM-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "OpsWorksCM"-  , _svcRetry = retry-  }+    { _svcAbbrev = "OpsWorksCM"+    , _svcSigner = v4+    , _svcPrefix = "opsworks-cm"+    , _svcVersion = "2016-11-01"+    , _svcEndpoint = defaultEndpoint opsWorksCM+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "OpsWorksCM"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -151,6 +151,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/OpsWorksCM/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -50,15 +50,15 @@  -- | The current usage, such as the current number of servers that are associated with the account. aaUsed :: Lens' AccountAttribute (Maybe Int)-aaUsed = lens _aaUsed (\ s a -> s{_aaUsed = a});+aaUsed = lens _aaUsed (\ s a -> s{_aaUsed = a})  -- | The maximum allowed value. aaMaximum :: Lens' AccountAttribute (Maybe Int)-aaMaximum = lens _aaMaximum (\ s a -> s{_aaMaximum = a});+aaMaximum = lens _aaMaximum (\ s a -> s{_aaMaximum = a})  -- | The attribute name. The following are supported attribute names.      * /ServerLimit:/ The number of current servers/maximum number of servers allowed. By default, you can have a maximum of 10 servers.      * /ManualBackupLimit:/ The number of current manual backups/maximum number of backups allowed. By default, you can have a maximum of 50 manual backups saved. aaName :: Lens' AccountAttribute (Maybe Text)-aaName = lens _aaName (\ s a -> s{_aaName = a});+aaName = lens _aaName (\ s a -> s{_aaName = a})  instance FromJSON AccountAttribute where         parseJSON@@ -155,133 +155,133 @@ -- -- * 'bBackupType' - The backup type. Valid values are @automated@ or @manual@ . ----- * 'bToolsVersion' - The version of AWS OpsWorks for Chef Automate-specific tools that is obtained from the server when the backup is created.+-- * 'bToolsVersion' - The version of AWS OpsWorks CM-specific tools that is obtained from the server when the backup is created. backup     :: Backup backup =   Backup'-  { _bEngineVersion = Nothing-  , _bServiceRoleARN = Nothing-  , _bStatus = Nothing-  , _bInstanceProfileARN = Nothing-  , _bSecurityGroupIds = Nothing-  , _bStatusDescription = Nothing-  , _bServerName = Nothing-  , _bSubnetIds = Nothing-  , _bKeyPair = Nothing-  , _bCreatedAt = Nothing-  , _bBackupId = Nothing-  , _bEngine = Nothing-  , _bInstanceType = Nothing-  , _bEngineModel = Nothing-  , _bPreferredMaintenanceWindow = Nothing-  , _bUserARN = Nothing-  , _bPreferredBackupWindow = Nothing-  , _bS3LogURL = Nothing-  , _bS3DataSize = Nothing-  , _bBackupARN = Nothing-  , _bS3DataURL = Nothing-  , _bDescription = Nothing-  , _bBackupType = Nothing-  , _bToolsVersion = Nothing-  }+    { _bEngineVersion = Nothing+    , _bServiceRoleARN = Nothing+    , _bStatus = Nothing+    , _bInstanceProfileARN = Nothing+    , _bSecurityGroupIds = Nothing+    , _bStatusDescription = Nothing+    , _bServerName = Nothing+    , _bSubnetIds = Nothing+    , _bKeyPair = Nothing+    , _bCreatedAt = Nothing+    , _bBackupId = Nothing+    , _bEngine = Nothing+    , _bInstanceType = Nothing+    , _bEngineModel = Nothing+    , _bPreferredMaintenanceWindow = Nothing+    , _bUserARN = Nothing+    , _bPreferredBackupWindow = Nothing+    , _bS3LogURL = Nothing+    , _bS3DataSize = Nothing+    , _bBackupARN = Nothing+    , _bS3DataURL = Nothing+    , _bDescription = Nothing+    , _bBackupType = Nothing+    , _bToolsVersion = Nothing+    }   -- | The engine version that is obtained from the server when the backup is created. bEngineVersion :: Lens' Backup (Maybe Text)-bEngineVersion = lens _bEngineVersion (\ s a -> s{_bEngineVersion = a});+bEngineVersion = lens _bEngineVersion (\ s a -> s{_bEngineVersion = a})  -- | The service role ARN that is obtained from the server when the backup is created. bServiceRoleARN :: Lens' Backup (Maybe Text)-bServiceRoleARN = lens _bServiceRoleARN (\ s a -> s{_bServiceRoleARN = a});+bServiceRoleARN = lens _bServiceRoleARN (\ s a -> s{_bServiceRoleARN = a})  -- | The status of a backup while in progress. bStatus :: Lens' Backup (Maybe BackupStatus)-bStatus = lens _bStatus (\ s a -> s{_bStatus = a});+bStatus = lens _bStatus (\ s a -> s{_bStatus = a})  -- | The EC2 instance profile ARN that is obtained from the server when the backup is created. Because this value is stored, you are not required to provide the InstanceProfileArn again if you restore a backup. bInstanceProfileARN :: Lens' Backup (Maybe Text)-bInstanceProfileARN = lens _bInstanceProfileARN (\ s a -> s{_bInstanceProfileARN = a});+bInstanceProfileARN = lens _bInstanceProfileARN (\ s a -> s{_bInstanceProfileARN = a})  -- | The security group IDs that are obtained from the server when the backup is created. bSecurityGroupIds :: Lens' Backup [Text]-bSecurityGroupIds = lens _bSecurityGroupIds (\ s a -> s{_bSecurityGroupIds = a}) . _Default . _Coerce;+bSecurityGroupIds = lens _bSecurityGroupIds (\ s a -> s{_bSecurityGroupIds = a}) . _Default . _Coerce  -- | An informational message about backup status. bStatusDescription :: Lens' Backup (Maybe Text)-bStatusDescription = lens _bStatusDescription (\ s a -> s{_bStatusDescription = a});+bStatusDescription = lens _bStatusDescription (\ s a -> s{_bStatusDescription = a})  -- | The name of the server from which the backup was made. bServerName :: Lens' Backup (Maybe Text)-bServerName = lens _bServerName (\ s a -> s{_bServerName = a});+bServerName = lens _bServerName (\ s a -> s{_bServerName = a})  -- | The subnet IDs that are obtained from the server when the backup is created. bSubnetIds :: Lens' Backup [Text]-bSubnetIds = lens _bSubnetIds (\ s a -> s{_bSubnetIds = a}) . _Default . _Coerce;+bSubnetIds = lens _bSubnetIds (\ s a -> s{_bSubnetIds = a}) . _Default . _Coerce  -- | The key pair that is obtained from the server when the backup is created. bKeyPair :: Lens' Backup (Maybe Text)-bKeyPair = lens _bKeyPair (\ s a -> s{_bKeyPair = a});+bKeyPair = lens _bKeyPair (\ s a -> s{_bKeyPair = a})  -- | The time stamp when the backup was created in the database. Example: @2016-07-29T13:38:47.520Z@ bCreatedAt :: Lens' Backup (Maybe UTCTime)-bCreatedAt = lens _bCreatedAt (\ s a -> s{_bCreatedAt = a}) . mapping _Time;+bCreatedAt = lens _bCreatedAt (\ s a -> s{_bCreatedAt = a}) . mapping _Time  -- | The generated ID of the backup. Example: @myServerName-yyyyMMddHHmmssSSS@ bBackupId :: Lens' Backup (Maybe Text)-bBackupId = lens _bBackupId (\ s a -> s{_bBackupId = a});+bBackupId = lens _bBackupId (\ s a -> s{_bBackupId = a})  -- | The engine type that is obtained from the server when the backup is created. bEngine :: Lens' Backup (Maybe Text)-bEngine = lens _bEngine (\ s a -> s{_bEngine = a});+bEngine = lens _bEngine (\ s a -> s{_bEngine = a})  -- | The instance type that is obtained from the server when the backup is created. bInstanceType :: Lens' Backup (Maybe Text)-bInstanceType = lens _bInstanceType (\ s a -> s{_bInstanceType = a});+bInstanceType = lens _bInstanceType (\ s a -> s{_bInstanceType = a})  -- | The engine model that is obtained from the server when the backup is created. bEngineModel :: Lens' Backup (Maybe Text)-bEngineModel = lens _bEngineModel (\ s a -> s{_bEngineModel = a});+bEngineModel = lens _bEngineModel (\ s a -> s{_bEngineModel = a})  -- | The preferred maintenance period that is obtained from the server when the backup is created. bPreferredMaintenanceWindow :: Lens' Backup (Maybe Text)-bPreferredMaintenanceWindow = lens _bPreferredMaintenanceWindow (\ s a -> s{_bPreferredMaintenanceWindow = a});+bPreferredMaintenanceWindow = lens _bPreferredMaintenanceWindow (\ s a -> s{_bPreferredMaintenanceWindow = a})  -- | The IAM user ARN of the requester for manual backups. This field is empty for automated backups. bUserARN :: Lens' Backup (Maybe Text)-bUserARN = lens _bUserARN (\ s a -> s{_bUserARN = a});+bUserARN = lens _bUserARN (\ s a -> s{_bUserARN = a})  -- | The preferred backup period that is obtained from the server when the backup is created. bPreferredBackupWindow :: Lens' Backup (Maybe Text)-bPreferredBackupWindow = lens _bPreferredBackupWindow (\ s a -> s{_bPreferredBackupWindow = a});+bPreferredBackupWindow = lens _bPreferredBackupWindow (\ s a -> s{_bPreferredBackupWindow = a})  -- | The Amazon S3 URL of the backup's log file. bS3LogURL :: Lens' Backup (Maybe Text)-bS3LogURL = lens _bS3LogURL (\ s a -> s{_bS3LogURL = a});+bS3LogURL = lens _bS3LogURL (\ s a -> s{_bS3LogURL = a})  -- | This field is deprecated and is no longer used. bS3DataSize :: Lens' Backup (Maybe Int)-bS3DataSize = lens _bS3DataSize (\ s a -> s{_bS3DataSize = a});+bS3DataSize = lens _bS3DataSize (\ s a -> s{_bS3DataSize = a})  -- | The ARN of the backup. bBackupARN :: Lens' Backup (Maybe Text)-bBackupARN = lens _bBackupARN (\ s a -> s{_bBackupARN = a});+bBackupARN = lens _bBackupARN (\ s a -> s{_bBackupARN = a})  -- | This field is deprecated and is no longer used. bS3DataURL :: Lens' Backup (Maybe Text)-bS3DataURL = lens _bS3DataURL (\ s a -> s{_bS3DataURL = a});+bS3DataURL = lens _bS3DataURL (\ s a -> s{_bS3DataURL = a})  -- | A user-provided description for a manual backup. This field is empty for automated backups. bDescription :: Lens' Backup (Maybe Text)-bDescription = lens _bDescription (\ s a -> s{_bDescription = a});+bDescription = lens _bDescription (\ s a -> s{_bDescription = a})  -- | The backup type. Valid values are @automated@ or @manual@ . bBackupType :: Lens' Backup (Maybe BackupType)-bBackupType = lens _bBackupType (\ s a -> s{_bBackupType = a});+bBackupType = lens _bBackupType (\ s a -> s{_bBackupType = a}) --- | The version of AWS OpsWorks for Chef Automate-specific tools that is obtained from the server when the backup is created.+-- | The version of AWS OpsWorks CM-specific tools that is obtained from the server when the backup is created. bToolsVersion :: Lens' Backup (Maybe Text)-bToolsVersion = lens _bToolsVersion (\ s a -> s{_bToolsVersion = a});+bToolsVersion = lens _bToolsVersion (\ s a -> s{_bToolsVersion = a})  instance FromJSON Backup where         parseJSON@@ -341,11 +341,11 @@  -- | The value of the engine attribute. eaValue :: Lens' EngineAttribute (Maybe Text)-eaValue = lens _eaValue (\ s a -> s{_eaValue = a}) . mapping _Sensitive;+eaValue = lens _eaValue (\ s a -> s{_eaValue = a}) . mapping _Sensitive  -- | The name of the engine attribute. eaName :: Lens' EngineAttribute (Maybe Text)-eaName = lens _eaName (\ s a -> s{_eaName = a});+eaName = lens _eaName (\ s a -> s{_eaName = a})  instance FromJSON EngineAttribute where         parseJSON@@ -400,7 +400,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sEngineVersion' - The engine version of the server. Because Chef is the engine available in this release, the valid value for EngineVersion is @12@ .+-- * 'sEngineVersion' - The engine version of the server. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ . -- -- * 'sServiceRoleARN' - The service role ARN used to create the server. --@@ -424,15 +424,15 @@ -- -- * 'sServerARN' - The ARN of the server. ----- * 'sEngine' - The engine type of the server. The valid value in this release is @Chef@ .+-- * 'sEngine' - The engine type of the server. Valid values in this release include @Chef@ and @Puppet@ . -- -- * 'sMaintenanceStatus' - The status of the most recent server maintenance run. Shows @SUCCESS@ or @FAILED@ . -- -- * 'sInstanceType' - The instance type for the server, as specified in the CloudFormation stack. This might not be the same instance type that is shown in the EC2 console. ----- * 'sEngineModel' - The engine model of the server. The valid value in this release is @Single@ .+-- * 'sEngineModel' - The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef. ----- * 'sEngineAttributes' - The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks for Chef Automate; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands.+-- * 'sEngineAttributes' - The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks CM; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response for Chef__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands. __Attributes returned in a createServer response for Puppet__      * @PUPPET_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Puppet starter kit, including a README and a required private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents.     * @PUPPET_ADMIN_PASSWORD@ : An administrator password that you can use to sign in to the Puppet Enterprise console after the server is online. -- -- * 'sPreferredMaintenanceWindow' - The preferred maintenance period specified for the server. --@@ -449,123 +449,123 @@     :: Server server =   Server'-  { _sEngineVersion = Nothing-  , _sServiceRoleARN = Nothing-  , _sDisableAutomatedBackup = Nothing-  , _sStatus = Nothing-  , _sInstanceProfileARN = Nothing-  , _sSecurityGroupIds = Nothing-  , _sAssociatePublicIPAddress = Nothing-  , _sServerName = Nothing-  , _sSubnetIds = Nothing-  , _sKeyPair = Nothing-  , _sCreatedAt = Nothing-  , _sServerARN = Nothing-  , _sEngine = Nothing-  , _sMaintenanceStatus = Nothing-  , _sInstanceType = Nothing-  , _sEngineModel = Nothing-  , _sEngineAttributes = Nothing-  , _sPreferredMaintenanceWindow = Nothing-  , _sPreferredBackupWindow = Nothing-  , _sStatusReason = Nothing-  , _sEndpoint = Nothing-  , _sCloudFormationStackARN = Nothing-  , _sBackupRetentionCount = Nothing-  }+    { _sEngineVersion = Nothing+    , _sServiceRoleARN = Nothing+    , _sDisableAutomatedBackup = Nothing+    , _sStatus = Nothing+    , _sInstanceProfileARN = Nothing+    , _sSecurityGroupIds = Nothing+    , _sAssociatePublicIPAddress = Nothing+    , _sServerName = Nothing+    , _sSubnetIds = Nothing+    , _sKeyPair = Nothing+    , _sCreatedAt = Nothing+    , _sServerARN = Nothing+    , _sEngine = Nothing+    , _sMaintenanceStatus = Nothing+    , _sInstanceType = Nothing+    , _sEngineModel = Nothing+    , _sEngineAttributes = Nothing+    , _sPreferredMaintenanceWindow = Nothing+    , _sPreferredBackupWindow = Nothing+    , _sStatusReason = Nothing+    , _sEndpoint = Nothing+    , _sCloudFormationStackARN = Nothing+    , _sBackupRetentionCount = Nothing+    }  --- | The engine version of the server. Because Chef is the engine available in this release, the valid value for EngineVersion is @12@ .+-- | The engine version of the server. For a Chef server, the valid value for EngineVersion is currently @12@ . For a Puppet server, the valid value is @2017@ . sEngineVersion :: Lens' Server (Maybe Text)-sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});+sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a})  -- | The service role ARN used to create the server. sServiceRoleARN :: Lens' Server (Maybe Text)-sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a});+sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a})  -- | Disables automated backups. The number of stored backups is dependent on the value of PreferredBackupCount. sDisableAutomatedBackup :: Lens' Server (Maybe Bool)-sDisableAutomatedBackup = lens _sDisableAutomatedBackup (\ s a -> s{_sDisableAutomatedBackup = a});+sDisableAutomatedBackup = lens _sDisableAutomatedBackup (\ s a -> s{_sDisableAutomatedBackup = a})  -- | The server's status. This field displays the states of actions in progress, such as creating, running, or backing up the server, as well as the server's health state. sStatus :: Lens' Server (Maybe ServerStatus)-sStatus = lens _sStatus (\ s a -> s{_sStatus = a});+sStatus = lens _sStatus (\ s a -> s{_sStatus = a})  -- | The instance profile ARN of the server. sInstanceProfileARN :: Lens' Server (Maybe Text)-sInstanceProfileARN = lens _sInstanceProfileARN (\ s a -> s{_sInstanceProfileARN = a});+sInstanceProfileARN = lens _sInstanceProfileARN (\ s a -> s{_sInstanceProfileARN = a})  -- | The security group IDs for the server, as specified in the CloudFormation stack. These might not be the same security groups that are shown in the EC2 console. sSecurityGroupIds :: Lens' Server [Text]-sSecurityGroupIds = lens _sSecurityGroupIds (\ s a -> s{_sSecurityGroupIds = a}) . _Default . _Coerce;+sSecurityGroupIds = lens _sSecurityGroupIds (\ s a -> s{_sSecurityGroupIds = a}) . _Default . _Coerce  -- | Associate a public IP address with a server that you are launching. sAssociatePublicIPAddress :: Lens' Server (Maybe Bool)-sAssociatePublicIPAddress = lens _sAssociatePublicIPAddress (\ s a -> s{_sAssociatePublicIPAddress = a});+sAssociatePublicIPAddress = lens _sAssociatePublicIPAddress (\ s a -> s{_sAssociatePublicIPAddress = a})  -- | The name of the server. sServerName :: Lens' Server (Maybe Text)-sServerName = lens _sServerName (\ s a -> s{_sServerName = a});+sServerName = lens _sServerName (\ s a -> s{_sServerName = a})  -- | The subnet IDs specified in a CreateServer request. sSubnetIds :: Lens' Server [Text]-sSubnetIds = lens _sSubnetIds (\ s a -> s{_sSubnetIds = a}) . _Default . _Coerce;+sSubnetIds = lens _sSubnetIds (\ s a -> s{_sSubnetIds = a}) . _Default . _Coerce  -- | The key pair associated with the server. sKeyPair :: Lens' Server (Maybe Text)-sKeyPair = lens _sKeyPair (\ s a -> s{_sKeyPair = a});+sKeyPair = lens _sKeyPair (\ s a -> s{_sKeyPair = a})  -- | Time stamp of server creation. Example @2016-07-29T13:38:47.520Z@ sCreatedAt :: Lens' Server (Maybe UTCTime)-sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a}) . mapping _Time;+sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a}) . mapping _Time  -- | The ARN of the server. sServerARN :: Lens' Server (Maybe Text)-sServerARN = lens _sServerARN (\ s a -> s{_sServerARN = a});+sServerARN = lens _sServerARN (\ s a -> s{_sServerARN = a}) --- | The engine type of the server. The valid value in this release is @Chef@ .+-- | The engine type of the server. Valid values in this release include @Chef@ and @Puppet@ . sEngine :: Lens' Server (Maybe Text)-sEngine = lens _sEngine (\ s a -> s{_sEngine = a});+sEngine = lens _sEngine (\ s a -> s{_sEngine = a})  -- | The status of the most recent server maintenance run. Shows @SUCCESS@ or @FAILED@ . sMaintenanceStatus :: Lens' Server (Maybe MaintenanceStatus)-sMaintenanceStatus = lens _sMaintenanceStatus (\ s a -> s{_sMaintenanceStatus = a});+sMaintenanceStatus = lens _sMaintenanceStatus (\ s a -> s{_sMaintenanceStatus = a})  -- | The instance type for the server, as specified in the CloudFormation stack. This might not be the same instance type that is shown in the EC2 console. sInstanceType :: Lens' Server (Maybe Text)-sInstanceType = lens _sInstanceType (\ s a -> s{_sInstanceType = a});+sInstanceType = lens _sInstanceType (\ s a -> s{_sInstanceType = a}) --- | The engine model of the server. The valid value in this release is @Single@ .+-- | The engine model of the server. Valid values in this release include @Monolithic@ for Puppet and @Single@ for Chef. sEngineModel :: Lens' Server (Maybe Text)-sEngineModel = lens _sEngineModel (\ s a -> s{_sEngineModel = a});+sEngineModel = lens _sEngineModel (\ s a -> s{_sEngineModel = a}) --- | The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks for Chef Automate; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response:__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands.+-- | The response of a createServer() request returns the master credential to access the server in EngineAttributes. These credentials are not stored by AWS OpsWorks CM; they are returned only as part of the result of createServer().  __Attributes returned in a createServer response for Chef__      * @CHEF_PIVOTAL_KEY@ : A base64-encoded RSA private key that is generated by AWS OpsWorks for Chef Automate. This private key is required to access the Chef API.     * @CHEF_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Chef starter kit, which includes a README, a configuration file, and the required RSA private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents. From this directory, you can run Knife commands. __Attributes returned in a createServer response for Puppet__      * @PUPPET_STARTER_KIT@ : A base64-encoded ZIP file. The ZIP file contains a Puppet starter kit, including a README and a required private key. Save this file, unzip it, and then change to the directory where you've unzipped the file contents.     * @PUPPET_ADMIN_PASSWORD@ : An administrator password that you can use to sign in to the Puppet Enterprise console after the server is online. sEngineAttributes :: Lens' Server [EngineAttribute]-sEngineAttributes = lens _sEngineAttributes (\ s a -> s{_sEngineAttributes = a}) . _Default . _Coerce;+sEngineAttributes = lens _sEngineAttributes (\ s a -> s{_sEngineAttributes = a}) . _Default . _Coerce  -- | The preferred maintenance period specified for the server. sPreferredMaintenanceWindow :: Lens' Server (Maybe Text)-sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a});+sPreferredMaintenanceWindow = lens _sPreferredMaintenanceWindow (\ s a -> s{_sPreferredMaintenanceWindow = a})  -- | The preferred backup period specified for the server. sPreferredBackupWindow :: Lens' Server (Maybe Text)-sPreferredBackupWindow = lens _sPreferredBackupWindow (\ s a -> s{_sPreferredBackupWindow = a});+sPreferredBackupWindow = lens _sPreferredBackupWindow (\ s a -> s{_sPreferredBackupWindow = a})  -- | Depending on the server status, this field has either a human-readable message (such as a create or backup error), or an escaped block of JSON (used for health check results). sStatusReason :: Lens' Server (Maybe Text)-sStatusReason = lens _sStatusReason (\ s a -> s{_sStatusReason = a});+sStatusReason = lens _sStatusReason (\ s a -> s{_sStatusReason = a})  -- | A DNS name that can be used to access the engine. Example: @myserver-asdfghjkl.us-east-1.opsworks.io@ sEndpoint :: Lens' Server (Maybe Text)-sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a});+sEndpoint = lens _sEndpoint (\ s a -> s{_sEndpoint = a})  -- | The ARN of the CloudFormation stack that was used to create the server. sCloudFormationStackARN :: Lens' Server (Maybe Text)-sCloudFormationStackARN = lens _sCloudFormationStackARN (\ s a -> s{_sCloudFormationStackARN = a});+sCloudFormationStackARN = lens _sCloudFormationStackARN (\ s a -> s{_sCloudFormationStackARN = a})  -- | The number of automated backups to keep. sBackupRetentionCount :: Lens' Server (Maybe Int)-sBackupRetentionCount = lens _sBackupRetentionCount (\ s a -> s{_sBackupRetentionCount = a});+sBackupRetentionCount = lens _sBackupRetentionCount (\ s a -> s{_sBackupRetentionCount = a})  instance FromJSON Server where         parseJSON@@ -627,28 +627,28 @@     :: ServerEvent serverEvent =   ServerEvent'-  { _seLogURL = Nothing-  , _seServerName = Nothing-  , _seCreatedAt = Nothing-  , _seMessage = Nothing-  }+    { _seLogURL = Nothing+    , _seServerName = Nothing+    , _seCreatedAt = Nothing+    , _seMessage = Nothing+    }   -- | The Amazon S3 URL of the event's log file. seLogURL :: Lens' ServerEvent (Maybe Text)-seLogURL = lens _seLogURL (\ s a -> s{_seLogURL = a});+seLogURL = lens _seLogURL (\ s a -> s{_seLogURL = a})  -- | The name of the server on or for which the event occurred. seServerName :: Lens' ServerEvent (Maybe Text)-seServerName = lens _seServerName (\ s a -> s{_seServerName = a});+seServerName = lens _seServerName (\ s a -> s{_seServerName = a})  -- | The time when the event occurred. seCreatedAt :: Lens' ServerEvent (Maybe UTCTime)-seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a}) . mapping _Time;+seCreatedAt = lens _seCreatedAt (\ s a -> s{_seCreatedAt = a}) . mapping _Time  -- | A human-readable informational or status message. seMessage :: Lens' ServerEvent (Maybe Text)-seMessage = lens _seMessage (\ s a -> s{_seMessage = a});+seMessage = lens _seMessage (\ s a -> s{_seMessage = a})  instance FromJSON ServerEvent where         parseJSON
gen/Network/AWS/OpsWorksCM/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/OpsWorksCM/UpdateServer.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.UpdateServer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -78,33 +78,33 @@     -> UpdateServer updateServer pServerName_ =   UpdateServer'-  { _usDisableAutomatedBackup = Nothing-  , _usPreferredMaintenanceWindow = Nothing-  , _usPreferredBackupWindow = Nothing-  , _usBackupRetentionCount = Nothing-  , _usServerName = pServerName_-  }+    { _usDisableAutomatedBackup = Nothing+    , _usPreferredMaintenanceWindow = Nothing+    , _usPreferredBackupWindow = Nothing+    , _usBackupRetentionCount = Nothing+    , _usServerName = pServerName_+    }   -- | Setting DisableAutomatedBackup to @true@ disables automated or scheduled backups. Automated backups are enabled by default. usDisableAutomatedBackup :: Lens' UpdateServer (Maybe Bool)-usDisableAutomatedBackup = lens _usDisableAutomatedBackup (\ s a -> s{_usDisableAutomatedBackup = a});+usDisableAutomatedBackup = lens _usDisableAutomatedBackup (\ s a -> s{_usDisableAutomatedBackup = a})  -- | Undocumented member. usPreferredMaintenanceWindow :: Lens' UpdateServer (Maybe Text)-usPreferredMaintenanceWindow = lens _usPreferredMaintenanceWindow (\ s a -> s{_usPreferredMaintenanceWindow = a});+usPreferredMaintenanceWindow = lens _usPreferredMaintenanceWindow (\ s a -> s{_usPreferredMaintenanceWindow = a})  -- | Undocumented member. usPreferredBackupWindow :: Lens' UpdateServer (Maybe Text)-usPreferredBackupWindow = lens _usPreferredBackupWindow (\ s a -> s{_usPreferredBackupWindow = a});+usPreferredBackupWindow = lens _usPreferredBackupWindow (\ s a -> s{_usPreferredBackupWindow = a})  -- | Sets the number of automated backups that you want to keep. usBackupRetentionCount :: Lens' UpdateServer (Maybe Int)-usBackupRetentionCount = lens _usBackupRetentionCount (\ s a -> s{_usBackupRetentionCount = a});+usBackupRetentionCount = lens _usBackupRetentionCount (\ s a -> s{_usBackupRetentionCount = a})  -- | The name of the server to update. usServerName :: Lens' UpdateServer Text-usServerName = lens _usServerName (\ s a -> s{_usServerName = a});+usServerName = lens _usServerName (\ s a -> s{_usServerName = a})  instance AWSRequest UpdateServer where         type Rs UpdateServer = UpdateServerResponse@@ -168,15 +168,15 @@     -> UpdateServerResponse updateServerResponse pResponseStatus_ =   UpdateServerResponse'-  {_usrsServer = Nothing, _usrsResponseStatus = pResponseStatus_}+    {_usrsServer = Nothing, _usrsResponseStatus = pResponseStatus_}   -- | Contains the response to a @UpdateServer@ request. usrsServer :: Lens' UpdateServerResponse (Maybe Server)-usrsServer = lens _usrsServer (\ s a -> s{_usrsServer = a});+usrsServer = lens _usrsServer (\ s a -> s{_usrsServer = a})  -- | -- | The response status code. usrsResponseStatus :: Lens' UpdateServerResponse Int-usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a});+usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a})  instance NFData UpdateServerResponse where
gen/Network/AWS/OpsWorksCM/UpdateServerEngineAttributes.hs view
@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.OpsWorksCM.UpdateServerEngineAttributes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates engine-specific attributes on a specified server. The server enters the @MODIFYING@ state when this operation is in progress. Only one update can occur at a time. You can use this command to reset the Chef server's private key (@CHEF_PIVOTAL_KEY@ ).+-- Updates engine-specific attributes on a specified server. The server enters the @MODIFYING@ state when this operation is in progress. Only one update can occur at a time. You can use this command to reset a Chef server's private key (@CHEF_PIVOTAL_KEY@ ), a Chef server's admin password (@CHEF_DELIVERY_ADMIN_PASSWORD@ ), or a Puppet server's admin password (@PUPPET_ADMIN_PASSWORD@ ). -- -- -- This operation is asynchronous.@@ -73,23 +73,23 @@     -> UpdateServerEngineAttributes updateServerEngineAttributes pServerName_ pAttributeName_ =   UpdateServerEngineAttributes'-  { _useaAttributeValue = Nothing-  , _useaServerName = pServerName_-  , _useaAttributeName = pAttributeName_-  }+    { _useaAttributeValue = Nothing+    , _useaServerName = pServerName_+    , _useaAttributeName = pAttributeName_+    }   -- | The value to set for the attribute. useaAttributeValue :: Lens' UpdateServerEngineAttributes (Maybe Text)-useaAttributeValue = lens _useaAttributeValue (\ s a -> s{_useaAttributeValue = a});+useaAttributeValue = lens _useaAttributeValue (\ s a -> s{_useaAttributeValue = a})  -- | The name of the server to update. useaServerName :: Lens' UpdateServerEngineAttributes Text-useaServerName = lens _useaServerName (\ s a -> s{_useaServerName = a});+useaServerName = lens _useaServerName (\ s a -> s{_useaServerName = a})  -- | The name of the engine attribute to update. useaAttributeName :: Lens' UpdateServerEngineAttributes Text-useaAttributeName = lens _useaAttributeName (\ s a -> s{_useaAttributeName = a});+useaAttributeName = lens _useaAttributeName (\ s a -> s{_useaAttributeName = a})  instance AWSRequest UpdateServerEngineAttributes          where@@ -149,16 +149,16 @@     -> UpdateServerEngineAttributesResponse updateServerEngineAttributesResponse pResponseStatus_ =   UpdateServerEngineAttributesResponse'-  {_usearsServer = Nothing, _usearsResponseStatus = pResponseStatus_}+    {_usearsServer = Nothing, _usearsResponseStatus = pResponseStatus_}   -- | Contains the response to an @UpdateServerEngineAttributes@ request. usearsServer :: Lens' UpdateServerEngineAttributesResponse (Maybe Server)-usearsServer = lens _usearsServer (\ s a -> s{_usearsServer = a});+usearsServer = lens _usearsServer (\ s a -> s{_usearsServer = a})  -- | -- | The response status code. usearsResponseStatus :: Lens' UpdateServerEngineAttributesResponse Int-usearsResponseStatus = lens _usearsResponseStatus (\ s a -> s{_usearsResponseStatus = a});+usearsResponseStatus = lens _usearsResponseStatus (\ s a -> s{_usearsResponseStatus = a})  instance NFData UpdateServerEngineAttributesResponse          where
gen/Network/AWS/OpsWorksCM/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -25,18 +25,18 @@ nodeAssociated :: Wait DescribeNodeAssociationStatus nodeAssociated =   Wait-  { _waitName = "NodeAssociated"-  , _waitAttempts = 15-  , _waitDelay = 15-  , _waitAcceptors =-      [ matchAll-          "SUCCESS"-          AcceptSuccess-          (dnasrsNodeAssociationStatus . to toTextCI)-      , matchAll-          "FAILED"-          AcceptFailure-          (dnasrsNodeAssociationStatus . to toTextCI)-      ]-  }+    { _waitName = "NodeAssociated"+    , _waitAttempts = 15+    , _waitDelay = 15+    , _waitAcceptors =+        [ matchAll+            "SUCCESS"+            AcceptSuccess+            (dnasrsNodeAssociationStatus . to toTextCI)+        , matchAll+            "FAILED"+            AcceptFailure+            (dnasrsNodeAssociationStatus . to toTextCI)+        ]+    }
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/Gen/OpsWorksCM.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.OpsWorksCM--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/OpsWorksCM.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.OpsWorksCM--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated
test/Test/AWS/OpsWorksCM/Internal.hs view
@@ -1,6 +1,6 @@ -- | -- Module      : Test.AWS.OpsWorksCM.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com> -- Stability   : auto-generated