{-# 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.CompleteLifecycleAction
(
completeLifecycleAction
, CompleteLifecycleAction
, claInstanceId
, claLifecycleActionToken
, claLifecycleHookName
, claAutoScalingGroupName
, claLifecycleActionResult
, completeLifecycleActionResponse
, CompleteLifecycleActionResponse
, clarsResponseStatus
) 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 CompleteLifecycleAction = CompleteLifecycleAction'
{ _claInstanceId :: !(Maybe Text)
, _claLifecycleActionToken :: !(Maybe Text)
, _claLifecycleHookName :: !Text
, _claAutoScalingGroupName :: !Text
, _claLifecycleActionResult :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
completeLifecycleAction
:: Text
-> Text
-> Text
-> CompleteLifecycleAction
completeLifecycleAction pLifecycleHookName_ pAutoScalingGroupName_ pLifecycleActionResult_ =
CompleteLifecycleAction'
{ _claInstanceId = Nothing
, _claLifecycleActionToken = Nothing
, _claLifecycleHookName = pLifecycleHookName_
, _claAutoScalingGroupName = pAutoScalingGroupName_
, _claLifecycleActionResult = pLifecycleActionResult_
}
claInstanceId :: Lens' CompleteLifecycleAction (Maybe Text)
claInstanceId = lens _claInstanceId (\ s a -> s{_claInstanceId = a});
claLifecycleActionToken :: Lens' CompleteLifecycleAction (Maybe Text)
claLifecycleActionToken = lens _claLifecycleActionToken (\ s a -> s{_claLifecycleActionToken = a});
claLifecycleHookName :: Lens' CompleteLifecycleAction Text
claLifecycleHookName = lens _claLifecycleHookName (\ s a -> s{_claLifecycleHookName = a});
claAutoScalingGroupName :: Lens' CompleteLifecycleAction Text
claAutoScalingGroupName = lens _claAutoScalingGroupName (\ s a -> s{_claAutoScalingGroupName = a});
claLifecycleActionResult :: Lens' CompleteLifecycleAction Text
claLifecycleActionResult = lens _claLifecycleActionResult (\ s a -> s{_claLifecycleActionResult = a});
instance AWSRequest CompleteLifecycleAction where
type Rs CompleteLifecycleAction =
CompleteLifecycleActionResponse
request = postQuery autoScaling
response
= receiveXMLWrapper "CompleteLifecycleActionResult"
(\ s h x ->
CompleteLifecycleActionResponse' <$>
(pure (fromEnum s)))
instance Hashable CompleteLifecycleAction
instance NFData CompleteLifecycleAction
instance ToHeaders CompleteLifecycleAction where
toHeaders = const mempty
instance ToPath CompleteLifecycleAction where
toPath = const "/"
instance ToQuery CompleteLifecycleAction where
toQuery CompleteLifecycleAction'{..}
= mconcat
["Action" =:
("CompleteLifecycleAction" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString),
"InstanceId" =: _claInstanceId,
"LifecycleActionToken" =: _claLifecycleActionToken,
"LifecycleHookName" =: _claLifecycleHookName,
"AutoScalingGroupName" =: _claAutoScalingGroupName,
"LifecycleActionResult" =: _claLifecycleActionResult]
newtype CompleteLifecycleActionResponse = CompleteLifecycleActionResponse'
{ _clarsResponseStatus :: Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
completeLifecycleActionResponse
:: Int
-> CompleteLifecycleActionResponse
completeLifecycleActionResponse pResponseStatus_ =
CompleteLifecycleActionResponse'
{ _clarsResponseStatus = pResponseStatus_
}
clarsResponseStatus :: Lens' CompleteLifecycleActionResponse Int
clarsResponseStatus = lens _clarsResponseStatus (\ s a -> s{_clarsResponseStatus = a});
instance NFData CompleteLifecycleActionResponse