amazonka-cloudsearch-domains 1.6.1 → 2.0

raw patch · 40 files changed

+3679/−1826 lines, 40 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-domains.cabal +87/−77
• fixture/Search.yaml +10/−0
• fixture/Suggest.yaml +10/−0
• fixture/UploadDocuments.yaml +10/−0
• gen/Amazonka/CloudSearchDomains.hs +145/−0
• gen/Amazonka/CloudSearchDomains/Lens.hs +121/−0
• gen/Amazonka/CloudSearchDomains/Search.hs +1267/−0
• gen/Amazonka/CloudSearchDomains/Suggest.hs +227/−0
• gen/Amazonka/CloudSearchDomains/Types.hs +204/−0
• gen/Amazonka/CloudSearchDomains/Types/Bucket.hs +86/−0
• gen/Amazonka/CloudSearchDomains/Types/BucketInfo.hs +69/−0
• gen/Amazonka/CloudSearchDomains/Types/ContentType.hs +71/−0
• gen/Amazonka/CloudSearchDomains/Types/DocumentServiceWarning.hs +69/−0
• gen/Amazonka/CloudSearchDomains/Types/FieldStats.hs +234/−0
• gen/Amazonka/CloudSearchDomains/Types/Hit.hs +111/−0
• gen/Amazonka/CloudSearchDomains/Types/Hits.hs +112/−0
• gen/Amazonka/CloudSearchDomains/Types/QueryParser.hs +81/−0
• gen/Amazonka/CloudSearchDomains/Types/SearchStatus.hs +84/−0
• gen/Amazonka/CloudSearchDomains/Types/SuggestModel.hs +98/−0
• gen/Amazonka/CloudSearchDomains/Types/SuggestStatus.hs +84/−0
• gen/Amazonka/CloudSearchDomains/Types/SuggestionMatch.hs +100/−0
• gen/Amazonka/CloudSearchDomains/UploadDocuments.hs +241/−0
• gen/Amazonka/CloudSearchDomains/Waiters.hs +24/−0
• gen/Network/AWS/CloudSearchDomains.hs +0/−163
• gen/Network/AWS/CloudSearchDomains/Search.hs +0/−300
• gen/Network/AWS/CloudSearchDomains/Suggest.hs +0/−169
• gen/Network/AWS/CloudSearchDomains/Types.hs +0/−157
• gen/Network/AWS/CloudSearchDomains/Types/Product.hs +0/−540
• gen/Network/AWS/CloudSearchDomains/Types/Sum.hs +0/−80
• gen/Network/AWS/CloudSearchDomains/UploadDocuments.hs +0/−174
• gen/Network/AWS/CloudSearchDomains/Waiters.hs +0/−21
• test/Main.hs +11/−9
• test/Test/AWS/CloudSearchDomains.hs +0/−26
• test/Test/AWS/CloudSearchDomains/Internal.hs +0/−16
• test/Test/AWS/Gen/CloudSearchDomains.hs +0/−88
• test/Test/Amazonka/CloudSearchDomains.hs +20/−0
• test/Test/Amazonka/CloudSearchDomains/Internal.hs +8/−0
• test/Test/Amazonka/Gen/CloudSearchDomains.hs +92/−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.CloudSearchDomains](http://hackage.haskell.org/package/amazonka-cloudsearch-domains/docs/Network-AWS-CloudSearchDomains.html)+See [Amazonka.CloudSearchDomains](http://hackage.haskell.org/package/amazonka-cloudsearch-domains/docs/Amazonka-CloudSearchDomains.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.  

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

@@ -1,88 +1,98 @@-name:                  amazonka-cloudsearch-domains-version:               1.6.1-synopsis:              Amazon CloudSearch Domain 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-domains+version:            2.0+synopsis:           Amazon CloudSearch Domain 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.CloudSearchDomains" 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.CloudSearchDomains.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.CloudSearchDomains" 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-domains+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-cloudsearch-domains  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.CloudSearchDomains-        , Network.AWS.CloudSearchDomains.Search-        , Network.AWS.CloudSearchDomains.Suggest-        , Network.AWS.CloudSearchDomains.Types-        , Network.AWS.CloudSearchDomains.UploadDocuments-        , Network.AWS.CloudSearchDomains.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.CloudSearchDomains.Types.Product-        , Network.AWS.CloudSearchDomains.Types.Sum+  exposed-modules:+    Amazonka.CloudSearchDomains+    Amazonka.CloudSearchDomains.Lens+    Amazonka.CloudSearchDomains.Search+    Amazonka.CloudSearchDomains.Suggest+    Amazonka.CloudSearchDomains.Types+    Amazonka.CloudSearchDomains.Types.Bucket+    Amazonka.CloudSearchDomains.Types.BucketInfo+    Amazonka.CloudSearchDomains.Types.ContentType+    Amazonka.CloudSearchDomains.Types.DocumentServiceWarning+    Amazonka.CloudSearchDomains.Types.FieldStats+    Amazonka.CloudSearchDomains.Types.Hit+    Amazonka.CloudSearchDomains.Types.Hits+    Amazonka.CloudSearchDomains.Types.QueryParser+    Amazonka.CloudSearchDomains.Types.SearchStatus+    Amazonka.CloudSearchDomains.Types.SuggestionMatch+    Amazonka.CloudSearchDomains.Types.SuggestModel+    Amazonka.CloudSearchDomains.Types.SuggestStatus+    Amazonka.CloudSearchDomains.UploadDocuments+    Amazonka.CloudSearchDomains.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-domains-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.CloudSearchDomains-        , Test.AWS.Gen.CloudSearchDomains-        , Test.AWS.CloudSearchDomains.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.CloudSearchDomains+    Test.Amazonka.CloudSearchDomains.Internal+    Test.Amazonka.Gen.CloudSearchDomains -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-cloudsearch-domains-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-cloudsearch-domains+    , 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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudsearchdomain/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearchdomain.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: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/cloudsearchdomain/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearchdomain.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/cloudsearchdomain/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  cloudsearchdomain.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,145 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.CloudSearchDomains+-- 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.+--+-- You use the AmazonCloudSearch2013 API to upload documents to a search+-- domain and search those documents.+--+-- The endpoints for submitting @UploadDocuments@, @Search@, and @Suggest@+-- requests are domain-specific. To get the endpoints for your domain, use+-- the Amazon CloudSearch configuration service @DescribeDomains@ action.+-- The domain endpoints are also displayed on the domain dashboard in the+-- Amazon CloudSearch console. You submit suggest requests to the search+-- endpoint.+--+-- For more information, see the+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide Amazon CloudSearch Developer Guide>.+module Amazonka.CloudSearchDomains+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** DocumentServiceException+    _DocumentServiceException,++    -- ** SearchException+    _SearchException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** Search+    Search (Search'),+    newSearch,+    SearchResponse (SearchResponse'),+    newSearchResponse,++    -- ** Suggest+    Suggest (Suggest'),+    newSuggest,+    SuggestResponse (SuggestResponse'),+    newSuggestResponse,++    -- ** UploadDocuments+    UploadDocuments (UploadDocuments'),+    newUploadDocuments,+    UploadDocumentsResponse (UploadDocumentsResponse'),+    newUploadDocumentsResponse,++    -- * Types++    -- ** ContentType+    ContentType (..),++    -- ** QueryParser+    QueryParser (..),++    -- ** Bucket+    Bucket (Bucket'),+    newBucket,++    -- ** BucketInfo+    BucketInfo (BucketInfo'),+    newBucketInfo,++    -- ** DocumentServiceWarning+    DocumentServiceWarning (DocumentServiceWarning'),+    newDocumentServiceWarning,++    -- ** FieldStats+    FieldStats (FieldStats'),+    newFieldStats,++    -- ** Hit+    Hit (Hit'),+    newHit,++    -- ** Hits+    Hits (Hits'),+    newHits,++    -- ** SearchStatus+    SearchStatus (SearchStatus'),+    newSearchStatus,++    -- ** SuggestModel+    SuggestModel (SuggestModel'),+    newSuggestModel,++    -- ** SuggestStatus+    SuggestStatus (SuggestStatus'),+    newSuggestStatus,++    -- ** SuggestionMatch+    SuggestionMatch (SuggestionMatch'),+    newSuggestionMatch,+  )+where++import Amazonka.CloudSearchDomains.Lens+import Amazonka.CloudSearchDomains.Search+import Amazonka.CloudSearchDomains.Suggest+import Amazonka.CloudSearchDomains.Types+import Amazonka.CloudSearchDomains.UploadDocuments+import Amazonka.CloudSearchDomains.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 'CloudSearchDomains'.++-- $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,121 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Lens+  ( -- * Operations++    -- ** Search+    search_cursor,+    search_expr,+    search_facet,+    search_filterQuery,+    search_highlight,+    search_partial,+    search_queryOptions,+    search_queryParser,+    search_return,+    search_size,+    search_sort,+    search_start,+    search_stats,+    search_query,+    searchResponse_facets,+    searchResponse_hits,+    searchResponse_stats,+    searchResponse_status,+    searchResponse_httpStatus,++    -- ** Suggest+    suggest_size,+    suggest_query,+    suggest_suggester,+    suggestResponse_status,+    suggestResponse_suggest,+    suggestResponse_httpStatus,++    -- ** UploadDocuments+    uploadDocuments_contentType,+    uploadDocuments_documents,+    uploadDocumentsResponse_adds,+    uploadDocumentsResponse_deletes,+    uploadDocumentsResponse_status,+    uploadDocumentsResponse_warnings,+    uploadDocumentsResponse_httpStatus,++    -- * Types++    -- ** Bucket+    bucket_count,+    bucket_value,++    -- ** BucketInfo+    bucketInfo_buckets,++    -- ** DocumentServiceWarning+    documentServiceWarning_message,++    -- ** FieldStats+    fieldStats_count,+    fieldStats_max,+    fieldStats_mean,+    fieldStats_min,+    fieldStats_missing,+    fieldStats_stddev,+    fieldStats_sum,+    fieldStats_sumOfSquares,++    -- ** Hit+    hit_exprs,+    hit_fields,+    hit_highlights,+    hit_id,++    -- ** Hits+    hits_cursor,+    hits_found,+    hits_hit,+    hits_start,++    -- ** SearchStatus+    searchStatus_rid,+    searchStatus_timems,++    -- ** SuggestModel+    suggestModel_found,+    suggestModel_query,+    suggestModel_suggestions,++    -- ** SuggestStatus+    suggestStatus_rid,+    suggestStatus_timems,++    -- ** SuggestionMatch+    suggestionMatch_id,+    suggestionMatch_score,+    suggestionMatch_suggestion,+  )+where++import Amazonka.CloudSearchDomains.Search+import Amazonka.CloudSearchDomains.Suggest+import Amazonka.CloudSearchDomains.Types.Bucket+import Amazonka.CloudSearchDomains.Types.BucketInfo+import Amazonka.CloudSearchDomains.Types.DocumentServiceWarning+import Amazonka.CloudSearchDomains.Types.FieldStats+import Amazonka.CloudSearchDomains.Types.Hit+import Amazonka.CloudSearchDomains.Types.Hits+import Amazonka.CloudSearchDomains.Types.SearchStatus+import Amazonka.CloudSearchDomains.Types.SuggestModel+import Amazonka.CloudSearchDomains.Types.SuggestStatus+import Amazonka.CloudSearchDomains.Types.SuggestionMatch+import Amazonka.CloudSearchDomains.UploadDocuments

@@ -0,0 +1,1267 @@+{-# 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.CloudSearchDomains.Search+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves a list of documents that match the specified search criteria.+-- How you specify the search criteria depends on which query parser you+-- use. Amazon CloudSearch supports four query parsers:+--+-- -   @simple@: search all @text@ and @text-array@ fields for the+--     specified string. Search for phrases, individual terms, and+--     prefixes.+-- -   @structured@: search specific fields, construct compound queries+--     using Boolean operators, and use advanced features such as term+--     boosting and proximity searching.+-- -   @lucene@: specify search criteria using the Apache Lucene query+--     parser syntax.+-- -   @dismax@: specify search criteria using the simplified subset of the+--     Apache Lucene query parser syntax defined by the DisMax query+--     parser.+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- The endpoint for submitting @Search@ requests is domain-specific. You+-- submit search requests to a domain\'s search endpoint. To get the search+-- endpoint for your domain, use the Amazon CloudSearch configuration+-- service @DescribeDomains@ action. A domain\'s endpoints are also+-- displayed on the domain dashboard in the Amazon CloudSearch console.+module Amazonka.CloudSearchDomains.Search+  ( -- * Creating a Request+    Search (..),+    newSearch,++    -- * Request Lenses+    search_cursor,+    search_expr,+    search_facet,+    search_filterQuery,+    search_highlight,+    search_partial,+    search_queryOptions,+    search_queryParser,+    search_return,+    search_size,+    search_sort,+    search_start,+    search_stats,+    search_query,++    -- * Destructuring the Response+    SearchResponse (..),+    newSearchResponse,++    -- * Response Lenses+    searchResponse_facets,+    searchResponse_hits,+    searchResponse_stats,+    searchResponse_status,+    searchResponse_httpStatus,+  )+where++import Amazonka.CloudSearchDomains.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 @Search@ request.+--+-- /See:/ 'newSearch' smart constructor.+data Search = Search'+  { -- | Retrieves a cursor value you can use to page through large result sets.+    -- Use the @size@ parameter to control the number of hits to include in+    -- each response. You can specify either the @cursor@ or @start@ parameter+    -- in a request; they are mutually exclusive. To get the first cursor, set+    -- the cursor value to @initial@. In subsequent requests, specify the+    -- cursor value returned in the hits section of the response.+    --+    -- For more information, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+    -- in the /Amazon CloudSearch Developer Guide/.+    cursor :: Prelude.Maybe Prelude.Text,+    -- | Defines one or more numeric expressions that can be used to sort results+    -- or specify search or filter criteria. You can also specify expressions+    -- as return fields.+    --+    -- You specify the expressions in JSON using the form+    -- @{\"EXPRESSIONNAME\":\"EXPRESSION\"}@. You can define and use multiple+    -- expressions in a search request. For example:+    --+    -- @ {\"expression1\":\"_score*rating\", \"expression2\":\"(1\/rank)*year\"} @+    --+    -- For information about the variables, operators, and functions you can+    -- use in expressions, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions>+    -- in the /Amazon CloudSearch Developer Guide/.+    expr :: Prelude.Maybe Prelude.Text,+    -- | Specifies one or more fields for which to get facet information, and+    -- options that control how the facet information is returned. Each+    -- specified field must be facet-enabled in the domain configuration. The+    -- fields and options are specified in JSON using the form+    -- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+    --+    -- You can specify the following faceting options:+    --+    -- -   @buckets@ specifies an array of the facet values or ranges to count.+    --     Ranges are specified using the same syntax that you use to search+    --     for a range of values. For more information, see+    --     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-ranges.html Searching for a Range of Values>+    --     in the /Amazon CloudSearch Developer Guide/. Buckets are returned in+    --     the order they are specified in the request. The @sort@ and @size@+    --     options are not valid if you specify @buckets@.+    --+    -- -   @size@ specifies the maximum number of facets to include in the+    --     results. By default, Amazon CloudSearch returns counts for the top+    --     10. The @size@ parameter is only valid when you specify the @sort@+    --     option; it cannot be used in conjunction with @buckets@.+    --+    -- -   @sort@ specifies how you want to sort the facets in the results:+    --     @bucket@ or @count@. Specify @bucket@ to sort alphabetically or+    --     numerically by facet value (in ascending order). Specify @count@ to+    --     sort by the facet counts computed for each facet value (in+    --     descending order). To retrieve facet counts for particular values or+    --     ranges of values, use the @buckets@ option instead of @sort@.+    --+    -- If no facet options are specified, facet counts are computed for all+    -- field values, the facets are sorted by facet count, and the top 10+    -- facets are returned in the results.+    --+    -- To count particular buckets of values, use the @buckets@ option. For+    -- example, the following request uses the @buckets@ option to calculate+    -- and return facet counts by decade.+    --+    -- @ {\"year\":{\"buckets\":[\"[1970,1979]\",\"[1980,1989]\",\"[1990,1999]\",\"[2000,2009]\",\"[2010,}\"]}} @+    --+    -- To sort facets by facet count, use the @count@ option. For example, the+    -- following request sets the @sort@ option to @count@ to sort the facet+    -- values by facet count, with the facet values that have the most matching+    -- documents listed first. Setting the @size@ option to 3 returns only the+    -- top three facet values.+    --+    -- @ {\"year\":{\"sort\":\"count\",\"size\":3}} @+    --+    -- To sort the facets by value, use the @bucket@ option. For example, the+    -- following request sets the @sort@ option to @bucket@ to sort the facet+    -- values numerically by year, with earliest year listed first.+    --+    -- @ {\"year\":{\"sort\":\"bucket\"}} @+    --+    -- For more information, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/faceting.html Getting and Using Facet Information>+    -- in the /Amazon CloudSearch Developer Guide/.+    facet :: Prelude.Maybe Prelude.Text,+    -- | Specifies a structured query that filters the results of a search+    -- without affecting how the results are scored and sorted. You use+    -- @filterQuery@ in conjunction with the @query@ parameter to filter the+    -- documents that match the constraints specified in the @query@ parameter.+    -- Specifying a filter controls only which matching documents are included+    -- in the results, it has no effect on how they are scored and sorted. The+    -- @filterQuery@ parameter supports the full structured query syntax.+    --+    -- For more information about using filters, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/filtering-results.html Filtering Matching Documents>+    -- in the /Amazon CloudSearch Developer Guide/.+    filterQuery :: Prelude.Maybe Prelude.Text,+    -- | Retrieves highlights for matches in the specified @text@ or @text-array@+    -- fields. Each specified field must be highlight enabled in the domain+    -- configuration. The fields and options are specified in JSON using the+    -- form+    -- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+    --+    -- You can specify the following highlight options:+    --+    -- -   @format@: specifies the format of the data in the text field: @text@+    --     or @html@. When data is returned as HTML, all non-alphanumeric+    --     characters are encoded. The default is @html@.+    -- -   @max_phrases@: specifies the maximum number of occurrences of the+    --     search term(s) you want to highlight. By default, the first+    --     occurrence is highlighted.+    -- -   @pre_tag@: specifies the string to prepend to an occurrence of a+    --     search term. The default for HTML highlights is @&lt;em&gt;@. The+    --     default for text highlights is @*@.+    -- -   @post_tag@: specifies the string to append to an occurrence of a+    --     search term. The default for HTML highlights is @&lt;\/em&gt;@. The+    --     default for text highlights is @*@.+    --+    -- If no highlight options are specified for a field, the returned field+    -- text is treated as HTML and the first match is highlighted with emphasis+    -- tags: @&lt;em>search-term&lt;\/em&gt;@.+    --+    -- For example, the following request retrieves highlights for the @actors@+    -- and @title@ fields.+    --+    -- @{ \"actors\": {}, \"title\": {\"format\": \"text\",\"max_phrases\": 2,\"pre_tag\": \"@__@\",\"post_tag\": \"@__@\"} }@+    highlight :: Prelude.Maybe Prelude.Text,+    -- | Enables partial results to be returned if one or more index partitions+    -- are unavailable. When your search index is partitioned across multiple+    -- search instances, by default Amazon CloudSearch only returns results if+    -- every partition can be queried. This means that the failure of a single+    -- search instance can result in 5xx (internal server) errors. When you+    -- enable partial results, Amazon CloudSearch returns whatever results are+    -- available and includes the percentage of documents searched in the+    -- search results (percent-searched). This enables you to more gracefully+    -- degrade your users\' search experience. For example, rather than+    -- displaying no results, you could display the partial results and a+    -- message indicating that the results might be incomplete due to a+    -- temporary system outage.+    partial :: Prelude.Maybe Prelude.Bool,+    -- | Configures options for the query parser specified in the @queryParser@+    -- parameter. You specify the options in JSON using the following form+    -- @{\"OPTION1\":\"VALUE1\",\"OPTION2\":VALUE2\"...\"OPTIONN\":\"VALUEN\"}.@+    --+    -- The options you can configure vary according to which parser you use:+    --+    -- -   @defaultOperator@: The default operator used to combine individual+    --     terms in the search string. For example: @defaultOperator: \'or\'@.+    --     For the @dismax@ parser, you specify a percentage that represents+    --     the percentage of terms in the search string (rounded down) that+    --     must match, rather than a default operator. A value of @0%@ is the+    --     equivalent to OR, and a value of @100%@ is equivalent to AND. The+    --     percentage must be specified as a value in the range 0-100 followed+    --     by the percent (%) symbol. For example, @defaultOperator: 50%@.+    --     Valid values: @and@, @or@, a percentage in the range 0%-100%+    --     (@dismax@). Default: @and@ (@simple@, @structured@, @lucene@) or+    --     @100@ (@dismax@). Valid for: @simple@, @structured@, @lucene@, and+    --     @dismax@.+    -- -   @fields@: An array of the fields to search when no fields are+    --     specified in a search. If no fields are specified in a search and+    --     this option is not specified, all text and text-array fields are+    --     searched. You can specify a weight for each field to control the+    --     relative importance of each field when Amazon CloudSearch calculates+    --     relevance scores. To specify a field weight, append a caret (@^@)+    --     symbol and the weight to the field name. For example, to boost the+    --     importance of the @title@ field over the @description@ field you+    --     could specify: @\"fields\":[\"title^5\",\"description\"]@. Valid+    --     values: The name of any configured field and an optional numeric+    --     value greater than zero. Default: All @text@ and @text-array@+    --     fields. Valid for: @simple@, @structured@, @lucene@, and @dismax@.+    -- -   @operators@: An array of the operators or special characters you+    --     want to disable for the simple query parser. If you disable the+    --     @and@, @or@, or @not@ operators, the corresponding operators (@+@,+    --     @|@, @-@) have no special meaning and are dropped from the search+    --     string. Similarly, disabling @prefix@ disables the wildcard operator+    --     (@*@) and disabling @phrase@ disables the ability to search for+    --     phrases by enclosing phrases in double quotes. Disabling precedence+    --     disables the ability to control order of precedence using+    --     parentheses. Disabling @near@ disables the ability to use the ~+    --     operator to perform a sloppy phrase search. Disabling the @fuzzy@+    --     operator disables the ability to use the ~ operator to perform a+    --     fuzzy search. @escape@ disables the ability to use a backslash+    --     (@\\@) to escape special characters within the search string.+    --     Disabling whitespace is an advanced option that prevents the parser+    --     from tokenizing on whitespace, which can be useful for Vietnamese.+    --     (It prevents Vietnamese words from being split incorrectly.) For+    --     example, you could disable all operators other than the phrase+    --     operator to support just simple term and phrase queries:+    --     @\"operators\":[\"and\",\"not\",\"or\", \"prefix\"]@. Valid values:+    --     @and@, @escape@, @fuzzy@, @near@, @not@, @or@, @phrase@,+    --     @precedence@, @prefix@, @whitespace@. Default: All operators and+    --     special characters are enabled. Valid for: @simple@.+    -- -   @phraseFields@: An array of the @text@ or @text-array@ fields you+    --     want to use for phrase searches. When the terms in the search string+    --     appear in close proximity within a field, the field scores higher.+    --     You can specify a weight for each field to boost that score. The+    --     @phraseSlop@ option controls how much the matches can deviate from+    --     the search string and still be boosted. To specify a field weight,+    --     append a caret (@^@) symbol and the weight to the field name. For+    --     example, to boost phrase matches in the @title@ field over the+    --     @abstract@ field, you could specify:+    --     @\"phraseFields\":[\"title^3\", \"plot\"]@ Valid values: The name of+    --     any @text@ or @text-array@ field and an optional numeric value+    --     greater than zero. Default: No fields. If you don\'t specify any+    --     fields with @phraseFields@, proximity scoring is disabled even if+    --     @phraseSlop@ is specified. Valid for: @dismax@.+    -- -   @phraseSlop@: An integer value that specifies how much matches can+    --     deviate from the search phrase and still be boosted according to the+    --     weights specified in the @phraseFields@ option; for example,+    --     @phraseSlop: 2@. You must also specify @phraseFields@ to enable+    --     proximity scoring. Valid values: positive integers. Default: 0.+    --     Valid for: @dismax@.+    -- -   @explicitPhraseSlop@: An integer value that specifies how much a+    --     match can deviate from the search phrase when the phrase is enclosed+    --     in double quotes in the search string. (Phrases that exceed this+    --     proximity distance are not considered a match.) For example, to+    --     specify a slop of three for dismax phrase queries, you would specify+    --     @\"explicitPhraseSlop\":3@. Valid values: positive integers.+    --     Default: 0. Valid for: @dismax@.+    -- -   @tieBreaker@: When a term in the search string is found in a+    --     document\'s field, a score is calculated for that field based on how+    --     common the word is in that field compared to other documents. If the+    --     term occurs in multiple fields within a document, by default only+    --     the highest scoring field contributes to the document\'s overall+    --     score. You can specify a @tieBreaker@ value to enable the matches in+    --     lower-scoring fields to contribute to the document\'s score. That+    --     way, if two documents have the same max field score for a particular+    --     term, the score for the document that has matches in more fields+    --     will be higher. The formula for calculating the score with a+    --     tieBreaker is+    --     @(max field score) + (tieBreaker) * (sum of the scores for the rest of the matching fields)@.+    --     Set @tieBreaker@ to 0 to disregard all but the highest scoring field+    --     (pure max): @\"tieBreaker\":0@. Set to 1 to sum the scores from all+    --     fields (pure sum): @\"tieBreaker\":1@. Valid values: 0.0 to 1.0.+    --     Default: 0.0. Valid for: @dismax@.+    queryOptions :: Prelude.Maybe Prelude.Text,+    -- | Specifies which query parser to use to process the request. If+    -- @queryParser@ is not specified, Amazon CloudSearch uses the @simple@+    -- query parser.+    --+    -- Amazon CloudSearch supports four query parsers:+    --+    -- -   @simple@: perform simple searches of @text@ and @text-array@ fields.+    --     By default, the @simple@ query parser searches all @text@ and+    --     @text-array@ fields. You can specify which fields to search by with+    --     the @queryOptions@ parameter. If you prefix a search term with a+    --     plus sign (+) documents must contain the term to be considered a+    --     match. (This is the default, unless you configure the default+    --     operator with the @queryOptions@ parameter.) You can use the @-@+    --     (NOT), @|@ (OR), and @*@ (wildcard) operators to exclude particular+    --     terms, find results that match any of the specified terms, or search+    --     for a prefix. To search for a phrase rather than individual terms,+    --     enclose the phrase in double quotes. For more information, see+    --     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-text.html Searching for Text>+    --     in the /Amazon CloudSearch Developer Guide/.+    -- -   @structured@: perform advanced searches by combining multiple+    --     expressions to define the search criteria. You can also search+    --     within particular fields, search for values and ranges of values,+    --     and use advanced options such as term boosting, @matchall@, and+    --     @near@. For more information, see+    --     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-compound-queries.html Constructing Compound Queries>+    --     in the /Amazon CloudSearch Developer Guide/.+    -- -   @lucene@: search using the Apache Lucene query parser syntax. For+    --     more information, see+    --     <http://lucene.apache.org/core/4_6_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description Apache Lucene Query Parser Syntax>.+    -- -   @dismax@: search using the simplified subset of the Apache Lucene+    --     query parser syntax defined by the DisMax query parser. For more+    --     information, see+    --     <http://wiki.apache.org/solr/DisMaxQParserPlugin#Query_Syntax DisMax Query Parser Syntax>.+    queryParser :: Prelude.Maybe QueryParser,+    -- | Specifies the field and expression values to include in the response.+    -- Multiple fields or expressions are specified as a comma-separated list.+    -- By default, a search response includes all return enabled fields+    -- (@_all_fields@). To return only the document IDs for the matching+    -- documents, specify @_no_fields@. To retrieve the relevance score+    -- calculated for each document, specify @_score@.+    return' :: Prelude.Maybe Prelude.Text,+    -- | Specifies the maximum number of search hits to include in the response.+    size :: Prelude.Maybe Prelude.Integer,+    -- | Specifies the fields or custom expressions to use to sort the search+    -- results. Multiple fields or expressions are specified as a+    -- comma-separated list. You must specify the sort direction (@asc@ or+    -- @desc@) for each field; for example, @year desc,title asc@. To use a+    -- field to sort results, the field must be sort-enabled in the domain+    -- configuration. Array type fields cannot be used for sorting. If no+    -- @sort@ parameter is specified, results are sorted by their default+    -- relevance scores in descending order: @_score desc@. You can also sort+    -- by document ID (@_id asc@) and version (@_version desc@).+    --+    -- For more information, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/sorting-results.html Sorting Results>+    -- in the /Amazon CloudSearch Developer Guide/.+    sort :: Prelude.Maybe Prelude.Text,+    -- | Specifies the offset of the first search hit you want to return. Note+    -- that the result set is zero-based; the first result is at index 0. You+    -- can specify either the @start@ or @cursor@ parameter in a request, they+    -- are mutually exclusive.+    --+    -- For more information, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+    -- in the /Amazon CloudSearch Developer Guide/.+    start :: Prelude.Maybe Prelude.Integer,+    -- | Specifies one or more fields for which to get statistics information.+    -- Each specified field must be facet-enabled in the domain configuration.+    -- The fields are specified in JSON using the form:+    --+    -- @{\"FIELD-A\":{},\"FIELD-B\":{}}@+    --+    -- There are currently no options supported for statistics.+    stats :: Prelude.Maybe Prelude.Text,+    -- | Specifies the search criteria for the request. How you specify the+    -- search criteria depends on the query parser used for the request and the+    -- parser options specified in the @queryOptions@ parameter. By default,+    -- the @simple@ query parser is used to process requests. To use the+    -- @structured@, @lucene@, or @dismax@ query parser, you must also specify+    -- the @queryParser@ parameter.+    --+    -- For more information about specifying search criteria, see+    -- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data>+    -- in the /Amazon CloudSearch Developer Guide/.+    query :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Search' 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:+--+-- 'cursor', 'search_cursor' - Retrieves a cursor value you can use to page through large result sets.+-- Use the @size@ parameter to control the number of hits to include in+-- each response. You can specify either the @cursor@ or @start@ parameter+-- in a request; they are mutually exclusive. To get the first cursor, set+-- the cursor value to @initial@. In subsequent requests, specify the+-- cursor value returned in the hits section of the response.+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'expr', 'search_expr' - Defines one or more numeric expressions that can be used to sort results+-- or specify search or filter criteria. You can also specify expressions+-- as return fields.+--+-- You specify the expressions in JSON using the form+-- @{\"EXPRESSIONNAME\":\"EXPRESSION\"}@. You can define and use multiple+-- expressions in a search request. For example:+--+-- @ {\"expression1\":\"_score*rating\", \"expression2\":\"(1\/rank)*year\"} @+--+-- For information about the variables, operators, and functions you can+-- use in expressions, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'facet', 'search_facet' - Specifies one or more fields for which to get facet information, and+-- options that control how the facet information is returned. Each+-- specified field must be facet-enabled in the domain configuration. The+-- fields and options are specified in JSON using the form+-- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+--+-- You can specify the following faceting options:+--+-- -   @buckets@ specifies an array of the facet values or ranges to count.+--     Ranges are specified using the same syntax that you use to search+--     for a range of values. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-ranges.html Searching for a Range of Values>+--     in the /Amazon CloudSearch Developer Guide/. Buckets are returned in+--     the order they are specified in the request. The @sort@ and @size@+--     options are not valid if you specify @buckets@.+--+-- -   @size@ specifies the maximum number of facets to include in the+--     results. By default, Amazon CloudSearch returns counts for the top+--     10. The @size@ parameter is only valid when you specify the @sort@+--     option; it cannot be used in conjunction with @buckets@.+--+-- -   @sort@ specifies how you want to sort the facets in the results:+--     @bucket@ or @count@. Specify @bucket@ to sort alphabetically or+--     numerically by facet value (in ascending order). Specify @count@ to+--     sort by the facet counts computed for each facet value (in+--     descending order). To retrieve facet counts for particular values or+--     ranges of values, use the @buckets@ option instead of @sort@.+--+-- If no facet options are specified, facet counts are computed for all+-- field values, the facets are sorted by facet count, and the top 10+-- facets are returned in the results.+--+-- To count particular buckets of values, use the @buckets@ option. For+-- example, the following request uses the @buckets@ option to calculate+-- and return facet counts by decade.+--+-- @ {\"year\":{\"buckets\":[\"[1970,1979]\",\"[1980,1989]\",\"[1990,1999]\",\"[2000,2009]\",\"[2010,}\"]}} @+--+-- To sort facets by facet count, use the @count@ option. For example, the+-- following request sets the @sort@ option to @count@ to sort the facet+-- values by facet count, with the facet values that have the most matching+-- documents listed first. Setting the @size@ option to 3 returns only the+-- top three facet values.+--+-- @ {\"year\":{\"sort\":\"count\",\"size\":3}} @+--+-- To sort the facets by value, use the @bucket@ option. For example, the+-- following request sets the @sort@ option to @bucket@ to sort the facet+-- values numerically by year, with earliest year listed first.+--+-- @ {\"year\":{\"sort\":\"bucket\"}} @+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/faceting.html Getting and Using Facet Information>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'filterQuery', 'search_filterQuery' - Specifies a structured query that filters the results of a search+-- without affecting how the results are scored and sorted. You use+-- @filterQuery@ in conjunction with the @query@ parameter to filter the+-- documents that match the constraints specified in the @query@ parameter.+-- Specifying a filter controls only which matching documents are included+-- in the results, it has no effect on how they are scored and sorted. The+-- @filterQuery@ parameter supports the full structured query syntax.+--+-- For more information about using filters, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/filtering-results.html Filtering Matching Documents>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'highlight', 'search_highlight' - Retrieves highlights for matches in the specified @text@ or @text-array@+-- fields. Each specified field must be highlight enabled in the domain+-- configuration. The fields and options are specified in JSON using the+-- form+-- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+--+-- You can specify the following highlight options:+--+-- -   @format@: specifies the format of the data in the text field: @text@+--     or @html@. When data is returned as HTML, all non-alphanumeric+--     characters are encoded. The default is @html@.+-- -   @max_phrases@: specifies the maximum number of occurrences of the+--     search term(s) you want to highlight. By default, the first+--     occurrence is highlighted.+-- -   @pre_tag@: specifies the string to prepend to an occurrence of a+--     search term. The default for HTML highlights is @&lt;em&gt;@. The+--     default for text highlights is @*@.+-- -   @post_tag@: specifies the string to append to an occurrence of a+--     search term. The default for HTML highlights is @&lt;\/em&gt;@. The+--     default for text highlights is @*@.+--+-- If no highlight options are specified for a field, the returned field+-- text is treated as HTML and the first match is highlighted with emphasis+-- tags: @&lt;em>search-term&lt;\/em&gt;@.+--+-- For example, the following request retrieves highlights for the @actors@+-- and @title@ fields.+--+-- @{ \"actors\": {}, \"title\": {\"format\": \"text\",\"max_phrases\": 2,\"pre_tag\": \"@__@\",\"post_tag\": \"@__@\"} }@+--+-- 'partial', 'search_partial' - Enables partial results to be returned if one or more index partitions+-- are unavailable. When your search index is partitioned across multiple+-- search instances, by default Amazon CloudSearch only returns results if+-- every partition can be queried. This means that the failure of a single+-- search instance can result in 5xx (internal server) errors. When you+-- enable partial results, Amazon CloudSearch returns whatever results are+-- available and includes the percentage of documents searched in the+-- search results (percent-searched). This enables you to more gracefully+-- degrade your users\' search experience. For example, rather than+-- displaying no results, you could display the partial results and a+-- message indicating that the results might be incomplete due to a+-- temporary system outage.+--+-- 'queryOptions', 'search_queryOptions' - Configures options for the query parser specified in the @queryParser@+-- parameter. You specify the options in JSON using the following form+-- @{\"OPTION1\":\"VALUE1\",\"OPTION2\":VALUE2\"...\"OPTIONN\":\"VALUEN\"}.@+--+-- The options you can configure vary according to which parser you use:+--+-- -   @defaultOperator@: The default operator used to combine individual+--     terms in the search string. For example: @defaultOperator: \'or\'@.+--     For the @dismax@ parser, you specify a percentage that represents+--     the percentage of terms in the search string (rounded down) that+--     must match, rather than a default operator. A value of @0%@ is the+--     equivalent to OR, and a value of @100%@ is equivalent to AND. The+--     percentage must be specified as a value in the range 0-100 followed+--     by the percent (%) symbol. For example, @defaultOperator: 50%@.+--     Valid values: @and@, @or@, a percentage in the range 0%-100%+--     (@dismax@). Default: @and@ (@simple@, @structured@, @lucene@) or+--     @100@ (@dismax@). Valid for: @simple@, @structured@, @lucene@, and+--     @dismax@.+-- -   @fields@: An array of the fields to search when no fields are+--     specified in a search. If no fields are specified in a search and+--     this option is not specified, all text and text-array fields are+--     searched. You can specify a weight for each field to control the+--     relative importance of each field when Amazon CloudSearch calculates+--     relevance scores. To specify a field weight, append a caret (@^@)+--     symbol and the weight to the field name. For example, to boost the+--     importance of the @title@ field over the @description@ field you+--     could specify: @\"fields\":[\"title^5\",\"description\"]@. Valid+--     values: The name of any configured field and an optional numeric+--     value greater than zero. Default: All @text@ and @text-array@+--     fields. Valid for: @simple@, @structured@, @lucene@, and @dismax@.+-- -   @operators@: An array of the operators or special characters you+--     want to disable for the simple query parser. If you disable the+--     @and@, @or@, or @not@ operators, the corresponding operators (@+@,+--     @|@, @-@) have no special meaning and are dropped from the search+--     string. Similarly, disabling @prefix@ disables the wildcard operator+--     (@*@) and disabling @phrase@ disables the ability to search for+--     phrases by enclosing phrases in double quotes. Disabling precedence+--     disables the ability to control order of precedence using+--     parentheses. Disabling @near@ disables the ability to use the ~+--     operator to perform a sloppy phrase search. Disabling the @fuzzy@+--     operator disables the ability to use the ~ operator to perform a+--     fuzzy search. @escape@ disables the ability to use a backslash+--     (@\\@) to escape special characters within the search string.+--     Disabling whitespace is an advanced option that prevents the parser+--     from tokenizing on whitespace, which can be useful for Vietnamese.+--     (It prevents Vietnamese words from being split incorrectly.) For+--     example, you could disable all operators other than the phrase+--     operator to support just simple term and phrase queries:+--     @\"operators\":[\"and\",\"not\",\"or\", \"prefix\"]@. Valid values:+--     @and@, @escape@, @fuzzy@, @near@, @not@, @or@, @phrase@,+--     @precedence@, @prefix@, @whitespace@. Default: All operators and+--     special characters are enabled. Valid for: @simple@.+-- -   @phraseFields@: An array of the @text@ or @text-array@ fields you+--     want to use for phrase searches. When the terms in the search string+--     appear in close proximity within a field, the field scores higher.+--     You can specify a weight for each field to boost that score. The+--     @phraseSlop@ option controls how much the matches can deviate from+--     the search string and still be boosted. To specify a field weight,+--     append a caret (@^@) symbol and the weight to the field name. For+--     example, to boost phrase matches in the @title@ field over the+--     @abstract@ field, you could specify:+--     @\"phraseFields\":[\"title^3\", \"plot\"]@ Valid values: The name of+--     any @text@ or @text-array@ field and an optional numeric value+--     greater than zero. Default: No fields. If you don\'t specify any+--     fields with @phraseFields@, proximity scoring is disabled even if+--     @phraseSlop@ is specified. Valid for: @dismax@.+-- -   @phraseSlop@: An integer value that specifies how much matches can+--     deviate from the search phrase and still be boosted according to the+--     weights specified in the @phraseFields@ option; for example,+--     @phraseSlop: 2@. You must also specify @phraseFields@ to enable+--     proximity scoring. Valid values: positive integers. Default: 0.+--     Valid for: @dismax@.+-- -   @explicitPhraseSlop@: An integer value that specifies how much a+--     match can deviate from the search phrase when the phrase is enclosed+--     in double quotes in the search string. (Phrases that exceed this+--     proximity distance are not considered a match.) For example, to+--     specify a slop of three for dismax phrase queries, you would specify+--     @\"explicitPhraseSlop\":3@. Valid values: positive integers.+--     Default: 0. Valid for: @dismax@.+-- -   @tieBreaker@: When a term in the search string is found in a+--     document\'s field, a score is calculated for that field based on how+--     common the word is in that field compared to other documents. If the+--     term occurs in multiple fields within a document, by default only+--     the highest scoring field contributes to the document\'s overall+--     score. You can specify a @tieBreaker@ value to enable the matches in+--     lower-scoring fields to contribute to the document\'s score. That+--     way, if two documents have the same max field score for a particular+--     term, the score for the document that has matches in more fields+--     will be higher. The formula for calculating the score with a+--     tieBreaker is+--     @(max field score) + (tieBreaker) * (sum of the scores for the rest of the matching fields)@.+--     Set @tieBreaker@ to 0 to disregard all but the highest scoring field+--     (pure max): @\"tieBreaker\":0@. Set to 1 to sum the scores from all+--     fields (pure sum): @\"tieBreaker\":1@. Valid values: 0.0 to 1.0.+--     Default: 0.0. Valid for: @dismax@.+--+-- 'queryParser', 'search_queryParser' - Specifies which query parser to use to process the request. If+-- @queryParser@ is not specified, Amazon CloudSearch uses the @simple@+-- query parser.+--+-- Amazon CloudSearch supports four query parsers:+--+-- -   @simple@: perform simple searches of @text@ and @text-array@ fields.+--     By default, the @simple@ query parser searches all @text@ and+--     @text-array@ fields. You can specify which fields to search by with+--     the @queryOptions@ parameter. If you prefix a search term with a+--     plus sign (+) documents must contain the term to be considered a+--     match. (This is the default, unless you configure the default+--     operator with the @queryOptions@ parameter.) You can use the @-@+--     (NOT), @|@ (OR), and @*@ (wildcard) operators to exclude particular+--     terms, find results that match any of the specified terms, or search+--     for a prefix. To search for a phrase rather than individual terms,+--     enclose the phrase in double quotes. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-text.html Searching for Text>+--     in the /Amazon CloudSearch Developer Guide/.+-- -   @structured@: perform advanced searches by combining multiple+--     expressions to define the search criteria. You can also search+--     within particular fields, search for values and ranges of values,+--     and use advanced options such as term boosting, @matchall@, and+--     @near@. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-compound-queries.html Constructing Compound Queries>+--     in the /Amazon CloudSearch Developer Guide/.+-- -   @lucene@: search using the Apache Lucene query parser syntax. For+--     more information, see+--     <http://lucene.apache.org/core/4_6_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description Apache Lucene Query Parser Syntax>.+-- -   @dismax@: search using the simplified subset of the Apache Lucene+--     query parser syntax defined by the DisMax query parser. For more+--     information, see+--     <http://wiki.apache.org/solr/DisMaxQParserPlugin#Query_Syntax DisMax Query Parser Syntax>.+--+-- 'return'', 'search_return' - Specifies the field and expression values to include in the response.+-- Multiple fields or expressions are specified as a comma-separated list.+-- By default, a search response includes all return enabled fields+-- (@_all_fields@). To return only the document IDs for the matching+-- documents, specify @_no_fields@. To retrieve the relevance score+-- calculated for each document, specify @_score@.+--+-- 'size', 'search_size' - Specifies the maximum number of search hits to include in the response.+--+-- 'sort', 'search_sort' - Specifies the fields or custom expressions to use to sort the search+-- results. Multiple fields or expressions are specified as a+-- comma-separated list. You must specify the sort direction (@asc@ or+-- @desc@) for each field; for example, @year desc,title asc@. To use a+-- field to sort results, the field must be sort-enabled in the domain+-- configuration. Array type fields cannot be used for sorting. If no+-- @sort@ parameter is specified, results are sorted by their default+-- relevance scores in descending order: @_score desc@. You can also sort+-- by document ID (@_id asc@) and version (@_version desc@).+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/sorting-results.html Sorting Results>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'start', 'search_start' - Specifies the offset of the first search hit you want to return. Note+-- that the result set is zero-based; the first result is at index 0. You+-- can specify either the @start@ or @cursor@ parameter in a request, they+-- are mutually exclusive.+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- 'stats', 'search_stats' - Specifies one or more fields for which to get statistics information.+-- Each specified field must be facet-enabled in the domain configuration.+-- The fields are specified in JSON using the form:+--+-- @{\"FIELD-A\":{},\"FIELD-B\":{}}@+--+-- There are currently no options supported for statistics.+--+-- 'query', 'search_query' - Specifies the search criteria for the request. How you specify the+-- search criteria depends on the query parser used for the request and the+-- parser options specified in the @queryOptions@ parameter. By default,+-- the @simple@ query parser is used to process requests. To use the+-- @structured@, @lucene@, or @dismax@ query parser, you must also specify+-- the @queryParser@ parameter.+--+-- For more information about specifying search criteria, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data>+-- in the /Amazon CloudSearch Developer Guide/.+newSearch ::+  -- | 'query'+  Prelude.Text ->+  Search+newSearch pQuery_ =+  Search'+    { cursor = Prelude.Nothing,+      expr = Prelude.Nothing,+      facet = Prelude.Nothing,+      filterQuery = Prelude.Nothing,+      highlight = Prelude.Nothing,+      partial = Prelude.Nothing,+      queryOptions = Prelude.Nothing,+      queryParser = Prelude.Nothing,+      return' = Prelude.Nothing,+      size = Prelude.Nothing,+      sort = Prelude.Nothing,+      start = Prelude.Nothing,+      stats = Prelude.Nothing,+      query = pQuery_+    }++-- | Retrieves a cursor value you can use to page through large result sets.+-- Use the @size@ parameter to control the number of hits to include in+-- each response. You can specify either the @cursor@ or @start@ parameter+-- in a request; they are mutually exclusive. To get the first cursor, set+-- the cursor value to @initial@. In subsequent requests, specify the+-- cursor value returned in the hits section of the response.+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+-- in the /Amazon CloudSearch Developer Guide/.+search_cursor :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_cursor = Lens.lens (\Search' {cursor} -> cursor) (\s@Search' {} a -> s {cursor = a} :: Search)++-- | Defines one or more numeric expressions that can be used to sort results+-- or specify search or filter criteria. You can also specify expressions+-- as return fields.+--+-- You specify the expressions in JSON using the form+-- @{\"EXPRESSIONNAME\":\"EXPRESSION\"}@. You can define and use multiple+-- expressions in a search request. For example:+--+-- @ {\"expression1\":\"_score*rating\", \"expression2\":\"(1\/rank)*year\"} @+--+-- For information about the variables, operators, and functions you can+-- use in expressions, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions>+-- in the /Amazon CloudSearch Developer Guide/.+search_expr :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_expr = Lens.lens (\Search' {expr} -> expr) (\s@Search' {} a -> s {expr = a} :: Search)++-- | Specifies one or more fields for which to get facet information, and+-- options that control how the facet information is returned. Each+-- specified field must be facet-enabled in the domain configuration. The+-- fields and options are specified in JSON using the form+-- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+--+-- You can specify the following faceting options:+--+-- -   @buckets@ specifies an array of the facet values or ranges to count.+--     Ranges are specified using the same syntax that you use to search+--     for a range of values. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-ranges.html Searching for a Range of Values>+--     in the /Amazon CloudSearch Developer Guide/. Buckets are returned in+--     the order they are specified in the request. The @sort@ and @size@+--     options are not valid if you specify @buckets@.+--+-- -   @size@ specifies the maximum number of facets to include in the+--     results. By default, Amazon CloudSearch returns counts for the top+--     10. The @size@ parameter is only valid when you specify the @sort@+--     option; it cannot be used in conjunction with @buckets@.+--+-- -   @sort@ specifies how you want to sort the facets in the results:+--     @bucket@ or @count@. Specify @bucket@ to sort alphabetically or+--     numerically by facet value (in ascending order). Specify @count@ to+--     sort by the facet counts computed for each facet value (in+--     descending order). To retrieve facet counts for particular values or+--     ranges of values, use the @buckets@ option instead of @sort@.+--+-- If no facet options are specified, facet counts are computed for all+-- field values, the facets are sorted by facet count, and the top 10+-- facets are returned in the results.+--+-- To count particular buckets of values, use the @buckets@ option. For+-- example, the following request uses the @buckets@ option to calculate+-- and return facet counts by decade.+--+-- @ {\"year\":{\"buckets\":[\"[1970,1979]\",\"[1980,1989]\",\"[1990,1999]\",\"[2000,2009]\",\"[2010,}\"]}} @+--+-- To sort facets by facet count, use the @count@ option. For example, the+-- following request sets the @sort@ option to @count@ to sort the facet+-- values by facet count, with the facet values that have the most matching+-- documents listed first. Setting the @size@ option to 3 returns only the+-- top three facet values.+--+-- @ {\"year\":{\"sort\":\"count\",\"size\":3}} @+--+-- To sort the facets by value, use the @bucket@ option. For example, the+-- following request sets the @sort@ option to @bucket@ to sort the facet+-- values numerically by year, with earliest year listed first.+--+-- @ {\"year\":{\"sort\":\"bucket\"}} @+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/faceting.html Getting and Using Facet Information>+-- in the /Amazon CloudSearch Developer Guide/.+search_facet :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_facet = Lens.lens (\Search' {facet} -> facet) (\s@Search' {} a -> s {facet = a} :: Search)++-- | Specifies a structured query that filters the results of a search+-- without affecting how the results are scored and sorted. You use+-- @filterQuery@ in conjunction with the @query@ parameter to filter the+-- documents that match the constraints specified in the @query@ parameter.+-- Specifying a filter controls only which matching documents are included+-- in the results, it has no effect on how they are scored and sorted. The+-- @filterQuery@ parameter supports the full structured query syntax.+--+-- For more information about using filters, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/filtering-results.html Filtering Matching Documents>+-- in the /Amazon CloudSearch Developer Guide/.+search_filterQuery :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_filterQuery = Lens.lens (\Search' {filterQuery} -> filterQuery) (\s@Search' {} a -> s {filterQuery = a} :: Search)++-- | Retrieves highlights for matches in the specified @text@ or @text-array@+-- fields. Each specified field must be highlight enabled in the domain+-- configuration. The fields and options are specified in JSON using the+-- form+-- @{\"FIELD\":{\"OPTION\":VALUE,\"OPTION:\"STRING\"},\"FIELD\":{\"OPTION\":VALUE,\"OPTION\":\"STRING\"}}@.+--+-- You can specify the following highlight options:+--+-- -   @format@: specifies the format of the data in the text field: @text@+--     or @html@. When data is returned as HTML, all non-alphanumeric+--     characters are encoded. The default is @html@.+-- -   @max_phrases@: specifies the maximum number of occurrences of the+--     search term(s) you want to highlight. By default, the first+--     occurrence is highlighted.+-- -   @pre_tag@: specifies the string to prepend to an occurrence of a+--     search term. The default for HTML highlights is @&lt;em&gt;@. The+--     default for text highlights is @*@.+-- -   @post_tag@: specifies the string to append to an occurrence of a+--     search term. The default for HTML highlights is @&lt;\/em&gt;@. The+--     default for text highlights is @*@.+--+-- If no highlight options are specified for a field, the returned field+-- text is treated as HTML and the first match is highlighted with emphasis+-- tags: @&lt;em>search-term&lt;\/em&gt;@.+--+-- For example, the following request retrieves highlights for the @actors@+-- and @title@ fields.+--+-- @{ \"actors\": {}, \"title\": {\"format\": \"text\",\"max_phrases\": 2,\"pre_tag\": \"@__@\",\"post_tag\": \"@__@\"} }@+search_highlight :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_highlight = Lens.lens (\Search' {highlight} -> highlight) (\s@Search' {} a -> s {highlight = a} :: Search)++-- | Enables partial results to be returned if one or more index partitions+-- are unavailable. When your search index is partitioned across multiple+-- search instances, by default Amazon CloudSearch only returns results if+-- every partition can be queried. This means that the failure of a single+-- search instance can result in 5xx (internal server) errors. When you+-- enable partial results, Amazon CloudSearch returns whatever results are+-- available and includes the percentage of documents searched in the+-- search results (percent-searched). This enables you to more gracefully+-- degrade your users\' search experience. For example, rather than+-- displaying no results, you could display the partial results and a+-- message indicating that the results might be incomplete due to a+-- temporary system outage.+search_partial :: Lens.Lens' Search (Prelude.Maybe Prelude.Bool)+search_partial = Lens.lens (\Search' {partial} -> partial) (\s@Search' {} a -> s {partial = a} :: Search)++-- | Configures options for the query parser specified in the @queryParser@+-- parameter. You specify the options in JSON using the following form+-- @{\"OPTION1\":\"VALUE1\",\"OPTION2\":VALUE2\"...\"OPTIONN\":\"VALUEN\"}.@+--+-- The options you can configure vary according to which parser you use:+--+-- -   @defaultOperator@: The default operator used to combine individual+--     terms in the search string. For example: @defaultOperator: \'or\'@.+--     For the @dismax@ parser, you specify a percentage that represents+--     the percentage of terms in the search string (rounded down) that+--     must match, rather than a default operator. A value of @0%@ is the+--     equivalent to OR, and a value of @100%@ is equivalent to AND. The+--     percentage must be specified as a value in the range 0-100 followed+--     by the percent (%) symbol. For example, @defaultOperator: 50%@.+--     Valid values: @and@, @or@, a percentage in the range 0%-100%+--     (@dismax@). Default: @and@ (@simple@, @structured@, @lucene@) or+--     @100@ (@dismax@). Valid for: @simple@, @structured@, @lucene@, and+--     @dismax@.+-- -   @fields@: An array of the fields to search when no fields are+--     specified in a search. If no fields are specified in a search and+--     this option is not specified, all text and text-array fields are+--     searched. You can specify a weight for each field to control the+--     relative importance of each field when Amazon CloudSearch calculates+--     relevance scores. To specify a field weight, append a caret (@^@)+--     symbol and the weight to the field name. For example, to boost the+--     importance of the @title@ field over the @description@ field you+--     could specify: @\"fields\":[\"title^5\",\"description\"]@. Valid+--     values: The name of any configured field and an optional numeric+--     value greater than zero. Default: All @text@ and @text-array@+--     fields. Valid for: @simple@, @structured@, @lucene@, and @dismax@.+-- -   @operators@: An array of the operators or special characters you+--     want to disable for the simple query parser. If you disable the+--     @and@, @or@, or @not@ operators, the corresponding operators (@+@,+--     @|@, @-@) have no special meaning and are dropped from the search+--     string. Similarly, disabling @prefix@ disables the wildcard operator+--     (@*@) and disabling @phrase@ disables the ability to search for+--     phrases by enclosing phrases in double quotes. Disabling precedence+--     disables the ability to control order of precedence using+--     parentheses. Disabling @near@ disables the ability to use the ~+--     operator to perform a sloppy phrase search. Disabling the @fuzzy@+--     operator disables the ability to use the ~ operator to perform a+--     fuzzy search. @escape@ disables the ability to use a backslash+--     (@\\@) to escape special characters within the search string.+--     Disabling whitespace is an advanced option that prevents the parser+--     from tokenizing on whitespace, which can be useful for Vietnamese.+--     (It prevents Vietnamese words from being split incorrectly.) For+--     example, you could disable all operators other than the phrase+--     operator to support just simple term and phrase queries:+--     @\"operators\":[\"and\",\"not\",\"or\", \"prefix\"]@. Valid values:+--     @and@, @escape@, @fuzzy@, @near@, @not@, @or@, @phrase@,+--     @precedence@, @prefix@, @whitespace@. Default: All operators and+--     special characters are enabled. Valid for: @simple@.+-- -   @phraseFields@: An array of the @text@ or @text-array@ fields you+--     want to use for phrase searches. When the terms in the search string+--     appear in close proximity within a field, the field scores higher.+--     You can specify a weight for each field to boost that score. The+--     @phraseSlop@ option controls how much the matches can deviate from+--     the search string and still be boosted. To specify a field weight,+--     append a caret (@^@) symbol and the weight to the field name. For+--     example, to boost phrase matches in the @title@ field over the+--     @abstract@ field, you could specify:+--     @\"phraseFields\":[\"title^3\", \"plot\"]@ Valid values: The name of+--     any @text@ or @text-array@ field and an optional numeric value+--     greater than zero. Default: No fields. If you don\'t specify any+--     fields with @phraseFields@, proximity scoring is disabled even if+--     @phraseSlop@ is specified. Valid for: @dismax@.+-- -   @phraseSlop@: An integer value that specifies how much matches can+--     deviate from the search phrase and still be boosted according to the+--     weights specified in the @phraseFields@ option; for example,+--     @phraseSlop: 2@. You must also specify @phraseFields@ to enable+--     proximity scoring. Valid values: positive integers. Default: 0.+--     Valid for: @dismax@.+-- -   @explicitPhraseSlop@: An integer value that specifies how much a+--     match can deviate from the search phrase when the phrase is enclosed+--     in double quotes in the search string. (Phrases that exceed this+--     proximity distance are not considered a match.) For example, to+--     specify a slop of three for dismax phrase queries, you would specify+--     @\"explicitPhraseSlop\":3@. Valid values: positive integers.+--     Default: 0. Valid for: @dismax@.+-- -   @tieBreaker@: When a term in the search string is found in a+--     document\'s field, a score is calculated for that field based on how+--     common the word is in that field compared to other documents. If the+--     term occurs in multiple fields within a document, by default only+--     the highest scoring field contributes to the document\'s overall+--     score. You can specify a @tieBreaker@ value to enable the matches in+--     lower-scoring fields to contribute to the document\'s score. That+--     way, if two documents have the same max field score for a particular+--     term, the score for the document that has matches in more fields+--     will be higher. The formula for calculating the score with a+--     tieBreaker is+--     @(max field score) + (tieBreaker) * (sum of the scores for the rest of the matching fields)@.+--     Set @tieBreaker@ to 0 to disregard all but the highest scoring field+--     (pure max): @\"tieBreaker\":0@. Set to 1 to sum the scores from all+--     fields (pure sum): @\"tieBreaker\":1@. Valid values: 0.0 to 1.0.+--     Default: 0.0. Valid for: @dismax@.+search_queryOptions :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_queryOptions = Lens.lens (\Search' {queryOptions} -> queryOptions) (\s@Search' {} a -> s {queryOptions = a} :: Search)++-- | Specifies which query parser to use to process the request. If+-- @queryParser@ is not specified, Amazon CloudSearch uses the @simple@+-- query parser.+--+-- Amazon CloudSearch supports four query parsers:+--+-- -   @simple@: perform simple searches of @text@ and @text-array@ fields.+--     By default, the @simple@ query parser searches all @text@ and+--     @text-array@ fields. You can specify which fields to search by with+--     the @queryOptions@ parameter. If you prefix a search term with a+--     plus sign (+) documents must contain the term to be considered a+--     match. (This is the default, unless you configure the default+--     operator with the @queryOptions@ parameter.) You can use the @-@+--     (NOT), @|@ (OR), and @*@ (wildcard) operators to exclude particular+--     terms, find results that match any of the specified terms, or search+--     for a prefix. To search for a phrase rather than individual terms,+--     enclose the phrase in double quotes. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-text.html Searching for Text>+--     in the /Amazon CloudSearch Developer Guide/.+-- -   @structured@: perform advanced searches by combining multiple+--     expressions to define the search criteria. You can also search+--     within particular fields, search for values and ranges of values,+--     and use advanced options such as term boosting, @matchall@, and+--     @near@. For more information, see+--     <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-compound-queries.html Constructing Compound Queries>+--     in the /Amazon CloudSearch Developer Guide/.+-- -   @lucene@: search using the Apache Lucene query parser syntax. For+--     more information, see+--     <http://lucene.apache.org/core/4_6_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description Apache Lucene Query Parser Syntax>.+-- -   @dismax@: search using the simplified subset of the Apache Lucene+--     query parser syntax defined by the DisMax query parser. For more+--     information, see+--     <http://wiki.apache.org/solr/DisMaxQParserPlugin#Query_Syntax DisMax Query Parser Syntax>.+search_queryParser :: Lens.Lens' Search (Prelude.Maybe QueryParser)+search_queryParser = Lens.lens (\Search' {queryParser} -> queryParser) (\s@Search' {} a -> s {queryParser = a} :: Search)++-- | Specifies the field and expression values to include in the response.+-- Multiple fields or expressions are specified as a comma-separated list.+-- By default, a search response includes all return enabled fields+-- (@_all_fields@). To return only the document IDs for the matching+-- documents, specify @_no_fields@. To retrieve the relevance score+-- calculated for each document, specify @_score@.+search_return :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_return = Lens.lens (\Search' {return'} -> return') (\s@Search' {} a -> s {return' = a} :: Search)++-- | Specifies the maximum number of search hits to include in the response.+search_size :: Lens.Lens' Search (Prelude.Maybe Prelude.Integer)+search_size = Lens.lens (\Search' {size} -> size) (\s@Search' {} a -> s {size = a} :: Search)++-- | Specifies the fields or custom expressions to use to sort the search+-- results. Multiple fields or expressions are specified as a+-- comma-separated list. You must specify the sort direction (@asc@ or+-- @desc@) for each field; for example, @year desc,title asc@. To use a+-- field to sort results, the field must be sort-enabled in the domain+-- configuration. Array type fields cannot be used for sorting. If no+-- @sort@ parameter is specified, results are sorted by their default+-- relevance scores in descending order: @_score desc@. You can also sort+-- by document ID (@_id asc@) and version (@_version desc@).+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/sorting-results.html Sorting Results>+-- in the /Amazon CloudSearch Developer Guide/.+search_sort :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_sort = Lens.lens (\Search' {sort} -> sort) (\s@Search' {} a -> s {sort = a} :: Search)++-- | Specifies the offset of the first search hit you want to return. Note+-- that the result set is zero-based; the first result is at index 0. You+-- can specify either the @start@ or @cursor@ parameter in a request, they+-- are mutually exclusive.+--+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results>+-- in the /Amazon CloudSearch Developer Guide/.+search_start :: Lens.Lens' Search (Prelude.Maybe Prelude.Integer)+search_start = Lens.lens (\Search' {start} -> start) (\s@Search' {} a -> s {start = a} :: Search)++-- | Specifies one or more fields for which to get statistics information.+-- Each specified field must be facet-enabled in the domain configuration.+-- The fields are specified in JSON using the form:+--+-- @{\"FIELD-A\":{},\"FIELD-B\":{}}@+--+-- There are currently no options supported for statistics.+search_stats :: Lens.Lens' Search (Prelude.Maybe Prelude.Text)+search_stats = Lens.lens (\Search' {stats} -> stats) (\s@Search' {} a -> s {stats = a} :: Search)++-- | Specifies the search criteria for the request. How you specify the+-- search criteria depends on the query parser used for the request and the+-- parser options specified in the @queryOptions@ parameter. By default,+-- the @simple@ query parser is used to process requests. To use the+-- @structured@, @lucene@, or @dismax@ query parser, you must also specify+-- the @queryParser@ parameter.+--+-- For more information about specifying search criteria, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data>+-- in the /Amazon CloudSearch Developer Guide/.+search_query :: Lens.Lens' Search Prelude.Text+search_query = Lens.lens (\Search' {query} -> query) (\s@Search' {} a -> s {query = a} :: Search)++instance Core.AWSRequest Search where+  type AWSResponse Search = SearchResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SearchResponse'+            Prelude.<$> (x Data..?> "facets" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "hits")+            Prelude.<*> (x Data..?> "stats" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "status")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable Search where+  hashWithSalt _salt Search' {..} =+    _salt+      `Prelude.hashWithSalt` cursor+      `Prelude.hashWithSalt` expr+      `Prelude.hashWithSalt` facet+      `Prelude.hashWithSalt` filterQuery+      `Prelude.hashWithSalt` highlight+      `Prelude.hashWithSalt` partial+      `Prelude.hashWithSalt` queryOptions+      `Prelude.hashWithSalt` queryParser+      `Prelude.hashWithSalt` return'+      `Prelude.hashWithSalt` size+      `Prelude.hashWithSalt` sort+      `Prelude.hashWithSalt` start+      `Prelude.hashWithSalt` stats+      `Prelude.hashWithSalt` query++instance Prelude.NFData Search where+  rnf Search' {..} =+    Prelude.rnf cursor+      `Prelude.seq` Prelude.rnf expr+      `Prelude.seq` Prelude.rnf facet+      `Prelude.seq` Prelude.rnf filterQuery+      `Prelude.seq` Prelude.rnf highlight+      `Prelude.seq` Prelude.rnf partial+      `Prelude.seq` Prelude.rnf queryOptions+      `Prelude.seq` Prelude.rnf queryParser+      `Prelude.seq` Prelude.rnf return'+      `Prelude.seq` Prelude.rnf size+      `Prelude.seq` Prelude.rnf sort+      `Prelude.seq` Prelude.rnf start+      `Prelude.seq` Prelude.rnf stats+      `Prelude.seq` Prelude.rnf query++instance Data.ToHeaders Search where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath Search where+  toPath = Prelude.const "/2013-01-01/search"++instance Data.ToQuery Search where+  toQuery Search' {..} =+    Prelude.mconcat+      [ "cursor" Data.=: cursor,+        "expr" Data.=: expr,+        "facet" Data.=: facet,+        "fq" Data.=: filterQuery,+        "highlight" Data.=: highlight,+        "partial" Data.=: partial,+        "q.options" Data.=: queryOptions,+        "q.parser" Data.=: queryParser,+        "return" Data.=: return',+        "size" Data.=: size,+        "sort" Data.=: sort,+        "start" Data.=: start,+        "stats" Data.=: stats,+        "q" Data.=: query,+        "format=sdk&pretty=true"+      ]++-- | The result of a @Search@ request. Contains the documents that match the+-- specified search criteria and any requested fields, highlights, and+-- facet information.+--+-- /See:/ 'newSearchResponse' smart constructor.+data SearchResponse = SearchResponse'+  { -- | The requested facet information.+    facets :: Prelude.Maybe (Prelude.HashMap Prelude.Text BucketInfo),+    -- | The documents that match the search criteria.+    hits :: Prelude.Maybe Hits,+    -- | The requested field statistics information.+    stats :: Prelude.Maybe (Prelude.HashMap Prelude.Text FieldStats),+    -- | The status information returned for the search request.+    status :: Prelude.Maybe SearchStatus,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchResponse' 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:+--+-- 'facets', 'searchResponse_facets' - The requested facet information.+--+-- 'hits', 'searchResponse_hits' - The documents that match the search criteria.+--+-- 'stats', 'searchResponse_stats' - The requested field statistics information.+--+-- 'status', 'searchResponse_status' - The status information returned for the search request.+--+-- 'httpStatus', 'searchResponse_httpStatus' - The response's http status code.+newSearchResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SearchResponse+newSearchResponse pHttpStatus_ =+  SearchResponse'+    { facets = Prelude.Nothing,+      hits = Prelude.Nothing,+      stats = Prelude.Nothing,+      status = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The requested facet information.+searchResponse_facets :: Lens.Lens' SearchResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text BucketInfo))+searchResponse_facets = Lens.lens (\SearchResponse' {facets} -> facets) (\s@SearchResponse' {} a -> s {facets = a} :: SearchResponse) Prelude.. Lens.mapping Lens.coerced++-- | The documents that match the search criteria.+searchResponse_hits :: Lens.Lens' SearchResponse (Prelude.Maybe Hits)+searchResponse_hits = Lens.lens (\SearchResponse' {hits} -> hits) (\s@SearchResponse' {} a -> s {hits = a} :: SearchResponse)++-- | The requested field statistics information.+searchResponse_stats :: Lens.Lens' SearchResponse (Prelude.Maybe (Prelude.HashMap Prelude.Text FieldStats))+searchResponse_stats = Lens.lens (\SearchResponse' {stats} -> stats) (\s@SearchResponse' {} a -> s {stats = a} :: SearchResponse) Prelude.. Lens.mapping Lens.coerced++-- | The status information returned for the search request.+searchResponse_status :: Lens.Lens' SearchResponse (Prelude.Maybe SearchStatus)+searchResponse_status = Lens.lens (\SearchResponse' {status} -> status) (\s@SearchResponse' {} a -> s {status = a} :: SearchResponse)++-- | The response's http status code.+searchResponse_httpStatus :: Lens.Lens' SearchResponse Prelude.Int+searchResponse_httpStatus = Lens.lens (\SearchResponse' {httpStatus} -> httpStatus) (\s@SearchResponse' {} a -> s {httpStatus = a} :: SearchResponse)++instance Prelude.NFData SearchResponse where+  rnf SearchResponse' {..} =+    Prelude.rnf facets+      `Prelude.seq` Prelude.rnf hits+      `Prelude.seq` Prelude.rnf stats+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,227 @@+{-# 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.CloudSearchDomains.Suggest+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves autocomplete suggestions for a partial query string. You can+-- use suggestions enable you to display likely matches before users finish+-- typing. In Amazon CloudSearch, suggestions are based on the contents of+-- a particular text field. When you request suggestions, Amazon+-- CloudSearch finds all of the documents whose values in the suggester+-- field start with the specified query string. The beginning of the field+-- must match the query string to be considered a match.+--+-- For more information about configuring suggesters and retrieving+-- suggestions, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Suggestions>+-- in the /Amazon CloudSearch Developer Guide/.+--+-- The endpoint for submitting @Suggest@ requests is domain-specific. You+-- submit suggest requests to a domain\'s search endpoint. To get the+-- search endpoint for your domain, use the Amazon CloudSearch+-- configuration service @DescribeDomains@ action. A domain\'s endpoints+-- are also displayed on the domain dashboard in the Amazon CloudSearch+-- console.+module Amazonka.CloudSearchDomains.Suggest+  ( -- * Creating a Request+    Suggest (..),+    newSuggest,++    -- * Request Lenses+    suggest_size,+    suggest_query,+    suggest_suggester,++    -- * Destructuring the Response+    SuggestResponse (..),+    newSuggestResponse,++    -- * Response Lenses+    suggestResponse_status,+    suggestResponse_suggest,+    suggestResponse_httpStatus,+  )+where++import Amazonka.CloudSearchDomains.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 @Suggest@ request.+--+-- /See:/ 'newSuggest' smart constructor.+data Suggest = Suggest'+  { -- | Specifies the maximum number of suggestions to return.+    size :: Prelude.Maybe Prelude.Integer,+    -- | Specifies the string for which you want to get suggestions.+    query :: Prelude.Text,+    -- | Specifies the name of the suggester to use to find suggested matches.+    suggester :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Suggest' 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:+--+-- 'size', 'suggest_size' - Specifies the maximum number of suggestions to return.+--+-- 'query', 'suggest_query' - Specifies the string for which you want to get suggestions.+--+-- 'suggester', 'suggest_suggester' - Specifies the name of the suggester to use to find suggested matches.+newSuggest ::+  -- | 'query'+  Prelude.Text ->+  -- | 'suggester'+  Prelude.Text ->+  Suggest+newSuggest pQuery_ pSuggester_ =+  Suggest'+    { size = Prelude.Nothing,+      query = pQuery_,+      suggester = pSuggester_+    }++-- | Specifies the maximum number of suggestions to return.+suggest_size :: Lens.Lens' Suggest (Prelude.Maybe Prelude.Integer)+suggest_size = Lens.lens (\Suggest' {size} -> size) (\s@Suggest' {} a -> s {size = a} :: Suggest)++-- | Specifies the string for which you want to get suggestions.+suggest_query :: Lens.Lens' Suggest Prelude.Text+suggest_query = Lens.lens (\Suggest' {query} -> query) (\s@Suggest' {} a -> s {query = a} :: Suggest)++-- | Specifies the name of the suggester to use to find suggested matches.+suggest_suggester :: Lens.Lens' Suggest Prelude.Text+suggest_suggester = Lens.lens (\Suggest' {suggester} -> suggester) (\s@Suggest' {} a -> s {suggester = a} :: Suggest)++instance Core.AWSRequest Suggest where+  type AWSResponse Suggest = SuggestResponse+  request overrides =+    Request.get (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          SuggestResponse'+            Prelude.<$> (x Data..?> "status")+            Prelude.<*> (x Data..?> "suggest")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable Suggest where+  hashWithSalt _salt Suggest' {..} =+    _salt+      `Prelude.hashWithSalt` size+      `Prelude.hashWithSalt` query+      `Prelude.hashWithSalt` suggester++instance Prelude.NFData Suggest where+  rnf Suggest' {..} =+    Prelude.rnf size+      `Prelude.seq` Prelude.rnf query+      `Prelude.seq` Prelude.rnf suggester++instance Data.ToHeaders Suggest where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToPath Suggest where+  toPath = Prelude.const "/2013-01-01/suggest"++instance Data.ToQuery Suggest where+  toQuery Suggest' {..} =+    Prelude.mconcat+      [ "size" Data.=: size,+        "q" Data.=: query,+        "suggester" Data.=: suggester,+        "format=sdk&pretty=true"+      ]++-- | Contains the response to a @Suggest@ request.+--+-- /See:/ 'newSuggestResponse' smart constructor.+data SuggestResponse = SuggestResponse'+  { -- | The status of a @SuggestRequest@. Contains the resource ID (@rid@) and+    -- how long it took to process the request (@timems@).+    status :: Prelude.Maybe SuggestStatus,+    -- | Container for the matching search suggestion information.+    suggest :: Prelude.Maybe SuggestModel,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuggestResponse' 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:+--+-- 'status', 'suggestResponse_status' - The status of a @SuggestRequest@. Contains the resource ID (@rid@) and+-- how long it took to process the request (@timems@).+--+-- 'suggest', 'suggestResponse_suggest' - Container for the matching search suggestion information.+--+-- 'httpStatus', 'suggestResponse_httpStatus' - The response's http status code.+newSuggestResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  SuggestResponse+newSuggestResponse pHttpStatus_ =+  SuggestResponse'+    { status = Prelude.Nothing,+      suggest = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The status of a @SuggestRequest@. Contains the resource ID (@rid@) and+-- how long it took to process the request (@timems@).+suggestResponse_status :: Lens.Lens' SuggestResponse (Prelude.Maybe SuggestStatus)+suggestResponse_status = Lens.lens (\SuggestResponse' {status} -> status) (\s@SuggestResponse' {} a -> s {status = a} :: SuggestResponse)++-- | Container for the matching search suggestion information.+suggestResponse_suggest :: Lens.Lens' SuggestResponse (Prelude.Maybe SuggestModel)+suggestResponse_suggest = Lens.lens (\SuggestResponse' {suggest} -> suggest) (\s@SuggestResponse' {} a -> s {suggest = a} :: SuggestResponse)++-- | The response's http status code.+suggestResponse_httpStatus :: Lens.Lens' SuggestResponse Prelude.Int+suggestResponse_httpStatus = Lens.lens (\SuggestResponse' {httpStatus} -> httpStatus) (\s@SuggestResponse' {} a -> s {httpStatus = a} :: SuggestResponse)++instance Prelude.NFData SuggestResponse where+  rnf SuggestResponse' {..} =+    Prelude.rnf status+      `Prelude.seq` Prelude.rnf suggest+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,204 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _DocumentServiceException,+    _SearchException,++    -- * ContentType+    ContentType (..),++    -- * QueryParser+    QueryParser (..),++    -- * Bucket+    Bucket (..),+    newBucket,+    bucket_count,+    bucket_value,++    -- * BucketInfo+    BucketInfo (..),+    newBucketInfo,+    bucketInfo_buckets,++    -- * DocumentServiceWarning+    DocumentServiceWarning (..),+    newDocumentServiceWarning,+    documentServiceWarning_message,++    -- * FieldStats+    FieldStats (..),+    newFieldStats,+    fieldStats_count,+    fieldStats_max,+    fieldStats_mean,+    fieldStats_min,+    fieldStats_missing,+    fieldStats_stddev,+    fieldStats_sum,+    fieldStats_sumOfSquares,++    -- * Hit+    Hit (..),+    newHit,+    hit_exprs,+    hit_fields,+    hit_highlights,+    hit_id,++    -- * Hits+    Hits (..),+    newHits,+    hits_cursor,+    hits_found,+    hits_hit,+    hits_start,++    -- * SearchStatus+    SearchStatus (..),+    newSearchStatus,+    searchStatus_rid,+    searchStatus_timems,++    -- * SuggestModel+    SuggestModel (..),+    newSuggestModel,+    suggestModel_found,+    suggestModel_query,+    suggestModel_suggestions,++    -- * SuggestStatus+    SuggestStatus (..),+    newSuggestStatus,+    suggestStatus_rid,+    suggestStatus_timems,++    -- * SuggestionMatch+    SuggestionMatch (..),+    newSuggestionMatch,+    suggestionMatch_id,+    suggestionMatch_score,+    suggestionMatch_suggestion,+  )+where++import Amazonka.CloudSearchDomains.Types.Bucket+import Amazonka.CloudSearchDomains.Types.BucketInfo+import Amazonka.CloudSearchDomains.Types.ContentType+import Amazonka.CloudSearchDomains.Types.DocumentServiceWarning+import Amazonka.CloudSearchDomains.Types.FieldStats+import Amazonka.CloudSearchDomains.Types.Hit+import Amazonka.CloudSearchDomains.Types.Hits+import Amazonka.CloudSearchDomains.Types.QueryParser+import Amazonka.CloudSearchDomains.Types.SearchStatus+import Amazonka.CloudSearchDomains.Types.SuggestModel+import Amazonka.CloudSearchDomains.Types.SuggestStatus+import Amazonka.CloudSearchDomains.Types.SuggestionMatch+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2013-01-01@ of the Amazon CloudSearch Domain SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "CloudSearchDomains",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "cloudsearchdomain",+      Core.signingName = "cloudsearch",+      Core.version = "2013-01-01",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error =+        Core.parseJSONError "CloudSearchDomains",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | Information about any problems encountered while processing an upload+-- request.+_DocumentServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DocumentServiceException =+  Core._MatchServiceError+    defaultService+    "DocumentServiceException"++-- | Information about any problems encountered while processing a search+-- request.+_SearchException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SearchException =+  Core._MatchServiceError+    defaultService+    "SearchException"

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.Bucket+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.Bucket where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A container for facet information.+--+-- /See:/ 'newBucket' smart constructor.+data Bucket = Bucket'+  { -- | The number of hits that contain the facet value in the specified facet+    -- field.+    count :: Prelude.Maybe Prelude.Integer,+    -- | The facet value being counted.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Bucket' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'count', 'bucket_count' - The number of hits that contain the facet value in the specified facet+-- field.+--+-- 'value', 'bucket_value' - The facet value being counted.+newBucket ::+  Bucket+newBucket =+  Bucket'+    { count = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The number of hits that contain the facet value in the specified facet+-- field.+bucket_count :: Lens.Lens' Bucket (Prelude.Maybe Prelude.Integer)+bucket_count = Lens.lens (\Bucket' {count} -> count) (\s@Bucket' {} a -> s {count = a} :: Bucket)++-- | The facet value being counted.+bucket_value :: Lens.Lens' Bucket (Prelude.Maybe Prelude.Text)+bucket_value = Lens.lens (\Bucket' {value} -> value) (\s@Bucket' {} a -> s {value = a} :: Bucket)++instance Data.FromJSON Bucket where+  parseJSON =+    Data.withObject+      "Bucket"+      ( \x ->+          Bucket'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "value")+      )++instance Prelude.Hashable Bucket where+  hashWithSalt _salt Bucket' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` value++instance Prelude.NFData Bucket where+  rnf Bucket' {..} =+    Prelude.rnf count `Prelude.seq` Prelude.rnf value

@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.BucketInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.BucketInfo where++import Amazonka.CloudSearchDomains.Types.Bucket+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A container for the calculated facet values and counts.+--+-- /See:/ 'newBucketInfo' smart constructor.+data BucketInfo = BucketInfo'+  { -- | A list of the calculated facet values and counts.+    buckets :: Prelude.Maybe [Bucket]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'BucketInfo' 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:+--+-- 'buckets', 'bucketInfo_buckets' - A list of the calculated facet values and counts.+newBucketInfo ::+  BucketInfo+newBucketInfo =+  BucketInfo' {buckets = Prelude.Nothing}++-- | A list of the calculated facet values and counts.+bucketInfo_buckets :: Lens.Lens' BucketInfo (Prelude.Maybe [Bucket])+bucketInfo_buckets = Lens.lens (\BucketInfo' {buckets} -> buckets) (\s@BucketInfo' {} a -> s {buckets = a} :: BucketInfo) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON BucketInfo where+  parseJSON =+    Data.withObject+      "BucketInfo"+      ( \x ->+          BucketInfo'+            Prelude.<$> (x Data..:? "buckets" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable BucketInfo where+  hashWithSalt _salt BucketInfo' {..} =+    _salt `Prelude.hashWithSalt` buckets++instance Prelude.NFData BucketInfo where+  rnf BucketInfo' {..} = Prelude.rnf buckets

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

@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.DocumentServiceWarning+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.DocumentServiceWarning where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | A warning returned by the document service when an issue is discovered+-- while processing an upload request.+--+-- /See:/ 'newDocumentServiceWarning' smart constructor.+data DocumentServiceWarning = DocumentServiceWarning'+  { -- | The description for a warning returned by the document service.+    message :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DocumentServiceWarning' 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:+--+-- 'message', 'documentServiceWarning_message' - The description for a warning returned by the document service.+newDocumentServiceWarning ::+  DocumentServiceWarning+newDocumentServiceWarning =+  DocumentServiceWarning' {message = Prelude.Nothing}++-- | The description for a warning returned by the document service.+documentServiceWarning_message :: Lens.Lens' DocumentServiceWarning (Prelude.Maybe Prelude.Text)+documentServiceWarning_message = Lens.lens (\DocumentServiceWarning' {message} -> message) (\s@DocumentServiceWarning' {} a -> s {message = a} :: DocumentServiceWarning)++instance Data.FromJSON DocumentServiceWarning where+  parseJSON =+    Data.withObject+      "DocumentServiceWarning"+      ( \x ->+          DocumentServiceWarning'+            Prelude.<$> (x Data..:? "message")+      )++instance Prelude.Hashable DocumentServiceWarning where+  hashWithSalt _salt DocumentServiceWarning' {..} =+    _salt `Prelude.hashWithSalt` message++instance Prelude.NFData DocumentServiceWarning where+  rnf DocumentServiceWarning' {..} = Prelude.rnf message

@@ -0,0 +1,234 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.FieldStats+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.FieldStats where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The statistics for a field calculated in the request.+--+-- /See:/ 'newFieldStats' smart constructor.+data FieldStats = FieldStats'+  { -- | The number of documents that contain a value in the specified field in+    -- the result set.+    count :: Prelude.Maybe Prelude.Integer,+    -- | The maximum value found in the specified field in the result set.+    --+    -- If the field is numeric (@int@, @int-array@, @double@, or+    -- @double-array@), @max@ is the string representation of a+    -- double-precision 64-bit floating point value. If the field is @date@ or+    -- @date-array@, @max@ is the string representation of a date with the+    -- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+    -- yyyy-mm-ddTHH:mm:ss.SSSZ.+    max :: Prelude.Maybe Prelude.Text,+    -- | The average of the values found in the specified field in the result+    -- set.+    --+    -- If the field is numeric (@int@, @int-array@, @double@, or+    -- @double-array@), @mean@ is the string representation of a+    -- double-precision 64-bit floating point value. If the field is @date@ or+    -- @date-array@, @mean@ is the string representation of a date with the+    -- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+    -- yyyy-mm-ddTHH:mm:ss.SSSZ.+    mean :: Prelude.Maybe Prelude.Text,+    -- | The minimum value found in the specified field in the result set.+    --+    -- If the field is numeric (@int@, @int-array@, @double@, or+    -- @double-array@), @min@ is the string representation of a+    -- double-precision 64-bit floating point value. If the field is @date@ or+    -- @date-array@, @min@ is the string representation of a date with the+    -- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+    -- yyyy-mm-ddTHH:mm:ss.SSSZ.+    min :: Prelude.Maybe Prelude.Text,+    -- | The number of documents that do not contain a value in the specified+    -- field in the result set.+    missing :: Prelude.Maybe Prelude.Integer,+    -- | The standard deviation of the values in the specified field in the+    -- result set.+    stddev :: Prelude.Maybe Prelude.Double,+    -- | The sum of the field values across the documents in the result set.+    -- @null@ for date fields.+    sum :: Prelude.Maybe Prelude.Double,+    -- | The sum of all field values in the result set squared.+    sumOfSquares :: Prelude.Maybe Prelude.Double+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'FieldStats' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'count', 'fieldStats_count' - The number of documents that contain a value in the specified field in+-- the result set.+--+-- 'max', 'fieldStats_max' - The maximum value found in the specified field in the result set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @max@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @max@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+--+-- 'mean', 'fieldStats_mean' - The average of the values found in the specified field in the result+-- set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @mean@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @mean@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+--+-- 'min', 'fieldStats_min' - The minimum value found in the specified field in the result set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @min@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @min@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+--+-- 'missing', 'fieldStats_missing' - The number of documents that do not contain a value in the specified+-- field in the result set.+--+-- 'stddev', 'fieldStats_stddev' - The standard deviation of the values in the specified field in the+-- result set.+--+-- 'sum', 'fieldStats_sum' - The sum of the field values across the documents in the result set.+-- @null@ for date fields.+--+-- 'sumOfSquares', 'fieldStats_sumOfSquares' - The sum of all field values in the result set squared.+newFieldStats ::+  FieldStats+newFieldStats =+  FieldStats'+    { count = Prelude.Nothing,+      max = Prelude.Nothing,+      mean = Prelude.Nothing,+      min = Prelude.Nothing,+      missing = Prelude.Nothing,+      stddev = Prelude.Nothing,+      sum = Prelude.Nothing,+      sumOfSquares = Prelude.Nothing+    }++-- | The number of documents that contain a value in the specified field in+-- the result set.+fieldStats_count :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Integer)+fieldStats_count = Lens.lens (\FieldStats' {count} -> count) (\s@FieldStats' {} a -> s {count = a} :: FieldStats)++-- | The maximum value found in the specified field in the result set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @max@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @max@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+fieldStats_max :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Text)+fieldStats_max = Lens.lens (\FieldStats' {max} -> max) (\s@FieldStats' {} a -> s {max = a} :: FieldStats)++-- | The average of the values found in the specified field in the result+-- set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @mean@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @mean@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+fieldStats_mean :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Text)+fieldStats_mean = Lens.lens (\FieldStats' {mean} -> mean) (\s@FieldStats' {} a -> s {mean = a} :: FieldStats)++-- | The minimum value found in the specified field in the result set.+--+-- If the field is numeric (@int@, @int-array@, @double@, or+-- @double-array@), @min@ is the string representation of a+-- double-precision 64-bit floating point value. If the field is @date@ or+-- @date-array@, @min@ is the string representation of a date with the+-- format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339>:+-- yyyy-mm-ddTHH:mm:ss.SSSZ.+fieldStats_min :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Text)+fieldStats_min = Lens.lens (\FieldStats' {min} -> min) (\s@FieldStats' {} a -> s {min = a} :: FieldStats)++-- | The number of documents that do not contain a value in the specified+-- field in the result set.+fieldStats_missing :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Integer)+fieldStats_missing = Lens.lens (\FieldStats' {missing} -> missing) (\s@FieldStats' {} a -> s {missing = a} :: FieldStats)++-- | The standard deviation of the values in the specified field in the+-- result set.+fieldStats_stddev :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Double)+fieldStats_stddev = Lens.lens (\FieldStats' {stddev} -> stddev) (\s@FieldStats' {} a -> s {stddev = a} :: FieldStats)++-- | The sum of the field values across the documents in the result set.+-- @null@ for date fields.+fieldStats_sum :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Double)+fieldStats_sum = Lens.lens (\FieldStats' {sum} -> sum) (\s@FieldStats' {} a -> s {sum = a} :: FieldStats)++-- | The sum of all field values in the result set squared.+fieldStats_sumOfSquares :: Lens.Lens' FieldStats (Prelude.Maybe Prelude.Double)+fieldStats_sumOfSquares = Lens.lens (\FieldStats' {sumOfSquares} -> sumOfSquares) (\s@FieldStats' {} a -> s {sumOfSquares = a} :: FieldStats)++instance Data.FromJSON FieldStats where+  parseJSON =+    Data.withObject+      "FieldStats"+      ( \x ->+          FieldStats'+            Prelude.<$> (x Data..:? "count")+            Prelude.<*> (x Data..:? "max")+            Prelude.<*> (x Data..:? "mean")+            Prelude.<*> (x Data..:? "min")+            Prelude.<*> (x Data..:? "missing")+            Prelude.<*> (x Data..:? "stddev")+            Prelude.<*> (x Data..:? "sum")+            Prelude.<*> (x Data..:? "sumOfSquares")+      )++instance Prelude.Hashable FieldStats where+  hashWithSalt _salt FieldStats' {..} =+    _salt+      `Prelude.hashWithSalt` count+      `Prelude.hashWithSalt` max+      `Prelude.hashWithSalt` mean+      `Prelude.hashWithSalt` min+      `Prelude.hashWithSalt` missing+      `Prelude.hashWithSalt` stddev+      `Prelude.hashWithSalt` sum+      `Prelude.hashWithSalt` sumOfSquares++instance Prelude.NFData FieldStats where+  rnf FieldStats' {..} =+    Prelude.rnf count+      `Prelude.seq` Prelude.rnf max+      `Prelude.seq` Prelude.rnf mean+      `Prelude.seq` Prelude.rnf min+      `Prelude.seq` Prelude.rnf missing+      `Prelude.seq` Prelude.rnf stddev+      `Prelude.seq` Prelude.rnf sum+      `Prelude.seq` Prelude.rnf sumOfSquares

@@ -0,0 +1,111 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.Hit+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.Hit where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Information about a document that matches the search request.+--+-- /See:/ 'newHit' smart constructor.+data Hit = Hit'+  { -- | The expressions returned from a document that matches the search+    -- request.+    exprs :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The fields returned from a document that matches the search request.+    fields :: Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]),+    -- | The highlights returned from a document that matches the search request.+    highlights :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),+    -- | The document ID of a document that matches the search request.+    id :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Hit' 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:+--+-- 'exprs', 'hit_exprs' - The expressions returned from a document that matches the search+-- request.+--+-- 'fields', 'hit_fields' - The fields returned from a document that matches the search request.+--+-- 'highlights', 'hit_highlights' - The highlights returned from a document that matches the search request.+--+-- 'id', 'hit_id' - The document ID of a document that matches the search request.+newHit ::+  Hit+newHit =+  Hit'+    { exprs = Prelude.Nothing,+      fields = Prelude.Nothing,+      highlights = Prelude.Nothing,+      id = Prelude.Nothing+    }++-- | The expressions returned from a document that matches the search+-- request.+hit_exprs :: Lens.Lens' Hit (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+hit_exprs = Lens.lens (\Hit' {exprs} -> exprs) (\s@Hit' {} a -> s {exprs = a} :: Hit) Prelude.. Lens.mapping Lens.coerced++-- | The fields returned from a document that matches the search request.+hit_fields :: Lens.Lens' Hit (Prelude.Maybe (Prelude.HashMap Prelude.Text [Prelude.Text]))+hit_fields = Lens.lens (\Hit' {fields} -> fields) (\s@Hit' {} a -> s {fields = a} :: Hit) Prelude.. Lens.mapping Lens.coerced++-- | The highlights returned from a document that matches the search request.+hit_highlights :: Lens.Lens' Hit (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))+hit_highlights = Lens.lens (\Hit' {highlights} -> highlights) (\s@Hit' {} a -> s {highlights = a} :: Hit) Prelude.. Lens.mapping Lens.coerced++-- | The document ID of a document that matches the search request.+hit_id :: Lens.Lens' Hit (Prelude.Maybe Prelude.Text)+hit_id = Lens.lens (\Hit' {id} -> id) (\s@Hit' {} a -> s {id = a} :: Hit)++instance Data.FromJSON Hit where+  parseJSON =+    Data.withObject+      "Hit"+      ( \x ->+          Hit'+            Prelude.<$> (x Data..:? "exprs" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "fields" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "highlights" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "id")+      )++instance Prelude.Hashable Hit where+  hashWithSalt _salt Hit' {..} =+    _salt+      `Prelude.hashWithSalt` exprs+      `Prelude.hashWithSalt` fields+      `Prelude.hashWithSalt` highlights+      `Prelude.hashWithSalt` id++instance Prelude.NFData Hit where+  rnf Hit' {..} =+    Prelude.rnf exprs+      `Prelude.seq` Prelude.rnf fields+      `Prelude.seq` Prelude.rnf highlights+      `Prelude.seq` Prelude.rnf id

@@ -0,0 +1,112 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.Hits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.Hits where++import Amazonka.CloudSearchDomains.Types.Hit+import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | The collection of documents that match the search request.+--+-- /See:/ 'newHits' smart constructor.+data Hits = Hits'+  { -- | A cursor that can be used to retrieve the next set of matching documents+    -- when you want to page through a large result set.+    cursor :: Prelude.Maybe Prelude.Text,+    -- | The total number of documents that match the search request.+    found :: Prelude.Maybe Prelude.Integer,+    -- | A document that matches the search request.+    hit :: Prelude.Maybe [Hit],+    -- | The index of the first matching document.+    start :: Prelude.Maybe Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Hits' 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:+--+-- 'cursor', 'hits_cursor' - A cursor that can be used to retrieve the next set of matching documents+-- when you want to page through a large result set.+--+-- 'found', 'hits_found' - The total number of documents that match the search request.+--+-- 'hit', 'hits_hit' - A document that matches the search request.+--+-- 'start', 'hits_start' - The index of the first matching document.+newHits ::+  Hits+newHits =+  Hits'+    { cursor = Prelude.Nothing,+      found = Prelude.Nothing,+      hit = Prelude.Nothing,+      start = Prelude.Nothing+    }++-- | A cursor that can be used to retrieve the next set of matching documents+-- when you want to page through a large result set.+hits_cursor :: Lens.Lens' Hits (Prelude.Maybe Prelude.Text)+hits_cursor = Lens.lens (\Hits' {cursor} -> cursor) (\s@Hits' {} a -> s {cursor = a} :: Hits)++-- | The total number of documents that match the search request.+hits_found :: Lens.Lens' Hits (Prelude.Maybe Prelude.Integer)+hits_found = Lens.lens (\Hits' {found} -> found) (\s@Hits' {} a -> s {found = a} :: Hits)++-- | A document that matches the search request.+hits_hit :: Lens.Lens' Hits (Prelude.Maybe [Hit])+hits_hit = Lens.lens (\Hits' {hit} -> hit) (\s@Hits' {} a -> s {hit = a} :: Hits) Prelude.. Lens.mapping Lens.coerced++-- | The index of the first matching document.+hits_start :: Lens.Lens' Hits (Prelude.Maybe Prelude.Integer)+hits_start = Lens.lens (\Hits' {start} -> start) (\s@Hits' {} a -> s {start = a} :: Hits)++instance Data.FromJSON Hits where+  parseJSON =+    Data.withObject+      "Hits"+      ( \x ->+          Hits'+            Prelude.<$> (x Data..:? "cursor")+            Prelude.<*> (x Data..:? "found")+            Prelude.<*> (x Data..:? "hit" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "start")+      )++instance Prelude.Hashable Hits where+  hashWithSalt _salt Hits' {..} =+    _salt+      `Prelude.hashWithSalt` cursor+      `Prelude.hashWithSalt` found+      `Prelude.hashWithSalt` hit+      `Prelude.hashWithSalt` start++instance Prelude.NFData Hits where+  rnf Hits' {..} =+    Prelude.rnf cursor+      `Prelude.seq` Prelude.rnf found+      `Prelude.seq` Prelude.rnf hit+      `Prelude.seq` Prelude.rnf start

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

@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.SearchStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.SearchStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains the resource id (@rid@) and the time it took to process the+-- request (@timems@).+--+-- /See:/ 'newSearchStatus' smart constructor.+data SearchStatus = SearchStatus'+  { -- | The encrypted resource ID for the request.+    rid :: Prelude.Maybe Prelude.Text,+    -- | How long it took to process the request, in milliseconds.+    timems :: Prelude.Maybe Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SearchStatus' 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:+--+-- 'rid', 'searchStatus_rid' - The encrypted resource ID for the request.+--+-- 'timems', 'searchStatus_timems' - How long it took to process the request, in milliseconds.+newSearchStatus ::+  SearchStatus+newSearchStatus =+  SearchStatus'+    { rid = Prelude.Nothing,+      timems = Prelude.Nothing+    }++-- | The encrypted resource ID for the request.+searchStatus_rid :: Lens.Lens' SearchStatus (Prelude.Maybe Prelude.Text)+searchStatus_rid = Lens.lens (\SearchStatus' {rid} -> rid) (\s@SearchStatus' {} a -> s {rid = a} :: SearchStatus)++-- | How long it took to process the request, in milliseconds.+searchStatus_timems :: Lens.Lens' SearchStatus (Prelude.Maybe Prelude.Integer)+searchStatus_timems = Lens.lens (\SearchStatus' {timems} -> timems) (\s@SearchStatus' {} a -> s {timems = a} :: SearchStatus)++instance Data.FromJSON SearchStatus where+  parseJSON =+    Data.withObject+      "SearchStatus"+      ( \x ->+          SearchStatus'+            Prelude.<$> (x Data..:? "rid")+            Prelude.<*> (x Data..:? "timems")+      )++instance Prelude.Hashable SearchStatus where+  hashWithSalt _salt SearchStatus' {..} =+    _salt+      `Prelude.hashWithSalt` rid+      `Prelude.hashWithSalt` timems++instance Prelude.NFData SearchStatus where+  rnf SearchStatus' {..} =+    Prelude.rnf rid `Prelude.seq` Prelude.rnf timems

@@ -0,0 +1,98 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.SuggestModel+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.SuggestModel where++import Amazonka.CloudSearchDomains.Types.SuggestionMatch+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++-- | Container for the suggestion information returned in a+-- @SuggestResponse@.+--+-- /See:/ 'newSuggestModel' smart constructor.+data SuggestModel = SuggestModel'+  { -- | The number of documents that were found to match the query string.+    found :: Prelude.Maybe Prelude.Integer,+    -- | The query string specified in the suggest request.+    query :: Prelude.Maybe Prelude.Text,+    -- | The documents that match the query string.+    suggestions :: Prelude.Maybe [SuggestionMatch]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuggestModel' 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:+--+-- 'found', 'suggestModel_found' - The number of documents that were found to match the query string.+--+-- 'query', 'suggestModel_query' - The query string specified in the suggest request.+--+-- 'suggestions', 'suggestModel_suggestions' - The documents that match the query string.+newSuggestModel ::+  SuggestModel+newSuggestModel =+  SuggestModel'+    { found = Prelude.Nothing,+      query = Prelude.Nothing,+      suggestions = Prelude.Nothing+    }++-- | The number of documents that were found to match the query string.+suggestModel_found :: Lens.Lens' SuggestModel (Prelude.Maybe Prelude.Integer)+suggestModel_found = Lens.lens (\SuggestModel' {found} -> found) (\s@SuggestModel' {} a -> s {found = a} :: SuggestModel)++-- | The query string specified in the suggest request.+suggestModel_query :: Lens.Lens' SuggestModel (Prelude.Maybe Prelude.Text)+suggestModel_query = Lens.lens (\SuggestModel' {query} -> query) (\s@SuggestModel' {} a -> s {query = a} :: SuggestModel)++-- | The documents that match the query string.+suggestModel_suggestions :: Lens.Lens' SuggestModel (Prelude.Maybe [SuggestionMatch])+suggestModel_suggestions = Lens.lens (\SuggestModel' {suggestions} -> suggestions) (\s@SuggestModel' {} a -> s {suggestions = a} :: SuggestModel) Prelude.. Lens.mapping Lens.coerced++instance Data.FromJSON SuggestModel where+  parseJSON =+    Data.withObject+      "SuggestModel"+      ( \x ->+          SuggestModel'+            Prelude.<$> (x Data..:? "found")+            Prelude.<*> (x Data..:? "query")+            Prelude.<*> (x Data..:? "suggestions" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable SuggestModel where+  hashWithSalt _salt SuggestModel' {..} =+    _salt+      `Prelude.hashWithSalt` found+      `Prelude.hashWithSalt` query+      `Prelude.hashWithSalt` suggestions++instance Prelude.NFData SuggestModel where+  rnf SuggestModel' {..} =+    Prelude.rnf found+      `Prelude.seq` Prelude.rnf query+      `Prelude.seq` Prelude.rnf suggestions

@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.SuggestStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.SuggestStatus where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains the resource id (@rid@) and the time it took to process the+-- request (@timems@).+--+-- /See:/ 'newSuggestStatus' smart constructor.+data SuggestStatus = SuggestStatus'+  { -- | The encrypted resource ID for the request.+    rid :: Prelude.Maybe Prelude.Text,+    -- | How long it took to process the request, in milliseconds.+    timems :: Prelude.Maybe Prelude.Integer+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuggestStatus' 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:+--+-- 'rid', 'suggestStatus_rid' - The encrypted resource ID for the request.+--+-- 'timems', 'suggestStatus_timems' - How long it took to process the request, in milliseconds.+newSuggestStatus ::+  SuggestStatus+newSuggestStatus =+  SuggestStatus'+    { rid = Prelude.Nothing,+      timems = Prelude.Nothing+    }++-- | The encrypted resource ID for the request.+suggestStatus_rid :: Lens.Lens' SuggestStatus (Prelude.Maybe Prelude.Text)+suggestStatus_rid = Lens.lens (\SuggestStatus' {rid} -> rid) (\s@SuggestStatus' {} a -> s {rid = a} :: SuggestStatus)++-- | How long it took to process the request, in milliseconds.+suggestStatus_timems :: Lens.Lens' SuggestStatus (Prelude.Maybe Prelude.Integer)+suggestStatus_timems = Lens.lens (\SuggestStatus' {timems} -> timems) (\s@SuggestStatus' {} a -> s {timems = a} :: SuggestStatus)++instance Data.FromJSON SuggestStatus where+  parseJSON =+    Data.withObject+      "SuggestStatus"+      ( \x ->+          SuggestStatus'+            Prelude.<$> (x Data..:? "rid")+            Prelude.<*> (x Data..:? "timems")+      )++instance Prelude.Hashable SuggestStatus where+  hashWithSalt _salt SuggestStatus' {..} =+    _salt+      `Prelude.hashWithSalt` rid+      `Prelude.hashWithSalt` timems++instance Prelude.NFData SuggestStatus where+  rnf SuggestStatus' {..} =+    Prelude.rnf rid `Prelude.seq` Prelude.rnf timems

@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Types.SuggestionMatch+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Types.SuggestionMatch where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | An autocomplete suggestion that matches the query string specified in a+-- @SuggestRequest@.+--+-- /See:/ 'newSuggestionMatch' smart constructor.+data SuggestionMatch = SuggestionMatch'+  { -- | The document ID of the suggested document.+    id :: Prelude.Maybe Prelude.Text,+    -- | The relevance score of a suggested match.+    score :: Prelude.Maybe Prelude.Integer,+    -- | The string that matches the query string specified in the+    -- @SuggestRequest@.+    suggestion :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SuggestionMatch' 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:+--+-- 'id', 'suggestionMatch_id' - The document ID of the suggested document.+--+-- 'score', 'suggestionMatch_score' - The relevance score of a suggested match.+--+-- 'suggestion', 'suggestionMatch_suggestion' - The string that matches the query string specified in the+-- @SuggestRequest@.+newSuggestionMatch ::+  SuggestionMatch+newSuggestionMatch =+  SuggestionMatch'+    { id = Prelude.Nothing,+      score = Prelude.Nothing,+      suggestion = Prelude.Nothing+    }++-- | The document ID of the suggested document.+suggestionMatch_id :: Lens.Lens' SuggestionMatch (Prelude.Maybe Prelude.Text)+suggestionMatch_id = Lens.lens (\SuggestionMatch' {id} -> id) (\s@SuggestionMatch' {} a -> s {id = a} :: SuggestionMatch)++-- | The relevance score of a suggested match.+suggestionMatch_score :: Lens.Lens' SuggestionMatch (Prelude.Maybe Prelude.Integer)+suggestionMatch_score = Lens.lens (\SuggestionMatch' {score} -> score) (\s@SuggestionMatch' {} a -> s {score = a} :: SuggestionMatch)++-- | The string that matches the query string specified in the+-- @SuggestRequest@.+suggestionMatch_suggestion :: Lens.Lens' SuggestionMatch (Prelude.Maybe Prelude.Text)+suggestionMatch_suggestion = Lens.lens (\SuggestionMatch' {suggestion} -> suggestion) (\s@SuggestionMatch' {} a -> s {suggestion = a} :: SuggestionMatch)++instance Data.FromJSON SuggestionMatch where+  parseJSON =+    Data.withObject+      "SuggestionMatch"+      ( \x ->+          SuggestionMatch'+            Prelude.<$> (x Data..:? "id")+            Prelude.<*> (x Data..:? "score")+            Prelude.<*> (x Data..:? "suggestion")+      )++instance Prelude.Hashable SuggestionMatch where+  hashWithSalt _salt SuggestionMatch' {..} =+    _salt+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` score+      `Prelude.hashWithSalt` suggestion++instance Prelude.NFData SuggestionMatch where+  rnf SuggestionMatch' {..} =+    Prelude.rnf id+      `Prelude.seq` Prelude.rnf score+      `Prelude.seq` Prelude.rnf suggestion

@@ -0,0 +1,241 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.UploadDocuments+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Posts a batch of documents to a search domain for indexing. A document+-- batch is a collection of add and delete operations that represent the+-- documents you want to add, update, or delete from your domain. Batches+-- can be described in either JSON or XML. Each item that you want Amazon+-- CloudSearch to return as a search result (such as a product) is+-- represented as a document. Every document has a unique ID and one or+-- more fields that contain the data that you want to search and return in+-- results. Individual documents cannot contain more than 1 MB of data. The+-- entire batch cannot exceed 5 MB. To get the best possible upload+-- performance, group add and delete operations in batches that are close+-- the 5 MB limit. Submitting a large volume of single-document batches can+-- overload a domain\'s document service.+--+-- The endpoint for submitting @UploadDocuments@ requests is+-- domain-specific. To get the document endpoint for your domain, use the+-- Amazon CloudSearch configuration service @DescribeDomains@ action. A+-- domain\'s endpoints are also displayed on the domain dashboard in the+-- Amazon CloudSearch console.+--+-- For more information about formatting your data for Amazon CloudSearch,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/preparing-data.html Preparing Your Data>+-- in the /Amazon CloudSearch Developer Guide/. For more information about+-- uploading data for indexing, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/uploading-data.html Uploading Data>+-- in the /Amazon CloudSearch Developer Guide/.+module Amazonka.CloudSearchDomains.UploadDocuments+  ( -- * Creating a Request+    UploadDocuments (..),+    newUploadDocuments,++    -- * Request Lenses+    uploadDocuments_contentType,+    uploadDocuments_documents,++    -- * Destructuring the Response+    UploadDocumentsResponse (..),+    newUploadDocumentsResponse,++    -- * Response Lenses+    uploadDocumentsResponse_adds,+    uploadDocumentsResponse_deletes,+    uploadDocumentsResponse_status,+    uploadDocumentsResponse_warnings,+    uploadDocumentsResponse_httpStatus,+  )+where++import Amazonka.CloudSearchDomains.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 @UploadDocuments@ request.+--+-- /See:/ 'newUploadDocuments' smart constructor.+data UploadDocuments = UploadDocuments'+  { -- | The format of the batch you are uploading. Amazon CloudSearch supports+    -- two document batch formats:+    --+    -- -   application\/json+    -- -   application\/xml+    contentType :: ContentType,+    -- | A batch of documents formatted in JSON or HTML.+    documents :: Data.HashedBody+  }+  deriving (Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UploadDocuments' 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:+--+-- 'contentType', 'uploadDocuments_contentType' - The format of the batch you are uploading. Amazon CloudSearch supports+-- two document batch formats:+--+-- -   application\/json+-- -   application\/xml+--+-- 'documents', 'uploadDocuments_documents' - A batch of documents formatted in JSON or HTML.+newUploadDocuments ::+  -- | 'contentType'+  ContentType ->+  -- | 'documents'+  Data.HashedBody ->+  UploadDocuments+newUploadDocuments pContentType_ pDocuments_ =+  UploadDocuments'+    { contentType = pContentType_,+      documents = pDocuments_+    }++-- | The format of the batch you are uploading. Amazon CloudSearch supports+-- two document batch formats:+--+-- -   application\/json+-- -   application\/xml+uploadDocuments_contentType :: Lens.Lens' UploadDocuments ContentType+uploadDocuments_contentType = Lens.lens (\UploadDocuments' {contentType} -> contentType) (\s@UploadDocuments' {} a -> s {contentType = a} :: UploadDocuments)++-- | A batch of documents formatted in JSON or HTML.+uploadDocuments_documents :: Lens.Lens' UploadDocuments Data.HashedBody+uploadDocuments_documents = Lens.lens (\UploadDocuments' {documents} -> documents) (\s@UploadDocuments' {} a -> s {documents = a} :: UploadDocuments)++instance Core.AWSRequest UploadDocuments where+  type+    AWSResponse UploadDocuments =+      UploadDocumentsResponse+  request overrides =+    Request.postBody (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UploadDocumentsResponse'+            Prelude.<$> (x Data..?> "adds")+            Prelude.<*> (x Data..?> "deletes")+            Prelude.<*> (x Data..?> "status")+            Prelude.<*> (x Data..?> "warnings" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Data.ToBody UploadDocuments where+  toBody UploadDocuments' {..} = Data.toBody documents++instance Data.ToHeaders UploadDocuments where+  toHeaders UploadDocuments' {..} =+    Prelude.mconcat+      ["Content-Type" Data.=# contentType]++instance Data.ToPath UploadDocuments where+  toPath = Prelude.const "/2013-01-01/documents/batch"++instance Data.ToQuery UploadDocuments where+  toQuery =+    Prelude.const (Prelude.mconcat ["format=sdk"])++-- | Contains the response to an @UploadDocuments@ request.+--+-- /See:/ 'newUploadDocumentsResponse' smart constructor.+data UploadDocumentsResponse = UploadDocumentsResponse'+  { -- | The number of documents that were added to the search domain.+    adds :: Prelude.Maybe Prelude.Integer,+    -- | The number of documents that were deleted from the search domain.+    deletes :: Prelude.Maybe Prelude.Integer,+    -- | The status of an @UploadDocumentsRequest@.+    status :: Prelude.Maybe Prelude.Text,+    -- | Any warnings returned by the document service about the documents being+    -- uploaded.+    warnings :: Prelude.Maybe [DocumentServiceWarning],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UploadDocumentsResponse' 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:+--+-- 'adds', 'uploadDocumentsResponse_adds' - The number of documents that were added to the search domain.+--+-- 'deletes', 'uploadDocumentsResponse_deletes' - The number of documents that were deleted from the search domain.+--+-- 'status', 'uploadDocumentsResponse_status' - The status of an @UploadDocumentsRequest@.+--+-- 'warnings', 'uploadDocumentsResponse_warnings' - Any warnings returned by the document service about the documents being+-- uploaded.+--+-- 'httpStatus', 'uploadDocumentsResponse_httpStatus' - The response's http status code.+newUploadDocumentsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UploadDocumentsResponse+newUploadDocumentsResponse pHttpStatus_ =+  UploadDocumentsResponse'+    { adds = Prelude.Nothing,+      deletes = Prelude.Nothing,+      status = Prelude.Nothing,+      warnings = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The number of documents that were added to the search domain.+uploadDocumentsResponse_adds :: Lens.Lens' UploadDocumentsResponse (Prelude.Maybe Prelude.Integer)+uploadDocumentsResponse_adds = Lens.lens (\UploadDocumentsResponse' {adds} -> adds) (\s@UploadDocumentsResponse' {} a -> s {adds = a} :: UploadDocumentsResponse)++-- | The number of documents that were deleted from the search domain.+uploadDocumentsResponse_deletes :: Lens.Lens' UploadDocumentsResponse (Prelude.Maybe Prelude.Integer)+uploadDocumentsResponse_deletes = Lens.lens (\UploadDocumentsResponse' {deletes} -> deletes) (\s@UploadDocumentsResponse' {} a -> s {deletes = a} :: UploadDocumentsResponse)++-- | The status of an @UploadDocumentsRequest@.+uploadDocumentsResponse_status :: Lens.Lens' UploadDocumentsResponse (Prelude.Maybe Prelude.Text)+uploadDocumentsResponse_status = Lens.lens (\UploadDocumentsResponse' {status} -> status) (\s@UploadDocumentsResponse' {} a -> s {status = a} :: UploadDocumentsResponse)++-- | Any warnings returned by the document service about the documents being+-- uploaded.+uploadDocumentsResponse_warnings :: Lens.Lens' UploadDocumentsResponse (Prelude.Maybe [DocumentServiceWarning])+uploadDocumentsResponse_warnings = Lens.lens (\UploadDocumentsResponse' {warnings} -> warnings) (\s@UploadDocumentsResponse' {} a -> s {warnings = a} :: UploadDocumentsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+uploadDocumentsResponse_httpStatus :: Lens.Lens' UploadDocumentsResponse Prelude.Int+uploadDocumentsResponse_httpStatus = Lens.lens (\UploadDocumentsResponse' {httpStatus} -> httpStatus) (\s@UploadDocumentsResponse' {} a -> s {httpStatus = a} :: UploadDocumentsResponse)++instance Prelude.NFData UploadDocumentsResponse where+  rnf UploadDocumentsResponse' {..} =+    Prelude.rnf adds+      `Prelude.seq` Prelude.rnf deletes+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf warnings+      `Prelude.seq` Prelude.rnf httpStatus

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.CloudSearchDomains.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.CloudSearchDomains.Waiters where++import Amazonka.CloudSearchDomains.Lens+import Amazonka.CloudSearchDomains.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

@@ -1,163 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ You use the AmazonCloudSearch2013 API to upload documents to a search domain and search those documents.--------- The endpoints for submitting @UploadDocuments@ , @Search@ , and @Suggest@ requests are domain-specific. To get the endpoints for your domain, use the Amazon CloudSearch configuration service @DescribeDomains@ action. The domain endpoints are also displayed on the domain dashboard in the Amazon CloudSearch console. You submit suggest requests to the search endpoint.------ For more information, see the <http://docs.aws.amazon.com/cloudsearch/latest/developerguide Amazon CloudSearch Developer Guide> .----module Network.AWS.CloudSearchDomains-    (-    -- * Service Configuration-      cloudSearchDomains--    -- * Errors-    -- $errors--    -- ** DocumentServiceException-    , _DocumentServiceException--    -- ** SearchException-    , _SearchException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** Suggest-    , module Network.AWS.CloudSearchDomains.Suggest--    -- ** UploadDocuments-    , module Network.AWS.CloudSearchDomains.UploadDocuments--    -- ** Search-    , module Network.AWS.CloudSearchDomains.Search--    -- * Types--    -- ** ContentType-    , ContentType (..)--    -- ** QueryParser-    , QueryParser (..)--    -- ** Bucket-    , Bucket-    , bucket-    , bValue-    , bCount--    -- ** BucketInfo-    , BucketInfo-    , bucketInfo-    , biBuckets--    -- ** DocumentServiceWarning-    , DocumentServiceWarning-    , documentServiceWarning-    , dswMessage--    -- ** FieldStats-    , FieldStats-    , fieldStats-    , fsMax-    , fsMean-    , fsCount-    , fsMissing-    , fsStddev-    , fsMin-    , fsSumOfSquares-    , fsSum--    -- ** Hit-    , Hit-    , hit-    , hitExprs-    , hitId-    , hitHighlights-    , hitFields--    -- ** Hits-    , Hits-    , hits-    , hCursor-    , hHit-    , hStart-    , hFound--    -- ** SearchStatus-    , SearchStatus-    , searchStatus-    , sRid-    , sTimems--    -- ** SuggestModel-    , SuggestModel-    , suggestModel-    , smFound-    , smSuggestions-    , smQuery--    -- ** SuggestStatus-    , SuggestStatus-    , suggestStatus-    , ssRid-    , ssTimems--    -- ** SuggestionMatch-    , SuggestionMatch-    , suggestionMatch-    , smSuggestion-    , smScore-    , smId-    ) where--import Network.AWS.CloudSearchDomains.Search-import Network.AWS.CloudSearchDomains.Suggest-import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.UploadDocuments-import Network.AWS.CloudSearchDomains.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 'CloudSearchDomains'.--}--{- $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.--}

@@ -1,300 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Search--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves a list of documents that match the specified search criteria. How you specify the search criteria depends on which query parser you use. Amazon CloudSearch supports four query parsers:---------     * @simple@ : search all @text@ and @text-array@ fields for the specified string. Search for phrases, individual terms, and prefixes.     * @structured@ : search specific fields, construct compound queries using Boolean operators, and use advanced features such as term boosting and proximity searching.    * @lucene@ : specify search criteria using the Apache Lucene query parser syntax.    * @dismax@ : specify search criteria using the simplified subset of the Apache Lucene query parser syntax defined by the DisMax query parser.------ For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data> in the /Amazon CloudSearch Developer Guide/ .------ The endpoint for submitting @Search@ requests is domain-specific. You submit search requests to a domain's search endpoint. To get the search endpoint for your domain, use the Amazon CloudSearch configuration service @DescribeDomains@ action. A domain's endpoints are also displayed on the domain dashboard in the Amazon CloudSearch console.----module Network.AWS.CloudSearchDomains.Search-    (-    -- * Creating a Request-      search-    , Search-    -- * Request Lenses-    , seaExpr-    , seaCursor-    , seaReturn-    , seaQueryOptions-    , seaFilterQuery-    , seaSize-    , seaQueryParser-    , seaStart-    , seaHighlight-    , seaStats-    , seaSort-    , seaFacet-    , seaPartial-    , seaQuery--    -- * Destructuring the Response-    , searchResponse-    , SearchResponse-    -- * Response Lenses-    , searsStatus-    , searsFacets-    , searsStats-    , searsHits-    , searsResponseStatus-    ) where--import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Container for the parameters to the @Search@ request.------------ /See:/ 'search' smart constructor.-data Search = Search'-  { _seaExpr         :: !(Maybe Text)-  , _seaCursor       :: !(Maybe Text)-  , _seaReturn       :: !(Maybe Text)-  , _seaQueryOptions :: !(Maybe Text)-  , _seaFilterQuery  :: !(Maybe Text)-  , _seaSize         :: !(Maybe Integer)-  , _seaQueryParser  :: !(Maybe QueryParser)-  , _seaStart        :: !(Maybe Integer)-  , _seaHighlight    :: !(Maybe Text)-  , _seaStats        :: !(Maybe Text)-  , _seaSort         :: !(Maybe Text)-  , _seaFacet        :: !(Maybe Text)-  , _seaPartial      :: !(Maybe Bool)-  , _seaQuery        :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Search' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'seaExpr' - Defines one or more numeric expressions that can be used to sort results or specify search or filter criteria. You can also specify expressions as return fields.  You specify the expressions in JSON using the form @{"EXPRESSIONNAME":"EXPRESSION"}@ . You can define and use multiple expressions in a search request. For example: @{"expression1":"_score*rating", "expression2":"(1/rank)*year"} @  For information about the variables, operators, and functions you can use in expressions, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaCursor' - Retrieves a cursor value you can use to page through large result sets. Use the @size@ parameter to control the number of hits to include in each response. You can specify either the @cursor@ or @start@ parameter in a request; they are mutually exclusive. To get the first cursor, set the cursor value to @initial@ . In subsequent requests, specify the cursor value returned in the hits section of the response.  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaReturn' - Specifies the field and expression values to include in the response. Multiple fields or expressions are specified as a comma-separated list. By default, a search response includes all return enabled fields (@_all_fields@ ). To return only the document IDs for the matching documents, specify @_no_fields@ . To retrieve the relevance score calculated for each document, specify @_score@ .------ * 'seaQueryOptions' - Configures options for the query parser specified in the @queryParser@ parameter. You specify the options in JSON using the following form @{"OPTION1":"VALUE1","OPTION2":VALUE2"..."OPTIONN":"VALUEN"}.@  The options you can configure vary according to which parser you use:     * @defaultOperator@ : The default operator used to combine individual terms in the search string. For example: @defaultOperator: 'or'@ . For the @dismax@ parser, you specify a percentage that represents the percentage of terms in the search string (rounded down) that must match, rather than a default operator. A value of @0%@ is the equivalent to OR, and a value of @100%@ is equivalent to AND. The percentage must be specified as a value in the range 0-100 followed by the percent (%) symbol. For example, @defaultOperator: 50%@ . Valid values: @and@ , @or@ , a percentage in the range 0%-100% (@dismax@ ). Default: @and@ (@simple@ , @structured@ , @lucene@ ) or @100@ (@dismax@ ). Valid for: @simple@ , @structured@ , @lucene@ , and @dismax@ .    * @fields@ : An array of the fields to search when no fields are specified in a search. If no fields are specified in a search and this option is not specified, all text and text-array fields are searched. You can specify a weight for each field to control the relative importance of each field when Amazon CloudSearch calculates relevance scores. To specify a field weight, append a caret (@^@ ) symbol and the weight to the field name. For example, to boost the importance of the @title@ field over the @description@ field you could specify: @"fields":["title^5","description"]@ . Valid values: The name of any configured field and an optional numeric value greater than zero. Default: All @text@ and @text-array@ fields. Valid for: @simple@ , @structured@ , @lucene@ , and @dismax@ .    * @operators@ : An array of the operators or special characters you want to disable for the simple query parser. If you disable the @and@ , @or@ , or @not@ operators, the corresponding operators (@+@ , @|@ , @-@ ) have no special meaning and are dropped from the search string. Similarly, disabling @prefix@ disables the wildcard operator (@*@ ) and disabling @phrase@ disables the ability to search for phrases by enclosing phrases in double quotes. Disabling precedence disables the ability to control order of precedence using parentheses. Disabling @near@ disables the ability to use the ~ operator to perform a sloppy phrase search. Disabling the @fuzzy@ operator disables the ability to use the ~ operator to perform a fuzzy search. @escape@ disables the ability to use a backslash (@\@ ) to escape special characters within the search string. Disabling whitespace is an advanced option that prevents the parser from tokenizing on whitespace, which can be useful for Vietnamese. (It prevents Vietnamese words from being split incorrectly.) For example, you could disable all operators other than the phrase operator to support just simple term and phrase queries: @"operators":["and","not","or", "prefix"]@ . Valid values: @and@ , @escape@ , @fuzzy@ , @near@ , @not@ , @or@ , @phrase@ , @precedence@ , @prefix@ , @whitespace@ . Default: All operators and special characters are enabled. Valid for: @simple@ .    * @phraseFields@ : An array of the @text@ or @text-array@ fields you want to use for phrase searches. When the terms in the search string appear in close proximity within a field, the field scores higher. You can specify a weight for each field to boost that score. The @phraseSlop@ option controls how much the matches can deviate from the search string and still be boosted. To specify a field weight, append a caret (@^@ ) symbol and the weight to the field name. For example, to boost phrase matches in the @title@ field over the @abstract@ field, you could specify: @"phraseFields":["title^3", "plot"]@ Valid values: The name of any @text@ or @text-array@ field and an optional numeric value greater than zero. Default: No fields. If you don't specify any fields with @phraseFields@ , proximity scoring is disabled even if @phraseSlop@ is specified. Valid for: @dismax@ .    * @phraseSlop@ : An integer value that specifies how much matches can deviate from the search phrase and still be boosted according to the weights specified in the @phraseFields@ option; for example, @phraseSlop: 2@ . You must also specify @phraseFields@ to enable proximity scoring. Valid values: positive integers. Default: 0. Valid for: @dismax@ .    * @explicitPhraseSlop@ : An integer value that specifies how much a match can deviate from the search phrase when the phrase is enclosed in double quotes in the search string. (Phrases that exceed this proximity distance are not considered a match.) For example, to specify a slop of three for dismax phrase queries, you would specify @"explicitPhraseSlop":3@ . Valid values: positive integers. Default: 0. Valid for: @dismax@ .    * @tieBreaker@ : When a term in the search string is found in a document's field, a score is calculated for that field based on how common the word is in that field compared to other documents. If the term occurs in multiple fields within a document, by default only the highest scoring field contributes to the document's overall score. You can specify a @tieBreaker@ value to enable the matches in lower-scoring fields to contribute to the document's score. That way, if two documents have the same max field score for a particular term, the score for the document that has matches in more fields will be higher. The formula for calculating the score with a tieBreaker is @(max field score) + (tieBreaker) * (sum of the scores for the rest of the matching fields)@ . Set @tieBreaker@ to 0 to disregard all but the highest scoring field (pure max): @"tieBreaker":0@ . Set to 1 to sum the scores from all fields (pure sum): @"tieBreaker":1@ . Valid values: 0.0 to 1.0. Default: 0.0. Valid for: @dismax@ .------ * 'seaFilterQuery' - Specifies a structured query that filters the results of a search without affecting how the results are scored and sorted. You use @filterQuery@ in conjunction with the @query@ parameter to filter the documents that match the constraints specified in the @query@ parameter. Specifying a filter controls only which matching documents are included in the results, it has no effect on how they are scored and sorted. The @filterQuery@ parameter supports the full structured query syntax.  For more information about using filters, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/filtering-results.html Filtering Matching Documents> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaSize' - Specifies the maximum number of search hits to include in the response.------ * 'seaQueryParser' - Specifies which query parser to use to process the request. If @queryParser@ is not specified, Amazon CloudSearch uses the @simple@ query parser.  Amazon CloudSearch supports four query parsers:     * @simple@ : perform simple searches of @text@ and @text-array@ fields. By default, the @simple@ query parser searches all @text@ and @text-array@ fields. You can specify which fields to search by with the @queryOptions@ parameter. If you prefix a search term with a plus sign (+) documents must contain the term to be considered a match. (This is the default, unless you configure the default operator with the @queryOptions@ parameter.) You can use the @-@ (NOT), @|@ (OR), and @*@ (wildcard) operators to exclude particular terms, find results that match any of the specified terms, or search for a prefix. To search for a phrase rather than individual terms, enclose the phrase in double quotes. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-text.html Searching for Text> in the /Amazon CloudSearch Developer Guide/ .     * @structured@ : perform advanced searches by combining multiple expressions to define the search criteria. You can also search within particular fields, search for values and ranges of values, and use advanced options such as term boosting, @matchall@ , and @near@ . For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-compound-queries.html Constructing Compound Queries> in the /Amazon CloudSearch Developer Guide/ .     * @lucene@ : search using the Apache Lucene query parser syntax. For more information, see <http://lucene.apache.org/core/4_6_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description Apache Lucene Query Parser Syntax> .     * @dismax@ : search using the simplified subset of the Apache Lucene query parser syntax defined by the DisMax query parser. For more information, see <http://wiki.apache.org/solr/DisMaxQParserPlugin#Query_Syntax DisMax Query Parser Syntax> .------ * 'seaStart' - Specifies the offset of the first search hit you want to return. Note that the result set is zero-based; the first result is at index 0. You can specify either the @start@ or @cursor@ parameter in a request, they are mutually exclusive.  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaHighlight' - Retrieves highlights for matches in the specified @text@ or @text-array@ fields. Each specified field must be highlight enabled in the domain configuration. The fields and options are specified in JSON using the form @{"FIELD":{"OPTION":VALUE,"OPTION:"STRING"},"FIELD":{"OPTION":VALUE,"OPTION":"STRING"}}@ . You can specify the following highlight options:     * @format@ : specifies the format of the data in the text field: @text@ or @html@ . When data is returned as HTML, all non-alphanumeric characters are encoded. The default is @html@ .     * @max_phrases@ : specifies the maximum number of occurrences of the search term(s) you want to highlight. By default, the first occurrence is highlighted.     * @pre_tag@ : specifies the string to prepend to an occurrence of a search term. The default for HTML highlights is @&lt;em&gt;@ . The default for text highlights is @*@ .     * @post_tag@ : specifies the string to append to an occurrence of a search term. The default for HTML highlights is @&lt;/em&gt;@ . The default for text highlights is @*@ .  If no highlight options are specified for a field, the returned field text is treated as HTML and the first match is highlighted with emphasis tags: @&lt;em>search-term&lt;/em&gt;@ . For example, the following request retrieves highlights for the @actors@ and @title@ fields. @{ "actors": {}, "title": {"format": "text","max_phrases": 2,"pre_tag": "__","post_tag": "__ "} }@------ * 'seaStats' - Specifies one or more fields for which to get statistics information. Each specified field must be facet-enabled in the domain configuration. The fields are specified in JSON using the form: @{"FIELD-A":{},"FIELD-B":{}}@ There are currently no options supported for statistics.------ * 'seaSort' - Specifies the fields or custom expressions to use to sort the search results. Multiple fields or expressions are specified as a comma-separated list. You must specify the sort direction (@asc@ or @desc@ ) for each field; for example, @year desc,title asc@ . To use a field to sort results, the field must be sort-enabled in the domain configuration. Array type fields cannot be used for sorting. If no @sort@ parameter is specified, results are sorted by their default relevance scores in descending order: @_score desc@ . You can also sort by document ID (@_id asc@ ) and version (@_version desc@ ). For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/sorting-results.html Sorting Results> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaFacet' - Specifies one or more fields for which to get facet information, and options that control how the facet information is returned. Each specified field must be facet-enabled in the domain configuration. The fields and options are specified in JSON using the form @{"FIELD":{"OPTION":VALUE,"OPTION:"STRING"},"FIELD":{"OPTION":VALUE,"OPTION":"STRING"}}@ . You can specify the following faceting options:     * @buckets@ specifies an array of the facet values or ranges to count. Ranges are specified using the same syntax that you use to search for a range of values. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-ranges.html Searching for a Range of Values> in the /Amazon CloudSearch Developer Guide/ . Buckets are returned in the order they are specified in the request. The @sort@ and @size@ options are not valid if you specify @buckets@ .     * @size@ specifies the maximum number of facets to include in the results. By default, Amazon CloudSearch returns counts for the top 10. The @size@ parameter is only valid when you specify the @sort@ option; it cannot be used in conjunction with @buckets@ .     * @sort@ specifies how you want to sort the facets in the results: @bucket@ or @count@ . Specify @bucket@ to sort alphabetically or numerically by facet value (in ascending order). Specify @count@ to sort by the facet counts computed for each facet value (in descending order). To retrieve facet counts for particular values or ranges of values, use the @buckets@ option instead of @sort@ .  If no facet options are specified, facet counts are computed for all field values, the facets are sorted by facet count, and the top 10 facets are returned in the results. To count particular buckets of values, use the @buckets@ option. For example, the following request uses the @buckets@ option to calculate and return facet counts by decade. @{"year":{"buckets":["[1970,1979]","[1980,1989]","[1990,1999]","[2000,2009]","[2010,}"]}} @  To sort facets by facet count, use the @count@ option. For example, the following request sets the @sort@ option to @count@ to sort the facet values by facet count, with the facet values that have the most matching documents listed first. Setting the @size@ option to 3 returns only the top three facet values. @{"year":{"sort":"count","size":3}} @  To sort the facets by value, use the @bucket@ option. For example, the following request sets the @sort@ option to @bucket@ to sort the facet values numerically by year, with earliest year listed first.  @{"year":{"sort":"bucket"}} @  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/faceting.html Getting and Using Facet Information> in the /Amazon CloudSearch Developer Guide/ .------ * 'seaPartial' - Enables partial results to be returned if one or more index partitions are unavailable. When your search index is partitioned across multiple search instances, by default Amazon CloudSearch only returns results if every partition can be queried. This means that the failure of a single search instance can result in 5xx (internal server) errors. When you enable partial results, Amazon CloudSearch returns whatever results are available and includes the percentage of documents searched in the search results (percent-searched). This enables you to more gracefully degrade your users' search experience. For example, rather than displaying no results, you could display the partial results and a message indicating that the results might be incomplete due to a temporary system outage.------ * 'seaQuery' - Specifies the search criteria for the request. How you specify the search criteria depends on the query parser used for the request and the parser options specified in the @queryOptions@ parameter. By default, the @simple@ query parser is used to process requests. To use the @structured@ , @lucene@ , or @dismax@ query parser, you must also specify the @queryParser@ parameter.  For more information about specifying search criteria, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data> in the /Amazon CloudSearch Developer Guide/ .-search-    :: Text -- ^ 'seaQuery'-    -> Search-search pQuery_ =-  Search'-    { _seaExpr = Nothing-    , _seaCursor = Nothing-    , _seaReturn = Nothing-    , _seaQueryOptions = Nothing-    , _seaFilterQuery = Nothing-    , _seaSize = Nothing-    , _seaQueryParser = Nothing-    , _seaStart = Nothing-    , _seaHighlight = Nothing-    , _seaStats = Nothing-    , _seaSort = Nothing-    , _seaFacet = Nothing-    , _seaPartial = Nothing-    , _seaQuery = pQuery_-    }----- | Defines one or more numeric expressions that can be used to sort results or specify search or filter criteria. You can also specify expressions as return fields.  You specify the expressions in JSON using the form @{"EXPRESSIONNAME":"EXPRESSION"}@ . You can define and use multiple expressions in a search request. For example: @{"expression1":"_score*rating", "expression2":"(1/rank)*year"} @  For information about the variables, operators, and functions you can use in expressions, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html#writing-expressions Writing Expressions> in the /Amazon CloudSearch Developer Guide/ .-seaExpr :: Lens' Search (Maybe Text)-seaExpr = lens _seaExpr (\ s a -> s{_seaExpr = a})---- | Retrieves a cursor value you can use to page through large result sets. Use the @size@ parameter to control the number of hits to include in each response. You can specify either the @cursor@ or @start@ parameter in a request; they are mutually exclusive. To get the first cursor, set the cursor value to @initial@ . In subsequent requests, specify the cursor value returned in the hits section of the response.  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results> in the /Amazon CloudSearch Developer Guide/ .-seaCursor :: Lens' Search (Maybe Text)-seaCursor = lens _seaCursor (\ s a -> s{_seaCursor = a})---- | Specifies the field and expression values to include in the response. Multiple fields or expressions are specified as a comma-separated list. By default, a search response includes all return enabled fields (@_all_fields@ ). To return only the document IDs for the matching documents, specify @_no_fields@ . To retrieve the relevance score calculated for each document, specify @_score@ .-seaReturn :: Lens' Search (Maybe Text)-seaReturn = lens _seaReturn (\ s a -> s{_seaReturn = a})---- | Configures options for the query parser specified in the @queryParser@ parameter. You specify the options in JSON using the following form @{"OPTION1":"VALUE1","OPTION2":VALUE2"..."OPTIONN":"VALUEN"}.@  The options you can configure vary according to which parser you use:     * @defaultOperator@ : The default operator used to combine individual terms in the search string. For example: @defaultOperator: 'or'@ . For the @dismax@ parser, you specify a percentage that represents the percentage of terms in the search string (rounded down) that must match, rather than a default operator. A value of @0%@ is the equivalent to OR, and a value of @100%@ is equivalent to AND. The percentage must be specified as a value in the range 0-100 followed by the percent (%) symbol. For example, @defaultOperator: 50%@ . Valid values: @and@ , @or@ , a percentage in the range 0%-100% (@dismax@ ). Default: @and@ (@simple@ , @structured@ , @lucene@ ) or @100@ (@dismax@ ). Valid for: @simple@ , @structured@ , @lucene@ , and @dismax@ .    * @fields@ : An array of the fields to search when no fields are specified in a search. If no fields are specified in a search and this option is not specified, all text and text-array fields are searched. You can specify a weight for each field to control the relative importance of each field when Amazon CloudSearch calculates relevance scores. To specify a field weight, append a caret (@^@ ) symbol and the weight to the field name. For example, to boost the importance of the @title@ field over the @description@ field you could specify: @"fields":["title^5","description"]@ . Valid values: The name of any configured field and an optional numeric value greater than zero. Default: All @text@ and @text-array@ fields. Valid for: @simple@ , @structured@ , @lucene@ , and @dismax@ .    * @operators@ : An array of the operators or special characters you want to disable for the simple query parser. If you disable the @and@ , @or@ , or @not@ operators, the corresponding operators (@+@ , @|@ , @-@ ) have no special meaning and are dropped from the search string. Similarly, disabling @prefix@ disables the wildcard operator (@*@ ) and disabling @phrase@ disables the ability to search for phrases by enclosing phrases in double quotes. Disabling precedence disables the ability to control order of precedence using parentheses. Disabling @near@ disables the ability to use the ~ operator to perform a sloppy phrase search. Disabling the @fuzzy@ operator disables the ability to use the ~ operator to perform a fuzzy search. @escape@ disables the ability to use a backslash (@\@ ) to escape special characters within the search string. Disabling whitespace is an advanced option that prevents the parser from tokenizing on whitespace, which can be useful for Vietnamese. (It prevents Vietnamese words from being split incorrectly.) For example, you could disable all operators other than the phrase operator to support just simple term and phrase queries: @"operators":["and","not","or", "prefix"]@ . Valid values: @and@ , @escape@ , @fuzzy@ , @near@ , @not@ , @or@ , @phrase@ , @precedence@ , @prefix@ , @whitespace@ . Default: All operators and special characters are enabled. Valid for: @simple@ .    * @phraseFields@ : An array of the @text@ or @text-array@ fields you want to use for phrase searches. When the terms in the search string appear in close proximity within a field, the field scores higher. You can specify a weight for each field to boost that score. The @phraseSlop@ option controls how much the matches can deviate from the search string and still be boosted. To specify a field weight, append a caret (@^@ ) symbol and the weight to the field name. For example, to boost phrase matches in the @title@ field over the @abstract@ field, you could specify: @"phraseFields":["title^3", "plot"]@ Valid values: The name of any @text@ or @text-array@ field and an optional numeric value greater than zero. Default: No fields. If you don't specify any fields with @phraseFields@ , proximity scoring is disabled even if @phraseSlop@ is specified. Valid for: @dismax@ .    * @phraseSlop@ : An integer value that specifies how much matches can deviate from the search phrase and still be boosted according to the weights specified in the @phraseFields@ option; for example, @phraseSlop: 2@ . You must also specify @phraseFields@ to enable proximity scoring. Valid values: positive integers. Default: 0. Valid for: @dismax@ .    * @explicitPhraseSlop@ : An integer value that specifies how much a match can deviate from the search phrase when the phrase is enclosed in double quotes in the search string. (Phrases that exceed this proximity distance are not considered a match.) For example, to specify a slop of three for dismax phrase queries, you would specify @"explicitPhraseSlop":3@ . Valid values: positive integers. Default: 0. Valid for: @dismax@ .    * @tieBreaker@ : When a term in the search string is found in a document's field, a score is calculated for that field based on how common the word is in that field compared to other documents. If the term occurs in multiple fields within a document, by default only the highest scoring field contributes to the document's overall score. You can specify a @tieBreaker@ value to enable the matches in lower-scoring fields to contribute to the document's score. That way, if two documents have the same max field score for a particular term, the score for the document that has matches in more fields will be higher. The formula for calculating the score with a tieBreaker is @(max field score) + (tieBreaker) * (sum of the scores for the rest of the matching fields)@ . Set @tieBreaker@ to 0 to disregard all but the highest scoring field (pure max): @"tieBreaker":0@ . Set to 1 to sum the scores from all fields (pure sum): @"tieBreaker":1@ . Valid values: 0.0 to 1.0. Default: 0.0. Valid for: @dismax@ .-seaQueryOptions :: Lens' Search (Maybe Text)-seaQueryOptions = lens _seaQueryOptions (\ s a -> s{_seaQueryOptions = a})---- | Specifies a structured query that filters the results of a search without affecting how the results are scored and sorted. You use @filterQuery@ in conjunction with the @query@ parameter to filter the documents that match the constraints specified in the @query@ parameter. Specifying a filter controls only which matching documents are included in the results, it has no effect on how they are scored and sorted. The @filterQuery@ parameter supports the full structured query syntax.  For more information about using filters, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/filtering-results.html Filtering Matching Documents> in the /Amazon CloudSearch Developer Guide/ .-seaFilterQuery :: Lens' Search (Maybe Text)-seaFilterQuery = lens _seaFilterQuery (\ s a -> s{_seaFilterQuery = a})---- | Specifies the maximum number of search hits to include in the response.-seaSize :: Lens' Search (Maybe Integer)-seaSize = lens _seaSize (\ s a -> s{_seaSize = a})---- | Specifies which query parser to use to process the request. If @queryParser@ is not specified, Amazon CloudSearch uses the @simple@ query parser.  Amazon CloudSearch supports four query parsers:     * @simple@ : perform simple searches of @text@ and @text-array@ fields. By default, the @simple@ query parser searches all @text@ and @text-array@ fields. You can specify which fields to search by with the @queryOptions@ parameter. If you prefix a search term with a plus sign (+) documents must contain the term to be considered a match. (This is the default, unless you configure the default operator with the @queryOptions@ parameter.) You can use the @-@ (NOT), @|@ (OR), and @*@ (wildcard) operators to exclude particular terms, find results that match any of the specified terms, or search for a prefix. To search for a phrase rather than individual terms, enclose the phrase in double quotes. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-text.html Searching for Text> in the /Amazon CloudSearch Developer Guide/ .     * @structured@ : perform advanced searches by combining multiple expressions to define the search criteria. You can also search within particular fields, search for values and ranges of values, and use advanced options such as term boosting, @matchall@ , and @near@ . For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-compound-queries.html Constructing Compound Queries> in the /Amazon CloudSearch Developer Guide/ .     * @lucene@ : search using the Apache Lucene query parser syntax. For more information, see <http://lucene.apache.org/core/4_6_0/queryparser/org/apache/lucene/queryparser/classic/package-summary.html#package_description Apache Lucene Query Parser Syntax> .     * @dismax@ : search using the simplified subset of the Apache Lucene query parser syntax defined by the DisMax query parser. For more information, see <http://wiki.apache.org/solr/DisMaxQParserPlugin#Query_Syntax DisMax Query Parser Syntax> .-seaQueryParser :: Lens' Search (Maybe QueryParser)-seaQueryParser = lens _seaQueryParser (\ s a -> s{_seaQueryParser = a})---- | Specifies the offset of the first search hit you want to return. Note that the result set is zero-based; the first result is at index 0. You can specify either the @start@ or @cursor@ parameter in a request, they are mutually exclusive.  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/paginating-results.html Paginating Results> in the /Amazon CloudSearch Developer Guide/ .-seaStart :: Lens' Search (Maybe Integer)-seaStart = lens _seaStart (\ s a -> s{_seaStart = a})---- | Retrieves highlights for matches in the specified @text@ or @text-array@ fields. Each specified field must be highlight enabled in the domain configuration. The fields and options are specified in JSON using the form @{"FIELD":{"OPTION":VALUE,"OPTION:"STRING"},"FIELD":{"OPTION":VALUE,"OPTION":"STRING"}}@ . You can specify the following highlight options:     * @format@ : specifies the format of the data in the text field: @text@ or @html@ . When data is returned as HTML, all non-alphanumeric characters are encoded. The default is @html@ .     * @max_phrases@ : specifies the maximum number of occurrences of the search term(s) you want to highlight. By default, the first occurrence is highlighted.     * @pre_tag@ : specifies the string to prepend to an occurrence of a search term. The default for HTML highlights is @&lt;em&gt;@ . The default for text highlights is @*@ .     * @post_tag@ : specifies the string to append to an occurrence of a search term. The default for HTML highlights is @&lt;/em&gt;@ . The default for text highlights is @*@ .  If no highlight options are specified for a field, the returned field text is treated as HTML and the first match is highlighted with emphasis tags: @&lt;em>search-term&lt;/em&gt;@ . For example, the following request retrieves highlights for the @actors@ and @title@ fields. @{ "actors": {}, "title": {"format": "text","max_phrases": 2,"pre_tag": "__","post_tag": "__ "} }@-seaHighlight :: Lens' Search (Maybe Text)-seaHighlight = lens _seaHighlight (\ s a -> s{_seaHighlight = a})---- | Specifies one or more fields for which to get statistics information. Each specified field must be facet-enabled in the domain configuration. The fields are specified in JSON using the form: @{"FIELD-A":{},"FIELD-B":{}}@ There are currently no options supported for statistics.-seaStats :: Lens' Search (Maybe Text)-seaStats = lens _seaStats (\ s a -> s{_seaStats = a})---- | Specifies the fields or custom expressions to use to sort the search results. Multiple fields or expressions are specified as a comma-separated list. You must specify the sort direction (@asc@ or @desc@ ) for each field; for example, @year desc,title asc@ . To use a field to sort results, the field must be sort-enabled in the domain configuration. Array type fields cannot be used for sorting. If no @sort@ parameter is specified, results are sorted by their default relevance scores in descending order: @_score desc@ . You can also sort by document ID (@_id asc@ ) and version (@_version desc@ ). For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/sorting-results.html Sorting Results> in the /Amazon CloudSearch Developer Guide/ .-seaSort :: Lens' Search (Maybe Text)-seaSort = lens _seaSort (\ s a -> s{_seaSort = a})---- | Specifies one or more fields for which to get facet information, and options that control how the facet information is returned. Each specified field must be facet-enabled in the domain configuration. The fields and options are specified in JSON using the form @{"FIELD":{"OPTION":VALUE,"OPTION:"STRING"},"FIELD":{"OPTION":VALUE,"OPTION":"STRING"}}@ . You can specify the following faceting options:     * @buckets@ specifies an array of the facet values or ranges to count. Ranges are specified using the same syntax that you use to search for a range of values. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching-ranges.html Searching for a Range of Values> in the /Amazon CloudSearch Developer Guide/ . Buckets are returned in the order they are specified in the request. The @sort@ and @size@ options are not valid if you specify @buckets@ .     * @size@ specifies the maximum number of facets to include in the results. By default, Amazon CloudSearch returns counts for the top 10. The @size@ parameter is only valid when you specify the @sort@ option; it cannot be used in conjunction with @buckets@ .     * @sort@ specifies how you want to sort the facets in the results: @bucket@ or @count@ . Specify @bucket@ to sort alphabetically or numerically by facet value (in ascending order). Specify @count@ to sort by the facet counts computed for each facet value (in descending order). To retrieve facet counts for particular values or ranges of values, use the @buckets@ option instead of @sort@ .  If no facet options are specified, facet counts are computed for all field values, the facets are sorted by facet count, and the top 10 facets are returned in the results. To count particular buckets of values, use the @buckets@ option. For example, the following request uses the @buckets@ option to calculate and return facet counts by decade. @{"year":{"buckets":["[1970,1979]","[1980,1989]","[1990,1999]","[2000,2009]","[2010,}"]}} @  To sort facets by facet count, use the @count@ option. For example, the following request sets the @sort@ option to @count@ to sort the facet values by facet count, with the facet values that have the most matching documents listed first. Setting the @size@ option to 3 returns only the top three facet values. @{"year":{"sort":"count","size":3}} @  To sort the facets by value, use the @bucket@ option. For example, the following request sets the @sort@ option to @bucket@ to sort the facet values numerically by year, with earliest year listed first.  @{"year":{"sort":"bucket"}} @  For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/faceting.html Getting and Using Facet Information> in the /Amazon CloudSearch Developer Guide/ .-seaFacet :: Lens' Search (Maybe Text)-seaFacet = lens _seaFacet (\ s a -> s{_seaFacet = a})---- | Enables partial results to be returned if one or more index partitions are unavailable. When your search index is partitioned across multiple search instances, by default Amazon CloudSearch only returns results if every partition can be queried. This means that the failure of a single search instance can result in 5xx (internal server) errors. When you enable partial results, Amazon CloudSearch returns whatever results are available and includes the percentage of documents searched in the search results (percent-searched). This enables you to more gracefully degrade your users' search experience. For example, rather than displaying no results, you could display the partial results and a message indicating that the results might be incomplete due to a temporary system outage.-seaPartial :: Lens' Search (Maybe Bool)-seaPartial = lens _seaPartial (\ s a -> s{_seaPartial = a})---- | Specifies the search criteria for the request. How you specify the search criteria depends on the query parser used for the request and the parser options specified in the @queryOptions@ parameter. By default, the @simple@ query parser is used to process requests. To use the @structured@ , @lucene@ , or @dismax@ query parser, you must also specify the @queryParser@ parameter.  For more information about specifying search criteria, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/searching.html Searching Your Data> in the /Amazon CloudSearch Developer Guide/ .-seaQuery :: Lens' Search Text-seaQuery = lens _seaQuery (\ s a -> s{_seaQuery = a})--instance AWSRequest Search where-        type Rs Search = SearchResponse-        request = get cloudSearchDomains-        response-          = receiveJSON-              (\ s h x ->-                 SearchResponse' <$>-                   (x .?> "status") <*> (x .?> "facets" .!@ mempty) <*>-                     (x .?> "stats" .!@ mempty)-                     <*> (x .?> "hits")-                     <*> (pure (fromEnum s)))--instance Hashable Search where--instance NFData Search where--instance ToHeaders Search where-        toHeaders-          = const-              (mconcat-                 ["Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToPath Search where-        toPath = const "/2013-01-01/search"--instance ToQuery Search where-        toQuery Search'{..}-          = mconcat-              ["expr" =: _seaExpr, "cursor" =: _seaCursor,-               "return" =: _seaReturn,-               "q.options" =: _seaQueryOptions,-               "fq" =: _seaFilterQuery, "size" =: _seaSize,-               "q.parser" =: _seaQueryParser, "start" =: _seaStart,-               "highlight" =: _seaHighlight, "stats" =: _seaStats,-               "sort" =: _seaSort, "facet" =: _seaFacet,-               "partial" =: _seaPartial, "q" =: _seaQuery,-               "format=sdk&pretty=true"]---- | The result of a @Search@ request. Contains the documents that match the specified search criteria and any requested fields, highlights, and facet information.------------ /See:/ 'searchResponse' smart constructor.-data SearchResponse = SearchResponse'-  { _searsStatus         :: !(Maybe SearchStatus)-  , _searsFacets         :: !(Maybe (Map Text BucketInfo))-  , _searsStats          :: !(Maybe (Map Text FieldStats))-  , _searsHits           :: !(Maybe Hits)-  , _searsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SearchResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'searsStatus' - The status information returned for the search request.------ * 'searsFacets' - The requested facet information.------ * 'searsStats' - The requested field statistics information.------ * 'searsHits' - The documents that match the search criteria.------ * 'searsResponseStatus' - -- | The response status code.-searchResponse-    :: Int -- ^ 'searsResponseStatus'-    -> SearchResponse-searchResponse pResponseStatus_ =-  SearchResponse'-    { _searsStatus = Nothing-    , _searsFacets = Nothing-    , _searsStats = Nothing-    , _searsHits = Nothing-    , _searsResponseStatus = pResponseStatus_-    }----- | The status information returned for the search request.-searsStatus :: Lens' SearchResponse (Maybe SearchStatus)-searsStatus = lens _searsStatus (\ s a -> s{_searsStatus = a})---- | The requested facet information.-searsFacets :: Lens' SearchResponse (HashMap Text BucketInfo)-searsFacets = lens _searsFacets (\ s a -> s{_searsFacets = a}) . _Default . _Map---- | The requested field statistics information.-searsStats :: Lens' SearchResponse (HashMap Text FieldStats)-searsStats = lens _searsStats (\ s a -> s{_searsStats = a}) . _Default . _Map---- | The documents that match the search criteria.-searsHits :: Lens' SearchResponse (Maybe Hits)-searsHits = lens _searsHits (\ s a -> s{_searsHits = a})---- | -- | The response status code.-searsResponseStatus :: Lens' SearchResponse Int-searsResponseStatus = lens _searsResponseStatus (\ s a -> s{_searsResponseStatus = a})--instance NFData SearchResponse where

@@ -1,169 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Suggest--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Retrieves autocomplete suggestions for a partial query string. You can use suggestions enable you to display likely matches before users finish typing. In Amazon CloudSearch, suggestions are based on the contents of a particular text field. When you request suggestions, Amazon CloudSearch finds all of the documents whose values in the suggester field start with the specified query string. The beginning of the field must match the query string to be considered a match.--------- For more information about configuring suggesters and retrieving suggestions, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Suggestions> in the /Amazon CloudSearch Developer Guide/ .------ The endpoint for submitting @Suggest@ requests is domain-specific. You submit suggest requests to a domain's search endpoint. To get the search endpoint for your domain, use the Amazon CloudSearch configuration service @DescribeDomains@ action. A domain's endpoints are also displayed on the domain dashboard in the Amazon CloudSearch console.----module Network.AWS.CloudSearchDomains.Suggest-    (-    -- * Creating a Request-      suggest-    , Suggest-    -- * Request Lenses-    , sSize-    , sQuery-    , sSuggester--    -- * Destructuring the Response-    , suggestResponse-    , SuggestResponse-    -- * Response Lenses-    , srsSuggest-    , srsStatus-    , srsResponseStatus-    ) where--import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Container for the parameters to the @Suggest@ request.------------ /See:/ 'suggest' smart constructor.-data Suggest = Suggest'-  { _sSize      :: !(Maybe Integer)-  , _sQuery     :: !Text-  , _sSuggester :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Suggest' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sSize' - Specifies the maximum number of suggestions to return.------ * 'sQuery' - Specifies the string for which you want to get suggestions.------ * 'sSuggester' - Specifies the name of the suggester to use to find suggested matches.-suggest-    :: Text -- ^ 'sQuery'-    -> Text -- ^ 'sSuggester'-    -> Suggest-suggest pQuery_ pSuggester_ =-  Suggest' {_sSize = Nothing, _sQuery = pQuery_, _sSuggester = pSuggester_}----- | Specifies the maximum number of suggestions to return.-sSize :: Lens' Suggest (Maybe Integer)-sSize = lens _sSize (\ s a -> s{_sSize = a})---- | Specifies the string for which you want to get suggestions.-sQuery :: Lens' Suggest Text-sQuery = lens _sQuery (\ s a -> s{_sQuery = a})---- | Specifies the name of the suggester to use to find suggested matches.-sSuggester :: Lens' Suggest Text-sSuggester = lens _sSuggester (\ s a -> s{_sSuggester = a})--instance AWSRequest Suggest where-        type Rs Suggest = SuggestResponse-        request = get cloudSearchDomains-        response-          = receiveJSON-              (\ s h x ->-                 SuggestResponse' <$>-                   (x .?> "suggest") <*> (x .?> "status") <*>-                     (pure (fromEnum s)))--instance Hashable Suggest where--instance NFData Suggest where--instance ToHeaders Suggest where-        toHeaders-          = const-              (mconcat-                 ["Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToPath Suggest where-        toPath = const "/2013-01-01/suggest"--instance ToQuery Suggest where-        toQuery Suggest'{..}-          = mconcat-              ["size" =: _sSize, "q" =: _sQuery,-               "suggester" =: _sSuggester, "format=sdk&pretty=true"]---- | Contains the response to a @Suggest@ request.------------ /See:/ 'suggestResponse' smart constructor.-data SuggestResponse = SuggestResponse'-  { _srsSuggest        :: !(Maybe SuggestModel)-  , _srsStatus         :: !(Maybe SuggestStatus)-  , _srsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SuggestResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'srsSuggest' - Container for the matching search suggestion information.------ * 'srsStatus' - The status of a @SuggestRequest@ . Contains the resource ID (@rid@ ) and how long it took to process the request (@timems@ ).------ * 'srsResponseStatus' - -- | The response status code.-suggestResponse-    :: Int -- ^ 'srsResponseStatus'-    -> SuggestResponse-suggestResponse pResponseStatus_ =-  SuggestResponse'-    { _srsSuggest = Nothing-    , _srsStatus = Nothing-    , _srsResponseStatus = pResponseStatus_-    }----- | Container for the matching search suggestion information.-srsSuggest :: Lens' SuggestResponse (Maybe SuggestModel)-srsSuggest = lens _srsSuggest (\ s a -> s{_srsSuggest = a})---- | The status of a @SuggestRequest@ . Contains the resource ID (@rid@ ) and how long it took to process the request (@timems@ ).-srsStatus :: Lens' SuggestResponse (Maybe SuggestStatus)-srsStatus = lens _srsStatus (\ s a -> s{_srsStatus = a})---- | -- | The response status code.-srsResponseStatus :: Lens' SuggestResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})--instance NFData SuggestResponse where

@@ -1,157 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Types--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.CloudSearchDomains.Types-    (-    -- * Service Configuration-      cloudSearchDomains--    -- * Errors-    , _DocumentServiceException-    , _SearchException--    -- * ContentType-    , ContentType (..)--    -- * QueryParser-    , QueryParser (..)--    -- * Bucket-    , Bucket-    , bucket-    , bValue-    , bCount--    -- * BucketInfo-    , BucketInfo-    , bucketInfo-    , biBuckets--    -- * DocumentServiceWarning-    , DocumentServiceWarning-    , documentServiceWarning-    , dswMessage--    -- * FieldStats-    , FieldStats-    , fieldStats-    , fsMax-    , fsMean-    , fsCount-    , fsMissing-    , fsStddev-    , fsMin-    , fsSumOfSquares-    , fsSum--    -- * Hit-    , Hit-    , hit-    , hitExprs-    , hitId-    , hitHighlights-    , hitFields--    -- * Hits-    , Hits-    , hits-    , hCursor-    , hHit-    , hStart-    , hFound--    -- * SearchStatus-    , SearchStatus-    , searchStatus-    , sRid-    , sTimems--    -- * SuggestModel-    , SuggestModel-    , suggestModel-    , smFound-    , smSuggestions-    , smQuery--    -- * SuggestStatus-    , SuggestStatus-    , suggestStatus-    , ssRid-    , ssTimems--    -- * SuggestionMatch-    , SuggestionMatch-    , suggestionMatch-    , smSuggestion-    , smScore-    , smId-    ) where--import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.CloudSearchDomains.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4---- | API version @2013-01-01@ of the Amazon CloudSearch Domain SDK configuration.-cloudSearchDomains :: Service-cloudSearchDomains =-  Service-    { _svcAbbrev = "CloudSearchDomains"-    , _svcSigner = v4-    , _svcPrefix = "cloudsearchdomain"-    , _svcVersion = "2013-01-01"-    , _svcEndpoint = defaultEndpoint cloudSearchDomains-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "CloudSearchDomains"-    , _svcRetry = retry-    }-  where-    retry =-      Exponential-        { _retryBase = 5.0e-2-        , _retryGrowth = 2-        , _retryAttempts = 5-        , _retryCheck = check-        }-    check e-      | has (hasCode "ThrottledException" . hasStatus 400) e =-        Just "throttled_exception"-      | has (hasStatus 429) e = Just "too_many_requests"-      | has (hasCode "ThrottlingException" . hasStatus 400) e =-        Just "throttling_exception"-      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-      | has (hasStatus 504) e = Just "gateway_timeout"-      | has (hasCode "RequestThrottledException" . hasStatus 400) e =-        Just "request_throttled_exception"-      | has (hasStatus 502) e = Just "bad_gateway"-      | has (hasStatus 503) e = Just "service_unavailable"-      | has (hasStatus 500) e = Just "general_server_error"-      | has (hasStatus 509) e = Just "limit_exceeded"-      | otherwise = Nothing----- | Information about any problems encountered while processing an upload request.-------_DocumentServiceException :: AsError a => Getting (First ServiceError) a ServiceError-_DocumentServiceException =-  _MatchServiceError cloudSearchDomains "DocumentServiceException"----- | Information about any problems encountered while processing a search request.-------_SearchException :: AsError a => Getting (First ServiceError) a ServiceError-_SearchException = _MatchServiceError cloudSearchDomains "SearchException"-

@@ -1,540 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Types.Product--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.CloudSearchDomains.Types.Product where--import Network.AWS.CloudSearchDomains.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | A container for facet information.------------ /See:/ 'bucket' smart constructor.-data Bucket = Bucket'-  { _bValue :: !(Maybe Text)-  , _bCount :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Bucket' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bValue' - The facet value being counted.------ * 'bCount' - The number of hits that contain the facet value in the specified facet field.-bucket-    :: Bucket-bucket = Bucket' {_bValue = Nothing, _bCount = Nothing}----- | The facet value being counted.-bValue :: Lens' Bucket (Maybe Text)-bValue = lens _bValue (\ s a -> s{_bValue = a})---- | The number of hits that contain the facet value in the specified facet field.-bCount :: Lens' Bucket (Maybe Integer)-bCount = lens _bCount (\ s a -> s{_bCount = a})--instance FromJSON Bucket where-        parseJSON-          = withObject "Bucket"-              (\ x ->-                 Bucket' <$> (x .:? "value") <*> (x .:? "count"))--instance Hashable Bucket where--instance NFData Bucket where---- | A container for the calculated facet values and counts.------------ /See:/ 'bucketInfo' smart constructor.-newtype BucketInfo = BucketInfo'-  { _biBuckets :: Maybe [Bucket]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'BucketInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'biBuckets' - A list of the calculated facet values and counts.-bucketInfo-    :: BucketInfo-bucketInfo = BucketInfo' {_biBuckets = Nothing}----- | A list of the calculated facet values and counts.-biBuckets :: Lens' BucketInfo [Bucket]-biBuckets = lens _biBuckets (\ s a -> s{_biBuckets = a}) . _Default . _Coerce--instance FromJSON BucketInfo where-        parseJSON-          = withObject "BucketInfo"-              (\ x -> BucketInfo' <$> (x .:? "buckets" .!= mempty))--instance Hashable BucketInfo where--instance NFData BucketInfo where---- | A warning returned by the document service when an issue is discovered while processing an upload request.------------ /See:/ 'documentServiceWarning' smart constructor.-newtype DocumentServiceWarning = DocumentServiceWarning'-  { _dswMessage :: Maybe Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DocumentServiceWarning' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dswMessage' - The description for a warning returned by the document service.-documentServiceWarning-    :: DocumentServiceWarning-documentServiceWarning = DocumentServiceWarning' {_dswMessage = Nothing}----- | The description for a warning returned by the document service.-dswMessage :: Lens' DocumentServiceWarning (Maybe Text)-dswMessage = lens _dswMessage (\ s a -> s{_dswMessage = a})--instance FromJSON DocumentServiceWarning where-        parseJSON-          = withObject "DocumentServiceWarning"-              (\ x ->-                 DocumentServiceWarning' <$> (x .:? "message"))--instance Hashable DocumentServiceWarning where--instance NFData DocumentServiceWarning where---- | The statistics for a field calculated in the request.------------ /See:/ 'fieldStats' smart constructor.-data FieldStats = FieldStats'-  { _fsMax          :: !(Maybe Text)-  , _fsMean         :: !(Maybe Text)-  , _fsCount        :: !(Maybe Integer)-  , _fsMissing      :: !(Maybe Integer)-  , _fsStddev       :: !(Maybe Double)-  , _fsMin          :: !(Maybe Text)-  , _fsSumOfSquares :: !(Maybe Double)-  , _fsSum          :: !(Maybe Double)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'FieldStats' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'fsMax' - The maximum value found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @max@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @max@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.------ * 'fsMean' - The average of the values found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @mean@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @mean@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.------ * 'fsCount' - The number of documents that contain a value in the specified field in the result set.------ * 'fsMissing' - The number of documents that do not contain a value in the specified field in the result set.------ * 'fsStddev' - The standard deviation of the values in the specified field in the result set.------ * 'fsMin' - The minimum value found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @min@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @min@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.------ * 'fsSumOfSquares' - The sum of all field values in the result set squared.------ * 'fsSum' - The sum of the field values across the documents in the result set. @null@ for date fields.-fieldStats-    :: FieldStats-fieldStats =-  FieldStats'-    { _fsMax = Nothing-    , _fsMean = Nothing-    , _fsCount = Nothing-    , _fsMissing = Nothing-    , _fsStddev = Nothing-    , _fsMin = Nothing-    , _fsSumOfSquares = Nothing-    , _fsSum = Nothing-    }----- | The maximum value found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @max@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @max@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.-fsMax :: Lens' FieldStats (Maybe Text)-fsMax = lens _fsMax (\ s a -> s{_fsMax = a})---- | The average of the values found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @mean@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @mean@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.-fsMean :: Lens' FieldStats (Maybe Text)-fsMean = lens _fsMean (\ s a -> s{_fsMean = a})---- | The number of documents that contain a value in the specified field in the result set.-fsCount :: Lens' FieldStats (Maybe Integer)-fsCount = lens _fsCount (\ s a -> s{_fsCount = a})---- | The number of documents that do not contain a value in the specified field in the result set.-fsMissing :: Lens' FieldStats (Maybe Integer)-fsMissing = lens _fsMissing (\ s a -> s{_fsMissing = a})---- | The standard deviation of the values in the specified field in the result set.-fsStddev :: Lens' FieldStats (Maybe Double)-fsStddev = lens _fsStddev (\ s a -> s{_fsStddev = a})---- | The minimum value found in the specified field in the result set. If the field is numeric (@int@ , @int-array@ , @double@ , or @double-array@ ), @min@ is the string representation of a double-precision 64-bit floating point value. If the field is @date@ or @date-array@ , @min@ is the string representation of a date with the format specified in <http://tools.ietf.org/html/rfc3339 IETF RFC3339> : yyyy-mm-ddTHH:mm:ss.SSSZ.-fsMin :: Lens' FieldStats (Maybe Text)-fsMin = lens _fsMin (\ s a -> s{_fsMin = a})---- | The sum of all field values in the result set squared.-fsSumOfSquares :: Lens' FieldStats (Maybe Double)-fsSumOfSquares = lens _fsSumOfSquares (\ s a -> s{_fsSumOfSquares = a})---- | The sum of the field values across the documents in the result set. @null@ for date fields.-fsSum :: Lens' FieldStats (Maybe Double)-fsSum = lens _fsSum (\ s a -> s{_fsSum = a})--instance FromJSON FieldStats where-        parseJSON-          = withObject "FieldStats"-              (\ x ->-                 FieldStats' <$>-                   (x .:? "max") <*> (x .:? "mean") <*> (x .:? "count")-                     <*> (x .:? "missing")-                     <*> (x .:? "stddev")-                     <*> (x .:? "min")-                     <*> (x .:? "sumOfSquares")-                     <*> (x .:? "sum"))--instance Hashable FieldStats where--instance NFData FieldStats where---- | Information about a document that matches the search request.------------ /See:/ 'hit' smart constructor.-data Hit = Hit'-  { _hitExprs      :: !(Maybe (Map Text Text))-  , _hitId         :: !(Maybe Text)-  , _hitHighlights :: !(Maybe (Map Text Text))-  , _hitFields     :: !(Maybe (Map Text [Text]))-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Hit' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hitExprs' - The expressions returned from a document that matches the search request.------ * 'hitId' - The document ID of a document that matches the search request.------ * 'hitHighlights' - The highlights returned from a document that matches the search request.------ * 'hitFields' - The fields returned from a document that matches the search request.-hit-    :: Hit-hit =-  Hit'-    { _hitExprs = Nothing-    , _hitId = Nothing-    , _hitHighlights = Nothing-    , _hitFields = Nothing-    }----- | The expressions returned from a document that matches the search request.-hitExprs :: Lens' Hit (HashMap Text Text)-hitExprs = lens _hitExprs (\ s a -> s{_hitExprs = a}) . _Default . _Map---- | The document ID of a document that matches the search request.-hitId :: Lens' Hit (Maybe Text)-hitId = lens _hitId (\ s a -> s{_hitId = a})---- | The highlights returned from a document that matches the search request.-hitHighlights :: Lens' Hit (HashMap Text Text)-hitHighlights = lens _hitHighlights (\ s a -> s{_hitHighlights = a}) . _Default . _Map---- | The fields returned from a document that matches the search request.-hitFields :: Lens' Hit (HashMap Text [Text])-hitFields = lens _hitFields (\ s a -> s{_hitFields = a}) . _Default . _Map--instance FromJSON Hit where-        parseJSON-          = withObject "Hit"-              (\ x ->-                 Hit' <$>-                   (x .:? "exprs" .!= mempty) <*> (x .:? "id") <*>-                     (x .:? "highlights" .!= mempty)-                     <*> (x .:? "fields" .!= mempty))--instance Hashable Hit where--instance NFData Hit where---- | The collection of documents that match the search request.------------ /See:/ 'hits' smart constructor.-data Hits = Hits'-  { _hCursor :: !(Maybe Text)-  , _hHit    :: !(Maybe [Hit])-  , _hStart  :: !(Maybe Integer)-  , _hFound  :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Hits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'hCursor' - A cursor that can be used to retrieve the next set of matching documents when you want to page through a large result set.------ * 'hHit' - A document that matches the search request.------ * 'hStart' - The index of the first matching document.------ * 'hFound' - The total number of documents that match the search request.-hits-    :: Hits-hits =-  Hits'-    {_hCursor = Nothing, _hHit = Nothing, _hStart = Nothing, _hFound = Nothing}----- | A cursor that can be used to retrieve the next set of matching documents when you want to page through a large result set.-hCursor :: Lens' Hits (Maybe Text)-hCursor = lens _hCursor (\ s a -> s{_hCursor = a})---- | A document that matches the search request.-hHit :: Lens' Hits [Hit]-hHit = lens _hHit (\ s a -> s{_hHit = a}) . _Default . _Coerce---- | The index of the first matching document.-hStart :: Lens' Hits (Maybe Integer)-hStart = lens _hStart (\ s a -> s{_hStart = a})---- | The total number of documents that match the search request.-hFound :: Lens' Hits (Maybe Integer)-hFound = lens _hFound (\ s a -> s{_hFound = a})--instance FromJSON Hits where-        parseJSON-          = withObject "Hits"-              (\ x ->-                 Hits' <$>-                   (x .:? "cursor") <*> (x .:? "hit" .!= mempty) <*>-                     (x .:? "start")-                     <*> (x .:? "found"))--instance Hashable Hits where--instance NFData Hits where---- | Contains the resource id (@rid@ ) and the time it took to process the request (@timems@ ).------------ /See:/ 'searchStatus' smart constructor.-data SearchStatus = SearchStatus'-  { _sRid    :: !(Maybe Text)-  , _sTimems :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SearchStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sRid' - The encrypted resource ID for the request.------ * 'sTimems' - How long it took to process the request, in milliseconds.-searchStatus-    :: SearchStatus-searchStatus = SearchStatus' {_sRid = Nothing, _sTimems = Nothing}----- | The encrypted resource ID for the request.-sRid :: Lens' SearchStatus (Maybe Text)-sRid = lens _sRid (\ s a -> s{_sRid = a})---- | How long it took to process the request, in milliseconds.-sTimems :: Lens' SearchStatus (Maybe Integer)-sTimems = lens _sTimems (\ s a -> s{_sTimems = a})--instance FromJSON SearchStatus where-        parseJSON-          = withObject "SearchStatus"-              (\ x ->-                 SearchStatus' <$> (x .:? "rid") <*> (x .:? "timems"))--instance Hashable SearchStatus where--instance NFData SearchStatus where---- | Container for the suggestion information returned in a @SuggestResponse@ .------------ /See:/ 'suggestModel' smart constructor.-data SuggestModel = SuggestModel'-  { _smFound       :: !(Maybe Integer)-  , _smSuggestions :: !(Maybe [SuggestionMatch])-  , _smQuery       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SuggestModel' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smFound' - The number of documents that were found to match the query string.------ * 'smSuggestions' - The documents that match the query string.------ * 'smQuery' - The query string specified in the suggest request.-suggestModel-    :: SuggestModel-suggestModel =-  SuggestModel'-    {_smFound = Nothing, _smSuggestions = Nothing, _smQuery = Nothing}----- | The number of documents that were found to match the query string.-smFound :: Lens' SuggestModel (Maybe Integer)-smFound = lens _smFound (\ s a -> s{_smFound = a})---- | The documents that match the query string.-smSuggestions :: Lens' SuggestModel [SuggestionMatch]-smSuggestions = lens _smSuggestions (\ s a -> s{_smSuggestions = a}) . _Default . _Coerce---- | The query string specified in the suggest request.-smQuery :: Lens' SuggestModel (Maybe Text)-smQuery = lens _smQuery (\ s a -> s{_smQuery = a})--instance FromJSON SuggestModel where-        parseJSON-          = withObject "SuggestModel"-              (\ x ->-                 SuggestModel' <$>-                   (x .:? "found") <*> (x .:? "suggestions" .!= mempty)-                     <*> (x .:? "query"))--instance Hashable SuggestModel where--instance NFData SuggestModel where---- | Contains the resource id (@rid@ ) and the time it took to process the request (@timems@ ).------------ /See:/ 'suggestStatus' smart constructor.-data SuggestStatus = SuggestStatus'-  { _ssRid    :: !(Maybe Text)-  , _ssTimems :: !(Maybe Integer)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SuggestStatus' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssRid' - The encrypted resource ID for the request.------ * 'ssTimems' - How long it took to process the request, in milliseconds.-suggestStatus-    :: SuggestStatus-suggestStatus = SuggestStatus' {_ssRid = Nothing, _ssTimems = Nothing}----- | The encrypted resource ID for the request.-ssRid :: Lens' SuggestStatus (Maybe Text)-ssRid = lens _ssRid (\ s a -> s{_ssRid = a})---- | How long it took to process the request, in milliseconds.-ssTimems :: Lens' SuggestStatus (Maybe Integer)-ssTimems = lens _ssTimems (\ s a -> s{_ssTimems = a})--instance FromJSON SuggestStatus where-        parseJSON-          = withObject "SuggestStatus"-              (\ x ->-                 SuggestStatus' <$>-                   (x .:? "rid") <*> (x .:? "timems"))--instance Hashable SuggestStatus where--instance NFData SuggestStatus where---- | An autocomplete suggestion that matches the query string specified in a @SuggestRequest@ .------------ /See:/ 'suggestionMatch' smart constructor.-data SuggestionMatch = SuggestionMatch'-  { _smSuggestion :: !(Maybe Text)-  , _smScore      :: !(Maybe Integer)-  , _smId         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SuggestionMatch' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'smSuggestion' - The string that matches the query string specified in the @SuggestRequest@ .------ * 'smScore' - The relevance score of a suggested match.------ * 'smId' - The document ID of the suggested document.-suggestionMatch-    :: SuggestionMatch-suggestionMatch =-  SuggestionMatch'-    {_smSuggestion = Nothing, _smScore = Nothing, _smId = Nothing}----- | The string that matches the query string specified in the @SuggestRequest@ .-smSuggestion :: Lens' SuggestionMatch (Maybe Text)-smSuggestion = lens _smSuggestion (\ s a -> s{_smSuggestion = a})---- | The relevance score of a suggested match.-smScore :: Lens' SuggestionMatch (Maybe Integer)-smScore = lens _smScore (\ s a -> s{_smScore = a})---- | The document ID of the suggested document.-smId :: Lens' SuggestionMatch (Maybe Text)-smId = lens _smId (\ s a -> s{_smId = a})--instance FromJSON SuggestionMatch where-        parseJSON-          = withObject "SuggestionMatch"-              (\ x ->-                 SuggestionMatch' <$>-                   (x .:? "suggestion") <*> (x .:? "score") <*>-                     (x .:? "id"))--instance Hashable SuggestionMatch where--instance NFData SuggestionMatch where

@@ -1,80 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Types.Sum--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.CloudSearchDomains.Types.Sum where--import Network.AWS.Prelude--data ContentType-  = ApplicationJSON-  | ApplicationXML-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ContentType where-    parser = takeLowerText >>= \case-        "application/json" -> pure ApplicationJSON-        "application/xml" -> pure ApplicationXML-        e -> fromTextError $ "Failure parsing ContentType from value: '" <> e-           <> "'. Accepted values: application/json, application/xml"--instance ToText ContentType where-    toText = \case-        ApplicationJSON -> "application/json"-        ApplicationXML -> "application/xml"--instance Hashable     ContentType-instance NFData       ContentType-instance ToByteString ContentType-instance ToQuery      ContentType-instance ToHeader     ContentType--instance ToJSON ContentType where-    toJSON = toJSONText--data QueryParser-  = Dismax-  | Lucene-  | Simple-  | Structured-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText QueryParser where-    parser = takeLowerText >>= \case-        "dismax" -> pure Dismax-        "lucene" -> pure Lucene-        "simple" -> pure Simple-        "structured" -> pure Structured-        e -> fromTextError $ "Failure parsing QueryParser from value: '" <> e-           <> "'. Accepted values: dismax, lucene, simple, structured"--instance ToText QueryParser where-    toText = \case-        Dismax -> "dismax"-        Lucene -> "lucene"-        Simple -> "simple"-        Structured -> "structured"--instance Hashable     QueryParser-instance NFData       QueryParser-instance ToByteString QueryParser-instance ToQuery      QueryParser-instance ToHeader     QueryParser--instance ToJSON QueryParser where-    toJSON = toJSONText

@@ -1,174 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.UploadDocuments--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Posts a batch of documents to a search domain for indexing. A document batch is a collection of add and delete operations that represent the documents you want to add, update, or delete from your domain. Batches can be described in either JSON or XML. Each item that you want Amazon CloudSearch to return as a search result (such as a product) is represented as a document. Every document has a unique ID and one or more fields that contain the data that you want to search and return in results. Individual documents cannot contain more than 1 MB of data. The entire batch cannot exceed 5 MB. To get the best possible upload performance, group add and delete operations in batches that are close the 5 MB limit. Submitting a large volume of single-document batches can overload a domain's document service.--------- The endpoint for submitting @UploadDocuments@ requests is domain-specific. To get the document endpoint for your domain, use the Amazon CloudSearch configuration service @DescribeDomains@ action. A domain's endpoints are also displayed on the domain dashboard in the Amazon CloudSearch console.------ For more information about formatting your data for Amazon CloudSearch, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/preparing-data.html Preparing Your Data> in the /Amazon CloudSearch Developer Guide/ . For more information about uploading data for indexing, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/uploading-data.html Uploading Data> in the /Amazon CloudSearch Developer Guide/ .----module Network.AWS.CloudSearchDomains.UploadDocuments-    (-    -- * Creating a Request-      uploadDocuments-    , UploadDocuments-    -- * Request Lenses-    , udContentType-    , udDocuments--    -- * Destructuring the Response-    , uploadDocumentsResponse-    , UploadDocumentsResponse-    -- * Response Lenses-    , udrsStatus-    , udrsAdds-    , udrsWarnings-    , udrsDeletes-    , udrsResponseStatus-    ) where--import Network.AWS.CloudSearchDomains.Types-import Network.AWS.CloudSearchDomains.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Container for the parameters to the @UploadDocuments@ request.------------ /See:/ 'uploadDocuments' smart constructor.-data UploadDocuments = UploadDocuments'-  { _udContentType :: !ContentType-  , _udDocuments   :: !HashedBody-  } deriving (Show, Generic)----- | Creates a value of 'UploadDocuments' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udContentType' - The format of the batch you are uploading. Amazon CloudSearch supports two document batch formats:     * application/json    * application/xml------ * 'udDocuments' - A batch of documents formatted in JSON or HTML.-uploadDocuments-    :: ContentType -- ^ 'udContentType'-    -> HashedBody -- ^ 'udDocuments'-    -> UploadDocuments-uploadDocuments pContentType_ pDocuments_ =-  UploadDocuments' {_udContentType = pContentType_, _udDocuments = pDocuments_}----- | The format of the batch you are uploading. Amazon CloudSearch supports two document batch formats:     * application/json    * application/xml-udContentType :: Lens' UploadDocuments ContentType-udContentType = lens _udContentType (\ s a -> s{_udContentType = a})---- | A batch of documents formatted in JSON or HTML.-udDocuments :: Lens' UploadDocuments HashedBody-udDocuments = lens _udDocuments (\ s a -> s{_udDocuments = a})--instance AWSRequest UploadDocuments where-        type Rs UploadDocuments = UploadDocumentsResponse-        request = postBody cloudSearchDomains-        response-          = receiveJSON-              (\ s h x ->-                 UploadDocumentsResponse' <$>-                   (x .?> "status") <*> (x .?> "adds") <*>-                     (x .?> "warnings" .!@ mempty)-                     <*> (x .?> "deletes")-                     <*> (pure (fromEnum s)))--instance ToBody UploadDocuments where-        toBody = toBody . _udDocuments--instance ToHeaders UploadDocuments where-        toHeaders UploadDocuments'{..}-          = mconcat ["Content-Type" =# _udContentType]--instance ToPath UploadDocuments where-        toPath = const "/2013-01-01/documents/batch"--instance ToQuery UploadDocuments where-        toQuery = const (mconcat ["format=sdk"])---- | Contains the response to an @UploadDocuments@ request.------------ /See:/ 'uploadDocumentsResponse' smart constructor.-data UploadDocumentsResponse = UploadDocumentsResponse'-  { _udrsStatus         :: !(Maybe Text)-  , _udrsAdds           :: !(Maybe Integer)-  , _udrsWarnings       :: !(Maybe [DocumentServiceWarning])-  , _udrsDeletes        :: !(Maybe Integer)-  , _udrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UploadDocumentsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'udrsStatus' - The status of an @UploadDocumentsRequest@ .------ * 'udrsAdds' - The number of documents that were added to the search domain.------ * 'udrsWarnings' - Any warnings returned by the document service about the documents being uploaded.------ * 'udrsDeletes' - The number of documents that were deleted from the search domain.------ * 'udrsResponseStatus' - -- | The response status code.-uploadDocumentsResponse-    :: Int -- ^ 'udrsResponseStatus'-    -> UploadDocumentsResponse-uploadDocumentsResponse pResponseStatus_ =-  UploadDocumentsResponse'-    { _udrsStatus = Nothing-    , _udrsAdds = Nothing-    , _udrsWarnings = Nothing-    , _udrsDeletes = Nothing-    , _udrsResponseStatus = pResponseStatus_-    }----- | The status of an @UploadDocumentsRequest@ .-udrsStatus :: Lens' UploadDocumentsResponse (Maybe Text)-udrsStatus = lens _udrsStatus (\ s a -> s{_udrsStatus = a})---- | The number of documents that were added to the search domain.-udrsAdds :: Lens' UploadDocumentsResponse (Maybe Integer)-udrsAdds = lens _udrsAdds (\ s a -> s{_udrsAdds = a})---- | Any warnings returned by the document service about the documents being uploaded.-udrsWarnings :: Lens' UploadDocumentsResponse [DocumentServiceWarning]-udrsWarnings = lens _udrsWarnings (\ s a -> s{_udrsWarnings = a}) . _Default . _Coerce---- | The number of documents that were deleted from the search domain.-udrsDeletes :: Lens' UploadDocumentsResponse (Maybe Integer)-udrsDeletes = lens _udrsDeletes (\ s a -> s{_udrsDeletes = a})---- | -- | The response status code.-udrsResponseStatus :: Lens' UploadDocumentsResponse Int-udrsResponseStatus = lens _udrsResponseStatus (\ s a -> s{_udrsResponseStatus = a})--instance NFData UploadDocumentsResponse where

@@ -1,21 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.CloudSearchDomains.Waiters--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.CloudSearchDomains.Waiters where--import Network.AWS.CloudSearchDomains.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter

@@ -2,20 +2,22 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2018 Brendan Hay+-- Copyright   : (c) 2013-2023 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer  : Brendan Hay -- Stability   : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.CloudSearchDomains+import Test.Amazonka.CloudSearchDomains.Internal import Test.Tasty-import Test.AWS.CloudSearchDomains-import Test.AWS.CloudSearchDomains.Internal  main :: IO ()-main = defaultMain $ testGroup "CloudSearchDomains"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "CloudSearchDomains"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]

@@ -1,26 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Module      : Test.AWS.CloudSearchDomains--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.CloudSearchDomains-    ( tests-    , fixtures-    ) where--import           Network.AWS.CloudSearchDomains-import           Test.AWS.Gen.CloudSearchDomains-import           Test.Tasty--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []

@@ -1,16 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.CloudSearchDomains.Internal--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.CloudSearchDomains.Internal where--import Test.AWS.Prelude

@@ -1,88 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans        #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Test.AWS.Gen.CloudSearchDomains--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Test.AWS.Gen.CloudSearchDomains where--import Data.Proxy-import Network.AWS.CloudSearchDomains-import Test.AWS.CloudSearchDomains.Internal-import Test.AWS.Fixture-import Test.AWS.Prelude-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =---     [ testGroup "request"---         [ requestSuggest $---             suggest------         , requestUploadDocuments $---             uploadDocuments------         , requestSearch $---             search------           ]----     , testGroup "response"---         [ responseSuggest $---             suggestResponse------         , responseUploadDocuments $---             uploadDocumentsResponse------         , responseSearch $---             searchResponse------           ]---     ]---- Requests--requestSuggest :: Suggest -> TestTree-requestSuggest = req-    "Suggest"-    "fixture/Suggest.yaml"--requestSearch :: Search -> TestTree-requestSearch = req-    "Search"-    "fixture/Search.yaml"---- Responses--responseSuggest :: SuggestResponse -> TestTree-responseSuggest = res-    "SuggestResponse"-    "fixture/SuggestResponse.proto"-    cloudSearchDomains-    (Proxy :: Proxy Suggest)--responseUploadDocuments :: UploadDocumentsResponse -> TestTree-responseUploadDocuments = res-    "UploadDocumentsResponse"-    "fixture/UploadDocumentsResponse.proto"-    cloudSearchDomains-    (Proxy :: Proxy UploadDocuments)--responseSearch :: SearchResponse -> TestTree-responseSearch = res-    "SearchResponse"-    "fixture/SearchResponse.proto"-    cloudSearchDomains-    (Proxy :: Proxy Search)

@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.CloudSearchDomains+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.CloudSearchDomains+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []

@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.CloudSearchDomains.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.CloudSearchDomains.Internal where

@@ -0,0 +1,92 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.CloudSearchDomains+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.CloudSearchDomains where++import Amazonka.CloudSearchDomains+import qualified Data.Proxy as Proxy+import Test.Amazonka.CloudSearchDomains.Internal+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestSearch $+--             newSearch+--+--         , requestSuggest $+--             newSuggest+--+--         , requestUploadDocuments $+--             newUploadDocuments+--+--           ]++--     , testGroup "response"+--         [ responseSearch $+--             newSearchResponse+--+--         , responseSuggest $+--             newSuggestResponse+--+--         , responseUploadDocuments $+--             newUploadDocumentsResponse+--+--           ]+--     ]++-- Requests++requestSearch :: Search -> TestTree+requestSearch =+  req+    "Search"+    "fixture/Search.yaml"++requestSuggest :: Suggest -> TestTree+requestSuggest =+  req+    "Suggest"+    "fixture/Suggest.yaml"++-- Responses++responseSearch :: SearchResponse -> TestTree+responseSearch =+  res+    "SearchResponse"+    "fixture/SearchResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy Search)++responseSuggest :: SuggestResponse -> TestTree+responseSuggest =+  res+    "SuggestResponse"+    "fixture/SuggestResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy Suggest)++responseUploadDocuments :: UploadDocumentsResponse -> TestTree+responseUploadDocuments =+  res+    "UploadDocumentsResponse"+    "fixture/UploadDocumentsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UploadDocuments)