module Network.AWS.AutoScaling.DescribeLifecycleHookTypes
(
describeLifecycleHookTypes
, DescribeLifecycleHookTypes
, describeLifecycleHookTypesResponse
, DescribeLifecycleHookTypesResponse
, dlhtrsLifecycleHookTypes
, dlhtrsResponseStatus
) 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 DescribeLifecycleHookTypes =
DescribeLifecycleHookTypes'
deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLifecycleHookTypes
:: DescribeLifecycleHookTypes
describeLifecycleHookTypes = DescribeLifecycleHookTypes'
instance AWSRequest DescribeLifecycleHookTypes where
type Rs DescribeLifecycleHookTypes =
DescribeLifecycleHookTypesResponse
request = postQuery autoScaling
response
= receiveXMLWrapper
"DescribeLifecycleHookTypesResult"
(\ s h x ->
DescribeLifecycleHookTypesResponse' <$>
(x .@? "LifecycleHookTypes" .!@ mempty >>=
may (parseXMLList "member"))
<*> (pure (fromEnum s)))
instance ToHeaders DescribeLifecycleHookTypes where
toHeaders = const mempty
instance ToPath DescribeLifecycleHookTypes where
toPath = const "/"
instance ToQuery DescribeLifecycleHookTypes where
toQuery
= const
(mconcat
["Action" =:
("DescribeLifecycleHookTypes" :: ByteString),
"Version" =: ("2011-01-01" :: ByteString)])
data DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse'
{ _dlhtrsLifecycleHookTypes :: !(Maybe [Text])
, _dlhtrsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
describeLifecycleHookTypesResponse
:: Int
-> DescribeLifecycleHookTypesResponse
describeLifecycleHookTypesResponse pResponseStatus_ =
DescribeLifecycleHookTypesResponse'
{ _dlhtrsLifecycleHookTypes = Nothing
, _dlhtrsResponseStatus = pResponseStatus_
}
dlhtrsLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text]
dlhtrsLifecycleHookTypes = lens _dlhtrsLifecycleHookTypes (\ s a -> s{_dlhtrsLifecycleHookTypes = a}) . _Default . _Coerce;
dlhtrsResponseStatus :: Lens' DescribeLifecycleHookTypesResponse Int
dlhtrsResponseStatus = lens _dlhtrsResponseStatus (\ s a -> s{_dlhtrsResponseStatus = a});