amazonka-cloudwatch 1.6.1 → 2.0

raw patch · 176 files changed

+20573/−5240 lines, 176 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

Files

• README.md +3/−4
• Setup.hs +0/−2
• amazonka-cloudwatch.cabal +158/−90
• fixture/DeleteAlarms.yaml +10/−0
• fixture/DeleteAnomalyDetector.yaml +10/−0
• fixture/DeleteAnomalyDetectorResponse.proto +0/−0
• fixture/DeleteInsightRules.yaml +10/−0
• fixture/DeleteInsightRulesResponse.proto +0/−0
• fixture/DeleteMetricStream.yaml +10/−0
• fixture/DeleteMetricStreamResponse.proto +0/−0
• fixture/DescribeAlarmHistory.yaml +10/−0
• fixture/DescribeAlarms.yaml +10/−0
• fixture/DescribeAlarmsForMetric.yaml +10/−0
• fixture/DescribeAnomalyDetectors.yaml +10/−0
• fixture/DescribeAnomalyDetectorsResponse.proto +0/−0
• fixture/DescribeInsightRules.yaml +10/−0
• fixture/DescribeInsightRulesResponse.proto +0/−0
• fixture/DisableAlarmActions.yaml +10/−0
• fixture/DisableInsightRules.yaml +10/−0
• fixture/DisableInsightRulesResponse.proto +0/−0
• fixture/EnableAlarmActions.yaml +10/−0
• fixture/EnableInsightRules.yaml +10/−0
• fixture/EnableInsightRulesResponse.proto +0/−0
• fixture/GetInsightRuleReport.yaml +10/−0
• fixture/GetInsightRuleReportResponse.proto +0/−0
• fixture/GetMetricStatistics.yaml +10/−0
• fixture/GetMetricStream.yaml +10/−0
• fixture/GetMetricStreamResponse.proto +0/−0
• fixture/GetMetricWidgetImage.yaml +10/−0
• fixture/GetMetricWidgetImageResponse.proto +0/−0
• fixture/ListManagedInsightRules.yaml +10/−0
• fixture/ListManagedInsightRulesResponse.proto +0/−0
• fixture/ListMetricStreams.yaml +10/−0
• fixture/ListMetricStreamsResponse.proto +0/−0
• fixture/ListMetrics.yaml +10/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/PutAnomalyDetector.yaml +10/−0
• fixture/PutAnomalyDetectorResponse.proto +0/−0
• fixture/PutCompositeAlarm.yaml +10/−0
• fixture/PutCompositeAlarmResponse.proto +0/−0
• fixture/PutInsightRule.yaml +10/−0
• fixture/PutInsightRuleResponse.proto +0/−0
• fixture/PutManagedInsightRules.yaml +10/−0
• fixture/PutManagedInsightRulesResponse.proto +0/−0
• fixture/PutMetricAlarm.yaml +10/−0
• fixture/PutMetricData.yaml +10/−0
• fixture/PutMetricStream.yaml +10/−0
• fixture/PutMetricStreamResponse.proto +0/−0
• fixture/SetAlarmState.yaml +10/−0
• fixture/StartMetricStreams.yaml +10/−0
• fixture/StartMetricStreamsResponse.proto +0/−0
• fixture/StopMetricStreams.yaml +10/−0
• fixture/StopMetricStreamsResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• gen/Amazonka/CloudWatch.hs +566/−0
• gen/Amazonka/CloudWatch/DeleteAlarms.hs +137/−0
• gen/Amazonka/CloudWatch/DeleteAnomalyDetector.hs +325/−0
• gen/Amazonka/CloudWatch/DeleteDashboards.hs +147/−0
• gen/Amazonka/CloudWatch/DeleteInsightRules.hs +173/−0
• gen/Amazonka/CloudWatch/DeleteMetricStream.hs +145/−0
• gen/Amazonka/CloudWatch/DescribeAlarmHistory.hs +321/−0
• gen/Amazonka/CloudWatch/DescribeAlarms.hs +459/−0
• gen/Amazonka/CloudWatch/DescribeAlarmsForMetric.hs +269/−0
• gen/Amazonka/CloudWatch/DescribeAnomalyDetectors.hs +322/−0
• gen/Amazonka/CloudWatch/DescribeInsightRules.hs +200/−0
• gen/Amazonka/CloudWatch/DisableAlarmActions.hs +122/−0
• gen/Amazonka/CloudWatch/DisableInsightRules.hs +170/−0
• gen/Amazonka/CloudWatch/EnableAlarmActions.hs +120/−0
• gen/Amazonka/CloudWatch/EnableInsightRules.hs +170/−0
• gen/Amazonka/CloudWatch/GetDashboard.hs +192/−0
• gen/Amazonka/CloudWatch/GetInsightRuleReport.hs +485/−0
• gen/Amazonka/CloudWatch/GetMetricData.hs +547/−0
• gen/Amazonka/CloudWatch/GetMetricStatistics.hs +578/−0
• gen/Amazonka/CloudWatch/GetMetricStream.hs +327/−0
• gen/Amazonka/CloudWatch/GetMetricWidgetImage.hs +320/−0
• gen/Amazonka/CloudWatch/Lens.hs +643/−0
• gen/Amazonka/CloudWatch/ListDashboards.hs +230/−0
• gen/Amazonka/CloudWatch/ListManagedInsightRules.hs +223/−0
• gen/Amazonka/CloudWatch/ListMetricStreams.hs +197/−0
• gen/Amazonka/CloudWatch/ListMetrics.hs +390/−0
• gen/Amazonka/CloudWatch/ListTagsForResource.hs +196/−0
• gen/Amazonka/CloudWatch/PutAnomalyDetector.hs +349/−0
• gen/Amazonka/CloudWatch/PutCompositeAlarm.hs +588/−0
• gen/Amazonka/CloudWatch/PutDashboard.hs +248/−0
• gen/Amazonka/CloudWatch/PutInsightRule.hs +244/−0
• gen/Amazonka/CloudWatch/PutManagedInsightRules.hs +175/−0
• gen/Amazonka/CloudWatch/PutMetricAlarm.hs +1014/−0
• gen/Amazonka/CloudWatch/PutMetricData.hs +203/−0
• gen/Amazonka/CloudWatch/PutMetricStream.hs +462/−0
• gen/Amazonka/CloudWatch/SetAlarmState.hs +207/−0
• gen/Amazonka/CloudWatch/StartMetricStreams.hs +155/−0
• gen/Amazonka/CloudWatch/StopMetricStreams.hs +155/−0
• gen/Amazonka/CloudWatch/TagResource.hs +203/−0
• gen/Amazonka/CloudWatch/Types.hs +610/−0
• gen/Amazonka/CloudWatch/Types/ActionsSuppressedBy.hs +76/−0
• gen/Amazonka/CloudWatch/Types/AlarmHistoryItem.hs +130/−0
• gen/Amazonka/CloudWatch/Types/AlarmType.hs +71/−0
• gen/Amazonka/CloudWatch/Types/AnomalyDetector.hs +172/−0
• gen/Amazonka/CloudWatch/Types/AnomalyDetectorConfiguration.hs +129/−0
• gen/Amazonka/CloudWatch/Types/AnomalyDetectorStateValue.hs +76/−0
• gen/Amazonka/CloudWatch/Types/AnomalyDetectorType.hs +71/−0
• gen/Amazonka/CloudWatch/Types/ComparisonOperator.hs +96/−0
• gen/Amazonka/CloudWatch/Types/CompositeAlarm.hs +386/−0
• gen/Amazonka/CloudWatch/Types/DashboardEntry.hs +110/−0
• gen/Amazonka/CloudWatch/Types/DashboardValidationMessage.hs +81/−0
• gen/Amazonka/CloudWatch/Types/Datapoint.hs +161/−0
• gen/Amazonka/CloudWatch/Types/Dimension.hs +101/−0
• gen/Amazonka/CloudWatch/Types/DimensionFilter.hs +80/−0
• gen/Amazonka/CloudWatch/Types/EvaluationState.hs +66/−0
• gen/Amazonka/CloudWatch/Types/HistoryItemType.hs +76/−0
• gen/Amazonka/CloudWatch/Types/InsightRule.hs +145/−0
• gen/Amazonka/CloudWatch/Types/InsightRuleContributor.hs +121/−0
• gen/Amazonka/CloudWatch/Types/InsightRuleContributorDatapoint.hs +100/−0
• gen/Amazonka/CloudWatch/Types/InsightRuleMetricDatapoint.hs +243/−0
• gen/Amazonka/CloudWatch/Types/LabelOptions.hs +82/−0
• gen/Amazonka/CloudWatch/Types/ManagedRule.hs +134/−0
• gen/Amazonka/CloudWatch/Types/ManagedRuleDescription.hs +107/−0
• gen/Amazonka/CloudWatch/Types/ManagedRuleState.hs +87/−0
• gen/Amazonka/CloudWatch/Types/MessageData.hs +86/−0
• gen/Amazonka/CloudWatch/Types/Metric.hs +107/−0
• gen/Amazonka/CloudWatch/Types/MetricAlarm.hs +531/−0
• gen/Amazonka/CloudWatch/Types/MetricDataQuery.hs +340/−0
• gen/Amazonka/CloudWatch/Types/MetricDataResult.hs +175/−0
• gen/Amazonka/CloudWatch/Types/MetricDatum.hs +282/−0
• gen/Amazonka/CloudWatch/Types/MetricMathAnomalyDetector.hs +106/−0
• gen/Amazonka/CloudWatch/Types/MetricStat.hs +212/−0
• gen/Amazonka/CloudWatch/Types/MetricStreamEntry.hs +154/−0
• gen/Amazonka/CloudWatch/Types/MetricStreamFilter.hs +69/−0
• gen/Amazonka/CloudWatch/Types/MetricStreamOutputFormat.hs +71/−0
• gen/Amazonka/CloudWatch/Types/MetricStreamStatisticsConfiguration.hs +166/−0
• gen/Amazonka/CloudWatch/Types/MetricStreamStatisticsMetric.hs +98/−0
• gen/Amazonka/CloudWatch/Types/PartialFailure.hs +106/−0
• gen/Amazonka/CloudWatch/Types/Range.hs +98/−0
• gen/Amazonka/CloudWatch/Types/RecentlyActive.hs +66/−0
• gen/Amazonka/CloudWatch/Types/ScanBy.hs +68/−0
• gen/Amazonka/CloudWatch/Types/SingleMetricAnomalyDetector.hs +122/−0
• gen/Amazonka/CloudWatch/Types/StandardUnit.hs +196/−0
• gen/Amazonka/CloudWatch/Types/StateValue.hs +76/−0
• gen/Amazonka/CloudWatch/Types/Statistic.hs +86/−0
• gen/Amazonka/CloudWatch/Types/StatisticSet.hs +117/−0
• gen/Amazonka/CloudWatch/Types/StatusCode.hs +81/−0
• gen/Amazonka/CloudWatch/Types/Tag.hs +88/−0
• gen/Amazonka/CloudWatch/UntagResource.hs +189/−0
• gen/Amazonka/CloudWatch/Waiters.hs +67/−0
• gen/Network/AWS/CloudWatch.hs +0/−322
• gen/Network/AWS/CloudWatch/DeleteAlarms.hs +0/−99
• gen/Network/AWS/CloudWatch/DeleteDashboards.hs +0/−114
• gen/Network/AWS/CloudWatch/DescribeAlarmHistory.hs +0/−203
• gen/Network/AWS/CloudWatch/DescribeAlarms.hs +0/−201
• gen/Network/AWS/CloudWatch/DescribeAlarmsForMetric.hs +0/−192
• gen/Network/AWS/CloudWatch/DisableAlarmActions.hs +0/−100
• gen/Network/AWS/CloudWatch/EnableAlarmActions.hs +0/−100
• gen/Network/AWS/CloudWatch/GetDashboard.hs +0/−149
• gen/Network/AWS/CloudWatch/GetMetricData.hs +0/−194
• gen/Network/AWS/CloudWatch/GetMetricStatistics.hs +0/−258
• gen/Network/AWS/CloudWatch/ListDashboards.hs +0/−157
• gen/Network/AWS/CloudWatch/ListMetrics.hs +0/−185
• gen/Network/AWS/CloudWatch/PutDashboard.hs +0/−146
• gen/Network/AWS/CloudWatch/PutMetricAlarm.hs +0/−320
• gen/Network/AWS/CloudWatch/PutMetricData.hs +0/−126
• gen/Network/AWS/CloudWatch/SetAlarmState.hs +0/−135
• gen/Network/AWS/CloudWatch/Types.hs +0/−310
• gen/Network/AWS/CloudWatch/Types/Product.hs +0/−1116
• gen/Network/AWS/CloudWatch/Types/Sum.hs +0/−305
• gen/Network/AWS/CloudWatch/Waiters.hs +0/−34
• test/Main.hs +11/−9
• test/Test/AWS/CloudWatch.hs +0/−26
• test/Test/AWS/CloudWatch/Internal.hs +0/−16
• test/Test/AWS/Gen/CloudWatch.hs +0/−327
• test/Test/Amazonka/CloudWatch.hs +20/−0
• test/Test/Amazonka/CloudWatch/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudWatch.hs +798/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2010-08-01@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.CloudWatch](http://hackage.haskell.org/package/amazonka-cloudwatch/docs/Network-AWS-CloudWatch.html)+See [Amazonka.CloudWatch](http://hackage.haskell.org/package/amazonka-cloudwatch/docs/Amazonka-CloudWatch.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

@@ -1,101 +1,169 @@-name:                  amazonka-cloudwatch-version:               1.6.1-synopsis:              Amazon CloudWatch SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-cloudwatch+version:            2.0+synopsis:           Amazon CloudWatch SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.CloudWatch" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2010-08-01@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.CloudWatch.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.CloudWatch" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-cloudwatch+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudwatch  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.CloudWatch-        , Network.AWS.CloudWatch.DeleteAlarms-        , Network.AWS.CloudWatch.DeleteDashboards-        , Network.AWS.CloudWatch.DescribeAlarmHistory-        , Network.AWS.CloudWatch.DescribeAlarms-        , Network.AWS.CloudWatch.DescribeAlarmsForMetric-        , Network.AWS.CloudWatch.DisableAlarmActions-        , Network.AWS.CloudWatch.EnableAlarmActions-        , Network.AWS.CloudWatch.GetDashboard-        , Network.AWS.CloudWatch.GetMetricData-        , Network.AWS.CloudWatch.GetMetricStatistics-        , Network.AWS.CloudWatch.ListDashboards-        , Network.AWS.CloudWatch.ListMetrics-        , Network.AWS.CloudWatch.PutDashboard-        , Network.AWS.CloudWatch.PutMetricAlarm-        , Network.AWS.CloudWatch.PutMetricData-        , Network.AWS.CloudWatch.SetAlarmState-        , Network.AWS.CloudWatch.Types-        , Network.AWS.CloudWatch.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.CloudWatch.Types.Product-        , Network.AWS.CloudWatch.Types.Sum+  exposed-modules:+    Amazonka.CloudWatch+    Amazonka.CloudWatch.DeleteAlarms+    Amazonka.CloudWatch.DeleteAnomalyDetector+    Amazonka.CloudWatch.DeleteDashboards+    Amazonka.CloudWatch.DeleteInsightRules+    Amazonka.CloudWatch.DeleteMetricStream+    Amazonka.CloudWatch.DescribeAlarmHistory+    Amazonka.CloudWatch.DescribeAlarms+    Amazonka.CloudWatch.DescribeAlarmsForMetric+    Amazonka.CloudWatch.DescribeAnomalyDetectors+    Amazonka.CloudWatch.DescribeInsightRules+    Amazonka.CloudWatch.DisableAlarmActions+    Amazonka.CloudWatch.DisableInsightRules+    Amazonka.CloudWatch.EnableAlarmActions+    Amazonka.CloudWatch.EnableInsightRules+    Amazonka.CloudWatch.GetDashboard+    Amazonka.CloudWatch.GetInsightRuleReport+    Amazonka.CloudWatch.GetMetricData+    Amazonka.CloudWatch.GetMetricStatistics+    Amazonka.CloudWatch.GetMetricStream+    Amazonka.CloudWatch.GetMetricWidgetImage+    Amazonka.CloudWatch.Lens+    Amazonka.CloudWatch.ListDashboards+    Amazonka.CloudWatch.ListManagedInsightRules+    Amazonka.CloudWatch.ListMetrics+    Amazonka.CloudWatch.ListMetricStreams+    Amazonka.CloudWatch.ListTagsForResource+    Amazonka.CloudWatch.PutAnomalyDetector+    Amazonka.CloudWatch.PutCompositeAlarm+    Amazonka.CloudWatch.PutDashboard+    Amazonka.CloudWatch.PutInsightRule+    Amazonka.CloudWatch.PutManagedInsightRules+    Amazonka.CloudWatch.PutMetricAlarm+    Amazonka.CloudWatch.PutMetricData+    Amazonka.CloudWatch.PutMetricStream+    Amazonka.CloudWatch.SetAlarmState+    Amazonka.CloudWatch.StartMetricStreams+    Amazonka.CloudWatch.StopMetricStreams+    Amazonka.CloudWatch.TagResource+    Amazonka.CloudWatch.Types+    Amazonka.CloudWatch.Types.ActionsSuppressedBy+    Amazonka.CloudWatch.Types.AlarmHistoryItem+    Amazonka.CloudWatch.Types.AlarmType+    Amazonka.CloudWatch.Types.AnomalyDetector+    Amazonka.CloudWatch.Types.AnomalyDetectorConfiguration+    Amazonka.CloudWatch.Types.AnomalyDetectorStateValue+    Amazonka.CloudWatch.Types.AnomalyDetectorType+    Amazonka.CloudWatch.Types.ComparisonOperator+    Amazonka.CloudWatch.Types.CompositeAlarm+    Amazonka.CloudWatch.Types.DashboardEntry+    Amazonka.CloudWatch.Types.DashboardValidationMessage+    Amazonka.CloudWatch.Types.Datapoint+    Amazonka.CloudWatch.Types.Dimension+    Amazonka.CloudWatch.Types.DimensionFilter+    Amazonka.CloudWatch.Types.EvaluationState+    Amazonka.CloudWatch.Types.HistoryItemType+    Amazonka.CloudWatch.Types.InsightRule+    Amazonka.CloudWatch.Types.InsightRuleContributor+    Amazonka.CloudWatch.Types.InsightRuleContributorDatapoint+    Amazonka.CloudWatch.Types.InsightRuleMetricDatapoint+    Amazonka.CloudWatch.Types.LabelOptions+    Amazonka.CloudWatch.Types.ManagedRule+    Amazonka.CloudWatch.Types.ManagedRuleDescription+    Amazonka.CloudWatch.Types.ManagedRuleState+    Amazonka.CloudWatch.Types.MessageData+    Amazonka.CloudWatch.Types.Metric+    Amazonka.CloudWatch.Types.MetricAlarm+    Amazonka.CloudWatch.Types.MetricDataQuery+    Amazonka.CloudWatch.Types.MetricDataResult+    Amazonka.CloudWatch.Types.MetricDatum+    Amazonka.CloudWatch.Types.MetricMathAnomalyDetector+    Amazonka.CloudWatch.Types.MetricStat+    Amazonka.CloudWatch.Types.MetricStreamEntry+    Amazonka.CloudWatch.Types.MetricStreamFilter+    Amazonka.CloudWatch.Types.MetricStreamOutputFormat+    Amazonka.CloudWatch.Types.MetricStreamStatisticsConfiguration+    Amazonka.CloudWatch.Types.MetricStreamStatisticsMetric+    Amazonka.CloudWatch.Types.PartialFailure+    Amazonka.CloudWatch.Types.Range+    Amazonka.CloudWatch.Types.RecentlyActive+    Amazonka.CloudWatch.Types.ScanBy+    Amazonka.CloudWatch.Types.SingleMetricAnomalyDetector+    Amazonka.CloudWatch.Types.StandardUnit+    Amazonka.CloudWatch.Types.StateValue+    Amazonka.CloudWatch.Types.Statistic+    Amazonka.CloudWatch.Types.StatisticSet+    Amazonka.CloudWatch.Types.StatusCode+    Amazonka.CloudWatch.Types.Tag+    Amazonka.CloudWatch.UntagResource+    Amazonka.CloudWatch.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-cloudwatch-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.CloudWatch-        , Test.AWS.Gen.CloudWatch-        , Test.AWS.CloudWatch.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.CloudWatch+    Test.Amazonka.CloudWatch.Internal+    Test.Amazonka.Gen.CloudWatch -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudwatch-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudwatch+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/monitoring/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  monitoring.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,566 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudWatch+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2010-08-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon CloudWatch monitors your Amazon Web Services (Amazon Web+-- Services) resources and the applications you run on Amazon Web Services+-- in real time. You can use CloudWatch to collect and track metrics, which+-- are the variables you want to measure for your resources and+-- applications.+--+-- CloudWatch alarms send notifications or automatically change the+-- resources you are monitoring based on rules that you define. For+-- example, you can monitor the CPU usage and disk reads and writes of your+-- Amazon EC2 instances. Then, use this data to determine whether you+-- should launch additional instances to handle increased load. You can+-- also use this data to stop under-used instances to save money.+--+-- In addition to monitoring the built-in metrics that come with Amazon Web+-- Services, you can monitor your own custom metrics. With CloudWatch, you+-- gain system-wide visibility into resource utilization, application+-- performance, and operational health.+module Amazonka.CloudWatch+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ConcurrentModificationException+    _ConcurrentModificationException,++    -- ** DashboardInvalidInputError+    _DashboardInvalidInputError,++    -- ** DashboardNotFoundError+    _DashboardNotFoundError,++    -- ** InternalServiceFault+    _InternalServiceFault,++    -- ** InvalidFormatFault+    _InvalidFormatFault,++    -- ** InvalidNextToken+    _InvalidNextToken,++    -- ** InvalidParameterCombinationException+    _InvalidParameterCombinationException,++    -- ** InvalidParameterValueException+    _InvalidParameterValueException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** LimitExceededFault+    _LimitExceededFault,++    -- ** MissingRequiredParameterException+    _MissingRequiredParameterException,++    -- ** ResourceNotFound+    _ResourceNotFound,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- * Waiters+    -- $waiters++    -- ** AlarmExists+    newAlarmExists,++    -- ** CompositeAlarmExists+    newCompositeAlarmExists,++    -- * Operations+    -- $operations++    -- ** DeleteAlarms+    DeleteAlarms (DeleteAlarms'),+    newDeleteAlarms,+    DeleteAlarmsResponse (DeleteAlarmsResponse'),+    newDeleteAlarmsResponse,++    -- ** DeleteAnomalyDetector+    DeleteAnomalyDetector (DeleteAnomalyDetector'),+    newDeleteAnomalyDetector,+    DeleteAnomalyDetectorResponse (DeleteAnomalyDetectorResponse'),+    newDeleteAnomalyDetectorResponse,++    -- ** DeleteDashboards+    DeleteDashboards (DeleteDashboards'),+    newDeleteDashboards,+    DeleteDashboardsResponse (DeleteDashboardsResponse'),+    newDeleteDashboardsResponse,++    -- ** DeleteInsightRules+    DeleteInsightRules (DeleteInsightRules'),+    newDeleteInsightRules,+    DeleteInsightRulesResponse (DeleteInsightRulesResponse'),+    newDeleteInsightRulesResponse,++    -- ** DeleteMetricStream+    DeleteMetricStream (DeleteMetricStream'),+    newDeleteMetricStream,+    DeleteMetricStreamResponse (DeleteMetricStreamResponse'),+    newDeleteMetricStreamResponse,++    -- ** DescribeAlarmHistory (Paginated)+    DescribeAlarmHistory (DescribeAlarmHistory'),+    newDescribeAlarmHistory,+    DescribeAlarmHistoryResponse (DescribeAlarmHistoryResponse'),+    newDescribeAlarmHistoryResponse,++    -- ** DescribeAlarms (Paginated)+    DescribeAlarms (DescribeAlarms'),+    newDescribeAlarms,+    DescribeAlarmsResponse (DescribeAlarmsResponse'),+    newDescribeAlarmsResponse,++    -- ** DescribeAlarmsForMetric+    DescribeAlarmsForMetric (DescribeAlarmsForMetric'),+    newDescribeAlarmsForMetric,+    DescribeAlarmsForMetricResponse (DescribeAlarmsForMetricResponse'),+    newDescribeAlarmsForMetricResponse,++    -- ** DescribeAnomalyDetectors (Paginated)+    DescribeAnomalyDetectors (DescribeAnomalyDetectors'),+    newDescribeAnomalyDetectors,+    DescribeAnomalyDetectorsResponse (DescribeAnomalyDetectorsResponse'),+    newDescribeAnomalyDetectorsResponse,++    -- ** DescribeInsightRules+    DescribeInsightRules (DescribeInsightRules'),+    newDescribeInsightRules,+    DescribeInsightRulesResponse (DescribeInsightRulesResponse'),+    newDescribeInsightRulesResponse,++    -- ** DisableAlarmActions+    DisableAlarmActions (DisableAlarmActions'),+    newDisableAlarmActions,+    DisableAlarmActionsResponse (DisableAlarmActionsResponse'),+    newDisableAlarmActionsResponse,++    -- ** DisableInsightRules+    DisableInsightRules (DisableInsightRules'),+    newDisableInsightRules,+    DisableInsightRulesResponse (DisableInsightRulesResponse'),+    newDisableInsightRulesResponse,++    -- ** EnableAlarmActions+    EnableAlarmActions (EnableAlarmActions'),+    newEnableAlarmActions,+    EnableAlarmActionsResponse (EnableAlarmActionsResponse'),+    newEnableAlarmActionsResponse,++    -- ** EnableInsightRules+    EnableInsightRules (EnableInsightRules'),+    newEnableInsightRules,+    EnableInsightRulesResponse (EnableInsightRulesResponse'),+    newEnableInsightRulesResponse,++    -- ** GetDashboard+    GetDashboard (GetDashboard'),+    newGetDashboard,+    GetDashboardResponse (GetDashboardResponse'),+    newGetDashboardResponse,++    -- ** GetInsightRuleReport+    GetInsightRuleReport (GetInsightRuleReport'),+    newGetInsightRuleReport,+    GetInsightRuleReportResponse (GetInsightRuleReportResponse'),+    newGetInsightRuleReportResponse,++    -- ** GetMetricData (Paginated)+    GetMetricData (GetMetricData'),+    newGetMetricData,+    GetMetricDataResponse (GetMetricDataResponse'),+    newGetMetricDataResponse,++    -- ** GetMetricStatistics+    GetMetricStatistics (GetMetricStatistics'),+    newGetMetricStatistics,+    GetMetricStatisticsResponse (GetMetricStatisticsResponse'),+    newGetMetricStatisticsResponse,++    -- ** GetMetricStream+    GetMetricStream (GetMetricStream'),+    newGetMetricStream,+    GetMetricStreamResponse (GetMetricStreamResponse'),+    newGetMetricStreamResponse,++    -- ** GetMetricWidgetImage+    GetMetricWidgetImage (GetMetricWidgetImage'),+    newGetMetricWidgetImage,+    GetMetricWidgetImageResponse (GetMetricWidgetImageResponse'),+    newGetMetricWidgetImageResponse,++    -- ** ListDashboards (Paginated)+    ListDashboards (ListDashboards'),+    newListDashboards,+    ListDashboardsResponse (ListDashboardsResponse'),+    newListDashboardsResponse,++    -- ** ListManagedInsightRules+    ListManagedInsightRules (ListManagedInsightRules'),+    newListManagedInsightRules,+    ListManagedInsightRulesResponse (ListManagedInsightRulesResponse'),+    newListManagedInsightRulesResponse,++    -- ** ListMetricStreams+    ListMetricStreams (ListMetricStreams'),+    newListMetricStreams,+    ListMetricStreamsResponse (ListMetricStreamsResponse'),+    newListMetricStreamsResponse,++    -- ** ListMetrics (Paginated)+    ListMetrics (ListMetrics'),+    newListMetrics,+    ListMetricsResponse (ListMetricsResponse'),+    newListMetricsResponse,++    -- ** ListTagsForResource+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** PutAnomalyDetector+    PutAnomalyDetector (PutAnomalyDetector'),+    newPutAnomalyDetector,+    PutAnomalyDetectorResponse (PutAnomalyDetectorResponse'),+    newPutAnomalyDetectorResponse,++    -- ** PutCompositeAlarm+    PutCompositeAlarm (PutCompositeAlarm'),+    newPutCompositeAlarm,+    PutCompositeAlarmResponse (PutCompositeAlarmResponse'),+    newPutCompositeAlarmResponse,++    -- ** PutDashboard+    PutDashboard (PutDashboard'),+    newPutDashboard,+    PutDashboardResponse (PutDashboardResponse'),+    newPutDashboardResponse,++    -- ** PutInsightRule+    PutInsightRule (PutInsightRule'),+    newPutInsightRule,+    PutInsightRuleResponse (PutInsightRuleResponse'),+    newPutInsightRuleResponse,++    -- ** PutManagedInsightRules+    PutManagedInsightRules (PutManagedInsightRules'),+    newPutManagedInsightRules,+    PutManagedInsightRulesResponse (PutManagedInsightRulesResponse'),+    newPutManagedInsightRulesResponse,++    -- ** PutMetricAlarm+    PutMetricAlarm (PutMetricAlarm'),+    newPutMetricAlarm,+    PutMetricAlarmResponse (PutMetricAlarmResponse'),+    newPutMetricAlarmResponse,++    -- ** PutMetricData+    PutMetricData (PutMetricData'),+    newPutMetricData,+    PutMetricDataResponse (PutMetricDataResponse'),+    newPutMetricDataResponse,++    -- ** PutMetricStream+    PutMetricStream (PutMetricStream'),+    newPutMetricStream,+    PutMetricStreamResponse (PutMetricStreamResponse'),+    newPutMetricStreamResponse,++    -- ** SetAlarmState+    SetAlarmState (SetAlarmState'),+    newSetAlarmState,+    SetAlarmStateResponse (SetAlarmStateResponse'),+    newSetAlarmStateResponse,++    -- ** StartMetricStreams+    StartMetricStreams (StartMetricStreams'),+    newStartMetricStreams,+    StartMetricStreamsResponse (StartMetricStreamsResponse'),+    newStartMetricStreamsResponse,++    -- ** StopMetricStreams+    StopMetricStreams (StopMetricStreams'),+    newStopMetricStreams,+    StopMetricStreamsResponse (StopMetricStreamsResponse'),+    newStopMetricStreamsResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- * Types++    -- ** ActionsSuppressedBy+    ActionsSuppressedBy (..),++    -- ** AlarmType+    AlarmType (..),++    -- ** AnomalyDetectorStateValue+    AnomalyDetectorStateValue (..),++    -- ** AnomalyDetectorType+    AnomalyDetectorType (..),++    -- ** ComparisonOperator+    ComparisonOperator (..),++    -- ** EvaluationState+    EvaluationState (..),++    -- ** HistoryItemType+    HistoryItemType (..),++    -- ** MetricStreamOutputFormat+    MetricStreamOutputFormat (..),++    -- ** RecentlyActive+    RecentlyActive (..),++    -- ** ScanBy+    ScanBy (..),++    -- ** StandardUnit+    StandardUnit (..),++    -- ** StateValue+    StateValue (..),++    -- ** Statistic+    Statistic (..),++    -- ** StatusCode+    StatusCode (..),++    -- ** AlarmHistoryItem+    AlarmHistoryItem (AlarmHistoryItem'),+    newAlarmHistoryItem,++    -- ** AnomalyDetector+    AnomalyDetector (AnomalyDetector'),+    newAnomalyDetector,++    -- ** AnomalyDetectorConfiguration+    AnomalyDetectorConfiguration (AnomalyDetectorConfiguration'),+    newAnomalyDetectorConfiguration,++    -- ** CompositeAlarm+    CompositeAlarm (CompositeAlarm'),+    newCompositeAlarm,++    -- ** DashboardEntry+    DashboardEntry (DashboardEntry'),+    newDashboardEntry,++    -- ** DashboardValidationMessage+    DashboardValidationMessage (DashboardValidationMessage'),+    newDashboardValidationMessage,++    -- ** Datapoint+    Datapoint (Datapoint'),+    newDatapoint,++    -- ** Dimension+    Dimension (Dimension'),+    newDimension,++    -- ** DimensionFilter+    DimensionFilter (DimensionFilter'),+    newDimensionFilter,++    -- ** InsightRule+    InsightRule (InsightRule'),+    newInsightRule,++    -- ** InsightRuleContributor+    InsightRuleContributor (InsightRuleContributor'),+    newInsightRuleContributor,++    -- ** InsightRuleContributorDatapoint+    InsightRuleContributorDatapoint (InsightRuleContributorDatapoint'),+    newInsightRuleContributorDatapoint,++    -- ** InsightRuleMetricDatapoint+    InsightRuleMetricDatapoint (InsightRuleMetricDatapoint'),+    newInsightRuleMetricDatapoint,++    -- ** LabelOptions+    LabelOptions (LabelOptions'),+    newLabelOptions,++    -- ** ManagedRule+    ManagedRule (ManagedRule'),+    newManagedRule,++    -- ** ManagedRuleDescription+    ManagedRuleDescription (ManagedRuleDescription'),+    newManagedRuleDescription,++    -- ** ManagedRuleState+    ManagedRuleState (ManagedRuleState'),+    newManagedRuleState,++    -- ** MessageData+    MessageData (MessageData'),+    newMessageData,++    -- ** Metric+    Metric (Metric'),+    newMetric,++    -- ** MetricAlarm+    MetricAlarm (MetricAlarm'),+    newMetricAlarm,++    -- ** MetricDataQuery+    MetricDataQuery (MetricDataQuery'),+    newMetricDataQuery,++    -- ** MetricDataResult+    MetricDataResult (MetricDataResult'),+    newMetricDataResult,++    -- ** MetricDatum+    MetricDatum (MetricDatum'),+    newMetricDatum,++    -- ** MetricMathAnomalyDetector+    MetricMathAnomalyDetector (MetricMathAnomalyDetector'),+    newMetricMathAnomalyDetector,++    -- ** MetricStat+    MetricStat (MetricStat'),+    newMetricStat,++    -- ** MetricStreamEntry+    MetricStreamEntry (MetricStreamEntry'),+    newMetricStreamEntry,++    -- ** MetricStreamFilter+    MetricStreamFilter (MetricStreamFilter'),+    newMetricStreamFilter,++    -- ** MetricStreamStatisticsConfiguration+    MetricStreamStatisticsConfiguration (MetricStreamStatisticsConfiguration'),+    newMetricStreamStatisticsConfiguration,++    -- ** MetricStreamStatisticsMetric+    MetricStreamStatisticsMetric (MetricStreamStatisticsMetric'),+    newMetricStreamStatisticsMetric,++    -- ** PartialFailure+    PartialFailure (PartialFailure'),+    newPartialFailure,++    -- ** Range+    Range (Range'),+    newRange,++    -- ** SingleMetricAnomalyDetector+    SingleMetricAnomalyDetector (SingleMetricAnomalyDetector'),+    newSingleMetricAnomalyDetector,++    -- ** StatisticSet+    StatisticSet (StatisticSet'),+    newStatisticSet,++    -- ** Tag+    Tag (Tag'),+    newTag,+  )+where++import Amazonka.CloudWatch.DeleteAlarms+import Amazonka.CloudWatch.DeleteAnomalyDetector+import Amazonka.CloudWatch.DeleteDashboards+import Amazonka.CloudWatch.DeleteInsightRules+import Amazonka.CloudWatch.DeleteMetricStream+import Amazonka.CloudWatch.DescribeAlarmHistory+import Amazonka.CloudWatch.DescribeAlarms+import Amazonka.CloudWatch.DescribeAlarmsForMetric+import Amazonka.CloudWatch.DescribeAnomalyDetectors+import Amazonka.CloudWatch.DescribeInsightRules+import Amazonka.CloudWatch.DisableAlarmActions+import Amazonka.CloudWatch.DisableInsightRules+import Amazonka.CloudWatch.EnableAlarmActions+import Amazonka.CloudWatch.EnableInsightRules+import Amazonka.CloudWatch.GetDashboard+import Amazonka.CloudWatch.GetInsightRuleReport+import Amazonka.CloudWatch.GetMetricData+import Amazonka.CloudWatch.GetMetricStatistics+import Amazonka.CloudWatch.GetMetricStream+import Amazonka.CloudWatch.GetMetricWidgetImage+import Amazonka.CloudWatch.Lens+import Amazonka.CloudWatch.ListDashboards+import Amazonka.CloudWatch.ListManagedInsightRules+import Amazonka.CloudWatch.ListMetricStreams+import Amazonka.CloudWatch.ListMetrics+import Amazonka.CloudWatch.ListTagsForResource+import Amazonka.CloudWatch.PutAnomalyDetector+import Amazonka.CloudWatch.PutCompositeAlarm+import Amazonka.CloudWatch.PutDashboard+import Amazonka.CloudWatch.PutInsightRule+import Amazonka.CloudWatch.PutManagedInsightRules+import Amazonka.CloudWatch.PutMetricAlarm+import Amazonka.CloudWatch.PutMetricData+import Amazonka.CloudWatch.PutMetricStream+import Amazonka.CloudWatch.SetAlarmState+import Amazonka.CloudWatch.StartMetricStreams+import Amazonka.CloudWatch.StopMetricStreams+import Amazonka.CloudWatch.TagResource+import Amazonka.CloudWatch.Types+import Amazonka.CloudWatch.UntagResource+import Amazonka.CloudWatch.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'CloudWatch'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

@@ -0,0 +1,137 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DeleteAlarms+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified alarms. You can delete up to 100 alarms in one+-- operation. However, this total can include no more than one composite+-- alarm. For example, you could delete 99 metric alarms and one composite+-- alarms with one operation, but you can\'t delete two composite alarms+-- with one operation.+--+-- In the event of an error, no alarms are deleted.+--+-- It is possible to create a loop or cycle of composite alarms, where+-- composite alarm A depends on composite alarm B, and composite alarm B+-- also depends on composite alarm A. In this scenario, you can\'t delete+-- any composite alarm that is part of the cycle because there is always+-- still a composite alarm that depends on that alarm that you want to+-- delete.+--+-- To get out of such a situation, you must break the cycle by changing the+-- rule of one of the composite alarms in the cycle to remove a dependency+-- that creates the cycle. The simplest change to make to break a cycle is+-- to change the @AlarmRule@ of one of the alarms to @false@.+--+-- Additionally, the evaluation of composite alarms stops if CloudWatch+-- detects a cycle in the evaluation path.+module Amazonka.CloudWatch.DeleteAlarms+  ( -- * Creating a Request+    DeleteAlarms (..),+    newDeleteAlarms,++    -- * Request Lenses+    deleteAlarms_alarmNames,++    -- * Destructuring the Response+    DeleteAlarmsResponse (..),+    newDeleteAlarmsResponse,+  )+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++-- | /See:/ 'newDeleteAlarms' smart constructor.+data DeleteAlarms = DeleteAlarms'+  { -- | The alarms to be deleted.+    alarmNames :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAlarms' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'alarmNames', 'deleteAlarms_alarmNames' - The alarms to be deleted.+newDeleteAlarms ::+  DeleteAlarms+newDeleteAlarms =+  DeleteAlarms' {alarmNames = Prelude.mempty}++-- | The alarms to be deleted.+deleteAlarms_alarmNames :: Lens.Lens' DeleteAlarms [Prelude.Text]+deleteAlarms_alarmNames = Lens.lens (\DeleteAlarms' {alarmNames} -> alarmNames) (\s@DeleteAlarms' {} a -> s {alarmNames = a} :: DeleteAlarms) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteAlarms where+  type AWSResponse DeleteAlarms = DeleteAlarmsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response = Response.receiveNull DeleteAlarmsResponse'++instance Prelude.Hashable DeleteAlarms where+  hashWithSalt _salt DeleteAlarms' {..} =+    _salt `Prelude.hashWithSalt` alarmNames++instance Prelude.NFData DeleteAlarms where+  rnf DeleteAlarms' {..} = Prelude.rnf alarmNames++instance Data.ToHeaders DeleteAlarms where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteAlarms where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteAlarms where+  toQuery DeleteAlarms' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteAlarms" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "AlarmNames"+          Data.=: Data.toQueryList "member" alarmNames+      ]++-- | /See:/ 'newDeleteAlarmsResponse' smart constructor.+data DeleteAlarmsResponse = DeleteAlarmsResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAlarmsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newDeleteAlarmsResponse ::+  DeleteAlarmsResponse+newDeleteAlarmsResponse = DeleteAlarmsResponse'++instance Prelude.NFData DeleteAlarmsResponse where+  rnf _ = ()

@@ -0,0 +1,325 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DeleteAnomalyDetector+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified anomaly detection model from your account. For+-- more information about how to delete an anomaly detection model, see+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/monitoring/Create_Anomaly_Detection_Alarm.html#Delete_Anomaly_Detection_Model Deleting an anomaly detection model>+-- in the /CloudWatch User Guide/.+module Amazonka.CloudWatch.DeleteAnomalyDetector+  ( -- * Creating a Request+    DeleteAnomalyDetector (..),+    newDeleteAnomalyDetector,++    -- * Request Lenses+    deleteAnomalyDetector_dimensions,+    deleteAnomalyDetector_metricMathAnomalyDetector,+    deleteAnomalyDetector_metricName,+    deleteAnomalyDetector_namespace,+    deleteAnomalyDetector_singleMetricAnomalyDetector,+    deleteAnomalyDetector_stat,++    -- * Destructuring the Response+    DeleteAnomalyDetectorResponse (..),+    newDeleteAnomalyDetectorResponse,++    -- * Response Lenses+    deleteAnomalyDetectorResponse_httpStatus,+  )+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++-- | /See:/ 'newDeleteAnomalyDetector' smart constructor.+data DeleteAnomalyDetector = DeleteAnomalyDetector'+  { -- | The metric dimensions associated with the anomaly detection model to+    -- delete.+    dimensions :: Prelude.Maybe [Dimension],+    -- | The metric math anomaly detector to be deleted.+    --+    -- When using @MetricMathAnomalyDetector@, you cannot include following+    -- parameters in the same operation:+    --+    -- -   @Dimensions@,+    --+    -- -   @MetricName@+    --+    -- -   @Namespace@+    --+    -- -   @Stat@+    --+    -- -   the @SingleMetricAnomalyDetector@ parameters of+    --     @DeleteAnomalyDetectorInput@+    --+    -- Instead, specify the metric math anomaly detector attributes as part of+    -- the @MetricMathAnomalyDetector@ property.+    metricMathAnomalyDetector :: Prelude.Maybe MetricMathAnomalyDetector,+    -- | The metric name associated with the anomaly detection model to delete.+    metricName :: Prelude.Maybe Prelude.Text,+    -- | The namespace associated with the anomaly detection model to delete.+    namespace :: Prelude.Maybe Prelude.Text,+    -- | A single metric anomaly detector to be deleted.+    --+    -- When using @SingleMetricAnomalyDetector@, you cannot include the+    -- following parameters in the same operation:+    --+    -- -   @Dimensions@,+    --+    -- -   @MetricName@+    --+    -- -   @Namespace@+    --+    -- -   @Stat@+    --+    -- -   the @MetricMathAnomalyDetector@ parameters of+    --     @DeleteAnomalyDetectorInput@+    --+    -- Instead, specify the single metric anomaly detector attributes as part+    -- of the @SingleMetricAnomalyDetector@ property.+    singleMetricAnomalyDetector :: Prelude.Maybe SingleMetricAnomalyDetector,+    -- | The statistic associated with the anomaly detection model to delete.+    stat :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAnomalyDetector' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dimensions', 'deleteAnomalyDetector_dimensions' - The metric dimensions associated with the anomaly detection model to+-- delete.+--+-- 'metricMathAnomalyDetector', 'deleteAnomalyDetector_metricMathAnomalyDetector' - The metric math anomaly detector to be deleted.+--+-- When using @MetricMathAnomalyDetector@, you cannot include following+-- parameters in the same operation:+--+-- -   @Dimensions@,+--+-- -   @MetricName@+--+-- -   @Namespace@+--+-- -   @Stat@+--+-- -   the @SingleMetricAnomalyDetector@ parameters of+--     @DeleteAnomalyDetectorInput@+--+-- Instead, specify the metric math anomaly detector attributes as part of+-- the @MetricMathAnomalyDetector@ property.+--+-- 'metricName', 'deleteAnomalyDetector_metricName' - The metric name associated with the anomaly detection model to delete.+--+-- 'namespace', 'deleteAnomalyDetector_namespace' - The namespace associated with the anomaly detection model to delete.+--+-- 'singleMetricAnomalyDetector', 'deleteAnomalyDetector_singleMetricAnomalyDetector' - A single metric anomaly detector to be deleted.+--+-- When using @SingleMetricAnomalyDetector@, you cannot include the+-- following parameters in the same operation:+--+-- -   @Dimensions@,+--+-- -   @MetricName@+--+-- -   @Namespace@+--+-- -   @Stat@+--+-- -   the @MetricMathAnomalyDetector@ parameters of+--     @DeleteAnomalyDetectorInput@+--+-- Instead, specify the single metric anomaly detector attributes as part+-- of the @SingleMetricAnomalyDetector@ property.+--+-- 'stat', 'deleteAnomalyDetector_stat' - The statistic associated with the anomaly detection model to delete.+newDeleteAnomalyDetector ::+  DeleteAnomalyDetector+newDeleteAnomalyDetector =+  DeleteAnomalyDetector'+    { dimensions =+        Prelude.Nothing,+      metricMathAnomalyDetector = Prelude.Nothing,+      metricName = Prelude.Nothing,+      namespace = Prelude.Nothing,+      singleMetricAnomalyDetector = Prelude.Nothing,+      stat = Prelude.Nothing+    }++-- | The metric dimensions associated with the anomaly detection model to+-- delete.+deleteAnomalyDetector_dimensions :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe [Dimension])+deleteAnomalyDetector_dimensions = Lens.lens (\DeleteAnomalyDetector' {dimensions} -> dimensions) (\s@DeleteAnomalyDetector' {} a -> s {dimensions = a} :: DeleteAnomalyDetector) Prelude.. Lens.mapping Lens.coerced++-- | The metric math anomaly detector to be deleted.+--+-- When using @MetricMathAnomalyDetector@, you cannot include following+-- parameters in the same operation:+--+-- -   @Dimensions@,+--+-- -   @MetricName@+--+-- -   @Namespace@+--+-- -   @Stat@+--+-- -   the @SingleMetricAnomalyDetector@ parameters of+--     @DeleteAnomalyDetectorInput@+--+-- Instead, specify the metric math anomaly detector attributes as part of+-- the @MetricMathAnomalyDetector@ property.+deleteAnomalyDetector_metricMathAnomalyDetector :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe MetricMathAnomalyDetector)+deleteAnomalyDetector_metricMathAnomalyDetector = Lens.lens (\DeleteAnomalyDetector' {metricMathAnomalyDetector} -> metricMathAnomalyDetector) (\s@DeleteAnomalyDetector' {} a -> s {metricMathAnomalyDetector = a} :: DeleteAnomalyDetector)++-- | The metric name associated with the anomaly detection model to delete.+deleteAnomalyDetector_metricName :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe Prelude.Text)+deleteAnomalyDetector_metricName = Lens.lens (\DeleteAnomalyDetector' {metricName} -> metricName) (\s@DeleteAnomalyDetector' {} a -> s {metricName = a} :: DeleteAnomalyDetector)++-- | The namespace associated with the anomaly detection model to delete.+deleteAnomalyDetector_namespace :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe Prelude.Text)+deleteAnomalyDetector_namespace = Lens.lens (\DeleteAnomalyDetector' {namespace} -> namespace) (\s@DeleteAnomalyDetector' {} a -> s {namespace = a} :: DeleteAnomalyDetector)++-- | A single metric anomaly detector to be deleted.+--+-- When using @SingleMetricAnomalyDetector@, you cannot include the+-- following parameters in the same operation:+--+-- -   @Dimensions@,+--+-- -   @MetricName@+--+-- -   @Namespace@+--+-- -   @Stat@+--+-- -   the @MetricMathAnomalyDetector@ parameters of+--     @DeleteAnomalyDetectorInput@+--+-- Instead, specify the single metric anomaly detector attributes as part+-- of the @SingleMetricAnomalyDetector@ property.+deleteAnomalyDetector_singleMetricAnomalyDetector :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe SingleMetricAnomalyDetector)+deleteAnomalyDetector_singleMetricAnomalyDetector = Lens.lens (\DeleteAnomalyDetector' {singleMetricAnomalyDetector} -> singleMetricAnomalyDetector) (\s@DeleteAnomalyDetector' {} a -> s {singleMetricAnomalyDetector = a} :: DeleteAnomalyDetector)++-- | The statistic associated with the anomaly detection model to delete.+deleteAnomalyDetector_stat :: Lens.Lens' DeleteAnomalyDetector (Prelude.Maybe Prelude.Text)+deleteAnomalyDetector_stat = Lens.lens (\DeleteAnomalyDetector' {stat} -> stat) (\s@DeleteAnomalyDetector' {} a -> s {stat = a} :: DeleteAnomalyDetector)++instance Core.AWSRequest DeleteAnomalyDetector where+  type+    AWSResponse DeleteAnomalyDetector =+      DeleteAnomalyDetectorResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteAnomalyDetectorResult"+      ( \s h x ->+          DeleteAnomalyDetectorResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteAnomalyDetector where+  hashWithSalt _salt DeleteAnomalyDetector' {..} =+    _salt+      `Prelude.hashWithSalt` dimensions+      `Prelude.hashWithSalt` metricMathAnomalyDetector+      `Prelude.hashWithSalt` metricName+      `Prelude.hashWithSalt` namespace+      `Prelude.hashWithSalt` singleMetricAnomalyDetector+      `Prelude.hashWithSalt` stat++instance Prelude.NFData DeleteAnomalyDetector where+  rnf DeleteAnomalyDetector' {..} =+    Prelude.rnf dimensions+      `Prelude.seq` Prelude.rnf metricMathAnomalyDetector+      `Prelude.seq` Prelude.rnf metricName+      `Prelude.seq` Prelude.rnf namespace+      `Prelude.seq` Prelude.rnf singleMetricAnomalyDetector+      `Prelude.seq` Prelude.rnf stat++instance Data.ToHeaders DeleteAnomalyDetector where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteAnomalyDetector where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteAnomalyDetector where+  toQuery DeleteAnomalyDetector' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteAnomalyDetector" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "Dimensions"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> dimensions),+        "MetricMathAnomalyDetector"+          Data.=: metricMathAnomalyDetector,+        "MetricName" Data.=: metricName,+        "Namespace" Data.=: namespace,+        "SingleMetricAnomalyDetector"+          Data.=: singleMetricAnomalyDetector,+        "Stat" Data.=: stat+      ]++-- | /See:/ 'newDeleteAnomalyDetectorResponse' smart constructor.+data DeleteAnomalyDetectorResponse = DeleteAnomalyDetectorResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAnomalyDetectorResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteAnomalyDetectorResponse_httpStatus' - The response's http status code.+newDeleteAnomalyDetectorResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteAnomalyDetectorResponse+newDeleteAnomalyDetectorResponse pHttpStatus_ =+  DeleteAnomalyDetectorResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteAnomalyDetectorResponse_httpStatus :: Lens.Lens' DeleteAnomalyDetectorResponse Prelude.Int+deleteAnomalyDetectorResponse_httpStatus = Lens.lens (\DeleteAnomalyDetectorResponse' {httpStatus} -> httpStatus) (\s@DeleteAnomalyDetectorResponse' {} a -> s {httpStatus = a} :: DeleteAnomalyDetectorResponse)++instance Prelude.NFData DeleteAnomalyDetectorResponse where+  rnf DeleteAnomalyDetectorResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,147 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DeleteDashboards+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes all dashboards that you specify. You can specify up to 100+-- dashboards to delete. If there is an error during this call, no+-- dashboards are deleted.+module Amazonka.CloudWatch.DeleteDashboards+  ( -- * Creating a Request+    DeleteDashboards (..),+    newDeleteDashboards,++    -- * Request Lenses+    deleteDashboards_dashboardNames,++    -- * Destructuring the Response+    DeleteDashboardsResponse (..),+    newDeleteDashboardsResponse,++    -- * Response Lenses+    deleteDashboardsResponse_httpStatus,+  )+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++-- | /See:/ 'newDeleteDashboards' smart constructor.+data DeleteDashboards = DeleteDashboards'+  { -- | The dashboards to be deleted. This parameter is required.+    dashboardNames :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDashboards' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dashboardNames', 'deleteDashboards_dashboardNames' - The dashboards to be deleted. This parameter is required.+newDeleteDashboards ::+  DeleteDashboards+newDeleteDashboards =+  DeleteDashboards' {dashboardNames = Prelude.mempty}++-- | The dashboards to be deleted. This parameter is required.+deleteDashboards_dashboardNames :: Lens.Lens' DeleteDashboards [Prelude.Text]+deleteDashboards_dashboardNames = Lens.lens (\DeleteDashboards' {dashboardNames} -> dashboardNames) (\s@DeleteDashboards' {} a -> s {dashboardNames = a} :: DeleteDashboards) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteDashboards where+  type+    AWSResponse DeleteDashboards =+      DeleteDashboardsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteDashboardsResult"+      ( \s h x ->+          DeleteDashboardsResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteDashboards where+  hashWithSalt _salt DeleteDashboards' {..} =+    _salt `Prelude.hashWithSalt` dashboardNames++instance Prelude.NFData DeleteDashboards where+  rnf DeleteDashboards' {..} =+    Prelude.rnf dashboardNames++instance Data.ToHeaders DeleteDashboards where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteDashboards where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteDashboards where+  toQuery DeleteDashboards' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteDashboards" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "DashboardNames"+          Data.=: Data.toQueryList "member" dashboardNames+      ]++-- | /See:/ 'newDeleteDashboardsResponse' smart constructor.+data DeleteDashboardsResponse = DeleteDashboardsResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDashboardsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteDashboardsResponse_httpStatus' - The response's http status code.+newDeleteDashboardsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteDashboardsResponse+newDeleteDashboardsResponse pHttpStatus_ =+  DeleteDashboardsResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteDashboardsResponse_httpStatus :: Lens.Lens' DeleteDashboardsResponse Prelude.Int+deleteDashboardsResponse_httpStatus = Lens.lens (\DeleteDashboardsResponse' {httpStatus} -> httpStatus) (\s@DeleteDashboardsResponse' {} a -> s {httpStatus = a} :: DeleteDashboardsResponse)++instance Prelude.NFData DeleteDashboardsResponse where+  rnf DeleteDashboardsResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,173 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DeleteInsightRules+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Permanently deletes the specified Contributor Insights rules.+--+-- If you create a rule, delete it, and then re-create it with the same+-- name, historical data from the first time the rule was created might not+-- be available.+module Amazonka.CloudWatch.DeleteInsightRules+  ( -- * Creating a Request+    DeleteInsightRules (..),+    newDeleteInsightRules,++    -- * Request Lenses+    deleteInsightRules_ruleNames,++    -- * Destructuring the Response+    DeleteInsightRulesResponse (..),+    newDeleteInsightRulesResponse,++    -- * Response Lenses+    deleteInsightRulesResponse_failures,+    deleteInsightRulesResponse_httpStatus,+  )+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++-- | /See:/ 'newDeleteInsightRules' smart constructor.+data DeleteInsightRules = DeleteInsightRules'+  { -- | An array of the rule names to delete. If you need to find out the names+    -- of your rules, use+    -- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/APIReference/API_DescribeInsightRules.html DescribeInsightRules>.+    ruleNames :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInsightRules' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'ruleNames', 'deleteInsightRules_ruleNames' - An array of the rule names to delete. If you need to find out the names+-- of your rules, use+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/APIReference/API_DescribeInsightRules.html DescribeInsightRules>.+newDeleteInsightRules ::+  DeleteInsightRules+newDeleteInsightRules =+  DeleteInsightRules' {ruleNames = Prelude.mempty}++-- | An array of the rule names to delete. If you need to find out the names+-- of your rules, use+-- <https://docs.aws.amazon.com/AmazonCloudWatch/latest/APIReference/API_DescribeInsightRules.html DescribeInsightRules>.+deleteInsightRules_ruleNames :: Lens.Lens' DeleteInsightRules [Prelude.Text]+deleteInsightRules_ruleNames = Lens.lens (\DeleteInsightRules' {ruleNames} -> ruleNames) (\s@DeleteInsightRules' {} a -> s {ruleNames = a} :: DeleteInsightRules) Prelude.. Lens.coerced++instance Core.AWSRequest DeleteInsightRules where+  type+    AWSResponse DeleteInsightRules =+      DeleteInsightRulesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteInsightRulesResult"+      ( \s h x ->+          DeleteInsightRulesResponse'+            Prelude.<$> ( x+                            Data..@? "Failures"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteInsightRules where+  hashWithSalt _salt DeleteInsightRules' {..} =+    _salt `Prelude.hashWithSalt` ruleNames++instance Prelude.NFData DeleteInsightRules where+  rnf DeleteInsightRules' {..} = Prelude.rnf ruleNames++instance Data.ToHeaders DeleteInsightRules where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteInsightRules where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteInsightRules where+  toQuery DeleteInsightRules' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteInsightRules" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "RuleNames"+          Data.=: Data.toQueryList "member" ruleNames+      ]++-- | /See:/ 'newDeleteInsightRulesResponse' smart constructor.+data DeleteInsightRulesResponse = DeleteInsightRulesResponse'+  { -- | An array listing the rules that could not be deleted. You cannot delete+    -- built-in rules.+    failures :: Prelude.Maybe [PartialFailure],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteInsightRulesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'failures', 'deleteInsightRulesResponse_failures' - An array listing the rules that could not be deleted. You cannot delete+-- built-in rules.+--+-- 'httpStatus', 'deleteInsightRulesResponse_httpStatus' - The response's http status code.+newDeleteInsightRulesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteInsightRulesResponse+newDeleteInsightRulesResponse pHttpStatus_ =+  DeleteInsightRulesResponse'+    { failures =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | An array listing the rules that could not be deleted. You cannot delete+-- built-in rules.+deleteInsightRulesResponse_failures :: Lens.Lens' DeleteInsightRulesResponse (Prelude.Maybe [PartialFailure])+deleteInsightRulesResponse_failures = Lens.lens (\DeleteInsightRulesResponse' {failures} -> failures) (\s@DeleteInsightRulesResponse' {} a -> s {failures = a} :: DeleteInsightRulesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+deleteInsightRulesResponse_httpStatus :: Lens.Lens' DeleteInsightRulesResponse Prelude.Int+deleteInsightRulesResponse_httpStatus = Lens.lens (\DeleteInsightRulesResponse' {httpStatus} -> httpStatus) (\s@DeleteInsightRulesResponse' {} a -> s {httpStatus = a} :: DeleteInsightRulesResponse)++instance Prelude.NFData DeleteInsightRulesResponse where+  rnf DeleteInsightRulesResponse' {..} =+    Prelude.rnf failures+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,145 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DeleteMetricStream+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Permanently deletes the metric stream that you specify.+module Amazonka.CloudWatch.DeleteMetricStream+  ( -- * Creating a Request+    DeleteMetricStream (..),+    newDeleteMetricStream,++    -- * Request Lenses+    deleteMetricStream_name,++    -- * Destructuring the Response+    DeleteMetricStreamResponse (..),+    newDeleteMetricStreamResponse,++    -- * Response Lenses+    deleteMetricStreamResponse_httpStatus,+  )+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++-- | /See:/ 'newDeleteMetricStream' smart constructor.+data DeleteMetricStream = DeleteMetricStream'+  { -- | The name of the metric stream to delete.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMetricStream' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'deleteMetricStream_name' - The name of the metric stream to delete.+newDeleteMetricStream ::+  -- | 'name'+  Prelude.Text ->+  DeleteMetricStream+newDeleteMetricStream pName_ =+  DeleteMetricStream' {name = pName_}++-- | The name of the metric stream to delete.+deleteMetricStream_name :: Lens.Lens' DeleteMetricStream Prelude.Text+deleteMetricStream_name = Lens.lens (\DeleteMetricStream' {name} -> name) (\s@DeleteMetricStream' {} a -> s {name = a} :: DeleteMetricStream)++instance Core.AWSRequest DeleteMetricStream where+  type+    AWSResponse DeleteMetricStream =+      DeleteMetricStreamResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteMetricStreamResult"+      ( \s h x ->+          DeleteMetricStreamResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteMetricStream where+  hashWithSalt _salt DeleteMetricStream' {..} =+    _salt `Prelude.hashWithSalt` name++instance Prelude.NFData DeleteMetricStream where+  rnf DeleteMetricStream' {..} = Prelude.rnf name++instance Data.ToHeaders DeleteMetricStream where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteMetricStream where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteMetricStream where+  toQuery DeleteMetricStream' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteMetricStream" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "Name" Data.=: name+      ]++-- | /See:/ 'newDeleteMetricStreamResponse' smart constructor.+data DeleteMetricStreamResponse = DeleteMetricStreamResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteMetricStreamResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteMetricStreamResponse_httpStatus' - The response's http status code.+newDeleteMetricStreamResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteMetricStreamResponse+newDeleteMetricStreamResponse pHttpStatus_ =+  DeleteMetricStreamResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteMetricStreamResponse_httpStatus :: Lens.Lens' DeleteMetricStreamResponse Prelude.Int+deleteMetricStreamResponse_httpStatus = Lens.lens (\DeleteMetricStreamResponse' {httpStatus} -> httpStatus) (\s@DeleteMetricStreamResponse' {} a -> s {httpStatus = a} :: DeleteMetricStreamResponse)++instance Prelude.NFData DeleteMetricStreamResponse where+  rnf DeleteMetricStreamResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,321 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DescribeAlarmHistory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the history for the specified alarm. You can filter the+-- results by date range or item type. If an alarm name is not specified,+-- the histories for either all metric alarms or all composite alarms are+-- returned.+--+-- CloudWatch retains the history of an alarm even if you delete the alarm.+--+-- To use this operation and return information about a composite alarm,+-- you must be signed on with the @cloudwatch:DescribeAlarmHistory@+-- permission that is scoped to @*@. You can\'t return information about+-- composite alarms if your @cloudwatch:DescribeAlarmHistory@ permission+-- has a narrower scope.+--+-- This operation returns paginated results.+module Amazonka.CloudWatch.DescribeAlarmHistory+  ( -- * Creating a Request+    DescribeAlarmHistory (..),+    newDescribeAlarmHistory,++    -- * Request Lenses+    describeAlarmHistory_alarmName,+    describeAlarmHistory_alarmTypes,+    describeAlarmHistory_endDate,+    describeAlarmHistory_historyItemType,+    describeAlarmHistory_maxRecords,+    describeAlarmHistory_nextToken,+    describeAlarmHistory_scanBy,+    describeAlarmHistory_startDate,++    -- * Destructuring the Response+    DescribeAlarmHistoryResponse (..),+    newDescribeAlarmHistoryResponse,++    -- * Response Lenses+    describeAlarmHistoryResponse_alarmHistoryItems,+    describeAlarmHistoryResponse_nextToken,+    describeAlarmHistoryResponse_httpStatus,+  )+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++-- | /See:/ 'newDescribeAlarmHistory' smart constructor.+data DescribeAlarmHistory = DescribeAlarmHistory'+  { -- | The name of the alarm.+    alarmName :: Prelude.Maybe Prelude.Text,+    -- | Use this parameter to specify whether you want the operation to return+    -- metric alarms or composite alarms. If you omit this parameter, only+    -- metric alarms are returned.+    alarmTypes :: Prelude.Maybe [AlarmType],+    -- | The ending date to retrieve alarm history.+    endDate :: Prelude.Maybe Data.ISO8601,+    -- | The type of alarm histories to retrieve.+    historyItemType :: Prelude.Maybe HistoryItemType,+    -- | The maximum number of alarm history records to retrieve.+    maxRecords :: Prelude.Maybe Prelude.Natural,+    -- | The token returned by a previous call to indicate that there is more+    -- data available.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specified whether to return the newest or oldest alarm history first.+    -- Specify @TimestampDescending@ to have the newest event history returned+    -- first, and specify @TimestampAscending@ to have the oldest history+    -- returned first.+    scanBy :: Prelude.Maybe ScanBy,+    -- | The starting date to retrieve alarm history.+    startDate :: Prelude.Maybe Data.ISO8601+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAlarmHistory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'alarmName', 'describeAlarmHistory_alarmName' - The name of the alarm.+--+-- 'alarmTypes', 'describeAlarmHistory_alarmTypes' - Use this parameter to specify whether you want the operation to return+-- metric alarms or composite alarms. If you omit this parameter, only+-- metric alarms are returned.+--+-- 'endDate', 'describeAlarmHistory_endDate' - The ending date to retrieve alarm history.+--+-- 'historyItemType', 'describeAlarmHistory_historyItemType' - The type of alarm histories to retrieve.+--+-- 'maxRecords', 'describeAlarmHistory_maxRecords' - The maximum number of alarm history records to retrieve.+--+-- 'nextToken', 'describeAlarmHistory_nextToken' - The token returned by a previous call to indicate that there is more+-- data available.+--+-- 'scanBy', 'describeAlarmHistory_scanBy' - Specified whether to return the newest or oldest alarm history first.+-- Specify @TimestampDescending@ to have the newest event history returned+-- first, and specify @TimestampAscending@ to have the oldest history+-- returned first.+--+-- 'startDate', 'describeAlarmHistory_startDate' - The starting date to retrieve alarm history.+newDescribeAlarmHistory ::+  DescribeAlarmHistory+newDescribeAlarmHistory =+  DescribeAlarmHistory'+    { alarmName = Prelude.Nothing,+      alarmTypes = Prelude.Nothing,+      endDate = Prelude.Nothing,+      historyItemType = Prelude.Nothing,+      maxRecords = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      scanBy = Prelude.Nothing,+      startDate = Prelude.Nothing+    }++-- | The name of the alarm.+describeAlarmHistory_alarmName :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe Prelude.Text)+describeAlarmHistory_alarmName = Lens.lens (\DescribeAlarmHistory' {alarmName} -> alarmName) (\s@DescribeAlarmHistory' {} a -> s {alarmName = a} :: DescribeAlarmHistory)++-- | Use this parameter to specify whether you want the operation to return+-- metric alarms or composite alarms. If you omit this parameter, only+-- metric alarms are returned.+describeAlarmHistory_alarmTypes :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe [AlarmType])+describeAlarmHistory_alarmTypes = Lens.lens (\DescribeAlarmHistory' {alarmTypes} -> alarmTypes) (\s@DescribeAlarmHistory' {} a -> s {alarmTypes = a} :: DescribeAlarmHistory) Prelude.. Lens.mapping Lens.coerced++-- | The ending date to retrieve alarm history.+describeAlarmHistory_endDate :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe Prelude.UTCTime)+describeAlarmHistory_endDate = Lens.lens (\DescribeAlarmHistory' {endDate} -> endDate) (\s@DescribeAlarmHistory' {} a -> s {endDate = a} :: DescribeAlarmHistory) Prelude.. Lens.mapping Data._Time++-- | The type of alarm histories to retrieve.+describeAlarmHistory_historyItemType :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe HistoryItemType)+describeAlarmHistory_historyItemType = Lens.lens (\DescribeAlarmHistory' {historyItemType} -> historyItemType) (\s@DescribeAlarmHistory' {} a -> s {historyItemType = a} :: DescribeAlarmHistory)++-- | The maximum number of alarm history records to retrieve.+describeAlarmHistory_maxRecords :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe Prelude.Natural)+describeAlarmHistory_maxRecords = Lens.lens (\DescribeAlarmHistory' {maxRecords} -> maxRecords) (\s@DescribeAlarmHistory' {} a -> s {maxRecords = a} :: DescribeAlarmHistory)++-- | The token returned by a previous call to indicate that there is more+-- data available.+describeAlarmHistory_nextToken :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe Prelude.Text)+describeAlarmHistory_nextToken = Lens.lens (\DescribeAlarmHistory' {nextToken} -> nextToken) (\s@DescribeAlarmHistory' {} a -> s {nextToken = a} :: DescribeAlarmHistory)++-- | Specified whether to return the newest or oldest alarm history first.+-- Specify @TimestampDescending@ to have the newest event history returned+-- first, and specify @TimestampAscending@ to have the oldest history+-- returned first.+describeAlarmHistory_scanBy :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe ScanBy)+describeAlarmHistory_scanBy = Lens.lens (\DescribeAlarmHistory' {scanBy} -> scanBy) (\s@DescribeAlarmHistory' {} a -> s {scanBy = a} :: DescribeAlarmHistory)++-- | The starting date to retrieve alarm history.+describeAlarmHistory_startDate :: Lens.Lens' DescribeAlarmHistory (Prelude.Maybe Prelude.UTCTime)+describeAlarmHistory_startDate = Lens.lens (\DescribeAlarmHistory' {startDate} -> startDate) (\s@DescribeAlarmHistory' {} a -> s {startDate = a} :: DescribeAlarmHistory) Prelude.. Lens.mapping Data._Time++instance Core.AWSPager DescribeAlarmHistory where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAlarmHistoryResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAlarmHistoryResponse_alarmHistoryItems+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAlarmHistory_nextToken+          Lens..~ rs+          Lens.^? describeAlarmHistoryResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeAlarmHistory where+  type+    AWSResponse DescribeAlarmHistory =+      DescribeAlarmHistoryResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeAlarmHistoryResult"+      ( \s h x ->+          DescribeAlarmHistoryResponse'+            Prelude.<$> ( x+                            Data..@? "AlarmHistoryItems"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAlarmHistory where+  hashWithSalt _salt DescribeAlarmHistory' {..} =+    _salt+      `Prelude.hashWithSalt` alarmName+      `Prelude.hashWithSalt` alarmTypes+      `Prelude.hashWithSalt` endDate+      `Prelude.hashWithSalt` historyItemType+      `Prelude.hashWithSalt` maxRecords+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` scanBy+      `Prelude.hashWithSalt` startDate++instance Prelude.NFData DescribeAlarmHistory where+  rnf DescribeAlarmHistory' {..} =+    Prelude.rnf alarmName+      `Prelude.seq` Prelude.rnf alarmTypes+      `Prelude.seq` Prelude.rnf endDate+      `Prelude.seq` Prelude.rnf historyItemType+      `Prelude.seq` Prelude.rnf maxRecords+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf scanBy+      `Prelude.seq` Prelude.rnf startDate++instance Data.ToHeaders DescribeAlarmHistory where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAlarmHistory where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAlarmHistory where+  toQuery DescribeAlarmHistory' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeAlarmHistory" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "AlarmName" Data.=: alarmName,+        "AlarmTypes"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> alarmTypes),+        "EndDate" Data.=: endDate,+        "HistoryItemType" Data.=: historyItemType,+        "MaxRecords" Data.=: maxRecords,+        "NextToken" Data.=: nextToken,+        "ScanBy" Data.=: scanBy,+        "StartDate" Data.=: startDate+      ]++-- | /See:/ 'newDescribeAlarmHistoryResponse' smart constructor.+data DescribeAlarmHistoryResponse = DescribeAlarmHistoryResponse'+  { -- | The alarm histories, in JSON format.+    alarmHistoryItems :: Prelude.Maybe [AlarmHistoryItem],+    -- | The token that marks the start of the next batch of returned results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAlarmHistoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'alarmHistoryItems', 'describeAlarmHistoryResponse_alarmHistoryItems' - The alarm histories, in JSON format.+--+-- 'nextToken', 'describeAlarmHistoryResponse_nextToken' - The token that marks the start of the next batch of returned results.+--+-- 'httpStatus', 'describeAlarmHistoryResponse_httpStatus' - The response's http status code.+newDescribeAlarmHistoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAlarmHistoryResponse+newDescribeAlarmHistoryResponse pHttpStatus_ =+  DescribeAlarmHistoryResponse'+    { alarmHistoryItems =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The alarm histories, in JSON format.+describeAlarmHistoryResponse_alarmHistoryItems :: Lens.Lens' DescribeAlarmHistoryResponse (Prelude.Maybe [AlarmHistoryItem])+describeAlarmHistoryResponse_alarmHistoryItems = Lens.lens (\DescribeAlarmHistoryResponse' {alarmHistoryItems} -> alarmHistoryItems) (\s@DescribeAlarmHistoryResponse' {} a -> s {alarmHistoryItems = a} :: DescribeAlarmHistoryResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token that marks the start of the next batch of returned results.+describeAlarmHistoryResponse_nextToken :: Lens.Lens' DescribeAlarmHistoryResponse (Prelude.Maybe Prelude.Text)+describeAlarmHistoryResponse_nextToken = Lens.lens (\DescribeAlarmHistoryResponse' {nextToken} -> nextToken) (\s@DescribeAlarmHistoryResponse' {} a -> s {nextToken = a} :: DescribeAlarmHistoryResponse)++-- | The response's http status code.+describeAlarmHistoryResponse_httpStatus :: Lens.Lens' DescribeAlarmHistoryResponse Prelude.Int+describeAlarmHistoryResponse_httpStatus = Lens.lens (\DescribeAlarmHistoryResponse' {httpStatus} -> httpStatus) (\s@DescribeAlarmHistoryResponse' {} a -> s {httpStatus = a} :: DescribeAlarmHistoryResponse)++instance Prelude.NFData DescribeAlarmHistoryResponse where+  rnf DescribeAlarmHistoryResponse' {..} =+    Prelude.rnf alarmHistoryItems+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,459 @@+{-# 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 #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudWatch.DescribeAlarms+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the specified alarms. You can filter the results by specifying+-- a prefix for the alarm name, the alarm state, or a prefix for any+-- action.+--+-- To use this operation and return information about composite alarms, you+-- must be signed on with the @cloudwatch:DescribeAlarms@ permission that+-- is scoped to @*@. You can\'t return information about composite alarms+-- if your @cloudwatch:DescribeAlarms@ permission has a narrower scope.+--+-- This operation returns paginated results.+module Amazonka.CloudWatch.DescribeAlarms+  ( -- * Creating a Request+    DescribeAlarms (..),+    newDescribeAlarms,++    -- * Request Lenses+    describeAlarms_actionPrefix,+    describeAlarms_alarmNamePrefix,+    describeAlarms_alarmNames,+    describeAlarms_alarmTypes,+    describeAlarms_childrenOfAlarmName,+    describeAlarms_maxRecords,+    describeAlarms_nextToken,+    describeAlarms_parentsOfAlarmName,+    describeAlarms_stateValue,++    -- * Destructuring the Response+    DescribeAlarmsResponse (..),+    newDescribeAlarmsResponse,++    -- * Response Lenses+    describeAlarmsResponse_compositeAlarms,+    describeAlarmsResponse_metricAlarms,+    describeAlarmsResponse_nextToken,+    describeAlarmsResponse_httpStatus,+  )+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++-- | /See:/ 'newDescribeAlarms' smart constructor.+data DescribeAlarms = DescribeAlarms'+  { -- | Use this parameter to filter the results of the operation to only those+    -- alarms that use a certain alarm action. For example, you could specify+    -- the ARN of an SNS topic to find all alarms that send notifications to+    -- that topic.+    actionPrefix :: Prelude.Maybe Prelude.Text,+    -- | An alarm name prefix. If you specify this parameter, you receive+    -- information about all alarms that have names that start with this+    -- prefix.+    --+    -- If this parameter is specified, you cannot specify @AlarmNames@.+    alarmNamePrefix :: Prelude.Maybe Prelude.Text,+    -- | The names of the alarms to retrieve information about.+    alarmNames :: Prelude.Maybe [Prelude.Text],+    -- | Use this parameter to specify whether you want the operation to return+    -- metric alarms or composite alarms. If you omit this parameter, only+    -- metric alarms are returned.+    alarmTypes :: Prelude.Maybe [AlarmType],+    -- | If you use this parameter and specify the name of a composite alarm, the+    -- operation returns information about the \"children\" alarms of the alarm+    -- you specify. These are the metric alarms and composite alarms referenced+    -- in the @AlarmRule@ field of the composite alarm that you specify in+    -- @ChildrenOfAlarmName@. Information about the composite alarm that you+    -- name in @ChildrenOfAlarmName@ is not returned.+    --+    -- If you specify @ChildrenOfAlarmName@, you cannot specify any other+    -- parameters in the request except for @MaxRecords@ and @NextToken@. If+    -- you do so, you receive a validation error.+    --+    -- Only the @Alarm Name@, @ARN@, @StateValue@+    -- (OK\/ALARM\/INSUFFICIENT_DATA), and @StateUpdatedTimestamp@ information+    -- are returned by this operation when you use this parameter. To get+    -- complete information about these alarms, perform another+    -- @DescribeAlarms@ operation and specify the parent alarm names in the+    -- @AlarmNames@ parameter.+    childrenOfAlarmName :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of alarm descriptions to retrieve.+    maxRecords :: Prelude.Maybe Prelude.Natural,+    -- | The token returned by a previous call to indicate that there is more+    -- data available.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | If you use this parameter and specify the name of a metric or composite+    -- alarm, the operation returns information about the \"parent\" alarms of+    -- the alarm you specify. These are the composite alarms that have+    -- @AlarmRule@ parameters that reference the alarm named in+    -- @ParentsOfAlarmName@. Information about the alarm that you specify in+    -- @ParentsOfAlarmName@ is not returned.+    --+    -- If you specify @ParentsOfAlarmName@, you cannot specify any other+    -- parameters in the request except for @MaxRecords@ and @NextToken@. If+    -- you do so, you receive a validation error.+    --+    -- Only the Alarm Name and ARN are returned by this operation when you use+    -- this parameter. To get complete information about these alarms, perform+    -- another @DescribeAlarms@ operation and specify the parent alarm names in+    -- the @AlarmNames@ parameter.+    parentsOfAlarmName :: Prelude.Maybe Prelude.Text,+    -- | Specify this parameter to receive information only about alarms that are+    -- currently in the state that you specify.+    stateValue :: Prelude.Maybe StateValue+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAlarms' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'actionPrefix', 'describeAlarms_actionPrefix' - Use this parameter to filter the results of the operation to only those+-- alarms that use a certain alarm action. For example, you could specify+-- the ARN of an SNS topic to find all alarms that send notifications to+-- that topic.+--+-- 'alarmNamePrefix', 'describeAlarms_alarmNamePrefix' - An alarm name prefix. If you specify this parameter, you receive+-- information about all alarms that have names that start with this+-- prefix.+--+-- If this parameter is specified, you cannot specify @AlarmNames@.+--+-- 'alarmNames', 'describeAlarms_alarmNames' - The names of the alarms to retrieve information about.+--+-- 'alarmTypes', 'describeAlarms_alarmTypes' - Use this parameter to specify whether you want the operation to return+-- metric alarms or composite alarms. If you omit this parameter, only+-- metric alarms are returned.+--+-- 'childrenOfAlarmName', 'describeAlarms_childrenOfAlarmName' - If you use this parameter and specify the name of a composite alarm, the+-- operation returns information about the \"children\" alarms of the alarm+-- you specify. These are the metric alarms and composite alarms referenced+-- in the @AlarmRule@ field of the composite alarm that you specify in+-- @ChildrenOfAlarmName@. Information about the composite alarm that you+-- name in @ChildrenOfAlarmName@ is not returned.+--+-- If you specify @ChildrenOfAlarmName@, you cannot specify any other+-- parameters in the request except for @MaxRecords@ and @NextToken@. If+-- you do so, you receive a validation error.+--+-- Only the @Alarm Name@, @ARN@, @StateValue@+-- (OK\/ALARM\/INSUFFICIENT_DATA), and @StateUpdatedTimestamp@ information+-- are returned by this operation when you use this parameter. To get+-- complete information about these alarms, perform another+-- @DescribeAlarms@ operation and specify the parent alarm names in the+-- @AlarmNames@ parameter.+--+-- 'maxRecords', 'describeAlarms_maxRecords' - The maximum number of alarm descriptions to retrieve.+--+-- 'nextToken', 'describeAlarms_nextToken' - The token returned by a previous call to indicate that there is more+-- data available.+--+-- 'parentsOfAlarmName', 'describeAlarms_parentsOfAlarmName' - If you use this parameter and specify the name of a metric or composite+-- alarm, the operation returns information about the \"parent\" alarms of+-- the alarm you specify. These are the composite alarms that have+-- @AlarmRule@ parameters that reference the alarm named in+-- @ParentsOfAlarmName@. Information about the alarm that you specify in+-- @ParentsOfAlarmName@ is not returned.+--+-- If you specify @ParentsOfAlarmName@, you cannot specify any other+-- parameters in the request except for @MaxRecords@ and @NextToken@. If+-- you do so, you receive a validation error.+--+-- Only the Alarm Name and ARN are returned by this operation when you use+-- this parameter. To get complete information about these alarms, perform+-- another @DescribeAlarms@ operation and specify the parent alarm names in+-- the @AlarmNames@ parameter.+--+-- 'stateValue', 'describeAlarms_stateValue' - Specify this parameter to receive information only about alarms that are+-- currently in the state that you specify.+newDescribeAlarms ::+  DescribeAlarms+newDescribeAlarms =+  DescribeAlarms'+    { actionPrefix = Prelude.Nothing,+      alarmNamePrefix = Prelude.Nothing,+      alarmNames = Prelude.Nothing,+      alarmTypes = Prelude.Nothing,+      childrenOfAlarmName = Prelude.Nothing,+      maxRecords = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      parentsOfAlarmName = Prelude.Nothing,+      stateValue = Prelude.Nothing+    }++-- | Use this parameter to filter the results of the operation to only those+-- alarms that use a certain alarm action. For example, you could specify+-- the ARN of an SNS topic to find all alarms that send notifications to+-- that topic.+describeAlarms_actionPrefix :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)+describeAlarms_actionPrefix = Lens.lens (\DescribeAlarms' {actionPrefix} -> actionPrefix) (\s@DescribeAlarms' {} a -> s {actionPrefix = a} :: DescribeAlarms)++-- | An alarm name prefix. If you specify this parameter, you receive+-- information about all alarms that have names that start with this+-- prefix.+--+-- If this parameter is specified, you cannot specify @AlarmNames@.+describeAlarms_alarmNamePrefix :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)+describeAlarms_alarmNamePrefix = Lens.lens (\DescribeAlarms' {alarmNamePrefix} -> alarmNamePrefix) (\s@DescribeAlarms' {} a -> s {alarmNamePrefix = a} :: DescribeAlarms)++-- | The names of the alarms to retrieve information about.+describeAlarms_alarmNames :: Lens.Lens' DescribeAlarms (Prelude.Maybe [Prelude.Text])+describeAlarms_alarmNames = Lens.lens (\DescribeAlarms' {alarmNames} -> alarmNames) (\s@DescribeAlarms' {} a -> s {alarmNames = a} :: DescribeAlarms) Prelude.. Lens.mapping Lens.coerced++-- | Use this parameter to specify whether you want the operation to return+-- metric alarms or composite alarms. If you omit this parameter, only+-- metric alarms are returned.+describeAlarms_alarmTypes :: Lens.Lens' DescribeAlarms (Prelude.Maybe [AlarmType])+describeAlarms_alarmTypes = Lens.lens (\DescribeAlarms' {alarmTypes} -> alarmTypes) (\s@DescribeAlarms' {} a -> s {alarmTypes = a} :: DescribeAlarms) Prelude.. Lens.mapping Lens.coerced++-- | If you use this parameter and specify the name of a composite alarm, the+-- operation returns information about the \"children\" alarms of the alarm+-- you specify. These are the metric alarms and composite alarms referenced+-- in the @AlarmRule@ field of the composite alarm that you specify in+-- @ChildrenOfAlarmName@. Information about the composite alarm that you+-- name in @ChildrenOfAlarmName@ is not returned.+--+-- If you specify @ChildrenOfAlarmName@, you cannot specify any other+-- parameters in the request except for @MaxRecords@ and @NextToken@. If+-- you do so, you receive a validation error.+--+-- Only the @Alarm Name@, @ARN@, @StateValue@+-- (OK\/ALARM\/INSUFFICIENT_DATA), and @StateUpdatedTimestamp@ information+-- are returned by this operation when you use this parameter. To get+-- complete information about these alarms, perform another+-- @DescribeAlarms@ operation and specify the parent alarm names in the+-- @AlarmNames@ parameter.+describeAlarms_childrenOfAlarmName :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)+describeAlarms_childrenOfAlarmName = Lens.lens (\DescribeAlarms' {childrenOfAlarmName} -> childrenOfAlarmName) (\s@DescribeAlarms' {} a -> s {childrenOfAlarmName = a} :: DescribeAlarms)++-- | The maximum number of alarm descriptions to retrieve.+describeAlarms_maxRecords :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Natural)+describeAlarms_maxRecords = Lens.lens (\DescribeAlarms' {maxRecords} -> maxRecords) (\s@DescribeAlarms' {} a -> s {maxRecords = a} :: DescribeAlarms)++-- | The token returned by a previous call to indicate that there is more+-- data available.+describeAlarms_nextToken :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)+describeAlarms_nextToken = Lens.lens (\DescribeAlarms' {nextToken} -> nextToken) (\s@DescribeAlarms' {} a -> s {nextToken = a} :: DescribeAlarms)++-- | If you use this parameter and specify the name of a metric or composite+-- alarm, the operation returns information about the \"parent\" alarms of+-- the alarm you specify. These are the composite alarms that have+-- @AlarmRule@ parameters that reference the alarm named in+-- @ParentsOfAlarmName@. Information about the alarm that you specify in+-- @ParentsOfAlarmName@ is not returned.+--+-- If you specify @ParentsOfAlarmName@, you cannot specify any other+-- parameters in the request except for @MaxRecords@ and @NextToken@. If+-- you do so, you receive a validation error.+--+-- Only the Alarm Name and ARN are returned by this operation when you use+-- this parameter. To get complete information about these alarms, perform+-- another @DescribeAlarms@ operation and specify the parent alarm names in+-- the @AlarmNames@ parameter.+describeAlarms_parentsOfAlarmName :: Lens.Lens' DescribeAlarms (Prelude.Maybe Prelude.Text)+describeAlarms_parentsOfAlarmName = Lens.lens (\DescribeAlarms' {parentsOfAlarmName} -> parentsOfAlarmName) (\s@DescribeAlarms' {} a -> s {parentsOfAlarmName = a} :: DescribeAlarms)++-- | Specify this parameter to receive information only about alarms that are+-- currently in the state that you specify.+describeAlarms_stateValue :: Lens.Lens' DescribeAlarms (Prelude.Maybe StateValue)+describeAlarms_stateValue = Lens.lens (\DescribeAlarms' {stateValue} -> stateValue) (\s@DescribeAlarms' {} a -> s {stateValue = a} :: DescribeAlarms)++instance Core.AWSPager DescribeAlarms where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAlarmsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAlarmsResponse_metricAlarms+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAlarmsResponse_compositeAlarms+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAlarms_nextToken+          Lens..~ rs+          Lens.^? describeAlarmsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeAlarms where+  type+    AWSResponse DescribeAlarms =+      DescribeAlarmsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeAlarmsResult"+      ( \s h x ->+          DescribeAlarmsResponse'+            Prelude.<$> ( x+                            Data..@? "CompositeAlarms"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> ( x+                            Data..@? "MetricAlarms"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (x Data..@? "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAlarms where+  hashWithSalt _salt DescribeAlarms' {..} =+    _salt+      `Prelude.hashWithSalt` actionPrefix+      `Prelude.hashWithSalt` alarmNamePrefix+      `Prelude.hashWithSalt` alarmNames+      `Prelude.hashWithSalt` alarmTypes+      `Prelude.hashWithSalt` childrenOfAlarmName+      `Prelude.hashWithSalt` maxRecords+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` parentsOfAlarmName+      `Prelude.hashWithSalt` stateValue++instance Prelude.NFData DescribeAlarms where+  rnf DescribeAlarms' {..} =+    Prelude.rnf actionPrefix+      `Prelude.seq` Prelude.rnf alarmNamePrefix+      `Prelude.seq` Prelude.rnf alarmNames+      `Prelude.seq` Prelude.rnf alarmTypes+      `Prelude.seq` Prelude.rnf childrenOfAlarmName+      `Prelude.seq` Prelude.rnf maxRecords+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf parentsOfAlarmName+      `Prelude.seq` Prelude.rnf stateValue++instance Data.ToHeaders DescribeAlarms where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAlarms where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAlarms where+  toQuery DescribeAlarms' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeAlarms" :: Prelude.ByteString),+        "Version"+          Data.=: ("2010-08-01" :: Prelude.ByteString),+        "ActionPrefix" Data.=: actionPrefix,+        "AlarmNamePrefix" Data.=: alarmNamePrefix,+        "AlarmNames"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> alarmNames),+        "AlarmTypes"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> alarmTypes),+        "ChildrenOfAlarmName" Data.=: childrenOfAlarmName,+        "MaxRecords" Data.=: maxRecords,+        "NextToken" Data.=: nextToken,+        "ParentsOfAlarmName" Data.=: parentsOfAlarmName,+        "StateValue" Data.=: stateValue+      ]++-- | /See:/ 'newDescribeAlarmsResponse' smart constructor.+data DescribeAlarmsResponse = DescribeAlarmsResponse'+  { -- | The information about any composite alarms returned by the operation.+    compositeAlarms :: Prelude.Maybe [CompositeAlarm],+    -- | The information about any metric alarms returned by the operation.+    metricAlarms :: Prelude.Maybe [MetricAlarm],+    -- | The token that marks the start of the next batch of returned results.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAlarmsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'compositeAlarms', 'describeAlarmsResponse_compositeAlarms' - The information about any composite alarms returned by the operation.+--+-- 'metricAlarms', 'describeAlarmsResponse_metricAlarms' - The information about any metric alarms returned by the operation.+--+-- 'nextToken', 'describeAlarmsResponse_nextToken' - The token that marks the start of the next batch of returned results.+--+-- 'httpStatus', 'describeAlarmsResponse_httpStatus' - The response's http status code.+newDescribeAlarmsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAlarmsResponse+newDescribeAlarmsResponse pHttpStatus_ =+  DescribeAlarmsResponse'+    { compositeAlarms =+        Prelude.Nothing,+      metricAlarms = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The information about any composite alarms returned by the operation.+describeAlarmsResponse_compositeAlarms :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe [CompositeAlarm])+describeAlarmsResponse_compositeAlarms = Lens.lens (\DescribeAlarmsResponse' {compositeAlarms} -> compositeAlarms) (\s@DescribeAlarmsResponse' {} a -> s {compositeAlarms = a} :: DescribeAlarmsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The information about any metric alarms returned by the operation.+describeAlarmsResponse_metricAlarms :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe [MetricAlarm])+describeAlarmsResponse_metricAlarms = Lens.lens (\DescribeAlarmsResponse' {metricAlarms} -> metricAlarms) (\s@DescribeAlarmsResponse' {} a -> s {metricAlarms = a} :: DescribeAlarmsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token that marks the start of the next batch of returned results.+describeAlarmsResponse_nextToken :: Lens.Lens' DescribeAlarmsResponse (Prelude.Maybe Prelude.Text)+describeAlarmsResponse_nextToken = Lens.lens (\DescribeAlarmsResponse' {nextToken} -> nextToken) (\s@DescribeAlarmsResponse' {} a -> s {nextToken = a} :: DescribeAlarmsResponse)++-- | The response's http status code.+describeAlarmsResponse_httpStatus :: Lens.Lens' DescribeAlarmsResponse Prelude.Int+describeAlarmsResponse_httpStatus = Lens.lens (\DescribeAlarmsResponse' {httpStatus} -> httpStatus) (\s@DescribeAlarmsResponse' {} a -> s {httpStatus = a} :: DescribeAlarmsResponse)++instance Prelude.NFData DescribeAlarmsResponse where+  rnf DescribeAlarmsResponse' {..} =+    Prelude.rnf compositeAlarms+      `Prelude.seq` Prelude.rnf metricAlarms+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus