amazonka-health 1.6.1 → 2.0

raw patch · 75 files changed

+8006/−2763 lines, 75 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-health.cabal +108/−80
• fixture/DescribeAffectedAccountsForOrganization.yaml +10/−0
• fixture/DescribeAffectedAccountsForOrganizationResponse.proto +0/−0
• fixture/DescribeAffectedEntitiesForOrganization.yaml +10/−0
• fixture/DescribeAffectedEntitiesForOrganizationResponse.proto +0/−0
• fixture/DescribeEventDetailsForOrganization.yaml +10/−0
• fixture/DescribeEventDetailsForOrganizationResponse.proto +0/−0
• fixture/DescribeEventsForOrganization.yaml +10/−0
• fixture/DescribeEventsForOrganizationResponse.proto +0/−0
• fixture/DescribeHealthServiceStatusForOrganization.yaml +10/−0
• fixture/DescribeHealthServiceStatusForOrganizationResponse.proto +0/−0
• fixture/DisableHealthServiceAccessForOrganization.yaml +10/−0
• fixture/DisableHealthServiceAccessForOrganizationResponse.proto +0/−0
• fixture/EnableHealthServiceAccessForOrganization.yaml +10/−0
• fixture/EnableHealthServiceAccessForOrganizationResponse.proto +0/−0
• gen/Amazonka/AWSHealth.hs +299/−0
• gen/Amazonka/AWSHealth/DescribeAffectedAccountsForOrganization.hs +383/−0
• gen/Amazonka/AWSHealth/DescribeAffectedEntities.hs +301/−0
• gen/Amazonka/AWSHealth/DescribeAffectedEntitiesForOrganization.hs +358/−0
• gen/Amazonka/AWSHealth/DescribeEntityAggregates.hs +183/−0
• gen/Amazonka/AWSHealth/DescribeEventAggregates.hs +290/−0
• gen/Amazonka/AWSHealth/DescribeEventDetails.hs +221/−0
• gen/Amazonka/AWSHealth/DescribeEventDetailsForOrganization.hs +276/−0
• gen/Amazonka/AWSHealth/DescribeEventTypes.hs +299/−0
• gen/Amazonka/AWSHealth/DescribeEvents.hs +298/−0
• gen/Amazonka/AWSHealth/DescribeEventsForOrganization.hs +312/−0
• gen/Amazonka/AWSHealth/DescribeHealthServiceStatusForOrganization.hs +192/−0
• gen/Amazonka/AWSHealth/DisableHealthServiceAccessForOrganization.hs +161/−0
• gen/Amazonka/AWSHealth/EnableHealthServiceAccessForOrganization.hs +165/−0
• gen/Amazonka/AWSHealth/Lens.hs +270/−0
• gen/Amazonka/AWSHealth/Types.hs +327/−0
• gen/Amazonka/AWSHealth/Types/AffectedEntity.hs +196/−0
• gen/Amazonka/AWSHealth/Types/DateTimeRange.hs +91/−0
• gen/Amazonka/AWSHealth/Types/EntityAggregate.hs +105/−0
• gen/Amazonka/AWSHealth/Types/EntityFilter.hs +147/−0
• gen/Amazonka/AWSHealth/Types/EntityStatusCode.hs +76/−0
• gen/Amazonka/AWSHealth/Types/Event.hs +293/−0
• gen/Amazonka/AWSHealth/Types/EventAccountFilter.hs +110/−0
• gen/Amazonka/AWSHealth/Types/EventAggregate.hs +86/−0
• gen/Amazonka/AWSHealth/Types/EventAggregateField.hs +66/−0
• gen/Amazonka/AWSHealth/Types/EventDescription.hs +75/−0
• gen/Amazonka/AWSHealth/Types/EventDetails.hs +104/−0
• gen/Amazonka/AWSHealth/Types/EventDetailsErrorItem.hs +117/−0
• gen/Amazonka/AWSHealth/Types/EventFilter.hs +251/−0
• gen/Amazonka/AWSHealth/Types/EventScopeCode.hs +76/−0
• gen/Amazonka/AWSHealth/Types/EventStatusCode.hs +76/−0
• gen/Amazonka/AWSHealth/Types/EventType.hs +126/−0
• gen/Amazonka/AWSHealth/Types/EventTypeCategory.hs +81/−0
• gen/Amazonka/AWSHealth/Types/EventTypeFilter.hs +110/−0
• gen/Amazonka/AWSHealth/Types/OrganizationAffectedEntitiesErrorItem.hs +149/−0
• gen/Amazonka/AWSHealth/Types/OrganizationEvent.hs +263/−0
• gen/Amazonka/AWSHealth/Types/OrganizationEventDetails.hs +118/−0
• gen/Amazonka/AWSHealth/Types/OrganizationEventDetailsErrorItem.hs +197/−0
• gen/Amazonka/AWSHealth/Types/OrganizationEventFilter.hs +216/−0
• gen/Amazonka/AWSHealth/Waiters.hs +24/−0
• gen/Network/AWS/AWSHealth.hs +0/−243
• gen/Network/AWS/AWSHealth/DescribeAffectedEntities.hs +0/−192
• gen/Network/AWS/AWSHealth/DescribeEntityAggregates.hs +0/−134
• gen/Network/AWS/AWSHealth/DescribeEventAggregates.hs +0/−190
• gen/Network/AWS/AWSHealth/DescribeEventDetails.hs +0/−160
• gen/Network/AWS/AWSHealth/DescribeEventTypes.hs +0/−189
• gen/Network/AWS/AWSHealth/DescribeEvents.hs +0/−188
• gen/Network/AWS/AWSHealth/Types.hs +0/−195
• gen/Network/AWS/AWSHealth/Types/Product.hs +0/−837
• gen/Network/AWS/AWSHealth/Types/Sum.hs +0/−143
• gen/Network/AWS/AWSHealth/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/AWSHealth.hs +0/−20
• test/Test/AWS/AWSHealth/Internal.hs +0/−9
• test/Test/AWS/Gen/AWSHealth.hs +0/−147
• test/Test/Amazonka/AWSHealth.hs +20/−0
• test/Test/Amazonka/AWSHealth/Internal.hs +8/−0
• test/Test/Amazonka/Gen/AWSHealth.hs +298/−0

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2016-08-04@ 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.AWSHealth](http://hackage.haskell.org/package/amazonka-health/docs/Network-AWS-AWSHealth.html)+See [Amazonka.AWSHealth](http://hackage.haskell.org/package/amazonka-health/docs/Amazonka-AWSHealth.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,91 +1,119 @@-name:                  amazonka-health-version:               1.6.1-synopsis:              Amazon Health APIs and Notifications 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-health+version:            2.0+synopsis:           Amazon Health APIs and Notifications 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.AWSHealth" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-08-04@ 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.AWSHealth.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.AWSHealth" 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-health+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-health  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.AWSHealth-        , Network.AWS.AWSHealth.DescribeAffectedEntities-        , Network.AWS.AWSHealth.DescribeEntityAggregates-        , Network.AWS.AWSHealth.DescribeEventAggregates-        , Network.AWS.AWSHealth.DescribeEventDetails-        , Network.AWS.AWSHealth.DescribeEventTypes-        , Network.AWS.AWSHealth.DescribeEvents-        , Network.AWS.AWSHealth.Types-        , Network.AWS.AWSHealth.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.AWSHealth.Types.Product-        , Network.AWS.AWSHealth.Types.Sum+  exposed-modules:+    Amazonka.AWSHealth+    Amazonka.AWSHealth.DescribeAffectedAccountsForOrganization+    Amazonka.AWSHealth.DescribeAffectedEntities+    Amazonka.AWSHealth.DescribeAffectedEntitiesForOrganization+    Amazonka.AWSHealth.DescribeEntityAggregates+    Amazonka.AWSHealth.DescribeEventAggregates+    Amazonka.AWSHealth.DescribeEventDetails+    Amazonka.AWSHealth.DescribeEventDetailsForOrganization+    Amazonka.AWSHealth.DescribeEvents+    Amazonka.AWSHealth.DescribeEventsForOrganization+    Amazonka.AWSHealth.DescribeEventTypes+    Amazonka.AWSHealth.DescribeHealthServiceStatusForOrganization+    Amazonka.AWSHealth.DisableHealthServiceAccessForOrganization+    Amazonka.AWSHealth.EnableHealthServiceAccessForOrganization+    Amazonka.AWSHealth.Lens+    Amazonka.AWSHealth.Types+    Amazonka.AWSHealth.Types.AffectedEntity+    Amazonka.AWSHealth.Types.DateTimeRange+    Amazonka.AWSHealth.Types.EntityAggregate+    Amazonka.AWSHealth.Types.EntityFilter+    Amazonka.AWSHealth.Types.EntityStatusCode+    Amazonka.AWSHealth.Types.Event+    Amazonka.AWSHealth.Types.EventAccountFilter+    Amazonka.AWSHealth.Types.EventAggregate+    Amazonka.AWSHealth.Types.EventAggregateField+    Amazonka.AWSHealth.Types.EventDescription+    Amazonka.AWSHealth.Types.EventDetails+    Amazonka.AWSHealth.Types.EventDetailsErrorItem+    Amazonka.AWSHealth.Types.EventFilter+    Amazonka.AWSHealth.Types.EventScopeCode+    Amazonka.AWSHealth.Types.EventStatusCode+    Amazonka.AWSHealth.Types.EventType+    Amazonka.AWSHealth.Types.EventTypeCategory+    Amazonka.AWSHealth.Types.EventTypeFilter+    Amazonka.AWSHealth.Types.OrganizationAffectedEntitiesErrorItem+    Amazonka.AWSHealth.Types.OrganizationEvent+    Amazonka.AWSHealth.Types.OrganizationEventDetails+    Amazonka.AWSHealth.Types.OrganizationEventDetailsErrorItem+    Amazonka.AWSHealth.Types.OrganizationEventFilter+    Amazonka.AWSHealth.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-health-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.AWSHealth-        , Test.AWS.Gen.AWSHealth-        , Test.AWS.AWSHealth.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.AWSHealth+    Test.Amazonka.AWSHealth.Internal+    Test.Amazonka.Gen.AWSHealth -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-health-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-health+    , 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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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/health/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  health.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,299 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.AWSHealth+-- 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 @2016-08-04@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Health+--+-- The Health API provides programmatic access to the Health information+-- that appears in the+-- <https://phd.aws.amazon.com/phd/home#/ Personal Health Dashboard>. You+-- can use the API operations to get information about events that might+-- affect your Amazon Web Services services and resources.+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan from+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>+--     to use the Health API. If you call the Health API from an Amazon Web+--     Services account that doesn\'t have a Business, Enterprise On-Ramp,+--     or Enterprise Support plan, you receive a+--     @SubscriptionRequiredException@ error.+--+-- -   You can use the Health endpoint health.us-east-1.amazonaws.com+--     (HTTPS) to call the Health API operations. Health supports a+--     multi-Region application architecture and has two regional endpoints+--     in an active-passive configuration. You can use the high+--     availability endpoint example to determine which Amazon Web Services+--     Region is active, so that you can get the latest information from+--     the API. For more information, see+--     <https://docs.aws.amazon.com/health/latest/ug/health-api.html Accessing the Health API>+--     in the /Health User Guide/.+--+-- For authentication of requests, Health uses the+-- <https://docs.aws.amazon.com/general/latest/gr/signature-version-4.html Signature Version 4 Signing Process>.+--+-- If your Amazon Web Services account is part of Organizations, you can+-- use the Health organizational view feature. This feature provides a+-- centralized view of Health events across all accounts in your+-- organization. You can aggregate Health events in real time to identify+-- accounts in your organization that are affected by an operational event+-- or get notified of security vulnerabilities. Use the organizational view+-- API operations to enable this feature and return event information. For+-- more information, see+-- <https://docs.aws.amazon.com/health/latest/ug/aggregate-events.html Aggregating Health events>+-- in the /Health User Guide/.+--+-- When you use the Health API operations to return Health events, see the+-- following recommendations:+--+-- -   Use the+--     <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html#AWSHealth-Type-Event-eventScopeCode eventScopeCode>+--     parameter to specify whether to return Health events that are public+--     or account-specific.+--+-- -   Use pagination to view all events from the response. For example, if+--     you call the @DescribeEventsForOrganization@ operation to get all+--     events in your organization, you might receive several page results.+--     Specify the @nextToken@ in the next request to return more results.+module Amazonka.AWSHealth+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** ConcurrentModificationException+    _ConcurrentModificationException,++    -- ** InvalidPaginationToken+    _InvalidPaginationToken,++    -- ** UnsupportedLocale+    _UnsupportedLocale,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeAffectedAccountsForOrganization (Paginated)+    DescribeAffectedAccountsForOrganization (DescribeAffectedAccountsForOrganization'),+    newDescribeAffectedAccountsForOrganization,+    DescribeAffectedAccountsForOrganizationResponse (DescribeAffectedAccountsForOrganizationResponse'),+    newDescribeAffectedAccountsForOrganizationResponse,++    -- ** DescribeAffectedEntities (Paginated)+    DescribeAffectedEntities (DescribeAffectedEntities'),+    newDescribeAffectedEntities,+    DescribeAffectedEntitiesResponse (DescribeAffectedEntitiesResponse'),+    newDescribeAffectedEntitiesResponse,++    -- ** DescribeAffectedEntitiesForOrganization (Paginated)+    DescribeAffectedEntitiesForOrganization (DescribeAffectedEntitiesForOrganization'),+    newDescribeAffectedEntitiesForOrganization,+    DescribeAffectedEntitiesForOrganizationResponse (DescribeAffectedEntitiesForOrganizationResponse'),+    newDescribeAffectedEntitiesForOrganizationResponse,++    -- ** DescribeEntityAggregates+    DescribeEntityAggregates (DescribeEntityAggregates'),+    newDescribeEntityAggregates,+    DescribeEntityAggregatesResponse (DescribeEntityAggregatesResponse'),+    newDescribeEntityAggregatesResponse,++    -- ** DescribeEventAggregates (Paginated)+    DescribeEventAggregates (DescribeEventAggregates'),+    newDescribeEventAggregates,+    DescribeEventAggregatesResponse (DescribeEventAggregatesResponse'),+    newDescribeEventAggregatesResponse,++    -- ** DescribeEventDetails+    DescribeEventDetails (DescribeEventDetails'),+    newDescribeEventDetails,+    DescribeEventDetailsResponse (DescribeEventDetailsResponse'),+    newDescribeEventDetailsResponse,++    -- ** DescribeEventDetailsForOrganization+    DescribeEventDetailsForOrganization (DescribeEventDetailsForOrganization'),+    newDescribeEventDetailsForOrganization,+    DescribeEventDetailsForOrganizationResponse (DescribeEventDetailsForOrganizationResponse'),+    newDescribeEventDetailsForOrganizationResponse,++    -- ** DescribeEventTypes (Paginated)+    DescribeEventTypes (DescribeEventTypes'),+    newDescribeEventTypes,+    DescribeEventTypesResponse (DescribeEventTypesResponse'),+    newDescribeEventTypesResponse,++    -- ** DescribeEvents (Paginated)+    DescribeEvents (DescribeEvents'),+    newDescribeEvents,+    DescribeEventsResponse (DescribeEventsResponse'),+    newDescribeEventsResponse,++    -- ** DescribeEventsForOrganization (Paginated)+    DescribeEventsForOrganization (DescribeEventsForOrganization'),+    newDescribeEventsForOrganization,+    DescribeEventsForOrganizationResponse (DescribeEventsForOrganizationResponse'),+    newDescribeEventsForOrganizationResponse,++    -- ** DescribeHealthServiceStatusForOrganization+    DescribeHealthServiceStatusForOrganization (DescribeHealthServiceStatusForOrganization'),+    newDescribeHealthServiceStatusForOrganization,+    DescribeHealthServiceStatusForOrganizationResponse (DescribeHealthServiceStatusForOrganizationResponse'),+    newDescribeHealthServiceStatusForOrganizationResponse,++    -- ** DisableHealthServiceAccessForOrganization+    DisableHealthServiceAccessForOrganization (DisableHealthServiceAccessForOrganization'),+    newDisableHealthServiceAccessForOrganization,+    DisableHealthServiceAccessForOrganizationResponse (DisableHealthServiceAccessForOrganizationResponse'),+    newDisableHealthServiceAccessForOrganizationResponse,++    -- ** EnableHealthServiceAccessForOrganization+    EnableHealthServiceAccessForOrganization (EnableHealthServiceAccessForOrganization'),+    newEnableHealthServiceAccessForOrganization,+    EnableHealthServiceAccessForOrganizationResponse (EnableHealthServiceAccessForOrganizationResponse'),+    newEnableHealthServiceAccessForOrganizationResponse,++    -- * Types++    -- ** EntityStatusCode+    EntityStatusCode (..),++    -- ** EventAggregateField+    EventAggregateField (..),++    -- ** EventScopeCode+    EventScopeCode (..),++    -- ** EventStatusCode+    EventStatusCode (..),++    -- ** EventTypeCategory+    EventTypeCategory (..),++    -- ** AffectedEntity+    AffectedEntity (AffectedEntity'),+    newAffectedEntity,++    -- ** DateTimeRange+    DateTimeRange (DateTimeRange'),+    newDateTimeRange,++    -- ** EntityAggregate+    EntityAggregate (EntityAggregate'),+    newEntityAggregate,++    -- ** EntityFilter+    EntityFilter (EntityFilter'),+    newEntityFilter,++    -- ** Event+    Event (Event'),+    newEvent,++    -- ** EventAccountFilter+    EventAccountFilter (EventAccountFilter'),+    newEventAccountFilter,++    -- ** EventAggregate+    EventAggregate (EventAggregate'),+    newEventAggregate,++    -- ** EventDescription+    EventDescription (EventDescription'),+    newEventDescription,++    -- ** EventDetails+    EventDetails (EventDetails'),+    newEventDetails,++    -- ** EventDetailsErrorItem+    EventDetailsErrorItem (EventDetailsErrorItem'),+    newEventDetailsErrorItem,++    -- ** EventFilter+    EventFilter (EventFilter'),+    newEventFilter,++    -- ** EventType+    EventType (EventType'),+    newEventType,++    -- ** EventTypeFilter+    EventTypeFilter (EventTypeFilter'),+    newEventTypeFilter,++    -- ** OrganizationAffectedEntitiesErrorItem+    OrganizationAffectedEntitiesErrorItem (OrganizationAffectedEntitiesErrorItem'),+    newOrganizationAffectedEntitiesErrorItem,++    -- ** OrganizationEvent+    OrganizationEvent (OrganizationEvent'),+    newOrganizationEvent,++    -- ** OrganizationEventDetails+    OrganizationEventDetails (OrganizationEventDetails'),+    newOrganizationEventDetails,++    -- ** OrganizationEventDetailsErrorItem+    OrganizationEventDetailsErrorItem (OrganizationEventDetailsErrorItem'),+    newOrganizationEventDetailsErrorItem,++    -- ** OrganizationEventFilter+    OrganizationEventFilter (OrganizationEventFilter'),+    newOrganizationEventFilter,+  )+where++import Amazonka.AWSHealth.DescribeAffectedAccountsForOrganization+import Amazonka.AWSHealth.DescribeAffectedEntities+import Amazonka.AWSHealth.DescribeAffectedEntitiesForOrganization+import Amazonka.AWSHealth.DescribeEntityAggregates+import Amazonka.AWSHealth.DescribeEventAggregates+import Amazonka.AWSHealth.DescribeEventDetails+import Amazonka.AWSHealth.DescribeEventDetailsForOrganization+import Amazonka.AWSHealth.DescribeEventTypes+import Amazonka.AWSHealth.DescribeEvents+import Amazonka.AWSHealth.DescribeEventsForOrganization+import Amazonka.AWSHealth.DescribeHealthServiceStatusForOrganization+import Amazonka.AWSHealth.DisableHealthServiceAccessForOrganization+import Amazonka.AWSHealth.EnableHealthServiceAccessForOrganization+import Amazonka.AWSHealth.Lens+import Amazonka.AWSHealth.Types+import Amazonka.AWSHealth.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 'AWSHealth'.++-- $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,383 @@+{-# 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.AWSHealth.DescribeAffectedAccountsForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of accounts in the organization from Organizations that+-- are affected by the provided event. For more information about the+-- different types of Health events, see+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html Event>.+--+-- Before you can call this operation, you must first enable Health to work+-- with Organizations. To do this, call the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EnableHealthServiceAccessForOrganization.html EnableHealthServiceAccessForOrganization>+-- operation from your organization\'s management account.+--+-- This API operation uses pagination. Specify the @nextToken@ parameter in+-- the next request to return more results.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeAffectedAccountsForOrganization+  ( -- * Creating a Request+    DescribeAffectedAccountsForOrganization (..),+    newDescribeAffectedAccountsForOrganization,++    -- * Request Lenses+    describeAffectedAccountsForOrganization_maxResults,+    describeAffectedAccountsForOrganization_nextToken,+    describeAffectedAccountsForOrganization_eventArn,++    -- * Destructuring the Response+    DescribeAffectedAccountsForOrganizationResponse (..),+    newDescribeAffectedAccountsForOrganizationResponse,++    -- * Response Lenses+    describeAffectedAccountsForOrganizationResponse_affectedAccounts,+    describeAffectedAccountsForOrganizationResponse_eventScopeCode,+    describeAffectedAccountsForOrganizationResponse_nextToken,+    describeAffectedAccountsForOrganizationResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeAffectedAccountsForOrganization' smart constructor.+data DescribeAffectedAccountsForOrganization = DescribeAffectedAccountsForOrganization'+  { -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier for the event. The event ARN has the+    -- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+    -- format.+    --+    -- For example, an event ARN might look like the following:+    --+    -- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+    eventArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAffectedAccountsForOrganization' 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:+--+-- 'maxResults', 'describeAffectedAccountsForOrganization_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeAffectedAccountsForOrganization_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'eventArn', 'describeAffectedAccountsForOrganization_eventArn' - The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+newDescribeAffectedAccountsForOrganization ::+  -- | 'eventArn'+  Prelude.Text ->+  DescribeAffectedAccountsForOrganization+newDescribeAffectedAccountsForOrganization pEventArn_ =+  DescribeAffectedAccountsForOrganization'+    { maxResults =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      eventArn = pEventArn_+    }++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeAffectedAccountsForOrganization_maxResults :: Lens.Lens' DescribeAffectedAccountsForOrganization (Prelude.Maybe Prelude.Natural)+describeAffectedAccountsForOrganization_maxResults = Lens.lens (\DescribeAffectedAccountsForOrganization' {maxResults} -> maxResults) (\s@DescribeAffectedAccountsForOrganization' {} a -> s {maxResults = a} :: DescribeAffectedAccountsForOrganization)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedAccountsForOrganization_nextToken :: Lens.Lens' DescribeAffectedAccountsForOrganization (Prelude.Maybe Prelude.Text)+describeAffectedAccountsForOrganization_nextToken = Lens.lens (\DescribeAffectedAccountsForOrganization' {nextToken} -> nextToken) (\s@DescribeAffectedAccountsForOrganization' {} a -> s {nextToken = a} :: DescribeAffectedAccountsForOrganization)++-- | The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+describeAffectedAccountsForOrganization_eventArn :: Lens.Lens' DescribeAffectedAccountsForOrganization Prelude.Text+describeAffectedAccountsForOrganization_eventArn = Lens.lens (\DescribeAffectedAccountsForOrganization' {eventArn} -> eventArn) (\s@DescribeAffectedAccountsForOrganization' {} a -> s {eventArn = a} :: DescribeAffectedAccountsForOrganization)++instance+  Core.AWSPager+    DescribeAffectedAccountsForOrganization+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAffectedAccountsForOrganizationResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAffectedAccountsForOrganizationResponse_affectedAccounts+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAffectedAccountsForOrganization_nextToken+          Lens..~ rs+          Lens.^? describeAffectedAccountsForOrganizationResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeAffectedAccountsForOrganization+  where+  type+    AWSResponse+      DescribeAffectedAccountsForOrganization =+      DescribeAffectedAccountsForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeAffectedAccountsForOrganizationResponse'+            Prelude.<$> ( x+                            Data..?> "affectedAccounts"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "eventScopeCode")+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeAffectedAccountsForOrganization+  where+  hashWithSalt+    _salt+    DescribeAffectedAccountsForOrganization' {..} =+      _salt+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` eventArn++instance+  Prelude.NFData+    DescribeAffectedAccountsForOrganization+  where+  rnf DescribeAffectedAccountsForOrganization' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf eventArn++instance+  Data.ToHeaders+    DescribeAffectedAccountsForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeAffectedAccountsForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeAffectedAccountsForOrganization+  where+  toJSON DescribeAffectedAccountsForOrganization' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("eventArn" Data..= eventArn)+          ]+      )++instance+  Data.ToPath+    DescribeAffectedAccountsForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeAffectedAccountsForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeAffectedAccountsForOrganizationResponse' smart constructor.+data DescribeAffectedAccountsForOrganizationResponse = DescribeAffectedAccountsForOrganizationResponse'+  { -- | A JSON set of elements of the affected accounts.+    affectedAccounts :: Prelude.Maybe [Prelude.Text],+    -- | This parameter specifies if the Health event is a public Amazon Web+    -- Services service event or an account-specific event.+    --+    -- -   If the @eventScopeCode@ value is @PUBLIC@, then the+    --     @affectedAccounts@ value is always empty.+    --+    -- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+    --     @affectedAccounts@ value lists the affected Amazon Web Services+    --     accounts in your organization. For example, if an event affects a+    --     service such as Amazon Elastic Compute Cloud and you have Amazon Web+    --     Services accounts that use that service, those account IDs appear in+    --     the response.+    --+    -- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+    --     you specified in the request is invalid or doesn\'t exist.+    eventScopeCode :: Prelude.Maybe EventScopeCode,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeAffectedAccountsForOrganizationResponse' 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:+--+-- 'affectedAccounts', 'describeAffectedAccountsForOrganizationResponse_affectedAccounts' - A JSON set of elements of the affected accounts.+--+-- 'eventScopeCode', 'describeAffectedAccountsForOrganizationResponse_eventScopeCode' - This parameter specifies if the Health event is a public Amazon Web+-- Services service event or an account-specific event.+--+-- -   If the @eventScopeCode@ value is @PUBLIC@, then the+--     @affectedAccounts@ value is always empty.+--+-- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+--     @affectedAccounts@ value lists the affected Amazon Web Services+--     accounts in your organization. For example, if an event affects a+--     service such as Amazon Elastic Compute Cloud and you have Amazon Web+--     Services accounts that use that service, those account IDs appear in+--     the response.+--+-- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+--     you specified in the request is invalid or doesn\'t exist.+--+-- 'nextToken', 'describeAffectedAccountsForOrganizationResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeAffectedAccountsForOrganizationResponse_httpStatus' - The response's http status code.+newDescribeAffectedAccountsForOrganizationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAffectedAccountsForOrganizationResponse+newDescribeAffectedAccountsForOrganizationResponse+  pHttpStatus_ =+    DescribeAffectedAccountsForOrganizationResponse'+      { affectedAccounts =+          Prelude.Nothing,+        eventScopeCode =+          Prelude.Nothing,+        nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A JSON set of elements of the affected accounts.+describeAffectedAccountsForOrganizationResponse_affectedAccounts :: Lens.Lens' DescribeAffectedAccountsForOrganizationResponse (Prelude.Maybe [Prelude.Text])+describeAffectedAccountsForOrganizationResponse_affectedAccounts = Lens.lens (\DescribeAffectedAccountsForOrganizationResponse' {affectedAccounts} -> affectedAccounts) (\s@DescribeAffectedAccountsForOrganizationResponse' {} a -> s {affectedAccounts = a} :: DescribeAffectedAccountsForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | This parameter specifies if the Health event is a public Amazon Web+-- Services service event or an account-specific event.+--+-- -   If the @eventScopeCode@ value is @PUBLIC@, then the+--     @affectedAccounts@ value is always empty.+--+-- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+--     @affectedAccounts@ value lists the affected Amazon Web Services+--     accounts in your organization. For example, if an event affects a+--     service such as Amazon Elastic Compute Cloud and you have Amazon Web+--     Services accounts that use that service, those account IDs appear in+--     the response.+--+-- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+--     you specified in the request is invalid or doesn\'t exist.+describeAffectedAccountsForOrganizationResponse_eventScopeCode :: Lens.Lens' DescribeAffectedAccountsForOrganizationResponse (Prelude.Maybe EventScopeCode)+describeAffectedAccountsForOrganizationResponse_eventScopeCode = Lens.lens (\DescribeAffectedAccountsForOrganizationResponse' {eventScopeCode} -> eventScopeCode) (\s@DescribeAffectedAccountsForOrganizationResponse' {} a -> s {eventScopeCode = a} :: DescribeAffectedAccountsForOrganizationResponse)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedAccountsForOrganizationResponse_nextToken :: Lens.Lens' DescribeAffectedAccountsForOrganizationResponse (Prelude.Maybe Prelude.Text)+describeAffectedAccountsForOrganizationResponse_nextToken = Lens.lens (\DescribeAffectedAccountsForOrganizationResponse' {nextToken} -> nextToken) (\s@DescribeAffectedAccountsForOrganizationResponse' {} a -> s {nextToken = a} :: DescribeAffectedAccountsForOrganizationResponse)++-- | The response's http status code.+describeAffectedAccountsForOrganizationResponse_httpStatus :: Lens.Lens' DescribeAffectedAccountsForOrganizationResponse Prelude.Int+describeAffectedAccountsForOrganizationResponse_httpStatus = Lens.lens (\DescribeAffectedAccountsForOrganizationResponse' {httpStatus} -> httpStatus) (\s@DescribeAffectedAccountsForOrganizationResponse' {} a -> s {httpStatus = a} :: DescribeAffectedAccountsForOrganizationResponse)++instance+  Prelude.NFData+    DescribeAffectedAccountsForOrganizationResponse+  where+  rnf+    DescribeAffectedAccountsForOrganizationResponse' {..} =+      Prelude.rnf affectedAccounts+        `Prelude.seq` Prelude.rnf eventScopeCode+        `Prelude.seq` Prelude.rnf nextToken+        `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,301 @@+{-# 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.AWSHealth.DescribeAffectedEntities+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of entities that have been affected by the specified+-- events, based on the specified filter criteria. Entities can refer to+-- individual customer resources, groups of customer resources, or any+-- other construct, depending on the Amazon Web Services service. Events+-- that have impact beyond that of the affected entities, or where the+-- extent of impact is unknown, include at least one entity indicating+-- this.+--+-- At least one event ARN is required.+--+-- -   This API operation uses pagination. Specify the @nextToken@+--     parameter in the next request to return more results.+--+-- -   This operation supports resource-level permissions. You can use this+--     operation to allow or deny access to specific Health events. For+--     more information, see+--     <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html#resource-action-based-conditions Resource- and action-based conditions>+--     in the /Health User Guide/.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeAffectedEntities+  ( -- * Creating a Request+    DescribeAffectedEntities (..),+    newDescribeAffectedEntities,++    -- * Request Lenses+    describeAffectedEntities_locale,+    describeAffectedEntities_maxResults,+    describeAffectedEntities_nextToken,+    describeAffectedEntities_filter,++    -- * Destructuring the Response+    DescribeAffectedEntitiesResponse (..),+    newDescribeAffectedEntitiesResponse,++    -- * Response Lenses+    describeAffectedEntitiesResponse_entities,+    describeAffectedEntitiesResponse_nextToken,+    describeAffectedEntitiesResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeAffectedEntities' smart constructor.+data DescribeAffectedEntities = DescribeAffectedEntities'+  { -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Values to narrow the results returned. At least one event ARN is+    -- required.+    filter' :: EntityFilter+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAffectedEntities' 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:+--+-- 'locale', 'describeAffectedEntities_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'maxResults', 'describeAffectedEntities_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeAffectedEntities_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'filter'', 'describeAffectedEntities_filter' - Values to narrow the results returned. At least one event ARN is+-- required.+newDescribeAffectedEntities ::+  -- | 'filter''+  EntityFilter ->+  DescribeAffectedEntities+newDescribeAffectedEntities pFilter_ =+  DescribeAffectedEntities'+    { locale = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      filter' = pFilter_+    }++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeAffectedEntities_locale :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Text)+describeAffectedEntities_locale = Lens.lens (\DescribeAffectedEntities' {locale} -> locale) (\s@DescribeAffectedEntities' {} a -> s {locale = a} :: DescribeAffectedEntities)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeAffectedEntities_maxResults :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Natural)+describeAffectedEntities_maxResults = Lens.lens (\DescribeAffectedEntities' {maxResults} -> maxResults) (\s@DescribeAffectedEntities' {} a -> s {maxResults = a} :: DescribeAffectedEntities)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedEntities_nextToken :: Lens.Lens' DescribeAffectedEntities (Prelude.Maybe Prelude.Text)+describeAffectedEntities_nextToken = Lens.lens (\DescribeAffectedEntities' {nextToken} -> nextToken) (\s@DescribeAffectedEntities' {} a -> s {nextToken = a} :: DescribeAffectedEntities)++-- | Values to narrow the results returned. At least one event ARN is+-- required.+describeAffectedEntities_filter :: Lens.Lens' DescribeAffectedEntities EntityFilter+describeAffectedEntities_filter = Lens.lens (\DescribeAffectedEntities' {filter'} -> filter') (\s@DescribeAffectedEntities' {} a -> s {filter' = a} :: DescribeAffectedEntities)++instance Core.AWSPager DescribeAffectedEntities where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAffectedEntitiesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAffectedEntitiesResponse_entities+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAffectedEntities_nextToken+          Lens..~ rs+          Lens.^? describeAffectedEntitiesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeAffectedEntities where+  type+    AWSResponse DescribeAffectedEntities =+      DescribeAffectedEntitiesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeAffectedEntitiesResponse'+            Prelude.<$> (x Data..?> "entities" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAffectedEntities where+  hashWithSalt _salt DescribeAffectedEntities' {..} =+    _salt+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` filter'++instance Prelude.NFData DescribeAffectedEntities where+  rnf DescribeAffectedEntities' {..} =+    Prelude.rnf locale+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf filter'++instance Data.ToHeaders DescribeAffectedEntities where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeAffectedEntities" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeAffectedEntities where+  toJSON DescribeAffectedEntities' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("locale" Data..=) Prelude.<$> locale,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("filter" Data..= filter')+          ]+      )++instance Data.ToPath DescribeAffectedEntities where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAffectedEntities where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeAffectedEntitiesResponse' smart constructor.+data DescribeAffectedEntitiesResponse = DescribeAffectedEntitiesResponse'+  { -- | The entities that match the filter criteria.+    entities :: Prelude.Maybe [AffectedEntity],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeAffectedEntitiesResponse' 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:+--+-- 'entities', 'describeAffectedEntitiesResponse_entities' - The entities that match the filter criteria.+--+-- 'nextToken', 'describeAffectedEntitiesResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeAffectedEntitiesResponse_httpStatus' - The response's http status code.+newDescribeAffectedEntitiesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAffectedEntitiesResponse+newDescribeAffectedEntitiesResponse pHttpStatus_ =+  DescribeAffectedEntitiesResponse'+    { entities =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The entities that match the filter criteria.+describeAffectedEntitiesResponse_entities :: Lens.Lens' DescribeAffectedEntitiesResponse (Prelude.Maybe [AffectedEntity])+describeAffectedEntitiesResponse_entities = Lens.lens (\DescribeAffectedEntitiesResponse' {entities} -> entities) (\s@DescribeAffectedEntitiesResponse' {} a -> s {entities = a} :: DescribeAffectedEntitiesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedEntitiesResponse_nextToken :: Lens.Lens' DescribeAffectedEntitiesResponse (Prelude.Maybe Prelude.Text)+describeAffectedEntitiesResponse_nextToken = Lens.lens (\DescribeAffectedEntitiesResponse' {nextToken} -> nextToken) (\s@DescribeAffectedEntitiesResponse' {} a -> s {nextToken = a} :: DescribeAffectedEntitiesResponse)++-- | The response's http status code.+describeAffectedEntitiesResponse_httpStatus :: Lens.Lens' DescribeAffectedEntitiesResponse Prelude.Int+describeAffectedEntitiesResponse_httpStatus = Lens.lens (\DescribeAffectedEntitiesResponse' {httpStatus} -> httpStatus) (\s@DescribeAffectedEntitiesResponse' {} a -> s {httpStatus = a} :: DescribeAffectedEntitiesResponse)++instance+  Prelude.NFData+    DescribeAffectedEntitiesResponse+  where+  rnf DescribeAffectedEntitiesResponse' {..} =+    Prelude.rnf entities+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,358 @@+{-# 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.AWSHealth.DescribeAffectedEntitiesForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of entities that have been affected by one or more events+-- for one or more accounts in your organization in Organizations, based on+-- the filter criteria. Entities can refer to individual customer+-- resources, groups of customer resources, or any other construct,+-- depending on the Amazon Web Services service.+--+-- At least one event Amazon Resource Name (ARN) and account ID are+-- required.+--+-- Before you can call this operation, you must first enable Health to work+-- with Organizations. To do this, call the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EnableHealthServiceAccessForOrganization.html EnableHealthServiceAccessForOrganization>+-- operation from your organization\'s management account.+--+-- -   This API operation uses pagination. Specify the @nextToken@+--     parameter in the next request to return more results.+--+-- -   This operation doesn\'t support resource-level permissions. You+--     can\'t use this operation to allow or deny access to specific Health+--     events. For more information, see+--     <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html#resource-action-based-conditions Resource- and action-based conditions>+--     in the /Health User Guide/.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeAffectedEntitiesForOrganization+  ( -- * Creating a Request+    DescribeAffectedEntitiesForOrganization (..),+    newDescribeAffectedEntitiesForOrganization,++    -- * Request Lenses+    describeAffectedEntitiesForOrganization_locale,+    describeAffectedEntitiesForOrganization_maxResults,+    describeAffectedEntitiesForOrganization_nextToken,+    describeAffectedEntitiesForOrganization_organizationEntityFilters,++    -- * Destructuring the Response+    DescribeAffectedEntitiesForOrganizationResponse (..),+    newDescribeAffectedEntitiesForOrganizationResponse,++    -- * Response Lenses+    describeAffectedEntitiesForOrganizationResponse_entities,+    describeAffectedEntitiesForOrganizationResponse_failedSet,+    describeAffectedEntitiesForOrganizationResponse_nextToken,+    describeAffectedEntitiesForOrganizationResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeAffectedEntitiesForOrganization' smart constructor.+data DescribeAffectedEntitiesForOrganization = DescribeAffectedEntitiesForOrganization'+  { -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A JSON set of elements including the @awsAccountId@ and the @eventArn@.+    organizationEntityFilters :: Prelude.NonEmpty EventAccountFilter+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAffectedEntitiesForOrganization' 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:+--+-- 'locale', 'describeAffectedEntitiesForOrganization_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'maxResults', 'describeAffectedEntitiesForOrganization_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeAffectedEntitiesForOrganization_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'organizationEntityFilters', 'describeAffectedEntitiesForOrganization_organizationEntityFilters' - A JSON set of elements including the @awsAccountId@ and the @eventArn@.+newDescribeAffectedEntitiesForOrganization ::+  -- | 'organizationEntityFilters'+  Prelude.NonEmpty EventAccountFilter ->+  DescribeAffectedEntitiesForOrganization+newDescribeAffectedEntitiesForOrganization+  pOrganizationEntityFilters_ =+    DescribeAffectedEntitiesForOrganization'+      { locale =+          Prelude.Nothing,+        maxResults = Prelude.Nothing,+        nextToken = Prelude.Nothing,+        organizationEntityFilters =+          Lens.coerced+            Lens.# pOrganizationEntityFilters_+      }++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeAffectedEntitiesForOrganization_locale :: Lens.Lens' DescribeAffectedEntitiesForOrganization (Prelude.Maybe Prelude.Text)+describeAffectedEntitiesForOrganization_locale = Lens.lens (\DescribeAffectedEntitiesForOrganization' {locale} -> locale) (\s@DescribeAffectedEntitiesForOrganization' {} a -> s {locale = a} :: DescribeAffectedEntitiesForOrganization)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeAffectedEntitiesForOrganization_maxResults :: Lens.Lens' DescribeAffectedEntitiesForOrganization (Prelude.Maybe Prelude.Natural)+describeAffectedEntitiesForOrganization_maxResults = Lens.lens (\DescribeAffectedEntitiesForOrganization' {maxResults} -> maxResults) (\s@DescribeAffectedEntitiesForOrganization' {} a -> s {maxResults = a} :: DescribeAffectedEntitiesForOrganization)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedEntitiesForOrganization_nextToken :: Lens.Lens' DescribeAffectedEntitiesForOrganization (Prelude.Maybe Prelude.Text)+describeAffectedEntitiesForOrganization_nextToken = Lens.lens (\DescribeAffectedEntitiesForOrganization' {nextToken} -> nextToken) (\s@DescribeAffectedEntitiesForOrganization' {} a -> s {nextToken = a} :: DescribeAffectedEntitiesForOrganization)++-- | A JSON set of elements including the @awsAccountId@ and the @eventArn@.+describeAffectedEntitiesForOrganization_organizationEntityFilters :: Lens.Lens' DescribeAffectedEntitiesForOrganization (Prelude.NonEmpty EventAccountFilter)+describeAffectedEntitiesForOrganization_organizationEntityFilters = Lens.lens (\DescribeAffectedEntitiesForOrganization' {organizationEntityFilters} -> organizationEntityFilters) (\s@DescribeAffectedEntitiesForOrganization' {} a -> s {organizationEntityFilters = a} :: DescribeAffectedEntitiesForOrganization) Prelude.. Lens.coerced++instance+  Core.AWSPager+    DescribeAffectedEntitiesForOrganization+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeAffectedEntitiesForOrganizationResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeAffectedEntitiesForOrganizationResponse_entities+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeAffectedEntitiesForOrganization_nextToken+          Lens..~ rs+          Lens.^? describeAffectedEntitiesForOrganizationResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeAffectedEntitiesForOrganization+  where+  type+    AWSResponse+      DescribeAffectedEntitiesForOrganization =+      DescribeAffectedEntitiesForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeAffectedEntitiesForOrganizationResponse'+            Prelude.<$> (x Data..?> "entities" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "failedSet" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeAffectedEntitiesForOrganization+  where+  hashWithSalt+    _salt+    DescribeAffectedEntitiesForOrganization' {..} =+      _salt+        `Prelude.hashWithSalt` locale+        `Prelude.hashWithSalt` maxResults+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` organizationEntityFilters++instance+  Prelude.NFData+    DescribeAffectedEntitiesForOrganization+  where+  rnf DescribeAffectedEntitiesForOrganization' {..} =+    Prelude.rnf locale+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf organizationEntityFilters++instance+  Data.ToHeaders+    DescribeAffectedEntitiesForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeAffectedEntitiesForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeAffectedEntitiesForOrganization+  where+  toJSON DescribeAffectedEntitiesForOrganization' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("locale" Data..=) Prelude.<$> locale,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ( "organizationEntityFilters"+                  Data..= organizationEntityFilters+              )+          ]+      )++instance+  Data.ToPath+    DescribeAffectedEntitiesForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeAffectedEntitiesForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeAffectedEntitiesForOrganizationResponse' smart constructor.+data DescribeAffectedEntitiesForOrganizationResponse = DescribeAffectedEntitiesForOrganizationResponse'+  { -- | A JSON set of elements including the @awsAccountId@ and its @entityArn@,+    -- @entityValue@ and its @entityArn@, @lastUpdatedTime@, and @statusCode@.+    entities :: Prelude.Maybe [AffectedEntity],+    -- | A JSON set of elements of the failed response, including the+    -- @awsAccountId@, @errorMessage@, @errorName@, and @eventArn@.+    failedSet :: Prelude.Maybe [OrganizationAffectedEntitiesErrorItem],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeAffectedEntitiesForOrganizationResponse' 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:+--+-- 'entities', 'describeAffectedEntitiesForOrganizationResponse_entities' - A JSON set of elements including the @awsAccountId@ and its @entityArn@,+-- @entityValue@ and its @entityArn@, @lastUpdatedTime@, and @statusCode@.+--+-- 'failedSet', 'describeAffectedEntitiesForOrganizationResponse_failedSet' - A JSON set of elements of the failed response, including the+-- @awsAccountId@, @errorMessage@, @errorName@, and @eventArn@.+--+-- 'nextToken', 'describeAffectedEntitiesForOrganizationResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeAffectedEntitiesForOrganizationResponse_httpStatus' - The response's http status code.+newDescribeAffectedEntitiesForOrganizationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAffectedEntitiesForOrganizationResponse+newDescribeAffectedEntitiesForOrganizationResponse+  pHttpStatus_ =+    DescribeAffectedEntitiesForOrganizationResponse'+      { entities =+          Prelude.Nothing,+        failedSet =+          Prelude.Nothing,+        nextToken =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | A JSON set of elements including the @awsAccountId@ and its @entityArn@,+-- @entityValue@ and its @entityArn@, @lastUpdatedTime@, and @statusCode@.+describeAffectedEntitiesForOrganizationResponse_entities :: Lens.Lens' DescribeAffectedEntitiesForOrganizationResponse (Prelude.Maybe [AffectedEntity])+describeAffectedEntitiesForOrganizationResponse_entities = Lens.lens (\DescribeAffectedEntitiesForOrganizationResponse' {entities} -> entities) (\s@DescribeAffectedEntitiesForOrganizationResponse' {} a -> s {entities = a} :: DescribeAffectedEntitiesForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | A JSON set of elements of the failed response, including the+-- @awsAccountId@, @errorMessage@, @errorName@, and @eventArn@.+describeAffectedEntitiesForOrganizationResponse_failedSet :: Lens.Lens' DescribeAffectedEntitiesForOrganizationResponse (Prelude.Maybe [OrganizationAffectedEntitiesErrorItem])+describeAffectedEntitiesForOrganizationResponse_failedSet = Lens.lens (\DescribeAffectedEntitiesForOrganizationResponse' {failedSet} -> failedSet) (\s@DescribeAffectedEntitiesForOrganizationResponse' {} a -> s {failedSet = a} :: DescribeAffectedEntitiesForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeAffectedEntitiesForOrganizationResponse_nextToken :: Lens.Lens' DescribeAffectedEntitiesForOrganizationResponse (Prelude.Maybe Prelude.Text)+describeAffectedEntitiesForOrganizationResponse_nextToken = Lens.lens (\DescribeAffectedEntitiesForOrganizationResponse' {nextToken} -> nextToken) (\s@DescribeAffectedEntitiesForOrganizationResponse' {} a -> s {nextToken = a} :: DescribeAffectedEntitiesForOrganizationResponse)++-- | The response's http status code.+describeAffectedEntitiesForOrganizationResponse_httpStatus :: Lens.Lens' DescribeAffectedEntitiesForOrganizationResponse Prelude.Int+describeAffectedEntitiesForOrganizationResponse_httpStatus = Lens.lens (\DescribeAffectedEntitiesForOrganizationResponse' {httpStatus} -> httpStatus) (\s@DescribeAffectedEntitiesForOrganizationResponse' {} a -> s {httpStatus = a} :: DescribeAffectedEntitiesForOrganizationResponse)++instance+  Prelude.NFData+    DescribeAffectedEntitiesForOrganizationResponse+  where+  rnf+    DescribeAffectedEntitiesForOrganizationResponse' {..} =+      Prelude.rnf entities+        `Prelude.seq` Prelude.rnf failedSet+        `Prelude.seq` Prelude.rnf nextToken+        `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,183 @@+{-# 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.AWSHealth.DescribeEntityAggregates+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the number of entities that are affected by each of the+-- specified events.+module Amazonka.AWSHealth.DescribeEntityAggregates+  ( -- * Creating a Request+    DescribeEntityAggregates (..),+    newDescribeEntityAggregates,++    -- * Request Lenses+    describeEntityAggregates_eventArns,++    -- * Destructuring the Response+    DescribeEntityAggregatesResponse (..),+    newDescribeEntityAggregatesResponse,++    -- * Response Lenses+    describeEntityAggregatesResponse_entityAggregates,+    describeEntityAggregatesResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEntityAggregates' smart constructor.+data DescribeEntityAggregates = DescribeEntityAggregates'+  { -- | A list of event ARNs (unique identifiers). For example:+    -- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+    eventArns :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEntityAggregates' 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:+--+-- 'eventArns', 'describeEntityAggregates_eventArns' - A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+newDescribeEntityAggregates ::+  DescribeEntityAggregates+newDescribeEntityAggregates =+  DescribeEntityAggregates'+    { eventArns =+        Prelude.Nothing+    }++-- | A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+describeEntityAggregates_eventArns :: Lens.Lens' DescribeEntityAggregates (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))+describeEntityAggregates_eventArns = Lens.lens (\DescribeEntityAggregates' {eventArns} -> eventArns) (\s@DescribeEntityAggregates' {} a -> s {eventArns = a} :: DescribeEntityAggregates) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest DescribeEntityAggregates where+  type+    AWSResponse DescribeEntityAggregates =+      DescribeEntityAggregatesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEntityAggregatesResponse'+            Prelude.<$> ( x+                            Data..?> "entityAggregates"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEntityAggregates where+  hashWithSalt _salt DescribeEntityAggregates' {..} =+    _salt `Prelude.hashWithSalt` eventArns++instance Prelude.NFData DescribeEntityAggregates where+  rnf DescribeEntityAggregates' {..} =+    Prelude.rnf eventArns++instance Data.ToHeaders DescribeEntityAggregates where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEntityAggregates" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEntityAggregates where+  toJSON DescribeEntityAggregates' {..} =+    Data.object+      ( Prelude.catMaybes+          [("eventArns" Data..=) Prelude.<$> eventArns]+      )++instance Data.ToPath DescribeEntityAggregates where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEntityAggregates where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEntityAggregatesResponse' smart constructor.+data DescribeEntityAggregatesResponse = DescribeEntityAggregatesResponse'+  { -- | The number of entities that are affected by each of the specified+    -- events.+    entityAggregates :: Prelude.Maybe [EntityAggregate],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEntityAggregatesResponse' 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:+--+-- 'entityAggregates', 'describeEntityAggregatesResponse_entityAggregates' - The number of entities that are affected by each of the specified+-- events.+--+-- 'httpStatus', 'describeEntityAggregatesResponse_httpStatus' - The response's http status code.+newDescribeEntityAggregatesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEntityAggregatesResponse+newDescribeEntityAggregatesResponse pHttpStatus_ =+  DescribeEntityAggregatesResponse'+    { entityAggregates =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The number of entities that are affected by each of the specified+-- events.+describeEntityAggregatesResponse_entityAggregates :: Lens.Lens' DescribeEntityAggregatesResponse (Prelude.Maybe [EntityAggregate])+describeEntityAggregatesResponse_entityAggregates = Lens.lens (\DescribeEntityAggregatesResponse' {entityAggregates} -> entityAggregates) (\s@DescribeEntityAggregatesResponse' {} a -> s {entityAggregates = a} :: DescribeEntityAggregatesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeEntityAggregatesResponse_httpStatus :: Lens.Lens' DescribeEntityAggregatesResponse Prelude.Int+describeEntityAggregatesResponse_httpStatus = Lens.lens (\DescribeEntityAggregatesResponse' {httpStatus} -> httpStatus) (\s@DescribeEntityAggregatesResponse' {} a -> s {httpStatus = a} :: DescribeEntityAggregatesResponse)++instance+  Prelude.NFData+    DescribeEntityAggregatesResponse+  where+  rnf DescribeEntityAggregatesResponse' {..} =+    Prelude.rnf entityAggregates+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,290 @@+{-# 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.AWSHealth.DescribeEventAggregates+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the number of events of each event type (issue, scheduled+-- change, and account notification). If no filter is specified, the counts+-- of all events in each category are returned.+--+-- This API operation uses pagination. Specify the @nextToken@ parameter in+-- the next request to return more results.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeEventAggregates+  ( -- * Creating a Request+    DescribeEventAggregates (..),+    newDescribeEventAggregates,++    -- * Request Lenses+    describeEventAggregates_filter,+    describeEventAggregates_maxResults,+    describeEventAggregates_nextToken,+    describeEventAggregates_aggregateField,++    -- * Destructuring the Response+    DescribeEventAggregatesResponse (..),+    newDescribeEventAggregatesResponse,++    -- * Response Lenses+    describeEventAggregatesResponse_eventAggregates,+    describeEventAggregatesResponse_nextToken,+    describeEventAggregatesResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEventAggregates' smart constructor.+data DescribeEventAggregates = DescribeEventAggregates'+  { -- | Values to narrow the results returned.+    filter' :: Prelude.Maybe EventFilter,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The only currently supported value is @eventTypeCategory@.+    aggregateField :: EventAggregateField+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventAggregates' 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:+--+-- 'filter'', 'describeEventAggregates_filter' - Values to narrow the results returned.+--+-- 'maxResults', 'describeEventAggregates_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeEventAggregates_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'aggregateField', 'describeEventAggregates_aggregateField' - The only currently supported value is @eventTypeCategory@.+newDescribeEventAggregates ::+  -- | 'aggregateField'+  EventAggregateField ->+  DescribeEventAggregates+newDescribeEventAggregates pAggregateField_ =+  DescribeEventAggregates'+    { filter' = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      aggregateField = pAggregateField_+    }++-- | Values to narrow the results returned.+describeEventAggregates_filter :: Lens.Lens' DescribeEventAggregates (Prelude.Maybe EventFilter)+describeEventAggregates_filter = Lens.lens (\DescribeEventAggregates' {filter'} -> filter') (\s@DescribeEventAggregates' {} a -> s {filter' = a} :: DescribeEventAggregates)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeEventAggregates_maxResults :: Lens.Lens' DescribeEventAggregates (Prelude.Maybe Prelude.Natural)+describeEventAggregates_maxResults = Lens.lens (\DescribeEventAggregates' {maxResults} -> maxResults) (\s@DescribeEventAggregates' {} a -> s {maxResults = a} :: DescribeEventAggregates)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventAggregates_nextToken :: Lens.Lens' DescribeEventAggregates (Prelude.Maybe Prelude.Text)+describeEventAggregates_nextToken = Lens.lens (\DescribeEventAggregates' {nextToken} -> nextToken) (\s@DescribeEventAggregates' {} a -> s {nextToken = a} :: DescribeEventAggregates)++-- | The only currently supported value is @eventTypeCategory@.+describeEventAggregates_aggregateField :: Lens.Lens' DescribeEventAggregates EventAggregateField+describeEventAggregates_aggregateField = Lens.lens (\DescribeEventAggregates' {aggregateField} -> aggregateField) (\s@DescribeEventAggregates' {} a -> s {aggregateField = a} :: DescribeEventAggregates)++instance Core.AWSPager DescribeEventAggregates where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventAggregatesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventAggregatesResponse_eventAggregates+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeEventAggregates_nextToken+          Lens..~ rs+          Lens.^? describeEventAggregatesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeEventAggregates where+  type+    AWSResponse DescribeEventAggregates =+      DescribeEventAggregatesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventAggregatesResponse'+            Prelude.<$> ( x+                            Data..?> "eventAggregates"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEventAggregates where+  hashWithSalt _salt DescribeEventAggregates' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` aggregateField++instance Prelude.NFData DescribeEventAggregates where+  rnf DescribeEventAggregates' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf aggregateField++instance Data.ToHeaders DescribeEventAggregates where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEventAggregates" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEventAggregates where+  toJSON DescribeEventAggregates' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filter" Data..=) Prelude.<$> filter',+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just+              ("aggregateField" Data..= aggregateField)+          ]+      )++instance Data.ToPath DescribeEventAggregates where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventAggregates where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventAggregatesResponse' smart constructor.+data DescribeEventAggregatesResponse = DescribeEventAggregatesResponse'+  { -- | The number of events in each category that meet the optional filter+    -- criteria.+    eventAggregates :: Prelude.Maybe [EventAggregate],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeEventAggregatesResponse' 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:+--+-- 'eventAggregates', 'describeEventAggregatesResponse_eventAggregates' - The number of events in each category that meet the optional filter+-- criteria.+--+-- 'nextToken', 'describeEventAggregatesResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeEventAggregatesResponse_httpStatus' - The response's http status code.+newDescribeEventAggregatesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventAggregatesResponse+newDescribeEventAggregatesResponse pHttpStatus_ =+  DescribeEventAggregatesResponse'+    { eventAggregates =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The number of events in each category that meet the optional filter+-- criteria.+describeEventAggregatesResponse_eventAggregates :: Lens.Lens' DescribeEventAggregatesResponse (Prelude.Maybe [EventAggregate])+describeEventAggregatesResponse_eventAggregates = Lens.lens (\DescribeEventAggregatesResponse' {eventAggregates} -> eventAggregates) (\s@DescribeEventAggregatesResponse' {} a -> s {eventAggregates = a} :: DescribeEventAggregatesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventAggregatesResponse_nextToken :: Lens.Lens' DescribeEventAggregatesResponse (Prelude.Maybe Prelude.Text)+describeEventAggregatesResponse_nextToken = Lens.lens (\DescribeEventAggregatesResponse' {nextToken} -> nextToken) (\s@DescribeEventAggregatesResponse' {} a -> s {nextToken = a} :: DescribeEventAggregatesResponse)++-- | The response's http status code.+describeEventAggregatesResponse_httpStatus :: Lens.Lens' DescribeEventAggregatesResponse Prelude.Int+describeEventAggregatesResponse_httpStatus = Lens.lens (\DescribeEventAggregatesResponse' {httpStatus} -> httpStatus) (\s@DescribeEventAggregatesResponse' {} a -> s {httpStatus = a} :: DescribeEventAggregatesResponse)++instance+  Prelude.NFData+    DescribeEventAggregatesResponse+  where+  rnf DescribeEventAggregatesResponse' {..} =+    Prelude.rnf eventAggregates+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,221 @@+{-# 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.AWSHealth.DescribeEventDetails+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns detailed information about one or more specified events.+-- Information includes standard event data (Amazon Web Services Region,+-- service, and so on, as returned by+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEvents.html DescribeEvents>),+-- a detailed event description, and possible additional metadata that+-- depends upon the nature of the event. Affected entities are not+-- included. To retrieve the entities, use the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntities.html DescribeAffectedEntities>+-- operation.+--+-- If a specified event can\'t be retrieved, an error message is returned+-- for that event.+--+-- This operation supports resource-level permissions. You can use this+-- operation to allow or deny access to specific Health events. For more+-- information, see+-- <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html#resource-action-based-conditions Resource- and action-based conditions>+-- in the /Health User Guide/.+module Amazonka.AWSHealth.DescribeEventDetails+  ( -- * Creating a Request+    DescribeEventDetails (..),+    newDescribeEventDetails,++    -- * Request Lenses+    describeEventDetails_locale,+    describeEventDetails_eventArns,++    -- * Destructuring the Response+    DescribeEventDetailsResponse (..),+    newDescribeEventDetailsResponse,++    -- * Response Lenses+    describeEventDetailsResponse_failedSet,+    describeEventDetailsResponse_successfulSet,+    describeEventDetailsResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEventDetails' smart constructor.+data DescribeEventDetails = DescribeEventDetails'+  { -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | A list of event ARNs (unique identifiers). For example:+    -- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+    eventArns :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventDetails' 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:+--+-- 'locale', 'describeEventDetails_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'eventArns', 'describeEventDetails_eventArns' - A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+newDescribeEventDetails ::+  -- | 'eventArns'+  Prelude.NonEmpty Prelude.Text ->+  DescribeEventDetails+newDescribeEventDetails pEventArns_ =+  DescribeEventDetails'+    { locale = Prelude.Nothing,+      eventArns = Lens.coerced Lens.# pEventArns_+    }++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeEventDetails_locale :: Lens.Lens' DescribeEventDetails (Prelude.Maybe Prelude.Text)+describeEventDetails_locale = Lens.lens (\DescribeEventDetails' {locale} -> locale) (\s@DescribeEventDetails' {} a -> s {locale = a} :: DescribeEventDetails)++-- | A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+describeEventDetails_eventArns :: Lens.Lens' DescribeEventDetails (Prelude.NonEmpty Prelude.Text)+describeEventDetails_eventArns = Lens.lens (\DescribeEventDetails' {eventArns} -> eventArns) (\s@DescribeEventDetails' {} a -> s {eventArns = a} :: DescribeEventDetails) Prelude.. Lens.coerced++instance Core.AWSRequest DescribeEventDetails where+  type+    AWSResponse DescribeEventDetails =+      DescribeEventDetailsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventDetailsResponse'+            Prelude.<$> (x Data..?> "failedSet" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "successfulSet" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEventDetails where+  hashWithSalt _salt DescribeEventDetails' {..} =+    _salt+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` eventArns++instance Prelude.NFData DescribeEventDetails where+  rnf DescribeEventDetails' {..} =+    Prelude.rnf locale+      `Prelude.seq` Prelude.rnf eventArns++instance Data.ToHeaders DescribeEventDetails where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEventDetails" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEventDetails where+  toJSON DescribeEventDetails' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("locale" Data..=) Prelude.<$> locale,+            Prelude.Just ("eventArns" Data..= eventArns)+          ]+      )++instance Data.ToPath DescribeEventDetails where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventDetails where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventDetailsResponse' smart constructor.+data DescribeEventDetailsResponse = DescribeEventDetailsResponse'+  { -- | Error messages for any events that could not be retrieved.+    failedSet :: Prelude.Maybe [EventDetailsErrorItem],+    -- | Information about the events that could be retrieved.+    successfulSet :: Prelude.Maybe [EventDetails],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventDetailsResponse' 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:+--+-- 'failedSet', 'describeEventDetailsResponse_failedSet' - Error messages for any events that could not be retrieved.+--+-- 'successfulSet', 'describeEventDetailsResponse_successfulSet' - Information about the events that could be retrieved.+--+-- 'httpStatus', 'describeEventDetailsResponse_httpStatus' - The response's http status code.+newDescribeEventDetailsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventDetailsResponse+newDescribeEventDetailsResponse pHttpStatus_ =+  DescribeEventDetailsResponse'+    { failedSet =+        Prelude.Nothing,+      successfulSet = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Error messages for any events that could not be retrieved.+describeEventDetailsResponse_failedSet :: Lens.Lens' DescribeEventDetailsResponse (Prelude.Maybe [EventDetailsErrorItem])+describeEventDetailsResponse_failedSet = Lens.lens (\DescribeEventDetailsResponse' {failedSet} -> failedSet) (\s@DescribeEventDetailsResponse' {} a -> s {failedSet = a} :: DescribeEventDetailsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Information about the events that could be retrieved.+describeEventDetailsResponse_successfulSet :: Lens.Lens' DescribeEventDetailsResponse (Prelude.Maybe [EventDetails])+describeEventDetailsResponse_successfulSet = Lens.lens (\DescribeEventDetailsResponse' {successfulSet} -> successfulSet) (\s@DescribeEventDetailsResponse' {} a -> s {successfulSet = a} :: DescribeEventDetailsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeEventDetailsResponse_httpStatus :: Lens.Lens' DescribeEventDetailsResponse Prelude.Int+describeEventDetailsResponse_httpStatus = Lens.lens (\DescribeEventDetailsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventDetailsResponse' {} a -> s {httpStatus = a} :: DescribeEventDetailsResponse)++instance Prelude.NFData DescribeEventDetailsResponse where+  rnf DescribeEventDetailsResponse' {..} =+    Prelude.rnf failedSet+      `Prelude.seq` Prelude.rnf successfulSet+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,276 @@+{-# 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.AWSHealth.DescribeEventDetailsForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns detailed information about one or more specified events for one+-- or more Amazon Web Services accounts in your organization. This+-- information includes standard event data (such as the Amazon Web+-- Services Region and service), an event description, and (depending on+-- the event) possible metadata. This operation doesn\'t return affected+-- entities, such as the resources related to the event. To return affected+-- entities, use the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntitiesForOrganization.html DescribeAffectedEntitiesForOrganization>+-- operation.+--+-- Before you can call this operation, you must first enable Health to work+-- with Organizations. To do this, call the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EnableHealthServiceAccessForOrganization.html EnableHealthServiceAccessForOrganization>+-- operation from your organization\'s management account.+--+-- When you call the @DescribeEventDetailsForOrganization@ operation,+-- specify the @organizationEventDetailFilters@ object in the request.+-- Depending on the Health event type, note the following differences:+--+-- -   To return event details for a public event, you must specify a null+--     value for the @awsAccountId@ parameter. If you specify an account ID+--     for a public event, Health returns an error message because public+--     events aren\'t specific to an account.+--+-- -   To return event details for an event that is specific to an account+--     in your organization, you must specify the @awsAccountId@ parameter+--     in the request. If you don\'t specify an account ID, Health returns+--     an error message because the event is specific to an account in your+--     organization.+--+-- For more information, see+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html Event>.+--+-- This operation doesn\'t support resource-level permissions. You can\'t+-- use this operation to allow or deny access to specific Health events.+-- For more information, see+-- <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html#resource-action-based-conditions Resource- and action-based conditions>+-- in the /Health User Guide/.+module Amazonka.AWSHealth.DescribeEventDetailsForOrganization+  ( -- * Creating a Request+    DescribeEventDetailsForOrganization (..),+    newDescribeEventDetailsForOrganization,++    -- * Request Lenses+    describeEventDetailsForOrganization_locale,+    describeEventDetailsForOrganization_organizationEventDetailFilters,++    -- * Destructuring the Response+    DescribeEventDetailsForOrganizationResponse (..),+    newDescribeEventDetailsForOrganizationResponse,++    -- * Response Lenses+    describeEventDetailsForOrganizationResponse_failedSet,+    describeEventDetailsForOrganizationResponse_successfulSet,+    describeEventDetailsForOrganizationResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEventDetailsForOrganization' smart constructor.+data DescribeEventDetailsForOrganization = DescribeEventDetailsForOrganization'+  { -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | A set of JSON elements that includes the @awsAccountId@ and the+    -- @eventArn@.+    organizationEventDetailFilters :: Prelude.NonEmpty EventAccountFilter+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventDetailsForOrganization' 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:+--+-- 'locale', 'describeEventDetailsForOrganization_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'organizationEventDetailFilters', 'describeEventDetailsForOrganization_organizationEventDetailFilters' - A set of JSON elements that includes the @awsAccountId@ and the+-- @eventArn@.+newDescribeEventDetailsForOrganization ::+  -- | 'organizationEventDetailFilters'+  Prelude.NonEmpty EventAccountFilter ->+  DescribeEventDetailsForOrganization+newDescribeEventDetailsForOrganization+  pOrganizationEventDetailFilters_ =+    DescribeEventDetailsForOrganization'+      { locale =+          Prelude.Nothing,+        organizationEventDetailFilters =+          Lens.coerced+            Lens.# pOrganizationEventDetailFilters_+      }++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeEventDetailsForOrganization_locale :: Lens.Lens' DescribeEventDetailsForOrganization (Prelude.Maybe Prelude.Text)+describeEventDetailsForOrganization_locale = Lens.lens (\DescribeEventDetailsForOrganization' {locale} -> locale) (\s@DescribeEventDetailsForOrganization' {} a -> s {locale = a} :: DescribeEventDetailsForOrganization)++-- | A set of JSON elements that includes the @awsAccountId@ and the+-- @eventArn@.+describeEventDetailsForOrganization_organizationEventDetailFilters :: Lens.Lens' DescribeEventDetailsForOrganization (Prelude.NonEmpty EventAccountFilter)+describeEventDetailsForOrganization_organizationEventDetailFilters = Lens.lens (\DescribeEventDetailsForOrganization' {organizationEventDetailFilters} -> organizationEventDetailFilters) (\s@DescribeEventDetailsForOrganization' {} a -> s {organizationEventDetailFilters = a} :: DescribeEventDetailsForOrganization) Prelude.. Lens.coerced++instance+  Core.AWSRequest+    DescribeEventDetailsForOrganization+  where+  type+    AWSResponse DescribeEventDetailsForOrganization =+      DescribeEventDetailsForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventDetailsForOrganizationResponse'+            Prelude.<$> (x Data..?> "failedSet" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "successfulSet" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeEventDetailsForOrganization+  where+  hashWithSalt+    _salt+    DescribeEventDetailsForOrganization' {..} =+      _salt+        `Prelude.hashWithSalt` locale+        `Prelude.hashWithSalt` organizationEventDetailFilters++instance+  Prelude.NFData+    DescribeEventDetailsForOrganization+  where+  rnf DescribeEventDetailsForOrganization' {..} =+    Prelude.rnf locale+      `Prelude.seq` Prelude.rnf organizationEventDetailFilters++instance+  Data.ToHeaders+    DescribeEventDetailsForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEventDetailsForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeEventDetailsForOrganization+  where+  toJSON DescribeEventDetailsForOrganization' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("locale" Data..=) Prelude.<$> locale,+            Prelude.Just+              ( "organizationEventDetailFilters"+                  Data..= organizationEventDetailFilters+              )+          ]+      )++instance+  Data.ToPath+    DescribeEventDetailsForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeEventDetailsForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventDetailsForOrganizationResponse' smart constructor.+data DescribeEventDetailsForOrganizationResponse = DescribeEventDetailsForOrganizationResponse'+  { -- | Error messages for any events that could not be retrieved.+    failedSet :: Prelude.Maybe [OrganizationEventDetailsErrorItem],+    -- | Information about the events that could be retrieved.+    successfulSet :: Prelude.Maybe [OrganizationEventDetails],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventDetailsForOrganizationResponse' 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:+--+-- 'failedSet', 'describeEventDetailsForOrganizationResponse_failedSet' - Error messages for any events that could not be retrieved.+--+-- 'successfulSet', 'describeEventDetailsForOrganizationResponse_successfulSet' - Information about the events that could be retrieved.+--+-- 'httpStatus', 'describeEventDetailsForOrganizationResponse_httpStatus' - The response's http status code.+newDescribeEventDetailsForOrganizationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventDetailsForOrganizationResponse+newDescribeEventDetailsForOrganizationResponse+  pHttpStatus_ =+    DescribeEventDetailsForOrganizationResponse'+      { failedSet =+          Prelude.Nothing,+        successfulSet =+          Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | Error messages for any events that could not be retrieved.+describeEventDetailsForOrganizationResponse_failedSet :: Lens.Lens' DescribeEventDetailsForOrganizationResponse (Prelude.Maybe [OrganizationEventDetailsErrorItem])+describeEventDetailsForOrganizationResponse_failedSet = Lens.lens (\DescribeEventDetailsForOrganizationResponse' {failedSet} -> failedSet) (\s@DescribeEventDetailsForOrganizationResponse' {} a -> s {failedSet = a} :: DescribeEventDetailsForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | Information about the events that could be retrieved.+describeEventDetailsForOrganizationResponse_successfulSet :: Lens.Lens' DescribeEventDetailsForOrganizationResponse (Prelude.Maybe [OrganizationEventDetails])+describeEventDetailsForOrganizationResponse_successfulSet = Lens.lens (\DescribeEventDetailsForOrganizationResponse' {successfulSet} -> successfulSet) (\s@DescribeEventDetailsForOrganizationResponse' {} a -> s {successfulSet = a} :: DescribeEventDetailsForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeEventDetailsForOrganizationResponse_httpStatus :: Lens.Lens' DescribeEventDetailsForOrganizationResponse Prelude.Int+describeEventDetailsForOrganizationResponse_httpStatus = Lens.lens (\DescribeEventDetailsForOrganizationResponse' {httpStatus} -> httpStatus) (\s@DescribeEventDetailsForOrganizationResponse' {} a -> s {httpStatus = a} :: DescribeEventDetailsForOrganizationResponse)++instance+  Prelude.NFData+    DescribeEventDetailsForOrganizationResponse+  where+  rnf DescribeEventDetailsForOrganizationResponse' {..} =+    Prelude.rnf failedSet+      `Prelude.seq` Prelude.rnf successfulSet+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,299 @@+{-# 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.AWSHealth.DescribeEventTypes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the event types that meet the specified filter criteria. You can+-- use this API operation to find information about the Health event, such+-- as the category, Amazon Web Services service, and event code. The+-- metadata for each event appears in the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EventType.html EventType>+-- object.+--+-- If you don\'t specify a filter criteria, the API operation returns all+-- event types, in no particular order.+--+-- This API operation uses pagination. Specify the @nextToken@ parameter in+-- the next request to return more results.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeEventTypes+  ( -- * Creating a Request+    DescribeEventTypes (..),+    newDescribeEventTypes,++    -- * Request Lenses+    describeEventTypes_filter,+    describeEventTypes_locale,+    describeEventTypes_maxResults,+    describeEventTypes_nextToken,++    -- * Destructuring the Response+    DescribeEventTypesResponse (..),+    newDescribeEventTypesResponse,++    -- * Response Lenses+    describeEventTypesResponse_eventTypes,+    describeEventTypesResponse_nextToken,+    describeEventTypesResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEventTypes' smart constructor.+data DescribeEventTypes = DescribeEventTypes'+  { -- | Values to narrow the results returned.+    filter' :: Prelude.Maybe EventTypeFilter,+    -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventTypes' 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:+--+-- 'filter'', 'describeEventTypes_filter' - Values to narrow the results returned.+--+-- 'locale', 'describeEventTypes_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'maxResults', 'describeEventTypes_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeEventTypes_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+newDescribeEventTypes ::+  DescribeEventTypes+newDescribeEventTypes =+  DescribeEventTypes'+    { filter' = Prelude.Nothing,+      locale = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Values to narrow the results returned.+describeEventTypes_filter :: Lens.Lens' DescribeEventTypes (Prelude.Maybe EventTypeFilter)+describeEventTypes_filter = Lens.lens (\DescribeEventTypes' {filter'} -> filter') (\s@DescribeEventTypes' {} a -> s {filter' = a} :: DescribeEventTypes)++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeEventTypes_locale :: Lens.Lens' DescribeEventTypes (Prelude.Maybe Prelude.Text)+describeEventTypes_locale = Lens.lens (\DescribeEventTypes' {locale} -> locale) (\s@DescribeEventTypes' {} a -> s {locale = a} :: DescribeEventTypes)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeEventTypes_maxResults :: Lens.Lens' DescribeEventTypes (Prelude.Maybe Prelude.Natural)+describeEventTypes_maxResults = Lens.lens (\DescribeEventTypes' {maxResults} -> maxResults) (\s@DescribeEventTypes' {} a -> s {maxResults = a} :: DescribeEventTypes)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventTypes_nextToken :: Lens.Lens' DescribeEventTypes (Prelude.Maybe Prelude.Text)+describeEventTypes_nextToken = Lens.lens (\DescribeEventTypes' {nextToken} -> nextToken) (\s@DescribeEventTypes' {} a -> s {nextToken = a} :: DescribeEventTypes)++instance Core.AWSPager DescribeEventTypes where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventTypesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventTypesResponse_eventTypes+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeEventTypes_nextToken+          Lens..~ rs+          Lens.^? describeEventTypesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeEventTypes where+  type+    AWSResponse DescribeEventTypes =+      DescribeEventTypesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventTypesResponse'+            Prelude.<$> (x Data..?> "eventTypes" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEventTypes where+  hashWithSalt _salt DescribeEventTypes' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeEventTypes where+  rnf DescribeEventTypes' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf locale+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeEventTypes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEventTypes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEventTypes where+  toJSON DescribeEventTypes' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filter" Data..=) Prelude.<$> filter',+            ("locale" Data..=) Prelude.<$> locale,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeEventTypes where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventTypes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventTypesResponse' smart constructor.+data DescribeEventTypesResponse = DescribeEventTypesResponse'+  { -- | A list of event types that match the filter criteria. Event types have a+    -- category (@issue@, @accountNotification@, or @scheduledChange@), a+    -- service (for example, @EC2@, @RDS@, @DATAPIPELINE@, @BILLING@), and a+    -- code (in the format @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+    -- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@).+    eventTypes :: Prelude.Maybe [EventType],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeEventTypesResponse' 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:+--+-- 'eventTypes', 'describeEventTypesResponse_eventTypes' - A list of event types that match the filter criteria. Event types have a+-- category (@issue@, @accountNotification@, or @scheduledChange@), a+-- service (for example, @EC2@, @RDS@, @DATAPIPELINE@, @BILLING@), and a+-- code (in the format @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+-- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@).+--+-- 'nextToken', 'describeEventTypesResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeEventTypesResponse_httpStatus' - The response's http status code.+newDescribeEventTypesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventTypesResponse+newDescribeEventTypesResponse pHttpStatus_ =+  DescribeEventTypesResponse'+    { eventTypes =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of event types that match the filter criteria. Event types have a+-- category (@issue@, @accountNotification@, or @scheduledChange@), a+-- service (for example, @EC2@, @RDS@, @DATAPIPELINE@, @BILLING@), and a+-- code (in the format @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+-- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@).+describeEventTypesResponse_eventTypes :: Lens.Lens' DescribeEventTypesResponse (Prelude.Maybe [EventType])+describeEventTypesResponse_eventTypes = Lens.lens (\DescribeEventTypesResponse' {eventTypes} -> eventTypes) (\s@DescribeEventTypesResponse' {} a -> s {eventTypes = a} :: DescribeEventTypesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventTypesResponse_nextToken :: Lens.Lens' DescribeEventTypesResponse (Prelude.Maybe Prelude.Text)+describeEventTypesResponse_nextToken = Lens.lens (\DescribeEventTypesResponse' {nextToken} -> nextToken) (\s@DescribeEventTypesResponse' {} a -> s {nextToken = a} :: DescribeEventTypesResponse)++-- | The response's http status code.+describeEventTypesResponse_httpStatus :: Lens.Lens' DescribeEventTypesResponse Prelude.Int+describeEventTypesResponse_httpStatus = Lens.lens (\DescribeEventTypesResponse' {httpStatus} -> httpStatus) (\s@DescribeEventTypesResponse' {} a -> s {httpStatus = a} :: DescribeEventTypesResponse)++instance Prelude.NFData DescribeEventTypesResponse where+  rnf DescribeEventTypesResponse' {..} =+    Prelude.rnf eventTypes+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,298 @@+{-# 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.AWSHealth.DescribeEvents+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about events that meet the specified filter+-- criteria. Events are returned in a summary form and do not include the+-- detailed description, any additional metadata that depends on the event+-- type, or any affected resources. To retrieve that information, use the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEventDetails.html DescribeEventDetails>+-- and+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntities.html DescribeAffectedEntities>+-- operations.+--+-- If no filter criteria are specified, all events are returned. Results+-- are sorted by @lastModifiedTime@, starting with the most recent event.+--+-- -   When you call the @DescribeEvents@ operation and specify an entity+--     for the @entityValues@ parameter, Health might return public events+--     that aren\'t specific to that resource. For example, if you call+--     @DescribeEvents@ and specify an ID for an Amazon Elastic Compute+--     Cloud (Amazon EC2) instance, Health might return events that aren\'t+--     specific to that resource or service. To get events that are+--     specific to a service, use the @services@ parameter in the @filter@+--     object. For more information, see+--     <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html Event>.+--+-- -   This API operation uses pagination. Specify the @nextToken@+--     parameter in the next request to return more results.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeEvents+  ( -- * Creating a Request+    DescribeEvents (..),+    newDescribeEvents,++    -- * Request Lenses+    describeEvents_filter,+    describeEvents_locale,+    describeEvents_maxResults,+    describeEvents_nextToken,++    -- * Destructuring the Response+    DescribeEventsResponse (..),+    newDescribeEventsResponse,++    -- * Response Lenses+    describeEventsResponse_events,+    describeEventsResponse_nextToken,+    describeEventsResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEvents' smart constructor.+data DescribeEvents = DescribeEvents'+  { -- | Values to narrow the results returned.+    filter' :: Prelude.Maybe EventFilter,+    -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEvents' 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:+--+-- 'filter'', 'describeEvents_filter' - Values to narrow the results returned.+--+-- 'locale', 'describeEvents_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'maxResults', 'describeEvents_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeEvents_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+newDescribeEvents ::+  DescribeEvents+newDescribeEvents =+  DescribeEvents'+    { filter' = Prelude.Nothing,+      locale = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Values to narrow the results returned.+describeEvents_filter :: Lens.Lens' DescribeEvents (Prelude.Maybe EventFilter)+describeEvents_filter = Lens.lens (\DescribeEvents' {filter'} -> filter') (\s@DescribeEvents' {} a -> s {filter' = a} :: DescribeEvents)++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeEvents_locale :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_locale = Lens.lens (\DescribeEvents' {locale} -> locale) (\s@DescribeEvents' {} a -> s {locale = a} :: DescribeEvents)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeEvents_maxResults :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Natural)+describeEvents_maxResults = Lens.lens (\DescribeEvents' {maxResults} -> maxResults) (\s@DescribeEvents' {} a -> s {maxResults = a} :: DescribeEvents)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEvents_nextToken :: Lens.Lens' DescribeEvents (Prelude.Maybe Prelude.Text)+describeEvents_nextToken = Lens.lens (\DescribeEvents' {nextToken} -> nextToken) (\s@DescribeEvents' {} a -> s {nextToken = a} :: DescribeEvents)++instance Core.AWSPager DescribeEvents where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventsResponse_events+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeEvents_nextToken+          Lens..~ rs+          Lens.^? describeEventsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeEvents where+  type+    AWSResponse DescribeEvents =+      DescribeEventsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventsResponse'+            Prelude.<$> (x Data..?> "events" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEvents where+  hashWithSalt _salt DescribeEvents' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeEvents where+  rnf DescribeEvents' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf locale+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeEvents where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEvents" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEvents where+  toJSON DescribeEvents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filter" Data..=) Prelude.<$> filter',+            ("locale" Data..=) Prelude.<$> locale,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeEvents where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEvents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventsResponse' smart constructor.+data DescribeEventsResponse = DescribeEventsResponse'+  { -- | The events that match the specified filter criteria.+    events :: Prelude.Maybe [Event],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeEventsResponse' 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:+--+-- 'events', 'describeEventsResponse_events' - The events that match the specified filter criteria.+--+-- 'nextToken', 'describeEventsResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeEventsResponse_httpStatus' - The response's http status code.+newDescribeEventsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventsResponse+newDescribeEventsResponse pHttpStatus_ =+  DescribeEventsResponse'+    { events = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The events that match the specified filter criteria.+describeEventsResponse_events :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe [Event])+describeEventsResponse_events = Lens.lens (\DescribeEventsResponse' {events} -> events) (\s@DescribeEventsResponse' {} a -> s {events = a} :: DescribeEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventsResponse_nextToken :: Lens.Lens' DescribeEventsResponse (Prelude.Maybe Prelude.Text)+describeEventsResponse_nextToken = Lens.lens (\DescribeEventsResponse' {nextToken} -> nextToken) (\s@DescribeEventsResponse' {} a -> s {nextToken = a} :: DescribeEventsResponse)++-- | The response's http status code.+describeEventsResponse_httpStatus :: Lens.Lens' DescribeEventsResponse Prelude.Int+describeEventsResponse_httpStatus = Lens.lens (\DescribeEventsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventsResponse' {} a -> s {httpStatus = a} :: DescribeEventsResponse)++instance Prelude.NFData DescribeEventsResponse where+  rnf DescribeEventsResponse' {..} =+    Prelude.rnf events+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,312 @@+{-# 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.AWSHealth.DescribeEventsForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about events across your organization in+-- Organizations. You can use the@filters@ parameter to specify the events+-- that you want to return. Events are returned in a summary form and+-- don\'t include the affected accounts, detailed description, any+-- additional metadata that depends on the event type, or any affected+-- resources. To retrieve that information, use the following operations:+--+-- -   <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedAccountsForOrganization.html DescribeAffectedAccountsForOrganization>+--+-- -   <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEventDetailsForOrganization.html DescribeEventDetailsForOrganization>+--+-- -   <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntitiesForOrganization.html DescribeAffectedEntitiesForOrganization>+--+-- If you don\'t specify a @filter@, the @DescribeEventsForOrganizations@+-- returns all events across your organization. Results are sorted by+-- @lastModifiedTime@, starting with the most recent event.+--+-- For more information about the different types of Health events, see+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html Event>.+--+-- Before you can call this operation, you must first enable Health to work+-- with Organizations. To do this, call the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EnableHealthServiceAccessForOrganization.html EnableHealthServiceAccessForOrganization>+-- operation from your organization\'s management account.+--+-- This API operation uses pagination. Specify the @nextToken@ parameter in+-- the next request to return more results.+--+-- This operation returns paginated results.+module Amazonka.AWSHealth.DescribeEventsForOrganization+  ( -- * Creating a Request+    DescribeEventsForOrganization (..),+    newDescribeEventsForOrganization,++    -- * Request Lenses+    describeEventsForOrganization_filter,+    describeEventsForOrganization_locale,+    describeEventsForOrganization_maxResults,+    describeEventsForOrganization_nextToken,++    -- * Destructuring the Response+    DescribeEventsForOrganizationResponse (..),+    newDescribeEventsForOrganizationResponse,++    -- * Response Lenses+    describeEventsForOrganizationResponse_events,+    describeEventsForOrganizationResponse_nextToken,+    describeEventsForOrganizationResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeEventsForOrganization' smart constructor.+data DescribeEventsForOrganization = DescribeEventsForOrganization'+  { -- | Values to narrow the results returned.+    filter' :: Prelude.Maybe OrganizationEventFilter,+    -- | The locale (language) to return information in. English (en) is the+    -- default and the only supported value at this time.+    locale :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items to return in one batch, between 10 and 100,+    -- inclusive.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventsForOrganization' 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:+--+-- 'filter'', 'describeEventsForOrganization_filter' - Values to narrow the results returned.+--+-- 'locale', 'describeEventsForOrganization_locale' - The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+--+-- 'maxResults', 'describeEventsForOrganization_maxResults' - The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+--+-- 'nextToken', 'describeEventsForOrganization_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+newDescribeEventsForOrganization ::+  DescribeEventsForOrganization+newDescribeEventsForOrganization =+  DescribeEventsForOrganization'+    { filter' =+        Prelude.Nothing,+      locale = Prelude.Nothing,+      maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | Values to narrow the results returned.+describeEventsForOrganization_filter :: Lens.Lens' DescribeEventsForOrganization (Prelude.Maybe OrganizationEventFilter)+describeEventsForOrganization_filter = Lens.lens (\DescribeEventsForOrganization' {filter'} -> filter') (\s@DescribeEventsForOrganization' {} a -> s {filter' = a} :: DescribeEventsForOrganization)++-- | The locale (language) to return information in. English (en) is the+-- default and the only supported value at this time.+describeEventsForOrganization_locale :: Lens.Lens' DescribeEventsForOrganization (Prelude.Maybe Prelude.Text)+describeEventsForOrganization_locale = Lens.lens (\DescribeEventsForOrganization' {locale} -> locale) (\s@DescribeEventsForOrganization' {} a -> s {locale = a} :: DescribeEventsForOrganization)++-- | The maximum number of items to return in one batch, between 10 and 100,+-- inclusive.+describeEventsForOrganization_maxResults :: Lens.Lens' DescribeEventsForOrganization (Prelude.Maybe Prelude.Natural)+describeEventsForOrganization_maxResults = Lens.lens (\DescribeEventsForOrganization' {maxResults} -> maxResults) (\s@DescribeEventsForOrganization' {} a -> s {maxResults = a} :: DescribeEventsForOrganization)++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventsForOrganization_nextToken :: Lens.Lens' DescribeEventsForOrganization (Prelude.Maybe Prelude.Text)+describeEventsForOrganization_nextToken = Lens.lens (\DescribeEventsForOrganization' {nextToken} -> nextToken) (\s@DescribeEventsForOrganization' {} a -> s {nextToken = a} :: DescribeEventsForOrganization)++instance Core.AWSPager DescribeEventsForOrganization where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeEventsForOrganizationResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeEventsForOrganizationResponse_events+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeEventsForOrganization_nextToken+          Lens..~ rs+          Lens.^? describeEventsForOrganizationResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeEventsForOrganization+  where+  type+    AWSResponse DescribeEventsForOrganization =+      DescribeEventsForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventsForOrganizationResponse'+            Prelude.<$> (x Data..?> "events" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "nextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeEventsForOrganization+  where+  hashWithSalt _salt DescribeEventsForOrganization' {..} =+    _salt+      `Prelude.hashWithSalt` filter'+      `Prelude.hashWithSalt` locale+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeEventsForOrganization where+  rnf DescribeEventsForOrganization' {..} =+    Prelude.rnf filter'+      `Prelude.seq` Prelude.rnf locale+      `Prelude.seq` Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeEventsForOrganization where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeEventsForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEventsForOrganization where+  toJSON DescribeEventsForOrganization' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("filter" Data..=) Prelude.<$> filter',+            ("locale" Data..=) Prelude.<$> locale,+            ("maxResults" Data..=) Prelude.<$> maxResults,+            ("nextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeEventsForOrganization where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventsForOrganization where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeEventsForOrganizationResponse' smart constructor.+data DescribeEventsForOrganizationResponse = DescribeEventsForOrganizationResponse'+  { -- | The events that match the specified filter criteria.+    events :: Prelude.Maybe [OrganizationEvent],+    -- | If the results of a search are large, only a portion of the results are+    -- returned, and a @nextToken@ pagination token is returned in the+    -- response. To retrieve the next batch of results, reissue the search+    -- request and include the returned token. When all results have been+    -- returned, the response does not contain a pagination token value.+    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 'DescribeEventsForOrganizationResponse' 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:+--+-- 'events', 'describeEventsForOrganizationResponse_events' - The events that match the specified filter criteria.+--+-- 'nextToken', 'describeEventsForOrganizationResponse_nextToken' - If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+--+-- 'httpStatus', 'describeEventsForOrganizationResponse_httpStatus' - The response's http status code.+newDescribeEventsForOrganizationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventsForOrganizationResponse+newDescribeEventsForOrganizationResponse pHttpStatus_ =+  DescribeEventsForOrganizationResponse'+    { events =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The events that match the specified filter criteria.+describeEventsForOrganizationResponse_events :: Lens.Lens' DescribeEventsForOrganizationResponse (Prelude.Maybe [OrganizationEvent])+describeEventsForOrganizationResponse_events = Lens.lens (\DescribeEventsForOrganizationResponse' {events} -> events) (\s@DescribeEventsForOrganizationResponse' {} a -> s {events = a} :: DescribeEventsForOrganizationResponse) Prelude.. Lens.mapping Lens.coerced++-- | If the results of a search are large, only a portion of the results are+-- returned, and a @nextToken@ pagination token is returned in the+-- response. To retrieve the next batch of results, reissue the search+-- request and include the returned token. When all results have been+-- returned, the response does not contain a pagination token value.+describeEventsForOrganizationResponse_nextToken :: Lens.Lens' DescribeEventsForOrganizationResponse (Prelude.Maybe Prelude.Text)+describeEventsForOrganizationResponse_nextToken = Lens.lens (\DescribeEventsForOrganizationResponse' {nextToken} -> nextToken) (\s@DescribeEventsForOrganizationResponse' {} a -> s {nextToken = a} :: DescribeEventsForOrganizationResponse)++-- | The response's http status code.+describeEventsForOrganizationResponse_httpStatus :: Lens.Lens' DescribeEventsForOrganizationResponse Prelude.Int+describeEventsForOrganizationResponse_httpStatus = Lens.lens (\DescribeEventsForOrganizationResponse' {httpStatus} -> httpStatus) (\s@DescribeEventsForOrganizationResponse' {} a -> s {httpStatus = a} :: DescribeEventsForOrganizationResponse)++instance+  Prelude.NFData+    DescribeEventsForOrganizationResponse+  where+  rnf DescribeEventsForOrganizationResponse' {..} =+    Prelude.rnf events+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,192 @@+{-# 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.AWSHealth.DescribeHealthServiceStatusForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- This operation provides status information on enabling or disabling+-- Health to work with your organization. To call this operation, you must+-- sign in as an IAM user, assume an IAM role, or sign in as the root user+-- (not recommended) in the organization\'s management account.+module Amazonka.AWSHealth.DescribeHealthServiceStatusForOrganization+  ( -- * Creating a Request+    DescribeHealthServiceStatusForOrganization (..),+    newDescribeHealthServiceStatusForOrganization,++    -- * Destructuring the Response+    DescribeHealthServiceStatusForOrganizationResponse (..),+    newDescribeHealthServiceStatusForOrganizationResponse,++    -- * Response Lenses+    describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization,+    describeHealthServiceStatusForOrganizationResponse_httpStatus,+  )+where++import Amazonka.AWSHealth.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:/ 'newDescribeHealthServiceStatusForOrganization' smart constructor.+data DescribeHealthServiceStatusForOrganization = DescribeHealthServiceStatusForOrganization'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeHealthServiceStatusForOrganization' 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.+newDescribeHealthServiceStatusForOrganization ::+  DescribeHealthServiceStatusForOrganization+newDescribeHealthServiceStatusForOrganization =+  DescribeHealthServiceStatusForOrganization'++instance+  Core.AWSRequest+    DescribeHealthServiceStatusForOrganization+  where+  type+    AWSResponse+      DescribeHealthServiceStatusForOrganization =+      DescribeHealthServiceStatusForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeHealthServiceStatusForOrganizationResponse'+            Prelude.<$> ( x+                            Data..?> "healthServiceAccessStatusForOrganization"+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeHealthServiceStatusForOrganization+  where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance+  Prelude.NFData+    DescribeHealthServiceStatusForOrganization+  where+  rnf _ = ()++instance+  Data.ToHeaders+    DescribeHealthServiceStatusForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DescribeHealthServiceStatusForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeHealthServiceStatusForOrganization+  where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance+  Data.ToPath+    DescribeHealthServiceStatusForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeHealthServiceStatusForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeHealthServiceStatusForOrganizationResponse' smart constructor.+data DescribeHealthServiceStatusForOrganizationResponse = DescribeHealthServiceStatusForOrganizationResponse'+  { -- | Information about the status of enabling or disabling the Health+    -- organizational view feature in your organization.+    --+    -- Valid values are @ENABLED | DISABLED | PENDING@.+    healthServiceAccessStatusForOrganization :: 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 'DescribeHealthServiceStatusForOrganizationResponse' 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:+--+-- 'healthServiceAccessStatusForOrganization', 'describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization' - Information about the status of enabling or disabling the Health+-- organizational view feature in your organization.+--+-- Valid values are @ENABLED | DISABLED | PENDING@.+--+-- 'httpStatus', 'describeHealthServiceStatusForOrganizationResponse_httpStatus' - The response's http status code.+newDescribeHealthServiceStatusForOrganizationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeHealthServiceStatusForOrganizationResponse+newDescribeHealthServiceStatusForOrganizationResponse+  pHttpStatus_ =+    DescribeHealthServiceStatusForOrganizationResponse'+      { healthServiceAccessStatusForOrganization =+          Prelude.Nothing,+        httpStatus =+          pHttpStatus_+      }++-- | Information about the status of enabling or disabling the Health+-- organizational view feature in your organization.+--+-- Valid values are @ENABLED | DISABLED | PENDING@.+describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization :: Lens.Lens' DescribeHealthServiceStatusForOrganizationResponse (Prelude.Maybe Prelude.Text)+describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization = Lens.lens (\DescribeHealthServiceStatusForOrganizationResponse' {healthServiceAccessStatusForOrganization} -> healthServiceAccessStatusForOrganization) (\s@DescribeHealthServiceStatusForOrganizationResponse' {} a -> s {healthServiceAccessStatusForOrganization = a} :: DescribeHealthServiceStatusForOrganizationResponse)++-- | The response's http status code.+describeHealthServiceStatusForOrganizationResponse_httpStatus :: Lens.Lens' DescribeHealthServiceStatusForOrganizationResponse Prelude.Int+describeHealthServiceStatusForOrganizationResponse_httpStatus = Lens.lens (\DescribeHealthServiceStatusForOrganizationResponse' {httpStatus} -> httpStatus) (\s@DescribeHealthServiceStatusForOrganizationResponse' {} a -> s {httpStatus = a} :: DescribeHealthServiceStatusForOrganizationResponse)++instance+  Prelude.NFData+    DescribeHealthServiceStatusForOrganizationResponse+  where+  rnf+    DescribeHealthServiceStatusForOrganizationResponse' {..} =+      Prelude.rnf+        healthServiceAccessStatusForOrganization+        `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,161 @@+{-# 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.AWSHealth.DisableHealthServiceAccessForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disables Health from working with Organizations. To call this operation,+-- you must sign in as an Identity and Access Management (IAM) user, assume+-- an IAM role, or sign in as the root user (not recommended) in the+-- organization\'s management account. For more information, see+-- <https://docs.aws.amazon.com/health/latest/ug/aggregate-events.html Aggregating Health events>+-- in the /Health User Guide/.+--+-- This operation doesn\'t remove the service-linked role from the+-- management account in your organization. You must use the IAM console,+-- API, or Command Line Interface (CLI) to remove the service-linked role.+-- For more information, see+-- <https://docs.aws.amazon.com/IAM/latest/UserGuide/using-service-linked-roles.html#delete-service-linked-role Deleting a Service-Linked Role>+-- in the /IAM User Guide/.+--+-- You can also disable the organizational feature by using the+-- Organizations+-- <https://docs.aws.amazon.com/organizations/latest/APIReference/API_DisableAWSServiceAccess.html DisableAWSServiceAccess>+-- API operation. After you call this operation, Health stops aggregating+-- events for all other Amazon Web Services accounts in your organization.+-- If you call the Health API operations for organizational view, Health+-- returns an error. Health continues to aggregate health events for your+-- Amazon Web Services account.+module Amazonka.AWSHealth.DisableHealthServiceAccessForOrganization+  ( -- * Creating a Request+    DisableHealthServiceAccessForOrganization (..),+    newDisableHealthServiceAccessForOrganization,++    -- * Destructuring the Response+    DisableHealthServiceAccessForOrganizationResponse (..),+    newDisableHealthServiceAccessForOrganizationResponse,+  )+where++import Amazonka.AWSHealth.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:/ 'newDisableHealthServiceAccessForOrganization' smart constructor.+data DisableHealthServiceAccessForOrganization = DisableHealthServiceAccessForOrganization'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableHealthServiceAccessForOrganization' 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.+newDisableHealthServiceAccessForOrganization ::+  DisableHealthServiceAccessForOrganization+newDisableHealthServiceAccessForOrganization =+  DisableHealthServiceAccessForOrganization'++instance+  Core.AWSRequest+    DisableHealthServiceAccessForOrganization+  where+  type+    AWSResponse+      DisableHealthServiceAccessForOrganization =+      DisableHealthServiceAccessForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull+      DisableHealthServiceAccessForOrganizationResponse'++instance+  Prelude.Hashable+    DisableHealthServiceAccessForOrganization+  where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance+  Prelude.NFData+    DisableHealthServiceAccessForOrganization+  where+  rnf _ = ()++instance+  Data.ToHeaders+    DisableHealthServiceAccessForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.DisableHealthServiceAccessForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DisableHealthServiceAccessForOrganization+  where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance+  Data.ToPath+    DisableHealthServiceAccessForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DisableHealthServiceAccessForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDisableHealthServiceAccessForOrganizationResponse' smart constructor.+data DisableHealthServiceAccessForOrganizationResponse = DisableHealthServiceAccessForOrganizationResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableHealthServiceAccessForOrganizationResponse' 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.+newDisableHealthServiceAccessForOrganizationResponse ::+  DisableHealthServiceAccessForOrganizationResponse+newDisableHealthServiceAccessForOrganizationResponse =+  DisableHealthServiceAccessForOrganizationResponse'++instance+  Prelude.NFData+    DisableHealthServiceAccessForOrganizationResponse+  where+  rnf _ = ()

@@ -0,0 +1,165 @@+{-# 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.AWSHealth.EnableHealthServiceAccessForOrganization+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables Health to work with Organizations. You can use the+-- organizational view feature to aggregate events from all Amazon Web+-- Services accounts in your organization in a centralized location.+--+-- This operation also creates a service-linked role for the management+-- account in the organization.+--+-- To call this operation, you must meet the following requirements:+--+-- -   You must have a Business, Enterprise On-Ramp, or Enterprise Support+--     plan from+--     <http://aws.amazon.com/premiumsupport/ Amazon Web Services Support>+--     to use the Health API. If you call the Health API from an Amazon Web+--     Services account that doesn\'t have a Business, Enterprise On-Ramp,+--     or Enterprise Support plan, you receive a+--     @SubscriptionRequiredException@ error.+--+-- -   You must have permission to call this operation from the+--     organization\'s management account. For example IAM policies, see+--     <https://docs.aws.amazon.com/health/latest/ug/security_iam_id-based-policy-examples.html Health identity-based policy examples>.+--+-- If you don\'t have the required support plan, you can instead use the+-- Health console to enable the organizational view feature. For more+-- information, see+-- <https://docs.aws.amazon.com/health/latest/ug/aggregate-events.html Aggregating Health events>+-- in the /Health User Guide/.+module Amazonka.AWSHealth.EnableHealthServiceAccessForOrganization+  ( -- * Creating a Request+    EnableHealthServiceAccessForOrganization (..),+    newEnableHealthServiceAccessForOrganization,++    -- * Destructuring the Response+    EnableHealthServiceAccessForOrganizationResponse (..),+    newEnableHealthServiceAccessForOrganizationResponse,+  )+where++import Amazonka.AWSHealth.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:/ 'newEnableHealthServiceAccessForOrganization' smart constructor.+data EnableHealthServiceAccessForOrganization = EnableHealthServiceAccessForOrganization'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableHealthServiceAccessForOrganization' 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.+newEnableHealthServiceAccessForOrganization ::+  EnableHealthServiceAccessForOrganization+newEnableHealthServiceAccessForOrganization =+  EnableHealthServiceAccessForOrganization'++instance+  Core.AWSRequest+    EnableHealthServiceAccessForOrganization+  where+  type+    AWSResponse+      EnableHealthServiceAccessForOrganization =+      EnableHealthServiceAccessForOrganizationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveNull+      EnableHealthServiceAccessForOrganizationResponse'++instance+  Prelude.Hashable+    EnableHealthServiceAccessForOrganization+  where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance+  Prelude.NFData+    EnableHealthServiceAccessForOrganization+  where+  rnf _ = ()++instance+  Data.ToHeaders+    EnableHealthServiceAccessForOrganization+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "AWSHealth_20160804.EnableHealthServiceAccessForOrganization" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    EnableHealthServiceAccessForOrganization+  where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance+  Data.ToPath+    EnableHealthServiceAccessForOrganization+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    EnableHealthServiceAccessForOrganization+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newEnableHealthServiceAccessForOrganizationResponse' smart constructor.+data EnableHealthServiceAccessForOrganizationResponse = EnableHealthServiceAccessForOrganizationResponse'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableHealthServiceAccessForOrganizationResponse' 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.+newEnableHealthServiceAccessForOrganizationResponse ::+  EnableHealthServiceAccessForOrganizationResponse+newEnableHealthServiceAccessForOrganizationResponse =+  EnableHealthServiceAccessForOrganizationResponse'++instance+  Prelude.NFData+    EnableHealthServiceAccessForOrganizationResponse+  where+  rnf _ = ()

@@ -0,0 +1,270 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Lens+  ( -- * Operations++    -- ** DescribeAffectedAccountsForOrganization+    describeAffectedAccountsForOrganization_maxResults,+    describeAffectedAccountsForOrganization_nextToken,+    describeAffectedAccountsForOrganization_eventArn,+    describeAffectedAccountsForOrganizationResponse_affectedAccounts,+    describeAffectedAccountsForOrganizationResponse_eventScopeCode,+    describeAffectedAccountsForOrganizationResponse_nextToken,+    describeAffectedAccountsForOrganizationResponse_httpStatus,++    -- ** DescribeAffectedEntities+    describeAffectedEntities_locale,+    describeAffectedEntities_maxResults,+    describeAffectedEntities_nextToken,+    describeAffectedEntities_filter,+    describeAffectedEntitiesResponse_entities,+    describeAffectedEntitiesResponse_nextToken,+    describeAffectedEntitiesResponse_httpStatus,++    -- ** DescribeAffectedEntitiesForOrganization+    describeAffectedEntitiesForOrganization_locale,+    describeAffectedEntitiesForOrganization_maxResults,+    describeAffectedEntitiesForOrganization_nextToken,+    describeAffectedEntitiesForOrganization_organizationEntityFilters,+    describeAffectedEntitiesForOrganizationResponse_entities,+    describeAffectedEntitiesForOrganizationResponse_failedSet,+    describeAffectedEntitiesForOrganizationResponse_nextToken,+    describeAffectedEntitiesForOrganizationResponse_httpStatus,++    -- ** DescribeEntityAggregates+    describeEntityAggregates_eventArns,+    describeEntityAggregatesResponse_entityAggregates,+    describeEntityAggregatesResponse_httpStatus,++    -- ** DescribeEventAggregates+    describeEventAggregates_filter,+    describeEventAggregates_maxResults,+    describeEventAggregates_nextToken,+    describeEventAggregates_aggregateField,+    describeEventAggregatesResponse_eventAggregates,+    describeEventAggregatesResponse_nextToken,+    describeEventAggregatesResponse_httpStatus,++    -- ** DescribeEventDetails+    describeEventDetails_locale,+    describeEventDetails_eventArns,+    describeEventDetailsResponse_failedSet,+    describeEventDetailsResponse_successfulSet,+    describeEventDetailsResponse_httpStatus,++    -- ** DescribeEventDetailsForOrganization+    describeEventDetailsForOrganization_locale,+    describeEventDetailsForOrganization_organizationEventDetailFilters,+    describeEventDetailsForOrganizationResponse_failedSet,+    describeEventDetailsForOrganizationResponse_successfulSet,+    describeEventDetailsForOrganizationResponse_httpStatus,++    -- ** DescribeEventTypes+    describeEventTypes_filter,+    describeEventTypes_locale,+    describeEventTypes_maxResults,+    describeEventTypes_nextToken,+    describeEventTypesResponse_eventTypes,+    describeEventTypesResponse_nextToken,+    describeEventTypesResponse_httpStatus,++    -- ** DescribeEvents+    describeEvents_filter,+    describeEvents_locale,+    describeEvents_maxResults,+    describeEvents_nextToken,+    describeEventsResponse_events,+    describeEventsResponse_nextToken,+    describeEventsResponse_httpStatus,++    -- ** DescribeEventsForOrganization+    describeEventsForOrganization_filter,+    describeEventsForOrganization_locale,+    describeEventsForOrganization_maxResults,+    describeEventsForOrganization_nextToken,+    describeEventsForOrganizationResponse_events,+    describeEventsForOrganizationResponse_nextToken,+    describeEventsForOrganizationResponse_httpStatus,++    -- ** DescribeHealthServiceStatusForOrganization+    describeHealthServiceStatusForOrganizationResponse_healthServiceAccessStatusForOrganization,+    describeHealthServiceStatusForOrganizationResponse_httpStatus,++    -- ** DisableHealthServiceAccessForOrganization++    -- ** EnableHealthServiceAccessForOrganization++    -- * Types++    -- ** AffectedEntity+    affectedEntity_awsAccountId,+    affectedEntity_entityArn,+    affectedEntity_entityUrl,+    affectedEntity_entityValue,+    affectedEntity_eventArn,+    affectedEntity_lastUpdatedTime,+    affectedEntity_statusCode,+    affectedEntity_tags,++    -- ** DateTimeRange+    dateTimeRange_from,+    dateTimeRange_to,++    -- ** EntityAggregate+    entityAggregate_count,+    entityAggregate_eventArn,++    -- ** EntityFilter+    entityFilter_entityArns,+    entityFilter_entityValues,+    entityFilter_lastUpdatedTimes,+    entityFilter_statusCodes,+    entityFilter_tags,+    entityFilter_eventArns,++    -- ** Event+    event_arn,+    event_availabilityZone,+    event_endTime,+    event_eventScopeCode,+    event_eventTypeCategory,+    event_eventTypeCode,+    event_lastUpdatedTime,+    event_region,+    event_service,+    event_startTime,+    event_statusCode,++    -- ** EventAccountFilter+    eventAccountFilter_awsAccountId,+    eventAccountFilter_eventArn,++    -- ** EventAggregate+    eventAggregate_aggregateValue,+    eventAggregate_count,++    -- ** EventDescription+    eventDescription_latestDescription,++    -- ** EventDetails+    eventDetails_event,+    eventDetails_eventDescription,+    eventDetails_eventMetadata,++    -- ** EventDetailsErrorItem+    eventDetailsErrorItem_errorMessage,+    eventDetailsErrorItem_errorName,+    eventDetailsErrorItem_eventArn,++    -- ** EventFilter+    eventFilter_availabilityZones,+    eventFilter_endTimes,+    eventFilter_entityArns,+    eventFilter_entityValues,+    eventFilter_eventArns,+    eventFilter_eventStatusCodes,+    eventFilter_eventTypeCategories,+    eventFilter_eventTypeCodes,+    eventFilter_lastUpdatedTimes,+    eventFilter_regions,+    eventFilter_services,+    eventFilter_startTimes,+    eventFilter_tags,++    -- ** EventType+    eventType_category,+    eventType_code,+    eventType_service,++    -- ** EventTypeFilter+    eventTypeFilter_eventTypeCategories,+    eventTypeFilter_eventTypeCodes,+    eventTypeFilter_services,++    -- ** OrganizationAffectedEntitiesErrorItem+    organizationAffectedEntitiesErrorItem_awsAccountId,+    organizationAffectedEntitiesErrorItem_errorMessage,+    organizationAffectedEntitiesErrorItem_errorName,+    organizationAffectedEntitiesErrorItem_eventArn,++    -- ** OrganizationEvent+    organizationEvent_arn,+    organizationEvent_endTime,+    organizationEvent_eventScopeCode,+    organizationEvent_eventTypeCategory,+    organizationEvent_eventTypeCode,+    organizationEvent_lastUpdatedTime,+    organizationEvent_region,+    organizationEvent_service,+    organizationEvent_startTime,+    organizationEvent_statusCode,++    -- ** OrganizationEventDetails+    organizationEventDetails_awsAccountId,+    organizationEventDetails_event,+    organizationEventDetails_eventDescription,+    organizationEventDetails_eventMetadata,++    -- ** OrganizationEventDetailsErrorItem+    organizationEventDetailsErrorItem_awsAccountId,+    organizationEventDetailsErrorItem_errorMessage,+    organizationEventDetailsErrorItem_errorName,+    organizationEventDetailsErrorItem_eventArn,++    -- ** OrganizationEventFilter+    organizationEventFilter_awsAccountIds,+    organizationEventFilter_endTime,+    organizationEventFilter_entityArns,+    organizationEventFilter_entityValues,+    organizationEventFilter_eventStatusCodes,+    organizationEventFilter_eventTypeCategories,+    organizationEventFilter_eventTypeCodes,+    organizationEventFilter_lastUpdatedTime,+    organizationEventFilter_regions,+    organizationEventFilter_services,+    organizationEventFilter_startTime,+  )+where++import Amazonka.AWSHealth.DescribeAffectedAccountsForOrganization+import Amazonka.AWSHealth.DescribeAffectedEntities+import Amazonka.AWSHealth.DescribeAffectedEntitiesForOrganization+import Amazonka.AWSHealth.DescribeEntityAggregates+import Amazonka.AWSHealth.DescribeEventAggregates+import Amazonka.AWSHealth.DescribeEventDetails+import Amazonka.AWSHealth.DescribeEventDetailsForOrganization+import Amazonka.AWSHealth.DescribeEventTypes+import Amazonka.AWSHealth.DescribeEvents+import Amazonka.AWSHealth.DescribeEventsForOrganization+import Amazonka.AWSHealth.DescribeHealthServiceStatusForOrganization+import Amazonka.AWSHealth.DisableHealthServiceAccessForOrganization+import Amazonka.AWSHealth.EnableHealthServiceAccessForOrganization+import Amazonka.AWSHealth.Types.AffectedEntity+import Amazonka.AWSHealth.Types.DateTimeRange+import Amazonka.AWSHealth.Types.EntityAggregate+import Amazonka.AWSHealth.Types.EntityFilter+import Amazonka.AWSHealth.Types.Event+import Amazonka.AWSHealth.Types.EventAccountFilter+import Amazonka.AWSHealth.Types.EventAggregate+import Amazonka.AWSHealth.Types.EventDescription+import Amazonka.AWSHealth.Types.EventDetails+import Amazonka.AWSHealth.Types.EventDetailsErrorItem+import Amazonka.AWSHealth.Types.EventFilter+import Amazonka.AWSHealth.Types.EventType+import Amazonka.AWSHealth.Types.EventTypeFilter+import Amazonka.AWSHealth.Types.OrganizationAffectedEntitiesErrorItem+import Amazonka.AWSHealth.Types.OrganizationEvent+import Amazonka.AWSHealth.Types.OrganizationEventDetails+import Amazonka.AWSHealth.Types.OrganizationEventDetailsErrorItem+import Amazonka.AWSHealth.Types.OrganizationEventFilter

@@ -0,0 +1,327 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _ConcurrentModificationException,+    _InvalidPaginationToken,+    _UnsupportedLocale,++    -- * EntityStatusCode+    EntityStatusCode (..),++    -- * EventAggregateField+    EventAggregateField (..),++    -- * EventScopeCode+    EventScopeCode (..),++    -- * EventStatusCode+    EventStatusCode (..),++    -- * EventTypeCategory+    EventTypeCategory (..),++    -- * AffectedEntity+    AffectedEntity (..),+    newAffectedEntity,+    affectedEntity_awsAccountId,+    affectedEntity_entityArn,+    affectedEntity_entityUrl,+    affectedEntity_entityValue,+    affectedEntity_eventArn,+    affectedEntity_lastUpdatedTime,+    affectedEntity_statusCode,+    affectedEntity_tags,++    -- * DateTimeRange+    DateTimeRange (..),+    newDateTimeRange,+    dateTimeRange_from,+    dateTimeRange_to,++    -- * EntityAggregate+    EntityAggregate (..),+    newEntityAggregate,+    entityAggregate_count,+    entityAggregate_eventArn,++    -- * EntityFilter+    EntityFilter (..),+    newEntityFilter,+    entityFilter_entityArns,+    entityFilter_entityValues,+    entityFilter_lastUpdatedTimes,+    entityFilter_statusCodes,+    entityFilter_tags,+    entityFilter_eventArns,++    -- * Event+    Event (..),+    newEvent,+    event_arn,+    event_availabilityZone,+    event_endTime,+    event_eventScopeCode,+    event_eventTypeCategory,+    event_eventTypeCode,+    event_lastUpdatedTime,+    event_region,+    event_service,+    event_startTime,+    event_statusCode,++    -- * EventAccountFilter+    EventAccountFilter (..),+    newEventAccountFilter,+    eventAccountFilter_awsAccountId,+    eventAccountFilter_eventArn,++    -- * EventAggregate+    EventAggregate (..),+    newEventAggregate,+    eventAggregate_aggregateValue,+    eventAggregate_count,++    -- * EventDescription+    EventDescription (..),+    newEventDescription,+    eventDescription_latestDescription,++    -- * EventDetails+    EventDetails (..),+    newEventDetails,+    eventDetails_event,+    eventDetails_eventDescription,+    eventDetails_eventMetadata,++    -- * EventDetailsErrorItem+    EventDetailsErrorItem (..),+    newEventDetailsErrorItem,+    eventDetailsErrorItem_errorMessage,+    eventDetailsErrorItem_errorName,+    eventDetailsErrorItem_eventArn,++    -- * EventFilter+    EventFilter (..),+    newEventFilter,+    eventFilter_availabilityZones,+    eventFilter_endTimes,+    eventFilter_entityArns,+    eventFilter_entityValues,+    eventFilter_eventArns,+    eventFilter_eventStatusCodes,+    eventFilter_eventTypeCategories,+    eventFilter_eventTypeCodes,+    eventFilter_lastUpdatedTimes,+    eventFilter_regions,+    eventFilter_services,+    eventFilter_startTimes,+    eventFilter_tags,++    -- * EventType+    EventType (..),+    newEventType,+    eventType_category,+    eventType_code,+    eventType_service,++    -- * EventTypeFilter+    EventTypeFilter (..),+    newEventTypeFilter,+    eventTypeFilter_eventTypeCategories,+    eventTypeFilter_eventTypeCodes,+    eventTypeFilter_services,++    -- * OrganizationAffectedEntitiesErrorItem+    OrganizationAffectedEntitiesErrorItem (..),+    newOrganizationAffectedEntitiesErrorItem,+    organizationAffectedEntitiesErrorItem_awsAccountId,+    organizationAffectedEntitiesErrorItem_errorMessage,+    organizationAffectedEntitiesErrorItem_errorName,+    organizationAffectedEntitiesErrorItem_eventArn,++    -- * OrganizationEvent+    OrganizationEvent (..),+    newOrganizationEvent,+    organizationEvent_arn,+    organizationEvent_endTime,+    organizationEvent_eventScopeCode,+    organizationEvent_eventTypeCategory,+    organizationEvent_eventTypeCode,+    organizationEvent_lastUpdatedTime,+    organizationEvent_region,+    organizationEvent_service,+    organizationEvent_startTime,+    organizationEvent_statusCode,++    -- * OrganizationEventDetails+    OrganizationEventDetails (..),+    newOrganizationEventDetails,+    organizationEventDetails_awsAccountId,+    organizationEventDetails_event,+    organizationEventDetails_eventDescription,+    organizationEventDetails_eventMetadata,++    -- * OrganizationEventDetailsErrorItem+    OrganizationEventDetailsErrorItem (..),+    newOrganizationEventDetailsErrorItem,+    organizationEventDetailsErrorItem_awsAccountId,+    organizationEventDetailsErrorItem_errorMessage,+    organizationEventDetailsErrorItem_errorName,+    organizationEventDetailsErrorItem_eventArn,++    -- * OrganizationEventFilter+    OrganizationEventFilter (..),+    newOrganizationEventFilter,+    organizationEventFilter_awsAccountIds,+    organizationEventFilter_endTime,+    organizationEventFilter_entityArns,+    organizationEventFilter_entityValues,+    organizationEventFilter_eventStatusCodes,+    organizationEventFilter_eventTypeCategories,+    organizationEventFilter_eventTypeCodes,+    organizationEventFilter_lastUpdatedTime,+    organizationEventFilter_regions,+    organizationEventFilter_services,+    organizationEventFilter_startTime,+  )+where++import Amazonka.AWSHealth.Types.AffectedEntity+import Amazonka.AWSHealth.Types.DateTimeRange+import Amazonka.AWSHealth.Types.EntityAggregate+import Amazonka.AWSHealth.Types.EntityFilter+import Amazonka.AWSHealth.Types.EntityStatusCode+import Amazonka.AWSHealth.Types.Event+import Amazonka.AWSHealth.Types.EventAccountFilter+import Amazonka.AWSHealth.Types.EventAggregate+import Amazonka.AWSHealth.Types.EventAggregateField+import Amazonka.AWSHealth.Types.EventDescription+import Amazonka.AWSHealth.Types.EventDetails+import Amazonka.AWSHealth.Types.EventDetailsErrorItem+import Amazonka.AWSHealth.Types.EventFilter+import Amazonka.AWSHealth.Types.EventScopeCode+import Amazonka.AWSHealth.Types.EventStatusCode+import Amazonka.AWSHealth.Types.EventType+import Amazonka.AWSHealth.Types.EventTypeCategory+import Amazonka.AWSHealth.Types.EventTypeFilter+import Amazonka.AWSHealth.Types.OrganizationAffectedEntitiesErrorItem+import Amazonka.AWSHealth.Types.OrganizationEvent+import Amazonka.AWSHealth.Types.OrganizationEventDetails+import Amazonka.AWSHealth.Types.OrganizationEventDetailsErrorItem+import Amazonka.AWSHealth.Types.OrganizationEventFilter+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2016-08-04@ of the Amazon Health APIs and Notifications SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "AWSHealth",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "health",+      Core.signingName = "health",+      Core.version = "2016-08-04",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "AWSHealth",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | <https://docs.aws.amazon.com/health/latest/APIReference/API_EnableHealthServiceAccessForOrganization.html EnableHealthServiceAccessForOrganization>+-- is already in progress. Wait for the action to complete before trying+-- again. To get the current status, use the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeHealthServiceStatusForOrganization.html DescribeHealthServiceStatusForOrganization>+-- operation.+_ConcurrentModificationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ConcurrentModificationException =+  Core._MatchServiceError+    defaultService+    "ConcurrentModificationException"++-- | The specified pagination token (@nextToken@) is not valid.+_InvalidPaginationToken :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidPaginationToken =+  Core._MatchServiceError+    defaultService+    "InvalidPaginationToken"++-- | The specified locale is not supported.+_UnsupportedLocale :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedLocale =+  Core._MatchServiceError+    defaultService+    "UnsupportedLocale"

@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.AffectedEntity+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.AffectedEntity where++import Amazonka.AWSHealth.Types.EntityStatusCode+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++-- | Information about an entity that is affected by a Health event.+--+-- /See:/ 'newAffectedEntity' smart constructor.+data AffectedEntity = AffectedEntity'+  { -- | The 12-digit Amazon Web Services account number that contains the+    -- affected entity.+    awsAccountId :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier for the entity. Format:+    -- @arn:aws:health:@/@entity-region@/@:@/@aws-account@/@:entity\/@/@entity-id@/@ @.+    -- Example:+    -- @arn:aws:health:us-east-1:111222333444:entity\/AVh5GGT7ul1arKr1sE1K@+    entityArn :: Prelude.Maybe Prelude.Text,+    -- | The URL of the affected entity.+    entityUrl :: Prelude.Maybe Prelude.Text,+    -- | The ID of the affected entity.+    entityValue :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier for the event. The event ARN has the+    -- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+    -- format.+    --+    -- For example, an event ARN might look like the following:+    --+    -- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+    eventArn :: Prelude.Maybe Prelude.Text,+    -- | The most recent time that the entity was updated.+    lastUpdatedTime :: Prelude.Maybe Data.POSIX,+    -- | The most recent status of the entity affected by the event. The possible+    -- values are @IMPAIRED@, @UNIMPAIRED@, and @UNKNOWN@.+    statusCode :: Prelude.Maybe EntityStatusCode,+    -- | A map of entity tags attached to the affected entity.+    --+    -- Currently, the @tags@ property isn\'t supported.+    tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text)+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AffectedEntity' 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:+--+-- 'awsAccountId', 'affectedEntity_awsAccountId' - The 12-digit Amazon Web Services account number that contains the+-- affected entity.+--+-- 'entityArn', 'affectedEntity_entityArn' - The unique identifier for the entity. Format:+-- @arn:aws:health:@/@entity-region@/@:@/@aws-account@/@:entity\/@/@entity-id@/@ @.+-- Example:+-- @arn:aws:health:us-east-1:111222333444:entity\/AVh5GGT7ul1arKr1sE1K@+--+-- 'entityUrl', 'affectedEntity_entityUrl' - The URL of the affected entity.+--+-- 'entityValue', 'affectedEntity_entityValue' - The ID of the affected entity.+--+-- 'eventArn', 'affectedEntity_eventArn' - The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+--+-- 'lastUpdatedTime', 'affectedEntity_lastUpdatedTime' - The most recent time that the entity was updated.+--+-- 'statusCode', 'affectedEntity_statusCode' - The most recent status of the entity affected by the event. The possible+-- values are @IMPAIRED@, @UNIMPAIRED@, and @UNKNOWN@.+--+-- 'tags', 'affectedEntity_tags' - A map of entity tags attached to the affected entity.+--+-- Currently, the @tags@ property isn\'t supported.+newAffectedEntity ::+  AffectedEntity+newAffectedEntity =+  AffectedEntity'+    { awsAccountId = Prelude.Nothing,+      entityArn = Prelude.Nothing,+      entityUrl = Prelude.Nothing,+      entityValue = Prelude.Nothing,+      eventArn = Prelude.Nothing,+      lastUpdatedTime = Prelude.Nothing,+      statusCode = Prelude.Nothing,+      tags = Prelude.Nothing+    }++-- | The 12-digit Amazon Web Services account number that contains the+-- affected entity.+affectedEntity_awsAccountId :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.Text)+affectedEntity_awsAccountId = Lens.lens (\AffectedEntity' {awsAccountId} -> awsAccountId) (\s@AffectedEntity' {} a -> s {awsAccountId = a} :: AffectedEntity)++-- | The unique identifier for the entity. Format:+-- @arn:aws:health:@/@entity-region@/@:@/@aws-account@/@:entity\/@/@entity-id@/@ @.+-- Example:+-- @arn:aws:health:us-east-1:111222333444:entity\/AVh5GGT7ul1arKr1sE1K@+affectedEntity_entityArn :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.Text)+affectedEntity_entityArn = Lens.lens (\AffectedEntity' {entityArn} -> entityArn) (\s@AffectedEntity' {} a -> s {entityArn = a} :: AffectedEntity)++-- | The URL of the affected entity.+affectedEntity_entityUrl :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.Text)+affectedEntity_entityUrl = Lens.lens (\AffectedEntity' {entityUrl} -> entityUrl) (\s@AffectedEntity' {} a -> s {entityUrl = a} :: AffectedEntity)++-- | The ID of the affected entity.+affectedEntity_entityValue :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.Text)+affectedEntity_entityValue = Lens.lens (\AffectedEntity' {entityValue} -> entityValue) (\s@AffectedEntity' {} a -> s {entityValue = a} :: AffectedEntity)++-- | The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+affectedEntity_eventArn :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.Text)+affectedEntity_eventArn = Lens.lens (\AffectedEntity' {eventArn} -> eventArn) (\s@AffectedEntity' {} a -> s {eventArn = a} :: AffectedEntity)++-- | The most recent time that the entity was updated.+affectedEntity_lastUpdatedTime :: Lens.Lens' AffectedEntity (Prelude.Maybe Prelude.UTCTime)+affectedEntity_lastUpdatedTime = Lens.lens (\AffectedEntity' {lastUpdatedTime} -> lastUpdatedTime) (\s@AffectedEntity' {} a -> s {lastUpdatedTime = a} :: AffectedEntity) Prelude.. Lens.mapping Data._Time++-- | The most recent status of the entity affected by the event. The possible+-- values are @IMPAIRED@, @UNIMPAIRED@, and @UNKNOWN@.+affectedEntity_statusCode :: Lens.Lens' AffectedEntity (Prelude.Maybe EntityStatusCode)+affectedEntity_statusCode = Lens.lens (\AffectedEntity' {statusCode} -> statusCode) (\s@AffectedEntity' {} a -> s {statusCode = a} :: AffectedEntity)++-- | A map of entity tags attached to the affected entity.+--+-- Currently, the @tags@ property isn\'t supported.+affectedEntity_tags :: Lens.Lens' AffectedEntity (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+affectedEntity_tags = Lens.lens (\AffectedEntity' {tags} -> tags) (\s@AffectedEntity' {} a -> s {tags = a} :: AffectedEntity) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON AffectedEntity where+  parseJSON =+    Data.withObject+      "AffectedEntity"+      ( \x ->+          AffectedEntity'+            Prelude.<$> (x Data..:? "awsAccountId")+            Prelude.<*> (x Data..:? "entityArn")+            Prelude.<*> (x Data..:? "entityUrl")+            Prelude.<*> (x Data..:? "entityValue")+            Prelude.<*> (x Data..:? "eventArn")+            Prelude.<*> (x Data..:? "lastUpdatedTime")+            Prelude.<*> (x Data..:? "statusCode")+            Prelude.<*> (x Data..:? "tags" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable AffectedEntity where+  hashWithSalt _salt AffectedEntity' {..} =+    _salt+      `Prelude.hashWithSalt` awsAccountId+      `Prelude.hashWithSalt` entityArn+      `Prelude.hashWithSalt` entityUrl+      `Prelude.hashWithSalt` entityValue+      `Prelude.hashWithSalt` eventArn+      `Prelude.hashWithSalt` lastUpdatedTime+      `Prelude.hashWithSalt` statusCode+      `Prelude.hashWithSalt` tags++instance Prelude.NFData AffectedEntity where+  rnf AffectedEntity' {..} =+    Prelude.rnf awsAccountId+      `Prelude.seq` Prelude.rnf entityArn+      `Prelude.seq` Prelude.rnf entityUrl+      `Prelude.seq` Prelude.rnf entityValue+      `Prelude.seq` Prelude.rnf eventArn+      `Prelude.seq` Prelude.rnf lastUpdatedTime+      `Prelude.seq` Prelude.rnf statusCode+      `Prelude.seq` Prelude.rnf tags

@@ -0,0 +1,91 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.DateTimeRange+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.DateTimeRange where++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++-- | A range of dates and times that is used by the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EventFilter.html EventFilter>+-- and+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_EntityFilter.html EntityFilter>+-- objects. If @from@ is set and @to@ is set: match items where the+-- timestamp (@startTime@, @endTime@, or @lastUpdatedTime@) is between+-- @from@ and @to@ inclusive. If @from@ is set and @to@ is not set: match+-- items where the timestamp value is equal to or after @from@. If @from@+-- is not set and @to@ is set: match items where the timestamp value is+-- equal to or before @to@.+--+-- /See:/ 'newDateTimeRange' smart constructor.+data DateTimeRange = DateTimeRange'+  { -- | The starting date and time of a time range.+    from :: Prelude.Maybe Data.POSIX,+    -- | The ending date and time of a time range.+    to :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DateTimeRange' 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:+--+-- 'from', 'dateTimeRange_from' - The starting date and time of a time range.+--+-- 'to', 'dateTimeRange_to' - The ending date and time of a time range.+newDateTimeRange ::+  DateTimeRange+newDateTimeRange =+  DateTimeRange'+    { from = Prelude.Nothing,+      to = Prelude.Nothing+    }++-- | The starting date and time of a time range.+dateTimeRange_from :: Lens.Lens' DateTimeRange (Prelude.Maybe Prelude.UTCTime)+dateTimeRange_from = Lens.lens (\DateTimeRange' {from} -> from) (\s@DateTimeRange' {} a -> s {from = a} :: DateTimeRange) Prelude.. Lens.mapping Data._Time++-- | The ending date and time of a time range.+dateTimeRange_to :: Lens.Lens' DateTimeRange (Prelude.Maybe Prelude.UTCTime)+dateTimeRange_to = Lens.lens (\DateTimeRange' {to} -> to) (\s@DateTimeRange' {} a -> s {to = a} :: DateTimeRange) Prelude.. Lens.mapping Data._Time++instance Prelude.Hashable DateTimeRange where+  hashWithSalt _salt DateTimeRange' {..} =+    _salt+      `Prelude.hashWithSalt` from+      `Prelude.hashWithSalt` to++instance Prelude.NFData DateTimeRange where+  rnf DateTimeRange' {..} =+    Prelude.rnf from `Prelude.seq` Prelude.rnf to++instance Data.ToJSON DateTimeRange where+  toJSON DateTimeRange' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("from" Data..=) Prelude.<$> from,+            ("to" Data..=) Prelude.<$> to+          ]+      )

@@ -0,0 +1,105 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.EntityAggregate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.EntityAggregate where++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++-- | The number of entities that are affected by one or more events. Returned+-- by the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEntityAggregates.html DescribeEntityAggregates>+-- operation.+--+-- /See:/ 'newEntityAggregate' smart constructor.+data EntityAggregate = EntityAggregate'+  { -- | The number of entities that match the criteria for the specified events.+    count :: Prelude.Maybe Prelude.Int,+    -- | The unique identifier for the event. The event ARN has the+    -- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+    -- format.+    --+    -- For example, an event ARN might look like the following:+    --+    -- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+    eventArn :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EntityAggregate' 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:+--+-- 'count', 'entityAggregate_count' - The number of entities that match the criteria for the specified events.+--+-- 'eventArn', 'entityAggregate_eventArn' - The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+newEntityAggregate ::+  EntityAggregate+newEntityAggregate =+  EntityAggregate'+    { count = Prelude.Nothing,+      eventArn = Prelude.Nothing+    }++-- | The number of entities that match the criteria for the specified events.+entityAggregate_count :: Lens.Lens' EntityAggregate (Prelude.Maybe Prelude.Int)+entityAggregate_count = Lens.lens (\EntityAggregate' {count} -> count) (\s@EntityAggregate' {} a -> s {count = a} :: EntityAggregate)++-- | The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+entityAggregate_eventArn :: Lens.Lens' EntityAggregate (Prelude.Maybe Prelude.Text)+entityAggregate_eventArn = Lens.lens (\EntityAggregate' {eventArn} -> eventArn) (\s@EntityAggregate' {} a -> s {eventArn = a} :: EntityAggregate)++instance Data.FromJSON EntityAggregate where+  parseJSON =+    Data.withObject+      "EntityAggregate"+      ( \x ->+          EntityAggregate'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "eventArn")+      )++instance Prelude.Hashable EntityAggregate where+  hashWithSalt _salt EntityAggregate' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` eventArn++instance Prelude.NFData EntityAggregate where+  rnf EntityAggregate' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf eventArn

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.EntityFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.EntityFilter where++import Amazonka.AWSHealth.Types.DateTimeRange+import Amazonka.AWSHealth.Types.EntityStatusCode+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++-- | The values to use to filter results from the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntities.html DescribeAffectedEntities>+-- operation.+--+-- /See:/ 'newEntityFilter' smart constructor.+data EntityFilter = EntityFilter'+  { -- | A list of entity ARNs (unique identifiers).+    entityArns :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),+    -- | A list of IDs for affected entities.+    entityValues :: Prelude.Maybe (Prelude.NonEmpty Prelude.Text),+    -- | A list of the most recent dates and times that the entity was updated.+    lastUpdatedTimes :: Prelude.Maybe (Prelude.NonEmpty DateTimeRange),+    -- | A list of entity status codes (@IMPAIRED@, @UNIMPAIRED@, or @UNKNOWN@).+    statusCodes :: Prelude.Maybe (Prelude.NonEmpty EntityStatusCode),+    -- | A map of entity tags attached to the affected entity.+    --+    -- Currently, the @tags@ property isn\'t supported.+    tags :: Prelude.Maybe [Prelude.HashMap Prelude.Text Prelude.Text],+    -- | A list of event ARNs (unique identifiers). For example:+    -- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+    eventArns :: Prelude.NonEmpty Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EntityFilter' 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:+--+-- 'entityArns', 'entityFilter_entityArns' - A list of entity ARNs (unique identifiers).+--+-- 'entityValues', 'entityFilter_entityValues' - A list of IDs for affected entities.+--+-- 'lastUpdatedTimes', 'entityFilter_lastUpdatedTimes' - A list of the most recent dates and times that the entity was updated.+--+-- 'statusCodes', 'entityFilter_statusCodes' - A list of entity status codes (@IMPAIRED@, @UNIMPAIRED@, or @UNKNOWN@).+--+-- 'tags', 'entityFilter_tags' - A map of entity tags attached to the affected entity.+--+-- Currently, the @tags@ property isn\'t supported.+--+-- 'eventArns', 'entityFilter_eventArns' - A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+newEntityFilter ::+  -- | 'eventArns'+  Prelude.NonEmpty Prelude.Text ->+  EntityFilter+newEntityFilter pEventArns_ =+  EntityFilter'+    { entityArns = Prelude.Nothing,+      entityValues = Prelude.Nothing,+      lastUpdatedTimes = Prelude.Nothing,+      statusCodes = Prelude.Nothing,+      tags = Prelude.Nothing,+      eventArns = Lens.coerced Lens.# pEventArns_+    }++-- | A list of entity ARNs (unique identifiers).+entityFilter_entityArns :: Lens.Lens' EntityFilter (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))+entityFilter_entityArns = Lens.lens (\EntityFilter' {entityArns} -> entityArns) (\s@EntityFilter' {} a -> s {entityArns = a} :: EntityFilter) Prelude.. Lens.mapping Lens.coerced++-- | A list of IDs for affected entities.+entityFilter_entityValues :: Lens.Lens' EntityFilter (Prelude.Maybe (Prelude.NonEmpty Prelude.Text))+entityFilter_entityValues = Lens.lens (\EntityFilter' {entityValues} -> entityValues) (\s@EntityFilter' {} a -> s {entityValues = a} :: EntityFilter) Prelude.. Lens.mapping Lens.coerced++-- | A list of the most recent dates and times that the entity was updated.+entityFilter_lastUpdatedTimes :: Lens.Lens' EntityFilter (Prelude.Maybe (Prelude.NonEmpty DateTimeRange))+entityFilter_lastUpdatedTimes = Lens.lens (\EntityFilter' {lastUpdatedTimes} -> lastUpdatedTimes) (\s@EntityFilter' {} a -> s {lastUpdatedTimes = a} :: EntityFilter) Prelude.. Lens.mapping Lens.coerced++-- | A list of entity status codes (@IMPAIRED@, @UNIMPAIRED@, or @UNKNOWN@).+entityFilter_statusCodes :: Lens.Lens' EntityFilter (Prelude.Maybe (Prelude.NonEmpty EntityStatusCode))+entityFilter_statusCodes = Lens.lens (\EntityFilter' {statusCodes} -> statusCodes) (\s@EntityFilter' {} a -> s {statusCodes = a} :: EntityFilter) Prelude.. Lens.mapping Lens.coerced++-- | A map of entity tags attached to the affected entity.+--+-- Currently, the @tags@ property isn\'t supported.+entityFilter_tags :: Lens.Lens' EntityFilter (Prelude.Maybe [Prelude.HashMap Prelude.Text Prelude.Text])+entityFilter_tags = Lens.lens (\EntityFilter' {tags} -> tags) (\s@EntityFilter' {} a -> s {tags = a} :: EntityFilter) Prelude.. Lens.mapping Lens.coerced++-- | A list of event ARNs (unique identifiers). For example:+-- @\"arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-CDE456\", \"arn:aws:health:us-west-1::event\/EBS\/AWS_EBS_LOST_VOLUME\/AWS_EBS_LOST_VOLUME_CHI789_JKL101\"@+entityFilter_eventArns :: Lens.Lens' EntityFilter (Prelude.NonEmpty Prelude.Text)+entityFilter_eventArns = Lens.lens (\EntityFilter' {eventArns} -> eventArns) (\s@EntityFilter' {} a -> s {eventArns = a} :: EntityFilter) Prelude.. Lens.coerced++instance Prelude.Hashable EntityFilter where+  hashWithSalt _salt EntityFilter' {..} =+    _salt+      `Prelude.hashWithSalt` entityArns+      `Prelude.hashWithSalt` entityValues+      `Prelude.hashWithSalt` lastUpdatedTimes+      `Prelude.hashWithSalt` statusCodes+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` eventArns++instance Prelude.NFData EntityFilter where+  rnf EntityFilter' {..} =+    Prelude.rnf entityArns+      `Prelude.seq` Prelude.rnf entityValues+      `Prelude.seq` Prelude.rnf lastUpdatedTimes+      `Prelude.seq` Prelude.rnf statusCodes+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf eventArns++instance Data.ToJSON EntityFilter where+  toJSON EntityFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("entityArns" Data..=) Prelude.<$> entityArns,+            ("entityValues" Data..=) Prelude.<$> entityValues,+            ("lastUpdatedTimes" Data..=)+              Prelude.<$> lastUpdatedTimes,+            ("statusCodes" Data..=) Prelude.<$> statusCodes,+            ("tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("eventArns" Data..= eventArns)+          ]+      )

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.EntityStatusCode+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.EntityStatusCode+  ( EntityStatusCode+      ( ..,+        EntityStatusCode_IMPAIRED,+        EntityStatusCode_UNIMPAIRED,+        EntityStatusCode_UNKNOWN+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype EntityStatusCode = EntityStatusCode'+  { fromEntityStatusCode ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern EntityStatusCode_IMPAIRED :: EntityStatusCode+pattern EntityStatusCode_IMPAIRED = EntityStatusCode' "IMPAIRED"++pattern EntityStatusCode_UNIMPAIRED :: EntityStatusCode+pattern EntityStatusCode_UNIMPAIRED = EntityStatusCode' "UNIMPAIRED"++pattern EntityStatusCode_UNKNOWN :: EntityStatusCode+pattern EntityStatusCode_UNKNOWN = EntityStatusCode' "UNKNOWN"++{-# COMPLETE+  EntityStatusCode_IMPAIRED,+  EntityStatusCode_UNIMPAIRED,+  EntityStatusCode_UNKNOWN,+  EntityStatusCode'+  #-}

@@ -0,0 +1,293 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.Event+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.Event where++import Amazonka.AWSHealth.Types.EventScopeCode+import Amazonka.AWSHealth.Types.EventStatusCode+import Amazonka.AWSHealth.Types.EventTypeCategory+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++-- | Summary information about an Health event.+--+-- Health events can be public or account-specific:+--+-- -   /Public events/ might be service events that are not specific to an+--     Amazon Web Services account. For example, if there is an issue with+--     an Amazon Web Services Region, Health provides information about the+--     event, even if you don\'t use services or resources in that Region.+--+-- -   /Account-specific/ events are specific to either your Amazon Web+--     Services account or an account in your organization. For example, if+--     there\'s an issue with Amazon Elastic Compute Cloud in a Region that+--     you use, Health provides information about the event and the+--     affected resources in the account.+--+-- You can determine if an event is public or account-specific by using the+-- @eventScopeCode@ parameter. For more information, see+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_Event.html#AWSHealth-Type-Event-eventScopeCode eventScopeCode>.+--+-- /See:/ 'newEvent' smart constructor.+data Event = Event'+  { -- | The unique identifier for the event. The event ARN has the+    -- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+    -- format.+    --+    -- For example, an event ARN might look like the following:+    --+    -- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+    arn :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Web Services Availability Zone of the event. For example,+    -- us-east-1a.+    availabilityZone :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the event ended.+    endTime :: Prelude.Maybe Data.POSIX,+    -- | This parameter specifies if the Health event is a public Amazon Web+    -- Services service event or an account-specific event.+    --+    -- -   If the @eventScopeCode@ value is @PUBLIC@, then the+    --     @affectedAccounts@ value is always empty.+    --+    -- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+    --     @affectedAccounts@ value lists the affected Amazon Web Services+    --     accounts in your organization. For example, if an event affects a+    --     service such as Amazon Elastic Compute Cloud and you have Amazon Web+    --     Services accounts that use that service, those account IDs appear in+    --     the response.+    --+    -- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+    --     you specified in the request is invalid or doesn\'t exist.+    eventScopeCode :: Prelude.Maybe EventScopeCode,+    -- | A list of event type category codes. Possible values are @issue@,+    -- @accountNotification@, or @scheduledChange@. Currently, the+    -- @investigation@ value isn\'t supported at this time.+    eventTypeCategory :: Prelude.Maybe EventTypeCategory,+    -- | The unique identifier for the event type. The format is+    -- @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+    -- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@.+    eventTypeCode :: Prelude.Maybe Prelude.Text,+    -- | The most recent date and time that the event was updated.+    lastUpdatedTime :: Prelude.Maybe Data.POSIX,+    -- | The Amazon Web Services Region name of the event.+    region :: Prelude.Maybe Prelude.Text,+    -- | The Amazon Web Services service that is affected by the event. For+    -- example, @EC2@, @RDS@.+    service :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the event began.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The most recent status of the event. Possible values are @open@,+    -- @closed@, and @upcoming@.+    statusCode :: Prelude.Maybe EventStatusCode+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Event' 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:+--+-- 'arn', 'event_arn' - The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+--+-- 'availabilityZone', 'event_availabilityZone' - The Amazon Web Services Availability Zone of the event. For example,+-- us-east-1a.+--+-- 'endTime', 'event_endTime' - The date and time that the event ended.+--+-- 'eventScopeCode', 'event_eventScopeCode' - This parameter specifies if the Health event is a public Amazon Web+-- Services service event or an account-specific event.+--+-- -   If the @eventScopeCode@ value is @PUBLIC@, then the+--     @affectedAccounts@ value is always empty.+--+-- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+--     @affectedAccounts@ value lists the affected Amazon Web Services+--     accounts in your organization. For example, if an event affects a+--     service such as Amazon Elastic Compute Cloud and you have Amazon Web+--     Services accounts that use that service, those account IDs appear in+--     the response.+--+-- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+--     you specified in the request is invalid or doesn\'t exist.+--+-- 'eventTypeCategory', 'event_eventTypeCategory' - A list of event type category codes. Possible values are @issue@,+-- @accountNotification@, or @scheduledChange@. Currently, the+-- @investigation@ value isn\'t supported at this time.+--+-- 'eventTypeCode', 'event_eventTypeCode' - The unique identifier for the event type. The format is+-- @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+-- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@.+--+-- 'lastUpdatedTime', 'event_lastUpdatedTime' - The most recent date and time that the event was updated.+--+-- 'region', 'event_region' - The Amazon Web Services Region name of the event.+--+-- 'service', 'event_service' - The Amazon Web Services service that is affected by the event. For+-- example, @EC2@, @RDS@.+--+-- 'startTime', 'event_startTime' - The date and time that the event began.+--+-- 'statusCode', 'event_statusCode' - The most recent status of the event. Possible values are @open@,+-- @closed@, and @upcoming@.+newEvent ::+  Event+newEvent =+  Event'+    { arn = Prelude.Nothing,+      availabilityZone = Prelude.Nothing,+      endTime = Prelude.Nothing,+      eventScopeCode = Prelude.Nothing,+      eventTypeCategory = Prelude.Nothing,+      eventTypeCode = Prelude.Nothing,+      lastUpdatedTime = Prelude.Nothing,+      region = Prelude.Nothing,+      service = Prelude.Nothing,+      startTime = Prelude.Nothing,+      statusCode = Prelude.Nothing+    }++-- | The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+event_arn :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_arn = Lens.lens (\Event' {arn} -> arn) (\s@Event' {} a -> s {arn = a} :: Event)++-- | The Amazon Web Services Availability Zone of the event. For example,+-- us-east-1a.+event_availabilityZone :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_availabilityZone = Lens.lens (\Event' {availabilityZone} -> availabilityZone) (\s@Event' {} a -> s {availabilityZone = a} :: Event)++-- | The date and time that the event ended.+event_endTime :: Lens.Lens' Event (Prelude.Maybe Prelude.UTCTime)+event_endTime = Lens.lens (\Event' {endTime} -> endTime) (\s@Event' {} a -> s {endTime = a} :: Event) Prelude.. Lens.mapping Data._Time++-- | This parameter specifies if the Health event is a public Amazon Web+-- Services service event or an account-specific event.+--+-- -   If the @eventScopeCode@ value is @PUBLIC@, then the+--     @affectedAccounts@ value is always empty.+--+-- -   If the @eventScopeCode@ value is @ACCOUNT_SPECIFIC@, then the+--     @affectedAccounts@ value lists the affected Amazon Web Services+--     accounts in your organization. For example, if an event affects a+--     service such as Amazon Elastic Compute Cloud and you have Amazon Web+--     Services accounts that use that service, those account IDs appear in+--     the response.+--+-- -   If the @eventScopeCode@ value is @NONE@, then the @eventArn@ that+--     you specified in the request is invalid or doesn\'t exist.+event_eventScopeCode :: Lens.Lens' Event (Prelude.Maybe EventScopeCode)+event_eventScopeCode = Lens.lens (\Event' {eventScopeCode} -> eventScopeCode) (\s@Event' {} a -> s {eventScopeCode = a} :: Event)++-- | A list of event type category codes. Possible values are @issue@,+-- @accountNotification@, or @scheduledChange@. Currently, the+-- @investigation@ value isn\'t supported at this time.+event_eventTypeCategory :: Lens.Lens' Event (Prelude.Maybe EventTypeCategory)+event_eventTypeCategory = Lens.lens (\Event' {eventTypeCategory} -> eventTypeCategory) (\s@Event' {} a -> s {eventTypeCategory = a} :: Event)++-- | The unique identifier for the event type. The format is+-- @AWS_@/@SERVICE@/@_@/@DESCRIPTION@/@ @; for example,+-- @AWS_EC2_SYSTEM_MAINTENANCE_EVENT@.+event_eventTypeCode :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_eventTypeCode = Lens.lens (\Event' {eventTypeCode} -> eventTypeCode) (\s@Event' {} a -> s {eventTypeCode = a} :: Event)++-- | The most recent date and time that the event was updated.+event_lastUpdatedTime :: Lens.Lens' Event (Prelude.Maybe Prelude.UTCTime)+event_lastUpdatedTime = Lens.lens (\Event' {lastUpdatedTime} -> lastUpdatedTime) (\s@Event' {} a -> s {lastUpdatedTime = a} :: Event) Prelude.. Lens.mapping Data._Time++-- | The Amazon Web Services Region name of the event.+event_region :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_region = Lens.lens (\Event' {region} -> region) (\s@Event' {} a -> s {region = a} :: Event)++-- | The Amazon Web Services service that is affected by the event. For+-- example, @EC2@, @RDS@.+event_service :: Lens.Lens' Event (Prelude.Maybe Prelude.Text)+event_service = Lens.lens (\Event' {service} -> service) (\s@Event' {} a -> s {service = a} :: Event)++-- | The date and time that the event began.+event_startTime :: Lens.Lens' Event (Prelude.Maybe Prelude.UTCTime)+event_startTime = Lens.lens (\Event' {startTime} -> startTime) (\s@Event' {} a -> s {startTime = a} :: Event) Prelude.. Lens.mapping Data._Time++-- | The most recent status of the event. Possible values are @open@,+-- @closed@, and @upcoming@.+event_statusCode :: Lens.Lens' Event (Prelude.Maybe EventStatusCode)+event_statusCode = Lens.lens (\Event' {statusCode} -> statusCode) (\s@Event' {} a -> s {statusCode = a} :: Event)++instance Data.FromJSON Event where+  parseJSON =+    Data.withObject+      "Event"+      ( \x ->+          Event'+            Prelude.<$> (x Data..:? "arn")+            Prelude.<*> (x Data..:? "availabilityZone")+            Prelude.<*> (x Data..:? "endTime")+            Prelude.<*> (x Data..:? "eventScopeCode")+            Prelude.<*> (x Data..:? "eventTypeCategory")+            Prelude.<*> (x Data..:? "eventTypeCode")+            Prelude.<*> (x Data..:? "lastUpdatedTime")+            Prelude.<*> (x Data..:? "region")+            Prelude.<*> (x Data..:? "service")+            Prelude.<*> (x Data..:? "startTime")+            Prelude.<*> (x Data..:? "statusCode")+      )++instance Prelude.Hashable Event where+  hashWithSalt _salt Event' {..} =+    _salt+      `Prelude.hashWithSalt` arn+      `Prelude.hashWithSalt` availabilityZone+      `Prelude.hashWithSalt` endTime+      `Prelude.hashWithSalt` eventScopeCode+      `Prelude.hashWithSalt` eventTypeCategory+      `Prelude.hashWithSalt` eventTypeCode+      `Prelude.hashWithSalt` lastUpdatedTime+      `Prelude.hashWithSalt` region+      `Prelude.hashWithSalt` service+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` statusCode++instance Prelude.NFData Event where+  rnf Event' {..} =+    Prelude.rnf arn+      `Prelude.seq` Prelude.rnf availabilityZone+      `Prelude.seq` Prelude.rnf endTime+      `Prelude.seq` Prelude.rnf eventScopeCode+      `Prelude.seq` Prelude.rnf eventTypeCategory+      `Prelude.seq` Prelude.rnf eventTypeCode+      `Prelude.seq` Prelude.rnf lastUpdatedTime+      `Prelude.seq` Prelude.rnf region+      `Prelude.seq` Prelude.rnf service+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf statusCode

@@ -0,0 +1,110 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.EventAccountFilter+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.EventAccountFilter where++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++-- | The values used to filter results from the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEventDetailsForOrganization.html DescribeEventDetailsForOrganization>+-- and+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeAffectedEntitiesForOrganization.html DescribeAffectedEntitiesForOrganization>+-- operations.+--+-- /See:/ 'newEventAccountFilter' smart constructor.+data EventAccountFilter = EventAccountFilter'+  { -- | The 12-digit Amazon Web Services account numbers that contains the+    -- affected entities.+    awsAccountId :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier for the event. The event ARN has the+    -- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+    -- format.+    --+    -- For example, an event ARN might look like the following:+    --+    -- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+    eventArn :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventAccountFilter' 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:+--+-- 'awsAccountId', 'eventAccountFilter_awsAccountId' - The 12-digit Amazon Web Services account numbers that contains the+-- affected entities.+--+-- 'eventArn', 'eventAccountFilter_eventArn' - The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+newEventAccountFilter ::+  -- | 'eventArn'+  Prelude.Text ->+  EventAccountFilter+newEventAccountFilter pEventArn_ =+  EventAccountFilter'+    { awsAccountId = Prelude.Nothing,+      eventArn = pEventArn_+    }++-- | The 12-digit Amazon Web Services account numbers that contains the+-- affected entities.+eventAccountFilter_awsAccountId :: Lens.Lens' EventAccountFilter (Prelude.Maybe Prelude.Text)+eventAccountFilter_awsAccountId = Lens.lens (\EventAccountFilter' {awsAccountId} -> awsAccountId) (\s@EventAccountFilter' {} a -> s {awsAccountId = a} :: EventAccountFilter)++-- | The unique identifier for the event. The event ARN has the+-- @arn:aws:health:@/@event-region@/@::event\/@/@SERVICE@/@\/@/@EVENT_TYPE_CODE@/@\/@/@EVENT_TYPE_PLUS_ID@/@ @+-- format.+--+-- For example, an event ARN might look like the following:+--+-- @arn:aws:health:us-east-1::event\/EC2\/EC2_INSTANCE_RETIREMENT_SCHEDULED\/EC2_INSTANCE_RETIREMENT_SCHEDULED_ABC123-DEF456@+eventAccountFilter_eventArn :: Lens.Lens' EventAccountFilter Prelude.Text+eventAccountFilter_eventArn = Lens.lens (\EventAccountFilter' {eventArn} -> eventArn) (\s@EventAccountFilter' {} a -> s {eventArn = a} :: EventAccountFilter)++instance Prelude.Hashable EventAccountFilter where+  hashWithSalt _salt EventAccountFilter' {..} =+    _salt+      `Prelude.hashWithSalt` awsAccountId+      `Prelude.hashWithSalt` eventArn++instance Prelude.NFData EventAccountFilter where+  rnf EventAccountFilter' {..} =+    Prelude.rnf awsAccountId+      `Prelude.seq` Prelude.rnf eventArn++instance Data.ToJSON EventAccountFilter where+  toJSON EventAccountFilter' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("awsAccountId" Data..=) Prelude.<$> awsAccountId,+            Prelude.Just ("eventArn" Data..= eventArn)+          ]+      )

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.AWSHealth.Types.EventAggregate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.AWSHealth.Types.EventAggregate where++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++-- | The number of events of each issue type. Returned by the+-- <https://docs.aws.amazon.com/health/latest/APIReference/API_DescribeEventAggregates.html DescribeEventAggregates>+-- operation.+--+-- /See:/ 'newEventAggregate' smart constructor.+data EventAggregate = EventAggregate'+  { -- | The issue type for the associated count.+    aggregateValue :: Prelude.Maybe Prelude.Text,+    -- | The number of events of the associated issue type.+    count :: Prelude.Maybe Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventAggregate' 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:+--+-- 'aggregateValue', 'eventAggregate_aggregateValue' - The issue type for the associated count.+--+-- 'count', 'eventAggregate_count' - The number of events of the associated issue type.+newEventAggregate ::+  EventAggregate+newEventAggregate =+  EventAggregate'+    { aggregateValue = Prelude.Nothing,+      count = Prelude.Nothing+    }++-- | The issue type for the associated count.+eventAggregate_aggregateValue :: Lens.Lens' EventAggregate (Prelude.Maybe Prelude.Text)+eventAggregate_aggregateValue = Lens.lens (\EventAggregate' {aggregateValue} -> aggregateValue) (\s@EventAggregate' {} a -> s {aggregateValue = a} :: EventAggregate)++-- | The number of events of the associated issue type.+eventAggregate_count :: Lens.Lens' EventAggregate (Prelude.Maybe Prelude.Int)+eventAggregate_count = Lens.lens (\EventAggregate' {count} -> count) (\s@EventAggregate' {} a -> s {count = a} :: EventAggregate)++instance Data.FromJSON EventAggregate where+  parseJSON =+    Data.withObject+      "EventAggregate"+      ( \x ->+          EventAggregate'+            Prelude.<$> (x Data..:? "aggregateValue")+            Prelude.<*> (x Data..:? "count")+      )++instance Prelude.Hashable EventAggregate where+  hashWithSalt _salt EventAggregate' {..} =+    _salt+      `Prelude.hashWithSalt` aggregateValue+      `Prelude.hashWithSalt` count++instance Prelude.NFData EventAggregate where+  rnf EventAggregate' {..} =+    Prelude.rnf aggregateValue+      `Prelude.seq` Prelude.rnf count