module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup
(
terminateInstanceInAutoScalingGroup
, TerminateInstanceInAutoScalingGroup
, tiiasgInstanceId
, tiiasgShouldDecrementDesiredCapacity
, terminateInstanceInAutoScalingGroupResponse
, TerminateInstanceInAutoScalingGroupResponse
, tiiasgrsActivity
, tiiasgrsStatus
) 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 TerminateInstanceInAutoScalingGroup = TerminateInstanceInAutoScalingGroup'
{ _tiiasgInstanceId :: !Text
, _tiiasgShouldDecrementDesiredCapacity :: !Bool
} deriving (Eq,Read,Show,Data,Typeable,Generic)
terminateInstanceInAutoScalingGroup
:: Text
-> Bool
-> TerminateInstanceInAutoScalingGroup
terminateInstanceInAutoScalingGroup pInstanceId_ pShouldDecrementDesiredCapacity_ =
TerminateInstanceInAutoScalingGroup'
{ _tiiasgInstanceId = pInstanceId_
, _tiiasgShouldDecrementDesiredCapacity = pShouldDecrementDesiredCapacity_
}
tiiasgInstanceId :: Lens' TerminateInstanceInAutoScalingGroup Text
tiiasgInstanceId = lens _tiiasgInstanceId (\ s a -> s{_tiiasgInstanceId = a});
tiiasgShouldDecrementDesiredCapacity :: Lens' TerminateInstanceInAutoScalingGroup Bool
tiiasgShouldDecrementDesiredCapacity = lens _tiiasgShouldDecrementDesiredCapacity (\ s a -> s{_tiiasgShouldDecrementDesiredCapacity = a});
instance AWSRequest
TerminateInstanceInAutoScalingGroup where
type Sv TerminateInstanceInAutoScalingGroup =
AutoScaling
type Rs TerminateInstanceInAutoScalingGroup =
TerminateInstanceInAutoScalingGroupResponse
request = postQuery
response
= receiveXMLWrapper
"TerminateInstanceInAutoScalingGroupResult"
(\ s h x ->
TerminateInstanceInAutoScalingGroupResponse' <$>
(x .@? "Activity") <*> (pure (fromEnum s)))
instance ToHeaders
TerminateInstanceInAutoScalingGroup where
toHeaders = const mempty
instance ToPath TerminateInstanceInAutoScalingGroup
where
toPath = const "/"
instance ToQuery TerminateInstanceInAutoScalingGroup
where
toQuery TerminateInstanceInAutoScalingGroup'{..}
= mconcat
["Action" =:
("TerminateInstanceInAutoScalingGroup" ::
ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceId" =: _tiiasgInstanceId,
"ShouldDecrementDesiredCapacity" =:
_tiiasgShouldDecrementDesiredCapacity]
data TerminateInstanceInAutoScalingGroupResponse = TerminateInstanceInAutoScalingGroupResponse'
{ _tiiasgrsActivity :: !(Maybe Activity)
, _tiiasgrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
terminateInstanceInAutoScalingGroupResponse
:: Int
-> TerminateInstanceInAutoScalingGroupResponse
terminateInstanceInAutoScalingGroupResponse pStatus_ =
TerminateInstanceInAutoScalingGroupResponse'
{ _tiiasgrsActivity = Nothing
, _tiiasgrsStatus = pStatus_
}
tiiasgrsActivity :: Lens' TerminateInstanceInAutoScalingGroupResponse (Maybe Activity)
tiiasgrsActivity = lens _tiiasgrsActivity (\ s a -> s{_tiiasgrsActivity = a});
tiiasgrsStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int
tiiasgrsStatus = lens _tiiasgrsStatus (\ s a -> s{_tiiasgrsStatus = a});