module Network.AWS.AutoScaling.ExitStandby
(
exitStandby
, ExitStandby
, eInstanceIds
, eAutoScalingGroupName
, exitStandbyResponse
, ExitStandbyResponse
, ersActivities
, ersStatus
) 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 Sv ExitStandby = AutoScaling
type Rs ExitStandby = ExitStandbyResponse
request = postQuery
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'
{ _ersActivities :: !(Maybe [Activity])
, _ersStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
exitStandbyResponse
:: Int
-> ExitStandbyResponse
exitStandbyResponse pStatus_ =
ExitStandbyResponse'
{ _ersActivities = Nothing
, _ersStatus = pStatus_
}
ersActivities :: Lens' ExitStandbyResponse [Activity]
ersActivities = lens _ersActivities (\ s a -> s{_ersActivities = a}) . _Default . _Coerce;
ersStatus :: Lens' ExitStandbyResponse Int
ersStatus = lens _ersStatus (\ s a -> s{_ersStatus = a});