module Network.AWS.AutoScaling.RecordLifecycleActionHeartbeat
(
recordLifecycleActionHeartbeat
, RecordLifecycleActionHeartbeat
, rlahInstanceId
, rlahLifecycleActionToken
, rlahLifecycleHookName
, rlahAutoScalingGroupName
, recordLifecycleActionHeartbeatResponse
, RecordLifecycleActionHeartbeatResponse
, rlahrsResponseStatus
) 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 RecordLifecycleActionHeartbeat = RecordLifecycleActionHeartbeat'
{ _rlahInstanceId :: !(Maybe Text)
, _rlahLifecycleActionToken :: !(Maybe Text)
, _rlahLifecycleHookName :: !Text
, _rlahAutoScalingGroupName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordLifecycleActionHeartbeat
:: Text
-> Text
-> RecordLifecycleActionHeartbeat
recordLifecycleActionHeartbeat pLifecycleHookName_ pAutoScalingGroupName_ =
RecordLifecycleActionHeartbeat'
{ _rlahInstanceId = Nothing
, _rlahLifecycleActionToken = Nothing
, _rlahLifecycleHookName = pLifecycleHookName_
, _rlahAutoScalingGroupName = pAutoScalingGroupName_
}
rlahInstanceId :: Lens' RecordLifecycleActionHeartbeat (Maybe Text)
rlahInstanceId = lens _rlahInstanceId (\ s a -> s{_rlahInstanceId = a});
rlahLifecycleActionToken :: Lens' RecordLifecycleActionHeartbeat (Maybe Text)
rlahLifecycleActionToken = lens _rlahLifecycleActionToken (\ s a -> s{_rlahLifecycleActionToken = a});
rlahLifecycleHookName :: Lens' RecordLifecycleActionHeartbeat Text
rlahLifecycleHookName = lens _rlahLifecycleHookName (\ s a -> s{_rlahLifecycleHookName = a});
rlahAutoScalingGroupName :: Lens' RecordLifecycleActionHeartbeat Text
rlahAutoScalingGroupName = lens _rlahAutoScalingGroupName (\ s a -> s{_rlahAutoScalingGroupName = a});
instance AWSRequest RecordLifecycleActionHeartbeat
where
type Rs RecordLifecycleActionHeartbeat =
RecordLifecycleActionHeartbeatResponse
request = postQuery autoScaling
response
= receiveXMLWrapper
"RecordLifecycleActionHeartbeatResult"
(\ s h x ->
RecordLifecycleActionHeartbeatResponse' <$>
(pure (fromEnum s)))
instance Hashable RecordLifecycleActionHeartbeat
instance NFData RecordLifecycleActionHeartbeat
instance ToHeaders RecordLifecycleActionHeartbeat
where
toHeaders = const mempty
instance ToPath RecordLifecycleActionHeartbeat where
toPath = const "/"
instance ToQuery RecordLifecycleActionHeartbeat where
toQuery RecordLifecycleActionHeartbeat'{..}
= mconcat
["Action" =:
("RecordLifecycleActionHeartbeat" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceId" =: _rlahInstanceId,
"LifecycleActionToken" =: _rlahLifecycleActionToken,
"LifecycleHookName" =: _rlahLifecycleHookName,
"AutoScalingGroupName" =: _rlahAutoScalingGroupName]
newtype RecordLifecycleActionHeartbeatResponse = RecordLifecycleActionHeartbeatResponse'
{ _rlahrsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
recordLifecycleActionHeartbeatResponse
:: Int
-> RecordLifecycleActionHeartbeatResponse
recordLifecycleActionHeartbeatResponse pResponseStatus_ =
RecordLifecycleActionHeartbeatResponse'
{ _rlahrsResponseStatus = pResponseStatus_
}
rlahrsResponseStatus :: Lens' RecordLifecycleActionHeartbeatResponse Int
rlahrsResponseStatus = lens _rlahrsResponseStatus (\ s a -> s{_rlahrsResponseStatus = a});
instance NFData
RecordLifecycleActionHeartbeatResponse