amazonka-cloudsearch 0.3.6 → 1.0.0

raw patch · 35 files changed

+6376/−4727 lines, 35 filesdep +amazonka-cloudsearchdep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-cloudsearch, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +28/−7
• amazonka-cloudsearch.cabal +58/−11
• gen/Network/AWS/CloudSearch.hs +437/−55
• gen/Network/AWS/CloudSearch/BuildSuggesters.hs +96/−79
• gen/Network/AWS/CloudSearch/CreateDomain.hs +96/−76
• gen/Network/AWS/CloudSearch/DefineAnalysisScheme.hs +111/−89
• gen/Network/AWS/CloudSearch/DefineExpression.hs +109/−87
• gen/Network/AWS/CloudSearch/DefineIndexField.hs +113/−90
• gen/Network/AWS/CloudSearch/DefineSuggester.hs +112/−89
• gen/Network/AWS/CloudSearch/DeleteAnalysisScheme.hs +107/−88
• gen/Network/AWS/CloudSearch/DeleteDomain.hs +98/−78
• gen/Network/AWS/CloudSearch/DeleteExpression.hs +108/−88
• gen/Network/AWS/CloudSearch/DeleteIndexField.hs +108/−89
• gen/Network/AWS/CloudSearch/DeleteSuggester.hs +107/−87
• gen/Network/AWS/CloudSearch/DescribeAnalysisSchemes.hs +127/−108
• gen/Network/AWS/CloudSearch/DescribeAvailabilityOptions.hs +112/−87
• gen/Network/AWS/CloudSearch/DescribeDomains.hs +103/−90
• gen/Network/AWS/CloudSearch/DescribeExpressions.hs +122/−103
• gen/Network/AWS/CloudSearch/DescribeIndexFields.hs +120/−99
• gen/Network/AWS/CloudSearch/DescribeScalingParameters.hs +99/−77
• gen/Network/AWS/CloudSearch/DescribeServiceAccessPolicies.hs +111/−87
• gen/Network/AWS/CloudSearch/DescribeSuggesters.hs +125/−106
• gen/Network/AWS/CloudSearch/IndexDocuments.hs +95/−80
• gen/Network/AWS/CloudSearch/ListDomainNames.hs +85/−65
• gen/Network/AWS/CloudSearch/Types.hs +361/−2542
• gen/Network/AWS/CloudSearch/Types/Product.hs +2014/−0
• gen/Network/AWS/CloudSearch/Types/Sum.hs +349/−0
• gen/Network/AWS/CloudSearch/UpdateAvailabilityOptions.hs +114/−92
• gen/Network/AWS/CloudSearch/UpdateScalingParameters.hs +112/−89
• gen/Network/AWS/CloudSearch/UpdateServiceAccessPolicies.hs +109/−89
• gen/Network/AWS/CloudSearch/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/CloudSearch.hs +26/−0
• test/Test/AWS/CloudSearch/Internal.hs +16/−0
• test/Test/AWS/Gen/CloudSearch.hs +447/−0

@@ -1,22 +1,43 @@ # Amazon CloudSearch SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -Amazon CloudSearch is a fully-managed service in the AWS Cloud that makes it-simple and cost-effective to set up, manage, and scale a search solution for-your website or application. Amazon CloudSearch supports 34 languages and-popular search features such as highlighting, autocomplete, and geospatial-search.+Amazon CloudSearch Configuration Service +You use the Amazon CloudSearch configuration service to create,+configure, and manage search domains. Configuration service requests are+submitted using the AWS Query protocol. AWS Query requests are HTTP or+HTTPS requests submitted via HTTP GET or POST with a query parameter+named Action.++The endpoint for configuration service requests is region-specific:+cloudsearch./region/.amazonaws.com. For example,+cloudsearch.us-east-1.amazonaws.com. For a current list of supported+regions and endpoints, see+<http://docs.aws.amazon.com/general/latest/gr/rande.html#cloudsearch_region Regions and Endpoints>.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-cloudsearch) and the [AWS API Reference](http://docs.aws.amazon.com/cloudsearch/latest/developerguide/what-is-cloudsearch.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount 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+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,29 +1,45 @@ name:                  amazonka-cloudsearch-version:               0.3.6+version:               1.0.0 synopsis:              Amazon CloudSearch SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    Amazon CloudSearch is a fully-managed service in the AWS Cloud that makes it-    simple and cost-effective to set up, manage, and scale a search solution for-    your website or application. Amazon CloudSearch supports 34 languages and-    popular search features such as highlighting, autocomplete, and geospatial-    search.+    Amazon CloudSearch Configuration Service +    You use the Amazon CloudSearch configuration service to create,+    configure, and manage search domains. Configuration service requests are+    submitted using the AWS Query protocol. AWS Query requests are HTTP or+    HTTPS requests submitted via HTTP GET or POST with a query parameter+    named Action.++    The endpoint for configuration service requests is region-specific:+    cloudsearch./region/.amazonaws.com. For example,+    cloudsearch.us-east-1.amazonaws.com. For a current list of supported+    regions and endpoints, see+    <http://docs.aws.amazon.com/general/latest/gr/rande.html#cloudsearch_region Regions and Endpoints>.     .-    /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/what-is-cloudsearch.html AWS API Reference>+    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 and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.CloudSearch" and the <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/what-is-cloudsearch.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -62,9 +78,40 @@         , Network.AWS.CloudSearch.UpdateAvailabilityOptions         , Network.AWS.CloudSearch.UpdateScalingParameters         , Network.AWS.CloudSearch.UpdateServiceAccessPolicies+        , Network.AWS.CloudSearch.Waiters      other-modules:+          Network.AWS.CloudSearch.Types.Product+        , Network.AWS.CloudSearch.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-cloudsearch-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.CloudSearch+        , Test.AWS.Gen.CloudSearch+        , Test.AWS.CloudSearch.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-cloudsearch == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,70 +1,452 @@+{-# 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.CloudSearch--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Amazon CloudSearch is a fully-managed service in the AWS Cloud that makes it--- simple and cost-effective to set up, manage, and scale a search solution for--- your website or application. Amazon CloudSearch supports 34 languages and--- popular search features such as highlighting, autocomplete, and geospatial--- search.+-- Amazon CloudSearch Configuration Service+--+-- You use the Amazon CloudSearch configuration service to create,+-- configure, and manage search domains. Configuration service requests are+-- submitted using the AWS Query protocol. AWS Query requests are HTTP or+-- HTTPS requests submitted via HTTP GET or POST with a query parameter+-- named Action.+--+-- The endpoint for configuration service requests is region-specific:+-- cloudsearch./region/.amazonaws.com. For example,+-- cloudsearch.us-east-1.amazonaws.com. For a current list of supported+-- regions and endpoints, see+-- <http://docs.aws.amazon.com/general/latest/gr/rande.html#cloudsearch_region Regions and Endpoints>.+--+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/what-is-cloudsearch.html AWS API Reference> module Network.AWS.CloudSearch-    ( module Network.AWS.CloudSearch.BuildSuggesters-    , module Network.AWS.CloudSearch.CreateDomain-    , module Network.AWS.CloudSearch.DefineAnalysisScheme-    , module Network.AWS.CloudSearch.DefineExpression-    , module Network.AWS.CloudSearch.DefineIndexField-    , module Network.AWS.CloudSearch.DefineSuggester-    , module Network.AWS.CloudSearch.DeleteAnalysisScheme-    , module Network.AWS.CloudSearch.DeleteDomain-    , module Network.AWS.CloudSearch.DeleteExpression-    , module Network.AWS.CloudSearch.DeleteIndexField-    , module Network.AWS.CloudSearch.DeleteSuggester-    , module Network.AWS.CloudSearch.DescribeAnalysisSchemes+    (+    -- * Service+      CloudSearch++    -- * Errors+    -- $errors++    -- ** BaseException+    , _BaseException++    -- ** DisabledOperationException+    , _DisabledOperationException++    -- ** InternalException+    , _InternalException++    -- ** InvalidTypeException+    , _InvalidTypeException++    -- ** ResourceNotFoundException+    , _ResourceNotFoundException++    -- ** LimitExceededException+    , _LimitExceededException++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** DescribeAvailabilityOptions     , module Network.AWS.CloudSearch.DescribeAvailabilityOptions-    , module Network.AWS.CloudSearch.DescribeDomains++    -- ** DescribeExpressions     , module Network.AWS.CloudSearch.DescribeExpressions-    , module Network.AWS.CloudSearch.DescribeIndexFields++    -- ** DefineExpression+    , module Network.AWS.CloudSearch.DefineExpression++    -- ** DescribeScalingParameters     , module Network.AWS.CloudSearch.DescribeScalingParameters++    -- ** DescribeServiceAccessPolicies     , module Network.AWS.CloudSearch.DescribeServiceAccessPolicies++    -- ** DescribeSuggesters     , module Network.AWS.CloudSearch.DescribeSuggesters-    , module Network.AWS.CloudSearch.IndexDocuments-    , module Network.AWS.CloudSearch.ListDomainNames-    , module Network.AWS.CloudSearch.Types++    -- ** UpdateAvailabilityOptions     , module Network.AWS.CloudSearch.UpdateAvailabilityOptions++    -- ** DeleteExpression+    , module Network.AWS.CloudSearch.DeleteExpression++    -- ** DescribeDomains+    , module Network.AWS.CloudSearch.DescribeDomains++    -- ** DefineSuggester+    , module Network.AWS.CloudSearch.DefineSuggester++    -- ** DeleteAnalysisScheme+    , module Network.AWS.CloudSearch.DeleteAnalysisScheme++    -- ** ListDomainNames+    , module Network.AWS.CloudSearch.ListDomainNames++    -- ** DescribeAnalysisSchemes+    , module Network.AWS.CloudSearch.DescribeAnalysisSchemes++    -- ** CreateDomain+    , module Network.AWS.CloudSearch.CreateDomain++    -- ** DefineAnalysisScheme+    , module Network.AWS.CloudSearch.DefineAnalysisScheme++    -- ** DeleteSuggester+    , module Network.AWS.CloudSearch.DeleteSuggester++    -- ** DescribeIndexFields+    , module Network.AWS.CloudSearch.DescribeIndexFields++    -- ** IndexDocuments+    , module Network.AWS.CloudSearch.IndexDocuments++    -- ** DeleteIndexField+    , module Network.AWS.CloudSearch.DeleteIndexField++    -- ** BuildSuggesters+    , module Network.AWS.CloudSearch.BuildSuggesters++    -- ** UpdateScalingParameters     , module Network.AWS.CloudSearch.UpdateScalingParameters++    -- ** UpdateServiceAccessPolicies     , module Network.AWS.CloudSearch.UpdateServiceAccessPolicies++    -- ** DefineIndexField+    , module Network.AWS.CloudSearch.DefineIndexField++    -- ** DeleteDomain+    , module Network.AWS.CloudSearch.DeleteDomain++    -- * Types++    -- ** AlgorithmicStemming+    , AlgorithmicStemming (..)++    -- ** AnalysisSchemeLanguage+    , AnalysisSchemeLanguage (..)++    -- ** IndexFieldType+    , IndexFieldType (..)++    -- ** OptionState+    , OptionState (..)++    -- ** PartitionInstanceType+    , PartitionInstanceType (..)++    -- ** SuggesterFuzzyMatching+    , SuggesterFuzzyMatching (..)++    -- ** AccessPoliciesStatus+    , AccessPoliciesStatus+    , accessPoliciesStatus+    , apsOptions+    , apsStatus++    -- ** AnalysisOptions+    , AnalysisOptions+    , analysisOptions+    , aoAlgorithmicStemming+    , aoStopwords+    , aoStemmingDictionary+    , aoSynonyms+    , aoJapaneseTokenizationDictionary++    -- ** AnalysisScheme+    , AnalysisScheme+    , analysisScheme+    , asAnalysisOptions+    , asAnalysisSchemeName+    , asAnalysisSchemeLanguage++    -- ** AnalysisSchemeStatus+    , AnalysisSchemeStatus+    , analysisSchemeStatus+    , assOptions+    , assStatus++    -- ** AvailabilityOptionsStatus+    , AvailabilityOptionsStatus+    , availabilityOptionsStatus+    , aosOptions+    , aosStatus++    -- ** DateArrayOptions+    , DateArrayOptions+    , dateArrayOptions+    , daosSourceFields+    , daosReturnEnabled+    , daosFacetEnabled+    , daosSearchEnabled+    , daosDefaultValue++    -- ** DateOptions+    , DateOptions+    , dateOptions+    , doSourceField+    , doReturnEnabled+    , doFacetEnabled+    , doSearchEnabled+    , doSortEnabled+    , doDefaultValue++    -- ** DocumentSuggesterOptions+    , DocumentSuggesterOptions+    , documentSuggesterOptions+    , dsoSortExpression+    , dsoFuzzyMatching+    , dsoSourceField++    -- ** DomainStatus+    , DomainStatus+    , domainStatus+    , dsSearchInstanceCount+    , dsSearchInstanceType+    , dsARN+    , dsDocService+    , dsCreated+    , dsSearchService+    , dsLimits+    , dsSearchPartitionCount+    , dsDeleted+    , dsProcessing+    , dsDomainId+    , dsDomainName+    , dsRequiresIndexDocuments++    -- ** DoubleArrayOptions+    , DoubleArrayOptions+    , doubleArrayOptions+    , daoSourceFields+    , daoReturnEnabled+    , daoFacetEnabled+    , daoSearchEnabled+    , daoDefaultValue++    -- ** DoubleOptions+    , DoubleOptions+    , doubleOptions+    , dSourceField+    , dReturnEnabled+    , dFacetEnabled+    , dSearchEnabled+    , dSortEnabled+    , dDefaultValue++    -- ** Expression+    , Expression+    , expression+    , eExpressionName+    , eExpressionValue++    -- ** ExpressionStatus+    , ExpressionStatus+    , expressionStatus+    , esOptions+    , esStatus++    -- ** IndexField+    , IndexField+    , indexField+    , ifDateOptions+    , ifTextArrayOptions+    , ifDoubleArrayOptions+    , ifDoubleOptions+    , ifTextOptions+    , ifLatLonOptions+    , ifIntArrayOptions+    , ifLiteralArrayOptions+    , ifDateArrayOptions+    , ifLiteralOptions+    , ifIntOptions+    , ifIndexFieldName+    , ifIndexFieldType++    -- ** IndexFieldStatus+    , IndexFieldStatus+    , indexFieldStatus+    , ifsOptions+    , ifsStatus++    -- ** IntArrayOptions+    , IntArrayOptions+    , intArrayOptions+    , iaoSourceFields+    , iaoReturnEnabled+    , iaoFacetEnabled+    , iaoSearchEnabled+    , iaoDefaultValue++    -- ** IntOptions+    , IntOptions+    , intOptions+    , ioSourceField+    , ioReturnEnabled+    , ioFacetEnabled+    , ioSearchEnabled+    , ioSortEnabled+    , ioDefaultValue++    -- ** LatLonOptions+    , LatLonOptions+    , latLonOptions+    , lloSourceField+    , lloReturnEnabled+    , lloFacetEnabled+    , lloSearchEnabled+    , lloSortEnabled+    , lloDefaultValue++    -- ** Limits+    , Limits+    , limits+    , lMaximumReplicationCount+    , lMaximumPartitionCount++    -- ** LiteralArrayOptions+    , LiteralArrayOptions+    , literalArrayOptions+    , laoSourceFields+    , laoReturnEnabled+    , laoFacetEnabled+    , laoSearchEnabled+    , laoDefaultValue++    -- ** LiteralOptions+    , LiteralOptions+    , literalOptions+    , loSourceField+    , loReturnEnabled+    , loFacetEnabled+    , loSearchEnabled+    , loSortEnabled+    , loDefaultValue++    -- ** OptionStatus+    , OptionStatus+    , optionStatus+    , osPendingDeletion+    , osUpdateVersion+    , osCreationDate+    , osUpdateDate+    , osState++    -- ** ScalingParameters+    , ScalingParameters+    , scalingParameters+    , spDesiredInstanceType+    , spDesiredReplicationCount+    , spDesiredPartitionCount++    -- ** ScalingParametersStatus+    , ScalingParametersStatus+    , scalingParametersStatus+    , spsOptions+    , spsStatus++    -- ** ServiceEndpoint+    , ServiceEndpoint+    , serviceEndpoint+    , seEndpoint++    -- ** Suggester+    , Suggester+    , suggester+    , sSuggesterName+    , sDocumentSuggesterOptions++    -- ** SuggesterStatus+    , SuggesterStatus+    , suggesterStatus+    , ssOptions+    , ssStatus++    -- ** TextArrayOptions+    , TextArrayOptions+    , textArrayOptions+    , taoSourceFields+    , taoReturnEnabled+    , taoAnalysisScheme+    , taoHighlightEnabled+    , taoDefaultValue++    -- ** TextOptions+    , TextOptions+    , textOptions+    , toSourceField+    , toReturnEnabled+    , toAnalysisScheme+    , toHighlightEnabled+    , toSortEnabled+    , toDefaultValue     ) where -import Network.AWS.CloudSearch.BuildSuggesters-import Network.AWS.CloudSearch.CreateDomain-import Network.AWS.CloudSearch.DefineAnalysisScheme-import Network.AWS.CloudSearch.DefineExpression-import Network.AWS.CloudSearch.DefineIndexField-import Network.AWS.CloudSearch.DefineSuggester-import Network.AWS.CloudSearch.DeleteAnalysisScheme-import Network.AWS.CloudSearch.DeleteDomain-import Network.AWS.CloudSearch.DeleteExpression-import Network.AWS.CloudSearch.DeleteIndexField-import Network.AWS.CloudSearch.DeleteSuggester-import Network.AWS.CloudSearch.DescribeAnalysisSchemes-import Network.AWS.CloudSearch.DescribeAvailabilityOptions-import Network.AWS.CloudSearch.DescribeDomains-import Network.AWS.CloudSearch.DescribeExpressions-import Network.AWS.CloudSearch.DescribeIndexFields-import Network.AWS.CloudSearch.DescribeScalingParameters-import Network.AWS.CloudSearch.DescribeServiceAccessPolicies-import Network.AWS.CloudSearch.DescribeSuggesters-import Network.AWS.CloudSearch.IndexDocuments-import Network.AWS.CloudSearch.ListDomainNames-import Network.AWS.CloudSearch.Types-import Network.AWS.CloudSearch.UpdateAvailabilityOptions-import Network.AWS.CloudSearch.UpdateScalingParameters-import Network.AWS.CloudSearch.UpdateServiceAccessPolicies+import           Network.AWS.CloudSearch.BuildSuggesters+import           Network.AWS.CloudSearch.CreateDomain+import           Network.AWS.CloudSearch.DefineAnalysisScheme+import           Network.AWS.CloudSearch.DefineExpression+import           Network.AWS.CloudSearch.DefineIndexField+import           Network.AWS.CloudSearch.DefineSuggester+import           Network.AWS.CloudSearch.DeleteAnalysisScheme+import           Network.AWS.CloudSearch.DeleteDomain+import           Network.AWS.CloudSearch.DeleteExpression+import           Network.AWS.CloudSearch.DeleteIndexField+import           Network.AWS.CloudSearch.DeleteSuggester+import           Network.AWS.CloudSearch.DescribeAnalysisSchemes+import           Network.AWS.CloudSearch.DescribeAvailabilityOptions+import           Network.AWS.CloudSearch.DescribeDomains+import           Network.AWS.CloudSearch.DescribeExpressions+import           Network.AWS.CloudSearch.DescribeIndexFields+import           Network.AWS.CloudSearch.DescribeScalingParameters+import           Network.AWS.CloudSearch.DescribeServiceAccessPolicies+import           Network.AWS.CloudSearch.DescribeSuggesters+import           Network.AWS.CloudSearch.IndexDocuments+import           Network.AWS.CloudSearch.ListDomainNames+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.UpdateAvailabilityOptions+import           Network.AWS.CloudSearch.UpdateScalingParameters+import           Network.AWS.CloudSearch.UpdateServiceAccessPolicies+import           Network.AWS.CloudSearch.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'CloudSearch'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,112 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.BuildSuggesters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Indexes the search suggestions. For more information, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html#configuring-suggesters ConfiguringSuggesters> in the /Amazon CloudSearch Developer Guide/.+-- Indexes the search suggestions. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html#configuring-suggesters Configuring Suggesters>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_BuildSuggesters.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_BuildSuggesters.html AWS API Reference> for BuildSuggesters. module Network.AWS.CloudSearch.BuildSuggesters     (-    -- * Request-      BuildSuggesters-    -- ** Request constructor-    , buildSuggesters-    -- ** Request lenses+    -- * Creating a Request+      buildSuggesters+    , BuildSuggesters+    -- * Request Lenses     , bsDomainName -    -- * Response-    , BuildSuggestersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , buildSuggestersResponse-    -- ** Response lenses-    , bsrFieldNames+    , BuildSuggestersResponse+    -- * Response Lenses+    , bsrsFieldNames+    , bsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype BuildSuggesters = BuildSuggesters+-- | Container for the parameters to the 'BuildSuggester' operation.+-- Specifies the name of the domain you want to update.+--+-- /See:/ 'buildSuggesters' smart constructor.+newtype BuildSuggesters = BuildSuggesters'     { _bsDomainName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'BuildSuggesters' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'BuildSuggesters' with the minimum fields required to make a request. ----- * 'bsDomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---buildSuggesters :: Text -- ^ 'bsDomainName'-                -> BuildSuggesters-buildSuggesters p1 = BuildSuggesters-    { _bsDomainName = p1+-- * 'bsDomainName'+buildSuggesters+    :: Text -- ^ 'bsDomainName'+    -> BuildSuggesters+buildSuggesters pDomainName_ =+    BuildSuggesters'+    { _bsDomainName = pDomainName_     } +-- | Undocumented member. bsDomainName :: Lens' BuildSuggesters Text-bsDomainName = lens _bsDomainName (\s a -> s { _bsDomainName = a })--newtype BuildSuggestersResponse = BuildSuggestersResponse-    { _bsrFieldNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList BuildSuggestersResponse where-    type Item BuildSuggestersResponse = Text--    fromList = BuildSuggestersResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _bsrFieldNames+bsDomainName = lens _bsDomainName (\ s a -> s{_bsDomainName = a}); --- | 'BuildSuggestersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'bsrFieldNames' @::@ ['Text']----buildSuggestersResponse :: BuildSuggestersResponse-buildSuggestersResponse = BuildSuggestersResponse-    { _bsrFieldNames = mempty-    }+instance AWSRequest BuildSuggesters where+        type Sv BuildSuggesters = CloudSearch+        type Rs BuildSuggesters = BuildSuggestersResponse+        request = postQuery+        response+          = receiveXMLWrapper "BuildSuggestersResult"+              (\ s h x ->+                 BuildSuggestersResponse' <$>+                   (x .@? "FieldNames" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -bsrFieldNames :: Lens' BuildSuggestersResponse [Text]-bsrFieldNames = lens _bsrFieldNames (\s a -> s { _bsrFieldNames = a }) . _List+instance ToHeaders BuildSuggesters where+        toHeaders = const mempty  instance ToPath BuildSuggesters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery BuildSuggesters where-    toQuery BuildSuggesters{..} = mconcat-        [ "DomainName" =? _bsDomainName-        ]+        toQuery BuildSuggesters'{..}+          = mconcat+              ["Action" =: ("BuildSuggesters" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _bsDomainName] -instance ToHeaders BuildSuggesters+-- | The result of a 'BuildSuggester' request. Contains a list of the fields+-- used for suggestions.+--+-- /See:/ 'buildSuggestersResponse' smart constructor.+data BuildSuggestersResponse = BuildSuggestersResponse'+    { _bsrsFieldNames :: !(Maybe [Text])+    , _bsrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest BuildSuggesters where-    type Sv BuildSuggesters = CloudSearch-    type Rs BuildSuggesters = BuildSuggestersResponse+-- | Creates a value of 'BuildSuggestersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bsrsFieldNames'+--+-- * 'bsrsStatus'+buildSuggestersResponse+    :: Int -- ^ 'bsrsStatus'+    -> BuildSuggestersResponse+buildSuggestersResponse pStatus_ =+    BuildSuggestersResponse'+    { _bsrsFieldNames = Nothing+    , _bsrsStatus = pStatus_+    } -    request  = post "BuildSuggesters"-    response = xmlResponse+-- | Undocumented member.+bsrsFieldNames :: Lens' BuildSuggestersResponse [Text]+bsrsFieldNames = lens _bsrsFieldNames (\ s a -> s{_bsrsFieldNames = a}) . _Default . _Coerce; -instance FromXML BuildSuggestersResponse where-    parseXML = withElement "BuildSuggestersResult" $ \x -> BuildSuggestersResponse-        <$> x .@? "FieldNames" .!@ mempty+-- | The response status code.+bsrsStatus :: Lens' BuildSuggestersResponse Int+bsrsStatus = lens _bsrsStatus (\ s a -> s{_bsrsStatus = a});

@@ -1,110 +1,130 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.CreateDomain--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Creates a new search domain. For more information, see Creating a Search--- Domain in the /Amazon CloudSearch Developer Guide/.+-- Creates a new search domain. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/creating-domains.html Creating a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_CreateDomain.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_CreateDomain.html AWS API Reference> for CreateDomain. module Network.AWS.CloudSearch.CreateDomain     (-    -- * Request-      CreateDomain-    -- ** Request constructor-    , createDomain-    -- ** Request lenses+    -- * Creating a Request+      createDomain+    , CreateDomain+    -- * Request Lenses     , cdDomainName -    -- * Response-    , CreateDomainResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createDomainResponse-    -- ** Response lenses-    , cdrDomainStatus+    , CreateDomainResponse+    -- * Response Lenses+    , cdrsDomainStatus+    , cdrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype CreateDomain = CreateDomain+-- | Container for the parameters to the 'CreateDomain' operation. Specifies+-- a name for the new search domain.+--+-- /See:/ 'createDomain' smart constructor.+newtype CreateDomain = CreateDomain'     { _cdDomainName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateDomain' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateDomain' with the minimum fields required to make a request. ----- * 'cdDomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---createDomain :: Text -- ^ 'cdDomainName'-             -> CreateDomain-createDomain p1 = CreateDomain-    { _cdDomainName = p1+-- * 'cdDomainName'+createDomain+    :: Text -- ^ 'cdDomainName'+    -> CreateDomain+createDomain pDomainName_ =+    CreateDomain'+    { _cdDomainName = pDomainName_     }  -- | A name for the domain you are creating. Allowed characters are a-z--- (lower-case letters), 0-9, and hyphen (-). Domain names must start with a--- letter or number and be at least 3 and no more than 28 characters long.+-- (lower-case letters), 0-9, and hyphen (-). Domain names must start with+-- a letter or number and be at least 3 and no more than 28 characters+-- long. cdDomainName :: Lens' CreateDomain Text-cdDomainName = lens _cdDomainName (\s a -> s { _cdDomainName = a })--newtype CreateDomainResponse = CreateDomainResponse-    { _cdrDomainStatus :: Maybe DomainStatus-    } deriving (Eq, Read, Show)+cdDomainName = lens _cdDomainName (\ s a -> s{_cdDomainName = a}); --- | 'CreateDomainResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'cdrDomainStatus' @::@ 'Maybe' 'DomainStatus'----createDomainResponse :: CreateDomainResponse-createDomainResponse = CreateDomainResponse-    { _cdrDomainStatus = Nothing-    }+instance AWSRequest CreateDomain where+        type Sv CreateDomain = CloudSearch+        type Rs CreateDomain = CreateDomainResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateDomainResult"+              (\ s h x ->+                 CreateDomainResponse' <$>+                   (x .@? "DomainStatus") <*> (pure (fromEnum s))) -cdrDomainStatus :: Lens' CreateDomainResponse (Maybe DomainStatus)-cdrDomainStatus = lens _cdrDomainStatus (\s a -> s { _cdrDomainStatus = a })+instance ToHeaders CreateDomain where+        toHeaders = const mempty  instance ToPath CreateDomain where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateDomain where-    toQuery CreateDomain{..} = mconcat-        [ "DomainName" =? _cdDomainName-        ]+        toQuery CreateDomain'{..}+          = mconcat+              ["Action" =: ("CreateDomain" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _cdDomainName] -instance ToHeaders CreateDomain+-- | The result of a 'CreateDomainRequest'. Contains the status of a newly+-- created domain.+--+-- /See:/ 'createDomainResponse' smart constructor.+data CreateDomainResponse = CreateDomainResponse'+    { _cdrsDomainStatus :: !(Maybe DomainStatus)+    , _cdrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateDomain where-    type Sv CreateDomain = CloudSearch-    type Rs CreateDomain = CreateDomainResponse+-- | Creates a value of 'CreateDomainResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdrsDomainStatus'+--+-- * 'cdrsStatus'+createDomainResponse+    :: Int -- ^ 'cdrsStatus'+    -> CreateDomainResponse+createDomainResponse pStatus_ =+    CreateDomainResponse'+    { _cdrsDomainStatus = Nothing+    , _cdrsStatus = pStatus_+    } -    request  = post "CreateDomain"-    response = xmlResponse+-- | Undocumented member.+cdrsDomainStatus :: Lens' CreateDomainResponse (Maybe DomainStatus)+cdrsDomainStatus = lens _cdrsDomainStatus (\ s a -> s{_cdrsDomainStatus = a}); -instance FromXML CreateDomainResponse where-    parseXML = withElement "CreateDomainResult" $ \x -> CreateDomainResponse-        <$> x .@? "DomainStatus"+-- | The response status code.+cdrsStatus :: Lens' CreateDomainResponse Int+cdrsStatus = lens _cdrsStatus (\ s a -> s{_cdrsStatus = a});

@@ -1,121 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DefineAnalysisScheme--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Configures an analysis scheme that can be applied to a 'text' or 'text-array'--- field to define language-specific text processing options. For more--- information, see Configuring Analysis Schemes in the /Amazon CloudSearchDeveloper Guide/.+-- Configures an analysis scheme that can be applied to a 'text' or+-- 'text-array' field to define language-specific text processing options.+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineAnalysisScheme.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineAnalysisScheme.html AWS API Reference> for DefineAnalysisScheme. module Network.AWS.CloudSearch.DefineAnalysisScheme     (-    -- * Request-      DefineAnalysisScheme-    -- ** Request constructor-    , defineAnalysisScheme-    -- ** Request lenses-    , das2AnalysisScheme-    , das2DomainName+    -- * Creating a Request+      defineAnalysisScheme+    , DefineAnalysisScheme+    -- * Request Lenses+    , dasaDomainName+    , dasaAnalysisScheme -    -- * Response-    , DefineAnalysisSchemeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , defineAnalysisSchemeResponse-    -- ** Response lenses-    , dasr1AnalysisScheme+    , DefineAnalysisSchemeResponse+    -- * Response Lenses+    , defersStatus+    , defersAnalysisScheme     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DefineAnalysisScheme = DefineAnalysisScheme-    { _das2AnalysisScheme :: AnalysisScheme-    , _das2DomainName     :: Text-    } deriving (Eq, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DefineAnalysisScheme' constructor.+-- | Container for the parameters to the 'DefineAnalysisScheme' operation.+-- Specifies the name of the domain you want to update and the analysis+-- scheme configuration. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'defineAnalysisScheme' smart constructor.+data DefineAnalysisScheme = DefineAnalysisScheme'+    { _dasaDomainName     :: !Text+    , _dasaAnalysisScheme :: !AnalysisScheme+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DefineAnalysisScheme' with the minimum fields required to make a request. ----- * 'das2AnalysisScheme' @::@ 'AnalysisScheme'+-- Use one of the following lenses to modify other fields as desired: ----- * 'das2DomainName' @::@ 'Text'+-- * 'dasaDomainName' ---defineAnalysisScheme :: Text -- ^ 'das2DomainName'-                     -> AnalysisScheme -- ^ 'das2AnalysisScheme'-                     -> DefineAnalysisScheme-defineAnalysisScheme p1 p2 = DefineAnalysisScheme-    { _das2DomainName     = p1-    , _das2AnalysisScheme = p2+-- * 'dasaAnalysisScheme'+defineAnalysisScheme+    :: Text -- ^ 'dasaDomainName'+    -> AnalysisScheme -- ^ 'dasaAnalysisScheme'+    -> DefineAnalysisScheme+defineAnalysisScheme pDomainName_ pAnalysisScheme_ =+    DefineAnalysisScheme'+    { _dasaDomainName = pDomainName_+    , _dasaAnalysisScheme = pAnalysisScheme_     } -das2AnalysisScheme :: Lens' DefineAnalysisScheme AnalysisScheme-das2AnalysisScheme =-    lens _das2AnalysisScheme (\s a -> s { _das2AnalysisScheme = a })--das2DomainName :: Lens' DefineAnalysisScheme Text-das2DomainName = lens _das2DomainName (\s a -> s { _das2DomainName = a })+-- | Undocumented member.+dasaDomainName :: Lens' DefineAnalysisScheme Text+dasaDomainName = lens _dasaDomainName (\ s a -> s{_dasaDomainName = a}); -newtype DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse-    { _dasr1AnalysisScheme :: AnalysisSchemeStatus-    } deriving (Eq, Read, Show)+-- | Undocumented member.+dasaAnalysisScheme :: Lens' DefineAnalysisScheme AnalysisScheme+dasaAnalysisScheme = lens _dasaAnalysisScheme (\ s a -> s{_dasaAnalysisScheme = a}); --- | 'DefineAnalysisSchemeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dasr1AnalysisScheme' @::@ 'AnalysisSchemeStatus'----defineAnalysisSchemeResponse :: AnalysisSchemeStatus -- ^ 'dasr1AnalysisScheme'-                             -> DefineAnalysisSchemeResponse-defineAnalysisSchemeResponse p1 = DefineAnalysisSchemeResponse-    { _dasr1AnalysisScheme = p1-    }+instance AWSRequest DefineAnalysisScheme where+        type Sv DefineAnalysisScheme = CloudSearch+        type Rs DefineAnalysisScheme =+             DefineAnalysisSchemeResponse+        request = postQuery+        response+          = receiveXMLWrapper "DefineAnalysisSchemeResult"+              (\ s h x ->+                 DefineAnalysisSchemeResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "AnalysisScheme")) -dasr1AnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus-dasr1AnalysisScheme =-    lens _dasr1AnalysisScheme (\s a -> s { _dasr1AnalysisScheme = a })+instance ToHeaders DefineAnalysisScheme where+        toHeaders = const mempty  instance ToPath DefineAnalysisScheme where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DefineAnalysisScheme where-    toQuery DefineAnalysisScheme{..} = mconcat-        [ "AnalysisScheme" =? _das2AnalysisScheme-        , "DomainName"     =? _das2DomainName-        ]+        toQuery DefineAnalysisScheme'{..}+          = mconcat+              ["Action" =: ("DefineAnalysisScheme" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _dasaDomainName,+               "AnalysisScheme" =: _dasaAnalysisScheme] -instance ToHeaders DefineAnalysisScheme+-- | The result of a 'DefineAnalysisScheme' request. Contains the status of+-- the newly-configured analysis scheme.+--+-- /See:/ 'defineAnalysisSchemeResponse' smart constructor.+data DefineAnalysisSchemeResponse = DefineAnalysisSchemeResponse'+    { _defersStatus         :: !Int+    , _defersAnalysisScheme :: !AnalysisSchemeStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DefineAnalysisScheme where-    type Sv DefineAnalysisScheme = CloudSearch-    type Rs DefineAnalysisScheme = DefineAnalysisSchemeResponse+-- | Creates a value of 'DefineAnalysisSchemeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'defersStatus'+--+-- * 'defersAnalysisScheme'+defineAnalysisSchemeResponse+    :: Int -- ^ 'defersStatus'+    -> AnalysisSchemeStatus -- ^ 'defersAnalysisScheme'+    -> DefineAnalysisSchemeResponse+defineAnalysisSchemeResponse pStatus_ pAnalysisScheme_ =+    DefineAnalysisSchemeResponse'+    { _defersStatus = pStatus_+    , _defersAnalysisScheme = pAnalysisScheme_+    } -    request  = post "DefineAnalysisScheme"-    response = xmlResponse+-- | The response status code.+defersStatus :: Lens' DefineAnalysisSchemeResponse Int+defersStatus = lens _defersStatus (\ s a -> s{_defersStatus = a}); -instance FromXML DefineAnalysisSchemeResponse where-    parseXML = withElement "DefineAnalysisSchemeResult" $ \x -> DefineAnalysisSchemeResponse-        <$> x .@  "AnalysisScheme"+-- | Undocumented member.+defersAnalysisScheme :: Lens' DefineAnalysisSchemeResponse AnalysisSchemeStatus+defersAnalysisScheme = lens _defersAnalysisScheme (\ s a -> s{_defersAnalysisScheme = a});

@@ -1,120 +1,142 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DefineExpression--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Configures an ''Expression' for the search domain. Used to create new+-- Configures an 'Expression' for the search domain. Used to create new -- expressions and modify existing ones. If the expression exists, the new--- configuration replaces the old one. For more information, see Configuring--- Expressions in the /Amazon CloudSearch Developer Guide/.+-- configuration replaces the old one. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html Configuring Expressions>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineExpression.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineExpression.html AWS API Reference> for DefineExpression. module Network.AWS.CloudSearch.DefineExpression     (-    -- * Request-      DefineExpression-    -- ** Request constructor-    , defineExpression-    -- ** Request lenses-    , de1DomainName-    , de1Expression+    -- * Creating a Request+      defineExpression+    , DefineExpression+    -- * Request Lenses+    , dDomainName+    , dExpression -    -- * Response-    , DefineExpressionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , defineExpressionResponse-    -- ** Response lenses-    , derExpression+    , DefineExpressionResponse+    -- * Response Lenses+    , dersStatus+    , dersExpression     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DefineExpression = DefineExpression-    { _de1DomainName :: Text-    , _de1Expression :: Expression-    } deriving (Eq, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DefineExpression' constructor.+-- | Container for the parameters to the 'DefineExpression' operation.+-- Specifies the name of the domain you want to update and the expression+-- you want to configure. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'defineExpression' smart constructor.+data DefineExpression = DefineExpression'+    { _dDomainName :: !Text+    , _dExpression :: !Expression+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DefineExpression' with the minimum fields required to make a request. ----- * 'de1DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'de1Expression' @::@ 'Expression'+-- * 'dDomainName' ---defineExpression :: Text -- ^ 'de1DomainName'-                 -> Expression -- ^ 'de1Expression'-                 -> DefineExpression-defineExpression p1 p2 = DefineExpression-    { _de1DomainName = p1-    , _de1Expression = p2+-- * 'dExpression'+defineExpression+    :: Text -- ^ 'dDomainName'+    -> Expression -- ^ 'dExpression'+    -> DefineExpression+defineExpression pDomainName_ pExpression_ =+    DefineExpression'+    { _dDomainName = pDomainName_+    , _dExpression = pExpression_     } -de1DomainName :: Lens' DefineExpression Text-de1DomainName = lens _de1DomainName (\s a -> s { _de1DomainName = a })--de1Expression :: Lens' DefineExpression Expression-de1Expression = lens _de1Expression (\s a -> s { _de1Expression = a })+-- | Undocumented member.+dDomainName :: Lens' DefineExpression Text+dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a}); -newtype DefineExpressionResponse = DefineExpressionResponse-    { _derExpression :: ExpressionStatus-    } deriving (Eq, Read, Show)+-- | Undocumented member.+dExpression :: Lens' DefineExpression Expression+dExpression = lens _dExpression (\ s a -> s{_dExpression = a}); --- | 'DefineExpressionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'derExpression' @::@ 'ExpressionStatus'----defineExpressionResponse :: ExpressionStatus -- ^ 'derExpression'-                         -> DefineExpressionResponse-defineExpressionResponse p1 = DefineExpressionResponse-    { _derExpression = p1-    }+instance AWSRequest DefineExpression where+        type Sv DefineExpression = CloudSearch+        type Rs DefineExpression = DefineExpressionResponse+        request = postQuery+        response+          = receiveXMLWrapper "DefineExpressionResult"+              (\ s h x ->+                 DefineExpressionResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Expression")) -derExpression :: Lens' DefineExpressionResponse ExpressionStatus-derExpression = lens _derExpression (\s a -> s { _derExpression = a })+instance ToHeaders DefineExpression where+        toHeaders = const mempty  instance ToPath DefineExpression where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DefineExpression where-    toQuery DefineExpression{..} = mconcat-        [ "DomainName" =? _de1DomainName-        , "Expression" =? _de1Expression-        ]+        toQuery DefineExpression'{..}+          = mconcat+              ["Action" =: ("DefineExpression" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _dDomainName,+               "Expression" =: _dExpression] -instance ToHeaders DefineExpression+-- | The result of a 'DefineExpression' request. Contains the status of the+-- newly-configured expression.+--+-- /See:/ 'defineExpressionResponse' smart constructor.+data DefineExpressionResponse = DefineExpressionResponse'+    { _dersStatus     :: !Int+    , _dersExpression :: !ExpressionStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DefineExpression where-    type Sv DefineExpression = CloudSearch-    type Rs DefineExpression = DefineExpressionResponse+-- | Creates a value of 'DefineExpressionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dersStatus'+--+-- * 'dersExpression'+defineExpressionResponse+    :: Int -- ^ 'dersStatus'+    -> ExpressionStatus -- ^ 'dersExpression'+    -> DefineExpressionResponse+defineExpressionResponse pStatus_ pExpression_ =+    DefineExpressionResponse'+    { _dersStatus = pStatus_+    , _dersExpression = pExpression_+    } -    request  = post "DefineExpression"-    response = xmlResponse+-- | The response status code.+dersStatus :: Lens' DefineExpressionResponse Int+dersStatus = lens _dersStatus (\ s a -> s{_dersStatus = a}); -instance FromXML DefineExpressionResponse where-    parseXML = withElement "DefineExpressionResult" $ \x -> DefineExpressionResponse-        <$> x .@  "Expression"+-- | Undocumented member.+dersExpression :: Lens' DefineExpressionResponse ExpressionStatus+dersExpression = lens _dersExpression (\ s a -> s{_dersExpression = a});

@@ -1,123 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DefineIndexField--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Configures an ''IndexField' for the search domain. Used to create new fields and--- modify existing ones. You must specify the name of the domain you are--- configuring and an index field configuration. The index field configuration--- specifies a unique name, the index field type, and the options you want to--- configure for the field. The options you can specify depend on the ''IndexFieldType'. If the field exists, the new configuration replaces the old one. For more--- information, see Configuring Index Fields in the /Amazon CloudSearch DeveloperGuide/.+-- Configures an 'IndexField' for the search domain. Used to create new+-- fields and modify existing ones. You must specify the name of the domain+-- you are configuring and an index field configuration. The index field+-- configuration specifies a unique name, the index field type, and the+-- options you want to configure for the field. The options you can specify+-- depend on the 'IndexFieldType'. If the field exists, the new+-- configuration replaces the old one. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-index-fields.html Configuring Index Fields>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineIndexField.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineIndexField.html AWS API Reference> for DefineIndexField. module Network.AWS.CloudSearch.DefineIndexField     (-    -- * Request-      DefineIndexField-    -- ** Request constructor-    , defineIndexField-    -- ** Request lenses-    , dif2DomainName-    , dif2IndexField+    -- * Creating a Request+      defineIndexField+    , DefineIndexField+    -- * Request Lenses+    , defeDomainName+    , defeIndexField -    -- * Response-    , DefineIndexFieldResponse-    -- ** Response constructor+    -- * Destructuring the Response     , defineIndexFieldResponse-    -- ** Response lenses-    , difr1IndexField+    , DefineIndexFieldResponse+    -- * Response Lenses+    , defrsStatus+    , defrsIndexField     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DefineIndexField = DefineIndexField-    { _dif2DomainName :: Text-    , _dif2IndexField :: IndexField-    } deriving (Eq, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DefineIndexField' constructor.+-- | Container for the parameters to the 'DefineIndexField' operation.+-- Specifies the name of the domain you want to update and the index field+-- configuration. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'defineIndexField' smart constructor.+data DefineIndexField = DefineIndexField'+    { _defeDomainName :: !Text+    , _defeIndexField :: !IndexField+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DefineIndexField' with the minimum fields required to make a request. ----- * 'dif2DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dif2IndexField' @::@ 'IndexField'+-- * 'defeDomainName' ---defineIndexField :: Text -- ^ 'dif2DomainName'-                 -> IndexField -- ^ 'dif2IndexField'-                 -> DefineIndexField-defineIndexField p1 p2 = DefineIndexField-    { _dif2DomainName = p1-    , _dif2IndexField = p2+-- * 'defeIndexField'+defineIndexField+    :: Text -- ^ 'defeDomainName'+    -> IndexField -- ^ 'defeIndexField'+    -> DefineIndexField+defineIndexField pDomainName_ pIndexField_ =+    DefineIndexField'+    { _defeDomainName = pDomainName_+    , _defeIndexField = pIndexField_     } -dif2DomainName :: Lens' DefineIndexField Text-dif2DomainName = lens _dif2DomainName (\s a -> s { _dif2DomainName = a })+-- | Undocumented member.+defeDomainName :: Lens' DefineIndexField Text+defeDomainName = lens _defeDomainName (\ s a -> s{_defeDomainName = a});  -- | The index field and field options you want to configure.-dif2IndexField :: Lens' DefineIndexField IndexField-dif2IndexField = lens _dif2IndexField (\s a -> s { _dif2IndexField = a })--newtype DefineIndexFieldResponse = DefineIndexFieldResponse-    { _difr1IndexField :: IndexFieldStatus-    } deriving (Eq, Read, Show)+defeIndexField :: Lens' DefineIndexField IndexField+defeIndexField = lens _defeIndexField (\ s a -> s{_defeIndexField = a}); --- | 'DefineIndexFieldResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'difr1IndexField' @::@ 'IndexFieldStatus'----defineIndexFieldResponse :: IndexFieldStatus -- ^ 'difr1IndexField'-                         -> DefineIndexFieldResponse-defineIndexFieldResponse p1 = DefineIndexFieldResponse-    { _difr1IndexField = p1-    }+instance AWSRequest DefineIndexField where+        type Sv DefineIndexField = CloudSearch+        type Rs DefineIndexField = DefineIndexFieldResponse+        request = postQuery+        response+          = receiveXMLWrapper "DefineIndexFieldResult"+              (\ s h x ->+                 DefineIndexFieldResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "IndexField")) -difr1IndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus-difr1IndexField = lens _difr1IndexField (\s a -> s { _difr1IndexField = a })+instance ToHeaders DefineIndexField where+        toHeaders = const mempty  instance ToPath DefineIndexField where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DefineIndexField where-    toQuery DefineIndexField{..} = mconcat-        [ "DomainName" =? _dif2DomainName-        , "IndexField" =? _dif2IndexField-        ]+        toQuery DefineIndexField'{..}+          = mconcat+              ["Action" =: ("DefineIndexField" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _defeDomainName,+               "IndexField" =: _defeIndexField] -instance ToHeaders DefineIndexField+-- | The result of a 'DefineIndexField' request. Contains the status of the+-- newly-configured index field.+--+-- /See:/ 'defineIndexFieldResponse' smart constructor.+data DefineIndexFieldResponse = DefineIndexFieldResponse'+    { _defrsStatus     :: !Int+    , _defrsIndexField :: !IndexFieldStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DefineIndexField where-    type Sv DefineIndexField = CloudSearch-    type Rs DefineIndexField = DefineIndexFieldResponse+-- | Creates a value of 'DefineIndexFieldResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'defrsStatus'+--+-- * 'defrsIndexField'+defineIndexFieldResponse+    :: Int -- ^ 'defrsStatus'+    -> IndexFieldStatus -- ^ 'defrsIndexField'+    -> DefineIndexFieldResponse+defineIndexFieldResponse pStatus_ pIndexField_ =+    DefineIndexFieldResponse'+    { _defrsStatus = pStatus_+    , _defrsIndexField = pIndexField_+    } -    request  = post "DefineIndexField"-    response = xmlResponse+-- | The response status code.+defrsStatus :: Lens' DefineIndexFieldResponse Int+defrsStatus = lens _defrsStatus (\ s a -> s{_defrsStatus = a}); -instance FromXML DefineIndexFieldResponse where-    parseXML = withElement "DefineIndexFieldResult" $ \x -> DefineIndexFieldResponse-        <$> x .@  "IndexField"+-- | Undocumented member.+defrsIndexField :: Lens' DefineIndexFieldResponse IndexFieldStatus+defrsIndexField = lens _defrsIndexField (\ s a -> s{_defrsIndexField = a});

@@ -1,121 +1,144 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DefineSuggester--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Configures a suggester for a domain. A suggester enables you to display--- possible matches before users finish typing their queries. When you configure--- a suggester, you must specify the name of the text field you want to search--- for possible matches and a unique name for the suggester. For more--- information, see Getting Search Suggestions in the /Amazon CloudSearchDeveloper Guide/.+-- Configures a suggester for a domain. A suggester enables you to display+-- possible matches before users finish typing their queries. When you+-- configure a suggester, you must specify the name of the text field you+-- want to search for possible matches and a unique name for the suggester.+-- For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Search Suggestions>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineSuggester.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DefineSuggester.html AWS API Reference> for DefineSuggester. module Network.AWS.CloudSearch.DefineSuggester     (-    -- * Request-      DefineSuggester-    -- ** Request constructor-    , defineSuggester-    -- ** Request lenses-    , ds2DomainName-    , ds2Suggester+    -- * Creating a Request+      defineSuggester+    , DefineSuggester+    -- * Request Lenses+    , defDomainName+    , defSuggester -    -- * Response-    , DefineSuggesterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , defineSuggesterResponse-    -- ** Response lenses-    , dsrSuggester+    , DefineSuggesterResponse+    -- * Response Lenses+    , dsrsStatus+    , dsrsSuggester     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DefineSuggester = DefineSuggester-    { _ds2DomainName :: Text-    , _ds2Suggester  :: Suggester-    } deriving (Eq, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DefineSuggester' constructor.+-- | Container for the parameters to the 'DefineSuggester' operation.+-- Specifies the name of the domain you want to update and the suggester+-- configuration. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'defineSuggester' smart constructor.+data DefineSuggester = DefineSuggester'+    { _defDomainName :: !Text+    , _defSuggester  :: !Suggester+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DefineSuggester' with the minimum fields required to make a request. ----- * 'ds2DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ds2Suggester' @::@ 'Suggester'+-- * 'defDomainName' ---defineSuggester :: Text -- ^ 'ds2DomainName'-                -> Suggester -- ^ 'ds2Suggester'-                -> DefineSuggester-defineSuggester p1 p2 = DefineSuggester-    { _ds2DomainName = p1-    , _ds2Suggester  = p2+-- * 'defSuggester'+defineSuggester+    :: Text -- ^ 'defDomainName'+    -> Suggester -- ^ 'defSuggester'+    -> DefineSuggester+defineSuggester pDomainName_ pSuggester_ =+    DefineSuggester'+    { _defDomainName = pDomainName_+    , _defSuggester = pSuggester_     } -ds2DomainName :: Lens' DefineSuggester Text-ds2DomainName = lens _ds2DomainName (\s a -> s { _ds2DomainName = a })--ds2Suggester :: Lens' DefineSuggester Suggester-ds2Suggester = lens _ds2Suggester (\s a -> s { _ds2Suggester = a })+-- | Undocumented member.+defDomainName :: Lens' DefineSuggester Text+defDomainName = lens _defDomainName (\ s a -> s{_defDomainName = a}); -newtype DefineSuggesterResponse = DefineSuggesterResponse-    { _dsrSuggester :: SuggesterStatus-    } deriving (Eq, Read, Show)+-- | Undocumented member.+defSuggester :: Lens' DefineSuggester Suggester+defSuggester = lens _defSuggester (\ s a -> s{_defSuggester = a}); --- | 'DefineSuggesterResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsrSuggester' @::@ 'SuggesterStatus'----defineSuggesterResponse :: SuggesterStatus -- ^ 'dsrSuggester'-                        -> DefineSuggesterResponse-defineSuggesterResponse p1 = DefineSuggesterResponse-    { _dsrSuggester = p1-    }+instance AWSRequest DefineSuggester where+        type Sv DefineSuggester = CloudSearch+        type Rs DefineSuggester = DefineSuggesterResponse+        request = postQuery+        response+          = receiveXMLWrapper "DefineSuggesterResult"+              (\ s h x ->+                 DefineSuggesterResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Suggester")) -dsrSuggester :: Lens' DefineSuggesterResponse SuggesterStatus-dsrSuggester = lens _dsrSuggester (\s a -> s { _dsrSuggester = a })+instance ToHeaders DefineSuggester where+        toHeaders = const mempty  instance ToPath DefineSuggester where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DefineSuggester where-    toQuery DefineSuggester{..} = mconcat-        [ "DomainName" =? _ds2DomainName-        , "Suggester"  =? _ds2Suggester-        ]+        toQuery DefineSuggester'{..}+          = mconcat+              ["Action" =: ("DefineSuggester" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _defDomainName,+               "Suggester" =: _defSuggester] -instance ToHeaders DefineSuggester+-- | The result of a 'DefineSuggester' request. Contains the status of the+-- newly-configured suggester.+--+-- /See:/ 'defineSuggesterResponse' smart constructor.+data DefineSuggesterResponse = DefineSuggesterResponse'+    { _dsrsStatus    :: !Int+    , _dsrsSuggester :: !SuggesterStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DefineSuggester where-    type Sv DefineSuggester = CloudSearch-    type Rs DefineSuggester = DefineSuggesterResponse+-- | Creates a value of 'DefineSuggesterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrsStatus'+--+-- * 'dsrsSuggester'+defineSuggesterResponse+    :: Int -- ^ 'dsrsStatus'+    -> SuggesterStatus -- ^ 'dsrsSuggester'+    -> DefineSuggesterResponse+defineSuggesterResponse pStatus_ pSuggester_ =+    DefineSuggesterResponse'+    { _dsrsStatus = pStatus_+    , _dsrsSuggester = pSuggester_+    } -    request  = post "DefineSuggester"-    response = xmlResponse+-- | The response status code.+dsrsStatus :: Lens' DefineSuggesterResponse Int+dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a}); -instance FromXML DefineSuggesterResponse where-    parseXML = withElement "DefineSuggesterResult" $ \x -> DefineSuggesterResponse-        <$> x .@  "Suggester"+-- | Undocumented member.+dsrsSuggester :: Lens' DefineSuggesterResponse SuggesterStatus+dsrsSuggester = lens _dsrsSuggester (\ s a -> s{_dsrsSuggester = a});

@@ -1,122 +1,141 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DeleteAnalysisScheme--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes an analysis scheme. For more information, see Configuring Analysis--- Schemes in the /Amazon CloudSearch Developer Guide/.+-- Deletes an analysis scheme. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteAnalysisScheme.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteAnalysisScheme.html AWS API Reference> for DeleteAnalysisScheme. module Network.AWS.CloudSearch.DeleteAnalysisScheme     (-    -- * Request-      DeleteAnalysisScheme-    -- ** Request constructor-    , deleteAnalysisScheme-    -- ** Request lenses-    , dasAnalysisSchemeName+    -- * Creating a Request+      deleteAnalysisScheme+    , DeleteAnalysisScheme+    -- * Request Lenses     , dasDomainName+    , dasAnalysisSchemeName -    -- * Response-    , DeleteAnalysisSchemeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteAnalysisSchemeResponse-    -- ** Response lenses-    , dasrAnalysisScheme+    , DeleteAnalysisSchemeResponse+    -- * Response Lenses+    , dasarsStatus+    , dasarsAnalysisScheme     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DeleteAnalysisScheme = DeleteAnalysisScheme-    { _dasAnalysisSchemeName :: Text-    , _dasDomainName         :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteAnalysisScheme' constructor.+-- | Container for the parameters to the 'DeleteAnalysisScheme' operation.+-- Specifies the name of the domain you want to update and the analysis+-- scheme you want to delete. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteAnalysisScheme' smart constructor.+data DeleteAnalysisScheme = DeleteAnalysisScheme'+    { _dasDomainName         :: !Text+    , _dasAnalysisSchemeName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteAnalysisScheme' with the minimum fields required to make a request. ----- * 'dasAnalysisSchemeName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dasDomainName' @::@ 'Text'+-- * 'dasDomainName' ---deleteAnalysisScheme :: Text -- ^ 'dasDomainName'-                     -> Text -- ^ 'dasAnalysisSchemeName'-                     -> DeleteAnalysisScheme-deleteAnalysisScheme p1 p2 = DeleteAnalysisScheme-    { _dasDomainName         = p1-    , _dasAnalysisSchemeName = p2+-- * 'dasAnalysisSchemeName'+deleteAnalysisScheme+    :: Text -- ^ 'dasDomainName'+    -> Text -- ^ 'dasAnalysisSchemeName'+    -> DeleteAnalysisScheme+deleteAnalysisScheme pDomainName_ pAnalysisSchemeName_ =+    DeleteAnalysisScheme'+    { _dasDomainName = pDomainName_+    , _dasAnalysisSchemeName = pAnalysisSchemeName_     } --- | The name of the analysis scheme you want to delete.-dasAnalysisSchemeName :: Lens' DeleteAnalysisScheme Text-dasAnalysisSchemeName =-    lens _dasAnalysisSchemeName (\s a -> s { _dasAnalysisSchemeName = a })-+-- | Undocumented member. dasDomainName :: Lens' DeleteAnalysisScheme Text-dasDomainName = lens _dasDomainName (\s a -> s { _dasDomainName = a })+dasDomainName = lens _dasDomainName (\ s a -> s{_dasDomainName = a}); -newtype DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse-    { _dasrAnalysisScheme :: AnalysisSchemeStatus-    } deriving (Eq, Read, Show)+-- | The name of the analysis scheme you want to delete.+dasAnalysisSchemeName :: Lens' DeleteAnalysisScheme Text+dasAnalysisSchemeName = lens _dasAnalysisSchemeName (\ s a -> s{_dasAnalysisSchemeName = a}); --- | 'DeleteAnalysisSchemeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dasrAnalysisScheme' @::@ 'AnalysisSchemeStatus'----deleteAnalysisSchemeResponse :: AnalysisSchemeStatus -- ^ 'dasrAnalysisScheme'-                             -> DeleteAnalysisSchemeResponse-deleteAnalysisSchemeResponse p1 = DeleteAnalysisSchemeResponse-    { _dasrAnalysisScheme = p1-    }+instance AWSRequest DeleteAnalysisScheme where+        type Sv DeleteAnalysisScheme = CloudSearch+        type Rs DeleteAnalysisScheme =+             DeleteAnalysisSchemeResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteAnalysisSchemeResult"+              (\ s h x ->+                 DeleteAnalysisSchemeResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "AnalysisScheme")) --- | The status of the analysis scheme being deleted.-dasrAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus-dasrAnalysisScheme =-    lens _dasrAnalysisScheme (\s a -> s { _dasrAnalysisScheme = a })+instance ToHeaders DeleteAnalysisScheme where+        toHeaders = const mempty  instance ToPath DeleteAnalysisScheme where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteAnalysisScheme where-    toQuery DeleteAnalysisScheme{..} = mconcat-        [ "AnalysisSchemeName" =? _dasAnalysisSchemeName-        , "DomainName"         =? _dasDomainName-        ]+        toQuery DeleteAnalysisScheme'{..}+          = mconcat+              ["Action" =: ("DeleteAnalysisScheme" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _dasDomainName,+               "AnalysisSchemeName" =: _dasAnalysisSchemeName] -instance ToHeaders DeleteAnalysisScheme+-- | The result of a 'DeleteAnalysisScheme' request. Contains the status of+-- the deleted analysis scheme.+--+-- /See:/ 'deleteAnalysisSchemeResponse' smart constructor.+data DeleteAnalysisSchemeResponse = DeleteAnalysisSchemeResponse'+    { _dasarsStatus         :: !Int+    , _dasarsAnalysisScheme :: !AnalysisSchemeStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteAnalysisScheme where-    type Sv DeleteAnalysisScheme = CloudSearch-    type Rs DeleteAnalysisScheme = DeleteAnalysisSchemeResponse+-- | Creates a value of 'DeleteAnalysisSchemeResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dasarsStatus'+--+-- * 'dasarsAnalysisScheme'+deleteAnalysisSchemeResponse+    :: Int -- ^ 'dasarsStatus'+    -> AnalysisSchemeStatus -- ^ 'dasarsAnalysisScheme'+    -> DeleteAnalysisSchemeResponse+deleteAnalysisSchemeResponse pStatus_ pAnalysisScheme_ =+    DeleteAnalysisSchemeResponse'+    { _dasarsStatus = pStatus_+    , _dasarsAnalysisScheme = pAnalysisScheme_+    } -    request  = post "DeleteAnalysisScheme"-    response = xmlResponse+-- | The response status code.+dasarsStatus :: Lens' DeleteAnalysisSchemeResponse Int+dasarsStatus = lens _dasarsStatus (\ s a -> s{_dasarsStatus = a}); -instance FromXML DeleteAnalysisSchemeResponse where-    parseXML = withElement "DeleteAnalysisSchemeResult" $ \x -> DeleteAnalysisSchemeResponse-        <$> x .@  "AnalysisScheme"+-- | The status of the analysis scheme being deleted.+dasarsAnalysisScheme :: Lens' DeleteAnalysisSchemeResponse AnalysisSchemeStatus+dasarsAnalysisScheme = lens _dasarsAnalysisScheme (\ s a -> s{_dasarsAnalysisScheme = a});

@@ -1,109 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DeleteDomain--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Permanently deletes a search domain and all of its data. Once a domain has--- been deleted, it cannot be recovered. For more information, see Deleting a--- Search Domain in the /Amazon CloudSearch Developer Guide/.+-- Permanently deletes a search domain and all of its data. Once a domain+-- has been deleted, it cannot be recovered. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/deleting-domains.html Deleting a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteDomain.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteDomain.html AWS API Reference> for DeleteDomain. module Network.AWS.CloudSearch.DeleteDomain     (-    -- * Request-      DeleteDomain-    -- ** Request constructor-    , deleteDomain-    -- ** Request lenses-    , ddDomainName+    -- * Creating a Request+      deleteDomain+    , DeleteDomain+    -- * Request Lenses+    , dddDomainName -    -- * Response-    , DeleteDomainResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteDomainResponse-    -- ** Response lenses-    , ddrDomainStatus+    , DeleteDomainResponse+    -- * Response Lenses+    , ddrsDomainStatus+    , ddrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--newtype DeleteDomain = DeleteDomain-    { _ddDomainName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteDomain' constructor.+-- | Container for the parameters to the 'DeleteDomain' operation. Specifies+-- the name of the domain you want to delete. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteDomain' smart constructor.+newtype DeleteDomain = DeleteDomain'+    { _dddDomainName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteDomain' with the minimum fields required to make a request. ----- * 'ddDomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteDomain :: Text -- ^ 'ddDomainName'-             -> DeleteDomain-deleteDomain p1 = DeleteDomain-    { _ddDomainName = p1+-- * 'dddDomainName'+deleteDomain+    :: Text -- ^ 'dddDomainName'+    -> DeleteDomain+deleteDomain pDomainName_ =+    DeleteDomain'+    { _dddDomainName = pDomainName_     }  -- | The name of the domain you want to permanently delete.-ddDomainName :: Lens' DeleteDomain Text-ddDomainName = lens _ddDomainName (\s a -> s { _ddDomainName = a })--newtype DeleteDomainResponse = DeleteDomainResponse-    { _ddrDomainStatus :: Maybe DomainStatus-    } deriving (Eq, Read, Show)+dddDomainName :: Lens' DeleteDomain Text+dddDomainName = lens _dddDomainName (\ s a -> s{_dddDomainName = a}); --- | 'DeleteDomainResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ddrDomainStatus' @::@ 'Maybe' 'DomainStatus'----deleteDomainResponse :: DeleteDomainResponse-deleteDomainResponse = DeleteDomainResponse-    { _ddrDomainStatus = Nothing-    }+instance AWSRequest DeleteDomain where+        type Sv DeleteDomain = CloudSearch+        type Rs DeleteDomain = DeleteDomainResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteDomainResult"+              (\ s h x ->+                 DeleteDomainResponse' <$>+                   (x .@? "DomainStatus") <*> (pure (fromEnum s))) -ddrDomainStatus :: Lens' DeleteDomainResponse (Maybe DomainStatus)-ddrDomainStatus = lens _ddrDomainStatus (\s a -> s { _ddrDomainStatus = a })+instance ToHeaders DeleteDomain where+        toHeaders = const mempty  instance ToPath DeleteDomain where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteDomain where-    toQuery DeleteDomain{..} = mconcat-        [ "DomainName" =? _ddDomainName-        ]+        toQuery DeleteDomain'{..}+          = mconcat+              ["Action" =: ("DeleteDomain" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _dddDomainName] -instance ToHeaders DeleteDomain+-- | The result of a 'DeleteDomain' request. Contains the status of a newly+-- deleted domain, or no status if the domain has already been completely+-- deleted.+--+-- /See:/ 'deleteDomainResponse' smart constructor.+data DeleteDomainResponse = DeleteDomainResponse'+    { _ddrsDomainStatus :: !(Maybe DomainStatus)+    , _ddrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteDomain where-    type Sv DeleteDomain = CloudSearch-    type Rs DeleteDomain = DeleteDomainResponse+-- | Creates a value of 'DeleteDomainResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddrsDomainStatus'+--+-- * 'ddrsStatus'+deleteDomainResponse+    :: Int -- ^ 'ddrsStatus'+    -> DeleteDomainResponse+deleteDomainResponse pStatus_ =+    DeleteDomainResponse'+    { _ddrsDomainStatus = Nothing+    , _ddrsStatus = pStatus_+    } -    request  = post "DeleteDomain"-    response = xmlResponse+-- | Undocumented member.+ddrsDomainStatus :: Lens' DeleteDomainResponse (Maybe DomainStatus)+ddrsDomainStatus = lens _ddrsDomainStatus (\ s a -> s{_ddrsDomainStatus = a}); -instance FromXML DeleteDomainResponse where-    parseXML = withElement "DeleteDomainResult" $ \x -> DeleteDomainResponse-        <$> x .@? "DomainStatus"+-- | The response status code.+ddrsStatus :: Lens' DeleteDomainResponse Int+ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a});

@@ -1,121 +1,141 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DeleteExpression--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Removes an ''Expression' from the search domain. For more information, see Configuring Expressions+-- Removes an 'Expression' from the search domain. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html Configuring Expressions> -- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteExpression.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteExpression.html AWS API Reference> for DeleteExpression. module Network.AWS.CloudSearch.DeleteExpression     (-    -- * Request-      DeleteExpression-    -- ** Request constructor-    , deleteExpression-    -- ** Request lenses-    , de2DomainName-    , de2ExpressionName+    -- * Creating a Request+      deleteExpression+    , DeleteExpression+    -- * Request Lenses+    , delDomainName+    , delExpressionName -    -- * Response-    , DeleteExpressionResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteExpressionResponse-    -- ** Response lenses-    , der1Expression+    , DeleteExpressionResponse+    -- * Response Lenses+    , delrsStatus+    , delrsExpression     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DeleteExpression = DeleteExpression-    { _de2DomainName     :: Text-    , _de2ExpressionName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteExpression' constructor.+-- | Container for the parameters to the 'DeleteExpression' operation.+-- Specifies the name of the domain you want to update and the name of the+-- expression you want to delete. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteExpression' smart constructor.+data DeleteExpression = DeleteExpression'+    { _delDomainName     :: !Text+    , _delExpressionName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteExpression' with the minimum fields required to make a request. ----- * 'de2DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'de2ExpressionName' @::@ 'Text'+-- * 'delDomainName' ---deleteExpression :: Text -- ^ 'de2DomainName'-                 -> Text -- ^ 'de2ExpressionName'-                 -> DeleteExpression-deleteExpression p1 p2 = DeleteExpression-    { _de2DomainName     = p1-    , _de2ExpressionName = p2+-- * 'delExpressionName'+deleteExpression+    :: Text -- ^ 'delDomainName'+    -> Text -- ^ 'delExpressionName'+    -> DeleteExpression+deleteExpression pDomainName_ pExpressionName_ =+    DeleteExpression'+    { _delDomainName = pDomainName_+    , _delExpressionName = pExpressionName_     } -de2DomainName :: Lens' DeleteExpression Text-de2DomainName = lens _de2DomainName (\s a -> s { _de2DomainName = a })---- | The name of the ''Expression' to delete.-de2ExpressionName :: Lens' DeleteExpression Text-de2ExpressionName =-    lens _de2ExpressionName (\s a -> s { _de2ExpressionName = a })+-- | Undocumented member.+delDomainName :: Lens' DeleteExpression Text+delDomainName = lens _delDomainName (\ s a -> s{_delDomainName = a}); -newtype DeleteExpressionResponse = DeleteExpressionResponse-    { _der1Expression :: ExpressionStatus-    } deriving (Eq, Read, Show)+-- | The name of the 'Expression' to delete.+delExpressionName :: Lens' DeleteExpression Text+delExpressionName = lens _delExpressionName (\ s a -> s{_delExpressionName = a}); --- | 'DeleteExpressionResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'der1Expression' @::@ 'ExpressionStatus'----deleteExpressionResponse :: ExpressionStatus -- ^ 'der1Expression'-                         -> DeleteExpressionResponse-deleteExpressionResponse p1 = DeleteExpressionResponse-    { _der1Expression = p1-    }+instance AWSRequest DeleteExpression where+        type Sv DeleteExpression = CloudSearch+        type Rs DeleteExpression = DeleteExpressionResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteExpressionResult"+              (\ s h x ->+                 DeleteExpressionResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Expression")) --- | The status of the expression being deleted.-der1Expression :: Lens' DeleteExpressionResponse ExpressionStatus-der1Expression = lens _der1Expression (\s a -> s { _der1Expression = a })+instance ToHeaders DeleteExpression where+        toHeaders = const mempty  instance ToPath DeleteExpression where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteExpression where-    toQuery DeleteExpression{..} = mconcat-        [ "DomainName"     =? _de2DomainName-        , "ExpressionName" =? _de2ExpressionName-        ]+        toQuery DeleteExpression'{..}+          = mconcat+              ["Action" =: ("DeleteExpression" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _delDomainName,+               "ExpressionName" =: _delExpressionName] -instance ToHeaders DeleteExpression+-- | The result of a 'DeleteExpression' request. Specifies the expression+-- being deleted.+--+-- /See:/ 'deleteExpressionResponse' smart constructor.+data DeleteExpressionResponse = DeleteExpressionResponse'+    { _delrsStatus     :: !Int+    , _delrsExpression :: !ExpressionStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteExpression where-    type Sv DeleteExpression = CloudSearch-    type Rs DeleteExpression = DeleteExpressionResponse+-- | Creates a value of 'DeleteExpressionResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsStatus'+--+-- * 'delrsExpression'+deleteExpressionResponse+    :: Int -- ^ 'delrsStatus'+    -> ExpressionStatus -- ^ 'delrsExpression'+    -> DeleteExpressionResponse+deleteExpressionResponse pStatus_ pExpression_ =+    DeleteExpressionResponse'+    { _delrsStatus = pStatus_+    , _delrsExpression = pExpression_+    } -    request  = post "DeleteExpression"-    response = xmlResponse+-- | The response status code.+delrsStatus :: Lens' DeleteExpressionResponse Int+delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a}); -instance FromXML DeleteExpressionResponse where-    parseXML = withElement "DeleteExpressionResult" $ \x -> DeleteExpressionResponse-        <$> x .@  "Expression"+-- | The status of the expression being deleted.+delrsExpression :: Lens' DeleteExpressionResponse ExpressionStatus+delrsExpression = lens _delrsExpression (\ s a -> s{_delrsExpression = a});

@@ -1,122 +1,141 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DeleteIndexField--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Removes an ''IndexField' from the search domain. For more information, see Configuring Index Fields+-- Removes an 'IndexField' from the search domain. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-index-fields.html Configuring Index Fields> -- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteIndexField.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteIndexField.html AWS API Reference> for DeleteIndexField. module Network.AWS.CloudSearch.DeleteIndexField     (-    -- * Request-      DeleteIndexField-    -- ** Request constructor-    , deleteIndexField-    -- ** Request lenses-    , dif1DomainName-    , dif1IndexFieldName+    -- * Creating a Request+      deleteIndexField+    , DeleteIndexField+    -- * Request Lenses+    , difiDomainName+    , difiIndexFieldName -    -- * Response-    , DeleteIndexFieldResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteIndexFieldResponse-    -- ** Response lenses-    , difrIndexField+    , DeleteIndexFieldResponse+    -- * Response Lenses+    , difrsStatus+    , difrsIndexField     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DeleteIndexField = DeleteIndexField-    { _dif1DomainName     :: Text-    , _dif1IndexFieldName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteIndexField' constructor.+-- | Container for the parameters to the 'DeleteIndexField' operation.+-- Specifies the name of the domain you want to update and the name of the+-- index field you want to delete. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteIndexField' smart constructor.+data DeleteIndexField = DeleteIndexField'+    { _difiDomainName     :: !Text+    , _difiIndexFieldName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteIndexField' with the minimum fields required to make a request. ----- * 'dif1DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dif1IndexFieldName' @::@ 'Text'+-- * 'difiDomainName' ---deleteIndexField :: Text -- ^ 'dif1DomainName'-                 -> Text -- ^ 'dif1IndexFieldName'-                 -> DeleteIndexField-deleteIndexField p1 p2 = DeleteIndexField-    { _dif1DomainName     = p1-    , _dif1IndexFieldName = p2+-- * 'difiIndexFieldName'+deleteIndexField+    :: Text -- ^ 'difiDomainName'+    -> Text -- ^ 'difiIndexFieldName'+    -> DeleteIndexField+deleteIndexField pDomainName_ pIndexFieldName_ =+    DeleteIndexField'+    { _difiDomainName = pDomainName_+    , _difiIndexFieldName = pIndexFieldName_     } -dif1DomainName :: Lens' DeleteIndexField Text-dif1DomainName = lens _dif1DomainName (\s a -> s { _dif1DomainName = a })---- | The name of the index field your want to remove from the domain's indexing--- options.-dif1IndexFieldName :: Lens' DeleteIndexField Text-dif1IndexFieldName =-    lens _dif1IndexFieldName (\s a -> s { _dif1IndexFieldName = a })+-- | Undocumented member.+difiDomainName :: Lens' DeleteIndexField Text+difiDomainName = lens _difiDomainName (\ s a -> s{_difiDomainName = a}); -newtype DeleteIndexFieldResponse = DeleteIndexFieldResponse-    { _difrIndexField :: IndexFieldStatus-    } deriving (Eq, Read, Show)+-- | The name of the index field your want to remove from the domain\'s+-- indexing options.+difiIndexFieldName :: Lens' DeleteIndexField Text+difiIndexFieldName = lens _difiIndexFieldName (\ s a -> s{_difiIndexFieldName = a}); --- | 'DeleteIndexFieldResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'difrIndexField' @::@ 'IndexFieldStatus'----deleteIndexFieldResponse :: IndexFieldStatus -- ^ 'difrIndexField'-                         -> DeleteIndexFieldResponse-deleteIndexFieldResponse p1 = DeleteIndexFieldResponse-    { _difrIndexField = p1-    }+instance AWSRequest DeleteIndexField where+        type Sv DeleteIndexField = CloudSearch+        type Rs DeleteIndexField = DeleteIndexFieldResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteIndexFieldResult"+              (\ s h x ->+                 DeleteIndexFieldResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "IndexField")) --- | The status of the index field being deleted.-difrIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus-difrIndexField = lens _difrIndexField (\s a -> s { _difrIndexField = a })+instance ToHeaders DeleteIndexField where+        toHeaders = const mempty  instance ToPath DeleteIndexField where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteIndexField where-    toQuery DeleteIndexField{..} = mconcat-        [ "DomainName"     =? _dif1DomainName-        , "IndexFieldName" =? _dif1IndexFieldName-        ]+        toQuery DeleteIndexField'{..}+          = mconcat+              ["Action" =: ("DeleteIndexField" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _difiDomainName,+               "IndexFieldName" =: _difiIndexFieldName] -instance ToHeaders DeleteIndexField+-- | The result of a 'DeleteIndexField' request.+--+-- /See:/ 'deleteIndexFieldResponse' smart constructor.+data DeleteIndexFieldResponse = DeleteIndexFieldResponse'+    { _difrsStatus     :: !Int+    , _difrsIndexField :: !IndexFieldStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteIndexField where-    type Sv DeleteIndexField = CloudSearch-    type Rs DeleteIndexField = DeleteIndexFieldResponse+-- | Creates a value of 'DeleteIndexFieldResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'difrsStatus'+--+-- * 'difrsIndexField'+deleteIndexFieldResponse+    :: Int -- ^ 'difrsStatus'+    -> IndexFieldStatus -- ^ 'difrsIndexField'+    -> DeleteIndexFieldResponse+deleteIndexFieldResponse pStatus_ pIndexField_ =+    DeleteIndexFieldResponse'+    { _difrsStatus = pStatus_+    , _difrsIndexField = pIndexField_+    } -    request  = post "DeleteIndexField"-    response = xmlResponse+-- | The response status code.+difrsStatus :: Lens' DeleteIndexFieldResponse Int+difrsStatus = lens _difrsStatus (\ s a -> s{_difrsStatus = a}); -instance FromXML DeleteIndexFieldResponse where-    parseXML = withElement "DeleteIndexFieldResult" $ \x -> DeleteIndexFieldResponse-        <$> x .@  "IndexField"+-- | The status of the index field being deleted.+difrsIndexField :: Lens' DeleteIndexFieldResponse IndexFieldStatus+difrsIndexField = lens _difrsIndexField (\ s a -> s{_difrsIndexField = a});

@@ -1,120 +1,140 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DeleteSuggester--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes a suggester. For more information, see Getting Search Suggestions in--- the /Amazon CloudSearch Developer Guide/.+-- Deletes a suggester. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Search Suggestions>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteSuggester.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DeleteSuggester.html AWS API Reference> for DeleteSuggester. module Network.AWS.CloudSearch.DeleteSuggester     (-    -- * Request-      DeleteSuggester-    -- ** Request constructor-    , deleteSuggester-    -- ** Request lenses-    , ds3DomainName-    , ds3SuggesterName+    -- * Creating a Request+      deleteSuggester+    , DeleteSuggester+    -- * Request Lenses+    , ddDomainName+    , ddSuggesterName -    -- * Response-    , DeleteSuggesterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteSuggesterResponse-    -- ** Response lenses-    , dsr1Suggester+    , DeleteSuggesterResponse+    -- * Response Lenses+    , delersStatus+    , delersSuggester     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DeleteSuggester = DeleteSuggester-    { _ds3DomainName    :: Text-    , _ds3SuggesterName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteSuggester' constructor.+-- | Container for the parameters to the 'DeleteSuggester' operation.+-- Specifies the name of the domain you want to update and name of the+-- suggester you want to delete. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteSuggester' smart constructor.+data DeleteSuggester = DeleteSuggester'+    { _ddDomainName    :: !Text+    , _ddSuggesterName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteSuggester' with the minimum fields required to make a request. ----- * 'ds3DomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ds3SuggesterName' @::@ 'Text'+-- * 'ddDomainName' ---deleteSuggester :: Text -- ^ 'ds3DomainName'-                -> Text -- ^ 'ds3SuggesterName'-                -> DeleteSuggester-deleteSuggester p1 p2 = DeleteSuggester-    { _ds3DomainName    = p1-    , _ds3SuggesterName = p2+-- * 'ddSuggesterName'+deleteSuggester+    :: Text -- ^ 'ddDomainName'+    -> Text -- ^ 'ddSuggesterName'+    -> DeleteSuggester+deleteSuggester pDomainName_ pSuggesterName_ =+    DeleteSuggester'+    { _ddDomainName = pDomainName_+    , _ddSuggesterName = pSuggesterName_     } -ds3DomainName :: Lens' DeleteSuggester Text-ds3DomainName = lens _ds3DomainName (\s a -> s { _ds3DomainName = a })+-- | Undocumented member.+ddDomainName :: Lens' DeleteSuggester Text+ddDomainName = lens _ddDomainName (\ s a -> s{_ddDomainName = a});  -- | Specifies the name of the suggester you want to delete.-ds3SuggesterName :: Lens' DeleteSuggester Text-ds3SuggesterName = lens _ds3SuggesterName (\s a -> s { _ds3SuggesterName = a })--newtype DeleteSuggesterResponse = DeleteSuggesterResponse-    { _dsr1Suggester :: SuggesterStatus-    } deriving (Eq, Read, Show)+ddSuggesterName :: Lens' DeleteSuggester Text+ddSuggesterName = lens _ddSuggesterName (\ s a -> s{_ddSuggesterName = a}); --- | 'DeleteSuggesterResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsr1Suggester' @::@ 'SuggesterStatus'----deleteSuggesterResponse :: SuggesterStatus -- ^ 'dsr1Suggester'-                        -> DeleteSuggesterResponse-deleteSuggesterResponse p1 = DeleteSuggesterResponse-    { _dsr1Suggester = p1-    }+instance AWSRequest DeleteSuggester where+        type Sv DeleteSuggester = CloudSearch+        type Rs DeleteSuggester = DeleteSuggesterResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteSuggesterResult"+              (\ s h x ->+                 DeleteSuggesterResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "Suggester")) --- | The status of the suggester being deleted.-dsr1Suggester :: Lens' DeleteSuggesterResponse SuggesterStatus-dsr1Suggester = lens _dsr1Suggester (\s a -> s { _dsr1Suggester = a })+instance ToHeaders DeleteSuggester where+        toHeaders = const mempty  instance ToPath DeleteSuggester where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteSuggester where-    toQuery DeleteSuggester{..} = mconcat-        [ "DomainName"    =? _ds3DomainName-        , "SuggesterName" =? _ds3SuggesterName-        ]+        toQuery DeleteSuggester'{..}+          = mconcat+              ["Action" =: ("DeleteSuggester" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _ddDomainName,+               "SuggesterName" =: _ddSuggesterName] -instance ToHeaders DeleteSuggester+-- | The result of a 'DeleteSuggester' request. Contains the status of the+-- deleted suggester.+--+-- /See:/ 'deleteSuggesterResponse' smart constructor.+data DeleteSuggesterResponse = DeleteSuggesterResponse'+    { _delersStatus    :: !Int+    , _delersSuggester :: !SuggesterStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteSuggester where-    type Sv DeleteSuggester = CloudSearch-    type Rs DeleteSuggester = DeleteSuggesterResponse+-- | Creates a value of 'DeleteSuggesterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delersStatus'+--+-- * 'delersSuggester'+deleteSuggesterResponse+    :: Int -- ^ 'delersStatus'+    -> SuggesterStatus -- ^ 'delersSuggester'+    -> DeleteSuggesterResponse+deleteSuggesterResponse pStatus_ pSuggester_ =+    DeleteSuggesterResponse'+    { _delersStatus = pStatus_+    , _delersSuggester = pSuggester_+    } -    request  = post "DeleteSuggester"-    response = xmlResponse+-- | The response status code.+delersStatus :: Lens' DeleteSuggesterResponse Int+delersStatus = lens _delersStatus (\ s a -> s{_delersStatus = a}); -instance FromXML DeleteSuggesterResponse where-    parseXML = withElement "DeleteSuggesterResult" $ \x -> DeleteSuggesterResponse-        <$> x .@  "Suggester"+-- | The status of the suggester being deleted.+delersSuggester :: Lens' DeleteSuggesterResponse SuggesterStatus+delersSuggester = lens _delersSuggester (\ s a -> s{_delersSuggester = a});

@@ -1,143 +1,162 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeAnalysisSchemes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets the analysis schemes configured for a domain. An analysis scheme defines--- language-specific text processing options for a 'text' field. Can be limited to--- specific analysis schemes by name. By default, shows all analysis schemes and--- includes any pending changes to the configuration. Set the 'Deployed' option to 'true' to show the active configuration and exclude pending changes. For more--- information, see Configuring Analysis Schemes in the /Amazon CloudSearchDeveloper Guide/.+-- Gets the analysis schemes configured for a domain. An analysis scheme+-- defines language-specific text processing options for a 'text' field.+-- Can be limited to specific analysis schemes by name. By default, shows+-- all analysis schemes and includes any pending changes to the+-- configuration. Set the 'Deployed' option to 'true' to show the active+-- configuration and exclude pending changes. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html Configuring Analysis Schemes>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeAnalysisSchemes.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeAnalysisSchemes.html AWS API Reference> for DescribeAnalysisSchemes. module Network.AWS.CloudSearch.DescribeAnalysisSchemes     (-    -- * Request-      DescribeAnalysisSchemes-    -- ** Request constructor-    , describeAnalysisSchemes-    -- ** Request lenses-    , das1AnalysisSchemeNames-    , das1Deployed-    , das1DomainName+    -- * Creating a Request+      describeAnalysisSchemes+    , DescribeAnalysisSchemes+    -- * Request Lenses+    , dassDeployed+    , dassAnalysisSchemeNames+    , dassDomainName -    -- * Response-    , DescribeAnalysisSchemesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAnalysisSchemesResponse-    -- ** Response lenses-    , dasrAnalysisSchemes+    , DescribeAnalysisSchemesResponse+    -- * Response Lenses+    , dasrsStatus+    , dasrsAnalysisSchemes     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeAnalysisSchemes = DescribeAnalysisSchemes-    { _das1AnalysisSchemeNames :: List "member" Text-    , _das1Deployed            :: Maybe Bool-    , _das1DomainName          :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeAnalysisSchemes' constructor.+-- | Container for the parameters to the 'DescribeAnalysisSchemes' operation.+-- Specifies the name of the domain you want to describe. To limit the+-- response to particular analysis schemes, specify the names of the+-- analysis schemes you want to describe. To show the active configuration+-- and exclude any pending changes, set the 'Deployed' option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeAnalysisSchemes' smart constructor.+data DescribeAnalysisSchemes = DescribeAnalysisSchemes'+    { _dassDeployed            :: !(Maybe Bool)+    , _dassAnalysisSchemeNames :: !(Maybe [Text])+    , _dassDomainName          :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAnalysisSchemes' with the minimum fields required to make a request. ----- * 'das1AnalysisSchemeNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'das1Deployed' @::@ 'Maybe' 'Bool'+-- * 'dassDeployed' ----- * 'das1DomainName' @::@ 'Text'+-- * 'dassAnalysisSchemeNames' ---describeAnalysisSchemes :: Text -- ^ 'das1DomainName'-                        -> DescribeAnalysisSchemes-describeAnalysisSchemes p1 = DescribeAnalysisSchemes-    { _das1DomainName          = p1-    , _das1AnalysisSchemeNames = mempty-    , _das1Deployed            = Nothing+-- * 'dassDomainName'+describeAnalysisSchemes+    :: Text -- ^ 'dassDomainName'+    -> DescribeAnalysisSchemes+describeAnalysisSchemes pDomainName_ =+    DescribeAnalysisSchemes'+    { _dassDeployed = Nothing+    , _dassAnalysisSchemeNames = Nothing+    , _dassDomainName = pDomainName_     } --- | The analysis schemes you want to describe.-das1AnalysisSchemeNames :: Lens' DescribeAnalysisSchemes [Text]-das1AnalysisSchemeNames =-    lens _das1AnalysisSchemeNames (\s a -> s { _das1AnalysisSchemeNames = a })-        . _List+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'.+dassDeployed :: Lens' DescribeAnalysisSchemes (Maybe Bool)+dassDeployed = lens _dassDeployed (\ s a -> s{_dassDeployed = a}); --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.-das1Deployed :: Lens' DescribeAnalysisSchemes (Maybe Bool)-das1Deployed = lens _das1Deployed (\s a -> s { _das1Deployed = a })+-- | The analysis schemes you want to describe.+dassAnalysisSchemeNames :: Lens' DescribeAnalysisSchemes [Text]+dassAnalysisSchemeNames = lens _dassAnalysisSchemeNames (\ s a -> s{_dassAnalysisSchemeNames = a}) . _Default . _Coerce;  -- | The name of the domain you want to describe.-das1DomainName :: Lens' DescribeAnalysisSchemes Text-das1DomainName = lens _das1DomainName (\s a -> s { _das1DomainName = a })--newtype DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse-    { _dasrAnalysisSchemes :: List "member" AnalysisSchemeStatus-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeAnalysisSchemesResponse where-    type Item DescribeAnalysisSchemesResponse = AnalysisSchemeStatus--    fromList = DescribeAnalysisSchemesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dasrAnalysisSchemes+dassDomainName :: Lens' DescribeAnalysisSchemes Text+dassDomainName = lens _dassDomainName (\ s a -> s{_dassDomainName = a}); --- | 'DescribeAnalysisSchemesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dasrAnalysisSchemes' @::@ ['AnalysisSchemeStatus']----describeAnalysisSchemesResponse :: DescribeAnalysisSchemesResponse-describeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse-    { _dasrAnalysisSchemes = mempty-    }+instance AWSRequest DescribeAnalysisSchemes where+        type Sv DescribeAnalysisSchemes = CloudSearch+        type Rs DescribeAnalysisSchemes =+             DescribeAnalysisSchemesResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeAnalysisSchemesResult"+              (\ s h x ->+                 DescribeAnalysisSchemesResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "AnalysisSchemes" .!@ mempty >>=+                        parseXMLList "member")) --- | The analysis scheme descriptions.-dasrAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]-dasrAnalysisSchemes =-    lens _dasrAnalysisSchemes (\s a -> s { _dasrAnalysisSchemes = a })-        . _List+instance ToHeaders DescribeAnalysisSchemes where+        toHeaders = const mempty  instance ToPath DescribeAnalysisSchemes where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeAnalysisSchemes where-    toQuery DescribeAnalysisSchemes{..} = mconcat-        [ "AnalysisSchemeNames" =? _das1AnalysisSchemeNames-        , "Deployed"            =? _das1Deployed-        , "DomainName"          =? _das1DomainName-        ]+        toQuery DescribeAnalysisSchemes'{..}+          = mconcat+              ["Action" =:+                 ("DescribeAnalysisSchemes" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _dassDeployed,+               "AnalysisSchemeNames" =:+                 toQuery+                   (toQueryList "member" <$> _dassAnalysisSchemeNames),+               "DomainName" =: _dassDomainName] -instance ToHeaders DescribeAnalysisSchemes+-- | The result of a 'DescribeAnalysisSchemes' request. Contains the analysis+-- schemes configured for the domain specified in the request.+--+-- /See:/ 'describeAnalysisSchemesResponse' smart constructor.+data DescribeAnalysisSchemesResponse = DescribeAnalysisSchemesResponse'+    { _dasrsStatus          :: !Int+    , _dasrsAnalysisSchemes :: ![AnalysisSchemeStatus]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeAnalysisSchemes where-    type Sv DescribeAnalysisSchemes = CloudSearch-    type Rs DescribeAnalysisSchemes = DescribeAnalysisSchemesResponse+-- | Creates a value of 'DescribeAnalysisSchemesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dasrsStatus'+--+-- * 'dasrsAnalysisSchemes'+describeAnalysisSchemesResponse+    :: Int -- ^ 'dasrsStatus'+    -> DescribeAnalysisSchemesResponse+describeAnalysisSchemesResponse pStatus_ =+    DescribeAnalysisSchemesResponse'+    { _dasrsStatus = pStatus_+    , _dasrsAnalysisSchemes = mempty+    } -    request  = post "DescribeAnalysisSchemes"-    response = xmlResponse+-- | The response status code.+dasrsStatus :: Lens' DescribeAnalysisSchemesResponse Int+dasrsStatus = lens _dasrsStatus (\ s a -> s{_dasrsStatus = a}); -instance FromXML DescribeAnalysisSchemesResponse where-    parseXML = withElement "DescribeAnalysisSchemesResult" $ \x -> DescribeAnalysisSchemesResponse-        <$> x .@? "AnalysisSchemes" .!@ mempty+-- | The analysis scheme descriptions.+dasrsAnalysisSchemes :: Lens' DescribeAnalysisSchemesResponse [AnalysisSchemeStatus]+dasrsAnalysisSchemes = lens _dasrsAnalysisSchemes (\ s a -> s{_dasrsAnalysisSchemes = a}) . _Coerce;

@@ -1,124 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeAvailabilityOptions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets the availability options configured for a domain. By default, shows the--- configuration with any pending changes. Set the 'Deployed' option to 'true' to--- show the active configuration and exclude pending changes. For more--- information, see Configuring Availability Options in the /Amazon CloudSearchDeveloper Guide/.+-- Gets the availability options configured for a domain. By default, shows+-- the configuration with any pending changes. Set the 'Deployed' option to+-- 'true' to show the active configuration and exclude pending changes. For+-- more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-availability-options.html Configuring Availability Options>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeAvailabilityOptions.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeAvailabilityOptions.html AWS API Reference> for DescribeAvailabilityOptions. module Network.AWS.CloudSearch.DescribeAvailabilityOptions     (-    -- * Request-      DescribeAvailabilityOptions-    -- ** Request constructor-    , describeAvailabilityOptions-    -- ** Request lenses+    -- * Creating a Request+      describeAvailabilityOptions+    , DescribeAvailabilityOptions+    -- * Request Lenses     , daoDeployed     , daoDomainName -    -- * Response-    , DescribeAvailabilityOptionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeAvailabilityOptionsResponse-    -- ** Response lenses-    , daorAvailabilityOptions+    , DescribeAvailabilityOptionsResponse+    -- * Response Lenses+    , daorsAvailabilityOptions+    , daorsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeAvailabilityOptions = DescribeAvailabilityOptions-    { _daoDeployed   :: Maybe Bool-    , _daoDomainName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeAvailabilityOptions' constructor.+-- | Container for the parameters to the 'DescribeAvailabilityOptions'+-- operation. Specifies the name of the domain you want to describe. To+-- show the active configuration and exclude any pending changes, set the+-- Deployed option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeAvailabilityOptions' smart constructor.+data DescribeAvailabilityOptions = DescribeAvailabilityOptions'+    { _daoDeployed   :: !(Maybe Bool)+    , _daoDomainName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeAvailabilityOptions' with the minimum fields required to make a request. ----- * 'daoDeployed' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'daoDomainName' @::@ 'Text'+-- * 'daoDeployed' ---describeAvailabilityOptions :: Text -- ^ 'daoDomainName'-                            -> DescribeAvailabilityOptions-describeAvailabilityOptions p1 = DescribeAvailabilityOptions-    { _daoDomainName = p1-    , _daoDeployed   = Nothing+-- * 'daoDomainName'+describeAvailabilityOptions+    :: Text -- ^ 'daoDomainName'+    -> DescribeAvailabilityOptions+describeAvailabilityOptions pDomainName_ =+    DescribeAvailabilityOptions'+    { _daoDeployed = Nothing+    , _daoDomainName = pDomainName_     } --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'. daoDeployed :: Lens' DescribeAvailabilityOptions (Maybe Bool)-daoDeployed = lens _daoDeployed (\s a -> s { _daoDeployed = a })+daoDeployed = lens _daoDeployed (\ s a -> s{_daoDeployed = a});  -- | The name of the domain you want to describe. daoDomainName :: Lens' DescribeAvailabilityOptions Text-daoDomainName = lens _daoDomainName (\s a -> s { _daoDomainName = a })--newtype DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse-    { _daorAvailabilityOptions :: Maybe AvailabilityOptionsStatus-    } deriving (Eq, Read, Show)+daoDomainName = lens _daoDomainName (\ s a -> s{_daoDomainName = a}); --- | 'DescribeAvailabilityOptionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'daorAvailabilityOptions' @::@ 'Maybe' 'AvailabilityOptionsStatus'----describeAvailabilityOptionsResponse :: DescribeAvailabilityOptionsResponse-describeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse-    { _daorAvailabilityOptions = Nothing-    }+instance AWSRequest DescribeAvailabilityOptions where+        type Sv DescribeAvailabilityOptions = CloudSearch+        type Rs DescribeAvailabilityOptions =+             DescribeAvailabilityOptionsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeAvailabilityOptionsResult"+              (\ s h x ->+                 DescribeAvailabilityOptionsResponse' <$>+                   (x .@? "AvailabilityOptions") <*>+                     (pure (fromEnum s))) --- | The availability options configured for the domain. Indicates whether--- Multi-AZ is enabled for the domain.-daorAvailabilityOptions :: Lens' DescribeAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)-daorAvailabilityOptions =-    lens _daorAvailabilityOptions (\s a -> s { _daorAvailabilityOptions = a })+instance ToHeaders DescribeAvailabilityOptions where+        toHeaders = const mempty  instance ToPath DescribeAvailabilityOptions where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeAvailabilityOptions where-    toQuery DescribeAvailabilityOptions{..} = mconcat-        [ "Deployed"   =? _daoDeployed-        , "DomainName" =? _daoDomainName-        ]+        toQuery DescribeAvailabilityOptions'{..}+          = mconcat+              ["Action" =:+                 ("DescribeAvailabilityOptions" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _daoDeployed,+               "DomainName" =: _daoDomainName] -instance ToHeaders DescribeAvailabilityOptions+-- | The result of a 'DescribeAvailabilityOptions' request. Indicates whether+-- or not the Multi-AZ option is enabled for the domain specified in the+-- request.+--+-- /See:/ 'describeAvailabilityOptionsResponse' smart constructor.+data DescribeAvailabilityOptionsResponse = DescribeAvailabilityOptionsResponse'+    { _daorsAvailabilityOptions :: !(Maybe AvailabilityOptionsStatus)+    , _daorsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeAvailabilityOptions where-    type Sv DescribeAvailabilityOptions = CloudSearch-    type Rs DescribeAvailabilityOptions = DescribeAvailabilityOptionsResponse+-- | Creates a value of 'DescribeAvailabilityOptionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'daorsAvailabilityOptions'+--+-- * 'daorsStatus'+describeAvailabilityOptionsResponse+    :: Int -- ^ 'daorsStatus'+    -> DescribeAvailabilityOptionsResponse+describeAvailabilityOptionsResponse pStatus_ =+    DescribeAvailabilityOptionsResponse'+    { _daorsAvailabilityOptions = Nothing+    , _daorsStatus = pStatus_+    } -    request  = post "DescribeAvailabilityOptions"-    response = xmlResponse+-- | The availability options configured for the domain. Indicates whether+-- Multi-AZ is enabled for the domain.+daorsAvailabilityOptions :: Lens' DescribeAvailabilityOptionsResponse (Maybe AvailabilityOptionsStatus)+daorsAvailabilityOptions = lens _daorsAvailabilityOptions (\ s a -> s{_daorsAvailabilityOptions = a}); -instance FromXML DescribeAvailabilityOptionsResponse where-    parseXML = withElement "DescribeAvailabilityOptionsResult" $ \x -> DescribeAvailabilityOptionsResponse-        <$> x .@? "AvailabilityOptions"+-- | The response status code.+daorsStatus :: Lens' DescribeAvailabilityOptionsResponse Int+daorsStatus = lens _daorsStatus (\ s a -> s{_daorsStatus = a});

@@ -1,123 +1,136 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeDomains--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about the search domains owned by this account. Can be--- limited to specific domains. Shows all domains by default. To get the number--- of searchable documents in a domain, use the console or submit a 'matchall'--- request to your domain's search endpoint: 'q=matchall&amp;q.parser=structured&amp;size=0'. For more information, see Getting Information about a Search Domain in the /Amazon CloudSearch Developer Guide/.+-- Gets information about the search domains owned by this account. Can be+-- limited to specific domains. Shows all domains by default. To get the+-- number of searchable documents in a domain, use the console or submit a+-- 'matchall' request to your domain\'s search endpoint:+-- 'q=matchall&amp;q.parser=structured&amp;size=0'. For more information,+-- see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-domain-info.html Getting Information about a Search Domain>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeDomains.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeDomains.html AWS API Reference> for DescribeDomains. module Network.AWS.CloudSearch.DescribeDomains     (-    -- * Request-      DescribeDomains-    -- ** Request constructor-    , describeDomains-    -- ** Request lenses+    -- * Creating a Request+      describeDomains+    , DescribeDomains+    -- * Request Lenses     , ddDomainNames -    -- * Response-    , DescribeDomainsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeDomainsResponse-    -- ** Response lenses-    , ddrDomainStatusList+    , DescribeDomainsResponse+    -- * Response Lenses+    , ddsrsStatus+    , ddsrsDomainStatusList     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--newtype DescribeDomains = DescribeDomains-    { _ddDomainNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeDomains where-    type Item DescribeDomains = Text--    fromList = DescribeDomains . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ddDomainNames+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeDomains' constructor.+-- | Container for the parameters to the 'DescribeDomains' operation. By+-- default shows the status of all domains. To restrict the response to+-- particular domains, specify the names of the domains you want to+-- describe. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeDomains' smart constructor.+newtype DescribeDomains = DescribeDomains'+    { _ddDomainNames :: Maybe [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeDomains' with the minimum fields required to make a request. ----- * 'ddDomainNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---describeDomains :: DescribeDomains-describeDomains = DescribeDomains-    { _ddDomainNames = mempty+-- * 'ddDomainNames'+describeDomains+    :: DescribeDomains+describeDomains =+    DescribeDomains'+    { _ddDomainNames = Nothing     }  -- | The names of the domains you want to include in the response. ddDomainNames :: Lens' DescribeDomains [Text]-ddDomainNames = lens _ddDomainNames (\s a -> s { _ddDomainNames = a }) . _List--newtype DescribeDomainsResponse = DescribeDomainsResponse-    { _ddrDomainStatusList :: List "member" DomainStatus-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeDomainsResponse where-    type Item DescribeDomainsResponse = DomainStatus--    fromList = DescribeDomainsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ddrDomainStatusList+ddDomainNames = lens _ddDomainNames (\ s a -> s{_ddDomainNames = a}) . _Default . _Coerce; --- | 'DescribeDomainsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ddrDomainStatusList' @::@ ['DomainStatus']----describeDomainsResponse :: DescribeDomainsResponse-describeDomainsResponse = DescribeDomainsResponse-    { _ddrDomainStatusList = mempty-    }+instance AWSRequest DescribeDomains where+        type Sv DescribeDomains = CloudSearch+        type Rs DescribeDomains = DescribeDomainsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeDomainsResult"+              (\ s h x ->+                 DescribeDomainsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "DomainStatusList" .!@ mempty >>=+                        parseXMLList "member")) -ddrDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus]-ddrDomainStatusList =-    lens _ddrDomainStatusList (\s a -> s { _ddrDomainStatusList = a })-        . _List+instance ToHeaders DescribeDomains where+        toHeaders = const mempty  instance ToPath DescribeDomains where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeDomains where-    toQuery DescribeDomains{..} = mconcat-        [ "DomainNames" =? _ddDomainNames-        ]+        toQuery DescribeDomains'{..}+          = mconcat+              ["Action" =: ("DescribeDomains" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainNames" =:+                 toQuery (toQueryList "member" <$> _ddDomainNames)] -instance ToHeaders DescribeDomains+-- | The result of a 'DescribeDomains' request. Contains the status of the+-- domains specified in the request or all domains owned by the account.+--+-- /See:/ 'describeDomainsResponse' smart constructor.+data DescribeDomainsResponse = DescribeDomainsResponse'+    { _ddsrsStatus           :: !Int+    , _ddsrsDomainStatusList :: ![DomainStatus]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeDomains where-    type Sv DescribeDomains = CloudSearch-    type Rs DescribeDomains = DescribeDomainsResponse+-- | Creates a value of 'DescribeDomainsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddsrsStatus'+--+-- * 'ddsrsDomainStatusList'+describeDomainsResponse+    :: Int -- ^ 'ddsrsStatus'+    -> DescribeDomainsResponse+describeDomainsResponse pStatus_ =+    DescribeDomainsResponse'+    { _ddsrsStatus = pStatus_+    , _ddsrsDomainStatusList = mempty+    } -    request  = post "DescribeDomains"-    response = xmlResponse+-- | The response status code.+ddsrsStatus :: Lens' DescribeDomainsResponse Int+ddsrsStatus = lens _ddsrsStatus (\ s a -> s{_ddsrsStatus = a}); -instance FromXML DescribeDomainsResponse where-    parseXML = withElement "DescribeDomainsResult" $ \x -> DescribeDomainsResponse-        <$> x .@? "DomainStatusList" .!@ mempty+-- | Undocumented member.+ddsrsDomainStatusList :: Lens' DescribeDomainsResponse [DomainStatus]+ddsrsDomainStatusList = lens _ddsrsDomainStatusList (\ s a -> s{_ddsrsDomainStatusList = a}) . _Coerce;

@@ -1,142 +1,161 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeExpressions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets the expressions configured for the search domain. Can be limited to--- specific expressions by name. By default, shows all expressions and includes--- any pending changes to the configuration. Set the 'Deployed' option to 'true' to--- show the active configuration and exclude pending changes. For more--- information, see Configuring Expressions in the /Amazon CloudSearch DeveloperGuide/.+-- Gets the expressions configured for the search domain. Can be limited to+-- specific expressions by name. By default, shows all expressions and+-- includes any pending changes to the configuration. Set the 'Deployed'+-- option to 'true' to show the active configuration and exclude pending+-- changes. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-expressions.html Configuring Expressions>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeExpressions.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeExpressions.html AWS API Reference> for DescribeExpressions. module Network.AWS.CloudSearch.DescribeExpressions     (-    -- * Request-      DescribeExpressions-    -- ** Request constructor-    , describeExpressions-    -- ** Request lenses+    -- * Creating a Request+      describeExpressions+    , DescribeExpressions+    -- * Request Lenses     , deDeployed-    , deDomainName     , deExpressionNames+    , deDomainName -    -- * Response-    , DescribeExpressionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeExpressionsResponse-    -- ** Response lenses-    , derExpressions+    , DescribeExpressionsResponse+    -- * Response Lenses+    , drsStatus+    , drsExpressions     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeExpressions = DescribeExpressions-    { _deDeployed        :: Maybe Bool-    , _deDomainName      :: Text-    , _deExpressionNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeExpressions' constructor.+-- | Container for the parameters to the 'DescribeDomains' operation.+-- Specifies the name of the domain you want to describe. To restrict the+-- response to particular expressions, specify the names of the expressions+-- you want to describe. To show the active configuration and exclude any+-- pending changes, set the 'Deployed' option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeExpressions' smart constructor.+data DescribeExpressions = DescribeExpressions'+    { _deDeployed        :: !(Maybe Bool)+    , _deExpressionNames :: !(Maybe [Text])+    , _deDomainName      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeExpressions' with the minimum fields required to make a request. ----- * 'deDeployed' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'deDomainName' @::@ 'Text'+-- * 'deDeployed' ----- * 'deExpressionNames' @::@ ['Text']+-- * 'deExpressionNames' ---describeExpressions :: Text -- ^ 'deDomainName'-                    -> DescribeExpressions-describeExpressions p1 = DescribeExpressions-    { _deDomainName      = p1-    , _deExpressionNames = mempty-    , _deDeployed        = Nothing+-- * 'deDomainName'+describeExpressions+    :: Text -- ^ 'deDomainName'+    -> DescribeExpressions+describeExpressions pDomainName_ =+    DescribeExpressions'+    { _deDeployed = Nothing+    , _deExpressionNames = Nothing+    , _deDomainName = pDomainName_     } --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'. deDeployed :: Lens' DescribeExpressions (Maybe Bool)-deDeployed = lens _deDeployed (\s a -> s { _deDeployed = a })+deDeployed = lens _deDeployed (\ s a -> s{_deDeployed = a}); +-- | Limits the 'DescribeExpressions' response to the specified expressions.+-- If not specified, all expressions are shown.+deExpressionNames :: Lens' DescribeExpressions [Text]+deExpressionNames = lens _deExpressionNames (\ s a -> s{_deExpressionNames = a}) . _Default . _Coerce;+ -- | The name of the domain you want to describe. deDomainName :: Lens' DescribeExpressions Text-deDomainName = lens _deDomainName (\s a -> s { _deDomainName = a })+deDomainName = lens _deDomainName (\ s a -> s{_deDomainName = a}); --- | Limits the ''DescribeExpressions' response to the specified expressions. If not--- specified, all expressions are shown.-deExpressionNames :: Lens' DescribeExpressions [Text]-deExpressionNames =-    lens _deExpressionNames (\s a -> s { _deExpressionNames = a })-        . _List+instance AWSRequest DescribeExpressions where+        type Sv DescribeExpressions = CloudSearch+        type Rs DescribeExpressions =+             DescribeExpressionsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeExpressionsResult"+              (\ s h x ->+                 DescribeExpressionsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "Expressions" .!@ mempty >>=+                        parseXMLList "member")) -newtype DescribeExpressionsResponse = DescribeExpressionsResponse-    { _derExpressions :: List "member" ExpressionStatus-    } deriving (Eq, Read, Show, Monoid, Semigroup)+instance ToHeaders DescribeExpressions where+        toHeaders = const mempty -instance GHC.Exts.IsList DescribeExpressionsResponse where-    type Item DescribeExpressionsResponse = ExpressionStatus+instance ToPath DescribeExpressions where+        toPath = const "/" -    fromList = DescribeExpressionsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _derExpressions+instance ToQuery DescribeExpressions where+        toQuery DescribeExpressions'{..}+          = mconcat+              ["Action" =: ("DescribeExpressions" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _deDeployed,+               "ExpressionNames" =:+                 toQuery+                   (toQueryList "member" <$> _deExpressionNames),+               "DomainName" =: _deDomainName] --- | 'DescribeExpressionsResponse' constructor.+-- | The result of a 'DescribeExpressions' request. Contains the expressions+-- configured for the domain specified in the request. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeExpressionsResponse' smart constructor.+data DescribeExpressionsResponse = DescribeExpressionsResponse'+    { _drsStatus      :: !Int+    , _drsExpressions :: ![ExpressionStatus]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeExpressionsResponse' with the minimum fields required to make a request. ----- * 'derExpressions' @::@ ['ExpressionStatus']+-- Use one of the following lenses to modify other fields as desired: ---describeExpressionsResponse :: DescribeExpressionsResponse-describeExpressionsResponse = DescribeExpressionsResponse-    { _derExpressions = mempty+-- * 'drsStatus'+--+-- * 'drsExpressions'+describeExpressionsResponse+    :: Int -- ^ 'drsStatus'+    -> DescribeExpressionsResponse+describeExpressionsResponse pStatus_ =+    DescribeExpressionsResponse'+    { _drsStatus = pStatus_+    , _drsExpressions = mempty     } --- | The expressions configured for the domain.-derExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus]-derExpressions = lens _derExpressions (\s a -> s { _derExpressions = a }) . _List--instance ToPath DescribeExpressions where-    toPath = const "/"--instance ToQuery DescribeExpressions where-    toQuery DescribeExpressions{..} = mconcat-        [ "Deployed"        =? _deDeployed-        , "DomainName"      =? _deDomainName-        , "ExpressionNames" =? _deExpressionNames-        ]--instance ToHeaders DescribeExpressions--instance AWSRequest DescribeExpressions where-    type Sv DescribeExpressions = CloudSearch-    type Rs DescribeExpressions = DescribeExpressionsResponse--    request  = post "DescribeExpressions"-    response = xmlResponse+-- | The response status code.+drsStatus :: Lens' DescribeExpressionsResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a}); -instance FromXML DescribeExpressionsResponse where-    parseXML = withElement "DescribeExpressionsResult" $ \x -> DescribeExpressionsResponse-        <$> x .@? "Expressions" .!@ mempty+-- | The expressions configured for the domain.+drsExpressions :: Lens' DescribeExpressionsResponse [ExpressionStatus]+drsExpressions = lens _drsExpressions (\ s a -> s{_drsExpressions = a}) . _Coerce;

@@ -1,139 +1,160 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeIndexFields--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about the index fields configured for the search domain. Can--- be limited to specific fields by name. By default, shows all fields and--- includes any pending changes to the configuration. Set the 'Deployed' option to 'true' to show the active configuration and exclude pending changes. For more--- information, see Getting Domain Information in the /Amazon CloudSearchDeveloper Guide/.+-- Gets information about the index fields configured for the search+-- domain. Can be limited to specific fields by name. By default, shows all+-- fields and includes any pending changes to the configuration. Set the+-- 'Deployed' option to 'true' to show the active configuration and exclude+-- pending changes. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-domain-info.html Getting Domain Information>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeIndexFields.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeIndexFields.html AWS API Reference> for DescribeIndexFields. module Network.AWS.CloudSearch.DescribeIndexFields     (-    -- * Request-      DescribeIndexFields-    -- ** Request constructor-    , describeIndexFields-    -- ** Request lenses+    -- * Creating a Request+      describeIndexFields+    , DescribeIndexFields+    -- * Request Lenses     , difDeployed-    , difDomainName     , difFieldNames+    , difDomainName -    -- * Response-    , DescribeIndexFieldsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeIndexFieldsResponse-    -- ** Response lenses-    , difrIndexFields+    , DescribeIndexFieldsResponse+    -- * Response Lenses+    , difsrsStatus+    , difsrsIndexFields     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeIndexFields = DescribeIndexFields-    { _difDeployed   :: Maybe Bool-    , _difDomainName :: Text-    , _difFieldNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeIndexFields' constructor.+-- | Container for the parameters to the 'DescribeIndexFields' operation.+-- Specifies the name of the domain you want to describe. To restrict the+-- response to particular index fields, specify the names of the index+-- fields you want to describe. To show the active configuration and+-- exclude any pending changes, set the 'Deployed' option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeIndexFields' smart constructor.+data DescribeIndexFields = DescribeIndexFields'+    { _difDeployed   :: !(Maybe Bool)+    , _difFieldNames :: !(Maybe [Text])+    , _difDomainName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeIndexFields' with the minimum fields required to make a request. ----- * 'difDeployed' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'difDomainName' @::@ 'Text'+-- * 'difDeployed' ----- * 'difFieldNames' @::@ ['Text']+-- * 'difFieldNames' ---describeIndexFields :: Text -- ^ 'difDomainName'-                    -> DescribeIndexFields-describeIndexFields p1 = DescribeIndexFields-    { _difDomainName = p1-    , _difFieldNames = mempty-    , _difDeployed   = Nothing+-- * 'difDomainName'+describeIndexFields+    :: Text -- ^ 'difDomainName'+    -> DescribeIndexFields+describeIndexFields pDomainName_ =+    DescribeIndexFields'+    { _difDeployed = Nothing+    , _difFieldNames = Nothing+    , _difDomainName = pDomainName_     } --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'. difDeployed :: Lens' DescribeIndexFields (Maybe Bool)-difDeployed = lens _difDeployed (\s a -> s { _difDeployed = a })---- | The name of the domain you want to describe.-difDomainName :: Lens' DescribeIndexFields Text-difDomainName = lens _difDomainName (\s a -> s { _difDomainName = a })+difDeployed = lens _difDeployed (\ s a -> s{_difDeployed = a});  -- | A list of the index fields you want to describe. If not specified, -- information is returned for all configured index fields. difFieldNames :: Lens' DescribeIndexFields [Text]-difFieldNames = lens _difFieldNames (\s a -> s { _difFieldNames = a }) . _List--newtype DescribeIndexFieldsResponse = DescribeIndexFieldsResponse-    { _difrIndexFields :: List "member" IndexFieldStatus-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeIndexFieldsResponse where-    type Item DescribeIndexFieldsResponse = IndexFieldStatus+difFieldNames = lens _difFieldNames (\ s a -> s{_difFieldNames = a}) . _Default . _Coerce; -    fromList = DescribeIndexFieldsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _difrIndexFields+-- | The name of the domain you want to describe.+difDomainName :: Lens' DescribeIndexFields Text+difDomainName = lens _difDomainName (\ s a -> s{_difDomainName = a}); --- | 'DescribeIndexFieldsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'difrIndexFields' @::@ ['IndexFieldStatus']----describeIndexFieldsResponse :: DescribeIndexFieldsResponse-describeIndexFieldsResponse = DescribeIndexFieldsResponse-    { _difrIndexFields = mempty-    }+instance AWSRequest DescribeIndexFields where+        type Sv DescribeIndexFields = CloudSearch+        type Rs DescribeIndexFields =+             DescribeIndexFieldsResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeIndexFieldsResult"+              (\ s h x ->+                 DescribeIndexFieldsResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "IndexFields" .!@ mempty >>=+                        parseXMLList "member")) --- | The index fields configured for the domain.-difrIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus]-difrIndexFields = lens _difrIndexFields (\s a -> s { _difrIndexFields = a }) . _List+instance ToHeaders DescribeIndexFields where+        toHeaders = const mempty  instance ToPath DescribeIndexFields where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeIndexFields where-    toQuery DescribeIndexFields{..} = mconcat-        [ "Deployed"   =? _difDeployed-        , "DomainName" =? _difDomainName-        , "FieldNames" =? _difFieldNames-        ]+        toQuery DescribeIndexFields'{..}+          = mconcat+              ["Action" =: ("DescribeIndexFields" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _difDeployed,+               "FieldNames" =:+                 toQuery (toQueryList "member" <$> _difFieldNames),+               "DomainName" =: _difDomainName] -instance ToHeaders DescribeIndexFields+-- | The result of a 'DescribeIndexFields' request. Contains the index fields+-- configured for the domain specified in the request.+--+-- /See:/ 'describeIndexFieldsResponse' smart constructor.+data DescribeIndexFieldsResponse = DescribeIndexFieldsResponse'+    { _difsrsStatus      :: !Int+    , _difsrsIndexFields :: ![IndexFieldStatus]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeIndexFields where-    type Sv DescribeIndexFields = CloudSearch-    type Rs DescribeIndexFields = DescribeIndexFieldsResponse+-- | Creates a value of 'DescribeIndexFieldsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'difsrsStatus'+--+-- * 'difsrsIndexFields'+describeIndexFieldsResponse+    :: Int -- ^ 'difsrsStatus'+    -> DescribeIndexFieldsResponse+describeIndexFieldsResponse pStatus_ =+    DescribeIndexFieldsResponse'+    { _difsrsStatus = pStatus_+    , _difsrsIndexFields = mempty+    } -    request  = post "DescribeIndexFields"-    response = xmlResponse+-- | The response status code.+difsrsStatus :: Lens' DescribeIndexFieldsResponse Int+difsrsStatus = lens _difsrsStatus (\ s a -> s{_difsrsStatus = a}); -instance FromXML DescribeIndexFieldsResponse where-    parseXML = withElement "DescribeIndexFieldsResult" $ \x -> DescribeIndexFieldsResponse-        <$> x .@? "IndexFields" .!@ mempty+-- | The index fields configured for the domain.+difsrsIndexFields :: Lens' DescribeIndexFieldsResponse [IndexFieldStatus]+difsrsIndexFields = lens _difsrsIndexFields (\ s a -> s{_difsrsIndexFields = a}) . _Coerce;

@@ -1,110 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeScalingParameters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets the scaling parameters configured for a domain. A domain's scaling--- parameters specify the desired search instance type and replication count.--- For more information, see Configuring Scaling Options in the /AmazonCloudSearch Developer Guide/.+-- Gets the scaling parameters configured for a domain. A domain\'s scaling+-- parameters specify the desired search instance type and replication+-- count. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-scaling-options.html Configuring Scaling Options>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeScalingParameters.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeScalingParameters.html AWS API Reference> for DescribeScalingParameters. module Network.AWS.CloudSearch.DescribeScalingParameters     (-    -- * Request-      DescribeScalingParameters-    -- ** Request constructor-    , describeScalingParameters-    -- ** Request lenses+    -- * Creating a Request+      describeScalingParameters+    , DescribeScalingParameters+    -- * Request Lenses     , dspDomainName -    -- * Response-    , DescribeScalingParametersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeScalingParametersResponse-    -- ** Response lenses-    , dsprScalingParameters+    , DescribeScalingParametersResponse+    -- * Response Lenses+    , dsprsStatus+    , dsprsScalingParameters     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DescribeScalingParameters = DescribeScalingParameters+-- | Container for the parameters to the 'DescribeScalingParameters'+-- operation. Specifies the name of the domain you want to describe.+--+-- /See:/ 'describeScalingParameters' smart constructor.+newtype DescribeScalingParameters = DescribeScalingParameters'     { _dspDomainName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeScalingParameters' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeScalingParameters' with the minimum fields required to make a request. ----- * 'dspDomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeScalingParameters :: Text -- ^ 'dspDomainName'-                          -> DescribeScalingParameters-describeScalingParameters p1 = DescribeScalingParameters-    { _dspDomainName = p1+-- * 'dspDomainName'+describeScalingParameters+    :: Text -- ^ 'dspDomainName'+    -> DescribeScalingParameters+describeScalingParameters pDomainName_ =+    DescribeScalingParameters'+    { _dspDomainName = pDomainName_     } +-- | Undocumented member. dspDomainName :: Lens' DescribeScalingParameters Text-dspDomainName = lens _dspDomainName (\s a -> s { _dspDomainName = a })--newtype DescribeScalingParametersResponse = DescribeScalingParametersResponse-    { _dsprScalingParameters :: ScalingParametersStatus-    } deriving (Eq, Read, Show)+dspDomainName = lens _dspDomainName (\ s a -> s{_dspDomainName = a}); --- | 'DescribeScalingParametersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsprScalingParameters' @::@ 'ScalingParametersStatus'----describeScalingParametersResponse :: ScalingParametersStatus -- ^ 'dsprScalingParameters'-                                  -> DescribeScalingParametersResponse-describeScalingParametersResponse p1 = DescribeScalingParametersResponse-    { _dsprScalingParameters = p1-    }+instance AWSRequest DescribeScalingParameters where+        type Sv DescribeScalingParameters = CloudSearch+        type Rs DescribeScalingParameters =+             DescribeScalingParametersResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeScalingParametersResult"+              (\ s h x ->+                 DescribeScalingParametersResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "ScalingParameters")) -dsprScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus-dsprScalingParameters =-    lens _dsprScalingParameters (\s a -> s { _dsprScalingParameters = a })+instance ToHeaders DescribeScalingParameters where+        toHeaders = const mempty  instance ToPath DescribeScalingParameters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeScalingParameters where-    toQuery DescribeScalingParameters{..} = mconcat-        [ "DomainName" =? _dspDomainName-        ]+        toQuery DescribeScalingParameters'{..}+          = mconcat+              ["Action" =:+                 ("DescribeScalingParameters" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _dspDomainName] -instance ToHeaders DescribeScalingParameters+-- | The result of a 'DescribeScalingParameters' request. Contains the+-- scaling parameters configured for the domain specified in the request.+--+-- /See:/ 'describeScalingParametersResponse' smart constructor.+data DescribeScalingParametersResponse = DescribeScalingParametersResponse'+    { _dsprsStatus            :: !Int+    , _dsprsScalingParameters :: !ScalingParametersStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeScalingParameters where-    type Sv DescribeScalingParameters = CloudSearch-    type Rs DescribeScalingParameters = DescribeScalingParametersResponse+-- | Creates a value of 'DescribeScalingParametersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsprsStatus'+--+-- * 'dsprsScalingParameters'+describeScalingParametersResponse+    :: Int -- ^ 'dsprsStatus'+    -> ScalingParametersStatus -- ^ 'dsprsScalingParameters'+    -> DescribeScalingParametersResponse+describeScalingParametersResponse pStatus_ pScalingParameters_ =+    DescribeScalingParametersResponse'+    { _dsprsStatus = pStatus_+    , _dsprsScalingParameters = pScalingParameters_+    } -    request  = post "DescribeScalingParameters"-    response = xmlResponse+-- | The response status code.+dsprsStatus :: Lens' DescribeScalingParametersResponse Int+dsprsStatus = lens _dsprsStatus (\ s a -> s{_dsprsStatus = a}); -instance FromXML DescribeScalingParametersResponse where-    parseXML = withElement "DescribeScalingParametersResult" $ \x -> DescribeScalingParametersResponse-        <$> x .@  "ScalingParameters"+-- | Undocumented member.+dsprsScalingParameters :: Lens' DescribeScalingParametersResponse ScalingParametersStatus+dsprsScalingParameters = lens _dsprsScalingParameters (\ s a -> s{_dsprsScalingParameters = a});

@@ -1,125 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeServiceAccessPolicies--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets information about the access policies that control access to the--- domain's document and search endpoints. By default, shows the configuration--- with any pending changes. Set the 'Deployed' option to 'true' to show the active--- configuration and exclude pending changes. For more information, see Configuring Access for a Search Domain+-- Gets information about the access policies that control access to the+-- domain\'s document and search endpoints. By default, shows the+-- configuration with any pending changes. Set the 'Deployed' option to+-- 'true' to show the active configuration and exclude pending changes. For+-- more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-access.html Configuring Access for a Search Domain> -- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeServiceAccessPolicies.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeServiceAccessPolicies.html AWS API Reference> for DescribeServiceAccessPolicies. module Network.AWS.CloudSearch.DescribeServiceAccessPolicies     (-    -- * Request-      DescribeServiceAccessPolicies-    -- ** Request constructor-    , describeServiceAccessPolicies-    -- ** Request lenses+    -- * Creating a Request+      describeServiceAccessPolicies+    , DescribeServiceAccessPolicies+    -- * Request Lenses     , dsapDeployed     , dsapDomainName -    -- * Response-    , DescribeServiceAccessPoliciesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeServiceAccessPoliciesResponse-    -- ** Response lenses-    , dsaprAccessPolicies+    , DescribeServiceAccessPoliciesResponse+    -- * Response Lenses+    , dsaprsStatus+    , dsaprsAccessPolicies     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeServiceAccessPolicies = DescribeServiceAccessPolicies-    { _dsapDeployed   :: Maybe Bool-    , _dsapDomainName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeServiceAccessPolicies' constructor.+-- | Container for the parameters to the 'DescribeServiceAccessPolicies'+-- operation. Specifies the name of the domain you want to describe. To+-- show the active configuration and exclude any pending changes, set the+-- 'Deployed' option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeServiceAccessPolicies' smart constructor.+data DescribeServiceAccessPolicies = DescribeServiceAccessPolicies'+    { _dsapDeployed   :: !(Maybe Bool)+    , _dsapDomainName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeServiceAccessPolicies' with the minimum fields required to make a request. ----- * 'dsapDeployed' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dsapDomainName' @::@ 'Text'+-- * 'dsapDeployed' ---describeServiceAccessPolicies :: Text -- ^ 'dsapDomainName'-                              -> DescribeServiceAccessPolicies-describeServiceAccessPolicies p1 = DescribeServiceAccessPolicies-    { _dsapDomainName = p1-    , _dsapDeployed   = Nothing+-- * 'dsapDomainName'+describeServiceAccessPolicies+    :: Text -- ^ 'dsapDomainName'+    -> DescribeServiceAccessPolicies+describeServiceAccessPolicies pDomainName_ =+    DescribeServiceAccessPolicies'+    { _dsapDeployed = Nothing+    , _dsapDomainName = pDomainName_     } --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'. dsapDeployed :: Lens' DescribeServiceAccessPolicies (Maybe Bool)-dsapDeployed = lens _dsapDeployed (\s a -> s { _dsapDeployed = a })+dsapDeployed = lens _dsapDeployed (\ s a -> s{_dsapDeployed = a});  -- | The name of the domain you want to describe. dsapDomainName :: Lens' DescribeServiceAccessPolicies Text-dsapDomainName = lens _dsapDomainName (\s a -> s { _dsapDomainName = a })--newtype DescribeServiceAccessPoliciesResponse = DescribeServiceAccessPoliciesResponse-    { _dsaprAccessPolicies :: AccessPoliciesStatus-    } deriving (Eq, Read, Show)+dsapDomainName = lens _dsapDomainName (\ s a -> s{_dsapDomainName = a}); --- | 'DescribeServiceAccessPoliciesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsaprAccessPolicies' @::@ 'AccessPoliciesStatus'----describeServiceAccessPoliciesResponse :: AccessPoliciesStatus -- ^ 'dsaprAccessPolicies'-                                      -> DescribeServiceAccessPoliciesResponse-describeServiceAccessPoliciesResponse p1 = DescribeServiceAccessPoliciesResponse-    { _dsaprAccessPolicies = p1-    }+instance AWSRequest DescribeServiceAccessPolicies+         where+        type Sv DescribeServiceAccessPolicies = CloudSearch+        type Rs DescribeServiceAccessPolicies =+             DescribeServiceAccessPoliciesResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeServiceAccessPoliciesResult"+              (\ s h x ->+                 DescribeServiceAccessPoliciesResponse' <$>+                   (pure (fromEnum s)) <*> (x .@ "AccessPolicies")) --- | The access rules configured for the domain specified in the request.-dsaprAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus-dsaprAccessPolicies =-    lens _dsaprAccessPolicies (\s a -> s { _dsaprAccessPolicies = a })+instance ToHeaders DescribeServiceAccessPolicies+         where+        toHeaders = const mempty  instance ToPath DescribeServiceAccessPolicies where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeServiceAccessPolicies where-    toQuery DescribeServiceAccessPolicies{..} = mconcat-        [ "Deployed"   =? _dsapDeployed-        , "DomainName" =? _dsapDomainName-        ]+        toQuery DescribeServiceAccessPolicies'{..}+          = mconcat+              ["Action" =:+                 ("DescribeServiceAccessPolicies" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _dsapDeployed,+               "DomainName" =: _dsapDomainName] -instance ToHeaders DescribeServiceAccessPolicies+-- | The result of a 'DescribeServiceAccessPolicies' request.+--+-- /See:/ 'describeServiceAccessPoliciesResponse' smart constructor.+data DescribeServiceAccessPoliciesResponse = DescribeServiceAccessPoliciesResponse'+    { _dsaprsStatus         :: !Int+    , _dsaprsAccessPolicies :: !AccessPoliciesStatus+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeServiceAccessPolicies where-    type Sv DescribeServiceAccessPolicies = CloudSearch-    type Rs DescribeServiceAccessPolicies = DescribeServiceAccessPoliciesResponse+-- | Creates a value of 'DescribeServiceAccessPoliciesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsaprsStatus'+--+-- * 'dsaprsAccessPolicies'+describeServiceAccessPoliciesResponse+    :: Int -- ^ 'dsaprsStatus'+    -> AccessPoliciesStatus -- ^ 'dsaprsAccessPolicies'+    -> DescribeServiceAccessPoliciesResponse+describeServiceAccessPoliciesResponse pStatus_ pAccessPolicies_ =+    DescribeServiceAccessPoliciesResponse'+    { _dsaprsStatus = pStatus_+    , _dsaprsAccessPolicies = pAccessPolicies_+    } -    request  = post "DescribeServiceAccessPolicies"-    response = xmlResponse+-- | The response status code.+dsaprsStatus :: Lens' DescribeServiceAccessPoliciesResponse Int+dsaprsStatus = lens _dsaprsStatus (\ s a -> s{_dsaprsStatus = a}); -instance FromXML DescribeServiceAccessPoliciesResponse where-    parseXML = withElement "DescribeServiceAccessPoliciesResult" $ \x -> DescribeServiceAccessPoliciesResponse-        <$> x .@  "AccessPolicies"+-- | The access rules configured for the domain specified in the request.+dsaprsAccessPolicies :: Lens' DescribeServiceAccessPoliciesResponse AccessPoliciesStatus+dsaprsAccessPolicies = lens _dsaprsAccessPolicies (\ s a -> s{_dsaprsAccessPolicies = a});

@@ -1,141 +1,160 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.DescribeSuggesters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Gets the suggesters configured for a domain. A suggester enables you to--- display possible matches before users finish typing their queries. Can be--- limited to specific suggesters by name. By default, shows all suggesters and--- includes any pending changes to the configuration. Set the 'Deployed' option to 'true' to show the active configuration and exclude pending changes. For more--- information, see Getting Search Suggestions in the /Amazon CloudSearchDeveloper Guide/.+-- Gets the suggesters configured for a domain. A suggester enables you to+-- display possible matches before users finish typing their queries. Can+-- be limited to specific suggesters by name. By default, shows all+-- suggesters and includes any pending changes to the configuration. Set+-- the 'Deployed' option to 'true' to show the active configuration and+-- exclude pending changes. For more information, see+-- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/getting-suggestions.html Getting Search Suggestions>+-- in the /Amazon CloudSearch Developer Guide/. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeSuggesters.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_DescribeSuggesters.html AWS API Reference> for DescribeSuggesters. module Network.AWS.CloudSearch.DescribeSuggesters     (-    -- * Request-      DescribeSuggesters-    -- ** Request constructor-    , describeSuggesters-    -- ** Request lenses-    , ds1Deployed-    , ds1DomainName-    , ds1SuggesterNames+    -- * Creating a Request+      describeSuggesters+    , DescribeSuggesters+    -- * Request Lenses+    , dssDeployed+    , dssSuggesterNames+    , dssDomainName -    -- * Response-    , DescribeSuggestersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeSuggestersResponse-    -- ** Response lenses-    , dsrSuggesters+    , DescribeSuggestersResponse+    -- * Response Lenses+    , dssrsStatus+    , dssrsSuggesters     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data DescribeSuggesters = DescribeSuggesters-    { _ds1Deployed       :: Maybe Bool-    , _ds1DomainName     :: Text-    , _ds1SuggesterNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeSuggesters' constructor.+-- | Container for the parameters to the 'DescribeSuggester' operation.+-- Specifies the name of the domain you want to describe. To restrict the+-- response to particular suggesters, specify the names of the suggesters+-- you want to describe. To show the active configuration and exclude any+-- pending changes, set the 'Deployed' option to 'true'. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeSuggesters' smart constructor.+data DescribeSuggesters = DescribeSuggesters'+    { _dssDeployed       :: !(Maybe Bool)+    , _dssSuggesterNames :: !(Maybe [Text])+    , _dssDomainName     :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSuggesters' with the minimum fields required to make a request. ----- * 'ds1Deployed' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ds1DomainName' @::@ 'Text'+-- * 'dssDeployed' ----- * 'ds1SuggesterNames' @::@ ['Text']+-- * 'dssSuggesterNames' ---describeSuggesters :: Text -- ^ 'ds1DomainName'-                   -> DescribeSuggesters-describeSuggesters p1 = DescribeSuggesters-    { _ds1DomainName     = p1-    , _ds1SuggesterNames = mempty-    , _ds1Deployed       = Nothing+-- * 'dssDomainName'+describeSuggesters+    :: Text -- ^ 'dssDomainName'+    -> DescribeSuggesters+describeSuggesters pDomainName_ =+    DescribeSuggesters'+    { _dssDeployed = Nothing+    , _dssSuggesterNames = Nothing+    , _dssDomainName = pDomainName_     } --- | Whether to display the deployed configuration ('true') or include any pending--- changes ('false'). Defaults to 'false'.-ds1Deployed :: Lens' DescribeSuggesters (Maybe Bool)-ds1Deployed = lens _ds1Deployed (\s a -> s { _ds1Deployed = a })---- | The name of the domain you want to describe.-ds1DomainName :: Lens' DescribeSuggesters Text-ds1DomainName = lens _ds1DomainName (\s a -> s { _ds1DomainName = a })+-- | Whether to display the deployed configuration ('true') or include any+-- pending changes ('false'). Defaults to 'false'.+dssDeployed :: Lens' DescribeSuggesters (Maybe Bool)+dssDeployed = lens _dssDeployed (\ s a -> s{_dssDeployed = a});  -- | The suggesters you want to describe.-ds1SuggesterNames :: Lens' DescribeSuggesters [Text]-ds1SuggesterNames =-    lens _ds1SuggesterNames (\s a -> s { _ds1SuggesterNames = a })-        . _List--newtype DescribeSuggestersResponse = DescribeSuggestersResponse-    { _dsrSuggesters :: List "member" SuggesterStatus-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList DescribeSuggestersResponse where-    type Item DescribeSuggestersResponse = SuggesterStatus+dssSuggesterNames :: Lens' DescribeSuggesters [Text]+dssSuggesterNames = lens _dssSuggesterNames (\ s a -> s{_dssSuggesterNames = a}) . _Default . _Coerce; -    fromList = DescribeSuggestersResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _dsrSuggesters+-- | The name of the domain you want to describe.+dssDomainName :: Lens' DescribeSuggesters Text+dssDomainName = lens _dssDomainName (\ s a -> s{_dssDomainName = a}); --- | 'DescribeSuggestersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsrSuggesters' @::@ ['SuggesterStatus']----describeSuggestersResponse :: DescribeSuggestersResponse-describeSuggestersResponse = DescribeSuggestersResponse-    { _dsrSuggesters = mempty-    }+instance AWSRequest DescribeSuggesters where+        type Sv DescribeSuggesters = CloudSearch+        type Rs DescribeSuggesters =+             DescribeSuggestersResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeSuggestersResult"+              (\ s h x ->+                 DescribeSuggestersResponse' <$>+                   (pure (fromEnum s)) <*>+                     (x .@? "Suggesters" .!@ mempty >>=+                        parseXMLList "member")) --- | The suggesters configured for the domain specified in the request.-dsrSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus]-dsrSuggesters = lens _dsrSuggesters (\s a -> s { _dsrSuggesters = a }) . _List+instance ToHeaders DescribeSuggesters where+        toHeaders = const mempty  instance ToPath DescribeSuggesters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeSuggesters where-    toQuery DescribeSuggesters{..} = mconcat-        [ "Deployed"       =? _ds1Deployed-        , "DomainName"     =? _ds1DomainName-        , "SuggesterNames" =? _ds1SuggesterNames-        ]+        toQuery DescribeSuggesters'{..}+          = mconcat+              ["Action" =: ("DescribeSuggesters" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "Deployed" =: _dssDeployed,+               "SuggesterNames" =:+                 toQuery+                   (toQueryList "member" <$> _dssSuggesterNames),+               "DomainName" =: _dssDomainName] -instance ToHeaders DescribeSuggesters+-- | The result of a 'DescribeSuggesters' request.+--+-- /See:/ 'describeSuggestersResponse' smart constructor.+data DescribeSuggestersResponse = DescribeSuggestersResponse'+    { _dssrsStatus     :: !Int+    , _dssrsSuggesters :: ![SuggesterStatus]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeSuggesters where-    type Sv DescribeSuggesters = CloudSearch-    type Rs DescribeSuggesters = DescribeSuggestersResponse+-- | Creates a value of 'DescribeSuggestersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssrsStatus'+--+-- * 'dssrsSuggesters'+describeSuggestersResponse+    :: Int -- ^ 'dssrsStatus'+    -> DescribeSuggestersResponse+describeSuggestersResponse pStatus_ =+    DescribeSuggestersResponse'+    { _dssrsStatus = pStatus_+    , _dssrsSuggesters = mempty+    } -    request  = post "DescribeSuggesters"-    response = xmlResponse+-- | The response status code.+dssrsStatus :: Lens' DescribeSuggestersResponse Int+dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a}); -instance FromXML DescribeSuggestersResponse where-    parseXML = withElement "DescribeSuggestersResult" $ \x -> DescribeSuggestersResponse-        <$> x .@? "Suggesters" .!@ mempty+-- | The suggesters configured for the domain specified in the request.+dssrsSuggesters :: Lens' DescribeSuggestersResponse [SuggesterStatus]+dssrsSuggesters = lens _dssrsSuggesters (\ s a -> s{_dssrsSuggesters = a}) . _Coerce;

@@ -1,114 +1,129 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.IndexDocuments--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Tells the search domain to start indexing its documents using the latest--- indexing options. This operation must be invoked to activate options whose 'OptionStatus' is 'RequiresIndexDocuments'.+-- Tells the search domain to start indexing its documents using the latest+-- indexing options. This operation must be invoked to activate options+-- whose OptionStatus is 'RequiresIndexDocuments'. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_IndexDocuments.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_IndexDocuments.html AWS API Reference> for IndexDocuments. module Network.AWS.CloudSearch.IndexDocuments     (-    -- * Request-      IndexDocuments-    -- ** Request constructor-    , indexDocuments-    -- ** Request lenses+    -- * Creating a Request+      indexDocuments+    , IndexDocuments+    -- * Request Lenses     , idDomainName -    -- * Response-    , IndexDocumentsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , indexDocumentsResponse-    -- ** Response lenses-    , idrFieldNames+    , IndexDocumentsResponse+    -- * Response Lenses+    , idrsFieldNames+    , idrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype IndexDocuments = IndexDocuments+-- | Container for the parameters to the 'IndexDocuments' operation.+-- Specifies the name of the domain you want to re-index.+--+-- /See:/ 'indexDocuments' smart constructor.+newtype IndexDocuments = IndexDocuments'     { _idDomainName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'IndexDocuments' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'IndexDocuments' with the minimum fields required to make a request. ----- * 'idDomainName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---indexDocuments :: Text -- ^ 'idDomainName'-               -> IndexDocuments-indexDocuments p1 = IndexDocuments-    { _idDomainName = p1+-- * 'idDomainName'+indexDocuments+    :: Text -- ^ 'idDomainName'+    -> IndexDocuments+indexDocuments pDomainName_ =+    IndexDocuments'+    { _idDomainName = pDomainName_     } +-- | Undocumented member. idDomainName :: Lens' IndexDocuments Text-idDomainName = lens _idDomainName (\s a -> s { _idDomainName = a })+idDomainName = lens _idDomainName (\ s a -> s{_idDomainName = a}); -newtype IndexDocumentsResponse = IndexDocumentsResponse-    { _idrFieldNames :: List "member" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)+instance AWSRequest IndexDocuments where+        type Sv IndexDocuments = CloudSearch+        type Rs IndexDocuments = IndexDocumentsResponse+        request = postQuery+        response+          = receiveXMLWrapper "IndexDocumentsResult"+              (\ s h x ->+                 IndexDocumentsResponse' <$>+                   (x .@? "FieldNames" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (pure (fromEnum s))) -instance GHC.Exts.IsList IndexDocumentsResponse where-    type Item IndexDocumentsResponse = Text+instance ToHeaders IndexDocuments where+        toHeaders = const mempty -    fromList = IndexDocumentsResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _idrFieldNames+instance ToPath IndexDocuments where+        toPath = const "/" --- | 'IndexDocumentsResponse' constructor.+instance ToQuery IndexDocuments where+        toQuery IndexDocuments'{..}+          = mconcat+              ["Action" =: ("IndexDocuments" :: ByteString),+               "Version" =: ("2013-01-01" :: ByteString),+               "DomainName" =: _idDomainName]++-- | The result of an 'IndexDocuments' request. Contains the status of the+-- indexing operation, including the fields being indexed. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'indexDocumentsResponse' smart constructor.+data IndexDocumentsResponse = IndexDocumentsResponse'+    { _idrsFieldNames :: !(Maybe [Text])+    , _idrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'IndexDocumentsResponse' with the minimum fields required to make a request. ----- * 'idrFieldNames' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ---indexDocumentsResponse :: IndexDocumentsResponse-indexDocumentsResponse = IndexDocumentsResponse-    { _idrFieldNames = mempty+-- * 'idrsFieldNames'+--+-- * 'idrsStatus'+indexDocumentsResponse+    :: Int -- ^ 'idrsStatus'+    -> IndexDocumentsResponse+indexDocumentsResponse pStatus_ =+    IndexDocumentsResponse'+    { _idrsFieldNames = Nothing+    , _idrsStatus = pStatus_     }  -- | The names of the fields that are currently being indexed.-idrFieldNames :: Lens' IndexDocumentsResponse [Text]-idrFieldNames = lens _idrFieldNames (\s a -> s { _idrFieldNames = a }) . _List--instance ToPath IndexDocuments where-    toPath = const "/"--instance ToQuery IndexDocuments where-    toQuery IndexDocuments{..} = mconcat-        [ "DomainName" =? _idDomainName-        ]--instance ToHeaders IndexDocuments--instance AWSRequest IndexDocuments where-    type Sv IndexDocuments = CloudSearch-    type Rs IndexDocuments = IndexDocumentsResponse--    request  = post "IndexDocuments"-    response = xmlResponse+idrsFieldNames :: Lens' IndexDocumentsResponse [Text]+idrsFieldNames = lens _idrsFieldNames (\ s a -> s{_idrsFieldNames = a}) . _Default . _Coerce; -instance FromXML IndexDocumentsResponse where-    parseXML = withElement "IndexDocumentsResult" $ \x -> IndexDocumentsResponse-        <$> x .@? "FieldNames" .!@ mempty+-- | The response status code.+idrsStatus :: Lens' IndexDocumentsResponse Int+idrsStatus = lens _idrsStatus (\ s a -> s{_idrsStatus = a});

@@ -1,91 +1,111 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CloudSearch.ListDomainNames--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Lists all search domains owned by an account.+-- Lists all search domains owned by an account. ----- <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_ListDomainNames.html>+-- /See:/ <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/API_ListDomainNames.html AWS API Reference> for ListDomainNames. module Network.AWS.CloudSearch.ListDomainNames     (-    -- * Request-      ListDomainNames-    -- ** Request constructor-    , listDomainNames+    -- * Creating a Request+      listDomainNames+    , ListDomainNames -    -- * Response-    , ListDomainNamesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , listDomainNamesResponse-    -- ** Response lenses-    , ldnrDomainNames+    , ListDomainNamesResponse+    -- * Response Lenses+    , ldnrsDomainNames+    , ldnrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.CloudSearch.Types-import qualified GHC.Exts--data ListDomainNames = ListDomainNames-    deriving (Eq, Ord, Read, Show, Generic)---- | 'ListDomainNames' constructor.-listDomainNames :: ListDomainNames-listDomainNames = ListDomainNames+import           Network.AWS.CloudSearch.Types+import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype ListDomainNamesResponse = ListDomainNamesResponse-    { _ldnrDomainNames :: EMap "entry" "key" "value" Text Text-    } deriving (Eq, Read, Show, Monoid, Semigroup)+-- | /See:/ 'listDomainNames' smart constructor.+data ListDomainNames =+    ListDomainNames'+    deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'ListDomainNamesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ldnrDomainNames' @::@ 'HashMap' 'Text' 'Text'+-- | Creates a value of 'ListDomainNames' with the minimum fields required to make a request. ---listDomainNamesResponse :: ListDomainNamesResponse-listDomainNamesResponse = ListDomainNamesResponse-    { _ldnrDomainNames = mempty-    }+listDomainNames+    :: ListDomainNames+listDomainNames = ListDomainNames' --- | The names of the search domains owned by an account.-ldnrDomainNames :: Lens' ListDomainNamesResponse (HashMap Text Text)-ldnrDomainNames = lens _ldnrDomainNames (\s a -> s { _ldnrDomainNames = a }) . _EMap+instance AWSRequest ListDomainNames where+        type Sv ListDomainNames = CloudSearch+        type Rs ListDomainNames = ListDomainNamesResponse+        request = postQuery+        response+          = receiveXMLWrapper "ListDomainNamesResult"+              (\ s h x ->+                 ListDomainNamesResponse' <$>+                   (x .@? "DomainNames" .!@ mempty >>=+                      may (parseXMLMap "entry" "key" "value"))+                     <*> (pure (fromEnum s))) +instance ToHeaders ListDomainNames where+        toHeaders = const mempty+ instance ToPath ListDomainNames where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ListDomainNames where-    toQuery = const mempty+        toQuery+          = const+              (mconcat+                 ["Action" =: ("ListDomainNames" :: ByteString),+                  "Version" =: ("2013-01-01" :: ByteString)]) -instance ToHeaders ListDomainNames+-- | The result of a 'ListDomainNames' request. Contains a list of the+-- domains owned by an account.+--+-- /See:/ 'listDomainNamesResponse' smart constructor.+data ListDomainNamesResponse = ListDomainNamesResponse'+    { _ldnrsDomainNames :: !(Maybe (Map Text Text))+    , _ldnrsStatus      :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ListDomainNames where-    type Sv ListDomainNames = CloudSearch-    type Rs ListDomainNames = ListDomainNamesResponse+-- | Creates a value of 'ListDomainNamesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ldnrsDomainNames'+--+-- * 'ldnrsStatus'+listDomainNamesResponse+    :: Int -- ^ 'ldnrsStatus'+    -> ListDomainNamesResponse+listDomainNamesResponse pStatus_ =+    ListDomainNamesResponse'+    { _ldnrsDomainNames = Nothing+    , _ldnrsStatus = pStatus_+    } -    request  = post "ListDomainNames"-    response = xmlResponse+-- | The names of the search domains owned by an account.+ldnrsDomainNames :: Lens' ListDomainNamesResponse (HashMap Text Text)+ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Map; -instance FromXML ListDomainNamesResponse where-    parseXML = withElement "ListDomainNamesResult" $ \x -> ListDomainNamesResponse-        <$> x .@? "DomainNames" .!@ mempty+-- | The response status code.+ldnrsStatus :: Lens' ListDomainNamesResponse Int+ldnrsStatus = lens _ldnrsStatus (\ s a -> s{_ldnrsStatus = a});

@@ -1,2542 +1,361 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}-{-# LANGUAGE ViewPatterns                #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Network.AWS.CloudSearch.Types--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- 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)------ Derived from AWS service descriptions, licensed under Apache 2.0.--module Network.AWS.CloudSearch.Types-    (-    -- * Service-      CloudSearch-    -- ** Error-    , RESTError-    -- ** XML-    , ns--    -- * DomainStatus-    , DomainStatus-    , domainStatus-    , dsARN-    , dsCreated-    , dsDeleted-    , dsDocService-    , dsDomainId-    , dsDomainName-    , dsLimits-    , dsProcessing-    , dsRequiresIndexDocuments-    , dsSearchInstanceCount-    , dsSearchInstanceType-    , dsSearchPartitionCount-    , dsSearchService--    -- * DocumentSuggesterOptions-    , DocumentSuggesterOptions-    , documentSuggesterOptions-    , dsoFuzzyMatching-    , dsoSortExpression-    , dsoSourceField--    -- * DoubleArrayOptions-    , DoubleArrayOptions-    , doubleArrayOptions-    , daoDefaultValue-    , daoFacetEnabled-    , daoReturnEnabled-    , daoSearchEnabled-    , daoSourceFields--    -- * IndexField-    , IndexField-    , indexField-    , ifDateArrayOptions-    , ifDateOptions-    , ifDoubleArrayOptions-    , ifDoubleOptions-    , ifIndexFieldName-    , ifIndexFieldType-    , ifIntArrayOptions-    , ifIntOptions-    , ifLatLonOptions-    , ifLiteralArrayOptions-    , ifLiteralOptions-    , ifTextArrayOptions-    , ifTextOptions--    -- * DateOptions-    , DateOptions-    , dateOptions-    , doDefaultValue-    , doFacetEnabled-    , doReturnEnabled-    , doSearchEnabled-    , doSortEnabled-    , doSourceField--    -- * OptionState-    , OptionState (..)--    -- * TextArrayOptions-    , TextArrayOptions-    , textArrayOptions-    , taoAnalysisScheme-    , taoDefaultValue-    , taoHighlightEnabled-    , taoReturnEnabled-    , taoSourceFields--    -- * AlgorithmicStemming-    , AlgorithmicStemming (..)--    -- * AnalysisScheme-    , AnalysisScheme-    , analysisScheme-    , asAnalysisOptions-    , asAnalysisSchemeLanguage-    , asAnalysisSchemeName--    -- * ScalingParameters-    , ScalingParameters-    , scalingParameters-    , spDesiredInstanceType-    , spDesiredPartitionCount-    , spDesiredReplicationCount--    -- * AnalysisOptions-    , AnalysisOptions-    , analysisOptions-    , aoAlgorithmicStemming-    , aoJapaneseTokenizationDictionary-    , aoStemmingDictionary-    , aoStopwords-    , aoSynonyms--    -- * DoubleOptions-    , DoubleOptions-    , doubleOptions-    , do1DefaultValue-    , do1FacetEnabled-    , do1ReturnEnabled-    , do1SearchEnabled-    , do1SortEnabled-    , do1SourceField--    -- * TextOptions-    , TextOptions-    , textOptions-    , toAnalysisScheme-    , toDefaultValue-    , toHighlightEnabled-    , toReturnEnabled-    , toSortEnabled-    , toSourceField--    -- * AvailabilityOptionsStatus-    , AvailabilityOptionsStatus-    , availabilityOptionsStatus-    , aosOptions-    , aosStatus--    -- * IndexFieldStatus-    , IndexFieldStatus-    , indexFieldStatus-    , ifsOptions-    , ifsStatus--    -- * ScalingParametersStatus-    , ScalingParametersStatus-    , scalingParametersStatus-    , spsOptions-    , spsStatus--    -- * AnalysisSchemeStatus-    , AnalysisSchemeStatus-    , analysisSchemeStatus-    , assOptions-    , assStatus--    -- * ServiceEndpoint-    , ServiceEndpoint-    , serviceEndpoint-    , seEndpoint--    -- * Limits-    , Limits-    , limits-    , lMaximumPartitionCount-    , lMaximumReplicationCount--    -- * ExpressionStatus-    , ExpressionStatus-    , expressionStatus-    , esOptions-    , esStatus--    -- * IndexFieldType-    , IndexFieldType (..)--    -- * LatLonOptions-    , LatLonOptions-    , latLonOptions-    , lloDefaultValue-    , lloFacetEnabled-    , lloReturnEnabled-    , lloSearchEnabled-    , lloSortEnabled-    , lloSourceField--    -- * SuggesterStatus-    , SuggesterStatus-    , suggesterStatus-    , ssOptions-    , ssStatus--    -- * OptionStatus-    , OptionStatus-    , optionStatus-    , osCreationDate-    , osPendingDeletion-    , osState-    , osUpdateDate-    , osUpdateVersion--    -- * LiteralArrayOptions-    , LiteralArrayOptions-    , literalArrayOptions-    , laoDefaultValue-    , laoFacetEnabled-    , laoReturnEnabled-    , laoSearchEnabled-    , laoSourceFields--    -- * IntArrayOptions-    , IntArrayOptions-    , intArrayOptions-    , iaoDefaultValue-    , iaoFacetEnabled-    , iaoReturnEnabled-    , iaoSearchEnabled-    , iaoSourceFields--    -- * Expression-    , Expression-    , expression-    , eExpressionName-    , eExpressionValue--    -- * SuggesterFuzzyMatching-    , SuggesterFuzzyMatching (..)--    -- * DateArrayOptions-    , DateArrayOptions-    , dateArrayOptions-    , dao1DefaultValue-    , dao1FacetEnabled-    , dao1ReturnEnabled-    , dao1SearchEnabled-    , dao1SourceFields--    -- * AnalysisSchemeLanguage-    , AnalysisSchemeLanguage (..)--    -- * PartitionInstanceType-    , PartitionInstanceType (..)--    -- * Suggester-    , Suggester-    , suggester-    , sDocumentSuggesterOptions-    , sSuggesterName--    -- * IntOptions-    , IntOptions-    , intOptions-    , ioDefaultValue-    , ioFacetEnabled-    , ioReturnEnabled-    , ioSearchEnabled-    , ioSortEnabled-    , ioSourceField--    -- * LiteralOptions-    , LiteralOptions-    , literalOptions-    , loDefaultValue-    , loFacetEnabled-    , loReturnEnabled-    , loSearchEnabled-    , loSortEnabled-    , loSourceField--    -- * AccessPoliciesStatus-    , AccessPoliciesStatus-    , accessPoliciesStatus-    , apsOptions-    , apsStatus-    ) where--import Network.AWS.Prelude-import Network.AWS.Signing-import qualified GHC.Exts---- | Version @2013-01-01@ of the Amazon CloudSearch service.-data CloudSearch--instance AWSService CloudSearch where-    type Sg CloudSearch = V4-    type Er CloudSearch = RESTError--    service = service'-      where-        service' :: Service CloudSearch-        service' = Service-            { _svcAbbrev       = "CloudSearch"-            , _svcPrefix       = "cloudsearch"-            , _svcVersion      = "2013-01-01"-            , _svcTargetPrefix = Nothing-            , _svcJSONVersion  = Nothing-            , _svcHandle       = handle-            , _svcRetry        = retry-            }--        handle :: Status-               -> Maybe (LazyByteString -> ServiceError RESTError)-        handle = restError statusSuccess service'--        retry :: Retry CloudSearch-        retry = Exponential-            { _retryBase     = 0.05-            , _retryGrowth   = 2-            , _retryAttempts = 5-            , _retryCheck    = check-            }--        check :: Status-              -> RESTError-              -> Bool-        check (statusCode -> s) (awsErrorCode -> e)-            | s == 509 && (Just "BandwidthLimitExceeded") == e = True -- Request Limit Exceeded-            | s == 500  = True -- General Server Error-            | s == 509  = True -- Limit Exceeded-            | s == 503  = True -- Service Unavailable-            | otherwise = False--ns :: Text-ns = "http://cloudsearch.amazonaws.com/doc/2013-01-01/"-{-# INLINE ns #-}--data DomainStatus = DomainStatus-    { _dsARN                    :: Maybe Text-    , _dsCreated                :: Maybe Bool-    , _dsDeleted                :: Maybe Bool-    , _dsDocService             :: Maybe ServiceEndpoint-    , _dsDomainId               :: Text-    , _dsDomainName             :: Text-    , _dsLimits                 :: Maybe Limits-    , _dsProcessing             :: Maybe Bool-    , _dsRequiresIndexDocuments :: Bool-    , _dsSearchInstanceCount    :: Maybe Nat-    , _dsSearchInstanceType     :: Maybe Text-    , _dsSearchPartitionCount   :: Maybe Nat-    , _dsSearchService          :: Maybe ServiceEndpoint-    } deriving (Eq, Read, Show)---- | 'DomainStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsARN' @::@ 'Maybe' 'Text'------ * 'dsCreated' @::@ 'Maybe' 'Bool'------ * 'dsDeleted' @::@ 'Maybe' 'Bool'------ * 'dsDocService' @::@ 'Maybe' 'ServiceEndpoint'------ * 'dsDomainId' @::@ 'Text'------ * 'dsDomainName' @::@ 'Text'------ * 'dsLimits' @::@ 'Maybe' 'Limits'------ * 'dsProcessing' @::@ 'Maybe' 'Bool'------ * 'dsRequiresIndexDocuments' @::@ 'Bool'------ * 'dsSearchInstanceCount' @::@ 'Maybe' 'Natural'------ * 'dsSearchInstanceType' @::@ 'Maybe' 'Text'------ * 'dsSearchPartitionCount' @::@ 'Maybe' 'Natural'------ * 'dsSearchService' @::@ 'Maybe' 'ServiceEndpoint'----domainStatus :: Text -- ^ 'dsDomainId'-             -> Text -- ^ 'dsDomainName'-             -> Bool -- ^ 'dsRequiresIndexDocuments'-             -> DomainStatus-domainStatus p1 p2 p3 = DomainStatus-    { _dsDomainId               = p1-    , _dsDomainName             = p2-    , _dsRequiresIndexDocuments = p3-    , _dsARN                    = Nothing-    , _dsCreated                = Nothing-    , _dsDeleted                = Nothing-    , _dsDocService             = Nothing-    , _dsSearchService          = Nothing-    , _dsProcessing             = Nothing-    , _dsSearchInstanceType     = Nothing-    , _dsSearchPartitionCount   = Nothing-    , _dsSearchInstanceCount    = Nothing-    , _dsLimits                 = Nothing-    }--dsARN :: Lens' DomainStatus (Maybe Text)-dsARN = lens _dsARN (\s a -> s { _dsARN = a })---- | True if the search domain is created. It can take several minutes to--- initialize a domain when 'CreateDomain' is called. Newly created search domains--- are returned from 'DescribeDomains' with a false value for Created until domain--- creation is complete.-dsCreated :: Lens' DomainStatus (Maybe Bool)-dsCreated = lens _dsCreated (\s a -> s { _dsCreated = a })---- | True if the search domain has been deleted. The system must clean up--- resources dedicated to the search domain when 'DeleteDomain' is called. Newly--- deleted search domains are returned from 'DescribeDomains' with a true value--- for IsDeleted for several minutes until resource cleanup is complete.-dsDeleted :: Lens' DomainStatus (Maybe Bool)-dsDeleted = lens _dsDeleted (\s a -> s { _dsDeleted = a })---- | The service endpoint for updating documents in a search domain.-dsDocService :: Lens' DomainStatus (Maybe ServiceEndpoint)-dsDocService = lens _dsDocService (\s a -> s { _dsDocService = a })--dsDomainId :: Lens' DomainStatus Text-dsDomainId = lens _dsDomainId (\s a -> s { _dsDomainId = a })--dsDomainName :: Lens' DomainStatus Text-dsDomainName = lens _dsDomainName (\s a -> s { _dsDomainName = a })--dsLimits :: Lens' DomainStatus (Maybe Limits)-dsLimits = lens _dsLimits (\s a -> s { _dsLimits = a })---- | True if processing is being done to activate the current domain configuration.-dsProcessing :: Lens' DomainStatus (Maybe Bool)-dsProcessing = lens _dsProcessing (\s a -> s { _dsProcessing = a })---- | True if 'IndexDocuments' needs to be called to activate the current domain--- configuration.-dsRequiresIndexDocuments :: Lens' DomainStatus Bool-dsRequiresIndexDocuments =-    lens _dsRequiresIndexDocuments-        (\s a -> s { _dsRequiresIndexDocuments = a })---- | The number of search instances that are available to process search requests.-dsSearchInstanceCount :: Lens' DomainStatus (Maybe Natural)-dsSearchInstanceCount =-    lens _dsSearchInstanceCount (\s a -> s { _dsSearchInstanceCount = a })-        . mapping _Nat---- | The instance type that is being used to process search requests.-dsSearchInstanceType :: Lens' DomainStatus (Maybe Text)-dsSearchInstanceType =-    lens _dsSearchInstanceType (\s a -> s { _dsSearchInstanceType = a })---- | The number of partitions across which the search index is spread.-dsSearchPartitionCount :: Lens' DomainStatus (Maybe Natural)-dsSearchPartitionCount =-    lens _dsSearchPartitionCount (\s a -> s { _dsSearchPartitionCount = a })-        . mapping _Nat---- | The service endpoint for requesting search results from a search domain.-dsSearchService :: Lens' DomainStatus (Maybe ServiceEndpoint)-dsSearchService = lens _dsSearchService (\s a -> s { _dsSearchService = a })--instance FromXML DomainStatus where-    parseXML x = DomainStatus-        <$> x .@? "ARN"-        <*> x .@? "Created"-        <*> x .@? "Deleted"-        <*> x .@? "DocService"-        <*> x .@  "DomainId"-        <*> x .@  "DomainName"-        <*> x .@? "Limits"-        <*> x .@? "Processing"-        <*> x .@  "RequiresIndexDocuments"-        <*> x .@? "SearchInstanceCount"-        <*> x .@? "SearchInstanceType"-        <*> x .@? "SearchPartitionCount"-        <*> x .@? "SearchService"--instance ToQuery DomainStatus where-    toQuery DomainStatus{..} = mconcat-        [ "ARN"                    =? _dsARN-        , "Created"                =? _dsCreated-        , "Deleted"                =? _dsDeleted-        , "DocService"             =? _dsDocService-        , "DomainId"               =? _dsDomainId-        , "DomainName"             =? _dsDomainName-        , "Limits"                 =? _dsLimits-        , "Processing"             =? _dsProcessing-        , "RequiresIndexDocuments" =? _dsRequiresIndexDocuments-        , "SearchInstanceCount"    =? _dsSearchInstanceCount-        , "SearchInstanceType"     =? _dsSearchInstanceType-        , "SearchPartitionCount"   =? _dsSearchPartitionCount-        , "SearchService"          =? _dsSearchService-        ]--data DocumentSuggesterOptions = DocumentSuggesterOptions-    { _dsoFuzzyMatching  :: Maybe SuggesterFuzzyMatching-    , _dsoSortExpression :: Maybe Text-    , _dsoSourceField    :: Text-    } deriving (Eq, Read, Show)---- | 'DocumentSuggesterOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsoFuzzyMatching' @::@ 'Maybe' 'SuggesterFuzzyMatching'------ * 'dsoSortExpression' @::@ 'Maybe' 'Text'------ * 'dsoSourceField' @::@ 'Text'----documentSuggesterOptions :: Text -- ^ 'dsoSourceField'-                         -> DocumentSuggesterOptions-documentSuggesterOptions p1 = DocumentSuggesterOptions-    { _dsoSourceField    = p1-    , _dsoFuzzyMatching  = Nothing-    , _dsoSortExpression = Nothing-    }---- | The level of fuzziness allowed when suggesting matches for a string: 'none', 'low'--- , or 'high'. With none, the specified string is treated as an exact prefix.--- With low, suggestions must differ from the specified string by no more than--- one character. With high, suggestions can differ by up to two characters. The--- default is none.-dsoFuzzyMatching :: Lens' DocumentSuggesterOptions (Maybe SuggesterFuzzyMatching)-dsoFuzzyMatching = lens _dsoFuzzyMatching (\s a -> s { _dsoFuzzyMatching = a })---- | An expression that computes a score for each suggestion to control how they--- are sorted. The scores are rounded to the nearest integer, with a floor of 0--- and a ceiling of 2^31-1. A document's relevance score is not computed for--- suggestions, so sort expressions cannot reference the '_score' value. To sort--- suggestions using a numeric field or existing expression, simply specify the--- name of the field or expression. If no expression is configured for the--- suggester, the suggestions are sorted with the closest matches listed first.-dsoSortExpression :: Lens' DocumentSuggesterOptions (Maybe Text)-dsoSortExpression =-    lens _dsoSortExpression (\s a -> s { _dsoSortExpression = a })---- | The name of the index field you want to use for suggestions.-dsoSourceField :: Lens' DocumentSuggesterOptions Text-dsoSourceField = lens _dsoSourceField (\s a -> s { _dsoSourceField = a })--instance FromXML DocumentSuggesterOptions where-    parseXML x = DocumentSuggesterOptions-        <$> x .@? "FuzzyMatching"-        <*> x .@? "SortExpression"-        <*> x .@  "SourceField"--instance ToQuery DocumentSuggesterOptions where-    toQuery DocumentSuggesterOptions{..} = mconcat-        [ "FuzzyMatching"  =? _dsoFuzzyMatching-        , "SortExpression" =? _dsoSortExpression-        , "SourceField"    =? _dsoSourceField-        ]--data DoubleArrayOptions = DoubleArrayOptions-    { _daoDefaultValue  :: Maybe Double-    , _daoFacetEnabled  :: Maybe Bool-    , _daoReturnEnabled :: Maybe Bool-    , _daoSearchEnabled :: Maybe Bool-    , _daoSourceFields  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'DoubleArrayOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'daoDefaultValue' @::@ 'Maybe' 'Double'------ * 'daoFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'daoReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'daoSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'daoSourceFields' @::@ 'Maybe' 'Text'----doubleArrayOptions :: DoubleArrayOptions-doubleArrayOptions = DoubleArrayOptions-    { _daoDefaultValue  = Nothing-    , _daoSourceFields  = Nothing-    , _daoFacetEnabled  = Nothing-    , _daoSearchEnabled = Nothing-    , _daoReturnEnabled = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-daoDefaultValue :: Lens' DoubleArrayOptions (Maybe Double)-daoDefaultValue = lens _daoDefaultValue (\s a -> s { _daoDefaultValue = a })---- | Whether facet information can be returned for the field.-daoFacetEnabled :: Lens' DoubleArrayOptions (Maybe Bool)-daoFacetEnabled = lens _daoFacetEnabled (\s a -> s { _daoFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-daoReturnEnabled :: Lens' DoubleArrayOptions (Maybe Bool)-daoReturnEnabled = lens _daoReturnEnabled (\s a -> s { _daoReturnEnabled = a })---- | Whether the contents of the field are searchable.-daoSearchEnabled :: Lens' DoubleArrayOptions (Maybe Bool)-daoSearchEnabled = lens _daoSearchEnabled (\s a -> s { _daoSearchEnabled = a })---- | A list of source fields to map to the field.-daoSourceFields :: Lens' DoubleArrayOptions (Maybe Text)-daoSourceFields = lens _daoSourceFields (\s a -> s { _daoSourceFields = a })--instance FromXML DoubleArrayOptions where-    parseXML x = DoubleArrayOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SourceFields"--instance ToQuery DoubleArrayOptions where-    toQuery DoubleArrayOptions{..} = mconcat-        [ "DefaultValue"  =? _daoDefaultValue-        , "FacetEnabled"  =? _daoFacetEnabled-        , "ReturnEnabled" =? _daoReturnEnabled-        , "SearchEnabled" =? _daoSearchEnabled-        , "SourceFields"  =? _daoSourceFields-        ]--data IndexField = IndexField-    { _ifDateArrayOptions    :: Maybe DateArrayOptions-    , _ifDateOptions         :: Maybe DateOptions-    , _ifDoubleArrayOptions  :: Maybe DoubleArrayOptions-    , _ifDoubleOptions       :: Maybe DoubleOptions-    , _ifIndexFieldName      :: Text-    , _ifIndexFieldType      :: IndexFieldType-    , _ifIntArrayOptions     :: Maybe IntArrayOptions-    , _ifIntOptions          :: Maybe IntOptions-    , _ifLatLonOptions       :: Maybe LatLonOptions-    , _ifLiteralArrayOptions :: Maybe LiteralArrayOptions-    , _ifLiteralOptions      :: Maybe LiteralOptions-    , _ifTextArrayOptions    :: Maybe TextArrayOptions-    , _ifTextOptions         :: Maybe TextOptions-    } deriving (Eq, Read, Show)---- | 'IndexField' constructor.------ The fields accessible through corresponding lenses are:------ * 'ifDateArrayOptions' @::@ 'Maybe' 'DateArrayOptions'------ * 'ifDateOptions' @::@ 'Maybe' 'DateOptions'------ * 'ifDoubleArrayOptions' @::@ 'Maybe' 'DoubleArrayOptions'------ * 'ifDoubleOptions' @::@ 'Maybe' 'DoubleOptions'------ * 'ifIndexFieldName' @::@ 'Text'------ * 'ifIndexFieldType' @::@ 'IndexFieldType'------ * 'ifIntArrayOptions' @::@ 'Maybe' 'IntArrayOptions'------ * 'ifIntOptions' @::@ 'Maybe' 'IntOptions'------ * 'ifLatLonOptions' @::@ 'Maybe' 'LatLonOptions'------ * 'ifLiteralArrayOptions' @::@ 'Maybe' 'LiteralArrayOptions'------ * 'ifLiteralOptions' @::@ 'Maybe' 'LiteralOptions'------ * 'ifTextArrayOptions' @::@ 'Maybe' 'TextArrayOptions'------ * 'ifTextOptions' @::@ 'Maybe' 'TextOptions'----indexField :: Text -- ^ 'ifIndexFieldName'-           -> IndexFieldType -- ^ 'ifIndexFieldType'-           -> IndexField-indexField p1 p2 = IndexField-    { _ifIndexFieldName      = p1-    , _ifIndexFieldType      = p2-    , _ifIntOptions          = Nothing-    , _ifDoubleOptions       = Nothing-    , _ifLiteralOptions      = Nothing-    , _ifTextOptions         = Nothing-    , _ifDateOptions         = Nothing-    , _ifLatLonOptions       = Nothing-    , _ifIntArrayOptions     = Nothing-    , _ifDoubleArrayOptions  = Nothing-    , _ifLiteralArrayOptions = Nothing-    , _ifTextArrayOptions    = Nothing-    , _ifDateArrayOptions    = Nothing-    }--ifDateArrayOptions :: Lens' IndexField (Maybe DateArrayOptions)-ifDateArrayOptions =-    lens _ifDateArrayOptions (\s a -> s { _ifDateArrayOptions = a })--ifDateOptions :: Lens' IndexField (Maybe DateOptions)-ifDateOptions = lens _ifDateOptions (\s a -> s { _ifDateOptions = a })--ifDoubleArrayOptions :: Lens' IndexField (Maybe DoubleArrayOptions)-ifDoubleArrayOptions =-    lens _ifDoubleArrayOptions (\s a -> s { _ifDoubleArrayOptions = a })--ifDoubleOptions :: Lens' IndexField (Maybe DoubleOptions)-ifDoubleOptions = lens _ifDoubleOptions (\s a -> s { _ifDoubleOptions = a })---- | A string that represents the name of an index field. CloudSearch supports--- regular index fields as well as dynamic fields. A dynamic field's name--- defines a pattern that begins or ends with a wildcard. Any document fields--- that don't map to a regular index field but do match a dynamic field's--- pattern are configured with the dynamic field's indexing options.------ Regular field names begin with a letter and can contain the following--- characters: a-z (lowercase), 0-9, and _ (underscore). Dynamic field names--- must begin or end with a wildcard (*). The wildcard can also be the only--- character in a dynamic field name. Multiple wildcards, and wildcards embedded--- within a string are not supported.------ The name 'score' is reserved and cannot be used as a field name. To reference--- a document's ID, you can use the name '_id'.-ifIndexFieldName :: Lens' IndexField Text-ifIndexFieldName = lens _ifIndexFieldName (\s a -> s { _ifIndexFieldName = a })--ifIndexFieldType :: Lens' IndexField IndexFieldType-ifIndexFieldType = lens _ifIndexFieldType (\s a -> s { _ifIndexFieldType = a })--ifIntArrayOptions :: Lens' IndexField (Maybe IntArrayOptions)-ifIntArrayOptions =-    lens _ifIntArrayOptions (\s a -> s { _ifIntArrayOptions = a })--ifIntOptions :: Lens' IndexField (Maybe IntOptions)-ifIntOptions = lens _ifIntOptions (\s a -> s { _ifIntOptions = a })--ifLatLonOptions :: Lens' IndexField (Maybe LatLonOptions)-ifLatLonOptions = lens _ifLatLonOptions (\s a -> s { _ifLatLonOptions = a })--ifLiteralArrayOptions :: Lens' IndexField (Maybe LiteralArrayOptions)-ifLiteralArrayOptions =-    lens _ifLiteralArrayOptions (\s a -> s { _ifLiteralArrayOptions = a })--ifLiteralOptions :: Lens' IndexField (Maybe LiteralOptions)-ifLiteralOptions = lens _ifLiteralOptions (\s a -> s { _ifLiteralOptions = a })--ifTextArrayOptions :: Lens' IndexField (Maybe TextArrayOptions)-ifTextArrayOptions =-    lens _ifTextArrayOptions (\s a -> s { _ifTextArrayOptions = a })--ifTextOptions :: Lens' IndexField (Maybe TextOptions)-ifTextOptions = lens _ifTextOptions (\s a -> s { _ifTextOptions = a })--instance FromXML IndexField where-    parseXML x = IndexField-        <$> x .@? "DateArrayOptions"-        <*> x .@? "DateOptions"-        <*> x .@? "DoubleArrayOptions"-        <*> x .@? "DoubleOptions"-        <*> x .@  "IndexFieldName"-        <*> x .@  "IndexFieldType"-        <*> x .@? "IntArrayOptions"-        <*> x .@? "IntOptions"-        <*> x .@? "LatLonOptions"-        <*> x .@? "LiteralArrayOptions"-        <*> x .@? "LiteralOptions"-        <*> x .@? "TextArrayOptions"-        <*> x .@? "TextOptions"--instance ToQuery IndexField where-    toQuery IndexField{..} = mconcat-        [ "DateArrayOptions"    =? _ifDateArrayOptions-        , "DateOptions"         =? _ifDateOptions-        , "DoubleArrayOptions"  =? _ifDoubleArrayOptions-        , "DoubleOptions"       =? _ifDoubleOptions-        , "IndexFieldName"      =? _ifIndexFieldName-        , "IndexFieldType"      =? _ifIndexFieldType-        , "IntArrayOptions"     =? _ifIntArrayOptions-        , "IntOptions"          =? _ifIntOptions-        , "LatLonOptions"       =? _ifLatLonOptions-        , "LiteralArrayOptions" =? _ifLiteralArrayOptions-        , "LiteralOptions"      =? _ifLiteralOptions-        , "TextArrayOptions"    =? _ifTextArrayOptions-        , "TextOptions"         =? _ifTextOptions-        ]--data DateOptions = DateOptions-    { _doDefaultValue  :: Maybe Text-    , _doFacetEnabled  :: Maybe Bool-    , _doReturnEnabled :: Maybe Bool-    , _doSearchEnabled :: Maybe Bool-    , _doSortEnabled   :: Maybe Bool-    , _doSourceField   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'DateOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'doDefaultValue' @::@ 'Maybe' 'Text'------ * 'doFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'doReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'doSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'doSortEnabled' @::@ 'Maybe' 'Bool'------ * 'doSourceField' @::@ 'Maybe' 'Text'----dateOptions :: DateOptions-dateOptions = DateOptions-    { _doDefaultValue  = Nothing-    , _doSourceField   = Nothing-    , _doFacetEnabled  = Nothing-    , _doSearchEnabled = Nothing-    , _doReturnEnabled = Nothing-    , _doSortEnabled   = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-doDefaultValue :: Lens' DateOptions (Maybe Text)-doDefaultValue = lens _doDefaultValue (\s a -> s { _doDefaultValue = a })---- | Whether facet information can be returned for the field.-doFacetEnabled :: Lens' DateOptions (Maybe Bool)-doFacetEnabled = lens _doFacetEnabled (\s a -> s { _doFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-doReturnEnabled :: Lens' DateOptions (Maybe Bool)-doReturnEnabled = lens _doReturnEnabled (\s a -> s { _doReturnEnabled = a })---- | Whether the contents of the field are searchable.-doSearchEnabled :: Lens' DateOptions (Maybe Bool)-doSearchEnabled = lens _doSearchEnabled (\s a -> s { _doSearchEnabled = a })---- | Whether the field can be used to sort the search results.-doSortEnabled :: Lens' DateOptions (Maybe Bool)-doSortEnabled = lens _doSortEnabled (\s a -> s { _doSortEnabled = a })--doSourceField :: Lens' DateOptions (Maybe Text)-doSourceField = lens _doSourceField (\s a -> s { _doSourceField = a })--instance FromXML DateOptions where-    parseXML x = DateOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery DateOptions where-    toQuery DateOptions{..} = mconcat-        [ "DefaultValue"  =? _doDefaultValue-        , "FacetEnabled"  =? _doFacetEnabled-        , "ReturnEnabled" =? _doReturnEnabled-        , "SearchEnabled" =? _doSearchEnabled-        , "SortEnabled"   =? _doSortEnabled-        , "SourceField"   =? _doSourceField-        ]--data OptionState-    = Active                 -- ^ Active-    | FailedToValidate       -- ^ FailedToValidate-    | Processing             -- ^ Processing-    | RequiresIndexDocuments -- ^ RequiresIndexDocuments-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable OptionState--instance FromText OptionState where-    parser = takeLowerText >>= \case-        "active"                 -> pure Active-        "failedtovalidate"       -> pure FailedToValidate-        "processing"             -> pure Processing-        "requiresindexdocuments" -> pure RequiresIndexDocuments-        e                        -> fail $-            "Failure parsing OptionState from " ++ show e--instance ToText OptionState where-    toText = \case-        Active                 -> "Active"-        FailedToValidate       -> "FailedToValidate"-        Processing             -> "Processing"-        RequiresIndexDocuments -> "RequiresIndexDocuments"--instance ToByteString OptionState-instance ToHeader     OptionState-instance ToQuery      OptionState--instance FromXML OptionState where-    parseXML = parseXMLText "OptionState"--data TextArrayOptions = TextArrayOptions-    { _taoAnalysisScheme   :: Maybe Text-    , _taoDefaultValue     :: Maybe Text-    , _taoHighlightEnabled :: Maybe Bool-    , _taoReturnEnabled    :: Maybe Bool-    , _taoSourceFields     :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'TextArrayOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'taoAnalysisScheme' @::@ 'Maybe' 'Text'------ * 'taoDefaultValue' @::@ 'Maybe' 'Text'------ * 'taoHighlightEnabled' @::@ 'Maybe' 'Bool'------ * 'taoReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'taoSourceFields' @::@ 'Maybe' 'Text'----textArrayOptions :: TextArrayOptions-textArrayOptions = TextArrayOptions-    { _taoDefaultValue     = Nothing-    , _taoSourceFields     = Nothing-    , _taoReturnEnabled    = Nothing-    , _taoHighlightEnabled = Nothing-    , _taoAnalysisScheme   = Nothing-    }---- | The name of an analysis scheme for a 'text-array' field.-taoAnalysisScheme :: Lens' TextArrayOptions (Maybe Text)-taoAnalysisScheme =-    lens _taoAnalysisScheme (\s a -> s { _taoAnalysisScheme = a })---- | A value to use for the field if the field isn't specified for a document.-taoDefaultValue :: Lens' TextArrayOptions (Maybe Text)-taoDefaultValue = lens _taoDefaultValue (\s a -> s { _taoDefaultValue = a })---- | Whether highlights can be returned for the field.-taoHighlightEnabled :: Lens' TextArrayOptions (Maybe Bool)-taoHighlightEnabled =-    lens _taoHighlightEnabled (\s a -> s { _taoHighlightEnabled = a })---- | Whether the contents of the field can be returned in the search results.-taoReturnEnabled :: Lens' TextArrayOptions (Maybe Bool)-taoReturnEnabled = lens _taoReturnEnabled (\s a -> s { _taoReturnEnabled = a })---- | A list of source fields to map to the field.-taoSourceFields :: Lens' TextArrayOptions (Maybe Text)-taoSourceFields = lens _taoSourceFields (\s a -> s { _taoSourceFields = a })--instance FromXML TextArrayOptions where-    parseXML x = TextArrayOptions-        <$> x .@? "AnalysisScheme"-        <*> x .@? "DefaultValue"-        <*> x .@? "HighlightEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SourceFields"--instance ToQuery TextArrayOptions where-    toQuery TextArrayOptions{..} = mconcat-        [ "AnalysisScheme"   =? _taoAnalysisScheme-        , "DefaultValue"     =? _taoDefaultValue-        , "HighlightEnabled" =? _taoHighlightEnabled-        , "ReturnEnabled"    =? _taoReturnEnabled-        , "SourceFields"     =? _taoSourceFields-        ]--data AlgorithmicStemming-    = Full    -- ^ full-    | Light   -- ^ light-    | Minimal -- ^ minimal-    | None    -- ^ none-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable AlgorithmicStemming--instance FromText AlgorithmicStemming where-    parser = takeLowerText >>= \case-        "full"    -> pure Full-        "light"   -> pure Light-        "minimal" -> pure Minimal-        "none"    -> pure None-        e         -> fail $-            "Failure parsing AlgorithmicStemming from " ++ show e--instance ToText AlgorithmicStemming where-    toText = \case-        Full    -> "full"-        Light   -> "light"-        Minimal -> "minimal"-        None    -> "none"--instance ToByteString AlgorithmicStemming-instance ToHeader     AlgorithmicStemming-instance ToQuery      AlgorithmicStemming--instance FromXML AlgorithmicStemming where-    parseXML = parseXMLText "AlgorithmicStemming"--data AnalysisScheme = AnalysisScheme-    { _asAnalysisOptions        :: Maybe AnalysisOptions-    , _asAnalysisSchemeLanguage :: AnalysisSchemeLanguage-    , _asAnalysisSchemeName     :: Text-    } deriving (Eq, Read, Show)---- | 'AnalysisScheme' constructor.------ The fields accessible through corresponding lenses are:------ * 'asAnalysisOptions' @::@ 'Maybe' 'AnalysisOptions'------ * 'asAnalysisSchemeLanguage' @::@ 'AnalysisSchemeLanguage'------ * 'asAnalysisSchemeName' @::@ 'Text'----analysisScheme :: Text -- ^ 'asAnalysisSchemeName'-               -> AnalysisSchemeLanguage -- ^ 'asAnalysisSchemeLanguage'-               -> AnalysisScheme-analysisScheme p1 p2 = AnalysisScheme-    { _asAnalysisSchemeName     = p1-    , _asAnalysisSchemeLanguage = p2-    , _asAnalysisOptions        = Nothing-    }--asAnalysisOptions :: Lens' AnalysisScheme (Maybe AnalysisOptions)-asAnalysisOptions =-    lens _asAnalysisOptions (\s a -> s { _asAnalysisOptions = a })--asAnalysisSchemeLanguage :: Lens' AnalysisScheme AnalysisSchemeLanguage-asAnalysisSchemeLanguage =-    lens _asAnalysisSchemeLanguage-        (\s a -> s { _asAnalysisSchemeLanguage = a })--asAnalysisSchemeName :: Lens' AnalysisScheme Text-asAnalysisSchemeName =-    lens _asAnalysisSchemeName (\s a -> s { _asAnalysisSchemeName = a })--instance FromXML AnalysisScheme where-    parseXML x = AnalysisScheme-        <$> x .@? "AnalysisOptions"-        <*> x .@  "AnalysisSchemeLanguage"-        <*> x .@  "AnalysisSchemeName"--instance ToQuery AnalysisScheme where-    toQuery AnalysisScheme{..} = mconcat-        [ "AnalysisOptions"        =? _asAnalysisOptions-        , "AnalysisSchemeLanguage" =? _asAnalysisSchemeLanguage-        , "AnalysisSchemeName"     =? _asAnalysisSchemeName-        ]--data ScalingParameters = ScalingParameters-    { _spDesiredInstanceType     :: Maybe PartitionInstanceType-    , _spDesiredPartitionCount   :: Maybe Nat-    , _spDesiredReplicationCount :: Maybe Nat-    } deriving (Eq, Read, Show)---- | 'ScalingParameters' constructor.------ The fields accessible through corresponding lenses are:------ * 'spDesiredInstanceType' @::@ 'Maybe' 'PartitionInstanceType'------ * 'spDesiredPartitionCount' @::@ 'Maybe' 'Natural'------ * 'spDesiredReplicationCount' @::@ 'Maybe' 'Natural'----scalingParameters :: ScalingParameters-scalingParameters = ScalingParameters-    { _spDesiredInstanceType     = Nothing-    , _spDesiredReplicationCount = Nothing-    , _spDesiredPartitionCount   = Nothing-    }---- | The instance type that you want to preconfigure for your domain. For example, 'search.m1.small'.-spDesiredInstanceType :: Lens' ScalingParameters (Maybe PartitionInstanceType)-spDesiredInstanceType =-    lens _spDesiredInstanceType (\s a -> s { _spDesiredInstanceType = a })---- | The number of partitions you want to preconfigure for your domain. Only valid--- when you select 'm2.2xlarge' as the desired instance type.-spDesiredPartitionCount :: Lens' ScalingParameters (Maybe Natural)-spDesiredPartitionCount =-    lens _spDesiredPartitionCount (\s a -> s { _spDesiredPartitionCount = a })-        . mapping _Nat---- | The number of replicas you want to preconfigure for each index partition.-spDesiredReplicationCount :: Lens' ScalingParameters (Maybe Natural)-spDesiredReplicationCount =-    lens _spDesiredReplicationCount-        (\s a -> s { _spDesiredReplicationCount = a })-            . mapping _Nat--instance FromXML ScalingParameters where-    parseXML x = ScalingParameters-        <$> x .@? "DesiredInstanceType"-        <*> x .@? "DesiredPartitionCount"-        <*> x .@? "DesiredReplicationCount"--instance ToQuery ScalingParameters where-    toQuery ScalingParameters{..} = mconcat-        [ "DesiredInstanceType"     =? _spDesiredInstanceType-        , "DesiredPartitionCount"   =? _spDesiredPartitionCount-        , "DesiredReplicationCount" =? _spDesiredReplicationCount-        ]--data AnalysisOptions = AnalysisOptions-    { _aoAlgorithmicStemming            :: Maybe AlgorithmicStemming-    , _aoJapaneseTokenizationDictionary :: Maybe Text-    , _aoStemmingDictionary             :: Maybe Text-    , _aoStopwords                      :: Maybe Text-    , _aoSynonyms                       :: Maybe Text-    } deriving (Eq, Read, Show)---- | 'AnalysisOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'aoAlgorithmicStemming' @::@ 'Maybe' 'AlgorithmicStemming'------ * 'aoJapaneseTokenizationDictionary' @::@ 'Maybe' 'Text'------ * 'aoStemmingDictionary' @::@ 'Maybe' 'Text'------ * 'aoStopwords' @::@ 'Maybe' 'Text'------ * 'aoSynonyms' @::@ 'Maybe' 'Text'----analysisOptions :: AnalysisOptions-analysisOptions = AnalysisOptions-    { _aoSynonyms                       = Nothing-    , _aoStopwords                      = Nothing-    , _aoStemmingDictionary             = Nothing-    , _aoJapaneseTokenizationDictionary = Nothing-    , _aoAlgorithmicStemming            = Nothing-    }---- | The level of algorithmic stemming to perform: 'none', 'minimal', 'light', or 'full'.--- The available levels vary depending on the language. For more information,--- see Language Specific Text Processing Settings in the /Amazon CloudSearchDeveloper Guide/-aoAlgorithmicStemming :: Lens' AnalysisOptions (Maybe AlgorithmicStemming)-aoAlgorithmicStemming =-    lens _aoAlgorithmicStemming (\s a -> s { _aoAlgorithmicStemming = a })---- | A JSON array that contains a collection of terms, tokens, readings and part--- of speech for Japanese Tokenizaiton. The Japanese tokenization dictionary--- enables you to override the default tokenization for selected terms. This is--- only valid for Japanese language fields.-aoJapaneseTokenizationDictionary :: Lens' AnalysisOptions (Maybe Text)-aoJapaneseTokenizationDictionary =-    lens _aoJapaneseTokenizationDictionary-        (\s a -> s { _aoJapaneseTokenizationDictionary = a })---- | A JSON object that contains a collection of string:value pairs that each map--- a term to its stem. For example, '{"term1": "stem1", "term2": "stem2","term3": "stem3"}'. The stemming dictionary is applied in addition to any--- algorithmic stemming. This enables you to override the results of the--- algorithmic stemming to correct specific cases of overstemming or--- understemming. The maximum size of a stemming dictionary is 500 KB.-aoStemmingDictionary :: Lens' AnalysisOptions (Maybe Text)-aoStemmingDictionary =-    lens _aoStemmingDictionary (\s a -> s { _aoStemmingDictionary = a })---- | A JSON array of terms to ignore during indexing and searching. For example, '["a", "an", "the", "of"]'. The stopwords dictionary must explicitly list each word you want to ignore.--- Wildcards and regular expressions are not supported.-aoStopwords :: Lens' AnalysisOptions (Maybe Text)-aoStopwords = lens _aoStopwords (\s a -> s { _aoStopwords = a })---- | A JSON object that defines synonym groups and aliases. A synonym group is an--- array of arrays, where each sub-array is a group of terms where each term in--- the group is considered a synonym of every other term in the group. The--- aliases value is an object that contains a collection of string:value pairs--- where the string specifies a term and the array of values specifies each of--- the aliases for that term. An alias is considered a synonym of the specified--- term, but the term is not considered a synonym of the alias. For more--- information about specifying synonyms, see <http://docs.aws.amazon.com/cloudsearch/latest/developerguide/configuring-analysis-schemes.html#synonyms Synonyms> in the /Amazon CloudSearchDeveloper Guide/.-aoSynonyms :: Lens' AnalysisOptions (Maybe Text)-aoSynonyms = lens _aoSynonyms (\s a -> s { _aoSynonyms = a })--instance FromXML AnalysisOptions where-    parseXML x = AnalysisOptions-        <$> x .@? "AlgorithmicStemming"-        <*> x .@? "JapaneseTokenizationDictionary"-        <*> x .@? "StemmingDictionary"-        <*> x .@? "Stopwords"-        <*> x .@? "Synonyms"--instance ToQuery AnalysisOptions where-    toQuery AnalysisOptions{..} = mconcat-        [ "AlgorithmicStemming"            =? _aoAlgorithmicStemming-        , "JapaneseTokenizationDictionary" =? _aoJapaneseTokenizationDictionary-        , "StemmingDictionary"             =? _aoStemmingDictionary-        , "Stopwords"                      =? _aoStopwords-        , "Synonyms"                       =? _aoSynonyms-        ]--data DoubleOptions = DoubleOptions-    { _do1DefaultValue  :: Maybe Double-    , _do1FacetEnabled  :: Maybe Bool-    , _do1ReturnEnabled :: Maybe Bool-    , _do1SearchEnabled :: Maybe Bool-    , _do1SortEnabled   :: Maybe Bool-    , _do1SourceField   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'DoubleOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'do1DefaultValue' @::@ 'Maybe' 'Double'------ * 'do1FacetEnabled' @::@ 'Maybe' 'Bool'------ * 'do1ReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'do1SearchEnabled' @::@ 'Maybe' 'Bool'------ * 'do1SortEnabled' @::@ 'Maybe' 'Bool'------ * 'do1SourceField' @::@ 'Maybe' 'Text'----doubleOptions :: DoubleOptions-doubleOptions = DoubleOptions-    { _do1DefaultValue  = Nothing-    , _do1SourceField   = Nothing-    , _do1FacetEnabled  = Nothing-    , _do1SearchEnabled = Nothing-    , _do1ReturnEnabled = Nothing-    , _do1SortEnabled   = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.--- This can be important if you are using the field in an expression and that--- field is not present in every document.-do1DefaultValue :: Lens' DoubleOptions (Maybe Double)-do1DefaultValue = lens _do1DefaultValue (\s a -> s { _do1DefaultValue = a })---- | Whether facet information can be returned for the field.-do1FacetEnabled :: Lens' DoubleOptions (Maybe Bool)-do1FacetEnabled = lens _do1FacetEnabled (\s a -> s { _do1FacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-do1ReturnEnabled :: Lens' DoubleOptions (Maybe Bool)-do1ReturnEnabled = lens _do1ReturnEnabled (\s a -> s { _do1ReturnEnabled = a })---- | Whether the contents of the field are searchable.-do1SearchEnabled :: Lens' DoubleOptions (Maybe Bool)-do1SearchEnabled = lens _do1SearchEnabled (\s a -> s { _do1SearchEnabled = a })---- | Whether the field can be used to sort the search results.-do1SortEnabled :: Lens' DoubleOptions (Maybe Bool)-do1SortEnabled = lens _do1SortEnabled (\s a -> s { _do1SortEnabled = a })---- | The name of the source field to map to the field.-do1SourceField :: Lens' DoubleOptions (Maybe Text)-do1SourceField = lens _do1SourceField (\s a -> s { _do1SourceField = a })--instance FromXML DoubleOptions where-    parseXML x = DoubleOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery DoubleOptions where-    toQuery DoubleOptions{..} = mconcat-        [ "DefaultValue"  =? _do1DefaultValue-        , "FacetEnabled"  =? _do1FacetEnabled-        , "ReturnEnabled" =? _do1ReturnEnabled-        , "SearchEnabled" =? _do1SearchEnabled-        , "SortEnabled"   =? _do1SortEnabled-        , "SourceField"   =? _do1SourceField-        ]--data TextOptions = TextOptions-    { _toAnalysisScheme   :: Maybe Text-    , _toDefaultValue     :: Maybe Text-    , _toHighlightEnabled :: Maybe Bool-    , _toReturnEnabled    :: Maybe Bool-    , _toSortEnabled      :: Maybe Bool-    , _toSourceField      :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'TextOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'toAnalysisScheme' @::@ 'Maybe' 'Text'------ * 'toDefaultValue' @::@ 'Maybe' 'Text'------ * 'toHighlightEnabled' @::@ 'Maybe' 'Bool'------ * 'toReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'toSortEnabled' @::@ 'Maybe' 'Bool'------ * 'toSourceField' @::@ 'Maybe' 'Text'----textOptions :: TextOptions-textOptions = TextOptions-    { _toDefaultValue     = Nothing-    , _toSourceField      = Nothing-    , _toReturnEnabled    = Nothing-    , _toSortEnabled      = Nothing-    , _toHighlightEnabled = Nothing-    , _toAnalysisScheme   = Nothing-    }---- | The name of an analysis scheme for a 'text' field.-toAnalysisScheme :: Lens' TextOptions (Maybe Text)-toAnalysisScheme = lens _toAnalysisScheme (\s a -> s { _toAnalysisScheme = a })---- | A value to use for the field if the field isn't specified for a document.-toDefaultValue :: Lens' TextOptions (Maybe Text)-toDefaultValue = lens _toDefaultValue (\s a -> s { _toDefaultValue = a })---- | Whether highlights can be returned for the field.-toHighlightEnabled :: Lens' TextOptions (Maybe Bool)-toHighlightEnabled =-    lens _toHighlightEnabled (\s a -> s { _toHighlightEnabled = a })---- | Whether the contents of the field can be returned in the search results.-toReturnEnabled :: Lens' TextOptions (Maybe Bool)-toReturnEnabled = lens _toReturnEnabled (\s a -> s { _toReturnEnabled = a })---- | Whether the field can be used to sort the search results.-toSortEnabled :: Lens' TextOptions (Maybe Bool)-toSortEnabled = lens _toSortEnabled (\s a -> s { _toSortEnabled = a })--toSourceField :: Lens' TextOptions (Maybe Text)-toSourceField = lens _toSourceField (\s a -> s { _toSourceField = a })--instance FromXML TextOptions where-    parseXML x = TextOptions-        <$> x .@? "AnalysisScheme"-        <*> x .@? "DefaultValue"-        <*> x .@? "HighlightEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery TextOptions where-    toQuery TextOptions{..} = mconcat-        [ "AnalysisScheme"   =? _toAnalysisScheme-        , "DefaultValue"     =? _toDefaultValue-        , "HighlightEnabled" =? _toHighlightEnabled-        , "ReturnEnabled"    =? _toReturnEnabled-        , "SortEnabled"      =? _toSortEnabled-        , "SourceField"      =? _toSourceField-        ]--data AvailabilityOptionsStatus = AvailabilityOptionsStatus-    { _aosOptions :: Bool-    , _aosStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'AvailabilityOptionsStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'aosOptions' @::@ 'Bool'------ * 'aosStatus' @::@ 'OptionStatus'----availabilityOptionsStatus :: Bool -- ^ 'aosOptions'-                          -> OptionStatus -- ^ 'aosStatus'-                          -> AvailabilityOptionsStatus-availabilityOptionsStatus p1 p2 = AvailabilityOptionsStatus-    { _aosOptions = p1-    , _aosStatus  = p2-    }---- | The availability options configured for the domain.-aosOptions :: Lens' AvailabilityOptionsStatus Bool-aosOptions = lens _aosOptions (\s a -> s { _aosOptions = a })--aosStatus :: Lens' AvailabilityOptionsStatus OptionStatus-aosStatus = lens _aosStatus (\s a -> s { _aosStatus = a })--instance FromXML AvailabilityOptionsStatus where-    parseXML x = AvailabilityOptionsStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery AvailabilityOptionsStatus where-    toQuery AvailabilityOptionsStatus{..} = mconcat-        [ "Options" =? _aosOptions-        , "Status"  =? _aosStatus-        ]--data IndexFieldStatus = IndexFieldStatus-    { _ifsOptions :: IndexField-    , _ifsStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'IndexFieldStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'ifsOptions' @::@ 'IndexField'------ * 'ifsStatus' @::@ 'OptionStatus'----indexFieldStatus :: IndexField -- ^ 'ifsOptions'-                 -> OptionStatus -- ^ 'ifsStatus'-                 -> IndexFieldStatus-indexFieldStatus p1 p2 = IndexFieldStatus-    { _ifsOptions = p1-    , _ifsStatus  = p2-    }--ifsOptions :: Lens' IndexFieldStatus IndexField-ifsOptions = lens _ifsOptions (\s a -> s { _ifsOptions = a })--ifsStatus :: Lens' IndexFieldStatus OptionStatus-ifsStatus = lens _ifsStatus (\s a -> s { _ifsStatus = a })--instance FromXML IndexFieldStatus where-    parseXML x = IndexFieldStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery IndexFieldStatus where-    toQuery IndexFieldStatus{..} = mconcat-        [ "Options" =? _ifsOptions-        , "Status"  =? _ifsStatus-        ]--data ScalingParametersStatus = ScalingParametersStatus-    { _spsOptions :: ScalingParameters-    , _spsStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'ScalingParametersStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'spsOptions' @::@ 'ScalingParameters'------ * 'spsStatus' @::@ 'OptionStatus'----scalingParametersStatus :: ScalingParameters -- ^ 'spsOptions'-                        -> OptionStatus -- ^ 'spsStatus'-                        -> ScalingParametersStatus-scalingParametersStatus p1 p2 = ScalingParametersStatus-    { _spsOptions = p1-    , _spsStatus  = p2-    }--spsOptions :: Lens' ScalingParametersStatus ScalingParameters-spsOptions = lens _spsOptions (\s a -> s { _spsOptions = a })--spsStatus :: Lens' ScalingParametersStatus OptionStatus-spsStatus = lens _spsStatus (\s a -> s { _spsStatus = a })--instance FromXML ScalingParametersStatus where-    parseXML x = ScalingParametersStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery ScalingParametersStatus where-    toQuery ScalingParametersStatus{..} = mconcat-        [ "Options" =? _spsOptions-        , "Status"  =? _spsStatus-        ]--data AnalysisSchemeStatus = AnalysisSchemeStatus-    { _assOptions :: AnalysisScheme-    , _assStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'AnalysisSchemeStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'assOptions' @::@ 'AnalysisScheme'------ * 'assStatus' @::@ 'OptionStatus'----analysisSchemeStatus :: AnalysisScheme -- ^ 'assOptions'-                     -> OptionStatus -- ^ 'assStatus'-                     -> AnalysisSchemeStatus-analysisSchemeStatus p1 p2 = AnalysisSchemeStatus-    { _assOptions = p1-    , _assStatus  = p2-    }--assOptions :: Lens' AnalysisSchemeStatus AnalysisScheme-assOptions = lens _assOptions (\s a -> s { _assOptions = a })--assStatus :: Lens' AnalysisSchemeStatus OptionStatus-assStatus = lens _assStatus (\s a -> s { _assStatus = a })--instance FromXML AnalysisSchemeStatus where-    parseXML x = AnalysisSchemeStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery AnalysisSchemeStatus where-    toQuery AnalysisSchemeStatus{..} = mconcat-        [ "Options" =? _assOptions-        , "Status"  =? _assStatus-        ]--newtype ServiceEndpoint = ServiceEndpoint-    { _seEndpoint :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)---- | 'ServiceEndpoint' constructor.------ The fields accessible through corresponding lenses are:------ * 'seEndpoint' @::@ 'Maybe' 'Text'----serviceEndpoint :: ServiceEndpoint-serviceEndpoint = ServiceEndpoint-    { _seEndpoint = Nothing-    }--seEndpoint :: Lens' ServiceEndpoint (Maybe Text)-seEndpoint = lens _seEndpoint (\s a -> s { _seEndpoint = a })--instance FromXML ServiceEndpoint where-    parseXML x = ServiceEndpoint-        <$> x .@? "Endpoint"--instance ToQuery ServiceEndpoint where-    toQuery ServiceEndpoint{..} = mconcat-        [ "Endpoint" =? _seEndpoint-        ]--data Limits = Limits-    { _lMaximumPartitionCount   :: Nat-    , _lMaximumReplicationCount :: Nat-    } deriving (Eq, Ord, Read, Show)---- | 'Limits' constructor.------ The fields accessible through corresponding lenses are:------ * 'lMaximumPartitionCount' @::@ 'Natural'------ * 'lMaximumReplicationCount' @::@ 'Natural'----limits :: Natural -- ^ 'lMaximumReplicationCount'-       -> Natural -- ^ 'lMaximumPartitionCount'-       -> Limits-limits p1 p2 = Limits-    { _lMaximumReplicationCount = withIso _Nat (const id) p1-    , _lMaximumPartitionCount   = withIso _Nat (const id) p2-    }--lMaximumPartitionCount :: Lens' Limits Natural-lMaximumPartitionCount =-    lens _lMaximumPartitionCount (\s a -> s { _lMaximumPartitionCount = a })-        . _Nat--lMaximumReplicationCount :: Lens' Limits Natural-lMaximumReplicationCount =-    lens _lMaximumReplicationCount-        (\s a -> s { _lMaximumReplicationCount = a })-            . _Nat--instance FromXML Limits where-    parseXML x = Limits-        <$> x .@  "MaximumPartitionCount"-        <*> x .@  "MaximumReplicationCount"--instance ToQuery Limits where-    toQuery Limits{..} = mconcat-        [ "MaximumPartitionCount"   =? _lMaximumPartitionCount-        , "MaximumReplicationCount" =? _lMaximumReplicationCount-        ]--data ExpressionStatus = ExpressionStatus-    { _esOptions :: Expression-    , _esStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'ExpressionStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'esOptions' @::@ 'Expression'------ * 'esStatus' @::@ 'OptionStatus'----expressionStatus :: Expression -- ^ 'esOptions'-                 -> OptionStatus -- ^ 'esStatus'-                 -> ExpressionStatus-expressionStatus p1 p2 = ExpressionStatus-    { _esOptions = p1-    , _esStatus  = p2-    }---- | The expression that is evaluated for sorting while processing a search--- request.-esOptions :: Lens' ExpressionStatus Expression-esOptions = lens _esOptions (\s a -> s { _esOptions = a })--esStatus :: Lens' ExpressionStatus OptionStatus-esStatus = lens _esStatus (\s a -> s { _esStatus = a })--instance FromXML ExpressionStatus where-    parseXML x = ExpressionStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery ExpressionStatus where-    toQuery ExpressionStatus{..} = mconcat-        [ "Options" =? _esOptions-        , "Status"  =? _esStatus-        ]--data IndexFieldType-    = IFTDate         -- ^ date-    | IFTDateArray    -- ^ date-array-    | IFTDouble       -- ^ double-    | IFTDoubleArray  -- ^ double-array-    | IFTInt          -- ^ int-    | IFTIntArray     -- ^ int-array-    | IFTLatlon       -- ^ latlon-    | IFTLiteral      -- ^ literal-    | IFTLiteralArray -- ^ literal-array-    | IFTText         -- ^ text-    | IFTTextArray    -- ^ text-array-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable IndexFieldType--instance FromText IndexFieldType where-    parser = takeLowerText >>= \case-        "date"          -> pure IFTDate-        "date-array"    -> pure IFTDateArray-        "double"        -> pure IFTDouble-        "double-array"  -> pure IFTDoubleArray-        "int"           -> pure IFTInt-        "int-array"     -> pure IFTIntArray-        "latlon"        -> pure IFTLatlon-        "literal"       -> pure IFTLiteral-        "literal-array" -> pure IFTLiteralArray-        "text"          -> pure IFTText-        "text-array"    -> pure IFTTextArray-        e               -> fail $-            "Failure parsing IndexFieldType from " ++ show e--instance ToText IndexFieldType where-    toText = \case-        IFTDate         -> "date"-        IFTDateArray    -> "date-array"-        IFTDouble       -> "double"-        IFTDoubleArray  -> "double-array"-        IFTInt          -> "int"-        IFTIntArray     -> "int-array"-        IFTLatlon       -> "latlon"-        IFTLiteral      -> "literal"-        IFTLiteralArray -> "literal-array"-        IFTText         -> "text"-        IFTTextArray    -> "text-array"--instance ToByteString IndexFieldType-instance ToHeader     IndexFieldType-instance ToQuery      IndexFieldType--instance FromXML IndexFieldType where-    parseXML = parseXMLText "IndexFieldType"--data LatLonOptions = LatLonOptions-    { _lloDefaultValue  :: Maybe Text-    , _lloFacetEnabled  :: Maybe Bool-    , _lloReturnEnabled :: Maybe Bool-    , _lloSearchEnabled :: Maybe Bool-    , _lloSortEnabled   :: Maybe Bool-    , _lloSourceField   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'LatLonOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'lloDefaultValue' @::@ 'Maybe' 'Text'------ * 'lloFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'lloReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'lloSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'lloSortEnabled' @::@ 'Maybe' 'Bool'------ * 'lloSourceField' @::@ 'Maybe' 'Text'----latLonOptions :: LatLonOptions-latLonOptions = LatLonOptions-    { _lloDefaultValue  = Nothing-    , _lloSourceField   = Nothing-    , _lloFacetEnabled  = Nothing-    , _lloSearchEnabled = Nothing-    , _lloReturnEnabled = Nothing-    , _lloSortEnabled   = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-lloDefaultValue :: Lens' LatLonOptions (Maybe Text)-lloDefaultValue = lens _lloDefaultValue (\s a -> s { _lloDefaultValue = a })---- | Whether facet information can be returned for the field.-lloFacetEnabled :: Lens' LatLonOptions (Maybe Bool)-lloFacetEnabled = lens _lloFacetEnabled (\s a -> s { _lloFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-lloReturnEnabled :: Lens' LatLonOptions (Maybe Bool)-lloReturnEnabled = lens _lloReturnEnabled (\s a -> s { _lloReturnEnabled = a })---- | Whether the contents of the field are searchable.-lloSearchEnabled :: Lens' LatLonOptions (Maybe Bool)-lloSearchEnabled = lens _lloSearchEnabled (\s a -> s { _lloSearchEnabled = a })---- | Whether the field can be used to sort the search results.-lloSortEnabled :: Lens' LatLonOptions (Maybe Bool)-lloSortEnabled = lens _lloSortEnabled (\s a -> s { _lloSortEnabled = a })--lloSourceField :: Lens' LatLonOptions (Maybe Text)-lloSourceField = lens _lloSourceField (\s a -> s { _lloSourceField = a })--instance FromXML LatLonOptions where-    parseXML x = LatLonOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery LatLonOptions where-    toQuery LatLonOptions{..} = mconcat-        [ "DefaultValue"  =? _lloDefaultValue-        , "FacetEnabled"  =? _lloFacetEnabled-        , "ReturnEnabled" =? _lloReturnEnabled-        , "SearchEnabled" =? _lloSearchEnabled-        , "SortEnabled"   =? _lloSortEnabled-        , "SourceField"   =? _lloSourceField-        ]--data SuggesterStatus = SuggesterStatus-    { _ssOptions :: Suggester-    , _ssStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'SuggesterStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'ssOptions' @::@ 'Suggester'------ * 'ssStatus' @::@ 'OptionStatus'----suggesterStatus :: Suggester -- ^ 'ssOptions'-                -> OptionStatus -- ^ 'ssStatus'-                -> SuggesterStatus-suggesterStatus p1 p2 = SuggesterStatus-    { _ssOptions = p1-    , _ssStatus  = p2-    }--ssOptions :: Lens' SuggesterStatus Suggester-ssOptions = lens _ssOptions (\s a -> s { _ssOptions = a })--ssStatus :: Lens' SuggesterStatus OptionStatus-ssStatus = lens _ssStatus (\s a -> s { _ssStatus = a })--instance FromXML SuggesterStatus where-    parseXML x = SuggesterStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery SuggesterStatus where-    toQuery SuggesterStatus{..} = mconcat-        [ "Options" =? _ssOptions-        , "Status"  =? _ssStatus-        ]--data OptionStatus = OptionStatus-    { _osCreationDate    :: ISO8601-    , _osPendingDeletion :: Maybe Bool-    , _osState           :: OptionState-    , _osUpdateDate      :: ISO8601-    , _osUpdateVersion   :: Maybe Nat-    } deriving (Eq, Read, Show)---- | 'OptionStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'osCreationDate' @::@ 'UTCTime'------ * 'osPendingDeletion' @::@ 'Maybe' 'Bool'------ * 'osState' @::@ 'OptionState'------ * 'osUpdateDate' @::@ 'UTCTime'------ * 'osUpdateVersion' @::@ 'Maybe' 'Natural'----optionStatus :: UTCTime -- ^ 'osCreationDate'-             -> UTCTime -- ^ 'osUpdateDate'-             -> OptionState -- ^ 'osState'-             -> OptionStatus-optionStatus p1 p2 p3 = OptionStatus-    { _osCreationDate    = withIso _Time (const id) p1-    , _osUpdateDate      = withIso _Time (const id) p2-    , _osState           = p3-    , _osUpdateVersion   = Nothing-    , _osPendingDeletion = Nothing-    }---- | A timestamp for when this option was created.-osCreationDate :: Lens' OptionStatus UTCTime-osCreationDate = lens _osCreationDate (\s a -> s { _osCreationDate = a }) . _Time---- | Indicates that the option will be deleted once processing is complete.-osPendingDeletion :: Lens' OptionStatus (Maybe Bool)-osPendingDeletion =-    lens _osPendingDeletion (\s a -> s { _osPendingDeletion = a })---- | The state of processing a change to an option. Possible values:------ 'RequiresIndexDocuments': the option's latest value will not be deployed--- until 'IndexDocuments' has been called and indexing is complete.  'Processing':--- the option's latest value is in the process of being activated.   'Active': the--- option's latest value is completely deployed.  'FailedToValidate': the option--- value is not compatible with the domain's data and cannot be used to index--- the data. You must either modify the option value or update or remove the--- incompatible documents.-osState :: Lens' OptionStatus OptionState-osState = lens _osState (\s a -> s { _osState = a })---- | A timestamp for when this option was last updated.-osUpdateDate :: Lens' OptionStatus UTCTime-osUpdateDate = lens _osUpdateDate (\s a -> s { _osUpdateDate = a }) . _Time---- | A unique integer that indicates when this option was last updated.-osUpdateVersion :: Lens' OptionStatus (Maybe Natural)-osUpdateVersion = lens _osUpdateVersion (\s a -> s { _osUpdateVersion = a }) . mapping _Nat--instance FromXML OptionStatus where-    parseXML x = OptionStatus-        <$> x .@  "CreationDate"-        <*> x .@? "PendingDeletion"-        <*> x .@  "State"-        <*> x .@  "UpdateDate"-        <*> x .@? "UpdateVersion"--instance ToQuery OptionStatus where-    toQuery OptionStatus{..} = mconcat-        [ "CreationDate"    =? _osCreationDate-        , "PendingDeletion" =? _osPendingDeletion-        , "State"           =? _osState-        , "UpdateDate"      =? _osUpdateDate-        , "UpdateVersion"   =? _osUpdateVersion-        ]--data LiteralArrayOptions = LiteralArrayOptions-    { _laoDefaultValue  :: Maybe Text-    , _laoFacetEnabled  :: Maybe Bool-    , _laoReturnEnabled :: Maybe Bool-    , _laoSearchEnabled :: Maybe Bool-    , _laoSourceFields  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'LiteralArrayOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'laoDefaultValue' @::@ 'Maybe' 'Text'------ * 'laoFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'laoReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'laoSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'laoSourceFields' @::@ 'Maybe' 'Text'----literalArrayOptions :: LiteralArrayOptions-literalArrayOptions = LiteralArrayOptions-    { _laoDefaultValue  = Nothing-    , _laoSourceFields  = Nothing-    , _laoFacetEnabled  = Nothing-    , _laoSearchEnabled = Nothing-    , _laoReturnEnabled = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-laoDefaultValue :: Lens' LiteralArrayOptions (Maybe Text)-laoDefaultValue = lens _laoDefaultValue (\s a -> s { _laoDefaultValue = a })---- | Whether facet information can be returned for the field.-laoFacetEnabled :: Lens' LiteralArrayOptions (Maybe Bool)-laoFacetEnabled = lens _laoFacetEnabled (\s a -> s { _laoFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-laoReturnEnabled :: Lens' LiteralArrayOptions (Maybe Bool)-laoReturnEnabled = lens _laoReturnEnabled (\s a -> s { _laoReturnEnabled = a })---- | Whether the contents of the field are searchable.-laoSearchEnabled :: Lens' LiteralArrayOptions (Maybe Bool)-laoSearchEnabled = lens _laoSearchEnabled (\s a -> s { _laoSearchEnabled = a })---- | A list of source fields to map to the field.-laoSourceFields :: Lens' LiteralArrayOptions (Maybe Text)-laoSourceFields = lens _laoSourceFields (\s a -> s { _laoSourceFields = a })--instance FromXML LiteralArrayOptions where-    parseXML x = LiteralArrayOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SourceFields"--instance ToQuery LiteralArrayOptions where-    toQuery LiteralArrayOptions{..} = mconcat-        [ "DefaultValue"  =? _laoDefaultValue-        , "FacetEnabled"  =? _laoFacetEnabled-        , "ReturnEnabled" =? _laoReturnEnabled-        , "SearchEnabled" =? _laoSearchEnabled-        , "SourceFields"  =? _laoSourceFields-        ]--data IntArrayOptions = IntArrayOptions-    { _iaoDefaultValue  :: Maybe Integer-    , _iaoFacetEnabled  :: Maybe Bool-    , _iaoReturnEnabled :: Maybe Bool-    , _iaoSearchEnabled :: Maybe Bool-    , _iaoSourceFields  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'IntArrayOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'iaoDefaultValue' @::@ 'Maybe' 'Integer'------ * 'iaoFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'iaoReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'iaoSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'iaoSourceFields' @::@ 'Maybe' 'Text'----intArrayOptions :: IntArrayOptions-intArrayOptions = IntArrayOptions-    { _iaoDefaultValue  = Nothing-    , _iaoSourceFields  = Nothing-    , _iaoFacetEnabled  = Nothing-    , _iaoSearchEnabled = Nothing-    , _iaoReturnEnabled = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-iaoDefaultValue :: Lens' IntArrayOptions (Maybe Integer)-iaoDefaultValue = lens _iaoDefaultValue (\s a -> s { _iaoDefaultValue = a })---- | Whether facet information can be returned for the field.-iaoFacetEnabled :: Lens' IntArrayOptions (Maybe Bool)-iaoFacetEnabled = lens _iaoFacetEnabled (\s a -> s { _iaoFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-iaoReturnEnabled :: Lens' IntArrayOptions (Maybe Bool)-iaoReturnEnabled = lens _iaoReturnEnabled (\s a -> s { _iaoReturnEnabled = a })---- | Whether the contents of the field are searchable.-iaoSearchEnabled :: Lens' IntArrayOptions (Maybe Bool)-iaoSearchEnabled = lens _iaoSearchEnabled (\s a -> s { _iaoSearchEnabled = a })---- | A list of source fields to map to the field.-iaoSourceFields :: Lens' IntArrayOptions (Maybe Text)-iaoSourceFields = lens _iaoSourceFields (\s a -> s { _iaoSourceFields = a })--instance FromXML IntArrayOptions where-    parseXML x = IntArrayOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SourceFields"--instance ToQuery IntArrayOptions where-    toQuery IntArrayOptions{..} = mconcat-        [ "DefaultValue"  =? _iaoDefaultValue-        , "FacetEnabled"  =? _iaoFacetEnabled-        , "ReturnEnabled" =? _iaoReturnEnabled-        , "SearchEnabled" =? _iaoSearchEnabled-        , "SourceFields"  =? _iaoSourceFields-        ]--data Expression = Expression-    { _eExpressionName  :: Text-    , _eExpressionValue :: Text-    } deriving (Eq, Ord, Read, Show)---- | 'Expression' constructor.------ The fields accessible through corresponding lenses are:------ * 'eExpressionName' @::@ 'Text'------ * 'eExpressionValue' @::@ 'Text'----expression :: Text -- ^ 'eExpressionName'-           -> Text -- ^ 'eExpressionValue'-           -> Expression-expression p1 p2 = Expression-    { _eExpressionName  = p1-    , _eExpressionValue = p2-    }--eExpressionName :: Lens' Expression Text-eExpressionName = lens _eExpressionName (\s a -> s { _eExpressionName = a })--eExpressionValue :: Lens' Expression Text-eExpressionValue = lens _eExpressionValue (\s a -> s { _eExpressionValue = a })--instance FromXML Expression where-    parseXML x = Expression-        <$> x .@  "ExpressionName"-        <*> x .@  "ExpressionValue"--instance ToQuery Expression where-    toQuery Expression{..} = mconcat-        [ "ExpressionName"  =? _eExpressionName-        , "ExpressionValue" =? _eExpressionValue-        ]--data SuggesterFuzzyMatching-    = SFMHigh -- ^ high-    | SFMLow  -- ^ low-    | SFMNone -- ^ none-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable SuggesterFuzzyMatching--instance FromText SuggesterFuzzyMatching where-    parser = takeLowerText >>= \case-        "high" -> pure SFMHigh-        "low"  -> pure SFMLow-        "none" -> pure SFMNone-        e      -> fail $-            "Failure parsing SuggesterFuzzyMatching from " ++ show e--instance ToText SuggesterFuzzyMatching where-    toText = \case-        SFMHigh -> "high"-        SFMLow  -> "low"-        SFMNone -> "none"--instance ToByteString SuggesterFuzzyMatching-instance ToHeader     SuggesterFuzzyMatching-instance ToQuery      SuggesterFuzzyMatching--instance FromXML SuggesterFuzzyMatching where-    parseXML = parseXMLText "SuggesterFuzzyMatching"--data DateArrayOptions = DateArrayOptions-    { _dao1DefaultValue  :: Maybe Text-    , _dao1FacetEnabled  :: Maybe Bool-    , _dao1ReturnEnabled :: Maybe Bool-    , _dao1SearchEnabled :: Maybe Bool-    , _dao1SourceFields  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'DateArrayOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'dao1DefaultValue' @::@ 'Maybe' 'Text'------ * 'dao1FacetEnabled' @::@ 'Maybe' 'Bool'------ * 'dao1ReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'dao1SearchEnabled' @::@ 'Maybe' 'Bool'------ * 'dao1SourceFields' @::@ 'Maybe' 'Text'----dateArrayOptions :: DateArrayOptions-dateArrayOptions = DateArrayOptions-    { _dao1DefaultValue  = Nothing-    , _dao1SourceFields  = Nothing-    , _dao1FacetEnabled  = Nothing-    , _dao1SearchEnabled = Nothing-    , _dao1ReturnEnabled = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-dao1DefaultValue :: Lens' DateArrayOptions (Maybe Text)-dao1DefaultValue = lens _dao1DefaultValue (\s a -> s { _dao1DefaultValue = a })---- | Whether facet information can be returned for the field.-dao1FacetEnabled :: Lens' DateArrayOptions (Maybe Bool)-dao1FacetEnabled = lens _dao1FacetEnabled (\s a -> s { _dao1FacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-dao1ReturnEnabled :: Lens' DateArrayOptions (Maybe Bool)-dao1ReturnEnabled =-    lens _dao1ReturnEnabled (\s a -> s { _dao1ReturnEnabled = a })---- | Whether the contents of the field are searchable.-dao1SearchEnabled :: Lens' DateArrayOptions (Maybe Bool)-dao1SearchEnabled =-    lens _dao1SearchEnabled (\s a -> s { _dao1SearchEnabled = a })---- | A list of source fields to map to the field.-dao1SourceFields :: Lens' DateArrayOptions (Maybe Text)-dao1SourceFields = lens _dao1SourceFields (\s a -> s { _dao1SourceFields = a })--instance FromXML DateArrayOptions where-    parseXML x = DateArrayOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SourceFields"--instance ToQuery DateArrayOptions where-    toQuery DateArrayOptions{..} = mconcat-        [ "DefaultValue"  =? _dao1DefaultValue-        , "FacetEnabled"  =? _dao1FacetEnabled-        , "ReturnEnabled" =? _dao1ReturnEnabled-        , "SearchEnabled" =? _dao1SearchEnabled-        , "SourceFields"  =? _dao1SourceFields-        ]--data AnalysisSchemeLanguage-    = Ar     -- ^ ar-    | Bg     -- ^ bg-    | Ca     -- ^ ca-    | Cs     -- ^ cs-    | Da     -- ^ da-    | De     -- ^ de-    | El     -- ^ el-    | En     -- ^ en-    | Es     -- ^ es-    | Eu     -- ^ eu-    | Fa     -- ^ fa-    | Fi     -- ^ fi-    | Fr     -- ^ fr-    | Ga     -- ^ ga-    | Gl     -- ^ gl-    | He     -- ^ he-    | Hi     -- ^ hi-    | Hu     -- ^ hu-    | Hy     -- ^ hy-    | Id     -- ^ id-    | It     -- ^ it-    | Ja     -- ^ ja-    | Ko     -- ^ ko-    | Lv     -- ^ lv-    | Mul    -- ^ mul-    | Nl     -- ^ nl-    | No     -- ^ no-    | Pt     -- ^ pt-    | Ro     -- ^ ro-    | Ru     -- ^ ru-    | Sv     -- ^ sv-    | Th     -- ^ th-    | Tr     -- ^ tr-    | ZhHans -- ^ zh-Hans-    | ZhHant -- ^ zh-Hant-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable AnalysisSchemeLanguage--instance FromText AnalysisSchemeLanguage where-    parser = takeLowerText >>= \case-        "ar"      -> pure Ar-        "bg"      -> pure Bg-        "ca"      -> pure Ca-        "cs"      -> pure Cs-        "da"      -> pure Da-        "de"      -> pure De-        "el"      -> pure El-        "en"      -> pure En-        "es"      -> pure Es-        "eu"      -> pure Eu-        "fa"      -> pure Fa-        "fi"      -> pure Fi-        "fr"      -> pure Fr-        "ga"      -> pure Ga-        "gl"      -> pure Gl-        "he"      -> pure He-        "hi"      -> pure Hi-        "hu"      -> pure Hu-        "hy"      -> pure Hy-        "id"      -> pure Id-        "it"      -> pure It-        "ja"      -> pure Ja-        "ko"      -> pure Ko-        "lv"      -> pure Lv-        "mul"     -> pure Mul-        "nl"      -> pure Nl-        "no"      -> pure No-        "pt"      -> pure Pt-        "ro"      -> pure Ro-        "ru"      -> pure Ru-        "sv"      -> pure Sv-        "th"      -> pure Th-        "tr"      -> pure Tr-        "zh-hans" -> pure ZhHans-        "zh-hant" -> pure ZhHant-        e         -> fail $-            "Failure parsing AnalysisSchemeLanguage from " ++ show e--instance ToText AnalysisSchemeLanguage where-    toText = \case-        Ar     -> "ar"-        Bg     -> "bg"-        Ca     -> "ca"-        Cs     -> "cs"-        Da     -> "da"-        De     -> "de"-        El     -> "el"-        En     -> "en"-        Es     -> "es"-        Eu     -> "eu"-        Fa     -> "fa"-        Fi     -> "fi"-        Fr     -> "fr"-        Ga     -> "ga"-        Gl     -> "gl"-        He     -> "he"-        Hi     -> "hi"-        Hu     -> "hu"-        Hy     -> "hy"-        Id     -> "id"-        It     -> "it"-        Ja     -> "ja"-        Ko     -> "ko"-        Lv     -> "lv"-        Mul    -> "mul"-        Nl     -> "nl"-        No     -> "no"-        Pt     -> "pt"-        Ro     -> "ro"-        Ru     -> "ru"-        Sv     -> "sv"-        Th     -> "th"-        Tr     -> "tr"-        ZhHans -> "zh-Hans"-        ZhHant -> "zh-Hant"--instance ToByteString AnalysisSchemeLanguage-instance ToHeader     AnalysisSchemeLanguage-instance ToQuery      AnalysisSchemeLanguage--instance FromXML AnalysisSchemeLanguage where-    parseXML = parseXMLText "AnalysisSchemeLanguage"--data PartitionInstanceType-    = SearchM1Large   -- ^ search.m1.large-    | SearchM1Small   -- ^ search.m1.small-    | SearchM22xlarge -- ^ search.m2.2xlarge-    | SearchM2Xlarge  -- ^ search.m2.xlarge-    | SearchM32xlarge -- ^ search.m3.2xlarge-    | SearchM3Large   -- ^ search.m3.large-    | SearchM3Medium  -- ^ search.m3.medium-    | SearchM3Xlarge  -- ^ search.m3.xlarge-      deriving (Eq, Ord, Read, Show, Generic, Enum)--instance Hashable PartitionInstanceType--instance FromText PartitionInstanceType where-    parser = takeLowerText >>= \case-        "search.m1.large"   -> pure SearchM1Large-        "search.m1.small"   -> pure SearchM1Small-        "search.m2.2xlarge" -> pure SearchM22xlarge-        "search.m2.xlarge"  -> pure SearchM2Xlarge-        "search.m3.2xlarge" -> pure SearchM32xlarge-        "search.m3.large"   -> pure SearchM3Large-        "search.m3.medium"  -> pure SearchM3Medium-        "search.m3.xlarge"  -> pure SearchM3Xlarge-        e                   -> fail $-            "Failure parsing PartitionInstanceType from " ++ show e--instance ToText PartitionInstanceType where-    toText = \case-        SearchM1Large   -> "search.m1.large"-        SearchM1Small   -> "search.m1.small"-        SearchM22xlarge -> "search.m2.2xlarge"-        SearchM2Xlarge  -> "search.m2.xlarge"-        SearchM32xlarge -> "search.m3.2xlarge"-        SearchM3Large   -> "search.m3.large"-        SearchM3Medium  -> "search.m3.medium"-        SearchM3Xlarge  -> "search.m3.xlarge"--instance ToByteString PartitionInstanceType-instance ToHeader     PartitionInstanceType-instance ToQuery      PartitionInstanceType--instance FromXML PartitionInstanceType where-    parseXML = parseXMLText "PartitionInstanceType"--data Suggester = Suggester-    { _sDocumentSuggesterOptions :: DocumentSuggesterOptions-    , _sSuggesterName            :: Text-    } deriving (Eq, Read, Show)---- | 'Suggester' constructor.------ The fields accessible through corresponding lenses are:------ * 'sDocumentSuggesterOptions' @::@ 'DocumentSuggesterOptions'------ * 'sSuggesterName' @::@ 'Text'----suggester :: Text -- ^ 'sSuggesterName'-          -> DocumentSuggesterOptions -- ^ 'sDocumentSuggesterOptions'-          -> Suggester-suggester p1 p2 = Suggester-    { _sSuggesterName            = p1-    , _sDocumentSuggesterOptions = p2-    }--sDocumentSuggesterOptions :: Lens' Suggester DocumentSuggesterOptions-sDocumentSuggesterOptions =-    lens _sDocumentSuggesterOptions-        (\s a -> s { _sDocumentSuggesterOptions = a })--sSuggesterName :: Lens' Suggester Text-sSuggesterName = lens _sSuggesterName (\s a -> s { _sSuggesterName = a })--instance FromXML Suggester where-    parseXML x = Suggester-        <$> x .@  "DocumentSuggesterOptions"-        <*> x .@  "SuggesterName"--instance ToQuery Suggester where-    toQuery Suggester{..} = mconcat-        [ "DocumentSuggesterOptions" =? _sDocumentSuggesterOptions-        , "SuggesterName"            =? _sSuggesterName-        ]--data IntOptions = IntOptions-    { _ioDefaultValue  :: Maybe Integer-    , _ioFacetEnabled  :: Maybe Bool-    , _ioReturnEnabled :: Maybe Bool-    , _ioSearchEnabled :: Maybe Bool-    , _ioSortEnabled   :: Maybe Bool-    , _ioSourceField   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'IntOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'ioDefaultValue' @::@ 'Maybe' 'Integer'------ * 'ioFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'ioReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'ioSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'ioSortEnabled' @::@ 'Maybe' 'Bool'------ * 'ioSourceField' @::@ 'Maybe' 'Text'----intOptions :: IntOptions-intOptions = IntOptions-    { _ioDefaultValue  = Nothing-    , _ioSourceField   = Nothing-    , _ioFacetEnabled  = Nothing-    , _ioSearchEnabled = Nothing-    , _ioReturnEnabled = Nothing-    , _ioSortEnabled   = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.--- This can be important if you are using the field in an expression and that--- field is not present in every document.-ioDefaultValue :: Lens' IntOptions (Maybe Integer)-ioDefaultValue = lens _ioDefaultValue (\s a -> s { _ioDefaultValue = a })---- | Whether facet information can be returned for the field.-ioFacetEnabled :: Lens' IntOptions (Maybe Bool)-ioFacetEnabled = lens _ioFacetEnabled (\s a -> s { _ioFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-ioReturnEnabled :: Lens' IntOptions (Maybe Bool)-ioReturnEnabled = lens _ioReturnEnabled (\s a -> s { _ioReturnEnabled = a })---- | Whether the contents of the field are searchable.-ioSearchEnabled :: Lens' IntOptions (Maybe Bool)-ioSearchEnabled = lens _ioSearchEnabled (\s a -> s { _ioSearchEnabled = a })---- | Whether the field can be used to sort the search results.-ioSortEnabled :: Lens' IntOptions (Maybe Bool)-ioSortEnabled = lens _ioSortEnabled (\s a -> s { _ioSortEnabled = a })---- | The name of the source field to map to the field.-ioSourceField :: Lens' IntOptions (Maybe Text)-ioSourceField = lens _ioSourceField (\s a -> s { _ioSourceField = a })--instance FromXML IntOptions where-    parseXML x = IntOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery IntOptions where-    toQuery IntOptions{..} = mconcat-        [ "DefaultValue"  =? _ioDefaultValue-        , "FacetEnabled"  =? _ioFacetEnabled-        , "ReturnEnabled" =? _ioReturnEnabled-        , "SearchEnabled" =? _ioSearchEnabled-        , "SortEnabled"   =? _ioSortEnabled-        , "SourceField"   =? _ioSourceField-        ]--data LiteralOptions = LiteralOptions-    { _loDefaultValue  :: Maybe Text-    , _loFacetEnabled  :: Maybe Bool-    , _loReturnEnabled :: Maybe Bool-    , _loSearchEnabled :: Maybe Bool-    , _loSortEnabled   :: Maybe Bool-    , _loSourceField   :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'LiteralOptions' constructor.------ The fields accessible through corresponding lenses are:------ * 'loDefaultValue' @::@ 'Maybe' 'Text'------ * 'loFacetEnabled' @::@ 'Maybe' 'Bool'------ * 'loReturnEnabled' @::@ 'Maybe' 'Bool'------ * 'loSearchEnabled' @::@ 'Maybe' 'Bool'------ * 'loSortEnabled' @::@ 'Maybe' 'Bool'------ * 'loSourceField' @::@ 'Maybe' 'Text'----literalOptions :: LiteralOptions-literalOptions = LiteralOptions-    { _loDefaultValue  = Nothing-    , _loSourceField   = Nothing-    , _loFacetEnabled  = Nothing-    , _loSearchEnabled = Nothing-    , _loReturnEnabled = Nothing-    , _loSortEnabled   = Nothing-    }---- | A value to use for the field if the field isn't specified for a document.-loDefaultValue :: Lens' LiteralOptions (Maybe Text)-loDefaultValue = lens _loDefaultValue (\s a -> s { _loDefaultValue = a })---- | Whether facet information can be returned for the field.-loFacetEnabled :: Lens' LiteralOptions (Maybe Bool)-loFacetEnabled = lens _loFacetEnabled (\s a -> s { _loFacetEnabled = a })---- | Whether the contents of the field can be returned in the search results.-loReturnEnabled :: Lens' LiteralOptions (Maybe Bool)-loReturnEnabled = lens _loReturnEnabled (\s a -> s { _loReturnEnabled = a })---- | Whether the contents of the field are searchable.-loSearchEnabled :: Lens' LiteralOptions (Maybe Bool)-loSearchEnabled = lens _loSearchEnabled (\s a -> s { _loSearchEnabled = a })---- | Whether the field can be used to sort the search results.-loSortEnabled :: Lens' LiteralOptions (Maybe Bool)-loSortEnabled = lens _loSortEnabled (\s a -> s { _loSortEnabled = a })--loSourceField :: Lens' LiteralOptions (Maybe Text)-loSourceField = lens _loSourceField (\s a -> s { _loSourceField = a })--instance FromXML LiteralOptions where-    parseXML x = LiteralOptions-        <$> x .@? "DefaultValue"-        <*> x .@? "FacetEnabled"-        <*> x .@? "ReturnEnabled"-        <*> x .@? "SearchEnabled"-        <*> x .@? "SortEnabled"-        <*> x .@? "SourceField"--instance ToQuery LiteralOptions where-    toQuery LiteralOptions{..} = mconcat-        [ "DefaultValue"  =? _loDefaultValue-        , "FacetEnabled"  =? _loFacetEnabled-        , "ReturnEnabled" =? _loReturnEnabled-        , "SearchEnabled" =? _loSearchEnabled-        , "SortEnabled"   =? _loSortEnabled-        , "SourceField"   =? _loSourceField-        ]--data AccessPoliciesStatus = AccessPoliciesStatus-    { _apsOptions :: Text-    , _apsStatus  :: OptionStatus-    } deriving (Eq, Read, Show)---- | 'AccessPoliciesStatus' constructor.------ The fields accessible through corresponding lenses are:------ * 'apsOptions' @::@ 'Text'------ * 'apsStatus' @::@ 'OptionStatus'----accessPoliciesStatus :: Text -- ^ 'apsOptions'-                     -> OptionStatus -- ^ 'apsStatus'-                     -> AccessPoliciesStatus-accessPoliciesStatus p1 p2 = AccessPoliciesStatus-    { _apsOptions = p1-    , _apsStatus  = p2-    }--apsOptions :: Lens' AccessPoliciesStatus Text-apsOptions = lens _apsOptions (\s a -> s { _apsOptions = a })--apsStatus :: Lens' AccessPoliciesStatus OptionStatus-apsStatus = lens _apsStatus (\s a -> s { _apsStatus = a })--instance FromXML AccessPoliciesStatus where-    parseXML x = AccessPoliciesStatus-        <$> x .@  "Options"-        <*> x .@  "Status"--instance ToQuery AccessPoliciesStatus where-    toQuery AccessPoliciesStatus{..} = mconcat-        [ "Options" =? _apsOptions-        , "Status"  =? _apsStatus-        ]+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE TypeFamilies      #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.CloudSearch.Types+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.CloudSearch.Types+    (+    -- * Service+      CloudSearch++    -- * Errors+    , _BaseException+    , _DisabledOperationException+    , _InternalException+    , _InvalidTypeException+    , _ResourceNotFoundException+    , _LimitExceededException++    -- * AlgorithmicStemming+    , AlgorithmicStemming (..)++    -- * AnalysisSchemeLanguage+    , AnalysisSchemeLanguage (..)++    -- * IndexFieldType+    , IndexFieldType (..)++    -- * OptionState+    , OptionState (..)++    -- * PartitionInstanceType+    , PartitionInstanceType (..)++    -- * SuggesterFuzzyMatching+    , SuggesterFuzzyMatching (..)++    -- * AccessPoliciesStatus+    , AccessPoliciesStatus+    , accessPoliciesStatus+    , apsOptions+    , apsStatus++    -- * AnalysisOptions+    , AnalysisOptions+    , analysisOptions+    , aoAlgorithmicStemming+    , aoStopwords+    , aoStemmingDictionary+    , aoSynonyms+    , aoJapaneseTokenizationDictionary++    -- * AnalysisScheme+    , AnalysisScheme+    , analysisScheme+    , asAnalysisOptions+    , asAnalysisSchemeName+    , asAnalysisSchemeLanguage++    -- * AnalysisSchemeStatus+    , AnalysisSchemeStatus+    , analysisSchemeStatus+    , assOptions+    , assStatus++    -- * AvailabilityOptionsStatus+    , AvailabilityOptionsStatus+    , availabilityOptionsStatus+    , aosOptions+    , aosStatus++    -- * DateArrayOptions+    , DateArrayOptions+    , dateArrayOptions+    , daosSourceFields+    , daosReturnEnabled+    , daosFacetEnabled+    , daosSearchEnabled+    , daosDefaultValue++    -- * DateOptions+    , DateOptions+    , dateOptions+    , doSourceField+    , doReturnEnabled+    , doFacetEnabled+    , doSearchEnabled+    , doSortEnabled+    , doDefaultValue++    -- * DocumentSuggesterOptions+    , DocumentSuggesterOptions+    , documentSuggesterOptions+    , dsoSortExpression+    , dsoFuzzyMatching+    , dsoSourceField++    -- * DomainStatus+    , DomainStatus+    , domainStatus+    , dsSearchInstanceCount+    , dsSearchInstanceType+    , dsARN+    , dsDocService+    , dsCreated+    , dsSearchService+    , dsLimits+    , dsSearchPartitionCount+    , dsDeleted+    , dsProcessing+    , dsDomainId+    , dsDomainName+    , dsRequiresIndexDocuments++    -- * DoubleArrayOptions+    , DoubleArrayOptions+    , doubleArrayOptions+    , daoSourceFields+    , daoReturnEnabled+    , daoFacetEnabled+    , daoSearchEnabled+    , daoDefaultValue++    -- * DoubleOptions+    , DoubleOptions+    , doubleOptions+    , dSourceField+    , dReturnEnabled+    , dFacetEnabled+    , dSearchEnabled+    , dSortEnabled+    , dDefaultValue++    -- * Expression+    , Expression+    , expression+    , eExpressionName+    , eExpressionValue++    -- * ExpressionStatus+    , ExpressionStatus+    , expressionStatus+    , esOptions+    , esStatus++    -- * IndexField+    , IndexField+    , indexField+    , ifDateOptions+    , ifTextArrayOptions+    , ifDoubleArrayOptions+    , ifDoubleOptions+    , ifTextOptions+    , ifLatLonOptions+    , ifIntArrayOptions+    , ifLiteralArrayOptions+    , ifDateArrayOptions+    , ifLiteralOptions+    , ifIntOptions+    , ifIndexFieldName+    , ifIndexFieldType++    -- * IndexFieldStatus+    , IndexFieldStatus+    , indexFieldStatus+    , ifsOptions+    , ifsStatus++    -- * IntArrayOptions+    , IntArrayOptions+    , intArrayOptions+    , iaoSourceFields+    , iaoReturnEnabled+    , iaoFacetEnabled+    , iaoSearchEnabled+    , iaoDefaultValue++    -- * IntOptions+    , IntOptions+    , intOptions+    , ioSourceField+    , ioReturnEnabled+    , ioFacetEnabled+    , ioSearchEnabled+    , ioSortEnabled+    , ioDefaultValue++    -- * LatLonOptions+    , LatLonOptions+    , latLonOptions+    , lloSourceField+    , lloReturnEnabled+    , lloFacetEnabled+    , lloSearchEnabled+    , lloSortEnabled+    , lloDefaultValue++    -- * Limits+    , Limits+    , limits+    , lMaximumReplicationCount+    , lMaximumPartitionCount++    -- * LiteralArrayOptions+    , LiteralArrayOptions+    , literalArrayOptions+    , laoSourceFields+    , laoReturnEnabled+    , laoFacetEnabled+    , laoSearchEnabled+    , laoDefaultValue++    -- * LiteralOptions+    , LiteralOptions+    , literalOptions+    , loSourceField+    , loReturnEnabled+    , loFacetEnabled+    , loSearchEnabled+    , loSortEnabled+    , loDefaultValue++    -- * OptionStatus+    , OptionStatus+    , optionStatus+    , osPendingDeletion+    , osUpdateVersion+    , osCreationDate+    , osUpdateDate+    , osState++    -- * ScalingParameters+    , ScalingParameters+    , scalingParameters+    , spDesiredInstanceType+    , spDesiredReplicationCount+    , spDesiredPartitionCount++    -- * ScalingParametersStatus+    , ScalingParametersStatus+    , scalingParametersStatus+    , spsOptions+    , spsStatus++    -- * ServiceEndpoint+    , ServiceEndpoint+    , serviceEndpoint+    , seEndpoint++    -- * Suggester+    , Suggester+    , suggester+    , sSuggesterName+    , sDocumentSuggesterOptions++    -- * SuggesterStatus+    , SuggesterStatus+    , suggesterStatus+    , ssOptions+    , ssStatus++    -- * TextArrayOptions+    , TextArrayOptions+    , textArrayOptions+    , taoSourceFields+    , taoReturnEnabled+    , taoAnalysisScheme+    , taoHighlightEnabled+    , taoDefaultValue++    -- * TextOptions+    , TextOptions+    , textOptions+    , toSourceField+    , toReturnEnabled+    , toAnalysisScheme+    , toHighlightEnabled+    , toSortEnabled+    , toDefaultValue+    ) where++import           Network.AWS.CloudSearch.Types.Product+import           Network.AWS.CloudSearch.Types.Sum+import           Network.AWS.Prelude+import           Network.AWS.Sign.V4++-- | Version @2013-01-01@ of the Amazon CloudSearch SDK.+data CloudSearch++instance AWSService CloudSearch where+    type Sg CloudSearch = V4+    service = const svc+      where+        svc =+            Service+            { _svcAbbrev = "CloudSearch"+            , _svcPrefix = "cloudsearch"+            , _svcVersion = "2013-01-01"+            , _svcEndpoint = defaultEndpoint svc+            , _svcTimeout = Just 70+            , _svcStatus = statusSuccess+            , _svcError = parseXMLError+            , _svcRetry = retry+            }+        retry =+            Exponential+            { _retryBase = 5.0e-2+            , _retryGrowth = 2+            , _retryAttempts = 5+            , _retryCheck = check+            }+        check e+          | has (hasCode "BandwidthLimitExceeded" . hasStatus 509) e =+              Just "request_limit_exceeded"+          | has (hasCode "ThrottlingException" . hasStatus 400) e =+              Just "throttling_exception"+          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+          | has (hasStatus 503) e = Just "service_unavailable"+          | has (hasStatus 500) e = Just "general_server_error"+          | has (hasStatus 509) e = Just "limit_exceeded"+          | otherwise = Nothing++-- | An error occurred while processing the request.+_BaseException :: AsError a => Getting (First ServiceError) a ServiceError+_BaseException = _ServiceError . hasCode "BaseException"++-- | The request was rejected because it attempted an operation which is not+-- enabled.+_DisabledOperationException :: AsError a => Getting (First ServiceError) a ServiceError+_DisabledOperationException =+    _ServiceError . hasStatus 409 . hasCode "DisabledAction"++-- | An internal error occurred while processing the request. If this problem+-- persists, report an issue from the+-- <http://status.aws.amazon.com/ Service Health Dashboard>.+_InternalException :: AsError a => Getting (First ServiceError) a ServiceError+_InternalException =+    _ServiceError . hasStatus 500 . hasCode "InternalException"++-- | The request was rejected because it specified an invalid type+-- definition.+_InvalidTypeException :: AsError a => Getting (First ServiceError) a ServiceError+_InvalidTypeException = _ServiceError . hasStatus 409 . hasCode "InvalidType"++-- | The request was rejected because it attempted to reference a resource+-- that does not exist.+_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError+_ResourceNotFoundException =+    _ServiceError . hasStatus 409 . hasCode "ResourceNotFound"++-- | The request was rejected because a resource limit has already been met.+_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError+_LimitExceededException =+    _ServiceError . hasStatus 409 . hasCode "LimitExceeded"