diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.2.0.2` +`1.3.0` ## Description diff --git a/amazonka-opsworks.cabal b/amazonka-opsworks.cabal --- a/amazonka-opsworks.cabal +++ b/amazonka-opsworks.cabal @@ -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 diff --git a/gen/Network/AWS/OpsWorks.hs b/gen/Network/AWS/OpsWorks.hs --- a/gen/Network/AWS/OpsWorks.hs +++ b/gen/Network/AWS/OpsWorks.hs @@ -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 diff --git a/gen/Network/AWS/OpsWorks/CloneStack.hs b/gen/Network/AWS/OpsWorks/CloneStack.hs --- a/gen/Network/AWS/OpsWorks/CloneStack.hs +++ b/gen/Network/AWS/OpsWorks/CloneStack.hs @@ -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 --- . -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 +-- . +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 +-- . +-- +-- The default option is the parent stack\'s operating system. For more +-- information on the supported operating systems, see +-- . +-- +-- 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 --- . --- --- The default option is the parent stack\'s operating system. For more --- information on the supported operating systems, see --- . --- --- 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}); diff --git a/gen/Network/AWS/OpsWorks/CreateApp.hs b/gen/Network/AWS/OpsWorks/CreateApp.hs --- a/gen/Network/AWS/OpsWorks/CreateApp.hs +++ b/gen/Network/AWS/OpsWorks/CreateApp.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/CreateDeployment.hs b/gen/Network/AWS/OpsWorks/CreateDeployment.hs --- a/gen/Network/AWS/OpsWorks/CreateDeployment.hs +++ b/gen/Network/AWS/OpsWorks/CreateDeployment.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/CreateInstance.hs b/gen/Network/AWS/OpsWorks/CreateInstance.hs --- a/gen/Network/AWS/OpsWorks/CreateInstance.hs +++ b/gen/Network/AWS/OpsWorks/CreateInstance.hs @@ -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 +-- . +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 -- . ciBlockDeviceMappings :: Lens' CreateInstance [BlockDeviceMapping] ciBlockDeviceMappings = lens _ciBlockDeviceMappings (\ s a -> s{_ciBlockDeviceMappings = a}) . _Default . _Coerce; --- | The instance root device type. For more information, see --- . -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}); diff --git a/gen/Network/AWS/OpsWorks/CreateLayer.hs b/gen/Network/AWS/OpsWorks/CreateLayer.hs --- a/gen/Network/AWS/OpsWorks/CreateLayer.hs +++ b/gen/Network/AWS/OpsWorks/CreateLayer.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/CreateStack.hs b/gen/Network/AWS/OpsWorks/CreateStack.hs --- a/gen/Network/AWS/OpsWorks/CreateStack.hs +++ b/gen/Network/AWS/OpsWorks/CreateStack.hs @@ -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 --- . -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 +-- . +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 +-- . +-- +-- The default option is the current Amazon Linux version. For more +-- information on the supported operating systems, see +-- . +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 --- . --- --- The default option is the current Amazon Linux version. For more --- information on the supported operating systems, see --- . -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}); diff --git a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs --- a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs @@ -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 +-- . +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 --- . -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs b/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs --- a/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs +++ b/gen/Network/AWS/OpsWorks/DescribeAgentVersions.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeApps.hs b/gen/Network/AWS/OpsWorks/DescribeApps.hs --- a/gen/Network/AWS/OpsWorks/DescribeApps.hs +++ b/gen/Network/AWS/OpsWorks/DescribeApps.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeCommands.hs b/gen/Network/AWS/OpsWorks/DescribeCommands.hs --- a/gen/Network/AWS/OpsWorks/DescribeCommands.hs +++ b/gen/Network/AWS/OpsWorks/DescribeCommands.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs --- a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs +++ b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs b/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs --- a/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs +++ b/gen/Network/AWS/OpsWorks/DescribeEcsClusters.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs b/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs --- a/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs +++ b/gen/Network/AWS/OpsWorks/DescribeElasticIPs.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs --- a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs +++ b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeInstances.hs b/gen/Network/AWS/OpsWorks/DescribeInstances.hs --- a/gen/Network/AWS/OpsWorks/DescribeInstances.hs +++ b/gen/Network/AWS/OpsWorks/DescribeInstances.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeLayers.hs b/gen/Network/AWS/OpsWorks/DescribeLayers.hs --- a/gen/Network/AWS/OpsWorks/DescribeLayers.hs +++ b/gen/Network/AWS/OpsWorks/DescribeLayers.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs --- a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribePermissions.hs b/gen/Network/AWS/OpsWorks/DescribePermissions.hs --- a/gen/Network/AWS/OpsWorks/DescribePermissions.hs +++ b/gen/Network/AWS/OpsWorks/DescribePermissions.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs b/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs --- a/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs +++ b/gen/Network/AWS/OpsWorks/DescribeRAIdArrays.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs b/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs --- a/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs +++ b/gen/Network/AWS/OpsWorks/DescribeRDSDBInstances.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs --- a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs +++ b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs --- a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs --- a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeStacks.hs b/gen/Network/AWS/OpsWorks/DescribeStacks.hs --- a/gen/Network/AWS/OpsWorks/DescribeStacks.hs +++ b/gen/Network/AWS/OpsWorks/DescribeStacks.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs --- a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs +++ b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs --- a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs +++ b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs --- a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs +++ b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs --- a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs +++ b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/GrantAccess.hs b/gen/Network/AWS/OpsWorks/GrantAccess.hs --- a/gen/Network/AWS/OpsWorks/GrantAccess.hs +++ b/gen/Network/AWS/OpsWorks/GrantAccess.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs b/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs --- a/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs +++ b/gen/Network/AWS/OpsWorks/RegisterEcsCluster.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs b/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs --- a/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs +++ b/gen/Network/AWS/OpsWorks/RegisterElasticIP.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/RegisterInstance.hs b/gen/Network/AWS/OpsWorks/RegisterInstance.hs --- a/gen/Network/AWS/OpsWorks/RegisterInstance.hs +++ b/gen/Network/AWS/OpsWorks/RegisterInstance.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/RegisterVolume.hs b/gen/Network/AWS/OpsWorks/RegisterVolume.hs --- a/gen/Network/AWS/OpsWorks/RegisterVolume.hs +++ b/gen/Network/AWS/OpsWorks/RegisterVolume.hs @@ -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}); diff --git a/gen/Network/AWS/OpsWorks/Types.hs b/gen/Network/AWS/OpsWorks/Types.hs --- a/gen/Network/AWS/OpsWorks/Types.hs +++ b/gen/Network/AWS/OpsWorks/Types.hs @@ -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 diff --git a/gen/Network/AWS/OpsWorks/Types/Product.hs b/gen/Network/AWS/OpsWorks/Types/Product.hs --- a/gen/Network/AWS/OpsWorks/Types/Product.hs +++ b/gen/Network/AWS/OpsWorks/Types/Product.hs @@ -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 -- . @@ -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 -- . 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 -- 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 -- . 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 -- . 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 . 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 -- . 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 -- . 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 -- . 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 -- . 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") diff --git a/gen/Network/AWS/OpsWorks/UpdateApp.hs b/gen/Network/AWS/OpsWorks/UpdateApp.hs --- a/gen/Network/AWS/OpsWorks/UpdateApp.hs +++ b/gen/Network/AWS/OpsWorks/UpdateApp.hs @@ -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)]) diff --git a/gen/Network/AWS/OpsWorks/UpdateLayer.hs b/gen/Network/AWS/OpsWorks/UpdateLayer.hs --- a/gen/Network/AWS/OpsWorks/UpdateLayer.hs +++ b/gen/Network/AWS/OpsWorks/UpdateLayer.hs @@ -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 -- . @@ -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" .=) <$> diff --git a/gen/Network/AWS/OpsWorks/UpdateStack.hs b/gen/Network/AWS/OpsWorks/UpdateStack.hs --- a/gen/Network/AWS/OpsWorks/UpdateStack.hs +++ b/gen/Network/AWS/OpsWorks/UpdateStack.hs @@ -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 +-- . +-- +-- The default option is the stack\'s current operating system. For more +-- information on the supported operating systems, see +-- . +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 --- . --- --- The default option is the stack\'s current operating system. For more --- information on the supported operating systems, see --- . -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" .=) <$> diff --git a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs --- a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs +++ b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs @@ -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 +-- . +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 --- . -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 diff --git a/test/Test/AWS/Gen/OpsWorks.hs b/test/Test/AWS/Gen/OpsWorks.hs --- a/test/Test/AWS/Gen/OpsWorks.hs +++ b/test/Test/AWS/Gen/OpsWorks.hs @@ -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