amazonka-opsworks-cm 1.4.5 → 1.5.0

raw patch · 24 files changed

+940/−773 lines, 24 filesdep ~amazonka-coredep ~amazonka-opsworks-cmdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-opsworks-cm, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-opsworks-cm.cabal +16/−11
• gen/Network/AWS/OpsWorksCM.hs +41/−24
• gen/Network/AWS/OpsWorksCM/AssociateNode.hs +52/−42
• gen/Network/AWS/OpsWorksCM/CreateBackup.hs +28/−31
• gen/Network/AWS/OpsWorksCM/CreateServer.hs +94/−82
• gen/Network/AWS/OpsWorksCM/DeleteBackup.hs +23/−26
• gen/Network/AWS/OpsWorksCM/DeleteServer.hs +23/−24
• gen/Network/AWS/OpsWorksCM/DescribeAccountAttributes.hs +22/−19
• gen/Network/AWS/OpsWorksCM/DescribeBackups.hs +36/−32
• gen/Network/AWS/OpsWorksCM/DescribeEvents.hs +34/−30
• gen/Network/AWS/OpsWorksCM/DescribeNodeAssociationStatus.hs +57/−37
• gen/Network/AWS/OpsWorksCM/DescribeServers.hs +31/−30
• gen/Network/AWS/OpsWorksCM/DisassociateNode.hs +44/−36
• gen/Network/AWS/OpsWorksCM/RestoreServer.hs +35/−33
• gen/Network/AWS/OpsWorksCM/StartMaintenance.hs +38/−27
• gen/Network/AWS/OpsWorksCM/Types.hs +42/−31
• gen/Network/AWS/OpsWorksCM/Types/Product.hs +171/−151
• gen/Network/AWS/OpsWorksCM/Types/Sum.hs +55/−31
• gen/Network/AWS/OpsWorksCM/UpdateServer.hs +33/−31
• gen/Network/AWS/OpsWorksCM/UpdateServerEngineAttributes.hs +31/−32
• gen/Network/AWS/OpsWorksCM/Waiters.hs +27/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/OpsWorksCM.hs +4/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-opsworks-cm-version:               1.4.5+version:               1.5.0 synopsis:              Amazon OpsWorks for Chef Automate SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-opsworks-cm  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.OpsWorksCM@@ -63,7 +68,7 @@         , Network.AWS.OpsWorksCM.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-opsworks-cm-test@@ -83,9 +88,9 @@         , Test.AWS.OpsWorksCM.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-opsworks-cm == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-opsworks-cm         , base         , bytestring         , tasty

@@ -5,19 +5,19 @@  -- | -- Module      : Network.AWS.OpsWorksCM--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- __AWS OpsWorks for Chef Automate__ ----- A service that runs and manages configuration management servers.+-- AWS OpsWorks for Chef Automate is a service that runs and manages configuration management servers. ----- Glossary of terms+-- __Glossary of terms__ -----     * __Server__ : A server is a configuration management server, and 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 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. -- --     * __Engine__ : The specific configuration manager that you want to use (such as @Chef@ ) is the engine. --@@ -29,10 +29,22 @@ -- -- ----- Throttling limits+-- __Endpoints__ ----- All API operations allow for 5 requests per second with a burst of 10 requests per second.+-- 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. --+--     * opsworks-cm.us-east-1.amazonaws.com+--+--     * opsworks-cm.us-west-2.amazonaws.com+--+--     * opsworks-cm.eu-west-1.amazonaws.com+--+--+--+-- __Throttling limits__+--+-- All API operations allow for five requests per second with a burst of 10 requests per second.+-- module Network.AWS.OpsWorksCM     (     -- * Service Configuration@@ -62,6 +74,9 @@     -- * Waiters     -- $waiters +    -- ** NodeAssociated+    , nodeAssociated+     -- * Operations     -- $operations @@ -177,6 +192,7 @@     , sStatus     , sInstanceProfileARN     , sSecurityGroupIds+    , sAssociatePublicIPAddress     , sServerName     , sSubnetIds     , sKeyPair@@ -191,6 +207,7 @@     , sPreferredBackupWindow     , sStatusReason     , sEndpoint+    , sCloudFormationStackARN     , sBackupRetentionCount      -- ** ServerEvent@@ -202,23 +219,23 @@     , seMessage     ) where -import           Network.AWS.OpsWorksCM.AssociateNode-import           Network.AWS.OpsWorksCM.CreateBackup-import           Network.AWS.OpsWorksCM.CreateServer-import           Network.AWS.OpsWorksCM.DeleteBackup-import           Network.AWS.OpsWorksCM.DeleteServer-import           Network.AWS.OpsWorksCM.DescribeAccountAttributes-import           Network.AWS.OpsWorksCM.DescribeBackups-import           Network.AWS.OpsWorksCM.DescribeEvents-import           Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus-import           Network.AWS.OpsWorksCM.DescribeServers-import           Network.AWS.OpsWorksCM.DisassociateNode-import           Network.AWS.OpsWorksCM.RestoreServer-import           Network.AWS.OpsWorksCM.StartMaintenance-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.UpdateServer-import           Network.AWS.OpsWorksCM.UpdateServerEngineAttributes-import           Network.AWS.OpsWorksCM.Waiters+import Network.AWS.OpsWorksCM.AssociateNode+import Network.AWS.OpsWorksCM.CreateBackup+import Network.AWS.OpsWorksCM.CreateServer+import Network.AWS.OpsWorksCM.DeleteBackup+import Network.AWS.OpsWorksCM.DeleteServer+import Network.AWS.OpsWorksCM.DescribeAccountAttributes+import Network.AWS.OpsWorksCM.DescribeBackups+import Network.AWS.OpsWorksCM.DescribeEvents+import Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus+import Network.AWS.OpsWorksCM.DescribeServers+import Network.AWS.OpsWorksCM.DisassociateNode+import Network.AWS.OpsWorksCM.RestoreServer+import Network.AWS.OpsWorksCM.StartMaintenance+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.UpdateServer+import Network.AWS.OpsWorksCM.UpdateServerEngineAttributes+import Network.AWS.OpsWorksCM.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,22 +12,28 @@  -- | -- Module      : Network.AWS.OpsWorksCM.AssociateNode--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Undocumented operation.+-- 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' .+--+--+-- 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.+--+-- 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/ "@+-- module Network.AWS.OpsWorksCM.AssociateNode     (     -- * Creating a Request       associateNode     , AssociateNode     -- * Request Lenses-    , anEngineAttributes     , anServerName     , anNodeName+    , anEngineAttributes      -- * Destructuring the Response     , associateNodeResponse@@ -37,52 +43,54 @@     , anrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'associateNode' smart constructor. data AssociateNode = AssociateNode'-    { _anEngineAttributes :: !(Maybe [EngineAttribute])-    , _anServerName       :: !Text-    , _anNodeName         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _anServerName       :: !Text+  , _anNodeName         :: !Text+  , _anEngineAttributes :: ![EngineAttribute]+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateNode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'anEngineAttributes' - Undocumented member.+-- * 'anServerName' - The name of the server with which to associate the node. ----- * 'anServerName' - Undocumented member.+-- * 'anNodeName' - The name of the Chef client node. ----- * 'anNodeName' - Undocumented member.+-- * '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. associateNode     :: Text -- ^ 'anServerName'     -> Text -- ^ 'anNodeName'     -> AssociateNode associateNode pServerName_ pNodeName_ =-    AssociateNode'-    { _anEngineAttributes = Nothing-    , _anServerName = pServerName_-    , _anNodeName = pNodeName_-    }+  AssociateNode'+  { _anServerName = pServerName_+  , _anNodeName = pNodeName_+  , _anEngineAttributes = mempty+  } --- | Undocumented member.-anEngineAttributes :: Lens' AssociateNode [EngineAttribute]-anEngineAttributes = lens _anEngineAttributes (\ s a -> s{_anEngineAttributes = a}) . _Default . _Coerce; --- | Undocumented member.+-- | The name of the server with which to associate the node. anServerName :: Lens' AssociateNode Text anServerName = lens _anServerName (\ s a -> s{_anServerName = a}); --- | Undocumented member.+-- | The name of the Chef client node. anNodeName :: Lens' AssociateNode Text 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.+anEngineAttributes :: Lens' AssociateNode [EngineAttribute]+anEngineAttributes = lens _anEngineAttributes (\ s a -> s{_anEngineAttributes = a}) . _Coerce;+ instance AWSRequest AssociateNode where         type Rs AssociateNode = AssociateNodeResponse         request = postJSON opsWorksCM@@ -93,9 +101,9 @@                    (x .?> "NodeAssociationStatusToken") <*>                      (pure (fromEnum s))) -instance Hashable AssociateNode+instance Hashable AssociateNode where -instance NFData AssociateNode+instance NFData AssociateNode where  instance ToHeaders AssociateNode where         toHeaders@@ -111,9 +119,9 @@         toJSON AssociateNode'{..}           = object               (catMaybes-                 [("EngineAttributes" .=) <$> _anEngineAttributes,-                  Just ("ServerName" .= _anServerName),-                  Just ("NodeName" .= _anNodeName)])+                 [Just ("ServerName" .= _anServerName),+                  Just ("NodeName" .= _anNodeName),+                  Just ("EngineAttributes" .= _anEngineAttributes)])  instance ToPath AssociateNode where         toPath = const "/"@@ -123,27 +131,29 @@  -- | /See:/ 'associateNodeResponse' smart constructor. data AssociateNodeResponse = AssociateNodeResponse'-    { _anrsNodeAssociationStatusToken :: !(Maybe Text)-    , _anrsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _anrsNodeAssociationStatusToken :: !(Maybe Text)+  , _anrsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AssociateNodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'anrsNodeAssociationStatusToken' - Undocumented member.+-- * 'anrsNodeAssociationStatusToken' - Contains a token which can be passed to the @DescribeNodeAssociationStatus@ API call to get the status of the association request. -- -- * 'anrsResponseStatus' - -- | The response status code. associateNodeResponse     :: Int -- ^ 'anrsResponseStatus'     -> AssociateNodeResponse associateNodeResponse pResponseStatus_ =-    AssociateNodeResponse'-    { _anrsNodeAssociationStatusToken = Nothing-    , _anrsResponseStatus = pResponseStatus_-    }+  AssociateNodeResponse'+  { _anrsNodeAssociationStatusToken = Nothing+  , _anrsResponseStatus = pResponseStatus_+  } --- | Undocumented member.++-- | 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}); @@ -151,4 +161,4 @@ anrsResponseStatus :: Lens' AssociateNodeResponse Int anrsResponseStatus = lens _anrsResponseStatus (\ s a -> s{_anrsResponseStatus = a}); -instance NFData AssociateNodeResponse+instance NFData AssociateNodeResponse where

@@ -12,22 +12,20 @@  -- | -- Module      : Network.AWS.OpsWorksCM.CreateBackup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates an application-level backup of a server. While the server is @BACKING_UP@ , the server can not be modified and no additional backup can be created.+-- Creates an application-level backup of a server. While the server is in the @BACKING_UP@ state, the server cannot be changed, and no additional backup can be created. -- ----- Backups can be created for @RUNNING@ , @HEALTHY@ and @UNHEALTHY@ servers.------ This operation is asnychronous.+-- Backups can be created for servers in @RUNNING@ , @HEALTHY@ , and @UNHEALTHY@ states. By default, you can create a maximum of 50 manual backups. ----- By default 50 manual backups can be created.+-- This operation is asynchronous. ----- A @LimitExceededException@ is thrown then the maximum number of manual backup is reached. A @InvalidStateException@ is thrown when the server is not in any of RUNNING, HEALTHY, UNHEALTHY. A @ResourceNotFoundException@ is thrown when the server is not found. A @ValidationException@ is thrown when parameters of the request are not valid.+-- A @LimitExceededException@ is thrown when the maximum number of manual backups is reached. An @InvalidStateException@ is thrown when the server is not in any of the following states: RUNNING, HEALTHY, or UNHEALTHY. A @ResourceNotFoundException@ is thrown when the server is not found. A @ValidationException@ is thrown when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.CreateBackup     (@@ -46,19 +44,20 @@     , cbrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createBackup' smart constructor. data CreateBackup = CreateBackup'-    { _cbDescription :: !(Maybe Text)-    , _cbServerName  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbDescription :: !(Maybe Text)+  , _cbServerName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBackup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,11 +69,9 @@     :: Text -- ^ 'cbServerName'     -> CreateBackup createBackup pServerName_ =-    CreateBackup'-    { _cbDescription = Nothing-    , _cbServerName = pServerName_-    }+  CreateBackup' {_cbDescription = Nothing, _cbServerName = pServerName_} + -- | A user-defined description of the backup. cbDescription :: Lens' CreateBackup (Maybe Text) cbDescription = lens _cbDescription (\ s a -> s{_cbDescription = a});@@ -92,9 +89,9 @@                  CreateBackupResponse' <$>                    (x .?> "Backup") <*> (pure (fromEnum s))) -instance Hashable CreateBackup+instance Hashable CreateBackup where -instance NFData CreateBackup+instance NFData CreateBackup where  instance ToHeaders CreateBackup where         toHeaders@@ -121,10 +118,11 @@  -- | /See:/ 'createBackupResponse' smart constructor. data CreateBackupResponse = CreateBackupResponse'-    { _cbrsBackup         :: !(Maybe Backup)-    , _cbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbrsBackup         :: !(Maybe Backup)+  , _cbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBackupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +134,10 @@     :: Int -- ^ 'cbrsResponseStatus'     -> CreateBackupResponse createBackupResponse pResponseStatus_ =-    CreateBackupResponse'-    { _cbrsBackup = Nothing-    , _cbrsResponseStatus = pResponseStatus_-    }+  CreateBackupResponse'+  {_cbrsBackup = Nothing, _cbrsResponseStatus = pResponseStatus_} + -- | Backup created by request. cbrsBackup :: Lens' CreateBackupResponse (Maybe Backup) cbrsBackup = lens _cbrsBackup (\ s a -> s{_cbrsBackup = a});@@ -149,4 +146,4 @@ cbrsResponseStatus :: Lens' CreateBackupResponse Int cbrsResponseStatus = lens _cbrsResponseStatus (\ s a -> s{_cbrsResponseStatus = a}); -instance NFData CreateBackupResponse+instance NFData CreateBackupResponse where

@@ -12,22 +12,20 @@  -- | -- Module      : Network.AWS.OpsWorksCM.CreateServer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates and immedately starts a new Server. The server can be used once it has reached the @HEALTHY@ state.+-- Creates and immedately starts a new server. The server is ready to use when it is in the @HEALTHY@ state. By default, you can create a maximum of 10 servers. -- ----- This operation is asnychronous.------ A @LimitExceededException@ is thrown then the maximum number of server backup is reached. A @ResourceAlreadyExistsException@ is raise when a server with the same name already exists in the account. A @ResourceNotFoundException@ is thrown when a backupId is passed, but the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.+-- This operation is asynchronous. ----- By default 10 servers can be created. A @LimitExceededException@ is raised when the limit is exceeded.+-- 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. ----- When no security groups are provided by using @SecurityGroupIds@ , AWS OpsWorks creates a new security group. This security group opens the Chef server to the world on TCP port 443. If a KeyName is present, SSH access is enabled. 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. 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. -- -- 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. --@@ -40,11 +38,11 @@     , csEngineVersion     , csDisableAutomatedBackup     , csSecurityGroupIds+    , csAssociatePublicIPAddress     , csSubnetIds     , csKeyPair     , csBackupId     , csEngine-    , csInstanceType     , csEngineModel     , csEngineAttributes     , csPreferredMaintenanceWindow@@ -52,6 +50,7 @@     , csBackupRetentionCount     , csServerName     , csInstanceProfileARN+    , csInstanceType     , csServiceRoleARN      -- * Destructuring the Response@@ -62,33 +61,35 @@     , csrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'createServer' smart constructor. data CreateServer = CreateServer'-    { _csEngineVersion              :: !(Maybe Text)-    , _csDisableAutomatedBackup     :: !(Maybe Bool)-    , _csSecurityGroupIds           :: !(Maybe [Text])-    , _csSubnetIds                  :: !(Maybe [Text])-    , _csKeyPair                    :: !(Maybe Text)-    , _csBackupId                   :: !(Maybe Text)-    , _csEngine                     :: !(Maybe Text)-    , _csInstanceType               :: !(Maybe Text)-    , _csEngineModel                :: !(Maybe Text)-    , _csEngineAttributes           :: !(Maybe [EngineAttribute])-    , _csPreferredMaintenanceWindow :: !(Maybe Text)-    , _csPreferredBackupWindow      :: !(Maybe Text)-    , _csBackupRetentionCount       :: !(Maybe Nat)-    , _csServerName                 :: !Text-    , _csInstanceProfileARN         :: !Text-    , _csServiceRoleARN             :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csEngineVersion              :: !(Maybe Text)+  , _csDisableAutomatedBackup     :: !(Maybe Bool)+  , _csSecurityGroupIds           :: !(Maybe [Text])+  , _csAssociatePublicIPAddress   :: !(Maybe Bool)+  , _csSubnetIds                  :: !(Maybe [Text])+  , _csKeyPair                    :: !(Maybe Text)+  , _csBackupId                   :: !(Maybe Text)+  , _csEngine                     :: !(Maybe Text)+  , _csEngineModel                :: !(Maybe Text)+  , _csEngineAttributes           :: !(Maybe [EngineAttribute])+  , _csPreferredMaintenanceWindow :: !(Maybe Text)+  , _csPreferredBackupWindow      :: !(Maybe Text)+  , _csBackupRetentionCount       :: !(Maybe Nat)+  , _csServerName                 :: !Text+  , _csInstanceProfileARN         :: !Text+  , _csInstanceType               :: !Text+  , _csServiceRoleARN             :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -99,56 +100,61 @@ -- -- * '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). ----- * 'csSubnetIds' - 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/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .+-- * 'csAssociatePublicIPAddress' - Associate a public IP address with a server that you are launching. Valid values are @true@ or @false@ . The default value is @true@ . ----- * 'csKeyPair' - The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.+-- * 'csSubnetIds' - 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> . --+-- * '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. -- -- * 'csEngine' - The configuration management engine to use. Valid values include @Chef@ . ----- * 'csInstanceType' - The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .--- -- * 'csEngineModel' - The engine model, or option. Valid values include @Single@ . ----- * 'csEngineAttributes' - 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 Automate. This private key is required to access the Chef API.+-- * '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. -- -- * '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.) ----- * '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 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 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.) -- -- * '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@ . ----- * '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 32 characters.+-- * '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, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.+-- * '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. ----- * 'csServiceRoleARN' - The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that 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@ .+--+-- * '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. createServer     :: Text -- ^ 'csServerName'     -> Text -- ^ 'csInstanceProfileARN'+    -> Text -- ^ 'csInstanceType'     -> Text -- ^ 'csServiceRoleARN'     -> CreateServer-createServer pServerName_ pInstanceProfileARN_ pServiceRoleARN_ =-    CreateServer'-    { _csEngineVersion = Nothing-    , _csDisableAutomatedBackup = Nothing-    , _csSecurityGroupIds = Nothing-    , _csSubnetIds = Nothing-    , _csKeyPair = Nothing-    , _csBackupId = Nothing-    , _csEngine = Nothing-    , _csInstanceType = Nothing-    , _csEngineModel = Nothing-    , _csEngineAttributes = Nothing-    , _csPreferredMaintenanceWindow = Nothing-    , _csPreferredBackupWindow = Nothing-    , _csBackupRetentionCount = Nothing-    , _csServerName = pServerName_-    , _csInstanceProfileARN = pInstanceProfileARN_-    , _csServiceRoleARN = pServiceRoleARN_-    }+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_+  } + -- | The major release version of the engine that you want to use. Values depend on the engine that you choose. csEngineVersion :: Lens' CreateServer (Maybe Text) csEngineVersion = lens _csEngineVersion (\ s a -> s{_csEngineVersion = a});@@ -161,11 +167,15 @@ csSecurityGroupIds :: Lens' CreateServer [Text] csSecurityGroupIds = lens _csSecurityGroupIds (\ s a -> s{_csSecurityGroupIds = a}) . _Default . _Coerce; --- | 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/https:/docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-platforms.html Supported Platforms> .+-- | 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});++-- | 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; --- | The Amazon EC2 key pair to set for the instance. You may specify this parameter to connect to your instances by using SSH.+-- | 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}); @@ -177,15 +187,11 @@ csEngine :: Lens' CreateServer (Maybe Text) csEngine = lens _csEngine (\ s a -> s{_csEngine = a}); --- | The Amazon EC2 instance type to use. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ .-csInstanceType :: Lens' CreateServer (Maybe Text)-csInstanceType = lens _csInstanceType (\ s a -> s{_csInstanceType = a});- -- | The engine model, or option. Valid values include @Single@ . csEngineModel :: Lens' CreateServer (Maybe Text) csEngineModel = lens _csEngineModel (\ s a -> s{_csEngineModel = a}); --- | 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 Automate. This private key is required to access the Chef API.+-- | 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 :: Lens' CreateServer [EngineAttribute] csEngineAttributes = lens _csEngineAttributes (\ s a -> s{_csEngineAttributes = a}) . _Default . _Coerce; @@ -193,7 +199,7 @@ csPreferredMaintenanceWindow :: Lens' CreateServer (Maybe Text) 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 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 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 :: Lens' CreateServer (Maybe Text) csPreferredBackupWindow = lens _csPreferredBackupWindow (\ s a -> s{_csPreferredBackupWindow = a}); @@ -201,15 +207,19 @@ csBackupRetentionCount :: Lens' CreateServer (Maybe Natural) 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 32 characters.+-- | 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}); --- | The ARN of the instance profile that your Amazon EC2 instances use. Although the AWS OpsWorks console typically creates the instance profile for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the instance profile you need.+-- | 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}); --- | The service role that the AWS OpsWorks for Chef Automate service backend uses to work with your account. Although the AWS OpsWorks console typically creates the service role for you, in this release of AWS OpsWorks for Chef Automate, run the service-role-creation.yaml AWS CloudFormation template, located at https://s3.amazonaws.com/opsworks-stuff/latest/service-role-creation.yaml. This template creates a stack that includes the service role that you need.+-- | 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 :: Lens' CreateServer Text+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. csServiceRoleARN :: Lens' CreateServer Text csServiceRoleARN = lens _csServiceRoleARN (\ s a -> s{_csServiceRoleARN = a}); @@ -222,9 +232,9 @@                  CreateServerResponse' <$>                    (x .?> "Server") <*> (pure (fromEnum s))) -instance Hashable CreateServer+instance Hashable CreateServer where -instance NFData CreateServer+instance NFData CreateServer where  instance ToHeaders CreateServer where         toHeaders@@ -244,11 +254,12 @@                   ("DisableAutomatedBackup" .=) <$>                     _csDisableAutomatedBackup,                   ("SecurityGroupIds" .=) <$> _csSecurityGroupIds,+                  ("AssociatePublicIpAddress" .=) <$>+                    _csAssociatePublicIPAddress,                   ("SubnetIds" .=) <$> _csSubnetIds,                   ("KeyPair" .=) <$> _csKeyPair,                   ("BackupId" .=) <$> _csBackupId,                   ("Engine" .=) <$> _csEngine,-                  ("InstanceType" .=) <$> _csInstanceType,                   ("EngineModel" .=) <$> _csEngineModel,                   ("EngineAttributes" .=) <$> _csEngineAttributes,                   ("PreferredMaintenanceWindow" .=) <$>@@ -259,6 +270,7 @@                     _csBackupRetentionCount,                   Just ("ServerName" .= _csServerName),                   Just ("InstanceProfileArn" .= _csInstanceProfileARN),+                  Just ("InstanceType" .= _csInstanceType),                   Just ("ServiceRoleArn" .= _csServiceRoleARN)])  instance ToPath CreateServer where@@ -269,10 +281,11 @@  -- | /See:/ 'createServerResponse' smart constructor. data CreateServerResponse = CreateServerResponse'-    { _csrsServer         :: !(Maybe Server)-    , _csrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csrsServer         :: !(Maybe Server)+  , _csrsResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateServerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -284,11 +297,10 @@     :: Int -- ^ 'csrsResponseStatus'     -> CreateServerResponse createServerResponse pResponseStatus_ =-    CreateServerResponse'-    { _csrsServer = Nothing-    , _csrsResponseStatus = pResponseStatus_-    }+  CreateServerResponse'+  {_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});@@ -297,4 +309,4 @@ csrsResponseStatus :: Lens' CreateServerResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); -instance NFData CreateServerResponse+instance NFData CreateServerResponse where

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DeleteBackup--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a backup. You can delete both manual and automated backups.+-- Deletes a backup. You can delete both manual and automated backups. This operation is asynchronous. -- ----- This operation is asynchronous.------ A @InvalidStateException@ is thrown then a backup is already deleting. A @ResourceNotFoundException@ is thrown when the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid.+-- An @InvalidStateException@ is thrown when a backup deletion is already in progress. A @ResourceNotFoundException@ is thrown when the backup does not exist. A @ValidationException@ is thrown when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.DeleteBackup     (@@ -40,18 +38,19 @@     , dbrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteBackup' smart constructor. newtype DeleteBackup = DeleteBackup'-    { _dbBackupId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbBackupId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBackup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +59,9 @@ deleteBackup     :: Text -- ^ 'dbBackupId'     -> DeleteBackup-deleteBackup pBackupId_ =-    DeleteBackup'-    { _dbBackupId = pBackupId_-    }+deleteBackup pBackupId_ = DeleteBackup' {_dbBackupId = pBackupId_} + -- | 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});@@ -77,9 +74,9 @@               (\ s h x ->                  DeleteBackupResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteBackup+instance Hashable DeleteBackup where -instance NFData DeleteBackup+instance NFData DeleteBackup where  instance ToHeaders DeleteBackup where         toHeaders@@ -104,9 +101,10 @@  -- | /See:/ 'deleteBackupResponse' smart constructor. newtype DeleteBackupResponse = DeleteBackupResponse'-    { _dbrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBackupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -116,12 +114,11 @@     :: Int -- ^ 'dbrsResponseStatus'     -> DeleteBackupResponse deleteBackupResponse pResponseStatus_ =-    DeleteBackupResponse'-    { _dbrsResponseStatus = pResponseStatus_-    }+  DeleteBackupResponse' {_dbrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dbrsResponseStatus :: Lens' DeleteBackupResponse Int dbrsResponseStatus = lens _dbrsResponseStatus (\ s a -> s{_dbrsResponseStatus = a}); -instance NFData DeleteBackupResponse+instance NFData DeleteBackupResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DeleteServer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the server and the underlying AWS CloudFormation stack (including the server's EC2 instance). The server status updated to @DELETING@ . Once the server is successfully deleted, it will no longer be 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 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. -- -- -- This operation is asynchronous. ----- A @InvalidStateException@ is thrown then a server is already deleting. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- An @InvalidStateException@ is thrown when a server deletion is already in progress. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- -- --@@ -42,18 +42,19 @@     , dsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'deleteServer' smart constructor. newtype DeleteServer = DeleteServer'-    { _dsServerName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsServerName :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ deleteServer     :: Text -- ^ 'dsServerName'     -> DeleteServer-deleteServer pServerName_ =-    DeleteServer'-    { _dsServerName = pServerName_-    }+deleteServer pServerName_ = DeleteServer' {_dsServerName = pServerName_} + -- | The ID of the server to delete. dsServerName :: Lens' DeleteServer Text dsServerName = lens _dsServerName (\ s a -> s{_dsServerName = a});@@ -79,9 +78,9 @@               (\ s h x ->                  DeleteServerResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteServer+instance Hashable DeleteServer where -instance NFData DeleteServer+instance NFData DeleteServer where  instance ToHeaders DeleteServer where         toHeaders@@ -106,9 +105,10 @@  -- | /See:/ 'deleteServerResponse' smart constructor. newtype DeleteServerResponse = DeleteServerResponse'-    { _dsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteServerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,12 +118,11 @@     :: Int -- ^ 'dsrsResponseStatus'     -> DeleteServerResponse deleteServerResponse pResponseStatus_ =-    DeleteServerResponse'-    { _dsrsResponseStatus = pResponseStatus_-    }+  DeleteServerResponse' {_dsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteServerResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); -instance NFData DeleteServerResponse+instance NFData DeleteServerResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeAccountAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,24 +37,26 @@     , daarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeAccountAttributes' smart constructor. data DescribeAccountAttributes =-    DescribeAccountAttributes'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeAccountAttributes'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributes' with the minimum fields required to make a request. -- describeAccountAttributes     :: DescribeAccountAttributes describeAccountAttributes = DescribeAccountAttributes' + instance AWSRequest DescribeAccountAttributes where         type Rs DescribeAccountAttributes =              DescribeAccountAttributesResponse@@ -66,9 +68,9 @@                    (x .?> "Attributes" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeAccountAttributes+instance Hashable DescribeAccountAttributes where -instance NFData DescribeAccountAttributes+instance NFData DescribeAccountAttributes where  instance ToHeaders DescribeAccountAttributes where         toHeaders@@ -91,10 +93,11 @@  -- | /See:/ 'describeAccountAttributesResponse' smart constructor. data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'-    { _daarsAttributes     :: !(Maybe [AccountAttribute])-    , _daarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _daarsAttributes     :: !(Maybe [AccountAttribute])+  , _daarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -106,11 +109,10 @@     :: Int -- ^ 'daarsResponseStatus'     -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ =-    DescribeAccountAttributesResponse'-    { _daarsAttributes = Nothing-    , _daarsResponseStatus = pResponseStatus_-    }+  DescribeAccountAttributesResponse'+  {_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;@@ -120,3 +122,4 @@ daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});  instance NFData DescribeAccountAttributesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeBackups--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- This operation is synchronous. ----- A @ResourceNotFoundException@ is thrown when the backup does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- A @ResourceNotFoundException@ is thrown when the backup does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.DescribeBackups     (@@ -45,21 +45,22 @@     , drsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeBackups' smart constructor. data DescribeBackups = DescribeBackups'-    { _dServerName :: !(Maybe Text)-    , _dBackupId   :: !(Maybe Text)-    , _dNextToken  :: !(Maybe Text)-    , _dMaxResults :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dServerName :: !(Maybe Text)+  , _dBackupId   :: !(Maybe Text)+  , _dNextToken  :: !(Maybe Text)+  , _dMaxResults :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBackups' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,13 +75,14 @@ describeBackups     :: DescribeBackups describeBackups =-    DescribeBackups'-    { _dServerName = Nothing-    , _dBackupId = Nothing-    , _dNextToken = Nothing-    , _dMaxResults = Nothing-    }+  DescribeBackups'+  { _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});@@ -107,9 +109,9 @@                    (x .?> "Backups" .!@ mempty) <*> (x .?> "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeBackups+instance Hashable DescribeBackups where -instance NFData DescribeBackups+instance NFData DescribeBackups where  instance ToHeaders DescribeBackups where         toHeaders@@ -138,11 +140,12 @@  -- | /See:/ 'describeBackupsResponse' smart constructor. data DescribeBackupsResponse = DescribeBackupsResponse'-    { _drsBackups        :: !(Maybe [Backup])-    , _drsNextToken      :: !(Maybe Text)-    , _drsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsBackups        :: !(Maybe [Backup])+  , _drsNextToken      :: !(Maybe Text)+  , _drsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBackupsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,12 +159,13 @@     :: Int -- ^ 'drsResponseStatus'     -> DescribeBackupsResponse describeBackupsResponse pResponseStatus_ =-    DescribeBackupsResponse'-    { _drsBackups = Nothing-    , _drsNextToken = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DescribeBackupsResponse'+  { _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;@@ -174,4 +178,4 @@ drsResponseStatus :: Lens' DescribeBackupsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DescribeBackupsResponse+instance NFData DescribeBackupsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeEvents--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- This operation is synchronous. ----- A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.DescribeEvents     (@@ -44,20 +44,21 @@     , dersResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeEvents' smart constructor. data DescribeEvents = DescribeEvents'-    { _deNextToken  :: !(Maybe Text)-    , _deMaxResults :: !(Maybe Nat)-    , _deServerName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _deNextToken  :: !(Maybe Text)+  , _deMaxResults :: !(Maybe Nat)+  , _deServerName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,12 +72,13 @@     :: Text -- ^ 'deServerName'     -> DescribeEvents describeEvents pServerName_ =-    DescribeEvents'-    { _deNextToken = Nothing-    , _deMaxResults = Nothing-    , _deServerName = pServerName_-    }+  DescribeEvents'+  { _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});@@ -100,9 +102,9 @@                      (x .?> "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeEvents+instance Hashable DescribeEvents where -instance NFData DescribeEvents+instance NFData DescribeEvents where  instance ToHeaders DescribeEvents where         toHeaders@@ -130,11 +132,12 @@  -- | /See:/ 'describeEventsResponse' smart constructor. data DescribeEventsResponse = DescribeEventsResponse'-    { _dersServerEvents   :: !(Maybe [ServerEvent])-    , _dersNextToken      :: !(Maybe Text)-    , _dersResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dersServerEvents   :: !(Maybe [ServerEvent])+  , _dersNextToken      :: !(Maybe Text)+  , _dersResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +151,13 @@     :: Int -- ^ 'dersResponseStatus'     -> DescribeEventsResponse describeEventsResponse pResponseStatus_ =-    DescribeEventsResponse'-    { _dersServerEvents = Nothing-    , _dersNextToken = Nothing-    , _dersResponseStatus = pResponseStatus_-    }+  DescribeEventsResponse'+  { _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;@@ -166,4 +170,4 @@ dersResponseStatus :: Lens' DescribeEventsResponse Int dersResponseStatus = lens _dersResponseStatus (\ s a -> s{_dersResponseStatus = a}); -instance NFData DescribeEventsResponse+instance NFData DescribeEventsResponse where

@@ -12,13 +12,17 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Undocumented operation.+-- Returns the current status of an existing association or disassociation request.+--+--+-- A @ResourceNotFoundException@ is thrown when no recent association or disassociation request with the specified token is found, or when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid.+-- module Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus     (     -- * Creating a Request@@ -32,45 +36,48 @@     , describeNodeAssociationStatusResponse     , DescribeNodeAssociationStatusResponse     -- * Response Lenses-    , dnasrsNodeAssociationStatus+    , dnasrsEngineAttributes     , dnasrsResponseStatus+    , dnasrsNodeAssociationStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeNodeAssociationStatus' smart constructor. data DescribeNodeAssociationStatus = DescribeNodeAssociationStatus'-    { _dnasNodeAssociationStatusToken :: !Text-    , _dnasServerName                 :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dnasNodeAssociationStatusToken :: !Text+  , _dnasServerName                 :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeNodeAssociationStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnasNodeAssociationStatusToken' - Undocumented member.+-- * 'dnasNodeAssociationStatusToken' - The token returned in either the AssociateNodeResponse or the DisassociateNodeResponse. ----- * 'dnasServerName' - Undocumented member.+-- * 'dnasServerName' - The name of the server from which to disassociate the node. describeNodeAssociationStatus     :: Text -- ^ 'dnasNodeAssociationStatusToken'     -> Text -- ^ 'dnasServerName'     -> DescribeNodeAssociationStatus describeNodeAssociationStatus pNodeAssociationStatusToken_ pServerName_ =-    DescribeNodeAssociationStatus'-    { _dnasNodeAssociationStatusToken = pNodeAssociationStatusToken_-    , _dnasServerName = pServerName_-    }+  DescribeNodeAssociationStatus'+  { _dnasNodeAssociationStatusToken = pNodeAssociationStatusToken_+  , _dnasServerName = pServerName_+  } --- | Undocumented member.++-- | The token returned in either the AssociateNodeResponse or the DisassociateNodeResponse. dnasNodeAssociationStatusToken :: Lens' DescribeNodeAssociationStatus Text dnasNodeAssociationStatusToken = lens _dnasNodeAssociationStatusToken (\ s a -> s{_dnasNodeAssociationStatusToken = a}); --- | Undocumented member.+-- | The name of the server from which to disassociate the node. dnasServerName :: Lens' DescribeNodeAssociationStatus Text dnasServerName = lens _dnasServerName (\ s a -> s{_dnasServerName = a}); @@ -83,12 +90,13 @@           = receiveJSON               (\ s h x ->                  DescribeNodeAssociationStatusResponse' <$>-                   (x .?> "NodeAssociationStatus") <*>-                     (pure (fromEnum s)))+                   (x .?> "EngineAttributes" .!@ mempty) <*>+                     (pure (fromEnum s))+                     <*> (x .:> "NodeAssociationStatus")) -instance Hashable DescribeNodeAssociationStatus+instance Hashable DescribeNodeAssociationStatus where -instance NFData DescribeNodeAssociationStatus+instance NFData DescribeNodeAssociationStatus where  instance ToHeaders DescribeNodeAssociationStatus          where@@ -118,32 +126,44 @@  -- | /See:/ 'describeNodeAssociationStatusResponse' smart constructor. data DescribeNodeAssociationStatusResponse = DescribeNodeAssociationStatusResponse'-    { _dnasrsNodeAssociationStatus :: !(Maybe NodeAssociationStatus)-    , _dnasrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dnasrsEngineAttributes      :: !(Maybe [EngineAttribute])+  , _dnasrsResponseStatus        :: !Int+  , _dnasrsNodeAssociationStatus :: !NodeAssociationStatus+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeNodeAssociationStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnasrsNodeAssociationStatus' - Undocumented member.+-- * 'dnasrsEngineAttributes' - Attributes specific to the node association. -- -- * 'dnasrsResponseStatus' - -- | The response status code.+--+-- * 'dnasrsNodeAssociationStatus' - 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. describeNodeAssociationStatusResponse     :: Int -- ^ 'dnasrsResponseStatus'+    -> NodeAssociationStatus -- ^ 'dnasrsNodeAssociationStatus'     -> DescribeNodeAssociationStatusResponse-describeNodeAssociationStatusResponse pResponseStatus_ =-    DescribeNodeAssociationStatusResponse'-    { _dnasrsNodeAssociationStatus = Nothing-    , _dnasrsResponseStatus = pResponseStatus_-    }+describeNodeAssociationStatusResponse pResponseStatus_ pNodeAssociationStatus_ =+  DescribeNodeAssociationStatusResponse'+  { _dnasrsEngineAttributes = Nothing+  , _dnasrsResponseStatus = pResponseStatus_+  , _dnasrsNodeAssociationStatus = pNodeAssociationStatus_+  } --- | Undocumented member.-dnasrsNodeAssociationStatus :: Lens' DescribeNodeAssociationStatusResponse (Maybe NodeAssociationStatus)-dnasrsNodeAssociationStatus = lens _dnasrsNodeAssociationStatus (\ s a -> s{_dnasrsNodeAssociationStatus = a}); +-- | Attributes specific to the node association.+dnasrsEngineAttributes :: Lens' DescribeNodeAssociationStatusResponse [EngineAttribute]+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}); +-- | 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});+ instance NFData DescribeNodeAssociationStatusResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DescribeServers--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,7 +23,7 @@ -- -- This operation is synchronous. ----- A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.DescribeServers     (@@ -44,20 +44,21 @@     , dssrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeServers' smart constructor. data DescribeServers = DescribeServers'-    { _dssServerName :: !(Maybe Text)-    , _dssNextToken  :: !(Maybe Text)-    , _dssMaxResults :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dssServerName :: !(Maybe Text)+  , _dssNextToken  :: !(Maybe Text)+  , _dssMaxResults :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServers' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,12 +71,10 @@ describeServers     :: DescribeServers describeServers =-    DescribeServers'-    { _dssServerName = Nothing-    , _dssNextToken = Nothing-    , _dssMaxResults = Nothing-    }+  DescribeServers'+  {_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});@@ -98,9 +97,9 @@                    (x .?> "Servers" .!@ mempty) <*> (x .?> "NextToken")                      <*> (pure (fromEnum s))) -instance Hashable DescribeServers+instance Hashable DescribeServers where -instance NFData DescribeServers+instance NFData DescribeServers where  instance ToHeaders DescribeServers where         toHeaders@@ -128,11 +127,12 @@  -- | /See:/ 'describeServersResponse' smart constructor. data DescribeServersResponse = DescribeServersResponse'-    { _dssrsServers        :: !(Maybe [Server])-    , _dssrsNextToken      :: !(Maybe Text)-    , _dssrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dssrsServers        :: !(Maybe [Server])+  , _dssrsNextToken      :: !(Maybe Text)+  , _dssrsResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeServersResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,12 +146,13 @@     :: Int -- ^ 'dssrsResponseStatus'     -> DescribeServersResponse describeServersResponse pResponseStatus_ =-    DescribeServersResponse'-    { _dssrsServers = Nothing-    , _dssrsNextToken = Nothing-    , _dssrsResponseStatus = pResponseStatus_-    }+  DescribeServersResponse'+  { _dssrsServers = Nothing+  , _dssrsNextToken = Nothing+  , _dssrsResponseStatus = pResponseStatus_+  } + -- | Contains the response to a @DescribeServers@ request. dssrsServers :: Lens' DescribeServersResponse [Server] dssrsServers = lens _dssrsServers (\ s a -> s{_dssrsServers = a}) . _Default . _Coerce;@@ -164,4 +165,4 @@ dssrsResponseStatus :: Lens' DescribeServersResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); -instance NFData DescribeServersResponse+instance NFData DescribeServersResponse where

@@ -12,13 +12,17 @@  -- | -- Module      : Network.AWS.OpsWorksCM.DisassociateNode--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Undocumented operation.+-- 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' .+--+--+-- 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.+-- module Network.AWS.OpsWorksCM.DisassociateNode     (     -- * Creating a Request@@ -37,49 +41,51 @@     , dnrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'disassociateNode' smart constructor. data DisassociateNode = DisassociateNode'-    { _dnEngineAttributes :: !(Maybe [EngineAttribute])-    , _dnServerName       :: !Text-    , _dnNodeName         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dnEngineAttributes :: !(Maybe [EngineAttribute])+  , _dnServerName       :: !Text+  , _dnNodeName         :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateNode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnEngineAttributes' - Undocumented member.+-- * '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. ----- * 'dnServerName' - Undocumented member.+-- * 'dnServerName' - The name of the server from which to disassociate the node. ----- * 'dnNodeName' - Undocumented member.+-- * 'dnNodeName' - The name of the Chef client node. disassociateNode     :: Text -- ^ 'dnServerName'     -> Text -- ^ 'dnNodeName'     -> DisassociateNode disassociateNode pServerName_ pNodeName_ =-    DisassociateNode'-    { _dnEngineAttributes = Nothing-    , _dnServerName = pServerName_-    , _dnNodeName = pNodeName_-    }+  DisassociateNode'+  { _dnEngineAttributes = Nothing+  , _dnServerName = pServerName_+  , _dnNodeName = pNodeName_+  } --- | Undocumented member.++-- | 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 :: Lens' DisassociateNode [EngineAttribute] dnEngineAttributes = lens _dnEngineAttributes (\ s a -> s{_dnEngineAttributes = a}) . _Default . _Coerce; --- | Undocumented member.+-- | The name of the server from which to disassociate the node. dnServerName :: Lens' DisassociateNode Text dnServerName = lens _dnServerName (\ s a -> s{_dnServerName = a}); --- | Undocumented member.+-- | The name of the Chef client node. dnNodeName :: Lens' DisassociateNode Text dnNodeName = lens _dnNodeName (\ s a -> s{_dnNodeName = a}); @@ -93,9 +99,9 @@                    (x .?> "NodeAssociationStatusToken") <*>                      (pure (fromEnum s))) -instance Hashable DisassociateNode+instance Hashable DisassociateNode where -instance NFData DisassociateNode+instance NFData DisassociateNode where  instance ToHeaders DisassociateNode where         toHeaders@@ -123,27 +129,29 @@  -- | /See:/ 'disassociateNodeResponse' smart constructor. data DisassociateNodeResponse = DisassociateNodeResponse'-    { _dnrsNodeAssociationStatusToken :: !(Maybe Text)-    , _dnrsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dnrsNodeAssociationStatusToken :: !(Maybe Text)+  , _dnrsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisassociateNodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dnrsNodeAssociationStatusToken' - Undocumented member.+-- * 'dnrsNodeAssociationStatusToken' - Contains a token which can be passed to the @DescribeNodeAssociationStatus@ API call to get the status of the disassociation request. -- -- * 'dnrsResponseStatus' - -- | The response status code. disassociateNodeResponse     :: Int -- ^ 'dnrsResponseStatus'     -> DisassociateNodeResponse disassociateNodeResponse pResponseStatus_ =-    DisassociateNodeResponse'-    { _dnrsNodeAssociationStatusToken = Nothing-    , _dnrsResponseStatus = pResponseStatus_-    }+  DisassociateNodeResponse'+  { _dnrsNodeAssociationStatusToken = Nothing+  , _dnrsResponseStatus = pResponseStatus_+  } --- | Undocumented member.++-- | 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}); @@ -151,4 +159,4 @@ dnrsResponseStatus :: Lens' DisassociateNodeResponse Int dnrsResponseStatus = lens _dnrsResponseStatus (\ s a -> s{_dnrsResponseStatus = a}); -instance NFData DisassociateNodeResponse+instance NFData DisassociateNodeResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.OpsWorksCM.RestoreServer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Restores a backup to a server that is in a @RUNNING@ , @FAILED@ , or @HEALTHY@ state. When you run RestoreServer, the server's EC2 instance is deleted, and a new EC2 instance is configured. RestoreServer maintains the existing server endpoint, so configuration management of all of the server's client devices should continue to work.+-- Restores a backup to a server that is in a @CONNECTION_LOST@ , @HEALTHY@ , @RUNNING@ , @UNHEALTHY@ , or @TERMINATED@ state. When you run RestoreServer, the server's EC2 instance is deleted, and a new EC2 instance is configured. RestoreServer maintains the existing server endpoint, so configuration management of the server's client devices (nodes) should continue to work. -- -- -- This operation is asynchronous. ----- A @InvalidStateException@ is thrown when the server is not in a valid state. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- An @InvalidStateException@ is thrown when the server is not in a valid state. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.RestoreServer     (@@ -43,28 +43,29 @@     , rsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'restoreServer' smart constructor. data RestoreServer = RestoreServer'-    { _rsKeyPair      :: !(Maybe Text)-    , _rsInstanceType :: !(Maybe Text)-    , _rsBackupId     :: !Text-    , _rsServerName   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rsKeyPair      :: !(Maybe Text)+  , _rsInstanceType :: !(Maybe Text)+  , _rsBackupId     :: !Text+  , _rsServerName   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rsKeyPair' - The name of the key pair to set on the new EC2 instance. This can be helpful if any of the administrators who manage the server no longer have the SSH key.+-- * 'rsKeyPair' - 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. ----- * 'rsInstanceType' - The type of the instance to create. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ . If you do not specify this parameter, RestoreServer uses the instance type from the specified backup.+-- * 'rsInstanceType' - 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. -- -- * 'rsBackupId' - The ID of the backup that you want to use to restore a server. --@@ -74,18 +75,19 @@     -> Text -- ^ 'rsServerName'     -> RestoreServer restoreServer pBackupId_ pServerName_ =-    RestoreServer'-    { _rsKeyPair = Nothing-    , _rsInstanceType = Nothing-    , _rsBackupId = pBackupId_-    , _rsServerName = pServerName_-    }+  RestoreServer'+  { _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 any of the administrators who manage the server no longer have the SSH key.++-- | 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}); --- | The type of the instance to create. Valid values must be specified in the following format: @^([cm][34]|t2).*@ For example, @c3.large@ . If you do not specify this parameter, RestoreServer uses the instance type from the specified backup.+-- | 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}); @@ -105,9 +107,9 @@               (\ s h x ->                  RestoreServerResponse' <$> (pure (fromEnum s))) -instance Hashable RestoreServer+instance Hashable RestoreServer where -instance NFData RestoreServer+instance NFData RestoreServer where  instance ToHeaders RestoreServer where         toHeaders@@ -136,9 +138,10 @@  -- | /See:/ 'restoreServerResponse' smart constructor. newtype RestoreServerResponse = RestoreServerResponse'-    { _rsrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rsrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RestoreServerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -148,12 +151,11 @@     :: Int -- ^ 'rsrsResponseStatus'     -> RestoreServerResponse restoreServerResponse pResponseStatus_ =-    RestoreServerResponse'-    { _rsrsResponseStatus = pResponseStatus_-    }+  RestoreServerResponse' {_rsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rsrsResponseStatus :: Lens' RestoreServerResponse Int rsrsResponseStatus = lens _rsrsResponseStatus (\ s a -> s{_rsrsResponseStatus = a}); -instance NFData RestoreServerResponse+instance NFData RestoreServerResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.OpsWorksCM.StartMaintenance--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Manually starts server maintenance. This command can be useful if an earlier maintenance attempt failed, and the underlying cause of maintenance failure has been resolved. The server will switch to @UNDER_MAINTENANCE@ state, while maintenace is in progress.+-- Manually starts server maintenance. This command can be useful if an earlier maintenance attempt failed, and the underlying cause of maintenance failure has been resolved. The server is in an @UNDER_MAINTENANCE@ state while maintenance is in progress. -- ----- Maintenace can only be started for @HEALTHY@ and @UNHEALTHY@ servers. A @InvalidStateException@ is thrown otherwise. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- Maintenance can only be started on servers in @HEALTHY@ and @UNHEALTHY@ states. 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. -- module Network.AWS.OpsWorksCM.StartMaintenance     (@@ -29,6 +29,7 @@       startMaintenance     , StartMaintenance     -- * Request Lenses+    , smEngineAttributes     , smServerName      -- * Destructuring the Response@@ -39,31 +40,39 @@     , smrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'startMaintenance' smart constructor.-newtype StartMaintenance = StartMaintenance'-    { _smServerName :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+data StartMaintenance = StartMaintenance'+  { _smEngineAttributes :: !(Maybe [EngineAttribute])+  , _smServerName       :: !Text+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartMaintenance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'smEngineAttributes' - Engine attributes that are specific to the server on which you want to run maintenance.+-- -- * 'smServerName' - The name of the server on which to run maintenance. startMaintenance     :: Text -- ^ 'smServerName'     -> StartMaintenance startMaintenance pServerName_ =-    StartMaintenance'-    { _smServerName = pServerName_-    }+  StartMaintenance'+  {_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;+ -- | The name of the server on which to run maintenance. smServerName :: Lens' StartMaintenance Text smServerName = lens _smServerName (\ s a -> s{_smServerName = a});@@ -77,9 +86,9 @@                  StartMaintenanceResponse' <$>                    (x .?> "Server") <*> (pure (fromEnum s))) -instance Hashable StartMaintenance+instance Hashable StartMaintenance where -instance NFData StartMaintenance+instance NFData StartMaintenance where  instance ToHeaders StartMaintenance where         toHeaders@@ -94,7 +103,9 @@ instance ToJSON StartMaintenance where         toJSON StartMaintenance'{..}           = object-              (catMaybes [Just ("ServerName" .= _smServerName)])+              (catMaybes+                 [("EngineAttributes" .=) <$> _smEngineAttributes,+                  Just ("ServerName" .= _smServerName)])  instance ToPath StartMaintenance where         toPath = const "/"@@ -104,10 +115,11 @@  -- | /See:/ 'startMaintenanceResponse' smart constructor. data StartMaintenanceResponse = StartMaintenanceResponse'-    { _smrsServer         :: !(Maybe Server)-    , _smrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _smrsServer         :: !(Maybe Server)+  , _smrsResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartMaintenanceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -119,11 +131,10 @@     :: Int -- ^ 'smrsResponseStatus'     -> StartMaintenanceResponse startMaintenanceResponse pResponseStatus_ =-    StartMaintenanceResponse'-    { _smrsServer = Nothing-    , _smrsResponseStatus = pResponseStatus_-    }+  StartMaintenanceResponse'+  {_smrsServer = Nothing, _smrsResponseStatus = pResponseStatus_} + -- | Contains the response to a @StartMaintenance@ request. smrsServer :: Lens' StartMaintenanceResponse (Maybe Server) smrsServer = lens _smrsServer (\ s a -> s{_smrsServer = a});@@ -132,4 +143,4 @@ smrsResponseStatus :: Lens' StartMaintenanceResponse Int smrsResponseStatus = lens _smrsResponseStatus (\ s a -> s{_smrsResponseStatus = a}); -instance NFData StartMaintenanceResponse+instance NFData StartMaintenanceResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -88,6 +88,7 @@     , sStatus     , sInstanceProfileARN     , sSecurityGroupIds+    , sAssociatePublicIPAddress     , sServerName     , sSubnetIds     , sKeyPair@@ -102,6 +103,7 @@     , sPreferredBackupWindow     , sStatusReason     , sEndpoint+    , sCloudFormationStackARN     , sBackupRetentionCount      -- * ServerEvent@@ -113,38 +115,40 @@     , seMessage     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.OpsWorksCM.Types.Sum-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.OpsWorksCM.Types.Sum+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2016-11-01@ of the Amazon OpsWorks for Chef Automate SDK configuration. 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-    }+  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+  }   where     retry =-        Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -153,41 +157,48 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | One or more of the provided request parameters are not valid. -- -- _ValidationException :: AsError a => Getting (First ServiceError) a ServiceError-_ValidationException = _ServiceError . hasCode "ValidationException"+_ValidationException = _MatchServiceError opsWorksCM "ValidationException" + -- | The requested resource cannot be created because it already exists. -- -- _ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceAlreadyExistsException =-    _ServiceError . hasCode "ResourceAlreadyExistsException"+  _MatchServiceError opsWorksCM "ResourceAlreadyExistsException" + -- | This occurs when the provided nextToken is not valid. -- -- _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextTokenException =-    _ServiceError . hasCode "InvalidNextTokenException"+  _MatchServiceError opsWorksCM "InvalidNextTokenException" + -- | The requested resource does not exist, or access was denied. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =-    _ServiceError . hasCode "ResourceNotFoundException"+  _MatchServiceError opsWorksCM "ResourceNotFoundException" + -- | The resource is in a state that does not allow you to perform a specified action. -- -- _InvalidStateException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidStateException = _ServiceError . hasCode "InvalidStateException"+_InvalidStateException = _MatchServiceError opsWorksCM "InvalidStateException" + -- | The limit of servers or backups has been reached. -- -- _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_LimitExceededException = _ServiceError . hasCode "LimitExceededException"+_LimitExceededException = _MatchServiceError opsWorksCM "LimitExceededException"+

@@ -9,17 +9,17 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.OpsWorksCM.Types.Product where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types.Sum-import           Network.AWS.Prelude+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types.Sum+import Network.AWS.Prelude  -- | Stores account attributes. --@@ -27,30 +27,28 @@ -- -- /See:/ 'accountAttribute' smart constructor. data AccountAttribute = AccountAttribute'-    { _aaUsed    :: !(Maybe Int)-    , _aaMaximum :: !(Maybe Int)-    , _aaName    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aaUsed    :: !(Maybe Int)+  , _aaMaximum :: !(Maybe Int)+  , _aaName    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccountAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aaUsed' - The current usage, such as the current number of servers associated with the account.+-- * 'aaUsed' - The current usage, such as the current number of servers that are associated with the account. -- -- * 'aaMaximum' - The maximum allowed value. ----- * 'aaName' - The attribute name. The following are supported attribute names.      * /ServerLimit:/ The number of servers that currently existing / maximal allowed. By default 10 servers can be created.      * /ManualBackupLimit:/ The number of manual backups that currently exist / are maximal allowed. By default 50 manual backups can be created.+-- * 'aaName' - 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. accountAttribute     :: AccountAttribute accountAttribute =-    AccountAttribute'-    { _aaUsed = Nothing-    , _aaMaximum = Nothing-    , _aaName = Nothing-    }+  AccountAttribute' {_aaUsed = Nothing, _aaMaximum = Nothing, _aaName = Nothing} --- | The current usage, such as the current number of servers associated with the account.++-- | 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}); @@ -58,7 +56,7 @@ aaMaximum :: Lens' AccountAttribute (Maybe Int) aaMaximum = lens _aaMaximum (\ s a -> s{_aaMaximum = a}); --- | The attribute name. The following are supported attribute names.      * /ServerLimit:/ The number of servers that currently existing / maximal allowed. By default 10 servers can be created.      * /ManualBackupLimit:/ The number of manual backups that currently exist / are maximal allowed. By default 50 manual backups can be created.+-- | 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}); @@ -70,9 +68,9 @@                    (x .:? "Used") <*> (x .:? "Maximum") <*>                      (x .:? "Name")) -instance Hashable AccountAttribute+instance Hashable AccountAttribute where -instance NFData AccountAttribute+instance NFData AccountAttribute where  -- | Describes a single backup. --@@ -80,32 +78,33 @@ -- -- /See:/ 'backup' smart constructor. data Backup = Backup'-    { _bEngineVersion              :: !(Maybe Text)-    , _bServiceRoleARN             :: !(Maybe Text)-    , _bStatus                     :: !(Maybe BackupStatus)-    , _bInstanceProfileARN         :: !(Maybe Text)-    , _bSecurityGroupIds           :: !(Maybe [Text])-    , _bStatusDescription          :: !(Maybe Text)-    , _bServerName                 :: !(Maybe Text)-    , _bSubnetIds                  :: !(Maybe [Text])-    , _bKeyPair                    :: !(Maybe Text)-    , _bCreatedAt                  :: !(Maybe POSIX)-    , _bBackupId                   :: !(Maybe Text)-    , _bEngine                     :: !(Maybe Text)-    , _bInstanceType               :: !(Maybe Text)-    , _bEngineModel                :: !(Maybe Text)-    , _bPreferredMaintenanceWindow :: !(Maybe Text)-    , _bUserARN                    :: !(Maybe Text)-    , _bPreferredBackupWindow      :: !(Maybe Text)-    , _bS3LogURL                   :: !(Maybe Text)-    , _bS3DataSize                 :: !(Maybe Int)-    , _bBackupARN                  :: !(Maybe Text)-    , _bS3DataURL                  :: !(Maybe Text)-    , _bDescription                :: !(Maybe Text)-    , _bBackupType                 :: !(Maybe BackupType)-    , _bToolsVersion               :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _bEngineVersion              :: !(Maybe Text)+  , _bServiceRoleARN             :: !(Maybe Text)+  , _bStatus                     :: !(Maybe BackupStatus)+  , _bInstanceProfileARN         :: !(Maybe Text)+  , _bSecurityGroupIds           :: !(Maybe [Text])+  , _bStatusDescription          :: !(Maybe Text)+  , _bServerName                 :: !(Maybe Text)+  , _bSubnetIds                  :: !(Maybe [Text])+  , _bKeyPair                    :: !(Maybe Text)+  , _bCreatedAt                  :: !(Maybe POSIX)+  , _bBackupId                   :: !(Maybe Text)+  , _bEngine                     :: !(Maybe Text)+  , _bInstanceType               :: !(Maybe Text)+  , _bEngineModel                :: !(Maybe Text)+  , _bPreferredMaintenanceWindow :: !(Maybe Text)+  , _bUserARN                    :: !(Maybe Text)+  , _bPreferredBackupWindow      :: !(Maybe Text)+  , _bS3LogURL                   :: !(Maybe Text)+  , _bS3DataSize                 :: !(Maybe Int)+  , _bBackupARN                  :: !(Maybe Text)+  , _bS3DataURL                  :: !(Maybe Text)+  , _bDescription                :: !(Maybe Text)+  , _bBackupType                 :: !(Maybe BackupType)+  , _bToolsVersion               :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Backup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -146,11 +145,11 @@ -- -- * 'bS3LogURL' - The Amazon S3 URL of the backup's log file. ----- * 'bS3DataSize' - The size of the backup, in bytes. The size is returned by the instance in the command results.+-- * 'bS3DataSize' - This field is deprecated and is no longer used. -- -- * 'bBackupARN' - The ARN of the backup. ----- * 'bS3DataURL' - The Amazon S3 URL of the backup's tar.gz file.+-- * 'bS3DataURL' - This field is deprecated and is no longer used. -- -- * 'bDescription' - A user-provided description for a manual backup. This field is empty for automated backups. --@@ -160,33 +159,34 @@ 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-    }+  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+  } + -- | 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});@@ -259,7 +259,7 @@ bS3LogURL :: Lens' Backup (Maybe Text) bS3LogURL = lens _bS3LogURL (\ s a -> s{_bS3LogURL = a}); --- | The size of the backup, in bytes. The size is returned by the instance in the command results.+-- | This field is deprecated and is no longer used. bS3DataSize :: Lens' Backup (Maybe Int) bS3DataSize = lens _bS3DataSize (\ s a -> s{_bS3DataSize = a}); @@ -267,7 +267,7 @@ bBackupARN :: Lens' Backup (Maybe Text) bBackupARN = lens _bBackupARN (\ s a -> s{_bBackupARN = a}); --- | The Amazon S3 URL of the backup's tar.gz file.+-- | This field is deprecated and is no longer used. bS3DataURL :: Lens' Backup (Maybe Text) bS3DataURL = lens _bS3DataURL (\ s a -> s{_bS3DataURL = a}); @@ -312,20 +312,21 @@                      <*> (x .:? "BackupType")                      <*> (x .:? "ToolsVersion")) -instance Hashable Backup+instance Hashable Backup where -instance NFData Backup+instance NFData Backup where --- | A name/value pair that is specific to the engine of the server.+-- | A name and value pair that is specific to the engine of the server. -- -- -- -- /See:/ 'engineAttribute' smart constructor. data EngineAttribute = EngineAttribute'-    { _eaValue :: !(Maybe Text)-    , _eaName  :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _eaValue :: !(Maybe (Sensitive Text))+  , _eaName  :: !(Maybe Text)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'EngineAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -335,15 +336,12 @@ -- * 'eaName' - The name of the engine attribute. engineAttribute     :: EngineAttribute-engineAttribute =-    EngineAttribute'-    { _eaValue = Nothing-    , _eaName = Nothing-    }+engineAttribute = EngineAttribute' {_eaValue = Nothing, _eaName = Nothing} + -- | The value of the engine attribute. eaValue :: Lens' EngineAttribute (Maybe Text)-eaValue = lens _eaValue (\ s a -> s{_eaValue = a});+eaValue = lens _eaValue (\ s a -> s{_eaValue = a}) . mapping _Sensitive;  -- | The name of the engine attribute. eaName :: Lens' EngineAttribute (Maybe Text)@@ -356,9 +354,9 @@                  EngineAttribute' <$>                    (x .:? "Value") <*> (x .:? "Name")) -instance Hashable EngineAttribute+instance Hashable EngineAttribute where -instance NFData EngineAttribute+instance NFData EngineAttribute where  instance ToJSON EngineAttribute where         toJSON EngineAttribute'{..}@@ -372,29 +370,32 @@ -- -- /See:/ 'server' smart constructor. data Server = Server'-    { _sEngineVersion              :: !(Maybe Text)-    , _sServiceRoleARN             :: !(Maybe Text)-    , _sDisableAutomatedBackup     :: !(Maybe Bool)-    , _sStatus                     :: !(Maybe ServerStatus)-    , _sInstanceProfileARN         :: !(Maybe Text)-    , _sSecurityGroupIds           :: !(Maybe [Text])-    , _sServerName                 :: !(Maybe Text)-    , _sSubnetIds                  :: !(Maybe [Text])-    , _sKeyPair                    :: !(Maybe Text)-    , _sCreatedAt                  :: !(Maybe POSIX)-    , _sServerARN                  :: !(Maybe Text)-    , _sEngine                     :: !(Maybe Text)-    , _sMaintenanceStatus          :: !(Maybe MaintenanceStatus)-    , _sInstanceType               :: !(Maybe Text)-    , _sEngineModel                :: !(Maybe Text)-    , _sEngineAttributes           :: !(Maybe [EngineAttribute])-    , _sPreferredMaintenanceWindow :: !(Maybe Text)-    , _sPreferredBackupWindow      :: !(Maybe Text)-    , _sStatusReason               :: !(Maybe Text)-    , _sEndpoint                   :: !(Maybe Text)-    , _sBackupRetentionCount       :: !(Maybe Int)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sEngineVersion              :: !(Maybe Text)+  , _sServiceRoleARN             :: !(Maybe Text)+  , _sDisableAutomatedBackup     :: !(Maybe Bool)+  , _sStatus                     :: !(Maybe ServerStatus)+  , _sInstanceProfileARN         :: !(Maybe Text)+  , _sSecurityGroupIds           :: !(Maybe [Text])+  , _sAssociatePublicIPAddress   :: !(Maybe Bool)+  , _sServerName                 :: !(Maybe Text)+  , _sSubnetIds                  :: !(Maybe [Text])+  , _sKeyPair                    :: !(Maybe Text)+  , _sCreatedAt                  :: !(Maybe POSIX)+  , _sServerARN                  :: !(Maybe Text)+  , _sEngine                     :: !(Maybe Text)+  , _sMaintenanceStatus          :: !(Maybe MaintenanceStatus)+  , _sInstanceType               :: !(Maybe Text)+  , _sEngineModel                :: !(Maybe Text)+  , _sEngineAttributes           :: !(Maybe [EngineAttribute])+  , _sPreferredMaintenanceWindow :: !(Maybe Text)+  , _sPreferredBackupWindow      :: !(Maybe Text)+  , _sStatusReason               :: !(Maybe Text)+  , _sEndpoint                   :: !(Maybe Text)+  , _sCloudFormationStackARN     :: !(Maybe Text)+  , _sBackupRetentionCount       :: !(Maybe Int)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'Server' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -405,12 +406,14 @@ -- -- * 'sDisableAutomatedBackup' - Disables automated backups. The number of stored backups is dependent on the value of PreferredBackupCount. ----- * 'sStatus' - 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 server health.+-- * 'sStatus' - 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. -- -- * 'sInstanceProfileARN' - The instance profile ARN of the server. -- -- * 'sSecurityGroupIds' - 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. --+-- * 'sAssociatePublicIPAddress' - Associate a public IP address with a server that you are launching.+-- -- * 'sServerName' - The name of the server. -- -- * 'sSubnetIds' - The subnet IDs specified in a CreateServer request.@@ -439,34 +442,39 @@ -- -- * 'sEndpoint' - A DNS name that can be used to access the engine. Example: @myserver-asdfghjkl.us-east-1.opsworks.io@ --+-- * 'sCloudFormationStackARN' - The ARN of the CloudFormation stack that was used to create the server.+-- -- * 'sBackupRetentionCount' - The number of automated backups to keep. server     :: Server server =-    Server'-    { _sEngineVersion = Nothing-    , _sServiceRoleARN = Nothing-    , _sDisableAutomatedBackup = Nothing-    , _sStatus = Nothing-    , _sInstanceProfileARN = Nothing-    , _sSecurityGroupIds = 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-    , _sBackupRetentionCount = Nothing-    }+  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+  } + -- | The engine version of the server. Because Chef is the engine available in this release, the valid value for EngineVersion is @12@ . sEngineVersion :: Lens' Server (Maybe Text) sEngineVersion = lens _sEngineVersion (\ s a -> s{_sEngineVersion = a});@@ -479,7 +487,7 @@ sDisableAutomatedBackup :: Lens' Server (Maybe Bool) 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 server health.+-- | 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}); @@ -491,6 +499,10 @@ sSecurityGroupIds :: Lens' Server [Text] 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});+ -- | The name of the server. sServerName :: Lens' Server (Maybe Text) sServerName = lens _sServerName (\ s a -> s{_sServerName = a});@@ -547,6 +559,10 @@ sEndpoint :: Lens' Server (Maybe Text) 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});+ -- | The number of automated backups to keep. sBackupRetentionCount :: Lens' Server (Maybe Int) sBackupRetentionCount = lens _sBackupRetentionCount (\ s a -> s{_sBackupRetentionCount = a});@@ -561,6 +577,7 @@                      <*> (x .:? "Status")                      <*> (x .:? "InstanceProfileArn")                      <*> (x .:? "SecurityGroupIds" .!= mempty)+                     <*> (x .:? "AssociatePublicIpAddress")                      <*> (x .:? "ServerName")                      <*> (x .:? "SubnetIds" .!= mempty)                      <*> (x .:? "KeyPair")@@ -575,11 +592,12 @@                      <*> (x .:? "PreferredBackupWindow")                      <*> (x .:? "StatusReason")                      <*> (x .:? "Endpoint")+                     <*> (x .:? "CloudFormationStackArn")                      <*> (x .:? "BackupRetentionCount")) -instance Hashable Server+instance Hashable Server where -instance NFData Server+instance NFData Server where  -- | An event that is related to the server, such as the start of maintenance or backup. --@@ -587,12 +605,13 @@ -- -- /See:/ 'serverEvent' smart constructor. data ServerEvent = ServerEvent'-    { _seLogURL     :: !(Maybe Text)-    , _seServerName :: !(Maybe Text)-    , _seCreatedAt  :: !(Maybe POSIX)-    , _seMessage    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _seLogURL     :: !(Maybe Text)+  , _seServerName :: !(Maybe Text)+  , _seCreatedAt  :: !(Maybe POSIX)+  , _seMessage    :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ServerEvent' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -607,13 +626,14 @@ serverEvent     :: ServerEvent serverEvent =-    ServerEvent'-    { _seLogURL = Nothing-    , _seServerName = Nothing-    , _seCreatedAt = Nothing-    , _seMessage = Nothing-    }+  ServerEvent'+  { _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});@@ -639,6 +659,6 @@                      (x .:? "CreatedAt")                      <*> (x .:? "Message")) -instance Hashable ServerEvent+instance Hashable ServerEvent where -instance NFData ServerEvent+instance NFData ServerEvent where

@@ -9,23 +9,24 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Types.Sum--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.OpsWorksCM.Types.Sum where -import           Network.AWS.Prelude+import Network.AWS.Prelude  data BackupStatus-    = BSDeleting-    | BSFailed-    | BSInProgress-    | BSOK-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = BSDeleting+  | BSFailed+  | BSInProgress+  | BSOK+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText BackupStatus where     parser = takeLowerText >>= \case         "deleting" -> pure BSDeleting@@ -52,10 +53,11 @@     parseJSON = parseJSONText "BackupStatus"  data BackupType-    = Automated-    | Manual-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = Automated+  | Manual+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText BackupType where     parser = takeLowerText >>= \case         "automated" -> pure Automated@@ -78,10 +80,11 @@     parseJSON = parseJSONText "BackupType"  data MaintenanceStatus-    = MSFailed-    | MSSuccess-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = MSFailed+  | MSSuccess+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText MaintenanceStatus where     parser = takeLowerText >>= \case         "failed" -> pure MSFailed@@ -103,12 +106,26 @@ instance FromJSON MaintenanceStatus where     parseJSON = parseJSONText "MaintenanceStatus" +-- | 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.+--+--+-- data NodeAssociationStatus-    = NASFailed-    | NASInProgress-    | NASSuccess-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = NASFailed+  | NASInProgress+  | NASSuccess+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText NodeAssociationStatus where     parser = takeLowerText >>= \case         "failed" -> pure NASFailed@@ -133,19 +150,22 @@     parseJSON = parseJSONText "NodeAssociationStatus"  data ServerStatus-    = BackingUp-    | ConnectionLost-    | Creating-    | Deleting-    | Failed-    | Healthy-    | Modifying-    | Running-    | Setup-    | UnderMaintenance-    | Unhealthy-    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+  = BackingUp+  | ConnectionLost+  | Creating+  | Deleting+  | Failed+  | Healthy+  | Modifying+  | Restoring+  | Running+  | Setup+  | Terminated+  | UnderMaintenance+  | Unhealthy+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ServerStatus where     parser = takeLowerText >>= \case         "backing_up" -> pure BackingUp@@ -155,12 +175,14 @@         "failed" -> pure Failed         "healthy" -> pure Healthy         "modifying" -> pure Modifying+        "restoring" -> pure Restoring         "running" -> pure Running         "setup" -> pure Setup+        "terminated" -> pure Terminated         "under_maintenance" -> pure UnderMaintenance         "unhealthy" -> pure Unhealthy         e -> fromTextError $ "Failure parsing ServerStatus from value: '" <> e-           <> "'. Accepted values: backing_up, connection_lost, creating, deleting, failed, healthy, modifying, running, setup, under_maintenance, unhealthy"+           <> "'. Accepted values: backing_up, connection_lost, creating, deleting, failed, healthy, modifying, restoring, running, setup, terminated, under_maintenance, unhealthy"  instance ToText ServerStatus where     toText = \case@@ -171,8 +193,10 @@         Failed -> "FAILED"         Healthy -> "HEALTHY"         Modifying -> "MODIFYING"+        Restoring -> "RESTORING"         Running -> "RUNNING"         Setup -> "SETUP"+        Terminated -> "TERMINATED"         UnderMaintenance -> "UNDER_MAINTENANCE"         Unhealthy -> "UNHEALTHY" 

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.OpsWorksCM.UpdateServer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -43,22 +43,23 @@     , usrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'updateServer' smart constructor. data UpdateServer = UpdateServer'-    { _usDisableAutomatedBackup     :: !(Maybe Bool)-    , _usPreferredMaintenanceWindow :: !(Maybe Text)-    , _usPreferredBackupWindow      :: !(Maybe Text)-    , _usBackupRetentionCount       :: !(Maybe Int)-    , _usServerName                 :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _usDisableAutomatedBackup     :: !(Maybe Bool)+  , _usPreferredMaintenanceWindow :: !(Maybe Text)+  , _usPreferredBackupWindow      :: !(Maybe Text)+  , _usBackupRetentionCount       :: !(Maybe Int)+  , _usServerName                 :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -76,14 +77,15 @@     :: Text -- ^ 'usServerName'     -> UpdateServer updateServer pServerName_ =-    UpdateServer'-    { _usDisableAutomatedBackup = Nothing-    , _usPreferredMaintenanceWindow = Nothing-    , _usPreferredBackupWindow = Nothing-    , _usBackupRetentionCount = Nothing-    , _usServerName = pServerName_-    }+  UpdateServer'+  { _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});@@ -113,9 +115,9 @@                  UpdateServerResponse' <$>                    (x .?> "Server") <*> (pure (fromEnum s))) -instance Hashable UpdateServer+instance Hashable UpdateServer where -instance NFData UpdateServer+instance NFData UpdateServer where  instance ToHeaders UpdateServer where         toHeaders@@ -149,10 +151,11 @@  -- | /See:/ 'updateServerResponse' smart constructor. data UpdateServerResponse = UpdateServerResponse'-    { _usrsServer         :: !(Maybe Server)-    , _usrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _usrsServer         :: !(Maybe Server)+  , _usrsResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,11 +167,10 @@     :: Int -- ^ 'usrsResponseStatus'     -> UpdateServerResponse updateServerResponse pResponseStatus_ =-    UpdateServerResponse'-    { _usrsServer = Nothing-    , _usrsResponseStatus = pResponseStatus_-    }+  UpdateServerResponse'+  {_usrsServer = Nothing, _usrsResponseStatus = pResponseStatus_} + -- | Contains the response to a @UpdateServer@ request. usrsServer :: Lens' UpdateServerResponse (Maybe Server) usrsServer = lens _usrsServer (\ s a -> s{_usrsServer = a});@@ -177,4 +179,4 @@ usrsResponseStatus :: Lens' UpdateServerResponse Int usrsResponseStatus = lens _usrsResponseStatus (\ s a -> s{_usrsResponseStatus = a}); -instance NFData UpdateServerResponse+instance NFData UpdateServerResponse where

@@ -12,22 +12,18 @@  -- | -- Module      : Network.AWS.OpsWorksCM.UpdateServerEngineAttributes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates engine specific attributes on a specified server. Server will enter the @MODIFYING@ state when this operation is in progress. Only one update can take place at a time.+-- 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@ ). -- ----- This operation can be use to reset Chef Server main API key (@CHEF_PIVOTAL_KEY@ ).--- -- This operation is asynchronous. ----------- This operation can only be called for @HEALTHY@ and @UNHEALTHY@ servers. Otherwise a @InvalidStateException@ is raised. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are invalid.+-- This operation can only be called for servers in @HEALTHY@ or @UNHEALTHY@ states. Otherwise, an @InvalidStateException@ is raised. A @ResourceNotFoundException@ is thrown when the server does not exist. A @ValidationException@ is raised when parameters of the request are not valid. -- module Network.AWS.OpsWorksCM.UpdateServerEngineAttributes     (@@ -47,20 +43,21 @@     , usearsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.OpsWorksCM.Types.Product-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.Types+import Network.AWS.OpsWorksCM.Types.Product+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'updateServerEngineAttributes' smart constructor. data UpdateServerEngineAttributes = UpdateServerEngineAttributes'-    { _useaAttributeValue :: !(Maybe Text)-    , _useaServerName     :: !Text-    , _useaAttributeName  :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _useaAttributeValue :: !(Maybe Text)+  , _useaServerName     :: !Text+  , _useaAttributeName  :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServerEngineAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +72,13 @@     -> Text -- ^ 'useaAttributeName'     -> UpdateServerEngineAttributes updateServerEngineAttributes pServerName_ pAttributeName_ =-    UpdateServerEngineAttributes'-    { _useaAttributeValue = Nothing-    , _useaServerName = pServerName_-    , _useaAttributeName = pAttributeName_-    }+  UpdateServerEngineAttributes'+  { _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});@@ -104,9 +102,9 @@                  UpdateServerEngineAttributesResponse' <$>                    (x .?> "Server") <*> (pure (fromEnum s))) -instance Hashable UpdateServerEngineAttributes+instance Hashable UpdateServerEngineAttributes where -instance NFData UpdateServerEngineAttributes+instance NFData UpdateServerEngineAttributes where  instance ToHeaders UpdateServerEngineAttributes where         toHeaders@@ -134,10 +132,11 @@  -- | /See:/ 'updateServerEngineAttributesResponse' smart constructor. data UpdateServerEngineAttributesResponse = UpdateServerEngineAttributesResponse'-    { _usearsServer         :: !(Maybe Server)-    , _usearsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _usearsServer         :: !(Maybe Server)+  , _usearsResponseStatus :: !Int+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateServerEngineAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,11 +148,10 @@     :: Int -- ^ 'usearsResponseStatus'     -> UpdateServerEngineAttributesResponse updateServerEngineAttributesResponse pResponseStatus_ =-    UpdateServerEngineAttributesResponse'-    { _usearsServer = Nothing-    , _usearsResponseStatus = pResponseStatus_-    }+  UpdateServerEngineAttributesResponse'+  {_usearsServer = Nothing, _usearsResponseStatus = pResponseStatus_} + -- | Contains the response to an @UpdateServerEngineAttributes@ request. usearsServer :: Lens' UpdateServerEngineAttributesResponse (Maybe Server) usearsServer = lens _usearsServer (\ s a -> s{_usearsServer = a});@@ -163,3 +161,4 @@ usearsResponseStatus = lens _usearsResponseStatus (\ s a -> s{_usearsResponseStatus = a});  instance NFData UpdateServerEngineAttributesResponse+         where

@@ -7,15 +7,36 @@  -- | -- Module      : Network.AWS.OpsWorksCM.Waiters--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.OpsWorksCM.Waiters where -import           Network.AWS.Lens-import           Network.AWS.OpsWorksCM.Types-import           Network.AWS.Prelude-import           Network.AWS.Waiter+import Network.AWS.Lens+import Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus+import Network.AWS.OpsWorksCM.Types+import Network.AWS.Prelude+import Network.AWS.Waiter++-- | Polls 'Network.AWS.OpsWorksCM.DescribeNodeAssociationStatus' every 15 seconds until a successful state is reached. An error is returned after 15 failed checks.+nodeAssociated :: Wait DescribeNodeAssociationStatus+nodeAssociated =+  Wait+  { _waitName = "NodeAssociated"+  , _waitAttempts = 15+  , _waitDelay = 15+  , _waitAcceptors =+      [ matchAll+          "SUCCESS"+          AcceptSuccess+          (dnasrsNodeAssociationStatus . to toTextCI)+      , matchAll+          "FAILED"+          AcceptFailure+          (dnasrsNodeAssociationStatus . to toTextCI)+      ]+  }+

@@ -2,9 +2,9 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --

@@ -5,20 +5,20 @@  -- | -- Module      : Test.AWS.Gen.OpsWorksCM--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.OpsWorksCM where  import Data.Proxy+import Network.AWS.OpsWorksCM import Test.AWS.Fixture+import Test.AWS.OpsWorksCM.Internal import Test.AWS.Prelude import Test.Tasty-import Network.AWS.OpsWorksCM-import Test.AWS.OpsWorksCM.Internal  -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.