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