module Network.AWS.AutoScaling.DescribeMetricCollectionTypes
(
DescribeMetricCollectionTypes
, describeMetricCollectionTypes
, DescribeMetricCollectionTypesResponse
, describeMetricCollectionTypesResponse
, dmctrGranularities
, dmctrMetrics
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.AutoScaling.Types
import qualified GHC.Exts
data DescribeMetricCollectionTypes = DescribeMetricCollectionTypes
deriving (Eq, Ord, Read, Show, Generic)
describeMetricCollectionTypes :: DescribeMetricCollectionTypes
describeMetricCollectionTypes = DescribeMetricCollectionTypes
data DescribeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse
{ _dmctrGranularities :: List "member" MetricGranularityType
, _dmctrMetrics :: List "member" MetricCollectionType
} deriving (Eq, Read, Show)
describeMetricCollectionTypesResponse :: DescribeMetricCollectionTypesResponse
describeMetricCollectionTypesResponse = DescribeMetricCollectionTypesResponse
{ _dmctrMetrics = mempty
, _dmctrGranularities = mempty
}
dmctrGranularities :: Lens' DescribeMetricCollectionTypesResponse [MetricGranularityType]
dmctrGranularities =
lens _dmctrGranularities (\s a -> s { _dmctrGranularities = a })
. _List
dmctrMetrics :: Lens' DescribeMetricCollectionTypesResponse [MetricCollectionType]
dmctrMetrics = lens _dmctrMetrics (\s a -> s { _dmctrMetrics = a }) . _List
instance ToPath DescribeMetricCollectionTypes where
toPath = const "/"
instance ToQuery DescribeMetricCollectionTypes where
toQuery = const mempty
instance ToHeaders DescribeMetricCollectionTypes
instance AWSRequest DescribeMetricCollectionTypes where
type Sv DescribeMetricCollectionTypes = AutoScaling
type Rs DescribeMetricCollectionTypes = DescribeMetricCollectionTypesResponse
request = post "DescribeMetricCollectionTypes"
response = xmlResponse
instance FromXML DescribeMetricCollectionTypesResponse where
parseXML = withElement "DescribeMetricCollectionTypesResult" $ \x -> DescribeMetricCollectionTypesResponse
<$> x .@? "Granularities" .!@ mempty
<*> x .@? "Metrics" .!@ mempty