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