amazonka-cloudsearch 1.6.1 → 2.0

raw patch · 135 files changed

+12010/−7401 lines, 135 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-cloudsearch.cabal +136/−98
• fixture/BuildSuggesters.yaml +10/−0
• fixture/CreateDomain.yaml +10/−0
• fixture/DefineAnalysisScheme.yaml +10/−0
• fixture/DefineExpression.yaml +10/−0
• fixture/DefineIndexField.yaml +10/−0
• fixture/DefineSuggester.yaml +10/−0
• fixture/DeleteAnalysisScheme.yaml +10/−0
• fixture/DeleteDomain.yaml +10/−0
• fixture/DeleteExpression.yaml +10/−0
• fixture/DeleteIndexField.yaml +10/−0
• fixture/DeleteSuggester.yaml +10/−0
• fixture/DescribeAnalysisSchemes.yaml +10/−0
• fixture/DescribeAvailabilityOptions.yaml +10/−0
• fixture/DescribeDomainEndpointOptions.yaml +10/−0
• fixture/DescribeDomainEndpointOptionsResponse.proto +0/−0
• fixture/DescribeDomains.yaml +10/−0
• fixture/DescribeExpressions.yaml +10/−0
• fixture/DescribeIndexFields.yaml +10/−0
• fixture/DescribeScalingParameters.yaml +10/−0
• fixture/DescribeServiceAccessPolicies.yaml +10/−0
• fixture/DescribeSuggesters.yaml +10/−0
• fixture/IndexDocuments.yaml +10/−0
• fixture/ListDomainNames.yaml +10/−0
• fixture/UpdateAvailabilityOptions.yaml +10/−0
• fixture/UpdateDomainEndpointOptions.yaml +10/−0
• fixture/UpdateDomainEndpointOptionsResponse.proto +0/−0
• fixture/UpdateScalingParameters.yaml +10/−0
• fixture/UpdateServiceAccessPolicies.yaml +10/−0
• gen/Amazonka/CloudSearch.hs +424/−0
• gen/Amazonka/CloudSearch/BuildSuggesters.hs +167/−0
• gen/Amazonka/CloudSearch/CreateDomain.hs +171/−0
• gen/Amazonka/CloudSearch/DefineAnalysisScheme.hs +188/−0
• gen/Amazonka/CloudSearch/DefineExpression.hs +186/−0
• gen/Amazonka/CloudSearch/DefineIndexField.hs +191/−0
• gen/Amazonka/CloudSearch/DefineSuggester.hs +187/−0
• gen/Amazonka/CloudSearch/DeleteAnalysisScheme.hs +190/−0
• gen/Amazonka/CloudSearch/DeleteDomain.hs +164/−0
• gen/Amazonka/CloudSearch/DeleteExpression.hs +187/−0
• gen/Amazonka/CloudSearch/DeleteIndexField.hs +189/−0
• gen/Amazonka/CloudSearch/DeleteSuggester.hs +185/−0
• gen/Amazonka/CloudSearch/DescribeAnalysisSchemes.hs +218/−0
• gen/Amazonka/CloudSearch/DescribeAvailabilityOptions.hs +200/−0
• gen/Amazonka/CloudSearch/DescribeDomainEndpointOptions.hs +203/−0
• gen/Amazonka/CloudSearch/DescribeDomains.hs +174/−0
• gen/Amazonka/CloudSearch/DescribeExpressions.hs +216/−0
• gen/Amazonka/CloudSearch/DescribeIndexFields.hs +214/−0
• gen/Amazonka/CloudSearch/DescribeScalingParameters.hs +176/−0
• gen/Amazonka/CloudSearch/DescribeServiceAccessPolicies.hs +206/−0
• gen/Amazonka/CloudSearch/DescribeSuggesters.hs +213/−0
• gen/Amazonka/CloudSearch/IndexDocuments.hs +168/−0
• gen/Amazonka/CloudSearch/Lens.hs +422/−0
• gen/Amazonka/CloudSearch/ListDomainNames.hs +149/−0
• gen/Amazonka/CloudSearch/Types.hs +493/−0
• gen/Amazonka/CloudSearch/Types/AccessPoliciesStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/AlgorithmicStemming.hs +81/−0
• gen/Amazonka/CloudSearch/Types/AnalysisOptions.hs +208/−0
• gen/Amazonka/CloudSearch/Types/AnalysisScheme.hs +110/−0
• gen/Amazonka/CloudSearch/Types/AnalysisSchemeLanguage.hs +238/−0
• gen/Amazonka/CloudSearch/Types/AnalysisSchemeStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/AvailabilityOptionsStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/DateArrayOptions.hs +131/−0
• gen/Amazonka/CloudSearch/Types/DateOptions.hs +144/−0
• gen/Amazonka/CloudSearch/Types/DocumentSuggesterOptions.hs +137/−0
• gen/Amazonka/CloudSearch/Types/DomainEndpointOptions.hs +89/−0
• gen/Amazonka/CloudSearch/Types/DomainEndpointOptionsStatus.hs +86/−0
• gen/Amazonka/CloudSearch/Types/DomainStatus.hs +249/−0
• gen/Amazonka/CloudSearch/Types/DoubleArrayOptions.hs +131/−0
• gen/Amazonka/CloudSearch/Types/DoubleOptions.hs +147/−0
• gen/Amazonka/CloudSearch/Types/Expression.hs +91/−0
• gen/Amazonka/CloudSearch/Types/ExpressionStatus.hs +88/−0
• gen/Amazonka/CloudSearch/Types/IndexField.hs +277/−0
• gen/Amazonka/CloudSearch/Types/IndexFieldStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/IndexFieldType.hs +120/−0
• gen/Amazonka/CloudSearch/Types/IntArrayOptions.hs +131/−0
• gen/Amazonka/CloudSearch/Types/IntOptions.hs +147/−0
• gen/Amazonka/CloudSearch/Types/LatLonOptions.hs +144/−0
• gen/Amazonka/CloudSearch/Types/Limits.hs +83/−0
• gen/Amazonka/CloudSearch/Types/LiteralArrayOptions.hs +132/−0
• gen/Amazonka/CloudSearch/Types/LiteralOptions.hs +142/−0
• gen/Amazonka/CloudSearch/Types/OptionState.hs +93/−0
• gen/Amazonka/CloudSearch/Types/OptionStatus.hs +156/−0
• gen/Amazonka/CloudSearch/Types/PartitionInstanceType.hs +148/−0
• gen/Amazonka/CloudSearch/Types/ScalingParameters.hs +114/−0
• gen/Amazonka/CloudSearch/Types/ScalingParametersStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/ServiceEndpoint.hs +63/−0
• gen/Amazonka/CloudSearch/Types/Suggester.hs +97/−0
• gen/Amazonka/CloudSearch/Types/SuggesterFuzzyMatching.hs +76/−0
• gen/Amazonka/CloudSearch/Types/SuggesterStatus.hs +84/−0
• gen/Amazonka/CloudSearch/Types/TLSSecurityPolicy.hs +72/−0
• gen/Amazonka/CloudSearch/Types/TextArrayOptions.hs +132/−0
• gen/Amazonka/CloudSearch/Types/TextOptions.hs +143/−0
• gen/Amazonka/CloudSearch/UpdateAvailabilityOptions.hs +204/−0
• gen/Amazonka/CloudSearch/UpdateDomainEndpointOptions.hs +205/−0
• gen/Amazonka/CloudSearch/UpdateScalingParameters.hs +197/−0
• gen/Amazonka/CloudSearch/UpdateServiceAccessPolicies.hs +199/−0
• gen/Amazonka/CloudSearch/Waiters.hs +24/−0
• gen/Network/AWS/CloudSearch.hs +0/−443
• gen/Network/AWS/CloudSearch/BuildSuggesters.hs +0/−134
• gen/Network/AWS/CloudSearch/CreateDomain.hs +0/−132
• gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs +0/−148
• gen/Network/AWS/CloudSearch/DefineExpression.hs +0/−144
• gen/Network/AWS/CloudSearch/DefineIndexField.hs +0/−145
• gen/Network/AWS/CloudSearch/DefineSuggester.hs +0/−144
• gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs +0/−150
• gen/Network/AWS/CloudSearch/DeleteDomain.hs +0/−132
• gen/Network/AWS/CloudSearch/DeleteExpression.hs +0/−145
• gen/Network/AWS/CloudSearch/DeleteIndexField.hs +0/−145
• gen/Network/AWS/CloudSearch/DeleteSuggester.hs +0/−145
• gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs +0/−161
• gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs +0/−150
• gen/Network/AWS/CloudSearch/DescribeDomains.hs +0/−134
• gen/Network/AWS/CloudSearch/DescribeExpressions.hs +0/−160
• gen/Network/AWS/CloudSearch/DescribeIndexFields.hs +0/−159
• gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs +0/−139
• gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs +0/−152
• gen/Network/AWS/CloudSearch/DescribeSuggesters.hs +0/−160
• gen/Network/AWS/CloudSearch/IndexDocuments.hs +0/−134
• gen/Network/AWS/CloudSearch/ListDomainNames.hs +0/−120
• gen/Network/AWS/CloudSearch/Types.hs +0/−380
• gen/Network/AWS/CloudSearch/Types/Product.hs +0/−2093
• gen/Network/AWS/CloudSearch/Types/Sum.hs +0/−355
• gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs +0/−150
• gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs +0/−149
• gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs +0/−151
• gen/Network/AWS/CloudSearch/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/CloudSearch.hs +0/−26
• test/Test/AWS/CloudSearch/Internal.hs +0/−16
• test/Test/AWS/Gen/CloudSearch.hs +0/−471
• test/Test/Amazonka/CloudSearch.hs +20/−0
• test/Test/Amazonka/CloudSearch/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudSearch.hs +558/−0

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

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

@@ -1,109 +1,147 @@-name:                  amazonka-cloudsearch-version:               1.6.1-synopsis:              Amazon CloudSearch 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-cloudsearch+version:            2.0+synopsis:           Amazon CloudSearch 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.CloudSearch" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2013-01-01@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.CloudSearch.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.CloudSearch" 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-cloudsearch+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudsearch  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.CloudSearch-        , Network.AWS.CloudSearch.BuildSuggesters-        , Network.AWS.CloudSearch.CreateDomain-        , Network.AWS.CloudSearch.DefineAnalysisScheme-        , Network.AWS.CloudSearch.DefineExpression-        , Network.AWS.CloudSearch.DefineIndexField-        , Network.AWS.CloudSearch.DefineSuggester-        , Network.AWS.CloudSearch.DeleteAnalysisScheme-        , Network.AWS.CloudSearch.DeleteDomain-        , Network.AWS.CloudSearch.DeleteExpression-        , Network.AWS.CloudSearch.DeleteIndexField-        , Network.AWS.CloudSearch.DeleteSuggester-        , Network.AWS.CloudSearch.DescribeAnalysisSchemes-        , Network.AWS.CloudSearch.DescribeAvailabilityOptions-        , Network.AWS.CloudSearch.DescribeDomains-        , Network.AWS.CloudSearch.DescribeExpressions-        , Network.AWS.CloudSearch.DescribeIndexFields-        , Network.AWS.CloudSearch.DescribeScalingParameters-        , Network.AWS.CloudSearch.DescribeServiceAccessPolicies-        , Network.AWS.CloudSearch.DescribeSuggesters-        , Network.AWS.CloudSearch.IndexDocuments-        , Network.AWS.CloudSearch.ListDomainNames-        , Network.AWS.CloudSearch.Types-        , Network.AWS.CloudSearch.UpdateAvailabilityOptions-        , Network.AWS.CloudSearch.UpdateScalingParameters-        , Network.AWS.CloudSearch.UpdateServiceAccessPolicies-        , Network.AWS.CloudSearch.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.CloudSearch.Types.Product-        , Network.AWS.CloudSearch.Types.Sum+  exposed-modules:+    Amazonka.CloudSearch+    Amazonka.CloudSearch.BuildSuggesters+    Amazonka.CloudSearch.CreateDomain+    Amazonka.CloudSearch.DefineAnalysisScheme+    Amazonka.CloudSearch.DefineExpression+    Amazonka.CloudSearch.DefineIndexField+    Amazonka.CloudSearch.DefineSuggester+    Amazonka.CloudSearch.DeleteAnalysisScheme+    Amazonka.CloudSearch.DeleteDomain+    Amazonka.CloudSearch.DeleteExpression+    Amazonka.CloudSearch.DeleteIndexField+    Amazonka.CloudSearch.DeleteSuggester+    Amazonka.CloudSearch.DescribeAnalysisSchemes+    Amazonka.CloudSearch.DescribeAvailabilityOptions+    Amazonka.CloudSearch.DescribeDomainEndpointOptions+    Amazonka.CloudSearch.DescribeDomains+    Amazonka.CloudSearch.DescribeExpressions+    Amazonka.CloudSearch.DescribeIndexFields+    Amazonka.CloudSearch.DescribeScalingParameters+    Amazonka.CloudSearch.DescribeServiceAccessPolicies+    Amazonka.CloudSearch.DescribeSuggesters+    Amazonka.CloudSearch.IndexDocuments+    Amazonka.CloudSearch.Lens+    Amazonka.CloudSearch.ListDomainNames+    Amazonka.CloudSearch.Types+    Amazonka.CloudSearch.Types.AccessPoliciesStatus+    Amazonka.CloudSearch.Types.AlgorithmicStemming+    Amazonka.CloudSearch.Types.AnalysisOptions+    Amazonka.CloudSearch.Types.AnalysisScheme+    Amazonka.CloudSearch.Types.AnalysisSchemeLanguage+    Amazonka.CloudSearch.Types.AnalysisSchemeStatus+    Amazonka.CloudSearch.Types.AvailabilityOptionsStatus+    Amazonka.CloudSearch.Types.DateArrayOptions+    Amazonka.CloudSearch.Types.DateOptions+    Amazonka.CloudSearch.Types.DocumentSuggesterOptions+    Amazonka.CloudSearch.Types.DomainEndpointOptions+    Amazonka.CloudSearch.Types.DomainEndpointOptionsStatus+    Amazonka.CloudSearch.Types.DomainStatus+    Amazonka.CloudSearch.Types.DoubleArrayOptions+    Amazonka.CloudSearch.Types.DoubleOptions+    Amazonka.CloudSearch.Types.Expression+    Amazonka.CloudSearch.Types.ExpressionStatus+    Amazonka.CloudSearch.Types.IndexField+    Amazonka.CloudSearch.Types.IndexFieldStatus+    Amazonka.CloudSearch.Types.IndexFieldType+    Amazonka.CloudSearch.Types.IntArrayOptions+    Amazonka.CloudSearch.Types.IntOptions+    Amazonka.CloudSearch.Types.LatLonOptions+    Amazonka.CloudSearch.Types.Limits+    Amazonka.CloudSearch.Types.LiteralArrayOptions+    Amazonka.CloudSearch.Types.LiteralOptions+    Amazonka.CloudSearch.Types.OptionState+    Amazonka.CloudSearch.Types.OptionStatus+    Amazonka.CloudSearch.Types.PartitionInstanceType+    Amazonka.CloudSearch.Types.ScalingParameters+    Amazonka.CloudSearch.Types.ScalingParametersStatus+    Amazonka.CloudSearch.Types.ServiceEndpoint+    Amazonka.CloudSearch.Types.Suggester+    Amazonka.CloudSearch.Types.SuggesterFuzzyMatching+    Amazonka.CloudSearch.Types.SuggesterStatus+    Amazonka.CloudSearch.Types.TextArrayOptions+    Amazonka.CloudSearch.Types.TextOptions+    Amazonka.CloudSearch.Types.TLSSecurityPolicy+    Amazonka.CloudSearch.UpdateAvailabilityOptions+    Amazonka.CloudSearch.UpdateDomainEndpointOptions+    Amazonka.CloudSearch.UpdateScalingParameters+    Amazonka.CloudSearch.UpdateServiceAccessPolicies+    Amazonka.CloudSearch.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-cloudsearch-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.CloudSearch-        , Test.AWS.Gen.CloudSearch-        , Test.AWS.CloudSearch.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.CloudSearch+    Test.Amazonka.CloudSearch.Internal+    Test.Amazonka.Gen.CloudSearch -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudsearch-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudsearch+    , amazonka-core         >=2.0 && <2.1+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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/cloudsearch/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearch.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,424 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudSearch+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2013-01-01@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Amazon CloudSearch Configuration Service+--+-- You use the Amazon CloudSearch configuration service to create,+-- configure, and manage search domains. Configuration service requests are+-- submitted using the AWS Query protocol. AWS Query requests are HTTP or+-- HTTPS requests submitted via HTTP GET or POST with a query parameter+-- named Action.+--+-- The endpoint for configuration service requests is region-specific:+-- cloudsearch./region/.amazonaws.com. For example,+-- cloudsearch.us-east-1.amazonaws.com. For a current list of supported+-- regions and endpoints, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html#cloudsearch_region Regions and Endpoints>.+module Amazonka.CloudSearch+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** BaseException+    _BaseException,++    -- ** DisabledOperationException+    _DisabledOperationException,++    -- ** InternalException+    _InternalException,++    -- ** InvalidTypeException+    _InvalidTypeException,++    -- ** LimitExceededException+    _LimitExceededException,++    -- ** ResourceAlreadyExistsException+    _ResourceAlreadyExistsException,++    -- ** ResourceNotFoundException+    _ResourceNotFoundException,++    -- ** ValidationException+    _ValidationException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** BuildSuggesters+    BuildSuggesters (BuildSuggesters'),+    newBuildSuggesters,+    BuildSuggestersResponse (BuildSuggestersResponse'),+    newBuildSuggestersResponse,++    -- ** CreateDomain+    CreateDomain (CreateDomain'),+    newCreateDomain,+    CreateDomainResponse (CreateDomainResponse'),+    newCreateDomainResponse,++    -- ** DefineAnalysisScheme+    DefineAnalysisScheme (DefineAnalysisScheme'),+    newDefineAnalysisScheme,+    DefineAnalysisSchemeResponse (DefineAnalysisSchemeResponse'),+    newDefineAnalysisSchemeResponse,++    -- ** DefineExpression+    DefineExpression (DefineExpression'),+    newDefineExpression,+    DefineExpressionResponse (DefineExpressionResponse'),+    newDefineExpressionResponse,++    -- ** DefineIndexField+    DefineIndexField (DefineIndexField'),+    newDefineIndexField,+    DefineIndexFieldResponse (DefineIndexFieldResponse'),+    newDefineIndexFieldResponse,++    -- ** DefineSuggester+    DefineSuggester (DefineSuggester'),+    newDefineSuggester,+    DefineSuggesterResponse (DefineSuggesterResponse'),+    newDefineSuggesterResponse,++    -- ** DeleteAnalysisScheme+    DeleteAnalysisScheme (DeleteAnalysisScheme'),+    newDeleteAnalysisScheme,+    DeleteAnalysisSchemeResponse (DeleteAnalysisSchemeResponse'),+    newDeleteAnalysisSchemeResponse,++    -- ** DeleteDomain+    DeleteDomain (DeleteDomain'),+    newDeleteDomain,+    DeleteDomainResponse (DeleteDomainResponse'),+    newDeleteDomainResponse,++    -- ** DeleteExpression+    DeleteExpression (DeleteExpression'),+    newDeleteExpression,+    DeleteExpressionResponse (DeleteExpressionResponse'),+    newDeleteExpressionResponse,++    -- ** DeleteIndexField+    DeleteIndexField (DeleteIndexField'),+    newDeleteIndexField,+    DeleteIndexFieldResponse (DeleteIndexFieldResponse'),+    newDeleteIndexFieldResponse,++    -- ** DeleteSuggester+    DeleteSuggester (DeleteSuggester'),+    newDeleteSuggester,+    DeleteSuggesterResponse (DeleteSuggesterResponse'),+    newDeleteSuggesterResponse,++    -- ** DescribeAnalysisSchemes+    DescribeAnalysisSchemes (DescribeAnalysisSchemes'),+    newDescribeAnalysisSchemes,+    DescribeAnalysisSchemesResponse (DescribeAnalysisSchemesResponse'),+    newDescribeAnalysisSchemesResponse,++    -- ** DescribeAvailabilityOptions+    DescribeAvailabilityOptions (DescribeAvailabilityOptions'),+    newDescribeAvailabilityOptions,+    DescribeAvailabilityOptionsResponse (DescribeAvailabilityOptionsResponse'),+    newDescribeAvailabilityOptionsResponse,++    -- ** DescribeDomainEndpointOptions+    DescribeDomainEndpointOptions (DescribeDomainEndpointOptions'),+    newDescribeDomainEndpointOptions,+    DescribeDomainEndpointOptionsResponse (DescribeDomainEndpointOptionsResponse'),+    newDescribeDomainEndpointOptionsResponse,++    -- ** DescribeDomains+    DescribeDomains (DescribeDomains'),+    newDescribeDomains,+    DescribeDomainsResponse (DescribeDomainsResponse'),+    newDescribeDomainsResponse,++    -- ** DescribeExpressions+    DescribeExpressions (DescribeExpressions'),+    newDescribeExpressions,+    DescribeExpressionsResponse (DescribeExpressionsResponse'),+    newDescribeExpressionsResponse,++    -- ** DescribeIndexFields+    DescribeIndexFields (DescribeIndexFields'),+    newDescribeIndexFields,+    DescribeIndexFieldsResponse (DescribeIndexFieldsResponse'),+    newDescribeIndexFieldsResponse,++    -- ** DescribeScalingParameters+    DescribeScalingParameters (DescribeScalingParameters'),+    newDescribeScalingParameters,+    DescribeScalingParametersResponse (DescribeScalingParametersResponse'),+    newDescribeScalingParametersResponse,++    -- ** DescribeServiceAccessPolicies+    DescribeServiceAccessPolicies (DescribeServiceAccessPolicies'),+    newDescribeServiceAccessPolicies,+    DescribeServiceAccessPoliciesResponse (DescribeServiceAccessPoliciesResponse'),+    newDescribeServiceAccessPoliciesResponse,++    -- ** DescribeSuggesters+    DescribeSuggesters (DescribeSuggesters'),+    newDescribeSuggesters,+    DescribeSuggestersResponse (DescribeSuggestersResponse'),+    newDescribeSuggestersResponse,++    -- ** IndexDocuments+    IndexDocuments (IndexDocuments'),+    newIndexDocuments,+    IndexDocumentsResponse (IndexDocumentsResponse'),+    newIndexDocumentsResponse,++    -- ** ListDomainNames+    ListDomainNames (ListDomainNames'),+    newListDomainNames,+    ListDomainNamesResponse (ListDomainNamesResponse'),+    newListDomainNamesResponse,++    -- ** UpdateAvailabilityOptions+    UpdateAvailabilityOptions (UpdateAvailabilityOptions'),+    newUpdateAvailabilityOptions,+    UpdateAvailabilityOptionsResponse (UpdateAvailabilityOptionsResponse'),+    newUpdateAvailabilityOptionsResponse,++    -- ** UpdateDomainEndpointOptions+    UpdateDomainEndpointOptions (UpdateDomainEndpointOptions'),+    newUpdateDomainEndpointOptions,+    UpdateDomainEndpointOptionsResponse (UpdateDomainEndpointOptionsResponse'),+    newUpdateDomainEndpointOptionsResponse,++    -- ** UpdateScalingParameters+    UpdateScalingParameters (UpdateScalingParameters'),+    newUpdateScalingParameters,+    UpdateScalingParametersResponse (UpdateScalingParametersResponse'),+    newUpdateScalingParametersResponse,++    -- ** UpdateServiceAccessPolicies+    UpdateServiceAccessPolicies (UpdateServiceAccessPolicies'),+    newUpdateServiceAccessPolicies,+    UpdateServiceAccessPoliciesResponse (UpdateServiceAccessPoliciesResponse'),+    newUpdateServiceAccessPoliciesResponse,++    -- * Types++    -- ** AlgorithmicStemming+    AlgorithmicStemming (..),++    -- ** AnalysisSchemeLanguage+    AnalysisSchemeLanguage (..),++    -- ** IndexFieldType+    IndexFieldType (..),++    -- ** OptionState+    OptionState (..),++    -- ** PartitionInstanceType+    PartitionInstanceType (..),++    -- ** SuggesterFuzzyMatching+    SuggesterFuzzyMatching (..),++    -- ** TLSSecurityPolicy+    TLSSecurityPolicy (..),++    -- ** AccessPoliciesStatus+    AccessPoliciesStatus (AccessPoliciesStatus'),+    newAccessPoliciesStatus,++    -- ** AnalysisOptions+    AnalysisOptions (AnalysisOptions'),+    newAnalysisOptions,++    -- ** AnalysisScheme+    AnalysisScheme (AnalysisScheme'),+    newAnalysisScheme,++    -- ** AnalysisSchemeStatus+    AnalysisSchemeStatus (AnalysisSchemeStatus'),+    newAnalysisSchemeStatus,++    -- ** AvailabilityOptionsStatus+    AvailabilityOptionsStatus (AvailabilityOptionsStatus'),+    newAvailabilityOptionsStatus,++    -- ** DateArrayOptions+    DateArrayOptions (DateArrayOptions'),+    newDateArrayOptions,++    -- ** DateOptions+    DateOptions (DateOptions'),+    newDateOptions,++    -- ** DocumentSuggesterOptions+    DocumentSuggesterOptions (DocumentSuggesterOptions'),+    newDocumentSuggesterOptions,++    -- ** DomainEndpointOptions+    DomainEndpointOptions (DomainEndpointOptions'),+    newDomainEndpointOptions,++    -- ** DomainEndpointOptionsStatus+    DomainEndpointOptionsStatus (DomainEndpointOptionsStatus'),+    newDomainEndpointOptionsStatus,++    -- ** DomainStatus+    DomainStatus (DomainStatus'),+    newDomainStatus,++    -- ** DoubleArrayOptions+    DoubleArrayOptions (DoubleArrayOptions'),+    newDoubleArrayOptions,++    -- ** DoubleOptions+    DoubleOptions (DoubleOptions'),+    newDoubleOptions,++    -- ** Expression+    Expression (Expression'),+    newExpression,++    -- ** ExpressionStatus+    ExpressionStatus (ExpressionStatus'),+    newExpressionStatus,++    -- ** IndexField+    IndexField (IndexField'),+    newIndexField,++    -- ** IndexFieldStatus+    IndexFieldStatus (IndexFieldStatus'),+    newIndexFieldStatus,++    -- ** IntArrayOptions+    IntArrayOptions (IntArrayOptions'),+    newIntArrayOptions,++    -- ** IntOptions+    IntOptions (IntOptions'),+    newIntOptions,++    -- ** LatLonOptions+    LatLonOptions (LatLonOptions'),+    newLatLonOptions,++    -- ** Limits+    Limits (Limits'),+    newLimits,++    -- ** LiteralArrayOptions+    LiteralArrayOptions (LiteralArrayOptions'),+    newLiteralArrayOptions,++    -- ** LiteralOptions+    LiteralOptions (LiteralOptions'),+    newLiteralOptions,++    -- ** OptionStatus+    OptionStatus (OptionStatus'),+    newOptionStatus,++    -- ** ScalingParameters+    ScalingParameters (ScalingParameters'),+    newScalingParameters,++    -- ** ScalingParametersStatus+    ScalingParametersStatus (ScalingParametersStatus'),+    newScalingParametersStatus,++    -- ** ServiceEndpoint+    ServiceEndpoint (ServiceEndpoint'),+    newServiceEndpoint,++    -- ** Suggester+    Suggester (Suggester'),+    newSuggester,++    -- ** SuggesterStatus+    SuggesterStatus (SuggesterStatus'),+    newSuggesterStatus,++    -- ** TextArrayOptions+    TextArrayOptions (TextArrayOptions'),+    newTextArrayOptions,++    -- ** TextOptions+    TextOptions (TextOptions'),+    newTextOptions,+  )+where++import Amazonka.CloudSearch.BuildSuggesters+import Amazonka.CloudSearch.CreateDomain+import Amazonka.CloudSearch.DefineAnalysisScheme+import Amazonka.CloudSearch.DefineExpression+import Amazonka.CloudSearch.DefineIndexField+import Amazonka.CloudSearch.DefineSuggester+import Amazonka.CloudSearch.DeleteAnalysisScheme+import Amazonka.CloudSearch.DeleteDomain+import Amazonka.CloudSearch.DeleteExpression+import Amazonka.CloudSearch.DeleteIndexField+import Amazonka.CloudSearch.DeleteSuggester+import Amazonka.CloudSearch.DescribeAnalysisSchemes+import Amazonka.CloudSearch.DescribeAvailabilityOptions+import Amazonka.CloudSearch.DescribeDomainEndpointOptions+import Amazonka.CloudSearch.DescribeDomains+import Amazonka.CloudSearch.DescribeExpressions+import Amazonka.CloudSearch.DescribeIndexFields+import Amazonka.CloudSearch.DescribeScalingParameters+import Amazonka.CloudSearch.DescribeServiceAccessPolicies+import Amazonka.CloudSearch.DescribeSuggesters+import Amazonka.CloudSearch.IndexDocuments+import Amazonka.CloudSearch.Lens+import Amazonka.CloudSearch.ListDomainNames+import Amazonka.CloudSearch.Types+import Amazonka.CloudSearch.UpdateAvailabilityOptions+import Amazonka.CloudSearch.UpdateDomainEndpointOptions+import Amazonka.CloudSearch.UpdateScalingParameters+import Amazonka.CloudSearch.UpdateServiceAccessPolicies+import Amazonka.CloudSearch.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 'CloudSearch'.++-- $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,167 @@+{-# 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.CloudSearch.BuildSuggesters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Indexes the search suggestions. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html#configuring-suggesters Configuring Suggesters>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.BuildSuggesters+  ( -- * Creating a Request+    BuildSuggesters (..),+    newBuildSuggesters,++    -- * Request Lenses+    buildSuggesters_domainName,++    -- * Destructuring the Response+    BuildSuggestersResponse (..),+    newBuildSuggestersResponse,++    -- * Response Lenses+    buildSuggestersResponse_fieldNames,+    buildSuggestersResponse_httpStatus,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @BuildSuggester@ operation.+-- Specifies the name of the domain you want to update.+--+-- /See:/ 'newBuildSuggesters' smart constructor.+data BuildSuggesters = BuildSuggesters'+  { domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BuildSuggesters' 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:+--+-- 'domainName', 'buildSuggesters_domainName' - Undocumented member.+newBuildSuggesters ::+  -- | 'domainName'+  Prelude.Text ->+  BuildSuggesters+newBuildSuggesters pDomainName_ =+  BuildSuggesters' {domainName = pDomainName_}++-- | Undocumented member.+buildSuggesters_domainName :: Lens.Lens' BuildSuggesters Prelude.Text+buildSuggesters_domainName = Lens.lens (\BuildSuggesters' {domainName} -> domainName) (\s@BuildSuggesters' {} a -> s {domainName = a} :: BuildSuggesters)++instance Core.AWSRequest BuildSuggesters where+  type+    AWSResponse BuildSuggesters =+      BuildSuggestersResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "BuildSuggestersResult"+      ( \s h x ->+          BuildSuggestersResponse'+            Prelude.<$> ( x+                            Data..@? "FieldNames"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Core.may (Data.parseXMLList "member")+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable BuildSuggesters where+  hashWithSalt _salt BuildSuggesters' {..} =+    _salt `Prelude.hashWithSalt` domainName++instance Prelude.NFData BuildSuggesters where+  rnf BuildSuggesters' {..} = Prelude.rnf domainName++instance Data.ToHeaders BuildSuggesters where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath BuildSuggesters where+  toPath = Prelude.const "/"++instance Data.ToQuery BuildSuggesters where+  toQuery BuildSuggesters' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("BuildSuggesters" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName+      ]++-- | The result of a @BuildSuggester@ request. Contains a list of the fields+-- used for suggestions.+--+-- /See:/ 'newBuildSuggestersResponse' smart constructor.+data BuildSuggestersResponse = BuildSuggestersResponse'+  { fieldNames :: 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 'BuildSuggestersResponse' 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:+--+-- 'fieldNames', 'buildSuggestersResponse_fieldNames' - Undocumented member.+--+-- 'httpStatus', 'buildSuggestersResponse_httpStatus' - The response's http status code.+newBuildSuggestersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  BuildSuggestersResponse+newBuildSuggestersResponse pHttpStatus_ =+  BuildSuggestersResponse'+    { fieldNames =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+buildSuggestersResponse_fieldNames :: Lens.Lens' BuildSuggestersResponse (Prelude.Maybe [Prelude.Text])+buildSuggestersResponse_fieldNames = Lens.lens (\BuildSuggestersResponse' {fieldNames} -> fieldNames) (\s@BuildSuggestersResponse' {} a -> s {fieldNames = a} :: BuildSuggestersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+buildSuggestersResponse_httpStatus :: Lens.Lens' BuildSuggestersResponse Prelude.Int+buildSuggestersResponse_httpStatus = Lens.lens (\BuildSuggestersResponse' {httpStatus} -> httpStatus) (\s@BuildSuggestersResponse' {} a -> s {httpStatus = a} :: BuildSuggestersResponse)++instance Prelude.NFData BuildSuggestersResponse where+  rnf BuildSuggestersResponse' {..} =+    Prelude.rnf fieldNames+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,171 @@+{-# 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.CloudSearch.CreateDomain+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new search domain. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/creating-domains.html Creating a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.CreateDomain+  ( -- * Creating a Request+    CreateDomain (..),+    newCreateDomain,++    -- * Request Lenses+    createDomain_domainName,++    -- * Destructuring the Response+    CreateDomainResponse (..),+    newCreateDomainResponse,++    -- * Response Lenses+    createDomainResponse_domainStatus,+    createDomainResponse_httpStatus,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @CreateDomain@ operation. Specifies+-- a name for the new search domain.+--+-- /See:/ 'newCreateDomain' smart constructor.+data CreateDomain = CreateDomain'+  { -- | A name for the domain you are creating. Allowed characters are a-z+    -- (lower-case letters), 0-9, and hyphen (-). Domain names must start with+    -- a letter or number and be at least 3 and no more than 28 characters+    -- long.+    domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDomain' 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:+--+-- 'domainName', 'createDomain_domainName' - A name for the domain you are creating. Allowed characters are a-z+-- (lower-case letters), 0-9, and hyphen (-). Domain names must start with+-- a letter or number and be at least 3 and no more than 28 characters+-- long.+newCreateDomain ::+  -- | 'domainName'+  Prelude.Text ->+  CreateDomain+newCreateDomain pDomainName_ =+  CreateDomain' {domainName = pDomainName_}++-- | A name for the domain you are creating. Allowed characters are a-z+-- (lower-case letters), 0-9, and hyphen (-). Domain names must start with+-- a letter or number and be at least 3 and no more than 28 characters+-- long.+createDomain_domainName :: Lens.Lens' CreateDomain Prelude.Text+createDomain_domainName = Lens.lens (\CreateDomain' {domainName} -> domainName) (\s@CreateDomain' {} a -> s {domainName = a} :: CreateDomain)++instance Core.AWSRequest CreateDomain where+  type AWSResponse CreateDomain = CreateDomainResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "CreateDomainResult"+      ( \s h x ->+          CreateDomainResponse'+            Prelude.<$> (x Data..@? "DomainStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateDomain where+  hashWithSalt _salt CreateDomain' {..} =+    _salt `Prelude.hashWithSalt` domainName++instance Prelude.NFData CreateDomain where+  rnf CreateDomain' {..} = Prelude.rnf domainName++instance Data.ToHeaders CreateDomain where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath CreateDomain where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateDomain where+  toQuery CreateDomain' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("CreateDomain" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName+      ]++-- | The result of a @CreateDomainRequest@. Contains the status of a newly+-- created domain.+--+-- /See:/ 'newCreateDomainResponse' smart constructor.+data CreateDomainResponse = CreateDomainResponse'+  { domainStatus :: Prelude.Maybe DomainStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDomainResponse' 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:+--+-- 'domainStatus', 'createDomainResponse_domainStatus' - Undocumented member.+--+-- 'httpStatus', 'createDomainResponse_httpStatus' - The response's http status code.+newCreateDomainResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateDomainResponse+newCreateDomainResponse pHttpStatus_ =+  CreateDomainResponse'+    { domainStatus =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+createDomainResponse_domainStatus :: Lens.Lens' CreateDomainResponse (Prelude.Maybe DomainStatus)+createDomainResponse_domainStatus = Lens.lens (\CreateDomainResponse' {domainStatus} -> domainStatus) (\s@CreateDomainResponse' {} a -> s {domainStatus = a} :: CreateDomainResponse)++-- | The response's http status code.+createDomainResponse_httpStatus :: Lens.Lens' CreateDomainResponse Prelude.Int+createDomainResponse_httpStatus = Lens.lens (\CreateDomainResponse' {httpStatus} -> httpStatus) (\s@CreateDomainResponse' {} a -> s {httpStatus = a} :: CreateDomainResponse)++instance Prelude.NFData CreateDomainResponse where+  rnf CreateDomainResponse' {..} =+    Prelude.rnf domainStatus+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,188 @@+{-# 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.CloudSearch.DefineAnalysisScheme+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Configures an analysis scheme that can be applied to a @text@ or+-- @text-array@ field to define language-specific text processing options.+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DefineAnalysisScheme+  ( -- * Creating a Request+    DefineAnalysisScheme (..),+    newDefineAnalysisScheme,++    -- * Request Lenses+    defineAnalysisScheme_domainName,+    defineAnalysisScheme_analysisScheme,++    -- * Destructuring the Response+    DefineAnalysisSchemeResponse (..),+    newDefineAnalysisSchemeResponse,++    -- * Response Lenses+    defineAnalysisSchemeResponse_httpStatus,+    defineAnalysisSchemeResponse_analysisScheme,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DefineAnalysisScheme@ operation.+-- Specifies the name of the domain you want to update and the analysis+-- scheme configuration.+--+-- /See:/ 'newDefineAnalysisScheme' smart constructor.+data DefineAnalysisScheme = DefineAnalysisScheme'+  { domainName :: Prelude.Text,+    analysisScheme :: AnalysisScheme+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineAnalysisScheme' 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:+--+-- 'domainName', 'defineAnalysisScheme_domainName' - Undocumented member.+--+-- 'analysisScheme', 'defineAnalysisScheme_analysisScheme' - Undocumented member.+newDefineAnalysisScheme ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'analysisScheme'+  AnalysisScheme ->+  DefineAnalysisScheme+newDefineAnalysisScheme pDomainName_ pAnalysisScheme_ =+  DefineAnalysisScheme'+    { domainName = pDomainName_,+      analysisScheme = pAnalysisScheme_+    }++-- | Undocumented member.+defineAnalysisScheme_domainName :: Lens.Lens' DefineAnalysisScheme Prelude.Text+defineAnalysisScheme_domainName = Lens.lens (\DefineAnalysisScheme' {domainName} -> domainName) (\s@DefineAnalysisScheme' {} a -> s {domainName = a} :: DefineAnalysisScheme)++-- | Undocumented member.+defineAnalysisScheme_analysisScheme :: Lens.Lens' DefineAnalysisScheme AnalysisScheme+defineAnalysisScheme_analysisScheme = Lens.lens (\DefineAnalysisScheme' {analysisScheme} -> analysisScheme) (\s@DefineAnalysisScheme' {} a -> s {analysisScheme = a} :: DefineAnalysisScheme)++instance Core.AWSRequest DefineAnalysisScheme where+  type+    AWSResponse DefineAnalysisScheme =+      DefineAnalysisSchemeResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DefineAnalysisSchemeResult"+      ( \s h x ->+          DefineAnalysisSchemeResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "AnalysisScheme")+      )++instance Prelude.Hashable DefineAnalysisScheme where+  hashWithSalt _salt DefineAnalysisScheme' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` analysisScheme++instance Prelude.NFData DefineAnalysisScheme where+  rnf DefineAnalysisScheme' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf analysisScheme++instance Data.ToHeaders DefineAnalysisScheme where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DefineAnalysisScheme where+  toPath = Prelude.const "/"++instance Data.ToQuery DefineAnalysisScheme where+  toQuery DefineAnalysisScheme' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DefineAnalysisScheme" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "AnalysisScheme" Data.=: analysisScheme+      ]++-- | The result of a @DefineAnalysisScheme@ request. Contains the status of+-- the newly-configured analysis scheme.+--+-- /See:/ 'newDefineAnalysisSchemeResponse' smart constructor.+data DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    analysisScheme :: AnalysisSchemeStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineAnalysisSchemeResponse' 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', 'defineAnalysisSchemeResponse_httpStatus' - The response's http status code.+--+-- 'analysisScheme', 'defineAnalysisSchemeResponse_analysisScheme' - Undocumented member.+newDefineAnalysisSchemeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'analysisScheme'+  AnalysisSchemeStatus ->+  DefineAnalysisSchemeResponse+newDefineAnalysisSchemeResponse+  pHttpStatus_+  pAnalysisScheme_ =+    DefineAnalysisSchemeResponse'+      { httpStatus =+          pHttpStatus_,+        analysisScheme = pAnalysisScheme_+      }++-- | The response's http status code.+defineAnalysisSchemeResponse_httpStatus :: Lens.Lens' DefineAnalysisSchemeResponse Prelude.Int+defineAnalysisSchemeResponse_httpStatus = Lens.lens (\DefineAnalysisSchemeResponse' {httpStatus} -> httpStatus) (\s@DefineAnalysisSchemeResponse' {} a -> s {httpStatus = a} :: DefineAnalysisSchemeResponse)++-- | Undocumented member.+defineAnalysisSchemeResponse_analysisScheme :: Lens.Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus+defineAnalysisSchemeResponse_analysisScheme = Lens.lens (\DefineAnalysisSchemeResponse' {analysisScheme} -> analysisScheme) (\s@DefineAnalysisSchemeResponse' {} a -> s {analysisScheme = a} :: DefineAnalysisSchemeResponse)++instance Prelude.NFData DefineAnalysisSchemeResponse where+  rnf DefineAnalysisSchemeResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf analysisScheme

@@ -0,0 +1,186 @@+{-# 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.CloudSearch.DefineExpression+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Configures an @Expression@ for the search domain. Used to create new+-- expressions and modify existing ones. If the expression exists, the new+-- configuration replaces the old one. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html Configuring Expressions>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DefineExpression+  ( -- * Creating a Request+    DefineExpression (..),+    newDefineExpression,++    -- * Request Lenses+    defineExpression_domainName,+    defineExpression_expression,++    -- * Destructuring the Response+    DefineExpressionResponse (..),+    newDefineExpressionResponse,++    -- * Response Lenses+    defineExpressionResponse_httpStatus,+    defineExpressionResponse_expression,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DefineExpression@ operation.+-- Specifies the name of the domain you want to update and the expression+-- you want to configure.+--+-- /See:/ 'newDefineExpression' smart constructor.+data DefineExpression = DefineExpression'+  { domainName :: Prelude.Text,+    expression :: Expression+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineExpression' 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:+--+-- 'domainName', 'defineExpression_domainName' - Undocumented member.+--+-- 'expression', 'defineExpression_expression' - Undocumented member.+newDefineExpression ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'expression'+  Expression ->+  DefineExpression+newDefineExpression pDomainName_ pExpression_ =+  DefineExpression'+    { domainName = pDomainName_,+      expression = pExpression_+    }++-- | Undocumented member.+defineExpression_domainName :: Lens.Lens' DefineExpression Prelude.Text+defineExpression_domainName = Lens.lens (\DefineExpression' {domainName} -> domainName) (\s@DefineExpression' {} a -> s {domainName = a} :: DefineExpression)++-- | Undocumented member.+defineExpression_expression :: Lens.Lens' DefineExpression Expression+defineExpression_expression = Lens.lens (\DefineExpression' {expression} -> expression) (\s@DefineExpression' {} a -> s {expression = a} :: DefineExpression)++instance Core.AWSRequest DefineExpression where+  type+    AWSResponse DefineExpression =+      DefineExpressionResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DefineExpressionResult"+      ( \s h x ->+          DefineExpressionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "Expression")+      )++instance Prelude.Hashable DefineExpression where+  hashWithSalt _salt DefineExpression' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` expression++instance Prelude.NFData DefineExpression where+  rnf DefineExpression' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf expression++instance Data.ToHeaders DefineExpression where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DefineExpression where+  toPath = Prelude.const "/"++instance Data.ToQuery DefineExpression where+  toQuery DefineExpression' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DefineExpression" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "Expression" Data.=: expression+      ]++-- | The result of a @DefineExpression@ request. Contains the status of the+-- newly-configured expression.+--+-- /See:/ 'newDefineExpressionResponse' smart constructor.+data DefineExpressionResponse = DefineExpressionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    expression :: ExpressionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineExpressionResponse' 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', 'defineExpressionResponse_httpStatus' - The response's http status code.+--+-- 'expression', 'defineExpressionResponse_expression' - Undocumented member.+newDefineExpressionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'expression'+  ExpressionStatus ->+  DefineExpressionResponse+newDefineExpressionResponse pHttpStatus_ pExpression_ =+  DefineExpressionResponse'+    { httpStatus =+        pHttpStatus_,+      expression = pExpression_+    }++-- | The response's http status code.+defineExpressionResponse_httpStatus :: Lens.Lens' DefineExpressionResponse Prelude.Int+defineExpressionResponse_httpStatus = Lens.lens (\DefineExpressionResponse' {httpStatus} -> httpStatus) (\s@DefineExpressionResponse' {} a -> s {httpStatus = a} :: DefineExpressionResponse)++-- | Undocumented member.+defineExpressionResponse_expression :: Lens.Lens' DefineExpressionResponse ExpressionStatus+defineExpressionResponse_expression = Lens.lens (\DefineExpressionResponse' {expression} -> expression) (\s@DefineExpressionResponse' {} a -> s {expression = a} :: DefineExpressionResponse)++instance Prelude.NFData DefineExpressionResponse where+  rnf DefineExpressionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf expression

@@ -0,0 +1,191 @@+{-# 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.CloudSearch.DefineIndexField+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Configures an @IndexField@ for the search domain. Used to create new+-- fields and modify existing ones. You must specify the name of the domain+-- you are configuring and an index field configuration. The index field+-- configuration specifies a unique name, the index field type, and the+-- options you want to configure for the field. The options you can specify+-- depend on the @IndexFieldType@. If the field exists, the new+-- configuration replaces the old one. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-index-fields.html Configuring Index Fields>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DefineIndexField+  ( -- * Creating a Request+    DefineIndexField (..),+    newDefineIndexField,++    -- * Request Lenses+    defineIndexField_domainName,+    defineIndexField_indexField,++    -- * Destructuring the Response+    DefineIndexFieldResponse (..),+    newDefineIndexFieldResponse,++    -- * Response Lenses+    defineIndexFieldResponse_httpStatus,+    defineIndexFieldResponse_indexField,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DefineIndexField@ operation.+-- Specifies the name of the domain you want to update and the index field+-- configuration.+--+-- /See:/ 'newDefineIndexField' smart constructor.+data DefineIndexField = DefineIndexField'+  { domainName :: Prelude.Text,+    -- | The index field and field options you want to configure.+    indexField :: IndexField+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineIndexField' 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:+--+-- 'domainName', 'defineIndexField_domainName' - Undocumented member.+--+-- 'indexField', 'defineIndexField_indexField' - The index field and field options you want to configure.+newDefineIndexField ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'indexField'+  IndexField ->+  DefineIndexField+newDefineIndexField pDomainName_ pIndexField_ =+  DefineIndexField'+    { domainName = pDomainName_,+      indexField = pIndexField_+    }++-- | Undocumented member.+defineIndexField_domainName :: Lens.Lens' DefineIndexField Prelude.Text+defineIndexField_domainName = Lens.lens (\DefineIndexField' {domainName} -> domainName) (\s@DefineIndexField' {} a -> s {domainName = a} :: DefineIndexField)++-- | The index field and field options you want to configure.+defineIndexField_indexField :: Lens.Lens' DefineIndexField IndexField+defineIndexField_indexField = Lens.lens (\DefineIndexField' {indexField} -> indexField) (\s@DefineIndexField' {} a -> s {indexField = a} :: DefineIndexField)++instance Core.AWSRequest DefineIndexField where+  type+    AWSResponse DefineIndexField =+      DefineIndexFieldResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DefineIndexFieldResult"+      ( \s h x ->+          DefineIndexFieldResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "IndexField")+      )++instance Prelude.Hashable DefineIndexField where+  hashWithSalt _salt DefineIndexField' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` indexField++instance Prelude.NFData DefineIndexField where+  rnf DefineIndexField' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf indexField++instance Data.ToHeaders DefineIndexField where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DefineIndexField where+  toPath = Prelude.const "/"++instance Data.ToQuery DefineIndexField where+  toQuery DefineIndexField' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DefineIndexField" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "IndexField" Data.=: indexField+      ]++-- | The result of a @DefineIndexField@ request. Contains the status of the+-- newly-configured index field.+--+-- /See:/ 'newDefineIndexFieldResponse' smart constructor.+data DefineIndexFieldResponse = DefineIndexFieldResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    indexField :: IndexFieldStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineIndexFieldResponse' 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', 'defineIndexFieldResponse_httpStatus' - The response's http status code.+--+-- 'indexField', 'defineIndexFieldResponse_indexField' - Undocumented member.+newDefineIndexFieldResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'indexField'+  IndexFieldStatus ->+  DefineIndexFieldResponse+newDefineIndexFieldResponse pHttpStatus_ pIndexField_ =+  DefineIndexFieldResponse'+    { httpStatus =+        pHttpStatus_,+      indexField = pIndexField_+    }++-- | The response's http status code.+defineIndexFieldResponse_httpStatus :: Lens.Lens' DefineIndexFieldResponse Prelude.Int+defineIndexFieldResponse_httpStatus = Lens.lens (\DefineIndexFieldResponse' {httpStatus} -> httpStatus) (\s@DefineIndexFieldResponse' {} a -> s {httpStatus = a} :: DefineIndexFieldResponse)++-- | Undocumented member.+defineIndexFieldResponse_indexField :: Lens.Lens' DefineIndexFieldResponse IndexFieldStatus+defineIndexFieldResponse_indexField = Lens.lens (\DefineIndexFieldResponse' {indexField} -> indexField) (\s@DefineIndexFieldResponse' {} a -> s {indexField = a} :: DefineIndexFieldResponse)++instance Prelude.NFData DefineIndexFieldResponse where+  rnf DefineIndexFieldResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf indexField

@@ -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.CloudSearch.DefineSuggester+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Configures a suggester for a domain. A suggester enables you to display+-- possible matches before users finish typing their queries. When you+-- configure a suggester, you must specify the name of the text field you+-- want to search for possible matches and a unique name for the suggester.+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Search Suggestions>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DefineSuggester+  ( -- * Creating a Request+    DefineSuggester (..),+    newDefineSuggester,++    -- * Request Lenses+    defineSuggester_domainName,+    defineSuggester_suggester,++    -- * Destructuring the Response+    DefineSuggesterResponse (..),+    newDefineSuggesterResponse,++    -- * Response Lenses+    defineSuggesterResponse_httpStatus,+    defineSuggesterResponse_suggester,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DefineSuggester@ operation.+-- Specifies the name of the domain you want to update and the suggester+-- configuration.+--+-- /See:/ 'newDefineSuggester' smart constructor.+data DefineSuggester = DefineSuggester'+  { domainName :: Prelude.Text,+    suggester :: Suggester+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineSuggester' 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:+--+-- 'domainName', 'defineSuggester_domainName' - Undocumented member.+--+-- 'suggester', 'defineSuggester_suggester' - Undocumented member.+newDefineSuggester ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'suggester'+  Suggester ->+  DefineSuggester+newDefineSuggester pDomainName_ pSuggester_ =+  DefineSuggester'+    { domainName = pDomainName_,+      suggester = pSuggester_+    }++-- | Undocumented member.+defineSuggester_domainName :: Lens.Lens' DefineSuggester Prelude.Text+defineSuggester_domainName = Lens.lens (\DefineSuggester' {domainName} -> domainName) (\s@DefineSuggester' {} a -> s {domainName = a} :: DefineSuggester)++-- | Undocumented member.+defineSuggester_suggester :: Lens.Lens' DefineSuggester Suggester+defineSuggester_suggester = Lens.lens (\DefineSuggester' {suggester} -> suggester) (\s@DefineSuggester' {} a -> s {suggester = a} :: DefineSuggester)++instance Core.AWSRequest DefineSuggester where+  type+    AWSResponse DefineSuggester =+      DefineSuggesterResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DefineSuggesterResult"+      ( \s h x ->+          DefineSuggesterResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "Suggester")+      )++instance Prelude.Hashable DefineSuggester where+  hashWithSalt _salt DefineSuggester' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` suggester++instance Prelude.NFData DefineSuggester where+  rnf DefineSuggester' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf suggester++instance Data.ToHeaders DefineSuggester where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DefineSuggester where+  toPath = Prelude.const "/"++instance Data.ToQuery DefineSuggester where+  toQuery DefineSuggester' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DefineSuggester" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "Suggester" Data.=: suggester+      ]++-- | The result of a @DefineSuggester@ request. Contains the status of the+-- newly-configured suggester.+--+-- /See:/ 'newDefineSuggesterResponse' smart constructor.+data DefineSuggesterResponse = DefineSuggesterResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    suggester :: SuggesterStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DefineSuggesterResponse' 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', 'defineSuggesterResponse_httpStatus' - The response's http status code.+--+-- 'suggester', 'defineSuggesterResponse_suggester' - Undocumented member.+newDefineSuggesterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'suggester'+  SuggesterStatus ->+  DefineSuggesterResponse+newDefineSuggesterResponse pHttpStatus_ pSuggester_ =+  DefineSuggesterResponse'+    { httpStatus = pHttpStatus_,+      suggester = pSuggester_+    }++-- | The response's http status code.+defineSuggesterResponse_httpStatus :: Lens.Lens' DefineSuggesterResponse Prelude.Int+defineSuggesterResponse_httpStatus = Lens.lens (\DefineSuggesterResponse' {httpStatus} -> httpStatus) (\s@DefineSuggesterResponse' {} a -> s {httpStatus = a} :: DefineSuggesterResponse)++-- | Undocumented member.+defineSuggesterResponse_suggester :: Lens.Lens' DefineSuggesterResponse SuggesterStatus+defineSuggesterResponse_suggester = Lens.lens (\DefineSuggesterResponse' {suggester} -> suggester) (\s@DefineSuggesterResponse' {} a -> s {suggester = a} :: DefineSuggesterResponse)++instance Prelude.NFData DefineSuggesterResponse where+  rnf DefineSuggesterResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf suggester

@@ -0,0 +1,190 @@+{-# 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.CloudSearch.DeleteAnalysisScheme+-- 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 an analysis scheme. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DeleteAnalysisScheme+  ( -- * Creating a Request+    DeleteAnalysisScheme (..),+    newDeleteAnalysisScheme,++    -- * Request Lenses+    deleteAnalysisScheme_domainName,+    deleteAnalysisScheme_analysisSchemeName,++    -- * Destructuring the Response+    DeleteAnalysisSchemeResponse (..),+    newDeleteAnalysisSchemeResponse,++    -- * Response Lenses+    deleteAnalysisSchemeResponse_httpStatus,+    deleteAnalysisSchemeResponse_analysisScheme,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DeleteAnalysisScheme@ operation.+-- Specifies the name of the domain you want to update and the analysis+-- scheme you want to delete.+--+-- /See:/ 'newDeleteAnalysisScheme' smart constructor.+data DeleteAnalysisScheme = DeleteAnalysisScheme'+  { domainName :: Prelude.Text,+    -- | The name of the analysis scheme you want to delete.+    analysisSchemeName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAnalysisScheme' 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:+--+-- 'domainName', 'deleteAnalysisScheme_domainName' - Undocumented member.+--+-- 'analysisSchemeName', 'deleteAnalysisScheme_analysisSchemeName' - The name of the analysis scheme you want to delete.+newDeleteAnalysisScheme ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'analysisSchemeName'+  Prelude.Text ->+  DeleteAnalysisScheme+newDeleteAnalysisScheme+  pDomainName_+  pAnalysisSchemeName_ =+    DeleteAnalysisScheme'+      { domainName = pDomainName_,+        analysisSchemeName = pAnalysisSchemeName_+      }++-- | Undocumented member.+deleteAnalysisScheme_domainName :: Lens.Lens' DeleteAnalysisScheme Prelude.Text+deleteAnalysisScheme_domainName = Lens.lens (\DeleteAnalysisScheme' {domainName} -> domainName) (\s@DeleteAnalysisScheme' {} a -> s {domainName = a} :: DeleteAnalysisScheme)++-- | The name of the analysis scheme you want to delete.+deleteAnalysisScheme_analysisSchemeName :: Lens.Lens' DeleteAnalysisScheme Prelude.Text+deleteAnalysisScheme_analysisSchemeName = Lens.lens (\DeleteAnalysisScheme' {analysisSchemeName} -> analysisSchemeName) (\s@DeleteAnalysisScheme' {} a -> s {analysisSchemeName = a} :: DeleteAnalysisScheme)++instance Core.AWSRequest DeleteAnalysisScheme where+  type+    AWSResponse DeleteAnalysisScheme =+      DeleteAnalysisSchemeResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteAnalysisSchemeResult"+      ( \s h x ->+          DeleteAnalysisSchemeResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "AnalysisScheme")+      )++instance Prelude.Hashable DeleteAnalysisScheme where+  hashWithSalt _salt DeleteAnalysisScheme' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` analysisSchemeName++instance Prelude.NFData DeleteAnalysisScheme where+  rnf DeleteAnalysisScheme' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf analysisSchemeName++instance Data.ToHeaders DeleteAnalysisScheme where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteAnalysisScheme where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteAnalysisScheme where+  toQuery DeleteAnalysisScheme' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteAnalysisScheme" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "AnalysisSchemeName" Data.=: analysisSchemeName+      ]++-- | The result of a @DeleteAnalysisScheme@ request. Contains the status of+-- the deleted analysis scheme.+--+-- /See:/ 'newDeleteAnalysisSchemeResponse' smart constructor.+data DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the analysis scheme being deleted.+    analysisScheme :: AnalysisSchemeStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteAnalysisSchemeResponse' 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', 'deleteAnalysisSchemeResponse_httpStatus' - The response's http status code.+--+-- 'analysisScheme', 'deleteAnalysisSchemeResponse_analysisScheme' - The status of the analysis scheme being deleted.+newDeleteAnalysisSchemeResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'analysisScheme'+  AnalysisSchemeStatus ->+  DeleteAnalysisSchemeResponse+newDeleteAnalysisSchemeResponse+  pHttpStatus_+  pAnalysisScheme_ =+    DeleteAnalysisSchemeResponse'+      { httpStatus =+          pHttpStatus_,+        analysisScheme = pAnalysisScheme_+      }++-- | The response's http status code.+deleteAnalysisSchemeResponse_httpStatus :: Lens.Lens' DeleteAnalysisSchemeResponse Prelude.Int+deleteAnalysisSchemeResponse_httpStatus = Lens.lens (\DeleteAnalysisSchemeResponse' {httpStatus} -> httpStatus) (\s@DeleteAnalysisSchemeResponse' {} a -> s {httpStatus = a} :: DeleteAnalysisSchemeResponse)++-- | The status of the analysis scheme being deleted.+deleteAnalysisSchemeResponse_analysisScheme :: Lens.Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus+deleteAnalysisSchemeResponse_analysisScheme = Lens.lens (\DeleteAnalysisSchemeResponse' {analysisScheme} -> analysisScheme) (\s@DeleteAnalysisSchemeResponse' {} a -> s {analysisScheme = a} :: DeleteAnalysisSchemeResponse)++instance Prelude.NFData DeleteAnalysisSchemeResponse where+  rnf DeleteAnalysisSchemeResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf analysisScheme

@@ -0,0 +1,164 @@+{-# 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.CloudSearch.DeleteDomain+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Permanently deletes a search domain and all of its data. Once a domain+-- has been deleted, it cannot be recovered. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/deleting-domains.html Deleting a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DeleteDomain+  ( -- * Creating a Request+    DeleteDomain (..),+    newDeleteDomain,++    -- * Request Lenses+    deleteDomain_domainName,++    -- * Destructuring the Response+    DeleteDomainResponse (..),+    newDeleteDomainResponse,++    -- * Response Lenses+    deleteDomainResponse_domainStatus,+    deleteDomainResponse_httpStatus,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DeleteDomain@ operation. Specifies+-- the name of the domain you want to delete.+--+-- /See:/ 'newDeleteDomain' smart constructor.+data DeleteDomain = DeleteDomain'+  { -- | The name of the domain you want to permanently delete.+    domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDomain' 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:+--+-- 'domainName', 'deleteDomain_domainName' - The name of the domain you want to permanently delete.+newDeleteDomain ::+  -- | 'domainName'+  Prelude.Text ->+  DeleteDomain+newDeleteDomain pDomainName_ =+  DeleteDomain' {domainName = pDomainName_}++-- | The name of the domain you want to permanently delete.+deleteDomain_domainName :: Lens.Lens' DeleteDomain Prelude.Text+deleteDomain_domainName = Lens.lens (\DeleteDomain' {domainName} -> domainName) (\s@DeleteDomain' {} a -> s {domainName = a} :: DeleteDomain)++instance Core.AWSRequest DeleteDomain where+  type AWSResponse DeleteDomain = DeleteDomainResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteDomainResult"+      ( \s h x ->+          DeleteDomainResponse'+            Prelude.<$> (x Data..@? "DomainStatus")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteDomain where+  hashWithSalt _salt DeleteDomain' {..} =+    _salt `Prelude.hashWithSalt` domainName++instance Prelude.NFData DeleteDomain where+  rnf DeleteDomain' {..} = Prelude.rnf domainName++instance Data.ToHeaders DeleteDomain where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteDomain where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteDomain where+  toQuery DeleteDomain' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteDomain" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName+      ]++-- | The result of a @DeleteDomain@ request. Contains the status of a newly+-- deleted domain, or no status if the domain has already been completely+-- deleted.+--+-- /See:/ 'newDeleteDomainResponse' smart constructor.+data DeleteDomainResponse = DeleteDomainResponse'+  { domainStatus :: Prelude.Maybe DomainStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDomainResponse' 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:+--+-- 'domainStatus', 'deleteDomainResponse_domainStatus' - Undocumented member.+--+-- 'httpStatus', 'deleteDomainResponse_httpStatus' - The response's http status code.+newDeleteDomainResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteDomainResponse+newDeleteDomainResponse pHttpStatus_ =+  DeleteDomainResponse'+    { domainStatus =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+deleteDomainResponse_domainStatus :: Lens.Lens' DeleteDomainResponse (Prelude.Maybe DomainStatus)+deleteDomainResponse_domainStatus = Lens.lens (\DeleteDomainResponse' {domainStatus} -> domainStatus) (\s@DeleteDomainResponse' {} a -> s {domainStatus = a} :: DeleteDomainResponse)++-- | The response's http status code.+deleteDomainResponse_httpStatus :: Lens.Lens' DeleteDomainResponse Prelude.Int+deleteDomainResponse_httpStatus = Lens.lens (\DeleteDomainResponse' {httpStatus} -> httpStatus) (\s@DeleteDomainResponse' {} a -> s {httpStatus = a} :: DeleteDomainResponse)++instance Prelude.NFData DeleteDomainResponse where+  rnf DeleteDomainResponse' {..} =+    Prelude.rnf domainStatus+      `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.CloudSearch.DeleteExpression+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes an @Expression@ from the search domain. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html Configuring Expressions>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DeleteExpression+  ( -- * Creating a Request+    DeleteExpression (..),+    newDeleteExpression,++    -- * Request Lenses+    deleteExpression_domainName,+    deleteExpression_expressionName,++    -- * Destructuring the Response+    DeleteExpressionResponse (..),+    newDeleteExpressionResponse,++    -- * Response Lenses+    deleteExpressionResponse_httpStatus,+    deleteExpressionResponse_expression,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DeleteExpression@ operation.+-- Specifies the name of the domain you want to update and the name of the+-- expression you want to delete.+--+-- /See:/ 'newDeleteExpression' smart constructor.+data DeleteExpression = DeleteExpression'+  { domainName :: Prelude.Text,+    -- | The name of the @Expression@ to delete.+    expressionName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteExpression' 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:+--+-- 'domainName', 'deleteExpression_domainName' - Undocumented member.+--+-- 'expressionName', 'deleteExpression_expressionName' - The name of the @Expression@ to delete.+newDeleteExpression ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'expressionName'+  Prelude.Text ->+  DeleteExpression+newDeleteExpression pDomainName_ pExpressionName_ =+  DeleteExpression'+    { domainName = pDomainName_,+      expressionName = pExpressionName_+    }++-- | Undocumented member.+deleteExpression_domainName :: Lens.Lens' DeleteExpression Prelude.Text+deleteExpression_domainName = Lens.lens (\DeleteExpression' {domainName} -> domainName) (\s@DeleteExpression' {} a -> s {domainName = a} :: DeleteExpression)++-- | The name of the @Expression@ to delete.+deleteExpression_expressionName :: Lens.Lens' DeleteExpression Prelude.Text+deleteExpression_expressionName = Lens.lens (\DeleteExpression' {expressionName} -> expressionName) (\s@DeleteExpression' {} a -> s {expressionName = a} :: DeleteExpression)++instance Core.AWSRequest DeleteExpression where+  type+    AWSResponse DeleteExpression =+      DeleteExpressionResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteExpressionResult"+      ( \s h x ->+          DeleteExpressionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "Expression")+      )++instance Prelude.Hashable DeleteExpression where+  hashWithSalt _salt DeleteExpression' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` expressionName++instance Prelude.NFData DeleteExpression where+  rnf DeleteExpression' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf expressionName++instance Data.ToHeaders DeleteExpression where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteExpression where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteExpression where+  toQuery DeleteExpression' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteExpression" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "ExpressionName" Data.=: expressionName+      ]++-- | The result of a @DeleteExpression@ request. Specifies the expression+-- being deleted.+--+-- /See:/ 'newDeleteExpressionResponse' smart constructor.+data DeleteExpressionResponse = DeleteExpressionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the expression being deleted.+    expression :: ExpressionStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteExpressionResponse' 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', 'deleteExpressionResponse_httpStatus' - The response's http status code.+--+-- 'expression', 'deleteExpressionResponse_expression' - The status of the expression being deleted.+newDeleteExpressionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'expression'+  ExpressionStatus ->+  DeleteExpressionResponse+newDeleteExpressionResponse pHttpStatus_ pExpression_ =+  DeleteExpressionResponse'+    { httpStatus =+        pHttpStatus_,+      expression = pExpression_+    }++-- | The response's http status code.+deleteExpressionResponse_httpStatus :: Lens.Lens' DeleteExpressionResponse Prelude.Int+deleteExpressionResponse_httpStatus = Lens.lens (\DeleteExpressionResponse' {httpStatus} -> httpStatus) (\s@DeleteExpressionResponse' {} a -> s {httpStatus = a} :: DeleteExpressionResponse)++-- | The status of the expression being deleted.+deleteExpressionResponse_expression :: Lens.Lens' DeleteExpressionResponse ExpressionStatus+deleteExpressionResponse_expression = Lens.lens (\DeleteExpressionResponse' {expression} -> expression) (\s@DeleteExpressionResponse' {} a -> s {expression = a} :: DeleteExpressionResponse)++instance Prelude.NFData DeleteExpressionResponse where+  rnf DeleteExpressionResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf expression

@@ -0,0 +1,189 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearch.DeleteIndexField+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes an @IndexField@ from the search domain. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-index-fields.html Configuring Index Fields>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DeleteIndexField+  ( -- * Creating a Request+    DeleteIndexField (..),+    newDeleteIndexField,++    -- * Request Lenses+    deleteIndexField_domainName,+    deleteIndexField_indexFieldName,++    -- * Destructuring the Response+    DeleteIndexFieldResponse (..),+    newDeleteIndexFieldResponse,++    -- * Response Lenses+    deleteIndexFieldResponse_httpStatus,+    deleteIndexFieldResponse_indexField,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DeleteIndexField@ operation.+-- Specifies the name of the domain you want to update and the name of the+-- index field you want to delete.+--+-- /See:/ 'newDeleteIndexField' smart constructor.+data DeleteIndexField = DeleteIndexField'+  { domainName :: Prelude.Text,+    -- | The name of the index field your want to remove from the domain\'s+    -- indexing options.+    indexFieldName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteIndexField' 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:+--+-- 'domainName', 'deleteIndexField_domainName' - Undocumented member.+--+-- 'indexFieldName', 'deleteIndexField_indexFieldName' - The name of the index field your want to remove from the domain\'s+-- indexing options.+newDeleteIndexField ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'indexFieldName'+  Prelude.Text ->+  DeleteIndexField+newDeleteIndexField pDomainName_ pIndexFieldName_ =+  DeleteIndexField'+    { domainName = pDomainName_,+      indexFieldName = pIndexFieldName_+    }++-- | Undocumented member.+deleteIndexField_domainName :: Lens.Lens' DeleteIndexField Prelude.Text+deleteIndexField_domainName = Lens.lens (\DeleteIndexField' {domainName} -> domainName) (\s@DeleteIndexField' {} a -> s {domainName = a} :: DeleteIndexField)++-- | The name of the index field your want to remove from the domain\'s+-- indexing options.+deleteIndexField_indexFieldName :: Lens.Lens' DeleteIndexField Prelude.Text+deleteIndexField_indexFieldName = Lens.lens (\DeleteIndexField' {indexFieldName} -> indexFieldName) (\s@DeleteIndexField' {} a -> s {indexFieldName = a} :: DeleteIndexField)++instance Core.AWSRequest DeleteIndexField where+  type+    AWSResponse DeleteIndexField =+      DeleteIndexFieldResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteIndexFieldResult"+      ( \s h x ->+          DeleteIndexFieldResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "IndexField")+      )++instance Prelude.Hashable DeleteIndexField where+  hashWithSalt _salt DeleteIndexField' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` indexFieldName++instance Prelude.NFData DeleteIndexField where+  rnf DeleteIndexField' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf indexFieldName++instance Data.ToHeaders DeleteIndexField where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteIndexField where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteIndexField where+  toQuery DeleteIndexField' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteIndexField" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "IndexFieldName" Data.=: indexFieldName+      ]++-- | The result of a @DeleteIndexField@ request.+--+-- /See:/ 'newDeleteIndexFieldResponse' smart constructor.+data DeleteIndexFieldResponse = DeleteIndexFieldResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the index field being deleted.+    indexField :: IndexFieldStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteIndexFieldResponse' 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', 'deleteIndexFieldResponse_httpStatus' - The response's http status code.+--+-- 'indexField', 'deleteIndexFieldResponse_indexField' - The status of the index field being deleted.+newDeleteIndexFieldResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'indexField'+  IndexFieldStatus ->+  DeleteIndexFieldResponse+newDeleteIndexFieldResponse pHttpStatus_ pIndexField_ =+  DeleteIndexFieldResponse'+    { httpStatus =+        pHttpStatus_,+      indexField = pIndexField_+    }++-- | The response's http status code.+deleteIndexFieldResponse_httpStatus :: Lens.Lens' DeleteIndexFieldResponse Prelude.Int+deleteIndexFieldResponse_httpStatus = Lens.lens (\DeleteIndexFieldResponse' {httpStatus} -> httpStatus) (\s@DeleteIndexFieldResponse' {} a -> s {httpStatus = a} :: DeleteIndexFieldResponse)++-- | The status of the index field being deleted.+deleteIndexFieldResponse_indexField :: Lens.Lens' DeleteIndexFieldResponse IndexFieldStatus+deleteIndexFieldResponse_indexField = Lens.lens (\DeleteIndexFieldResponse' {indexField} -> indexField) (\s@DeleteIndexFieldResponse' {} a -> s {indexField = a} :: DeleteIndexFieldResponse)++instance Prelude.NFData DeleteIndexFieldResponse where+  rnf DeleteIndexFieldResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf indexField

@@ -0,0 +1,185 @@+{-# 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.CloudSearch.DeleteSuggester+-- 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 suggester. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Search Suggestions>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DeleteSuggester+  ( -- * Creating a Request+    DeleteSuggester (..),+    newDeleteSuggester,++    -- * Request Lenses+    deleteSuggester_domainName,+    deleteSuggester_suggesterName,++    -- * Destructuring the Response+    DeleteSuggesterResponse (..),+    newDeleteSuggesterResponse,++    -- * Response Lenses+    deleteSuggesterResponse_httpStatus,+    deleteSuggesterResponse_suggester,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DeleteSuggester@ operation.+-- Specifies the name of the domain you want to update and name of the+-- suggester you want to delete.+--+-- /See:/ 'newDeleteSuggester' smart constructor.+data DeleteSuggester = DeleteSuggester'+  { domainName :: Prelude.Text,+    -- | Specifies the name of the suggester you want to delete.+    suggesterName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSuggester' 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:+--+-- 'domainName', 'deleteSuggester_domainName' - Undocumented member.+--+-- 'suggesterName', 'deleteSuggester_suggesterName' - Specifies the name of the suggester you want to delete.+newDeleteSuggester ::+  -- | 'domainName'+  Prelude.Text ->+  -- | 'suggesterName'+  Prelude.Text ->+  DeleteSuggester+newDeleteSuggester pDomainName_ pSuggesterName_ =+  DeleteSuggester'+    { domainName = pDomainName_,+      suggesterName = pSuggesterName_+    }++-- | Undocumented member.+deleteSuggester_domainName :: Lens.Lens' DeleteSuggester Prelude.Text+deleteSuggester_domainName = Lens.lens (\DeleteSuggester' {domainName} -> domainName) (\s@DeleteSuggester' {} a -> s {domainName = a} :: DeleteSuggester)++-- | Specifies the name of the suggester you want to delete.+deleteSuggester_suggesterName :: Lens.Lens' DeleteSuggester Prelude.Text+deleteSuggester_suggesterName = Lens.lens (\DeleteSuggester' {suggesterName} -> suggesterName) (\s@DeleteSuggester' {} a -> s {suggesterName = a} :: DeleteSuggester)++instance Core.AWSRequest DeleteSuggester where+  type+    AWSResponse DeleteSuggester =+      DeleteSuggesterResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DeleteSuggesterResult"+      ( \s h x ->+          DeleteSuggesterResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> (x Data..@ "Suggester")+      )++instance Prelude.Hashable DeleteSuggester where+  hashWithSalt _salt DeleteSuggester' {..} =+    _salt+      `Prelude.hashWithSalt` domainName+      `Prelude.hashWithSalt` suggesterName++instance Prelude.NFData DeleteSuggester where+  rnf DeleteSuggester' {..} =+    Prelude.rnf domainName+      `Prelude.seq` Prelude.rnf suggesterName++instance Data.ToHeaders DeleteSuggester where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DeleteSuggester where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteSuggester where+  toQuery DeleteSuggester' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DeleteSuggester" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainName" Data.=: domainName,+        "SuggesterName" Data.=: suggesterName+      ]++-- | The result of a @DeleteSuggester@ request. Contains the status of the+-- deleted suggester.+--+-- /See:/ 'newDeleteSuggesterResponse' smart constructor.+data DeleteSuggesterResponse = DeleteSuggesterResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The status of the suggester being deleted.+    suggester :: SuggesterStatus+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSuggesterResponse' 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', 'deleteSuggesterResponse_httpStatus' - The response's http status code.+--+-- 'suggester', 'deleteSuggesterResponse_suggester' - The status of the suggester being deleted.+newDeleteSuggesterResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  -- | 'suggester'+  SuggesterStatus ->+  DeleteSuggesterResponse+newDeleteSuggesterResponse pHttpStatus_ pSuggester_ =+  DeleteSuggesterResponse'+    { httpStatus = pHttpStatus_,+      suggester = pSuggester_+    }++-- | The response's http status code.+deleteSuggesterResponse_httpStatus :: Lens.Lens' DeleteSuggesterResponse Prelude.Int+deleteSuggesterResponse_httpStatus = Lens.lens (\DeleteSuggesterResponse' {httpStatus} -> httpStatus) (\s@DeleteSuggesterResponse' {} a -> s {httpStatus = a} :: DeleteSuggesterResponse)++-- | The status of the suggester being deleted.+deleteSuggesterResponse_suggester :: Lens.Lens' DeleteSuggesterResponse SuggesterStatus+deleteSuggesterResponse_suggester = Lens.lens (\DeleteSuggesterResponse' {suggester} -> suggester) (\s@DeleteSuggesterResponse' {} a -> s {suggester = a} :: DeleteSuggesterResponse)++instance Prelude.NFData DeleteSuggesterResponse where+  rnf DeleteSuggesterResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf suggester

@@ -0,0 +1,218 @@+{-# 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.CloudSearch.DescribeAnalysisSchemes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the analysis schemes configured for a domain. An analysis scheme+-- defines language-specific text processing options for a @text@ field.+-- Can be limited to specific analysis schemes by name. By default, shows+-- all analysis schemes and includes any pending changes to the+-- configuration. Set the @Deployed@ option to @true@ to show the active+-- configuration and exclude pending changes. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DescribeAnalysisSchemes+  ( -- * Creating a Request+    DescribeAnalysisSchemes (..),+    newDescribeAnalysisSchemes,++    -- * Request Lenses+    describeAnalysisSchemes_analysisSchemeNames,+    describeAnalysisSchemes_deployed,+    describeAnalysisSchemes_domainName,++    -- * Destructuring the Response+    DescribeAnalysisSchemesResponse (..),+    newDescribeAnalysisSchemesResponse,++    -- * Response Lenses+    describeAnalysisSchemesResponse_httpStatus,+    describeAnalysisSchemesResponse_analysisSchemes,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DescribeAnalysisSchemes@ operation.+-- Specifies the name of the domain you want to describe. To limit the+-- response to particular analysis schemes, specify the names of the+-- analysis schemes you want to describe. To show the active configuration+-- and exclude any pending changes, set the @Deployed@ option to @true@.+--+-- /See:/ 'newDescribeAnalysisSchemes' smart constructor.+data DescribeAnalysisSchemes = DescribeAnalysisSchemes'+  { -- | The analysis schemes you want to describe.+    analysisSchemeNames :: Prelude.Maybe [Prelude.Text],+    -- | Whether to display the deployed configuration (@true@) or include any+    -- pending changes (@false@). Defaults to @false@.+    deployed :: Prelude.Maybe Prelude.Bool,+    -- | The name of the domain you want to describe.+    domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAnalysisSchemes' 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:+--+-- 'analysisSchemeNames', 'describeAnalysisSchemes_analysisSchemeNames' - The analysis schemes you want to describe.+--+-- 'deployed', 'describeAnalysisSchemes_deployed' - Whether to display the deployed configuration (@true@) or include any+-- pending changes (@false@). Defaults to @false@.+--+-- 'domainName', 'describeAnalysisSchemes_domainName' - The name of the domain you want to describe.+newDescribeAnalysisSchemes ::+  -- | 'domainName'+  Prelude.Text ->+  DescribeAnalysisSchemes+newDescribeAnalysisSchemes pDomainName_ =+  DescribeAnalysisSchemes'+    { analysisSchemeNames =+        Prelude.Nothing,+      deployed = Prelude.Nothing,+      domainName = pDomainName_+    }++-- | The analysis schemes you want to describe.+describeAnalysisSchemes_analysisSchemeNames :: Lens.Lens' DescribeAnalysisSchemes (Prelude.Maybe [Prelude.Text])+describeAnalysisSchemes_analysisSchemeNames = Lens.lens (\DescribeAnalysisSchemes' {analysisSchemeNames} -> analysisSchemeNames) (\s@DescribeAnalysisSchemes' {} a -> s {analysisSchemeNames = a} :: DescribeAnalysisSchemes) Prelude.. Lens.mapping Lens.coerced++-- | Whether to display the deployed configuration (@true@) or include any+-- pending changes (@false@). Defaults to @false@.+describeAnalysisSchemes_deployed :: Lens.Lens' DescribeAnalysisSchemes (Prelude.Maybe Prelude.Bool)+describeAnalysisSchemes_deployed = Lens.lens (\DescribeAnalysisSchemes' {deployed} -> deployed) (\s@DescribeAnalysisSchemes' {} a -> s {deployed = a} :: DescribeAnalysisSchemes)++-- | The name of the domain you want to describe.+describeAnalysisSchemes_domainName :: Lens.Lens' DescribeAnalysisSchemes Prelude.Text+describeAnalysisSchemes_domainName = Lens.lens (\DescribeAnalysisSchemes' {domainName} -> domainName) (\s@DescribeAnalysisSchemes' {} a -> s {domainName = a} :: DescribeAnalysisSchemes)++instance Core.AWSRequest DescribeAnalysisSchemes where+  type+    AWSResponse DescribeAnalysisSchemes =+      DescribeAnalysisSchemesResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeAnalysisSchemesResult"+      ( \s h x ->+          DescribeAnalysisSchemesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..@? "AnalysisSchemes"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Data.parseXMLList "member"+                        )+      )++instance Prelude.Hashable DescribeAnalysisSchemes where+  hashWithSalt _salt DescribeAnalysisSchemes' {..} =+    _salt+      `Prelude.hashWithSalt` analysisSchemeNames+      `Prelude.hashWithSalt` deployed+      `Prelude.hashWithSalt` domainName++instance Prelude.NFData DescribeAnalysisSchemes where+  rnf DescribeAnalysisSchemes' {..} =+    Prelude.rnf analysisSchemeNames+      `Prelude.seq` Prelude.rnf deployed+      `Prelude.seq` Prelude.rnf domainName++instance Data.ToHeaders DescribeAnalysisSchemes where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAnalysisSchemes where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAnalysisSchemes where+  toQuery DescribeAnalysisSchemes' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeAnalysisSchemes" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "AnalysisSchemeNames"+          Data.=: Data.toQuery+            ( Data.toQueryList "member"+                Prelude.<$> analysisSchemeNames+            ),+        "Deployed" Data.=: deployed,+        "DomainName" Data.=: domainName+      ]++-- | The result of a @DescribeAnalysisSchemes@ request. Contains the analysis+-- schemes configured for the domain specified in the request.+--+-- /See:/ 'newDescribeAnalysisSchemesResponse' smart constructor.+data DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    -- | The analysis scheme descriptions.+    analysisSchemes :: [AnalysisSchemeStatus]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAnalysisSchemesResponse' 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', 'describeAnalysisSchemesResponse_httpStatus' - The response's http status code.+--+-- 'analysisSchemes', 'describeAnalysisSchemesResponse_analysisSchemes' - The analysis scheme descriptions.+newDescribeAnalysisSchemesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAnalysisSchemesResponse+newDescribeAnalysisSchemesResponse pHttpStatus_ =+  DescribeAnalysisSchemesResponse'+    { httpStatus =+        pHttpStatus_,+      analysisSchemes = Prelude.mempty+    }++-- | The response's http status code.+describeAnalysisSchemesResponse_httpStatus :: Lens.Lens' DescribeAnalysisSchemesResponse Prelude.Int+describeAnalysisSchemesResponse_httpStatus = Lens.lens (\DescribeAnalysisSchemesResponse' {httpStatus} -> httpStatus) (\s@DescribeAnalysisSchemesResponse' {} a -> s {httpStatus = a} :: DescribeAnalysisSchemesResponse)++-- | The analysis scheme descriptions.+describeAnalysisSchemesResponse_analysisSchemes :: Lens.Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]+describeAnalysisSchemesResponse_analysisSchemes = Lens.lens (\DescribeAnalysisSchemesResponse' {analysisSchemes} -> analysisSchemes) (\s@DescribeAnalysisSchemesResponse' {} a -> s {analysisSchemes = a} :: DescribeAnalysisSchemesResponse) Prelude.. Lens.coerced++instance+  Prelude.NFData+    DescribeAnalysisSchemesResponse+  where+  rnf DescribeAnalysisSchemesResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf analysisSchemes

@@ -0,0 +1,200 @@+{-# 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.CloudSearch.DescribeAvailabilityOptions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets the availability options configured for a domain. By default, shows+-- the configuration with any pending changes. Set the @Deployed@ option to+-- @true@ to show the active configuration and exclude pending changes. For+-- more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-availability-options.html Configuring Availability Options>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DescribeAvailabilityOptions+  ( -- * Creating a Request+    DescribeAvailabilityOptions (..),+    newDescribeAvailabilityOptions,++    -- * Request Lenses+    describeAvailabilityOptions_deployed,+    describeAvailabilityOptions_domainName,++    -- * Destructuring the Response+    DescribeAvailabilityOptionsResponse (..),+    newDescribeAvailabilityOptionsResponse,++    -- * Response Lenses+    describeAvailabilityOptionsResponse_availabilityOptions,+    describeAvailabilityOptionsResponse_httpStatus,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DescribeAvailabilityOptions@+-- operation. Specifies the name of the domain you want to describe. To+-- show the active configuration and exclude any pending changes, set the+-- Deployed option to @true@.+--+-- /See:/ 'newDescribeAvailabilityOptions' smart constructor.+data DescribeAvailabilityOptions = DescribeAvailabilityOptions'+  { -- | Whether to display the deployed configuration (@true@) or include any+    -- pending changes (@false@). Defaults to @false@.+    deployed :: Prelude.Maybe Prelude.Bool,+    -- | The name of the domain you want to describe.+    domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAvailabilityOptions' 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:+--+-- 'deployed', 'describeAvailabilityOptions_deployed' - Whether to display the deployed configuration (@true@) or include any+-- pending changes (@false@). Defaults to @false@.+--+-- 'domainName', 'describeAvailabilityOptions_domainName' - The name of the domain you want to describe.+newDescribeAvailabilityOptions ::+  -- | 'domainName'+  Prelude.Text ->+  DescribeAvailabilityOptions+newDescribeAvailabilityOptions pDomainName_ =+  DescribeAvailabilityOptions'+    { deployed =+        Prelude.Nothing,+      domainName = pDomainName_+    }++-- | Whether to display the deployed configuration (@true@) or include any+-- pending changes (@false@). Defaults to @false@.+describeAvailabilityOptions_deployed :: Lens.Lens' DescribeAvailabilityOptions (Prelude.Maybe Prelude.Bool)+describeAvailabilityOptions_deployed = Lens.lens (\DescribeAvailabilityOptions' {deployed} -> deployed) (\s@DescribeAvailabilityOptions' {} a -> s {deployed = a} :: DescribeAvailabilityOptions)++-- | The name of the domain you want to describe.+describeAvailabilityOptions_domainName :: Lens.Lens' DescribeAvailabilityOptions Prelude.Text+describeAvailabilityOptions_domainName = Lens.lens (\DescribeAvailabilityOptions' {domainName} -> domainName) (\s@DescribeAvailabilityOptions' {} a -> s {domainName = a} :: DescribeAvailabilityOptions)++instance Core.AWSRequest DescribeAvailabilityOptions where+  type+    AWSResponse DescribeAvailabilityOptions =+      DescribeAvailabilityOptionsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeAvailabilityOptionsResult"+      ( \s h x ->+          DescribeAvailabilityOptionsResponse'+            Prelude.<$> (x Data..@? "AvailabilityOptions")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeAvailabilityOptions where+  hashWithSalt _salt DescribeAvailabilityOptions' {..} =+    _salt+      `Prelude.hashWithSalt` deployed+      `Prelude.hashWithSalt` domainName++instance Prelude.NFData DescribeAvailabilityOptions where+  rnf DescribeAvailabilityOptions' {..} =+    Prelude.rnf deployed+      `Prelude.seq` Prelude.rnf domainName++instance Data.ToHeaders DescribeAvailabilityOptions where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeAvailabilityOptions where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeAvailabilityOptions where+  toQuery DescribeAvailabilityOptions' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "DescribeAvailabilityOptions" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "Deployed" Data.=: deployed,+        "DomainName" Data.=: domainName+      ]++-- | The result of a @DescribeAvailabilityOptions@ request. Indicates whether+-- or not the Multi-AZ option is enabled for the domain specified in the+-- request.+--+-- /See:/ 'newDescribeAvailabilityOptionsResponse' smart constructor.+data DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse'+  { -- | The availability options configured for the domain. Indicates whether+    -- Multi-AZ is enabled for the domain.+    availabilityOptions :: Prelude.Maybe AvailabilityOptionsStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeAvailabilityOptionsResponse' 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:+--+-- 'availabilityOptions', 'describeAvailabilityOptionsResponse_availabilityOptions' - The availability options configured for the domain. Indicates whether+-- Multi-AZ is enabled for the domain.+--+-- 'httpStatus', 'describeAvailabilityOptionsResponse_httpStatus' - The response's http status code.+newDescribeAvailabilityOptionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeAvailabilityOptionsResponse+newDescribeAvailabilityOptionsResponse pHttpStatus_ =+  DescribeAvailabilityOptionsResponse'+    { availabilityOptions =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The availability options configured for the domain. Indicates whether+-- Multi-AZ is enabled for the domain.+describeAvailabilityOptionsResponse_availabilityOptions :: Lens.Lens' DescribeAvailabilityOptionsResponse (Prelude.Maybe AvailabilityOptionsStatus)+describeAvailabilityOptionsResponse_availabilityOptions = Lens.lens (\DescribeAvailabilityOptionsResponse' {availabilityOptions} -> availabilityOptions) (\s@DescribeAvailabilityOptionsResponse' {} a -> s {availabilityOptions = a} :: DescribeAvailabilityOptionsResponse)++-- | The response's http status code.+describeAvailabilityOptionsResponse_httpStatus :: Lens.Lens' DescribeAvailabilityOptionsResponse Prelude.Int+describeAvailabilityOptionsResponse_httpStatus = Lens.lens (\DescribeAvailabilityOptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeAvailabilityOptionsResponse' {} a -> s {httpStatus = a} :: DescribeAvailabilityOptionsResponse)++instance+  Prelude.NFData+    DescribeAvailabilityOptionsResponse+  where+  rnf DescribeAvailabilityOptionsResponse' {..} =+    Prelude.rnf availabilityOptions+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,203 @@+{-# 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.CloudSearch.DescribeDomainEndpointOptions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the domain\'s endpoint options, specifically whether all+-- requests to the domain must arrive over HTTPS. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-domain-endpoint-options.html Configuring Domain Endpoint Options>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DescribeDomainEndpointOptions+  ( -- * Creating a Request+    DescribeDomainEndpointOptions (..),+    newDescribeDomainEndpointOptions,++    -- * Request Lenses+    describeDomainEndpointOptions_deployed,+    describeDomainEndpointOptions_domainName,++    -- * Destructuring the Response+    DescribeDomainEndpointOptionsResponse (..),+    newDescribeDomainEndpointOptionsResponse,++    -- * Response Lenses+    describeDomainEndpointOptionsResponse_domainEndpointOptions,+    describeDomainEndpointOptionsResponse_httpStatus,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DescribeDomainEndpointOptions@+-- operation. Specify the name of the domain you want to describe. To show+-- the active configuration and exclude any pending changes, set the+-- Deployed option to @true@.+--+-- /See:/ 'newDescribeDomainEndpointOptions' smart constructor.+data DescribeDomainEndpointOptions = DescribeDomainEndpointOptions'+  { -- | Whether to retrieve the latest configuration (which might be in a+    -- Processing state) or the current, active configuration. Defaults to+    -- @false@.+    deployed :: Prelude.Maybe Prelude.Bool,+    -- | A string that represents the name of a domain.+    domainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomainEndpointOptions' 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:+--+-- 'deployed', 'describeDomainEndpointOptions_deployed' - Whether to retrieve the latest configuration (which might be in a+-- Processing state) or the current, active configuration. Defaults to+-- @false@.+--+-- 'domainName', 'describeDomainEndpointOptions_domainName' - A string that represents the name of a domain.+newDescribeDomainEndpointOptions ::+  -- | 'domainName'+  Prelude.Text ->+  DescribeDomainEndpointOptions+newDescribeDomainEndpointOptions pDomainName_ =+  DescribeDomainEndpointOptions'+    { deployed =+        Prelude.Nothing,+      domainName = pDomainName_+    }++-- | Whether to retrieve the latest configuration (which might be in a+-- Processing state) or the current, active configuration. Defaults to+-- @false@.+describeDomainEndpointOptions_deployed :: Lens.Lens' DescribeDomainEndpointOptions (Prelude.Maybe Prelude.Bool)+describeDomainEndpointOptions_deployed = Lens.lens (\DescribeDomainEndpointOptions' {deployed} -> deployed) (\s@DescribeDomainEndpointOptions' {} a -> s {deployed = a} :: DescribeDomainEndpointOptions)++-- | A string that represents the name of a domain.+describeDomainEndpointOptions_domainName :: Lens.Lens' DescribeDomainEndpointOptions Prelude.Text+describeDomainEndpointOptions_domainName = Lens.lens (\DescribeDomainEndpointOptions' {domainName} -> domainName) (\s@DescribeDomainEndpointOptions' {} a -> s {domainName = a} :: DescribeDomainEndpointOptions)++instance+  Core.AWSRequest+    DescribeDomainEndpointOptions+  where+  type+    AWSResponse DescribeDomainEndpointOptions =+      DescribeDomainEndpointOptionsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeDomainEndpointOptionsResult"+      ( \s h x ->+          DescribeDomainEndpointOptionsResponse'+            Prelude.<$> (x Data..@? "DomainEndpointOptions")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeDomainEndpointOptions+  where+  hashWithSalt _salt DescribeDomainEndpointOptions' {..} =+    _salt+      `Prelude.hashWithSalt` deployed+      `Prelude.hashWithSalt` domainName++instance Prelude.NFData DescribeDomainEndpointOptions where+  rnf DescribeDomainEndpointOptions' {..} =+    Prelude.rnf deployed+      `Prelude.seq` Prelude.rnf domainName++instance Data.ToHeaders DescribeDomainEndpointOptions where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDomainEndpointOptions where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDomainEndpointOptions where+  toQuery DescribeDomainEndpointOptions' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ( "DescribeDomainEndpointOptions" ::+                      Prelude.ByteString+                  ),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "Deployed" Data.=: deployed,+        "DomainName" Data.=: domainName+      ]++-- | The result of a @DescribeDomainEndpointOptions@ request. Contains the+-- status and configuration of a search domain\'s endpoint options.+--+-- /See:/ 'newDescribeDomainEndpointOptionsResponse' smart constructor.+data DescribeDomainEndpointOptionsResponse = DescribeDomainEndpointOptionsResponse'+  { -- | The status and configuration of a search domain\'s endpoint options.+    domainEndpointOptions :: Prelude.Maybe DomainEndpointOptionsStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomainEndpointOptionsResponse' 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:+--+-- 'domainEndpointOptions', 'describeDomainEndpointOptionsResponse_domainEndpointOptions' - The status and configuration of a search domain\'s endpoint options.+--+-- 'httpStatus', 'describeDomainEndpointOptionsResponse_httpStatus' - The response's http status code.+newDescribeDomainEndpointOptionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDomainEndpointOptionsResponse+newDescribeDomainEndpointOptionsResponse pHttpStatus_ =+  DescribeDomainEndpointOptionsResponse'+    { domainEndpointOptions =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The status and configuration of a search domain\'s endpoint options.+describeDomainEndpointOptionsResponse_domainEndpointOptions :: Lens.Lens' DescribeDomainEndpointOptionsResponse (Prelude.Maybe DomainEndpointOptionsStatus)+describeDomainEndpointOptionsResponse_domainEndpointOptions = Lens.lens (\DescribeDomainEndpointOptionsResponse' {domainEndpointOptions} -> domainEndpointOptions) (\s@DescribeDomainEndpointOptionsResponse' {} a -> s {domainEndpointOptions = a} :: DescribeDomainEndpointOptionsResponse)++-- | The response's http status code.+describeDomainEndpointOptionsResponse_httpStatus :: Lens.Lens' DescribeDomainEndpointOptionsResponse Prelude.Int+describeDomainEndpointOptionsResponse_httpStatus = Lens.lens (\DescribeDomainEndpointOptionsResponse' {httpStatus} -> httpStatus) (\s@DescribeDomainEndpointOptionsResponse' {} a -> s {httpStatus = a} :: DescribeDomainEndpointOptionsResponse)++instance+  Prelude.NFData+    DescribeDomainEndpointOptionsResponse+  where+  rnf DescribeDomainEndpointOptionsResponse' {..} =+    Prelude.rnf domainEndpointOptions+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,174 @@+{-# 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.CloudSearch.DescribeDomains+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets information about the search domains owned by this account. Can be+-- limited to specific domains. Shows all domains by default. To get the+-- number of searchable documents in a domain, use the console or submit a+-- @matchall@ request to your domain\'s search endpoint:+-- @q=matchall&amp;q.parser=structured&amp;size=0@. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-domain-info.html Getting Information about a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearch.DescribeDomains+  ( -- * Creating a Request+    DescribeDomains (..),+    newDescribeDomains,++    -- * Request Lenses+    describeDomains_domainNames,++    -- * Destructuring the Response+    DescribeDomainsResponse (..),+    newDescribeDomainsResponse,++    -- * Response Lenses+    describeDomainsResponse_httpStatus,+    describeDomainsResponse_domainStatusList,+  )+where++import Amazonka.CloudSearch.Types+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Container for the parameters to the @DescribeDomains@ operation. By+-- default shows the status of all domains. To restrict the response to+-- particular domains, specify the names of the domains you want to+-- describe.+--+-- /See:/ 'newDescribeDomains' smart constructor.+data DescribeDomains = DescribeDomains'+  { -- | The names of the domains you want to include in the response.+    domainNames :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomains' 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:+--+-- 'domainNames', 'describeDomains_domainNames' - The names of the domains you want to include in the response.+newDescribeDomains ::+  DescribeDomains+newDescribeDomains =+  DescribeDomains' {domainNames = Prelude.Nothing}++-- | The names of the domains you want to include in the response.+describeDomains_domainNames :: Lens.Lens' DescribeDomains (Prelude.Maybe [Prelude.Text])+describeDomains_domainNames = Lens.lens (\DescribeDomains' {domainNames} -> domainNames) (\s@DescribeDomains' {} a -> s {domainNames = a} :: DescribeDomains) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest DescribeDomains where+  type+    AWSResponse DescribeDomains =+      DescribeDomainsResponse+  request overrides =+    Request.postQuery (overrides defaultService)+  response =+    Response.receiveXMLWrapper+      "DescribeDomainsResult"+      ( \s h x ->+          DescribeDomainsResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+            Prelude.<*> ( x+                            Data..@? "DomainStatusList"+                            Core..!@ Prelude.mempty+                            Prelude.>>= Data.parseXMLList "member"+                        )+      )++instance Prelude.Hashable DescribeDomains where+  hashWithSalt _salt DescribeDomains' {..} =+    _salt `Prelude.hashWithSalt` domainNames++instance Prelude.NFData DescribeDomains where+  rnf DescribeDomains' {..} = Prelude.rnf domainNames++instance Data.ToHeaders DescribeDomains where+  toHeaders = Prelude.const Prelude.mempty++instance Data.ToPath DescribeDomains where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDomains where+  toQuery DescribeDomains' {..} =+    Prelude.mconcat+      [ "Action"+          Data.=: ("DescribeDomains" :: Prelude.ByteString),+        "Version"+          Data.=: ("2013-01-01" :: Prelude.ByteString),+        "DomainNames"+          Data.=: Data.toQuery+            (Data.toQueryList "member" Prelude.<$> domainNames)+      ]++-- | The result of a @DescribeDomains@ request. Contains the status of the+-- domains specified in the request or all domains owned by the account.+--+-- /See:/ 'newDescribeDomainsResponse' smart constructor.+data DescribeDomainsResponse = DescribeDomainsResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int,+    domainStatusList :: [DomainStatus]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomainsResponse' 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', 'describeDomainsResponse_httpStatus' - The response's http status code.+--+-- 'domainStatusList', 'describeDomainsResponse_domainStatusList' - Undocumented member.+newDescribeDomainsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDomainsResponse+newDescribeDomainsResponse pHttpStatus_ =+  DescribeDomainsResponse'+    { httpStatus = pHttpStatus_,+      domainStatusList = Prelude.mempty+    }++-- | The response's http status code.+describeDomainsResponse_httpStatus :: Lens.Lens' DescribeDomainsResponse Prelude.Int+describeDomainsResponse_httpStatus = Lens.lens (\DescribeDomainsResponse' {httpStatus} -> httpStatus) (\s@DescribeDomainsResponse' {} a -> s {httpStatus = a} :: DescribeDomainsResponse)++-- | Undocumented member.+describeDomainsResponse_domainStatusList :: Lens.Lens' DescribeDomainsResponse [DomainStatus]+describeDomainsResponse_domainStatusList = Lens.lens (\DescribeDomainsResponse' {domainStatusList} -> domainStatusList) (\s@DescribeDomainsResponse' {} a -> s {domainStatusList = a} :: DescribeDomainsResponse) Prelude.. Lens.coerced++instance Prelude.NFData DescribeDomainsResponse where+  rnf DescribeDomainsResponse' {..} =+    Prelude.rnf httpStatus+      `Prelude.seq` Prelude.rnf domainStatusList