amazonka-cloudtrail 1.6.1 → 2.0

raw patch · 168 files changed

+19460/−4681 lines, 168 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-cloudtrail.cabal +145/−88
• fixture/AddTags.yaml +10/−0
• fixture/CancelQuery.yaml +10/−0
• fixture/CancelQueryResponse.proto +0/−0
• fixture/CreateEventDataStore.yaml +10/−0
• fixture/CreateEventDataStoreResponse.proto +0/−0
• fixture/CreateTrail.yaml +10/−0
• fixture/DeleteEventDataStore.yaml +10/−0
• fixture/DeleteEventDataStoreResponse.proto +0/−0
• fixture/DeleteTrail.yaml +10/−0
• fixture/DeregisterOrganizationDelegatedAdmin.yaml +10/−0
• fixture/DeregisterOrganizationDelegatedAdminResponse.proto +0/−0
• fixture/DescribeQuery.yaml +10/−0
• fixture/DescribeQueryResponse.proto +0/−0
• fixture/DescribeTrails.yaml +10/−0
• fixture/GetChannel.yaml +10/−0
• fixture/GetChannelResponse.proto +0/−0
• fixture/GetEventDataStore.yaml +10/−0
• fixture/GetEventDataStoreResponse.proto +0/−0
• fixture/GetEventSelectors.yaml +10/−0
• fixture/GetImport.yaml +10/−0
• fixture/GetImportResponse.proto +0/−0
• fixture/GetInsightSelectors.yaml +10/−0
• fixture/GetInsightSelectorsResponse.proto +0/−0
• fixture/GetQueryResults.yaml +10/−0
• fixture/GetQueryResultsResponse.proto +0/−0
• fixture/GetTrail.yaml +10/−0
• fixture/GetTrailResponse.proto +0/−0
• fixture/GetTrailStatus.yaml +10/−0
• fixture/ListChannels.yaml +10/−0
• fixture/ListChannelsResponse.proto +0/−0
• fixture/ListEventDataStores.yaml +10/−0
• fixture/ListEventDataStoresResponse.proto +0/−0
• fixture/ListImportFailures.yaml +10/−0
• fixture/ListImportFailuresResponse.proto +0/−0
• fixture/ListImports.yaml +10/−0
• fixture/ListImportsResponse.proto +0/−0
• fixture/ListPublicKeys.yaml +10/−0
• fixture/ListQueries.yaml +10/−0
• fixture/ListQueriesResponse.proto +0/−0
• fixture/ListTags.yaml +10/−0
• fixture/ListTrails.yaml +10/−0
• fixture/ListTrailsResponse.proto +0/−0
• fixture/LookupEvents.yaml +10/−0
• fixture/PutEventSelectors.yaml +10/−0
• fixture/PutInsightSelectors.yaml +10/−0
• fixture/PutInsightSelectorsResponse.proto +0/−0
• fixture/RegisterOrganizationDelegatedAdmin.yaml +10/−0
• fixture/RegisterOrganizationDelegatedAdminResponse.proto +0/−0
• fixture/RemoveTags.yaml +10/−0
• fixture/RestoreEventDataStore.yaml +10/−0
• fixture/RestoreEventDataStoreResponse.proto +0/−0
• fixture/StartImport.yaml +10/−0
• fixture/StartImportResponse.proto +0/−0
• fixture/StartLogging.yaml +10/−0
• fixture/StartQuery.yaml +10/−0
• fixture/StartQueryResponse.proto +0/−0
• fixture/StopImport.yaml +10/−0
• fixture/StopImportResponse.proto +0/−0
• fixture/StopLogging.yaml +10/−0
• fixture/UpdateEventDataStore.yaml +10/−0
• fixture/UpdateEventDataStoreResponse.proto +0/−0
• fixture/UpdateTrail.yaml +10/−0
• gen/Amazonka/CloudTrail.hs +698/−0
• gen/Amazonka/CloudTrail/AddTags.hs +189/−0
• gen/Amazonka/CloudTrail/CancelQuery.hs +216/−0
• gen/Amazonka/CloudTrail/CreateEventDataStore.hs +539/−0
• gen/Amazonka/CloudTrail/CreateTrail.hs +706/−0
• gen/Amazonka/CloudTrail/DeleteEventDataStore.hs +173/−0
• gen/Amazonka/CloudTrail/DeleteTrail.hs +163/−0
• gen/Amazonka/CloudTrail/DeregisterOrganizationDelegatedAdmin.hs +204/−0
• gen/Amazonka/CloudTrail/DescribeQuery.hs +276/−0
• gen/Amazonka/CloudTrail/DescribeTrails.hs +276/−0
• gen/Amazonka/CloudTrail/GetChannel.hs +235/−0
• gen/Amazonka/CloudTrail/GetEventDataStore.hs +328/−0
• gen/Amazonka/CloudTrail/GetEventSelectors.hs +264/−0
• gen/Amazonka/CloudTrail/GetImport.hs +283/−0
• gen/Amazonka/CloudTrail/GetInsightSelectors.hs +252/−0
• gen/Amazonka/CloudTrail/GetQueryResults.hs +272/−0
• gen/Amazonka/CloudTrail/GetTrail.hs +166/−0
• gen/Amazonka/CloudTrail/GetTrailStatus.hs +478/−0
• gen/Amazonka/CloudTrail/Lens.hs +622/−0
• gen/Amazonka/CloudTrail/ListChannels.hs +212/−0
• gen/Amazonka/CloudTrail/ListEventDataStores.hs +203/−0
• gen/Amazonka/CloudTrail/ListImportFailures.hs +235/−0
• gen/Amazonka/CloudTrail/ListImports.hs +244/−0
• gen/Amazonka/CloudTrail/ListPublicKeys.hs +264/−0
• gen/Amazonka/CloudTrail/ListQueries.hs +271/−0
• gen/Amazonka/CloudTrail/ListTags.hs +229/−0
• gen/Amazonka/CloudTrail/ListTrails.hs +226/−0
• gen/Amazonka/CloudTrail/LookupEvents.hs +371/−0
• gen/Amazonka/CloudTrail/PutEventSelectors.hs +373/−0
• gen/Amazonka/CloudTrail/PutInsightSelectors.hs +224/−0
• gen/Amazonka/CloudTrail/RegisterOrganizationDelegatedAdmin.hs +200/−0
• gen/Amazonka/CloudTrail/RemoveTags.hs +194/−0
• gen/Amazonka/CloudTrail/RestoreEventDataStore.hs +335/−0
• gen/Amazonka/CloudTrail/StartImport.hs +379/−0
• gen/Amazonka/CloudTrail/StartLogging.hs +172/−0
• gen/Amazonka/CloudTrail/StartQuery.hs +187/−0
• gen/Amazonka/CloudTrail/StopImport.hs +274/−0
• gen/Amazonka/CloudTrail/StopLogging.hs +174/−0
• gen/Amazonka/CloudTrail/Types.hs +1052/−0
• gen/Amazonka/CloudTrail/Types/AdvancedEventSelector.hs +121/−0
• gen/Amazonka/CloudTrail/Types/AdvancedFieldSelector.hs +547/−0
• gen/Amazonka/CloudTrail/Types/Channel.hs +96/−0
• gen/Amazonka/CloudTrail/Types/DataResource.hs +344/−0
• gen/Amazonka/CloudTrail/Types/DeliveryStatus.hs +106/−0
• gen/Amazonka/CloudTrail/Types/Destination.hs +92/−0
• gen/Amazonka/CloudTrail/Types/DestinationType.hs +71/−0
• gen/Amazonka/CloudTrail/Types/Event.hs +179/−0
• gen/Amazonka/CloudTrail/Types/EventCategory.hs +66/−0
• gen/Amazonka/CloudTrail/Types/EventDataStore.hs +217/−0
• gen/Amazonka/CloudTrail/Types/EventDataStoreStatus.hs +76/−0
• gen/Amazonka/CloudTrail/Types/EventSelector.hs +243/−0
• gen/Amazonka/CloudTrail/Types/ImportFailureListItem.hs +122/−0
• gen/Amazonka/CloudTrail/Types/ImportFailureStatus.hs +76/−0
• gen/Amazonka/CloudTrail/Types/ImportSource.hs +72/−0
• gen/Amazonka/CloudTrail/Types/ImportStatistics.hs +125/−0
• gen/Amazonka/CloudTrail/Types/ImportStatus.hs +86/−0
• gen/Amazonka/CloudTrail/Types/ImportsListItem.hs +123/−0
• gen/Amazonka/CloudTrail/Types/InsightSelector.hs +80/−0
• gen/Amazonka/CloudTrail/Types/InsightType.hs +71/−0
• gen/Amazonka/CloudTrail/Types/LookupAttribute.hs +89/−0
• gen/Amazonka/CloudTrail/Types/LookupAttributeKey.hs +101/−0
• gen/Amazonka/CloudTrail/Types/PublicKey.hs +116/−0
• gen/Amazonka/CloudTrail/Types/Query.hs +101/−0
• gen/Amazonka/CloudTrail/Types/QueryStatistics.hs +102/−0
• gen/Amazonka/CloudTrail/Types/QueryStatisticsForDescribeQuery.hs +140/−0
• gen/Amazonka/CloudTrail/Types/QueryStatus.hs +91/−0
• gen/Amazonka/CloudTrail/Types/ReadWriteType.hs +76/−0
• gen/Amazonka/CloudTrail/Types/Resource.hs +111/−0
• gen/Amazonka/CloudTrail/Types/ResourceTag.hs +85/−0
• gen/Amazonka/CloudTrail/Types/S3ImportSource.hs +120/−0
• gen/Amazonka/CloudTrail/Types/SourceConfig.hs +92/−0
• gen/Amazonka/CloudTrail/Types/Tag.hs +101/−0
• gen/Amazonka/CloudTrail/Types/Trail.hs +318/−0
• gen/Amazonka/CloudTrail/Types/TrailInfo.hs +97/−0
• gen/Amazonka/CloudTrail/UpdateEventDataStore.hs +529/−0
• gen/Amazonka/CloudTrail/UpdateTrail.hs +730/−0
• gen/Amazonka/CloudTrail/Waiters.hs +24/−0
• gen/Network/AWS/CloudTrail.hs +0/−308
• gen/Network/AWS/CloudTrail/AddTags.hs +0/−140
• gen/Network/AWS/CloudTrail/CreateTrail.hs +0/−352
• gen/Network/AWS/CloudTrail/DeleteTrail.hs +0/−129
• gen/Network/AWS/CloudTrail/DescribeTrails.hs +0/−152
• gen/Network/AWS/CloudTrail/GetEventSelectors.hs +0/−155
• gen/Network/AWS/CloudTrail/GetTrailStatus.hs +0/−302
• gen/Network/AWS/CloudTrail/ListPublicKeys.hs +0/−173
• gen/Network/AWS/CloudTrail/ListTags.hs +0/−162
• gen/Network/AWS/CloudTrail/LookupEvents.hs +0/−225
• gen/Network/AWS/CloudTrail/PutEventSelectors.hs +0/−174
• gen/Network/AWS/CloudTrail/RemoveTags.hs +0/−141
• gen/Network/AWS/CloudTrail/StartLogging.hs +0/−129
• gen/Network/AWS/CloudTrail/StopLogging.hs +0/−129
• gen/Network/AWS/CloudTrail/Types.hs +0/−469
• gen/Network/AWS/CloudTrail/Types/Product.hs +0/−641
• gen/Network/AWS/CloudTrail/Types/Sum.hs +0/−92
• gen/Network/AWS/CloudTrail/UpdateTrail.hs +0/−351
• gen/Network/AWS/CloudTrail/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/CloudTrail.hs +0/−26
• test/Test/AWS/CloudTrail/Internal.hs +0/−16
• test/Test/AWS/Gen/CloudTrail.hs +0/−291
• test/Test/Amazonka/CloudTrail.hs +20/−0
• test/Test/Amazonka/CloudTrail/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudTrail.hs +798/−0

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

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

@@ -1,99 +1,156 @@-name:                  amazonka-cloudtrail-version:               1.6.1-synopsis:              Amazon CloudTrail 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-cloudtrail+version:            2.0+synopsis:           Amazon CloudTrail 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.CloudTrail" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2013-11-01@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.CloudTrail.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.CloudTrail" 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-cloudtrail+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudtrail  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.CloudTrail-        , Network.AWS.CloudTrail.AddTags-        , Network.AWS.CloudTrail.CreateTrail-        , Network.AWS.CloudTrail.DeleteTrail-        , Network.AWS.CloudTrail.DescribeTrails-        , Network.AWS.CloudTrail.GetEventSelectors-        , Network.AWS.CloudTrail.GetTrailStatus-        , Network.AWS.CloudTrail.ListPublicKeys-        , Network.AWS.CloudTrail.ListTags-        , Network.AWS.CloudTrail.LookupEvents-        , Network.AWS.CloudTrail.PutEventSelectors-        , Network.AWS.CloudTrail.RemoveTags-        , Network.AWS.CloudTrail.StartLogging-        , Network.AWS.CloudTrail.StopLogging-        , Network.AWS.CloudTrail.Types-        , Network.AWS.CloudTrail.UpdateTrail-        , Network.AWS.CloudTrail.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.CloudTrail.Types.Product-        , Network.AWS.CloudTrail.Types.Sum+  exposed-modules:+    Amazonka.CloudTrail+    Amazonka.CloudTrail.AddTags+    Amazonka.CloudTrail.CancelQuery+    Amazonka.CloudTrail.CreateEventDataStore+    Amazonka.CloudTrail.CreateTrail+    Amazonka.CloudTrail.DeleteEventDataStore+    Amazonka.CloudTrail.DeleteTrail+    Amazonka.CloudTrail.DeregisterOrganizationDelegatedAdmin+    Amazonka.CloudTrail.DescribeQuery+    Amazonka.CloudTrail.DescribeTrails+    Amazonka.CloudTrail.GetChannel+    Amazonka.CloudTrail.GetEventDataStore+    Amazonka.CloudTrail.GetEventSelectors+    Amazonka.CloudTrail.GetImport+    Amazonka.CloudTrail.GetInsightSelectors+    Amazonka.CloudTrail.GetQueryResults+    Amazonka.CloudTrail.GetTrail+    Amazonka.CloudTrail.GetTrailStatus+    Amazonka.CloudTrail.Lens+    Amazonka.CloudTrail.ListChannels+    Amazonka.CloudTrail.ListEventDataStores+    Amazonka.CloudTrail.ListImportFailures+    Amazonka.CloudTrail.ListImports+    Amazonka.CloudTrail.ListPublicKeys+    Amazonka.CloudTrail.ListQueries+    Amazonka.CloudTrail.ListTags+    Amazonka.CloudTrail.ListTrails+    Amazonka.CloudTrail.LookupEvents+    Amazonka.CloudTrail.PutEventSelectors+    Amazonka.CloudTrail.PutInsightSelectors+    Amazonka.CloudTrail.RegisterOrganizationDelegatedAdmin+    Amazonka.CloudTrail.RemoveTags+    Amazonka.CloudTrail.RestoreEventDataStore+    Amazonka.CloudTrail.StartImport+    Amazonka.CloudTrail.StartLogging+    Amazonka.CloudTrail.StartQuery+    Amazonka.CloudTrail.StopImport+    Amazonka.CloudTrail.StopLogging+    Amazonka.CloudTrail.Types+    Amazonka.CloudTrail.Types.AdvancedEventSelector+    Amazonka.CloudTrail.Types.AdvancedFieldSelector+    Amazonka.CloudTrail.Types.Channel+    Amazonka.CloudTrail.Types.DataResource+    Amazonka.CloudTrail.Types.DeliveryStatus+    Amazonka.CloudTrail.Types.Destination+    Amazonka.CloudTrail.Types.DestinationType+    Amazonka.CloudTrail.Types.Event+    Amazonka.CloudTrail.Types.EventCategory+    Amazonka.CloudTrail.Types.EventDataStore+    Amazonka.CloudTrail.Types.EventDataStoreStatus+    Amazonka.CloudTrail.Types.EventSelector+    Amazonka.CloudTrail.Types.ImportFailureListItem+    Amazonka.CloudTrail.Types.ImportFailureStatus+    Amazonka.CloudTrail.Types.ImportsListItem+    Amazonka.CloudTrail.Types.ImportSource+    Amazonka.CloudTrail.Types.ImportStatistics+    Amazonka.CloudTrail.Types.ImportStatus+    Amazonka.CloudTrail.Types.InsightSelector+    Amazonka.CloudTrail.Types.InsightType+    Amazonka.CloudTrail.Types.LookupAttribute+    Amazonka.CloudTrail.Types.LookupAttributeKey+    Amazonka.CloudTrail.Types.PublicKey+    Amazonka.CloudTrail.Types.Query+    Amazonka.CloudTrail.Types.QueryStatistics+    Amazonka.CloudTrail.Types.QueryStatisticsForDescribeQuery+    Amazonka.CloudTrail.Types.QueryStatus+    Amazonka.CloudTrail.Types.ReadWriteType+    Amazonka.CloudTrail.Types.Resource+    Amazonka.CloudTrail.Types.ResourceTag+    Amazonka.CloudTrail.Types.S3ImportSource+    Amazonka.CloudTrail.Types.SourceConfig+    Amazonka.CloudTrail.Types.Tag+    Amazonka.CloudTrail.Types.Trail+    Amazonka.CloudTrail.Types.TrailInfo+    Amazonka.CloudTrail.UpdateEventDataStore+    Amazonka.CloudTrail.UpdateTrail+    Amazonka.CloudTrail.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-cloudtrail-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.CloudTrail-        , Test.AWS.Gen.CloudTrail-        , Test.AWS.CloudTrail.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.CloudTrail+    Test.Amazonka.CloudTrail.Internal+    Test.Amazonka.Gen.CloudTrail -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudtrail-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudtrail+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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/cloudtrail/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudtrail.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,698 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudTrail+-- 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 @2013-11-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- CloudTrail+--+-- This is the CloudTrail API Reference. It provides descriptions of+-- actions, data types, common parameters, and common errors for+-- CloudTrail.+--+-- CloudTrail is a web service that records Amazon Web Services API calls+-- for your Amazon Web Services account and delivers log files to an Amazon+-- S3 bucket. The recorded information includes the identity of the user,+-- the start time of the Amazon Web Services API call, the source IP+-- address, the request parameters, and the response elements returned by+-- the service.+--+-- As an alternative to the API, you can use one of the Amazon Web Services+-- SDKs, which consist of libraries and sample code for various programming+-- languages and platforms (Java, Ruby, .NET, iOS, Android, etc.). The SDKs+-- provide programmatic access to CloudTrail. For example, the SDKs handle+-- cryptographically signing requests, managing errors, and retrying+-- requests automatically. For more information about the Amazon Web+-- Services SDKs, including how to download and install them, see+-- <http://aws.amazon.com/tools/ Tools to Build on Amazon Web Services>.+--+-- See the+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-user-guide.html CloudTrail User Guide>+-- for information about the data that is included with each Amazon Web+-- Services API call listed in the log files.+module Amazonka.CloudTrail+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccountHasOngoingImportException+    _AccountHasOngoingImportException,++    -- ** AccountNotFoundException+    _AccountNotFoundException,++    -- ** AccountNotRegisteredException+    _AccountNotRegisteredException,++    -- ** AccountRegisteredException+    _AccountRegisteredException,++    -- ** CannotDelegateManagementAccountException+    _CannotDelegateManagementAccountException,++    -- ** ChannelARNInvalidException+    _ChannelARNInvalidException,++    -- ** ChannelNotFoundException+    _ChannelNotFoundException,++    -- ** CloudTrailARNInvalidException+    _CloudTrailARNInvalidException,++    -- ** CloudTrailAccessNotEnabledException+    _CloudTrailAccessNotEnabledException,++    -- ** CloudTrailInvalidClientTokenIdException+    _CloudTrailInvalidClientTokenIdException,++    -- ** CloudWatchLogsDeliveryUnavailableException+    _CloudWatchLogsDeliveryUnavailableException,++    -- ** ConflictException+    _ConflictException,++    -- ** DelegatedAdminAccountLimitExceededException+    _DelegatedAdminAccountLimitExceededException,++    -- ** EventDataStoreARNInvalidException+    _EventDataStoreARNInvalidException,++    -- ** EventDataStoreAlreadyExistsException+    _EventDataStoreAlreadyExistsException,++    -- ** EventDataStoreHasOngoingImportException+    _EventDataStoreHasOngoingImportException,++    -- ** EventDataStoreMaxLimitExceededException+    _EventDataStoreMaxLimitExceededException,++    -- ** EventDataStoreNotFoundException+    _EventDataStoreNotFoundException,++    -- ** EventDataStoreTerminationProtectedException+    _EventDataStoreTerminationProtectedException,++    -- ** ImportNotFoundException+    _ImportNotFoundException,++    -- ** InactiveEventDataStoreException+    _InactiveEventDataStoreException,++    -- ** InactiveQueryException+    _InactiveQueryException,++    -- ** InsightNotEnabledException+    _InsightNotEnabledException,++    -- ** InsufficientDependencyServiceAccessPermissionException+    _InsufficientDependencyServiceAccessPermissionException,++    -- ** InsufficientEncryptionPolicyException+    _InsufficientEncryptionPolicyException,++    -- ** InsufficientS3BucketPolicyException+    _InsufficientS3BucketPolicyException,++    -- ** InsufficientSnsTopicPolicyException+    _InsufficientSnsTopicPolicyException,++    -- ** InvalidCloudWatchLogsLogGroupArnException+    _InvalidCloudWatchLogsLogGroupArnException,++    -- ** InvalidCloudWatchLogsRoleArnException+    _InvalidCloudWatchLogsRoleArnException,++    -- ** InvalidDateRangeException+    _InvalidDateRangeException,++    -- ** InvalidEventCategoryException+    _InvalidEventCategoryException,++    -- ** InvalidEventDataStoreCategoryException+    _InvalidEventDataStoreCategoryException,++    -- ** InvalidEventDataStoreStatusException+    _InvalidEventDataStoreStatusException,++    -- ** InvalidEventSelectorsException+    _InvalidEventSelectorsException,++    -- ** InvalidHomeRegionException+    _InvalidHomeRegionException,++    -- ** InvalidImportSourceException+    _InvalidImportSourceException,++    -- ** InvalidInsightSelectorsException+    _InvalidInsightSelectorsException,++    -- ** InvalidKmsKeyIdException+    _InvalidKmsKeyIdException,++    -- ** InvalidLookupAttributesException+    _InvalidLookupAttributesException,++    -- ** InvalidMaxResultsException+    _InvalidMaxResultsException,++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** InvalidParameterCombinationException+    _InvalidParameterCombinationException,++    -- ** InvalidParameterException+    _InvalidParameterException,++    -- ** InvalidQueryStatementException+    _InvalidQueryStatementException,++    -- ** InvalidQueryStatusException+    _InvalidQueryStatusException,++    -- ** InvalidS3BucketNameException+    _InvalidS3BucketNameException,++    -- ** InvalidS3PrefixException+    _InvalidS3PrefixException,++    -- ** InvalidSnsTopicNameException+    _InvalidSnsTopicNameException,++    -- ** InvalidTagParameterException+    _InvalidTagParameterException,++    -- ** InvalidTimeRangeException+    _InvalidTimeRangeException,++    -- ** InvalidTokenException+    _InvalidTokenException,++    -- ** InvalidTrailNameException+    _InvalidTrailNameException,++    -- ** KmsException+    _KmsException,++    -- ** KmsKeyDisabledException+    _KmsKeyDisabledException,++    -- ** KmsKeyNotFoundException+    _KmsKeyNotFoundException,++    -- ** MaxConcurrentQueriesException+    _MaxConcurrentQueriesException,++    -- ** MaximumNumberOfTrailsExceededException+    _MaximumNumberOfTrailsExceededException,++    -- ** NoManagementAccountSLRExistsException+    _NoManagementAccountSLRExistsException,++    -- ** NotOrganizationManagementAccountException+    _NotOrganizationManagementAccountException,++    -- ** NotOrganizationMasterAccountException+    _NotOrganizationMasterAccountException,++    -- ** OperationNotPermittedException+    _OperationNotPermittedException,++    -- ** OrganizationNotInAllFeaturesModeException+    _OrganizationNotInAllFeaturesModeException,++    -- ** OrganizationsNotInUseException+    _OrganizationsNotInUseException,++    -- ** QueryIdNotFoundException+    _QueryIdNotFoundException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ResourceTypeNotSupportedException+    _ResourceTypeNotSupportedException,++    -- ** S3BucketDoesNotExistException+    _S3BucketDoesNotExistException,++    -- ** TagsLimitExceededException+    _TagsLimitExceededException,++    -- ** TrailAlreadyExistsException+    _TrailAlreadyExistsException,++    -- ** TrailNotFoundException+    _TrailNotFoundException,++    -- ** TrailNotProvidedException+    _TrailNotProvidedException,++    -- ** UnsupportedOperationException+    _UnsupportedOperationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AddTags+    AddTags (AddTags'),+    newAddTags,+    AddTagsResponse (AddTagsResponse'),+    newAddTagsResponse,++    -- ** CancelQuery+    CancelQuery (CancelQuery'),+    newCancelQuery,+    CancelQueryResponse (CancelQueryResponse'),+    newCancelQueryResponse,++    -- ** CreateEventDataStore+    CreateEventDataStore (CreateEventDataStore'),+    newCreateEventDataStore,+    CreateEventDataStoreResponse (CreateEventDataStoreResponse'),+    newCreateEventDataStoreResponse,++    -- ** CreateTrail+    CreateTrail (CreateTrail'),+    newCreateTrail,+    CreateTrailResponse (CreateTrailResponse'),+    newCreateTrailResponse,++    -- ** DeleteEventDataStore+    DeleteEventDataStore (DeleteEventDataStore'),+    newDeleteEventDataStore,+    DeleteEventDataStoreResponse (DeleteEventDataStoreResponse'),+    newDeleteEventDataStoreResponse,++    -- ** DeleteTrail+    DeleteTrail (DeleteTrail'),+    newDeleteTrail,+    DeleteTrailResponse (DeleteTrailResponse'),+    newDeleteTrailResponse,++    -- ** DeregisterOrganizationDelegatedAdmin+    DeregisterOrganizationDelegatedAdmin (DeregisterOrganizationDelegatedAdmin'),+    newDeregisterOrganizationDelegatedAdmin,+    DeregisterOrganizationDelegatedAdminResponse (DeregisterOrganizationDelegatedAdminResponse'),+    newDeregisterOrganizationDelegatedAdminResponse,++    -- ** DescribeQuery+    DescribeQuery (DescribeQuery'),+    newDescribeQuery,+    DescribeQueryResponse (DescribeQueryResponse'),+    newDescribeQueryResponse,++    -- ** DescribeTrails+    DescribeTrails (DescribeTrails'),+    newDescribeTrails,+    DescribeTrailsResponse (DescribeTrailsResponse'),+    newDescribeTrailsResponse,++    -- ** GetChannel+    GetChannel (GetChannel'),+    newGetChannel,+    GetChannelResponse (GetChannelResponse'),+    newGetChannelResponse,++    -- ** GetEventDataStore+    GetEventDataStore (GetEventDataStore'),+    newGetEventDataStore,+    GetEventDataStoreResponse (GetEventDataStoreResponse'),+    newGetEventDataStoreResponse,++    -- ** GetEventSelectors+    GetEventSelectors (GetEventSelectors'),+    newGetEventSelectors,+    GetEventSelectorsResponse (GetEventSelectorsResponse'),+    newGetEventSelectorsResponse,++    -- ** GetImport+    GetImport (GetImport'),+    newGetImport,+    GetImportResponse (GetImportResponse'),+    newGetImportResponse,++    -- ** GetInsightSelectors+    GetInsightSelectors (GetInsightSelectors'),+    newGetInsightSelectors,+    GetInsightSelectorsResponse (GetInsightSelectorsResponse'),+    newGetInsightSelectorsResponse,++    -- ** GetQueryResults+    GetQueryResults (GetQueryResults'),+    newGetQueryResults,+    GetQueryResultsResponse (GetQueryResultsResponse'),+    newGetQueryResultsResponse,++    -- ** GetTrail+    GetTrail (GetTrail'),+    newGetTrail,+    GetTrailResponse (GetTrailResponse'),+    newGetTrailResponse,++    -- ** GetTrailStatus+    GetTrailStatus (GetTrailStatus'),+    newGetTrailStatus,+    GetTrailStatusResponse (GetTrailStatusResponse'),+    newGetTrailStatusResponse,++    -- ** ListChannels+    ListChannels (ListChannels'),+    newListChannels,+    ListChannelsResponse (ListChannelsResponse'),+    newListChannelsResponse,++    -- ** ListEventDataStores+    ListEventDataStores (ListEventDataStores'),+    newListEventDataStores,+    ListEventDataStoresResponse (ListEventDataStoresResponse'),+    newListEventDataStoresResponse,++    -- ** ListImportFailures (Paginated)+    ListImportFailures (ListImportFailures'),+    newListImportFailures,+    ListImportFailuresResponse (ListImportFailuresResponse'),+    newListImportFailuresResponse,++    -- ** ListImports (Paginated)+    ListImports (ListImports'),+    newListImports,+    ListImportsResponse (ListImportsResponse'),+    newListImportsResponse,++    -- ** ListPublicKeys (Paginated)+    ListPublicKeys (ListPublicKeys'),+    newListPublicKeys,+    ListPublicKeysResponse (ListPublicKeysResponse'),+    newListPublicKeysResponse,++    -- ** ListQueries+    ListQueries (ListQueries'),+    newListQueries,+    ListQueriesResponse (ListQueriesResponse'),+    newListQueriesResponse,++    -- ** ListTags (Paginated)+    ListTags (ListTags'),+    newListTags,+    ListTagsResponse (ListTagsResponse'),+    newListTagsResponse,++    -- ** ListTrails (Paginated)+    ListTrails (ListTrails'),+    newListTrails,+    ListTrailsResponse (ListTrailsResponse'),+    newListTrailsResponse,++    -- ** LookupEvents (Paginated)+    LookupEvents (LookupEvents'),+    newLookupEvents,+    LookupEventsResponse (LookupEventsResponse'),+    newLookupEventsResponse,++    -- ** PutEventSelectors+    PutEventSelectors (PutEventSelectors'),+    newPutEventSelectors,+    PutEventSelectorsResponse (PutEventSelectorsResponse'),+    newPutEventSelectorsResponse,++    -- ** PutInsightSelectors+    PutInsightSelectors (PutInsightSelectors'),+    newPutInsightSelectors,+    PutInsightSelectorsResponse (PutInsightSelectorsResponse'),+    newPutInsightSelectorsResponse,++    -- ** RegisterOrganizationDelegatedAdmin+    RegisterOrganizationDelegatedAdmin (RegisterOrganizationDelegatedAdmin'),+    newRegisterOrganizationDelegatedAdmin,+    RegisterOrganizationDelegatedAdminResponse (RegisterOrganizationDelegatedAdminResponse'),+    newRegisterOrganizationDelegatedAdminResponse,++    -- ** RemoveTags+    RemoveTags (RemoveTags'),+    newRemoveTags,+    RemoveTagsResponse (RemoveTagsResponse'),+    newRemoveTagsResponse,++    -- ** RestoreEventDataStore+    RestoreEventDataStore (RestoreEventDataStore'),+    newRestoreEventDataStore,+    RestoreEventDataStoreResponse (RestoreEventDataStoreResponse'),+    newRestoreEventDataStoreResponse,++    -- ** StartImport+    StartImport (StartImport'),+    newStartImport,+    StartImportResponse (StartImportResponse'),+    newStartImportResponse,++    -- ** StartLogging+    StartLogging (StartLogging'),+    newStartLogging,+    StartLoggingResponse (StartLoggingResponse'),+    newStartLoggingResponse,++    -- ** StartQuery+    StartQuery (StartQuery'),+    newStartQuery,+    StartQueryResponse (StartQueryResponse'),+    newStartQueryResponse,++    -- ** StopImport+    StopImport (StopImport'),+    newStopImport,+    StopImportResponse (StopImportResponse'),+    newStopImportResponse,++    -- ** StopLogging+    StopLogging (StopLogging'),+    newStopLogging,+    StopLoggingResponse (StopLoggingResponse'),+    newStopLoggingResponse,++    -- ** UpdateEventDataStore+    UpdateEventDataStore (UpdateEventDataStore'),+    newUpdateEventDataStore,+    UpdateEventDataStoreResponse (UpdateEventDataStoreResponse'),+    newUpdateEventDataStoreResponse,++    -- ** UpdateTrail+    UpdateTrail (UpdateTrail'),+    newUpdateTrail,+    UpdateTrailResponse (UpdateTrailResponse'),+    newUpdateTrailResponse,++    -- * Types++    -- ** DeliveryStatus+    DeliveryStatus (..),++    -- ** DestinationType+    DestinationType (..),++    -- ** EventCategory+    EventCategory (..),++    -- ** EventDataStoreStatus+    EventDataStoreStatus (..),++    -- ** ImportFailureStatus+    ImportFailureStatus (..),++    -- ** ImportStatus+    ImportStatus (..),++    -- ** InsightType+    InsightType (..),++    -- ** LookupAttributeKey+    LookupAttributeKey (..),++    -- ** QueryStatus+    QueryStatus (..),++    -- ** ReadWriteType+    ReadWriteType (..),++    -- ** AdvancedEventSelector+    AdvancedEventSelector (AdvancedEventSelector'),+    newAdvancedEventSelector,++    -- ** AdvancedFieldSelector+    AdvancedFieldSelector (AdvancedFieldSelector'),+    newAdvancedFieldSelector,++    -- ** Channel+    Channel (Channel'),+    newChannel,++    -- ** DataResource+    DataResource (DataResource'),+    newDataResource,++    -- ** Destination+    Destination (Destination'),+    newDestination,++    -- ** Event+    Event (Event'),+    newEvent,++    -- ** EventDataStore+    EventDataStore (EventDataStore'),+    newEventDataStore,++    -- ** EventSelector+    EventSelector (EventSelector'),+    newEventSelector,++    -- ** ImportFailureListItem+    ImportFailureListItem (ImportFailureListItem'),+    newImportFailureListItem,++    -- ** ImportSource+    ImportSource (ImportSource'),+    newImportSource,++    -- ** ImportStatistics+    ImportStatistics (ImportStatistics'),+    newImportStatistics,++    -- ** ImportsListItem+    ImportsListItem (ImportsListItem'),+    newImportsListItem,++    -- ** InsightSelector+    InsightSelector (InsightSelector'),+    newInsightSelector,++    -- ** LookupAttribute+    LookupAttribute (LookupAttribute'),+    newLookupAttribute,++    -- ** PublicKey+    PublicKey (PublicKey'),+    newPublicKey,++    -- ** Query+    Query (Query'),+    newQuery,++    -- ** QueryStatistics+    QueryStatistics (QueryStatistics'),+    newQueryStatistics,++    -- ** QueryStatisticsForDescribeQuery+    QueryStatisticsForDescribeQuery (QueryStatisticsForDescribeQuery'),+    newQueryStatisticsForDescribeQuery,++    -- ** Resource+    Resource (Resource'),+    newResource,++    -- ** ResourceTag+    ResourceTag (ResourceTag'),+    newResourceTag,++    -- ** S3ImportSource+    S3ImportSource (S3ImportSource'),+    newS3ImportSource,++    -- ** SourceConfig+    SourceConfig (SourceConfig'),+    newSourceConfig,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Trail+    Trail (Trail'),+    newTrail,++    -- ** TrailInfo+    TrailInfo (TrailInfo'),+    newTrailInfo,+  )+where++import Amazonka.CloudTrail.AddTags+import Amazonka.CloudTrail.CancelQuery+import Amazonka.CloudTrail.CreateEventDataStore+import Amazonka.CloudTrail.CreateTrail+import Amazonka.CloudTrail.DeleteEventDataStore+import Amazonka.CloudTrail.DeleteTrail+import Amazonka.CloudTrail.DeregisterOrganizationDelegatedAdmin+import Amazonka.CloudTrail.DescribeQuery+import Amazonka.CloudTrail.DescribeTrails+import Amazonka.CloudTrail.GetChannel+import Amazonka.CloudTrail.GetEventDataStore+import Amazonka.CloudTrail.GetEventSelectors+import Amazonka.CloudTrail.GetImport+import Amazonka.CloudTrail.GetInsightSelectors+import Amazonka.CloudTrail.GetQueryResults+import Amazonka.CloudTrail.GetTrail+import Amazonka.CloudTrail.GetTrailStatus+import Amazonka.CloudTrail.Lens+import Amazonka.CloudTrail.ListChannels+import Amazonka.CloudTrail.ListEventDataStores+import Amazonka.CloudTrail.ListImportFailures+import Amazonka.CloudTrail.ListImports+import Amazonka.CloudTrail.ListPublicKeys+import Amazonka.CloudTrail.ListQueries+import Amazonka.CloudTrail.ListTags+import Amazonka.CloudTrail.ListTrails+import Amazonka.CloudTrail.LookupEvents+import Amazonka.CloudTrail.PutEventSelectors+import Amazonka.CloudTrail.PutInsightSelectors+import Amazonka.CloudTrail.RegisterOrganizationDelegatedAdmin+import Amazonka.CloudTrail.RemoveTags+import Amazonka.CloudTrail.RestoreEventDataStore+import Amazonka.CloudTrail.StartImport+import Amazonka.CloudTrail.StartLogging+import Amazonka.CloudTrail.StartQuery+import Amazonka.CloudTrail.StopImport+import Amazonka.CloudTrail.StopLogging+import Amazonka.CloudTrail.Types+import Amazonka.CloudTrail.UpdateEventDataStore+import Amazonka.CloudTrail.UpdateTrail+import Amazonka.CloudTrail.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 'CloudTrail'.++-- $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,189 @@+{-# 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.CloudTrail.AddTags+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds one or more tags to a trail or event data store, up to a limit of+-- 50. Overwrites an existing tag\'s value when a new value is specified+-- for an existing tag key. Tag key names must be unique for a trail; you+-- cannot have two keys with the same name but different values. If you+-- specify a key without a value, the tag will be created with the+-- specified key and a value of null. You can tag a trail or event data+-- store that applies to all Amazon Web Services Regions only from the+-- Region in which the trail or event data store was created (also known as+-- its home region).+module Amazonka.CloudTrail.AddTags+  ( -- * Creating a Request+    AddTags (..),+    newAddTags,++    -- * Request Lenses+    addTags_resourceId,+    addTags_tagsList,++    -- * Destructuring the Response+    AddTagsResponse (..),+    newAddTagsResponse,++    -- * Response Lenses+    addTagsResponse_httpStatus,+  )+where++import Amazonka.CloudTrail.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++-- | Specifies the tags to add to a trail or event data store.+--+-- /See:/ 'newAddTags' smart constructor.+data AddTags = AddTags'+  { -- | Specifies the ARN of the trail or event data store to which one or more+    -- tags will be added. The format of a trail ARN is:+    --+    -- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+    resourceId :: Prelude.Text,+    -- | Contains a list of tags, up to a limit of 50+    tagsList :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTags' 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:+--+-- 'resourceId', 'addTags_resourceId' - Specifies the ARN of the trail or event data store to which one or more+-- tags will be added. The format of a trail ARN is:+--+-- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+--+-- 'tagsList', 'addTags_tagsList' - Contains a list of tags, up to a limit of 50+newAddTags ::+  -- | 'resourceId'+  Prelude.Text ->+  AddTags+newAddTags pResourceId_ =+  AddTags'+    { resourceId = pResourceId_,+      tagsList = Prelude.mempty+    }++-- | Specifies the ARN of the trail or event data store to which one or more+-- tags will be added. The format of a trail ARN is:+--+-- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+addTags_resourceId :: Lens.Lens' AddTags Prelude.Text+addTags_resourceId = Lens.lens (\AddTags' {resourceId} -> resourceId) (\s@AddTags' {} a -> s {resourceId = a} :: AddTags)++-- | Contains a list of tags, up to a limit of 50+addTags_tagsList :: Lens.Lens' AddTags [Tag]+addTags_tagsList = Lens.lens (\AddTags' {tagsList} -> tagsList) (\s@AddTags' {} a -> s {tagsList = a} :: AddTags) Prelude.. Lens.coerced++instance Core.AWSRequest AddTags where+  type AWSResponse AddTags = AddTagsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AddTagsResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddTags where+  hashWithSalt _salt AddTags' {..} =+    _salt+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` tagsList++instance Prelude.NFData AddTags where+  rnf AddTags' {..} =+    Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf tagsList++instance Data.ToHeaders AddTags where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.AddTags" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddTags where+  toJSON AddTags' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just ("TagsList" Data..= tagsList)+          ]+      )++instance Data.ToPath AddTags where+  toPath = Prelude.const "/"++instance Data.ToQuery AddTags where+  toQuery = Prelude.const Prelude.mempty++-- | Returns the objects or data if successful. Otherwise, returns an error.+--+-- /See:/ 'newAddTagsResponse' smart constructor.+data AddTagsResponse = AddTagsResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'addTagsResponse_httpStatus' - The response's http status code.+newAddTagsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddTagsResponse+newAddTagsResponse pHttpStatus_ =+  AddTagsResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+addTagsResponse_httpStatus :: Lens.Lens' AddTagsResponse Prelude.Int+addTagsResponse_httpStatus = Lens.lens (\AddTagsResponse' {httpStatus} -> httpStatus) (\s@AddTagsResponse' {} a -> s {httpStatus = a} :: AddTagsResponse)++instance Prelude.NFData AddTagsResponse where+  rnf AddTagsResponse' {..} = Prelude.rnf httpStatus

@@ -0,0 +1,216 @@+{-# 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.CloudTrail.CancelQuery+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Cancels a query if the query is not in a terminated state, such as+-- @CANCELLED@, @FAILED@, @TIMED_OUT@, or @FINISHED@. You must specify an+-- ARN value for @EventDataStore@. The ID of the query that you want to+-- cancel is also required. When you run @CancelQuery@, the query status+-- might show as @CANCELLED@ even if the operation is not yet finished.+module Amazonka.CloudTrail.CancelQuery+  ( -- * Creating a Request+    CancelQuery (..),+    newCancelQuery,++    -- * Request Lenses+    cancelQuery_eventDataStore,+    cancelQuery_queryId,++    -- * Destructuring the Response+    CancelQueryResponse (..),+    newCancelQueryResponse,++    -- * Response Lenses+    cancelQueryResponse_httpStatus,+    cancelQueryResponse_queryId,+    cancelQueryResponse_queryStatus,+  )+where++import Amazonka.CloudTrail.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:/ 'newCancelQuery' smart constructor.+data CancelQuery = CancelQuery'+  { -- | The ARN (or the ID suffix of the ARN) of an event data store on which+    -- the specified query is running.+    eventDataStore :: Prelude.Maybe Prelude.Text,+    -- | The ID of the query that you want to cancel. The @QueryId@ comes from+    -- the response of a @StartQuery@ operation.+    queryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelQuery' 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:+--+-- 'eventDataStore', 'cancelQuery_eventDataStore' - The ARN (or the ID suffix of the ARN) of an event data store on which+-- the specified query is running.+--+-- 'queryId', 'cancelQuery_queryId' - The ID of the query that you want to cancel. The @QueryId@ comes from+-- the response of a @StartQuery@ operation.+newCancelQuery ::+  -- | 'queryId'+  Prelude.Text ->+  CancelQuery+newCancelQuery pQueryId_ =+  CancelQuery'+    { eventDataStore = Prelude.Nothing,+      queryId = pQueryId_+    }++-- | The ARN (or the ID suffix of the ARN) of an event data store on which+-- the specified query is running.+cancelQuery_eventDataStore :: Lens.Lens' CancelQuery (Prelude.Maybe Prelude.Text)+cancelQuery_eventDataStore = Lens.lens (\CancelQuery' {eventDataStore} -> eventDataStore) (\s@CancelQuery' {} a -> s {eventDataStore = a} :: CancelQuery)++-- | The ID of the query that you want to cancel. The @QueryId@ comes from+-- the response of a @StartQuery@ operation.+cancelQuery_queryId :: Lens.Lens' CancelQuery Prelude.Text+cancelQuery_queryId = Lens.lens (\CancelQuery' {queryId} -> queryId) (\s@CancelQuery' {} a -> s {queryId = a} :: CancelQuery)++instance Core.AWSRequest CancelQuery where+  type AWSResponse CancelQuery = CancelQueryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CancelQueryResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..:> "QueryId")+            Prelude.<*> (x Data..:> "QueryStatus")+      )++instance Prelude.Hashable CancelQuery where+  hashWithSalt _salt CancelQuery' {..} =+    _salt+      `Prelude.hashWithSalt` eventDataStore+      `Prelude.hashWithSalt` queryId++instance Prelude.NFData CancelQuery where+  rnf CancelQuery' {..} =+    Prelude.rnf eventDataStore+      `Prelude.seq` Prelude.rnf queryId++instance Data.ToHeaders CancelQuery where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.CancelQuery" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelQuery where+  toJSON CancelQuery' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("EventDataStore" Data..=)+              Prelude.<$> eventDataStore,+            Prelude.Just ("QueryId" Data..= queryId)+          ]+      )++instance Data.ToPath CancelQuery where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelQuery where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelQueryResponse' smart constructor.+data CancelQueryResponse = CancelQueryResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The ID of the canceled query.+    queryId :: Prelude.Text,+    -- | Shows the status of a query after a @CancelQuery@ request. Typically,+    -- the values shown are either @RUNNING@ or @CANCELLED@.+    queryStatus :: QueryStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelQueryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelQueryResponse_httpStatus' - The response's http status code.+--+-- 'queryId', 'cancelQueryResponse_queryId' - The ID of the canceled query.+--+-- 'queryStatus', 'cancelQueryResponse_queryStatus' - Shows the status of a query after a @CancelQuery@ request. Typically,+-- the values shown are either @RUNNING@ or @CANCELLED@.+newCancelQueryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'queryId'+  Prelude.Text ->+  -- | 'queryStatus'+  QueryStatus ->+  CancelQueryResponse+newCancelQueryResponse+  pHttpStatus_+  pQueryId_+  pQueryStatus_ =+    CancelQueryResponse'+      { httpStatus = pHttpStatus_,+        queryId = pQueryId_,+        queryStatus = pQueryStatus_+      }++-- | The response's http status code.+cancelQueryResponse_httpStatus :: Lens.Lens' CancelQueryResponse Prelude.Int+cancelQueryResponse_httpStatus = Lens.lens (\CancelQueryResponse' {httpStatus} -> httpStatus) (\s@CancelQueryResponse' {} a -> s {httpStatus = a} :: CancelQueryResponse)++-- | The ID of the canceled query.+cancelQueryResponse_queryId :: Lens.Lens' CancelQueryResponse Prelude.Text+cancelQueryResponse_queryId = Lens.lens (\CancelQueryResponse' {queryId} -> queryId) (\s@CancelQueryResponse' {} a -> s {queryId = a} :: CancelQueryResponse)++-- | Shows the status of a query after a @CancelQuery@ request. Typically,+-- the values shown are either @RUNNING@ or @CANCELLED@.+cancelQueryResponse_queryStatus :: Lens.Lens' CancelQueryResponse QueryStatus+cancelQueryResponse_queryStatus = Lens.lens (\CancelQueryResponse' {queryStatus} -> queryStatus) (\s@CancelQueryResponse' {} a -> s {queryStatus = a} :: CancelQueryResponse)++instance Prelude.NFData CancelQueryResponse where+  rnf CancelQueryResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf queryId+      `Prelude.seq` Prelude.rnf queryStatus

@@ -0,0 +1,539 @@+{-# 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.CloudTrail.CreateEventDataStore+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new event data store.+module Amazonka.CloudTrail.CreateEventDataStore+  ( -- * Creating a Request+    CreateEventDataStore (..),+    newCreateEventDataStore,++    -- * Request Lenses+    createEventDataStore_advancedEventSelectors,+    createEventDataStore_kmsKeyId,+    createEventDataStore_multiRegionEnabled,+    createEventDataStore_organizationEnabled,+    createEventDataStore_retentionPeriod,+    createEventDataStore_tagsList,+    createEventDataStore_terminationProtectionEnabled,+    createEventDataStore_name,++    -- * Destructuring the Response+    CreateEventDataStoreResponse (..),+    newCreateEventDataStoreResponse,++    -- * Response Lenses+    createEventDataStoreResponse_advancedEventSelectors,+    createEventDataStoreResponse_createdTimestamp,+    createEventDataStoreResponse_eventDataStoreArn,+    createEventDataStoreResponse_kmsKeyId,+    createEventDataStoreResponse_multiRegionEnabled,+    createEventDataStoreResponse_name,+    createEventDataStoreResponse_organizationEnabled,+    createEventDataStoreResponse_retentionPeriod,+    createEventDataStoreResponse_status,+    createEventDataStoreResponse_tagsList,+    createEventDataStoreResponse_terminationProtectionEnabled,+    createEventDataStoreResponse_updatedTimestamp,+    createEventDataStoreResponse_httpStatus,+  )+where++import Amazonka.CloudTrail.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:/ 'newCreateEventDataStore' smart constructor.+data CreateEventDataStore = CreateEventDataStore'+  { -- | The advanced event selectors to use to select the events for the data+    -- store. For more information about how to use advanced event selectors,+    -- see+    -- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/logging-data-events-with-cloudtrail.html#creating-data-event-selectors-advanced Log events by using advanced event selectors>+    -- in the CloudTrail User Guide.+    advancedEventSelectors :: Prelude.Maybe [AdvancedEventSelector],+    -- | Specifies the KMS key ID to use to encrypt the events delivered by+    -- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+    -- fully specified ARN to an alias, a fully specified ARN to a key, or a+    -- globally unique identifier.+    --+    -- Disabling or deleting the KMS key, or removing CloudTrail permissions on+    -- the key, prevents CloudTrail from logging events to the event data+    -- store, and prevents users from querying the data in the event data store+    -- that was encrypted with the key. After you associate an event data store+    -- with a KMS key, the KMS key cannot be removed or changed. Before you+    -- disable or delete a KMS key that you are using with an event data store,+    -- delete or back up your event data store.+    --+    -- CloudTrail also supports KMS multi-Region keys. For more information+    -- about multi-Region keys, see+    -- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+    -- in the /Key Management Service Developer Guide/.+    --+    -- Examples:+    --+    -- -   @alias\/MyAliasName@+    --+    -- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+    --+    -- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+    --+    -- -   @12345678-1234-1234-1234-123456789012@+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether the event data store includes events from all regions,+    -- or only from the region in which the event data store is created.+    multiRegionEnabled :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether an event data store collects events logged for an+    -- organization in Organizations.+    organizationEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The retention period of the event data store, in days. You can set a+    -- retention period of up to 2557 days, the equivalent of seven years.+    retentionPeriod :: Prelude.Maybe Prelude.Natural,+    tagsList :: Prelude.Maybe [Tag],+    -- | Specifies whether termination protection is enabled for the event data+    -- store. If termination protection is enabled, you cannot delete the event+    -- data store until termination protection is disabled.+    terminationProtectionEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The name of the event data store.+    name :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEventDataStore' 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:+--+-- 'advancedEventSelectors', 'createEventDataStore_advancedEventSelectors' - The advanced event selectors to use to select the events for the data+-- store. For more information about how to use advanced event selectors,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/logging-data-events-with-cloudtrail.html#creating-data-event-selectors-advanced Log events by using advanced event selectors>+-- in the CloudTrail User Guide.+--+-- 'kmsKeyId', 'createEventDataStore_kmsKeyId' - Specifies the KMS key ID to use to encrypt the events delivered by+-- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+-- fully specified ARN to an alias, a fully specified ARN to a key, or a+-- globally unique identifier.+--+-- Disabling or deleting the KMS key, or removing CloudTrail permissions on+-- the key, prevents CloudTrail from logging events to the event data+-- store, and prevents users from querying the data in the event data store+-- that was encrypted with the key. After you associate an event data store+-- with a KMS key, the KMS key cannot be removed or changed. Before you+-- disable or delete a KMS key that you are using with an event data store,+-- delete or back up your event data store.+--+-- CloudTrail also supports KMS multi-Region keys. For more information+-- about multi-Region keys, see+-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+-- in the /Key Management Service Developer Guide/.+--+-- Examples:+--+-- -   @alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- -   @12345678-1234-1234-1234-123456789012@+--+-- 'multiRegionEnabled', 'createEventDataStore_multiRegionEnabled' - Specifies whether the event data store includes events from all regions,+-- or only from the region in which the event data store is created.+--+-- 'organizationEnabled', 'createEventDataStore_organizationEnabled' - Specifies whether an event data store collects events logged for an+-- organization in Organizations.+--+-- 'retentionPeriod', 'createEventDataStore_retentionPeriod' - The retention period of the event data store, in days. You can set a+-- retention period of up to 2557 days, the equivalent of seven years.+--+-- 'tagsList', 'createEventDataStore_tagsList' - Undocumented member.+--+-- 'terminationProtectionEnabled', 'createEventDataStore_terminationProtectionEnabled' - Specifies whether termination protection is enabled for the event data+-- store. If termination protection is enabled, you cannot delete the event+-- data store until termination protection is disabled.+--+-- 'name', 'createEventDataStore_name' - The name of the event data store.+newCreateEventDataStore ::+  -- | 'name'+  Prelude.Text ->+  CreateEventDataStore+newCreateEventDataStore pName_ =+  CreateEventDataStore'+    { advancedEventSelectors =+        Prelude.Nothing,+      kmsKeyId = Prelude.Nothing,+      multiRegionEnabled = Prelude.Nothing,+      organizationEnabled = Prelude.Nothing,+      retentionPeriod = Prelude.Nothing,+      tagsList = Prelude.Nothing,+      terminationProtectionEnabled = Prelude.Nothing,+      name = pName_+    }++-- | The advanced event selectors to use to select the events for the data+-- store. For more information about how to use advanced event selectors,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/logging-data-events-with-cloudtrail.html#creating-data-event-selectors-advanced Log events by using advanced event selectors>+-- in the CloudTrail User Guide.+createEventDataStore_advancedEventSelectors :: Lens.Lens' CreateEventDataStore (Prelude.Maybe [AdvancedEventSelector])+createEventDataStore_advancedEventSelectors = Lens.lens (\CreateEventDataStore' {advancedEventSelectors} -> advancedEventSelectors) (\s@CreateEventDataStore' {} a -> s {advancedEventSelectors = a} :: CreateEventDataStore) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the KMS key ID to use to encrypt the events delivered by+-- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+-- fully specified ARN to an alias, a fully specified ARN to a key, or a+-- globally unique identifier.+--+-- Disabling or deleting the KMS key, or removing CloudTrail permissions on+-- the key, prevents CloudTrail from logging events to the event data+-- store, and prevents users from querying the data in the event data store+-- that was encrypted with the key. After you associate an event data store+-- with a KMS key, the KMS key cannot be removed or changed. Before you+-- disable or delete a KMS key that you are using with an event data store,+-- delete or back up your event data store.+--+-- CloudTrail also supports KMS multi-Region keys. For more information+-- about multi-Region keys, see+-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+-- in the /Key Management Service Developer Guide/.+--+-- Examples:+--+-- -   @alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- -   @12345678-1234-1234-1234-123456789012@+createEventDataStore_kmsKeyId :: Lens.Lens' CreateEventDataStore (Prelude.Maybe Prelude.Text)+createEventDataStore_kmsKeyId = Lens.lens (\CreateEventDataStore' {kmsKeyId} -> kmsKeyId) (\s@CreateEventDataStore' {} a -> s {kmsKeyId = a} :: CreateEventDataStore)++-- | Specifies whether the event data store includes events from all regions,+-- or only from the region in which the event data store is created.+createEventDataStore_multiRegionEnabled :: Lens.Lens' CreateEventDataStore (Prelude.Maybe Prelude.Bool)+createEventDataStore_multiRegionEnabled = Lens.lens (\CreateEventDataStore' {multiRegionEnabled} -> multiRegionEnabled) (\s@CreateEventDataStore' {} a -> s {multiRegionEnabled = a} :: CreateEventDataStore)++-- | Specifies whether an event data store collects events logged for an+-- organization in Organizations.+createEventDataStore_organizationEnabled :: Lens.Lens' CreateEventDataStore (Prelude.Maybe Prelude.Bool)+createEventDataStore_organizationEnabled = Lens.lens (\CreateEventDataStore' {organizationEnabled} -> organizationEnabled) (\s@CreateEventDataStore' {} a -> s {organizationEnabled = a} :: CreateEventDataStore)++-- | The retention period of the event data store, in days. You can set a+-- retention period of up to 2557 days, the equivalent of seven years.+createEventDataStore_retentionPeriod :: Lens.Lens' CreateEventDataStore (Prelude.Maybe Prelude.Natural)+createEventDataStore_retentionPeriod = Lens.lens (\CreateEventDataStore' {retentionPeriod} -> retentionPeriod) (\s@CreateEventDataStore' {} a -> s {retentionPeriod = a} :: CreateEventDataStore)++-- | Undocumented member.+createEventDataStore_tagsList :: Lens.Lens' CreateEventDataStore (Prelude.Maybe [Tag])+createEventDataStore_tagsList = Lens.lens (\CreateEventDataStore' {tagsList} -> tagsList) (\s@CreateEventDataStore' {} a -> s {tagsList = a} :: CreateEventDataStore) Prelude.. Lens.mapping Lens.coerced++-- | Specifies whether termination protection is enabled for the event data+-- store. If termination protection is enabled, you cannot delete the event+-- data store until termination protection is disabled.+createEventDataStore_terminationProtectionEnabled :: Lens.Lens' CreateEventDataStore (Prelude.Maybe Prelude.Bool)+createEventDataStore_terminationProtectionEnabled = Lens.lens (\CreateEventDataStore' {terminationProtectionEnabled} -> terminationProtectionEnabled) (\s@CreateEventDataStore' {} a -> s {terminationProtectionEnabled = a} :: CreateEventDataStore)++-- | The name of the event data store.+createEventDataStore_name :: Lens.Lens' CreateEventDataStore Prelude.Text+createEventDataStore_name = Lens.lens (\CreateEventDataStore' {name} -> name) (\s@CreateEventDataStore' {} a -> s {name = a} :: CreateEventDataStore)++instance Core.AWSRequest CreateEventDataStore where+  type+    AWSResponse CreateEventDataStore =+      CreateEventDataStoreResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateEventDataStoreResponse'+            Prelude.<$> ( x+                            Data..?> "AdvancedEventSelectors"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "CreatedTimestamp")+            Prelude.<*> (x Data..?> "EventDataStoreArn")+            Prelude.<*> (x Data..?> "KmsKeyId")+            Prelude.<*> (x Data..?> "MultiRegionEnabled")+            Prelude.<*> (x Data..?> "Name")+            Prelude.<*> (x Data..?> "OrganizationEnabled")+            Prelude.<*> (x Data..?> "RetentionPeriod")+            Prelude.<*> (x Data..?> "Status")+            Prelude.<*> (x Data..?> "TagsList" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "TerminationProtectionEnabled")+            Prelude.<*> (x Data..?> "UpdatedTimestamp")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateEventDataStore where+  hashWithSalt _salt CreateEventDataStore' {..} =+    _salt+      `Prelude.hashWithSalt` advancedEventSelectors+      `Prelude.hashWithSalt` kmsKeyId+      `Prelude.hashWithSalt` multiRegionEnabled+      `Prelude.hashWithSalt` organizationEnabled+      `Prelude.hashWithSalt` retentionPeriod+      `Prelude.hashWithSalt` tagsList+      `Prelude.hashWithSalt` terminationProtectionEnabled+      `Prelude.hashWithSalt` name++instance Prelude.NFData CreateEventDataStore where+  rnf CreateEventDataStore' {..} =+    Prelude.rnf advancedEventSelectors+      `Prelude.seq` Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf multiRegionEnabled+      `Prelude.seq` Prelude.rnf organizationEnabled+      `Prelude.seq` Prelude.rnf retentionPeriod+      `Prelude.seq` Prelude.rnf tagsList+      `Prelude.seq` Prelude.rnf terminationProtectionEnabled+      `Prelude.seq` Prelude.rnf name++instance Data.ToHeaders CreateEventDataStore where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.CreateEventDataStore" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateEventDataStore where+  toJSON CreateEventDataStore' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AdvancedEventSelectors" Data..=)+              Prelude.<$> advancedEventSelectors,+            ("KmsKeyId" Data..=) Prelude.<$> kmsKeyId,+            ("MultiRegionEnabled" Data..=)+              Prelude.<$> multiRegionEnabled,+            ("OrganizationEnabled" Data..=)+              Prelude.<$> organizationEnabled,+            ("RetentionPeriod" Data..=)+              Prelude.<$> retentionPeriod,+            ("TagsList" Data..=) Prelude.<$> tagsList,+            ("TerminationProtectionEnabled" Data..=)+              Prelude.<$> terminationProtectionEnabled,+            Prelude.Just ("Name" Data..= name)+          ]+      )++instance Data.ToPath CreateEventDataStore where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateEventDataStore where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateEventDataStoreResponse' smart constructor.+data CreateEventDataStoreResponse = CreateEventDataStoreResponse'+  { -- | The advanced event selectors that were used to select the events for the+    -- data store.+    advancedEventSelectors :: Prelude.Maybe [AdvancedEventSelector],+    -- | The timestamp that shows when the event data store was created.+    createdTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The ARN of the event data store.+    eventDataStoreArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies the KMS key ID that encrypts the events delivered by+    -- CloudTrail. The value is a fully specified ARN to a KMS key in the+    -- following format.+    --+    -- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether the event data store collects events from all regions,+    -- or only from the region in which it was created.+    multiRegionEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The name of the event data store.+    name :: Prelude.Maybe Prelude.Text,+    -- | Indicates whether an event data store is collecting logged events for an+    -- organization in Organizations.+    organizationEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The retention period of an event data store, in days.+    retentionPeriod :: Prelude.Maybe Prelude.Natural,+    -- | The status of event data store creation.+    status :: Prelude.Maybe EventDataStoreStatus,+    tagsList :: Prelude.Maybe [Tag],+    -- | Indicates whether termination protection is enabled for the event data+    -- store.+    terminationProtectionEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The timestamp that shows when an event data store was updated, if+    -- applicable. @UpdatedTimestamp@ is always either the same or newer than+    -- the time shown in @CreatedTimestamp@.+    updatedTimestamp :: Prelude.Maybe Data.POSIX,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateEventDataStoreResponse' 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:+--+-- 'advancedEventSelectors', 'createEventDataStoreResponse_advancedEventSelectors' - The advanced event selectors that were used to select the events for the+-- data store.+--+-- 'createdTimestamp', 'createEventDataStoreResponse_createdTimestamp' - The timestamp that shows when the event data store was created.+--+-- 'eventDataStoreArn', 'createEventDataStoreResponse_eventDataStoreArn' - The ARN of the event data store.+--+-- 'kmsKeyId', 'createEventDataStoreResponse_kmsKeyId' - Specifies the KMS key ID that encrypts the events delivered by+-- CloudTrail. The value is a fully specified ARN to a KMS key in the+-- following format.+--+-- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- 'multiRegionEnabled', 'createEventDataStoreResponse_multiRegionEnabled' - Indicates whether the event data store collects events from all regions,+-- or only from the region in which it was created.+--+-- 'name', 'createEventDataStoreResponse_name' - The name of the event data store.+--+-- 'organizationEnabled', 'createEventDataStoreResponse_organizationEnabled' - Indicates whether an event data store is collecting logged events for an+-- organization in Organizations.+--+-- 'retentionPeriod', 'createEventDataStoreResponse_retentionPeriod' - The retention period of an event data store, in days.+--+-- 'status', 'createEventDataStoreResponse_status' - The status of event data store creation.+--+-- 'tagsList', 'createEventDataStoreResponse_tagsList' - Undocumented member.+--+-- 'terminationProtectionEnabled', 'createEventDataStoreResponse_terminationProtectionEnabled' - Indicates whether termination protection is enabled for the event data+-- store.+--+-- 'updatedTimestamp', 'createEventDataStoreResponse_updatedTimestamp' - The timestamp that shows when an event data store was updated, if+-- applicable. @UpdatedTimestamp@ is always either the same or newer than+-- the time shown in @CreatedTimestamp@.+--+-- 'httpStatus', 'createEventDataStoreResponse_httpStatus' - The response's http status code.+newCreateEventDataStoreResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateEventDataStoreResponse+newCreateEventDataStoreResponse pHttpStatus_ =+  CreateEventDataStoreResponse'+    { advancedEventSelectors =+        Prelude.Nothing,+      createdTimestamp = Prelude.Nothing,+      eventDataStoreArn = Prelude.Nothing,+      kmsKeyId = Prelude.Nothing,+      multiRegionEnabled = Prelude.Nothing,+      name = Prelude.Nothing,+      organizationEnabled = Prelude.Nothing,+      retentionPeriod = Prelude.Nothing,+      status = Prelude.Nothing,+      tagsList = Prelude.Nothing,+      terminationProtectionEnabled =+        Prelude.Nothing,+      updatedTimestamp = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The advanced event selectors that were used to select the events for the+-- data store.+createEventDataStoreResponse_advancedEventSelectors :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe [AdvancedEventSelector])+createEventDataStoreResponse_advancedEventSelectors = Lens.lens (\CreateEventDataStoreResponse' {advancedEventSelectors} -> advancedEventSelectors) (\s@CreateEventDataStoreResponse' {} a -> s {advancedEventSelectors = a} :: CreateEventDataStoreResponse) Prelude.. Lens.mapping Lens.coerced++-- | The timestamp that shows when the event data store was created.+createEventDataStoreResponse_createdTimestamp :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.UTCTime)+createEventDataStoreResponse_createdTimestamp = Lens.lens (\CreateEventDataStoreResponse' {createdTimestamp} -> createdTimestamp) (\s@CreateEventDataStoreResponse' {} a -> s {createdTimestamp = a} :: CreateEventDataStoreResponse) Prelude.. Lens.mapping Data._Time++-- | The ARN of the event data store.+createEventDataStoreResponse_eventDataStoreArn :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Text)+createEventDataStoreResponse_eventDataStoreArn = Lens.lens (\CreateEventDataStoreResponse' {eventDataStoreArn} -> eventDataStoreArn) (\s@CreateEventDataStoreResponse' {} a -> s {eventDataStoreArn = a} :: CreateEventDataStoreResponse)++-- | Specifies the KMS key ID that encrypts the events delivered by+-- CloudTrail. The value is a fully specified ARN to a KMS key in the+-- following format.+--+-- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+createEventDataStoreResponse_kmsKeyId :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Text)+createEventDataStoreResponse_kmsKeyId = Lens.lens (\CreateEventDataStoreResponse' {kmsKeyId} -> kmsKeyId) (\s@CreateEventDataStoreResponse' {} a -> s {kmsKeyId = a} :: CreateEventDataStoreResponse)++-- | Indicates whether the event data store collects events from all regions,+-- or only from the region in which it was created.+createEventDataStoreResponse_multiRegionEnabled :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Bool)+createEventDataStoreResponse_multiRegionEnabled = Lens.lens (\CreateEventDataStoreResponse' {multiRegionEnabled} -> multiRegionEnabled) (\s@CreateEventDataStoreResponse' {} a -> s {multiRegionEnabled = a} :: CreateEventDataStoreResponse)++-- | The name of the event data store.+createEventDataStoreResponse_name :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Text)+createEventDataStoreResponse_name = Lens.lens (\CreateEventDataStoreResponse' {name} -> name) (\s@CreateEventDataStoreResponse' {} a -> s {name = a} :: CreateEventDataStoreResponse)++-- | Indicates whether an event data store is collecting logged events for an+-- organization in Organizations.+createEventDataStoreResponse_organizationEnabled :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Bool)+createEventDataStoreResponse_organizationEnabled = Lens.lens (\CreateEventDataStoreResponse' {organizationEnabled} -> organizationEnabled) (\s@CreateEventDataStoreResponse' {} a -> s {organizationEnabled = a} :: CreateEventDataStoreResponse)++-- | The retention period of an event data store, in days.+createEventDataStoreResponse_retentionPeriod :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Natural)+createEventDataStoreResponse_retentionPeriod = Lens.lens (\CreateEventDataStoreResponse' {retentionPeriod} -> retentionPeriod) (\s@CreateEventDataStoreResponse' {} a -> s {retentionPeriod = a} :: CreateEventDataStoreResponse)++-- | The status of event data store creation.+createEventDataStoreResponse_status :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe EventDataStoreStatus)+createEventDataStoreResponse_status = Lens.lens (\CreateEventDataStoreResponse' {status} -> status) (\s@CreateEventDataStoreResponse' {} a -> s {status = a} :: CreateEventDataStoreResponse)++-- | Undocumented member.+createEventDataStoreResponse_tagsList :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe [Tag])+createEventDataStoreResponse_tagsList = Lens.lens (\CreateEventDataStoreResponse' {tagsList} -> tagsList) (\s@CreateEventDataStoreResponse' {} a -> s {tagsList = a} :: CreateEventDataStoreResponse) Prelude.. Lens.mapping Lens.coerced++-- | Indicates whether termination protection is enabled for the event data+-- store.+createEventDataStoreResponse_terminationProtectionEnabled :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.Bool)+createEventDataStoreResponse_terminationProtectionEnabled = Lens.lens (\CreateEventDataStoreResponse' {terminationProtectionEnabled} -> terminationProtectionEnabled) (\s@CreateEventDataStoreResponse' {} a -> s {terminationProtectionEnabled = a} :: CreateEventDataStoreResponse)++-- | The timestamp that shows when an event data store was updated, if+-- applicable. @UpdatedTimestamp@ is always either the same or newer than+-- the time shown in @CreatedTimestamp@.+createEventDataStoreResponse_updatedTimestamp :: Lens.Lens' CreateEventDataStoreResponse (Prelude.Maybe Prelude.UTCTime)+createEventDataStoreResponse_updatedTimestamp = Lens.lens (\CreateEventDataStoreResponse' {updatedTimestamp} -> updatedTimestamp) (\s@CreateEventDataStoreResponse' {} a -> s {updatedTimestamp = a} :: CreateEventDataStoreResponse) Prelude.. Lens.mapping Data._Time++-- | The response's http status code.+createEventDataStoreResponse_httpStatus :: Lens.Lens' CreateEventDataStoreResponse Prelude.Int+createEventDataStoreResponse_httpStatus = Lens.lens (\CreateEventDataStoreResponse' {httpStatus} -> httpStatus) (\s@CreateEventDataStoreResponse' {} a -> s {httpStatus = a} :: CreateEventDataStoreResponse)++instance Prelude.NFData CreateEventDataStoreResponse where+  rnf CreateEventDataStoreResponse' {..} =+    Prelude.rnf advancedEventSelectors+      `Prelude.seq` Prelude.rnf createdTimestamp+      `Prelude.seq` Prelude.rnf eventDataStoreArn+      `Prelude.seq` Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf multiRegionEnabled+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf organizationEnabled+      `Prelude.seq` Prelude.rnf retentionPeriod+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf tagsList+      `Prelude.seq` Prelude.rnf terminationProtectionEnabled+      `Prelude.seq` Prelude.rnf updatedTimestamp+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,706 @@+{-# 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.CloudTrail.CreateTrail+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a trail that specifies the settings for delivery of log data to+-- an Amazon S3 bucket.+module Amazonka.CloudTrail.CreateTrail+  ( -- * Creating a Request+    CreateTrail (..),+    newCreateTrail,++    -- * Request Lenses+    createTrail_cloudWatchLogsLogGroupArn,+    createTrail_cloudWatchLogsRoleArn,+    createTrail_enableLogFileValidation,+    createTrail_includeGlobalServiceEvents,+    createTrail_isMultiRegionTrail,+    createTrail_isOrganizationTrail,+    createTrail_kmsKeyId,+    createTrail_s3KeyPrefix,+    createTrail_snsTopicName,+    createTrail_tagsList,+    createTrail_name,+    createTrail_s3BucketName,++    -- * Destructuring the Response+    CreateTrailResponse (..),+    newCreateTrailResponse,++    -- * Response Lenses+    createTrailResponse_cloudWatchLogsLogGroupArn,+    createTrailResponse_cloudWatchLogsRoleArn,+    createTrailResponse_includeGlobalServiceEvents,+    createTrailResponse_isMultiRegionTrail,+    createTrailResponse_isOrganizationTrail,+    createTrailResponse_kmsKeyId,+    createTrailResponse_logFileValidationEnabled,+    createTrailResponse_name,+    createTrailResponse_s3BucketName,+    createTrailResponse_s3KeyPrefix,+    createTrailResponse_snsTopicARN,+    createTrailResponse_snsTopicName,+    createTrailResponse_trailARN,+    createTrailResponse_httpStatus,+  )+where++import Amazonka.CloudTrail.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++-- | Specifies the settings for each trail.+--+-- /See:/ 'newCreateTrail' smart constructor.+data CreateTrail = CreateTrail'+  { -- | Specifies a log group name using an Amazon Resource Name (ARN), a unique+    -- identifier that represents the log group to which CloudTrail logs will+    -- be delivered. Not required unless you specify @CloudWatchLogsRoleArn@.+    cloudWatchLogsLogGroupArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies the role for the CloudWatch Logs endpoint to assume to write+    -- to a user\'s log group.+    cloudWatchLogsRoleArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether log file integrity validation is enabled. The default+    -- is false.+    --+    -- When you disable log file integrity validation, the chain of digest+    -- files is broken after one hour. CloudTrail does not create digest files+    -- for log files that were delivered during a period in which log file+    -- integrity validation was disabled. For example, if you enable log file+    -- integrity validation at noon on January 1, disable it at noon on January+    -- 2, and re-enable it at noon on January 10, digest files will not be+    -- created for the log files delivered from noon on January 2 to noon on+    -- January 10. The same applies whenever you stop CloudTrail logging or+    -- delete a trail.+    enableLogFileValidation :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether the trail is publishing events from global services+    -- such as IAM to the log files.+    includeGlobalServiceEvents :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether the trail is created in the current region or in all+    -- regions. The default is false, which creates a trail only in the region+    -- where you are signed in. As a best practice, consider creating trails+    -- that log events in all regions.+    isMultiRegionTrail :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether the trail is created for all accounts in an+    -- organization in Organizations, or only for the current Amazon Web+    -- Services account. The default is false, and cannot be true unless the+    -- call is made on behalf of an Amazon Web Services account that is the+    -- management account for an organization in Organizations.+    isOrganizationTrail :: Prelude.Maybe Prelude.Bool,+    -- | Specifies the KMS key ID to use to encrypt the logs delivered by+    -- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+    -- fully specified ARN to an alias, a fully specified ARN to a key, or a+    -- globally unique identifier.+    --+    -- CloudTrail also supports KMS multi-Region keys. For more information+    -- about multi-Region keys, see+    -- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+    -- in the /Key Management Service Developer Guide/.+    --+    -- Examples:+    --+    -- -   @alias\/MyAliasName@+    --+    -- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+    --+    -- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+    --+    -- -   @12345678-1234-1234-1234-123456789012@+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Specifies the Amazon S3 key prefix that comes after the name of the+    -- bucket you have designated for log file delivery. For more information,+    -- see+    -- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+    -- The maximum length is 200 characters.+    s3KeyPrefix :: Prelude.Maybe Prelude.Text,+    -- | Specifies the name of the Amazon SNS topic defined for notification of+    -- log file delivery. The maximum length is 256 characters.+    snsTopicName :: Prelude.Maybe Prelude.Text,+    tagsList :: Prelude.Maybe [Tag],+    -- | Specifies the name of the trail. The name must meet the following+    -- requirements:+    --+    -- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.),+    --     underscores (_), or dashes (-)+    --+    -- -   Start with a letter or number, and end with a letter or number+    --+    -- -   Be between 3 and 128 characters+    --+    -- -   Have no adjacent periods, underscores or dashes. Names like+    --     @my-_namespace@ and @my--namespace@ are not valid.+    --+    -- -   Not be in IP address format (for example, 192.168.5.4)+    name :: Prelude.Text,+    -- | Specifies the name of the Amazon S3 bucket designated for publishing log+    -- files. See+    -- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements>.+    s3BucketName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTrail' 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:+--+-- 'cloudWatchLogsLogGroupArn', 'createTrail_cloudWatchLogsLogGroupArn' - Specifies a log group name using an Amazon Resource Name (ARN), a unique+-- identifier that represents the log group to which CloudTrail logs will+-- be delivered. Not required unless you specify @CloudWatchLogsRoleArn@.+--+-- 'cloudWatchLogsRoleArn', 'createTrail_cloudWatchLogsRoleArn' - Specifies the role for the CloudWatch Logs endpoint to assume to write+-- to a user\'s log group.+--+-- 'enableLogFileValidation', 'createTrail_enableLogFileValidation' - Specifies whether log file integrity validation is enabled. The default+-- is false.+--+-- When you disable log file integrity validation, the chain of digest+-- files is broken after one hour. CloudTrail does not create digest files+-- for log files that were delivered during a period in which log file+-- integrity validation was disabled. For example, if you enable log file+-- integrity validation at noon on January 1, disable it at noon on January+-- 2, and re-enable it at noon on January 10, digest files will not be+-- created for the log files delivered from noon on January 2 to noon on+-- January 10. The same applies whenever you stop CloudTrail logging or+-- delete a trail.+--+-- 'includeGlobalServiceEvents', 'createTrail_includeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services+-- such as IAM to the log files.+--+-- 'isMultiRegionTrail', 'createTrail_isMultiRegionTrail' - Specifies whether the trail is created in the current region or in all+-- regions. The default is false, which creates a trail only in the region+-- where you are signed in. As a best practice, consider creating trails+-- that log events in all regions.+--+-- 'isOrganizationTrail', 'createTrail_isOrganizationTrail' - Specifies whether the trail is created for all accounts in an+-- organization in Organizations, or only for the current Amazon Web+-- Services account. The default is false, and cannot be true unless the+-- call is made on behalf of an Amazon Web Services account that is the+-- management account for an organization in Organizations.+--+-- 'kmsKeyId', 'createTrail_kmsKeyId' - Specifies the KMS key ID to use to encrypt the logs delivered by+-- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+-- fully specified ARN to an alias, a fully specified ARN to a key, or a+-- globally unique identifier.+--+-- CloudTrail also supports KMS multi-Region keys. For more information+-- about multi-Region keys, see+-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+-- in the /Key Management Service Developer Guide/.+--+-- Examples:+--+-- -   @alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- -   @12345678-1234-1234-1234-123456789012@+--+-- 's3KeyPrefix', 'createTrail_s3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the+-- bucket you have designated for log file delivery. For more information,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+-- The maximum length is 200 characters.+--+-- 'snsTopicName', 'createTrail_snsTopicName' - Specifies the name of the Amazon SNS topic defined for notification of+-- log file delivery. The maximum length is 256 characters.+--+-- 'tagsList', 'createTrail_tagsList' - Undocumented member.+--+-- 'name', 'createTrail_name' - Specifies the name of the trail. The name must meet the following+-- requirements:+--+-- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.),+--     underscores (_), or dashes (-)+--+-- -   Start with a letter or number, and end with a letter or number+--+-- -   Be between 3 and 128 characters+--+-- -   Have no adjacent periods, underscores or dashes. Names like+--     @my-_namespace@ and @my--namespace@ are not valid.+--+-- -   Not be in IP address format (for example, 192.168.5.4)+--+-- 's3BucketName', 'createTrail_s3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log+-- files. See+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements>.+newCreateTrail ::+  -- | 'name'+  Prelude.Text ->+  -- | 's3BucketName'+  Prelude.Text ->+  CreateTrail+newCreateTrail pName_ pS3BucketName_ =+  CreateTrail'+    { cloudWatchLogsLogGroupArn =+        Prelude.Nothing,+      cloudWatchLogsRoleArn = Prelude.Nothing,+      enableLogFileValidation = Prelude.Nothing,+      includeGlobalServiceEvents = Prelude.Nothing,+      isMultiRegionTrail = Prelude.Nothing,+      isOrganizationTrail = Prelude.Nothing,+      kmsKeyId = Prelude.Nothing,+      s3KeyPrefix = Prelude.Nothing,+      snsTopicName = Prelude.Nothing,+      tagsList = Prelude.Nothing,+      name = pName_,+      s3BucketName = pS3BucketName_+    }++-- | Specifies a log group name using an Amazon Resource Name (ARN), a unique+-- identifier that represents the log group to which CloudTrail logs will+-- be delivered. Not required unless you specify @CloudWatchLogsRoleArn@.+createTrail_cloudWatchLogsLogGroupArn :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)+createTrail_cloudWatchLogsLogGroupArn = Lens.lens (\CreateTrail' {cloudWatchLogsLogGroupArn} -> cloudWatchLogsLogGroupArn) (\s@CreateTrail' {} a -> s {cloudWatchLogsLogGroupArn = a} :: CreateTrail)++-- | Specifies the role for the CloudWatch Logs endpoint to assume to write+-- to a user\'s log group.+createTrail_cloudWatchLogsRoleArn :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)+createTrail_cloudWatchLogsRoleArn = Lens.lens (\CreateTrail' {cloudWatchLogsRoleArn} -> cloudWatchLogsRoleArn) (\s@CreateTrail' {} a -> s {cloudWatchLogsRoleArn = a} :: CreateTrail)++-- | Specifies whether log file integrity validation is enabled. The default+-- is false.+--+-- When you disable log file integrity validation, the chain of digest+-- files is broken after one hour. CloudTrail does not create digest files+-- for log files that were delivered during a period in which log file+-- integrity validation was disabled. For example, if you enable log file+-- integrity validation at noon on January 1, disable it at noon on January+-- 2, and re-enable it at noon on January 10, digest files will not be+-- created for the log files delivered from noon on January 2 to noon on+-- January 10. The same applies whenever you stop CloudTrail logging or+-- delete a trail.+createTrail_enableLogFileValidation :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)+createTrail_enableLogFileValidation = Lens.lens (\CreateTrail' {enableLogFileValidation} -> enableLogFileValidation) (\s@CreateTrail' {} a -> s {enableLogFileValidation = a} :: CreateTrail)++-- | Specifies whether the trail is publishing events from global services+-- such as IAM to the log files.+createTrail_includeGlobalServiceEvents :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)+createTrail_includeGlobalServiceEvents = Lens.lens (\CreateTrail' {includeGlobalServiceEvents} -> includeGlobalServiceEvents) (\s@CreateTrail' {} a -> s {includeGlobalServiceEvents = a} :: CreateTrail)++-- | Specifies whether the trail is created in the current region or in all+-- regions. The default is false, which creates a trail only in the region+-- where you are signed in. As a best practice, consider creating trails+-- that log events in all regions.+createTrail_isMultiRegionTrail :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)+createTrail_isMultiRegionTrail = Lens.lens (\CreateTrail' {isMultiRegionTrail} -> isMultiRegionTrail) (\s@CreateTrail' {} a -> s {isMultiRegionTrail = a} :: CreateTrail)++-- | Specifies whether the trail is created for all accounts in an+-- organization in Organizations, or only for the current Amazon Web+-- Services account. The default is false, and cannot be true unless the+-- call is made on behalf of an Amazon Web Services account that is the+-- management account for an organization in Organizations.+createTrail_isOrganizationTrail :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Bool)+createTrail_isOrganizationTrail = Lens.lens (\CreateTrail' {isOrganizationTrail} -> isOrganizationTrail) (\s@CreateTrail' {} a -> s {isOrganizationTrail = a} :: CreateTrail)++-- | Specifies the KMS key ID to use to encrypt the logs delivered by+-- CloudTrail. The value can be an alias name prefixed by @alias\/@, a+-- fully specified ARN to an alias, a fully specified ARN to a key, or a+-- globally unique identifier.+--+-- CloudTrail also supports KMS multi-Region keys. For more information+-- about multi-Region keys, see+-- <https://docs.aws.amazon.com/kms/latest/developerguide/multi-region-keys-overview.html Using multi-Region keys>+-- in the /Key Management Service Developer Guide/.+--+-- Examples:+--+-- -   @alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:alias\/MyAliasName@+--+-- -   @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- -   @12345678-1234-1234-1234-123456789012@+createTrail_kmsKeyId :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)+createTrail_kmsKeyId = Lens.lens (\CreateTrail' {kmsKeyId} -> kmsKeyId) (\s@CreateTrail' {} a -> s {kmsKeyId = a} :: CreateTrail)++-- | Specifies the Amazon S3 key prefix that comes after the name of the+-- bucket you have designated for log file delivery. For more information,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+-- The maximum length is 200 characters.+createTrail_s3KeyPrefix :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)+createTrail_s3KeyPrefix = Lens.lens (\CreateTrail' {s3KeyPrefix} -> s3KeyPrefix) (\s@CreateTrail' {} a -> s {s3KeyPrefix = a} :: CreateTrail)++-- | Specifies the name of the Amazon SNS topic defined for notification of+-- log file delivery. The maximum length is 256 characters.+createTrail_snsTopicName :: Lens.Lens' CreateTrail (Prelude.Maybe Prelude.Text)+createTrail_snsTopicName = Lens.lens (\CreateTrail' {snsTopicName} -> snsTopicName) (\s@CreateTrail' {} a -> s {snsTopicName = a} :: CreateTrail)++-- | Undocumented member.+createTrail_tagsList :: Lens.Lens' CreateTrail (Prelude.Maybe [Tag])+createTrail_tagsList = Lens.lens (\CreateTrail' {tagsList} -> tagsList) (\s@CreateTrail' {} a -> s {tagsList = a} :: CreateTrail) Prelude.. Lens.mapping Lens.coerced++-- | Specifies the name of the trail. The name must meet the following+-- requirements:+--+-- -   Contain only ASCII letters (a-z, A-Z), numbers (0-9), periods (.),+--     underscores (_), or dashes (-)+--+-- -   Start with a letter or number, and end with a letter or number+--+-- -   Be between 3 and 128 characters+--+-- -   Have no adjacent periods, underscores or dashes. Names like+--     @my-_namespace@ and @my--namespace@ are not valid.+--+-- -   Not be in IP address format (for example, 192.168.5.4)+createTrail_name :: Lens.Lens' CreateTrail Prelude.Text+createTrail_name = Lens.lens (\CreateTrail' {name} -> name) (\s@CreateTrail' {} a -> s {name = a} :: CreateTrail)++-- | Specifies the name of the Amazon S3 bucket designated for publishing log+-- files. See+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/create_trail_naming_policy.html Amazon S3 Bucket Naming Requirements>.+createTrail_s3BucketName :: Lens.Lens' CreateTrail Prelude.Text+createTrail_s3BucketName = Lens.lens (\CreateTrail' {s3BucketName} -> s3BucketName) (\s@CreateTrail' {} a -> s {s3BucketName = a} :: CreateTrail)++instance Core.AWSRequest CreateTrail where+  type AWSResponse CreateTrail = CreateTrailResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateTrailResponse'+            Prelude.<$> (x Data..?> "CloudWatchLogsLogGroupArn")+            Prelude.<*> (x Data..?> "CloudWatchLogsRoleArn")+            Prelude.<*> (x Data..?> "IncludeGlobalServiceEvents")+            Prelude.<*> (x Data..?> "IsMultiRegionTrail")+            Prelude.<*> (x Data..?> "IsOrganizationTrail")+            Prelude.<*> (x Data..?> "KmsKeyId")+            Prelude.<*> (x Data..?> "LogFileValidationEnabled")+            Prelude.<*> (x Data..?> "Name")+            Prelude.<*> (x Data..?> "S3BucketName")+            Prelude.<*> (x Data..?> "S3KeyPrefix")+            Prelude.<*> (x Data..?> "SnsTopicARN")+            Prelude.<*> (x Data..?> "SnsTopicName")+            Prelude.<*> (x Data..?> "TrailARN")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateTrail where+  hashWithSalt _salt CreateTrail' {..} =+    _salt+      `Prelude.hashWithSalt` cloudWatchLogsLogGroupArn+      `Prelude.hashWithSalt` cloudWatchLogsRoleArn+      `Prelude.hashWithSalt` enableLogFileValidation+      `Prelude.hashWithSalt` includeGlobalServiceEvents+      `Prelude.hashWithSalt` isMultiRegionTrail+      `Prelude.hashWithSalt` isOrganizationTrail+      `Prelude.hashWithSalt` kmsKeyId+      `Prelude.hashWithSalt` s3KeyPrefix+      `Prelude.hashWithSalt` snsTopicName+      `Prelude.hashWithSalt` tagsList+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` s3BucketName++instance Prelude.NFData CreateTrail where+  rnf CreateTrail' {..} =+    Prelude.rnf cloudWatchLogsLogGroupArn+      `Prelude.seq` Prelude.rnf cloudWatchLogsRoleArn+      `Prelude.seq` Prelude.rnf enableLogFileValidation+      `Prelude.seq` Prelude.rnf includeGlobalServiceEvents+      `Prelude.seq` Prelude.rnf isMultiRegionTrail+      `Prelude.seq` Prelude.rnf isOrganizationTrail+      `Prelude.seq` Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf s3KeyPrefix+      `Prelude.seq` Prelude.rnf snsTopicName+      `Prelude.seq` Prelude.rnf tagsList+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf s3BucketName++instance Data.ToHeaders CreateTrail where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.CreateTrail" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTrail where+  toJSON CreateTrail' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CloudWatchLogsLogGroupArn" Data..=)+              Prelude.<$> cloudWatchLogsLogGroupArn,+            ("CloudWatchLogsRoleArn" Data..=)+              Prelude.<$> cloudWatchLogsRoleArn,+            ("EnableLogFileValidation" Data..=)+              Prelude.<$> enableLogFileValidation,+            ("IncludeGlobalServiceEvents" Data..=)+              Prelude.<$> includeGlobalServiceEvents,+            ("IsMultiRegionTrail" Data..=)+              Prelude.<$> isMultiRegionTrail,+            ("IsOrganizationTrail" Data..=)+              Prelude.<$> isOrganizationTrail,+            ("KmsKeyId" Data..=) Prelude.<$> kmsKeyId,+            ("S3KeyPrefix" Data..=) Prelude.<$> s3KeyPrefix,+            ("SnsTopicName" Data..=) Prelude.<$> snsTopicName,+            ("TagsList" Data..=) Prelude.<$> tagsList,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("S3BucketName" Data..= s3BucketName)+          ]+      )++instance Data.ToPath CreateTrail where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateTrail where+  toQuery = Prelude.const Prelude.mempty++-- | Returns the objects or data listed below if successful. Otherwise,+-- returns an error.+--+-- /See:/ 'newCreateTrailResponse' smart constructor.+data CreateTrailResponse = CreateTrailResponse'+  { -- | Specifies the Amazon Resource Name (ARN) of the log group to which+    -- CloudTrail logs will be delivered.+    cloudWatchLogsLogGroupArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies the role for the CloudWatch Logs endpoint to assume to write+    -- to a user\'s log group.+    cloudWatchLogsRoleArn :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether the trail is publishing events from global services+    -- such as IAM to the log files.+    includeGlobalServiceEvents :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether the trail exists in one region or in all regions.+    isMultiRegionTrail :: Prelude.Maybe Prelude.Bool,+    -- | Specifies whether the trail is an organization trail.+    isOrganizationTrail :: Prelude.Maybe Prelude.Bool,+    -- | Specifies the KMS key ID that encrypts the events delivered by+    -- CloudTrail. The value is a fully specified ARN to a KMS key in the+    -- following format.+    --+    -- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+    kmsKeyId :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether log file integrity validation is enabled.+    logFileValidationEnabled :: Prelude.Maybe Prelude.Bool,+    -- | Specifies the name of the trail.+    name :: Prelude.Maybe Prelude.Text,+    -- | Specifies the name of the Amazon S3 bucket designated for publishing log+    -- files.+    s3BucketName :: Prelude.Maybe Prelude.Text,+    -- | Specifies the Amazon S3 key prefix that comes after the name of the+    -- bucket you have designated for log file delivery. For more information,+    -- see+    -- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+    s3KeyPrefix :: Prelude.Maybe Prelude.Text,+    -- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send+    -- notifications when log files are delivered. The format of a topic ARN+    -- is:+    --+    -- @arn:aws:sns:us-east-2:123456789012:MyTopic@+    snsTopicARN :: Prelude.Maybe Prelude.Text,+    -- | This field is no longer in use. Use SnsTopicARN.+    snsTopicName :: Prelude.Maybe Prelude.Text,+    -- | Specifies the ARN of the trail that was created. The format of a trail+    -- ARN is:+    --+    -- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+    trailARN :: 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 'CreateTrailResponse' 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:+--+-- 'cloudWatchLogsLogGroupArn', 'createTrailResponse_cloudWatchLogsLogGroupArn' - Specifies the Amazon Resource Name (ARN) of the log group to which+-- CloudTrail logs will be delivered.+--+-- 'cloudWatchLogsRoleArn', 'createTrailResponse_cloudWatchLogsRoleArn' - Specifies the role for the CloudWatch Logs endpoint to assume to write+-- to a user\'s log group.+--+-- 'includeGlobalServiceEvents', 'createTrailResponse_includeGlobalServiceEvents' - Specifies whether the trail is publishing events from global services+-- such as IAM to the log files.+--+-- 'isMultiRegionTrail', 'createTrailResponse_isMultiRegionTrail' - Specifies whether the trail exists in one region or in all regions.+--+-- 'isOrganizationTrail', 'createTrailResponse_isOrganizationTrail' - Specifies whether the trail is an organization trail.+--+-- 'kmsKeyId', 'createTrailResponse_kmsKeyId' - Specifies the KMS key ID that encrypts the events delivered by+-- CloudTrail. The value is a fully specified ARN to a KMS key in the+-- following format.+--+-- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+--+-- 'logFileValidationEnabled', 'createTrailResponse_logFileValidationEnabled' - Specifies whether log file integrity validation is enabled.+--+-- 'name', 'createTrailResponse_name' - Specifies the name of the trail.+--+-- 's3BucketName', 'createTrailResponse_s3BucketName' - Specifies the name of the Amazon S3 bucket designated for publishing log+-- files.+--+-- 's3KeyPrefix', 'createTrailResponse_s3KeyPrefix' - Specifies the Amazon S3 key prefix that comes after the name of the+-- bucket you have designated for log file delivery. For more information,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+--+-- 'snsTopicARN', 'createTrailResponse_snsTopicARN' - Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send+-- notifications when log files are delivered. The format of a topic ARN+-- is:+--+-- @arn:aws:sns:us-east-2:123456789012:MyTopic@+--+-- 'snsTopicName', 'createTrailResponse_snsTopicName' - This field is no longer in use. Use SnsTopicARN.+--+-- 'trailARN', 'createTrailResponse_trailARN' - Specifies the ARN of the trail that was created. The format of a trail+-- ARN is:+--+-- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+--+-- 'httpStatus', 'createTrailResponse_httpStatus' - The response's http status code.+newCreateTrailResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateTrailResponse+newCreateTrailResponse pHttpStatus_ =+  CreateTrailResponse'+    { cloudWatchLogsLogGroupArn =+        Prelude.Nothing,+      cloudWatchLogsRoleArn = Prelude.Nothing,+      includeGlobalServiceEvents = Prelude.Nothing,+      isMultiRegionTrail = Prelude.Nothing,+      isOrganizationTrail = Prelude.Nothing,+      kmsKeyId = Prelude.Nothing,+      logFileValidationEnabled = Prelude.Nothing,+      name = Prelude.Nothing,+      s3BucketName = Prelude.Nothing,+      s3KeyPrefix = Prelude.Nothing,+      snsTopicARN = Prelude.Nothing,+      snsTopicName = Prelude.Nothing,+      trailARN = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Specifies the Amazon Resource Name (ARN) of the log group to which+-- CloudTrail logs will be delivered.+createTrailResponse_cloudWatchLogsLogGroupArn :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_cloudWatchLogsLogGroupArn = Lens.lens (\CreateTrailResponse' {cloudWatchLogsLogGroupArn} -> cloudWatchLogsLogGroupArn) (\s@CreateTrailResponse' {} a -> s {cloudWatchLogsLogGroupArn = a} :: CreateTrailResponse)++-- | Specifies the role for the CloudWatch Logs endpoint to assume to write+-- to a user\'s log group.+createTrailResponse_cloudWatchLogsRoleArn :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_cloudWatchLogsRoleArn = Lens.lens (\CreateTrailResponse' {cloudWatchLogsRoleArn} -> cloudWatchLogsRoleArn) (\s@CreateTrailResponse' {} a -> s {cloudWatchLogsRoleArn = a} :: CreateTrailResponse)++-- | Specifies whether the trail is publishing events from global services+-- such as IAM to the log files.+createTrailResponse_includeGlobalServiceEvents :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)+createTrailResponse_includeGlobalServiceEvents = Lens.lens (\CreateTrailResponse' {includeGlobalServiceEvents} -> includeGlobalServiceEvents) (\s@CreateTrailResponse' {} a -> s {includeGlobalServiceEvents = a} :: CreateTrailResponse)++-- | Specifies whether the trail exists in one region or in all regions.+createTrailResponse_isMultiRegionTrail :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)+createTrailResponse_isMultiRegionTrail = Lens.lens (\CreateTrailResponse' {isMultiRegionTrail} -> isMultiRegionTrail) (\s@CreateTrailResponse' {} a -> s {isMultiRegionTrail = a} :: CreateTrailResponse)++-- | Specifies whether the trail is an organization trail.+createTrailResponse_isOrganizationTrail :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)+createTrailResponse_isOrganizationTrail = Lens.lens (\CreateTrailResponse' {isOrganizationTrail} -> isOrganizationTrail) (\s@CreateTrailResponse' {} a -> s {isOrganizationTrail = a} :: CreateTrailResponse)++-- | Specifies the KMS key ID that encrypts the events delivered by+-- CloudTrail. The value is a fully specified ARN to a KMS key in the+-- following format.+--+-- @arn:aws:kms:us-east-2:123456789012:key\/12345678-1234-1234-1234-123456789012@+createTrailResponse_kmsKeyId :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_kmsKeyId = Lens.lens (\CreateTrailResponse' {kmsKeyId} -> kmsKeyId) (\s@CreateTrailResponse' {} a -> s {kmsKeyId = a} :: CreateTrailResponse)++-- | Specifies whether log file integrity validation is enabled.+createTrailResponse_logFileValidationEnabled :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Bool)+createTrailResponse_logFileValidationEnabled = Lens.lens (\CreateTrailResponse' {logFileValidationEnabled} -> logFileValidationEnabled) (\s@CreateTrailResponse' {} a -> s {logFileValidationEnabled = a} :: CreateTrailResponse)++-- | Specifies the name of the trail.+createTrailResponse_name :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_name = Lens.lens (\CreateTrailResponse' {name} -> name) (\s@CreateTrailResponse' {} a -> s {name = a} :: CreateTrailResponse)++-- | Specifies the name of the Amazon S3 bucket designated for publishing log+-- files.+createTrailResponse_s3BucketName :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_s3BucketName = Lens.lens (\CreateTrailResponse' {s3BucketName} -> s3BucketName) (\s@CreateTrailResponse' {} a -> s {s3BucketName = a} :: CreateTrailResponse)++-- | Specifies the Amazon S3 key prefix that comes after the name of the+-- bucket you have designated for log file delivery. For more information,+-- see+-- <https://docs.aws.amazon.com/awscloudtrail/latest/userguide/cloudtrail-find-log-files.html Finding Your CloudTrail Log Files>.+createTrailResponse_s3KeyPrefix :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_s3KeyPrefix = Lens.lens (\CreateTrailResponse' {s3KeyPrefix} -> s3KeyPrefix) (\s@CreateTrailResponse' {} a -> s {s3KeyPrefix = a} :: CreateTrailResponse)++-- | Specifies the ARN of the Amazon SNS topic that CloudTrail uses to send+-- notifications when log files are delivered. The format of a topic ARN+-- is:+--+-- @arn:aws:sns:us-east-2:123456789012:MyTopic@+createTrailResponse_snsTopicARN :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_snsTopicARN = Lens.lens (\CreateTrailResponse' {snsTopicARN} -> snsTopicARN) (\s@CreateTrailResponse' {} a -> s {snsTopicARN = a} :: CreateTrailResponse)++-- | This field is no longer in use. Use SnsTopicARN.+createTrailResponse_snsTopicName :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_snsTopicName = Lens.lens (\CreateTrailResponse' {snsTopicName} -> snsTopicName) (\s@CreateTrailResponse' {} a -> s {snsTopicName = a} :: CreateTrailResponse)++-- | Specifies the ARN of the trail that was created. The format of a trail+-- ARN is:+--+-- @arn:aws:cloudtrail:us-east-2:123456789012:trail\/MyTrail@+createTrailResponse_trailARN :: Lens.Lens' CreateTrailResponse (Prelude.Maybe Prelude.Text)+createTrailResponse_trailARN = Lens.lens (\CreateTrailResponse' {trailARN} -> trailARN) (\s@CreateTrailResponse' {} a -> s {trailARN = a} :: CreateTrailResponse)++-- | The response's http status code.+createTrailResponse_httpStatus :: Lens.Lens' CreateTrailResponse Prelude.Int+createTrailResponse_httpStatus = Lens.lens (\CreateTrailResponse' {httpStatus} -> httpStatus) (\s@CreateTrailResponse' {} a -> s {httpStatus = a} :: CreateTrailResponse)++instance Prelude.NFData CreateTrailResponse where+  rnf CreateTrailResponse' {..} =+    Prelude.rnf cloudWatchLogsLogGroupArn+      `Prelude.seq` Prelude.rnf cloudWatchLogsRoleArn+      `Prelude.seq` Prelude.rnf includeGlobalServiceEvents+      `Prelude.seq` Prelude.rnf isMultiRegionTrail+      `Prelude.seq` Prelude.rnf isOrganizationTrail+      `Prelude.seq` Prelude.rnf kmsKeyId+      `Prelude.seq` Prelude.rnf logFileValidationEnabled+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf s3BucketName+      `Prelude.seq` Prelude.rnf s3KeyPrefix+      `Prelude.seq` Prelude.rnf snsTopicARN+      `Prelude.seq` Prelude.rnf snsTopicName+      `Prelude.seq` Prelude.rnf trailARN+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,173 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudTrail.DeleteEventDataStore+-- 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 the event data store specified by @EventDataStore@, which+-- accepts an event data store ARN. After you run @DeleteEventDataStore@,+-- the event data store enters a @PENDING_DELETION@ state, and is+-- automatically deleted after a wait period of seven days.+-- @TerminationProtectionEnabled@ must be set to @False@ on the event data+-- store; this operation cannot work if @TerminationProtectionEnabled@ is+-- @True@.+--+-- After you run @DeleteEventDataStore@ on an event data store, you cannot+-- run @ListQueries@, @DescribeQuery@, or @GetQueryResults@ on queries that+-- are using an event data store in a @PENDING_DELETION@ state. An event+-- data store in the @PENDING_DELETION@ state does not incur costs.+module Amazonka.CloudTrail.DeleteEventDataStore+  ( -- * Creating a Request+    DeleteEventDataStore (..),+    newDeleteEventDataStore,++    -- * Request Lenses+    deleteEventDataStore_eventDataStore,++    -- * Destructuring the Response+    DeleteEventDataStoreResponse (..),+    newDeleteEventDataStoreResponse,++    -- * Response Lenses+    deleteEventDataStoreResponse_httpStatus,+  )+where++import Amazonka.CloudTrail.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:/ 'newDeleteEventDataStore' smart constructor.+data DeleteEventDataStore = DeleteEventDataStore'+  { -- | The ARN (or the ID suffix of the ARN) of the event data store to delete.+    eventDataStore :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEventDataStore' 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:+--+-- 'eventDataStore', 'deleteEventDataStore_eventDataStore' - The ARN (or the ID suffix of the ARN) of the event data store to delete.+newDeleteEventDataStore ::+  -- | 'eventDataStore'+  Prelude.Text ->+  DeleteEventDataStore+newDeleteEventDataStore pEventDataStore_ =+  DeleteEventDataStore'+    { eventDataStore =+        pEventDataStore_+    }++-- | The ARN (or the ID suffix of the ARN) of the event data store to delete.+deleteEventDataStore_eventDataStore :: Lens.Lens' DeleteEventDataStore Prelude.Text+deleteEventDataStore_eventDataStore = Lens.lens (\DeleteEventDataStore' {eventDataStore} -> eventDataStore) (\s@DeleteEventDataStore' {} a -> s {eventDataStore = a} :: DeleteEventDataStore)++instance Core.AWSRequest DeleteEventDataStore where+  type+    AWSResponse DeleteEventDataStore =+      DeleteEventDataStoreResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteEventDataStoreResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteEventDataStore where+  hashWithSalt _salt DeleteEventDataStore' {..} =+    _salt `Prelude.hashWithSalt` eventDataStore++instance Prelude.NFData DeleteEventDataStore where+  rnf DeleteEventDataStore' {..} =+    Prelude.rnf eventDataStore++instance Data.ToHeaders DeleteEventDataStore where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "com.amazonaws.cloudtrail.v20131101.CloudTrail_20131101.DeleteEventDataStore" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteEventDataStore where+  toJSON DeleteEventDataStore' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("EventDataStore" Data..= eventDataStore)+          ]+      )++instance Data.ToPath DeleteEventDataStore where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteEventDataStore where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteEventDataStoreResponse' smart constructor.+data DeleteEventDataStoreResponse = DeleteEventDataStoreResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteEventDataStoreResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteEventDataStoreResponse_httpStatus' - The response's http status code.+newDeleteEventDataStoreResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteEventDataStoreResponse+newDeleteEventDataStoreResponse pHttpStatus_ =+  DeleteEventDataStoreResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteEventDataStoreResponse_httpStatus :: Lens.Lens' DeleteEventDataStoreResponse Prelude.Int+deleteEventDataStoreResponse_httpStatus = Lens.lens (\DeleteEventDataStoreResponse' {httpStatus} -> httpStatus) (\s@DeleteEventDataStoreResponse' {} a -> s {httpStatus = a} :: DeleteEventDataStoreResponse)++instance Prelude.NFData DeleteEventDataStoreResponse where+  rnf DeleteEventDataStoreResponse' {..} =+    Prelude.rnf httpStatus