{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CloudWatch.PutMetricAlarm
(
PutMetricAlarm (..),
newPutMetricAlarm,
putMetricAlarm_actionsEnabled,
putMetricAlarm_alarmActions,
putMetricAlarm_alarmDescription,
putMetricAlarm_datapointsToAlarm,
putMetricAlarm_dimensions,
putMetricAlarm_evaluateLowSampleCountPercentile,
putMetricAlarm_extendedStatistic,
putMetricAlarm_insufficientDataActions,
putMetricAlarm_metricName,
putMetricAlarm_metrics,
putMetricAlarm_namespace,
putMetricAlarm_oKActions,
putMetricAlarm_period,
putMetricAlarm_statistic,
putMetricAlarm_tags,
putMetricAlarm_threshold,
putMetricAlarm_thresholdMetricId,
putMetricAlarm_treatMissingData,
putMetricAlarm_unit,
putMetricAlarm_alarmName,
putMetricAlarm_evaluationPeriods,
putMetricAlarm_comparisonOperator,
PutMetricAlarmResponse (..),
newPutMetricAlarmResponse,
)
where
import Amazonka.CloudWatch.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data PutMetricAlarm = PutMetricAlarm'
{
PutMetricAlarm -> Maybe Bool
actionsEnabled :: Prelude.Maybe Prelude.Bool,
PutMetricAlarm -> Maybe [Text]
alarmActions :: Prelude.Maybe [Prelude.Text],
PutMetricAlarm -> Maybe Text
alarmDescription :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe Natural
datapointsToAlarm :: Prelude.Maybe Prelude.Natural,
PutMetricAlarm -> Maybe [Dimension]
dimensions :: Prelude.Maybe [Dimension],
PutMetricAlarm -> Maybe Text
evaluateLowSampleCountPercentile :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe Text
extendedStatistic :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe [Text]
insufficientDataActions :: Prelude.Maybe [Prelude.Text],
PutMetricAlarm -> Maybe Text
metricName :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe [MetricDataQuery]
metrics :: Prelude.Maybe [MetricDataQuery],
PutMetricAlarm -> Maybe Text
namespace :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe [Text]
oKActions :: Prelude.Maybe [Prelude.Text],
PutMetricAlarm -> Maybe Natural
period :: Prelude.Maybe Prelude.Natural,
PutMetricAlarm -> Maybe Statistic
statistic :: Prelude.Maybe Statistic,
PutMetricAlarm -> Maybe [Tag]
tags :: Prelude.Maybe [Tag],
PutMetricAlarm -> Maybe Double
threshold :: Prelude.Maybe Prelude.Double,
PutMetricAlarm -> Maybe Text
thresholdMetricId :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe Text
treatMissingData :: Prelude.Maybe Prelude.Text,
PutMetricAlarm -> Maybe StandardUnit
unit :: Prelude.Maybe StandardUnit,
PutMetricAlarm -> Text
alarmName :: Prelude.Text,
PutMetricAlarm -> Natural
evaluationPeriods :: Prelude.Natural,
PutMetricAlarm -> ComparisonOperator
comparisonOperator :: ComparisonOperator
}
deriving (PutMetricAlarm -> PutMetricAlarm -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutMetricAlarm -> PutMetricAlarm -> Bool
$c/= :: PutMetricAlarm -> PutMetricAlarm -> Bool
== :: PutMetricAlarm -> PutMetricAlarm -> Bool
$c== :: PutMetricAlarm -> PutMetricAlarm -> Bool
Prelude.Eq, ReadPrec [PutMetricAlarm]
ReadPrec PutMetricAlarm
Int -> ReadS PutMetricAlarm
ReadS [PutMetricAlarm]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutMetricAlarm]
$creadListPrec :: ReadPrec [PutMetricAlarm]
readPrec :: ReadPrec PutMetricAlarm
$creadPrec :: ReadPrec PutMetricAlarm
readList :: ReadS [PutMetricAlarm]
$creadList :: ReadS [PutMetricAlarm]
readsPrec :: Int -> ReadS PutMetricAlarm
$creadsPrec :: Int -> ReadS PutMetricAlarm
Prelude.Read, Int -> PutMetricAlarm -> ShowS
[PutMetricAlarm] -> ShowS
PutMetricAlarm -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutMetricAlarm] -> ShowS
$cshowList :: [PutMetricAlarm] -> ShowS
show :: PutMetricAlarm -> String
$cshow :: PutMetricAlarm -> String
showsPrec :: Int -> PutMetricAlarm -> ShowS
$cshowsPrec :: Int -> PutMetricAlarm -> ShowS
Prelude.Show, forall x. Rep PutMetricAlarm x -> PutMetricAlarm
forall x. PutMetricAlarm -> Rep PutMetricAlarm x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutMetricAlarm x -> PutMetricAlarm
$cfrom :: forall x. PutMetricAlarm -> Rep PutMetricAlarm x
Prelude.Generic)
newPutMetricAlarm ::
Prelude.Text ->
Prelude.Natural ->
ComparisonOperator ->
PutMetricAlarm
newPutMetricAlarm :: Text -> Natural -> ComparisonOperator -> PutMetricAlarm
newPutMetricAlarm
Text
pAlarmName_
Natural
pEvaluationPeriods_
ComparisonOperator
pComparisonOperator_ =
PutMetricAlarm'
{ $sel:actionsEnabled:PutMetricAlarm' :: Maybe Bool
actionsEnabled = forall a. Maybe a
Prelude.Nothing,
$sel:alarmActions:PutMetricAlarm' :: Maybe [Text]
alarmActions = forall a. Maybe a
Prelude.Nothing,
$sel:alarmDescription:PutMetricAlarm' :: Maybe Text
alarmDescription = forall a. Maybe a
Prelude.Nothing,
$sel:datapointsToAlarm:PutMetricAlarm' :: Maybe Natural
datapointsToAlarm = forall a. Maybe a
Prelude.Nothing,
$sel:dimensions:PutMetricAlarm' :: Maybe [Dimension]
dimensions = forall a. Maybe a
Prelude.Nothing,
$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: Maybe Text
evaluateLowSampleCountPercentile = forall a. Maybe a
Prelude.Nothing,
$sel:extendedStatistic:PutMetricAlarm' :: Maybe Text
extendedStatistic = forall a. Maybe a
Prelude.Nothing,
$sel:insufficientDataActions:PutMetricAlarm' :: Maybe [Text]
insufficientDataActions = forall a. Maybe a
Prelude.Nothing,
$sel:metricName:PutMetricAlarm' :: Maybe Text
metricName = forall a. Maybe a
Prelude.Nothing,
$sel:metrics:PutMetricAlarm' :: Maybe [MetricDataQuery]
metrics = forall a. Maybe a
Prelude.Nothing,
$sel:namespace:PutMetricAlarm' :: Maybe Text
namespace = forall a. Maybe a
Prelude.Nothing,
$sel:oKActions:PutMetricAlarm' :: Maybe [Text]
oKActions = forall a. Maybe a
Prelude.Nothing,
$sel:period:PutMetricAlarm' :: Maybe Natural
period = forall a. Maybe a
Prelude.Nothing,
$sel:statistic:PutMetricAlarm' :: Maybe Statistic
statistic = forall a. Maybe a
Prelude.Nothing,
$sel:tags:PutMetricAlarm' :: Maybe [Tag]
tags = forall a. Maybe a
Prelude.Nothing,
$sel:threshold:PutMetricAlarm' :: Maybe Double
threshold = forall a. Maybe a
Prelude.Nothing,
$sel:thresholdMetricId:PutMetricAlarm' :: Maybe Text
thresholdMetricId = forall a. Maybe a
Prelude.Nothing,
$sel:treatMissingData:PutMetricAlarm' :: Maybe Text
treatMissingData = forall a. Maybe a
Prelude.Nothing,
$sel:unit:PutMetricAlarm' :: Maybe StandardUnit
unit = forall a. Maybe a
Prelude.Nothing,
$sel:alarmName:PutMetricAlarm' :: Text
alarmName = Text
pAlarmName_,
$sel:evaluationPeriods:PutMetricAlarm' :: Natural
evaluationPeriods = Natural
pEvaluationPeriods_,
$sel:comparisonOperator:PutMetricAlarm' :: ComparisonOperator
comparisonOperator = ComparisonOperator
pComparisonOperator_
}
putMetricAlarm_actionsEnabled :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Bool)
putMetricAlarm_actionsEnabled :: Lens' PutMetricAlarm (Maybe Bool)
putMetricAlarm_actionsEnabled = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Bool
actionsEnabled :: Maybe Bool
$sel:actionsEnabled:PutMetricAlarm' :: PutMetricAlarm -> Maybe Bool
actionsEnabled} -> Maybe Bool
actionsEnabled) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Bool
a -> PutMetricAlarm
s {$sel:actionsEnabled:PutMetricAlarm' :: Maybe Bool
actionsEnabled = Maybe Bool
a} :: PutMetricAlarm)
putMetricAlarm_alarmActions :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [Prelude.Text])
putMetricAlarm_alarmActions :: Lens' PutMetricAlarm (Maybe [Text])
putMetricAlarm_alarmActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [Text]
alarmActions :: Maybe [Text]
$sel:alarmActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
alarmActions} -> Maybe [Text]
alarmActions) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [Text]
a -> PutMetricAlarm
s {$sel:alarmActions:PutMetricAlarm' :: Maybe [Text]
alarmActions = Maybe [Text]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_alarmDescription :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_alarmDescription :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_alarmDescription = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
alarmDescription :: Maybe Text
$sel:alarmDescription:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
alarmDescription} -> Maybe Text
alarmDescription) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:alarmDescription:PutMetricAlarm' :: Maybe Text
alarmDescription = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_datapointsToAlarm :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Natural)
putMetricAlarm_datapointsToAlarm :: Lens' PutMetricAlarm (Maybe Natural)
putMetricAlarm_datapointsToAlarm = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Natural
datapointsToAlarm :: Maybe Natural
$sel:datapointsToAlarm:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
datapointsToAlarm} -> Maybe Natural
datapointsToAlarm) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Natural
a -> PutMetricAlarm
s {$sel:datapointsToAlarm:PutMetricAlarm' :: Maybe Natural
datapointsToAlarm = Maybe Natural
a} :: PutMetricAlarm)
putMetricAlarm_dimensions :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [Dimension])
putMetricAlarm_dimensions :: Lens' PutMetricAlarm (Maybe [Dimension])
putMetricAlarm_dimensions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [Dimension]
dimensions :: Maybe [Dimension]
$sel:dimensions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Dimension]
dimensions} -> Maybe [Dimension]
dimensions) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [Dimension]
a -> PutMetricAlarm
s {$sel:dimensions:PutMetricAlarm' :: Maybe [Dimension]
dimensions = Maybe [Dimension]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_evaluateLowSampleCountPercentile :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_evaluateLowSampleCountPercentile :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_evaluateLowSampleCountPercentile = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
evaluateLowSampleCountPercentile :: Maybe Text
$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
evaluateLowSampleCountPercentile} -> Maybe Text
evaluateLowSampleCountPercentile) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: Maybe Text
evaluateLowSampleCountPercentile = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_extendedStatistic :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_extendedStatistic :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_extendedStatistic = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
extendedStatistic :: Maybe Text
$sel:extendedStatistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
extendedStatistic} -> Maybe Text
extendedStatistic) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:extendedStatistic:PutMetricAlarm' :: Maybe Text
extendedStatistic = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_insufficientDataActions :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [Prelude.Text])
putMetricAlarm_insufficientDataActions :: Lens' PutMetricAlarm (Maybe [Text])
putMetricAlarm_insufficientDataActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [Text]
insufficientDataActions :: Maybe [Text]
$sel:insufficientDataActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
insufficientDataActions} -> Maybe [Text]
insufficientDataActions) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [Text]
a -> PutMetricAlarm
s {$sel:insufficientDataActions:PutMetricAlarm' :: Maybe [Text]
insufficientDataActions = Maybe [Text]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_metricName :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_metricName :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_metricName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
metricName :: Maybe Text
$sel:metricName:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
metricName} -> Maybe Text
metricName) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:metricName:PutMetricAlarm' :: Maybe Text
metricName = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_metrics :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [MetricDataQuery])
putMetricAlarm_metrics :: Lens' PutMetricAlarm (Maybe [MetricDataQuery])
putMetricAlarm_metrics = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [MetricDataQuery]
metrics :: Maybe [MetricDataQuery]
$sel:metrics:PutMetricAlarm' :: PutMetricAlarm -> Maybe [MetricDataQuery]
metrics} -> Maybe [MetricDataQuery]
metrics) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [MetricDataQuery]
a -> PutMetricAlarm
s {$sel:metrics:PutMetricAlarm' :: Maybe [MetricDataQuery]
metrics = Maybe [MetricDataQuery]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_namespace :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_namespace :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_namespace = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
namespace :: Maybe Text
$sel:namespace:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
namespace} -> Maybe Text
namespace) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:namespace:PutMetricAlarm' :: Maybe Text
namespace = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_oKActions :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [Prelude.Text])
putMetricAlarm_oKActions :: Lens' PutMetricAlarm (Maybe [Text])
putMetricAlarm_oKActions = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [Text]
oKActions :: Maybe [Text]
$sel:oKActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
oKActions} -> Maybe [Text]
oKActions) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [Text]
a -> PutMetricAlarm
s {$sel:oKActions:PutMetricAlarm' :: Maybe [Text]
oKActions = Maybe [Text]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_period :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Natural)
putMetricAlarm_period :: Lens' PutMetricAlarm (Maybe Natural)
putMetricAlarm_period = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Natural
period :: Maybe Natural
$sel:period:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
period} -> Maybe Natural
period) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Natural
a -> PutMetricAlarm
s {$sel:period:PutMetricAlarm' :: Maybe Natural
period = Maybe Natural
a} :: PutMetricAlarm)
putMetricAlarm_statistic :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Statistic)
putMetricAlarm_statistic :: Lens' PutMetricAlarm (Maybe Statistic)
putMetricAlarm_statistic = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Statistic
statistic :: Maybe Statistic
$sel:statistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Statistic
statistic} -> Maybe Statistic
statistic) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Statistic
a -> PutMetricAlarm
s {$sel:statistic:PutMetricAlarm' :: Maybe Statistic
statistic = Maybe Statistic
a} :: PutMetricAlarm)
putMetricAlarm_tags :: Lens.Lens' PutMetricAlarm (Prelude.Maybe [Tag])
putMetricAlarm_tags :: Lens' PutMetricAlarm (Maybe [Tag])
putMetricAlarm_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe [Tag]
tags :: Maybe [Tag]
$sel:tags:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Tag]
tags} -> Maybe [Tag]
tags) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe [Tag]
a -> PutMetricAlarm
s {$sel:tags:PutMetricAlarm' :: Maybe [Tag]
tags = Maybe [Tag]
a} :: PutMetricAlarm) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
putMetricAlarm_threshold :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Double)
putMetricAlarm_threshold :: Lens' PutMetricAlarm (Maybe Double)
putMetricAlarm_threshold = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Double
threshold :: Maybe Double
$sel:threshold:PutMetricAlarm' :: PutMetricAlarm -> Maybe Double
threshold} -> Maybe Double
threshold) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Double
a -> PutMetricAlarm
s {$sel:threshold:PutMetricAlarm' :: Maybe Double
threshold = Maybe Double
a} :: PutMetricAlarm)
putMetricAlarm_thresholdMetricId :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_thresholdMetricId :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_thresholdMetricId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
thresholdMetricId :: Maybe Text
$sel:thresholdMetricId:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
thresholdMetricId} -> Maybe Text
thresholdMetricId) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:thresholdMetricId:PutMetricAlarm' :: Maybe Text
thresholdMetricId = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_treatMissingData :: Lens.Lens' PutMetricAlarm (Prelude.Maybe Prelude.Text)
putMetricAlarm_treatMissingData :: Lens' PutMetricAlarm (Maybe Text)
putMetricAlarm_treatMissingData = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe Text
treatMissingData :: Maybe Text
$sel:treatMissingData:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
treatMissingData} -> Maybe Text
treatMissingData) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe Text
a -> PutMetricAlarm
s {$sel:treatMissingData:PutMetricAlarm' :: Maybe Text
treatMissingData = Maybe Text
a} :: PutMetricAlarm)
putMetricAlarm_unit :: Lens.Lens' PutMetricAlarm (Prelude.Maybe StandardUnit)
putMetricAlarm_unit :: Lens' PutMetricAlarm (Maybe StandardUnit)
putMetricAlarm_unit = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Maybe StandardUnit
unit :: Maybe StandardUnit
$sel:unit:PutMetricAlarm' :: PutMetricAlarm -> Maybe StandardUnit
unit} -> Maybe StandardUnit
unit) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Maybe StandardUnit
a -> PutMetricAlarm
s {$sel:unit:PutMetricAlarm' :: Maybe StandardUnit
unit = Maybe StandardUnit
a} :: PutMetricAlarm)
putMetricAlarm_alarmName :: Lens.Lens' PutMetricAlarm Prelude.Text
putMetricAlarm_alarmName :: Lens' PutMetricAlarm Text
putMetricAlarm_alarmName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Text
alarmName :: Text
$sel:alarmName:PutMetricAlarm' :: PutMetricAlarm -> Text
alarmName} -> Text
alarmName) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Text
a -> PutMetricAlarm
s {$sel:alarmName:PutMetricAlarm' :: Text
alarmName = Text
a} :: PutMetricAlarm)
putMetricAlarm_evaluationPeriods :: Lens.Lens' PutMetricAlarm Prelude.Natural
putMetricAlarm_evaluationPeriods :: Lens' PutMetricAlarm Natural
putMetricAlarm_evaluationPeriods = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {Natural
evaluationPeriods :: Natural
$sel:evaluationPeriods:PutMetricAlarm' :: PutMetricAlarm -> Natural
evaluationPeriods} -> Natural
evaluationPeriods) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} Natural
a -> PutMetricAlarm
s {$sel:evaluationPeriods:PutMetricAlarm' :: Natural
evaluationPeriods = Natural
a} :: PutMetricAlarm)
putMetricAlarm_comparisonOperator :: Lens.Lens' PutMetricAlarm ComparisonOperator
putMetricAlarm_comparisonOperator :: Lens' PutMetricAlarm ComparisonOperator
putMetricAlarm_comparisonOperator = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\PutMetricAlarm' {ComparisonOperator
comparisonOperator :: ComparisonOperator
$sel:comparisonOperator:PutMetricAlarm' :: PutMetricAlarm -> ComparisonOperator
comparisonOperator} -> ComparisonOperator
comparisonOperator) (\s :: PutMetricAlarm
s@PutMetricAlarm' {} ComparisonOperator
a -> PutMetricAlarm
s {$sel:comparisonOperator:PutMetricAlarm' :: ComparisonOperator
comparisonOperator = ComparisonOperator
a} :: PutMetricAlarm)
instance Core.AWSRequest PutMetricAlarm where
type
AWSResponse PutMetricAlarm =
PutMetricAlarmResponse
request :: (Service -> Service) -> PutMetricAlarm -> Request PutMetricAlarm
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy PutMetricAlarm
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse PutMetricAlarm)))
response =
forall (m :: * -> *) a.
MonadResource m =>
AWSResponse a
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveNull PutMetricAlarmResponse
PutMetricAlarmResponse'
instance Prelude.Hashable PutMetricAlarm where
hashWithSalt :: Int -> PutMetricAlarm -> Int
hashWithSalt Int
_salt PutMetricAlarm' {Natural
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Text]
Maybe [Dimension]
Maybe [MetricDataQuery]
Maybe [Tag]
Maybe Text
Maybe StandardUnit
Maybe Statistic
Text
ComparisonOperator
comparisonOperator :: ComparisonOperator
evaluationPeriods :: Natural
alarmName :: Text
unit :: Maybe StandardUnit
treatMissingData :: Maybe Text
thresholdMetricId :: Maybe Text
threshold :: Maybe Double
tags :: Maybe [Tag]
statistic :: Maybe Statistic
period :: Maybe Natural
oKActions :: Maybe [Text]
namespace :: Maybe Text
metrics :: Maybe [MetricDataQuery]
metricName :: Maybe Text
insufficientDataActions :: Maybe [Text]
extendedStatistic :: Maybe Text
evaluateLowSampleCountPercentile :: Maybe Text
dimensions :: Maybe [Dimension]
datapointsToAlarm :: Maybe Natural
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsEnabled :: Maybe Bool
$sel:comparisonOperator:PutMetricAlarm' :: PutMetricAlarm -> ComparisonOperator
$sel:evaluationPeriods:PutMetricAlarm' :: PutMetricAlarm -> Natural
$sel:alarmName:PutMetricAlarm' :: PutMetricAlarm -> Text
$sel:unit:PutMetricAlarm' :: PutMetricAlarm -> Maybe StandardUnit
$sel:treatMissingData:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:thresholdMetricId:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:threshold:PutMetricAlarm' :: PutMetricAlarm -> Maybe Double
$sel:tags:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Tag]
$sel:statistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Statistic
$sel:period:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:oKActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:namespace:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:metrics:PutMetricAlarm' :: PutMetricAlarm -> Maybe [MetricDataQuery]
$sel:metricName:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:insufficientDataActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:extendedStatistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:dimensions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Dimension]
$sel:datapointsToAlarm:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:alarmDescription:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:alarmActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:actionsEnabled:PutMetricAlarm' :: PutMetricAlarm -> Maybe Bool
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Bool
actionsEnabled
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
alarmActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
alarmDescription
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
datapointsToAlarm
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Dimension]
dimensions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
evaluateLowSampleCountPercentile
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
extendedStatistic
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
insufficientDataActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
metricName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [MetricDataQuery]
metrics
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
namespace
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
oKActions
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Natural
period
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Statistic
statistic
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Tag]
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Double
threshold
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
thresholdMetricId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
treatMissingData
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe StandardUnit
unit
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
alarmName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Natural
evaluationPeriods
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` ComparisonOperator
comparisonOperator
instance Prelude.NFData PutMetricAlarm where
rnf :: PutMetricAlarm -> ()
rnf PutMetricAlarm' {Natural
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Text]
Maybe [Dimension]
Maybe [MetricDataQuery]
Maybe [Tag]
Maybe Text
Maybe StandardUnit
Maybe Statistic
Text
ComparisonOperator
comparisonOperator :: ComparisonOperator
evaluationPeriods :: Natural
alarmName :: Text
unit :: Maybe StandardUnit
treatMissingData :: Maybe Text
thresholdMetricId :: Maybe Text
threshold :: Maybe Double
tags :: Maybe [Tag]
statistic :: Maybe Statistic
period :: Maybe Natural
oKActions :: Maybe [Text]
namespace :: Maybe Text
metrics :: Maybe [MetricDataQuery]
metricName :: Maybe Text
insufficientDataActions :: Maybe [Text]
extendedStatistic :: Maybe Text
evaluateLowSampleCountPercentile :: Maybe Text
dimensions :: Maybe [Dimension]
datapointsToAlarm :: Maybe Natural
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsEnabled :: Maybe Bool
$sel:comparisonOperator:PutMetricAlarm' :: PutMetricAlarm -> ComparisonOperator
$sel:evaluationPeriods:PutMetricAlarm' :: PutMetricAlarm -> Natural
$sel:alarmName:PutMetricAlarm' :: PutMetricAlarm -> Text
$sel:unit:PutMetricAlarm' :: PutMetricAlarm -> Maybe StandardUnit
$sel:treatMissingData:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:thresholdMetricId:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:threshold:PutMetricAlarm' :: PutMetricAlarm -> Maybe Double
$sel:tags:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Tag]
$sel:statistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Statistic
$sel:period:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:oKActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:namespace:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:metrics:PutMetricAlarm' :: PutMetricAlarm -> Maybe [MetricDataQuery]
$sel:metricName:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:insufficientDataActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:extendedStatistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:dimensions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Dimension]
$sel:datapointsToAlarm:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:alarmDescription:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:alarmActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:actionsEnabled:PutMetricAlarm' :: PutMetricAlarm -> Maybe Bool
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Bool
actionsEnabled
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
alarmActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
alarmDescription
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
datapointsToAlarm
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Dimension]
dimensions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
evaluateLowSampleCountPercentile
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
extendedStatistic
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
insufficientDataActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
metricName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [MetricDataQuery]
metrics
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
namespace
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
oKActions
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Natural
period
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Statistic
statistic
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe [Tag]
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Double
threshold
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
thresholdMetricId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
treatMissingData
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe StandardUnit
unit
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
alarmName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
Natural
evaluationPeriods
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf
ComparisonOperator
comparisonOperator
instance Data.ToHeaders PutMetricAlarm where
toHeaders :: PutMetricAlarm -> [Header]
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath PutMetricAlarm where
toPath :: PutMetricAlarm -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery PutMetricAlarm where
toQuery :: PutMetricAlarm -> QueryString
toQuery PutMetricAlarm' {Natural
Maybe Bool
Maybe Double
Maybe Natural
Maybe [Text]
Maybe [Dimension]
Maybe [MetricDataQuery]
Maybe [Tag]
Maybe Text
Maybe StandardUnit
Maybe Statistic
Text
ComparisonOperator
comparisonOperator :: ComparisonOperator
evaluationPeriods :: Natural
alarmName :: Text
unit :: Maybe StandardUnit
treatMissingData :: Maybe Text
thresholdMetricId :: Maybe Text
threshold :: Maybe Double
tags :: Maybe [Tag]
statistic :: Maybe Statistic
period :: Maybe Natural
oKActions :: Maybe [Text]
namespace :: Maybe Text
metrics :: Maybe [MetricDataQuery]
metricName :: Maybe Text
insufficientDataActions :: Maybe [Text]
extendedStatistic :: Maybe Text
evaluateLowSampleCountPercentile :: Maybe Text
dimensions :: Maybe [Dimension]
datapointsToAlarm :: Maybe Natural
alarmDescription :: Maybe Text
alarmActions :: Maybe [Text]
actionsEnabled :: Maybe Bool
$sel:comparisonOperator:PutMetricAlarm' :: PutMetricAlarm -> ComparisonOperator
$sel:evaluationPeriods:PutMetricAlarm' :: PutMetricAlarm -> Natural
$sel:alarmName:PutMetricAlarm' :: PutMetricAlarm -> Text
$sel:unit:PutMetricAlarm' :: PutMetricAlarm -> Maybe StandardUnit
$sel:treatMissingData:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:thresholdMetricId:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:threshold:PutMetricAlarm' :: PutMetricAlarm -> Maybe Double
$sel:tags:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Tag]
$sel:statistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Statistic
$sel:period:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:oKActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:namespace:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:metrics:PutMetricAlarm' :: PutMetricAlarm -> Maybe [MetricDataQuery]
$sel:metricName:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:insufficientDataActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:extendedStatistic:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:evaluateLowSampleCountPercentile:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:dimensions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Dimension]
$sel:datapointsToAlarm:PutMetricAlarm' :: PutMetricAlarm -> Maybe Natural
$sel:alarmDescription:PutMetricAlarm' :: PutMetricAlarm -> Maybe Text
$sel:alarmActions:PutMetricAlarm' :: PutMetricAlarm -> Maybe [Text]
$sel:actionsEnabled:PutMetricAlarm' :: PutMetricAlarm -> Maybe Bool
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"PutMetricAlarm" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-08-01" :: Prelude.ByteString),
ByteString
"ActionsEnabled" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Bool
actionsEnabled,
ByteString
"AlarmActions"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
alarmActions),
ByteString
"AlarmDescription" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
alarmDescription,
ByteString
"DatapointsToAlarm" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
datapointsToAlarm,
ByteString
"Dimensions"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Dimension]
dimensions),
ByteString
"EvaluateLowSampleCountPercentile"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
evaluateLowSampleCountPercentile,
ByteString
"ExtendedStatistic" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
extendedStatistic,
ByteString
"InsufficientDataActions"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
insufficientDataActions
),
ByteString
"MetricName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
metricName,
ByteString
"Metrics"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [MetricDataQuery]
metrics),
ByteString
"Namespace" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
namespace,
ByteString
"OKActions"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
oKActions),
ByteString
"Period" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Natural
period,
ByteString
"Statistic" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Statistic
statistic,
ByteString
"Tags"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: forall a. ToQuery a => a -> QueryString
Data.toQuery
(forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Tag]
tags),
ByteString
"Threshold" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Double
threshold,
ByteString
"ThresholdMetricId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
thresholdMetricId,
ByteString
"TreatMissingData" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
treatMissingData,
ByteString
"Unit" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe StandardUnit
unit,
ByteString
"AlarmName" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
alarmName,
ByteString
"EvaluationPeriods" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Natural
evaluationPeriods,
ByteString
"ComparisonOperator" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ComparisonOperator
comparisonOperator
]
data PutMetricAlarmResponse = PutMetricAlarmResponse'
{
}
deriving (PutMetricAlarmResponse -> PutMetricAlarmResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: PutMetricAlarmResponse -> PutMetricAlarmResponse -> Bool
$c/= :: PutMetricAlarmResponse -> PutMetricAlarmResponse -> Bool
== :: PutMetricAlarmResponse -> PutMetricAlarmResponse -> Bool
$c== :: PutMetricAlarmResponse -> PutMetricAlarmResponse -> Bool
Prelude.Eq, ReadPrec [PutMetricAlarmResponse]
ReadPrec PutMetricAlarmResponse
Int -> ReadS PutMetricAlarmResponse
ReadS [PutMetricAlarmResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [PutMetricAlarmResponse]
$creadListPrec :: ReadPrec [PutMetricAlarmResponse]
readPrec :: ReadPrec PutMetricAlarmResponse
$creadPrec :: ReadPrec PutMetricAlarmResponse
readList :: ReadS [PutMetricAlarmResponse]
$creadList :: ReadS [PutMetricAlarmResponse]
readsPrec :: Int -> ReadS PutMetricAlarmResponse
$creadsPrec :: Int -> ReadS PutMetricAlarmResponse
Prelude.Read, Int -> PutMetricAlarmResponse -> ShowS
[PutMetricAlarmResponse] -> ShowS
PutMetricAlarmResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [PutMetricAlarmResponse] -> ShowS
$cshowList :: [PutMetricAlarmResponse] -> ShowS
show :: PutMetricAlarmResponse -> String
$cshow :: PutMetricAlarmResponse -> String
showsPrec :: Int -> PutMetricAlarmResponse -> ShowS
$cshowsPrec :: Int -> PutMetricAlarmResponse -> ShowS
Prelude.Show, forall x. Rep PutMetricAlarmResponse x -> PutMetricAlarmResponse
forall x. PutMetricAlarmResponse -> Rep PutMetricAlarmResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep PutMetricAlarmResponse x -> PutMetricAlarmResponse
$cfrom :: forall x. PutMetricAlarmResponse -> Rep PutMetricAlarmResponse x
Prelude.Generic)
newPutMetricAlarmResponse ::
PutMetricAlarmResponse
newPutMetricAlarmResponse :: PutMetricAlarmResponse
newPutMetricAlarmResponse = PutMetricAlarmResponse
PutMetricAlarmResponse'
instance Prelude.NFData PutMetricAlarmResponse where
rnf :: PutMetricAlarmResponse -> ()
rnf PutMetricAlarmResponse
_ = ()