amazonka-xray 1.6.1 → 2.0

raw patch · 162 files changed

+16967/−3595 lines, 162 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-xray.cabal +163/−82
• fixture/CreateGroup.yaml +10/−0
• fixture/CreateGroupResponse.proto +0/−0
• fixture/CreateSamplingRule.yaml +10/−0
• fixture/CreateSamplingRuleResponse.proto +0/−0
• fixture/DeleteGroup.yaml +10/−0
• fixture/DeleteGroupResponse.proto +0/−0
• fixture/DeleteResourcePolicy.yaml +10/−0
• fixture/DeleteResourcePolicyResponse.proto +0/−0
• fixture/DeleteSamplingRule.yaml +10/−0
• fixture/DeleteSamplingRuleResponse.proto +0/−0
• fixture/GetGroup.yaml +10/−0
• fixture/GetGroupResponse.proto +0/−0
• fixture/GetGroups.yaml +10/−0
• fixture/GetGroupsResponse.proto +0/−0
• fixture/GetInsight.yaml +10/−0
• fixture/GetInsightEvents.yaml +10/−0
• fixture/GetInsightEventsResponse.proto +0/−0
• fixture/GetInsightImpactGraph.yaml +10/−0
• fixture/GetInsightImpactGraphResponse.proto +0/−0
• fixture/GetInsightResponse.proto +0/−0
• fixture/GetInsightSummaries.yaml +10/−0
• fixture/GetInsightSummariesResponse.proto +0/−0
• fixture/GetSamplingRules.yaml +10/−0
• fixture/GetSamplingRulesResponse.proto +0/−0
• fixture/GetSamplingStatisticSummaries.yaml +10/−0
• fixture/GetSamplingStatisticSummariesResponse.proto +0/−0
• fixture/GetSamplingTargets.yaml +10/−0
• fixture/GetSamplingTargetsResponse.proto +0/−0
• fixture/GetTimeSeriesServiceStatistics.yaml +10/−0
• fixture/GetTimeSeriesServiceStatisticsResponse.proto +0/−0
• fixture/ListResourcePolicies.yaml +10/−0
• fixture/ListResourcePoliciesResponse.proto +0/−0
• fixture/ListTagsForResource.yaml +10/−0
• fixture/ListTagsForResourceResponse.proto +0/−0
• fixture/PutResourcePolicy.yaml +10/−0
• fixture/PutResourcePolicyResponse.proto +0/−0
• fixture/TagResource.yaml +10/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +10/−0
• fixture/UntagResourceResponse.proto +0/−0
• fixture/UpdateGroup.yaml +10/−0
• fixture/UpdateGroupResponse.proto +0/−0
• fixture/UpdateSamplingRule.yaml +10/−0
• fixture/UpdateSamplingRuleResponse.proto +0/−0
• gen/Amazonka/XRay.hs +541/−0
• gen/Amazonka/XRay/BatchGetTraces.hs +225/−0
• gen/Amazonka/XRay/CreateGroup.hs +289/−0
• gen/Amazonka/XRay/CreateSamplingRule.hs +241/−0
• gen/Amazonka/XRay/DeleteGroup.hs +154/−0
• gen/Amazonka/XRay/DeleteResourcePolicy.hs +173/−0
• gen/Amazonka/XRay/DeleteSamplingRule.hs +178/−0
• gen/Amazonka/XRay/GetEncryptionConfig.hs +136/−0
• gen/Amazonka/XRay/GetGroup.hs +175/−0
• gen/Amazonka/XRay/GetGroups.hs +187/−0
• gen/Amazonka/XRay/GetInsight.hs +159/−0
• gen/Amazonka/XRay/GetInsightEvents.hs +214/−0
• gen/Amazonka/XRay/GetInsightImpactGraph.hs +299/−0
• gen/Amazonka/XRay/GetInsightSummaries.hs +275/−0
• gen/Amazonka/XRay/GetSamplingRules.hs +193/−0
• gen/Amazonka/XRay/GetSamplingStatisticSummaries.hs +211/−0
• gen/Amazonka/XRay/GetSamplingTargets.hs +212/−0
• gen/Amazonka/XRay/GetServiceGraph.hs +305/−0
• gen/Amazonka/XRay/GetTimeSeriesServiceStatistics.hs +348/−0
• gen/Amazonka/XRay/GetTraceGraph.hs +207/−0
• gen/Amazonka/XRay/GetTraceSummaries.hs +347/−0
• gen/Amazonka/XRay/Lens.hs +689/−0
• gen/Amazonka/XRay/ListResourcePolicies.hs +194/−0
• gen/Amazonka/XRay/ListTagsForResource.hs +226/−0
• gen/Amazonka/XRay/PutEncryptionConfig.hs +215/−0
• gen/Amazonka/XRay/PutResourcePolicy.hs +274/−0
• gen/Amazonka/XRay/PutTelemetryRecords.hs +180/−0
• gen/Amazonka/XRay/PutTraceSegments.hs +216/−0
• gen/Amazonka/XRay/TagResource.hs +217/−0
• gen/Amazonka/XRay/Types.hs +743/−0
• gen/Amazonka/XRay/Types/Alias.hs +96/−0
• gen/Amazonka/XRay/Types/AnnotationValue.hs +97/−0
• gen/Amazonka/XRay/Types/AnomalousService.hs +69/−0
• gen/Amazonka/XRay/Types/AvailabilityZoneDetail.hs +68/−0
• gen/Amazonka/XRay/Types/BackendConnectionErrors.hs +124/−0
• gen/Amazonka/XRay/Types/Edge.hs +177/−0
• gen/Amazonka/XRay/Types/EdgeStatistics.hs +128/−0
• gen/Amazonka/XRay/Types/EncryptionConfig.hs +105/−0
• gen/Amazonka/XRay/Types/EncryptionStatus.hs +71/−0
• gen/Amazonka/XRay/Types/EncryptionType.hs +71/−0
• gen/Amazonka/XRay/Types/ErrorRootCause.hs +88/−0
• gen/Amazonka/XRay/Types/ErrorRootCauseEntity.hs +98/−0
• gen/Amazonka/XRay/Types/ErrorRootCauseService.hs +134/−0
• gen/Amazonka/XRay/Types/ErrorStatistics.hs +103/−0
• gen/Amazonka/XRay/Types/FaultRootCause.hs +88/−0
• gen/Amazonka/XRay/Types/FaultRootCauseEntity.hs +98/−0
• gen/Amazonka/XRay/Types/FaultRootCauseService.hs +134/−0
• gen/Amazonka/XRay/Types/FaultStatistics.hs +91/−0
• gen/Amazonka/XRay/Types/ForecastStatistics.hs +86/−0
• gen/Amazonka/XRay/Types/Group.hs +130/−0
• gen/Amazonka/XRay/Types/GroupSummary.hs +130/−0
• gen/Amazonka/XRay/Types/HistogramEntry.hs +85/−0
• gen/Amazonka/XRay/Types/Http.hs +120/−0
• gen/Amazonka/XRay/Types/Insight.hs +227/−0
• gen/Amazonka/XRay/Types/InsightCategory.hs +66/−0
• gen/Amazonka/XRay/Types/InsightEvent.hs +143/−0
• gen/Amazonka/XRay/Types/InsightImpactGraphEdge.hs +72/−0
• gen/Amazonka/XRay/Types/InsightImpactGraphService.hs +181/−0
• gen/Amazonka/XRay/Types/InsightState.hs +71/−0
• gen/Amazonka/XRay/Types/InsightSummary.hs +238/−0
• gen/Amazonka/XRay/Types/InsightsConfiguration.hs +105/−0
• gen/Amazonka/XRay/Types/InstanceIdDetail.hs +67/−0
• gen/Amazonka/XRay/Types/RequestImpactStatistics.hs +97/−0
• gen/Amazonka/XRay/Types/ResourceARNDetail.hs +67/−0
• gen/Amazonka/XRay/Types/ResourcePolicy.hs +113/−0
• gen/Amazonka/XRay/Types/ResponseTimeRootCause.hs +89/−0
• gen/Amazonka/XRay/Types/ResponseTimeRootCauseEntity.hs +98/−0
• gen/Amazonka/XRay/Types/ResponseTimeRootCauseService.hs +138/−0
• gen/Amazonka/XRay/Types/RootCauseException.hs +83/−0
• gen/Amazonka/XRay/Types/SamplingRule.hs +290/−0
• gen/Amazonka/XRay/Types/SamplingRuleRecord.hs +99/−0
• gen/Amazonka/XRay/Types/SamplingRuleUpdate.hs +224/−0
• gen/Amazonka/XRay/Types/SamplingStatisticSummary.hs +122/−0
• gen/Amazonka/XRay/Types/SamplingStatisticsDocument.hs +150/−0
• gen/Amazonka/XRay/Types/SamplingStrategy.hs +83/−0
• gen/Amazonka/XRay/Types/SamplingStrategyName.hs +71/−0
• gen/Amazonka/XRay/Types/SamplingTargetDocument.hs +130/−0
• gen/Amazonka/XRay/Types/Segment.hs +91/−0
• gen/Amazonka/XRay/Types/ServiceId.hs +100/−0
• gen/Amazonka/XRay/Types/ServiceInfo.hs +269/−0
• gen/Amazonka/XRay/Types/ServiceStatistics.hs +129/−0
• gen/Amazonka/XRay/Types/Tag.hs +124/−0
• gen/Amazonka/XRay/Types/TelemetryRecord.hs +128/−0
• gen/Amazonka/XRay/Types/TimeRangeType.hs +71/−0
• gen/Amazonka/XRay/Types/TimeSeriesServiceStatistics.hs +126/−0
• gen/Amazonka/XRay/Types/Trace.hs +127/−0
• gen/Amazonka/XRay/Types/TraceSummary.hs +358/−0
• gen/Amazonka/XRay/Types/TraceUser.hs +85/−0
• gen/Amazonka/XRay/Types/UnprocessedStatistics.hs +98/−0
• gen/Amazonka/XRay/Types/UnprocessedTraceSegment.hs +97/−0
• gen/Amazonka/XRay/Types/ValueWithServiceIds.hs +87/−0
• gen/Amazonka/XRay/UntagResource.hs +163/−0
• gen/Amazonka/XRay/UpdateGroup.hs +227/−0
• gen/Amazonka/XRay/UpdateSamplingRule.hs +162/−0
• gen/Amazonka/XRay/Waiters.hs +24/−0
• gen/Network/AWS/XRay.hs +0/−278
• gen/Network/AWS/XRay/BatchGetTraces.hs +0/−167
• gen/Network/AWS/XRay/GetEncryptionConfig.hs +0/−114
• gen/Network/AWS/XRay/GetServiceGraph.hs +0/−192
• gen/Network/AWS/XRay/GetTraceGraph.hs +0/−156
• gen/Network/AWS/XRay/GetTraceSummaries.hs +0/−223
• gen/Network/AWS/XRay/PutEncryptionConfig.hs +0/−137
• gen/Network/AWS/XRay/PutTelemetryRecords.hs +0/−149
• gen/Network/AWS/XRay/PutTraceSegments.hs +0/−160
• gen/Network/AWS/XRay/Types.hs +0/−256
• gen/Network/AWS/XRay/Types/Product.hs +0/−1356
• gen/Network/AWS/XRay/Types/Sum.hs +0/−77
• gen/Network/AWS/XRay/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/Gen/XRay.hs +0/−183
• test/Test/AWS/XRay.hs +0/−20
• test/Test/AWS/XRay/Internal.hs +0/−9
• test/Test/Amazonka/Gen/XRay.hs +638/−0
• test/Test/Amazonka/XRay.hs +20/−0
• test/Test/Amazonka/XRay/Internal.hs +8/−0

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

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

@@ -1,93 +1,174 @@-name:                  amazonka-xray-version:               1.6.1-synopsis:              Amazon X-Ray 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-xray+version:            2.0+synopsis:           Amazon X-Ray 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.XRay" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2016-04-12@ 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.XRay.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.XRay" 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-xray+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-xray  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.XRay-        , Network.AWS.XRay.BatchGetTraces-        , Network.AWS.XRay.GetEncryptionConfig-        , Network.AWS.XRay.GetServiceGraph-        , Network.AWS.XRay.GetTraceGraph-        , Network.AWS.XRay.GetTraceSummaries-        , Network.AWS.XRay.PutEncryptionConfig-        , Network.AWS.XRay.PutTelemetryRecords-        , Network.AWS.XRay.PutTraceSegments-        , Network.AWS.XRay.Types-        , Network.AWS.XRay.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.XRay.Types.Product-        , Network.AWS.XRay.Types.Sum+  exposed-modules:+    Amazonka.XRay+    Amazonka.XRay.BatchGetTraces+    Amazonka.XRay.CreateGroup+    Amazonka.XRay.CreateSamplingRule+    Amazonka.XRay.DeleteGroup+    Amazonka.XRay.DeleteResourcePolicy+    Amazonka.XRay.DeleteSamplingRule+    Amazonka.XRay.GetEncryptionConfig+    Amazonka.XRay.GetGroup+    Amazonka.XRay.GetGroups+    Amazonka.XRay.GetInsight+    Amazonka.XRay.GetInsightEvents+    Amazonka.XRay.GetInsightImpactGraph+    Amazonka.XRay.GetInsightSummaries+    Amazonka.XRay.GetSamplingRules+    Amazonka.XRay.GetSamplingStatisticSummaries+    Amazonka.XRay.GetSamplingTargets+    Amazonka.XRay.GetServiceGraph+    Amazonka.XRay.GetTimeSeriesServiceStatistics+    Amazonka.XRay.GetTraceGraph+    Amazonka.XRay.GetTraceSummaries+    Amazonka.XRay.Lens+    Amazonka.XRay.ListResourcePolicies+    Amazonka.XRay.ListTagsForResource+    Amazonka.XRay.PutEncryptionConfig+    Amazonka.XRay.PutResourcePolicy+    Amazonka.XRay.PutTelemetryRecords+    Amazonka.XRay.PutTraceSegments+    Amazonka.XRay.TagResource+    Amazonka.XRay.Types+    Amazonka.XRay.Types.Alias+    Amazonka.XRay.Types.AnnotationValue+    Amazonka.XRay.Types.AnomalousService+    Amazonka.XRay.Types.AvailabilityZoneDetail+    Amazonka.XRay.Types.BackendConnectionErrors+    Amazonka.XRay.Types.Edge+    Amazonka.XRay.Types.EdgeStatistics+    Amazonka.XRay.Types.EncryptionConfig+    Amazonka.XRay.Types.EncryptionStatus+    Amazonka.XRay.Types.EncryptionType+    Amazonka.XRay.Types.ErrorRootCause+    Amazonka.XRay.Types.ErrorRootCauseEntity+    Amazonka.XRay.Types.ErrorRootCauseService+    Amazonka.XRay.Types.ErrorStatistics+    Amazonka.XRay.Types.FaultRootCause+    Amazonka.XRay.Types.FaultRootCauseEntity+    Amazonka.XRay.Types.FaultRootCauseService+    Amazonka.XRay.Types.FaultStatistics+    Amazonka.XRay.Types.ForecastStatistics+    Amazonka.XRay.Types.Group+    Amazonka.XRay.Types.GroupSummary+    Amazonka.XRay.Types.HistogramEntry+    Amazonka.XRay.Types.Http+    Amazonka.XRay.Types.Insight+    Amazonka.XRay.Types.InsightCategory+    Amazonka.XRay.Types.InsightEvent+    Amazonka.XRay.Types.InsightImpactGraphEdge+    Amazonka.XRay.Types.InsightImpactGraphService+    Amazonka.XRay.Types.InsightsConfiguration+    Amazonka.XRay.Types.InsightState+    Amazonka.XRay.Types.InsightSummary+    Amazonka.XRay.Types.InstanceIdDetail+    Amazonka.XRay.Types.RequestImpactStatistics+    Amazonka.XRay.Types.ResourceARNDetail+    Amazonka.XRay.Types.ResourcePolicy+    Amazonka.XRay.Types.ResponseTimeRootCause+    Amazonka.XRay.Types.ResponseTimeRootCauseEntity+    Amazonka.XRay.Types.ResponseTimeRootCauseService+    Amazonka.XRay.Types.RootCauseException+    Amazonka.XRay.Types.SamplingRule+    Amazonka.XRay.Types.SamplingRuleRecord+    Amazonka.XRay.Types.SamplingRuleUpdate+    Amazonka.XRay.Types.SamplingStatisticsDocument+    Amazonka.XRay.Types.SamplingStatisticSummary+    Amazonka.XRay.Types.SamplingStrategy+    Amazonka.XRay.Types.SamplingStrategyName+    Amazonka.XRay.Types.SamplingTargetDocument+    Amazonka.XRay.Types.Segment+    Amazonka.XRay.Types.ServiceId+    Amazonka.XRay.Types.ServiceInfo+    Amazonka.XRay.Types.ServiceStatistics+    Amazonka.XRay.Types.Tag+    Amazonka.XRay.Types.TelemetryRecord+    Amazonka.XRay.Types.TimeRangeType+    Amazonka.XRay.Types.TimeSeriesServiceStatistics+    Amazonka.XRay.Types.Trace+    Amazonka.XRay.Types.TraceSummary+    Amazonka.XRay.Types.TraceUser+    Amazonka.XRay.Types.UnprocessedStatistics+    Amazonka.XRay.Types.UnprocessedTraceSegment+    Amazonka.XRay.Types.ValueWithServiceIds+    Amazonka.XRay.UntagResource+    Amazonka.XRay.UpdateGroup+    Amazonka.XRay.UpdateSamplingRule+    Amazonka.XRay.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-xray-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.XRay-        , Test.AWS.Gen.XRay-        , Test.AWS.XRay.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.Gen.XRay+    Test.Amazonka.XRay+    Test.Amazonka.XRay.Internal -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-xray-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , amazonka-xray+    , 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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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/xray/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  xray.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,541 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.XRay+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2016-04-12@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon Web Services X-Ray provides APIs for managing debug traces and+-- retrieving service maps and other data created by processing those+-- traces.+module Amazonka.XRay+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** InvalidPolicyRevisionIdException+    _InvalidPolicyRevisionIdException,++    -- ** InvalidRequestException+    _InvalidRequestException,++    -- ** LockoutPreventionException+    _LockoutPreventionException,++    -- ** MalformedPolicyDocumentException+    _MalformedPolicyDocumentException,++    -- ** PolicyCountLimitExceededException+    _PolicyCountLimitExceededException,++    -- ** PolicySizeLimitExceededException+    _PolicySizeLimitExceededException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** RuleLimitExceededException+    _RuleLimitExceededException,++    -- ** ThrottledException+    _ThrottledException,++    -- ** TooManyTagsException+    _TooManyTagsException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** BatchGetTraces (Paginated)+    BatchGetTraces (BatchGetTraces'),+    newBatchGetTraces,+    BatchGetTracesResponse (BatchGetTracesResponse'),+    newBatchGetTracesResponse,++    -- ** CreateGroup+    CreateGroup (CreateGroup'),+    newCreateGroup,+    CreateGroupResponse (CreateGroupResponse'),+    newCreateGroupResponse,++    -- ** CreateSamplingRule+    CreateSamplingRule (CreateSamplingRule'),+    newCreateSamplingRule,+    CreateSamplingRuleResponse (CreateSamplingRuleResponse'),+    newCreateSamplingRuleResponse,++    -- ** DeleteGroup+    DeleteGroup (DeleteGroup'),+    newDeleteGroup,+    DeleteGroupResponse (DeleteGroupResponse'),+    newDeleteGroupResponse,++    -- ** DeleteResourcePolicy+    DeleteResourcePolicy (DeleteResourcePolicy'),+    newDeleteResourcePolicy,+    DeleteResourcePolicyResponse (DeleteResourcePolicyResponse'),+    newDeleteResourcePolicyResponse,++    -- ** DeleteSamplingRule+    DeleteSamplingRule (DeleteSamplingRule'),+    newDeleteSamplingRule,+    DeleteSamplingRuleResponse (DeleteSamplingRuleResponse'),+    newDeleteSamplingRuleResponse,++    -- ** GetEncryptionConfig+    GetEncryptionConfig (GetEncryptionConfig'),+    newGetEncryptionConfig,+    GetEncryptionConfigResponse (GetEncryptionConfigResponse'),+    newGetEncryptionConfigResponse,++    -- ** GetGroup+    GetGroup (GetGroup'),+    newGetGroup,+    GetGroupResponse (GetGroupResponse'),+    newGetGroupResponse,++    -- ** GetGroups (Paginated)+    GetGroups (GetGroups'),+    newGetGroups,+    GetGroupsResponse (GetGroupsResponse'),+    newGetGroupsResponse,++    -- ** GetInsight+    GetInsight (GetInsight'),+    newGetInsight,+    GetInsightResponse (GetInsightResponse'),+    newGetInsightResponse,++    -- ** GetInsightEvents+    GetInsightEvents (GetInsightEvents'),+    newGetInsightEvents,+    GetInsightEventsResponse (GetInsightEventsResponse'),+    newGetInsightEventsResponse,++    -- ** GetInsightImpactGraph+    GetInsightImpactGraph (GetInsightImpactGraph'),+    newGetInsightImpactGraph,+    GetInsightImpactGraphResponse (GetInsightImpactGraphResponse'),+    newGetInsightImpactGraphResponse,++    -- ** GetInsightSummaries+    GetInsightSummaries (GetInsightSummaries'),+    newGetInsightSummaries,+    GetInsightSummariesResponse (GetInsightSummariesResponse'),+    newGetInsightSummariesResponse,++    -- ** GetSamplingRules (Paginated)+    GetSamplingRules (GetSamplingRules'),+    newGetSamplingRules,+    GetSamplingRulesResponse (GetSamplingRulesResponse'),+    newGetSamplingRulesResponse,++    -- ** GetSamplingStatisticSummaries (Paginated)+    GetSamplingStatisticSummaries (GetSamplingStatisticSummaries'),+    newGetSamplingStatisticSummaries,+    GetSamplingStatisticSummariesResponse (GetSamplingStatisticSummariesResponse'),+    newGetSamplingStatisticSummariesResponse,++    -- ** GetSamplingTargets+    GetSamplingTargets (GetSamplingTargets'),+    newGetSamplingTargets,+    GetSamplingTargetsResponse (GetSamplingTargetsResponse'),+    newGetSamplingTargetsResponse,++    -- ** GetServiceGraph (Paginated)+    GetServiceGraph (GetServiceGraph'),+    newGetServiceGraph,+    GetServiceGraphResponse (GetServiceGraphResponse'),+    newGetServiceGraphResponse,++    -- ** GetTimeSeriesServiceStatistics (Paginated)+    GetTimeSeriesServiceStatistics (GetTimeSeriesServiceStatistics'),+    newGetTimeSeriesServiceStatistics,+    GetTimeSeriesServiceStatisticsResponse (GetTimeSeriesServiceStatisticsResponse'),+    newGetTimeSeriesServiceStatisticsResponse,++    -- ** GetTraceGraph (Paginated)+    GetTraceGraph (GetTraceGraph'),+    newGetTraceGraph,+    GetTraceGraphResponse (GetTraceGraphResponse'),+    newGetTraceGraphResponse,++    -- ** GetTraceSummaries (Paginated)+    GetTraceSummaries (GetTraceSummaries'),+    newGetTraceSummaries,+    GetTraceSummariesResponse (GetTraceSummariesResponse'),+    newGetTraceSummariesResponse,++    -- ** ListResourcePolicies (Paginated)+    ListResourcePolicies (ListResourcePolicies'),+    newListResourcePolicies,+    ListResourcePoliciesResponse (ListResourcePoliciesResponse'),+    newListResourcePoliciesResponse,++    -- ** ListTagsForResource (Paginated)+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** PutEncryptionConfig+    PutEncryptionConfig (PutEncryptionConfig'),+    newPutEncryptionConfig,+    PutEncryptionConfigResponse (PutEncryptionConfigResponse'),+    newPutEncryptionConfigResponse,++    -- ** PutResourcePolicy+    PutResourcePolicy (PutResourcePolicy'),+    newPutResourcePolicy,+    PutResourcePolicyResponse (PutResourcePolicyResponse'),+    newPutResourcePolicyResponse,++    -- ** PutTelemetryRecords+    PutTelemetryRecords (PutTelemetryRecords'),+    newPutTelemetryRecords,+    PutTelemetryRecordsResponse (PutTelemetryRecordsResponse'),+    newPutTelemetryRecordsResponse,++    -- ** PutTraceSegments+    PutTraceSegments (PutTraceSegments'),+    newPutTraceSegments,+    PutTraceSegmentsResponse (PutTraceSegmentsResponse'),+    newPutTraceSegmentsResponse,++    -- ** TagResource+    TagResource (TagResource'),+    newTagResource,+    TagResourceResponse (TagResourceResponse'),+    newTagResourceResponse,++    -- ** UntagResource+    UntagResource (UntagResource'),+    newUntagResource,+    UntagResourceResponse (UntagResourceResponse'),+    newUntagResourceResponse,++    -- ** UpdateGroup+    UpdateGroup (UpdateGroup'),+    newUpdateGroup,+    UpdateGroupResponse (UpdateGroupResponse'),+    newUpdateGroupResponse,++    -- ** UpdateSamplingRule+    UpdateSamplingRule (UpdateSamplingRule'),+    newUpdateSamplingRule,+    UpdateSamplingRuleResponse (UpdateSamplingRuleResponse'),+    newUpdateSamplingRuleResponse,++    -- * Types++    -- ** EncryptionStatus+    EncryptionStatus (..),++    -- ** EncryptionType+    EncryptionType (..),++    -- ** InsightCategory+    InsightCategory (..),++    -- ** InsightState+    InsightState (..),++    -- ** SamplingStrategyName+    SamplingStrategyName (..),++    -- ** TimeRangeType+    TimeRangeType (..),++    -- ** Alias+    Alias (Alias'),+    newAlias,++    -- ** AnnotationValue+    AnnotationValue (AnnotationValue'),+    newAnnotationValue,++    -- ** AnomalousService+    AnomalousService (AnomalousService'),+    newAnomalousService,++    -- ** AvailabilityZoneDetail+    AvailabilityZoneDetail (AvailabilityZoneDetail'),+    newAvailabilityZoneDetail,++    -- ** BackendConnectionErrors+    BackendConnectionErrors (BackendConnectionErrors'),+    newBackendConnectionErrors,++    -- ** Edge+    Edge (Edge'),+    newEdge,++    -- ** EdgeStatistics+    EdgeStatistics (EdgeStatistics'),+    newEdgeStatistics,++    -- ** EncryptionConfig+    EncryptionConfig (EncryptionConfig'),+    newEncryptionConfig,++    -- ** ErrorRootCause+    ErrorRootCause (ErrorRootCause'),+    newErrorRootCause,++    -- ** ErrorRootCauseEntity+    ErrorRootCauseEntity (ErrorRootCauseEntity'),+    newErrorRootCauseEntity,++    -- ** ErrorRootCauseService+    ErrorRootCauseService (ErrorRootCauseService'),+    newErrorRootCauseService,++    -- ** ErrorStatistics+    ErrorStatistics (ErrorStatistics'),+    newErrorStatistics,++    -- ** FaultRootCause+    FaultRootCause (FaultRootCause'),+    newFaultRootCause,++    -- ** FaultRootCauseEntity+    FaultRootCauseEntity (FaultRootCauseEntity'),+    newFaultRootCauseEntity,++    -- ** FaultRootCauseService+    FaultRootCauseService (FaultRootCauseService'),+    newFaultRootCauseService,++    -- ** FaultStatistics+    FaultStatistics (FaultStatistics'),+    newFaultStatistics,++    -- ** ForecastStatistics+    ForecastStatistics (ForecastStatistics'),+    newForecastStatistics,++    -- ** Group+    Group (Group'),+    newGroup,++    -- ** GroupSummary+    GroupSummary (GroupSummary'),+    newGroupSummary,++    -- ** HistogramEntry+    HistogramEntry (HistogramEntry'),+    newHistogramEntry,++    -- ** Http+    Http (Http'),+    newHttp,++    -- ** Insight+    Insight (Insight'),+    newInsight,++    -- ** InsightEvent+    InsightEvent (InsightEvent'),+    newInsightEvent,++    -- ** InsightImpactGraphEdge+    InsightImpactGraphEdge (InsightImpactGraphEdge'),+    newInsightImpactGraphEdge,++    -- ** InsightImpactGraphService+    InsightImpactGraphService (InsightImpactGraphService'),+    newInsightImpactGraphService,++    -- ** InsightSummary+    InsightSummary (InsightSummary'),+    newInsightSummary,++    -- ** InsightsConfiguration+    InsightsConfiguration (InsightsConfiguration'),+    newInsightsConfiguration,++    -- ** InstanceIdDetail+    InstanceIdDetail (InstanceIdDetail'),+    newInstanceIdDetail,++    -- ** RequestImpactStatistics+    RequestImpactStatistics (RequestImpactStatistics'),+    newRequestImpactStatistics,++    -- ** ResourceARNDetail+    ResourceARNDetail (ResourceARNDetail'),+    newResourceARNDetail,++    -- ** ResourcePolicy+    ResourcePolicy (ResourcePolicy'),+    newResourcePolicy,++    -- ** ResponseTimeRootCause+    ResponseTimeRootCause (ResponseTimeRootCause'),+    newResponseTimeRootCause,++    -- ** ResponseTimeRootCauseEntity+    ResponseTimeRootCauseEntity (ResponseTimeRootCauseEntity'),+    newResponseTimeRootCauseEntity,++    -- ** ResponseTimeRootCauseService+    ResponseTimeRootCauseService (ResponseTimeRootCauseService'),+    newResponseTimeRootCauseService,++    -- ** RootCauseException+    RootCauseException (RootCauseException'),+    newRootCauseException,++    -- ** SamplingRule+    SamplingRule (SamplingRule'),+    newSamplingRule,++    -- ** SamplingRuleRecord+    SamplingRuleRecord (SamplingRuleRecord'),+    newSamplingRuleRecord,++    -- ** SamplingRuleUpdate+    SamplingRuleUpdate (SamplingRuleUpdate'),+    newSamplingRuleUpdate,++    -- ** SamplingStatisticSummary+    SamplingStatisticSummary (SamplingStatisticSummary'),+    newSamplingStatisticSummary,++    -- ** SamplingStatisticsDocument+    SamplingStatisticsDocument (SamplingStatisticsDocument'),+    newSamplingStatisticsDocument,++    -- ** SamplingStrategy+    SamplingStrategy (SamplingStrategy'),+    newSamplingStrategy,++    -- ** SamplingTargetDocument+    SamplingTargetDocument (SamplingTargetDocument'),+    newSamplingTargetDocument,++    -- ** Segment+    Segment (Segment'),+    newSegment,++    -- ** ServiceId+    ServiceId (ServiceId'),+    newServiceId,++    -- ** ServiceInfo+    ServiceInfo (ServiceInfo'),+    newServiceInfo,++    -- ** ServiceStatistics+    ServiceStatistics (ServiceStatistics'),+    newServiceStatistics,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** TelemetryRecord+    TelemetryRecord (TelemetryRecord'),+    newTelemetryRecord,++    -- ** TimeSeriesServiceStatistics+    TimeSeriesServiceStatistics (TimeSeriesServiceStatistics'),+    newTimeSeriesServiceStatistics,++    -- ** Trace+    Trace (Trace'),+    newTrace,++    -- ** TraceSummary+    TraceSummary (TraceSummary'),+    newTraceSummary,++    -- ** TraceUser+    TraceUser (TraceUser'),+    newTraceUser,++    -- ** UnprocessedStatistics+    UnprocessedStatistics (UnprocessedStatistics'),+    newUnprocessedStatistics,++    -- ** UnprocessedTraceSegment+    UnprocessedTraceSegment (UnprocessedTraceSegment'),+    newUnprocessedTraceSegment,++    -- ** ValueWithServiceIds+    ValueWithServiceIds (ValueWithServiceIds'),+    newValueWithServiceIds,+  )+where++import Amazonka.XRay.BatchGetTraces+import Amazonka.XRay.CreateGroup+import Amazonka.XRay.CreateSamplingRule+import Amazonka.XRay.DeleteGroup+import Amazonka.XRay.DeleteResourcePolicy+import Amazonka.XRay.DeleteSamplingRule+import Amazonka.XRay.GetEncryptionConfig+import Amazonka.XRay.GetGroup+import Amazonka.XRay.GetGroups+import Amazonka.XRay.GetInsight+import Amazonka.XRay.GetInsightEvents+import Amazonka.XRay.GetInsightImpactGraph+import Amazonka.XRay.GetInsightSummaries+import Amazonka.XRay.GetSamplingRules+import Amazonka.XRay.GetSamplingStatisticSummaries+import Amazonka.XRay.GetSamplingTargets+import Amazonka.XRay.GetServiceGraph+import Amazonka.XRay.GetTimeSeriesServiceStatistics+import Amazonka.XRay.GetTraceGraph+import Amazonka.XRay.GetTraceSummaries+import Amazonka.XRay.Lens+import Amazonka.XRay.ListResourcePolicies+import Amazonka.XRay.ListTagsForResource+import Amazonka.XRay.PutEncryptionConfig+import Amazonka.XRay.PutResourcePolicy+import Amazonka.XRay.PutTelemetryRecords+import Amazonka.XRay.PutTraceSegments+import Amazonka.XRay.TagResource+import Amazonka.XRay.Types+import Amazonka.XRay.UntagResource+import Amazonka.XRay.UpdateGroup+import Amazonka.XRay.UpdateSamplingRule+import Amazonka.XRay.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 'XRay'.++-- $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,225 @@+{-# 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.XRay.BatchGetTraces+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of traces specified by ID. Each trace is a collection+-- of segment documents that originates from a single request. Use+-- @GetTraceSummaries@ to get a list of trace IDs.+--+-- This operation returns paginated results.+module Amazonka.XRay.BatchGetTraces+  ( -- * Creating a Request+    BatchGetTraces (..),+    newBatchGetTraces,++    -- * Request Lenses+    batchGetTraces_nextToken,+    batchGetTraces_traceIds,++    -- * Destructuring the Response+    BatchGetTracesResponse (..),+    newBatchGetTracesResponse,++    -- * Response Lenses+    batchGetTracesResponse_nextToken,+    batchGetTracesResponse_traces,+    batchGetTracesResponse_unprocessedTraceIds,+    batchGetTracesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newBatchGetTraces' smart constructor.+data BatchGetTraces = BatchGetTraces'+  { -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Specify the trace IDs of requests for which to retrieve segments.+    traceIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BatchGetTraces' 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:+--+-- 'nextToken', 'batchGetTraces_nextToken' - Pagination token.+--+-- 'traceIds', 'batchGetTraces_traceIds' - Specify the trace IDs of requests for which to retrieve segments.+newBatchGetTraces ::+  BatchGetTraces+newBatchGetTraces =+  BatchGetTraces'+    { nextToken = Prelude.Nothing,+      traceIds = Prelude.mempty+    }++-- | Pagination token.+batchGetTraces_nextToken :: Lens.Lens' BatchGetTraces (Prelude.Maybe Prelude.Text)+batchGetTraces_nextToken = Lens.lens (\BatchGetTraces' {nextToken} -> nextToken) (\s@BatchGetTraces' {} a -> s {nextToken = a} :: BatchGetTraces)++-- | Specify the trace IDs of requests for which to retrieve segments.+batchGetTraces_traceIds :: Lens.Lens' BatchGetTraces [Prelude.Text]+batchGetTraces_traceIds = Lens.lens (\BatchGetTraces' {traceIds} -> traceIds) (\s@BatchGetTraces' {} a -> s {traceIds = a} :: BatchGetTraces) Prelude.. Lens.coerced++instance Core.AWSPager BatchGetTraces where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? batchGetTracesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? batchGetTracesResponse_traces+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& batchGetTraces_nextToken+          Lens..~ rs+          Lens.^? batchGetTracesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest BatchGetTraces where+  type+    AWSResponse BatchGetTraces =+      BatchGetTracesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          BatchGetTracesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Traces" Core..!@ Prelude.mempty)+            Prelude.<*> ( x+                            Data..?> "UnprocessedTraceIds"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable BatchGetTraces where+  hashWithSalt _salt BatchGetTraces' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` traceIds++instance Prelude.NFData BatchGetTraces where+  rnf BatchGetTraces' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf traceIds++instance Data.ToHeaders BatchGetTraces where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON BatchGetTraces where+  toJSON BatchGetTraces' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("TraceIds" Data..= traceIds)+          ]+      )++instance Data.ToPath BatchGetTraces where+  toPath = Prelude.const "/Traces"++instance Data.ToQuery BatchGetTraces where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newBatchGetTracesResponse' smart constructor.+data BatchGetTracesResponse = BatchGetTracesResponse'+  { -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Full traces for the specified requests.+    traces :: Prelude.Maybe [Trace],+    -- | Trace IDs of requests that haven\'t been processed.+    unprocessedTraceIds :: 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 'BatchGetTracesResponse' 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:+--+-- 'nextToken', 'batchGetTracesResponse_nextToken' - Pagination token.+--+-- 'traces', 'batchGetTracesResponse_traces' - Full traces for the specified requests.+--+-- 'unprocessedTraceIds', 'batchGetTracesResponse_unprocessedTraceIds' - Trace IDs of requests that haven\'t been processed.+--+-- 'httpStatus', 'batchGetTracesResponse_httpStatus' - The response's http status code.+newBatchGetTracesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  BatchGetTracesResponse+newBatchGetTracesResponse pHttpStatus_ =+  BatchGetTracesResponse'+    { nextToken =+        Prelude.Nothing,+      traces = Prelude.Nothing,+      unprocessedTraceIds = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Pagination token.+batchGetTracesResponse_nextToken :: Lens.Lens' BatchGetTracesResponse (Prelude.Maybe Prelude.Text)+batchGetTracesResponse_nextToken = Lens.lens (\BatchGetTracesResponse' {nextToken} -> nextToken) (\s@BatchGetTracesResponse' {} a -> s {nextToken = a} :: BatchGetTracesResponse)++-- | Full traces for the specified requests.+batchGetTracesResponse_traces :: Lens.Lens' BatchGetTracesResponse (Prelude.Maybe [Trace])+batchGetTracesResponse_traces = Lens.lens (\BatchGetTracesResponse' {traces} -> traces) (\s@BatchGetTracesResponse' {} a -> s {traces = a} :: BatchGetTracesResponse) Prelude.. Lens.mapping Lens.coerced++-- | Trace IDs of requests that haven\'t been processed.+batchGetTracesResponse_unprocessedTraceIds :: Lens.Lens' BatchGetTracesResponse (Prelude.Maybe [Prelude.Text])+batchGetTracesResponse_unprocessedTraceIds = Lens.lens (\BatchGetTracesResponse' {unprocessedTraceIds} -> unprocessedTraceIds) (\s@BatchGetTracesResponse' {} a -> s {unprocessedTraceIds = a} :: BatchGetTracesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+batchGetTracesResponse_httpStatus :: Lens.Lens' BatchGetTracesResponse Prelude.Int+batchGetTracesResponse_httpStatus = Lens.lens (\BatchGetTracesResponse' {httpStatus} -> httpStatus) (\s@BatchGetTracesResponse' {} a -> s {httpStatus = a} :: BatchGetTracesResponse)++instance Prelude.NFData BatchGetTracesResponse where+  rnf BatchGetTracesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf traces+      `Prelude.seq` Prelude.rnf unprocessedTraceIds+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,289 @@+{-# 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.XRay.CreateGroup+-- 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 group resource with a name and a filter expression.+module Amazonka.XRay.CreateGroup+  ( -- * Creating a Request+    CreateGroup (..),+    newCreateGroup,++    -- * Request Lenses+    createGroup_filterExpression,+    createGroup_insightsConfiguration,+    createGroup_tags,+    createGroup_groupName,++    -- * Destructuring the Response+    CreateGroupResponse (..),+    newCreateGroupResponse,++    -- * Response Lenses+    createGroupResponse_group,+    createGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newCreateGroup' smart constructor.+data CreateGroup = CreateGroup'+  { -- | The filter expression defining criteria by which to group traces.+    filterExpression :: Prelude.Maybe Prelude.Text,+    -- | The structure containing configurations related to insights.+    --+    -- -   The InsightsEnabled boolean can be set to true to enable insights+    --     for the new group or false to disable insights for the new group.+    --+    -- -   The NotificationsEnabled boolean can be set to true to enable+    --     insights notifications for the new group. Notifications may only be+    --     enabled on a group with InsightsEnabled set to true.+    insightsConfiguration :: Prelude.Maybe InsightsConfiguration,+    -- | A map that contains one or more tag keys and tag values to attach to an+    -- X-Ray group. For more information about ways to use tags, see+    -- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+    -- in the /Amazon Web Services General Reference/.+    --+    -- The following restrictions apply to tags:+    --+    -- -   Maximum number of user-applied tags per resource: 50+    --+    -- -   Maximum tag key length: 128 Unicode characters+    --+    -- -   Maximum tag value length: 256 Unicode characters+    --+    -- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+    --     following characters: _ . : \/ = + - and \@+    --+    -- -   Tag keys and values are case sensitive.+    --+    -- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+    --     Web Services use.+    tags :: Prelude.Maybe [Tag],+    -- | The case-sensitive name of the new group. Default is a reserved name and+    -- names must be unique.+    groupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateGroup' 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:+--+-- 'filterExpression', 'createGroup_filterExpression' - The filter expression defining criteria by which to group traces.+--+-- 'insightsConfiguration', 'createGroup_insightsConfiguration' - The structure containing configurations related to insights.+--+-- -   The InsightsEnabled boolean can be set to true to enable insights+--     for the new group or false to disable insights for the new group.+--+-- -   The NotificationsEnabled boolean can be set to true to enable+--     insights notifications for the new group. Notifications may only be+--     enabled on a group with InsightsEnabled set to true.+--+-- 'tags', 'createGroup_tags' - A map that contains one or more tag keys and tag values to attach to an+-- X-Ray group. For more information about ways to use tags, see+-- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+-- in the /Amazon Web Services General Reference/.+--+-- The following restrictions apply to tags:+--+-- -   Maximum number of user-applied tags per resource: 50+--+-- -   Maximum tag key length: 128 Unicode characters+--+-- -   Maximum tag value length: 256 Unicode characters+--+-- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+--     following characters: _ . : \/ = + - and \@+--+-- -   Tag keys and values are case sensitive.+--+-- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+--     Web Services use.+--+-- 'groupName', 'createGroup_groupName' - The case-sensitive name of the new group. Default is a reserved name and+-- names must be unique.+newCreateGroup ::+  -- | 'groupName'+  Prelude.Text ->+  CreateGroup+newCreateGroup pGroupName_ =+  CreateGroup'+    { filterExpression = Prelude.Nothing,+      insightsConfiguration = Prelude.Nothing,+      tags = Prelude.Nothing,+      groupName = pGroupName_+    }++-- | The filter expression defining criteria by which to group traces.+createGroup_filterExpression :: Lens.Lens' CreateGroup (Prelude.Maybe Prelude.Text)+createGroup_filterExpression = Lens.lens (\CreateGroup' {filterExpression} -> filterExpression) (\s@CreateGroup' {} a -> s {filterExpression = a} :: CreateGroup)++-- | The structure containing configurations related to insights.+--+-- -   The InsightsEnabled boolean can be set to true to enable insights+--     for the new group or false to disable insights for the new group.+--+-- -   The NotificationsEnabled boolean can be set to true to enable+--     insights notifications for the new group. Notifications may only be+--     enabled on a group with InsightsEnabled set to true.+createGroup_insightsConfiguration :: Lens.Lens' CreateGroup (Prelude.Maybe InsightsConfiguration)+createGroup_insightsConfiguration = Lens.lens (\CreateGroup' {insightsConfiguration} -> insightsConfiguration) (\s@CreateGroup' {} a -> s {insightsConfiguration = a} :: CreateGroup)++-- | A map that contains one or more tag keys and tag values to attach to an+-- X-Ray group. For more information about ways to use tags, see+-- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+-- in the /Amazon Web Services General Reference/.+--+-- The following restrictions apply to tags:+--+-- -   Maximum number of user-applied tags per resource: 50+--+-- -   Maximum tag key length: 128 Unicode characters+--+-- -   Maximum tag value length: 256 Unicode characters+--+-- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+--     following characters: _ . : \/ = + - and \@+--+-- -   Tag keys and values are case sensitive.+--+-- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+--     Web Services use.+createGroup_tags :: Lens.Lens' CreateGroup (Prelude.Maybe [Tag])+createGroup_tags = Lens.lens (\CreateGroup' {tags} -> tags) (\s@CreateGroup' {} a -> s {tags = a} :: CreateGroup) Prelude.. Lens.mapping Lens.coerced++-- | The case-sensitive name of the new group. Default is a reserved name and+-- names must be unique.+createGroup_groupName :: Lens.Lens' CreateGroup Prelude.Text+createGroup_groupName = Lens.lens (\CreateGroup' {groupName} -> groupName) (\s@CreateGroup' {} a -> s {groupName = a} :: CreateGroup)++instance Core.AWSRequest CreateGroup where+  type AWSResponse CreateGroup = CreateGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateGroupResponse'+            Prelude.<$> (x Data..?> "Group")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateGroup where+  hashWithSalt _salt CreateGroup' {..} =+    _salt+      `Prelude.hashWithSalt` filterExpression+      `Prelude.hashWithSalt` insightsConfiguration+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData CreateGroup where+  rnf CreateGroup' {..} =+    Prelude.rnf filterExpression+      `Prelude.seq` Prelude.rnf insightsConfiguration+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders CreateGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateGroup where+  toJSON CreateGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("FilterExpression" Data..=)+              Prelude.<$> filterExpression,+            ("InsightsConfiguration" Data..=)+              Prelude.<$> insightsConfiguration,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("GroupName" Data..= groupName)+          ]+      )++instance Data.ToPath CreateGroup where+  toPath = Prelude.const "/CreateGroup"++instance Data.ToQuery CreateGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateGroupResponse' smart constructor.+data CreateGroupResponse = CreateGroupResponse'+  { -- | The group that was created. Contains the name of the group that was+    -- created, the Amazon Resource Name (ARN) of the group that was generated+    -- based on the group name, the filter expression, and the insight+    -- configuration that was assigned to the group.+    group' :: Prelude.Maybe Group,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateGroupResponse' 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:+--+-- 'group'', 'createGroupResponse_group' - The group that was created. Contains the name of the group that was+-- created, the Amazon Resource Name (ARN) of the group that was generated+-- based on the group name, the filter expression, and the insight+-- configuration that was assigned to the group.+--+-- 'httpStatus', 'createGroupResponse_httpStatus' - The response's http status code.+newCreateGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateGroupResponse+newCreateGroupResponse pHttpStatus_ =+  CreateGroupResponse'+    { group' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The group that was created. Contains the name of the group that was+-- created, the Amazon Resource Name (ARN) of the group that was generated+-- based on the group name, the filter expression, and the insight+-- configuration that was assigned to the group.+createGroupResponse_group :: Lens.Lens' CreateGroupResponse (Prelude.Maybe Group)+createGroupResponse_group = Lens.lens (\CreateGroupResponse' {group'} -> group') (\s@CreateGroupResponse' {} a -> s {group' = a} :: CreateGroupResponse)++-- | The response's http status code.+createGroupResponse_httpStatus :: Lens.Lens' CreateGroupResponse Prelude.Int+createGroupResponse_httpStatus = Lens.lens (\CreateGroupResponse' {httpStatus} -> httpStatus) (\s@CreateGroupResponse' {} a -> s {httpStatus = a} :: CreateGroupResponse)++instance Prelude.NFData CreateGroupResponse where+  rnf CreateGroupResponse' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,241 @@+{-# 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.XRay.CreateSamplingRule+-- 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 rule to control sampling behavior for instrumented+-- applications. Services retrieve rules with+-- <https://docs.aws.amazon.com/xray/latest/api/API_GetSamplingRules.html GetSamplingRules>,+-- and evaluate each rule in ascending order of /priority/ for each+-- request. If a rule matches, the service records a trace, borrowing it+-- from the reservoir size. After 10 seconds, the service reports back to+-- X-Ray with+-- <https://docs.aws.amazon.com/xray/latest/api/API_GetSamplingTargets.html GetSamplingTargets>+-- to get updated versions of each in-use rule. The updated rule contains a+-- trace quota that the service can use instead of borrowing from the+-- reservoir.+module Amazonka.XRay.CreateSamplingRule+  ( -- * Creating a Request+    CreateSamplingRule (..),+    newCreateSamplingRule,++    -- * Request Lenses+    createSamplingRule_tags,+    createSamplingRule_samplingRule,++    -- * Destructuring the Response+    CreateSamplingRuleResponse (..),+    newCreateSamplingRuleResponse,++    -- * Response Lenses+    createSamplingRuleResponse_samplingRuleRecord,+    createSamplingRuleResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newCreateSamplingRule' smart constructor.+data CreateSamplingRule = CreateSamplingRule'+  { -- | A map that contains one or more tag keys and tag values to attach to an+    -- X-Ray sampling rule. For more information about ways to use tags, see+    -- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+    -- in the /Amazon Web Services General Reference/.+    --+    -- The following restrictions apply to tags:+    --+    -- -   Maximum number of user-applied tags per resource: 50+    --+    -- -   Maximum tag key length: 128 Unicode characters+    --+    -- -   Maximum tag value length: 256 Unicode characters+    --+    -- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+    --     following characters: _ . : \/ = + - and \@+    --+    -- -   Tag keys and values are case sensitive.+    --+    -- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+    --     Web Services use.+    tags :: Prelude.Maybe [Tag],+    -- | The rule definition.+    samplingRule :: SamplingRule+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSamplingRule' 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:+--+-- 'tags', 'createSamplingRule_tags' - A map that contains one or more tag keys and tag values to attach to an+-- X-Ray sampling rule. For more information about ways to use tags, see+-- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+-- in the /Amazon Web Services General Reference/.+--+-- The following restrictions apply to tags:+--+-- -   Maximum number of user-applied tags per resource: 50+--+-- -   Maximum tag key length: 128 Unicode characters+--+-- -   Maximum tag value length: 256 Unicode characters+--+-- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+--     following characters: _ . : \/ = + - and \@+--+-- -   Tag keys and values are case sensitive.+--+-- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+--     Web Services use.+--+-- 'samplingRule', 'createSamplingRule_samplingRule' - The rule definition.+newCreateSamplingRule ::+  -- | 'samplingRule'+  SamplingRule ->+  CreateSamplingRule+newCreateSamplingRule pSamplingRule_ =+  CreateSamplingRule'+    { tags = Prelude.Nothing,+      samplingRule = pSamplingRule_+    }++-- | A map that contains one or more tag keys and tag values to attach to an+-- X-Ray sampling rule. For more information about ways to use tags, see+-- <https://docs.aws.amazon.com/general/latest/gr/aws_tagging.html Tagging Amazon Web Services resources>+-- in the /Amazon Web Services General Reference/.+--+-- The following restrictions apply to tags:+--+-- -   Maximum number of user-applied tags per resource: 50+--+-- -   Maximum tag key length: 128 Unicode characters+--+-- -   Maximum tag value length: 256 Unicode characters+--+-- -   Valid values for key and value: a-z, A-Z, 0-9, space, and the+--     following characters: _ . : \/ = + - and \@+--+-- -   Tag keys and values are case sensitive.+--+-- -   Don\'t use @aws:@ as a prefix for keys; it\'s reserved for Amazon+--     Web Services use.+createSamplingRule_tags :: Lens.Lens' CreateSamplingRule (Prelude.Maybe [Tag])+createSamplingRule_tags = Lens.lens (\CreateSamplingRule' {tags} -> tags) (\s@CreateSamplingRule' {} a -> s {tags = a} :: CreateSamplingRule) Prelude.. Lens.mapping Lens.coerced++-- | The rule definition.+createSamplingRule_samplingRule :: Lens.Lens' CreateSamplingRule SamplingRule+createSamplingRule_samplingRule = Lens.lens (\CreateSamplingRule' {samplingRule} -> samplingRule) (\s@CreateSamplingRule' {} a -> s {samplingRule = a} :: CreateSamplingRule)++instance Core.AWSRequest CreateSamplingRule where+  type+    AWSResponse CreateSamplingRule =+      CreateSamplingRuleResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSamplingRuleResponse'+            Prelude.<$> (x Data..?> "SamplingRuleRecord")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSamplingRule where+  hashWithSalt _salt CreateSamplingRule' {..} =+    _salt+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` samplingRule++instance Prelude.NFData CreateSamplingRule where+  rnf CreateSamplingRule' {..} =+    Prelude.rnf tags+      `Prelude.seq` Prelude.rnf samplingRule++instance Data.ToHeaders CreateSamplingRule where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON CreateSamplingRule where+  toJSON CreateSamplingRule' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("SamplingRule" Data..= samplingRule)+          ]+      )++instance Data.ToPath CreateSamplingRule where+  toPath = Prelude.const "/CreateSamplingRule"++instance Data.ToQuery CreateSamplingRule where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateSamplingRuleResponse' smart constructor.+data CreateSamplingRuleResponse = CreateSamplingRuleResponse'+  { -- | The saved rule definition and metadata.+    samplingRuleRecord :: Prelude.Maybe SamplingRuleRecord,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSamplingRuleResponse' 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:+--+-- 'samplingRuleRecord', 'createSamplingRuleResponse_samplingRuleRecord' - The saved rule definition and metadata.+--+-- 'httpStatus', 'createSamplingRuleResponse_httpStatus' - The response's http status code.+newCreateSamplingRuleResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSamplingRuleResponse+newCreateSamplingRuleResponse pHttpStatus_ =+  CreateSamplingRuleResponse'+    { samplingRuleRecord =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The saved rule definition and metadata.+createSamplingRuleResponse_samplingRuleRecord :: Lens.Lens' CreateSamplingRuleResponse (Prelude.Maybe SamplingRuleRecord)+createSamplingRuleResponse_samplingRuleRecord = Lens.lens (\CreateSamplingRuleResponse' {samplingRuleRecord} -> samplingRuleRecord) (\s@CreateSamplingRuleResponse' {} a -> s {samplingRuleRecord = a} :: CreateSamplingRuleResponse)++-- | The response's http status code.+createSamplingRuleResponse_httpStatus :: Lens.Lens' CreateSamplingRuleResponse Prelude.Int+createSamplingRuleResponse_httpStatus = Lens.lens (\CreateSamplingRuleResponse' {httpStatus} -> httpStatus) (\s@CreateSamplingRuleResponse' {} a -> s {httpStatus = a} :: CreateSamplingRuleResponse)++instance Prelude.NFData CreateSamplingRuleResponse where+  rnf CreateSamplingRuleResponse' {..} =+    Prelude.rnf samplingRuleRecord+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,154 @@+{-# 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.XRay.DeleteGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a group resource.+module Amazonka.XRay.DeleteGroup+  ( -- * Creating a Request+    DeleteGroup (..),+    newDeleteGroup,++    -- * Request Lenses+    deleteGroup_groupARN,+    deleteGroup_groupName,++    -- * Destructuring the Response+    DeleteGroupResponse (..),+    newDeleteGroupResponse,++    -- * Response Lenses+    deleteGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newDeleteGroup' smart constructor.+data DeleteGroup = DeleteGroup'+  { -- | The ARN of the group that was generated on creation.+    groupARN :: Prelude.Maybe Prelude.Text,+    -- | The case-sensitive name of the group.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteGroup' 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:+--+-- 'groupARN', 'deleteGroup_groupARN' - The ARN of the group that was generated on creation.+--+-- 'groupName', 'deleteGroup_groupName' - The case-sensitive name of the group.+newDeleteGroup ::+  DeleteGroup+newDeleteGroup =+  DeleteGroup'+    { groupARN = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The ARN of the group that was generated on creation.+deleteGroup_groupARN :: Lens.Lens' DeleteGroup (Prelude.Maybe Prelude.Text)+deleteGroup_groupARN = Lens.lens (\DeleteGroup' {groupARN} -> groupARN) (\s@DeleteGroup' {} a -> s {groupARN = a} :: DeleteGroup)++-- | The case-sensitive name of the group.+deleteGroup_groupName :: Lens.Lens' DeleteGroup (Prelude.Maybe Prelude.Text)+deleteGroup_groupName = Lens.lens (\DeleteGroup' {groupName} -> groupName) (\s@DeleteGroup' {} a -> s {groupName = a} :: DeleteGroup)++instance Core.AWSRequest DeleteGroup where+  type AWSResponse DeleteGroup = DeleteGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteGroupResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteGroup where+  hashWithSalt _salt DeleteGroup' {..} =+    _salt+      `Prelude.hashWithSalt` groupARN+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData DeleteGroup where+  rnf DeleteGroup' {..} =+    Prelude.rnf groupARN+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders DeleteGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteGroup where+  toJSON DeleteGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("GroupARN" Data..=) Prelude.<$> groupARN,+            ("GroupName" Data..=) Prelude.<$> groupName+          ]+      )++instance Data.ToPath DeleteGroup where+  toPath = Prelude.const "/DeleteGroup"++instance Data.ToQuery DeleteGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteGroupResponse' smart constructor.+data DeleteGroupResponse = DeleteGroupResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteGroupResponse' 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', 'deleteGroupResponse_httpStatus' - The response's http status code.+newDeleteGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteGroupResponse+newDeleteGroupResponse pHttpStatus_ =+  DeleteGroupResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+deleteGroupResponse_httpStatus :: Lens.Lens' DeleteGroupResponse Prelude.Int+deleteGroupResponse_httpStatus = Lens.lens (\DeleteGroupResponse' {httpStatus} -> httpStatus) (\s@DeleteGroupResponse' {} a -> s {httpStatus = a} :: DeleteGroupResponse)++instance Prelude.NFData DeleteGroupResponse where+  rnf DeleteGroupResponse' {..} = 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.XRay.DeleteResourcePolicy+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a resource policy from the target Amazon Web Services account.+module Amazonka.XRay.DeleteResourcePolicy+  ( -- * Creating a Request+    DeleteResourcePolicy (..),+    newDeleteResourcePolicy,++    -- * Request Lenses+    deleteResourcePolicy_policyRevisionId,+    deleteResourcePolicy_policyName,++    -- * Destructuring the Response+    DeleteResourcePolicyResponse (..),+    newDeleteResourcePolicyResponse,++    -- * Response Lenses+    deleteResourcePolicyResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newDeleteResourcePolicy' smart constructor.+data DeleteResourcePolicy = DeleteResourcePolicy'+  { -- | Specifies a specific policy revision to delete. Provide a+    -- @PolicyRevisionId@ to ensure an atomic delete operation. If the provided+    -- revision id does not match the latest policy revision id, an+    -- @InvalidPolicyRevisionIdException@ exception is returned.+    policyRevisionId :: Prelude.Maybe Prelude.Text,+    -- | The name of the resource policy to delete.+    policyName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteResourcePolicy' 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:+--+-- 'policyRevisionId', 'deleteResourcePolicy_policyRevisionId' - Specifies a specific policy revision to delete. Provide a+-- @PolicyRevisionId@ to ensure an atomic delete operation. If the provided+-- revision id does not match the latest policy revision id, an+-- @InvalidPolicyRevisionIdException@ exception is returned.+--+-- 'policyName', 'deleteResourcePolicy_policyName' - The name of the resource policy to delete.+newDeleteResourcePolicy ::+  -- | 'policyName'+  Prelude.Text ->+  DeleteResourcePolicy+newDeleteResourcePolicy pPolicyName_ =+  DeleteResourcePolicy'+    { policyRevisionId =+        Prelude.Nothing,+      policyName = pPolicyName_+    }++-- | Specifies a specific policy revision to delete. Provide a+-- @PolicyRevisionId@ to ensure an atomic delete operation. If the provided+-- revision id does not match the latest policy revision id, an+-- @InvalidPolicyRevisionIdException@ exception is returned.+deleteResourcePolicy_policyRevisionId :: Lens.Lens' DeleteResourcePolicy (Prelude.Maybe Prelude.Text)+deleteResourcePolicy_policyRevisionId = Lens.lens (\DeleteResourcePolicy' {policyRevisionId} -> policyRevisionId) (\s@DeleteResourcePolicy' {} a -> s {policyRevisionId = a} :: DeleteResourcePolicy)++-- | The name of the resource policy to delete.+deleteResourcePolicy_policyName :: Lens.Lens' DeleteResourcePolicy Prelude.Text+deleteResourcePolicy_policyName = Lens.lens (\DeleteResourcePolicy' {policyName} -> policyName) (\s@DeleteResourcePolicy' {} a -> s {policyName = a} :: DeleteResourcePolicy)++instance Core.AWSRequest DeleteResourcePolicy where+  type+    AWSResponse DeleteResourcePolicy =+      DeleteResourcePolicyResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteResourcePolicyResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteResourcePolicy where+  hashWithSalt _salt DeleteResourcePolicy' {..} =+    _salt+      `Prelude.hashWithSalt` policyRevisionId+      `Prelude.hashWithSalt` policyName++instance Prelude.NFData DeleteResourcePolicy where+  rnf DeleteResourcePolicy' {..} =+    Prelude.rnf policyRevisionId+      `Prelude.seq` Prelude.rnf policyName++instance Data.ToHeaders DeleteResourcePolicy where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteResourcePolicy where+  toJSON DeleteResourcePolicy' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("PolicyRevisionId" Data..=)+              Prelude.<$> policyRevisionId,+            Prelude.Just ("PolicyName" Data..= policyName)+          ]+      )++instance Data.ToPath DeleteResourcePolicy where+  toPath = Prelude.const "/DeleteResourcePolicy"++instance Data.ToQuery DeleteResourcePolicy where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteResourcePolicyResponse' smart constructor.+data DeleteResourcePolicyResponse = DeleteResourcePolicyResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteResourcePolicyResponse' 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', 'deleteResourcePolicyResponse_httpStatus' - The response's http status code.+newDeleteResourcePolicyResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteResourcePolicyResponse+newDeleteResourcePolicyResponse pHttpStatus_ =+  DeleteResourcePolicyResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteResourcePolicyResponse_httpStatus :: Lens.Lens' DeleteResourcePolicyResponse Prelude.Int+deleteResourcePolicyResponse_httpStatus = Lens.lens (\DeleteResourcePolicyResponse' {httpStatus} -> httpStatus) (\s@DeleteResourcePolicyResponse' {} a -> s {httpStatus = a} :: DeleteResourcePolicyResponse)++instance Prelude.NFData DeleteResourcePolicyResponse where+  rnf DeleteResourcePolicyResponse' {..} =+    Prelude.rnf httpStatus

@@ -0,0 +1,178 @@+{-# 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.XRay.DeleteSamplingRule+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a sampling rule.+module Amazonka.XRay.DeleteSamplingRule+  ( -- * Creating a Request+    DeleteSamplingRule (..),+    newDeleteSamplingRule,++    -- * Request Lenses+    deleteSamplingRule_ruleARN,+    deleteSamplingRule_ruleName,++    -- * Destructuring the Response+    DeleteSamplingRuleResponse (..),+    newDeleteSamplingRuleResponse,++    -- * Response Lenses+    deleteSamplingRuleResponse_samplingRuleRecord,+    deleteSamplingRuleResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newDeleteSamplingRule' smart constructor.+data DeleteSamplingRule = DeleteSamplingRule'+  { -- | The ARN of the sampling rule. Specify a rule by either name or ARN, but+    -- not both.+    ruleARN :: Prelude.Maybe Prelude.Text,+    -- | The name of the sampling rule. Specify a rule by either name or ARN, but+    -- not both.+    ruleName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSamplingRule' 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:+--+-- 'ruleARN', 'deleteSamplingRule_ruleARN' - The ARN of the sampling rule. Specify a rule by either name or ARN, but+-- not both.+--+-- 'ruleName', 'deleteSamplingRule_ruleName' - The name of the sampling rule. Specify a rule by either name or ARN, but+-- not both.+newDeleteSamplingRule ::+  DeleteSamplingRule+newDeleteSamplingRule =+  DeleteSamplingRule'+    { ruleARN = Prelude.Nothing,+      ruleName = Prelude.Nothing+    }++-- | The ARN of the sampling rule. Specify a rule by either name or ARN, but+-- not both.+deleteSamplingRule_ruleARN :: Lens.Lens' DeleteSamplingRule (Prelude.Maybe Prelude.Text)+deleteSamplingRule_ruleARN = Lens.lens (\DeleteSamplingRule' {ruleARN} -> ruleARN) (\s@DeleteSamplingRule' {} a -> s {ruleARN = a} :: DeleteSamplingRule)++-- | The name of the sampling rule. Specify a rule by either name or ARN, but+-- not both.+deleteSamplingRule_ruleName :: Lens.Lens' DeleteSamplingRule (Prelude.Maybe Prelude.Text)+deleteSamplingRule_ruleName = Lens.lens (\DeleteSamplingRule' {ruleName} -> ruleName) (\s@DeleteSamplingRule' {} a -> s {ruleName = a} :: DeleteSamplingRule)++instance Core.AWSRequest DeleteSamplingRule where+  type+    AWSResponse DeleteSamplingRule =+      DeleteSamplingRuleResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteSamplingRuleResponse'+            Prelude.<$> (x Data..?> "SamplingRuleRecord")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSamplingRule where+  hashWithSalt _salt DeleteSamplingRule' {..} =+    _salt+      `Prelude.hashWithSalt` ruleARN+      `Prelude.hashWithSalt` ruleName++instance Prelude.NFData DeleteSamplingRule where+  rnf DeleteSamplingRule' {..} =+    Prelude.rnf ruleARN+      `Prelude.seq` Prelude.rnf ruleName++instance Data.ToHeaders DeleteSamplingRule where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON DeleteSamplingRule where+  toJSON DeleteSamplingRule' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("RuleARN" Data..=) Prelude.<$> ruleARN,+            ("RuleName" Data..=) Prelude.<$> ruleName+          ]+      )++instance Data.ToPath DeleteSamplingRule where+  toPath = Prelude.const "/DeleteSamplingRule"++instance Data.ToQuery DeleteSamplingRule where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteSamplingRuleResponse' smart constructor.+data DeleteSamplingRuleResponse = DeleteSamplingRuleResponse'+  { -- | The deleted rule definition and metadata.+    samplingRuleRecord :: Prelude.Maybe SamplingRuleRecord,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSamplingRuleResponse' 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:+--+-- 'samplingRuleRecord', 'deleteSamplingRuleResponse_samplingRuleRecord' - The deleted rule definition and metadata.+--+-- 'httpStatus', 'deleteSamplingRuleResponse_httpStatus' - The response's http status code.+newDeleteSamplingRuleResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSamplingRuleResponse+newDeleteSamplingRuleResponse pHttpStatus_ =+  DeleteSamplingRuleResponse'+    { samplingRuleRecord =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The deleted rule definition and metadata.+deleteSamplingRuleResponse_samplingRuleRecord :: Lens.Lens' DeleteSamplingRuleResponse (Prelude.Maybe SamplingRuleRecord)+deleteSamplingRuleResponse_samplingRuleRecord = Lens.lens (\DeleteSamplingRuleResponse' {samplingRuleRecord} -> samplingRuleRecord) (\s@DeleteSamplingRuleResponse' {} a -> s {samplingRuleRecord = a} :: DeleteSamplingRuleResponse)++-- | The response's http status code.+deleteSamplingRuleResponse_httpStatus :: Lens.Lens' DeleteSamplingRuleResponse Prelude.Int+deleteSamplingRuleResponse_httpStatus = Lens.lens (\DeleteSamplingRuleResponse' {httpStatus} -> httpStatus) (\s@DeleteSamplingRuleResponse' {} a -> s {httpStatus = a} :: DeleteSamplingRuleResponse)++instance Prelude.NFData DeleteSamplingRuleResponse where+  rnf DeleteSamplingRuleResponse' {..} =+    Prelude.rnf samplingRuleRecord+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,136 @@+{-# 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.XRay.GetEncryptionConfig+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the current encryption configuration for X-Ray data.+module Amazonka.XRay.GetEncryptionConfig+  ( -- * Creating a Request+    GetEncryptionConfig (..),+    newGetEncryptionConfig,++    -- * Destructuring the Response+    GetEncryptionConfigResponse (..),+    newGetEncryptionConfigResponse,++    -- * Response Lenses+    getEncryptionConfigResponse_encryptionConfig,+    getEncryptionConfigResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newGetEncryptionConfig' smart constructor.+data GetEncryptionConfig = GetEncryptionConfig'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEncryptionConfig' 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.+newGetEncryptionConfig ::+  GetEncryptionConfig+newGetEncryptionConfig = GetEncryptionConfig'++instance Core.AWSRequest GetEncryptionConfig where+  type+    AWSResponse GetEncryptionConfig =+      GetEncryptionConfigResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetEncryptionConfigResponse'+            Prelude.<$> (x Data..?> "EncryptionConfig")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetEncryptionConfig where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetEncryptionConfig where+  rnf _ = ()++instance Data.ToHeaders GetEncryptionConfig where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetEncryptionConfig where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath GetEncryptionConfig where+  toPath = Prelude.const "/EncryptionConfig"++instance Data.ToQuery GetEncryptionConfig where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetEncryptionConfigResponse' smart constructor.+data GetEncryptionConfigResponse = GetEncryptionConfigResponse'+  { -- | The encryption configuration document.+    encryptionConfig :: Prelude.Maybe EncryptionConfig,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetEncryptionConfigResponse' 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:+--+-- 'encryptionConfig', 'getEncryptionConfigResponse_encryptionConfig' - The encryption configuration document.+--+-- 'httpStatus', 'getEncryptionConfigResponse_httpStatus' - The response's http status code.+newGetEncryptionConfigResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetEncryptionConfigResponse+newGetEncryptionConfigResponse pHttpStatus_ =+  GetEncryptionConfigResponse'+    { encryptionConfig =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The encryption configuration document.+getEncryptionConfigResponse_encryptionConfig :: Lens.Lens' GetEncryptionConfigResponse (Prelude.Maybe EncryptionConfig)+getEncryptionConfigResponse_encryptionConfig = Lens.lens (\GetEncryptionConfigResponse' {encryptionConfig} -> encryptionConfig) (\s@GetEncryptionConfigResponse' {} a -> s {encryptionConfig = a} :: GetEncryptionConfigResponse)++-- | The response's http status code.+getEncryptionConfigResponse_httpStatus :: Lens.Lens' GetEncryptionConfigResponse Prelude.Int+getEncryptionConfigResponse_httpStatus = Lens.lens (\GetEncryptionConfigResponse' {httpStatus} -> httpStatus) (\s@GetEncryptionConfigResponse' {} a -> s {httpStatus = a} :: GetEncryptionConfigResponse)++instance Prelude.NFData GetEncryptionConfigResponse where+  rnf GetEncryptionConfigResponse' {..} =+    Prelude.rnf encryptionConfig+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,175 @@+{-# 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.XRay.GetGroup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves group resource details.+module Amazonka.XRay.GetGroup+  ( -- * Creating a Request+    GetGroup (..),+    newGetGroup,++    -- * Request Lenses+    getGroup_groupARN,+    getGroup_groupName,++    -- * Destructuring the Response+    GetGroupResponse (..),+    newGetGroupResponse,++    -- * Response Lenses+    getGroupResponse_group,+    getGroupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newGetGroup' smart constructor.+data GetGroup = GetGroup'+  { -- | The ARN of the group that was generated on creation.+    groupARN :: Prelude.Maybe Prelude.Text,+    -- | The case-sensitive name of the group.+    groupName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroup' 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:+--+-- 'groupARN', 'getGroup_groupARN' - The ARN of the group that was generated on creation.+--+-- 'groupName', 'getGroup_groupName' - The case-sensitive name of the group.+newGetGroup ::+  GetGroup+newGetGroup =+  GetGroup'+    { groupARN = Prelude.Nothing,+      groupName = Prelude.Nothing+    }++-- | The ARN of the group that was generated on creation.+getGroup_groupARN :: Lens.Lens' GetGroup (Prelude.Maybe Prelude.Text)+getGroup_groupARN = Lens.lens (\GetGroup' {groupARN} -> groupARN) (\s@GetGroup' {} a -> s {groupARN = a} :: GetGroup)++-- | The case-sensitive name of the group.+getGroup_groupName :: Lens.Lens' GetGroup (Prelude.Maybe Prelude.Text)+getGroup_groupName = Lens.lens (\GetGroup' {groupName} -> groupName) (\s@GetGroup' {} a -> s {groupName = a} :: GetGroup)++instance Core.AWSRequest GetGroup where+  type AWSResponse GetGroup = GetGroupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetGroupResponse'+            Prelude.<$> (x Data..?> "Group")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetGroup where+  hashWithSalt _salt GetGroup' {..} =+    _salt+      `Prelude.hashWithSalt` groupARN+      `Prelude.hashWithSalt` groupName++instance Prelude.NFData GetGroup where+  rnf GetGroup' {..} =+    Prelude.rnf groupARN+      `Prelude.seq` Prelude.rnf groupName++instance Data.ToHeaders GetGroup where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetGroup where+  toJSON GetGroup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("GroupARN" Data..=) Prelude.<$> groupARN,+            ("GroupName" Data..=) Prelude.<$> groupName+          ]+      )++instance Data.ToPath GetGroup where+  toPath = Prelude.const "/GetGroup"++instance Data.ToQuery GetGroup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetGroupResponse' smart constructor.+data GetGroupResponse = GetGroupResponse'+  { -- | The group that was requested. Contains the name of the group, the ARN of+    -- the group, the filter expression, and the insight configuration assigned+    -- to the group.+    group' :: Prelude.Maybe Group,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupResponse' 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:+--+-- 'group'', 'getGroupResponse_group' - The group that was requested. Contains the name of the group, the ARN of+-- the group, the filter expression, and the insight configuration assigned+-- to the group.+--+-- 'httpStatus', 'getGroupResponse_httpStatus' - The response's http status code.+newGetGroupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetGroupResponse+newGetGroupResponse pHttpStatus_ =+  GetGroupResponse'+    { group' = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The group that was requested. Contains the name of the group, the ARN of+-- the group, the filter expression, and the insight configuration assigned+-- to the group.+getGroupResponse_group :: Lens.Lens' GetGroupResponse (Prelude.Maybe Group)+getGroupResponse_group = Lens.lens (\GetGroupResponse' {group'} -> group') (\s@GetGroupResponse' {} a -> s {group' = a} :: GetGroupResponse)++-- | The response's http status code.+getGroupResponse_httpStatus :: Lens.Lens' GetGroupResponse Prelude.Int+getGroupResponse_httpStatus = Lens.lens (\GetGroupResponse' {httpStatus} -> httpStatus) (\s@GetGroupResponse' {} a -> s {httpStatus = a} :: GetGroupResponse)++instance Prelude.NFData GetGroupResponse where+  rnf GetGroupResponse' {..} =+    Prelude.rnf group'+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,187 @@+{-# 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.XRay.GetGroups+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves all active group details.+--+-- This operation returns paginated results.+module Amazonka.XRay.GetGroups+  ( -- * Creating a Request+    GetGroups (..),+    newGetGroups,++    -- * Request Lenses+    getGroups_nextToken,++    -- * Destructuring the Response+    GetGroupsResponse (..),+    newGetGroupsResponse,++    -- * Response Lenses+    getGroupsResponse_groups,+    getGroupsResponse_nextToken,+    getGroupsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newGetGroups' smart constructor.+data GetGroups = GetGroups'+  { -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroups' 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:+--+-- 'nextToken', 'getGroups_nextToken' - Pagination token.+newGetGroups ::+  GetGroups+newGetGroups =+  GetGroups' {nextToken = Prelude.Nothing}++-- | Pagination token.+getGroups_nextToken :: Lens.Lens' GetGroups (Prelude.Maybe Prelude.Text)+getGroups_nextToken = Lens.lens (\GetGroups' {nextToken} -> nextToken) (\s@GetGroups' {} a -> s {nextToken = a} :: GetGroups)++instance Core.AWSPager GetGroups where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? getGroupsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? getGroupsResponse_groups+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& getGroups_nextToken+          Lens..~ rs+          Lens.^? getGroupsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest GetGroups where+  type AWSResponse GetGroups = GetGroupsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetGroupsResponse'+            Prelude.<$> (x Data..?> "Groups" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetGroups where+  hashWithSalt _salt GetGroups' {..} =+    _salt `Prelude.hashWithSalt` nextToken++instance Prelude.NFData GetGroups where+  rnf GetGroups' {..} = Prelude.rnf nextToken++instance Data.ToHeaders GetGroups where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetGroups where+  toJSON GetGroups' {..} =+    Data.object+      ( Prelude.catMaybes+          [("NextToken" Data..=) Prelude.<$> nextToken]+      )++instance Data.ToPath GetGroups where+  toPath = Prelude.const "/Groups"++instance Data.ToQuery GetGroups where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetGroupsResponse' smart constructor.+data GetGroupsResponse = GetGroupsResponse'+  { -- | The collection of all active groups.+    groups :: Prelude.Maybe [GroupSummary],+    -- | Pagination token.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetGroupsResponse' 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:+--+-- 'groups', 'getGroupsResponse_groups' - The collection of all active groups.+--+-- 'nextToken', 'getGroupsResponse_nextToken' - Pagination token.+--+-- 'httpStatus', 'getGroupsResponse_httpStatus' - The response's http status code.+newGetGroupsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetGroupsResponse+newGetGroupsResponse pHttpStatus_ =+  GetGroupsResponse'+    { groups = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The collection of all active groups.+getGroupsResponse_groups :: Lens.Lens' GetGroupsResponse (Prelude.Maybe [GroupSummary])+getGroupsResponse_groups = Lens.lens (\GetGroupsResponse' {groups} -> groups) (\s@GetGroupsResponse' {} a -> s {groups = a} :: GetGroupsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Pagination token.+getGroupsResponse_nextToken :: Lens.Lens' GetGroupsResponse (Prelude.Maybe Prelude.Text)+getGroupsResponse_nextToken = Lens.lens (\GetGroupsResponse' {nextToken} -> nextToken) (\s@GetGroupsResponse' {} a -> s {nextToken = a} :: GetGroupsResponse)++-- | The response's http status code.+getGroupsResponse_httpStatus :: Lens.Lens' GetGroupsResponse Prelude.Int+getGroupsResponse_httpStatus = Lens.lens (\GetGroupsResponse' {httpStatus} -> httpStatus) (\s@GetGroupsResponse' {} a -> s {httpStatus = a} :: GetGroupsResponse)++instance Prelude.NFData GetGroupsResponse where+  rnf GetGroupsResponse' {..} =+    Prelude.rnf groups+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,159 @@+{-# 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.XRay.GetInsight+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves the summary information of an insight. This includes impact to+-- clients and root cause services, the top anomalous services, the+-- category, the state of the insight, and the start and end time of the+-- insight.+module Amazonka.XRay.GetInsight+  ( -- * Creating a Request+    GetInsight (..),+    newGetInsight,++    -- * Request Lenses+    getInsight_insightId,++    -- * Destructuring the Response+    GetInsightResponse (..),+    newGetInsightResponse,++    -- * Response Lenses+    getInsightResponse_insight,+    getInsightResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newGetInsight' smart constructor.+data GetInsight = GetInsight'+  { -- | The insight\'s unique identifier. Use the GetInsightSummaries action to+    -- retrieve an InsightId.+    insightId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInsight' 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:+--+-- 'insightId', 'getInsight_insightId' - The insight\'s unique identifier. Use the GetInsightSummaries action to+-- retrieve an InsightId.+newGetInsight ::+  -- | 'insightId'+  Prelude.Text ->+  GetInsight+newGetInsight pInsightId_ =+  GetInsight' {insightId = pInsightId_}++-- | The insight\'s unique identifier. Use the GetInsightSummaries action to+-- retrieve an InsightId.+getInsight_insightId :: Lens.Lens' GetInsight Prelude.Text+getInsight_insightId = Lens.lens (\GetInsight' {insightId} -> insightId) (\s@GetInsight' {} a -> s {insightId = a} :: GetInsight)++instance Core.AWSRequest GetInsight where+  type AWSResponse GetInsight = GetInsightResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetInsightResponse'+            Prelude.<$> (x Data..?> "Insight")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetInsight where+  hashWithSalt _salt GetInsight' {..} =+    _salt `Prelude.hashWithSalt` insightId++instance Prelude.NFData GetInsight where+  rnf GetInsight' {..} = Prelude.rnf insightId++instance Data.ToHeaders GetInsight where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetInsight where+  toJSON GetInsight' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("InsightId" Data..= insightId)]+      )++instance Data.ToPath GetInsight where+  toPath = Prelude.const "/Insight"++instance Data.ToQuery GetInsight where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetInsightResponse' smart constructor.+data GetInsightResponse = GetInsightResponse'+  { -- | The summary information of an insight.+    insight :: Prelude.Maybe Insight,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInsightResponse' 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:+--+-- 'insight', 'getInsightResponse_insight' - The summary information of an insight.+--+-- 'httpStatus', 'getInsightResponse_httpStatus' - The response's http status code.+newGetInsightResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetInsightResponse+newGetInsightResponse pHttpStatus_ =+  GetInsightResponse'+    { insight = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The summary information of an insight.+getInsightResponse_insight :: Lens.Lens' GetInsightResponse (Prelude.Maybe Insight)+getInsightResponse_insight = Lens.lens (\GetInsightResponse' {insight} -> insight) (\s@GetInsightResponse' {} a -> s {insight = a} :: GetInsightResponse)++-- | The response's http status code.+getInsightResponse_httpStatus :: Lens.Lens' GetInsightResponse Prelude.Int+getInsightResponse_httpStatus = Lens.lens (\GetInsightResponse' {httpStatus} -> httpStatus) (\s@GetInsightResponse' {} a -> s {httpStatus = a} :: GetInsightResponse)++instance Prelude.NFData GetInsightResponse where+  rnf GetInsightResponse' {..} =+    Prelude.rnf insight+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,214 @@+{-# 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.XRay.GetInsightEvents+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- X-Ray reevaluates insights periodically until they\'re resolved, and+-- records each intermediate state as an event. You can review an+-- insight\'s events in the Impact Timeline on the Inspect page in the+-- X-Ray console.+module Amazonka.XRay.GetInsightEvents+  ( -- * Creating a Request+    GetInsightEvents (..),+    newGetInsightEvents,++    -- * Request Lenses+    getInsightEvents_maxResults,+    getInsightEvents_nextToken,+    getInsightEvents_insightId,++    -- * Destructuring the Response+    GetInsightEventsResponse (..),+    newGetInsightEventsResponse,++    -- * Response Lenses+    getInsightEventsResponse_insightEvents,+    getInsightEventsResponse_nextToken,+    getInsightEventsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response+import Amazonka.XRay.Types++-- | /See:/ 'newGetInsightEvents' smart constructor.+data GetInsightEvents = GetInsightEvents'+  { -- | Used to retrieve at most the specified value of events.+    maxResults :: Prelude.Maybe Prelude.Natural,+    -- | Specify the pagination token returned by a previous request to retrieve+    -- the next page of events.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The insight\'s unique identifier. Use the GetInsightSummaries action to+    -- retrieve an InsightId.+    insightId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInsightEvents' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'maxResults', 'getInsightEvents_maxResults' - Used to retrieve at most the specified value of events.+--+-- 'nextToken', 'getInsightEvents_nextToken' - Specify the pagination token returned by a previous request to retrieve+-- the next page of events.+--+-- 'insightId', 'getInsightEvents_insightId' - The insight\'s unique identifier. Use the GetInsightSummaries action to+-- retrieve an InsightId.+newGetInsightEvents ::+  -- | 'insightId'+  Prelude.Text ->+  GetInsightEvents+newGetInsightEvents pInsightId_ =+  GetInsightEvents'+    { maxResults = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      insightId = pInsightId_+    }++-- | Used to retrieve at most the specified value of events.+getInsightEvents_maxResults :: Lens.Lens' GetInsightEvents (Prelude.Maybe Prelude.Natural)+getInsightEvents_maxResults = Lens.lens (\GetInsightEvents' {maxResults} -> maxResults) (\s@GetInsightEvents' {} a -> s {maxResults = a} :: GetInsightEvents)++-- | Specify the pagination token returned by a previous request to retrieve+-- the next page of events.+getInsightEvents_nextToken :: Lens.Lens' GetInsightEvents (Prelude.Maybe Prelude.Text)+getInsightEvents_nextToken = Lens.lens (\GetInsightEvents' {nextToken} -> nextToken) (\s@GetInsightEvents' {} a -> s {nextToken = a} :: GetInsightEvents)++-- | The insight\'s unique identifier. Use the GetInsightSummaries action to+-- retrieve an InsightId.+getInsightEvents_insightId :: Lens.Lens' GetInsightEvents Prelude.Text+getInsightEvents_insightId = Lens.lens (\GetInsightEvents' {insightId} -> insightId) (\s@GetInsightEvents' {} a -> s {insightId = a} :: GetInsightEvents)++instance Core.AWSRequest GetInsightEvents where+  type+    AWSResponse GetInsightEvents =+      GetInsightEventsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetInsightEventsResponse'+            Prelude.<$> (x Data..?> "InsightEvents" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetInsightEvents where+  hashWithSalt _salt GetInsightEvents' {..} =+    _salt+      `Prelude.hashWithSalt` maxResults+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` insightId++instance Prelude.NFData GetInsightEvents where+  rnf GetInsightEvents' {..} =+    Prelude.rnf maxResults+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf insightId++instance Data.ToHeaders GetInsightEvents where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToJSON GetInsightEvents where+  toJSON GetInsightEvents' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("MaxResults" Data..=) Prelude.<$> maxResults,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("InsightId" Data..= insightId)+          ]+      )++instance Data.ToPath GetInsightEvents where+  toPath = Prelude.const "/InsightEvents"++instance Data.ToQuery GetInsightEvents where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newGetInsightEventsResponse' smart constructor.+data GetInsightEventsResponse = GetInsightEventsResponse'+  { -- | A detailed description of the event. This includes the time of the+    -- event, client and root cause impact statistics, and the top anomalous+    -- service at the time of the event.+    insightEvents :: Prelude.Maybe [InsightEvent],+    -- | Use this token to retrieve the next page of insight events.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetInsightEventsResponse' 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:+--+-- 'insightEvents', 'getInsightEventsResponse_insightEvents' - A detailed description of the event. This includes the time of the+-- event, client and root cause impact statistics, and the top anomalous+-- service at the time of the event.+--+-- 'nextToken', 'getInsightEventsResponse_nextToken' - Use this token to retrieve the next page of insight events.+--+-- 'httpStatus', 'getInsightEventsResponse_httpStatus' - The response's http status code.+newGetInsightEventsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetInsightEventsResponse+newGetInsightEventsResponse pHttpStatus_ =+  GetInsightEventsResponse'+    { insightEvents =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A detailed description of the event. This includes the time of the+-- event, client and root cause impact statistics, and the top anomalous+-- service at the time of the event.+getInsightEventsResponse_insightEvents :: Lens.Lens' GetInsightEventsResponse (Prelude.Maybe [InsightEvent])+getInsightEventsResponse_insightEvents = Lens.lens (\GetInsightEventsResponse' {insightEvents} -> insightEvents) (\s@GetInsightEventsResponse' {} a -> s {insightEvents = a} :: GetInsightEventsResponse) Prelude.. Lens.mapping Lens.coerced++-- | Use this token to retrieve the next page of insight events.+getInsightEventsResponse_nextToken :: Lens.Lens' GetInsightEventsResponse (Prelude.Maybe Prelude.Text)+getInsightEventsResponse_nextToken = Lens.lens (\GetInsightEventsResponse' {nextToken} -> nextToken) (\s@GetInsightEventsResponse' {} a -> s {nextToken = a} :: GetInsightEventsResponse)++-- | The response's http status code.+getInsightEventsResponse_httpStatus :: Lens.Lens' GetInsightEventsResponse Prelude.Int+getInsightEventsResponse_httpStatus = Lens.lens (\GetInsightEventsResponse' {httpStatus} -> httpStatus) (\s@GetInsightEventsResponse' {} a -> s {httpStatus = a} :: GetInsightEventsResponse)++instance Prelude.NFData GetInsightEventsResponse where+  rnf GetInsightEventsResponse' {..} =+    Prelude.rnf insightEvents+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus