{-# 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 where
instance NFData CompleteLifecycleAction where
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 where