module Network.AWS.AutoScaling.EnterStandby
(
enterStandby
, EnterStandby
, esInstanceIds
, esAutoScalingGroupName
, esShouldDecrementDesiredCapacity
, enterStandbyResponse
, EnterStandbyResponse
, ersActivities
, ersResponseStatus
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data EnterStandby = EnterStandby'
{ _esInstanceIds :: !(Maybe [Text])
, _esAutoScalingGroupName :: !Text
, _esShouldDecrementDesiredCapacity :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
enterStandby
:: Text
-> Bool
-> EnterStandby
enterStandby pAutoScalingGroupName_ pShouldDecrementDesiredCapacity_ =
EnterStandby'
{ _esInstanceIds = Nothing
, _esAutoScalingGroupName = pAutoScalingGroupName_
, _esShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_
}
esInstanceIds :: Lens' EnterStandby [Text]
esInstanceIds = lens _esInstanceIds (\ s a -> s{_esInstanceIds = a}) . _Default . _Coerce;
esAutoScalingGroupName :: Lens' EnterStandby Text
esAutoScalingGroupName = lens _esAutoScalingGroupName (\ s a -> s{_esAutoScalingGroupName = a});
esShouldDecrementDesiredCapacity :: Lens' EnterStandby Bool
esShouldDecrementDesiredCapacity = lens _esShouldDecrementDesiredCapacity (\ s a -> s{_esShouldDecrementDesiredCapacity = a});
instance AWSRequest EnterStandby where
type Rs EnterStandby = EnterStandbyResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "EnterStandbyResult"
(\ s h x ->
EnterStandbyResponse' <$>
(x .@? "Activities" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance Hashable EnterStandby
instance NFData EnterStandby
instance ToHeaders EnterStandby where
toHeaders = const mempty
instance ToPath EnterStandby where
toPath = const "/"
instance ToQuery EnterStandby where
toQuery EnterStandby'{..}
= mconcat
["Action" =: ("EnterStandby" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceIds" =:
toQuery (toQueryList "member" <$> _esInstanceIds),
"AutoScalingGroupName" =: _esAutoScalingGroupName,
"ShouldDecrementDesiredCapacity" =:
_esShouldDecrementDesiredCapacity]
data EnterStandbyResponse = EnterStandbyResponse'
{ _ersActivities :: !(Maybe [Activity])
, _ersResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
enterStandbyResponse
:: Int
-> EnterStandbyResponse
enterStandbyResponse pResponseStatus_ =
EnterStandbyResponse'
{ _ersActivities = Nothing
, _ersResponseStatus = pResponseStatus_
}
ersActivities :: Lens' EnterStandbyResponse [Activity]
ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce;
ersResponseStatus :: Lens' EnterStandbyResponse Int
ersResponseStatus = lens _ersResponseStatus (\ s a -> s{_ersResponseStatus = a});
instance NFData EnterStandbyResponse