amazonka-elasticsearch 1.5.0 → 1.6.0

raw patch · 34 files changed

+1726/−294 lines, 34 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-elasticsearch.cabal +8/−5
• fixture/DescribeReservedElasticsearchInstanceOfferings.yaml +10/−0
• fixture/DescribeReservedElasticsearchInstanceOfferingsResponse.proto +0/−0
• fixture/DescribeReservedElasticsearchInstances.yaml +10/−0
• fixture/DescribeReservedElasticsearchInstancesResponse.proto +0/−0
• fixture/PurchaseReservedElasticsearchInstanceOffering.yaml +10/−0
• fixture/PurchaseReservedElasticsearchInstanceOfferingResponse.proto +0/−0
• gen/Network/AWS/ElasticSearch.hs +83/−3
• gen/Network/AWS/ElasticSearch/AddTags.hs +3/−3
• gen/Network/AWS/ElasticSearch/CreateElasticsearchDomain.hs +44/−23
• gen/Network/AWS/ElasticSearch/DeleteElasticsearchDomain.hs +5/−5
• gen/Network/AWS/ElasticSearch/DeleteElasticsearchServiceRole.hs +1/−1
• gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomain.hs +7/−5
• gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomainConfig.hs +7/−7
• gen/Network/AWS/ElasticSearch/DescribeElasticsearchDomains.hs +5/−5
• gen/Network/AWS/ElasticSearch/DescribeElasticsearchInstanceTypeLimits.hs +11/−11
• gen/Network/AWS/ElasticSearch/DescribeReservedElasticsearchInstanceOfferings.hs +187/−0
• gen/Network/AWS/ElasticSearch/DescribeReservedElasticsearchInstances.hs +181/−0
• gen/Network/AWS/ElasticSearch/ListDomainNames.hs +4/−4
• gen/Network/AWS/ElasticSearch/ListElasticsearchInstanceTypes.hs +29/−17
• gen/Network/AWS/ElasticSearch/ListElasticsearchVersions.hs +20/−10
• gen/Network/AWS/ElasticSearch/ListTags.hs +5/−5
• gen/Network/AWS/ElasticSearch/PurchaseReservedElasticsearchInstanceOffering.hs +196/−0
• gen/Network/AWS/ElasticSearch/RemoveTags.hs +3/−3
• gen/Network/AWS/ElasticSearch/Types.hs +86/−16
• gen/Network/AWS/ElasticSearch/Types/Product.hs +687/−141
• gen/Network/AWS/ElasticSearch/Types/Sum.hs +31/−1
• gen/Network/AWS/ElasticSearch/UpdateElasticsearchDomainConfig.hs +33/−23
• gen/Network/AWS/ElasticSearch/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/ElasticSearch.hs +1/−1
• test/Test/AWS/ElasticSearch/Internal.hs +1/−1
• test/Test/AWS/Gen/ElasticSearch.hs +55/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-elasticsearch-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Elasticsearch Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -53,10 +53,13 @@         , Network.AWS.ElasticSearch.DescribeElasticsearchDomainConfig         , Network.AWS.ElasticSearch.DescribeElasticsearchDomains         , Network.AWS.ElasticSearch.DescribeElasticsearchInstanceTypeLimits+        , Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings+        , Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstances         , Network.AWS.ElasticSearch.ListDomainNames         , Network.AWS.ElasticSearch.ListElasticsearchInstanceTypes         , Network.AWS.ElasticSearch.ListElasticsearchVersions         , Network.AWS.ElasticSearch.ListTags+        , Network.AWS.ElasticSearch.PurchaseReservedElasticsearchInstanceOffering         , Network.AWS.ElasticSearch.RemoveTags         , Network.AWS.ElasticSearch.Types         , Network.AWS.ElasticSearch.UpdateElasticsearchDomainConfig@@ -67,7 +70,7 @@         , Network.AWS.ElasticSearch.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-elasticsearch-test@@ -87,8 +90,8 @@         , Test.AWS.ElasticSearch.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-elasticsearch         , base         , bytestring

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/es/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  es.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: GET+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/es/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  es.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/es/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  es.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.ElasticSearch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -64,7 +64,7 @@     -- ** DescribeElasticsearchDomains     , module Network.AWS.ElasticSearch.DescribeElasticsearchDomains -    -- ** ListElasticsearchInstanceTypes+    -- ** ListElasticsearchInstanceTypes (Paginated)     , module Network.AWS.ElasticSearch.ListElasticsearchInstanceTypes      -- ** DeleteElasticsearchServiceRole@@ -85,15 +85,24 @@     -- ** DeleteElasticsearchDomain     , module Network.AWS.ElasticSearch.DeleteElasticsearchDomain +    -- ** PurchaseReservedElasticsearchInstanceOffering+    , module Network.AWS.ElasticSearch.PurchaseReservedElasticsearchInstanceOffering++    -- ** DescribeReservedElasticsearchInstances+    , module Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstances+     -- ** UpdateElasticsearchDomainConfig     , module Network.AWS.ElasticSearch.UpdateElasticsearchDomainConfig -    -- ** ListElasticsearchVersions+    -- ** ListElasticsearchVersions (Paginated)     , module Network.AWS.ElasticSearch.ListElasticsearchVersions      -- ** AddTags     , module Network.AWS.ElasticSearch.AddTags +    -- ** DescribeReservedElasticsearchInstanceOfferings+    , module Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings+     -- ** ListTags     , module Network.AWS.ElasticSearch.ListTags @@ -108,6 +117,9 @@     -- ** OptionState     , OptionState (..) +    -- ** ReservedElasticsearchInstancePaymentOption+    , ReservedElasticsearchInstancePaymentOption (..)+     -- ** VolumeType     , VolumeType (..) @@ -129,6 +141,20 @@     , aosOptions     , aosStatus +    -- ** CognitoOptions+    , CognitoOptions+    , cognitoOptions+    , coIdentityPoolId+    , coEnabled+    , coUserPoolId+    , coRoleARN++    -- ** CognitoOptionsStatus+    , CognitoOptionsStatus+    , cognitoOptionsStatus+    , cosOptions+    , cosStatus+     -- ** DomainInfo     , DomainInfo     , domainInfo@@ -172,6 +198,8 @@     , edcLogPublishingOptions     , edcElasticsearchClusterConfig     , edcSnapshotOptions+    , edcCognitoOptions+    , edcEncryptionAtRestOptions     , edcVPCOptions     , edcAdvancedOptions     , edcElasticsearchVersion@@ -184,6 +212,8 @@     , edsLogPublishingOptions     , edsCreated     , edsSnapshotOptions+    , edsCognitoOptions+    , edsEncryptionAtRestOptions     , edsDeleted     , edsVPCOptions     , edsEndpoints@@ -202,6 +232,18 @@     , evsOptions     , evsStatus +    -- ** EncryptionAtRestOptions+    , EncryptionAtRestOptions+    , encryptionAtRestOptions+    , earoEnabled+    , earoKMSKeyId++    -- ** EncryptionAtRestOptionsStatus+    , EncryptionAtRestOptionsStatus+    , encryptionAtRestOptionsStatus+    , earosOptions+    , earosStatus+     -- ** InstanceCountLimits     , InstanceCountLimits     , instanceCountLimits@@ -241,6 +283,41 @@     , osUpdateDate     , osState +    -- ** RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcRecurringChargeFrequency+    , rcRecurringChargeAmount++    -- ** ReservedElasticsearchInstance+    , ReservedElasticsearchInstance+    , reservedElasticsearchInstance+    , reiState+    , reiCurrencyCode+    , reiStartTime+    , reiReservedElasticsearchInstanceOfferingId+    , reiReservedElasticsearchInstanceId+    , reiElasticsearchInstanceCount+    , reiReservationName+    , reiElasticsearchInstanceType+    , reiRecurringCharges+    , reiUsagePrice+    , reiFixedPrice+    , reiDuration+    , reiPaymentOption++    -- ** ReservedElasticsearchInstanceOffering+    , ReservedElasticsearchInstanceOffering+    , reservedElasticsearchInstanceOffering+    , reioCurrencyCode+    , reioReservedElasticsearchInstanceOfferingId+    , reioElasticsearchInstanceType+    , reioRecurringCharges+    , reioUsagePrice+    , reioFixedPrice+    , reioDuration+    , reioPaymentOption+     -- ** SnapshotOptions     , SnapshotOptions     , snapshotOptions@@ -300,10 +377,13 @@ import Network.AWS.ElasticSearch.DescribeElasticsearchDomainConfig import Network.AWS.ElasticSearch.DescribeElasticsearchDomains import Network.AWS.ElasticSearch.DescribeElasticsearchInstanceTypeLimits+import Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings+import Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstances import Network.AWS.ElasticSearch.ListDomainNames import Network.AWS.ElasticSearch.ListElasticsearchInstanceTypes import Network.AWS.ElasticSearch.ListElasticsearchVersions import Network.AWS.ElasticSearch.ListTags+import Network.AWS.ElasticSearch.PurchaseReservedElasticsearchInstanceOffering import Network.AWS.ElasticSearch.RemoveTags import Network.AWS.ElasticSearch.Types import Network.AWS.ElasticSearch.UpdateElasticsearchDomainConfig

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.AddTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | Specify the @ARN@ for which you want to add the tags. atARN :: Lens' AddTags Text-atARN = lens _atARN (\ s a -> s{_atARN = a});+atARN = lens _atARN (\ s a -> s{_atARN = a})  -- | List of @Tag@ that need to be added for the Elasticsearch domain. atTagList :: Lens' AddTags [Tag]-atTagList = lens _atTagList (\ s a -> s{_atTagList = a}) . _Coerce;+atTagList = lens _atTagList (\ s a -> s{_atTagList = a}) . _Coerce  instance AWSRequest AddTags where         type Rs AddTags = AddTagsResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.CreateElasticsearchDomain--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -32,6 +32,8 @@     , cedLogPublishingOptions     , cedElasticsearchClusterConfig     , cedSnapshotOptions+    , cedCognitoOptions+    , cedEncryptionAtRestOptions     , cedVPCOptions     , cedAdvancedOptions     , cedElasticsearchVersion@@ -59,6 +61,8 @@   , _cedLogPublishingOptions       :: !(Maybe (Map LogType LogPublishingOption))   , _cedElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfig)   , _cedSnapshotOptions            :: !(Maybe SnapshotOptions)+  , _cedCognitoOptions             :: !(Maybe CognitoOptions)+  , _cedEncryptionAtRestOptions    :: !(Maybe EncryptionAtRestOptions)   , _cedVPCOptions                 :: !(Maybe VPCOptions)   , _cedAdvancedOptions            :: !(Maybe (Map Text Text))   , _cedElasticsearchVersion       :: !(Maybe Text)@@ -80,6 +84,10 @@ -- -- * 'cedSnapshotOptions' - Option to set time, in UTC format, of the daily automated snapshot. Default value is 0 hours. --+-- * 'cedCognitoOptions' - Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+--+-- * 'cedEncryptionAtRestOptions' - Specifies the Encryption At Rest Options.+-- -- * 'cedVPCOptions' - Options to specify the subnets and security groups for VPC endpoint. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html#es-creating-vpc Creating a VPC> in /VPC Endpoints for Amazon Elasticsearch Service Domains/ -- -- * 'cedAdvancedOptions' - Option to allow references to indices in an HTTP request body. Must be @false@ when configuring access to individual sub-resources. By default, the value is @true@ . See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuration Advanced Options> for more information.@@ -92,53 +100,63 @@     -> CreateElasticsearchDomain createElasticsearchDomain pDomainName_ =   CreateElasticsearchDomain'-  { _cedEBSOptions = Nothing-  , _cedAccessPolicies = Nothing-  , _cedLogPublishingOptions = Nothing-  , _cedElasticsearchClusterConfig = Nothing-  , _cedSnapshotOptions = Nothing-  , _cedVPCOptions = Nothing-  , _cedAdvancedOptions = Nothing-  , _cedElasticsearchVersion = Nothing-  , _cedDomainName = pDomainName_-  }+    { _cedEBSOptions = Nothing+    , _cedAccessPolicies = Nothing+    , _cedLogPublishingOptions = Nothing+    , _cedElasticsearchClusterConfig = Nothing+    , _cedSnapshotOptions = Nothing+    , _cedCognitoOptions = Nothing+    , _cedEncryptionAtRestOptions = Nothing+    , _cedVPCOptions = Nothing+    , _cedAdvancedOptions = Nothing+    , _cedElasticsearchVersion = Nothing+    , _cedDomainName = pDomainName_+    }   -- | Options to enable, disable and specify the type and size of EBS storage volumes. cedEBSOptions :: Lens' CreateElasticsearchDomain (Maybe EBSOptions)-cedEBSOptions = lens _cedEBSOptions (\ s a -> s{_cedEBSOptions = a});+cedEBSOptions = lens _cedEBSOptions (\ s a -> s{_cedEBSOptions = a})  -- | IAM access policy as a JSON-formatted string. cedAccessPolicies :: Lens' CreateElasticsearchDomain (Maybe Text)-cedAccessPolicies = lens _cedAccessPolicies (\ s a -> s{_cedAccessPolicies = a});+cedAccessPolicies = lens _cedAccessPolicies (\ s a -> s{_cedAccessPolicies = a})  -- | Map of @LogType@ and @LogPublishingOption@ , each containing options to publish a given type of Elasticsearch log. cedLogPublishingOptions :: Lens' CreateElasticsearchDomain (HashMap LogType LogPublishingOption)-cedLogPublishingOptions = lens _cedLogPublishingOptions (\ s a -> s{_cedLogPublishingOptions = a}) . _Default . _Map;+cedLogPublishingOptions = lens _cedLogPublishingOptions (\ s a -> s{_cedLogPublishingOptions = a}) . _Default . _Map  -- | Configuration options for an Elasticsearch domain. Specifies the instance type and number of instances in the domain cluster. cedElasticsearchClusterConfig :: Lens' CreateElasticsearchDomain (Maybe ElasticsearchClusterConfig)-cedElasticsearchClusterConfig = lens _cedElasticsearchClusterConfig (\ s a -> s{_cedElasticsearchClusterConfig = a});+cedElasticsearchClusterConfig = lens _cedElasticsearchClusterConfig (\ s a -> s{_cedElasticsearchClusterConfig = a})  -- | Option to set time, in UTC format, of the daily automated snapshot. Default value is 0 hours. cedSnapshotOptions :: Lens' CreateElasticsearchDomain (Maybe SnapshotOptions)-cedSnapshotOptions = lens _cedSnapshotOptions (\ s a -> s{_cedSnapshotOptions = a});+cedSnapshotOptions = lens _cedSnapshotOptions (\ s a -> s{_cedSnapshotOptions = a}) +-- | Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+cedCognitoOptions :: Lens' CreateElasticsearchDomain (Maybe CognitoOptions)+cedCognitoOptions = lens _cedCognitoOptions (\ s a -> s{_cedCognitoOptions = a})++-- | Specifies the Encryption At Rest Options.+cedEncryptionAtRestOptions :: Lens' CreateElasticsearchDomain (Maybe EncryptionAtRestOptions)+cedEncryptionAtRestOptions = lens _cedEncryptionAtRestOptions (\ s a -> s{_cedEncryptionAtRestOptions = a})+ -- | Options to specify the subnets and security groups for VPC endpoint. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html#es-creating-vpc Creating a VPC> in /VPC Endpoints for Amazon Elasticsearch Service Domains/ cedVPCOptions :: Lens' CreateElasticsearchDomain (Maybe VPCOptions)-cedVPCOptions = lens _cedVPCOptions (\ s a -> s{_cedVPCOptions = a});+cedVPCOptions = lens _cedVPCOptions (\ s a -> s{_cedVPCOptions = a})  -- | Option to allow references to indices in an HTTP request body. Must be @false@ when configuring access to individual sub-resources. By default, the value is @true@ . See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuration Advanced Options> for more information. cedAdvancedOptions :: Lens' CreateElasticsearchDomain (HashMap Text Text)-cedAdvancedOptions = lens _cedAdvancedOptions (\ s a -> s{_cedAdvancedOptions = a}) . _Default . _Map;+cedAdvancedOptions = lens _cedAdvancedOptions (\ s a -> s{_cedAdvancedOptions = a}) . _Default . _Map  -- | String of format X.Y to specify version for the Elasticsearch domain eg. "1.5" or "2.3". For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomains Creating Elasticsearch Domains> in the /Amazon Elasticsearch Service Developer Guide/ . cedElasticsearchVersion :: Lens' CreateElasticsearchDomain (Maybe Text)-cedElasticsearchVersion = lens _cedElasticsearchVersion (\ s a -> s{_cedElasticsearchVersion = a});+cedElasticsearchVersion = lens _cedElasticsearchVersion (\ s a -> s{_cedElasticsearchVersion = a})  -- | The name of the Elasticsearch domain that you are creating. Domain names are unique across the domains owned by an account within an AWS region. Domain names must start with a letter or number and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen). cedDomainName :: Lens' CreateElasticsearchDomain Text-cedDomainName = lens _cedDomainName (\ s a -> s{_cedDomainName = a});+cedDomainName = lens _cedDomainName (\ s a -> s{_cedDomainName = a})  instance AWSRequest CreateElasticsearchDomain where         type Rs CreateElasticsearchDomain =@@ -168,6 +186,9 @@                   ("ElasticsearchClusterConfig" .=) <$>                     _cedElasticsearchClusterConfig,                   ("SnapshotOptions" .=) <$> _cedSnapshotOptions,+                  ("CognitoOptions" .=) <$> _cedCognitoOptions,+                  ("EncryptionAtRestOptions" .=) <$>+                    _cedEncryptionAtRestOptions,                   ("VPCOptions" .=) <$> _cedVPCOptions,                   ("AdvancedOptions" .=) <$> _cedAdvancedOptions,                   ("ElasticsearchVersion" .=) <$>@@ -203,16 +224,16 @@     -> CreateElasticsearchDomainResponse createElasticsearchDomainResponse pResponseStatus_ =   CreateElasticsearchDomainResponse'-  {_cedrsDomainStatus = Nothing, _cedrsResponseStatus = pResponseStatus_}+    {_cedrsDomainStatus = Nothing, _cedrsResponseStatus = pResponseStatus_}   -- | The status of the newly created Elasticsearch domain. cedrsDomainStatus :: Lens' CreateElasticsearchDomainResponse (Maybe ElasticsearchDomainStatus)-cedrsDomainStatus = lens _cedrsDomainStatus (\ s a -> s{_cedrsDomainStatus = a});+cedrsDomainStatus = lens _cedrsDomainStatus (\ s a -> s{_cedrsDomainStatus = a})  -- | -- | The response status code. cedrsResponseStatus :: Lens' CreateElasticsearchDomainResponse Int-cedrsResponseStatus = lens _cedrsResponseStatus (\ s a -> s{_cedrsResponseStatus = a});+cedrsResponseStatus = lens _cedrsResponseStatus (\ s a -> s{_cedrsResponseStatus = a})  instance NFData CreateElasticsearchDomainResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DeleteElasticsearchDomain--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the Elasticsearch domain that you want to permanently delete. dDomainName :: Lens' DeleteElasticsearchDomain Text-dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a});+dDomainName = lens _dDomainName (\ s a -> s{_dDomainName = a})  instance AWSRequest DeleteElasticsearchDomain where         type Rs DeleteElasticsearchDomain =@@ -118,16 +118,16 @@     -> DeleteElasticsearchDomainResponse deleteElasticsearchDomainResponse pResponseStatus_ =   DeleteElasticsearchDomainResponse'-  {_delrsDomainStatus = Nothing, _delrsResponseStatus = pResponseStatus_}+    {_delrsDomainStatus = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | The status of the Elasticsearch domain being deleted. delrsDomainStatus :: Lens' DeleteElasticsearchDomainResponse (Maybe ElasticsearchDomainStatus)-delrsDomainStatus = lens _delrsDomainStatus (\ s a -> s{_delrsDomainStatus = a});+delrsDomainStatus = lens _delrsDomainStatus (\ s a -> s{_delrsDomainStatus = a})  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteElasticsearchDomainResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteElasticsearchDomainResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DeleteElasticsearchServiceRole--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DescribeElasticsearchDomain--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The name of the Elasticsearch domain for which you want information. dedDomainName :: Lens' DescribeElasticsearchDomain Text-dedDomainName = lens _dedDomainName (\ s a -> s{_dedDomainName = a});+dedDomainName = lens _dedDomainName (\ s a -> s{_dedDomainName = a})  instance AWSRequest DescribeElasticsearchDomain where         type Rs DescribeElasticsearchDomain =@@ -119,16 +119,18 @@     -> DescribeElasticsearchDomainResponse describeElasticsearchDomainResponse pResponseStatus_ pDomainStatus_ =   DescribeElasticsearchDomainResponse'-  {_dedrsResponseStatus = pResponseStatus_, _dedrsDomainStatus = pDomainStatus_}+    { _dedrsResponseStatus = pResponseStatus_+    , _dedrsDomainStatus = pDomainStatus_+    }   -- | -- | The response status code. dedrsResponseStatus :: Lens' DescribeElasticsearchDomainResponse Int-dedrsResponseStatus = lens _dedrsResponseStatus (\ s a -> s{_dedrsResponseStatus = a});+dedrsResponseStatus = lens _dedrsResponseStatus (\ s a -> s{_dedrsResponseStatus = a})  -- | The current status of the Elasticsearch domain. dedrsDomainStatus :: Lens' DescribeElasticsearchDomainResponse ElasticsearchDomainStatus-dedrsDomainStatus = lens _dedrsDomainStatus (\ s a -> s{_dedrsDomainStatus = a});+dedrsDomainStatus = lens _dedrsDomainStatus (\ s a -> s{_dedrsDomainStatus = a})  instance NFData DescribeElasticsearchDomainResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DescribeElasticsearchDomainConfig--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The Elasticsearch domain that you want to get information about. dedcDomainName :: Lens' DescribeElasticsearchDomainConfig Text-dedcDomainName = lens _dedcDomainName (\ s a -> s{_dedcDomainName = a});+dedcDomainName = lens _dedcDomainName (\ s a -> s{_dedcDomainName = a})  instance AWSRequest DescribeElasticsearchDomainConfig          where@@ -126,18 +126,18 @@     -> DescribeElasticsearchDomainConfigResponse describeElasticsearchDomainConfigResponse pResponseStatus_ pDomainConfig_ =   DescribeElasticsearchDomainConfigResponse'-  { _dedcrsResponseStatus = pResponseStatus_-  , _dedcrsDomainConfig = pDomainConfig_-  }+    { _dedcrsResponseStatus = pResponseStatus_+    , _dedcrsDomainConfig = pDomainConfig_+    }   -- | -- | The response status code. dedcrsResponseStatus :: Lens' DescribeElasticsearchDomainConfigResponse Int-dedcrsResponseStatus = lens _dedcrsResponseStatus (\ s a -> s{_dedcrsResponseStatus = a});+dedcrsResponseStatus = lens _dedcrsResponseStatus (\ s a -> s{_dedcrsResponseStatus = a})  -- | The configuration information of the domain requested in the @DescribeElasticsearchDomainConfig@ request. dedcrsDomainConfig :: Lens' DescribeElasticsearchDomainConfigResponse ElasticsearchDomainConfig-dedcrsDomainConfig = lens _dedcrsDomainConfig (\ s a -> s{_dedcrsDomainConfig = a});+dedcrsDomainConfig = lens _dedcrsDomainConfig (\ s a -> s{_dedcrsDomainConfig = a})  instance NFData            DescribeElasticsearchDomainConfigResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DescribeElasticsearchDomains--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | The Elasticsearch domains for which you want information. dedDomainNames :: Lens' DescribeElasticsearchDomains [Text]-dedDomainNames = lens _dedDomainNames (\ s a -> s{_dedDomainNames = a}) . _Coerce;+dedDomainNames = lens _dedDomainNames (\ s a -> s{_dedDomainNames = a}) . _Coerce  instance AWSRequest DescribeElasticsearchDomains          where@@ -122,16 +122,16 @@     -> DescribeElasticsearchDomainsResponse describeElasticsearchDomainsResponse pResponseStatus_ =   DescribeElasticsearchDomainsResponse'-  {_drsResponseStatus = pResponseStatus_, _drsDomainStatusList = mempty}+    {_drsResponseStatus = pResponseStatus_, _drsDomainStatusList = mempty}   -- | -- | The response status code. drsResponseStatus :: Lens' DescribeElasticsearchDomainsResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  -- | The status of the domains requested in the @DescribeElasticsearchDomains@ request. drsDomainStatusList :: Lens' DescribeElasticsearchDomainsResponse [ElasticsearchDomainStatus]-drsDomainStatusList = lens _drsDomainStatusList (\ s a -> s{_drsDomainStatusList = a}) . _Coerce;+drsDomainStatusList = lens _drsDomainStatusList (\ s a -> s{_drsDomainStatusList = a}) . _Coerce  instance NFData DescribeElasticsearchDomainsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.DescribeElasticsearchInstanceTypeLimits--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,23 +73,23 @@     -> DescribeElasticsearchInstanceTypeLimits describeElasticsearchInstanceTypeLimits pInstanceType_ pElasticsearchVersion_ =   DescribeElasticsearchInstanceTypeLimits'-  { _deitlDomainName = Nothing-  , _deitlInstanceType = pInstanceType_-  , _deitlElasticsearchVersion = pElasticsearchVersion_-  }+    { _deitlDomainName = Nothing+    , _deitlInstanceType = pInstanceType_+    , _deitlElasticsearchVersion = pElasticsearchVersion_+    }   -- | DomainName represents the name of the Domain that we are trying to modify. This should be present only if we are querying for Elasticsearch @'Limits' @ for existing domain. deitlDomainName :: Lens' DescribeElasticsearchInstanceTypeLimits (Maybe Text)-deitlDomainName = lens _deitlDomainName (\ s a -> s{_deitlDomainName = a});+deitlDomainName = lens _deitlDomainName (\ s a -> s{_deitlDomainName = a})  -- | The instance type for an Elasticsearch cluster for which Elasticsearch @'Limits' @ are needed. deitlInstanceType :: Lens' DescribeElasticsearchInstanceTypeLimits ESPartitionInstanceType-deitlInstanceType = lens _deitlInstanceType (\ s a -> s{_deitlInstanceType = a});+deitlInstanceType = lens _deitlInstanceType (\ s a -> s{_deitlInstanceType = a})  -- | Version of Elasticsearch for which @'Limits' @ are needed. deitlElasticsearchVersion :: Lens' DescribeElasticsearchInstanceTypeLimits Text-deitlElasticsearchVersion = lens _deitlElasticsearchVersion (\ s a -> s{_deitlElasticsearchVersion = a});+deitlElasticsearchVersion = lens _deitlElasticsearchVersion (\ s a -> s{_deitlElasticsearchVersion = a})  instance AWSRequest            DescribeElasticsearchInstanceTypeLimits@@ -155,16 +155,16 @@     -> DescribeElasticsearchInstanceTypeLimitsResponse describeElasticsearchInstanceTypeLimitsResponse pResponseStatus_ =   DescribeElasticsearchInstanceTypeLimitsResponse'-  {_deitlrsLimitsByRole = Nothing, _deitlrsResponseStatus = pResponseStatus_}+    {_deitlrsLimitsByRole = Nothing, _deitlrsResponseStatus = pResponseStatus_}   -- | Undocumented member. deitlrsLimitsByRole :: Lens' DescribeElasticsearchInstanceTypeLimitsResponse (HashMap Text Limits)-deitlrsLimitsByRole = lens _deitlrsLimitsByRole (\ s a -> s{_deitlrsLimitsByRole = a}) . _Default . _Map;+deitlrsLimitsByRole = lens _deitlrsLimitsByRole (\ s a -> s{_deitlrsLimitsByRole = a}) . _Default . _Map  -- | -- | The response status code. deitlrsResponseStatus :: Lens' DescribeElasticsearchInstanceTypeLimitsResponse Int-deitlrsResponseStatus = lens _deitlrsResponseStatus (\ s a -> s{_deitlrsResponseStatus = a});+deitlrsResponseStatus = lens _deitlrsResponseStatus (\ s a -> s{_deitlrsResponseStatus = a})  instance NFData            DescribeElasticsearchInstanceTypeLimitsResponse

@@ -0,0 +1,187 @@+{-# 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.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists available reserved Elasticsearch instance offerings.+--+--+module Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstanceOfferings+    (+    -- * Creating a Request+      describeReservedElasticsearchInstanceOfferings+    , DescribeReservedElasticsearchInstanceOfferings+    -- * Request Lenses+    , dreioReservedElasticsearchInstanceOfferingId+    , dreioNextToken+    , dreioMaxResults++    -- * Destructuring the Response+    , describeReservedElasticsearchInstanceOfferingsResponse+    , DescribeReservedElasticsearchInstanceOfferingsResponse+    -- * Response Lenses+    , dreiorsReservedElasticsearchInstanceOfferings+    , dreiorsNextToken+    , dreiorsResponseStatus+    ) where++import Network.AWS.ElasticSearch.Types+import Network.AWS.ElasticSearch.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for parameters to @DescribeReservedElasticsearchInstanceOfferings@+--+--+--+-- /See:/ 'describeReservedElasticsearchInstanceOfferings' smart constructor.+data DescribeReservedElasticsearchInstanceOfferings = DescribeReservedElasticsearchInstanceOfferings'+  { _dreioReservedElasticsearchInstanceOfferingId :: !(Maybe Text)+  , _dreioNextToken                               :: !(Maybe Text)+  , _dreioMaxResults                              :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReservedElasticsearchInstanceOfferings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dreioReservedElasticsearchInstanceOfferingId' - The offering identifier filter value. Use this parameter to show only the available offering that matches the specified reservation identifier.+--+-- * 'dreioNextToken' - NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination.+--+-- * 'dreioMaxResults' - Set this value to limit the number of results returned. If not specified, defaults to 100.+describeReservedElasticsearchInstanceOfferings+    :: DescribeReservedElasticsearchInstanceOfferings+describeReservedElasticsearchInstanceOfferings =+  DescribeReservedElasticsearchInstanceOfferings'+    { _dreioReservedElasticsearchInstanceOfferingId = Nothing+    , _dreioNextToken = Nothing+    , _dreioMaxResults = Nothing+    }+++-- | The offering identifier filter value. Use this parameter to show only the available offering that matches the specified reservation identifier.+dreioReservedElasticsearchInstanceOfferingId :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Text)+dreioReservedElasticsearchInstanceOfferingId = lens _dreioReservedElasticsearchInstanceOfferingId (\ s a -> s{_dreioReservedElasticsearchInstanceOfferingId = a})++-- | NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination.+dreioNextToken :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Text)+dreioNextToken = lens _dreioNextToken (\ s a -> s{_dreioNextToken = a})++-- | Set this value to limit the number of results returned. If not specified, defaults to 100.+dreioMaxResults :: Lens' DescribeReservedElasticsearchInstanceOfferings (Maybe Int)+dreioMaxResults = lens _dreioMaxResults (\ s a -> s{_dreioMaxResults = a})++instance AWSRequest+           DescribeReservedElasticsearchInstanceOfferings+         where+        type Rs+               DescribeReservedElasticsearchInstanceOfferings+             =+             DescribeReservedElasticsearchInstanceOfferingsResponse+        request = get elasticSearch+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReservedElasticsearchInstanceOfferingsResponse'+                   <$>+                   (x .?> "ReservedElasticsearchInstanceOfferings" .!@+                      mempty)+                     <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeReservedElasticsearchInstanceOfferings+         where++instance NFData+           DescribeReservedElasticsearchInstanceOfferings+         where++instance ToHeaders+           DescribeReservedElasticsearchInstanceOfferings+         where+        toHeaders = const mempty++instance ToPath+           DescribeReservedElasticsearchInstanceOfferings+         where+        toPath+          = const "/2015-01-01/es/reservedInstanceOfferings"++instance ToQuery+           DescribeReservedElasticsearchInstanceOfferings+         where+        toQuery+          DescribeReservedElasticsearchInstanceOfferings'{..}+          = mconcat+              ["offeringId" =:+                 _dreioReservedElasticsearchInstanceOfferingId,+               "nextToken" =: _dreioNextToken,+               "maxResults" =: _dreioMaxResults]++-- | Container for results from @DescribeReservedElasticsearchInstanceOfferings@+--+--+--+-- /See:/ 'describeReservedElasticsearchInstanceOfferingsResponse' smart constructor.+data DescribeReservedElasticsearchInstanceOfferingsResponse = DescribeReservedElasticsearchInstanceOfferingsResponse'+  { _dreiorsReservedElasticsearchInstanceOfferings :: !(Maybe [ReservedElasticsearchInstanceOffering])+  , _dreiorsNextToken :: !(Maybe Text)+  , _dreiorsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReservedElasticsearchInstanceOfferingsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dreiorsReservedElasticsearchInstanceOfferings' - List of reserved Elasticsearch instance offerings+--+-- * 'dreiorsNextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- * 'dreiorsResponseStatus' - -- | The response status code.+describeReservedElasticsearchInstanceOfferingsResponse+    :: Int -- ^ 'dreiorsResponseStatus'+    -> DescribeReservedElasticsearchInstanceOfferingsResponse+describeReservedElasticsearchInstanceOfferingsResponse pResponseStatus_ =+  DescribeReservedElasticsearchInstanceOfferingsResponse'+    { _dreiorsReservedElasticsearchInstanceOfferings = Nothing+    , _dreiorsNextToken = Nothing+    , _dreiorsResponseStatus = pResponseStatus_+    }+++-- | List of reserved Elasticsearch instance offerings+dreiorsReservedElasticsearchInstanceOfferings :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse [ReservedElasticsearchInstanceOffering]+dreiorsReservedElasticsearchInstanceOfferings = lens _dreiorsReservedElasticsearchInstanceOfferings (\ s a -> s{_dreiorsReservedElasticsearchInstanceOfferings = a}) . _Default . _Coerce++-- | Provides an identifier to allow retrieval of paginated results.+dreiorsNextToken :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse (Maybe Text)+dreiorsNextToken = lens _dreiorsNextToken (\ s a -> s{_dreiorsNextToken = a})++-- | -- | The response status code.+dreiorsResponseStatus :: Lens' DescribeReservedElasticsearchInstanceOfferingsResponse Int+dreiorsResponseStatus = lens _dreiorsResponseStatus (\ s a -> s{_dreiorsResponseStatus = a})++instance NFData+           DescribeReservedElasticsearchInstanceOfferingsResponse+         where

@@ -0,0 +1,181 @@+{-# 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.ElasticSearch.DescribeReservedElasticsearchInstances+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns information about reserved Elasticsearch instances for this account.+--+--+module Network.AWS.ElasticSearch.DescribeReservedElasticsearchInstances+    (+    -- * Creating a Request+      describeReservedElasticsearchInstances+    , DescribeReservedElasticsearchInstances+    -- * Request Lenses+    , dreiReservedElasticsearchInstanceId+    , dreiNextToken+    , dreiMaxResults++    -- * Destructuring the Response+    , describeReservedElasticsearchInstancesResponse+    , DescribeReservedElasticsearchInstancesResponse+    -- * Response Lenses+    , dreirsReservedElasticsearchInstances+    , dreirsNextToken+    , dreirsResponseStatus+    ) where++import Network.AWS.ElasticSearch.Types+import Network.AWS.ElasticSearch.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for parameters to @DescribeReservedElasticsearchInstances@+--+--+--+-- /See:/ 'describeReservedElasticsearchInstances' smart constructor.+data DescribeReservedElasticsearchInstances = DescribeReservedElasticsearchInstances'+  { _dreiReservedElasticsearchInstanceId :: !(Maybe Text)+  , _dreiNextToken                       :: !(Maybe Text)+  , _dreiMaxResults                      :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReservedElasticsearchInstances' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dreiReservedElasticsearchInstanceId' - The reserved instance identifier filter value. Use this parameter to show only the reservation that matches the specified reserved Elasticsearch instance ID.+--+-- * 'dreiNextToken' - NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination.+--+-- * 'dreiMaxResults' - Set this value to limit the number of results returned. If not specified, defaults to 100.+describeReservedElasticsearchInstances+    :: DescribeReservedElasticsearchInstances+describeReservedElasticsearchInstances =+  DescribeReservedElasticsearchInstances'+    { _dreiReservedElasticsearchInstanceId = Nothing+    , _dreiNextToken = Nothing+    , _dreiMaxResults = Nothing+    }+++-- | The reserved instance identifier filter value. Use this parameter to show only the reservation that matches the specified reserved Elasticsearch instance ID.+dreiReservedElasticsearchInstanceId :: Lens' DescribeReservedElasticsearchInstances (Maybe Text)+dreiReservedElasticsearchInstanceId = lens _dreiReservedElasticsearchInstanceId (\ s a -> s{_dreiReservedElasticsearchInstanceId = a})++-- | NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination.+dreiNextToken :: Lens' DescribeReservedElasticsearchInstances (Maybe Text)+dreiNextToken = lens _dreiNextToken (\ s a -> s{_dreiNextToken = a})++-- | Set this value to limit the number of results returned. If not specified, defaults to 100.+dreiMaxResults :: Lens' DescribeReservedElasticsearchInstances (Maybe Int)+dreiMaxResults = lens _dreiMaxResults (\ s a -> s{_dreiMaxResults = a})++instance AWSRequest+           DescribeReservedElasticsearchInstances+         where+        type Rs DescribeReservedElasticsearchInstances =+             DescribeReservedElasticsearchInstancesResponse+        request = get elasticSearch+        response+          = receiveJSON+              (\ s h x ->+                 DescribeReservedElasticsearchInstancesResponse' <$>+                   (x .?> "ReservedElasticsearchInstances" .!@ mempty)+                     <*> (x .?> "NextToken")+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeReservedElasticsearchInstances+         where++instance NFData+           DescribeReservedElasticsearchInstances+         where++instance ToHeaders+           DescribeReservedElasticsearchInstances+         where+        toHeaders = const mempty++instance ToPath+           DescribeReservedElasticsearchInstances+         where+        toPath = const "/2015-01-01/es/reservedInstances"++instance ToQuery+           DescribeReservedElasticsearchInstances+         where+        toQuery DescribeReservedElasticsearchInstances'{..}+          = mconcat+              ["reservationId" =:+                 _dreiReservedElasticsearchInstanceId,+               "nextToken" =: _dreiNextToken,+               "maxResults" =: _dreiMaxResults]++-- | Container for results from @DescribeReservedElasticsearchInstances@+--+--+--+-- /See:/ 'describeReservedElasticsearchInstancesResponse' smart constructor.+data DescribeReservedElasticsearchInstancesResponse = DescribeReservedElasticsearchInstancesResponse'+  { _dreirsReservedElasticsearchInstances :: !(Maybe [ReservedElasticsearchInstance])+  , _dreirsNextToken :: !(Maybe Text)+  , _dreirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeReservedElasticsearchInstancesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dreirsReservedElasticsearchInstances' - List of reserved Elasticsearch instances.+--+-- * 'dreirsNextToken' - Provides an identifier to allow retrieval of paginated results.+--+-- * 'dreirsResponseStatus' - -- | The response status code.+describeReservedElasticsearchInstancesResponse+    :: Int -- ^ 'dreirsResponseStatus'+    -> DescribeReservedElasticsearchInstancesResponse+describeReservedElasticsearchInstancesResponse pResponseStatus_ =+  DescribeReservedElasticsearchInstancesResponse'+    { _dreirsReservedElasticsearchInstances = Nothing+    , _dreirsNextToken = Nothing+    , _dreirsResponseStatus = pResponseStatus_+    }+++-- | List of reserved Elasticsearch instances.+dreirsReservedElasticsearchInstances :: Lens' DescribeReservedElasticsearchInstancesResponse [ReservedElasticsearchInstance]+dreirsReservedElasticsearchInstances = lens _dreirsReservedElasticsearchInstances (\ s a -> s{_dreirsReservedElasticsearchInstances = a}) . _Default . _Coerce++-- | Provides an identifier to allow retrieval of paginated results.+dreirsNextToken :: Lens' DescribeReservedElasticsearchInstancesResponse (Maybe Text)+dreirsNextToken = lens _dreirsNextToken (\ s a -> s{_dreirsNextToken = a})++-- | -- | The response status code.+dreirsResponseStatus :: Lens' DescribeReservedElasticsearchInstancesResponse Int+dreirsResponseStatus = lens _dreirsResponseStatus (\ s a -> s{_dreirsResponseStatus = a})++instance NFData+           DescribeReservedElasticsearchInstancesResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.ListDomainNames--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -101,15 +101,15 @@     -> ListDomainNamesResponse listDomainNamesResponse pResponseStatus_ =   ListDomainNamesResponse'-  {_ldnrsDomainNames = Nothing, _ldnrsResponseStatus = pResponseStatus_}+    {_ldnrsDomainNames = Nothing, _ldnrsResponseStatus = pResponseStatus_}   -- | List of Elasticsearch domain names. ldnrsDomainNames :: Lens' ListDomainNamesResponse [DomainInfo]-ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Coerce;+ldnrsDomainNames = lens _ldnrsDomainNames (\ s a -> s{_ldnrsDomainNames = a}) . _Default . _Coerce  -- | -- | The response status code. ldnrsResponseStatus :: Lens' ListDomainNamesResponse Int-ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a});+ldnrsResponseStatus = lens _ldnrsResponseStatus (\ s a -> s{_ldnrsResponseStatus = a})  instance NFData ListDomainNamesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.ListElasticsearchInstanceTypes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- List all Elasticsearch instance types that are supported for given ElasticsearchVersion -- --+--+-- This operation returns paginated results. module Network.AWS.ElasticSearch.ListElasticsearchInstanceTypes     (     -- * Creating a Request@@ -44,6 +46,7 @@ import Network.AWS.ElasticSearch.Types import Network.AWS.ElasticSearch.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -77,29 +80,38 @@     -> ListElasticsearchInstanceTypes listElasticsearchInstanceTypes pElasticsearchVersion_ =   ListElasticsearchInstanceTypes'-  { _leitNextToken = Nothing-  , _leitDomainName = Nothing-  , _leitMaxResults = Nothing-  , _leitElasticsearchVersion = pElasticsearchVersion_-  }+    { _leitNextToken = Nothing+    , _leitDomainName = Nothing+    , _leitMaxResults = Nothing+    , _leitElasticsearchVersion = pElasticsearchVersion_+    }   -- | NextToken should be sent in case if earlier API call produced result containing NextToken. It is used for pagination. leitNextToken :: Lens' ListElasticsearchInstanceTypes (Maybe Text)-leitNextToken = lens _leitNextToken (\ s a -> s{_leitNextToken = a});+leitNextToken = lens _leitNextToken (\ s a -> s{_leitNextToken = a})  -- | DomainName represents the name of the Domain that we are trying to modify. This should be present only if we are querying for list of available Elasticsearch instance types when modifying existing domain. leitDomainName :: Lens' ListElasticsearchInstanceTypes (Maybe Text)-leitDomainName = lens _leitDomainName (\ s a -> s{_leitDomainName = a});+leitDomainName = lens _leitDomainName (\ s a -> s{_leitDomainName = a})  -- | Set this value to limit the number of results returned. Value provided must be greater than 30 else it wont be honored. leitMaxResults :: Lens' ListElasticsearchInstanceTypes (Maybe Int)-leitMaxResults = lens _leitMaxResults (\ s a -> s{_leitMaxResults = a});+leitMaxResults = lens _leitMaxResults (\ s a -> s{_leitMaxResults = a})  -- | Version of Elasticsearch for which list of supported elasticsearch instance types are needed. leitElasticsearchVersion :: Lens' ListElasticsearchInstanceTypes Text-leitElasticsearchVersion = lens _leitElasticsearchVersion (\ s a -> s{_leitElasticsearchVersion = a});+leitElasticsearchVersion = lens _leitElasticsearchVersion (\ s a -> s{_leitElasticsearchVersion = a}) +instance AWSPager ListElasticsearchInstanceTypes+         where+        page rq rs+          | stop (rs ^. leitrsNextToken) = Nothing+          | stop (rs ^. leitrsElasticsearchInstanceTypes) =+            Nothing+          | otherwise =+            Just $ rq & leitNextToken .~ rs ^. leitrsNextToken+ instance AWSRequest ListElasticsearchInstanceTypes          where         type Rs ListElasticsearchInstanceTypes =@@ -161,23 +173,23 @@     -> ListElasticsearchInstanceTypesResponse listElasticsearchInstanceTypesResponse pResponseStatus_ =   ListElasticsearchInstanceTypesResponse'-  { _leitrsElasticsearchInstanceTypes = Nothing-  , _leitrsNextToken = Nothing-  , _leitrsResponseStatus = pResponseStatus_-  }+    { _leitrsElasticsearchInstanceTypes = Nothing+    , _leitrsNextToken = Nothing+    , _leitrsResponseStatus = pResponseStatus_+    }   -- | List of instance types supported by Amazon Elasticsearch service for given @'ElasticsearchVersion' @ leitrsElasticsearchInstanceTypes :: Lens' ListElasticsearchInstanceTypesResponse [ESPartitionInstanceType]-leitrsElasticsearchInstanceTypes = lens _leitrsElasticsearchInstanceTypes (\ s a -> s{_leitrsElasticsearchInstanceTypes = a}) . _Default . _Coerce;+leitrsElasticsearchInstanceTypes = lens _leitrsElasticsearchInstanceTypes (\ s a -> s{_leitrsElasticsearchInstanceTypes = a}) . _Default . _Coerce  -- | In case if there are more results available NextToken would be present, make further request to the same API with received NextToken to paginate remaining results. leitrsNextToken :: Lens' ListElasticsearchInstanceTypesResponse (Maybe Text)-leitrsNextToken = lens _leitrsNextToken (\ s a -> s{_leitrsNextToken = a});+leitrsNextToken = lens _leitrsNextToken (\ s a -> s{_leitrsNextToken = a})  -- | -- | The response status code. leitrsResponseStatus :: Lens' ListElasticsearchInstanceTypesResponse Int-leitrsResponseStatus = lens _leitrsResponseStatus (\ s a -> s{_leitrsResponseStatus = a});+leitrsResponseStatus = lens _leitrsResponseStatus (\ s a -> s{_leitrsResponseStatus = a})  instance NFData            ListElasticsearchInstanceTypesResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.ListElasticsearchVersions--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,6 +21,8 @@ -- List all supported Elasticsearch versions -- --+--+-- This operation returns paginated results. module Network.AWS.ElasticSearch.ListElasticsearchVersions     (     -- * Creating a Request@@ -42,6 +44,7 @@ import Network.AWS.ElasticSearch.Types import Network.AWS.ElasticSearch.Types.Product import Network.AWS.Lens+import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response@@ -76,12 +79,19 @@  -- | Undocumented member. levNextToken :: Lens' ListElasticsearchVersions (Maybe Text)-levNextToken = lens _levNextToken (\ s a -> s{_levNextToken = a});+levNextToken = lens _levNextToken (\ s a -> s{_levNextToken = a})  -- | Set this value to limit the number of results returned. Value provided must be greater than 10 else it wont be honored. levMaxResults :: Lens' ListElasticsearchVersions (Maybe Int)-levMaxResults = lens _levMaxResults (\ s a -> s{_levMaxResults = a});+levMaxResults = lens _levMaxResults (\ s a -> s{_levMaxResults = a}) +instance AWSPager ListElasticsearchVersions where+        page rq rs+          | stop (rs ^. levrsNextToken) = Nothing+          | stop (rs ^. levrsElasticsearchVersions) = Nothing+          | otherwise =+            Just $ rq & levNextToken .~ rs ^. levrsNextToken+ instance AWSRequest ListElasticsearchVersions where         type Rs ListElasticsearchVersions =              ListElasticsearchVersionsResponse@@ -136,23 +146,23 @@     -> ListElasticsearchVersionsResponse listElasticsearchVersionsResponse pResponseStatus_ =   ListElasticsearchVersionsResponse'-  { _levrsNextToken = Nothing-  , _levrsElasticsearchVersions = Nothing-  , _levrsResponseStatus = pResponseStatus_-  }+    { _levrsNextToken = Nothing+    , _levrsElasticsearchVersions = Nothing+    , _levrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. levrsNextToken :: Lens' ListElasticsearchVersionsResponse (Maybe Text)-levrsNextToken = lens _levrsNextToken (\ s a -> s{_levrsNextToken = a});+levrsNextToken = lens _levrsNextToken (\ s a -> s{_levrsNextToken = a})  -- | Undocumented member. levrsElasticsearchVersions :: Lens' ListElasticsearchVersionsResponse [Text]-levrsElasticsearchVersions = lens _levrsElasticsearchVersions (\ s a -> s{_levrsElasticsearchVersions = a}) . _Default . _Coerce;+levrsElasticsearchVersions = lens _levrsElasticsearchVersions (\ s a -> s{_levrsElasticsearchVersions = a}) . _Default . _Coerce  -- | -- | The response status code. levrsResponseStatus :: Lens' ListElasticsearchVersionsResponse Int-levrsResponseStatus = lens _levrsResponseStatus (\ s a -> s{_levrsResponseStatus = a});+levrsResponseStatus = lens _levrsResponseStatus (\ s a -> s{_levrsResponseStatus = a})  instance NFData ListElasticsearchVersionsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.ListTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,7 +67,7 @@  -- | Specify the @ARN@ for the Elasticsearch domain to which the tags are attached that you want to view. ltARN :: Lens' ListTags Text-ltARN = lens _ltARN (\ s a -> s{_ltARN = a});+ltARN = lens _ltARN (\ s a -> s{_ltARN = a})  instance AWSRequest ListTags where         type Rs ListTags = ListTagsResponse@@ -114,15 +114,15 @@     -> ListTagsResponse listTagsResponse pResponseStatus_ =   ListTagsResponse'-  {_ltrsTagList = Nothing, _ltrsResponseStatus = pResponseStatus_}+    {_ltrsTagList = Nothing, _ltrsResponseStatus = pResponseStatus_}   -- | List of @Tag@ for the requested Elasticsearch domain. ltrsTagList :: Lens' ListTagsResponse [Tag]-ltrsTagList = lens _ltrsTagList (\ s a -> s{_ltrsTagList = a}) . _Default . _Coerce;+ltrsTagList = lens _ltrsTagList (\ s a -> s{_ltrsTagList = a}) . _Default . _Coerce  -- | -- | The response status code. ltrsResponseStatus :: Lens' ListTagsResponse Int-ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTagsResponse where

@@ -0,0 +1,196 @@+{-# 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.ElasticSearch.PurchaseReservedElasticsearchInstanceOffering+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Allows you to purchase reserved Elasticsearch instances.+--+--+module Network.AWS.ElasticSearch.PurchaseReservedElasticsearchInstanceOffering+    (+    -- * Creating a Request+      purchaseReservedElasticsearchInstanceOffering+    , PurchaseReservedElasticsearchInstanceOffering+    -- * Request Lenses+    , preioInstanceCount+    , preioReservedElasticsearchInstanceOfferingId+    , preioReservationName++    -- * Destructuring the Response+    , purchaseReservedElasticsearchInstanceOfferingResponse+    , PurchaseReservedElasticsearchInstanceOfferingResponse+    -- * Response Lenses+    , preiorsReservedElasticsearchInstanceId+    , preiorsReservationName+    , preiorsResponseStatus+    ) where++import Network.AWS.ElasticSearch.Types+import Network.AWS.ElasticSearch.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for parameters to @PurchaseReservedElasticsearchInstanceOffering@+--+--+--+-- /See:/ 'purchaseReservedElasticsearchInstanceOffering' smart constructor.+data PurchaseReservedElasticsearchInstanceOffering = PurchaseReservedElasticsearchInstanceOffering'+  { _preioInstanceCount                           :: !(Maybe Nat)+  , _preioReservedElasticsearchInstanceOfferingId :: !Text+  , _preioReservationName                         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PurchaseReservedElasticsearchInstanceOffering' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'preioInstanceCount' - The number of Elasticsearch instances to reserve.+--+-- * 'preioReservedElasticsearchInstanceOfferingId' - The ID of the reserved Elasticsearch instance offering to purchase.+--+-- * 'preioReservationName' - A customer-specified identifier to track this reservation.+purchaseReservedElasticsearchInstanceOffering+    :: Text -- ^ 'preioReservedElasticsearchInstanceOfferingId'+    -> Text -- ^ 'preioReservationName'+    -> PurchaseReservedElasticsearchInstanceOffering+purchaseReservedElasticsearchInstanceOffering pReservedElasticsearchInstanceOfferingId_ pReservationName_ =+  PurchaseReservedElasticsearchInstanceOffering'+    { _preioInstanceCount = Nothing+    , _preioReservedElasticsearchInstanceOfferingId =+        pReservedElasticsearchInstanceOfferingId_+    , _preioReservationName = pReservationName_+    }+++-- | The number of Elasticsearch instances to reserve.+preioInstanceCount :: Lens' PurchaseReservedElasticsearchInstanceOffering (Maybe Natural)+preioInstanceCount = lens _preioInstanceCount (\ s a -> s{_preioInstanceCount = a}) . mapping _Nat++-- | The ID of the reserved Elasticsearch instance offering to purchase.+preioReservedElasticsearchInstanceOfferingId :: Lens' PurchaseReservedElasticsearchInstanceOffering Text+preioReservedElasticsearchInstanceOfferingId = lens _preioReservedElasticsearchInstanceOfferingId (\ s a -> s{_preioReservedElasticsearchInstanceOfferingId = a})++-- | A customer-specified identifier to track this reservation.+preioReservationName :: Lens' PurchaseReservedElasticsearchInstanceOffering Text+preioReservationName = lens _preioReservationName (\ s a -> s{_preioReservationName = a})++instance AWSRequest+           PurchaseReservedElasticsearchInstanceOffering+         where+        type Rs PurchaseReservedElasticsearchInstanceOffering+             =+             PurchaseReservedElasticsearchInstanceOfferingResponse+        request = postJSON elasticSearch+        response+          = receiveJSON+              (\ s h x ->+                 PurchaseReservedElasticsearchInstanceOfferingResponse'+                   <$>+                   (x .?> "ReservedElasticsearchInstanceId") <*>+                     (x .?> "ReservationName")+                     <*> (pure (fromEnum s)))++instance Hashable+           PurchaseReservedElasticsearchInstanceOffering+         where++instance NFData+           PurchaseReservedElasticsearchInstanceOffering+         where++instance ToHeaders+           PurchaseReservedElasticsearchInstanceOffering+         where+        toHeaders = const mempty++instance ToJSON+           PurchaseReservedElasticsearchInstanceOffering+         where+        toJSON+          PurchaseReservedElasticsearchInstanceOffering'{..}+          = object+              (catMaybes+                 [("InstanceCount" .=) <$> _preioInstanceCount,+                  Just+                    ("ReservedElasticsearchInstanceOfferingId" .=+                       _preioReservedElasticsearchInstanceOfferingId),+                  Just ("ReservationName" .= _preioReservationName)])++instance ToPath+           PurchaseReservedElasticsearchInstanceOffering+         where+        toPath+          = const+              "/2015-01-01/es/purchaseReservedInstanceOffering"++instance ToQuery+           PurchaseReservedElasticsearchInstanceOffering+         where+        toQuery = const mempty++-- | Represents the output of a @PurchaseReservedElasticsearchInstanceOffering@ operation.+--+--+--+-- /See:/ 'purchaseReservedElasticsearchInstanceOfferingResponse' smart constructor.+data PurchaseReservedElasticsearchInstanceOfferingResponse = PurchaseReservedElasticsearchInstanceOfferingResponse'+  { _preiorsReservedElasticsearchInstanceId :: !(Maybe Text)+  , _preiorsReservationName                 :: !(Maybe Text)+  , _preiorsResponseStatus                  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'PurchaseReservedElasticsearchInstanceOfferingResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'preiorsReservedElasticsearchInstanceId' - Details of the reserved Elasticsearch instance which was purchased.+--+-- * 'preiorsReservationName' - The customer-specified identifier used to track this reservation.+--+-- * 'preiorsResponseStatus' - -- | The response status code.+purchaseReservedElasticsearchInstanceOfferingResponse+    :: Int -- ^ 'preiorsResponseStatus'+    -> PurchaseReservedElasticsearchInstanceOfferingResponse+purchaseReservedElasticsearchInstanceOfferingResponse pResponseStatus_ =+  PurchaseReservedElasticsearchInstanceOfferingResponse'+    { _preiorsReservedElasticsearchInstanceId = Nothing+    , _preiorsReservationName = Nothing+    , _preiorsResponseStatus = pResponseStatus_+    }+++-- | Details of the reserved Elasticsearch instance which was purchased.+preiorsReservedElasticsearchInstanceId :: Lens' PurchaseReservedElasticsearchInstanceOfferingResponse (Maybe Text)+preiorsReservedElasticsearchInstanceId = lens _preiorsReservedElasticsearchInstanceId (\ s a -> s{_preiorsReservedElasticsearchInstanceId = a})++-- | The customer-specified identifier used to track this reservation.+preiorsReservationName :: Lens' PurchaseReservedElasticsearchInstanceOfferingResponse (Maybe Text)+preiorsReservationName = lens _preiorsReservationName (\ s a -> s{_preiorsReservationName = a})++-- | -- | The response status code.+preiorsResponseStatus :: Lens' PurchaseReservedElasticsearchInstanceOfferingResponse Int+preiorsResponseStatus = lens _preiorsResponseStatus (\ s a -> s{_preiorsResponseStatus = a})++instance NFData+           PurchaseReservedElasticsearchInstanceOfferingResponse+         where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.RemoveTags--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,11 +68,11 @@  -- | Specifies the @ARN@ for the Elasticsearch domain from which you want to delete the specified tags. rtARN :: Lens' RemoveTags Text-rtARN = lens _rtARN (\ s a -> s{_rtARN = a});+rtARN = lens _rtARN (\ s a -> s{_rtARN = a})  -- | Specifies the @TagKey@ list which you want to remove from the Elasticsearch domain. rtTagKeys :: Lens' RemoveTags [Text]-rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce;+rtTagKeys = lens _rtTagKeys (\ s a -> s{_rtTagKeys = a}) . _Coerce  instance AWSRequest RemoveTags where         type Rs RemoveTags = RemoveTagsResponse

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -34,6 +34,9 @@     -- * OptionState     , OptionState (..) +    -- * ReservedElasticsearchInstancePaymentOption+    , ReservedElasticsearchInstancePaymentOption (..)+     -- * VolumeType     , VolumeType (..) @@ -55,6 +58,20 @@     , aosOptions     , aosStatus +    -- * CognitoOptions+    , CognitoOptions+    , cognitoOptions+    , coIdentityPoolId+    , coEnabled+    , coUserPoolId+    , coRoleARN++    -- * CognitoOptionsStatus+    , CognitoOptionsStatus+    , cognitoOptionsStatus+    , cosOptions+    , cosStatus+     -- * DomainInfo     , DomainInfo     , domainInfo@@ -98,6 +115,8 @@     , edcLogPublishingOptions     , edcElasticsearchClusterConfig     , edcSnapshotOptions+    , edcCognitoOptions+    , edcEncryptionAtRestOptions     , edcVPCOptions     , edcAdvancedOptions     , edcElasticsearchVersion@@ -110,6 +129,8 @@     , edsLogPublishingOptions     , edsCreated     , edsSnapshotOptions+    , edsCognitoOptions+    , edsEncryptionAtRestOptions     , edsDeleted     , edsVPCOptions     , edsEndpoints@@ -128,6 +149,18 @@     , evsOptions     , evsStatus +    -- * EncryptionAtRestOptions+    , EncryptionAtRestOptions+    , encryptionAtRestOptions+    , earoEnabled+    , earoKMSKeyId++    -- * EncryptionAtRestOptionsStatus+    , EncryptionAtRestOptionsStatus+    , encryptionAtRestOptionsStatus+    , earosOptions+    , earosStatus+     -- * InstanceCountLimits     , InstanceCountLimits     , instanceCountLimits@@ -167,6 +200,41 @@     , osUpdateDate     , osState +    -- * RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcRecurringChargeFrequency+    , rcRecurringChargeAmount++    -- * ReservedElasticsearchInstance+    , ReservedElasticsearchInstance+    , reservedElasticsearchInstance+    , reiState+    , reiCurrencyCode+    , reiStartTime+    , reiReservedElasticsearchInstanceOfferingId+    , reiReservedElasticsearchInstanceId+    , reiElasticsearchInstanceCount+    , reiReservationName+    , reiElasticsearchInstanceType+    , reiRecurringCharges+    , reiUsagePrice+    , reiFixedPrice+    , reiDuration+    , reiPaymentOption++    -- * ReservedElasticsearchInstanceOffering+    , ReservedElasticsearchInstanceOffering+    , reservedElasticsearchInstanceOffering+    , reioCurrencyCode+    , reioReservedElasticsearchInstanceOfferingId+    , reioElasticsearchInstanceType+    , reioRecurringCharges+    , reioUsagePrice+    , reioFixedPrice+    , reioDuration+    , reioPaymentOption+     -- * SnapshotOptions     , SnapshotOptions     , snapshotOptions@@ -228,24 +296,24 @@ elasticSearch :: Service elasticSearch =   Service-  { _svcAbbrev = "ElasticSearch"-  , _svcSigner = v4-  , _svcPrefix = "es"-  , _svcVersion = "2015-01-01"-  , _svcEndpoint = defaultEndpoint elasticSearch-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "ElasticSearch"-  , _svcRetry = retry-  }+    { _svcAbbrev = "ElasticSearch"+    , _svcSigner = v4+    , _svcPrefix = "es"+    , _svcVersion = "2015-01-01"+    , _svcEndpoint = defaultEndpoint elasticSearch+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "ElasticSearch"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -254,6 +322,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -49,11 +49,11 @@  -- | The access policy configured for the Elasticsearch domain. Access policies may be resource-based, IP-based, or IAM-based. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-access-policies Configuring Access Policies> for more information. apsOptions :: Lens' AccessPoliciesStatus Text-apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a});+apsOptions = lens _apsOptions (\ s a -> s{_apsOptions = a})  -- | The status of the access policy for the Elasticsearch domain. See @OptionStatus@ for the status information that's included. apsStatus :: Lens' AccessPoliciesStatus OptionStatus-apsStatus = lens _apsStatus (\ s a -> s{_apsStatus = a});+apsStatus = lens _apsStatus (\ s a -> s{_apsStatus = a})  instance FromJSON AccessPoliciesStatus where         parseJSON@@ -92,11 +92,11 @@  -- | Name of Additional Limit is specific to a given InstanceType and for each of it's @'InstanceRole' @ etc.  Attributes and their details:      * MaximumNumberOfDataNodesSupportedThis attribute will be present in Master node only to specify how much data nodes upto which given @'ESPartitionInstanceType' @ can support as master node.     * MaximumNumberOfDataNodesWithoutMasterNodeThis attribute will be present in Data node only to specify how much data nodes of given @'ESPartitionInstanceType' @ upto which you don't need any master nodes to govern them. alLimitName :: Lens' AdditionalLimit (Maybe Text)-alLimitName = lens _alLimitName (\ s a -> s{_alLimitName = a});+alLimitName = lens _alLimitName (\ s a -> s{_alLimitName = a})  -- | Value for given @'AdditionalLimit$LimitName' @ . alLimitValues :: Lens' AdditionalLimit [Text]-alLimitValues = lens _alLimitValues (\ s a -> s{_alLimitValues = a}) . _Default . _Coerce;+alLimitValues = lens _alLimitValues (\ s a -> s{_alLimitValues = a}) . _Default . _Coerce  instance FromJSON AdditionalLimit where         parseJSON@@ -141,11 +141,11 @@  -- | Specifies the status of advanced options for the specified Elasticsearch domain. aosOptions :: Lens' AdvancedOptionsStatus (HashMap Text Text)-aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a}) . _Map;+aosOptions = lens _aosOptions (\ s a -> s{_aosOptions = a}) . _Map  -- | Specifies the status of @OptionStatus@ for advanced options for the specified Elasticsearch domain. aosStatus :: Lens' AdvancedOptionsStatus OptionStatus-aosStatus = lens _aosStatus (\ s a -> s{_aosStatus = a});+aosStatus = lens _aosStatus (\ s a -> s{_aosStatus = a})  instance FromJSON AdvancedOptionsStatus where         parseJSON@@ -158,6 +158,124 @@  instance NFData AdvancedOptionsStatus where +-- | Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+--+--+--+-- /See:/ 'cognitoOptions' smart constructor.+data CognitoOptions = CognitoOptions'+  { _coIdentityPoolId :: !(Maybe Text)+  , _coEnabled        :: !(Maybe Bool)+  , _coUserPoolId     :: !(Maybe Text)+  , _coRoleARN        :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CognitoOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'coIdentityPoolId' - Specifies the Cognito identity pool ID for Kibana authentication.+--+-- * 'coEnabled' - Specifies the option to enable Cognito for Kibana authentication.+--+-- * 'coUserPoolId' - Specifies the Cognito user pool ID for Kibana authentication.+--+-- * 'coRoleARN' - Specifies the role ARN that provides Elasticsearch permissions for accessing Cognito resources.+cognitoOptions+    :: CognitoOptions+cognitoOptions =+  CognitoOptions'+    { _coIdentityPoolId = Nothing+    , _coEnabled = Nothing+    , _coUserPoolId = Nothing+    , _coRoleARN = Nothing+    }+++-- | Specifies the Cognito identity pool ID for Kibana authentication.+coIdentityPoolId :: Lens' CognitoOptions (Maybe Text)+coIdentityPoolId = lens _coIdentityPoolId (\ s a -> s{_coIdentityPoolId = a})++-- | Specifies the option to enable Cognito for Kibana authentication.+coEnabled :: Lens' CognitoOptions (Maybe Bool)+coEnabled = lens _coEnabled (\ s a -> s{_coEnabled = a})++-- | Specifies the Cognito user pool ID for Kibana authentication.+coUserPoolId :: Lens' CognitoOptions (Maybe Text)+coUserPoolId = lens _coUserPoolId (\ s a -> s{_coUserPoolId = a})++-- | Specifies the role ARN that provides Elasticsearch permissions for accessing Cognito resources.+coRoleARN :: Lens' CognitoOptions (Maybe Text)+coRoleARN = lens _coRoleARN (\ s a -> s{_coRoleARN = a})++instance FromJSON CognitoOptions where+        parseJSON+          = withObject "CognitoOptions"+              (\ x ->+                 CognitoOptions' <$>+                   (x .:? "IdentityPoolId") <*> (x .:? "Enabled") <*>+                     (x .:? "UserPoolId")+                     <*> (x .:? "RoleArn"))++instance Hashable CognitoOptions where++instance NFData CognitoOptions where++instance ToJSON CognitoOptions where+        toJSON CognitoOptions'{..}+          = object+              (catMaybes+                 [("IdentityPoolId" .=) <$> _coIdentityPoolId,+                  ("Enabled" .=) <$> _coEnabled,+                  ("UserPoolId" .=) <$> _coUserPoolId,+                  ("RoleArn" .=) <$> _coRoleARN])++-- | Status of the Cognito options for the specified Elasticsearch domain.+--+--+--+-- /See:/ 'cognitoOptionsStatus' smart constructor.+data CognitoOptionsStatus = CognitoOptionsStatus'+  { _cosOptions :: !CognitoOptions+  , _cosStatus  :: !OptionStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CognitoOptionsStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cosOptions' - Specifies the Cognito options for the specified Elasticsearch domain.+--+-- * 'cosStatus' - Specifies the status of the Cognito options for the specified Elasticsearch domain.+cognitoOptionsStatus+    :: CognitoOptions -- ^ 'cosOptions'+    -> OptionStatus -- ^ 'cosStatus'+    -> CognitoOptionsStatus+cognitoOptionsStatus pOptions_ pStatus_ =+  CognitoOptionsStatus' {_cosOptions = pOptions_, _cosStatus = pStatus_}+++-- | Specifies the Cognito options for the specified Elasticsearch domain.+cosOptions :: Lens' CognitoOptionsStatus CognitoOptions+cosOptions = lens _cosOptions (\ s a -> s{_cosOptions = a})++-- | Specifies the status of the Cognito options for the specified Elasticsearch domain.+cosStatus :: Lens' CognitoOptionsStatus OptionStatus+cosStatus = lens _cosStatus (\ s a -> s{_cosStatus = a})++instance FromJSON CognitoOptionsStatus where+        parseJSON+          = withObject "CognitoOptionsStatus"+              (\ x ->+                 CognitoOptionsStatus' <$>+                   (x .: "Options") <*> (x .: "Status"))++instance Hashable CognitoOptionsStatus where++instance NFData CognitoOptionsStatus where+ -- | /See:/ 'domainInfo' smart constructor. newtype DomainInfo = DomainInfo'   { _diDomainName :: Maybe Text@@ -176,7 +294,7 @@  -- | Specifies the @DomainName@ . diDomainName :: Lens' DomainInfo (Maybe Text)-diDomainName = lens _diDomainName (\ s a -> s{_diDomainName = a});+diDomainName = lens _diDomainName (\ s a -> s{_diDomainName = a})  instance FromJSON DomainInfo where         parseJSON@@ -215,28 +333,28 @@     :: EBSOptions ebsOptions =   EBSOptions'-  { _eoVolumeSize = Nothing-  , _eoIOPS = Nothing-  , _eoVolumeType = Nothing-  , _eoEBSEnabled = Nothing-  }+    { _eoVolumeSize = Nothing+    , _eoIOPS = Nothing+    , _eoVolumeType = Nothing+    , _eoEBSEnabled = Nothing+    }   -- | Integer to specify the size of an EBS volume. eoVolumeSize :: Lens' EBSOptions (Maybe Int)-eoVolumeSize = lens _eoVolumeSize (\ s a -> s{_eoVolumeSize = a});+eoVolumeSize = lens _eoVolumeSize (\ s a -> s{_eoVolumeSize = a})  -- | Specifies the IOPD for a Provisioned IOPS EBS volume (SSD). eoIOPS :: Lens' EBSOptions (Maybe Int)-eoIOPS = lens _eoIOPS (\ s a -> s{_eoIOPS = a});+eoIOPS = lens _eoIOPS (\ s a -> s{_eoIOPS = a})  -- | Specifies the volume type for EBS-based storage. eoVolumeType :: Lens' EBSOptions (Maybe VolumeType)-eoVolumeType = lens _eoVolumeType (\ s a -> s{_eoVolumeType = a});+eoVolumeType = lens _eoVolumeType (\ s a -> s{_eoVolumeType = a})  -- | Specifies whether EBS-based storage is enabled. eoEBSEnabled :: Lens' EBSOptions (Maybe Bool)-eoEBSEnabled = lens _eoEBSEnabled (\ s a -> s{_eoEBSEnabled = a});+eoEBSEnabled = lens _eoEBSEnabled (\ s a -> s{_eoEBSEnabled = a})  instance FromJSON EBSOptions where         parseJSON@@ -288,11 +406,11 @@  -- | Specifies the EBS options for the specified Elasticsearch domain. eosOptions :: Lens' EBSOptionsStatus EBSOptions-eosOptions = lens _eosOptions (\ s a -> s{_eosOptions = a});+eosOptions = lens _eosOptions (\ s a -> s{_eosOptions = a})  -- | Specifies the status of the EBS options for the specified Elasticsearch domain. eosStatus :: Lens' EBSOptionsStatus OptionStatus-eosStatus = lens _eosStatus (\ s a -> s{_eosStatus = a});+eosStatus = lens _eosStatus (\ s a -> s{_eosStatus = a})  instance FromJSON EBSOptionsStatus where         parseJSON@@ -339,38 +457,38 @@     :: ElasticsearchClusterConfig elasticsearchClusterConfig =   ElasticsearchClusterConfig'-  { _eccDedicatedMasterCount = Nothing-  , _eccDedicatedMasterType = Nothing-  , _eccDedicatedMasterEnabled = Nothing-  , _eccInstanceCount = Nothing-  , _eccZoneAwarenessEnabled = Nothing-  , _eccInstanceType = Nothing-  }+    { _eccDedicatedMasterCount = Nothing+    , _eccDedicatedMasterType = Nothing+    , _eccDedicatedMasterEnabled = Nothing+    , _eccInstanceCount = Nothing+    , _eccZoneAwarenessEnabled = Nothing+    , _eccInstanceType = Nothing+    }   -- | Total number of dedicated master nodes, active and on standby, for the cluster. eccDedicatedMasterCount :: Lens' ElasticsearchClusterConfig (Maybe Int)-eccDedicatedMasterCount = lens _eccDedicatedMasterCount (\ s a -> s{_eccDedicatedMasterCount = a});+eccDedicatedMasterCount = lens _eccDedicatedMasterCount (\ s a -> s{_eccDedicatedMasterCount = a})  -- | The instance type for a dedicated master node. eccDedicatedMasterType :: Lens' ElasticsearchClusterConfig (Maybe ESPartitionInstanceType)-eccDedicatedMasterType = lens _eccDedicatedMasterType (\ s a -> s{_eccDedicatedMasterType = a});+eccDedicatedMasterType = lens _eccDedicatedMasterType (\ s a -> s{_eccDedicatedMasterType = a})  -- | A boolean value to indicate whether a dedicated master node is enabled. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-managedomains.html#es-managedomains-dedicatedmasternodes About Dedicated Master Nodes> for more information. eccDedicatedMasterEnabled :: Lens' ElasticsearchClusterConfig (Maybe Bool)-eccDedicatedMasterEnabled = lens _eccDedicatedMasterEnabled (\ s a -> s{_eccDedicatedMasterEnabled = a});+eccDedicatedMasterEnabled = lens _eccDedicatedMasterEnabled (\ s a -> s{_eccDedicatedMasterEnabled = a})  -- | The number of instances in the specified domain cluster. eccInstanceCount :: Lens' ElasticsearchClusterConfig (Maybe Int)-eccInstanceCount = lens _eccInstanceCount (\ s a -> s{_eccInstanceCount = a});+eccInstanceCount = lens _eccInstanceCount (\ s a -> s{_eccInstanceCount = a})  -- | A boolean value to indicate whether zone awareness is enabled. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-managedomains.html#es-managedomains-zoneawareness About Zone Awareness> for more information. eccZoneAwarenessEnabled :: Lens' ElasticsearchClusterConfig (Maybe Bool)-eccZoneAwarenessEnabled = lens _eccZoneAwarenessEnabled (\ s a -> s{_eccZoneAwarenessEnabled = a});+eccZoneAwarenessEnabled = lens _eccZoneAwarenessEnabled (\ s a -> s{_eccZoneAwarenessEnabled = a})  -- | The instance type for an Elasticsearch cluster. eccInstanceType :: Lens' ElasticsearchClusterConfig (Maybe ESPartitionInstanceType)-eccInstanceType = lens _eccInstanceType (\ s a -> s{_eccInstanceType = a});+eccInstanceType = lens _eccInstanceType (\ s a -> s{_eccInstanceType = a})  instance FromJSON ElasticsearchClusterConfig where         parseJSON@@ -427,16 +545,16 @@     -> ElasticsearchClusterConfigStatus elasticsearchClusterConfigStatus pOptions_ pStatus_ =   ElasticsearchClusterConfigStatus'-  {_eccsOptions = pOptions_, _eccsStatus = pStatus_}+    {_eccsOptions = pOptions_, _eccsStatus = pStatus_}   -- | Specifies the cluster configuration for the specified Elasticsearch domain. eccsOptions :: Lens' ElasticsearchClusterConfigStatus ElasticsearchClusterConfig-eccsOptions = lens _eccsOptions (\ s a -> s{_eccsOptions = a});+eccsOptions = lens _eccsOptions (\ s a -> s{_eccsOptions = a})  -- | Specifies the status of the configuration for the specified Elasticsearch domain. eccsStatus :: Lens' ElasticsearchClusterConfigStatus OptionStatus-eccsStatus = lens _eccsStatus (\ s a -> s{_eccsStatus = a});+eccsStatus = lens _eccsStatus (\ s a -> s{_eccsStatus = a})  instance FromJSON ElasticsearchClusterConfigStatus          where@@ -463,6 +581,8 @@   , _edcLogPublishingOptions       :: !(Maybe LogPublishingOptionsStatus)   , _edcElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfigStatus)   , _edcSnapshotOptions            :: !(Maybe SnapshotOptionsStatus)+  , _edcCognitoOptions             :: !(Maybe CognitoOptionsStatus)+  , _edcEncryptionAtRestOptions    :: !(Maybe EncryptionAtRestOptionsStatus)   , _edcVPCOptions                 :: !(Maybe VPCDerivedInfoStatus)   , _edcAdvancedOptions            :: !(Maybe AdvancedOptionsStatus)   , _edcElasticsearchVersion       :: !(Maybe ElasticsearchVersionStatus)@@ -483,6 +603,10 @@ -- -- * 'edcSnapshotOptions' - Specifies the @SnapshotOptions@ for the Elasticsearch domain. --+-- * 'edcCognitoOptions' - The @CognitoOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+--+-- * 'edcEncryptionAtRestOptions' - Specifies the @EncryptionAtRestOptions@ for the Elasticsearch domain.+-- -- * 'edcVPCOptions' - The @VPCOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html VPC Endpoints for Amazon Elasticsearch Service Domains> . -- -- * 'edcAdvancedOptions' - Specifies the @AdvancedOptions@ for the domain. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuring Advanced Options> for more information.@@ -492,48 +616,58 @@     :: ElasticsearchDomainConfig elasticsearchDomainConfig =   ElasticsearchDomainConfig'-  { _edcEBSOptions = Nothing-  , _edcAccessPolicies = Nothing-  , _edcLogPublishingOptions = Nothing-  , _edcElasticsearchClusterConfig = Nothing-  , _edcSnapshotOptions = Nothing-  , _edcVPCOptions = Nothing-  , _edcAdvancedOptions = Nothing-  , _edcElasticsearchVersion = Nothing-  }+    { _edcEBSOptions = Nothing+    , _edcAccessPolicies = Nothing+    , _edcLogPublishingOptions = Nothing+    , _edcElasticsearchClusterConfig = Nothing+    , _edcSnapshotOptions = Nothing+    , _edcCognitoOptions = Nothing+    , _edcEncryptionAtRestOptions = Nothing+    , _edcVPCOptions = Nothing+    , _edcAdvancedOptions = Nothing+    , _edcElasticsearchVersion = Nothing+    }   -- | Specifies the @EBSOptions@ for the Elasticsearch domain. edcEBSOptions :: Lens' ElasticsearchDomainConfig (Maybe EBSOptionsStatus)-edcEBSOptions = lens _edcEBSOptions (\ s a -> s{_edcEBSOptions = a});+edcEBSOptions = lens _edcEBSOptions (\ s a -> s{_edcEBSOptions = a})  -- | IAM access policy as a JSON-formatted string. edcAccessPolicies :: Lens' ElasticsearchDomainConfig (Maybe AccessPoliciesStatus)-edcAccessPolicies = lens _edcAccessPolicies (\ s a -> s{_edcAccessPolicies = a});+edcAccessPolicies = lens _edcAccessPolicies (\ s a -> s{_edcAccessPolicies = a})  -- | Log publishing options for the given domain. edcLogPublishingOptions :: Lens' ElasticsearchDomainConfig (Maybe LogPublishingOptionsStatus)-edcLogPublishingOptions = lens _edcLogPublishingOptions (\ s a -> s{_edcLogPublishingOptions = a});+edcLogPublishingOptions = lens _edcLogPublishingOptions (\ s a -> s{_edcLogPublishingOptions = a})  -- | Specifies the @ElasticsearchClusterConfig@ for the Elasticsearch domain. edcElasticsearchClusterConfig :: Lens' ElasticsearchDomainConfig (Maybe ElasticsearchClusterConfigStatus)-edcElasticsearchClusterConfig = lens _edcElasticsearchClusterConfig (\ s a -> s{_edcElasticsearchClusterConfig = a});+edcElasticsearchClusterConfig = lens _edcElasticsearchClusterConfig (\ s a -> s{_edcElasticsearchClusterConfig = a})  -- | Specifies the @SnapshotOptions@ for the Elasticsearch domain. edcSnapshotOptions :: Lens' ElasticsearchDomainConfig (Maybe SnapshotOptionsStatus)-edcSnapshotOptions = lens _edcSnapshotOptions (\ s a -> s{_edcSnapshotOptions = a});+edcSnapshotOptions = lens _edcSnapshotOptions (\ s a -> s{_edcSnapshotOptions = a}) +-- | The @CognitoOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+edcCognitoOptions :: Lens' ElasticsearchDomainConfig (Maybe CognitoOptionsStatus)+edcCognitoOptions = lens _edcCognitoOptions (\ s a -> s{_edcCognitoOptions = a})++-- | Specifies the @EncryptionAtRestOptions@ for the Elasticsearch domain.+edcEncryptionAtRestOptions :: Lens' ElasticsearchDomainConfig (Maybe EncryptionAtRestOptionsStatus)+edcEncryptionAtRestOptions = lens _edcEncryptionAtRestOptions (\ s a -> s{_edcEncryptionAtRestOptions = a})+ -- | The @VPCOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html VPC Endpoints for Amazon Elasticsearch Service Domains> . edcVPCOptions :: Lens' ElasticsearchDomainConfig (Maybe VPCDerivedInfoStatus)-edcVPCOptions = lens _edcVPCOptions (\ s a -> s{_edcVPCOptions = a});+edcVPCOptions = lens _edcVPCOptions (\ s a -> s{_edcVPCOptions = a})  -- | Specifies the @AdvancedOptions@ for the domain. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuring Advanced Options> for more information. edcAdvancedOptions :: Lens' ElasticsearchDomainConfig (Maybe AdvancedOptionsStatus)-edcAdvancedOptions = lens _edcAdvancedOptions (\ s a -> s{_edcAdvancedOptions = a});+edcAdvancedOptions = lens _edcAdvancedOptions (\ s a -> s{_edcAdvancedOptions = a})  -- | String of format X.Y to specify version for the Elasticsearch domain. edcElasticsearchVersion :: Lens' ElasticsearchDomainConfig (Maybe ElasticsearchVersionStatus)-edcElasticsearchVersion = lens _edcElasticsearchVersion (\ s a -> s{_edcElasticsearchVersion = a});+edcElasticsearchVersion = lens _edcElasticsearchVersion (\ s a -> s{_edcElasticsearchVersion = a})  instance FromJSON ElasticsearchDomainConfig where         parseJSON@@ -544,6 +678,8 @@                      (x .:? "LogPublishingOptions")                      <*> (x .:? "ElasticsearchClusterConfig")                      <*> (x .:? "SnapshotOptions")+                     <*> (x .:? "CognitoOptions")+                     <*> (x .:? "EncryptionAtRestOptions")                      <*> (x .:? "VPCOptions")                      <*> (x .:? "AdvancedOptions")                      <*> (x .:? "ElasticsearchVersion"))@@ -563,6 +699,8 @@   , _edsLogPublishingOptions       :: !(Maybe (Map LogType LogPublishingOption))   , _edsCreated                    :: !(Maybe Bool)   , _edsSnapshotOptions            :: !(Maybe SnapshotOptions)+  , _edsCognitoOptions             :: !(Maybe CognitoOptions)+  , _edsEncryptionAtRestOptions    :: !(Maybe EncryptionAtRestOptions)   , _edsDeleted                    :: !(Maybe Bool)   , _edsVPCOptions                 :: !(Maybe VPCDerivedInfo)   , _edsEndpoints                  :: !(Maybe (Map Text Text))@@ -591,6 +729,10 @@ -- -- * 'edsSnapshotOptions' - Specifies the status of the @SnapshotOptions@ --+-- * 'edsCognitoOptions' - The @CognitoOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+--+-- * 'edsEncryptionAtRestOptions' - Specifies the status of the @EncryptionAtRestOptions@ .+-- -- * 'edsDeleted' - The domain deletion status. @True@ if a delete request has been received for the domain but resource cleanup is still in progress. @False@ if the domain has not been deleted. Once domain deletion is complete, the status of the domain is no longer returned. -- -- * 'edsVPCOptions' - The @VPCOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html VPC Endpoints for Amazon Elasticsearch Service Domains> .@@ -620,88 +762,98 @@     -> ElasticsearchDomainStatus elasticsearchDomainStatus pDomainId_ pDomainName_ pARN_ pElasticsearchClusterConfig_ =   ElasticsearchDomainStatus'-  { _edsEBSOptions = Nothing-  , _edsAccessPolicies = Nothing-  , _edsLogPublishingOptions = Nothing-  , _edsCreated = Nothing-  , _edsSnapshotOptions = Nothing-  , _edsDeleted = Nothing-  , _edsVPCOptions = Nothing-  , _edsEndpoints = Nothing-  , _edsProcessing = Nothing-  , _edsEndpoint = Nothing-  , _edsAdvancedOptions = Nothing-  , _edsElasticsearchVersion = Nothing-  , _edsDomainId = pDomainId_-  , _edsDomainName = pDomainName_-  , _edsARN = pARN_-  , _edsElasticsearchClusterConfig = pElasticsearchClusterConfig_-  }+    { _edsEBSOptions = Nothing+    , _edsAccessPolicies = Nothing+    , _edsLogPublishingOptions = Nothing+    , _edsCreated = Nothing+    , _edsSnapshotOptions = Nothing+    , _edsCognitoOptions = Nothing+    , _edsEncryptionAtRestOptions = Nothing+    , _edsDeleted = Nothing+    , _edsVPCOptions = Nothing+    , _edsEndpoints = Nothing+    , _edsProcessing = Nothing+    , _edsEndpoint = Nothing+    , _edsAdvancedOptions = Nothing+    , _edsElasticsearchVersion = Nothing+    , _edsDomainId = pDomainId_+    , _edsDomainName = pDomainName_+    , _edsARN = pARN_+    , _edsElasticsearchClusterConfig = pElasticsearchClusterConfig_+    }   -- | The @EBSOptions@ for the specified domain. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-ebs Configuring EBS-based Storage> for more information. edsEBSOptions :: Lens' ElasticsearchDomainStatus (Maybe EBSOptions)-edsEBSOptions = lens _edsEBSOptions (\ s a -> s{_edsEBSOptions = a});+edsEBSOptions = lens _edsEBSOptions (\ s a -> s{_edsEBSOptions = a})  -- | IAM access policy as a JSON-formatted string. edsAccessPolicies :: Lens' ElasticsearchDomainStatus (Maybe Text)-edsAccessPolicies = lens _edsAccessPolicies (\ s a -> s{_edsAccessPolicies = a});+edsAccessPolicies = lens _edsAccessPolicies (\ s a -> s{_edsAccessPolicies = a})  -- | Log publishing options for the given domain. edsLogPublishingOptions :: Lens' ElasticsearchDomainStatus (HashMap LogType LogPublishingOption)-edsLogPublishingOptions = lens _edsLogPublishingOptions (\ s a -> s{_edsLogPublishingOptions = a}) . _Default . _Map;+edsLogPublishingOptions = lens _edsLogPublishingOptions (\ s a -> s{_edsLogPublishingOptions = a}) . _Default . _Map  -- | The domain creation status. @True@ if the creation of an Elasticsearch domain is complete. @False@ if domain creation is still in progress. edsCreated :: Lens' ElasticsearchDomainStatus (Maybe Bool)-edsCreated = lens _edsCreated (\ s a -> s{_edsCreated = a});+edsCreated = lens _edsCreated (\ s a -> s{_edsCreated = a})  -- | Specifies the status of the @SnapshotOptions@ edsSnapshotOptions :: Lens' ElasticsearchDomainStatus (Maybe SnapshotOptions)-edsSnapshotOptions = lens _edsSnapshotOptions (\ s a -> s{_edsSnapshotOptions = a});+edsSnapshotOptions = lens _edsSnapshotOptions (\ s a -> s{_edsSnapshotOptions = a}) +-- | The @CognitoOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+edsCognitoOptions :: Lens' ElasticsearchDomainStatus (Maybe CognitoOptions)+edsCognitoOptions = lens _edsCognitoOptions (\ s a -> s{_edsCognitoOptions = a})++-- | Specifies the status of the @EncryptionAtRestOptions@ .+edsEncryptionAtRestOptions :: Lens' ElasticsearchDomainStatus (Maybe EncryptionAtRestOptions)+edsEncryptionAtRestOptions = lens _edsEncryptionAtRestOptions (\ s a -> s{_edsEncryptionAtRestOptions = a})+ -- | The domain deletion status. @True@ if a delete request has been received for the domain but resource cleanup is still in progress. @False@ if the domain has not been deleted. Once domain deletion is complete, the status of the domain is no longer returned. edsDeleted :: Lens' ElasticsearchDomainStatus (Maybe Bool)-edsDeleted = lens _edsDeleted (\ s a -> s{_edsDeleted = a});+edsDeleted = lens _edsDeleted (\ s a -> s{_edsDeleted = a})  -- | The @VPCOptions@ for the specified domain. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html VPC Endpoints for Amazon Elasticsearch Service Domains> . edsVPCOptions :: Lens' ElasticsearchDomainStatus (Maybe VPCDerivedInfo)-edsVPCOptions = lens _edsVPCOptions (\ s a -> s{_edsVPCOptions = a});+edsVPCOptions = lens _edsVPCOptions (\ s a -> s{_edsVPCOptions = a})  -- | Map containing the Elasticsearch domain endpoints used to submit index and search requests. Example @key, value@ : @'vpc','vpc-endpoint-h2dsd34efgyghrtguk5gt6j2foh4.us-east-1.es.amazonaws.com'@ . edsEndpoints :: Lens' ElasticsearchDomainStatus (HashMap Text Text)-edsEndpoints = lens _edsEndpoints (\ s a -> s{_edsEndpoints = a}) . _Default . _Map;+edsEndpoints = lens _edsEndpoints (\ s a -> s{_edsEndpoints = a}) . _Default . _Map  -- | The status of the Elasticsearch domain configuration. @True@ if Amazon Elasticsearch Service is processing configuration changes. @False@ if the configuration is active. edsProcessing :: Lens' ElasticsearchDomainStatus (Maybe Bool)-edsProcessing = lens _edsProcessing (\ s a -> s{_edsProcessing = a});+edsProcessing = lens _edsProcessing (\ s a -> s{_edsProcessing = a})  -- | The Elasticsearch domain endpoint that you use to submit index and search requests. edsEndpoint :: Lens' ElasticsearchDomainStatus (Maybe Text)-edsEndpoint = lens _edsEndpoint (\ s a -> s{_edsEndpoint = a});+edsEndpoint = lens _edsEndpoint (\ s a -> s{_edsEndpoint = a})  -- | Specifies the status of the @AdvancedOptions@ edsAdvancedOptions :: Lens' ElasticsearchDomainStatus (HashMap Text Text)-edsAdvancedOptions = lens _edsAdvancedOptions (\ s a -> s{_edsAdvancedOptions = a}) . _Default . _Map;+edsAdvancedOptions = lens _edsAdvancedOptions (\ s a -> s{_edsAdvancedOptions = a}) . _Default . _Map  -- | Undocumented member. edsElasticsearchVersion :: Lens' ElasticsearchDomainStatus (Maybe Text)-edsElasticsearchVersion = lens _edsElasticsearchVersion (\ s a -> s{_edsElasticsearchVersion = a});+edsElasticsearchVersion = lens _edsElasticsearchVersion (\ s a -> s{_edsElasticsearchVersion = a})  -- | The unique identifier for the specified Elasticsearch domain. edsDomainId :: Lens' ElasticsearchDomainStatus Text-edsDomainId = lens _edsDomainId (\ s a -> s{_edsDomainId = a});+edsDomainId = lens _edsDomainId (\ s a -> s{_edsDomainId = a})  -- | The name of an Elasticsearch domain. Domain names are unique across the domains owned by an account within an AWS region. Domain names start with a letter or number and can contain the following characters: a-z (lowercase), 0-9, and - (hyphen). edsDomainName :: Lens' ElasticsearchDomainStatus Text-edsDomainName = lens _edsDomainName (\ s a -> s{_edsDomainName = a});+edsDomainName = lens _edsDomainName (\ s a -> s{_edsDomainName = a})  -- | The Amazon resource name (ARN) of an Elasticsearch domain. See <http://docs.aws.amazon.com/IAM/latest/UserGuide/index.html?Using_Identifiers.html Identifiers for IAM Entities> in /Using AWS Identity and Access Management/ for more information. edsARN :: Lens' ElasticsearchDomainStatus Text-edsARN = lens _edsARN (\ s a -> s{_edsARN = a});+edsARN = lens _edsARN (\ s a -> s{_edsARN = a})  -- | The type and number of instances in the domain cluster. edsElasticsearchClusterConfig :: Lens' ElasticsearchDomainStatus ElasticsearchClusterConfig-edsElasticsearchClusterConfig = lens _edsElasticsearchClusterConfig (\ s a -> s{_edsElasticsearchClusterConfig = a});+edsElasticsearchClusterConfig = lens _edsElasticsearchClusterConfig (\ s a -> s{_edsElasticsearchClusterConfig = a})  instance FromJSON ElasticsearchDomainStatus where         parseJSON@@ -712,6 +864,8 @@                      (x .:? "LogPublishingOptions" .!= mempty)                      <*> (x .:? "Created")                      <*> (x .:? "SnapshotOptions")+                     <*> (x .:? "CognitoOptions")+                     <*> (x .:? "EncryptionAtRestOptions")                      <*> (x .:? "Deleted")                      <*> (x .:? "VPCOptions")                      <*> (x .:? "Endpoints" .!= mempty)@@ -756,11 +910,11 @@  -- | Specifies the Elasticsearch version for the specified Elasticsearch domain. evsOptions :: Lens' ElasticsearchVersionStatus Text-evsOptions = lens _evsOptions (\ s a -> s{_evsOptions = a});+evsOptions = lens _evsOptions (\ s a -> s{_evsOptions = a})  -- | Specifies the status of the Elasticsearch version options for the specified Elasticsearch domain. evsStatus :: Lens' ElasticsearchVersionStatus OptionStatus-evsStatus = lens _evsStatus (\ s a -> s{_evsStatus = a});+evsStatus = lens _evsStatus (\ s a -> s{_evsStatus = a})  instance FromJSON ElasticsearchVersionStatus where         parseJSON@@ -773,6 +927,102 @@  instance NFData ElasticsearchVersionStatus where +-- | Specifies the Encryption At Rest Options.+--+--+--+-- /See:/ 'encryptionAtRestOptions' smart constructor.+data EncryptionAtRestOptions = EncryptionAtRestOptions'+  { _earoEnabled  :: !(Maybe Bool)+  , _earoKMSKeyId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EncryptionAtRestOptions' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'earoEnabled' - Specifies the option to enable Encryption At Rest.+--+-- * 'earoKMSKeyId' - Specifies the KMS Key ID for Encryption At Rest options.+encryptionAtRestOptions+    :: EncryptionAtRestOptions+encryptionAtRestOptions =+  EncryptionAtRestOptions' {_earoEnabled = Nothing, _earoKMSKeyId = Nothing}+++-- | Specifies the option to enable Encryption At Rest.+earoEnabled :: Lens' EncryptionAtRestOptions (Maybe Bool)+earoEnabled = lens _earoEnabled (\ s a -> s{_earoEnabled = a})++-- | Specifies the KMS Key ID for Encryption At Rest options.+earoKMSKeyId :: Lens' EncryptionAtRestOptions (Maybe Text)+earoKMSKeyId = lens _earoKMSKeyId (\ s a -> s{_earoKMSKeyId = a})++instance FromJSON EncryptionAtRestOptions where+        parseJSON+          = withObject "EncryptionAtRestOptions"+              (\ x ->+                 EncryptionAtRestOptions' <$>+                   (x .:? "Enabled") <*> (x .:? "KmsKeyId"))++instance Hashable EncryptionAtRestOptions where++instance NFData EncryptionAtRestOptions where++instance ToJSON EncryptionAtRestOptions where+        toJSON EncryptionAtRestOptions'{..}+          = object+              (catMaybes+                 [("Enabled" .=) <$> _earoEnabled,+                  ("KmsKeyId" .=) <$> _earoKMSKeyId])++-- | Status of the Encryption At Rest options for the specified Elasticsearch domain.+--+--+--+-- /See:/ 'encryptionAtRestOptionsStatus' smart constructor.+data EncryptionAtRestOptionsStatus = EncryptionAtRestOptionsStatus'+  { _earosOptions :: !EncryptionAtRestOptions+  , _earosStatus  :: !OptionStatus+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'EncryptionAtRestOptionsStatus' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'earosOptions' - Specifies the Encryption At Rest options for the specified Elasticsearch domain.+--+-- * 'earosStatus' - Specifies the status of the Encryption At Rest options for the specified Elasticsearch domain.+encryptionAtRestOptionsStatus+    :: EncryptionAtRestOptions -- ^ 'earosOptions'+    -> OptionStatus -- ^ 'earosStatus'+    -> EncryptionAtRestOptionsStatus+encryptionAtRestOptionsStatus pOptions_ pStatus_ =+  EncryptionAtRestOptionsStatus'+    {_earosOptions = pOptions_, _earosStatus = pStatus_}+++-- | Specifies the Encryption At Rest options for the specified Elasticsearch domain.+earosOptions :: Lens' EncryptionAtRestOptionsStatus EncryptionAtRestOptions+earosOptions = lens _earosOptions (\ s a -> s{_earosOptions = a})++-- | Specifies the status of the Encryption At Rest options for the specified Elasticsearch domain.+earosStatus :: Lens' EncryptionAtRestOptionsStatus OptionStatus+earosStatus = lens _earosStatus (\ s a -> s{_earosStatus = a})++instance FromJSON EncryptionAtRestOptionsStatus where+        parseJSON+          = withObject "EncryptionAtRestOptionsStatus"+              (\ x ->+                 EncryptionAtRestOptionsStatus' <$>+                   (x .: "Options") <*> (x .: "Status"))++instance Hashable EncryptionAtRestOptionsStatus where++instance NFData EncryptionAtRestOptionsStatus where+ -- | InstanceCountLimits represents the limits on number of instances that be created in Amazon Elasticsearch for given InstanceType. -- --@@ -795,16 +1045,16 @@     :: InstanceCountLimits instanceCountLimits =   InstanceCountLimits'-  {_iclMaximumInstanceCount = Nothing, _iclMinimumInstanceCount = Nothing}+    {_iclMaximumInstanceCount = Nothing, _iclMinimumInstanceCount = Nothing}   -- | Undocumented member. iclMaximumInstanceCount :: Lens' InstanceCountLimits (Maybe Int)-iclMaximumInstanceCount = lens _iclMaximumInstanceCount (\ s a -> s{_iclMaximumInstanceCount = a});+iclMaximumInstanceCount = lens _iclMaximumInstanceCount (\ s a -> s{_iclMaximumInstanceCount = a})  -- | Undocumented member. iclMinimumInstanceCount :: Lens' InstanceCountLimits (Maybe Int)-iclMinimumInstanceCount = lens _iclMinimumInstanceCount (\ s a -> s{_iclMinimumInstanceCount = a});+iclMinimumInstanceCount = lens _iclMinimumInstanceCount (\ s a -> s{_iclMinimumInstanceCount = a})  instance FromJSON InstanceCountLimits where         parseJSON@@ -840,7 +1090,7 @@  -- | Undocumented member. ilInstanceCountLimits :: Lens' InstanceLimits (Maybe InstanceCountLimits)-ilInstanceCountLimits = lens _ilInstanceCountLimits (\ s a -> s{_ilInstanceCountLimits = a});+ilInstanceCountLimits = lens _ilInstanceCountLimits (\ s a -> s{_ilInstanceCountLimits = a})  instance FromJSON InstanceLimits where         parseJSON@@ -878,23 +1128,23 @@     :: Limits limits =   Limits'-  { _lInstanceLimits = Nothing-  , _lAdditionalLimits = Nothing-  , _lStorageTypes = Nothing-  }+    { _lInstanceLimits = Nothing+    , _lAdditionalLimits = Nothing+    , _lStorageTypes = Nothing+    }   -- | Undocumented member. lInstanceLimits :: Lens' Limits (Maybe InstanceLimits)-lInstanceLimits = lens _lInstanceLimits (\ s a -> s{_lInstanceLimits = a});+lInstanceLimits = lens _lInstanceLimits (\ s a -> s{_lInstanceLimits = a})  -- | List of additional limits that are specific to a given InstanceType and for each of it's @'InstanceRole' @ . lAdditionalLimits :: Lens' Limits [AdditionalLimit]-lAdditionalLimits = lens _lAdditionalLimits (\ s a -> s{_lAdditionalLimits = a}) . _Default . _Coerce;+lAdditionalLimits = lens _lAdditionalLimits (\ s a -> s{_lAdditionalLimits = a}) . _Default . _Coerce  -- | StorageType represents the list of storage related types and attributes that are available for given InstanceType. lStorageTypes :: Lens' Limits [StorageType]-lStorageTypes = lens _lStorageTypes (\ s a -> s{_lStorageTypes = a}) . _Default . _Coerce;+lStorageTypes = lens _lStorageTypes (\ s a -> s{_lStorageTypes = a}) . _Default . _Coerce  instance FromJSON Limits where         parseJSON@@ -934,16 +1184,16 @@     :: LogPublishingOption logPublishingOption =   LogPublishingOption'-  {_lpoEnabled = Nothing, _lpoCloudWatchLogsLogGroupARN = Nothing}+    {_lpoEnabled = Nothing, _lpoCloudWatchLogsLogGroupARN = Nothing}   -- | Specifies whether given log publishing option is enabled or not. lpoEnabled :: Lens' LogPublishingOption (Maybe Bool)-lpoEnabled = lens _lpoEnabled (\ s a -> s{_lpoEnabled = a});+lpoEnabled = lens _lpoEnabled (\ s a -> s{_lpoEnabled = a})  -- | Undocumented member. lpoCloudWatchLogsLogGroupARN :: Lens' LogPublishingOption (Maybe Text)-lpoCloudWatchLogsLogGroupARN = lens _lpoCloudWatchLogsLogGroupARN (\ s a -> s{_lpoCloudWatchLogsLogGroupARN = a});+lpoCloudWatchLogsLogGroupARN = lens _lpoCloudWatchLogsLogGroupARN (\ s a -> s{_lpoCloudWatchLogsLogGroupARN = a})  instance FromJSON LogPublishingOption where         parseJSON@@ -991,11 +1241,11 @@  -- | The status of the log publishing options for the Elasticsearch domain. See @OptionStatus@ for the status information that's included. lposStatus :: Lens' LogPublishingOptionsStatus (Maybe OptionStatus)-lposStatus = lens _lposStatus (\ s a -> s{_lposStatus = a});+lposStatus = lens _lposStatus (\ s a -> s{_lposStatus = a})  -- | The log publishing options configured for the Elasticsearch domain. lposOptions :: Lens' LogPublishingOptionsStatus (HashMap LogType LogPublishingOption)-lposOptions = lens _lposOptions (\ s a -> s{_lposOptions = a}) . _Default . _Map;+lposOptions = lens _lposOptions (\ s a -> s{_lposOptions = a}) . _Default . _Map  instance FromJSON LogPublishingOptionsStatus where         parseJSON@@ -1042,33 +1292,33 @@     -> OptionStatus optionStatus pCreationDate_ pUpdateDate_ pState_ =   OptionStatus'-  { _osPendingDeletion = Nothing-  , _osUpdateVersion = Nothing-  , _osCreationDate = _Time # pCreationDate_-  , _osUpdateDate = _Time # pUpdateDate_-  , _osState = pState_-  }+    { _osPendingDeletion = Nothing+    , _osUpdateVersion = Nothing+    , _osCreationDate = _Time # pCreationDate_+    , _osUpdateDate = _Time # pUpdateDate_+    , _osState = pState_+    }   -- | Indicates whether the Elasticsearch domain is being deleted. osPendingDeletion :: Lens' OptionStatus (Maybe Bool)-osPendingDeletion = lens _osPendingDeletion (\ s a -> s{_osPendingDeletion = a});+osPendingDeletion = lens _osPendingDeletion (\ s a -> s{_osPendingDeletion = a})  -- | Specifies the latest version for the entity. osUpdateVersion :: Lens' OptionStatus (Maybe Natural)-osUpdateVersion = lens _osUpdateVersion (\ s a -> s{_osUpdateVersion = a}) . mapping _Nat;+osUpdateVersion = lens _osUpdateVersion (\ s a -> s{_osUpdateVersion = a}) . mapping _Nat  -- | Timestamp which tells the creation date for the entity. osCreationDate :: Lens' OptionStatus UTCTime-osCreationDate = lens _osCreationDate (\ s a -> s{_osCreationDate = a}) . _Time;+osCreationDate = lens _osCreationDate (\ s a -> s{_osCreationDate = a}) . _Time  -- | Timestamp which tells the last updated time for the entity. osUpdateDate :: Lens' OptionStatus UTCTime-osUpdateDate = lens _osUpdateDate (\ s a -> s{_osUpdateDate = a}) . _Time;+osUpdateDate = lens _osUpdateDate (\ s a -> s{_osUpdateDate = a}) . _Time  -- | Provides the @OptionState@ for the Elasticsearch domain. osState :: Lens' OptionStatus OptionState-osState = lens _osState (\ s a -> s{_osState = a});+osState = lens _osState (\ s a -> s{_osState = a})  instance FromJSON OptionStatus where         parseJSON@@ -1084,6 +1334,302 @@  instance NFData OptionStatus where +-- | Contains the specific price and frequency of a recurring charges for a reserved Elasticsearch instance, or for a reserved Elasticsearch instance offering.+--+--+--+-- /See:/ 'recurringCharge' smart constructor.+data RecurringCharge = RecurringCharge'+  { _rcRecurringChargeFrequency :: !(Maybe Text)+  , _rcRecurringChargeAmount    :: !(Maybe Double)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcRecurringChargeFrequency' - The frequency of the recurring charge.+--+-- * 'rcRecurringChargeAmount' - The monetary amount of the recurring charge.+recurringCharge+    :: RecurringCharge+recurringCharge =+  RecurringCharge'+    {_rcRecurringChargeFrequency = Nothing, _rcRecurringChargeAmount = Nothing}+++-- | The frequency of the recurring charge.+rcRecurringChargeFrequency :: Lens' RecurringCharge (Maybe Text)+rcRecurringChargeFrequency = lens _rcRecurringChargeFrequency (\ s a -> s{_rcRecurringChargeFrequency = a})++-- | The monetary amount of the recurring charge.+rcRecurringChargeAmount :: Lens' RecurringCharge (Maybe Double)+rcRecurringChargeAmount = lens _rcRecurringChargeAmount (\ s a -> s{_rcRecurringChargeAmount = a})++instance FromJSON RecurringCharge where+        parseJSON+          = withObject "RecurringCharge"+              (\ x ->+                 RecurringCharge' <$>+                   (x .:? "RecurringChargeFrequency") <*>+                     (x .:? "RecurringChargeAmount"))++instance Hashable RecurringCharge where++instance NFData RecurringCharge where++-- | Details of a reserved Elasticsearch instance.+--+--+--+-- /See:/ 'reservedElasticsearchInstance' smart constructor.+data ReservedElasticsearchInstance = ReservedElasticsearchInstance'+  { _reiState :: !(Maybe Text)+  , _reiCurrencyCode :: !(Maybe Text)+  , _reiStartTime :: !(Maybe POSIX)+  , _reiReservedElasticsearchInstanceOfferingId :: !(Maybe Text)+  , _reiReservedElasticsearchInstanceId :: !(Maybe Text)+  , _reiElasticsearchInstanceCount :: !(Maybe Int)+  , _reiReservationName :: !(Maybe Text)+  , _reiElasticsearchInstanceType :: !(Maybe ESPartitionInstanceType)+  , _reiRecurringCharges :: !(Maybe [RecurringCharge])+  , _reiUsagePrice :: !(Maybe Double)+  , _reiFixedPrice :: !(Maybe Double)+  , _reiDuration :: !(Maybe Int)+  , _reiPaymentOption :: !(Maybe ReservedElasticsearchInstancePaymentOption)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedElasticsearchInstance' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'reiState' - The state of the reserved Elasticsearch instance.+--+-- * 'reiCurrencyCode' - The currency code for the reserved Elasticsearch instance offering.+--+-- * 'reiStartTime' - The time the reservation started.+--+-- * 'reiReservedElasticsearchInstanceOfferingId' - The offering identifier.+--+-- * 'reiReservedElasticsearchInstanceId' - The unique identifier for the reservation.+--+-- * 'reiElasticsearchInstanceCount' - The number of Elasticsearch instances that have been reserved.+--+-- * 'reiReservationName' - The customer-specified identifier to track this reservation.+--+-- * 'reiElasticsearchInstanceType' - The Elasticsearch instance type offered by the reserved instance offering.+--+-- * 'reiRecurringCharges' - The charge to your account regardless of whether you are creating any domains using the instance offering.+--+-- * 'reiUsagePrice' - The rate you are charged for each hour for the domain that is using this reserved instance.+--+-- * 'reiFixedPrice' - The upfront fixed charge you will paid to purchase the specific reserved Elasticsearch instance offering.+--+-- * 'reiDuration' - The duration, in seconds, for which the Elasticsearch instance is reserved.+--+-- * 'reiPaymentOption' - The payment option as defined in the reserved Elasticsearch instance offering.+reservedElasticsearchInstance+    :: ReservedElasticsearchInstance+reservedElasticsearchInstance =+  ReservedElasticsearchInstance'+    { _reiState = Nothing+    , _reiCurrencyCode = Nothing+    , _reiStartTime = Nothing+    , _reiReservedElasticsearchInstanceOfferingId = Nothing+    , _reiReservedElasticsearchInstanceId = Nothing+    , _reiElasticsearchInstanceCount = Nothing+    , _reiReservationName = Nothing+    , _reiElasticsearchInstanceType = Nothing+    , _reiRecurringCharges = Nothing+    , _reiUsagePrice = Nothing+    , _reiFixedPrice = Nothing+    , _reiDuration = Nothing+    , _reiPaymentOption = Nothing+    }+++-- | The state of the reserved Elasticsearch instance.+reiState :: Lens' ReservedElasticsearchInstance (Maybe Text)+reiState = lens _reiState (\ s a -> s{_reiState = a})++-- | The currency code for the reserved Elasticsearch instance offering.+reiCurrencyCode :: Lens' ReservedElasticsearchInstance (Maybe Text)+reiCurrencyCode = lens _reiCurrencyCode (\ s a -> s{_reiCurrencyCode = a})++-- | The time the reservation started.+reiStartTime :: Lens' ReservedElasticsearchInstance (Maybe UTCTime)+reiStartTime = lens _reiStartTime (\ s a -> s{_reiStartTime = a}) . mapping _Time++-- | The offering identifier.+reiReservedElasticsearchInstanceOfferingId :: Lens' ReservedElasticsearchInstance (Maybe Text)+reiReservedElasticsearchInstanceOfferingId = lens _reiReservedElasticsearchInstanceOfferingId (\ s a -> s{_reiReservedElasticsearchInstanceOfferingId = a})++-- | The unique identifier for the reservation.+reiReservedElasticsearchInstanceId :: Lens' ReservedElasticsearchInstance (Maybe Text)+reiReservedElasticsearchInstanceId = lens _reiReservedElasticsearchInstanceId (\ s a -> s{_reiReservedElasticsearchInstanceId = a})++-- | The number of Elasticsearch instances that have been reserved.+reiElasticsearchInstanceCount :: Lens' ReservedElasticsearchInstance (Maybe Int)+reiElasticsearchInstanceCount = lens _reiElasticsearchInstanceCount (\ s a -> s{_reiElasticsearchInstanceCount = a})++-- | The customer-specified identifier to track this reservation.+reiReservationName :: Lens' ReservedElasticsearchInstance (Maybe Text)+reiReservationName = lens _reiReservationName (\ s a -> s{_reiReservationName = a})++-- | The Elasticsearch instance type offered by the reserved instance offering.+reiElasticsearchInstanceType :: Lens' ReservedElasticsearchInstance (Maybe ESPartitionInstanceType)+reiElasticsearchInstanceType = lens _reiElasticsearchInstanceType (\ s a -> s{_reiElasticsearchInstanceType = a})++-- | The charge to your account regardless of whether you are creating any domains using the instance offering.+reiRecurringCharges :: Lens' ReservedElasticsearchInstance [RecurringCharge]+reiRecurringCharges = lens _reiRecurringCharges (\ s a -> s{_reiRecurringCharges = a}) . _Default . _Coerce++-- | The rate you are charged for each hour for the domain that is using this reserved instance.+reiUsagePrice :: Lens' ReservedElasticsearchInstance (Maybe Double)+reiUsagePrice = lens _reiUsagePrice (\ s a -> s{_reiUsagePrice = a})++-- | The upfront fixed charge you will paid to purchase the specific reserved Elasticsearch instance offering.+reiFixedPrice :: Lens' ReservedElasticsearchInstance (Maybe Double)+reiFixedPrice = lens _reiFixedPrice (\ s a -> s{_reiFixedPrice = a})++-- | The duration, in seconds, for which the Elasticsearch instance is reserved.+reiDuration :: Lens' ReservedElasticsearchInstance (Maybe Int)+reiDuration = lens _reiDuration (\ s a -> s{_reiDuration = a})++-- | The payment option as defined in the reserved Elasticsearch instance offering.+reiPaymentOption :: Lens' ReservedElasticsearchInstance (Maybe ReservedElasticsearchInstancePaymentOption)+reiPaymentOption = lens _reiPaymentOption (\ s a -> s{_reiPaymentOption = a})++instance FromJSON ReservedElasticsearchInstance where+        parseJSON+          = withObject "ReservedElasticsearchInstance"+              (\ x ->+                 ReservedElasticsearchInstance' <$>+                   (x .:? "State") <*> (x .:? "CurrencyCode") <*>+                     (x .:? "StartTime")+                     <*> (x .:? "ReservedElasticsearchInstanceOfferingId")+                     <*> (x .:? "ReservedElasticsearchInstanceId")+                     <*> (x .:? "ElasticsearchInstanceCount")+                     <*> (x .:? "ReservationName")+                     <*> (x .:? "ElasticsearchInstanceType")+                     <*> (x .:? "RecurringCharges" .!= mempty)+                     <*> (x .:? "UsagePrice")+                     <*> (x .:? "FixedPrice")+                     <*> (x .:? "Duration")+                     <*> (x .:? "PaymentOption"))++instance Hashable ReservedElasticsearchInstance where++instance NFData ReservedElasticsearchInstance where++-- | Details of a reserved Elasticsearch instance offering.+--+--+--+-- /See:/ 'reservedElasticsearchInstanceOffering' smart constructor.+data ReservedElasticsearchInstanceOffering = ReservedElasticsearchInstanceOffering'+  { _reioCurrencyCode :: !(Maybe Text)+  , _reioReservedElasticsearchInstanceOfferingId :: !(Maybe Text)+  , _reioElasticsearchInstanceType :: !(Maybe ESPartitionInstanceType)+  , _reioRecurringCharges :: !(Maybe [RecurringCharge])+  , _reioUsagePrice :: !(Maybe Double)+  , _reioFixedPrice :: !(Maybe Double)+  , _reioDuration :: !(Maybe Int)+  , _reioPaymentOption :: !(Maybe ReservedElasticsearchInstancePaymentOption)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ReservedElasticsearchInstanceOffering' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'reioCurrencyCode' - The currency code for the reserved Elasticsearch instance offering.+--+-- * 'reioReservedElasticsearchInstanceOfferingId' - The Elasticsearch reserved instance offering identifier.+--+-- * 'reioElasticsearchInstanceType' - The Elasticsearch instance type offered by the reserved instance offering.+--+-- * 'reioRecurringCharges' - The charge to your account regardless of whether you are creating any domains using the instance offering.+--+-- * 'reioUsagePrice' - The rate you are charged for each hour the domain that is using the offering is running.+--+-- * 'reioFixedPrice' - The upfront fixed charge you will pay to purchase the specific reserved Elasticsearch instance offering.+--+-- * 'reioDuration' - The duration, in seconds, for which the offering will reserve the Elasticsearch instance.+--+-- * 'reioPaymentOption' - Payment option for the reserved Elasticsearch instance offering+reservedElasticsearchInstanceOffering+    :: ReservedElasticsearchInstanceOffering+reservedElasticsearchInstanceOffering =+  ReservedElasticsearchInstanceOffering'+    { _reioCurrencyCode = Nothing+    , _reioReservedElasticsearchInstanceOfferingId = Nothing+    , _reioElasticsearchInstanceType = Nothing+    , _reioRecurringCharges = Nothing+    , _reioUsagePrice = Nothing+    , _reioFixedPrice = Nothing+    , _reioDuration = Nothing+    , _reioPaymentOption = Nothing+    }+++-- | The currency code for the reserved Elasticsearch instance offering.+reioCurrencyCode :: Lens' ReservedElasticsearchInstanceOffering (Maybe Text)+reioCurrencyCode = lens _reioCurrencyCode (\ s a -> s{_reioCurrencyCode = a})++-- | The Elasticsearch reserved instance offering identifier.+reioReservedElasticsearchInstanceOfferingId :: Lens' ReservedElasticsearchInstanceOffering (Maybe Text)+reioReservedElasticsearchInstanceOfferingId = lens _reioReservedElasticsearchInstanceOfferingId (\ s a -> s{_reioReservedElasticsearchInstanceOfferingId = a})++-- | The Elasticsearch instance type offered by the reserved instance offering.+reioElasticsearchInstanceType :: Lens' ReservedElasticsearchInstanceOffering (Maybe ESPartitionInstanceType)+reioElasticsearchInstanceType = lens _reioElasticsearchInstanceType (\ s a -> s{_reioElasticsearchInstanceType = a})++-- | The charge to your account regardless of whether you are creating any domains using the instance offering.+reioRecurringCharges :: Lens' ReservedElasticsearchInstanceOffering [RecurringCharge]+reioRecurringCharges = lens _reioRecurringCharges (\ s a -> s{_reioRecurringCharges = a}) . _Default . _Coerce++-- | The rate you are charged for each hour the domain that is using the offering is running.+reioUsagePrice :: Lens' ReservedElasticsearchInstanceOffering (Maybe Double)+reioUsagePrice = lens _reioUsagePrice (\ s a -> s{_reioUsagePrice = a})++-- | The upfront fixed charge you will pay to purchase the specific reserved Elasticsearch instance offering.+reioFixedPrice :: Lens' ReservedElasticsearchInstanceOffering (Maybe Double)+reioFixedPrice = lens _reioFixedPrice (\ s a -> s{_reioFixedPrice = a})++-- | The duration, in seconds, for which the offering will reserve the Elasticsearch instance.+reioDuration :: Lens' ReservedElasticsearchInstanceOffering (Maybe Int)+reioDuration = lens _reioDuration (\ s a -> s{_reioDuration = a})++-- | Payment option for the reserved Elasticsearch instance offering+reioPaymentOption :: Lens' ReservedElasticsearchInstanceOffering (Maybe ReservedElasticsearchInstancePaymentOption)+reioPaymentOption = lens _reioPaymentOption (\ s a -> s{_reioPaymentOption = a})++instance FromJSON+           ReservedElasticsearchInstanceOffering+         where+        parseJSON+          = withObject "ReservedElasticsearchInstanceOffering"+              (\ x ->+                 ReservedElasticsearchInstanceOffering' <$>+                   (x .:? "CurrencyCode") <*>+                     (x .:? "ReservedElasticsearchInstanceOfferingId")+                     <*> (x .:? "ElasticsearchInstanceType")+                     <*> (x .:? "RecurringCharges" .!= mempty)+                     <*> (x .:? "UsagePrice")+                     <*> (x .:? "FixedPrice")+                     <*> (x .:? "Duration")+                     <*> (x .:? "PaymentOption"))++instance Hashable+           ReservedElasticsearchInstanceOffering+         where++instance NFData ReservedElasticsearchInstanceOffering+         where+ -- | Specifies the time, in UTC format, when the service takes a daily automated snapshot of the specified Elasticsearch domain. Default value is @0@ hours. -- --@@ -1106,7 +1652,7 @@  -- | Specifies the time, in UTC format, when the service takes a daily automated snapshot of the specified Elasticsearch domain. Default value is @0@ hours. soAutomatedSnapshotStartHour :: Lens' SnapshotOptions (Maybe Int)-soAutomatedSnapshotStartHour = lens _soAutomatedSnapshotStartHour (\ s a -> s{_soAutomatedSnapshotStartHour = a});+soAutomatedSnapshotStartHour = lens _soAutomatedSnapshotStartHour (\ s a -> s{_soAutomatedSnapshotStartHour = a})  instance FromJSON SnapshotOptions where         parseJSON@@ -1154,11 +1700,11 @@  -- | Specifies the daily snapshot options specified for the Elasticsearch domain. sosOptions :: Lens' SnapshotOptionsStatus SnapshotOptions-sosOptions = lens _sosOptions (\ s a -> s{_sosOptions = a});+sosOptions = lens _sosOptions (\ s a -> s{_sosOptions = a})  -- | Specifies the status of a daily automated snapshot. sosStatus :: Lens' SnapshotOptionsStatus OptionStatus-sosStatus = lens _sosStatus (\ s a -> s{_sosStatus = a});+sosStatus = lens _sosStatus (\ s a -> s{_sosStatus = a})  instance FromJSON SnapshotOptionsStatus where         parseJSON@@ -1196,23 +1742,23 @@     :: StorageType storageType =   StorageType'-  { _stStorageTypeLimits = Nothing-  , _stStorageSubTypeName = Nothing-  , _stStorageTypeName = Nothing-  }+    { _stStorageTypeLimits = Nothing+    , _stStorageSubTypeName = Nothing+    , _stStorageTypeName = Nothing+    }   -- | List of limits that are applicable for given storage type. stStorageTypeLimits :: Lens' StorageType [StorageTypeLimit]-stStorageTypeLimits = lens _stStorageTypeLimits (\ s a -> s{_stStorageTypeLimits = a}) . _Default . _Coerce;+stStorageTypeLimits = lens _stStorageTypeLimits (\ s a -> s{_stStorageTypeLimits = a}) . _Default . _Coerce  -- | Undocumented member. stStorageSubTypeName :: Lens' StorageType (Maybe Text)-stStorageSubTypeName = lens _stStorageSubTypeName (\ s a -> s{_stStorageSubTypeName = a});+stStorageSubTypeName = lens _stStorageSubTypeName (\ s a -> s{_stStorageSubTypeName = a})  -- | Undocumented member. stStorageTypeName :: Lens' StorageType (Maybe Text)-stStorageTypeName = lens _stStorageTypeName (\ s a -> s{_stStorageTypeName = a});+stStorageTypeName = lens _stStorageTypeName (\ s a -> s{_stStorageTypeName = a})  instance FromJSON StorageType where         parseJSON@@ -1253,11 +1799,11 @@  -- | Name of storage limits that are applicable for given storage type. If @'StorageType' @ is ebs, following storage options are applicable     * MinimumVolumeSizeMinimum amount of volume size that is applicable for given storage type.It can be empty if it is not applicable.     * MaximumVolumeSizeMaximum amount of volume size that is applicable for given storage type.It can be empty if it is not applicable.     * MaximumIopsMaximum amount of Iops that is applicable for given storage type.It can be empty if it is not applicable.     * MinimumIopsMinimum amount of Iops that is applicable for given storage type.It can be empty if it is not applicable. stlLimitName :: Lens' StorageTypeLimit (Maybe Text)-stlLimitName = lens _stlLimitName (\ s a -> s{_stlLimitName = a});+stlLimitName = lens _stlLimitName (\ s a -> s{_stlLimitName = a})  -- | Values for the @'StorageTypeLimit$LimitName' @ . stlLimitValues :: Lens' StorageTypeLimit [Text]-stlLimitValues = lens _stlLimitValues (\ s a -> s{_stlLimitValues = a}) . _Default . _Coerce;+stlLimitValues = lens _stlLimitValues (\ s a -> s{_stlLimitValues = a}) . _Default . _Coerce  instance FromJSON StorageTypeLimit where         parseJSON@@ -1298,11 +1844,11 @@  -- | Specifies the @TagKey@ , the name of the tag. Tag keys must be unique for the Elasticsearch domain to which they are attached. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  -- | Specifies the @TagValue@ , the value assigned to the corresponding tag key. Tag values can be null and do not have to be unique in a tag set. For example, you can have a key value pair in a tag set of @project : Trinity@ and @cost-center : Trinity@ tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  instance FromJSON Tag where         parseJSON@@ -1348,28 +1894,28 @@     :: VPCDerivedInfo vpcDerivedInfo =   VPCDerivedInfo'-  { _vdiSecurityGroupIds = Nothing-  , _vdiSubnetIds = Nothing-  , _vdiVPCId = Nothing-  , _vdiAvailabilityZones = Nothing-  }+    { _vdiSecurityGroupIds = Nothing+    , _vdiSubnetIds = Nothing+    , _vdiVPCId = Nothing+    , _vdiAvailabilityZones = Nothing+    }   -- | Specifies the security groups for VPC endpoint. vdiSecurityGroupIds :: Lens' VPCDerivedInfo [Text]-vdiSecurityGroupIds = lens _vdiSecurityGroupIds (\ s a -> s{_vdiSecurityGroupIds = a}) . _Default . _Coerce;+vdiSecurityGroupIds = lens _vdiSecurityGroupIds (\ s a -> s{_vdiSecurityGroupIds = a}) . _Default . _Coerce  -- | Specifies the subnets for VPC endpoint. vdiSubnetIds :: Lens' VPCDerivedInfo [Text]-vdiSubnetIds = lens _vdiSubnetIds (\ s a -> s{_vdiSubnetIds = a}) . _Default . _Coerce;+vdiSubnetIds = lens _vdiSubnetIds (\ s a -> s{_vdiSubnetIds = a}) . _Default . _Coerce  -- | The VPC Id for the Elasticsearch domain. Exists only if the domain was created with VPCOptions. vdiVPCId :: Lens' VPCDerivedInfo (Maybe Text)-vdiVPCId = lens _vdiVPCId (\ s a -> s{_vdiVPCId = a});+vdiVPCId = lens _vdiVPCId (\ s a -> s{_vdiVPCId = a})  -- | The availability zones for the Elasticsearch domain. Exists only if the domain was created with VPCOptions. vdiAvailabilityZones :: Lens' VPCDerivedInfo [Text]-vdiAvailabilityZones = lens _vdiAvailabilityZones (\ s a -> s{_vdiAvailabilityZones = a}) . _Default . _Coerce;+vdiAvailabilityZones = lens _vdiAvailabilityZones (\ s a -> s{_vdiAvailabilityZones = a}) . _Default . _Coerce  instance FromJSON VPCDerivedInfo where         parseJSON@@ -1413,11 +1959,11 @@  -- | Specifies the VPC options for the specified Elasticsearch domain. vdisOptions :: Lens' VPCDerivedInfoStatus VPCDerivedInfo-vdisOptions = lens _vdisOptions (\ s a -> s{_vdisOptions = a});+vdisOptions = lens _vdisOptions (\ s a -> s{_vdisOptions = a})  -- | Specifies the status of the VPC options for the specified Elasticsearch domain. vdisStatus :: Lens' VPCDerivedInfoStatus OptionStatus-vdisStatus = lens _vdisStatus (\ s a -> s{_vdisStatus = a});+vdisStatus = lens _vdisStatus (\ s a -> s{_vdisStatus = a})  instance FromJSON VPCDerivedInfoStatus where         parseJSON@@ -1455,11 +2001,11 @@  -- | Specifies the security groups for VPC endpoint. voSecurityGroupIds :: Lens' VPCOptions [Text]-voSecurityGroupIds = lens _voSecurityGroupIds (\ s a -> s{_voSecurityGroupIds = a}) . _Default . _Coerce;+voSecurityGroupIds = lens _voSecurityGroupIds (\ s a -> s{_voSecurityGroupIds = a}) . _Default . _Coerce  -- | Specifies the subnets for VPC endpoint. voSubnetIds :: Lens' VPCOptions [Text]-voSubnetIds = lens _voSubnetIds (\ s a -> s{_voSubnetIds = a}) . _Default . _Coerce;+voSubnetIds = lens _voSubnetIds (\ s a -> s{_voSubnetIds = a}) . _Default . _Coerce  instance Hashable VPCOptions where 

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -232,6 +232,36 @@  instance FromJSON OptionState where     parseJSON = parseJSONText "OptionState"++data ReservedElasticsearchInstancePaymentOption+  = AllUpfront+  | NoUpfront+  | PartialUpfront+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ReservedElasticsearchInstancePaymentOption where+    parser = takeLowerText >>= \case+        "all_upfront" -> pure AllUpfront+        "no_upfront" -> pure NoUpfront+        "partial_upfront" -> pure PartialUpfront+        e -> fromTextError $ "Failure parsing ReservedElasticsearchInstancePaymentOption from value: '" <> e+           <> "'. Accepted values: all_upfront, no_upfront, partial_upfront"++instance ToText ReservedElasticsearchInstancePaymentOption where+    toText = \case+        AllUpfront -> "ALL_UPFRONT"+        NoUpfront -> "NO_UPFRONT"+        PartialUpfront -> "PARTIAL_UPFRONT"++instance Hashable     ReservedElasticsearchInstancePaymentOption+instance NFData       ReservedElasticsearchInstancePaymentOption+instance ToByteString ReservedElasticsearchInstancePaymentOption+instance ToQuery      ReservedElasticsearchInstancePaymentOption+instance ToHeader     ReservedElasticsearchInstancePaymentOption++instance FromJSON ReservedElasticsearchInstancePaymentOption where+    parseJSON = parseJSONText "ReservedElasticsearchInstancePaymentOption"  -- | The type of EBS volume, standard, gp2, or io1. See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-ebs Configuring EBS-based Storage> for more information. --

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.UpdateElasticsearchDomainConfig--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -32,6 +32,7 @@     , uedcLogPublishingOptions     , uedcElasticsearchClusterConfig     , uedcSnapshotOptions+    , uedcCognitoOptions     , uedcVPCOptions     , uedcAdvancedOptions     , uedcDomainName@@ -62,6 +63,7 @@   , _uedcLogPublishingOptions :: !(Maybe (Map LogType LogPublishingOption))   , _uedcElasticsearchClusterConfig :: !(Maybe ElasticsearchClusterConfig)   , _uedcSnapshotOptions :: !(Maybe SnapshotOptions)+  , _uedcCognitoOptions :: !(Maybe CognitoOptions)   , _uedcVPCOptions :: !(Maybe VPCOptions)   , _uedcAdvancedOptions :: !(Maybe (Map Text Text))   , _uedcDomainName :: !Text@@ -82,6 +84,8 @@ -- -- * 'uedcSnapshotOptions' - Option to set the time, in UTC format, for the daily automated snapshot. Default value is @0@ hours. --+-- * 'uedcCognitoOptions' - Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+-- -- * 'uedcVPCOptions' - Options to specify the subnets and security groups for VPC endpoint. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html#es-creating-vpc Creating a VPC> in /VPC Endpoints for Amazon Elasticsearch Service Domains/ -- -- * 'uedcAdvancedOptions' - Modifies the advanced option to allow references to indices in an HTTP request body. Must be @false@ when configuring access to individual sub-resources. By default, the value is @true@ . See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuration Advanced Options> for more information.@@ -92,48 +96,53 @@     -> UpdateElasticsearchDomainConfig updateElasticsearchDomainConfig pDomainName_ =   UpdateElasticsearchDomainConfig'-  { _uedcEBSOptions = Nothing-  , _uedcAccessPolicies = Nothing-  , _uedcLogPublishingOptions = Nothing-  , _uedcElasticsearchClusterConfig = Nothing-  , _uedcSnapshotOptions = Nothing-  , _uedcVPCOptions = Nothing-  , _uedcAdvancedOptions = Nothing-  , _uedcDomainName = pDomainName_-  }+    { _uedcEBSOptions = Nothing+    , _uedcAccessPolicies = Nothing+    , _uedcLogPublishingOptions = Nothing+    , _uedcElasticsearchClusterConfig = Nothing+    , _uedcSnapshotOptions = Nothing+    , _uedcCognitoOptions = Nothing+    , _uedcVPCOptions = Nothing+    , _uedcAdvancedOptions = Nothing+    , _uedcDomainName = pDomainName_+    }   -- | Specify the type and size of the EBS volume that you want to use. uedcEBSOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe EBSOptions)-uedcEBSOptions = lens _uedcEBSOptions (\ s a -> s{_uedcEBSOptions = a});+uedcEBSOptions = lens _uedcEBSOptions (\ s a -> s{_uedcEBSOptions = a})  -- | IAM access policy as a JSON-formatted string. uedcAccessPolicies :: Lens' UpdateElasticsearchDomainConfig (Maybe Text)-uedcAccessPolicies = lens _uedcAccessPolicies (\ s a -> s{_uedcAccessPolicies = a});+uedcAccessPolicies = lens _uedcAccessPolicies (\ s a -> s{_uedcAccessPolicies = a})  -- | Map of @LogType@ and @LogPublishingOption@ , each containing options to publish a given type of Elasticsearch log. uedcLogPublishingOptions :: Lens' UpdateElasticsearchDomainConfig (HashMap LogType LogPublishingOption)-uedcLogPublishingOptions = lens _uedcLogPublishingOptions (\ s a -> s{_uedcLogPublishingOptions = a}) . _Default . _Map;+uedcLogPublishingOptions = lens _uedcLogPublishingOptions (\ s a -> s{_uedcLogPublishingOptions = a}) . _Default . _Map  -- | The type and number of instances to instantiate for the domain cluster. uedcElasticsearchClusterConfig :: Lens' UpdateElasticsearchDomainConfig (Maybe ElasticsearchClusterConfig)-uedcElasticsearchClusterConfig = lens _uedcElasticsearchClusterConfig (\ s a -> s{_uedcElasticsearchClusterConfig = a});+uedcElasticsearchClusterConfig = lens _uedcElasticsearchClusterConfig (\ s a -> s{_uedcElasticsearchClusterConfig = a})  -- | Option to set the time, in UTC format, for the daily automated snapshot. Default value is @0@ hours. uedcSnapshotOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe SnapshotOptions)-uedcSnapshotOptions = lens _uedcSnapshotOptions (\ s a -> s{_uedcSnapshotOptions = a});+uedcSnapshotOptions = lens _uedcSnapshotOptions (\ s a -> s{_uedcSnapshotOptions = a}) +-- | Options to specify the Cognito user and identity pools for Kibana authentication. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-cognito-auth.html Amazon Cognito Authentication for Kibana> .+uedcCognitoOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe CognitoOptions)+uedcCognitoOptions = lens _uedcCognitoOptions (\ s a -> s{_uedcCognitoOptions = a})+ -- | Options to specify the subnets and security groups for VPC endpoint. For more information, see <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-vpc.html#es-creating-vpc Creating a VPC> in /VPC Endpoints for Amazon Elasticsearch Service Domains/ uedcVPCOptions :: Lens' UpdateElasticsearchDomainConfig (Maybe VPCOptions)-uedcVPCOptions = lens _uedcVPCOptions (\ s a -> s{_uedcVPCOptions = a});+uedcVPCOptions = lens _uedcVPCOptions (\ s a -> s{_uedcVPCOptions = a})  -- | Modifies the advanced option to allow references to indices in an HTTP request body. Must be @false@ when configuring access to individual sub-resources. By default, the value is @true@ . See <http://docs.aws.amazon.com/elasticsearch-service/latest/developerguide/es-createupdatedomains.html#es-createdomain-configure-advanced-options Configuration Advanced Options> for more information. uedcAdvancedOptions :: Lens' UpdateElasticsearchDomainConfig (HashMap Text Text)-uedcAdvancedOptions = lens _uedcAdvancedOptions (\ s a -> s{_uedcAdvancedOptions = a}) . _Default . _Map;+uedcAdvancedOptions = lens _uedcAdvancedOptions (\ s a -> s{_uedcAdvancedOptions = a}) . _Default . _Map  -- | The name of the Elasticsearch domain that you are updating. uedcDomainName :: Lens' UpdateElasticsearchDomainConfig Text-uedcDomainName = lens _uedcDomainName (\ s a -> s{_uedcDomainName = a});+uedcDomainName = lens _uedcDomainName (\ s a -> s{_uedcDomainName = a})  instance AWSRequest UpdateElasticsearchDomainConfig          where@@ -166,6 +175,7 @@                   ("ElasticsearchClusterConfig" .=) <$>                     _uedcElasticsearchClusterConfig,                   ("SnapshotOptions" .=) <$> _uedcSnapshotOptions,+                  ("CognitoOptions" .=) <$> _uedcCognitoOptions,                   ("VPCOptions" .=) <$> _uedcVPCOptions,                   ("AdvancedOptions" .=) <$> _uedcAdvancedOptions]) @@ -203,18 +213,18 @@     -> UpdateElasticsearchDomainConfigResponse updateElasticsearchDomainConfigResponse pResponseStatus_ pDomainConfig_ =   UpdateElasticsearchDomainConfigResponse'-  { _uedcrsResponseStatus = pResponseStatus_-  , _uedcrsDomainConfig = pDomainConfig_-  }+    { _uedcrsResponseStatus = pResponseStatus_+    , _uedcrsDomainConfig = pDomainConfig_+    }   -- | -- | The response status code. uedcrsResponseStatus :: Lens' UpdateElasticsearchDomainConfigResponse Int-uedcrsResponseStatus = lens _uedcrsResponseStatus (\ s a -> s{_uedcrsResponseStatus = a});+uedcrsResponseStatus = lens _uedcrsResponseStatus (\ s a -> s{_uedcrsResponseStatus = a})  -- | The status of the updated Elasticsearch domain. uedcrsDomainConfig :: Lens' UpdateElasticsearchDomainConfigResponse ElasticsearchDomainConfig-uedcrsDomainConfig = lens _uedcrsDomainConfig (\ s a -> s{_uedcrsDomainConfig = a});+uedcrsDomainConfig = lens _uedcrsDomainConfig (\ s a -> s{_uedcrsDomainConfig = a})  instance NFData            UpdateElasticsearchDomainConfigResponse

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.ElasticSearch.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -3,7 +3,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.ElasticSearch--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -3,7 +3,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.ElasticSearch.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.ElasticSearch--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -58,6 +58,12 @@ --         , requestDeleteElasticsearchDomain $ --             deleteElasticsearchDomain --+--         , requestPurchaseReservedElasticsearchInstanceOffering $+--             purchaseReservedElasticsearchInstanceOffering+--+--         , requestDescribeReservedElasticsearchInstances $+--             describeReservedElasticsearchInstances+-- --         , requestUpdateElasticsearchDomainConfig $ --             updateElasticsearchDomainConfig --@@ -67,6 +73,9 @@ --         , requestAddTags $ --             addTags --+--         , requestDescribeReservedElasticsearchInstanceOfferings $+--             describeReservedElasticsearchInstanceOfferings+-- --         , requestListTags $ --             listTags --@@ -103,6 +112,12 @@ --         , responseDeleteElasticsearchDomain $ --             deleteElasticsearchDomainResponse --+--         , responsePurchaseReservedElasticsearchInstanceOffering $+--             purchaseReservedElasticsearchInstanceOfferingResponse+--+--         , responseDescribeReservedElasticsearchInstances $+--             describeReservedElasticsearchInstancesResponse+-- --         , responseUpdateElasticsearchDomainConfig $ --             updateElasticsearchDomainConfigResponse --@@ -112,6 +127,9 @@ --         , responseAddTags $ --             addTagsResponse --+--         , responseDescribeReservedElasticsearchInstanceOfferings $+--             describeReservedElasticsearchInstanceOfferingsResponse+-- --         , responseListTags $ --             listTagsResponse --@@ -170,6 +188,16 @@     "DeleteElasticsearchDomain"     "fixture/DeleteElasticsearchDomain.yaml" +requestPurchaseReservedElasticsearchInstanceOffering :: PurchaseReservedElasticsearchInstanceOffering -> TestTree+requestPurchaseReservedElasticsearchInstanceOffering = req+    "PurchaseReservedElasticsearchInstanceOffering"+    "fixture/PurchaseReservedElasticsearchInstanceOffering.yaml"++requestDescribeReservedElasticsearchInstances :: DescribeReservedElasticsearchInstances -> TestTree+requestDescribeReservedElasticsearchInstances = req+    "DescribeReservedElasticsearchInstances"+    "fixture/DescribeReservedElasticsearchInstances.yaml"+ requestUpdateElasticsearchDomainConfig :: UpdateElasticsearchDomainConfig -> TestTree requestUpdateElasticsearchDomainConfig = req     "UpdateElasticsearchDomainConfig"@@ -185,6 +213,11 @@     "AddTags"     "fixture/AddTags.yaml" +requestDescribeReservedElasticsearchInstanceOfferings :: DescribeReservedElasticsearchInstanceOfferings -> TestTree+requestDescribeReservedElasticsearchInstanceOfferings = req+    "DescribeReservedElasticsearchInstanceOfferings"+    "fixture/DescribeReservedElasticsearchInstanceOfferings.yaml"+ requestListTags :: ListTags -> TestTree requestListTags = req     "ListTags"@@ -262,6 +295,20 @@     elasticSearch     (Proxy :: Proxy DeleteElasticsearchDomain) +responsePurchaseReservedElasticsearchInstanceOffering :: PurchaseReservedElasticsearchInstanceOfferingResponse -> TestTree+responsePurchaseReservedElasticsearchInstanceOffering = res+    "PurchaseReservedElasticsearchInstanceOfferingResponse"+    "fixture/PurchaseReservedElasticsearchInstanceOfferingResponse.proto"+    elasticSearch+    (Proxy :: Proxy PurchaseReservedElasticsearchInstanceOffering)++responseDescribeReservedElasticsearchInstances :: DescribeReservedElasticsearchInstancesResponse -> TestTree+responseDescribeReservedElasticsearchInstances = res+    "DescribeReservedElasticsearchInstancesResponse"+    "fixture/DescribeReservedElasticsearchInstancesResponse.proto"+    elasticSearch+    (Proxy :: Proxy DescribeReservedElasticsearchInstances)+ responseUpdateElasticsearchDomainConfig :: UpdateElasticsearchDomainConfigResponse -> TestTree responseUpdateElasticsearchDomainConfig = res     "UpdateElasticsearchDomainConfigResponse"@@ -282,6 +329,13 @@     "fixture/AddTagsResponse.proto"     elasticSearch     (Proxy :: Proxy AddTags)++responseDescribeReservedElasticsearchInstanceOfferings :: DescribeReservedElasticsearchInstanceOfferingsResponse -> TestTree+responseDescribeReservedElasticsearchInstanceOfferings = res+    "DescribeReservedElasticsearchInstanceOfferingsResponse"+    "fixture/DescribeReservedElasticsearchInstanceOfferingsResponse.proto"+    elasticSearch+    (Proxy :: Proxy DescribeReservedElasticsearchInstanceOfferings)  responseListTags :: ListTagsResponse -> TestTree responseListTags = res