diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.0.0` +`1.0.1` ## Description diff --git a/amazonka-autoscaling.cabal b/amazonka-autoscaling.cabal --- a/amazonka-autoscaling.cabal +++ b/amazonka-autoscaling.cabal @@ -1,5 +1,5 @@ name: amazonka-autoscaling -version: 1.0.0 +version: 1.0.1 synopsis: Amazon Auto Scaling SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -102,7 +102,7 @@ , Network.AWS.AutoScaling.Types.Sum build-depends: - amazonka-core == 1.0.0.* + amazonka-core == 1.0.1.* , base >= 4.7 && < 5 test-suite amazonka-autoscaling-test @@ -121,9 +121,9 @@ , Test.AWS.AutoScaling.Internal build-depends: - amazonka-core == 1.0.0 - , amazonka-test == 1.0.0 - , amazonka-autoscaling == 1.0.0 + amazonka-core == 1.0.1 + , amazonka-test == 1.0.1 + , amazonka-autoscaling == 1.0.1 , base , bytestring , lens diff --git a/gen/Network/AWS/AutoScaling.hs b/gen/Network/AWS/AutoScaling.hs --- a/gen/Network/AWS/AutoScaling.hs +++ b/gen/Network/AWS/AutoScaling.hs @@ -237,13 +237,13 @@ , asgVPCZoneIdentifier , asgEnabledMetrics , asgInstances + , asgLaunchConfigurationName , asgAutoScalingGroupARN , asgSuspendedProcesses , asgPlacementGroup , asgLoadBalancerNames , asgTags , asgAutoScalingGroupName - , asgLaunchConfigurationName , asgMinSize , asgMaxSize , asgDesiredCapacity @@ -294,11 +294,11 @@ -- ** Instance , Instance , instance' + , iLaunchConfigurationName , iInstanceId , iAvailabilityZone , iLifecycleState , iHealthStatus - , iLaunchConfigurationName -- ** InstanceMonitoring , InstanceMonitoring diff --git a/gen/Network/AWS/AutoScaling/Types.hs b/gen/Network/AWS/AutoScaling/Types.hs --- a/gen/Network/AWS/AutoScaling/Types.hs +++ b/gen/Network/AWS/AutoScaling/Types.hs @@ -64,13 +64,13 @@ , asgVPCZoneIdentifier , asgEnabledMetrics , asgInstances + , asgLaunchConfigurationName , asgAutoScalingGroupARN , asgSuspendedProcesses , asgPlacementGroup , asgLoadBalancerNames , asgTags , asgAutoScalingGroupName - , asgLaunchConfigurationName , asgMinSize , asgMaxSize , asgDesiredCapacity @@ -121,11 +121,11 @@ -- * Instance , Instance , instance' + , iLaunchConfigurationName , iInstanceId , iAvailabilityZone , iLifecycleState , iHealthStatus - , iLaunchConfigurationName -- * InstanceMonitoring , InstanceMonitoring diff --git a/gen/Network/AWS/AutoScaling/Types/Product.hs b/gen/Network/AWS/AutoScaling/Types/Product.hs --- a/gen/Network/AWS/AutoScaling/Types/Product.hs +++ b/gen/Network/AWS/AutoScaling/Types/Product.hs @@ -214,13 +214,13 @@ , _asgVPCZoneIdentifier :: !(Maybe Text) , _asgEnabledMetrics :: !(Maybe [EnabledMetric]) , _asgInstances :: !(Maybe [Instance]) + , _asgLaunchConfigurationName :: !(Maybe Text) , _asgAutoScalingGroupARN :: !(Maybe Text) , _asgSuspendedProcesses :: !(Maybe [SuspendedProcess]) , _asgPlacementGroup :: !(Maybe Text) , _asgLoadBalancerNames :: !(Maybe [Text]) , _asgTags :: !(Maybe [TagDescription]) , _asgAutoScalingGroupName :: !Text - , _asgLaunchConfigurationName :: !Text , _asgMinSize :: !Int , _asgMaxSize :: !Int , _asgDesiredCapacity :: !Int @@ -246,6 +246,8 @@ -- -- * 'asgInstances' -- +-- * 'asgLaunchConfigurationName' +-- -- * 'asgAutoScalingGroupARN' -- -- * 'asgSuspendedProcesses' @@ -258,8 +260,6 @@ -- -- * 'asgAutoScalingGroupName' -- --- * 'asgLaunchConfigurationName' --- -- * 'asgMinSize' -- -- * 'asgMaxSize' @@ -275,7 +275,6 @@ -- * 'asgCreatedTime' autoScalingGroup :: Text -- ^ 'asgAutoScalingGroupName' - -> Text -- ^ 'asgLaunchConfigurationName' -> Int -- ^ 'asgMinSize' -> Int -- ^ 'asgMaxSize' -> Int -- ^ 'asgDesiredCapacity' @@ -284,7 +283,7 @@ -> Text -- ^ 'asgHealthCheckType' -> UTCTime -- ^ 'asgCreatedTime' -> AutoScalingGroup -autoScalingGroup pAutoScalingGroupName_ pLaunchConfigurationName_ pMinSize_ pMaxSize_ pDesiredCapacity_ pDefaultCooldown_ pAvailabilityZones_ pHealthCheckType_ pCreatedTime_ = +autoScalingGroup pAutoScalingGroupName_ pMinSize_ pMaxSize_ pDesiredCapacity_ pDefaultCooldown_ pAvailabilityZones_ pHealthCheckType_ pCreatedTime_ = AutoScalingGroup' { _asgStatus = Nothing , _asgTerminationPolicies = Nothing @@ -292,13 +291,13 @@ , _asgVPCZoneIdentifier = Nothing , _asgEnabledMetrics = Nothing , _asgInstances = Nothing + , _asgLaunchConfigurationName = Nothing , _asgAutoScalingGroupARN = Nothing , _asgSuspendedProcesses = Nothing , _asgPlacementGroup = Nothing , _asgLoadBalancerNames = Nothing , _asgTags = Nothing , _asgAutoScalingGroupName = pAutoScalingGroupName_ - , _asgLaunchConfigurationName = pLaunchConfigurationName_ , _asgMinSize = pMinSize_ , _asgMaxSize = pMaxSize_ , _asgDesiredCapacity = pDesiredCapacity_ @@ -339,6 +338,10 @@ asgInstances :: Lens' AutoScalingGroup [Instance] asgInstances = lens _asgInstances (\ s a -> s{_asgInstances = a}) . _Default . _Coerce; +-- | The name of the associated launch configuration. +asgLaunchConfigurationName :: Lens' AutoScalingGroup (Maybe Text) +asgLaunchConfigurationName = lens _asgLaunchConfigurationName (\ s a -> s{_asgLaunchConfigurationName = a}); + -- | The Amazon Resource Name (ARN) of the group. asgAutoScalingGroupARN :: Lens' AutoScalingGroup (Maybe Text) asgAutoScalingGroupARN = lens _asgAutoScalingGroupARN (\ s a -> s{_asgAutoScalingGroupARN = a}); @@ -365,10 +368,6 @@ asgAutoScalingGroupName :: Lens' AutoScalingGroup Text asgAutoScalingGroupName = lens _asgAutoScalingGroupName (\ s a -> s{_asgAutoScalingGroupName = a}); --- | The name of the associated launch configuration. -asgLaunchConfigurationName :: Lens' AutoScalingGroup Text -asgLaunchConfigurationName = lens _asgLaunchConfigurationName (\ s a -> s{_asgLaunchConfigurationName = a}); - -- | The minimum size of the group. asgMinSize :: Lens' AutoScalingGroup Int asgMinSize = lens _asgMinSize (\ s a -> s{_asgMinSize = a}); @@ -413,6 +412,7 @@ <*> (x .@? "Instances" .!@ mempty >>= may (parseXMLList "member")) + <*> (x .@? "LaunchConfigurationName") <*> (x .@? "AutoScalingGroupARN") <*> (x .@? "SuspendedProcesses" .!@ mempty >>= @@ -425,7 +425,6 @@ (x .@? "Tags" .!@ mempty >>= may (parseXMLList "member")) <*> (x .@ "AutoScalingGroupName") - <*> (x .@ "LaunchConfigurationName") <*> (x .@ "MinSize") <*> (x .@ "MaxSize") <*> (x .@ "DesiredCapacity") @@ -774,17 +773,19 @@ -- -- /See:/ 'instance'' smart constructor. data Instance = Instance' - { _iInstanceId :: !Text + { _iLaunchConfigurationName :: !(Maybe Text) + , _iInstanceId :: !Text , _iAvailabilityZone :: !Text , _iLifecycleState :: !LifecycleState , _iHealthStatus :: !Text - , _iLaunchConfigurationName :: !Text } 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: -- +-- * 'iLaunchConfigurationName' +-- -- * 'iInstanceId' -- -- * 'iAvailabilityZone' @@ -792,24 +793,25 @@ -- * 'iLifecycleState' -- -- * 'iHealthStatus' --- --- * 'iLaunchConfigurationName' instance' :: Text -- ^ 'iInstanceId' -> Text -- ^ 'iAvailabilityZone' -> LifecycleState -- ^ 'iLifecycleState' -> Text -- ^ 'iHealthStatus' - -> Text -- ^ 'iLaunchConfigurationName' -> Instance -instance' pInstanceId_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ pLaunchConfigurationName_ = +instance' pInstanceId_ pAvailabilityZone_ pLifecycleState_ pHealthStatus_ = Instance' - { _iInstanceId = pInstanceId_ + { _iLaunchConfigurationName = Nothing + , _iInstanceId = pInstanceId_ , _iAvailabilityZone = pAvailabilityZone_ , _iLifecycleState = pLifecycleState_ , _iHealthStatus = pHealthStatus_ - , _iLaunchConfigurationName = pLaunchConfigurationName_ } +-- | The launch configuration associated with the instance. +iLaunchConfigurationName :: Lens' Instance (Maybe Text) +iLaunchConfigurationName = lens _iLaunchConfigurationName (\ s a -> s{_iLaunchConfigurationName = a}); + -- | The ID of the instance. iInstanceId :: Lens' Instance Text iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a}); @@ -827,17 +829,14 @@ iHealthStatus :: Lens' Instance Text iHealthStatus = lens _iHealthStatus (\ s a -> s{_iHealthStatus = a}); --- | The launch configuration associated with the instance. -iLaunchConfigurationName :: Lens' Instance Text -iLaunchConfigurationName = lens _iLaunchConfigurationName (\ s a -> s{_iLaunchConfigurationName = a}); - instance FromXML Instance where parseXML x = Instance' <$> - (x .@ "InstanceId") <*> (x .@ "AvailabilityZone") <*> - (x .@ "LifecycleState") + (x .@? "LaunchConfigurationName") <*> + (x .@ "InstanceId") + <*> (x .@ "AvailabilityZone") + <*> (x .@ "LifecycleState") <*> (x .@ "HealthStatus") - <*> (x .@ "LaunchConfigurationName") -- | Describes whether instance monitoring is enabled. -- diff --git a/gen/Network/AWS/AutoScaling/Types/Sum.hs b/gen/Network/AWS/AutoScaling/Types/Sum.hs --- a/gen/Network/AWS/AutoScaling/Types/Sum.hs +++ b/gen/Network/AWS/AutoScaling/Types/Sum.hs @@ -51,23 +51,23 @@ "terminating:proceed" -> pure TerminatingProceed "terminating:wait" -> pure TerminatingWait e -> fromTextError $ "Failure parsing LifecycleState from value: '" <> e - <> "'. Accepted values: detached, detaching, enteringstandby, inservice, pending, pending:proceed, pending:wait, quarantined, standby, terminated, terminating, terminating:proceed, terminating:wait" + <> "'. Accepted values: Detached, Detaching, EnteringStandby, InService, Pending, Pending:Proceed, Pending:Wait, Quarantined, Standby, Terminated, Terminating, Terminating:Proceed, Terminating:Wait" instance ToText LifecycleState where toText = \case - Detached -> "detached" - Detaching -> "detaching" - EnteringStandby -> "enteringstandby" - InService -> "inservice" - Pending -> "pending" - PendingProceed -> "pending:proceed" - PendingWait -> "pending:wait" - Quarantined -> "quarantined" - Standby -> "standby" - Terminated -> "terminated" - Terminating -> "terminating" - TerminatingProceed -> "terminating:proceed" - TerminatingWait -> "terminating:wait" + Detached -> "Detached" + Detaching -> "Detaching" + EnteringStandby -> "EnteringStandby" + InService -> "InService" + Pending -> "Pending" + PendingProceed -> "Pending:Proceed" + PendingWait -> "Pending:Wait" + Quarantined -> "Quarantined" + Standby -> "Standby" + Terminated -> "Terminated" + Terminating -> "Terminating" + TerminatingProceed -> "Terminating:Proceed" + TerminatingWait -> "Terminating:Wait" instance Hashable LifecycleState instance ToByteString LifecycleState @@ -105,21 +105,21 @@ "waitingforspotinstanceid" -> pure WaitingForSpotInstanceId "waitingforspotinstancerequestid" -> pure WaitingForSpotInstanceRequestId e -> fromTextError $ "Failure parsing ScalingActivityStatusCode from value: '" <> e - <> "'. Accepted values: cancelled, failed, inprogress, midlifecycleaction, preinservice, successful, waitingforelbconnectiondraining, waitingforinstanceid, waitingforinstancewarmup, waitingforspotinstanceid, waitingforspotinstancerequestid" + <> "'. Accepted values: Cancelled, Failed, InProgress, MidLifecycleAction, PreInService, Successful, WaitingForELBConnectionDraining, WaitingForInstanceId, WaitingForInstanceWarmup, WaitingForSpotInstanceId, WaitingForSpotInstanceRequestId" instance ToText ScalingActivityStatusCode where toText = \case - Cancelled -> "cancelled" - Failed -> "failed" - InProgress -> "inprogress" - MidLifecycleAction -> "midlifecycleaction" - PreInService -> "preinservice" - Successful -> "successful" - WaitingForELBConnectionDraining -> "waitingforelbconnectiondraining" - WaitingForInstanceId -> "waitingforinstanceid" - WaitingForInstanceWarmup -> "waitingforinstancewarmup" - WaitingForSpotInstanceId -> "waitingforspotinstanceid" - WaitingForSpotInstanceRequestId -> "waitingforspotinstancerequestid" + Cancelled -> "Cancelled" + Failed -> "Failed" + InProgress -> "InProgress" + MidLifecycleAction -> "MidLifecycleAction" + PreInService -> "PreInService" + Successful -> "Successful" + WaitingForELBConnectionDraining -> "WaitingForELBConnectionDraining" + WaitingForInstanceId -> "WaitingForInstanceId" + WaitingForInstanceWarmup -> "WaitingForInstanceWarmup" + WaitingForSpotInstanceId -> "WaitingForSpotInstanceId" + WaitingForSpotInstanceRequestId -> "WaitingForSpotInstanceRequestId" instance Hashable ScalingActivityStatusCode instance ToByteString ScalingActivityStatusCode