amazonka-opsworks 1.4.0 → 1.4.1

raw patch · 77 files changed

+478/−7 lines, 77 filesdep ~amazonka-coredep ~amazonka-opsworksdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-opsworks.cabal +5/−5
• gen/Network/AWS/OpsWorks.hs +4/−0
• gen/Network/AWS/OpsWorks/AssignInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/AssignVolume.hs +4/−0
• gen/Network/AWS/OpsWorks/AssociateElasticIP.hs +4/−0
• gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs +4/−0
• gen/Network/AWS/OpsWorks/CloneStack.hs +4/−0
• gen/Network/AWS/OpsWorks/CreateApp.hs +4/−0
• gen/Network/AWS/OpsWorks/CreateDeployment.hs +14/−0
• gen/Network/AWS/OpsWorks/CreateInstance.hs +27/−0
• gen/Network/AWS/OpsWorks/CreateLayer.hs +4/−0
• gen/Network/AWS/OpsWorks/CreateStack.hs +4/−0
• gen/Network/AWS/OpsWorks/CreateUserProfile.hs +4/−0
• gen/Network/AWS/OpsWorks/DeleteApp.hs +4/−0
• gen/Network/AWS/OpsWorks/DeleteInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/DeleteLayer.hs +4/−0
• gen/Network/AWS/OpsWorks/DeleteStack.hs +4/−0
• gen/Network/AWS/OpsWorks/DeleteUserProfile.hs +4/−0
• gen/Network/AWS/OpsWorks/DeregisterEcsCluster.hs +4/−0
• gen/Network/AWS/OpsWorks/DeregisterElasticIP.hs +4/−0
• gen/Network/AWS/OpsWorks/DeregisterInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/DeregisterRDSDBInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/DeregisterVolume.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeApps.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeCommands.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeDeployments.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeInstances.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeLayers.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribePermissions.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +5/−0
• gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeStacks.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +4/−0
• gen/Network/AWS/OpsWorks/DescribeVolumes.hs +4/−0
• gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs +4/−0
• gen/Network/AWS/OpsWorks/DisassociateElasticIP.hs +4/−0
• gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +4/−0
• gen/Network/AWS/OpsWorks/GrantAccess.hs +4/−0
• gen/Network/AWS/OpsWorks/RebootInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +4/−0
• gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +4/−0
• gen/Network/AWS/OpsWorks/RegisterInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/RegisterRDSDBInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/RegisterVolume.hs +4/−0
• gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs +4/−0
• gen/Network/AWS/OpsWorks/SetPermission.hs +4/−0
• gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs +4/−0
• gen/Network/AWS/OpsWorks/StartInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/StartStack.hs +4/−0
• gen/Network/AWS/OpsWorks/StopInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/StopStack.hs +4/−0
• gen/Network/AWS/OpsWorks/Types.hs +3/−0
• gen/Network/AWS/OpsWorks/Types/Product.hs +88/−1
• gen/Network/AWS/OpsWorks/Types/Sum.hs +12/−0
• gen/Network/AWS/OpsWorks/UnassignInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/UnassignVolume.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateApp.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateElasticIP.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateRDSDBInstance.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateStack.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +4/−0
• gen/Network/AWS/OpsWorks/UpdateVolume.hs +4/−0
• gen/Network/AWS/OpsWorks/Waiters.hs +51/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-opsworks-version:               1.4.0+version:               1.4.1 synopsis:              Amazon OpsWorks SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -163,7 +163,7 @@         , Network.AWS.OpsWorks.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-opsworks-test@@ -183,9 +183,9 @@         , Test.AWS.OpsWorks.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-opsworks == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-opsworks == 1.4.1.*         , base         , bytestring         , tasty

@@ -88,6 +88,9 @@     -- ** AppExists     , appExists +    -- ** InstanceRegistered+    , instanceRegistered+     -- * Operations     -- $operations @@ -507,6 +510,7 @@     , iOS     , iAvailabilityZone     , iLastServiceErrorId+    , iTenancy     , iAutoScalingType     , iLayerIds     , iArchitecture

@@ -90,6 +90,8 @@  instance Hashable AssignInstance +instance NFData AssignInstance+ instance ToHeaders AssignInstance where         toHeaders           = const@@ -122,3 +124,5 @@ assignInstanceResponse     :: AssignInstanceResponse assignInstanceResponse = AssignInstanceResponse'++instance NFData AssignInstanceResponse

@@ -88,6 +88,8 @@  instance Hashable AssignVolume +instance NFData AssignVolume+ instance ToHeaders AssignVolume where         toHeaders           = const@@ -120,3 +122,5 @@ assignVolumeResponse     :: AssignVolumeResponse assignVolumeResponse = AssignVolumeResponse'++instance NFData AssignVolumeResponse

@@ -87,6 +87,8 @@  instance Hashable AssociateElasticIP +instance NFData AssociateElasticIP+ instance ToHeaders AssociateElasticIP where         toHeaders           = const@@ -120,3 +122,5 @@ associateElasticIPResponse     :: AssociateElasticIPResponse associateElasticIPResponse = AssociateElasticIPResponse'++instance NFData AssociateElasticIPResponse

@@ -94,6 +94,8 @@  instance Hashable AttachElasticLoadBalancer +instance NFData AttachElasticLoadBalancer+ instance ToHeaders AttachElasticLoadBalancer where         toHeaders           = const@@ -129,3 +131,5 @@ attachElasticLoadBalancerResponse     :: AttachElasticLoadBalancerResponse attachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse'++instance NFData AttachElasticLoadBalancerResponse

@@ -423,6 +423,8 @@  instance Hashable CloneStack +instance NFData CloneStack+ instance ToHeaders CloneStack where         toHeaders           = const@@ -502,3 +504,5 @@ -- | The response status code. csrsResponseStatus :: Lens' CloneStackResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});++instance NFData CloneStackResponse

@@ -204,6 +204,8 @@  instance Hashable CreateApp +instance NFData CreateApp+ instance ToHeaders CreateApp where         toHeaders           = const@@ -266,3 +268,5 @@ -- | The response status code. carsResponseStatus :: Lens' CreateAppResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});++instance NFData CreateAppResponse

@@ -37,6 +37,7 @@     , cdCustomJSON     , cdAppId     , cdInstanceIds+    , cdLayerIds     , cdComment     , cdStackId     , cdCommand@@ -61,6 +62,7 @@     { _cdCustomJSON  :: !(Maybe Text)     , _cdAppId       :: !(Maybe Text)     , _cdInstanceIds :: !(Maybe [Text])+    , _cdLayerIds    :: !(Maybe [Text])     , _cdComment     :: !(Maybe Text)     , _cdStackId     :: !Text     , _cdCommand     :: !DeploymentCommand@@ -76,6 +78,8 @@ -- -- * 'cdInstanceIds' --+-- * 'cdLayerIds'+-- -- * 'cdComment' -- -- * 'cdStackId'@@ -90,6 +94,7 @@     { _cdCustomJSON = Nothing     , _cdAppId = Nothing     , _cdInstanceIds = Nothing+    , _cdLayerIds = Nothing     , _cdComment = Nothing     , _cdStackId = pStackId_     , _cdCommand = pCommand_@@ -116,6 +121,10 @@ cdInstanceIds :: Lens' CreateDeployment [Text] cdInstanceIds = lens _cdInstanceIds (\ s a -> s{_cdInstanceIds = a}) . _Default . _Coerce; +-- | The layer IDs for the deployment targets.+cdLayerIds :: Lens' CreateDeployment [Text]+cdLayerIds = lens _cdLayerIds (\ s a -> s{_cdLayerIds = a}) . _Default . _Coerce;+ -- | A user-defined comment. cdComment :: Lens' CreateDeployment (Maybe Text) cdComment = lens _cdComment (\ s a -> s{_cdComment = a});@@ -140,6 +149,8 @@  instance Hashable CreateDeployment +instance NFData CreateDeployment+ instance ToHeaders CreateDeployment where         toHeaders           = const@@ -156,6 +167,7 @@                  [("CustomJson" .=) <$> _cdCustomJSON,                   ("AppId" .=) <$> _cdAppId,                   ("InstanceIds" .=) <$> _cdInstanceIds,+                  ("LayerIds" .=) <$> _cdLayerIds,                   ("Comment" .=) <$> _cdComment,                   Just ("StackId" .= _cdStackId),                   Just ("Command" .= _cdCommand)])@@ -198,3 +210,5 @@ -- | The response status code. cdrsResponseStatus :: Lens' CreateDeploymentResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});++instance NFData CreateDeploymentResponse

@@ -41,6 +41,7 @@     , ciEBSOptimized     , ciOS     , ciAvailabilityZone+    , ciTenancy     , ciAutoScalingType     , ciArchitecture     , ciAMIId@@ -76,6 +77,7 @@     , _ciEBSOptimized         :: !(Maybe Bool)     , _ciOS                   :: !(Maybe Text)     , _ciAvailabilityZone     :: !(Maybe Text)+    , _ciTenancy              :: !(Maybe Text)     , _ciAutoScalingType      :: !(Maybe AutoScalingType)     , _ciArchitecture         :: !(Maybe Architecture)     , _ciAMIId                :: !(Maybe Text)@@ -108,6 +110,8 @@ -- -- * 'ciAvailabilityZone' --+-- * 'ciTenancy'+-- -- * 'ciAutoScalingType' -- -- * 'ciArchitecture'@@ -138,6 +142,7 @@     , _ciEBSOptimized = Nothing     , _ciOS = Nothing     , _ciAvailabilityZone = Nothing+    , _ciTenancy = Nothing     , _ciAutoScalingType = Nothing     , _ciArchitecture = Nothing     , _ciAMIId = Nothing@@ -225,6 +230,23 @@ ciAvailabilityZone :: Lens' CreateInstance (Maybe Text) ciAvailabilityZone = lens _ciAvailabilityZone (\ s a -> s{_ciAvailabilityZone = a}); +-- | The instance\'s tenancy option. The default option is no tenancy, or if+-- the instance is running in a VPC, inherit tenancy settings from the VPC.+-- The following are valid values for this parameter: 'dedicated',+-- 'default', or 'host'. Because there are costs associated with changes in+-- tenancy options, we recommend that you research tenancy options before+-- choosing them for your instances. For more information about dedicated+-- hosts, see+-- <https://aws.amazon.com/ec2/dedicated-hosts/ Dedicated Hosts Overview>+-- and+-- <https://aws.amazon.com/ec2/dedicated-hosts/ Amazon EC2 Dedicated Hosts>.+-- For more information about dedicated instances, see+-- <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/dedicated-instance.html Dedicated Instances>+-- and+-- <https://aws.amazon.com/ec2/purchasing-options/dedicated-instances/ Amazon EC2 Dedicated Instances>.+ciTenancy :: Lens' CreateInstance (Maybe Text)+ciTenancy = lens _ciTenancy (\ s a -> s{_ciTenancy = a});+ -- | For load-based or time-based instances, the type. Windows stacks can use -- only time-based instances. ciAutoScalingType :: Lens' CreateInstance (Maybe AutoScalingType)@@ -287,6 +309,8 @@  instance Hashable CreateInstance +instance NFData CreateInstance+ instance ToHeaders CreateInstance where         toHeaders           = const@@ -310,6 +334,7 @@                   ("EbsOptimized" .=) <$> _ciEBSOptimized,                   ("Os" .=) <$> _ciOS,                   ("AvailabilityZone" .=) <$> _ciAvailabilityZone,+                  ("Tenancy" .=) <$> _ciTenancy,                   ("AutoScalingType" .=) <$> _ciAutoScalingType,                   ("Architecture" .=) <$> _ciArchitecture,                   ("AmiId" .=) <$> _ciAMIId,@@ -357,3 +382,5 @@ -- | The response status code. cirsResponseStatus :: Lens' CreateInstanceResponse Int cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a});++instance NFData CreateInstanceResponse

@@ -271,6 +271,8 @@  instance Hashable CreateLayer +instance NFData CreateLayer+ instance ToHeaders CreateLayer where         toHeaders           = const@@ -346,3 +348,5 @@ -- | The response status code. clrsResponseStatus :: Lens' CreateLayerResponse Int clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a});++instance NFData CreateLayerResponse

@@ -386,6 +386,8 @@  instance Hashable CreateStack +instance NFData CreateStack+ instance ToHeaders CreateStack where         toHeaders           = const@@ -464,3 +466,5 @@ -- | The response status code. crsResponseStatus :: Lens' CreateStackResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});++instance NFData CreateStackResponse

@@ -113,6 +113,8 @@  instance Hashable CreateUserProfile +instance NFData CreateUserProfile+ instance ToHeaders CreateUserProfile where         toHeaders           = const@@ -170,3 +172,5 @@ -- | The response status code. cuprsResponseStatus :: Lens' CreateUserProfileResponse Int cuprsResponseStatus = lens _cuprsResponseStatus (\ s a -> s{_cuprsResponseStatus = a});++instance NFData CreateUserProfileResponse

@@ -74,6 +74,8 @@  instance Hashable DeleteApp +instance NFData DeleteApp+ instance ToHeaders DeleteApp where         toHeaders           = const@@ -103,3 +105,5 @@ deleteAppResponse     :: DeleteAppResponse deleteAppResponse = DeleteAppResponse'++instance NFData DeleteAppResponse

@@ -96,6 +96,8 @@  instance Hashable DeleteInstance +instance NFData DeleteInstance+ instance ToHeaders DeleteInstance where         toHeaders           = const@@ -129,3 +131,5 @@ deleteInstanceResponse     :: DeleteInstanceResponse deleteInstanceResponse = DeleteInstanceResponse'++instance NFData DeleteInstanceResponse

@@ -77,6 +77,8 @@  instance Hashable DeleteLayer +instance NFData DeleteLayer+ instance ToHeaders DeleteLayer where         toHeaders           = const@@ -106,3 +108,5 @@ deleteLayerResponse     :: DeleteLayerResponse deleteLayerResponse = DeleteLayerResponse'++instance NFData DeleteLayerResponse

@@ -76,6 +76,8 @@  instance Hashable DeleteStack +instance NFData DeleteStack+ instance ToHeaders DeleteStack where         toHeaders           = const@@ -105,3 +107,5 @@ deleteStackResponse     :: DeleteStackResponse deleteStackResponse = DeleteStackResponse'++instance NFData DeleteStackResponse

@@ -73,6 +73,8 @@  instance Hashable DeleteUserProfile +instance NFData DeleteUserProfile+ instance ToHeaders DeleteUserProfile where         toHeaders           = const@@ -104,3 +106,5 @@ deleteUserProfileResponse     :: DeleteUserProfileResponse deleteUserProfileResponse = DeleteUserProfileResponse'++instance NFData DeleteUserProfileResponse

@@ -77,6 +77,8 @@  instance Hashable DeregisterEcsCluster +instance NFData DeregisterEcsCluster+ instance ToHeaders DeregisterEcsCluster where         toHeaders           = const@@ -109,3 +111,5 @@ deregisterEcsClusterResponse     :: DeregisterEcsClusterResponse deregisterEcsClusterResponse = DeregisterEcsClusterResponse'++instance NFData DeregisterEcsClusterResponse

@@ -77,6 +77,8 @@  instance Hashable DeregisterElasticIP +instance NFData DeregisterElasticIP+ instance ToHeaders DeregisterElasticIP where         toHeaders           = const@@ -108,3 +110,5 @@ deregisterElasticIPResponse     :: DeregisterElasticIPResponse deregisterElasticIPResponse = DeregisterElasticIPResponse'++instance NFData DeregisterElasticIPResponse

@@ -78,6 +78,8 @@  instance Hashable DeregisterInstance +instance NFData DeregisterInstance+ instance ToHeaders DeregisterInstance where         toHeaders           = const@@ -109,3 +111,5 @@ deregisterInstanceResponse     :: DeregisterInstanceResponse deregisterInstanceResponse = DeregisterInstanceResponse'++instance NFData DeregisterInstanceResponse

@@ -76,6 +76,8 @@  instance Hashable DeregisterRDSDBInstance +instance NFData DeregisterRDSDBInstance+ instance ToHeaders DeregisterRDSDBInstance where         toHeaders           = const@@ -108,3 +110,5 @@ deregisterRDSDBInstanceResponse     :: DeregisterRDSDBInstanceResponse deregisterRDSDBInstanceResponse = DeregisterRDSDBInstanceResponse'++instance NFData DeregisterRDSDBInstanceResponse

@@ -78,6 +78,8 @@  instance Hashable DeregisterVolume +instance NFData DeregisterVolume+ instance ToHeaders DeregisterVolume where         toHeaders           = const@@ -108,3 +110,5 @@ deregisterVolumeResponse     :: DeregisterVolumeResponse deregisterVolumeResponse = DeregisterVolumeResponse'++instance NFData DeregisterVolumeResponse

@@ -88,6 +88,8 @@  instance Hashable DescribeAgentVersions +instance NFData DescribeAgentVersions+ instance ToHeaders DescribeAgentVersions where         toHeaders           = const@@ -145,3 +147,5 @@ -- | The response status code. davrsResponseStatus :: Lens' DescribeAgentVersionsResponse Int davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});++instance NFData DescribeAgentVersionsResponse

@@ -94,6 +94,8 @@  instance Hashable DescribeApps +instance NFData DescribeApps+ instance ToHeaders DescribeApps where         toHeaders           = const@@ -147,3 +149,5 @@ -- | The response status code. darsResponseStatus :: Lens' DescribeAppsResponse Int darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});++instance NFData DescribeAppsResponse

@@ -107,6 +107,8 @@  instance Hashable DescribeCommands +instance NFData DescribeCommands+ instance ToHeaders DescribeCommands where         toHeaders           = const@@ -162,3 +164,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeCommandsResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});++instance NFData DescribeCommandsResponse

@@ -107,6 +107,8 @@  instance Hashable DescribeDeployments +instance NFData DescribeDeployments+ instance ToHeaders DescribeDeployments where         toHeaders           = const@@ -162,3 +164,5 @@ -- | The response status code. ddrsResponseStatus :: Lens' DescribeDeploymentsResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});++instance NFData DescribeDeploymentsResponse

@@ -125,6 +125,8 @@  instance Hashable DescribeEcsClusters +instance NFData DescribeEcsClusters+ instance ToHeaders DescribeEcsClusters where         toHeaders           = const@@ -193,3 +195,5 @@ -- | The response status code. decrsResponseStatus :: Lens' DescribeEcsClustersResponse Int decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});++instance NFData DescribeEcsClustersResponse

@@ -110,6 +110,8 @@  instance Hashable DescribeElasticIPs +instance NFData DescribeElasticIPs+ instance ToHeaders DescribeElasticIPs where         toHeaders           = const@@ -166,3 +168,5 @@ -- | The response status code. deirsResponseStatus :: Lens' DescribeElasticIPsResponse Int deirsResponseStatus = lens _deirsResponseStatus (\ s a -> s{_deirsResponseStatus = a});++instance NFData DescribeElasticIPsResponse

@@ -96,6 +96,8 @@  instance Hashable DescribeElasticLoadBalancers +instance NFData DescribeElasticLoadBalancers+ instance ToHeaders DescribeElasticLoadBalancers where         toHeaders           = const@@ -151,3 +153,5 @@ -- | The response status code. delbrsResponseStatus :: Lens' DescribeElasticLoadBalancersResponse Int delbrsResponseStatus = lens _delbrsResponseStatus (\ s a -> s{_delbrsResponseStatus = a});++instance NFData DescribeElasticLoadBalancersResponse

@@ -105,6 +105,8 @@  instance Hashable DescribeInstances +instance NFData DescribeInstances+ instance ToHeaders DescribeInstances where         toHeaders           = const@@ -160,3 +162,5 @@ -- | The response status code. dirsResponseStatus :: Lens' DescribeInstancesResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});++instance NFData DescribeInstancesResponse

@@ -93,6 +93,8 @@  instance Hashable DescribeLayers +instance NFData DescribeLayers+ instance ToHeaders DescribeLayers where         toHeaders           = const@@ -146,3 +148,5 @@ -- | The response status code. dlrsResponseStatus :: Lens' DescribeLayersResponse Int dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});++instance NFData DescribeLayersResponse

@@ -86,6 +86,8 @@  instance Hashable DescribeLoadBasedAutoScaling +instance NFData DescribeLoadBasedAutoScaling+ instance ToHeaders DescribeLoadBasedAutoScaling where         toHeaders           = const@@ -139,3 +141,5 @@ -- | The response status code. dlbasrsResponseStatus :: Lens' DescribeLoadBasedAutoScalingResponse Int dlbasrsResponseStatus = lens _dlbasrsResponseStatus (\ s a -> s{_dlbasrsResponseStatus = a});++instance NFData DescribeLoadBasedAutoScalingResponse

@@ -68,6 +68,8 @@  instance Hashable DescribeMyUserProfile +instance NFData DescribeMyUserProfile+ instance ToHeaders DescribeMyUserProfile where         toHeaders           = const@@ -118,3 +120,5 @@ -- | The response status code. dmuprsResponseStatus :: Lens' DescribeMyUserProfileResponse Int dmuprsResponseStatus = lens _dmuprsResponseStatus (\ s a -> s{_dmuprsResponseStatus = a});++instance NFData DescribeMyUserProfileResponse

@@ -92,6 +92,8 @@  instance Hashable DescribePermissions +instance NFData DescribePermissions+ instance ToHeaders DescribePermissions where         toHeaders           = const@@ -155,3 +157,5 @@ -- | The response status code. dprsResponseStatus :: Lens' DescribePermissionsResponse Int dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});++instance NFData DescribePermissionsResponse

@@ -105,6 +105,8 @@  instance Hashable DescribeRAIdArrays +instance NFData DescribeRAIdArrays+ instance ToHeaders DescribeRAIdArrays where         toHeaders           = const@@ -160,3 +162,5 @@ -- | The response status code. draiarsResponseStatus :: Lens' DescribeRAIdArraysResponse Int draiarsResponseStatus = lens _draiarsResponseStatus (\ s a -> s{_draiarsResponseStatus = a});++instance NFData DescribeRAIdArraysResponse

@@ -93,6 +93,8 @@  instance Hashable DescribeRDSDBInstances +instance NFData DescribeRDSDBInstances+ instance ToHeaders DescribeRDSDBInstances where         toHeaders           = const@@ -147,3 +149,5 @@ -- | The response status code. drdirsResponseStatus :: Lens' DescribeRDSDBInstancesResponse Int drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a});++instance NFData DescribeRDSDBInstancesResponse

@@ -105,6 +105,8 @@  instance Hashable DescribeServiceErrors +instance NFData DescribeServiceErrors+ instance ToHeaders DescribeServiceErrors where         toHeaders           = const@@ -161,3 +163,5 @@ -- | The response status code. dsersResponseStatus :: Lens' DescribeServiceErrorsResponse Int dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a});++instance NFData DescribeServiceErrorsResponse

@@ -86,6 +86,8 @@  instance Hashable DescribeStackProvisioningParameters +instance NFData DescribeStackProvisioningParameters+ instance ToHeaders          DescribeStackProvisioningParameters where         toHeaders@@ -151,3 +153,6 @@ -- | The response status code. dspprsResponseStatus :: Lens' DescribeStackProvisioningParametersResponse Int dspprsResponseStatus = lens _dspprsResponseStatus (\ s a -> s{_dspprsResponseStatus = a});++instance NFData+         DescribeStackProvisioningParametersResponse

@@ -83,6 +83,8 @@  instance Hashable DescribeStackSummary +instance NFData DescribeStackSummary+ instance ToHeaders DescribeStackSummary where         toHeaders           = const@@ -135,3 +137,5 @@ -- | The response status code. dssrsResponseStatus :: Lens' DescribeStackSummaryResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});++instance NFData DescribeStackSummaryResponse

@@ -82,6 +82,8 @@  instance Hashable DescribeStacks +instance NFData DescribeStacks+ instance ToHeaders DescribeStacks where         toHeaders           = const@@ -133,3 +135,5 @@ -- | The response status code. dsrsResponseStatus :: Lens' DescribeStacksResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});++instance NFData DescribeStacksResponse

@@ -87,6 +87,8 @@  instance Hashable DescribeTimeBasedAutoScaling +instance NFData DescribeTimeBasedAutoScaling+ instance ToHeaders DescribeTimeBasedAutoScaling where         toHeaders           = const@@ -141,3 +143,5 @@ -- | The response status code. dtbasrsResponseStatus :: Lens' DescribeTimeBasedAutoScalingResponse Int dtbasrsResponseStatus = lens _dtbasrsResponseStatus (\ s a -> s{_dtbasrsResponseStatus = a});++instance NFData DescribeTimeBasedAutoScalingResponse

@@ -81,6 +81,8 @@  instance Hashable DescribeUserProfiles +instance NFData DescribeUserProfiles+ instance ToHeaders DescribeUserProfiles where         toHeaders           = const@@ -133,3 +135,5 @@ -- | The response status code. duprsResponseStatus :: Lens' DescribeUserProfilesResponse Int duprsResponseStatus = lens _duprsResponseStatus (\ s a -> s{_duprsResponseStatus = a});++instance NFData DescribeUserProfilesResponse

@@ -114,6 +114,8 @@  instance Hashable DescribeVolumes +instance NFData DescribeVolumes+ instance ToHeaders DescribeVolumes where         toHeaders           = const@@ -169,3 +171,5 @@ -- | The response status code. dvrsResponseStatus :: Lens' DescribeVolumesResponse Int dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a});++instance NFData DescribeVolumesResponse

@@ -87,6 +87,8 @@  instance Hashable DetachElasticLoadBalancer +instance NFData DetachElasticLoadBalancer+ instance ToHeaders DetachElasticLoadBalancer where         toHeaders           = const@@ -122,3 +124,5 @@ detachElasticLoadBalancerResponse     :: DetachElasticLoadBalancerResponse detachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse'++instance NFData DetachElasticLoadBalancerResponse

@@ -77,6 +77,8 @@  instance Hashable DisassociateElasticIP +instance NFData DisassociateElasticIP+ instance ToHeaders DisassociateElasticIP where         toHeaders           = const@@ -108,3 +110,5 @@ disassociateElasticIPResponse     :: DisassociateElasticIPResponse disassociateElasticIPResponse = DisassociateElasticIPResponse'++instance NFData DisassociateElasticIPResponse

@@ -85,6 +85,8 @@  instance Hashable GetHostnameSuggestion +instance NFData GetHostnameSuggestion+ instance ToHeaders GetHostnameSuggestion where         toHeaders           = const@@ -145,3 +147,5 @@ -- | The response status code. ghsrsResponseStatus :: Lens' GetHostnameSuggestionResponse Int ghsrsResponseStatus = lens _ghsrsResponseStatus (\ s a -> s{_ghsrsResponseStatus = a});++instance NFData GetHostnameSuggestionResponse

@@ -90,6 +90,8 @@  instance Hashable GrantAccess +instance NFData GrantAccess+ instance ToHeaders GrantAccess where         toHeaders           = const@@ -145,3 +147,5 @@ -- | The response status code. garsResponseStatus :: Lens' GrantAccessResponse Int garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});++instance NFData GrantAccessResponse

@@ -75,6 +75,8 @@  instance Hashable RebootInstance +instance NFData RebootInstance+ instance ToHeaders RebootInstance where         toHeaders           = const@@ -105,3 +107,5 @@ rebootInstanceResponse     :: RebootInstanceResponse rebootInstanceResponse = RebootInstanceResponse'++instance NFData RebootInstanceResponse

@@ -95,6 +95,8 @@  instance Hashable RegisterEcsCluster +instance NFData RegisterEcsCluster+ instance ToHeaders RegisterEcsCluster where         toHeaders           = const@@ -149,3 +151,5 @@ -- | The response status code. recrsResponseStatus :: Lens' RegisterEcsClusterResponse Int recrsResponseStatus = lens _recrsResponseStatus (\ s a -> s{_recrsResponseStatus = a});++instance NFData RegisterEcsClusterResponse

@@ -95,6 +95,8 @@  instance Hashable RegisterElasticIP +instance NFData RegisterElasticIP+ instance ToHeaders RegisterElasticIP where         toHeaders           = const@@ -149,3 +151,5 @@ -- | The response status code. reirsResponseStatus :: Lens' RegisterElasticIPResponse Int reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a});++instance NFData RegisterElasticIPResponse

@@ -145,6 +145,8 @@  instance Hashable RegisterInstance +instance NFData RegisterInstance+ instance ToHeaders RegisterInstance where         toHeaders           = const@@ -204,3 +206,5 @@ -- | The response status code. rirsResponseStatus :: Lens' RegisterInstanceResponse Int rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a});++instance NFData RegisterInstanceResponse

@@ -105,6 +105,8 @@  instance Hashable RegisterRDSDBInstance +instance NFData RegisterRDSDBInstance+ instance ToHeaders RegisterRDSDBInstance where         toHeaders           = const@@ -140,3 +142,5 @@ registerRDSDBInstanceResponse     :: RegisterRDSDBInstanceResponse registerRDSDBInstanceResponse = RegisterRDSDBInstanceResponse'++instance NFData RegisterRDSDBInstanceResponse

@@ -94,6 +94,8 @@  instance Hashable RegisterVolume +instance NFData RegisterVolume+ instance ToHeaders RegisterVolume where         toHeaders           = const@@ -147,3 +149,5 @@ -- | The response status code. rvrsResponseStatus :: Lens' RegisterVolumeResponse Int rvrsResponseStatus = lens _rvrsResponseStatus (\ s a -> s{_rvrsResponseStatus = a});++instance NFData RegisterVolumeResponse

@@ -114,6 +114,8 @@  instance Hashable SetLoadBasedAutoScaling +instance NFData SetLoadBasedAutoScaling+ instance ToHeaders SetLoadBasedAutoScaling where         toHeaders           = const@@ -149,3 +151,5 @@ setLoadBasedAutoScalingResponse     :: SetLoadBasedAutoScalingResponse setLoadBasedAutoScalingResponse = SetLoadBasedAutoScalingResponse'++instance NFData SetLoadBasedAutoScalingResponse

@@ -123,6 +123,8 @@  instance Hashable SetPermission +instance NFData SetPermission+ instance ToHeaders SetPermission where         toHeaders           = const@@ -158,3 +160,5 @@ setPermissionResponse     :: SetPermissionResponse setPermissionResponse = SetPermissionResponse'++instance NFData SetPermissionResponse

@@ -87,6 +87,8 @@  instance Hashable SetTimeBasedAutoScaling +instance NFData SetTimeBasedAutoScaling+ instance ToHeaders SetTimeBasedAutoScaling where         toHeaders           = const@@ -121,3 +123,5 @@ setTimeBasedAutoScalingResponse     :: SetTimeBasedAutoScalingResponse setTimeBasedAutoScalingResponse = SetTimeBasedAutoScalingResponse'++instance NFData SetTimeBasedAutoScalingResponse

@@ -75,6 +75,8 @@  instance Hashable StartInstance +instance NFData StartInstance+ instance ToHeaders StartInstance where         toHeaders           = const@@ -105,3 +107,5 @@ startInstanceResponse     :: StartInstanceResponse startInstanceResponse = StartInstanceResponse'++instance NFData StartInstanceResponse

@@ -74,6 +74,8 @@  instance Hashable StartStack +instance NFData StartStack+ instance ToHeaders StartStack where         toHeaders           = const@@ -104,3 +106,5 @@ startStackResponse     :: StartStackResponse startStackResponse = StartStackResponse'++instance NFData StartStackResponse

@@ -78,6 +78,8 @@  instance Hashable StopInstance +instance NFData StopInstance+ instance ToHeaders StopInstance where         toHeaders           = const@@ -108,3 +110,5 @@ stopInstanceResponse     :: StopInstanceResponse stopInstanceResponse = StopInstanceResponse'++instance NFData StopInstanceResponse

@@ -74,6 +74,8 @@  instance Hashable StopStack +instance NFData StopStack+ instance ToHeaders StopStack where         toHeaders           = const@@ -104,3 +106,5 @@ stopStackResponse     :: StopStackResponse stopStackResponse = StopStackResponse'++instance NFData StopStackResponse

@@ -223,6 +223,7 @@     , iOS     , iAvailabilityZone     , iLastServiceErrorId+    , iTenancy     , iAutoScalingType     , iLayerIds     , iArchitecture@@ -536,6 +537,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           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"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -61,6 +61,8 @@  instance Hashable AgentVersion +instance NFData AgentVersion+ -- | A description of the app. -- -- /See:/ 'app' smart constructor.@@ -222,6 +224,8 @@  instance Hashable App +instance NFData App+ -- | Describes a load-based auto scaling upscaling or downscaling threshold -- configuration, which specifies when AWS OpsWorks starts or stops -- load-based instances.@@ -331,6 +335,8 @@  instance Hashable AutoScalingThresholds +instance NFData AutoScalingThresholds+ instance ToJSON AutoScalingThresholds where         toJSON AutoScalingThresholds'{..}           = object@@ -410,6 +416,8 @@  instance Hashable BlockDeviceMapping +instance NFData BlockDeviceMapping+ instance ToJSON BlockDeviceMapping where         toJSON BlockDeviceMapping'{..}           = object@@ -460,6 +468,8 @@  instance Hashable ChefConfiguration +instance NFData ChefConfiguration+ instance ToJSON ChefConfiguration where         toJSON ChefConfiguration'{..}           = object@@ -595,6 +605,8 @@  instance Hashable Command +instance NFData Command+ -- | Describes an app\'s data source. -- -- /See:/ 'dataSource' smart constructor.@@ -645,6 +657,8 @@  instance Hashable DataSource +instance NFData DataSource+ instance ToJSON DataSource where         toJSON DataSource'{..}           = object@@ -795,6 +809,8 @@  instance Hashable Deployment +instance NFData Deployment+ -- | Used to specify a stack or deployment command. -- -- /See:/ 'deploymentCommand' smart constructor.@@ -884,6 +900,8 @@  instance Hashable DeploymentCommand +instance NFData DeploymentCommand+ instance ToJSON DeploymentCommand where         toJSON DeploymentCommand'{..}           = object@@ -965,6 +983,8 @@  instance Hashable EBSBlockDevice +instance NFData EBSBlockDevice+ instance ToJSON EBSBlockDevice where         toJSON EBSBlockDevice'{..}           = object@@ -1034,6 +1054,8 @@  instance Hashable EcsCluster +instance NFData EcsCluster+ -- | Describes an Elastic IP address. -- -- /See:/ 'elasticIP' smart constructor.@@ -1102,6 +1124,8 @@  instance Hashable ElasticIP +instance NFData ElasticIP+ -- | Describes an Elastic Load Balancing instance. -- -- /See:/ 'elasticLoadBalancer' smart constructor.@@ -1206,6 +1230,8 @@  instance Hashable ElasticLoadBalancer +instance NFData ElasticLoadBalancer+ -- | Represents an app\'s environment variable. -- -- /See:/ 'environmentVariable' smart constructor.@@ -1264,6 +1290,8 @@  instance Hashable EnvironmentVariable +instance NFData EnvironmentVariable+ instance ToJSON EnvironmentVariable where         toJSON EnvironmentVariable'{..}           = object@@ -1302,6 +1330,7 @@     , _iOS                       :: !(Maybe Text)     , _iAvailabilityZone         :: !(Maybe Text)     , _iLastServiceErrorId       :: !(Maybe Text)+    , _iTenancy                  :: !(Maybe Text)     , _iAutoScalingType          :: !(Maybe AutoScalingType)     , _iLayerIds                 :: !(Maybe [Text])     , _iArchitecture             :: !(Maybe Architecture)@@ -1374,6 +1403,8 @@ -- -- * 'iLastServiceErrorId' --+-- * 'iTenancy'+-- -- * 'iAutoScalingType' -- -- * 'iLayerIds'@@ -1428,6 +1459,7 @@     , _iOS = Nothing     , _iAvailabilityZone = Nothing     , _iLastServiceErrorId = Nothing+    , _iTenancy = Nothing     , _iAutoScalingType = Nothing     , _iLayerIds = Nothing     , _iArchitecture = Nothing@@ -1582,6 +1614,10 @@ iLastServiceErrorId :: Lens' Instance (Maybe Text) iLastServiceErrorId = lens _iLastServiceErrorId (\ s a -> s{_iLastServiceErrorId = a}); +-- | The instance\'s tenancy option, such as 'dedicated' or 'host'.+iTenancy :: Lens' Instance (Maybe Text)+iTenancy = lens _iTenancy (\ s a -> s{_iTenancy = a});+ -- | For load-based or time-based instances, the type. iAutoScalingType :: Lens' Instance (Maybe AutoScalingType) iAutoScalingType = lens _iAutoScalingType (\ s a -> s{_iAutoScalingType = a});@@ -1666,6 +1702,7 @@                      <*> (x .:? "Os")                      <*> (x .:? "AvailabilityZone")                      <*> (x .:? "LastServiceErrorId")+                     <*> (x .:? "Tenancy")                      <*> (x .:? "AutoScalingType")                      <*> (x .:? "LayerIds" .!= mempty)                      <*> (x .:? "Architecture")@@ -1681,6 +1718,8 @@  instance Hashable Instance +instance NFData Instance+ -- | Contains a description of an Amazon EC2 instance from the Amazon EC2 -- metadata service. For more information, see -- <http://docs.aws.amazon.com/sdkfornet/latest/apidocs/Index.html Instance Metadata and User Data>.@@ -1717,6 +1756,8 @@  instance Hashable InstanceIdentity +instance NFData InstanceIdentity+ instance ToJSON InstanceIdentity where         toJSON InstanceIdentity'{..}           = object@@ -1917,6 +1958,8 @@  instance Hashable InstancesCount +instance NFData InstancesCount+ -- | Describes a layer. -- -- /See:/ 'layer' smart constructor.@@ -2155,6 +2198,8 @@  instance Hashable Layer +instance NFData Layer+ -- | Specifies the lifecycle event configuration -- -- /See:/ 'lifecycleEventConfiguration' smart constructor.@@ -2187,6 +2232,8 @@  instance Hashable LifecycleEventConfiguration +instance NFData LifecycleEventConfiguration+ instance ToJSON LifecycleEventConfiguration where         toJSON LifecycleEventConfiguration'{..}           = object@@ -2255,6 +2302,8 @@  instance Hashable LoadBasedAutoScalingConfiguration +instance NFData LoadBasedAutoScalingConfiguration+ -- | Describes stack or user permissions. -- -- /See:/ 'permission' smart constructor.@@ -2334,6 +2383,8 @@  instance Hashable Permission +instance NFData Permission+ -- | Describes an instance\'s RAID array. -- -- /See:/ 'rAIdArray' smart constructor.@@ -2474,6 +2525,8 @@  instance Hashable RAIdArray +instance NFData RAIdArray+ -- | Describes an Amazon RDS instance. -- -- /See:/ 'rdsDBInstance' smart constructor.@@ -2580,6 +2633,8 @@  instance Hashable RDSDBInstance +instance NFData RDSDBInstance+ -- | AWS OpsWorks supports five lifecycle events: __setup__, -- __configuration__, __deploy__, __undeploy__, and __shutdown__. For each -- layer, AWS OpsWorks runs a set of standard recipes for each event. In@@ -2660,6 +2715,8 @@  instance Hashable Recipes +instance NFData Recipes+ instance ToJSON Recipes where         toJSON Recipes'{..}           = object@@ -2719,6 +2776,8 @@  instance Hashable ReportedOS +instance NFData ReportedOS+ -- | Describes an app\'s SSL configuration. -- -- /See:/ 'sslConfiguration' smart constructor.@@ -2771,6 +2830,8 @@  instance Hashable SSLConfiguration +instance NFData SSLConfiguration+ instance ToJSON SSLConfiguration where         toJSON SSLConfiguration'{..}           = object@@ -2837,6 +2898,8 @@  instance Hashable SelfUserProfile +instance NFData SelfUserProfile+ -- | Describes an AWS OpsWorks service error. -- -- /See:/ 'serviceError'' smart constructor.@@ -2913,6 +2976,8 @@  instance Hashable ServiceError' +instance NFData ServiceError'+ -- | The Shutdown event configuration. -- -- /See:/ 'shutdownEventConfiguration' smart constructor.@@ -2957,6 +3022,8 @@  instance Hashable ShutdownEventConfiguration +instance NFData ShutdownEventConfiguration+ instance ToJSON ShutdownEventConfiguration where         toJSON ShutdownEventConfiguration'{..}           = object@@ -3068,6 +3135,8 @@  instance Hashable Source +instance NFData Source+ instance ToJSON Source where         toJSON Source'{..}           = object@@ -3322,6 +3391,8 @@  instance Hashable Stack +instance NFData Stack+ -- | Describes the configuration manager. -- -- /See:/ 'stackConfigurationManager' smart constructor.@@ -3364,6 +3435,8 @@  instance Hashable StackConfigurationManager +instance NFData StackConfigurationManager+ instance ToJSON StackConfigurationManager where         toJSON StackConfigurationManager'{..}           = object@@ -3447,6 +3520,8 @@  instance Hashable StackSummary +instance NFData StackSummary+ -- | Contains the data needed by RDP clients such as the Microsoft Remote -- Desktop Connection to log in to the instance. --@@ -3509,6 +3584,8 @@  instance Hashable TemporaryCredential +instance NFData TemporaryCredential+ -- | Describes an instance\'s time-based auto scaling configuration. -- -- /See:/ 'timeBasedAutoScalingConfiguration' smart constructor.@@ -3551,6 +3628,8 @@  instance Hashable TimeBasedAutoScalingConfiguration +instance NFData TimeBasedAutoScalingConfiguration+ -- | Describes a user\'s SSH information. -- -- /See:/ 'userProfile' smart constructor.@@ -3621,6 +3700,8 @@  instance Hashable UserProfile +instance NFData UserProfile+ -- | Describes an instance\'s Amazon EBS volume. -- -- /See:/ 'volume' smart constructor.@@ -3739,7 +3820,7 @@ vEC2VolumeId :: Lens' Volume (Maybe Text) vEC2VolumeId = lens _vEC2VolumeId (\ s a -> s{_vEC2VolumeId = a}); --- | The volume mount point. For example \"\/dev\/sdh\".+-- | The volume mount point. For example, \"\/mnt\/disk1\". vMountPoint :: Lens' Volume (Maybe Text) vMountPoint = lens _vMountPoint (\ s a -> s{_vMountPoint = a}); @@ -3763,6 +3844,8 @@  instance Hashable Volume +instance NFData Volume+ -- | Describes an Amazon EBS volume configuration. -- -- /See:/ 'volumeConfiguration' smart constructor.@@ -3847,6 +3930,8 @@  instance Hashable VolumeConfiguration +instance NFData VolumeConfiguration+ instance ToJSON VolumeConfiguration where         toJSON VolumeConfiguration'{..}           = object@@ -3960,6 +4045,8 @@                      <*> (x .:? "Tuesday" .!= mempty))  instance Hashable WeeklyAutoScalingSchedule++instance NFData WeeklyAutoScalingSchedule  instance ToJSON WeeklyAutoScalingSchedule where         toJSON WeeklyAutoScalingSchedule'{..}

@@ -43,6 +43,7 @@         RailsEnv -> "RailsEnv"  instance Hashable     AppAttributesKeys+instance NFData       AppAttributesKeys instance ToByteString AppAttributesKeys instance ToQuery      AppAttributesKeys instance ToHeader     AppAttributesKeys@@ -86,6 +87,7 @@         ATStatic -> "static"  instance Hashable     AppType+instance NFData       AppType instance ToByteString AppType instance ToQuery      AppType instance ToHeader     AppType@@ -114,6 +116,7 @@         X86_64 -> "x86_64"  instance Hashable     Architecture+instance NFData       Architecture instance ToByteString Architecture instance ToQuery      Architecture instance ToHeader     Architecture@@ -142,6 +145,7 @@         Timer -> "timer"  instance Hashable     AutoScalingType+instance NFData       AutoScalingType instance ToByteString AutoScalingType instance ToQuery      AutoScalingType instance ToHeader     AutoScalingType@@ -200,6 +204,7 @@         UpdateDependencies -> "update_dependencies"  instance Hashable     DeploymentCommandName+instance NFData       DeploymentCommandName instance ToByteString DeploymentCommandName instance ToQuery      DeploymentCommandName instance ToHeader     DeploymentCommandName@@ -297,6 +302,7 @@         RubygemsVersion -> "RubygemsVersion"  instance Hashable     LayerAttributesKeys+instance NFData       LayerAttributesKeys instance ToByteString LayerAttributesKeys instance ToQuery      LayerAttributesKeys instance ToHeader     LayerAttributesKeys@@ -355,6 +361,7 @@         Web -> "web"  instance Hashable     LayerType+instance NFData       LayerType instance ToByteString LayerType instance ToQuery      LayerType instance ToHeader     LayerType@@ -383,6 +390,7 @@         InstanceStore -> "instance-store"  instance Hashable     RootDeviceType+instance NFData       RootDeviceType instance ToByteString RootDeviceType instance ToQuery      RootDeviceType instance ToHeader     RootDeviceType@@ -417,6 +425,7 @@         SVN -> "svn"  instance Hashable     SourceType+instance NFData       SourceType instance ToByteString SourceType instance ToQuery      SourceType instance ToHeader     SourceType@@ -442,6 +451,7 @@         Color -> "Color"  instance Hashable     StackAttributesKeys+instance NFData       StackAttributesKeys instance ToByteString StackAttributesKeys instance ToQuery      StackAttributesKeys instance ToHeader     StackAttributesKeys@@ -470,6 +480,7 @@         Paravirtual -> "paravirtual"  instance Hashable     VirtualizationType+instance NFData       VirtualizationType instance ToByteString VirtualizationType instance ToQuery      VirtualizationType instance ToHeader     VirtualizationType@@ -498,6 +509,7 @@         Standard -> "standard"  instance Hashable     VolumeType+instance NFData       VolumeType instance ToByteString VolumeType instance ToQuery      VolumeType instance ToHeader     VolumeType

@@ -77,6 +77,8 @@  instance Hashable UnassignInstance +instance NFData UnassignInstance+ instance ToHeaders UnassignInstance where         toHeaders           = const@@ -107,3 +109,5 @@ unassignInstanceResponse     :: UnassignInstanceResponse unassignInstanceResponse = UnassignInstanceResponse'++instance NFData UnassignInstanceResponse

@@ -76,6 +76,8 @@  instance Hashable UnassignVolume +instance NFData UnassignVolume+ instance ToHeaders UnassignVolume where         toHeaders           = const@@ -106,3 +108,5 @@ unassignVolumeResponse     :: UnassignVolumeResponse unassignVolumeResponse = UnassignVolumeResponse'++instance NFData UnassignVolumeResponse

@@ -181,6 +181,8 @@  instance Hashable UpdateApp +instance NFData UpdateApp+ instance ToHeaders UpdateApp where         toHeaders           = const@@ -221,3 +223,5 @@ updateAppResponse     :: UpdateAppResponse updateAppResponse = UpdateAppResponse'++instance NFData UpdateAppResponse

@@ -85,6 +85,8 @@  instance Hashable UpdateElasticIP +instance NFData UpdateElasticIP+ instance ToHeaders UpdateElasticIP where         toHeaders           = const@@ -117,3 +119,5 @@ updateElasticIPResponse     :: UpdateElasticIPResponse updateElasticIPResponse = UpdateElasticIPResponse'++instance NFData UpdateElasticIPResponse

@@ -228,6 +228,8 @@  instance Hashable UpdateInstance +instance NFData UpdateInstance+ instance ToHeaders UpdateInstance where         toHeaders           = const@@ -271,3 +273,5 @@ updateInstanceResponse     :: UpdateInstanceResponse updateInstanceResponse = UpdateInstanceResponse'++instance NFData UpdateInstanceResponse

@@ -238,6 +238,8 @@  instance Hashable UpdateLayer +instance NFData UpdateLayer+ instance ToHeaders UpdateLayer where         toHeaders           = const@@ -292,3 +294,5 @@ updateLayerResponse     :: UpdateLayerResponse updateLayerResponse = UpdateLayerResponse'++instance NFData UpdateLayerResponse

@@ -73,6 +73,8 @@  instance Hashable UpdateMyUserProfile +instance NFData UpdateMyUserProfile+ instance ToHeaders UpdateMyUserProfile where         toHeaders           = const@@ -105,3 +107,5 @@ updateMyUserProfileResponse     :: UpdateMyUserProfileResponse updateMyUserProfileResponse = UpdateMyUserProfileResponse'++instance NFData UpdateMyUserProfileResponse

@@ -93,6 +93,8 @@  instance Hashable UpdateRDSDBInstance +instance NFData UpdateRDSDBInstance+ instance ToHeaders UpdateRDSDBInstance where         toHeaders           = const@@ -127,3 +129,5 @@ updateRDSDBInstanceResponse     :: UpdateRDSDBInstanceResponse updateRDSDBInstanceResponse = UpdateRDSDBInstanceResponse'++instance NFData UpdateRDSDBInstanceResponse

@@ -335,6 +335,8 @@  instance Hashable UpdateStack +instance NFData UpdateStack+ instance ToHeaders UpdateStack where         toHeaders           = const@@ -389,3 +391,5 @@ updateStackResponse     :: UpdateStackResponse updateStackResponse = UpdateStackResponse'++instance NFData UpdateStackResponse

@@ -106,6 +106,8 @@  instance Hashable UpdateUserProfile +instance NFData UpdateUserProfile+ instance ToHeaders UpdateUserProfile where         toHeaders           = const@@ -142,3 +144,5 @@ updateUserProfileResponse     :: UpdateUserProfileResponse updateUserProfileResponse = UpdateUserProfileResponse'++instance NFData UpdateUserProfileResponse

@@ -94,6 +94,8 @@  instance Hashable UpdateVolume +instance NFData UpdateVolume+ instance ToHeaders UpdateVolume where         toHeaders           = const@@ -127,3 +129,5 @@ updateVolumeResponse     :: UpdateVolumeResponse updateVolumeResponse = UpdateVolumeResponse'++instance NFData UpdateVolumeResponse

@@ -21,6 +21,7 @@ import           Network.AWS.OpsWorks.DescribeInstances import           Network.AWS.OpsWorks.DescribeInstances import           Network.AWS.OpsWorks.DescribeInstances+import           Network.AWS.OpsWorks.DescribeInstances import           Network.AWS.OpsWorks.Types import           Network.AWS.Prelude import           Network.AWS.Waiter@@ -226,4 +227,54 @@     , _waitDelay = 1     , _waitAcceptors = [ matchStatus 200 AcceptSuccess                        , matchStatus 400 AcceptFailure]+    }++-- | Polls 'Network.AWS.OpsWorks.DescribeInstances' every 15 seconds until a+-- successful state is reached. An error is returned after 40 failed checks.+instanceRegistered :: Wait DescribeInstances+instanceRegistered =+    Wait+    { _waitName = "InstanceRegistered"+    , _waitAttempts = 40+    , _waitDelay = 15+    , _waitAcceptors = [ matchAll+                             "registered"+                             AcceptSuccess+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "setup_failed"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "shutting_down"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "stopped"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "stopping"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "terminating"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "terminated"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)+                       , matchAny+                             "stop_failed"+                             AcceptFailure+                             (folding (concatOf dirsInstances) .+                              iStatus . _Just . to toTextCI)]     }