module Network.AWS.AutoScaling.ExitStandby
(
exitStandby
, ExitStandby
, eInstanceIds
, eAutoScalingGroupName
, exitStandbyResponse
, ExitStandbyResponse
, esrsActivities
, esrsResponseStatus
) where
import Network.AWS.AutoScaling.Types
import Network.AWS.AutoScaling.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data ExitStandby = ExitStandby'
{ _eInstanceIds :: !(Maybe [Text])
, _eAutoScalingGroupName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
exitStandby
:: Text
-> ExitStandby
exitStandby pAutoScalingGroupName_ =
ExitStandby'
{ _eInstanceIds = Nothing
, _eAutoScalingGroupName = pAutoScalingGroupName_
}
eInstanceIds :: Lens' ExitStandby [Text]
eInstanceIds = lens _eInstanceIds (\ s a -> s{_eInstanceIds = a}) . _Default . _Coerce;
eAutoScalingGroupName :: Lens' ExitStandby Text
eAutoScalingGroupName = lens _eAutoScalingGroupName (\ s a -> s{_eAutoScalingGroupName = a});
instance AWSRequest ExitStandby where
type Rs ExitStandby = ExitStandbyResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "ExitStandbyResult"
(\ s h x ->
ExitStandbyResponse' <$>
(x .@? "Activities" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders ExitStandby where
toHeaders = const mempty
instance ToPath ExitStandby where
toPath = const "/"
instance ToQuery ExitStandby where
toQuery ExitStandby'{..}
= mconcat
["Action" =: ("ExitStandby" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceIds" =:
toQuery (toQueryList "member" <$> _eInstanceIds),
"AutoScalingGroupName" =: _eAutoScalingGroupName]
data ExitStandbyResponse = ExitStandbyResponse'
{ _esrsActivities :: !(Maybe [Activity])
, _esrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
exitStandbyResponse
:: Int
-> ExitStandbyResponse
exitStandbyResponse pResponseStatus_ =
ExitStandbyResponse'
{ _esrsActivities = Nothing
, _esrsResponseStatus = pResponseStatus_
}
esrsActivities :: Lens' ExitStandbyResponse [Activity]
esrsActivities = lens _esrsActivities (\ s a -> s{_esrsActivities = a}) . _Default . _Coerce;
esrsResponseStatus :: Lens' ExitStandbyResponse Int
esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a});