{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.AutoScaling.TerminateInstanceInAutoScalingGroup
(
terminateInstanceInAutoScalingGroup
, TerminateInstanceInAutoScalingGroup
, tiiasgInstanceId
, tiiasgShouldDecrementDesiredCapacity
, terminateInstanceInAutoScalingGroupResponse
, TerminateInstanceInAutoScalingGroupResponse
, tiiasgrsActivity
, tiiasgrsResponseStatus
) 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 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 Rs TerminateInstanceInAutoScalingGroup =
TerminateInstanceInAutoScalingGroupResponse
request = postQuery autoScaling
response
= receiveXMLWrapper
"TerminateInstanceInAutoScalingGroupResult"
(\ s h x ->
TerminateInstanceInAutoScalingGroupResponse' <$>
(x .@? "Activity") <*> (pure (fromEnum s)))
instance Hashable TerminateInstanceInAutoScalingGroup
where
instance NFData TerminateInstanceInAutoScalingGroup
where
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)
, _tiiasgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
terminateInstanceInAutoScalingGroupResponse
:: Int
-> TerminateInstanceInAutoScalingGroupResponse
terminateInstanceInAutoScalingGroupResponse pResponseStatus_ =
TerminateInstanceInAutoScalingGroupResponse'
{_tiiasgrsActivity = Nothing, _tiiasgrsResponseStatus = pResponseStatus_}
tiiasgrsActivity :: Lens' TerminateInstanceInAutoScalingGroupResponse (Maybe Activity)
tiiasgrsActivity = lens _tiiasgrsActivity (\ s a -> s{_tiiasgrsActivity = a})
tiiasgrsResponseStatus :: Lens' TerminateInstanceInAutoScalingGroupResponse Int
tiiasgrsResponseStatus = lens _tiiasgrsResponseStatus (\ s a -> s{_tiiasgrsResponseStatus = a})
instance NFData
TerminateInstanceInAutoScalingGroupResponse
where