amazonka-opsworks 1.2.0.2 → 1.3.0

raw patch · 44 files changed

+1461/−1459 lines, 44 filesdep ~amazonka-coredep ~amazonka-opsworksdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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 +93/−93
• gen/Network/AWS/OpsWorks/CloneStack.hs +72/−72
• gen/Network/AWS/OpsWorks/CreateApp.hs +27/−27
• gen/Network/AWS/OpsWorks/CreateDeployment.hs +9/−9
• gen/Network/AWS/OpsWorks/CreateInstance.hs +20/−20
• gen/Network/AWS/OpsWorks/CreateLayer.hs +31/−31
• gen/Network/AWS/OpsWorks/CreateStack.hs +55/−55
• gen/Network/AWS/OpsWorks/CreateUserProfile.hs +30/−30
• gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeApps.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeCommands.hs +24/−24
• gen/Network/AWS/OpsWorks/DescribeDeployments.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +10/−10
• gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +8/−8
• gen/Network/AWS/OpsWorks/DescribeInstances.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeLayers.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +8/−8
• gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribePermissions.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +8/−8
• gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +21/−21
• gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +8/−8
• gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeStacks.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +8/−8
• gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +9/−9
• gen/Network/AWS/OpsWorks/DescribeVolumes.hs +9/−9
• gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +10/−10
• gen/Network/AWS/OpsWorks/GrantAccess.hs +8/−8
• gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +9/−9
• gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +9/−9
• gen/Network/AWS/OpsWorks/RegisterInstance.hs +9/−9
• gen/Network/AWS/OpsWorks/RegisterVolume.hs +9/−9
• gen/Network/AWS/OpsWorks/Types.hs +39/−39
• gen/Network/AWS/OpsWorks/Types/Product.hs +370/−367
• gen/Network/AWS/OpsWorks/UpdateApp.hs +20/−21
• gen/Network/AWS/OpsWorks/UpdateLayer.hs +32/−32
• gen/Network/AWS/OpsWorks/UpdateStack.hs +34/−34
• gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +21/−21
• test/Test/AWS/Gen/OpsWorks.hs +336/−336

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

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

@@ -94,32 +94,32 @@     -- ** SetLoadBasedAutoScaling     , module Network.AWS.OpsWorks.SetLoadBasedAutoScaling -    -- ** UnassignVolume-    , module Network.AWS.OpsWorks.UnassignVolume-     -- ** DeregisterRDSDBInstance     , module Network.AWS.OpsWorks.DeregisterRDSDBInstance +    -- ** UnassignVolume+    , module Network.AWS.OpsWorks.UnassignVolume+     -- ** CreateInstance     , module Network.AWS.OpsWorks.CreateInstance +    -- ** DescribeLayers+    , module Network.AWS.OpsWorks.DescribeLayers+     -- ** RegisterElasticIP     , module Network.AWS.OpsWorks.RegisterElasticIP      -- ** DescribeAgentVersions     , module Network.AWS.OpsWorks.DescribeAgentVersions -    -- ** DescribeLayers-    , module Network.AWS.OpsWorks.DescribeLayers-     -- ** CreateDeployment     , module Network.AWS.OpsWorks.CreateDeployment -    -- ** DeleteApp-    , module Network.AWS.OpsWorks.DeleteApp+    -- ** AssignInstance+    , module Network.AWS.OpsWorks.AssignInstance -    -- ** UpdateApp-    , module Network.AWS.OpsWorks.UpdateApp+    -- ** DescribeStacks+    , module Network.AWS.OpsWorks.DescribeStacks      -- ** DeleteInstance     , module Network.AWS.OpsWorks.DeleteInstance@@ -127,24 +127,24 @@     -- ** UpdateInstance     , module Network.AWS.OpsWorks.UpdateInstance -    -- ** DescribeStacks-    , module Network.AWS.OpsWorks.DescribeStacks-     -- ** DeregisterVolume     , module Network.AWS.OpsWorks.DeregisterVolume -    -- ** AssignInstance-    , module Network.AWS.OpsWorks.AssignInstance-     -- ** RebootInstance     , module Network.AWS.OpsWorks.RebootInstance -    -- ** DescribeTimeBasedAutoScaling-    , module Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling+    -- ** DeleteApp+    , module Network.AWS.OpsWorks.DeleteApp +    -- ** UpdateApp+    , module Network.AWS.OpsWorks.UpdateApp+     -- ** UpdateRDSDBInstance     , module Network.AWS.OpsWorks.UpdateRDSDBInstance +    -- ** DescribeTimeBasedAutoScaling+    , module Network.AWS.OpsWorks.DescribeTimeBasedAutoScaling+     -- ** StopStack     , module Network.AWS.OpsWorks.StopStack @@ -166,17 +166,14 @@     -- ** SetTimeBasedAutoScaling     , module Network.AWS.OpsWorks.SetTimeBasedAutoScaling -    -- ** DeregisterElasticIP-    , module Network.AWS.OpsWorks.DeregisterElasticIP+    -- ** DescribeUserProfiles+    , module Network.AWS.OpsWorks.DescribeUserProfiles      -- ** AttachElasticLoadBalancer     , module Network.AWS.OpsWorks.AttachElasticLoadBalancer -    -- ** DescribeUserProfiles-    , module Network.AWS.OpsWorks.DescribeUserProfiles--    -- ** DescribeStackSummary-    , module Network.AWS.OpsWorks.DescribeStackSummary+    -- ** DeregisterElasticIP+    , module Network.AWS.OpsWorks.DeregisterElasticIP      -- ** DeregisterEcsCluster     , module Network.AWS.OpsWorks.DeregisterEcsCluster@@ -187,44 +184,47 @@     -- ** UpdateMyUserProfile     , module Network.AWS.OpsWorks.UpdateMyUserProfile +    -- ** DescribeStackSummary+    , module Network.AWS.OpsWorks.DescribeStackSummary+     -- ** DescribeInstances     , module Network.AWS.OpsWorks.DescribeInstances      -- ** DescribeDeployments     , module Network.AWS.OpsWorks.DescribeDeployments -    -- ** CreateStack-    , module Network.AWS.OpsWorks.CreateStack+    -- ** DescribeElasticIPs+    , module Network.AWS.OpsWorks.DescribeElasticIPs      -- ** GrantAccess     , module Network.AWS.OpsWorks.GrantAccess -    -- ** DescribeElasticIPs-    , module Network.AWS.OpsWorks.DescribeElasticIPs-     -- ** DeleteLayer     , module Network.AWS.OpsWorks.DeleteLayer      -- ** UpdateLayer     , module Network.AWS.OpsWorks.UpdateLayer -    -- ** CloneStack-    , module Network.AWS.OpsWorks.CloneStack+    -- ** CreateStack+    , module Network.AWS.OpsWorks.CreateStack -    -- ** GetHostnameSuggestion-    , module Network.AWS.OpsWorks.GetHostnameSuggestion+    -- ** UpdateElasticIP+    , module Network.AWS.OpsWorks.UpdateElasticIP      -- ** CreateApp     , module Network.AWS.OpsWorks.CreateApp +    -- ** GetHostnameSuggestion+    , module Network.AWS.OpsWorks.GetHostnameSuggestion++    -- ** CloneStack+    , module Network.AWS.OpsWorks.CloneStack+     -- ** DescribePermissions     , module Network.AWS.OpsWorks.DescribePermissions -    -- ** UpdateElasticIP-    , module Network.AWS.OpsWorks.UpdateElasticIP--    -- ** DescribeLoadBasedAutoScaling-    , module Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling+    -- ** DetachElasticLoadBalancer+    , module Network.AWS.OpsWorks.DetachElasticLoadBalancer      -- ** RegisterInstance     , module Network.AWS.OpsWorks.RegisterInstance@@ -232,20 +232,17 @@     -- ** AssociateElasticIP     , module Network.AWS.OpsWorks.AssociateElasticIP -    -- ** DetachElasticLoadBalancer-    , module Network.AWS.OpsWorks.DetachElasticLoadBalancer+    -- ** DescribeLoadBasedAutoScaling+    , module Network.AWS.OpsWorks.DescribeLoadBasedAutoScaling      -- ** DescribeStackProvisioningParameters     , module Network.AWS.OpsWorks.DescribeStackProvisioningParameters -    -- ** DescribeMyUserProfile-    , module Network.AWS.OpsWorks.DescribeMyUserProfile-     -- ** UnassignInstance     , module Network.AWS.OpsWorks.UnassignInstance -    -- ** RegisterRDSDBInstance-    , module Network.AWS.OpsWorks.RegisterRDSDBInstance+    -- ** DescribeMyUserProfile+    , module Network.AWS.OpsWorks.DescribeMyUserProfile      -- ** DeleteUserProfile     , module Network.AWS.OpsWorks.DeleteUserProfile@@ -256,6 +253,9 @@     -- ** DescribeServiceErrors     , module Network.AWS.OpsWorks.DescribeServiceErrors +    -- ** RegisterRDSDBInstance+    , module Network.AWS.OpsWorks.RegisterRDSDBInstance+     -- ** StartStack     , module Network.AWS.OpsWorks.StartStack @@ -265,27 +265,27 @@     -- ** DescribeCommands     , module Network.AWS.OpsWorks.DescribeCommands -    -- ** DescribeEcsClusters-    , module Network.AWS.OpsWorks.DescribeEcsClusters+    -- ** AssignVolume+    , module Network.AWS.OpsWorks.AssignVolume      -- ** DescribeElasticLoadBalancers     , module Network.AWS.OpsWorks.DescribeElasticLoadBalancers +    -- ** SetPermission+    , module Network.AWS.OpsWorks.SetPermission+     -- ** DeregisterInstance     , module Network.AWS.OpsWorks.DeregisterInstance +    -- ** DescribeEcsClusters+    , module Network.AWS.OpsWorks.DescribeEcsClusters+     -- ** DescribeRAIdArrays     , module Network.AWS.OpsWorks.DescribeRAIdArrays -    -- ** SetPermission-    , module Network.AWS.OpsWorks.SetPermission-     -- ** UpdateVolume     , module Network.AWS.OpsWorks.UpdateVolume -    -- ** AssignVolume-    , module Network.AWS.OpsWorks.AssignVolume-     -- ** StartInstance     , module Network.AWS.OpsWorks.StartInstance @@ -337,18 +337,18 @@     , App     , app     , appSSLConfiguration-    , appShortname+    , appEnvironment     , appEnableSSL     , appCreatedAt-    , appEnvironment+    , appShortname     , appDataSources-    , appAppId     , appAppSource-    , appName+    , appAppId     , appAttributes+    , appName     , appType-    , appDomains     , appStackId+    , appDomains     , appDescription      -- ** AutoScalingThresholds@@ -379,8 +379,8 @@     -- ** Command     , Command     , command-    , cInstanceId     , cDeploymentId+    , cInstanceId     , cStatus     , cLogURL     , cCreatedAt@@ -453,8 +453,8 @@     , elbAvailabilityZones     , elbRegion     , elbElasticLoadBalancerName-    , elbEC2InstanceIds     , elbStackId+    , elbEC2InstanceIds     , elbLayerId     , elbDNSName @@ -468,29 +468,29 @@     -- ** Instance     , Instance     , instance'+    , iPrivateDNS+    , iReportedAgentVersion     , iInstanceId+    , iStatus     , iPrivateIP     , iInstallUpdatesOnBoot-    , iReportedAgentVersion-    , iStatus-    , iPrivateDNS     , iVirtualizationType-    , iSecurityGroupIds-    , iSSHHostRsaKeyFingerprint     , iInstanceProfileARN     , iPlatform     , iHostname+    , iSSHHostRsaKeyFingerprint+    , iSecurityGroupIds     , iEcsClusterARN     , iCreatedAt-    , iSSHKeyName     , iEC2InstanceId+    , iSSHKeyName     , iAgentVersion     , iRootDeviceVolumeId     , iSubnetId-    , iInstanceType     , iInfrastructureClass-    , iEBSOptimized     , iSSHHostDsaKeyFingerprint+    , iInstanceType+    , iEBSOptimized     , iElasticIP     , iOS     , iAvailabilityZone@@ -499,14 +499,14 @@     , iLayerIds     , iArchitecture     , iPublicDNS-    , iPublicIP     , iAMIId+    , iPublicIP     , iReportedOS-    , iStackId     , iRegisteredBy-    , iBlockDeviceMappings-    , iEcsContainerInstanceARN+    , iStackId     , iRootDeviceType+    , iEcsContainerInstanceARN+    , iBlockDeviceMappings      -- ** InstanceIdentity     , InstanceIdentity@@ -521,9 +521,9 @@     , icPending     , icOnline     , icUnassigning-    , icRequested-    , icRunningSetup     , icDeregistering+    , icRunningSetup+    , icRequested     , icBooting     , icStopped     , icRebooting@@ -541,22 +541,22 @@     , Layer     , layer     , lCustomInstanceProfileARN-    , lInstallUpdatesOnBoot     , lCustomSecurityGroupIds+    , lInstallUpdatesOnBoot     , lLifecycleEventConfiguration-    , lShortname     , lCreatedAt+    , lShortname     , lDefaultRecipes     , lCustomRecipes-    , lVolumeConfigurations     , lCustomJSON+    , lVolumeConfigurations     , lEnableAutoHealing     , lPackages-    , lName     , lAttributes+    , lName     , lAutoAssignPublicIPs-    , lUseEBSOptimizedInstances     , lType+    , lUseEBSOptimizedInstances     , lStackId     , lLayerId     , lDefaultSecurityGroupNames@@ -589,13 +589,13 @@     , rAIdArray     , raiaInstanceId     , raiaSize-    , raiaCreatedAt     , raiaIOPS+    , raiaCreatedAt     , raiaRAIdLevel     , raiaDevice     , raiaNumberOfDisks-    , raiaName     , raiaAvailabilityZone+    , raiaName     , raiaRAIdArrayId     , raiaVolumeType     , raiaStackId@@ -604,8 +604,8 @@     -- ** RDSDBInstance     , RDSDBInstance     , rdsDBInstance-    , rdiDBUser     , rdiRDSDBInstanceARN+    , rdiDBUser     , rdiMissingOnRDS     , rdiEngine     , rdiAddress@@ -618,8 +618,8 @@     , Recipes     , recipes     , rSetup-    , rUndeploy     , rShutdown+    , rUndeploy     , rConfigure     , rDeploy @@ -640,8 +640,8 @@     -- ** SelfUserProfile     , SelfUserProfile     , selfUserProfile-    , supSSHUsername     , supSSHPublicKey+    , supSSHUsername     , supIAMUserARN     , supName @@ -652,8 +652,8 @@     , seCreatedAt     , seServiceErrorId     , seType-    , seMessage     , seStackId+    , seMessage      -- ** ShutdownEventConfiguration     , ShutdownEventConfiguration@@ -676,20 +676,20 @@     , stack     , sDefaultInstanceProfileARN     , sServiceRoleARN-    , sARN     , sDefaultRootDeviceType+    , sARN     , sCreatedAt-    , sChefConfiguration     , sVPCId+    , sChefConfiguration     , sAgentVersion     , sDefaultSSHKeyName     , sCustomJSON     , sCustomCookbooksSource     , sDefaultAvailabilityZone+    , sAttributes     , sName-    , sUseOpsworksSecurityGroups     , sDefaultOS-    , sAttributes+    , sUseOpsworksSecurityGroups     , sUseCustomCookbooks     , sDefaultSubnetId     , sRegion@@ -730,9 +730,9 @@     -- ** UserProfile     , UserProfile     , userProfile-    , upSSHUsername-    , upSSHPublicKey     , upAllowSelfManagement+    , upSSHPublicKey+    , upSSHUsername     , upIAMUserARN     , upName @@ -744,8 +744,8 @@     , vSize     , vIOPS     , vDevice-    , vName     , vAvailabilityZone+    , vName     , vRAIdArrayId     , vVolumeId     , vRegion

@@ -35,21 +35,21 @@       cloneStack     , CloneStack     -- * Request Lenses-    , cCloneAppIds     , cDefaultInstanceProfileARN+    , cCloneAppIds     , cDefaultRootDeviceType-    , cChefConfiguration     , cVPCId+    , cChefConfiguration     , cAgentVersion     , cDefaultSSHKeyName     , cCustomJSON     , cClonePermissions     , cCustomCookbooksSource     , cDefaultAvailabilityZone+    , cAttributes     , cName-    , cUseOpsworksSecurityGroups     , cDefaultOS-    , cAttributes+    , cUseOpsworksSecurityGroups     , cUseCustomCookbooks     , cDefaultSubnetId     , cRegion@@ -63,7 +63,7 @@     , CloneStackResponse     -- * Response Lenses     , csrsStackId-    , csrsStatus+    , csrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -74,21 +74,21 @@  -- | /See:/ 'cloneStack' smart constructor. data CloneStack = CloneStack'-    { _cCloneAppIds               :: !(Maybe [Text])-    , _cDefaultInstanceProfileARN :: !(Maybe Text)+    { _cDefaultInstanceProfileARN :: !(Maybe Text)+    , _cCloneAppIds               :: !(Maybe [Text])     , _cDefaultRootDeviceType     :: !(Maybe RootDeviceType)-    , _cChefConfiguration         :: !(Maybe ChefConfiguration)     , _cVPCId                     :: !(Maybe Text)+    , _cChefConfiguration         :: !(Maybe ChefConfiguration)     , _cAgentVersion              :: !(Maybe Text)     , _cDefaultSSHKeyName         :: !(Maybe Text)     , _cCustomJSON                :: !(Maybe Text)     , _cClonePermissions          :: !(Maybe Bool)     , _cCustomCookbooksSource     :: !(Maybe Source)     , _cDefaultAvailabilityZone   :: !(Maybe Text)+    , _cAttributes                :: !(Maybe (Map StackAttributesKeys Text))     , _cName                      :: !(Maybe Text)-    , _cUseOpsworksSecurityGroups :: !(Maybe Bool)     , _cDefaultOS                 :: !(Maybe Text)-    , _cAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _cUseOpsworksSecurityGroups :: !(Maybe Bool)     , _cUseCustomCookbooks        :: !(Maybe Bool)     , _cDefaultSubnetId           :: !(Maybe Text)     , _cRegion                    :: !(Maybe Text)@@ -102,16 +102,16 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cCloneAppIds'--- -- * 'cDefaultInstanceProfileARN' ----- * 'cDefaultRootDeviceType'+-- * 'cCloneAppIds' ----- * 'cChefConfiguration'+-- * 'cDefaultRootDeviceType' -- -- * 'cVPCId' --+-- * 'cChefConfiguration'+-- -- * 'cAgentVersion' -- -- * 'cDefaultSSHKeyName'@@ -124,13 +124,13 @@ -- -- * 'cDefaultAvailabilityZone' ----- * 'cName'+-- * 'cAttributes' ----- * 'cUseOpsworksSecurityGroups'+-- * 'cName' -- -- * 'cDefaultOS' ----- * 'cAttributes'+-- * 'cUseOpsworksSecurityGroups' -- -- * 'cUseCustomCookbooks' --@@ -151,21 +151,21 @@     -> CloneStack cloneStack pSourceStackId_ pServiceRoleARN_ =     CloneStack'-    { _cCloneAppIds = Nothing-    , _cDefaultInstanceProfileARN = Nothing+    { _cDefaultInstanceProfileARN = Nothing+    , _cCloneAppIds = Nothing     , _cDefaultRootDeviceType = Nothing-    , _cChefConfiguration = Nothing     , _cVPCId = Nothing+    , _cChefConfiguration = Nothing     , _cAgentVersion = Nothing     , _cDefaultSSHKeyName = Nothing     , _cCustomJSON = Nothing     , _cClonePermissions = Nothing     , _cCustomCookbooksSource = Nothing     , _cDefaultAvailabilityZone = Nothing+    , _cAttributes = Nothing     , _cName = Nothing-    , _cUseOpsworksSecurityGroups = Nothing     , _cDefaultOS = Nothing-    , _cAttributes = Nothing+    , _cUseOpsworksSecurityGroups = Nothing     , _cUseCustomCookbooks = Nothing     , _cDefaultSubnetId = Nothing     , _cRegion = Nothing@@ -175,10 +175,6 @@     , _cServiceRoleARN = pServiceRoleARN_     } --- | A list of source stack app IDs to be included in the cloned stack.-cCloneAppIds :: Lens' CloneStack [Text]-cCloneAppIds = lens _cCloneAppIds (\ s a -> s{_cCloneAppIds = a}) . _Default . _Coerce;- -- | The Amazon Resource Name (ARN) of an IAM profile that is the default -- profile for all of the stack\'s EC2 instances. For more information -- about IAM ARNs, see@@ -186,6 +182,10 @@ cDefaultInstanceProfileARN :: Lens' CloneStack (Maybe Text) cDefaultInstanceProfileARN = lens _cDefaultInstanceProfileARN (\ s a -> s{_cDefaultInstanceProfileARN = a}); +-- | A list of source stack app IDs to be included in the cloned stack.+cCloneAppIds :: Lens' CloneStack [Text]+cCloneAppIds = lens _cCloneAppIds (\ s a -> s{_cCloneAppIds = a}) . _Default . _Coerce;+ -- | The default root device type. This value is used by default for all -- instances in the cloned stack, but you can override it when you create -- an instance. For more information, see@@ -193,13 +193,6 @@ cDefaultRootDeviceType :: Lens' CloneStack (Maybe RootDeviceType) cDefaultRootDeviceType = lens _cDefaultRootDeviceType (\ s a -> s{_cDefaultRootDeviceType = a}); --- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf--- and the Berkshelf version on Chef 11.10 stacks. For more information,--- see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.-cChefConfiguration :: Lens' CloneStack (Maybe ChefConfiguration)-cChefConfiguration = lens _cChefConfiguration (\ s a -> s{_cChefConfiguration = a});- -- | The ID of the VPC that the cloned stack is to be launched into. It must -- be in the specified region. All instances are launched into this VPC, -- and you cannot change the ID later.@@ -228,6 +221,13 @@ cVPCId :: Lens' CloneStack (Maybe Text) cVPCId = lens _cVPCId (\ s a -> s{_cVPCId = a}); +-- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf+-- and the Berkshelf version on Chef 11.10 stacks. For more information,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.+cChefConfiguration :: Lens' CloneStack (Maybe ChefConfiguration)+cChefConfiguration = lens _cChefConfiguration (\ s a -> s{_cChefConfiguration = a});+ -- | The default AWS OpsWorks agent version. You have the following options: -- -- -   Auto-update - Set this parameter to 'LATEST'. AWS OpsWorks@@ -290,10 +290,36 @@ cDefaultAvailabilityZone :: Lens' CloneStack (Maybe Text) cDefaultAvailabilityZone = lens _cDefaultAvailabilityZone (\ s a -> s{_cDefaultAvailabilityZone = a}); +-- | A list of stack attributes and values as key\/value pairs to be added to+-- the cloned stack.+cAttributes :: Lens' CloneStack (HashMap StackAttributesKeys Text)+cAttributes = lens _cAttributes (\ s a -> s{_cAttributes = a}) . _Default . _Map;+ -- | The cloned stack name. cName :: Lens' CloneStack (Maybe Text) cName = lens _cName (\ s a -> s{_cName = a}); +-- | The stack\'s operating system, which must be set to one of the+-- following.+--+-- -   A supported Linux operating system: An Amazon Linux version, such as+--     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',+--     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.+-- -   'Microsoft Windows Server 2012 R2 Base'.+-- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use+--     when you create instances. For more information on how to use custom+--     AMIs with OpsWorks, see+--     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.+--+-- The default option is the parent stack\'s operating system. For more+-- information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.+--+-- You can specify a different Linux operating system for the cloned stack,+-- but you cannot change from Linux to Windows or Windows to Linux.+cDefaultOS :: Lens' CloneStack (Maybe Text)+cDefaultOS = lens _cDefaultOS (\ s a -> s{_cDefaultOS = a});+ -- | Whether to associate the AWS OpsWorks built-in security groups with the -- stack\'s layers. --@@ -319,32 +345,6 @@ cUseOpsworksSecurityGroups :: Lens' CloneStack (Maybe Bool) cUseOpsworksSecurityGroups = lens _cUseOpsworksSecurityGroups (\ s a -> s{_cUseOpsworksSecurityGroups = a}); --- | The stack\'s operating system, which must be set to one of the--- following.------ -   A supported Linux operating system: An Amazon Linux version, such as---     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',---     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.--- -   'Microsoft Windows Server 2012 R2 Base'.--- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use---     when you create instances. For more information on how to use custom---     AMIs with OpsWorks, see---     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.------ The default option is the parent stack\'s operating system. For more--- information on the supported operating systems, see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.------ You can specify a different Linux operating system for the cloned stack,--- but you cannot change from Linux to Windows or Windows to Linux.-cDefaultOS :: Lens' CloneStack (Maybe Text)-cDefaultOS = lens _cDefaultOS (\ s a -> s{_cDefaultOS = a});---- | A list of stack attributes and values as key\/value pairs to be added to--- the cloned stack.-cAttributes :: Lens' CloneStack (HashMap StackAttributesKeys Text)-cAttributes = lens _cAttributes (\ s a -> s{_cAttributes = a}) . _Default . _Map;- -- | Whether to use custom cookbooks. cUseCustomCookbooks :: Lens' CloneStack (Maybe Bool) cUseCustomCookbooks = lens _cUseCustomCookbooks (\ s a -> s{_cUseCustomCookbooks = a});@@ -434,13 +434,13 @@         toJSON CloneStack'{..}           = object               (catMaybes-                 [("CloneAppIds" .=) <$> _cCloneAppIds,-                  ("DefaultInstanceProfileArn" .=) <$>+                 [("DefaultInstanceProfileArn" .=) <$>                     _cDefaultInstanceProfileARN,+                  ("CloneAppIds" .=) <$> _cCloneAppIds,                   ("DefaultRootDeviceType" .=) <$>                     _cDefaultRootDeviceType,-                  ("ChefConfiguration" .=) <$> _cChefConfiguration,                   ("VpcId" .=) <$> _cVPCId,+                  ("ChefConfiguration" .=) <$> _cChefConfiguration,                   ("AgentVersion" .=) <$> _cAgentVersion,                   ("DefaultSshKeyName" .=) <$> _cDefaultSSHKeyName,                   ("CustomJson" .=) <$> _cCustomJSON,@@ -449,11 +449,11 @@                     _cCustomCookbooksSource,                   ("DefaultAvailabilityZone" .=) <$>                     _cDefaultAvailabilityZone,+                  ("Attributes" .=) <$> _cAttributes,                   ("Name" .=) <$> _cName,+                  ("DefaultOs" .=) <$> _cDefaultOS,                   ("UseOpsworksSecurityGroups" .=) <$>                     _cUseOpsworksSecurityGroups,-                  ("DefaultOs" .=) <$> _cDefaultOS,-                  ("Attributes" .=) <$> _cAttributes,                   ("UseCustomCookbooks" .=) <$> _cUseCustomCookbooks,                   ("DefaultSubnetId" .=) <$> _cDefaultSubnetId,                   ("Region" .=) <$> _cRegion,@@ -473,8 +473,8 @@ -- -- /See:/ 'cloneStackResponse' smart constructor. data CloneStackResponse = CloneStackResponse'-    { _csrsStackId :: !(Maybe Text)-    , _csrsStatus  :: !Int+    { _csrsStackId        :: !(Maybe Text)+    , _csrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CloneStackResponse' with the minimum fields required to make a request.@@ -483,14 +483,14 @@ -- -- * 'csrsStackId' ----- * 'csrsStatus'+-- * 'csrsResponseStatus' cloneStackResponse-    :: Int -- ^ 'csrsStatus'+    :: Int -- ^ 'csrsResponseStatus'     -> CloneStackResponse-cloneStackResponse pStatus_ =+cloneStackResponse pResponseStatus_ =     CloneStackResponse'     { _csrsStackId = Nothing-    , _csrsStatus = pStatus_+    , _csrsResponseStatus = pResponseStatus_     }  -- | The cloned stack ID.@@ -498,5 +498,5 @@ csrsStackId = lens _csrsStackId (\ s a -> s{_csrsStackId = a});  -- | The response status code.-csrsStatus :: Lens' CloneStackResponse Int-csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});+csrsResponseStatus :: Lens' CloneStackResponse Int+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});

@@ -35,9 +35,9 @@     , CreateApp     -- * Request Lenses     , caSSLConfiguration-    , caShortname-    , caEnableSSL     , caEnvironment+    , caEnableSSL+    , caShortname     , caDataSources     , caAppSource     , caAttributes@@ -52,7 +52,7 @@     , CreateAppResponse     -- * Response Lenses     , carsAppId-    , carsStatus+    , carsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -64,9 +64,9 @@ -- | /See:/ 'createApp' smart constructor. data CreateApp = CreateApp'     { _caSSLConfiguration :: !(Maybe SSLConfiguration)-    , _caShortname        :: !(Maybe Text)-    , _caEnableSSL        :: !(Maybe Bool)     , _caEnvironment      :: !(Maybe [EnvironmentVariable])+    , _caEnableSSL        :: !(Maybe Bool)+    , _caShortname        :: !(Maybe Text)     , _caDataSources      :: !(Maybe [DataSource])     , _caAppSource        :: !(Maybe Source)     , _caAttributes       :: !(Maybe (Map AppAttributesKeys Text))@@ -83,11 +83,11 @@ -- -- * 'caSSLConfiguration' ----- * 'caShortname'+-- * 'caEnvironment' -- -- * 'caEnableSSL' ----- * 'caEnvironment'+-- * 'caShortname' -- -- * 'caDataSources' --@@ -112,9 +112,9 @@ createApp pStackId_ pName_ pType_ =     CreateApp'     { _caSSLConfiguration = Nothing-    , _caShortname = Nothing-    , _caEnableSSL = Nothing     , _caEnvironment = Nothing+    , _caEnableSSL = Nothing+    , _caShortname = Nothing     , _caDataSources = Nothing     , _caAppSource = Nothing     , _caAttributes = Nothing@@ -129,14 +129,6 @@ caSSLConfiguration :: Lens' CreateApp (Maybe SSLConfiguration) caSSLConfiguration = lens _caSSLConfiguration (\ s a -> s{_caSSLConfiguration = a}); --- | The app\'s short name.-caShortname :: Lens' CreateApp (Maybe Text)-caShortname = lens _caShortname (\ s a -> s{_caShortname = a});---- | Whether to enable SSL for the app.-caEnableSSL :: Lens' CreateApp (Maybe Bool)-caEnableSSL = lens _caEnableSSL (\ s a -> s{_caEnableSSL = a});- -- | An array of 'EnvironmentVariable' objects that specify environment -- variables to be associated with the app. After you deploy the app, these -- variables are defined on the associated app server instance. For more@@ -156,6 +148,14 @@ caEnvironment :: Lens' CreateApp [EnvironmentVariable] caEnvironment = lens _caEnvironment (\ s a -> s{_caEnvironment = a}) . _Default . _Coerce; +-- | Whether to enable SSL for the app.+caEnableSSL :: Lens' CreateApp (Maybe Bool)+caEnableSSL = lens _caEnableSSL (\ s a -> s{_caEnableSSL = a});++-- | The app\'s short name.+caShortname :: Lens' CreateApp (Maybe Text)+caShortname = lens _caShortname (\ s a -> s{_caShortname = a});+ -- | The app\'s data source. caDataSources :: Lens' CreateApp [DataSource] caDataSources = lens _caDataSources (\ s a -> s{_caDataSources = a}) . _Default . _Coerce;@@ -217,9 +217,9 @@           = object               (catMaybes                  [("SslConfiguration" .=) <$> _caSSLConfiguration,-                  ("Shortname" .=) <$> _caShortname,-                  ("EnableSsl" .=) <$> _caEnableSSL,                   ("Environment" .=) <$> _caEnvironment,+                  ("EnableSsl" .=) <$> _caEnableSSL,+                  ("Shortname" .=) <$> _caShortname,                   ("DataSources" .=) <$> _caDataSources,                   ("AppSource" .=) <$> _caAppSource,                   ("Attributes" .=) <$> _caAttributes,@@ -238,8 +238,8 @@ -- -- /See:/ 'createAppResponse' smart constructor. data CreateAppResponse = CreateAppResponse'-    { _carsAppId  :: !(Maybe Text)-    , _carsStatus :: !Int+    { _carsAppId          :: !(Maybe Text)+    , _carsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateAppResponse' with the minimum fields required to make a request.@@ -248,14 +248,14 @@ -- -- * 'carsAppId' ----- * 'carsStatus'+-- * 'carsResponseStatus' createAppResponse-    :: Int -- ^ 'carsStatus'+    :: Int -- ^ 'carsResponseStatus'     -> CreateAppResponse-createAppResponse pStatus_ =+createAppResponse pResponseStatus_ =     CreateAppResponse'     { _carsAppId = Nothing-    , _carsStatus = pStatus_+    , _carsResponseStatus = pResponseStatus_     }  -- | The app ID.@@ -263,5 +263,5 @@ carsAppId = lens _carsAppId (\ s a -> s{_carsAppId = a});  -- | The response status code.-carsStatus :: Lens' CreateAppResponse Int-carsStatus = lens _carsStatus (\ s a -> s{_carsStatus = a});+carsResponseStatus :: Lens' CreateAppResponse Int+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});

@@ -48,7 +48,7 @@     , CreateDeploymentResponse     -- * Response Lenses     , cdrsDeploymentId-    , cdrsStatus+    , cdrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -169,8 +169,8 @@ -- -- /See:/ 'createDeploymentResponse' smart constructor. data CreateDeploymentResponse = CreateDeploymentResponse'-    { _cdrsDeploymentId :: !(Maybe Text)-    , _cdrsStatus       :: !Int+    { _cdrsDeploymentId   :: !(Maybe Text)+    , _cdrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDeploymentResponse' with the minimum fields required to make a request.@@ -179,14 +179,14 @@ -- -- * 'cdrsDeploymentId' ----- * 'cdrsStatus'+-- * 'cdrsResponseStatus' createDeploymentResponse-    :: Int -- ^ 'cdrsStatus'+    :: Int -- ^ 'cdrsResponseStatus'     -> CreateDeploymentResponse-createDeploymentResponse pStatus_ =+createDeploymentResponse pResponseStatus_ =     CreateDeploymentResponse'     { _cdrsDeploymentId = Nothing-    , _cdrsStatus = pStatus_+    , _cdrsResponseStatus = pResponseStatus_     }  -- | The deployment ID, which can be used with other requests to identify the@@ -195,5 +195,5 @@ cdrsDeploymentId = lens _cdrsDeploymentId (\ s a -> s{_cdrsDeploymentId = a});  -- | The response status code.-cdrsStatus :: Lens' CreateDeploymentResponse Int-cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});+cdrsResponseStatus :: Lens' CreateDeploymentResponse Int+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});

@@ -46,8 +46,8 @@     , ciAutoScalingType     , ciArchitecture     , ciAMIId-    , ciBlockDeviceMappings     , ciRootDeviceType+    , ciBlockDeviceMappings     , ciStackId     , ciLayerIds     , ciInstanceType@@ -57,7 +57,7 @@     , CreateInstanceResponse     -- * Response Lenses     , cirsInstanceId-    , cirsStatus+    , cirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -80,8 +80,8 @@     , _ciAutoScalingType      :: !(Maybe AutoScalingType)     , _ciArchitecture         :: !(Maybe Architecture)     , _ciAMIId                :: !(Maybe Text)-    , _ciBlockDeviceMappings  :: !(Maybe [BlockDeviceMapping])     , _ciRootDeviceType       :: !(Maybe RootDeviceType)+    , _ciBlockDeviceMappings  :: !(Maybe [BlockDeviceMapping])     , _ciStackId              :: !Text     , _ciLayerIds             :: ![Text]     , _ciInstanceType         :: !Text@@ -115,10 +115,10 @@ -- -- * 'ciAMIId' ----- * 'ciBlockDeviceMappings'--- -- * 'ciRootDeviceType' --+-- * 'ciBlockDeviceMappings'+-- -- * 'ciStackId' -- -- * 'ciLayerIds'@@ -142,8 +142,8 @@     , _ciAutoScalingType = Nothing     , _ciArchitecture = Nothing     , _ciAMIId = Nothing-    , _ciBlockDeviceMappings = Nothing     , _ciRootDeviceType = Nothing+    , _ciBlockDeviceMappings = Nothing     , _ciStackId = pStackId_     , _ciLayerIds = mempty     , _ciInstanceType = pInstanceType_@@ -246,17 +246,17 @@ ciAMIId :: Lens' CreateInstance (Maybe Text) ciAMIId = lens _ciAMIId (\ s a -> s{_ciAMIId = a}); +-- | The instance root device type. For more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.+ciRootDeviceType :: Lens' CreateInstance (Maybe RootDeviceType)+ciRootDeviceType = lens _ciRootDeviceType (\ s a -> s{_ciRootDeviceType = a});+ -- | An array of 'BlockDeviceMapping' objects that specify the instance\'s -- block devices. For more information, see -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html Block Device Mapping>. ciBlockDeviceMappings :: Lens' CreateInstance [BlockDeviceMapping] ciBlockDeviceMappings = lens _ciBlockDeviceMappings (\ s a -> s{_ciBlockDeviceMappings = a}) . _Default . _Coerce; --- | The instance root device type. For more information, see--- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>.-ciRootDeviceType :: Lens' CreateInstance (Maybe RootDeviceType)-ciRootDeviceType = lens _ciRootDeviceType (\ s a -> s{_ciRootDeviceType = a});- -- | The stack ID. ciStackId :: Lens' CreateInstance Text ciStackId = lens _ciStackId (\ s a -> s{_ciStackId = a});@@ -310,9 +310,9 @@                   ("AutoScalingType" .=) <$> _ciAutoScalingType,                   ("Architecture" .=) <$> _ciArchitecture,                   ("AmiId" .=) <$> _ciAMIId,+                  ("RootDeviceType" .=) <$> _ciRootDeviceType,                   ("BlockDeviceMappings" .=) <$>                     _ciBlockDeviceMappings,-                  ("RootDeviceType" .=) <$> _ciRootDeviceType,                   Just ("StackId" .= _ciStackId),                   Just ("LayerIds" .= _ciLayerIds),                   Just ("InstanceType" .= _ciInstanceType)])@@ -327,8 +327,8 @@ -- -- /See:/ 'createInstanceResponse' smart constructor. data CreateInstanceResponse = CreateInstanceResponse'-    { _cirsInstanceId :: !(Maybe Text)-    , _cirsStatus     :: !Int+    { _cirsInstanceId     :: !(Maybe Text)+    , _cirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateInstanceResponse' with the minimum fields required to make a request.@@ -337,14 +337,14 @@ -- -- * 'cirsInstanceId' ----- * 'cirsStatus'+-- * 'cirsResponseStatus' createInstanceResponse-    :: Int -- ^ 'cirsStatus'+    :: Int -- ^ 'cirsResponseStatus'     -> CreateInstanceResponse-createInstanceResponse pStatus_ =+createInstanceResponse pResponseStatus_ =     CreateInstanceResponse'     { _cirsInstanceId = Nothing-    , _cirsStatus = pStatus_+    , _cirsResponseStatus = pResponseStatus_     }  -- | The instance ID.@@ -352,5 +352,5 @@ cirsInstanceId = lens _cirsInstanceId (\ s a -> s{_cirsInstanceId = a});  -- | The response status code.-cirsStatus :: Lens' CreateInstanceResponse Int-cirsStatus = lens _cirsStatus (\ s a -> s{_cirsStatus = a});+cirsResponseStatus :: Lens' CreateInstanceResponse Int+cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a});

@@ -42,12 +42,12 @@     , CreateLayer     -- * Request Lenses     , clCustomInstanceProfileARN-    , clInstallUpdatesOnBoot     , clCustomSecurityGroupIds+    , clInstallUpdatesOnBoot     , clLifecycleEventConfiguration     , clCustomRecipes-    , clVolumeConfigurations     , clCustomJSON+    , clVolumeConfigurations     , clEnableAutoHealing     , clPackages     , clAttributes@@ -64,7 +64,7 @@     , CreateLayerResponse     -- * Response Lenses     , clrsLayerId-    , clrsStatus+    , clrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -76,12 +76,12 @@ -- | /See:/ 'createLayer' smart constructor. data CreateLayer = CreateLayer'     { _clCustomInstanceProfileARN    :: !(Maybe Text)-    , _clInstallUpdatesOnBoot        :: !(Maybe Bool)     , _clCustomSecurityGroupIds      :: !(Maybe [Text])+    , _clInstallUpdatesOnBoot        :: !(Maybe Bool)     , _clLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)     , _clCustomRecipes               :: !(Maybe Recipes)-    , _clVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _clCustomJSON                  :: !(Maybe Text)+    , _clVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _clEnableAutoHealing           :: !(Maybe Bool)     , _clPackages                    :: !(Maybe [Text])     , _clAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))@@ -100,18 +100,18 @@ -- -- * 'clCustomInstanceProfileARN' ----- * 'clInstallUpdatesOnBoot'--- -- * 'clCustomSecurityGroupIds' --+-- * 'clInstallUpdatesOnBoot'+-- -- * 'clLifecycleEventConfiguration' -- -- * 'clCustomRecipes' ----- * 'clVolumeConfigurations'--- -- * 'clCustomJSON' --+-- * 'clVolumeConfigurations'+-- -- * 'clEnableAutoHealing' -- -- * 'clPackages'@@ -140,12 +140,12 @@ createLayer pStackId_ pType_ pName_ pShortname_ =     CreateLayer'     { _clCustomInstanceProfileARN = Nothing-    , _clInstallUpdatesOnBoot = Nothing     , _clCustomSecurityGroupIds = Nothing+    , _clInstallUpdatesOnBoot = Nothing     , _clLifecycleEventConfiguration = Nothing     , _clCustomRecipes = Nothing-    , _clVolumeConfigurations = Nothing     , _clCustomJSON = Nothing+    , _clVolumeConfigurations = Nothing     , _clEnableAutoHealing = Nothing     , _clPackages = Nothing     , _clAttributes = Nothing@@ -164,6 +164,10 @@ clCustomInstanceProfileARN :: Lens' CreateLayer (Maybe Text) clCustomInstanceProfileARN = lens _clCustomInstanceProfileARN (\ s a -> s{_clCustomInstanceProfileARN = a}); +-- | An array containing the layer custom security group IDs.+clCustomSecurityGroupIds :: Lens' CreateLayer [Text]+clCustomSecurityGroupIds = lens _clCustomSecurityGroupIds (\ s a -> s{_clCustomSecurityGroupIds = a}) . _Default . _Coerce;+ -- | Whether to install operating system and package updates when the -- instance boots. The default value is 'true'. To control when updates are -- installed, set this value to 'false'. You must then update your@@ -176,10 +180,6 @@ clInstallUpdatesOnBoot :: Lens' CreateLayer (Maybe Bool) clInstallUpdatesOnBoot = lens _clInstallUpdatesOnBoot (\ s a -> s{_clInstallUpdatesOnBoot = a}); --- | An array containing the layer custom security group IDs.-clCustomSecurityGroupIds :: Lens' CreateLayer [Text]-clCustomSecurityGroupIds = lens _clCustomSecurityGroupIds (\ s a -> s{_clCustomSecurityGroupIds = a}) . _Default . _Coerce;- -- | A 'LifeCycleEventConfiguration' object that you can use to configure the -- Shutdown event to specify an execution timeout and enable or disable -- Elastic Load Balancer connection draining.@@ -190,11 +190,6 @@ clCustomRecipes :: Lens' CreateLayer (Maybe Recipes) clCustomRecipes = lens _clCustomRecipes (\ s a -> s{_clCustomRecipes = a}); --- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS--- volumes.-clVolumeConfigurations :: Lens' CreateLayer [VolumeConfiguration]-clVolumeConfigurations = lens _clVolumeConfigurations (\ s a -> s{_clVolumeConfigurations = a}) . _Default . _Coerce;- -- | A JSON-formatted string containing custom stack configuration and -- deployment attributes to be installed on the layer\'s instances. For -- more information, see@@ -202,6 +197,11 @@ clCustomJSON :: Lens' CreateLayer (Maybe Text) clCustomJSON = lens _clCustomJSON (\ s a -> s{_clCustomJSON = a}); +-- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS+-- volumes.+clVolumeConfigurations :: Lens' CreateLayer [VolumeConfiguration]+clVolumeConfigurations = lens _clVolumeConfigurations (\ s a -> s{_clVolumeConfigurations = a}) . _Default . _Coerce;+ -- | Whether to disable auto healing for the layer. clEnableAutoHealing :: Lens' CreateLayer (Maybe Bool) clEnableAutoHealing = lens _clEnableAutoHealing (\ s a -> s{_clEnableAutoHealing = a});@@ -284,16 +284,16 @@               (catMaybes                  [("CustomInstanceProfileArn" .=) <$>                     _clCustomInstanceProfileARN,-                  ("InstallUpdatesOnBoot" .=) <$>-                    _clInstallUpdatesOnBoot,                   ("CustomSecurityGroupIds" .=) <$>                     _clCustomSecurityGroupIds,+                  ("InstallUpdatesOnBoot" .=) <$>+                    _clInstallUpdatesOnBoot,                   ("LifecycleEventConfiguration" .=) <$>                     _clLifecycleEventConfiguration,                   ("CustomRecipes" .=) <$> _clCustomRecipes,+                  ("CustomJson" .=) <$> _clCustomJSON,                   ("VolumeConfigurations" .=) <$>                     _clVolumeConfigurations,-                  ("CustomJson" .=) <$> _clCustomJSON,                   ("EnableAutoHealing" .=) <$> _clEnableAutoHealing,                   ("Packages" .=) <$> _clPackages,                   ("Attributes" .=) <$> _clAttributes,@@ -317,8 +317,8 @@ -- -- /See:/ 'createLayerResponse' smart constructor. data CreateLayerResponse = CreateLayerResponse'-    { _clrsLayerId :: !(Maybe Text)-    , _clrsStatus  :: !Int+    { _clrsLayerId        :: !(Maybe Text)+    , _clrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateLayerResponse' with the minimum fields required to make a request.@@ -327,14 +327,14 @@ -- -- * 'clrsLayerId' ----- * 'clrsStatus'+-- * 'clrsResponseStatus' createLayerResponse-    :: Int -- ^ 'clrsStatus'+    :: Int -- ^ 'clrsResponseStatus'     -> CreateLayerResponse-createLayerResponse pStatus_ =+createLayerResponse pResponseStatus_ =     CreateLayerResponse'     { _clrsLayerId = Nothing-    , _clrsStatus = pStatus_+    , _clrsResponseStatus = pResponseStatus_     }  -- | The layer ID.@@ -342,5 +342,5 @@ clrsLayerId = lens _clrsLayerId (\ s a -> s{_clrsLayerId = a});  -- | The response status code.-clrsStatus :: Lens' CreateLayerResponse Int-clrsStatus = lens _clrsStatus (\ s a -> s{_clrsStatus = a});+clrsResponseStatus :: Lens' CreateLayerResponse Int+clrsResponseStatus = lens _clrsResponseStatus (\ s a -> s{_clrsResponseStatus = a});

@@ -34,16 +34,16 @@     , CreateStack     -- * Request Lenses     , csDefaultRootDeviceType-    , csChefConfiguration     , csVPCId+    , csChefConfiguration     , csAgentVersion     , csDefaultSSHKeyName     , csCustomJSON     , csCustomCookbooksSource     , csDefaultAvailabilityZone-    , csUseOpsworksSecurityGroups-    , csDefaultOS     , csAttributes+    , csDefaultOS+    , csUseOpsworksSecurityGroups     , csUseCustomCookbooks     , csDefaultSubnetId     , csConfigurationManager@@ -58,7 +58,7 @@     , CreateStackResponse     -- * Response Lenses     , crsStackId-    , crsStatus+    , crsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -70,16 +70,16 @@ -- | /See:/ 'createStack' smart constructor. data CreateStack = CreateStack'     { _csDefaultRootDeviceType     :: !(Maybe RootDeviceType)-    , _csChefConfiguration         :: !(Maybe ChefConfiguration)     , _csVPCId                     :: !(Maybe Text)+    , _csChefConfiguration         :: !(Maybe ChefConfiguration)     , _csAgentVersion              :: !(Maybe Text)     , _csDefaultSSHKeyName         :: !(Maybe Text)     , _csCustomJSON                :: !(Maybe Text)     , _csCustomCookbooksSource     :: !(Maybe Source)     , _csDefaultAvailabilityZone   :: !(Maybe Text)-    , _csUseOpsworksSecurityGroups :: !(Maybe Bool)-    , _csDefaultOS                 :: !(Maybe Text)     , _csAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _csDefaultOS                 :: !(Maybe Text)+    , _csUseOpsworksSecurityGroups :: !(Maybe Bool)     , _csUseCustomCookbooks        :: !(Maybe Bool)     , _csDefaultSubnetId           :: !(Maybe Text)     , _csConfigurationManager      :: !(Maybe StackConfigurationManager)@@ -96,10 +96,10 @@ -- -- * 'csDefaultRootDeviceType' ----- * 'csChefConfiguration'--- -- * 'csVPCId' --+-- * 'csChefConfiguration'+-- -- * 'csAgentVersion' -- -- * 'csDefaultSSHKeyName'@@ -110,11 +110,11 @@ -- -- * 'csDefaultAvailabilityZone' ----- * 'csUseOpsworksSecurityGroups'+-- * 'csAttributes' -- -- * 'csDefaultOS' ----- * 'csAttributes'+-- * 'csUseOpsworksSecurityGroups' -- -- * 'csUseCustomCookbooks' --@@ -140,16 +140,16 @@ createStack pName_ pRegion_ pServiceRoleARN_ pDefaultInstanceProfileARN_ =     CreateStack'     { _csDefaultRootDeviceType = Nothing-    , _csChefConfiguration = Nothing     , _csVPCId = Nothing+    , _csChefConfiguration = Nothing     , _csAgentVersion = Nothing     , _csDefaultSSHKeyName = Nothing     , _csCustomJSON = Nothing     , _csCustomCookbooksSource = Nothing     , _csDefaultAvailabilityZone = Nothing-    , _csUseOpsworksSecurityGroups = Nothing-    , _csDefaultOS = Nothing     , _csAttributes = Nothing+    , _csDefaultOS = Nothing+    , _csUseOpsworksSecurityGroups = Nothing     , _csUseCustomCookbooks = Nothing     , _csDefaultSubnetId = Nothing     , _csConfigurationManager = Nothing@@ -168,13 +168,6 @@ csDefaultRootDeviceType :: Lens' CreateStack (Maybe RootDeviceType) csDefaultRootDeviceType = lens _csDefaultRootDeviceType (\ s a -> s{_csDefaultRootDeviceType = a}); --- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf--- and the Berkshelf version on Chef 11.10 stacks. For more information,--- see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.-csChefConfiguration :: Lens' CreateStack (Maybe ChefConfiguration)-csChefConfiguration = lens _csChefConfiguration (\ s a -> s{_csChefConfiguration = a});- -- | The ID of the VPC that the stack is to be launched into. The VPC must be -- in the stack\'s region. All instances are launched into this VPC. You -- cannot change the ID later.@@ -203,6 +196,13 @@ csVPCId :: Lens' CreateStack (Maybe Text) csVPCId = lens _csVPCId (\ s a -> s{_csVPCId = a}); +-- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf+-- and the Berkshelf version on Chef 11.10 stacks. For more information,+-- see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>.+csChefConfiguration :: Lens' CreateStack (Maybe ChefConfiguration)+csChefConfiguration = lens _csChefConfiguration (\ s a -> s{_csChefConfiguration = a});+ -- | The default AWS OpsWorks agent version. You have the following options: -- -- -   Auto-update - Set this parameter to 'LATEST'. AWS OpsWorks@@ -261,6 +261,29 @@ csDefaultAvailabilityZone :: Lens' CreateStack (Maybe Text) csDefaultAvailabilityZone = lens _csDefaultAvailabilityZone (\ s a -> s{_csDefaultAvailabilityZone = a}); +-- | One or more user-defined key-value pairs to be added to the stack+-- attributes.+csAttributes :: Lens' CreateStack (HashMap StackAttributesKeys Text)+csAttributes = lens _csAttributes (\ s a -> s{_csAttributes = a}) . _Default . _Map;++-- | The stack\'s default operating system, which is installed on every+-- instance unless you specify a different operating system when you create+-- the instance. You can specify one of the following.+--+-- -   A supported Linux operating system: An Amazon Linux version, such as+--     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',+--     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.+-- -   'Microsoft Windows Server 2012 R2 Base'.+-- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use+--     when you create instances. For more information, see+--     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.+--+-- The default option is the current Amazon Linux version. For more+-- information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.+csDefaultOS :: Lens' CreateStack (Maybe Text)+csDefaultOS = lens _csDefaultOS (\ s a -> s{_csDefaultOS = a});+ -- | Whether to associate the AWS OpsWorks built-in security groups with the -- stack\'s layers. --@@ -285,29 +308,6 @@ csUseOpsworksSecurityGroups :: Lens' CreateStack (Maybe Bool) csUseOpsworksSecurityGroups = lens _csUseOpsworksSecurityGroups (\ s a -> s{_csUseOpsworksSecurityGroups = a}); --- | The stack\'s default operating system, which is installed on every--- instance unless you specify a different operating system when you create--- the instance. You can specify one of the following.------ -   A supported Linux operating system: An Amazon Linux version, such as---     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',---     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.--- -   'Microsoft Windows Server 2012 R2 Base'.--- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use---     when you create instances. For more information, see---     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.------ The default option is the current Amazon Linux version. For more--- information on the supported operating systems, see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.-csDefaultOS :: Lens' CreateStack (Maybe Text)-csDefaultOS = lens _csDefaultOS (\ s a -> s{_csDefaultOS = a});---- | One or more user-defined key-value pairs to be added to the stack--- attributes.-csAttributes :: Lens' CreateStack (HashMap StackAttributesKeys Text)-csAttributes = lens _csAttributes (\ s a -> s{_csAttributes = a}) . _Default . _Map;- -- | Whether the stack uses custom cookbooks. csUseCustomCookbooks :: Lens' CreateStack (Maybe Bool) csUseCustomCookbooks = lens _csUseCustomCookbooks (\ s a -> s{_csUseCustomCookbooks = a});@@ -399,8 +399,8 @@               (catMaybes                  [("DefaultRootDeviceType" .=) <$>                     _csDefaultRootDeviceType,-                  ("ChefConfiguration" .=) <$> _csChefConfiguration,                   ("VpcId" .=) <$> _csVPCId,+                  ("ChefConfiguration" .=) <$> _csChefConfiguration,                   ("AgentVersion" .=) <$> _csAgentVersion,                   ("DefaultSshKeyName" .=) <$> _csDefaultSSHKeyName,                   ("CustomJson" .=) <$> _csCustomJSON,@@ -408,10 +408,10 @@                     _csCustomCookbooksSource,                   ("DefaultAvailabilityZone" .=) <$>                     _csDefaultAvailabilityZone,+                  ("Attributes" .=) <$> _csAttributes,+                  ("DefaultOs" .=) <$> _csDefaultOS,                   ("UseOpsworksSecurityGroups" .=) <$>                     _csUseOpsworksSecurityGroups,-                  ("DefaultOs" .=) <$> _csDefaultOS,-                  ("Attributes" .=) <$> _csAttributes,                   ("UseCustomCookbooks" .=) <$> _csUseCustomCookbooks,                   ("DefaultSubnetId" .=) <$> _csDefaultSubnetId,                   ("ConfigurationManager" .=) <$>@@ -434,8 +434,8 @@ -- -- /See:/ 'createStackResponse' smart constructor. data CreateStackResponse = CreateStackResponse'-    { _crsStackId :: !(Maybe Text)-    , _crsStatus  :: !Int+    { _crsStackId        :: !(Maybe Text)+    , _crsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateStackResponse' with the minimum fields required to make a request.@@ -444,14 +444,14 @@ -- -- * 'crsStackId' ----- * 'crsStatus'+-- * 'crsResponseStatus' createStackResponse-    :: Int -- ^ 'crsStatus'+    :: Int -- ^ 'crsResponseStatus'     -> CreateStackResponse-createStackResponse pStatus_ =+createStackResponse pResponseStatus_ =     CreateStackResponse'     { _crsStackId = Nothing-    , _crsStatus = pStatus_+    , _crsResponseStatus = pResponseStatus_     }  -- | The stack ID, which is an opaque string that you use to identify the@@ -460,5 +460,5 @@ crsStackId = lens _crsStackId (\ s a -> s{_crsStackId = a});  -- | The response status code.-crsStatus :: Lens' CreateStackResponse Int-crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});+crsResponseStatus :: Lens' CreateStackResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -32,9 +32,9 @@       createUserProfile     , CreateUserProfile     -- * Request Lenses-    , cupSSHUsername-    , cupSSHPublicKey     , cupAllowSelfManagement+    , cupSSHPublicKey+    , cupSSHUsername     , cupIAMUserARN      -- * Destructuring the Response@@ -42,7 +42,7 @@     , CreateUserProfileResponse     -- * Response Lenses     , cuprsIAMUserARN-    , cuprsStatus+    , cuprsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -53,9 +53,9 @@  -- | /See:/ 'createUserProfile' smart constructor. data CreateUserProfile = CreateUserProfile'-    { _cupSSHUsername         :: !(Maybe Text)+    { _cupAllowSelfManagement :: !(Maybe Bool)     , _cupSSHPublicKey        :: !(Maybe Text)-    , _cupAllowSelfManagement :: !(Maybe Bool)+    , _cupSSHUsername         :: !(Maybe Text)     , _cupIAMUserARN          :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -63,11 +63,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cupSSHUsername'+-- * 'cupAllowSelfManagement' -- -- * 'cupSSHPublicKey' ----- * 'cupAllowSelfManagement'+-- * 'cupSSHUsername' -- -- * 'cupIAMUserARN' createUserProfile@@ -75,12 +75,22 @@     -> CreateUserProfile createUserProfile pIAMUserARN_ =     CreateUserProfile'-    { _cupSSHUsername = Nothing+    { _cupAllowSelfManagement = Nothing     , _cupSSHPublicKey = Nothing-    , _cupAllowSelfManagement = Nothing+    , _cupSSHUsername = Nothing     , _cupIAMUserARN = pIAMUserARN_     } +-- | Whether users can specify their own SSH public key through the My+-- Settings page. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Setting an IAM User\'s Public SSH Key>.+cupAllowSelfManagement :: Lens' CreateUserProfile (Maybe Bool)+cupAllowSelfManagement = lens _cupAllowSelfManagement (\ s a -> s{_cupAllowSelfManagement = a});++-- | The user\'s public SSH key.+cupSSHPublicKey :: Lens' CreateUserProfile (Maybe Text)+cupSSHPublicKey = lens _cupSSHPublicKey (\ s a -> s{_cupSSHPublicKey = a});+ -- | The user\'s SSH user name. The allowable characters are [a-z], [A-Z], -- [0-9], \'-\', and \'_\'. If the specified name includes other -- punctuation marks, AWS OpsWorks removes them. For example, 'my.name'@@ -89,16 +99,6 @@ cupSSHUsername :: Lens' CreateUserProfile (Maybe Text) cupSSHUsername = lens _cupSSHUsername (\ s a -> s{_cupSSHUsername = a}); --- | The user\'s public SSH key.-cupSSHPublicKey :: Lens' CreateUserProfile (Maybe Text)-cupSSHPublicKey = lens _cupSSHPublicKey (\ s a -> s{_cupSSHPublicKey = a});---- | Whether users can specify their own SSH public key through the My--- Settings page. For more information, see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Setting an IAM User\'s Public SSH Key>.-cupAllowSelfManagement :: Lens' CreateUserProfile (Maybe Bool)-cupAllowSelfManagement = lens _cupAllowSelfManagement (\ s a -> s{_cupAllowSelfManagement = a});- -- | The user\'s IAM ARN. cupIAMUserARN :: Lens' CreateUserProfile Text cupIAMUserARN = lens _cupIAMUserARN (\ s a -> s{_cupIAMUserARN = a});@@ -126,10 +126,10 @@         toJSON CreateUserProfile'{..}           = object               (catMaybes-                 [("SshUsername" .=) <$> _cupSSHUsername,-                  ("SshPublicKey" .=) <$> _cupSSHPublicKey,-                  ("AllowSelfManagement" .=) <$>+                 [("AllowSelfManagement" .=) <$>                     _cupAllowSelfManagement,+                  ("SshPublicKey" .=) <$> _cupSSHPublicKey,+                  ("SshUsername" .=) <$> _cupSSHUsername,                   Just ("IamUserArn" .= _cupIAMUserARN)])  instance ToPath CreateUserProfile where@@ -142,8 +142,8 @@ -- -- /See:/ 'createUserProfileResponse' smart constructor. data CreateUserProfileResponse = CreateUserProfileResponse'-    { _cuprsIAMUserARN :: !(Maybe Text)-    , _cuprsStatus     :: !Int+    { _cuprsIAMUserARN     :: !(Maybe Text)+    , _cuprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateUserProfileResponse' with the minimum fields required to make a request.@@ -152,14 +152,14 @@ -- -- * 'cuprsIAMUserARN' ----- * 'cuprsStatus'+-- * 'cuprsResponseStatus' createUserProfileResponse-    :: Int -- ^ 'cuprsStatus'+    :: Int -- ^ 'cuprsResponseStatus'     -> CreateUserProfileResponse-createUserProfileResponse pStatus_ =+createUserProfileResponse pResponseStatus_ =     CreateUserProfileResponse'     { _cuprsIAMUserARN = Nothing-    , _cuprsStatus = pStatus_+    , _cuprsResponseStatus = pResponseStatus_     }  -- | The user\'s IAM ARN.@@ -167,5 +167,5 @@ cuprsIAMUserARN = lens _cuprsIAMUserARN (\ s a -> s{_cuprsIAMUserARN = a});  -- | The response status code.-cuprsStatus :: Lens' CreateUserProfileResponse Int-cuprsStatus = lens _cuprsStatus (\ s a -> s{_cuprsStatus = a});+cuprsResponseStatus :: Lens' CreateUserProfileResponse Int+cuprsResponseStatus = lens _cuprsResponseStatus (\ s a -> s{_cuprsResponseStatus = a});

@@ -38,7 +38,7 @@     , DescribeAgentVersionsResponse     -- * Response Lenses     , davrsAgentVersions-    , davrsStatus+    , davrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -115,8 +115,8 @@ -- -- /See:/ 'describeAgentVersionsResponse' smart constructor. data DescribeAgentVersionsResponse = DescribeAgentVersionsResponse'-    { _davrsAgentVersions :: !(Maybe [AgentVersion])-    , _davrsStatus        :: !Int+    { _davrsAgentVersions  :: !(Maybe [AgentVersion])+    , _davrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAgentVersionsResponse' with the minimum fields required to make a request.@@ -125,14 +125,14 @@ -- -- * 'davrsAgentVersions' ----- * 'davrsStatus'+-- * 'davrsResponseStatus' describeAgentVersionsResponse-    :: Int -- ^ 'davrsStatus'+    :: Int -- ^ 'davrsResponseStatus'     -> DescribeAgentVersionsResponse-describeAgentVersionsResponse pStatus_ =+describeAgentVersionsResponse pResponseStatus_ =     DescribeAgentVersionsResponse'     { _davrsAgentVersions = Nothing-    , _davrsStatus = pStatus_+    , _davrsResponseStatus = pResponseStatus_     }  -- | The agent versions for the specified stack or configuration manager.@@ -142,5 +142,5 @@ davrsAgentVersions = lens _davrsAgentVersions (\ s a -> s{_davrsAgentVersions = a}) . _Default . _Coerce;  -- | The response status code.-davrsStatus :: Lens' DescribeAgentVersionsResponse Int-davrsStatus = lens _davrsStatus (\ s a -> s{_davrsStatus = a});+davrsResponseStatus :: Lens' DescribeAgentVersionsResponse Int+davrsResponseStatus = lens _davrsResponseStatus (\ s a -> s{_davrsResponseStatus = a});

@@ -43,7 +43,7 @@     , DescribeAppsResponse     -- * Response Lenses     , darsApps-    , darsStatus+    , darsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -119,8 +119,8 @@ -- -- /See:/ 'describeAppsResponse' smart constructor. data DescribeAppsResponse = DescribeAppsResponse'-    { _darsApps   :: !(Maybe [App])-    , _darsStatus :: !Int+    { _darsApps           :: !(Maybe [App])+    , _darsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAppsResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'darsApps' ----- * 'darsStatus'+-- * 'darsResponseStatus' describeAppsResponse-    :: Int -- ^ 'darsStatus'+    :: Int -- ^ 'darsResponseStatus'     -> DescribeAppsResponse-describeAppsResponse pStatus_ =+describeAppsResponse pResponseStatus_ =     DescribeAppsResponse'     { _darsApps = Nothing-    , _darsStatus = pStatus_+    , _darsResponseStatus = pResponseStatus_     }  -- | An array of 'App' objects that describe the specified apps.@@ -144,5 +144,5 @@ darsApps = lens _darsApps (\ s a -> s{_darsApps = a}) . _Default . _Coerce;  -- | The response status code.-darsStatus :: Lens' DescribeAppsResponse Int-darsStatus = lens _darsStatus (\ s a -> s{_darsStatus = a});+darsResponseStatus :: Lens' DescribeAppsResponse Int+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});

@@ -35,8 +35,8 @@       describeCommands     , DescribeCommands     -- * Request Lenses-    , dcInstanceId     , dcDeploymentId+    , dcInstanceId     , dcCommandIds      -- * Destructuring the Response@@ -44,7 +44,7 @@     , DescribeCommandsResponse     -- * Response Lenses     , dcrsCommands-    , dcrsStatus+    , dcrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -55,8 +55,8 @@  -- | /See:/ 'describeCommands' smart constructor. data DescribeCommands = DescribeCommands'-    { _dcInstanceId   :: !(Maybe Text)-    , _dcDeploymentId :: !(Maybe Text)+    { _dcDeploymentId :: !(Maybe Text)+    , _dcInstanceId   :: !(Maybe Text)     , _dcCommandIds   :: !(Maybe [Text])     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -64,32 +64,32 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcInstanceId'--- -- * 'dcDeploymentId' --+-- * 'dcInstanceId'+-- -- * 'dcCommandIds' describeCommands     :: DescribeCommands describeCommands =     DescribeCommands'-    { _dcInstanceId = Nothing-    , _dcDeploymentId = Nothing+    { _dcDeploymentId = Nothing+    , _dcInstanceId = Nothing     , _dcCommandIds = Nothing     } --- | The instance ID. If you include this parameter, 'DescribeCommands'--- returns a description of the commands associated with the specified--- instance.-dcInstanceId :: Lens' DescribeCommands (Maybe Text)-dcInstanceId = lens _dcInstanceId (\ s a -> s{_dcInstanceId = a});- -- | The deployment ID. If you include this parameter, 'DescribeCommands' -- returns a description of the commands associated with the specified -- deployment. dcDeploymentId :: Lens' DescribeCommands (Maybe Text) dcDeploymentId = lens _dcDeploymentId (\ s a -> s{_dcDeploymentId = a}); +-- | The instance ID. If you include this parameter, 'DescribeCommands'+-- returns a description of the commands associated with the specified+-- instance.+dcInstanceId :: Lens' DescribeCommands (Maybe Text)+dcInstanceId = lens _dcInstanceId (\ s a -> s{_dcInstanceId = a});+ -- | An array of command IDs. If you include this parameter, -- 'DescribeCommands' returns a description of the specified commands. -- Otherwise, it returns a description of every command.@@ -119,8 +119,8 @@         toJSON DescribeCommands'{..}           = object               (catMaybes-                 [("InstanceId" .=) <$> _dcInstanceId,-                  ("DeploymentId" .=) <$> _dcDeploymentId,+                 [("DeploymentId" .=) <$> _dcDeploymentId,+                  ("InstanceId" .=) <$> _dcInstanceId,                   ("CommandIds" .=) <$> _dcCommandIds])  instance ToPath DescribeCommands where@@ -133,8 +133,8 @@ -- -- /See:/ 'describeCommandsResponse' smart constructor. data DescribeCommandsResponse = DescribeCommandsResponse'-    { _dcrsCommands :: !(Maybe [Command])-    , _dcrsStatus   :: !Int+    { _dcrsCommands       :: !(Maybe [Command])+    , _dcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCommandsResponse' with the minimum fields required to make a request.@@ -143,14 +143,14 @@ -- -- * 'dcrsCommands' ----- * 'dcrsStatus'+-- * 'dcrsResponseStatus' describeCommandsResponse-    :: Int -- ^ 'dcrsStatus'+    :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCommandsResponse-describeCommandsResponse pStatus_ =+describeCommandsResponse pResponseStatus_ =     DescribeCommandsResponse'     { _dcrsCommands = Nothing-    , _dcrsStatus = pStatus_+    , _dcrsResponseStatus = pResponseStatus_     }  -- | An array of 'Command' objects that describe each of the specified@@ -159,5 +159,5 @@ dcrsCommands = lens _dcrsCommands (\ s a -> s{_dcrsCommands = a}) . _Default . _Coerce;  -- | The response status code.-dcrsStatus :: Lens' DescribeCommandsResponse Int-dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});+dcrsResponseStatus :: Lens' DescribeCommandsResponse Int+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});

@@ -44,7 +44,7 @@     , DescribeDeploymentsResponse     -- * Response Lenses     , ddrsDeployments-    , ddrsStatus+    , ddrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -134,8 +134,8 @@ -- -- /See:/ 'describeDeploymentsResponse' smart constructor. data DescribeDeploymentsResponse = DescribeDeploymentsResponse'-    { _ddrsDeployments :: !(Maybe [Deployment])-    , _ddrsStatus      :: !Int+    { _ddrsDeployments    :: !(Maybe [Deployment])+    , _ddrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeDeploymentsResponse' with the minimum fields required to make a request.@@ -144,14 +144,14 @@ -- -- * 'ddrsDeployments' ----- * 'ddrsStatus'+-- * 'ddrsResponseStatus' describeDeploymentsResponse-    :: Int -- ^ 'ddrsStatus'+    :: Int -- ^ 'ddrsResponseStatus'     -> DescribeDeploymentsResponse-describeDeploymentsResponse pStatus_ =+describeDeploymentsResponse pResponseStatus_ =     DescribeDeploymentsResponse'     { _ddrsDeployments = Nothing-    , _ddrsStatus = pStatus_+    , _ddrsResponseStatus = pResponseStatus_     }  -- | An array of 'Deployment' objects that describe the deployments.@@ -159,5 +159,5 @@ ddrsDeployments = lens _ddrsDeployments (\ s a -> s{_ddrsDeployments = a}) . _Default . _Coerce;  -- | The response status code.-ddrsStatus :: Lens' DescribeDeploymentsResponse Int-ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a});+ddrsResponseStatus :: Lens' DescribeDeploymentsResponse Int+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});

@@ -48,7 +48,7 @@     -- * Response Lenses     , decrsNextToken     , decrsEcsClusters-    , decrsStatus+    , decrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -153,9 +153,9 @@ -- -- /See:/ 'describeEcsClustersResponse' smart constructor. data DescribeEcsClustersResponse = DescribeEcsClustersResponse'-    { _decrsNextToken   :: !(Maybe Text)-    , _decrsEcsClusters :: !(Maybe [EcsCluster])-    , _decrsStatus      :: !Int+    { _decrsNextToken      :: !(Maybe Text)+    , _decrsEcsClusters    :: !(Maybe [EcsCluster])+    , _decrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeEcsClustersResponse' with the minimum fields required to make a request.@@ -166,15 +166,15 @@ -- -- * 'decrsEcsClusters' ----- * 'decrsStatus'+-- * 'decrsResponseStatus' describeEcsClustersResponse-    :: Int -- ^ 'decrsStatus'+    :: Int -- ^ 'decrsResponseStatus'     -> DescribeEcsClustersResponse-describeEcsClustersResponse pStatus_ =+describeEcsClustersResponse pResponseStatus_ =     DescribeEcsClustersResponse'     { _decrsNextToken = Nothing     , _decrsEcsClusters = Nothing-    , _decrsStatus = pStatus_+    , _decrsResponseStatus = pResponseStatus_     }  -- | If a paginated request does not return all of the remaining results,@@ -190,5 +190,5 @@ decrsEcsClusters = lens _decrsEcsClusters (\ s a -> s{_decrsEcsClusters = a}) . _Default . _Coerce;  -- | The response status code.-decrsStatus :: Lens' DescribeEcsClustersResponse Int-decrsStatus = lens _decrsStatus (\ s a -> s{_decrsStatus = a});+decrsResponseStatus :: Lens' DescribeEcsClustersResponse Int+decrsResponseStatus = lens _decrsResponseStatus (\ s a -> s{_decrsResponseStatus = a});

@@ -45,7 +45,7 @@     , DescribeElasticIPsResponse     -- * Response Lenses     , deirsElasticIPs-    , deirsStatus+    , deirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -137,8 +137,8 @@ -- -- /See:/ 'describeElasticIPsResponse' smart constructor. data DescribeElasticIPsResponse = DescribeElasticIPsResponse'-    { _deirsElasticIPs :: !(Maybe [ElasticIP])-    , _deirsStatus     :: !Int+    { _deirsElasticIPs     :: !(Maybe [ElasticIP])+    , _deirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeElasticIPsResponse' with the minimum fields required to make a request.@@ -147,14 +147,14 @@ -- -- * 'deirsElasticIPs' ----- * 'deirsStatus'+-- * 'deirsResponseStatus' describeElasticIPsResponse-    :: Int -- ^ 'deirsStatus'+    :: Int -- ^ 'deirsResponseStatus'     -> DescribeElasticIPsResponse-describeElasticIPsResponse pStatus_ =+describeElasticIPsResponse pResponseStatus_ =     DescribeElasticIPsResponse'     { _deirsElasticIPs = Nothing-    , _deirsStatus = pStatus_+    , _deirsResponseStatus = pResponseStatus_     }  -- | An 'ElasticIps' object that describes the specified Elastic IP@@ -163,5 +163,5 @@ deirsElasticIPs = lens _deirsElasticIPs (\ s a -> s{_deirsElasticIPs = a}) . _Default . _Coerce;  -- | The response status code.-deirsStatus :: Lens' DescribeElasticIPsResponse Int-deirsStatus = lens _deirsStatus (\ s a -> s{_deirsStatus = a});+deirsResponseStatus :: Lens' DescribeElasticIPsResponse Int+deirsResponseStatus = lens _deirsResponseStatus (\ s a -> s{_deirsResponseStatus = a});

@@ -43,7 +43,7 @@     , DescribeElasticLoadBalancersResponse     -- * Response Lenses     , delbrsElasticLoadBalancers-    , delbrsStatus+    , delbrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -123,7 +123,7 @@ -- /See:/ 'describeElasticLoadBalancersResponse' smart constructor. data DescribeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse'     { _delbrsElasticLoadBalancers :: !(Maybe [ElasticLoadBalancer])-    , _delbrsStatus               :: !Int+    , _delbrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeElasticLoadBalancersResponse' with the minimum fields required to make a request.@@ -132,14 +132,14 @@ -- -- * 'delbrsElasticLoadBalancers' ----- * 'delbrsStatus'+-- * 'delbrsResponseStatus' describeElasticLoadBalancersResponse-    :: Int -- ^ 'delbrsStatus'+    :: Int -- ^ 'delbrsResponseStatus'     -> DescribeElasticLoadBalancersResponse-describeElasticLoadBalancersResponse pStatus_ =+describeElasticLoadBalancersResponse pResponseStatus_ =     DescribeElasticLoadBalancersResponse'     { _delbrsElasticLoadBalancers = Nothing-    , _delbrsStatus = pStatus_+    , _delbrsResponseStatus = pResponseStatus_     }  -- | A list of 'ElasticLoadBalancer' objects that describe the specified@@ -148,5 +148,5 @@ delbrsElasticLoadBalancers = lens _delbrsElasticLoadBalancers (\ s a -> s{_delbrsElasticLoadBalancers = a}) . _Default . _Coerce;  -- | The response status code.-delbrsStatus :: Lens' DescribeElasticLoadBalancersResponse Int-delbrsStatus = lens _delbrsStatus (\ s a -> s{_delbrsStatus = a});+delbrsResponseStatus :: Lens' DescribeElasticLoadBalancersResponse Int+delbrsResponseStatus = lens _delbrsResponseStatus (\ s a -> s{_delbrsResponseStatus = a});

@@ -44,7 +44,7 @@     , DescribeInstancesResponse     -- * Response Lenses     , dirsInstances-    , dirsStatus+    , dirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -132,8 +132,8 @@ -- -- /See:/ 'describeInstancesResponse' smart constructor. data DescribeInstancesResponse = DescribeInstancesResponse'-    { _dirsInstances :: !(Maybe [Instance])-    , _dirsStatus    :: !Int+    { _dirsInstances      :: !(Maybe [Instance])+    , _dirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeInstancesResponse' with the minimum fields required to make a request.@@ -142,14 +142,14 @@ -- -- * 'dirsInstances' ----- * 'dirsStatus'+-- * 'dirsResponseStatus' describeInstancesResponse-    :: Int -- ^ 'dirsStatus'+    :: Int -- ^ 'dirsResponseStatus'     -> DescribeInstancesResponse-describeInstancesResponse pStatus_ =+describeInstancesResponse pResponseStatus_ =     DescribeInstancesResponse'     { _dirsInstances = Nothing-    , _dirsStatus = pStatus_+    , _dirsResponseStatus = pResponseStatus_     }  -- | An array of 'Instance' objects that describe the instances.@@ -157,5 +157,5 @@ dirsInstances = lens _dirsInstances (\ s a -> s{_dirsInstances = a}) . _Default . _Coerce;  -- | The response status code.-dirsStatus :: Lens' DescribeInstancesResponse Int-dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a});+dirsResponseStatus :: Lens' DescribeInstancesResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});

@@ -43,7 +43,7 @@     , DescribeLayersResponse     -- * Response Lenses     , dlrsLayers-    , dlrsStatus+    , dlrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -118,8 +118,8 @@ -- -- /See:/ 'describeLayersResponse' smart constructor. data DescribeLayersResponse = DescribeLayersResponse'-    { _dlrsLayers :: !(Maybe [Layer])-    , _dlrsStatus :: !Int+    { _dlrsLayers         :: !(Maybe [Layer])+    , _dlrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeLayersResponse' with the minimum fields required to make a request.@@ -128,14 +128,14 @@ -- -- * 'dlrsLayers' ----- * 'dlrsStatus'+-- * 'dlrsResponseStatus' describeLayersResponse-    :: Int -- ^ 'dlrsStatus'+    :: Int -- ^ 'dlrsResponseStatus'     -> DescribeLayersResponse-describeLayersResponse pStatus_ =+describeLayersResponse pResponseStatus_ =     DescribeLayersResponse'     { _dlrsLayers = Nothing-    , _dlrsStatus = pStatus_+    , _dlrsResponseStatus = pResponseStatus_     }  -- | An array of 'Layer' objects that describe the layers.@@ -143,5 +143,5 @@ dlrsLayers = lens _dlrsLayers (\ s a -> s{_dlrsLayers = a}) . _Default . _Coerce;  -- | The response status code.-dlrsStatus :: Lens' DescribeLayersResponse Int-dlrsStatus = lens _dlrsStatus (\ s a -> s{_dlrsStatus = a});+dlrsResponseStatus :: Lens' DescribeLayersResponse Int+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});

@@ -42,7 +42,7 @@     , DescribeLoadBasedAutoScalingResponse     -- * Response Lenses     , dlbasrsLoadBasedAutoScalingConfigurations-    , dlbasrsStatus+    , dlbasrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -111,7 +111,7 @@ -- /See:/ 'describeLoadBasedAutoScalingResponse' smart constructor. data DescribeLoadBasedAutoScalingResponse = DescribeLoadBasedAutoScalingResponse'     { _dlbasrsLoadBasedAutoScalingConfigurations :: !(Maybe [LoadBasedAutoScalingConfiguration])-    , _dlbasrsStatus                             :: !Int+    , _dlbasrsResponseStatus                     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeLoadBasedAutoScalingResponse' with the minimum fields required to make a request.@@ -120,14 +120,14 @@ -- -- * 'dlbasrsLoadBasedAutoScalingConfigurations' ----- * 'dlbasrsStatus'+-- * 'dlbasrsResponseStatus' describeLoadBasedAutoScalingResponse-    :: Int -- ^ 'dlbasrsStatus'+    :: Int -- ^ 'dlbasrsResponseStatus'     -> DescribeLoadBasedAutoScalingResponse-describeLoadBasedAutoScalingResponse pStatus_ =+describeLoadBasedAutoScalingResponse pResponseStatus_ =     DescribeLoadBasedAutoScalingResponse'     { _dlbasrsLoadBasedAutoScalingConfigurations = Nothing-    , _dlbasrsStatus = pStatus_+    , _dlbasrsResponseStatus = pResponseStatus_     }  -- | An array of 'LoadBasedAutoScalingConfiguration' objects that describe@@ -136,5 +136,5 @@ dlbasrsLoadBasedAutoScalingConfigurations = lens _dlbasrsLoadBasedAutoScalingConfigurations (\ s a -> s{_dlbasrsLoadBasedAutoScalingConfigurations = a}) . _Default . _Coerce;  -- | The response status code.-dlbasrsStatus :: Lens' DescribeLoadBasedAutoScalingResponse Int-dlbasrsStatus = lens _dlbasrsStatus (\ s a -> s{_dlbasrsStatus = a});+dlbasrsResponseStatus :: Lens' DescribeLoadBasedAutoScalingResponse Int+dlbasrsResponseStatus = lens _dlbasrsResponseStatus (\ s a -> s{_dlbasrsResponseStatus = a});

@@ -37,7 +37,7 @@     , DescribeMyUserProfileResponse     -- * Response Lenses     , dmuprsUserProfile-    , dmuprsStatus+    , dmuprsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -90,8 +90,8 @@ -- -- /See:/ 'describeMyUserProfileResponse' smart constructor. data DescribeMyUserProfileResponse = DescribeMyUserProfileResponse'-    { _dmuprsUserProfile :: !(Maybe SelfUserProfile)-    , _dmuprsStatus      :: !Int+    { _dmuprsUserProfile    :: !(Maybe SelfUserProfile)+    , _dmuprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeMyUserProfileResponse' with the minimum fields required to make a request.@@ -100,14 +100,14 @@ -- -- * 'dmuprsUserProfile' ----- * 'dmuprsStatus'+-- * 'dmuprsResponseStatus' describeMyUserProfileResponse-    :: Int -- ^ 'dmuprsStatus'+    :: Int -- ^ 'dmuprsResponseStatus'     -> DescribeMyUserProfileResponse-describeMyUserProfileResponse pStatus_ =+describeMyUserProfileResponse pResponseStatus_ =     DescribeMyUserProfileResponse'     { _dmuprsUserProfile = Nothing-    , _dmuprsStatus = pStatus_+    , _dmuprsResponseStatus = pResponseStatus_     }  -- | A 'UserProfile' object that describes the user\'s SSH information.@@ -115,5 +115,5 @@ dmuprsUserProfile = lens _dmuprsUserProfile (\ s a -> s{_dmuprsUserProfile = a});  -- | The response status code.-dmuprsStatus :: Lens' DescribeMyUserProfileResponse Int-dmuprsStatus = lens _dmuprsStatus (\ s a -> s{_dmuprsStatus = a});+dmuprsResponseStatus :: Lens' DescribeMyUserProfileResponse Int+dmuprsResponseStatus = lens _dmuprsResponseStatus (\ s a -> s{_dmuprsResponseStatus = a});

@@ -41,7 +41,7 @@     , DescribePermissionsResponse     -- * Response Lenses     , dprsPermissions-    , dprsStatus+    , dprsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -118,8 +118,8 @@ -- -- /See:/ 'describePermissionsResponse' smart constructor. data DescribePermissionsResponse = DescribePermissionsResponse'-    { _dprsPermissions :: !(Maybe [Permission])-    , _dprsStatus      :: !Int+    { _dprsPermissions    :: !(Maybe [Permission])+    , _dprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribePermissionsResponse' with the minimum fields required to make a request.@@ -128,14 +128,14 @@ -- -- * 'dprsPermissions' ----- * 'dprsStatus'+-- * 'dprsResponseStatus' describePermissionsResponse-    :: Int -- ^ 'dprsStatus'+    :: Int -- ^ 'dprsResponseStatus'     -> DescribePermissionsResponse-describePermissionsResponse pStatus_ =+describePermissionsResponse pResponseStatus_ =     DescribePermissionsResponse'     { _dprsPermissions = Nothing-    , _dprsStatus = pStatus_+    , _dprsResponseStatus = pResponseStatus_     }  -- | An array of 'Permission' objects that describe the stack permissions.@@ -152,5 +152,5 @@ dprsPermissions = lens _dprsPermissions (\ s a -> s{_dprsPermissions = a}) . _Default . _Coerce;  -- | The response status code.-dprsStatus :: Lens' DescribePermissionsResponse Int-dprsStatus = lens _dprsStatus (\ s a -> s{_dprsStatus = a});+dprsResponseStatus :: Lens' DescribePermissionsResponse Int+dprsResponseStatus = lens _dprsResponseStatus (\ s a -> s{_dprsResponseStatus = a});

@@ -44,7 +44,7 @@     , DescribeRAIdArraysResponse     -- * Response Lenses     , draiarsRAIdArrays-    , draiarsStatus+    , draiarsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -132,8 +132,8 @@ -- -- /See:/ 'describeRAIdArraysResponse' smart constructor. data DescribeRAIdArraysResponse = DescribeRAIdArraysResponse'-    { _draiarsRAIdArrays :: !(Maybe [RAIdArray])-    , _draiarsStatus     :: !Int+    { _draiarsRAIdArrays     :: !(Maybe [RAIdArray])+    , _draiarsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeRAIdArraysResponse' with the minimum fields required to make a request.@@ -142,14 +142,14 @@ -- -- * 'draiarsRAIdArrays' ----- * 'draiarsStatus'+-- * 'draiarsResponseStatus' describeRAIdArraysResponse-    :: Int -- ^ 'draiarsStatus'+    :: Int -- ^ 'draiarsResponseStatus'     -> DescribeRAIdArraysResponse-describeRAIdArraysResponse pStatus_ =+describeRAIdArraysResponse pResponseStatus_ =     DescribeRAIdArraysResponse'     { _draiarsRAIdArrays = Nothing-    , _draiarsStatus = pStatus_+    , _draiarsResponseStatus = pResponseStatus_     }  -- | A 'RaidArrays' object that describes the specified RAID arrays.@@ -157,5 +157,5 @@ draiarsRAIdArrays = lens _draiarsRAIdArrays (\ s a -> s{_draiarsRAIdArrays = a}) . _Default . _Coerce;  -- | The response status code.-draiarsStatus :: Lens' DescribeRAIdArraysResponse Int-draiarsStatus = lens _draiarsStatus (\ s a -> s{_draiarsStatus = a});+draiarsResponseStatus :: Lens' DescribeRAIdArraysResponse Int+draiarsResponseStatus = lens _draiarsResponseStatus (\ s a -> s{_draiarsResponseStatus = a});

@@ -41,7 +41,7 @@     , DescribeRDSDBInstancesResponse     -- * Response Lenses     , drdirsRDSDBInstances-    , drdirsStatus+    , drdirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -120,7 +120,7 @@ -- /See:/ 'describeRDSDBInstancesResponse' smart constructor. data DescribeRDSDBInstancesResponse = DescribeRDSDBInstancesResponse'     { _drdirsRDSDBInstances :: !(Maybe [RDSDBInstance])-    , _drdirsStatus         :: !Int+    , _drdirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeRDSDBInstancesResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'drdirsRDSDBInstances' ----- * 'drdirsStatus'+-- * 'drdirsResponseStatus' describeRDSDBInstancesResponse-    :: Int -- ^ 'drdirsStatus'+    :: Int -- ^ 'drdirsResponseStatus'     -> DescribeRDSDBInstancesResponse-describeRDSDBInstancesResponse pStatus_ =+describeRDSDBInstancesResponse pResponseStatus_ =     DescribeRDSDBInstancesResponse'     { _drdirsRDSDBInstances = Nothing-    , _drdirsStatus = pStatus_+    , _drdirsResponseStatus = pResponseStatus_     }  -- | An a array of 'RdsDbInstance' objects that describe the instances.@@ -144,5 +144,5 @@ drdirsRDSDBInstances = lens _drdirsRDSDBInstances (\ s a -> s{_drdirsRDSDBInstances = a}) . _Default . _Coerce;  -- | The response status code.-drdirsStatus :: Lens' DescribeRDSDBInstancesResponse Int-drdirsStatus = lens _drdirsStatus (\ s a -> s{_drdirsStatus = a});+drdirsResponseStatus :: Lens' DescribeRDSDBInstancesResponse Int+drdirsResponseStatus = lens _drdirsResponseStatus (\ s a -> s{_drdirsResponseStatus = a});

@@ -34,15 +34,15 @@     , DescribeServiceErrors     -- * Request Lenses     , dseInstanceId-    , dseServiceErrorIds     , dseStackId+    , dseServiceErrorIds      -- * Destructuring the Response     , describeServiceErrorsResponse     , DescribeServiceErrorsResponse     -- * Response Lenses     , dsersServiceErrors-    , dsersStatus+    , dsersResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -54,8 +54,8 @@ -- | /See:/ 'describeServiceErrors' smart constructor. data DescribeServiceErrors = DescribeServiceErrors'     { _dseInstanceId      :: !(Maybe Text)-    , _dseServiceErrorIds :: !(Maybe [Text])     , _dseStackId         :: !(Maybe Text)+    , _dseServiceErrorIds :: !(Maybe [Text])     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeServiceErrors' with the minimum fields required to make a request.@@ -64,16 +64,16 @@ -- -- * 'dseInstanceId' ----- * 'dseServiceErrorIds'--- -- * 'dseStackId'+--+-- * 'dseServiceErrorIds' describeServiceErrors     :: DescribeServiceErrors describeServiceErrors =     DescribeServiceErrors'     { _dseInstanceId = Nothing-    , _dseServiceErrorIds = Nothing     , _dseStackId = Nothing+    , _dseServiceErrorIds = Nothing     }  -- | The instance ID. If you use this parameter, 'DescribeServiceErrors'@@ -82,17 +82,17 @@ dseInstanceId :: Lens' DescribeServiceErrors (Maybe Text) dseInstanceId = lens _dseInstanceId (\ s a -> s{_dseInstanceId = a}); +-- | The stack ID. If you use this parameter, 'DescribeServiceErrors' returns+-- descriptions of the errors associated with the specified stack.+dseStackId :: Lens' DescribeServiceErrors (Maybe Text)+dseStackId = lens _dseStackId (\ s a -> s{_dseStackId = a});+ -- | An array of service error IDs. If you use this parameter, -- 'DescribeServiceErrors' returns descriptions of the specified errors. -- Otherwise, it returns a description of every error. dseServiceErrorIds :: Lens' DescribeServiceErrors [Text] dseServiceErrorIds = lens _dseServiceErrorIds (\ s a -> s{_dseServiceErrorIds = a}) . _Default . _Coerce; --- | The stack ID. If you use this parameter, 'DescribeServiceErrors' returns--- descriptions of the errors associated with the specified stack.-dseStackId :: Lens' DescribeServiceErrors (Maybe Text)-dseStackId = lens _dseStackId (\ s a -> s{_dseStackId = a});- instance AWSRequest DescribeServiceErrors where         type Rs DescribeServiceErrors =              DescribeServiceErrorsResponse@@ -119,8 +119,8 @@           = object               (catMaybes                  [("InstanceId" .=) <$> _dseInstanceId,-                  ("ServiceErrorIds" .=) <$> _dseServiceErrorIds,-                  ("StackId" .=) <$> _dseStackId])+                  ("StackId" .=) <$> _dseStackId,+                  ("ServiceErrorIds" .=) <$> _dseServiceErrorIds])  instance ToPath DescribeServiceErrors where         toPath = const "/"@@ -132,8 +132,8 @@ -- -- /See:/ 'describeServiceErrorsResponse' smart constructor. data DescribeServiceErrorsResponse = DescribeServiceErrorsResponse'-    { _dsersServiceErrors :: !(Maybe [ServiceError'])-    , _dsersStatus        :: !Int+    { _dsersServiceErrors  :: !(Maybe [ServiceError'])+    , _dsersResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeServiceErrorsResponse' with the minimum fields required to make a request.@@ -142,14 +142,14 @@ -- -- * 'dsersServiceErrors' ----- * 'dsersStatus'+-- * 'dsersResponseStatus' describeServiceErrorsResponse-    :: Int -- ^ 'dsersStatus'+    :: Int -- ^ 'dsersResponseStatus'     -> DescribeServiceErrorsResponse-describeServiceErrorsResponse pStatus_ =+describeServiceErrorsResponse pResponseStatus_ =     DescribeServiceErrorsResponse'     { _dsersServiceErrors = Nothing-    , _dsersStatus = pStatus_+    , _dsersResponseStatus = pResponseStatus_     }  -- | An array of 'ServiceError' objects that describe the specified service@@ -158,5 +158,5 @@ dsersServiceErrors = lens _dsersServiceErrors (\ s a -> s{_dsersServiceErrors = a}) . _Default . _Coerce;  -- | The response status code.-dsersStatus :: Lens' DescribeServiceErrorsResponse Int-dsersStatus = lens _dsersStatus (\ s a -> s{_dsersStatus = a});+dsersResponseStatus :: Lens' DescribeServiceErrorsResponse Int+dsersResponseStatus = lens _dsersResponseStatus (\ s a -> s{_dsersResponseStatus = a});

@@ -41,7 +41,7 @@     -- * Response Lenses     , dspprsAgentInstallerURL     , dspprsParameters-    , dspprsStatus+    , dspprsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -117,7 +117,7 @@ data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse'     { _dspprsAgentInstallerURL :: !(Maybe Text)     , _dspprsParameters        :: !(Maybe (Map Text Text))-    , _dspprsStatus            :: !Int+    , _dspprsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeStackProvisioningParametersResponse' with the minimum fields required to make a request.@@ -128,15 +128,15 @@ -- -- * 'dspprsParameters' ----- * 'dspprsStatus'+-- * 'dspprsResponseStatus' describeStackProvisioningParametersResponse-    :: Int -- ^ 'dspprsStatus'+    :: Int -- ^ 'dspprsResponseStatus'     -> DescribeStackProvisioningParametersResponse-describeStackProvisioningParametersResponse pStatus_ =+describeStackProvisioningParametersResponse pResponseStatus_ =     DescribeStackProvisioningParametersResponse'     { _dspprsAgentInstallerURL = Nothing     , _dspprsParameters = Nothing-    , _dspprsStatus = pStatus_+    , _dspprsResponseStatus = pResponseStatus_     }  -- | The AWS OpsWorks agent installer\'s URL.@@ -148,5 +148,5 @@ dspprsParameters = lens _dspprsParameters (\ s a -> s{_dspprsParameters = a}) . _Default . _Map;  -- | The response status code.-dspprsStatus :: Lens' DescribeStackProvisioningParametersResponse Int-dspprsStatus = lens _dspprsStatus (\ s a -> s{_dspprsStatus = a});+dspprsResponseStatus :: Lens' DescribeStackProvisioningParametersResponse Int+dspprsResponseStatus = lens _dspprsResponseStatus (\ s a -> s{_dspprsResponseStatus = a});

@@ -41,7 +41,7 @@     , DescribeStackSummaryResponse     -- * Response Lenses     , dssrsStackSummary-    , dssrsStatus+    , dssrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -107,8 +107,8 @@ -- -- /See:/ 'describeStackSummaryResponse' smart constructor. data DescribeStackSummaryResponse = DescribeStackSummaryResponse'-    { _dssrsStackSummary :: !(Maybe StackSummary)-    , _dssrsStatus       :: !Int+    { _dssrsStackSummary   :: !(Maybe StackSummary)+    , _dssrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeStackSummaryResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'dssrsStackSummary' ----- * 'dssrsStatus'+-- * 'dssrsResponseStatus' describeStackSummaryResponse-    :: Int -- ^ 'dssrsStatus'+    :: Int -- ^ 'dssrsResponseStatus'     -> DescribeStackSummaryResponse-describeStackSummaryResponse pStatus_ =+describeStackSummaryResponse pResponseStatus_ =     DescribeStackSummaryResponse'     { _dssrsStackSummary = Nothing-    , _dssrsStatus = pStatus_+    , _dssrsResponseStatus = pResponseStatus_     }  -- | A 'StackSummary' object that contains the results.@@ -132,5 +132,5 @@ dssrsStackSummary = lens _dssrsStackSummary (\ s a -> s{_dssrsStackSummary = a});  -- | The response status code.-dssrsStatus :: Lens' DescribeStackSummaryResponse Int-dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a});+dssrsResponseStatus :: Lens' DescribeStackSummaryResponse Int+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});

@@ -40,7 +40,7 @@     , DescribeStacksResponse     -- * Response Lenses     , dsrsStacks-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -105,8 +105,8 @@ -- -- /See:/ 'describeStacksResponse' smart constructor. data DescribeStacksResponse = DescribeStacksResponse'-    { _dsrsStacks :: !(Maybe [Stack])-    , _dsrsStatus :: !Int+    { _dsrsStacks         :: !(Maybe [Stack])+    , _dsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeStacksResponse' with the minimum fields required to make a request.@@ -115,14 +115,14 @@ -- -- * 'dsrsStacks' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' describeStacksResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DescribeStacksResponse-describeStacksResponse pStatus_ =+describeStacksResponse pResponseStatus_ =     DescribeStacksResponse'     { _dsrsStacks = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | An array of 'Stack' objects that describe the stacks.@@ -130,5 +130,5 @@ dsrsStacks = lens _dsrsStacks (\ s a -> s{_dsrsStacks = a}) . _Default . _Coerce;  -- | The response status code.-dsrsStatus :: Lens' DescribeStacksResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DescribeStacksResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -43,7 +43,7 @@     , DescribeTimeBasedAutoScalingResponse     -- * Response Lenses     , dtbasrsTimeBasedAutoScalingConfigurations-    , dtbasrsStatus+    , dtbasrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -113,7 +113,7 @@ -- /See:/ 'describeTimeBasedAutoScalingResponse' smart constructor. data DescribeTimeBasedAutoScalingResponse = DescribeTimeBasedAutoScalingResponse'     { _dtbasrsTimeBasedAutoScalingConfigurations :: !(Maybe [TimeBasedAutoScalingConfiguration])-    , _dtbasrsStatus                             :: !Int+    , _dtbasrsResponseStatus                     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTimeBasedAutoScalingResponse' with the minimum fields required to make a request.@@ -122,14 +122,14 @@ -- -- * 'dtbasrsTimeBasedAutoScalingConfigurations' ----- * 'dtbasrsStatus'+-- * 'dtbasrsResponseStatus' describeTimeBasedAutoScalingResponse-    :: Int -- ^ 'dtbasrsStatus'+    :: Int -- ^ 'dtbasrsResponseStatus'     -> DescribeTimeBasedAutoScalingResponse-describeTimeBasedAutoScalingResponse pStatus_ =+describeTimeBasedAutoScalingResponse pResponseStatus_ =     DescribeTimeBasedAutoScalingResponse'     { _dtbasrsTimeBasedAutoScalingConfigurations = Nothing-    , _dtbasrsStatus = pStatus_+    , _dtbasrsResponseStatus = pResponseStatus_     }  -- | An array of 'TimeBasedAutoScalingConfiguration' objects that describe@@ -138,5 +138,5 @@ dtbasrsTimeBasedAutoScalingConfigurations = lens _dtbasrsTimeBasedAutoScalingConfigurations (\ s a -> s{_dtbasrsTimeBasedAutoScalingConfigurations = a}) . _Default . _Coerce;  -- | The response status code.-dtbasrsStatus :: Lens' DescribeTimeBasedAutoScalingResponse Int-dtbasrsStatus = lens _dtbasrsStatus (\ s a -> s{_dtbasrsStatus = a});+dtbasrsResponseStatus :: Lens' DescribeTimeBasedAutoScalingResponse Int+dtbasrsResponseStatus = lens _dtbasrsResponseStatus (\ s a -> s{_dtbasrsResponseStatus = a});

@@ -39,7 +39,7 @@     , DescribeUserProfilesResponse     -- * Response Lenses     , duprsUserProfiles-    , duprsStatus+    , duprsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -105,8 +105,8 @@ -- -- /See:/ 'describeUserProfilesResponse' smart constructor. data DescribeUserProfilesResponse = DescribeUserProfilesResponse'-    { _duprsUserProfiles :: !(Maybe [UserProfile])-    , _duprsStatus       :: !Int+    { _duprsUserProfiles   :: !(Maybe [UserProfile])+    , _duprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeUserProfilesResponse' with the minimum fields required to make a request.@@ -115,14 +115,14 @@ -- -- * 'duprsUserProfiles' ----- * 'duprsStatus'+-- * 'duprsResponseStatus' describeUserProfilesResponse-    :: Int -- ^ 'duprsStatus'+    :: Int -- ^ 'duprsResponseStatus'     -> DescribeUserProfilesResponse-describeUserProfilesResponse pStatus_ =+describeUserProfilesResponse pResponseStatus_ =     DescribeUserProfilesResponse'     { _duprsUserProfiles = Nothing-    , _duprsStatus = pStatus_+    , _duprsResponseStatus = pResponseStatus_     }  -- | A 'Users' object that describes the specified users.@@ -130,5 +130,5 @@ duprsUserProfiles = lens _duprsUserProfiles (\ s a -> s{_duprsUserProfiles = a}) . _Default . _Coerce;  -- | The response status code.-duprsStatus :: Lens' DescribeUserProfilesResponse Int-duprsStatus = lens _duprsStatus (\ s a -> s{_duprsStatus = a});+duprsResponseStatus :: Lens' DescribeUserProfilesResponse Int+duprsResponseStatus = lens _duprsResponseStatus (\ s a -> s{_duprsResponseStatus = a});

@@ -45,7 +45,7 @@     , DescribeVolumesResponse     -- * Response Lenses     , dvrsVolumes-    , dvrsStatus+    , dvrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -141,8 +141,8 @@ -- -- /See:/ 'describeVolumesResponse' smart constructor. data DescribeVolumesResponse = DescribeVolumesResponse'-    { _dvrsVolumes :: !(Maybe [Volume])-    , _dvrsStatus  :: !Int+    { _dvrsVolumes        :: !(Maybe [Volume])+    , _dvrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeVolumesResponse' with the minimum fields required to make a request.@@ -151,14 +151,14 @@ -- -- * 'dvrsVolumes' ----- * 'dvrsStatus'+-- * 'dvrsResponseStatus' describeVolumesResponse-    :: Int -- ^ 'dvrsStatus'+    :: Int -- ^ 'dvrsResponseStatus'     -> DescribeVolumesResponse-describeVolumesResponse pStatus_ =+describeVolumesResponse pResponseStatus_ =     DescribeVolumesResponse'     { _dvrsVolumes = Nothing-    , _dvrsStatus = pStatus_+    , _dvrsResponseStatus = pResponseStatus_     }  -- | An array of volume IDs.@@ -166,5 +166,5 @@ dvrsVolumes = lens _dvrsVolumes (\ s a -> s{_dvrsVolumes = a}) . _Default . _Coerce;  -- | The response status code.-dvrsStatus :: Lens' DescribeVolumesResponse Int-dvrsStatus = lens _dvrsStatus (\ s a -> s{_dvrsStatus = a});+dvrsResponseStatus :: Lens' DescribeVolumesResponse Int+dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a});

@@ -42,7 +42,7 @@     -- * Response Lenses     , ghsrsHostname     , ghsrsLayerId-    , ghsrsStatus+    , ghsrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -109,9 +109,9 @@ -- -- /See:/ 'getHostnameSuggestionResponse' smart constructor. data GetHostnameSuggestionResponse = GetHostnameSuggestionResponse'-    { _ghsrsHostname :: !(Maybe Text)-    , _ghsrsLayerId  :: !(Maybe Text)-    , _ghsrsStatus   :: !Int+    { _ghsrsHostname       :: !(Maybe Text)+    , _ghsrsLayerId        :: !(Maybe Text)+    , _ghsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetHostnameSuggestionResponse' with the minimum fields required to make a request.@@ -122,15 +122,15 @@ -- -- * 'ghsrsLayerId' ----- * 'ghsrsStatus'+-- * 'ghsrsResponseStatus' getHostnameSuggestionResponse-    :: Int -- ^ 'ghsrsStatus'+    :: Int -- ^ 'ghsrsResponseStatus'     -> GetHostnameSuggestionResponse-getHostnameSuggestionResponse pStatus_ =+getHostnameSuggestionResponse pResponseStatus_ =     GetHostnameSuggestionResponse'     { _ghsrsHostname = Nothing     , _ghsrsLayerId = Nothing-    , _ghsrsStatus = pStatus_+    , _ghsrsResponseStatus = pResponseStatus_     }  -- | The generated host name.@@ -142,5 +142,5 @@ ghsrsLayerId = lens _ghsrsLayerId (\ s a -> s{_ghsrsLayerId = a});  -- | The response status code.-ghsrsStatus :: Lens' GetHostnameSuggestionResponse Int-ghsrsStatus = lens _ghsrsStatus (\ s a -> s{_ghsrsStatus = a});+ghsrsResponseStatus :: Lens' GetHostnameSuggestionResponse Int+ghsrsResponseStatus = lens _ghsrsResponseStatus (\ s a -> s{_ghsrsResponseStatus = a});

@@ -37,7 +37,7 @@     , GrantAccessResponse     -- * Response Lenses     , garsTemporaryCredential-    , garsStatus+    , garsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -116,7 +116,7 @@ -- /See:/ 'grantAccessResponse' smart constructor. data GrantAccessResponse = GrantAccessResponse'     { _garsTemporaryCredential :: !(Maybe TemporaryCredential)-    , _garsStatus              :: !Int+    , _garsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GrantAccessResponse' with the minimum fields required to make a request.@@ -125,14 +125,14 @@ -- -- * 'garsTemporaryCredential' ----- * 'garsStatus'+-- * 'garsResponseStatus' grantAccessResponse-    :: Int -- ^ 'garsStatus'+    :: Int -- ^ 'garsResponseStatus'     -> GrantAccessResponse-grantAccessResponse pStatus_ =+grantAccessResponse pResponseStatus_ =     GrantAccessResponse'     { _garsTemporaryCredential = Nothing-    , _garsStatus = pStatus_+    , _garsResponseStatus = pResponseStatus_     }  -- | A 'TemporaryCredential' object that contains the data needed to log in@@ -142,5 +142,5 @@ garsTemporaryCredential = lens _garsTemporaryCredential (\ s a -> s{_garsTemporaryCredential = a});  -- | The response status code.-garsStatus :: Lens' GrantAccessResponse Int-garsStatus = lens _garsStatus (\ s a -> s{_garsStatus = a});+garsResponseStatus :: Lens' GrantAccessResponse Int+garsResponseStatus = lens _garsResponseStatus (\ s a -> s{_garsResponseStatus = a});

@@ -44,7 +44,7 @@     , RegisterEcsClusterResponse     -- * Response Lenses     , recrsEcsClusterARN-    , recrsStatus+    , recrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -121,8 +121,8 @@ -- -- /See:/ 'registerEcsClusterResponse' smart constructor. data RegisterEcsClusterResponse = RegisterEcsClusterResponse'-    { _recrsEcsClusterARN :: !(Maybe Text)-    , _recrsStatus        :: !Int+    { _recrsEcsClusterARN  :: !(Maybe Text)+    , _recrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RegisterEcsClusterResponse' with the minimum fields required to make a request.@@ -131,14 +131,14 @@ -- -- * 'recrsEcsClusterARN' ----- * 'recrsStatus'+-- * 'recrsResponseStatus' registerEcsClusterResponse-    :: Int -- ^ 'recrsStatus'+    :: Int -- ^ 'recrsResponseStatus'     -> RegisterEcsClusterResponse-registerEcsClusterResponse pStatus_ =+registerEcsClusterResponse pResponseStatus_ =     RegisterEcsClusterResponse'     { _recrsEcsClusterARN = Nothing-    , _recrsStatus = pStatus_+    , _recrsResponseStatus = pResponseStatus_     }  -- | The cluster\'s ARN.@@ -146,5 +146,5 @@ recrsEcsClusterARN = lens _recrsEcsClusterARN (\ s a -> s{_recrsEcsClusterARN = a});  -- | The response status code.-recrsStatus :: Lens' RegisterEcsClusterResponse Int-recrsStatus = lens _recrsStatus (\ s a -> s{_recrsStatus = a});+recrsResponseStatus :: Lens' RegisterEcsClusterResponse Int+recrsResponseStatus = lens _recrsResponseStatus (\ s a -> s{_recrsResponseStatus = a});

@@ -45,7 +45,7 @@     , RegisterElasticIPResponse     -- * Response Lenses     , reirsElasticIP-    , reirsStatus+    , reirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -121,8 +121,8 @@ -- -- /See:/ 'registerElasticIPResponse' smart constructor. data RegisterElasticIPResponse = RegisterElasticIPResponse'-    { _reirsElasticIP :: !(Maybe Text)-    , _reirsStatus    :: !Int+    { _reirsElasticIP      :: !(Maybe Text)+    , _reirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RegisterElasticIPResponse' with the minimum fields required to make a request.@@ -131,14 +131,14 @@ -- -- * 'reirsElasticIP' ----- * 'reirsStatus'+-- * 'reirsResponseStatus' registerElasticIPResponse-    :: Int -- ^ 'reirsStatus'+    :: Int -- ^ 'reirsResponseStatus'     -> RegisterElasticIPResponse-registerElasticIPResponse pStatus_ =+registerElasticIPResponse pResponseStatus_ =     RegisterElasticIPResponse'     { _reirsElasticIP = Nothing-    , _reirsStatus = pStatus_+    , _reirsResponseStatus = pResponseStatus_     }  -- | The Elastic IP address.@@ -146,5 +146,5 @@ reirsElasticIP = lens _reirsElasticIP (\ s a -> s{_reirsElasticIP = a});  -- | The response status code.-reirsStatus :: Lens' RegisterElasticIPResponse Int-reirsStatus = lens _reirsStatus (\ s a -> s{_reirsStatus = a});+reirsResponseStatus :: Lens' RegisterElasticIPResponse Int+reirsResponseStatus = lens _reirsResponseStatus (\ s a -> s{_reirsResponseStatus = a});

@@ -55,7 +55,7 @@     , RegisterInstanceResponse     -- * Response Lenses     , rirsInstanceId-    , rirsStatus+    , rirsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -176,8 +176,8 @@ -- -- /See:/ 'registerInstanceResponse' smart constructor. data RegisterInstanceResponse = RegisterInstanceResponse'-    { _rirsInstanceId :: !(Maybe Text)-    , _rirsStatus     :: !Int+    { _rirsInstanceId     :: !(Maybe Text)+    , _rirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RegisterInstanceResponse' with the minimum fields required to make a request.@@ -186,14 +186,14 @@ -- -- * 'rirsInstanceId' ----- * 'rirsStatus'+-- * 'rirsResponseStatus' registerInstanceResponse-    :: Int -- ^ 'rirsStatus'+    :: Int -- ^ 'rirsResponseStatus'     -> RegisterInstanceResponse-registerInstanceResponse pStatus_ =+registerInstanceResponse pResponseStatus_ =     RegisterInstanceResponse'     { _rirsInstanceId = Nothing-    , _rirsStatus = pStatus_+    , _rirsResponseStatus = pResponseStatus_     }  -- | The registered instance\'s AWS OpsWorks ID.@@ -201,5 +201,5 @@ rirsInstanceId = lens _rirsInstanceId (\ s a -> s{_rirsInstanceId = a});  -- | The response status code.-rirsStatus :: Lens' RegisterInstanceResponse Int-rirsStatus = lens _rirsStatus (\ s a -> s{_rirsStatus = a});+rirsResponseStatus :: Lens' RegisterInstanceResponse Int+rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a});

@@ -45,7 +45,7 @@     , RegisterVolumeResponse     -- * Response Lenses     , rvrsVolumeId-    , rvrsStatus+    , rvrsResponseStatus     ) where  import           Network.AWS.OpsWorks.Types@@ -119,8 +119,8 @@ -- -- /See:/ 'registerVolumeResponse' smart constructor. data RegisterVolumeResponse = RegisterVolumeResponse'-    { _rvrsVolumeId :: !(Maybe Text)-    , _rvrsStatus   :: !Int+    { _rvrsVolumeId       :: !(Maybe Text)+    , _rvrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'RegisterVolumeResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'rvrsVolumeId' ----- * 'rvrsStatus'+-- * 'rvrsResponseStatus' registerVolumeResponse-    :: Int -- ^ 'rvrsStatus'+    :: Int -- ^ 'rvrsResponseStatus'     -> RegisterVolumeResponse-registerVolumeResponse pStatus_ =+registerVolumeResponse pResponseStatus_ =     RegisterVolumeResponse'     { _rvrsVolumeId = Nothing-    , _rvrsStatus = pStatus_+    , _rvrsResponseStatus = pResponseStatus_     }  -- | The volume ID.@@ -144,5 +144,5 @@ rvrsVolumeId = lens _rvrsVolumeId (\ s a -> s{_rvrsVolumeId = a});  -- | The response status code.-rvrsStatus :: Lens' RegisterVolumeResponse Int-rvrsStatus = lens _rvrsStatus (\ s a -> s{_rvrsStatus = a});+rvrsResponseStatus :: Lens' RegisterVolumeResponse Int+rvrsResponseStatus = lens _rvrsResponseStatus (\ s a -> s{_rvrsResponseStatus = a});

@@ -65,18 +65,18 @@     , App     , app     , appSSLConfiguration-    , appShortname+    , appEnvironment     , appEnableSSL     , appCreatedAt-    , appEnvironment+    , appShortname     , appDataSources-    , appAppId     , appAppSource-    , appName+    , appAppId     , appAttributes+    , appName     , appType-    , appDomains     , appStackId+    , appDomains     , appDescription      -- * AutoScalingThresholds@@ -107,8 +107,8 @@     -- * Command     , Command     , command-    , cInstanceId     , cDeploymentId+    , cInstanceId     , cStatus     , cLogURL     , cCreatedAt@@ -181,8 +181,8 @@     , elbAvailabilityZones     , elbRegion     , elbElasticLoadBalancerName-    , elbEC2InstanceIds     , elbStackId+    , elbEC2InstanceIds     , elbLayerId     , elbDNSName @@ -196,29 +196,29 @@     -- * Instance     , Instance     , instance'+    , iPrivateDNS+    , iReportedAgentVersion     , iInstanceId+    , iStatus     , iPrivateIP     , iInstallUpdatesOnBoot-    , iReportedAgentVersion-    , iStatus-    , iPrivateDNS     , iVirtualizationType-    , iSecurityGroupIds-    , iSSHHostRsaKeyFingerprint     , iInstanceProfileARN     , iPlatform     , iHostname+    , iSSHHostRsaKeyFingerprint+    , iSecurityGroupIds     , iEcsClusterARN     , iCreatedAt-    , iSSHKeyName     , iEC2InstanceId+    , iSSHKeyName     , iAgentVersion     , iRootDeviceVolumeId     , iSubnetId-    , iInstanceType     , iInfrastructureClass-    , iEBSOptimized     , iSSHHostDsaKeyFingerprint+    , iInstanceType+    , iEBSOptimized     , iElasticIP     , iOS     , iAvailabilityZone@@ -227,14 +227,14 @@     , iLayerIds     , iArchitecture     , iPublicDNS-    , iPublicIP     , iAMIId+    , iPublicIP     , iReportedOS-    , iStackId     , iRegisteredBy-    , iBlockDeviceMappings-    , iEcsContainerInstanceARN+    , iStackId     , iRootDeviceType+    , iEcsContainerInstanceARN+    , iBlockDeviceMappings      -- * InstanceIdentity     , InstanceIdentity@@ -249,9 +249,9 @@     , icPending     , icOnline     , icUnassigning-    , icRequested-    , icRunningSetup     , icDeregistering+    , icRunningSetup+    , icRequested     , icBooting     , icStopped     , icRebooting@@ -269,22 +269,22 @@     , Layer     , layer     , lCustomInstanceProfileARN-    , lInstallUpdatesOnBoot     , lCustomSecurityGroupIds+    , lInstallUpdatesOnBoot     , lLifecycleEventConfiguration-    , lShortname     , lCreatedAt+    , lShortname     , lDefaultRecipes     , lCustomRecipes-    , lVolumeConfigurations     , lCustomJSON+    , lVolumeConfigurations     , lEnableAutoHealing     , lPackages-    , lName     , lAttributes+    , lName     , lAutoAssignPublicIPs-    , lUseEBSOptimizedInstances     , lType+    , lUseEBSOptimizedInstances     , lStackId     , lLayerId     , lDefaultSecurityGroupNames@@ -317,13 +317,13 @@     , rAIdArray     , raiaInstanceId     , raiaSize-    , raiaCreatedAt     , raiaIOPS+    , raiaCreatedAt     , raiaRAIdLevel     , raiaDevice     , raiaNumberOfDisks-    , raiaName     , raiaAvailabilityZone+    , raiaName     , raiaRAIdArrayId     , raiaVolumeType     , raiaStackId@@ -332,8 +332,8 @@     -- * RDSDBInstance     , RDSDBInstance     , rdsDBInstance-    , rdiDBUser     , rdiRDSDBInstanceARN+    , rdiDBUser     , rdiMissingOnRDS     , rdiEngine     , rdiAddress@@ -346,8 +346,8 @@     , Recipes     , recipes     , rSetup-    , rUndeploy     , rShutdown+    , rUndeploy     , rConfigure     , rDeploy @@ -368,8 +368,8 @@     -- * SelfUserProfile     , SelfUserProfile     , selfUserProfile-    , supSSHUsername     , supSSHPublicKey+    , supSSHUsername     , supIAMUserARN     , supName @@ -380,8 +380,8 @@     , seCreatedAt     , seServiceErrorId     , seType-    , seMessage     , seStackId+    , seMessage      -- * ShutdownEventConfiguration     , ShutdownEventConfiguration@@ -404,20 +404,20 @@     , stack     , sDefaultInstanceProfileARN     , sServiceRoleARN-    , sARN     , sDefaultRootDeviceType+    , sARN     , sCreatedAt-    , sChefConfiguration     , sVPCId+    , sChefConfiguration     , sAgentVersion     , sDefaultSSHKeyName     , sCustomJSON     , sCustomCookbooksSource     , sDefaultAvailabilityZone+    , sAttributes     , sName-    , sUseOpsworksSecurityGroups     , sDefaultOS-    , sAttributes+    , sUseOpsworksSecurityGroups     , sUseCustomCookbooks     , sDefaultSubnetId     , sRegion@@ -458,9 +458,9 @@     -- * UserProfile     , UserProfile     , userProfile-    , upSSHUsername-    , upSSHPublicKey     , upAllowSelfManagement+    , upSSHPublicKey+    , upSSHUsername     , upIAMUserARN     , upName @@ -472,8 +472,8 @@     , vSize     , vIOPS     , vDevice-    , vName     , vAvailabilityZone+    , vName     , vRAIdArrayId     , vVolumeId     , vRegion

@@ -63,18 +63,18 @@ -- /See:/ 'app' smart constructor. data App = App'     { _appSSLConfiguration :: !(Maybe SSLConfiguration)-    , _appShortname        :: !(Maybe Text)+    , _appEnvironment      :: !(Maybe [EnvironmentVariable])     , _appEnableSSL        :: !(Maybe Bool)     , _appCreatedAt        :: !(Maybe Text)-    , _appEnvironment      :: !(Maybe [EnvironmentVariable])+    , _appShortname        :: !(Maybe Text)     , _appDataSources      :: !(Maybe [DataSource])-    , _appAppId            :: !(Maybe Text)     , _appAppSource        :: !(Maybe Source)-    , _appName             :: !(Maybe Text)+    , _appAppId            :: !(Maybe Text)     , _appAttributes       :: !(Maybe (Map AppAttributesKeys Text))+    , _appName             :: !(Maybe Text)     , _appType             :: !(Maybe AppType)-    , _appDomains          :: !(Maybe [Text])     , _appStackId          :: !(Maybe Text)+    , _appDomains          :: !(Maybe [Text])     , _appDescription      :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -84,48 +84,48 @@ -- -- * 'appSSLConfiguration' ----- * 'appShortname'+-- * 'appEnvironment' -- -- * 'appEnableSSL' -- -- * 'appCreatedAt' ----- * 'appEnvironment'+-- * 'appShortname' -- -- * 'appDataSources' ----- * 'appAppId'--- -- * 'appAppSource' ----- * 'appName'+-- * 'appAppId' -- -- * 'appAttributes' ----- * 'appType'+-- * 'appName' ----- * 'appDomains'+-- * 'appType' -- -- * 'appStackId' --+-- * 'appDomains'+-- -- * 'appDescription' app     :: App app =     App'     { _appSSLConfiguration = Nothing-    , _appShortname = Nothing+    , _appEnvironment = Nothing     , _appEnableSSL = Nothing     , _appCreatedAt = Nothing-    , _appEnvironment = Nothing+    , _appShortname = Nothing     , _appDataSources = Nothing-    , _appAppId = Nothing     , _appAppSource = Nothing-    , _appName = Nothing+    , _appAppId = Nothing     , _appAttributes = Nothing+    , _appName = Nothing     , _appType = Nothing-    , _appDomains = Nothing     , _appStackId = Nothing+    , _appDomains = Nothing     , _appDescription = Nothing     } @@ -133,18 +133,6 @@ appSSLConfiguration :: Lens' App (Maybe SSLConfiguration) appSSLConfiguration = lens _appSSLConfiguration (\ s a -> s{_appSSLConfiguration = a}); --- | The app\'s short name.-appShortname :: Lens' App (Maybe Text)-appShortname = lens _appShortname (\ s a -> s{_appShortname = a});---- | Whether to enable SSL for the app.-appEnableSSL :: Lens' App (Maybe Bool)-appEnableSSL = lens _appEnableSSL (\ s a -> s{_appEnableSSL = a});---- | When the app was created.-appCreatedAt :: Lens' App (Maybe Text)-appCreatedAt = lens _appCreatedAt (\ s a -> s{_appCreatedAt = a});- -- | An array of 'EnvironmentVariable' objects that specify environment -- variables to be associated with the app. After you deploy the app, these -- variables are defined on the associated app server instances. For more@@ -160,39 +148,51 @@ appEnvironment :: Lens' App [EnvironmentVariable] appEnvironment = lens _appEnvironment (\ s a -> s{_appEnvironment = a}) . _Default . _Coerce; +-- | Whether to enable SSL for the app.+appEnableSSL :: Lens' App (Maybe Bool)+appEnableSSL = lens _appEnableSSL (\ s a -> s{_appEnableSSL = a});++-- | When the app was created.+appCreatedAt :: Lens' App (Maybe Text)+appCreatedAt = lens _appCreatedAt (\ s a -> s{_appCreatedAt = a});++-- | The app\'s short name.+appShortname :: Lens' App (Maybe Text)+appShortname = lens _appShortname (\ s a -> s{_appShortname = a});+ -- | The app\'s data sources. appDataSources :: Lens' App [DataSource] appDataSources = lens _appDataSources (\ s a -> s{_appDataSources = a}) . _Default . _Coerce; --- | The app ID.-appAppId :: Lens' App (Maybe Text)-appAppId = lens _appAppId (\ s a -> s{_appAppId = a});- -- | A 'Source' object that describes the app repository. appAppSource :: Lens' App (Maybe Source) appAppSource = lens _appAppSource (\ s a -> s{_appAppSource = a}); --- | The app name.-appName :: Lens' App (Maybe Text)-appName = lens _appName (\ s a -> s{_appName = a});+-- | The app ID.+appAppId :: Lens' App (Maybe Text)+appAppId = lens _appAppId (\ s a -> s{_appAppId = a});  -- | The stack attributes. appAttributes :: Lens' App (HashMap AppAttributesKeys Text) appAttributes = lens _appAttributes (\ s a -> s{_appAttributes = a}) . _Default . _Map; +-- | The app name.+appName :: Lens' App (Maybe Text)+appName = lens _appName (\ s a -> s{_appName = a});+ -- | The app type. appType :: Lens' App (Maybe AppType) appType = lens _appType (\ s a -> s{_appType = a}); +-- | The app stack ID.+appStackId :: Lens' App (Maybe Text)+appStackId = lens _appStackId (\ s a -> s{_appStackId = a});+ -- | The app vhost settings with multiple domains separated by commas. For -- example: '\'www.example.com, example.com\'' appDomains :: Lens' App [Text] appDomains = lens _appDomains (\ s a -> s{_appDomains = a}) . _Default . _Coerce; --- | The app stack ID.-appStackId :: Lens' App (Maybe Text)-appStackId = lens _appStackId (\ s a -> s{_appStackId = a});- -- | A description of the app. appDescription :: Lens' App (Maybe Text) appDescription = lens _appDescription (\ s a -> s{_appDescription = a});@@ -202,18 +202,19 @@           = withObject "App"               (\ x ->                  App' <$>-                   (x .:? "SslConfiguration") <*> (x .:? "Shortname")+                   (x .:? "SslConfiguration") <*>+                     (x .:? "Environment" .!= mempty)                      <*> (x .:? "EnableSsl")                      <*> (x .:? "CreatedAt")-                     <*> (x .:? "Environment" .!= mempty)+                     <*> (x .:? "Shortname")                      <*> (x .:? "DataSources" .!= mempty)-                     <*> (x .:? "AppId")                      <*> (x .:? "AppSource")-                     <*> (x .:? "Name")+                     <*> (x .:? "AppId")                      <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "Name")                      <*> (x .:? "Type")-                     <*> (x .:? "Domains" .!= mempty)                      <*> (x .:? "StackId")+                     <*> (x .:? "Domains" .!= mempty)                      <*> (x .:? "Description"))  -- | Describes a load-based auto scaling upscaling or downscaling threshold@@ -456,8 +457,8 @@ -- -- /See:/ 'command' smart constructor. data Command = Command'-    { _cInstanceId     :: !(Maybe Text)-    , _cDeploymentId   :: !(Maybe Text)+    { _cDeploymentId   :: !(Maybe Text)+    , _cInstanceId     :: !(Maybe Text)     , _cStatus         :: !(Maybe Text)     , _cLogURL         :: !(Maybe Text)     , _cCreatedAt      :: !(Maybe Text)@@ -472,10 +473,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cInstanceId'--- -- * 'cDeploymentId' --+-- * 'cInstanceId'+-- -- * 'cStatus' -- -- * 'cLogURL'@@ -495,8 +496,8 @@     :: Command command =     Command'-    { _cInstanceId = Nothing-    , _cDeploymentId = Nothing+    { _cDeploymentId = Nothing+    , _cInstanceId = Nothing     , _cStatus = Nothing     , _cLogURL = Nothing     , _cCreatedAt = Nothing@@ -507,14 +508,14 @@     , _cAcknowledgedAt = Nothing     } --- | The ID of the instance where the command was executed.-cInstanceId :: Lens' Command (Maybe Text)-cInstanceId = lens _cInstanceId (\ s a -> s{_cInstanceId = a});- -- | The command deployment ID. cDeploymentId :: Lens' Command (Maybe Text) cDeploymentId = lens _cDeploymentId (\ s a -> s{_cDeploymentId = a}); +-- | The ID of the instance where the command was executed.+cInstanceId :: Lens' Command (Maybe Text)+cInstanceId = lens _cInstanceId (\ s a -> s{_cInstanceId = a});+ -- | The command status: -- -- -   failed@@ -568,7 +569,7 @@           = withObject "Command"               (\ x ->                  Command' <$>-                   (x .:? "InstanceId") <*> (x .:? "DeploymentId") <*>+                   (x .:? "DeploymentId") <*> (x .:? "InstanceId") <*>                      (x .:? "Status")                      <*> (x .:? "LogUrl")                      <*> (x .:? "CreatedAt")@@ -1082,8 +1083,8 @@     , _elbAvailabilityZones       :: !(Maybe [Text])     , _elbRegion                  :: !(Maybe Text)     , _elbElasticLoadBalancerName :: !(Maybe Text)-    , _elbEC2InstanceIds          :: !(Maybe [Text])     , _elbStackId                 :: !(Maybe Text)+    , _elbEC2InstanceIds          :: !(Maybe [Text])     , _elbLayerId                 :: !(Maybe Text)     , _elbDNSName                 :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -1102,10 +1103,10 @@ -- -- * 'elbElasticLoadBalancerName' ----- * 'elbEC2InstanceIds'--- -- * 'elbStackId' --+-- * 'elbEC2InstanceIds'+-- -- * 'elbLayerId' -- -- * 'elbDNSName'@@ -1118,8 +1119,8 @@     , _elbAvailabilityZones = Nothing     , _elbRegion = Nothing     , _elbElasticLoadBalancerName = Nothing-    , _elbEC2InstanceIds = Nothing     , _elbStackId = Nothing+    , _elbEC2InstanceIds = Nothing     , _elbLayerId = Nothing     , _elbDNSName = Nothing     }@@ -1144,15 +1145,15 @@ elbElasticLoadBalancerName :: Lens' ElasticLoadBalancer (Maybe Text) elbElasticLoadBalancerName = lens _elbElasticLoadBalancerName (\ s a -> s{_elbElasticLoadBalancerName = a}); +-- | The ID of the stack that the instance is associated with.+elbStackId :: Lens' ElasticLoadBalancer (Maybe Text)+elbStackId = lens _elbStackId (\ s a -> s{_elbStackId = a});+ -- | A list of the EC2 instances that the Elastic Load Balancing instance is -- managing traffic for. elbEC2InstanceIds :: Lens' ElasticLoadBalancer [Text] elbEC2InstanceIds = lens _elbEC2InstanceIds (\ s a -> s{_elbEC2InstanceIds = a}) . _Default . _Coerce; --- | The ID of the stack that the instance is associated with.-elbStackId :: Lens' ElasticLoadBalancer (Maybe Text)-elbStackId = lens _elbStackId (\ s a -> s{_elbStackId = a});- -- | The ID of the layer that the instance is attached to. elbLayerId :: Lens' ElasticLoadBalancer (Maybe Text) elbLayerId = lens _elbLayerId (\ s a -> s{_elbLayerId = a});@@ -1170,8 +1171,8 @@                      <*> (x .:? "AvailabilityZones" .!= mempty)                      <*> (x .:? "Region")                      <*> (x .:? "ElasticLoadBalancerName")-                     <*> (x .:? "Ec2InstanceIds" .!= mempty)                      <*> (x .:? "StackId")+                     <*> (x .:? "Ec2InstanceIds" .!= mempty)                      <*> (x .:? "LayerId")                      <*> (x .:? "DnsName")) @@ -1242,29 +1243,29 @@ -- -- /See:/ 'instance'' smart constructor. data Instance = Instance'-    { _iInstanceId               :: !(Maybe Text)-    , _iPrivateIP                :: !(Maybe Text)-    , _iInstallUpdatesOnBoot     :: !(Maybe Bool)+    { _iPrivateDNS               :: !(Maybe Text)     , _iReportedAgentVersion     :: !(Maybe Text)+    , _iInstanceId               :: !(Maybe Text)     , _iStatus                   :: !(Maybe Text)-    , _iPrivateDNS               :: !(Maybe Text)+    , _iPrivateIP                :: !(Maybe Text)+    , _iInstallUpdatesOnBoot     :: !(Maybe Bool)     , _iVirtualizationType       :: !(Maybe VirtualizationType)-    , _iSecurityGroupIds         :: !(Maybe [Text])-    , _iSSHHostRsaKeyFingerprint :: !(Maybe Text)     , _iInstanceProfileARN       :: !(Maybe Text)     , _iPlatform                 :: !(Maybe Text)     , _iHostname                 :: !(Maybe Text)+    , _iSSHHostRsaKeyFingerprint :: !(Maybe Text)+    , _iSecurityGroupIds         :: !(Maybe [Text])     , _iEcsClusterARN            :: !(Maybe Text)     , _iCreatedAt                :: !(Maybe Text)-    , _iSSHKeyName               :: !(Maybe Text)     , _iEC2InstanceId            :: !(Maybe Text)+    , _iSSHKeyName               :: !(Maybe Text)     , _iAgentVersion             :: !(Maybe Text)     , _iRootDeviceVolumeId       :: !(Maybe Text)     , _iSubnetId                 :: !(Maybe Text)-    , _iInstanceType             :: !(Maybe Text)     , _iInfrastructureClass      :: !(Maybe Text)-    , _iEBSOptimized             :: !(Maybe Bool)     , _iSSHHostDsaKeyFingerprint :: !(Maybe Text)+    , _iInstanceType             :: !(Maybe Text)+    , _iEBSOptimized             :: !(Maybe Bool)     , _iElasticIP                :: !(Maybe Text)     , _iOS                       :: !(Maybe Text)     , _iAvailabilityZone         :: !(Maybe Text)@@ -1273,37 +1274,33 @@     , _iLayerIds                 :: !(Maybe [Text])     , _iArchitecture             :: !(Maybe Architecture)     , _iPublicDNS                :: !(Maybe Text)-    , _iPublicIP                 :: !(Maybe Text)     , _iAMIId                    :: !(Maybe Text)+    , _iPublicIP                 :: !(Maybe Text)     , _iReportedOS               :: !(Maybe ReportedOS)-    , _iStackId                  :: !(Maybe Text)     , _iRegisteredBy             :: !(Maybe Text)-    , _iBlockDeviceMappings      :: !(Maybe [BlockDeviceMapping])-    , _iEcsContainerInstanceARN  :: !(Maybe Text)+    , _iStackId                  :: !(Maybe Text)     , _iRootDeviceType           :: !(Maybe RootDeviceType)+    , _iEcsContainerInstanceARN  :: !(Maybe Text)+    , _iBlockDeviceMappings      :: !(Maybe [BlockDeviceMapping])     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'Instance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iInstanceId'------ * 'iPrivateIP'------ * 'iInstallUpdatesOnBoot'+-- * 'iPrivateDNS' -- -- * 'iReportedAgentVersion' ----- * 'iStatus'+-- * 'iInstanceId' ----- * 'iPrivateDNS'+-- * 'iStatus' ----- * 'iVirtualizationType'+-- * 'iPrivateIP' ----- * 'iSecurityGroupIds'+-- * 'iInstallUpdatesOnBoot' ----- * 'iSSHHostRsaKeyFingerprint'+-- * 'iVirtualizationType' -- -- * 'iInstanceProfileARN' --@@ -1311,28 +1308,32 @@ -- -- * 'iHostname' --+-- * 'iSSHHostRsaKeyFingerprint'+--+-- * 'iSecurityGroupIds'+-- -- * 'iEcsClusterARN' -- -- * 'iCreatedAt' ----- * 'iSSHKeyName'--- -- * 'iEC2InstanceId' --+-- * 'iSSHKeyName'+-- -- * 'iAgentVersion' -- -- * 'iRootDeviceVolumeId' -- -- * 'iSubnetId' ----- * 'iInstanceType'--- -- * 'iInfrastructureClass' ----- * 'iEBSOptimized'--- -- * 'iSSHHostDsaKeyFingerprint' --+-- * 'iInstanceType'+--+-- * 'iEBSOptimized'+-- -- * 'iElasticIP' -- -- * 'iOS'@@ -1349,48 +1350,48 @@ -- -- * 'iPublicDNS' ----- * 'iPublicIP'--- -- * 'iAMIId' ----- * 'iReportedOS'+-- * 'iPublicIP' ----- * 'iStackId'+-- * 'iReportedOS' -- -- * 'iRegisteredBy' ----- * 'iBlockDeviceMappings'+-- * 'iStackId' --+-- * 'iRootDeviceType'+-- -- * 'iEcsContainerInstanceARN' ----- * 'iRootDeviceType'+-- * 'iBlockDeviceMappings' instance'     :: Instance instance' =     Instance'-    { _iInstanceId = Nothing-    , _iPrivateIP = Nothing-    , _iInstallUpdatesOnBoot = Nothing+    { _iPrivateDNS = Nothing     , _iReportedAgentVersion = Nothing+    , _iInstanceId = Nothing     , _iStatus = Nothing-    , _iPrivateDNS = Nothing+    , _iPrivateIP = Nothing+    , _iInstallUpdatesOnBoot = Nothing     , _iVirtualizationType = Nothing-    , _iSecurityGroupIds = Nothing-    , _iSSHHostRsaKeyFingerprint = Nothing     , _iInstanceProfileARN = Nothing     , _iPlatform = Nothing     , _iHostname = Nothing+    , _iSSHHostRsaKeyFingerprint = Nothing+    , _iSecurityGroupIds = Nothing     , _iEcsClusterARN = Nothing     , _iCreatedAt = Nothing-    , _iSSHKeyName = Nothing     , _iEC2InstanceId = Nothing+    , _iSSHKeyName = Nothing     , _iAgentVersion = Nothing     , _iRootDeviceVolumeId = Nothing     , _iSubnetId = Nothing-    , _iInstanceType = Nothing     , _iInfrastructureClass = Nothing-    , _iEBSOptimized = Nothing     , _iSSHHostDsaKeyFingerprint = Nothing+    , _iInstanceType = Nothing+    , _iEBSOptimized = Nothing     , _iElasticIP = Nothing     , _iOS = Nothing     , _iAvailabilityZone = Nothing@@ -1399,40 +1400,28 @@     , _iLayerIds = Nothing     , _iArchitecture = Nothing     , _iPublicDNS = Nothing-    , _iPublicIP = Nothing     , _iAMIId = Nothing+    , _iPublicIP = Nothing     , _iReportedOS = Nothing-    , _iStackId = Nothing     , _iRegisteredBy = Nothing-    , _iBlockDeviceMappings = Nothing-    , _iEcsContainerInstanceARN = Nothing+    , _iStackId = Nothing     , _iRootDeviceType = Nothing+    , _iEcsContainerInstanceARN = Nothing+    , _iBlockDeviceMappings = Nothing     } --- | The instance ID.-iInstanceId :: Lens' Instance (Maybe Text)-iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});---- | The instance\'s private IP address.-iPrivateIP :: Lens' Instance (Maybe Text)-iPrivateIP = lens _iPrivateIP (\ s a -> s{_iPrivateIP = a});---- | Whether to install operating system and package updates when the--- instance boots. The default value is 'true'. If this value is set to--- 'false', you must then update your instances manually by using--- CreateDeployment to run the 'update_dependencies' stack command or by--- manually running 'yum' (Amazon Linux) or 'apt-get' (Ubuntu) on the--- instances.------ We strongly recommend using the default value of 'true', to ensure that--- your instances have the latest security updates.-iInstallUpdatesOnBoot :: Lens' Instance (Maybe Bool)-iInstallUpdatesOnBoot = lens _iInstallUpdatesOnBoot (\ s a -> s{_iInstallUpdatesOnBoot = a});+-- | The The instance\'s private DNS name.+iPrivateDNS :: Lens' Instance (Maybe Text)+iPrivateDNS = lens _iPrivateDNS (\ s a -> s{_iPrivateDNS = a});  -- | The instance\'s reported AWS OpsWorks agent version. iReportedAgentVersion :: Lens' Instance (Maybe Text) iReportedAgentVersion = lens _iReportedAgentVersion (\ s a -> s{_iReportedAgentVersion = a}); +-- | The instance ID.+iInstanceId :: Lens' Instance (Maybe Text)+iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a});+ -- | The instance status: -- -- -   'booting'@@ -1452,22 +1441,26 @@ iStatus :: Lens' Instance (Maybe Text) iStatus = lens _iStatus (\ s a -> s{_iStatus = a}); --- | The The instance\'s private DNS name.-iPrivateDNS :: Lens' Instance (Maybe Text)-iPrivateDNS = lens _iPrivateDNS (\ s a -> s{_iPrivateDNS = a});+-- | The instance\'s private IP address.+iPrivateIP :: Lens' Instance (Maybe Text)+iPrivateIP = lens _iPrivateIP (\ s a -> s{_iPrivateIP = a}); +-- | Whether to install operating system and package updates when the+-- instance boots. The default value is 'true'. If this value is set to+-- 'false', you must then update your instances manually by using+-- CreateDeployment to run the 'update_dependencies' stack command or by+-- manually running 'yum' (Amazon Linux) or 'apt-get' (Ubuntu) on the+-- instances.+--+-- We strongly recommend using the default value of 'true', to ensure that+-- your instances have the latest security updates.+iInstallUpdatesOnBoot :: Lens' Instance (Maybe Bool)+iInstallUpdatesOnBoot = lens _iInstallUpdatesOnBoot (\ s a -> s{_iInstallUpdatesOnBoot = a});+ -- | The instance\'s virtualization type: 'paravirtual' or 'hvm'. iVirtualizationType :: Lens' Instance (Maybe VirtualizationType) iVirtualizationType = lens _iVirtualizationType (\ s a -> s{_iVirtualizationType = a}); --- | An array containing the instance security group IDs.-iSecurityGroupIds :: Lens' Instance [Text]-iSecurityGroupIds = lens _iSecurityGroupIds (\ s a -> s{_iSecurityGroupIds = a}) . _Default . _Coerce;---- | The SSH key\'s RSA fingerprint.-iSSHHostRsaKeyFingerprint :: Lens' Instance (Maybe Text)-iSSHHostRsaKeyFingerprint = lens _iSSHHostRsaKeyFingerprint (\ s a -> s{_iSSHHostRsaKeyFingerprint = a});- -- | The ARN of the instance\'s IAM profile. For more information about IAM -- ARNs, see -- <http://docs.aws.amazon.com/IAM/latest/UserGuide/Using_Identifiers.html Using Identifiers>.@@ -1482,6 +1475,14 @@ iHostname :: Lens' Instance (Maybe Text) iHostname = lens _iHostname (\ s a -> s{_iHostname = a}); +-- | The SSH key\'s RSA fingerprint.+iSSHHostRsaKeyFingerprint :: Lens' Instance (Maybe Text)+iSSHHostRsaKeyFingerprint = lens _iSSHHostRsaKeyFingerprint (\ s a -> s{_iSSHHostRsaKeyFingerprint = a});++-- | An array containing the instance security group IDs.+iSecurityGroupIds :: Lens' Instance [Text]+iSecurityGroupIds = lens _iSecurityGroupIds (\ s a -> s{_iSecurityGroupIds = a}) . _Default . _Coerce;+ -- | For container instances, the Amazon ECS cluster\'s ARN. iEcsClusterARN :: Lens' Instance (Maybe Text) iEcsClusterARN = lens _iEcsClusterARN (\ s a -> s{_iEcsClusterARN = a});@@ -1490,14 +1491,14 @@ iCreatedAt :: Lens' Instance (Maybe Text) iCreatedAt = lens _iCreatedAt (\ s a -> s{_iCreatedAt = a}); --- | The instance\'s Amazon EC2 key-pair name.-iSSHKeyName :: Lens' Instance (Maybe Text)-iSSHKeyName = lens _iSSHKeyName (\ s a -> s{_iSSHKeyName = a});- -- | The ID of the associated Amazon EC2 instance. iEC2InstanceId :: Lens' Instance (Maybe Text) iEC2InstanceId = lens _iEC2InstanceId (\ s a -> s{_iEC2InstanceId = a}); +-- | The instance\'s Amazon EC2 key-pair name.+iSSHKeyName :: Lens' Instance (Maybe Text)+iSSHKeyName = lens _iSSHKeyName (\ s a -> s{_iSSHKeyName = a});+ -- | The agent version. This parameter is set to 'INHERIT' if the instance -- inherits the default stack setting or to a a version number for a fixed -- agent version.@@ -1513,23 +1514,23 @@ iSubnetId :: Lens' Instance (Maybe Text) iSubnetId = lens _iSubnetId (\ s a -> s{_iSubnetId = a}); --- | The instance type, such as 't2.micro'.-iInstanceType :: Lens' Instance (Maybe Text)-iInstanceType = lens _iInstanceType (\ s a -> s{_iInstanceType = a});- -- | For registered instances, the infrastructure class: 'ec2' or -- 'on-premises'. iInfrastructureClass :: Lens' Instance (Maybe Text) iInfrastructureClass = lens _iInfrastructureClass (\ s a -> s{_iInfrastructureClass = a}); --- | Whether this is an Amazon EBS-optimized instance.-iEBSOptimized :: Lens' Instance (Maybe Bool)-iEBSOptimized = lens _iEBSOptimized (\ s a -> s{_iEBSOptimized = a});- -- | The SSH key\'s Deep Security Agent (DSA) fingerprint. iSSHHostDsaKeyFingerprint :: Lens' Instance (Maybe Text) iSSHHostDsaKeyFingerprint = lens _iSSHHostDsaKeyFingerprint (\ s a -> s{_iSSHHostDsaKeyFingerprint = a}); +-- | The instance type, such as 't2.micro'.+iInstanceType :: Lens' Instance (Maybe Text)+iInstanceType = lens _iInstanceType (\ s a -> s{_iInstanceType = a});++-- | Whether this is an Amazon EBS-optimized instance.+iEBSOptimized :: Lens' Instance (Maybe Bool)+iEBSOptimized = lens _iEBSOptimized (\ s a -> s{_iEBSOptimized = a});+ -- | The instance -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP address>. iElasticIP :: Lens' Instance (Maybe Text)@@ -1565,69 +1566,70 @@ iPublicDNS :: Lens' Instance (Maybe Text) iPublicDNS = lens _iPublicDNS (\ s a -> s{_iPublicDNS = a}); --- | The instance public IP address.-iPublicIP :: Lens' Instance (Maybe Text)-iPublicIP = lens _iPublicIP (\ s a -> s{_iPublicIP = a});- -- | A custom AMI ID to be used to create the instance. For more information, -- see -- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Instances> iAMIId :: Lens' Instance (Maybe Text) iAMIId = lens _iAMIId (\ s a -> s{_iAMIId = a}); +-- | The instance public IP address.+iPublicIP :: Lens' Instance (Maybe Text)+iPublicIP = lens _iPublicIP (\ s a -> s{_iPublicIP = a});+ -- | For registered instances, the reported operating system. iReportedOS :: Lens' Instance (Maybe ReportedOS) iReportedOS = lens _iReportedOS (\ s a -> s{_iReportedOS = a}); --- | The stack ID.-iStackId :: Lens' Instance (Maybe Text)-iStackId = lens _iStackId (\ s a -> s{_iStackId = a});- -- | For registered instances, who performed the registration. iRegisteredBy :: Lens' Instance (Maybe Text) iRegisteredBy = lens _iRegisteredBy (\ s a -> s{_iRegisteredBy = a}); --- | An array of 'BlockDeviceMapping' objects that specify the instance\'s--- block device mappings.-iBlockDeviceMappings :: Lens' Instance [BlockDeviceMapping]-iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce;---- | For container instances, the instance\'s ARN.-iEcsContainerInstanceARN :: Lens' Instance (Maybe Text)-iEcsContainerInstanceARN = lens _iEcsContainerInstanceARN (\ s a -> s{_iEcsContainerInstanceARN = a});+-- | The stack ID.+iStackId :: Lens' Instance (Maybe Text)+iStackId = lens _iStackId (\ s a -> s{_iStackId = a});  -- | The instance\'s root device type. For more information, see -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ComponentsAMIs.html#storage-for-the-root-device Storage for the Root Device>. iRootDeviceType :: Lens' Instance (Maybe RootDeviceType) iRootDeviceType = lens _iRootDeviceType (\ s a -> s{_iRootDeviceType = a}); +-- | For container instances, the instance\'s ARN.+iEcsContainerInstanceARN :: Lens' Instance (Maybe Text)+iEcsContainerInstanceARN = lens _iEcsContainerInstanceARN (\ s a -> s{_iEcsContainerInstanceARN = a});++-- | An array of 'BlockDeviceMapping' objects that specify the instance\'s+-- block device mappings.+iBlockDeviceMappings :: Lens' Instance [BlockDeviceMapping]+iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce;+ instance FromJSON Instance where         parseJSON           = withObject "Instance"               (\ x ->                  Instance' <$>-                   (x .:? "InstanceId") <*> (x .:? "PrivateIp") <*>-                     (x .:? "InstallUpdatesOnBoot")-                     <*> (x .:? "ReportedAgentVersion")+                   (x .:? "PrivateDns") <*>+                     (x .:? "ReportedAgentVersion")+                     <*> (x .:? "InstanceId")                      <*> (x .:? "Status")-                     <*> (x .:? "PrivateDns")+                     <*> (x .:? "PrivateIp")+                     <*> (x .:? "InstallUpdatesOnBoot")                      <*> (x .:? "VirtualizationType")-                     <*> (x .:? "SecurityGroupIds" .!= mempty)-                     <*> (x .:? "SshHostRsaKeyFingerprint")                      <*> (x .:? "InstanceProfileArn")                      <*> (x .:? "Platform")                      <*> (x .:? "Hostname")+                     <*> (x .:? "SshHostRsaKeyFingerprint")+                     <*> (x .:? "SecurityGroupIds" .!= mempty)                      <*> (x .:? "EcsClusterArn")                      <*> (x .:? "CreatedAt")-                     <*> (x .:? "SshKeyName")                      <*> (x .:? "Ec2InstanceId")+                     <*> (x .:? "SshKeyName")                      <*> (x .:? "AgentVersion")                      <*> (x .:? "RootDeviceVolumeId")                      <*> (x .:? "SubnetId")-                     <*> (x .:? "InstanceType")                      <*> (x .:? "InfrastructureClass")-                     <*> (x .:? "EbsOptimized")                      <*> (x .:? "SshHostDsaKeyFingerprint")+                     <*> (x .:? "InstanceType")+                     <*> (x .:? "EbsOptimized")                      <*> (x .:? "ElasticIp")                      <*> (x .:? "Os")                      <*> (x .:? "AvailabilityZone")@@ -1636,14 +1638,14 @@                      <*> (x .:? "LayerIds" .!= mempty)                      <*> (x .:? "Architecture")                      <*> (x .:? "PublicDns")-                     <*> (x .:? "PublicIp")                      <*> (x .:? "AmiId")+                     <*> (x .:? "PublicIp")                      <*> (x .:? "ReportedOs")-                     <*> (x .:? "StackId")                      <*> (x .:? "RegisteredBy")-                     <*> (x .:? "BlockDeviceMappings" .!= mempty)+                     <*> (x .:? "StackId")+                     <*> (x .:? "RootDeviceType")                      <*> (x .:? "EcsContainerInstanceArn")-                     <*> (x .:? "RootDeviceType"))+                     <*> (x .:? "BlockDeviceMappings" .!= mempty))  -- | Contains a description of an Amazon EC2 instance from the Amazon EC2 -- metadata service. For more information, see@@ -1694,9 +1696,9 @@     , _icPending        :: !(Maybe Int)     , _icOnline         :: !(Maybe Int)     , _icUnassigning    :: !(Maybe Int)-    , _icRequested      :: !(Maybe Int)-    , _icRunningSetup   :: !(Maybe Int)     , _icDeregistering  :: !(Maybe Int)+    , _icRunningSetup   :: !(Maybe Int)+    , _icRequested      :: !(Maybe Int)     , _icBooting        :: !(Maybe Int)     , _icStopped        :: !(Maybe Int)     , _icRebooting      :: !(Maybe Int)@@ -1723,11 +1725,11 @@ -- -- * 'icUnassigning' ----- * 'icRequested'+-- * 'icDeregistering' -- -- * 'icRunningSetup' ----- * 'icDeregistering'+-- * 'icRequested' -- -- * 'icBooting' --@@ -1760,9 +1762,9 @@     , _icPending = Nothing     , _icOnline = Nothing     , _icUnassigning = Nothing-    , _icRequested = Nothing-    , _icRunningSetup = Nothing     , _icDeregistering = Nothing+    , _icRunningSetup = Nothing+    , _icRequested = Nothing     , _icBooting = Nothing     , _icStopped = Nothing     , _icRebooting = Nothing@@ -1793,17 +1795,17 @@ icUnassigning :: Lens' InstancesCount (Maybe Int) icUnassigning = lens _icUnassigning (\ s a -> s{_icUnassigning = a}); --- | The number of instances with 'requested' status.-icRequested :: Lens' InstancesCount (Maybe Int)-icRequested = lens _icRequested (\ s a -> s{_icRequested = a});+-- | The number of instances in the Deregistering state.+icDeregistering :: Lens' InstancesCount (Maybe Int)+icDeregistering = lens _icDeregistering (\ s a -> s{_icDeregistering = a});  -- | The number of instances with 'running_setup' status. icRunningSetup :: Lens' InstancesCount (Maybe Int) icRunningSetup = lens _icRunningSetup (\ s a -> s{_icRunningSetup = a}); --- | The number of instances in the Deregistering state.-icDeregistering :: Lens' InstancesCount (Maybe Int)-icDeregistering = lens _icDeregistering (\ s a -> s{_icDeregistering = a});+-- | The number of instances with 'requested' status.+icRequested :: Lens' InstancesCount (Maybe Int)+icRequested = lens _icRequested (\ s a -> s{_icRequested = a});  -- | The number of instances with 'booting' status. icBooting :: Lens' InstancesCount (Maybe Int)@@ -1861,9 +1863,9 @@                    (x .:? "Terminating") <*> (x .:? "Pending") <*>                      (x .:? "Online")                      <*> (x .:? "Unassigning")-                     <*> (x .:? "Requested")-                     <*> (x .:? "RunningSetup")                      <*> (x .:? "Deregistering")+                     <*> (x .:? "RunningSetup")+                     <*> (x .:? "Requested")                      <*> (x .:? "Booting")                      <*> (x .:? "Stopped")                      <*> (x .:? "Rebooting")@@ -1882,22 +1884,22 @@ -- /See:/ 'layer' smart constructor. data Layer = Layer'     { _lCustomInstanceProfileARN    :: !(Maybe Text)-    , _lInstallUpdatesOnBoot        :: !(Maybe Bool)     , _lCustomSecurityGroupIds      :: !(Maybe [Text])+    , _lInstallUpdatesOnBoot        :: !(Maybe Bool)     , _lLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)-    , _lShortname                   :: !(Maybe Text)     , _lCreatedAt                   :: !(Maybe Text)+    , _lShortname                   :: !(Maybe Text)     , _lDefaultRecipes              :: !(Maybe Recipes)     , _lCustomRecipes               :: !(Maybe Recipes)-    , _lVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _lCustomJSON                  :: !(Maybe Text)+    , _lVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _lEnableAutoHealing           :: !(Maybe Bool)     , _lPackages                    :: !(Maybe [Text])-    , _lName                        :: !(Maybe Text)     , _lAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))+    , _lName                        :: !(Maybe Text)     , _lAutoAssignPublicIPs         :: !(Maybe Bool)-    , _lUseEBSOptimizedInstances    :: !(Maybe Bool)     , _lType                        :: !(Maybe LayerType)+    , _lUseEBSOptimizedInstances    :: !(Maybe Bool)     , _lStackId                     :: !(Maybe Text)     , _lLayerId                     :: !(Maybe Text)     , _lDefaultSecurityGroupNames   :: !(Maybe [Text])@@ -1910,38 +1912,38 @@ -- -- * 'lCustomInstanceProfileARN' ----- * 'lInstallUpdatesOnBoot'--- -- * 'lCustomSecurityGroupIds' ----- * 'lLifecycleEventConfiguration'+-- * 'lInstallUpdatesOnBoot' ----- * 'lShortname'+-- * 'lLifecycleEventConfiguration' -- -- * 'lCreatedAt' --+-- * 'lShortname'+-- -- * 'lDefaultRecipes' -- -- * 'lCustomRecipes' ----- * 'lVolumeConfigurations'--- -- * 'lCustomJSON' --+-- * 'lVolumeConfigurations'+-- -- * 'lEnableAutoHealing' -- -- * 'lPackages' ----- * 'lName'--- -- * 'lAttributes' ----- * 'lAutoAssignPublicIPs'+-- * 'lName' ----- * 'lUseEBSOptimizedInstances'+-- * 'lAutoAssignPublicIPs' -- -- * 'lType' --+-- * 'lUseEBSOptimizedInstances'+-- -- * 'lStackId' -- -- * 'lLayerId'@@ -1954,22 +1956,22 @@ layer =     Layer'     { _lCustomInstanceProfileARN = Nothing-    , _lInstallUpdatesOnBoot = Nothing     , _lCustomSecurityGroupIds = Nothing+    , _lInstallUpdatesOnBoot = Nothing     , _lLifecycleEventConfiguration = Nothing-    , _lShortname = Nothing     , _lCreatedAt = Nothing+    , _lShortname = Nothing     , _lDefaultRecipes = Nothing     , _lCustomRecipes = Nothing-    , _lVolumeConfigurations = Nothing     , _lCustomJSON = Nothing+    , _lVolumeConfigurations = Nothing     , _lEnableAutoHealing = Nothing     , _lPackages = Nothing-    , _lName = Nothing     , _lAttributes = Nothing+    , _lName = Nothing     , _lAutoAssignPublicIPs = Nothing-    , _lUseEBSOptimizedInstances = Nothing     , _lType = Nothing+    , _lUseEBSOptimizedInstances = Nothing     , _lStackId = Nothing     , _lLayerId = Nothing     , _lDefaultSecurityGroupNames = Nothing@@ -1982,6 +1984,10 @@ lCustomInstanceProfileARN :: Lens' Layer (Maybe Text) lCustomInstanceProfileARN = lens _lCustomInstanceProfileARN (\ s a -> s{_lCustomInstanceProfileARN = a}); +-- | An array containing the layer\'s custom security group IDs.+lCustomSecurityGroupIds :: Lens' Layer [Text]+lCustomSecurityGroupIds = lens _lCustomSecurityGroupIds (\ s a -> s{_lCustomSecurityGroupIds = a}) . _Default . _Coerce;+ -- | Whether to install operating system and package updates when the -- instance boots. The default value is 'true'. If this value is set to -- 'false', you must then update your instances manually by using@@ -1994,23 +2000,19 @@ lInstallUpdatesOnBoot :: Lens' Layer (Maybe Bool) lInstallUpdatesOnBoot = lens _lInstallUpdatesOnBoot (\ s a -> s{_lInstallUpdatesOnBoot = a}); --- | An array containing the layer\'s custom security group IDs.-lCustomSecurityGroupIds :: Lens' Layer [Text]-lCustomSecurityGroupIds = lens _lCustomSecurityGroupIds (\ s a -> s{_lCustomSecurityGroupIds = a}) . _Default . _Coerce;- -- | A 'LifeCycleEventConfiguration' object that specifies the Shutdown event -- configuration. lLifecycleEventConfiguration :: Lens' Layer (Maybe LifecycleEventConfiguration) lLifecycleEventConfiguration = lens _lLifecycleEventConfiguration (\ s a -> s{_lLifecycleEventConfiguration = a}); --- | The layer short name.-lShortname :: Lens' Layer (Maybe Text)-lShortname = lens _lShortname (\ s a -> s{_lShortname = a});- -- | Date when the layer was created. lCreatedAt :: Lens' Layer (Maybe Text) lCreatedAt = lens _lCreatedAt (\ s a -> s{_lCreatedAt = a}); +-- | The layer short name.+lShortname :: Lens' Layer (Maybe Text)+lShortname = lens _lShortname (\ s a -> s{_lShortname = a});+ -- | Undocumented member. lDefaultRecipes :: Lens' Layer (Maybe Recipes) lDefaultRecipes = lens _lDefaultRecipes (\ s a -> s{_lDefaultRecipes = a});@@ -2020,16 +2022,16 @@ lCustomRecipes :: Lens' Layer (Maybe Recipes) lCustomRecipes = lens _lCustomRecipes (\ s a -> s{_lCustomRecipes = a}); --- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS--- volumes.-lVolumeConfigurations :: Lens' Layer [VolumeConfiguration]-lVolumeConfigurations = lens _lVolumeConfigurations (\ s a -> s{_lVolumeConfigurations = a}) . _Default . _Coerce;- -- | A JSON formatted string containing the layer\'s custom stack -- configuration and deployment attributes. lCustomJSON :: Lens' Layer (Maybe Text) lCustomJSON = lens _lCustomJSON (\ s a -> s{_lCustomJSON = a}); +-- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS+-- volumes.+lVolumeConfigurations :: Lens' Layer [VolumeConfiguration]+lVolumeConfigurations = lens _lVolumeConfigurations (\ s a -> s{_lVolumeConfigurations = a}) . _Default . _Coerce;+ -- | Whether auto healing is disabled for the layer. lEnableAutoHealing :: Lens' Layer (Maybe Bool) lEnableAutoHealing = lens _lEnableAutoHealing (\ s a -> s{_lEnableAutoHealing = a});@@ -2038,10 +2040,6 @@ lPackages :: Lens' Layer [Text] lPackages = lens _lPackages (\ s a -> s{_lPackages = a}) . _Default . _Coerce; --- | The layer name.-lName :: Lens' Layer (Maybe Text)-lName = lens _lName (\ s a -> s{_lName = a});- -- | The layer attributes. -- -- For the 'HaproxyStatsPassword', 'MysqlRootPassword', and@@ -2053,20 +2051,24 @@ lAttributes :: Lens' Layer (HashMap LayerAttributesKeys Text) lAttributes = lens _lAttributes (\ s a -> s{_lAttributes = a}) . _Default . _Map; +-- | The layer name.+lName :: Lens' Layer (Maybe Text)+lName = lens _lName (\ s a -> s{_lName = a});+ -- | For stacks that are running in a VPC, whether to automatically assign a -- public IP address to the layer\'s instances. For more information, see -- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How to Edit a Layer>. lAutoAssignPublicIPs :: Lens' Layer (Maybe Bool) lAutoAssignPublicIPs = lens _lAutoAssignPublicIPs (\ s a -> s{_lAutoAssignPublicIPs = a}); --- | Whether the layer uses Amazon EBS-optimized instances.-lUseEBSOptimizedInstances :: Lens' Layer (Maybe Bool)-lUseEBSOptimizedInstances = lens _lUseEBSOptimizedInstances (\ s a -> s{_lUseEBSOptimizedInstances = a});- -- | The layer type. lType :: Lens' Layer (Maybe LayerType) lType = lens _lType (\ s a -> s{_lType = a}); +-- | Whether the layer uses Amazon EBS-optimized instances.+lUseEBSOptimizedInstances :: Lens' Layer (Maybe Bool)+lUseEBSOptimizedInstances = lens _lUseEBSOptimizedInstances (\ s a -> s{_lUseEBSOptimizedInstances = a});+ -- | The layer stack ID. lStackId :: Lens' Layer (Maybe Text) lStackId = lens _lStackId (\ s a -> s{_lStackId = a});@@ -2092,22 +2094,22 @@               (\ x ->                  Layer' <$>                    (x .:? "CustomInstanceProfileArn") <*>-                     (x .:? "InstallUpdatesOnBoot")-                     <*> (x .:? "CustomSecurityGroupIds" .!= mempty)+                     (x .:? "CustomSecurityGroupIds" .!= mempty)+                     <*> (x .:? "InstallUpdatesOnBoot")                      <*> (x .:? "LifecycleEventConfiguration")-                     <*> (x .:? "Shortname")                      <*> (x .:? "CreatedAt")+                     <*> (x .:? "Shortname")                      <*> (x .:? "DefaultRecipes")                      <*> (x .:? "CustomRecipes")-                     <*> (x .:? "VolumeConfigurations" .!= mempty)                      <*> (x .:? "CustomJson")+                     <*> (x .:? "VolumeConfigurations" .!= mempty)                      <*> (x .:? "EnableAutoHealing")                      <*> (x .:? "Packages" .!= mempty)-                     <*> (x .:? "Name")                      <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "Name")                      <*> (x .:? "AutoAssignPublicIps")-                     <*> (x .:? "UseEbsOptimizedInstances")                      <*> (x .:? "Type")+                     <*> (x .:? "UseEbsOptimizedInstances")                      <*> (x .:? "StackId")                      <*> (x .:? "LayerId")                      <*> (x .:? "DefaultSecurityGroupNames" .!= mempty)@@ -2292,13 +2294,13 @@ data RAIdArray = RAIdArray'     { _raiaInstanceId       :: !(Maybe Text)     , _raiaSize             :: !(Maybe Int)-    , _raiaCreatedAt        :: !(Maybe Text)     , _raiaIOPS             :: !(Maybe Int)+    , _raiaCreatedAt        :: !(Maybe Text)     , _raiaRAIdLevel        :: !(Maybe Int)     , _raiaDevice           :: !(Maybe Text)     , _raiaNumberOfDisks    :: !(Maybe Int)-    , _raiaName             :: !(Maybe Text)     , _raiaAvailabilityZone :: !(Maybe Text)+    , _raiaName             :: !(Maybe Text)     , _raiaRAIdArrayId      :: !(Maybe Text)     , _raiaVolumeType       :: !(Maybe Text)     , _raiaStackId          :: !(Maybe Text)@@ -2313,20 +2315,20 @@ -- -- * 'raiaSize' ----- * 'raiaCreatedAt'--- -- * 'raiaIOPS' --+-- * 'raiaCreatedAt'+-- -- * 'raiaRAIdLevel' -- -- * 'raiaDevice' -- -- * 'raiaNumberOfDisks' ----- * 'raiaName'--- -- * 'raiaAvailabilityZone' --+-- * 'raiaName'+-- -- * 'raiaRAIdArrayId' -- -- * 'raiaVolumeType'@@ -2340,13 +2342,13 @@     RAIdArray'     { _raiaInstanceId = Nothing     , _raiaSize = Nothing-    , _raiaCreatedAt = Nothing     , _raiaIOPS = Nothing+    , _raiaCreatedAt = Nothing     , _raiaRAIdLevel = Nothing     , _raiaDevice = Nothing     , _raiaNumberOfDisks = Nothing-    , _raiaName = Nothing     , _raiaAvailabilityZone = Nothing+    , _raiaName = Nothing     , _raiaRAIdArrayId = Nothing     , _raiaVolumeType = Nothing     , _raiaStackId = Nothing@@ -2361,14 +2363,14 @@ raiaSize :: Lens' RAIdArray (Maybe Int) raiaSize = lens _raiaSize (\ s a -> s{_raiaSize = a}); --- | When the RAID array was created.-raiaCreatedAt :: Lens' RAIdArray (Maybe Text)-raiaCreatedAt = lens _raiaCreatedAt (\ s a -> s{_raiaCreatedAt = a});- -- | For PIOPS volumes, the IOPS per disk. raiaIOPS :: Lens' RAIdArray (Maybe Int) raiaIOPS = lens _raiaIOPS (\ s a -> s{_raiaIOPS = a}); +-- | When the RAID array was created.+raiaCreatedAt :: Lens' RAIdArray (Maybe Text)+raiaCreatedAt = lens _raiaCreatedAt (\ s a -> s{_raiaCreatedAt = a});+ -- | The <http://en.wikipedia.org/wiki/Standard_RAID_levels RAID level>. raiaRAIdLevel :: Lens' RAIdArray (Maybe Int) raiaRAIdLevel = lens _raiaRAIdLevel (\ s a -> s{_raiaRAIdLevel = a});@@ -2381,15 +2383,15 @@ raiaNumberOfDisks :: Lens' RAIdArray (Maybe Int) raiaNumberOfDisks = lens _raiaNumberOfDisks (\ s a -> s{_raiaNumberOfDisks = a}); --- | The array name.-raiaName :: Lens' RAIdArray (Maybe Text)-raiaName = lens _raiaName (\ s a -> s{_raiaName = a});- -- | The array\'s Availability Zone. For more information, see -- <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>. raiaAvailabilityZone :: Lens' RAIdArray (Maybe Text) raiaAvailabilityZone = lens _raiaAvailabilityZone (\ s a -> s{_raiaAvailabilityZone = a}); +-- | The array name.+raiaName :: Lens' RAIdArray (Maybe Text)+raiaName = lens _raiaName (\ s a -> s{_raiaName = a});+ -- | The array ID. raiaRAIdArrayId :: Lens' RAIdArray (Maybe Text) raiaRAIdArrayId = lens _raiaRAIdArrayId (\ s a -> s{_raiaRAIdArrayId = a});@@ -2412,13 +2414,13 @@               (\ x ->                  RAIdArray' <$>                    (x .:? "InstanceId") <*> (x .:? "Size") <*>-                     (x .:? "CreatedAt")-                     <*> (x .:? "Iops")+                     (x .:? "Iops")+                     <*> (x .:? "CreatedAt")                      <*> (x .:? "RaidLevel")                      <*> (x .:? "Device")                      <*> (x .:? "NumberOfDisks")-                     <*> (x .:? "Name")                      <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "Name")                      <*> (x .:? "RaidArrayId")                      <*> (x .:? "VolumeType")                      <*> (x .:? "StackId")@@ -2428,8 +2430,8 @@ -- -- /See:/ 'rdsDBInstance' smart constructor. data RDSDBInstance = RDSDBInstance'-    { _rdiDBUser               :: !(Maybe Text)-    , _rdiRDSDBInstanceARN     :: !(Maybe Text)+    { _rdiRDSDBInstanceARN     :: !(Maybe Text)+    , _rdiDBUser               :: !(Maybe Text)     , _rdiMissingOnRDS         :: !(Maybe Bool)     , _rdiEngine               :: !(Maybe Text)     , _rdiAddress              :: !(Maybe Text)@@ -2443,10 +2445,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rdiDBUser'--- -- * 'rdiRDSDBInstanceARN' --+-- * 'rdiDBUser'+-- -- * 'rdiMissingOnRDS' -- -- * 'rdiEngine'@@ -2464,8 +2466,8 @@     :: RDSDBInstance rdsDBInstance =     RDSDBInstance'-    { _rdiDBUser = Nothing-    , _rdiRDSDBInstanceARN = Nothing+    { _rdiRDSDBInstanceARN = Nothing+    , _rdiDBUser = Nothing     , _rdiMissingOnRDS = Nothing     , _rdiEngine = Nothing     , _rdiAddress = Nothing@@ -2475,14 +2477,14 @@     , _rdiDBPassword = Nothing     } --- | The master user name.-rdiDBUser :: Lens' RDSDBInstance (Maybe Text)-rdiDBUser = lens _rdiDBUser (\ s a -> s{_rdiDBUser = a});- -- | The instance\'s ARN. rdiRDSDBInstanceARN :: Lens' RDSDBInstance (Maybe Text) rdiRDSDBInstanceARN = lens _rdiRDSDBInstanceARN (\ s a -> s{_rdiRDSDBInstanceARN = a}); +-- | The master user name.+rdiDBUser :: Lens' RDSDBInstance (Maybe Text)+rdiDBUser = lens _rdiDBUser (\ s a -> s{_rdiDBUser = a});+ -- | Set to 'true' if AWS OpsWorks was unable to discover the Amazon RDS -- instance. AWS OpsWorks attempts to discover the instance only once. If -- this value is set to 'true', you must deregister the instance and then@@ -2519,7 +2521,7 @@           = withObject "RDSDBInstance"               (\ x ->                  RDSDBInstance' <$>-                   (x .:? "DbUser") <*> (x .:? "RdsDbInstanceArn") <*>+                   (x .:? "RdsDbInstanceArn") <*> (x .:? "DbUser") <*>                      (x .:? "MissingOnRds")                      <*> (x .:? "Engine")                      <*> (x .:? "Address")@@ -2545,8 +2547,8 @@ -- /See:/ 'recipes' smart constructor. data Recipes = Recipes'     { _rSetup     :: !(Maybe [Text])-    , _rUndeploy  :: !(Maybe [Text])     , _rShutdown  :: !(Maybe [Text])+    , _rUndeploy  :: !(Maybe [Text])     , _rConfigure :: !(Maybe [Text])     , _rDeploy    :: !(Maybe [Text])     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -2557,10 +2559,10 @@ -- -- * 'rSetup' ----- * 'rUndeploy'--- -- * 'rShutdown' --+-- * 'rUndeploy'+-- -- * 'rConfigure' -- -- * 'rDeploy'@@ -2569,8 +2571,8 @@ recipes =     Recipes'     { _rSetup = Nothing-    , _rUndeploy = Nothing     , _rShutdown = Nothing+    , _rUndeploy = Nothing     , _rConfigure = Nothing     , _rDeploy = Nothing     }@@ -2579,14 +2581,14 @@ rSetup :: Lens' Recipes [Text] rSetup = lens _rSetup (\ s a -> s{_rSetup = a}) . _Default . _Coerce; --- | An array of custom recipe names to be run following a 'undeploy' event.-rUndeploy :: Lens' Recipes [Text]-rUndeploy = lens _rUndeploy (\ s a -> s{_rUndeploy = a}) . _Default . _Coerce;- -- | An array of custom recipe names to be run following a 'shutdown' event. rShutdown :: Lens' Recipes [Text] rShutdown = lens _rShutdown (\ s a -> s{_rShutdown = a}) . _Default . _Coerce; +-- | An array of custom recipe names to be run following a 'undeploy' event.+rUndeploy :: Lens' Recipes [Text]+rUndeploy = lens _rUndeploy (\ s a -> s{_rUndeploy = a}) . _Default . _Coerce;+ -- | An array of custom recipe names to be run following a 'configure' event. rConfigure :: Lens' Recipes [Text] rConfigure = lens _rConfigure (\ s a -> s{_rConfigure = a}) . _Default . _Coerce;@@ -2601,8 +2603,8 @@               (\ x ->                  Recipes' <$>                    (x .:? "Setup" .!= mempty) <*>-                     (x .:? "Undeploy" .!= mempty)-                     <*> (x .:? "Shutdown" .!= mempty)+                     (x .:? "Shutdown" .!= mempty)+                     <*> (x .:? "Undeploy" .!= mempty)                      <*> (x .:? "Configure" .!= mempty)                      <*> (x .:? "Deploy" .!= mempty)) @@ -2611,8 +2613,8 @@           = object               (catMaybes                  [("Setup" .=) <$> _rSetup,-                  ("Undeploy" .=) <$> _rUndeploy,                   ("Shutdown" .=) <$> _rShutdown,+                  ("Undeploy" .=) <$> _rUndeploy,                   ("Configure" .=) <$> _rConfigure,                   ("Deploy" .=) <$> _rDeploy]) @@ -2725,8 +2727,8 @@ -- -- /See:/ 'selfUserProfile' smart constructor. data SelfUserProfile = SelfUserProfile'-    { _supSSHUsername  :: !(Maybe Text)-    , _supSSHPublicKey :: !(Maybe Text)+    { _supSSHPublicKey :: !(Maybe Text)+    , _supSSHUsername  :: !(Maybe Text)     , _supIAMUserARN   :: !(Maybe Text)     , _supName         :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -2735,10 +2737,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'supSSHUsername'--- -- * 'supSSHPublicKey' --+-- * 'supSSHUsername'+-- -- * 'supIAMUserARN' -- -- * 'supName'@@ -2746,20 +2748,20 @@     :: SelfUserProfile selfUserProfile =     SelfUserProfile'-    { _supSSHUsername = Nothing-    , _supSSHPublicKey = Nothing+    { _supSSHPublicKey = Nothing+    , _supSSHUsername = Nothing     , _supIAMUserARN = Nothing     , _supName = Nothing     } --- | The user\'s SSH user name.-supSSHUsername :: Lens' SelfUserProfile (Maybe Text)-supSSHUsername = lens _supSSHUsername (\ s a -> s{_supSSHUsername = a});- -- | The user\'s SSH public key. supSSHPublicKey :: Lens' SelfUserProfile (Maybe Text) supSSHPublicKey = lens _supSSHPublicKey (\ s a -> s{_supSSHPublicKey = a}); +-- | The user\'s SSH user name.+supSSHUsername :: Lens' SelfUserProfile (Maybe Text)+supSSHUsername = lens _supSSHUsername (\ s a -> s{_supSSHUsername = a});+ -- | The user\'s IAM ARN. supIAMUserARN :: Lens' SelfUserProfile (Maybe Text) supIAMUserARN = lens _supIAMUserARN (\ s a -> s{_supIAMUserARN = a});@@ -2773,7 +2775,7 @@           = withObject "SelfUserProfile"               (\ x ->                  SelfUserProfile' <$>-                   (x .:? "SshUsername") <*> (x .:? "SshPublicKey") <*>+                   (x .:? "SshPublicKey") <*> (x .:? "SshUsername") <*>                      (x .:? "IamUserArn")                      <*> (x .:? "Name")) @@ -2785,8 +2787,8 @@     , _seCreatedAt      :: !(Maybe Text)     , _seServiceErrorId :: !(Maybe Text)     , _seType           :: !(Maybe Text)-    , _seMessage        :: !(Maybe Text)     , _seStackId        :: !(Maybe Text)+    , _seMessage        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ServiceError'' with the minimum fields required to make a request.@@ -2801,9 +2803,9 @@ -- -- * 'seType' ----- * 'seMessage'--- -- * 'seStackId'+--+-- * 'seMessage' serviceError'     :: ServiceError' serviceError' =@@ -2812,8 +2814,8 @@     , _seCreatedAt = Nothing     , _seServiceErrorId = Nothing     , _seType = Nothing-    , _seMessage = Nothing     , _seStackId = Nothing+    , _seMessage = Nothing     }  -- | The instance ID.@@ -2832,14 +2834,14 @@ seType :: Lens' ServiceError' (Maybe Text) seType = lens _seType (\ s a -> s{_seType = a}); --- | A message that describes the error.-seMessage :: Lens' ServiceError' (Maybe Text)-seMessage = lens _seMessage (\ s a -> s{_seMessage = a});- -- | The stack ID. seStackId :: Lens' ServiceError' (Maybe Text) seStackId = lens _seStackId (\ s a -> s{_seStackId = a}); +-- | A message that describes the error.+seMessage :: Lens' ServiceError' (Maybe Text)+seMessage = lens _seMessage (\ s a -> s{_seMessage = a});+ instance FromJSON ServiceError' where         parseJSON           = withObject "ServiceError'"@@ -2848,8 +2850,8 @@                    (x .:? "InstanceId") <*> (x .:? "CreatedAt") <*>                      (x .:? "ServiceErrorId")                      <*> (x .:? "Type")-                     <*> (x .:? "Message")-                     <*> (x .:? "StackId"))+                     <*> (x .:? "StackId")+                     <*> (x .:? "Message"))  -- | The Shutdown event configuration. --@@ -3019,20 +3021,20 @@ data Stack = Stack'     { _sDefaultInstanceProfileARN :: !(Maybe Text)     , _sServiceRoleARN            :: !(Maybe Text)-    , _sARN                       :: !(Maybe Text)     , _sDefaultRootDeviceType     :: !(Maybe RootDeviceType)+    , _sARN                       :: !(Maybe Text)     , _sCreatedAt                 :: !(Maybe Text)-    , _sChefConfiguration         :: !(Maybe ChefConfiguration)     , _sVPCId                     :: !(Maybe Text)+    , _sChefConfiguration         :: !(Maybe ChefConfiguration)     , _sAgentVersion              :: !(Maybe Text)     , _sDefaultSSHKeyName         :: !(Maybe Text)     , _sCustomJSON                :: !(Maybe Text)     , _sCustomCookbooksSource     :: !(Maybe Source)     , _sDefaultAvailabilityZone   :: !(Maybe Text)+    , _sAttributes                :: !(Maybe (Map StackAttributesKeys Text))     , _sName                      :: !(Maybe Text)-    , _sUseOpsworksSecurityGroups :: !(Maybe Bool)     , _sDefaultOS                 :: !(Maybe Text)-    , _sAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _sUseOpsworksSecurityGroups :: !(Maybe Bool)     , _sUseCustomCookbooks        :: !(Maybe Bool)     , _sDefaultSubnetId           :: !(Maybe Text)     , _sRegion                    :: !(Maybe Text)@@ -3049,16 +3051,16 @@ -- -- * 'sServiceRoleARN' ----- * 'sARN'--- -- * 'sDefaultRootDeviceType' ----- * 'sCreatedAt'+-- * 'sARN' ----- * 'sChefConfiguration'+-- * 'sCreatedAt' -- -- * 'sVPCId' --+-- * 'sChefConfiguration'+-- -- * 'sAgentVersion' -- -- * 'sDefaultSSHKeyName'@@ -3069,13 +3071,13 @@ -- -- * 'sDefaultAvailabilityZone' ----- * 'sName'+-- * 'sAttributes' ----- * 'sUseOpsworksSecurityGroups'+-- * 'sName' -- -- * 'sDefaultOS' ----- * 'sAttributes'+-- * 'sUseOpsworksSecurityGroups' -- -- * 'sUseCustomCookbooks' --@@ -3094,20 +3096,20 @@     Stack'     { _sDefaultInstanceProfileARN = Nothing     , _sServiceRoleARN = Nothing-    , _sARN = Nothing     , _sDefaultRootDeviceType = Nothing+    , _sARN = Nothing     , _sCreatedAt = Nothing-    , _sChefConfiguration = Nothing     , _sVPCId = Nothing+    , _sChefConfiguration = Nothing     , _sAgentVersion = Nothing     , _sDefaultSSHKeyName = Nothing     , _sCustomJSON = Nothing     , _sCustomCookbooksSource = Nothing     , _sDefaultAvailabilityZone = Nothing+    , _sAttributes = Nothing     , _sName = Nothing-    , _sUseOpsworksSecurityGroups = Nothing     , _sDefaultOS = Nothing-    , _sAttributes = Nothing+    , _sUseOpsworksSecurityGroups = Nothing     , _sUseCustomCookbooks = Nothing     , _sDefaultSubnetId = Nothing     , _sRegion = Nothing@@ -3126,10 +3128,6 @@ sServiceRoleARN :: Lens' Stack (Maybe Text) sServiceRoleARN = lens _sServiceRoleARN (\ s a -> s{_sServiceRoleARN = a}); --- | The stack\'s ARN.-sARN :: Lens' Stack (Maybe Text)-sARN = lens _sARN (\ s a -> s{_sARN = a});- -- | The default root device type. This value is used by default for all -- instances in the stack, but you can override it when you create an -- instance. For more information, see@@ -3137,20 +3135,24 @@ sDefaultRootDeviceType :: Lens' Stack (Maybe RootDeviceType) sDefaultRootDeviceType = lens _sDefaultRootDeviceType (\ s a -> s{_sDefaultRootDeviceType = a}); +-- | The stack\'s ARN.+sARN :: Lens' Stack (Maybe Text)+sARN = lens _sARN (\ s a -> s{_sARN = a});+ -- | The date when the stack was created. sCreatedAt :: Lens' Stack (Maybe Text) sCreatedAt = lens _sCreatedAt (\ s a -> s{_sCreatedAt = a}); +-- | The VPC ID; applicable only if the stack is running in a VPC.+sVPCId :: Lens' Stack (Maybe Text)+sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});+ -- | A 'ChefConfiguration' object that specifies whether to enable Berkshelf -- and the Berkshelf version. For more information, see -- <http://docs.aws.amazon.com/opsworks/latest/userguide/workingstacks-creating.html Create a New Stack>. sChefConfiguration :: Lens' Stack (Maybe ChefConfiguration) sChefConfiguration = lens _sChefConfiguration (\ s a -> s{_sChefConfiguration = a}); --- | The VPC ID; applicable only if the stack is running in a VPC.-sVPCId :: Lens' Stack (Maybe Text)-sVPCId = lens _sVPCId (\ s a -> s{_sVPCId = a});- -- | The agent version. This parameter is set to 'LATEST' for auto-update. or -- a version number for a fixed agent version. sAgentVersion :: Lens' Stack (Maybe Text)@@ -3183,22 +3185,22 @@ sDefaultAvailabilityZone :: Lens' Stack (Maybe Text) sDefaultAvailabilityZone = lens _sDefaultAvailabilityZone (\ s a -> s{_sDefaultAvailabilityZone = a}); +-- | The stack\'s attributes.+sAttributes :: Lens' Stack (HashMap StackAttributesKeys Text)+sAttributes = lens _sAttributes (\ s a -> s{_sAttributes = a}) . _Default . _Map;+ -- | The stack name. sName :: Lens' Stack (Maybe Text) sName = lens _sName (\ s a -> s{_sName = a}); --- | Whether the stack automatically associates the AWS OpsWorks built-in--- security groups with the stack\'s layers.-sUseOpsworksSecurityGroups :: Lens' Stack (Maybe Bool)-sUseOpsworksSecurityGroups = lens _sUseOpsworksSecurityGroups (\ s a -> s{_sUseOpsworksSecurityGroups = a});- -- | The stack\'s default operating system. sDefaultOS :: Lens' Stack (Maybe Text) sDefaultOS = lens _sDefaultOS (\ s a -> s{_sDefaultOS = a}); --- | The stack\'s attributes.-sAttributes :: Lens' Stack (HashMap StackAttributesKeys Text)-sAttributes = lens _sAttributes (\ s a -> s{_sAttributes = a}) . _Default . _Map;+-- | Whether the stack automatically associates the AWS OpsWorks built-in+-- security groups with the stack\'s layers.+sUseOpsworksSecurityGroups :: Lens' Stack (Maybe Bool)+sUseOpsworksSecurityGroups = lens _sUseOpsworksSecurityGroups (\ s a -> s{_sUseOpsworksSecurityGroups = a});  -- | Whether the stack uses custom cookbooks. sUseCustomCookbooks :: Lens' Stack (Maybe Bool)@@ -3233,20 +3235,20 @@                  Stack' <$>                    (x .:? "DefaultInstanceProfileArn") <*>                      (x .:? "ServiceRoleArn")-                     <*> (x .:? "Arn")                      <*> (x .:? "DefaultRootDeviceType")+                     <*> (x .:? "Arn")                      <*> (x .:? "CreatedAt")-                     <*> (x .:? "ChefConfiguration")                      <*> (x .:? "VpcId")+                     <*> (x .:? "ChefConfiguration")                      <*> (x .:? "AgentVersion")                      <*> (x .:? "DefaultSshKeyName")                      <*> (x .:? "CustomJson")                      <*> (x .:? "CustomCookbooksSource")                      <*> (x .:? "DefaultAvailabilityZone")+                     <*> (x .:? "Attributes" .!= mempty)                      <*> (x .:? "Name")-                     <*> (x .:? "UseOpsworksSecurityGroups")                      <*> (x .:? "DefaultOs")-                     <*> (x .:? "Attributes" .!= mempty)+                     <*> (x .:? "UseOpsworksSecurityGroups")                      <*> (x .:? "UseCustomCookbooks")                      <*> (x .:? "DefaultSubnetId")                      <*> (x .:? "Region")@@ -3478,9 +3480,9 @@ -- -- /See:/ 'userProfile' smart constructor. data UserProfile = UserProfile'-    { _upSSHUsername         :: !(Maybe Text)+    { _upAllowSelfManagement :: !(Maybe Bool)     , _upSSHPublicKey        :: !(Maybe Text)-    , _upAllowSelfManagement :: !(Maybe Bool)+    , _upSSHUsername         :: !(Maybe Text)     , _upIAMUserARN          :: !(Maybe Text)     , _upName                :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -3489,11 +3491,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'upSSHUsername'+-- * 'upAllowSelfManagement' -- -- * 'upSSHPublicKey' ----- * 'upAllowSelfManagement'+-- * 'upSSHUsername' -- -- * 'upIAMUserARN' --@@ -3502,27 +3504,27 @@     :: UserProfile userProfile =     UserProfile'-    { _upSSHUsername = Nothing+    { _upAllowSelfManagement = Nothing     , _upSSHPublicKey = Nothing-    , _upAllowSelfManagement = Nothing+    , _upSSHUsername = Nothing     , _upIAMUserARN = Nothing     , _upName = Nothing     } --- | The user\'s SSH user name.-upSSHUsername :: Lens' UserProfile (Maybe Text)-upSSHUsername = lens _upSSHUsername (\ s a -> s{_upSSHUsername = a});---- | The user\'s SSH public key.-upSSHPublicKey :: Lens' UserProfile (Maybe Text)-upSSHPublicKey = lens _upSSHPublicKey (\ s a -> s{_upSSHPublicKey = a});- -- | Whether users can specify their own SSH public key through the My -- Settings page. For more information, see -- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions>. upAllowSelfManagement :: Lens' UserProfile (Maybe Bool) upAllowSelfManagement = lens _upAllowSelfManagement (\ s a -> s{_upAllowSelfManagement = a}); +-- | The user\'s SSH public key.+upSSHPublicKey :: Lens' UserProfile (Maybe Text)+upSSHPublicKey = lens _upSSHPublicKey (\ s a -> s{_upSSHPublicKey = a});++-- | The user\'s SSH user name.+upSSHUsername :: Lens' UserProfile (Maybe Text)+upSSHUsername = lens _upSSHUsername (\ s a -> s{_upSSHUsername = a});+ -- | The user\'s IAM ARN. upIAMUserARN :: Lens' UserProfile (Maybe Text) upIAMUserARN = lens _upIAMUserARN (\ s a -> s{_upIAMUserARN = a});@@ -3536,8 +3538,9 @@           = withObject "UserProfile"               (\ x ->                  UserProfile' <$>-                   (x .:? "SshUsername") <*> (x .:? "SshPublicKey") <*>-                     (x .:? "AllowSelfManagement")+                   (x .:? "AllowSelfManagement") <*>+                     (x .:? "SshPublicKey")+                     <*> (x .:? "SshUsername")                      <*> (x .:? "IamUserArn")                      <*> (x .:? "Name")) @@ -3550,8 +3553,8 @@     , _vSize             :: !(Maybe Int)     , _vIOPS             :: !(Maybe Int)     , _vDevice           :: !(Maybe Text)-    , _vName             :: !(Maybe Text)     , _vAvailabilityZone :: !(Maybe Text)+    , _vName             :: !(Maybe Text)     , _vRAIdArrayId      :: !(Maybe Text)     , _vVolumeId         :: !(Maybe Text)     , _vRegion           :: !(Maybe Text)@@ -3574,10 +3577,10 @@ -- -- * 'vDevice' ----- * 'vName'--- -- * 'vAvailabilityZone' --+-- * 'vName'+-- -- * 'vRAIdArrayId' -- -- * 'vVolumeId'@@ -3598,8 +3601,8 @@     , _vSize = Nothing     , _vIOPS = Nothing     , _vDevice = Nothing-    , _vName = Nothing     , _vAvailabilityZone = Nothing+    , _vName = Nothing     , _vRAIdArrayId = Nothing     , _vVolumeId = Nothing     , _vRegion = Nothing@@ -3629,15 +3632,15 @@ vDevice :: Lens' Volume (Maybe Text) vDevice = lens _vDevice (\ s a -> s{_vDevice = a}); --- | The volume name.-vName :: Lens' Volume (Maybe Text)-vName = lens _vName (\ s a -> s{_vName = a});- -- | The volume Availability Zone. For more information, see -- <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>. vAvailabilityZone :: Lens' Volume (Maybe Text) vAvailabilityZone = lens _vAvailabilityZone (\ s a -> s{_vAvailabilityZone = a}); +-- | The volume name.+vName :: Lens' Volume (Maybe Text)+vName = lens _vName (\ s a -> s{_vName = a});+ -- | The RAID array ID. vRAIdArrayId :: Lens' Volume (Maybe Text) vRAIdArrayId = lens _vRAIdArrayId (\ s a -> s{_vRAIdArrayId = a});@@ -3672,8 +3675,8 @@                      (x .:? "Size")                      <*> (x .:? "Iops")                      <*> (x .:? "Device")-                     <*> (x .:? "Name")                      <*> (x .:? "AvailabilityZone")+                     <*> (x .:? "Name")                      <*> (x .:? "RaidArrayId")                      <*> (x .:? "VolumeId")                      <*> (x .:? "Region")

@@ -34,12 +34,12 @@     , UpdateApp     -- * Request Lenses     , uaSSLConfiguration-    , uaEnableSSL     , uaEnvironment+    , uaEnableSSL     , uaDataSources     , uaAppSource-    , uaName     , uaAttributes+    , uaName     , uaType     , uaDomains     , uaDescription@@ -59,12 +59,12 @@ -- | /See:/ 'updateApp' smart constructor. data UpdateApp = UpdateApp'     { _uaSSLConfiguration :: !(Maybe SSLConfiguration)-    , _uaEnableSSL        :: !(Maybe Bool)     , _uaEnvironment      :: !(Maybe [EnvironmentVariable])+    , _uaEnableSSL        :: !(Maybe Bool)     , _uaDataSources      :: !(Maybe [DataSource])     , _uaAppSource        :: !(Maybe Source)-    , _uaName             :: !(Maybe Text)     , _uaAttributes       :: !(Maybe (Map AppAttributesKeys Text))+    , _uaName             :: !(Maybe Text)     , _uaType             :: !(Maybe AppType)     , _uaDomains          :: !(Maybe [Text])     , _uaDescription      :: !(Maybe Text)@@ -77,18 +77,18 @@ -- -- * 'uaSSLConfiguration' ----- * 'uaEnableSSL'--- -- * 'uaEnvironment' --+-- * 'uaEnableSSL'+-- -- * 'uaDataSources' -- -- * 'uaAppSource' ----- * 'uaName'--- -- * 'uaAttributes' --+-- * 'uaName'+-- -- * 'uaType' -- -- * 'uaDomains'@@ -102,12 +102,12 @@ updateApp pAppId_ =     UpdateApp'     { _uaSSLConfiguration = Nothing-    , _uaEnableSSL = Nothing     , _uaEnvironment = Nothing+    , _uaEnableSSL = Nothing     , _uaDataSources = Nothing     , _uaAppSource = Nothing-    , _uaName = Nothing     , _uaAttributes = Nothing+    , _uaName = Nothing     , _uaType = Nothing     , _uaDomains = Nothing     , _uaDescription = Nothing@@ -118,10 +118,6 @@ uaSSLConfiguration :: Lens' UpdateApp (Maybe SSLConfiguration) uaSSLConfiguration = lens _uaSSLConfiguration (\ s a -> s{_uaSSLConfiguration = a}); --- | Whether SSL is enabled for the app.-uaEnableSSL :: Lens' UpdateApp (Maybe Bool)-uaEnableSSL = lens _uaEnableSSL (\ s a -> s{_uaEnableSSL = a});- -- | An array of 'EnvironmentVariable' objects that specify environment -- variables to be associated with the app. After you deploy the app, these -- variables are defined on the associated app server instances.For more@@ -141,6 +137,10 @@ uaEnvironment :: Lens' UpdateApp [EnvironmentVariable] uaEnvironment = lens _uaEnvironment (\ s a -> s{_uaEnvironment = a}) . _Default . _Coerce; +-- | Whether SSL is enabled for the app.+uaEnableSSL :: Lens' UpdateApp (Maybe Bool)+uaEnableSSL = lens _uaEnableSSL (\ s a -> s{_uaEnableSSL = a});+ -- | The app\'s data sources. uaDataSources :: Lens' UpdateApp [DataSource] uaDataSources = lens _uaDataSources (\ s a -> s{_uaDataSources = a}) . _Default . _Coerce;@@ -149,15 +149,15 @@ uaAppSource :: Lens' UpdateApp (Maybe Source) uaAppSource = lens _uaAppSource (\ s a -> s{_uaAppSource = a}); --- | The app name.-uaName :: Lens' UpdateApp (Maybe Text)-uaName = lens _uaName (\ s a -> s{_uaName = a});- -- | One or more user-defined key\/value pairs to be added to the stack -- attributes. uaAttributes :: Lens' UpdateApp (HashMap AppAttributesKeys Text) uaAttributes = lens _uaAttributes (\ s a -> s{_uaAttributes = a}) . _Default . _Map; +-- | The app name.+uaName :: Lens' UpdateApp (Maybe Text)+uaName = lens _uaName (\ s a -> s{_uaName = a});+ -- | The app type. uaType :: Lens' UpdateApp (Maybe AppType) uaType = lens _uaType (\ s a -> s{_uaType = a});@@ -194,13 +194,12 @@           = object               (catMaybes                  [("SslConfiguration" .=) <$> _uaSSLConfiguration,-                  ("EnableSsl" .=) <$> _uaEnableSSL,                   ("Environment" .=) <$> _uaEnvironment,+                  ("EnableSsl" .=) <$> _uaEnableSSL,                   ("DataSources" .=) <$> _uaDataSources,                   ("AppSource" .=) <$> _uaAppSource,-                  ("Name" .=) <$> _uaName,                   ("Attributes" .=) <$> _uaAttributes,-                  ("Type" .=) <$> _uaType,+                  ("Name" .=) <$> _uaName, ("Type" .=) <$> _uaType,                   ("Domains" .=) <$> _uaDomains,                   ("Description" .=) <$> _uaDescription,                   Just ("AppId" .= _uaAppId)])

@@ -34,17 +34,17 @@     , UpdateLayer     -- * Request Lenses     , ulCustomInstanceProfileARN-    , ulInstallUpdatesOnBoot     , ulCustomSecurityGroupIds+    , ulInstallUpdatesOnBoot     , ulLifecycleEventConfiguration     , ulShortname     , ulCustomRecipes-    , ulVolumeConfigurations     , ulCustomJSON+    , ulVolumeConfigurations     , ulEnableAutoHealing     , ulPackages-    , ulName     , ulAttributes+    , ulName     , ulAutoAssignPublicIPs     , ulUseEBSOptimizedInstances     , ulAutoAssignElasticIPs@@ -64,17 +64,17 @@ -- | /See:/ 'updateLayer' smart constructor. data UpdateLayer = UpdateLayer'     { _ulCustomInstanceProfileARN    :: !(Maybe Text)-    , _ulInstallUpdatesOnBoot        :: !(Maybe Bool)     , _ulCustomSecurityGroupIds      :: !(Maybe [Text])+    , _ulInstallUpdatesOnBoot        :: !(Maybe Bool)     , _ulLifecycleEventConfiguration :: !(Maybe LifecycleEventConfiguration)     , _ulShortname                   :: !(Maybe Text)     , _ulCustomRecipes               :: !(Maybe Recipes)-    , _ulVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _ulCustomJSON                  :: !(Maybe Text)+    , _ulVolumeConfigurations        :: !(Maybe [VolumeConfiguration])     , _ulEnableAutoHealing           :: !(Maybe Bool)     , _ulPackages                    :: !(Maybe [Text])-    , _ulName                        :: !(Maybe Text)     , _ulAttributes                  :: !(Maybe (Map LayerAttributesKeys Text))+    , _ulName                        :: !(Maybe Text)     , _ulAutoAssignPublicIPs         :: !(Maybe Bool)     , _ulUseEBSOptimizedInstances    :: !(Maybe Bool)     , _ulAutoAssignElasticIPs        :: !(Maybe Bool)@@ -87,28 +87,28 @@ -- -- * 'ulCustomInstanceProfileARN' ----- * 'ulInstallUpdatesOnBoot'--- -- * 'ulCustomSecurityGroupIds' --+-- * 'ulInstallUpdatesOnBoot'+-- -- * 'ulLifecycleEventConfiguration' -- -- * 'ulShortname' -- -- * 'ulCustomRecipes' ----- * 'ulVolumeConfigurations'--- -- * 'ulCustomJSON' --+-- * 'ulVolumeConfigurations'+-- -- * 'ulEnableAutoHealing' -- -- * 'ulPackages' ----- * 'ulName'--- -- * 'ulAttributes' --+-- * 'ulName'+-- -- * 'ulAutoAssignPublicIPs' -- -- * 'ulUseEBSOptimizedInstances'@@ -122,17 +122,17 @@ updateLayer pLayerId_ =     UpdateLayer'     { _ulCustomInstanceProfileARN = Nothing-    , _ulInstallUpdatesOnBoot = Nothing     , _ulCustomSecurityGroupIds = Nothing+    , _ulInstallUpdatesOnBoot = Nothing     , _ulLifecycleEventConfiguration = Nothing     , _ulShortname = Nothing     , _ulCustomRecipes = Nothing-    , _ulVolumeConfigurations = Nothing     , _ulCustomJSON = Nothing+    , _ulVolumeConfigurations = Nothing     , _ulEnableAutoHealing = Nothing     , _ulPackages = Nothing-    , _ulName = Nothing     , _ulAttributes = Nothing+    , _ulName = Nothing     , _ulAutoAssignPublicIPs = Nothing     , _ulUseEBSOptimizedInstances = Nothing     , _ulAutoAssignElasticIPs = Nothing@@ -145,6 +145,10 @@ ulCustomInstanceProfileARN :: Lens' UpdateLayer (Maybe Text) ulCustomInstanceProfileARN = lens _ulCustomInstanceProfileARN (\ s a -> s{_ulCustomInstanceProfileARN = a}); +-- | An array containing the layer\'s custom security group IDs.+ulCustomSecurityGroupIds :: Lens' UpdateLayer [Text]+ulCustomSecurityGroupIds = lens _ulCustomSecurityGroupIds (\ s a -> s{_ulCustomSecurityGroupIds = a}) . _Default . _Coerce;+ -- | Whether to install operating system and package updates when the -- instance boots. The default value is 'true'. To control when updates are -- installed, set this value to 'false'. You must then update your@@ -157,10 +161,6 @@ ulInstallUpdatesOnBoot :: Lens' UpdateLayer (Maybe Bool) ulInstallUpdatesOnBoot = lens _ulInstallUpdatesOnBoot (\ s a -> s{_ulInstallUpdatesOnBoot = a}); --- | An array containing the layer\'s custom security group IDs.-ulCustomSecurityGroupIds :: Lens' UpdateLayer [Text]-ulCustomSecurityGroupIds = lens _ulCustomSecurityGroupIds (\ s a -> s{_ulCustomSecurityGroupIds = a}) . _Default . _Coerce;- -- | ulLifecycleEventConfiguration :: Lens' UpdateLayer (Maybe LifecycleEventConfiguration) ulLifecycleEventConfiguration = lens _ulLifecycleEventConfiguration (\ s a -> s{_ulLifecycleEventConfiguration = a});@@ -182,11 +182,6 @@ ulCustomRecipes :: Lens' UpdateLayer (Maybe Recipes) ulCustomRecipes = lens _ulCustomRecipes (\ s a -> s{_ulCustomRecipes = a}); --- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS--- volumes.-ulVolumeConfigurations :: Lens' UpdateLayer [VolumeConfiguration]-ulVolumeConfigurations = lens _ulVolumeConfigurations (\ s a -> s{_ulVolumeConfigurations = a}) . _Default . _Coerce;- -- | A JSON-formatted string containing custom stack configuration and -- deployment attributes to be installed on the layer\'s instances. For -- more information, see@@ -194,6 +189,11 @@ ulCustomJSON :: Lens' UpdateLayer (Maybe Text) ulCustomJSON = lens _ulCustomJSON (\ s a -> s{_ulCustomJSON = a}); +-- | A 'VolumeConfigurations' object that describes the layer\'s Amazon EBS+-- volumes.+ulVolumeConfigurations :: Lens' UpdateLayer [VolumeConfiguration]+ulVolumeConfigurations = lens _ulVolumeConfigurations (\ s a -> s{_ulVolumeConfigurations = a}) . _Default . _Coerce;+ -- | Whether to disable auto healing for the layer. ulEnableAutoHealing :: Lens' UpdateLayer (Maybe Bool) ulEnableAutoHealing = lens _ulEnableAutoHealing (\ s a -> s{_ulEnableAutoHealing = a});@@ -202,15 +202,15 @@ ulPackages :: Lens' UpdateLayer [Text] ulPackages = lens _ulPackages (\ s a -> s{_ulPackages = a}) . _Default . _Coerce; --- | The layer name, which is used by the console.-ulName :: Lens' UpdateLayer (Maybe Text)-ulName = lens _ulName (\ s a -> s{_ulName = a});- -- | One or more user-defined key\/value pairs to be added to the stack -- attributes. ulAttributes :: Lens' UpdateLayer (HashMap LayerAttributesKeys Text) ulAttributes = lens _ulAttributes (\ s a -> s{_ulAttributes = a}) . _Default . _Map; +-- | The layer name, which is used by the console.+ulName :: Lens' UpdateLayer (Maybe Text)+ulName = lens _ulName (\ s a -> s{_ulName = a});+ -- | For stacks that are running in a VPC, whether to automatically assign a -- public IP address to the layer\'s instances. For more information, see -- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinglayers-basics-edit.html How to Edit a Layer>.@@ -252,21 +252,21 @@               (catMaybes                  [("CustomInstanceProfileArn" .=) <$>                     _ulCustomInstanceProfileARN,-                  ("InstallUpdatesOnBoot" .=) <$>-                    _ulInstallUpdatesOnBoot,                   ("CustomSecurityGroupIds" .=) <$>                     _ulCustomSecurityGroupIds,+                  ("InstallUpdatesOnBoot" .=) <$>+                    _ulInstallUpdatesOnBoot,                   ("LifecycleEventConfiguration" .=) <$>                     _ulLifecycleEventConfiguration,                   ("Shortname" .=) <$> _ulShortname,                   ("CustomRecipes" .=) <$> _ulCustomRecipes,+                  ("CustomJson" .=) <$> _ulCustomJSON,                   ("VolumeConfigurations" .=) <$>                     _ulVolumeConfigurations,-                  ("CustomJson" .=) <$> _ulCustomJSON,                   ("EnableAutoHealing" .=) <$> _ulEnableAutoHealing,                   ("Packages" .=) <$> _ulPackages,-                  ("Name" .=) <$> _ulName,                   ("Attributes" .=) <$> _ulAttributes,+                  ("Name" .=) <$> _ulName,                   ("AutoAssignPublicIps" .=) <$>                     _ulAutoAssignPublicIPs,                   ("UseEbsOptimizedInstances" .=) <$>

@@ -42,10 +42,10 @@     , usCustomJSON     , usCustomCookbooksSource     , usDefaultAvailabilityZone+    , usAttributes     , usName-    , usUseOpsworksSecurityGroups     , usDefaultOS-    , usAttributes+    , usUseOpsworksSecurityGroups     , usUseCustomCookbooks     , usDefaultSubnetId     , usConfigurationManager@@ -74,10 +74,10 @@     , _usCustomJSON                :: !(Maybe Text)     , _usCustomCookbooksSource     :: !(Maybe Source)     , _usDefaultAvailabilityZone   :: !(Maybe Text)+    , _usAttributes                :: !(Maybe (Map StackAttributesKeys Text))     , _usName                      :: !(Maybe Text)-    , _usUseOpsworksSecurityGroups :: !(Maybe Bool)     , _usDefaultOS                 :: !(Maybe Text)-    , _usAttributes                :: !(Maybe (Map StackAttributesKeys Text))+    , _usUseOpsworksSecurityGroups :: !(Maybe Bool)     , _usUseCustomCookbooks        :: !(Maybe Bool)     , _usDefaultSubnetId           :: !(Maybe Text)     , _usConfigurationManager      :: !(Maybe StackConfigurationManager)@@ -107,13 +107,13 @@ -- -- * 'usDefaultAvailabilityZone' ----- * 'usName'+-- * 'usAttributes' ----- * 'usUseOpsworksSecurityGroups'+-- * 'usName' -- -- * 'usDefaultOS' ----- * 'usAttributes'+-- * 'usUseOpsworksSecurityGroups' -- -- * 'usUseCustomCookbooks' --@@ -138,10 +138,10 @@     , _usCustomJSON = Nothing     , _usCustomCookbooksSource = Nothing     , _usDefaultAvailabilityZone = Nothing+    , _usAttributes = Nothing     , _usName = Nothing-    , _usUseOpsworksSecurityGroups = Nothing     , _usDefaultOS = Nothing-    , _usAttributes = Nothing+    , _usUseOpsworksSecurityGroups = Nothing     , _usUseCustomCookbooks = Nothing     , _usDefaultSubnetId = Nothing     , _usConfigurationManager = Nothing@@ -230,10 +230,33 @@ usDefaultAvailabilityZone :: Lens' UpdateStack (Maybe Text) usDefaultAvailabilityZone = lens _usDefaultAvailabilityZone (\ s a -> s{_usDefaultAvailabilityZone = a}); +-- | One or more user-defined key-value pairs to be added to the stack+-- attributes.+usAttributes :: Lens' UpdateStack (HashMap StackAttributesKeys Text)+usAttributes = lens _usAttributes (\ s a -> s{_usAttributes = a}) . _Default . _Map;+ -- | The stack\'s new name. usName :: Lens' UpdateStack (Maybe Text) usName = lens _usName (\ s a -> s{_usName = a}); +-- | The stack\'s operating system, which must be set to one of the+-- following:+--+-- -   A supported Linux operating system: An Amazon Linux version, such as+--     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',+--     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.+-- -   'Microsoft Windows Server 2012 R2 Base'.+-- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use+--     when you create instances. For more information on how to use custom+--     AMIs with OpsWorks, see+--     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.+--+-- The default option is the stack\'s current operating system. For more+-- information on the supported operating systems, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.+usDefaultOS :: Lens' UpdateStack (Maybe Text)+usDefaultOS = lens _usDefaultOS (\ s a -> s{_usDefaultOS = a});+ -- | Whether to associate the AWS OpsWorks built-in security groups with the -- stack\'s layers. --@@ -259,29 +282,6 @@ usUseOpsworksSecurityGroups :: Lens' UpdateStack (Maybe Bool) usUseOpsworksSecurityGroups = lens _usUseOpsworksSecurityGroups (\ s a -> s{_usUseOpsworksSecurityGroups = a}); --- | The stack\'s operating system, which must be set to one of the--- following:------ -   A supported Linux operating system: An Amazon Linux version, such as---     'Amazon Linux 2015.03', 'Red Hat Enterprise Linux 7',---     'Ubuntu 12.04 LTS', or 'Ubuntu 14.04 LTS'.--- -   'Microsoft Windows Server 2012 R2 Base'.--- -   A custom AMI: 'Custom'. You specify the custom AMI you want to use---     when you create instances. For more information on how to use custom---     AMIs with OpsWorks, see---     <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-custom-ami.html Using Custom AMIs>.------ The default option is the stack\'s current operating system. For more--- information on the supported operating systems, see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/workinginstances-os.html AWS OpsWorks Operating Systems>.-usDefaultOS :: Lens' UpdateStack (Maybe Text)-usDefaultOS = lens _usDefaultOS (\ s a -> s{_usDefaultOS = a});---- | One or more user-defined key-value pairs to be added to the stack--- attributes.-usAttributes :: Lens' UpdateStack (HashMap StackAttributesKeys Text)-usAttributes = lens _usAttributes (\ s a -> s{_usAttributes = a}) . _Default . _Map;- -- | Whether the stack uses custom cookbooks. usUseCustomCookbooks :: Lens' UpdateStack (Maybe Bool) usUseCustomCookbooks = lens _usUseCustomCookbooks (\ s a -> s{_usUseCustomCookbooks = a});@@ -359,11 +359,11 @@                     _usCustomCookbooksSource,                   ("DefaultAvailabilityZone" .=) <$>                     _usDefaultAvailabilityZone,+                  ("Attributes" .=) <$> _usAttributes,                   ("Name" .=) <$> _usName,+                  ("DefaultOs" .=) <$> _usDefaultOS,                   ("UseOpsworksSecurityGroups" .=) <$>                     _usUseOpsworksSecurityGroups,-                  ("DefaultOs" .=) <$> _usDefaultOS,-                  ("Attributes" .=) <$> _usAttributes,                   ("UseCustomCookbooks" .=) <$> _usUseCustomCookbooks,                   ("DefaultSubnetId" .=) <$> _usDefaultSubnetId,                   ("ConfigurationManager" .=) <$>

@@ -32,9 +32,9 @@       updateUserProfile     , UpdateUserProfile     -- * Request Lenses-    , uupSSHUsername-    , uupSSHPublicKey     , uupAllowSelfManagement+    , uupSSHPublicKey+    , uupSSHUsername     , uupIAMUserARN      -- * Destructuring the Response@@ -50,9 +50,9 @@  -- | /See:/ 'updateUserProfile' smart constructor. data UpdateUserProfile = UpdateUserProfile'-    { _uupSSHUsername         :: !(Maybe Text)+    { _uupAllowSelfManagement :: !(Maybe Bool)     , _uupSSHPublicKey        :: !(Maybe Text)-    , _uupAllowSelfManagement :: !(Maybe Bool)+    , _uupSSHUsername         :: !(Maybe Text)     , _uupIAMUserARN          :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -60,11 +60,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'uupSSHUsername'+-- * 'uupAllowSelfManagement' -- -- * 'uupSSHPublicKey' ----- * 'uupAllowSelfManagement'+-- * 'uupSSHUsername' -- -- * 'uupIAMUserARN' updateUserProfile@@ -72,12 +72,22 @@     -> UpdateUserProfile updateUserProfile pIAMUserARN_ =     UpdateUserProfile'-    { _uupSSHUsername = Nothing+    { _uupAllowSelfManagement = Nothing     , _uupSSHPublicKey = Nothing-    , _uupAllowSelfManagement = Nothing+    , _uupSSHUsername = Nothing     , _uupIAMUserARN = pIAMUserARN_     } +-- | Whether users can specify their own SSH public key through the My+-- Settings page. For more information, see+-- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions>.+uupAllowSelfManagement :: Lens' UpdateUserProfile (Maybe Bool)+uupAllowSelfManagement = lens _uupAllowSelfManagement (\ s a -> s{_uupAllowSelfManagement = a});++-- | The user\'s new SSH public key.+uupSSHPublicKey :: Lens' UpdateUserProfile (Maybe Text)+uupSSHPublicKey = lens _uupSSHPublicKey (\ s a -> s{_uupSSHPublicKey = a});+ -- | The user\'s SSH user name. The allowable characters are [a-z], [A-Z], -- [0-9], \'-\', and \'_\'. If the specified name includes other -- punctuation marks, AWS OpsWorks removes them. For example, 'my.name'@@ -86,16 +96,6 @@ uupSSHUsername :: Lens' UpdateUserProfile (Maybe Text) uupSSHUsername = lens _uupSSHUsername (\ s a -> s{_uupSSHUsername = a}); --- | The user\'s new SSH public key.-uupSSHPublicKey :: Lens' UpdateUserProfile (Maybe Text)-uupSSHPublicKey = lens _uupSSHPublicKey (\ s a -> s{_uupSSHPublicKey = a});---- | Whether users can specify their own SSH public key through the My--- Settings page. For more information, see--- <http://docs.aws.amazon.com/opsworks/latest/userguide/security-settingsshkey.html Managing User Permissions>.-uupAllowSelfManagement :: Lens' UpdateUserProfile (Maybe Bool)-uupAllowSelfManagement = lens _uupAllowSelfManagement (\ s a -> s{_uupAllowSelfManagement = a});- -- | The user IAM ARN. uupIAMUserARN :: Lens' UpdateUserProfile Text uupIAMUserARN = lens _uupIAMUserARN (\ s a -> s{_uupIAMUserARN = a});@@ -119,10 +119,10 @@         toJSON UpdateUserProfile'{..}           = object               (catMaybes-                 [("SshUsername" .=) <$> _uupSSHUsername,-                  ("SshPublicKey" .=) <$> _uupSSHPublicKey,-                  ("AllowSelfManagement" .=) <$>+                 [("AllowSelfManagement" .=) <$>                     _uupAllowSelfManagement,+                  ("SshPublicKey" .=) <$> _uupSSHPublicKey,+                  ("SshUsername" .=) <$> _uupSSHUsername,                   Just ("IamUserArn" .= _uupIAMUserARN)])  instance ToPath UpdateUserProfile where

@@ -43,32 +43,32 @@ --         , testSetLoadBasedAutoScaling $ --             setLoadBasedAutoScaling -----         , testUnassignVolume $---             unassignVolume--- --         , testDeregisterRDSDBInstance $ --             deregisterRDSDBInstance --+--         , testUnassignVolume $+--             unassignVolume+-- --         , testCreateInstance $ --             createInstance --+--         , testDescribeLayers $+--             describeLayers+-- --         , testRegisterElasticIP $ --             registerElasticIP -- --         , testDescribeAgentVersions $ --             describeAgentVersions -----         , testDescribeLayers $---             describeLayers--- --         , testCreateDeployment $ --             createDeployment -----         , testDeleteApp $---             deleteApp+--         , testAssignInstance $+--             assignInstance -----         , testUpdateApp $---             updateApp+--         , testDescribeStacks $+--             describeStacks -- --         , testDeleteInstance $ --             deleteInstance@@ -76,24 +76,24 @@ --         , testUpdateInstance $ --             updateInstance -----         , testDescribeStacks $---             describeStacks--- --         , testDeregisterVolume $ --             deregisterVolume -----         , testAssignInstance $---             assignInstance--- --         , testRebootInstance $ --             rebootInstance -----         , testDescribeTimeBasedAutoScaling $---             describeTimeBasedAutoScaling+--         , testDeleteApp $+--             deleteApp --+--         , testUpdateApp $+--             updateApp+-- --         , testUpdateRDSDBInstance $ --             updateRDSDBInstance --+--         , testDescribeTimeBasedAutoScaling $+--             describeTimeBasedAutoScaling+-- --         , testStopStack $ --             stopStack --@@ -115,17 +115,14 @@ --         , testSetTimeBasedAutoScaling $ --             setTimeBasedAutoScaling -----         , testDeregisterElasticIP $---             deregisterElasticIP+--         , testDescribeUserProfiles $+--             describeUserProfiles -- --         , testAttachElasticLoadBalancer $ --             attachElasticLoadBalancer -----         , testDescribeUserProfiles $---             describeUserProfiles------         , testDescribeStackSummary $---             describeStackSummary+--         , testDeregisterElasticIP $+--             deregisterElasticIP -- --         , testDeregisterEcsCluster $ --             deregisterEcsCluster@@ -136,44 +133,47 @@ --         , testUpdateMyUserProfile $ --             updateMyUserProfile --+--         , testDescribeStackSummary $+--             describeStackSummary+-- --         , testDescribeInstances $ --             describeInstances -- --         , testDescribeDeployments $ --             describeDeployments -----         , testCreateStack $---             createStack+--         , testDescribeElasticIPs $+--             describeElasticIPs -- --         , testGrantAccess $ --             grantAccess -----         , testDescribeElasticIPs $---             describeElasticIPs--- --         , testDeleteLayer $ --             deleteLayer -- --         , testUpdateLayer $ --             updateLayer -----         , testCloneStack $---             cloneStack+--         , testCreateStack $+--             createStack -----         , testGetHostnameSuggestion $---             getHostnameSuggestion+--         , testUpdateElasticIP $+--             updateElasticIP -- --         , testCreateApp $ --             createApp --+--         , testGetHostnameSuggestion $+--             getHostnameSuggestion+--+--         , testCloneStack $+--             cloneStack+-- --         , testDescribePermissions $ --             describePermissions -----         , testUpdateElasticIP $---             updateElasticIP------         , testDescribeLoadBasedAutoScaling $---             describeLoadBasedAutoScaling+--         , testDetachElasticLoadBalancer $+--             detachElasticLoadBalancer -- --         , testRegisterInstance $ --             registerInstance@@ -181,20 +181,17 @@ --         , testAssociateElasticIP $ --             associateElasticIP -----         , testDetachElasticLoadBalancer $---             detachElasticLoadBalancer+--         , testDescribeLoadBasedAutoScaling $+--             describeLoadBasedAutoScaling -- --         , testDescribeStackProvisioningParameters $ --             describeStackProvisioningParameters -----         , testDescribeMyUserProfile $---             describeMyUserProfile--- --         , testUnassignInstance $ --             unassignInstance -----         , testRegisterRDSDBInstance $---             registerRDSDBInstance+--         , testDescribeMyUserProfile $+--             describeMyUserProfile -- --         , testDeleteUserProfile $ --             deleteUserProfile@@ -205,6 +202,9 @@ --         , testDescribeServiceErrors $ --             describeServiceErrors --+--         , testRegisterRDSDBInstance $+--             registerRDSDBInstance+-- --         , testStartStack $ --             startStack --@@ -214,27 +214,27 @@ --         , testDescribeCommands $ --             describeCommands -----         , testDescribeEcsClusters $---             describeEcsClusters+--         , testAssignVolume $+--             assignVolume -- --         , testDescribeElasticLoadBalancers $ --             describeElasticLoadBalancers --+--         , testSetPermission $+--             setPermission+-- --         , testDeregisterInstance $ --             deregisterInstance --+--         , testDescribeEcsClusters $+--             describeEcsClusters+-- --         , testDescribeRAIdArrays $ --             describeRAIdArrays -----         , testSetPermission $---             setPermission--- --         , testUpdateVolume $ --             updateVolume -----         , testAssignVolume $---             assignVolume--- --         , testStartInstance $ --             startInstance --@@ -256,32 +256,32 @@ --         , testSetLoadBasedAutoScalingResponse $ --             setLoadBasedAutoScalingResponse -----         , testUnassignVolumeResponse $---             unassignVolumeResponse--- --         , testDeregisterRDSDBInstanceResponse $ --             deregisterRDSDBInstanceResponse --+--         , testUnassignVolumeResponse $+--             unassignVolumeResponse+-- --         , testCreateInstanceResponse $ --             createInstanceResponse --+--         , testDescribeLayersResponse $+--             describeLayersResponse+-- --         , testRegisterElasticIPResponse $ --             registerElasticIPResponse -- --         , testDescribeAgentVersionsResponse $ --             describeAgentVersionsResponse -----         , testDescribeLayersResponse $---             describeLayersResponse--- --         , testCreateDeploymentResponse $ --             createDeploymentResponse -----         , testDeleteAppResponse $---             deleteAppResponse+--         , testAssignInstanceResponse $+--             assignInstanceResponse -----         , testUpdateAppResponse $---             updateAppResponse+--         , testDescribeStacksResponse $+--             describeStacksResponse -- --         , testDeleteInstanceResponse $ --             deleteInstanceResponse@@ -289,24 +289,24 @@ --         , testUpdateInstanceResponse $ --             updateInstanceResponse -----         , testDescribeStacksResponse $---             describeStacksResponse--- --         , testDeregisterVolumeResponse $ --             deregisterVolumeResponse -----         , testAssignInstanceResponse $---             assignInstanceResponse--- --         , testRebootInstanceResponse $ --             rebootInstanceResponse -----         , testDescribeTimeBasedAutoScalingResponse $---             describeTimeBasedAutoScalingResponse+--         , testDeleteAppResponse $+--             deleteAppResponse --+--         , testUpdateAppResponse $+--             updateAppResponse+-- --         , testUpdateRDSDBInstanceResponse $ --             updateRDSDBInstanceResponse --+--         , testDescribeTimeBasedAutoScalingResponse $+--             describeTimeBasedAutoScalingResponse+-- --         , testStopStackResponse $ --             stopStackResponse --@@ -328,17 +328,14 @@ --         , testSetTimeBasedAutoScalingResponse $ --             setTimeBasedAutoScalingResponse -----         , testDeregisterElasticIPResponse $---             deregisterElasticIPResponse+--         , testDescribeUserProfilesResponse $+--             describeUserProfilesResponse -- --         , testAttachElasticLoadBalancerResponse $ --             attachElasticLoadBalancerResponse -----         , testDescribeUserProfilesResponse $---             describeUserProfilesResponse------         , testDescribeStackSummaryResponse $---             describeStackSummaryResponse+--         , testDeregisterElasticIPResponse $+--             deregisterElasticIPResponse -- --         , testDeregisterEcsClusterResponse $ --             deregisterEcsClusterResponse@@ -349,44 +346,47 @@ --         , testUpdateMyUserProfileResponse $ --             updateMyUserProfileResponse --+--         , testDescribeStackSummaryResponse $+--             describeStackSummaryResponse+-- --         , testDescribeInstancesResponse $ --             describeInstancesResponse -- --         , testDescribeDeploymentsResponse $ --             describeDeploymentsResponse -----         , testCreateStackResponse $---             createStackResponse+--         , testDescribeElasticIPsResponse $+--             describeElasticIPsResponse -- --         , testGrantAccessResponse $ --             grantAccessResponse -----         , testDescribeElasticIPsResponse $---             describeElasticIPsResponse--- --         , testDeleteLayerResponse $ --             deleteLayerResponse -- --         , testUpdateLayerResponse $ --             updateLayerResponse -----         , testCloneStackResponse $---             cloneStackResponse+--         , testCreateStackResponse $+--             createStackResponse -----         , testGetHostnameSuggestionResponse $---             getHostnameSuggestionResponse+--         , testUpdateElasticIPResponse $+--             updateElasticIPResponse -- --         , testCreateAppResponse $ --             createAppResponse --+--         , testGetHostnameSuggestionResponse $+--             getHostnameSuggestionResponse+--+--         , testCloneStackResponse $+--             cloneStackResponse+-- --         , testDescribePermissionsResponse $ --             describePermissionsResponse -----         , testUpdateElasticIPResponse $---             updateElasticIPResponse------         , testDescribeLoadBasedAutoScalingResponse $---             describeLoadBasedAutoScalingResponse+--         , testDetachElasticLoadBalancerResponse $+--             detachElasticLoadBalancerResponse -- --         , testRegisterInstanceResponse $ --             registerInstanceResponse@@ -394,20 +394,17 @@ --         , testAssociateElasticIPResponse $ --             associateElasticIPResponse -----         , testDetachElasticLoadBalancerResponse $---             detachElasticLoadBalancerResponse+--         , testDescribeLoadBasedAutoScalingResponse $+--             describeLoadBasedAutoScalingResponse -- --         , testDescribeStackProvisioningParametersResponse $ --             describeStackProvisioningParametersResponse -----         , testDescribeMyUserProfileResponse $---             describeMyUserProfileResponse--- --         , testUnassignInstanceResponse $ --             unassignInstanceResponse -----         , testRegisterRDSDBInstanceResponse $---             registerRDSDBInstanceResponse+--         , testDescribeMyUserProfileResponse $+--             describeMyUserProfileResponse -- --         , testDeleteUserProfileResponse $ --             deleteUserProfileResponse@@ -418,6 +415,9 @@ --         , testDescribeServiceErrorsResponse $ --             describeServiceErrorsResponse --+--         , testRegisterRDSDBInstanceResponse $+--             registerRDSDBInstanceResponse+-- --         , testStartStackResponse $ --             startStackResponse --@@ -427,27 +427,27 @@ --         , testDescribeCommandsResponse $ --             describeCommandsResponse -----         , testDescribeEcsClustersResponse $---             describeEcsClustersResponse+--         , testAssignVolumeResponse $+--             assignVolumeResponse -- --         , testDescribeElasticLoadBalancersResponse $ --             describeElasticLoadBalancersResponse --+--         , testSetPermissionResponse $+--             setPermissionResponse+-- --         , testDeregisterInstanceResponse $ --             deregisterInstanceResponse --+--         , testDescribeEcsClustersResponse $+--             describeEcsClustersResponse+-- --         , testDescribeRAIdArraysResponse $ --             describeRAIdArraysResponse -----         , testSetPermissionResponse $---             setPermissionResponse--- --         , testUpdateVolumeResponse $ --             updateVolumeResponse -----         , testAssignVolumeResponse $---             assignVolumeResponse--- --         , testStartInstanceResponse $ --             startInstanceResponse --@@ -481,21 +481,26 @@     "SetLoadBasedAutoScaling"     "fixture/SetLoadBasedAutoScaling.yaml" -testUnassignVolume :: UnassignVolume -> TestTree-testUnassignVolume = req-    "UnassignVolume"-    "fixture/UnassignVolume.yaml"- testDeregisterRDSDBInstance :: DeregisterRDSDBInstance -> TestTree testDeregisterRDSDBInstance = req     "DeregisterRDSDBInstance"     "fixture/DeregisterRDSDBInstance.yaml" +testUnassignVolume :: UnassignVolume -> TestTree+testUnassignVolume = req+    "UnassignVolume"+    "fixture/UnassignVolume.yaml"+ testCreateInstance :: CreateInstance -> TestTree testCreateInstance = req     "CreateInstance"     "fixture/CreateInstance.yaml" +testDescribeLayers :: DescribeLayers -> TestTree+testDescribeLayers = req+    "DescribeLayers"+    "fixture/DescribeLayers.yaml"+ testRegisterElasticIP :: RegisterElasticIP -> TestTree testRegisterElasticIP = req     "RegisterElasticIP"@@ -506,25 +511,20 @@     "DescribeAgentVersions"     "fixture/DescribeAgentVersions.yaml" -testDescribeLayers :: DescribeLayers -> TestTree-testDescribeLayers = req-    "DescribeLayers"-    "fixture/DescribeLayers.yaml"- testCreateDeployment :: CreateDeployment -> TestTree testCreateDeployment = req     "CreateDeployment"     "fixture/CreateDeployment.yaml" -testDeleteApp :: DeleteApp -> TestTree-testDeleteApp = req-    "DeleteApp"-    "fixture/DeleteApp.yaml"+testAssignInstance :: AssignInstance -> TestTree+testAssignInstance = req+    "AssignInstance"+    "fixture/AssignInstance.yaml" -testUpdateApp :: UpdateApp -> TestTree-testUpdateApp = req-    "UpdateApp"-    "fixture/UpdateApp.yaml"+testDescribeStacks :: DescribeStacks -> TestTree+testDescribeStacks = req+    "DescribeStacks"+    "fixture/DescribeStacks.yaml"  testDeleteInstance :: DeleteInstance -> TestTree testDeleteInstance = req@@ -536,36 +536,36 @@     "UpdateInstance"     "fixture/UpdateInstance.yaml" -testDescribeStacks :: DescribeStacks -> TestTree-testDescribeStacks = req-    "DescribeStacks"-    "fixture/DescribeStacks.yaml"- testDeregisterVolume :: DeregisterVolume -> TestTree testDeregisterVolume = req     "DeregisterVolume"     "fixture/DeregisterVolume.yaml" -testAssignInstance :: AssignInstance -> TestTree-testAssignInstance = req-    "AssignInstance"-    "fixture/AssignInstance.yaml"- testRebootInstance :: RebootInstance -> TestTree testRebootInstance = req     "RebootInstance"     "fixture/RebootInstance.yaml" -testDescribeTimeBasedAutoScaling :: DescribeTimeBasedAutoScaling -> TestTree-testDescribeTimeBasedAutoScaling = req-    "DescribeTimeBasedAutoScaling"-    "fixture/DescribeTimeBasedAutoScaling.yaml"+testDeleteApp :: DeleteApp -> TestTree+testDeleteApp = req+    "DeleteApp"+    "fixture/DeleteApp.yaml" +testUpdateApp :: UpdateApp -> TestTree+testUpdateApp = req+    "UpdateApp"+    "fixture/UpdateApp.yaml"+ testUpdateRDSDBInstance :: UpdateRDSDBInstance -> TestTree testUpdateRDSDBInstance = req     "UpdateRDSDBInstance"     "fixture/UpdateRDSDBInstance.yaml" +testDescribeTimeBasedAutoScaling :: DescribeTimeBasedAutoScaling -> TestTree+testDescribeTimeBasedAutoScaling = req+    "DescribeTimeBasedAutoScaling"+    "fixture/DescribeTimeBasedAutoScaling.yaml"+ testStopStack :: StopStack -> TestTree testStopStack = req     "StopStack"@@ -601,25 +601,20 @@     "SetTimeBasedAutoScaling"     "fixture/SetTimeBasedAutoScaling.yaml" -testDeregisterElasticIP :: DeregisterElasticIP -> TestTree-testDeregisterElasticIP = req-    "DeregisterElasticIP"-    "fixture/DeregisterElasticIP.yaml"+testDescribeUserProfiles :: DescribeUserProfiles -> TestTree+testDescribeUserProfiles = req+    "DescribeUserProfiles"+    "fixture/DescribeUserProfiles.yaml"  testAttachElasticLoadBalancer :: AttachElasticLoadBalancer -> TestTree testAttachElasticLoadBalancer = req     "AttachElasticLoadBalancer"     "fixture/AttachElasticLoadBalancer.yaml" -testDescribeUserProfiles :: DescribeUserProfiles -> TestTree-testDescribeUserProfiles = req-    "DescribeUserProfiles"-    "fixture/DescribeUserProfiles.yaml"--testDescribeStackSummary :: DescribeStackSummary -> TestTree-testDescribeStackSummary = req-    "DescribeStackSummary"-    "fixture/DescribeStackSummary.yaml"+testDeregisterElasticIP :: DeregisterElasticIP -> TestTree+testDeregisterElasticIP = req+    "DeregisterElasticIP"+    "fixture/DeregisterElasticIP.yaml"  testDeregisterEcsCluster :: DeregisterEcsCluster -> TestTree testDeregisterEcsCluster = req@@ -636,6 +631,11 @@     "UpdateMyUserProfile"     "fixture/UpdateMyUserProfile.yaml" +testDescribeStackSummary :: DescribeStackSummary -> TestTree+testDescribeStackSummary = req+    "DescribeStackSummary"+    "fixture/DescribeStackSummary.yaml"+ testDescribeInstances :: DescribeInstances -> TestTree testDescribeInstances = req     "DescribeInstances"@@ -646,21 +646,16 @@     "DescribeDeployments"     "fixture/DescribeDeployments.yaml" -testCreateStack :: CreateStack -> TestTree-testCreateStack = req-    "CreateStack"-    "fixture/CreateStack.yaml"+testDescribeElasticIPs :: DescribeElasticIPs -> TestTree+testDescribeElasticIPs = req+    "DescribeElasticIPs"+    "fixture/DescribeElasticIPs.yaml"  testGrantAccess :: GrantAccess -> TestTree testGrantAccess = req     "GrantAccess"     "fixture/GrantAccess.yaml" -testDescribeElasticIPs :: DescribeElasticIPs -> TestTree-testDescribeElasticIPs = req-    "DescribeElasticIPs"-    "fixture/DescribeElasticIPs.yaml"- testDeleteLayer :: DeleteLayer -> TestTree testDeleteLayer = req     "DeleteLayer"@@ -671,35 +666,40 @@     "UpdateLayer"     "fixture/UpdateLayer.yaml" -testCloneStack :: CloneStack -> TestTree-testCloneStack = req-    "CloneStack"-    "fixture/CloneStack.yaml"+testCreateStack :: CreateStack -> TestTree+testCreateStack = req+    "CreateStack"+    "fixture/CreateStack.yaml" -testGetHostnameSuggestion :: GetHostnameSuggestion -> TestTree-testGetHostnameSuggestion = req-    "GetHostnameSuggestion"-    "fixture/GetHostnameSuggestion.yaml"+testUpdateElasticIP :: UpdateElasticIP -> TestTree+testUpdateElasticIP = req+    "UpdateElasticIP"+    "fixture/UpdateElasticIP.yaml"  testCreateApp :: CreateApp -> TestTree testCreateApp = req     "CreateApp"     "fixture/CreateApp.yaml" +testGetHostnameSuggestion :: GetHostnameSuggestion -> TestTree+testGetHostnameSuggestion = req+    "GetHostnameSuggestion"+    "fixture/GetHostnameSuggestion.yaml"++testCloneStack :: CloneStack -> TestTree+testCloneStack = req+    "CloneStack"+    "fixture/CloneStack.yaml"+ testDescribePermissions :: DescribePermissions -> TestTree testDescribePermissions = req     "DescribePermissions"     "fixture/DescribePermissions.yaml" -testUpdateElasticIP :: UpdateElasticIP -> TestTree-testUpdateElasticIP = req-    "UpdateElasticIP"-    "fixture/UpdateElasticIP.yaml"--testDescribeLoadBasedAutoScaling :: DescribeLoadBasedAutoScaling -> TestTree-testDescribeLoadBasedAutoScaling = req-    "DescribeLoadBasedAutoScaling"-    "fixture/DescribeLoadBasedAutoScaling.yaml"+testDetachElasticLoadBalancer :: DetachElasticLoadBalancer -> TestTree+testDetachElasticLoadBalancer = req+    "DetachElasticLoadBalancer"+    "fixture/DetachElasticLoadBalancer.yaml"  testRegisterInstance :: RegisterInstance -> TestTree testRegisterInstance = req@@ -711,30 +711,25 @@     "AssociateElasticIP"     "fixture/AssociateElasticIP.yaml" -testDetachElasticLoadBalancer :: DetachElasticLoadBalancer -> TestTree-testDetachElasticLoadBalancer = req-    "DetachElasticLoadBalancer"-    "fixture/DetachElasticLoadBalancer.yaml"+testDescribeLoadBasedAutoScaling :: DescribeLoadBasedAutoScaling -> TestTree+testDescribeLoadBasedAutoScaling = req+    "DescribeLoadBasedAutoScaling"+    "fixture/DescribeLoadBasedAutoScaling.yaml"  testDescribeStackProvisioningParameters :: DescribeStackProvisioningParameters -> TestTree testDescribeStackProvisioningParameters = req     "DescribeStackProvisioningParameters"     "fixture/DescribeStackProvisioningParameters.yaml" -testDescribeMyUserProfile :: DescribeMyUserProfile -> TestTree-testDescribeMyUserProfile = req-    "DescribeMyUserProfile"-    "fixture/DescribeMyUserProfile.yaml"- testUnassignInstance :: UnassignInstance -> TestTree testUnassignInstance = req     "UnassignInstance"     "fixture/UnassignInstance.yaml" -testRegisterRDSDBInstance :: RegisterRDSDBInstance -> TestTree-testRegisterRDSDBInstance = req-    "RegisterRDSDBInstance"-    "fixture/RegisterRDSDBInstance.yaml"+testDescribeMyUserProfile :: DescribeMyUserProfile -> TestTree+testDescribeMyUserProfile = req+    "DescribeMyUserProfile"+    "fixture/DescribeMyUserProfile.yaml"  testDeleteUserProfile :: DeleteUserProfile -> TestTree testDeleteUserProfile = req@@ -751,6 +746,11 @@     "DescribeServiceErrors"     "fixture/DescribeServiceErrors.yaml" +testRegisterRDSDBInstance :: RegisterRDSDBInstance -> TestTree+testRegisterRDSDBInstance = req+    "RegisterRDSDBInstance"+    "fixture/RegisterRDSDBInstance.yaml"+ testStartStack :: StartStack -> TestTree testStartStack = req     "StartStack"@@ -766,41 +766,41 @@     "DescribeCommands"     "fixture/DescribeCommands.yaml" -testDescribeEcsClusters :: DescribeEcsClusters -> TestTree-testDescribeEcsClusters = req-    "DescribeEcsClusters"-    "fixture/DescribeEcsClusters.yaml"+testAssignVolume :: AssignVolume -> TestTree+testAssignVolume = req+    "AssignVolume"+    "fixture/AssignVolume.yaml"  testDescribeElasticLoadBalancers :: DescribeElasticLoadBalancers -> TestTree testDescribeElasticLoadBalancers = req     "DescribeElasticLoadBalancers"     "fixture/DescribeElasticLoadBalancers.yaml" +testSetPermission :: SetPermission -> TestTree+testSetPermission = req+    "SetPermission"+    "fixture/SetPermission.yaml"+ testDeregisterInstance :: DeregisterInstance -> TestTree testDeregisterInstance = req     "DeregisterInstance"     "fixture/DeregisterInstance.yaml" +testDescribeEcsClusters :: DescribeEcsClusters -> TestTree+testDescribeEcsClusters = req+    "DescribeEcsClusters"+    "fixture/DescribeEcsClusters.yaml"+ testDescribeRAIdArrays :: DescribeRAIdArrays -> TestTree testDescribeRAIdArrays = req     "DescribeRAIdArrays"     "fixture/DescribeRAIdArrays.yaml" -testSetPermission :: SetPermission -> TestTree-testSetPermission = req-    "SetPermission"-    "fixture/SetPermission.yaml"- testUpdateVolume :: UpdateVolume -> TestTree testUpdateVolume = req     "UpdateVolume"     "fixture/UpdateVolume.yaml" -testAssignVolume :: AssignVolume -> TestTree-testAssignVolume = req-    "AssignVolume"-    "fixture/AssignVolume.yaml"- testStartInstance :: StartInstance -> TestTree testStartInstance = req     "StartInstance"@@ -843,13 +843,6 @@     opsWorks     (Proxy :: Proxy SetLoadBasedAutoScaling) -testUnassignVolumeResponse :: UnassignVolumeResponse -> TestTree-testUnassignVolumeResponse = res-    "UnassignVolumeResponse"-    "fixture/UnassignVolumeResponse.proto"-    opsWorks-    (Proxy :: Proxy UnassignVolume)- testDeregisterRDSDBInstanceResponse :: DeregisterRDSDBInstanceResponse -> TestTree testDeregisterRDSDBInstanceResponse = res     "DeregisterRDSDBInstanceResponse"@@ -857,6 +850,13 @@     opsWorks     (Proxy :: Proxy DeregisterRDSDBInstance) +testUnassignVolumeResponse :: UnassignVolumeResponse -> TestTree+testUnassignVolumeResponse = res+    "UnassignVolumeResponse"+    "fixture/UnassignVolumeResponse.proto"+    opsWorks+    (Proxy :: Proxy UnassignVolume)+ testCreateInstanceResponse :: CreateInstanceResponse -> TestTree testCreateInstanceResponse = res     "CreateInstanceResponse"@@ -864,6 +864,13 @@     opsWorks     (Proxy :: Proxy CreateInstance) +testDescribeLayersResponse :: DescribeLayersResponse -> TestTree+testDescribeLayersResponse = res+    "DescribeLayersResponse"+    "fixture/DescribeLayersResponse.proto"+    opsWorks+    (Proxy :: Proxy DescribeLayers)+ testRegisterElasticIPResponse :: RegisterElasticIPResponse -> TestTree testRegisterElasticIPResponse = res     "RegisterElasticIPResponse"@@ -878,13 +885,6 @@     opsWorks     (Proxy :: Proxy DescribeAgentVersions) -testDescribeLayersResponse :: DescribeLayersResponse -> TestTree-testDescribeLayersResponse = res-    "DescribeLayersResponse"-    "fixture/DescribeLayersResponse.proto"-    opsWorks-    (Proxy :: Proxy DescribeLayers)- testCreateDeploymentResponse :: CreateDeploymentResponse -> TestTree testCreateDeploymentResponse = res     "CreateDeploymentResponse"@@ -892,19 +892,19 @@     opsWorks     (Proxy :: Proxy CreateDeployment) -testDeleteAppResponse :: DeleteAppResponse -> TestTree-testDeleteAppResponse = res-    "DeleteAppResponse"-    "fixture/DeleteAppResponse.proto"+testAssignInstanceResponse :: AssignInstanceResponse -> TestTree+testAssignInstanceResponse = res+    "AssignInstanceResponse"+    "fixture/AssignInstanceResponse.proto"     opsWorks-    (Proxy :: Proxy DeleteApp)+    (Proxy :: Proxy AssignInstance) -testUpdateAppResponse :: UpdateAppResponse -> TestTree-testUpdateAppResponse = res-    "UpdateAppResponse"-    "fixture/UpdateAppResponse.proto"+testDescribeStacksResponse :: DescribeStacksResponse -> TestTree+testDescribeStacksResponse = res+    "DescribeStacksResponse"+    "fixture/DescribeStacksResponse.proto"     opsWorks-    (Proxy :: Proxy UpdateApp)+    (Proxy :: Proxy DescribeStacks)  testDeleteInstanceResponse :: DeleteInstanceResponse -> TestTree testDeleteInstanceResponse = res@@ -920,13 +920,6 @@     opsWorks     (Proxy :: Proxy UpdateInstance) -testDescribeStacksResponse :: DescribeStacksResponse -> TestTree-testDescribeStacksResponse = res-    "DescribeStacksResponse"-    "fixture/DescribeStacksResponse.proto"-    opsWorks-    (Proxy :: Proxy DescribeStacks)- testDeregisterVolumeResponse :: DeregisterVolumeResponse -> TestTree testDeregisterVolumeResponse = res     "DeregisterVolumeResponse"@@ -934,13 +927,6 @@     opsWorks     (Proxy :: Proxy DeregisterVolume) -testAssignInstanceResponse :: AssignInstanceResponse -> TestTree-testAssignInstanceResponse = res-    "AssignInstanceResponse"-    "fixture/AssignInstanceResponse.proto"-    opsWorks-    (Proxy :: Proxy AssignInstance)- testRebootInstanceResponse :: RebootInstanceResponse -> TestTree testRebootInstanceResponse = res     "RebootInstanceResponse"@@ -948,13 +934,20 @@     opsWorks     (Proxy :: Proxy RebootInstance) -testDescribeTimeBasedAutoScalingResponse :: DescribeTimeBasedAutoScalingResponse -> TestTree-testDescribeTimeBasedAutoScalingResponse = res-    "DescribeTimeBasedAutoScalingResponse"-    "fixture/DescribeTimeBasedAutoScalingResponse.proto"+testDeleteAppResponse :: DeleteAppResponse -> TestTree+testDeleteAppResponse = res+    "DeleteAppResponse"+    "fixture/DeleteAppResponse.proto"     opsWorks-    (Proxy :: Proxy DescribeTimeBasedAutoScaling)+    (Proxy :: Proxy DeleteApp) +testUpdateAppResponse :: UpdateAppResponse -> TestTree+testUpdateAppResponse = res+    "UpdateAppResponse"+    "fixture/UpdateAppResponse.proto"+    opsWorks+    (Proxy :: Proxy UpdateApp)+ testUpdateRDSDBInstanceResponse :: UpdateRDSDBInstanceResponse -> TestTree testUpdateRDSDBInstanceResponse = res     "UpdateRDSDBInstanceResponse"@@ -962,6 +955,13 @@     opsWorks     (Proxy :: Proxy UpdateRDSDBInstance) +testDescribeTimeBasedAutoScalingResponse :: DescribeTimeBasedAutoScalingResponse -> TestTree+testDescribeTimeBasedAutoScalingResponse = res+    "DescribeTimeBasedAutoScalingResponse"+    "fixture/DescribeTimeBasedAutoScalingResponse.proto"+    opsWorks+    (Proxy :: Proxy DescribeTimeBasedAutoScaling)+ testStopStackResponse :: StopStackResponse -> TestTree testStopStackResponse = res     "StopStackResponse"@@ -1011,12 +1011,12 @@     opsWorks     (Proxy :: Proxy SetTimeBasedAutoScaling) -testDeregisterElasticIPResponse :: DeregisterElasticIPResponse -> TestTree-testDeregisterElasticIPResponse = res-    "DeregisterElasticIPResponse"-    "fixture/DeregisterElasticIPResponse.proto"+testDescribeUserProfilesResponse :: DescribeUserProfilesResponse -> TestTree+testDescribeUserProfilesResponse = res+    "DescribeUserProfilesResponse"+    "fixture/DescribeUserProfilesResponse.proto"     opsWorks-    (Proxy :: Proxy DeregisterElasticIP)+    (Proxy :: Proxy DescribeUserProfiles)  testAttachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse -> TestTree testAttachElasticLoadBalancerResponse = res@@ -1025,19 +1025,12 @@     opsWorks     (Proxy :: Proxy AttachElasticLoadBalancer) -testDescribeUserProfilesResponse :: DescribeUserProfilesResponse -> TestTree-testDescribeUserProfilesResponse = res-    "DescribeUserProfilesResponse"-    "fixture/DescribeUserProfilesResponse.proto"-    opsWorks-    (Proxy :: Proxy DescribeUserProfiles)--testDescribeStackSummaryResponse :: DescribeStackSummaryResponse -> TestTree-testDescribeStackSummaryResponse = res-    "DescribeStackSummaryResponse"-    "fixture/DescribeStackSummaryResponse.proto"+testDeregisterElasticIPResponse :: DeregisterElasticIPResponse -> TestTree+testDeregisterElasticIPResponse = res+    "DeregisterElasticIPResponse"+    "fixture/DeregisterElasticIPResponse.proto"     opsWorks-    (Proxy :: Proxy DescribeStackSummary)+    (Proxy :: Proxy DeregisterElasticIP)  testDeregisterEcsClusterResponse :: DeregisterEcsClusterResponse -> TestTree testDeregisterEcsClusterResponse = res@@ -1060,6 +1053,13 @@     opsWorks     (Proxy :: Proxy UpdateMyUserProfile) +testDescribeStackSummaryResponse :: DescribeStackSummaryResponse -> TestTree+testDescribeStackSummaryResponse = res+    "DescribeStackSummaryResponse"+    "fixture/DescribeStackSummaryResponse.proto"+    opsWorks+    (Proxy :: Proxy DescribeStackSummary)+ testDescribeInstancesResponse :: DescribeInstancesResponse -> TestTree testDescribeInstancesResponse = res     "DescribeInstancesResponse"@@ -1074,12 +1074,12 @@     opsWorks     (Proxy :: Proxy DescribeDeployments) -testCreateStackResponse :: CreateStackResponse -> TestTree-testCreateStackResponse = res-    "CreateStackResponse"-    "fixture/CreateStackResponse.proto"+testDescribeElasticIPsResponse :: DescribeElasticIPsResponse -> TestTree+testDescribeElasticIPsResponse = res+    "DescribeElasticIPsResponse"+    "fixture/DescribeElasticIPsResponse.proto"     opsWorks-    (Proxy :: Proxy CreateStack)+    (Proxy :: Proxy DescribeElasticIPs)  testGrantAccessResponse :: GrantAccessResponse -> TestTree testGrantAccessResponse = res@@ -1088,13 +1088,6 @@     opsWorks     (Proxy :: Proxy GrantAccess) -testDescribeElasticIPsResponse :: DescribeElasticIPsResponse -> TestTree-testDescribeElasticIPsResponse = res-    "DescribeElasticIPsResponse"-    "fixture/DescribeElasticIPsResponse.proto"-    opsWorks-    (Proxy :: Proxy DescribeElasticIPs)- testDeleteLayerResponse :: DeleteLayerResponse -> TestTree testDeleteLayerResponse = res     "DeleteLayerResponse"@@ -1109,19 +1102,19 @@     opsWorks     (Proxy :: Proxy UpdateLayer) -testCloneStackResponse :: CloneStackResponse -> TestTree-testCloneStackResponse = res-    "CloneStackResponse"-    "fixture/CloneStackResponse.proto"+testCreateStackResponse :: CreateStackResponse -> TestTree+testCreateStackResponse = res+    "CreateStackResponse"+    "fixture/CreateStackResponse.proto"     opsWorks-    (Proxy :: Proxy CloneStack)+    (Proxy :: Proxy CreateStack) -testGetHostnameSuggestionResponse :: GetHostnameSuggestionResponse -> TestTree-testGetHostnameSuggestionResponse = res-    "GetHostnameSuggestionResponse"-    "fixture/GetHostnameSuggestionResponse.proto"+testUpdateElasticIPResponse :: UpdateElasticIPResponse -> TestTree+testUpdateElasticIPResponse = res+    "UpdateElasticIPResponse"+    "fixture/UpdateElasticIPResponse.proto"     opsWorks-    (Proxy :: Proxy GetHostnameSuggestion)+    (Proxy :: Proxy UpdateElasticIP)  testCreateAppResponse :: CreateAppResponse -> TestTree testCreateAppResponse = res@@ -1130,6 +1123,20 @@     opsWorks     (Proxy :: Proxy CreateApp) +testGetHostnameSuggestionResponse :: GetHostnameSuggestionResponse -> TestTree+testGetHostnameSuggestionResponse = res+    "GetHostnameSuggestionResponse"+    "fixture/GetHostnameSuggestionResponse.proto"+    opsWorks+    (Proxy :: Proxy GetHostnameSuggestion)++testCloneStackResponse :: CloneStackResponse -> TestTree+testCloneStackResponse = res+    "CloneStackResponse"+    "fixture/CloneStackResponse.proto"+    opsWorks+    (Proxy :: Proxy CloneStack)+ testDescribePermissionsResponse :: DescribePermissionsResponse -> TestTree testDescribePermissionsResponse = res     "DescribePermissionsResponse"@@ -1137,19 +1144,12 @@     opsWorks     (Proxy :: Proxy DescribePermissions) -testUpdateElasticIPResponse :: UpdateElasticIPResponse -> TestTree-testUpdateElasticIPResponse = res-    "UpdateElasticIPResponse"-    "fixture/UpdateElasticIPResponse.proto"-    opsWorks-    (Proxy :: Proxy UpdateElasticIP)--testDescribeLoadBasedAutoScalingResponse :: DescribeLoadBasedAutoScalingResponse -> TestTree-testDescribeLoadBasedAutoScalingResponse = res-    "DescribeLoadBasedAutoScalingResponse"-    "fixture/DescribeLoadBasedAutoScalingResponse.proto"+testDetachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse -> TestTree+testDetachElasticLoadBalancerResponse = res+    "DetachElasticLoadBalancerResponse"+    "fixture/DetachElasticLoadBalancerResponse.proto"     opsWorks-    (Proxy :: Proxy DescribeLoadBasedAutoScaling)+    (Proxy :: Proxy DetachElasticLoadBalancer)  testRegisterInstanceResponse :: RegisterInstanceResponse -> TestTree testRegisterInstanceResponse = res@@ -1165,12 +1165,12 @@     opsWorks     (Proxy :: Proxy AssociateElasticIP) -testDetachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse -> TestTree-testDetachElasticLoadBalancerResponse = res-    "DetachElasticLoadBalancerResponse"-    "fixture/DetachElasticLoadBalancerResponse.proto"+testDescribeLoadBasedAutoScalingResponse :: DescribeLoadBasedAutoScalingResponse -> TestTree+testDescribeLoadBasedAutoScalingResponse = res+    "DescribeLoadBasedAutoScalingResponse"+    "fixture/DescribeLoadBasedAutoScalingResponse.proto"     opsWorks-    (Proxy :: Proxy DetachElasticLoadBalancer)+    (Proxy :: Proxy DescribeLoadBasedAutoScaling)  testDescribeStackProvisioningParametersResponse :: DescribeStackProvisioningParametersResponse -> TestTree testDescribeStackProvisioningParametersResponse = res@@ -1179,13 +1179,6 @@     opsWorks     (Proxy :: Proxy DescribeStackProvisioningParameters) -testDescribeMyUserProfileResponse :: DescribeMyUserProfileResponse -> TestTree-testDescribeMyUserProfileResponse = res-    "DescribeMyUserProfileResponse"-    "fixture/DescribeMyUserProfileResponse.proto"-    opsWorks-    (Proxy :: Proxy DescribeMyUserProfile)- testUnassignInstanceResponse :: UnassignInstanceResponse -> TestTree testUnassignInstanceResponse = res     "UnassignInstanceResponse"@@ -1193,12 +1186,12 @@     opsWorks     (Proxy :: Proxy UnassignInstance) -testRegisterRDSDBInstanceResponse :: RegisterRDSDBInstanceResponse -> TestTree-testRegisterRDSDBInstanceResponse = res-    "RegisterRDSDBInstanceResponse"-    "fixture/RegisterRDSDBInstanceResponse.proto"+testDescribeMyUserProfileResponse :: DescribeMyUserProfileResponse -> TestTree+testDescribeMyUserProfileResponse = res+    "DescribeMyUserProfileResponse"+    "fixture/DescribeMyUserProfileResponse.proto"     opsWorks-    (Proxy :: Proxy RegisterRDSDBInstance)+    (Proxy :: Proxy DescribeMyUserProfile)  testDeleteUserProfileResponse :: DeleteUserProfileResponse -> TestTree testDeleteUserProfileResponse = res@@ -1221,6 +1214,13 @@     opsWorks     (Proxy :: Proxy DescribeServiceErrors) +testRegisterRDSDBInstanceResponse :: RegisterRDSDBInstanceResponse -> TestTree+testRegisterRDSDBInstanceResponse = res+    "RegisterRDSDBInstanceResponse"+    "fixture/RegisterRDSDBInstanceResponse.proto"+    opsWorks+    (Proxy :: Proxy RegisterRDSDBInstance)+ testStartStackResponse :: StartStackResponse -> TestTree testStartStackResponse = res     "StartStackResponse"@@ -1242,12 +1242,12 @@     opsWorks     (Proxy :: Proxy DescribeCommands) -testDescribeEcsClustersResponse :: DescribeEcsClustersResponse -> TestTree-testDescribeEcsClustersResponse = res-    "DescribeEcsClustersResponse"-    "fixture/DescribeEcsClustersResponse.proto"+testAssignVolumeResponse :: AssignVolumeResponse -> TestTree+testAssignVolumeResponse = res+    "AssignVolumeResponse"+    "fixture/AssignVolumeResponse.proto"     opsWorks-    (Proxy :: Proxy DescribeEcsClusters)+    (Proxy :: Proxy AssignVolume)  testDescribeElasticLoadBalancersResponse :: DescribeElasticLoadBalancersResponse -> TestTree testDescribeElasticLoadBalancersResponse = res@@ -1256,6 +1256,13 @@     opsWorks     (Proxy :: Proxy DescribeElasticLoadBalancers) +testSetPermissionResponse :: SetPermissionResponse -> TestTree+testSetPermissionResponse = res+    "SetPermissionResponse"+    "fixture/SetPermissionResponse.proto"+    opsWorks+    (Proxy :: Proxy SetPermission)+ testDeregisterInstanceResponse :: DeregisterInstanceResponse -> TestTree testDeregisterInstanceResponse = res     "DeregisterInstanceResponse"@@ -1263,6 +1270,13 @@     opsWorks     (Proxy :: Proxy DeregisterInstance) +testDescribeEcsClustersResponse :: DescribeEcsClustersResponse -> TestTree+testDescribeEcsClustersResponse = res+    "DescribeEcsClustersResponse"+    "fixture/DescribeEcsClustersResponse.proto"+    opsWorks+    (Proxy :: Proxy DescribeEcsClusters)+ testDescribeRAIdArraysResponse :: DescribeRAIdArraysResponse -> TestTree testDescribeRAIdArraysResponse = res     "DescribeRAIdArraysResponse"@@ -1270,26 +1284,12 @@     opsWorks     (Proxy :: Proxy DescribeRAIdArrays) -testSetPermissionResponse :: SetPermissionResponse -> TestTree-testSetPermissionResponse = res-    "SetPermissionResponse"-    "fixture/SetPermissionResponse.proto"-    opsWorks-    (Proxy :: Proxy SetPermission)- testUpdateVolumeResponse :: UpdateVolumeResponse -> TestTree testUpdateVolumeResponse = res     "UpdateVolumeResponse"     "fixture/UpdateVolumeResponse.proto"     opsWorks     (Proxy :: Proxy UpdateVolume)--testAssignVolumeResponse :: AssignVolumeResponse -> TestTree-testAssignVolumeResponse = res-    "AssignVolumeResponse"-    "fixture/AssignVolumeResponse.proto"-    opsWorks-    (Proxy :: Proxy AssignVolume)  testStartInstanceResponse :: StartInstanceResponse -> TestTree testStartInstanceResponse = res