module Network.AWS.AutoScaling.DescribeLifecycleHookTypes
(
DescribeLifecycleHookTypes
, describeLifecycleHookTypes
, DescribeLifecycleHookTypesResponse
, describeLifecycleHookTypesResponse
, dlhtrLifecycleHookTypes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DescribeLifecycleHookTypes = DescribeLifecycleHookTypes
deriving (Eq, Ord, Show, Generic)
describeLifecycleHookTypes :: DescribeLifecycleHookTypes
describeLifecycleHookTypes = DescribeLifecycleHookTypes
newtype DescribeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse
{ _dlhtrLifecycleHookTypes :: List "member" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeLifecycleHookTypesResponse where
type Item DescribeLifecycleHookTypesResponse = Text
fromList = DescribeLifecycleHookTypesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dlhtrLifecycleHookTypes
describeLifecycleHookTypesResponse :: DescribeLifecycleHookTypesResponse
describeLifecycleHookTypesResponse = DescribeLifecycleHookTypesResponse
{ _dlhtrLifecycleHookTypes = mempty
}
dlhtrLifecycleHookTypes :: Lens' DescribeLifecycleHookTypesResponse [Text]
dlhtrLifecycleHookTypes =
lens _dlhtrLifecycleHookTypes (\s a -> s { _dlhtrLifecycleHookTypes = a })
. _List
instance ToPath DescribeLifecycleHookTypes where
toPath = const "/"
instance ToQuery DescribeLifecycleHookTypes where
toQuery = const mempty
instance ToHeaders DescribeLifecycleHookTypes
instance AWSRequest DescribeLifecycleHookTypes where
type Sv DescribeLifecycleHookTypes = AutoScaling
type Rs DescribeLifecycleHookTypes = DescribeLifecycleHookTypesResponse
request = post "DescribeLifecycleHookTypes"
response = xmlResponse
instance FromXML DescribeLifecycleHookTypesResponse where
parseXML = withElement "DescribeLifecycleHookTypesResult" $ \x -> DescribeLifecycleHookTypesResponse
<$> x .@? "LifecycleHookTypes" .!@ mempty