module Network.AWS.CloudWatch.DescribeAlarmsForMetric
(
DescribeAlarmsForMetric
, describeAlarmsForMetric
, dafmDimensions
, dafmMetricName
, dafmNamespace
, dafmPeriod
, dafmStatistic
, dafmUnit
, DescribeAlarmsForMetricResponse
, describeAlarmsForMetricResponse
, dafmrMetricAlarms
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.CloudWatch.Types
import qualified GHC.Exts
data DescribeAlarmsForMetric = DescribeAlarmsForMetric
{ _dafmDimensions :: List "Dimensions" Dimension
, _dafmMetricName :: Text
, _dafmNamespace :: Text
, _dafmPeriod :: Maybe Nat
, _dafmStatistic :: Maybe Statistic
, _dafmUnit :: Maybe StandardUnit
} deriving (Eq, Show)
describeAlarmsForMetric :: Text
-> Text
-> DescribeAlarmsForMetric
describeAlarmsForMetric p1 p2 = DescribeAlarmsForMetric
{ _dafmMetricName = p1
, _dafmNamespace = p2
, _dafmStatistic = Nothing
, _dafmDimensions = mempty
, _dafmPeriod = Nothing
, _dafmUnit = Nothing
}
dafmDimensions :: Lens' DescribeAlarmsForMetric [Dimension]
dafmDimensions = lens _dafmDimensions (\s a -> s { _dafmDimensions = a }) . _List
dafmMetricName :: Lens' DescribeAlarmsForMetric Text
dafmMetricName = lens _dafmMetricName (\s a -> s { _dafmMetricName = a })
dafmNamespace :: Lens' DescribeAlarmsForMetric Text
dafmNamespace = lens _dafmNamespace (\s a -> s { _dafmNamespace = a })
dafmPeriod :: Lens' DescribeAlarmsForMetric (Maybe Natural)
dafmPeriod = lens _dafmPeriod (\s a -> s { _dafmPeriod = a }) . mapping _Nat
dafmStatistic :: Lens' DescribeAlarmsForMetric (Maybe Statistic)
dafmStatistic = lens _dafmStatistic (\s a -> s { _dafmStatistic = a })
dafmUnit :: Lens' DescribeAlarmsForMetric (Maybe StandardUnit)
dafmUnit = lens _dafmUnit (\s a -> s { _dafmUnit = a })
newtype DescribeAlarmsForMetricResponse = DescribeAlarmsForMetricResponse
{ _dafmrMetricAlarms :: List "MetricAlarms" MetricAlarm
} deriving (Eq, Show, Monoid, Semigroup)
instance GHC.Exts.IsList DescribeAlarmsForMetricResponse where
type Item DescribeAlarmsForMetricResponse = MetricAlarm
fromList = DescribeAlarmsForMetricResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _dafmrMetricAlarms
describeAlarmsForMetricResponse :: DescribeAlarmsForMetricResponse
describeAlarmsForMetricResponse = DescribeAlarmsForMetricResponse
{ _dafmrMetricAlarms = mempty
}
dafmrMetricAlarms :: Lens' DescribeAlarmsForMetricResponse [MetricAlarm]
dafmrMetricAlarms =
lens _dafmrMetricAlarms (\s a -> s { _dafmrMetricAlarms = a })
. _List
instance ToPath DescribeAlarmsForMetric where
toPath = const "/"
instance ToQuery DescribeAlarmsForMetric where
toQuery DescribeAlarmsForMetric{..} = mconcat
[ "Dimensions" =? _dafmDimensions
, "MetricName" =? _dafmMetricName
, "Namespace" =? _dafmNamespace
, "Period" =? _dafmPeriod
, "Statistic" =? _dafmStatistic
, "Unit" =? _dafmUnit
]
instance ToHeaders DescribeAlarmsForMetric
instance AWSRequest DescribeAlarmsForMetric where
type Sv DescribeAlarmsForMetric = CloudWatch
type Rs DescribeAlarmsForMetric = DescribeAlarmsForMetricResponse
request = post "DescribeAlarmsForMetric"
response = xmlResponse
instance FromXML DescribeAlarmsForMetricResponse where
parseXML = withElement "DescribeAlarmsForMetricResult" $ \x -> DescribeAlarmsForMetricResponse
<$> x .@ "MetricAlarms"