amazonka-elasticache 0.3.6 → 1.0.0

raw patch · 48 files changed

+10093/−7915 lines, 48 filesdep +amazonka-elasticachedep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

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

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +29/−12
• amazonka-elasticache.cabal +58/−16
• gen/Network/AWS/ElastiCache.hs +654/−87
• gen/Network/AWS/ElastiCache/AddTagsToResource.hs +76/−99
• gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs +120/−104
• gen/Network/AWS/ElastiCache/CopySnapshot.hs +94/−82
• gen/Network/AWS/ElastiCache/CreateCacheCluster.hs +389/−338
• gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs +113/−100
• gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs +106/−90
• gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs +111/−97
• gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs +381/−333
• gen/Network/AWS/ElastiCache/CreateSnapshot.hs +97/−83
• gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs +106/−92
• gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs +72/−65
• gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs +69/−62
• gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs +71/−65
• gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs +117/−104
• gen/Network/AWS/ElastiCache/DeleteSnapshot.hs +92/−78
• gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs +159/−140
• gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs +161/−140
• gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs +135/−114
• gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs +155/−134
• gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs +139/−119
• gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs +132/−113
• gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs +138/−110
• gen/Network/AWS/ElastiCache/DescribeEvents.hs +172/−152
• gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs +140/−119
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs +205/−166
• gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs +207/−161
• gen/Network/AWS/ElastiCache/DescribeSnapshots.hs +149/−129
• gen/Network/AWS/ElastiCache/ListTagsForResource.hs +66/−90
• gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs +361/−325
• gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs +75/−96
• gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs +107/−92
• gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs +280/−266
• gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs +109/−92
• gen/Network/AWS/ElastiCache/RebootCacheCluster.hs +104/−89
• gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs +72/−96
• gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs +89/−110
• gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs +114/−100
• gen/Network/AWS/ElastiCache/Types.hs +644/−2983
• gen/Network/AWS/ElastiCache/Types/Product.hs +2436/−0
• gen/Network/AWS/ElastiCache/Types/Sum.hs +129/−0
• gen/Network/AWS/ElastiCache/Waiters.hs +129/−72
• test/Main.hs +21/−0
• test/Test/AWS/ElastiCache.hs +26/−0
• test/Test/AWS/ElastiCache/Internal.hs +16/−0
• test/Test/AWS/Gen/ElastiCache.hs +668/−0

@@ -1,27 +1,44 @@ # Amazon ElastiCache SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -ElastiCache is a web service that makes it easy to deploy, operate, and scale-an in-memory cache in the cloud. The service improves the performance of web-applications by allowing you to retrieve information from fast, managed,-in-memory caches, instead of relying entirely on slower disk-based databases.-Amazon ElastiCache automatically detects and replaces failed nodes, reducing-the overhead associated with self-managed infrastructures and provides a-resilient system that mitigates the risk of overloaded databases, which slow-website and application load times. Through integration with Amazon-CloudWatch, Amazon ElastiCache provides enhanced visibility into key-performance metrics associated with your Memcached or Redis nodes.+Amazon ElastiCache +Amazon ElastiCache is a web service that makes it easier to set up,+operate, and scale a distributed cache in the cloud.++With ElastiCache, customers gain all of the benefits of a+high-performance, in-memory cache with far less of the administrative+burden of launching and managing a distributed cache. The service makes+setup, scaling, and cluster failure handling much simpler than in a+self-managed cache deployment.++In addition, through integration with Amazon CloudWatch, customers get+enhanced visibility into the key performance statistics associated with+their cache and can receive alarms if a part of their cache runs hot.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-elasticache) and the [AWS API Reference](http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,34 +1,46 @@ name:                  amazonka-elasticache-version:               0.3.6+version:               1.0.0 synopsis:              Amazon ElastiCache SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    ElastiCache is a web service that makes it easy to deploy, operate, and scale-    an in-memory cache in the cloud. The service improves the performance of web-    applications by allowing you to retrieve information from fast, managed,-    in-memory caches, instead of relying entirely on slower disk-based databases.-    Amazon ElastiCache automatically detects and replaces failed nodes, reducing-    the overhead associated with self-managed infrastructures and provides a-    resilient system that mitigates the risk of overloaded databases, which slow-    website and application load times. Through integration with Amazon-    CloudWatch, Amazon ElastiCache provides enhanced visibility into key-    performance metrics associated with your Memcached or Redis nodes.+    Amazon ElastiCache +    Amazon ElastiCache is a web service that makes it easier to set up,+    operate, and scale a distributed cache in the cloud.++    With ElastiCache, customers gain all of the benefits of a+    high-performance, in-memory cache with far less of the administrative+    burden of launching and managing a distributed cache. The service makes+    setup, scaling, and cluster failure handling much simpler than in a+    self-managed cache deployment.++    In addition, through integration with Amazon CloudWatch, customers get+    enhanced visibility into the key performance statistics associated with+    their cache and can receive alarms if a part of their cache runs hot.     .-    /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.ElastiCache" and the <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -83,7 +95,37 @@         , Network.AWS.ElastiCache.Waiters      other-modules:+          Network.AWS.ElastiCache.Types.Product+        , Network.AWS.ElastiCache.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-elasticache-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.ElastiCache+        , Test.AWS.Gen.ElastiCache+        , Test.AWS.ElastiCache.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-elasticache == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,103 +1,670 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | ElastiCache is a web service that makes it easy to deploy, operate, and scale--- an in-memory cache in the cloud. The service improves the performance of web--- applications by allowing you to retrieve information from fast, managed,--- in-memory caches, instead of relying entirely on slower disk-based databases.--- Amazon ElastiCache automatically detects and replaces failed nodes, reducing--- the overhead associated with self-managed infrastructures and provides a--- resilient system that mitigates the risk of overloaded databases, which slow--- website and application load times. Through integration with Amazon--- CloudWatch, Amazon ElastiCache provides enhanced visibility into key--- performance metrics associated with your Memcached or Redis nodes.+-- Amazon ElastiCache+--+-- Amazon ElastiCache is a web service that makes it easier to set up,+-- operate, and scale a distributed cache in the cloud.+--+-- With ElastiCache, customers gain all of the benefits of a+-- high-performance, in-memory cache with far less of the administrative+-- burden of launching and managing a distributed cache. The service makes+-- setup, scaling, and cluster failure handling much simpler than in a+-- self-managed cache deployment.+--+-- In addition, through integration with Amazon CloudWatch, customers get+-- enhanced visibility into the key performance statistics associated with+-- their cache and can receive alarms if a part of their cache runs hot.+--+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.ElastiCache-    ( module Network.AWS.ElastiCache.AddTagsToResource-    , module Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress-    , module Network.AWS.ElastiCache.CopySnapshot-    , module Network.AWS.ElastiCache.CreateCacheCluster-    , module Network.AWS.ElastiCache.CreateCacheParameterGroup-    , module Network.AWS.ElastiCache.CreateCacheSecurityGroup-    , module Network.AWS.ElastiCache.CreateCacheSubnetGroup+    (+    -- * Service+      ElastiCache++    -- * Errors+    -- $errors++    -- ** CacheSubnetGroupAlreadyExistsFault+    , _CacheSubnetGroupAlreadyExistsFault++    -- ** CacheSubnetGroupInUse+    , _CacheSubnetGroupInUse++    -- ** CacheSecurityGroupNotFoundFault+    , _CacheSecurityGroupNotFoundFault++    -- ** ReservedCacheNodeAlreadyExistsFault+    , _ReservedCacheNodeAlreadyExistsFault++    -- ** AuthorizationAlreadyExistsFault+    , _AuthorizationAlreadyExistsFault++    -- ** ReservedCacheNodeQuotaExceededFault+    , _ReservedCacheNodeQuotaExceededFault++    -- ** CacheSubnetGroupQuotaExceededFault+    , _CacheSubnetGroupQuotaExceededFault++    -- ** ReplicationGroupNotFoundFault+    , _ReplicationGroupNotFoundFault++    -- ** ReservedCacheNodesOfferingNotFoundFault+    , _ReservedCacheNodesOfferingNotFoundFault++    -- ** TagQuotaPerResourceExceeded+    , _TagQuotaPerResourceExceeded++    -- ** InvalidSubnet+    , _InvalidSubnet++    -- ** SnapshotNotFoundFault+    , _SnapshotNotFoundFault++    -- ** InsufficientCacheClusterCapacityFault+    , _InsufficientCacheClusterCapacityFault++    -- ** InvalidSnapshotStateFault+    , _InvalidSnapshotStateFault++    -- ** SnapshotAlreadyExistsFault+    , _SnapshotAlreadyExistsFault++    -- ** TagNotFoundFault+    , _TagNotFoundFault++    -- ** SnapshotQuotaExceededFault+    , _SnapshotQuotaExceededFault++    -- ** CacheParameterGroupAlreadyExistsFault+    , _CacheParameterGroupAlreadyExistsFault++    -- ** NodeQuotaForClusterExceededFault+    , _NodeQuotaForClusterExceededFault++    -- ** SnapshotFeatureNotSupportedFault+    , _SnapshotFeatureNotSupportedFault++    -- ** CacheSubnetGroupNotFoundFault+    , _CacheSubnetGroupNotFoundFault++    -- ** ReservedCacheNodeNotFoundFault+    , _ReservedCacheNodeNotFoundFault++    -- ** InvalidParameterValueException+    , _InvalidParameterValueException++    -- ** InvalidVPCNetworkStateFault+    , _InvalidVPCNetworkStateFault++    -- ** CacheClusterNotFoundFault+    , _CacheClusterNotFoundFault++    -- ** InvalidReplicationGroupStateFault+    , _InvalidReplicationGroupStateFault++    -- ** ReplicationGroupAlreadyExistsFault+    , _ReplicationGroupAlreadyExistsFault++    -- ** SubnetInUse+    , _SubnetInUse++    -- ** CacheClusterAlreadyExistsFault+    , _CacheClusterAlreadyExistsFault++    -- ** ClusterQuotaForCustomerExceededFault+    , _ClusterQuotaForCustomerExceededFault++    -- ** AuthorizationNotFoundFault+    , _AuthorizationNotFoundFault++    -- ** CacheSecurityGroupQuotaExceededFault+    , _CacheSecurityGroupQuotaExceededFault++    -- ** InvalidCacheClusterStateFault+    , _InvalidCacheClusterStateFault++    -- ** CacheParameterGroupQuotaExceededFault+    , _CacheParameterGroupQuotaExceededFault++    -- ** NodeQuotaForCustomerExceededFault+    , _NodeQuotaForCustomerExceededFault++    -- ** CacheSubnetQuotaExceededFault+    , _CacheSubnetQuotaExceededFault++    -- ** CacheParameterGroupNotFoundFault+    , _CacheParameterGroupNotFoundFault++    -- ** InvalidParameterCombinationException+    , _InvalidParameterCombinationException++    -- ** InvalidARNFault+    , _InvalidARNFault++    -- ** InvalidCacheParameterGroupStateFault+    , _InvalidCacheParameterGroupStateFault++    -- ** CacheSecurityGroupAlreadyExistsFault+    , _CacheSecurityGroupAlreadyExistsFault++    -- ** InvalidCacheSecurityGroupStateFault+    , _InvalidCacheSecurityGroupStateFault++    -- * Waiters+    -- $waiters++    -- ** CacheClusterAvailable+    , cacheClusterAvailable++    -- ** CacheClusterDeleted+    , cacheClusterDeleted++    -- ** ReplicationGroupDeleted+    , replicationGroupDeleted++    -- ** ReplicationGroupAvailable+    , replicationGroupAvailable++    -- * Operations+    -- $operations++    -- ** DeleteCacheSecurityGroup+    , module Network.AWS.ElastiCache.DeleteCacheSecurityGroup++    -- ** CreateReplicationGroup     , module Network.AWS.ElastiCache.CreateReplicationGroup-    , module Network.AWS.ElastiCache.CreateSnapshot++    -- ** DeleteCacheCluster     , module Network.AWS.ElastiCache.DeleteCacheCluster-    , module Network.AWS.ElastiCache.DeleteCacheParameterGroup-    , module Network.AWS.ElastiCache.DeleteCacheSecurityGroup-    , module Network.AWS.ElastiCache.DeleteCacheSubnetGroup++    -- ** RebootCacheCluster+    , module Network.AWS.ElastiCache.RebootCacheCluster++    -- ** RevokeCacheSecurityGroupIngress+    , module Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress++    -- ** DescribeEvents (Paginated)+    , module Network.AWS.ElastiCache.DescribeEvents++    -- ** DescribeEngineDefaultParameters (Paginated)+    , module Network.AWS.ElastiCache.DescribeEngineDefaultParameters++    -- ** ModifyCacheParameterGroup+    , module Network.AWS.ElastiCache.ModifyCacheParameterGroup++    -- ** CreateCacheCluster+    , module Network.AWS.ElastiCache.CreateCacheCluster++    -- ** ListTagsForResource+    , module Network.AWS.ElastiCache.ListTagsForResource++    -- ** DeleteReplicationGroup     , module Network.AWS.ElastiCache.DeleteReplicationGroup-    , module Network.AWS.ElastiCache.DeleteSnapshot++    -- ** PurchaseReservedCacheNodesOffering+    , module Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering++    -- ** DescribeCacheClusters (Paginated)     , module Network.AWS.ElastiCache.DescribeCacheClusters-    , module Network.AWS.ElastiCache.DescribeCacheEngineVersions-    , module Network.AWS.ElastiCache.DescribeCacheParameterGroups++    -- ** ModifyReplicationGroup+    , module Network.AWS.ElastiCache.ModifyReplicationGroup++    -- ** RemoveTagsFromResource+    , module Network.AWS.ElastiCache.RemoveTagsFromResource++    -- ** DescribeCacheParameters (Paginated)     , module Network.AWS.ElastiCache.DescribeCacheParameters-    , module Network.AWS.ElastiCache.DescribeCacheSecurityGroups++    -- ** DescribeCacheSubnetGroups (Paginated)     , module Network.AWS.ElastiCache.DescribeCacheSubnetGroups-    , module Network.AWS.ElastiCache.DescribeEngineDefaultParameters-    , module Network.AWS.ElastiCache.DescribeEvents++    -- ** CreateCacheSecurityGroup+    , module Network.AWS.ElastiCache.CreateCacheSecurityGroup++    -- ** AddTagsToResource+    , module Network.AWS.ElastiCache.AddTagsToResource++    -- ** AuthorizeCacheSecurityGroupIngress+    , module Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress++    -- ** CopySnapshot+    , module Network.AWS.ElastiCache.CopySnapshot++    -- ** CreateCacheSubnetGroup+    , module Network.AWS.ElastiCache.CreateCacheSubnetGroup++    -- ** DescribeCacheParameterGroups (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheParameterGroups++    -- ** ResetCacheParameterGroup+    , module Network.AWS.ElastiCache.ResetCacheParameterGroup++    -- ** DescribeSnapshots (Paginated)+    , module Network.AWS.ElastiCache.DescribeSnapshots++    -- ** DescribeReservedCacheNodesOfferings (Paginated)+    , module Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings++    -- ** DeleteSnapshot+    , module Network.AWS.ElastiCache.DeleteSnapshot++    -- ** DescribeReplicationGroups (Paginated)     , module Network.AWS.ElastiCache.DescribeReplicationGroups++    -- ** ModifyCacheSubnetGroup+    , module Network.AWS.ElastiCache.ModifyCacheSubnetGroup++    -- ** CreateSnapshot+    , module Network.AWS.ElastiCache.CreateSnapshot++    -- ** DescribeCacheSecurityGroups (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheSecurityGroups++    -- ** DeleteCacheParameterGroup+    , module Network.AWS.ElastiCache.DeleteCacheParameterGroup++    -- ** DescribeReservedCacheNodes (Paginated)     , module Network.AWS.ElastiCache.DescribeReservedCacheNodes-    , module Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings-    , module Network.AWS.ElastiCache.DescribeSnapshots-    , module Network.AWS.ElastiCache.ListTagsForResource++    -- ** DescribeCacheEngineVersions (Paginated)+    , module Network.AWS.ElastiCache.DescribeCacheEngineVersions++    -- ** ModifyCacheCluster     , module Network.AWS.ElastiCache.ModifyCacheCluster-    , module Network.AWS.ElastiCache.ModifyCacheParameterGroup-    , module Network.AWS.ElastiCache.ModifyCacheSubnetGroup-    , module Network.AWS.ElastiCache.ModifyReplicationGroup-    , module Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering-    , module Network.AWS.ElastiCache.RebootCacheCluster-    , module Network.AWS.ElastiCache.RemoveTagsFromResource-    , module Network.AWS.ElastiCache.ResetCacheParameterGroup-    , module Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress-    , module Network.AWS.ElastiCache.Types-    , module Network.AWS.ElastiCache.Waiters++    -- ** CreateCacheParameterGroup+    , module Network.AWS.ElastiCache.CreateCacheParameterGroup++    -- ** DeleteCacheSubnetGroup+    , module Network.AWS.ElastiCache.DeleteCacheSubnetGroup++    -- * Types++    -- ** AZMode+    , AZMode (..)++    -- ** AutomaticFailoverStatus+    , AutomaticFailoverStatus (..)++    -- ** PendingAutomaticFailoverStatus+    , PendingAutomaticFailoverStatus (..)++    -- ** SourceType+    , SourceType (..)++    -- ** AvailabilityZone+    , AvailabilityZone+    , availabilityZone+    , azName++    -- ** CacheCluster+    , CacheCluster+    , cacheCluster+    , ccCacheNodeType+    , ccEngineVersion+    , ccCacheNodes+    , ccCacheClusterCreateTime+    , ccAutoMinorVersionUpgrade+    , ccSecurityGroups+    , ccNotificationConfiguration+    , ccSnapshotWindow+    , ccCacheClusterId+    , ccConfigurationEndpoint+    , ccEngine+    , ccCacheSecurityGroups+    , ccClientDownloadLandingPage+    , ccPreferredMaintenanceWindow+    , ccCacheSubnetGroupName+    , ccCacheClusterStatus+    , ccPreferredAvailabilityZone+    , ccCacheParameterGroup+    , ccSnapshotRetentionLimit+    , ccReplicationGroupId+    , ccPendingModifiedValues+    , ccNumCacheNodes++    -- ** CacheEngineVersion+    , CacheEngineVersion+    , cacheEngineVersion+    , cevCacheEngineDescription+    , cevCacheParameterGroupFamily+    , cevEngineVersion+    , cevCacheEngineVersionDescription+    , cevEngine++    -- ** CacheNode+    , CacheNode+    , cacheNode+    , cnSourceCacheNodeId+    , cnParameterGroupStatus+    , cnCacheNodeCreateTime+    , cnCustomerAvailabilityZone+    , cnCacheNodeId+    , cnCacheNodeStatus+    , cnEndpoint++    -- ** CacheNodeTypeSpecificParameter+    , CacheNodeTypeSpecificParameter+    , cacheNodeTypeSpecificParameter+    , cntspCacheNodeTypeSpecificValues+    , cntspMinimumEngineVersion+    , cntspSource+    , cntspIsModifiable+    , cntspAllowedValues+    , cntspDataType+    , cntspParameterName+    , cntspDescription++    -- ** CacheNodeTypeSpecificValue+    , CacheNodeTypeSpecificValue+    , cacheNodeTypeSpecificValue+    , cntsvCacheNodeType+    , cntsvValue++    -- ** CacheParameterGroup+    , CacheParameterGroup+    , cacheParameterGroup+    , cpgCacheParameterGroupFamily+    , cpgCacheParameterGroupName+    , cpgDescription++    -- ** CacheParameterGroupNameMessage+    , CacheParameterGroupNameMessage+    , cacheParameterGroupNameMessage+    , cpgnmCacheParameterGroupName++    -- ** CacheParameterGroupStatus+    , CacheParameterGroupStatus+    , cacheParameterGroupStatus+    , cpgsCacheParameterGroupName+    , cpgsCacheNodeIdsToReboot+    , cpgsParameterApplyStatus++    -- ** CacheSecurityGroup+    , CacheSecurityGroup+    , cacheSecurityGroup+    , csgCacheSecurityGroupName+    , csgOwnerId+    , csgEC2SecurityGroups+    , csgDescription++    -- ** CacheSecurityGroupMembership+    , CacheSecurityGroupMembership+    , cacheSecurityGroupMembership+    , csgmStatus+    , csgmCacheSecurityGroupName++    -- ** CacheSubnetGroup+    , CacheSubnetGroup+    , cacheSubnetGroup+    , csgVPCId+    , csgSubnets+    , csgCacheSubnetGroupName+    , csgCacheSubnetGroupDescription++    -- ** EC2SecurityGroup+    , EC2SecurityGroup+    , ec2SecurityGroup+    , esgStatus+    , esgEC2SecurityGroupOwnerId+    , esgEC2SecurityGroupName++    -- ** Endpoint+    , Endpoint+    , endpoint+    , eAddress+    , ePort++    -- ** EngineDefaults+    , EngineDefaults+    , engineDefaults+    , edCacheParameterGroupFamily+    , edCacheNodeTypeSpecificParameters+    , edParameters+    , edMarker++    -- ** Event+    , Event+    , event+    , eSourceType+    , eSourceIdentifier+    , eDate+    , eMessage++    -- ** NodeGroup+    , NodeGroup+    , nodeGroup+    , ngStatus+    , ngPrimaryEndpoint+    , ngNodeGroupMembers+    , ngNodeGroupId++    -- ** NodeGroupMember+    , NodeGroupMember+    , nodeGroupMember+    , ngmCacheClusterId+    , ngmCacheNodeId+    , ngmPreferredAvailabilityZone+    , ngmCurrentRole+    , ngmReadEndpoint++    -- ** NodeSnapshot+    , NodeSnapshot+    , nodeSnapshot+    , nsCacheNodeCreateTime+    , nsCacheNodeId+    , nsSnapshotCreateTime+    , nsCacheSize++    -- ** NotificationConfiguration+    , NotificationConfiguration+    , notificationConfiguration+    , ncTopicStatus+    , ncTopicARN++    -- ** Parameter+    , Parameter+    , parameter+    , pParameterValue+    , pMinimumEngineVersion+    , pSource+    , pIsModifiable+    , pAllowedValues+    , pDataType+    , pParameterName+    , pDescription++    -- ** ParameterNameValue+    , ParameterNameValue+    , parameterNameValue+    , pnvParameterValue+    , pnvParameterName++    -- ** PendingModifiedValues+    , PendingModifiedValues+    , pendingModifiedValues+    , pmvEngineVersion+    , pmvCacheNodeIdsToRemove+    , pmvNumCacheNodes++    -- ** RecurringCharge+    , RecurringCharge+    , recurringCharge+    , rcRecurringChargeFrequency+    , rcRecurringChargeAmount++    -- ** ReplicationGroup+    , ReplicationGroup+    , replicationGroup+    , rgNodeGroups+    , rgStatus+    , rgSnapshottingClusterId+    , rgMemberClusters+    , rgReplicationGroupId+    , rgPendingModifiedValues+    , rgDescription+    , rgAutomaticFailover++    -- ** ReplicationGroupPendingModifiedValues+    , ReplicationGroupPendingModifiedValues+    , replicationGroupPendingModifiedValues+    , rgpmvPrimaryClusterId+    , rgpmvAutomaticFailoverStatus++    -- ** ReservedCacheNode+    , ReservedCacheNode+    , reservedCacheNode+    , rcnCacheNodeType+    , rcnState+    , rcnProductDescription+    , rcnStartTime+    , rcnCacheNodeCount+    , rcnReservedCacheNodeId+    , rcnOfferingType+    , rcnUsagePrice+    , rcnRecurringCharges+    , rcnFixedPrice+    , rcnDuration+    , rcnReservedCacheNodesOfferingId++    -- ** ReservedCacheNodesOffering+    , ReservedCacheNodesOffering+    , reservedCacheNodesOffering+    , rcnoCacheNodeType+    , rcnoProductDescription+    , rcnoOfferingType+    , rcnoUsagePrice+    , rcnoRecurringCharges+    , rcnoFixedPrice+    , rcnoDuration+    , rcnoReservedCacheNodesOfferingId++    -- ** SecurityGroupMembership+    , SecurityGroupMembership+    , securityGroupMembership+    , sgmStatus+    , sgmSecurityGroupId++    -- ** Snapshot+    , Snapshot+    , snapshot+    , sCacheNodeType+    , sEngineVersion+    , sCacheClusterCreateTime+    , sAutoMinorVersionUpgrade+    , sCacheParameterGroupName+    , sSnapshotStatus+    , sSnapshotWindow+    , sVPCId+    , sCacheClusterId+    , sEngine+    , sPreferredMaintenanceWindow+    , sTopicARN+    , sCacheSubnetGroupName+    , sNodeSnapshots+    , sPreferredAvailabilityZone+    , sSnapshotRetentionLimit+    , sSnapshotName+    , sSnapshotSource+    , sNumCacheNodes+    , sPort++    -- ** Subnet+    , Subnet+    , subnet+    , sSubnetIdentifier+    , sSubnetAvailabilityZone++    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey++    -- ** TagListMessage+    , TagListMessage+    , tagListMessage+    , tlmTagList     ) where -import Network.AWS.ElastiCache.AddTagsToResource-import Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress-import Network.AWS.ElastiCache.CopySnapshot-import Network.AWS.ElastiCache.CreateCacheCluster-import Network.AWS.ElastiCache.CreateCacheParameterGroup-import Network.AWS.ElastiCache.CreateCacheSecurityGroup-import Network.AWS.ElastiCache.CreateCacheSubnetGroup-import Network.AWS.ElastiCache.CreateReplicationGroup-import Network.AWS.ElastiCache.CreateSnapshot-import Network.AWS.ElastiCache.DeleteCacheCluster-import Network.AWS.ElastiCache.DeleteCacheParameterGroup-import Network.AWS.ElastiCache.DeleteCacheSecurityGroup-import Network.AWS.ElastiCache.DeleteCacheSubnetGroup-import Network.AWS.ElastiCache.DeleteReplicationGroup-import Network.AWS.ElastiCache.DeleteSnapshot-import Network.AWS.ElastiCache.DescribeCacheClusters-import Network.AWS.ElastiCache.DescribeCacheEngineVersions-import Network.AWS.ElastiCache.DescribeCacheParameterGroups-import Network.AWS.ElastiCache.DescribeCacheParameters-import Network.AWS.ElastiCache.DescribeCacheSecurityGroups-import Network.AWS.ElastiCache.DescribeCacheSubnetGroups-import Network.AWS.ElastiCache.DescribeEngineDefaultParameters-import Network.AWS.ElastiCache.DescribeEvents-import Network.AWS.ElastiCache.DescribeReplicationGroups-import Network.AWS.ElastiCache.DescribeReservedCacheNodes-import Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings-import Network.AWS.ElastiCache.DescribeSnapshots-import Network.AWS.ElastiCache.ListTagsForResource-import Network.AWS.ElastiCache.ModifyCacheCluster-import Network.AWS.ElastiCache.ModifyCacheParameterGroup-import Network.AWS.ElastiCache.ModifyCacheSubnetGroup-import Network.AWS.ElastiCache.ModifyReplicationGroup-import Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering-import Network.AWS.ElastiCache.RebootCacheCluster-import Network.AWS.ElastiCache.RemoveTagsFromResource-import Network.AWS.ElastiCache.ResetCacheParameterGroup-import Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress-import Network.AWS.ElastiCache.Types-import Network.AWS.ElastiCache.Waiters+import           Network.AWS.ElastiCache.AddTagsToResource+import           Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress+import           Network.AWS.ElastiCache.CopySnapshot+import           Network.AWS.ElastiCache.CreateCacheCluster+import           Network.AWS.ElastiCache.CreateCacheParameterGroup+import           Network.AWS.ElastiCache.CreateCacheSecurityGroup+import           Network.AWS.ElastiCache.CreateCacheSubnetGroup+import           Network.AWS.ElastiCache.CreateReplicationGroup+import           Network.AWS.ElastiCache.CreateSnapshot+import           Network.AWS.ElastiCache.DeleteCacheCluster+import           Network.AWS.ElastiCache.DeleteCacheParameterGroup+import           Network.AWS.ElastiCache.DeleteCacheSecurityGroup+import           Network.AWS.ElastiCache.DeleteCacheSubnetGroup+import           Network.AWS.ElastiCache.DeleteReplicationGroup+import           Network.AWS.ElastiCache.DeleteSnapshot+import           Network.AWS.ElastiCache.DescribeCacheClusters+import           Network.AWS.ElastiCache.DescribeCacheEngineVersions+import           Network.AWS.ElastiCache.DescribeCacheParameterGroups+import           Network.AWS.ElastiCache.DescribeCacheParameters+import           Network.AWS.ElastiCache.DescribeCacheSecurityGroups+import           Network.AWS.ElastiCache.DescribeCacheSubnetGroups+import           Network.AWS.ElastiCache.DescribeEngineDefaultParameters+import           Network.AWS.ElastiCache.DescribeEvents+import           Network.AWS.ElastiCache.DescribeReplicationGroups+import           Network.AWS.ElastiCache.DescribeReservedCacheNodes+import           Network.AWS.ElastiCache.DescribeReservedCacheNodesOfferings+import           Network.AWS.ElastiCache.DescribeSnapshots+import           Network.AWS.ElastiCache.ListTagsForResource+import           Network.AWS.ElastiCache.ModifyCacheCluster+import           Network.AWS.ElastiCache.ModifyCacheParameterGroup+import           Network.AWS.ElastiCache.ModifyCacheSubnetGroup+import           Network.AWS.ElastiCache.ModifyReplicationGroup+import           Network.AWS.ElastiCache.PurchaseReservedCacheNodesOffering+import           Network.AWS.ElastiCache.RebootCacheCluster+import           Network.AWS.ElastiCache.RemoveTagsFromResource+import           Network.AWS.ElastiCache.ResetCacheParameterGroup+import           Network.AWS.ElastiCache.RevokeCacheSecurityGroupIngress+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Waiters++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'ElastiCache'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,134 +1,111 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.AddTagsToResource--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /AddTagsToResource/ action adds up to 10 cost allocation tags to the named--- resource. A /cost allocation tag/ is a key-value pair where the key and value--- are case-sensitive. Cost allocation tags can be used to categorize and track--- your AWS costs.+-- The /AddTagsToResource/ action adds up to 10 cost allocation tags to the+-- named resource. A /cost allocation tag/ is a key-value pair where the+-- key and value are case-sensitive. Cost allocation tags can be used to+-- categorize and track your AWS costs. -- -- When you apply tags to your ElastiCache resources, AWS generates a cost--- allocation report as a comma-separated value (CSV) file with your usage and--- costs aggregated by your tags. You can apply tags that represent business--- categories (such as cost centers, application names, or owners) to organize--- your costs across multiple services. For more information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Tagging.html Using CostAllocation Tags in Amazon ElastiCache>.+-- allocation report as a comma-separated value (CSV) file with your usage+-- and costs aggregated by your tags. You can apply tags that represent+-- business categories (such as cost centers, application names, or owners)+-- to organize your costs across multiple services. For more information,+-- see+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/Tagging.html Using Cost Allocation Tags in Amazon ElastiCache>. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_AddTagsToResource.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_AddTagsToResource.html AWS API Reference> for AddTagsToResource. module Network.AWS.ElastiCache.AddTagsToResource     (-    -- * Request-      AddTagsToResource-    -- ** Request constructor-    , addTagsToResource-    -- ** Request lenses+    -- * Creating a Request+      addTagsToResource+    , AddTagsToResource+    -- * Request Lenses     , attrResourceName     , attrTags -    -- * Response-    , AddTagsToResourceResponse-    -- ** Response constructor-    , addTagsToResourceResponse-    -- ** Response lenses-    , attrrTagList+    -- * Destructuring the Response+    , tagListMessage+    , TagListMessage+    -- * Response Lenses+    , tlmTagList     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data AddTagsToResource = AddTagsToResource-    { _attrResourceName :: Text-    , _attrTags         :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AddTagsToResource' constructor.+-- | Represents the input of an /AddTagsToResource/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'addTagsToResource' smart constructor.+data AddTagsToResource = AddTagsToResource'+    { _attrResourceName :: !Text+    , _attrTags         :: ![Tag]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AddTagsToResource' with the minimum fields required to make a request. ----- * 'attrResourceName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'attrTags' @::@ ['Tag']+-- * 'attrResourceName' ---addTagsToResource :: Text -- ^ 'attrResourceName'-                  -> AddTagsToResource-addTagsToResource p1 = AddTagsToResource-    { _attrResourceName = p1-    , _attrTags         = mempty+-- * 'attrTags'+addTagsToResource+    :: Text -- ^ 'attrResourceName'+    -> AddTagsToResource+addTagsToResource pResourceName_ =+    AddTagsToResource'+    { _attrResourceName = pResourceName_+    , _attrTags = mempty     } --- | The name of the resource to which the tags are to be added, for example 'arn:aws:elasticache:us-west-2:0123456789:cluster:myCluster'.+-- | The name of the resource to which the tags are to be added, for example+-- 'arn:aws:elasticache:us-west-2:0123456789:cluster:myCluster'. attrResourceName :: Lens' AddTagsToResource Text-attrResourceName = lens _attrResourceName (\s a -> s { _attrResourceName = a })+attrResourceName = lens _attrResourceName (\ s a -> s{_attrResourceName = a});  -- | A list of cost allocation tags to be added to this resource. A tag is a -- key-value pair. A tag key must be accompanied by a tag value. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\s a -> s { _attrTags = a }) . _List--newtype AddTagsToResourceResponse = AddTagsToResourceResponse-    { _attrrTagList :: List "member" Tag-    } deriving (Eq, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList AddTagsToResourceResponse where-    type Item AddTagsToResourceResponse = Tag--    fromList = AddTagsToResourceResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _attrrTagList+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce; --- | 'AddTagsToResourceResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'attrrTagList' @::@ ['Tag']----addTagsToResourceResponse :: AddTagsToResourceResponse-addTagsToResourceResponse = AddTagsToResourceResponse-    { _attrrTagList = mempty-    }+instance AWSRequest AddTagsToResource where+        type Sv AddTagsToResource = ElastiCache+        type Rs AddTagsToResource = TagListMessage+        request = postQuery+        response+          = receiveXMLWrapper "AddTagsToResourceResult"+              (\ s h x -> parseXML x) --- | A list of cost allocation tags as key-value pairs.-attrrTagList :: Lens' AddTagsToResourceResponse [Tag]-attrrTagList = lens _attrrTagList (\s a -> s { _attrrTagList = a }) . _List+instance ToHeaders AddTagsToResource where+        toHeaders = const mempty  instance ToPath AddTagsToResource where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddTagsToResource where-    toQuery AddTagsToResource{..} = mconcat-        [ "ResourceName" =? _attrResourceName-        , "Tags"         =? _attrTags-        ]--instance ToHeaders AddTagsToResource--instance AWSRequest AddTagsToResource where-    type Sv AddTagsToResource = ElastiCache-    type Rs AddTagsToResource = AddTagsToResourceResponse--    request  = post "AddTagsToResource"-    response = xmlResponse--instance FromXML AddTagsToResourceResponse where-    parseXML = withElement "AddTagsToResourceResult" $ \x -> AddTagsToResourceResponse-        <$> x .@? "TagList" .!@ mempty+        toQuery AddTagsToResource'{..}+          = mconcat+              ["Action" =: ("AddTagsToResource" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "ResourceName" =: _attrResourceName,+               "Tags" =: toQueryList "Tag" _attrTags]

@@ -1,146 +1,162 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /AuthorizeCacheSecurityGroupIngress/ action allows network ingress to a--- cache security group. Applications using ElastiCache must be running on--- Amazon EC2, and Amazon EC2 security groups are used as the authorization--- mechanism.+-- The /AuthorizeCacheSecurityGroupIngress/ action allows network ingress+-- to a cache security group. Applications using ElastiCache must be+-- running on Amazon EC2, and Amazon EC2 security groups are used as the+-- authorization mechanism. ----- You cannot authorize ingress from an Amazon EC2 security group in one region--- to an ElastiCache cluster in another region.+-- You cannot authorize ingress from an Amazon EC2 security group in one+-- region to an ElastiCache cluster in another region. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_AuthorizeCacheSecurityGroupIngress.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_AuthorizeCacheSecurityGroupIngress.html AWS API Reference> for AuthorizeCacheSecurityGroupIngress. module Network.AWS.ElastiCache.AuthorizeCacheSecurityGroupIngress     (-    -- * Request-      AuthorizeCacheSecurityGroupIngress-    -- ** Request constructor-    , authorizeCacheSecurityGroupIngress-    -- ** Request lenses+    -- * Creating a Request+      authorizeCacheSecurityGroupIngress+    , AuthorizeCacheSecurityGroupIngress+    -- * Request Lenses     , acsgiCacheSecurityGroupName     , acsgiEC2SecurityGroupName     , acsgiEC2SecurityGroupOwnerId -    -- * Response-    , AuthorizeCacheSecurityGroupIngressResponse-    -- ** Response constructor+    -- * Destructuring the Response     , authorizeCacheSecurityGroupIngressResponse-    -- ** Response lenses-    , acsgirCacheSecurityGroup+    , AuthorizeCacheSecurityGroupIngressResponse+    -- * Response Lenses+    , acsgirsCacheSecurityGroup+    , acsgirsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data AuthorizeCacheSecurityGroupIngress = AuthorizeCacheSecurityGroupIngress-    { _acsgiCacheSecurityGroupName  :: Text-    , _acsgiEC2SecurityGroupName    :: Text-    , _acsgiEC2SecurityGroupOwnerId :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'AuthorizeCacheSecurityGroupIngress' constructor.+-- | Represents the input of an /AuthorizeCacheSecurityGroupIngress/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'authorizeCacheSecurityGroupIngress' smart constructor.+data AuthorizeCacheSecurityGroupIngress = AuthorizeCacheSecurityGroupIngress'+    { _acsgiCacheSecurityGroupName  :: !Text+    , _acsgiEC2SecurityGroupName    :: !Text+    , _acsgiEC2SecurityGroupOwnerId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'AuthorizeCacheSecurityGroupIngress' with the minimum fields required to make a request. ----- * 'acsgiCacheSecurityGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'acsgiEC2SecurityGroupName' @::@ 'Text'+-- * 'acsgiCacheSecurityGroupName' ----- * 'acsgiEC2SecurityGroupOwnerId' @::@ 'Text'+-- * 'acsgiEC2SecurityGroupName' ---authorizeCacheSecurityGroupIngress :: Text -- ^ 'acsgiCacheSecurityGroupName'-                                   -> Text -- ^ 'acsgiEC2SecurityGroupName'-                                   -> Text -- ^ 'acsgiEC2SecurityGroupOwnerId'-                                   -> AuthorizeCacheSecurityGroupIngress-authorizeCacheSecurityGroupIngress p1 p2 p3 = AuthorizeCacheSecurityGroupIngress-    { _acsgiCacheSecurityGroupName  = p1-    , _acsgiEC2SecurityGroupName    = p2-    , _acsgiEC2SecurityGroupOwnerId = p3+-- * 'acsgiEC2SecurityGroupOwnerId'+authorizeCacheSecurityGroupIngress+    :: Text -- ^ 'acsgiCacheSecurityGroupName'+    -> Text -- ^ 'acsgiEC2SecurityGroupName'+    -> Text -- ^ 'acsgiEC2SecurityGroupOwnerId'+    -> AuthorizeCacheSecurityGroupIngress+authorizeCacheSecurityGroupIngress pCacheSecurityGroupName_ pEC2SecurityGroupName_ pEC2SecurityGroupOwnerId_ =+    AuthorizeCacheSecurityGroupIngress'+    { _acsgiCacheSecurityGroupName = pCacheSecurityGroupName_+    , _acsgiEC2SecurityGroupName = pEC2SecurityGroupName_+    , _acsgiEC2SecurityGroupOwnerId = pEC2SecurityGroupOwnerId_     }  -- | The cache security group which will allow network ingress. acsgiCacheSecurityGroupName :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiCacheSecurityGroupName =-    lens _acsgiCacheSecurityGroupName-        (\s a -> s { _acsgiCacheSecurityGroupName = a })+acsgiCacheSecurityGroupName = lens _acsgiCacheSecurityGroupName (\ s a -> s{_acsgiCacheSecurityGroupName = a});  -- | The Amazon EC2 security group to be authorized for ingress to the cache -- security group. acsgiEC2SecurityGroupName :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiEC2SecurityGroupName =-    lens _acsgiEC2SecurityGroupName-        (\s a -> s { _acsgiEC2SecurityGroupName = a })+acsgiEC2SecurityGroupName = lens _acsgiEC2SecurityGroupName (\ s a -> s{_acsgiEC2SecurityGroupName = a}); --- | The AWS account number of the Amazon EC2 security group owner. Note that this--- is not the same thing as an AWS access key ID - you must provide a valid AWS--- account number for this parameter.+-- | The AWS account number of the Amazon EC2 security group owner. Note that+-- this is not the same thing as an AWS access key ID - you must provide a+-- valid AWS account number for this parameter. acsgiEC2SecurityGroupOwnerId :: Lens' AuthorizeCacheSecurityGroupIngress Text-acsgiEC2SecurityGroupOwnerId =-    lens _acsgiEC2SecurityGroupOwnerId-        (\s a -> s { _acsgiEC2SecurityGroupOwnerId = a })--newtype AuthorizeCacheSecurityGroupIngressResponse = AuthorizeCacheSecurityGroupIngressResponse-    { _acsgirCacheSecurityGroup :: Maybe CacheSecurityGroup-    } deriving (Eq, Read, Show)+acsgiEC2SecurityGroupOwnerId = lens _acsgiEC2SecurityGroupOwnerId (\ s a -> s{_acsgiEC2SecurityGroupOwnerId = a}); --- | 'AuthorizeCacheSecurityGroupIngressResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'acsgirCacheSecurityGroup' @::@ 'Maybe' 'CacheSecurityGroup'----authorizeCacheSecurityGroupIngressResponse :: AuthorizeCacheSecurityGroupIngressResponse-authorizeCacheSecurityGroupIngressResponse = AuthorizeCacheSecurityGroupIngressResponse-    { _acsgirCacheSecurityGroup = Nothing-    }+instance AWSRequest+         AuthorizeCacheSecurityGroupIngress where+        type Sv AuthorizeCacheSecurityGroupIngress =+             ElastiCache+        type Rs AuthorizeCacheSecurityGroupIngress =+             AuthorizeCacheSecurityGroupIngressResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "AuthorizeCacheSecurityGroupIngressResult"+              (\ s h x ->+                 AuthorizeCacheSecurityGroupIngressResponse' <$>+                   (x .@? "CacheSecurityGroup") <*> (pure (fromEnum s))) -acsgirCacheSecurityGroup :: Lens' AuthorizeCacheSecurityGroupIngressResponse (Maybe CacheSecurityGroup)-acsgirCacheSecurityGroup =-    lens _acsgirCacheSecurityGroup-        (\s a -> s { _acsgirCacheSecurityGroup = a })+instance ToHeaders AuthorizeCacheSecurityGroupIngress+         where+        toHeaders = const mempty -instance ToPath AuthorizeCacheSecurityGroupIngress where-    toPath = const "/"+instance ToPath AuthorizeCacheSecurityGroupIngress+         where+        toPath = const "/" -instance ToQuery AuthorizeCacheSecurityGroupIngress where-    toQuery AuthorizeCacheSecurityGroupIngress{..} = mconcat-        [ "CacheSecurityGroupName"  =? _acsgiCacheSecurityGroupName-        , "EC2SecurityGroupName"    =? _acsgiEC2SecurityGroupName-        , "EC2SecurityGroupOwnerId" =? _acsgiEC2SecurityGroupOwnerId-        ]+instance ToQuery AuthorizeCacheSecurityGroupIngress+         where+        toQuery AuthorizeCacheSecurityGroupIngress'{..}+          = mconcat+              ["Action" =:+                 ("AuthorizeCacheSecurityGroupIngress" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheSecurityGroupName" =:+                 _acsgiCacheSecurityGroupName,+               "EC2SecurityGroupName" =: _acsgiEC2SecurityGroupName,+               "EC2SecurityGroupOwnerId" =:+                 _acsgiEC2SecurityGroupOwnerId] -instance ToHeaders AuthorizeCacheSecurityGroupIngress+-- | /See:/ 'authorizeCacheSecurityGroupIngressResponse' smart constructor.+data AuthorizeCacheSecurityGroupIngressResponse = AuthorizeCacheSecurityGroupIngressResponse'+    { _acsgirsCacheSecurityGroup :: !(Maybe CacheSecurityGroup)+    , _acsgirsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AuthorizeCacheSecurityGroupIngress where-    type Sv AuthorizeCacheSecurityGroupIngress = ElastiCache-    type Rs AuthorizeCacheSecurityGroupIngress = AuthorizeCacheSecurityGroupIngressResponse+-- | Creates a value of 'AuthorizeCacheSecurityGroupIngressResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acsgirsCacheSecurityGroup'+--+-- * 'acsgirsStatus'+authorizeCacheSecurityGroupIngressResponse+    :: Int -- ^ 'acsgirsStatus'+    -> AuthorizeCacheSecurityGroupIngressResponse+authorizeCacheSecurityGroupIngressResponse pStatus_ =+    AuthorizeCacheSecurityGroupIngressResponse'+    { _acsgirsCacheSecurityGroup = Nothing+    , _acsgirsStatus = pStatus_+    } -    request  = post "AuthorizeCacheSecurityGroupIngress"-    response = xmlResponse+-- | Undocumented member.+acsgirsCacheSecurityGroup :: Lens' AuthorizeCacheSecurityGroupIngressResponse (Maybe CacheSecurityGroup)+acsgirsCacheSecurityGroup = lens _acsgirsCacheSecurityGroup (\ s a -> s{_acsgirsCacheSecurityGroup = a}); -instance FromXML AuthorizeCacheSecurityGroupIngressResponse where-    parseXML = withElement "AuthorizeCacheSecurityGroupIngressResult" $ \x -> AuthorizeCacheSecurityGroupIngressResponse-        <$> x .@? "CacheSecurityGroup"+-- | The response status code.+acsgirsStatus :: Lens' AuthorizeCacheSecurityGroupIngressResponse Int+acsgirsStatus = lens _acsgirsStatus (\ s a -> s{_acsgirsStatus = a});

@@ -1,120 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CopySnapshot--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CopySnapshot/ action makes a copy of an existing snapshot.+-- The /CopySnapshot/ action makes a copy of an existing snapshot. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CopySnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CopySnapshot.html AWS API Reference> for CopySnapshot. module Network.AWS.ElastiCache.CopySnapshot     (-    -- * Request-      CopySnapshot-    -- ** Request constructor-    , copySnapshot-    -- ** Request lenses+    -- * Creating a Request+      copySnapshot+    , CopySnapshot+    -- * Request Lenses     , csSourceSnapshotName     , csTargetSnapshotName -    -- * Response-    , CopySnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , copySnapshotResponse-    -- ** Response lenses-    , csrSnapshot+    , CopySnapshotResponse+    -- * Response Lenses+    , csrsSnapshot+    , csrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CopySnapshot = CopySnapshot-    { _csSourceSnapshotName :: Text-    , _csTargetSnapshotName :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CopySnapshot' constructor.+-- | Represents the input of a /CopySnapshotMessage/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'copySnapshot' smart constructor.+data CopySnapshot = CopySnapshot'+    { _csSourceSnapshotName :: !Text+    , _csTargetSnapshotName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CopySnapshot' with the minimum fields required to make a request. ----- * 'csSourceSnapshotName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'csTargetSnapshotName' @::@ 'Text'+-- * 'csSourceSnapshotName' ---copySnapshot :: Text -- ^ 'csSourceSnapshotName'-             -> Text -- ^ 'csTargetSnapshotName'-             -> CopySnapshot-copySnapshot p1 p2 = CopySnapshot-    { _csSourceSnapshotName = p1-    , _csTargetSnapshotName = p2+-- * 'csTargetSnapshotName'+copySnapshot+    :: Text -- ^ 'csSourceSnapshotName'+    -> Text -- ^ 'csTargetSnapshotName'+    -> CopySnapshot+copySnapshot pSourceSnapshotName_ pTargetSnapshotName_ =+    CopySnapshot'+    { _csSourceSnapshotName = pSourceSnapshotName_+    , _csTargetSnapshotName = pTargetSnapshotName_     }  -- | The name of an existing snapshot from which to copy. csSourceSnapshotName :: Lens' CopySnapshot Text-csSourceSnapshotName =-    lens _csSourceSnapshotName (\s a -> s { _csSourceSnapshotName = a })+csSourceSnapshotName = lens _csSourceSnapshotName (\ s a -> s{_csSourceSnapshotName = a});  -- | A name for the copied snapshot. csTargetSnapshotName :: Lens' CopySnapshot Text-csTargetSnapshotName =-    lens _csTargetSnapshotName (\s a -> s { _csTargetSnapshotName = a })--newtype CopySnapshotResponse = CopySnapshotResponse-    { _csrSnapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+csTargetSnapshotName = lens _csTargetSnapshotName (\ s a -> s{_csTargetSnapshotName = a}); --- | 'CopySnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'csrSnapshot' @::@ 'Maybe' 'Snapshot'----copySnapshotResponse :: CopySnapshotResponse-copySnapshotResponse = CopySnapshotResponse-    { _csrSnapshot = Nothing-    }+instance AWSRequest CopySnapshot where+        type Sv CopySnapshot = ElastiCache+        type Rs CopySnapshot = CopySnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CopySnapshotResult"+              (\ s h x ->+                 CopySnapshotResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -csrSnapshot :: Lens' CopySnapshotResponse (Maybe Snapshot)-csrSnapshot = lens _csrSnapshot (\s a -> s { _csrSnapshot = a })+instance ToHeaders CopySnapshot where+        toHeaders = const mempty  instance ToPath CopySnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CopySnapshot where-    toQuery CopySnapshot{..} = mconcat-        [ "SourceSnapshotName" =? _csSourceSnapshotName-        , "TargetSnapshotName" =? _csTargetSnapshotName-        ]+        toQuery CopySnapshot'{..}+          = mconcat+              ["Action" =: ("CopySnapshot" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "SourceSnapshotName" =: _csSourceSnapshotName,+               "TargetSnapshotName" =: _csTargetSnapshotName] -instance ToHeaders CopySnapshot+-- | /See:/ 'copySnapshotResponse' smart constructor.+data CopySnapshotResponse = CopySnapshotResponse'+    { _csrsSnapshot :: !(Maybe Snapshot)+    , _csrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CopySnapshot where-    type Sv CopySnapshot = ElastiCache-    type Rs CopySnapshot = CopySnapshotResponse+-- | Creates a value of 'CopySnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'csrsSnapshot'+--+-- * 'csrsStatus'+copySnapshotResponse+    :: Int -- ^ 'csrsStatus'+    -> CopySnapshotResponse+copySnapshotResponse pStatus_ =+    CopySnapshotResponse'+    { _csrsSnapshot = Nothing+    , _csrsStatus = pStatus_+    } -    request  = post "CopySnapshot"-    response = xmlResponse+-- | Undocumented member.+csrsSnapshot :: Lens' CopySnapshotResponse (Maybe Snapshot)+csrsSnapshot = lens _csrsSnapshot (\ s a -> s{_csrsSnapshot = a}); -instance FromXML CopySnapshotResponse where-    parseXML = withElement "CopySnapshotResult" $ \x -> CopySnapshotResponse-        <$> x .@? "Snapshot"+-- | The response status code.+csrsStatus :: Lens' CopySnapshotResponse Int+csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});

@@ -1,457 +1,508 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateCacheCluster--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateCacheCluster/ action creates a cache cluster. All nodes in the cache--- cluster run the same protocol-compliant cache engine software, either--- Memcached or Redis.+-- The /CreateCacheCluster/ action creates a cache cluster. All nodes in+-- the cache cluster run the same protocol-compliant cache engine software,+-- either Memcached or Redis. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheCluster.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheCluster.html AWS API Reference> for CreateCacheCluster. module Network.AWS.ElastiCache.CreateCacheCluster     (-    -- * Request-      CreateCacheCluster-    -- ** Request constructor-    , createCacheCluster-    -- ** Request lenses-    , cccAZMode-    , cccAutoMinorVersionUpgrade-    , cccCacheClusterId+    -- * Creating a Request+      createCacheCluster+    , CreateCacheCluster+    -- * Request Lenses     , cccCacheNodeType+    , cccEngineVersion+    , cccSecurityGroupIds+    , cccAutoMinorVersionUpgrade+    , cccSnapshotARNs     , cccCacheParameterGroupName-    , cccCacheSecurityGroupNames-    , cccCacheSubnetGroupName+    , cccSnapshotWindow     , cccEngine-    , cccEngineVersion-    , cccNotificationTopicArn-    , cccNumCacheNodes-    , cccPort-    , cccPreferredAvailabilityZone     , cccPreferredAvailabilityZones     , cccPreferredMaintenanceWindow-    , cccReplicationGroupId-    , cccSecurityGroupIds-    , cccSnapshotArns-    , cccSnapshotName+    , cccCacheSubnetGroupName+    , cccPreferredAvailabilityZone     , cccSnapshotRetentionLimit-    , cccSnapshotWindow+    , cccAZMode+    , cccSnapshotName+    , cccReplicationGroupId+    , cccNotificationTopicARN     , cccTags+    , cccNumCacheNodes+    , cccCacheSecurityGroupNames+    , cccPort+    , cccCacheClusterId -    -- * Response-    , CreateCacheClusterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createCacheClusterResponse-    -- ** Response lenses-    , cccrCacheCluster+    , CreateCacheClusterResponse+    -- * Response Lenses+    , cccrsCacheCluster+    , cccrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateCacheCluster = CreateCacheCluster-    { _cccAZMode                     :: Maybe AZMode-    , _cccAutoMinorVersionUpgrade    :: Maybe Bool-    , _cccCacheClusterId             :: Text-    , _cccCacheNodeType              :: Maybe Text-    , _cccCacheParameterGroupName    :: Maybe Text-    , _cccCacheSecurityGroupNames    :: List "member" Text-    , _cccCacheSubnetGroupName       :: Maybe Text-    , _cccEngine                     :: Maybe Text-    , _cccEngineVersion              :: Maybe Text-    , _cccNotificationTopicArn       :: Maybe Text-    , _cccNumCacheNodes              :: Maybe Int-    , _cccPort                       :: Maybe Int-    , _cccPreferredAvailabilityZone  :: Maybe Text-    , _cccPreferredAvailabilityZones :: List "member" Text-    , _cccPreferredMaintenanceWindow :: Maybe Text-    , _cccReplicationGroupId         :: Maybe Text-    , _cccSecurityGroupIds           :: List "member" Text-    , _cccSnapshotArns               :: List "member" Text-    , _cccSnapshotName               :: Maybe Text-    , _cccSnapshotRetentionLimit     :: Maybe Int-    , _cccSnapshotWindow             :: Maybe Text-    , _cccTags                       :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateCacheCluster' constructor.+-- | Represents the input of a /CreateCacheCluster/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createCacheCluster' smart constructor.+data CreateCacheCluster = CreateCacheCluster'+    { _cccCacheNodeType              :: !(Maybe Text)+    , _cccEngineVersion              :: !(Maybe Text)+    , _cccSecurityGroupIds           :: !(Maybe [Text])+    , _cccAutoMinorVersionUpgrade    :: !(Maybe Bool)+    , _cccSnapshotARNs               :: !(Maybe [Text])+    , _cccCacheParameterGroupName    :: !(Maybe Text)+    , _cccSnapshotWindow             :: !(Maybe Text)+    , _cccEngine                     :: !(Maybe Text)+    , _cccPreferredAvailabilityZones :: !(Maybe [Text])+    , _cccPreferredMaintenanceWindow :: !(Maybe Text)+    , _cccCacheSubnetGroupName       :: !(Maybe Text)+    , _cccPreferredAvailabilityZone  :: !(Maybe Text)+    , _cccSnapshotRetentionLimit     :: !(Maybe Int)+    , _cccAZMode                     :: !(Maybe AZMode)+    , _cccSnapshotName               :: !(Maybe Text)+    , _cccReplicationGroupId         :: !(Maybe Text)+    , _cccNotificationTopicARN       :: !(Maybe Text)+    , _cccTags                       :: !(Maybe [Tag])+    , _cccNumCacheNodes              :: !(Maybe Int)+    , _cccCacheSecurityGroupNames    :: !(Maybe [Text])+    , _cccPort                       :: !(Maybe Int)+    , _cccCacheClusterId             :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCacheCluster' with the minimum fields required to make a request. ----- * 'cccAZMode' @::@ 'Maybe' 'AZMode'+-- Use one of the following lenses to modify other fields as desired: ----- * 'cccAutoMinorVersionUpgrade' @::@ 'Maybe' 'Bool'+-- * 'cccCacheNodeType' ----- * 'cccCacheClusterId' @::@ 'Text'+-- * 'cccEngineVersion' ----- * 'cccCacheNodeType' @::@ 'Maybe' 'Text'+-- * 'cccSecurityGroupIds' ----- * 'cccCacheParameterGroupName' @::@ 'Maybe' 'Text'+-- * 'cccAutoMinorVersionUpgrade' ----- * 'cccCacheSecurityGroupNames' @::@ ['Text']+-- * 'cccSnapshotARNs' ----- * 'cccCacheSubnetGroupName' @::@ 'Maybe' 'Text'+-- * 'cccCacheParameterGroupName' ----- * 'cccEngine' @::@ 'Maybe' 'Text'+-- * 'cccSnapshotWindow' ----- * 'cccEngineVersion' @::@ 'Maybe' 'Text'+-- * 'cccEngine' ----- * 'cccNotificationTopicArn' @::@ 'Maybe' 'Text'+-- * 'cccPreferredAvailabilityZones' ----- * 'cccNumCacheNodes' @::@ 'Maybe' 'Int'+-- * 'cccPreferredMaintenanceWindow' ----- * 'cccPort' @::@ 'Maybe' 'Int'+-- * 'cccCacheSubnetGroupName' ----- * 'cccPreferredAvailabilityZone' @::@ 'Maybe' 'Text'+-- * 'cccPreferredAvailabilityZone' ----- * 'cccPreferredAvailabilityZones' @::@ ['Text']+-- * 'cccSnapshotRetentionLimit' ----- * 'cccPreferredMaintenanceWindow' @::@ 'Maybe' 'Text'+-- * 'cccAZMode' ----- * 'cccReplicationGroupId' @::@ 'Maybe' 'Text'+-- * 'cccSnapshotName' ----- * 'cccSecurityGroupIds' @::@ ['Text']+-- * 'cccReplicationGroupId' ----- * 'cccSnapshotArns' @::@ ['Text']+-- * 'cccNotificationTopicARN' ----- * 'cccSnapshotName' @::@ 'Maybe' 'Text'+-- * 'cccTags' ----- * 'cccSnapshotRetentionLimit' @::@ 'Maybe' 'Int'+-- * 'cccNumCacheNodes' ----- * 'cccSnapshotWindow' @::@ 'Maybe' 'Text'+-- * 'cccCacheSecurityGroupNames' ----- * 'cccTags' @::@ ['Tag']+-- * 'cccPort' ---createCacheCluster :: Text -- ^ 'cccCacheClusterId'-                   -> CreateCacheCluster-createCacheCluster p1 = CreateCacheCluster-    { _cccCacheClusterId             = p1-    , _cccReplicationGroupId         = Nothing-    , _cccAZMode                     = Nothing-    , _cccPreferredAvailabilityZone  = Nothing-    , _cccPreferredAvailabilityZones = mempty-    , _cccNumCacheNodes              = Nothing-    , _cccCacheNodeType              = Nothing-    , _cccEngine                     = Nothing-    , _cccEngineVersion              = Nothing-    , _cccCacheParameterGroupName    = Nothing-    , _cccCacheSubnetGroupName       = Nothing-    , _cccCacheSecurityGroupNames    = mempty-    , _cccSecurityGroupIds           = mempty-    , _cccTags                       = mempty-    , _cccSnapshotArns               = mempty-    , _cccSnapshotName               = Nothing+-- * 'cccCacheClusterId'+createCacheCluster+    :: Text -- ^ 'cccCacheClusterId'+    -> CreateCacheCluster+createCacheCluster pCacheClusterId_ =+    CreateCacheCluster'+    { _cccCacheNodeType = Nothing+    , _cccEngineVersion = Nothing+    , _cccSecurityGroupIds = Nothing+    , _cccAutoMinorVersionUpgrade = Nothing+    , _cccSnapshotARNs = Nothing+    , _cccCacheParameterGroupName = Nothing+    , _cccSnapshotWindow = Nothing+    , _cccEngine = Nothing+    , _cccPreferredAvailabilityZones = Nothing     , _cccPreferredMaintenanceWindow = Nothing-    , _cccPort                       = Nothing-    , _cccNotificationTopicArn       = Nothing-    , _cccAutoMinorVersionUpgrade    = Nothing-    , _cccSnapshotRetentionLimit     = Nothing-    , _cccSnapshotWindow             = Nothing+    , _cccCacheSubnetGroupName = Nothing+    , _cccPreferredAvailabilityZone = Nothing+    , _cccSnapshotRetentionLimit = Nothing+    , _cccAZMode = Nothing+    , _cccSnapshotName = Nothing+    , _cccReplicationGroupId = Nothing+    , _cccNotificationTopicARN = Nothing+    , _cccTags = Nothing+    , _cccNumCacheNodes = Nothing+    , _cccCacheSecurityGroupNames = Nothing+    , _cccPort = Nothing+    , _cccCacheClusterId = pCacheClusterId_     } --- | Specifies whether the nodes in this Memcached node group are created in a--- single Availability Zone or created across multiple Availability Zones in the--- cluster's region.------ This parameter is only supported for Memcached cache clusters.------ If the 'AZMode' and 'PreferredAvailabilityZones' are not specified, ElastiCache--- assumes 'single-az' mode.-cccAZMode :: Lens' CreateCacheCluster (Maybe AZMode)-cccAZMode = lens _cccAZMode (\s a -> s { _cccAZMode = a })---- | This parameter is currently disabled.-cccAutoMinorVersionUpgrade :: Lens' CreateCacheCluster (Maybe Bool)-cccAutoMinorVersionUpgrade =-    lens _cccAutoMinorVersionUpgrade-        (\s a -> s { _cccAutoMinorVersionUpgrade = a })---- | The node group identifier. This parameter is stored as a lowercase string.------ Constraints:------ A name must contain from 1 to 20 alphanumeric characters or hyphens. The--- first character must be a letter. A name cannot end with a hyphen or contain--- two consecutive hyphens.-cccCacheClusterId :: Lens' CreateCacheCluster Text-cccCacheClusterId =-    lens _cccCacheClusterId (\s a -> s { _cccCacheClusterId = a })- -- | The compute and memory capacity of the nodes in the node group. -- -- Valid node types are as follows: ----- General purpose:  Current generation: 'cache.t2.micro', 'cache.t2.small', 'cache.t2.medium', 'cache.m3.medium', 'cache.m3.large', 'cache.m3.xlarge', 'cache.m3.2xlarge' Previous--- generation: 'cache.t1.micro', 'cache.m1.small', 'cache.m1.medium', 'cache.m1.large', 'cache.m1.xlarge'  Compute optimized: 'cache.c1.xlarge' Memory optimized  Current generation: 'cache.r3.large', 'cache.r3.xlarge', 'cache.r3.2xlarge', 'cache.r3.4xlarge', 'cache.r3.8xlarge' Previous generation:--- 'cache.m2.xlarge', 'cache.m2.2xlarge', 'cache.m2.4xlarge'   Notes:+-- -   General purpose:+--     -   Current generation: 'cache.t2.micro', 'cache.t2.small',+--         'cache.t2.medium', 'cache.m3.medium', 'cache.m3.large',+--         'cache.m3.xlarge', 'cache.m3.2xlarge'+--     -   Previous generation: 'cache.t1.micro', 'cache.m1.small',+--         'cache.m1.medium', 'cache.m1.large', 'cache.m1.xlarge'+-- -   Compute optimized: 'cache.c1.xlarge'+-- -   Memory optimized+--     -   Current generation: 'cache.r3.large', 'cache.r3.xlarge',+--         'cache.r3.2xlarge', 'cache.r3.4xlarge', 'cache.r3.8xlarge'+--     -   Previous generation: 'cache.m2.xlarge', 'cache.m2.2xlarge',+--         'cache.m2.4xlarge' ----- All t2 instances are created in an Amazon Virtual Private Cloud (VPC). Redis backup/restore is not supported for t2 instances.--- Redis Append-only files (AOF) functionality is not supported for t1 or t2--- instances.  For a complete listing of cache node types and specifications,--- see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#CacheParameterGroups.Memcached.NodeSpecific Cache NodeType-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#CacheParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parametersfor Redis>.+-- __Notes:__+--+-- -   All t2 instances are created in an Amazon Virtual Private Cloud+--     (VPC).+-- -   Redis backup\/restore is not supported for t2 instances.+-- -   Redis Append-only files (AOF) functionality is not supported for t1+--     or t2 instances.+--+-- For a complete listing of cache node types and specifications, see+-- <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details>+-- and+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#CacheParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached>+-- or+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#CacheParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis>. cccCacheNodeType :: Lens' CreateCacheCluster (Maybe Text)-cccCacheNodeType = lens _cccCacheNodeType (\s a -> s { _cccCacheNodeType = a })+cccCacheNodeType = lens _cccCacheNodeType (\ s a -> s{_cccCacheNodeType = a}); --- | The name of the parameter group to associate with this cache cluster. If this--- argument is omitted, the default parameter group for the specified engine is--- used.-cccCacheParameterGroupName :: Lens' CreateCacheCluster (Maybe Text)-cccCacheParameterGroupName =-    lens _cccCacheParameterGroupName-        (\s a -> s { _cccCacheParameterGroupName = a })+-- | The version number of the cache engine to be used for this cache+-- cluster. To view the supported cache engine versions, use the+-- /DescribeCacheEngineVersions/ action.+cccEngineVersion :: Lens' CreateCacheCluster (Maybe Text)+cccEngineVersion = lens _cccEngineVersion (\ s a -> s{_cccEngineVersion = a}); --- | A list of security group names to associate with this cache cluster.+-- | One or more VPC security groups associated with the cache cluster. ----- Use this parameter only when you are creating a cache cluster outside of an+-- Use this parameter only when you are creating a cache cluster in an -- Amazon Virtual Private Cloud (VPC).-cccCacheSecurityGroupNames :: Lens' CreateCacheCluster [Text]-cccCacheSecurityGroupNames =-    lens _cccCacheSecurityGroupNames-        (\s a -> s { _cccCacheSecurityGroupNames = a })-            . _List+cccSecurityGroupIds :: Lens' CreateCacheCluster [Text]+cccSecurityGroupIds = lens _cccSecurityGroupIds (\ s a -> s{_cccSecurityGroupIds = a}) . _Default . _Coerce; --- | The name of the subnet group to be used for the cache cluster.------ Use this parameter only when you are creating a cache cluster in an Amazon--- Virtual Private Cloud (VPC).-cccCacheSubnetGroupName :: Lens' CreateCacheCluster (Maybe Text)-cccCacheSubnetGroupName =-    lens _cccCacheSubnetGroupName (\s a -> s { _cccCacheSubnetGroupName = a })+-- | This parameter is currently disabled.+cccAutoMinorVersionUpgrade :: Lens' CreateCacheCluster (Maybe Bool)+cccAutoMinorVersionUpgrade = lens _cccAutoMinorVersionUpgrade (\ s a -> s{_cccAutoMinorVersionUpgrade = a}); --- | The name of the cache engine to be used for this cache cluster.+-- | A single-element string list containing an Amazon Resource Name (ARN)+-- that uniquely identifies a Redis RDB snapshot file stored in Amazon S3.+-- The snapshot file will be used to populate the node group. The Amazon S3+-- object name in the ARN cannot contain any commas. ----- Valid values for this parameter are:+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'. ----- 'memcached' | 'redis'-cccEngine :: Lens' CreateCacheCluster (Maybe Text)-cccEngine = lens _cccEngine (\s a -> s { _cccEngine = a })+-- Example of an Amazon S3 ARN: 'arn:aws:s3:::my_bucket\/snapshot1.rdb'+cccSnapshotARNs :: Lens' CreateCacheCluster [Text]+cccSnapshotARNs = lens _cccSnapshotARNs (\ s a -> s{_cccSnapshotARNs = a}) . _Default . _Coerce; --- | The version number of the cache engine to be used for this cache cluster. To--- view the supported cache engine versions, use the /DescribeCacheEngineVersions/--- action.-cccEngineVersion :: Lens' CreateCacheCluster (Maybe Text)-cccEngineVersion = lens _cccEngineVersion (\s a -> s { _cccEngineVersion = a })+-- | The name of the parameter group to associate with this cache cluster. If+-- this argument is omitted, the default parameter group for the specified+-- engine is used.+cccCacheParameterGroupName :: Lens' CreateCacheCluster (Maybe Text)+cccCacheParameterGroupName = lens _cccCacheParameterGroupName (\ s a -> s{_cccCacheParameterGroupName = a}); --- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service--- (SNS) topic to which notifications will be sent.+-- | The daily time range (in UTC) during which ElastiCache will begin taking+-- a daily snapshot of your node group. ----- The Amazon SNS topic owner must be the same as the cache cluster owner.-cccNotificationTopicArn :: Lens' CreateCacheCluster (Maybe Text)-cccNotificationTopicArn =-    lens _cccNotificationTopicArn (\s a -> s { _cccNotificationTopicArn = a })---- | The initial number of cache nodes that the cache cluster will have.+-- Example: '05:00-09:00' ----- For clusters running Redis, this value must be 1. For clusters running--- Memcached, this value must be between 1 and 20.+-- If you do not specify this parameter, then ElastiCache will+-- automatically choose an appropriate time range. ----- If you need more than 20 nodes for your Memcached cluster, please fill out--- the ElastiCache Limit Increase Request form at <http://aws.amazon.com/contact-us/elasticache-node-limit-request/ http://aws.amazon.com/contact-us/elasticache-node-limit-request/>.-cccNumCacheNodes :: Lens' CreateCacheCluster (Maybe Int)-cccNumCacheNodes = lens _cccNumCacheNodes (\s a -> s { _cccNumCacheNodes = a })---- | The port number on which each of the cache nodes will accept connections.-cccPort :: Lens' CreateCacheCluster (Maybe Int)-cccPort = lens _cccPort (\s a -> s { _cccPort = a })+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'.+cccSnapshotWindow :: Lens' CreateCacheCluster (Maybe Text)+cccSnapshotWindow = lens _cccSnapshotWindow (\ s a -> s{_cccSnapshotWindow = a}); --- | The EC2 Availability Zone in which the cache cluster will be created.+-- | The name of the cache engine to be used for this cache cluster. ----- All nodes belonging to this Memcached cache cluster are placed in the--- preferred Availability Zone. If you want to create your nodes across multiple--- Availability Zones, use 'PreferredAvailabilityZones'.+-- Valid values for this parameter are: ----- Default: System chosen Availability Zone.-cccPreferredAvailabilityZone :: Lens' CreateCacheCluster (Maybe Text)-cccPreferredAvailabilityZone =-    lens _cccPreferredAvailabilityZone-        (\s a -> s { _cccPreferredAvailabilityZone = a })+-- 'memcached' | 'redis'+cccEngine :: Lens' CreateCacheCluster (Maybe Text)+cccEngine = lens _cccEngine (\ s a -> s{_cccEngine = a}); --- | A list of the Availability Zones in which cache nodes will be created. The--- order of the zones in the list is not important.+-- | A list of the Availability Zones in which cache nodes will be created.+-- The order of the zones in the list is not important. -- -- This option is only supported on Memcached. ----- If you are creating your cache cluster in an Amazon VPC (recommended) you--- can only locate nodes in Availability Zones that are associated with the--- subnets in the selected subnet group.+-- If you are creating your cache cluster in an Amazon VPC (recommended)+-- you can only locate nodes in Availability Zones that are associated with+-- the subnets in the selected subnet group. ----- The number of Availability Zones listed must equal the value of 'NumCacheNodes'--- .+-- The number of Availability Zones listed must equal the value of+-- 'NumCacheNodes'. ----- If you want all the nodes in the same Availability Zone, use 'PreferredAvailabilityZone' instead, or repeat the Availability Zone multiple times in the list.+-- If you want all the nodes in the same Availability Zone, use+-- 'PreferredAvailabilityZone' instead, or repeat the Availability Zone+-- multiple times in the list. -- -- Default: System chosen Availability Zones. ----- Example: One Memcached node in each of three different Availability Zones: 'PreferredAvailabilityZones.member.1=us-west-2a&PreferredAvailabilityZones.member.2=us-west-2b&PreferredAvailabilityZones.member.3=us-west-2c'+-- Example: One Memcached node in each of three different Availability+-- Zones:+-- 'PreferredAvailabilityZones.member.1=us-west-2a&PreferredAvailabilityZones.member.2=us-west-2b&PreferredAvailabilityZones.member.3=us-west-2c' ----- Example: All three Memcached nodes in one Availability Zone: 'PreferredAvailabilityZones.member.1=us-west-2a&PreferredAvailabilityZones.member.2=us-west-2a&PreferredAvailabilityZones.member.3=us-west-2a'+-- Example: All three Memcached nodes in one Availability Zone:+-- 'PreferredAvailabilityZones.member.1=us-west-2a&PreferredAvailabilityZones.member.2=us-west-2a&PreferredAvailabilityZones.member.3=us-west-2a' cccPreferredAvailabilityZones :: Lens' CreateCacheCluster [Text]-cccPreferredAvailabilityZones =-    lens _cccPreferredAvailabilityZones-        (\s a -> s { _cccPreferredAvailabilityZones = a })-            . _List+cccPreferredAvailabilityZones = lens _cccPreferredAvailabilityZones (\ s a -> s{_cccPreferredAvailabilityZones = a}) . _Default . _Coerce; --- | Specifies the weekly time range during which maintenance on the cache cluster--- is performed. It is specified as a range in the format--- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window is a--- 60 minute period. Valid values for 'ddd' are:+-- | Specifies the weekly time range during which maintenance on the cache+-- cluster is performed. It is specified as a range in the format+-- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window+-- is a 60 minute period. Valid values for 'ddd' are: ----- 'sun' 'mon' 'tue' 'wed' 'thu' 'fri' 'sat'  Example: 'sun:05:00-sun:09:00'+-- -   'sun'+-- -   'mon'+-- -   'tue'+-- -   'wed'+-- -   'thu'+-- -   'fri'+-- -   'sat'+--+-- Example: 'sun:05:00-sun:09:00' cccPreferredMaintenanceWindow :: Lens' CreateCacheCluster (Maybe Text)-cccPreferredMaintenanceWindow =-    lens _cccPreferredMaintenanceWindow-        (\s a -> s { _cccPreferredMaintenanceWindow = a })+cccPreferredMaintenanceWindow = lens _cccPreferredMaintenanceWindow (\ s a -> s{_cccPreferredMaintenanceWindow = a}); --- | The ID of the replication group to which this cache cluster should belong. If--- this parameter is specified, the cache cluster will be added to the specified--- replication group as a read replica; otherwise, the cache cluster will be a--- standalone primary that is not part of any replication group.+-- | The name of the subnet group to be used for the cache cluster. ----- If the specified replication group is Multi-AZ enabled and the availability--- zone is not specified, the cache cluster will be created in availability--- zones that provide the best spread of read replicas across availability zones.+-- Use this parameter only when you are creating a cache cluster in an+-- Amazon Virtual Private Cloud (VPC).+cccCacheSubnetGroupName :: Lens' CreateCacheCluster (Maybe Text)+cccCacheSubnetGroupName = lens _cccCacheSubnetGroupName (\ s a -> s{_cccCacheSubnetGroupName = a});++-- | The EC2 Availability Zone in which the cache cluster will be created. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.-cccReplicationGroupId :: Lens' CreateCacheCluster (Maybe Text)-cccReplicationGroupId =-    lens _cccReplicationGroupId (\s a -> s { _cccReplicationGroupId = a })+-- All nodes belonging to this Memcached cache cluster are placed in the+-- preferred Availability Zone. If you want to create your nodes across+-- multiple Availability Zones, use 'PreferredAvailabilityZones'.+--+-- Default: System chosen Availability Zone.+cccPreferredAvailabilityZone :: Lens' CreateCacheCluster (Maybe Text)+cccPreferredAvailabilityZone = lens _cccPreferredAvailabilityZone (\ s a -> s{_cccPreferredAvailabilityZone = a}); --- | One or more VPC security groups associated with the cache cluster.+-- | The number of days for which ElastiCache will retain automatic snapshots+-- before deleting them. For example, if you set 'SnapshotRetentionLimit'+-- to 5, then a snapshot that was taken today will be retained for 5 days+-- before being deleted. ----- Use this parameter only when you are creating a cache cluster in an Amazon--- Virtual Private Cloud (VPC).-cccSecurityGroupIds :: Lens' CreateCacheCluster [Text]-cccSecurityGroupIds =-    lens _cccSecurityGroupIds (\s a -> s { _cccSecurityGroupIds = a })-        . _List+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'.+--+-- Default: 0 (i.e., automatic backups are disabled for this cache+-- cluster).+cccSnapshotRetentionLimit :: Lens' CreateCacheCluster (Maybe Int)+cccSnapshotRetentionLimit = lens _cccSnapshotRetentionLimit (\ s a -> s{_cccSnapshotRetentionLimit = a}); --- | A single-element string list containing an Amazon Resource Name (ARN) that--- uniquely identifies a Redis RDB snapshot file stored in Amazon S3. The--- snapshot file will be used to populate the node group. The Amazon S3 object--- name in the ARN cannot contain any commas.+-- | Specifies whether the nodes in this Memcached node group are created in+-- a single Availability Zone or created across multiple Availability Zones+-- in the cluster\'s region. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- This parameter is only supported for Memcached cache clusters. ----- Example of an Amazon S3 ARN: 'arn:aws:s3:::my_bucket/snapshot1.rdb'-cccSnapshotArns :: Lens' CreateCacheCluster [Text]-cccSnapshotArns = lens _cccSnapshotArns (\s a -> s { _cccSnapshotArns = a }) . _List+-- If the 'AZMode' and 'PreferredAvailabilityZones' are not specified,+-- ElastiCache assumes 'single-az' mode.+cccAZMode :: Lens' CreateCacheCluster (Maybe AZMode)+cccAZMode = lens _cccAZMode (\ s a -> s{_cccAZMode = a}); --- | The name of a snapshot from which to restore data into the new node group.--- The snapshot status changes to 'restoring' while the new node group is being--- created.+-- | The name of a snapshot from which to restore data into the new node+-- group. The snapshot status changes to 'restoring' while the new node+-- group is being created. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'. cccSnapshotName :: Lens' CreateCacheCluster (Maybe Text)-cccSnapshotName = lens _cccSnapshotName (\s a -> s { _cccSnapshotName = a })+cccSnapshotName = lens _cccSnapshotName (\ s a -> s{_cccSnapshotName = a}); --- | The number of days for which ElastiCache will retain automatic snapshots--- before deleting them. For example, if you set 'SnapshotRetentionLimit' to 5,--- then a snapshot that was taken today will be retained for 5 days before being--- deleted.+-- | The ID of the replication group to which this cache cluster should+-- belong. If this parameter is specified, the cache cluster will be added+-- to the specified replication group as a read replica; otherwise, the+-- cache cluster will be a standalone primary that is not part of any+-- replication group. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- If the specified replication group is Multi-AZ enabled and the+-- availability zone is not specified, the cache cluster will be created in+-- availability zones that provide the best spread of read replicas across+-- availability zones. ----- Default: 0 (i.e., automatic backups are disabled for this cache cluster).-cccSnapshotRetentionLimit :: Lens' CreateCacheCluster (Maybe Int)-cccSnapshotRetentionLimit =-    lens _cccSnapshotRetentionLimit-        (\s a -> s { _cccSnapshotRetentionLimit = a })+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'.+cccReplicationGroupId :: Lens' CreateCacheCluster (Maybe Text)+cccReplicationGroupId = lens _cccReplicationGroupId (\ s a -> s{_cccReplicationGroupId = a}); --- | The daily time range (in UTC) during which ElastiCache will begin taking a--- daily snapshot of your node group.------ Example: '05:00-09:00'------ If you do not specify this parameter, then ElastiCache will automatically--- choose an appropriate time range.+-- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service+-- (SNS) topic to which notifications will be sent. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.-cccSnapshotWindow :: Lens' CreateCacheCluster (Maybe Text)-cccSnapshotWindow =-    lens _cccSnapshotWindow (\s a -> s { _cccSnapshotWindow = a })+-- The Amazon SNS topic owner must be the same as the cache cluster owner.+cccNotificationTopicARN :: Lens' CreateCacheCluster (Maybe Text)+cccNotificationTopicARN = lens _cccNotificationTopicARN (\ s a -> s{_cccNotificationTopicARN = a});  -- | A list of cost allocation tags to be added to this resource. A tag is a -- key-value pair. A tag key must be accompanied by a tag value. cccTags :: Lens' CreateCacheCluster [Tag]-cccTags = lens _cccTags (\s a -> s { _cccTags = a }) . _List+cccTags = lens _cccTags (\ s a -> s{_cccTags = a}) . _Default . _Coerce; -newtype CreateCacheClusterResponse = CreateCacheClusterResponse-    { _cccrCacheCluster :: Maybe CacheCluster-    } deriving (Eq, Read, Show)+-- | The initial number of cache nodes that the cache cluster will have.+--+-- For clusters running Redis, this value must be 1. For clusters running+-- Memcached, this value must be between 1 and 20.+--+-- If you need more than 20 nodes for your Memcached cluster, please fill+-- out the ElastiCache Limit Increase Request form at+-- <http://aws.amazon.com/contact-us/elasticache-node-limit-request/>.+cccNumCacheNodes :: Lens' CreateCacheCluster (Maybe Int)+cccNumCacheNodes = lens _cccNumCacheNodes (\ s a -> s{_cccNumCacheNodes = a}); --- | 'CreateCacheClusterResponse' constructor.+-- | A list of security group names to associate with this cache cluster. ----- The fields accessible through corresponding lenses are:+-- Use this parameter only when you are creating a cache cluster outside of+-- an Amazon Virtual Private Cloud (VPC).+cccCacheSecurityGroupNames :: Lens' CreateCacheCluster [Text]+cccCacheSecurityGroupNames = lens _cccCacheSecurityGroupNames (\ s a -> s{_cccCacheSecurityGroupNames = a}) . _Default . _Coerce;++-- | The port number on which each of the cache nodes will accept+-- connections.+cccPort :: Lens' CreateCacheCluster (Maybe Int)+cccPort = lens _cccPort (\ s a -> s{_cccPort = a});++-- | The node group identifier. This parameter is stored as a lowercase+-- string. ----- * 'cccrCacheCluster' @::@ 'Maybe' 'CacheCluster'+-- Constraints: ---createCacheClusterResponse :: CreateCacheClusterResponse-createCacheClusterResponse = CreateCacheClusterResponse-    { _cccrCacheCluster = Nothing-    }+-- -   A name must contain from 1 to 20 alphanumeric characters or hyphens.+-- -   The first character must be a letter.+-- -   A name cannot end with a hyphen or contain two consecutive hyphens.+cccCacheClusterId :: Lens' CreateCacheCluster Text+cccCacheClusterId = lens _cccCacheClusterId (\ s a -> s{_cccCacheClusterId = a}); -cccrCacheCluster :: Lens' CreateCacheClusterResponse (Maybe CacheCluster)-cccrCacheCluster = lens _cccrCacheCluster (\s a -> s { _cccrCacheCluster = a })+instance AWSRequest CreateCacheCluster where+        type Sv CreateCacheCluster = ElastiCache+        type Rs CreateCacheCluster =+             CreateCacheClusterResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateCacheClusterResult"+              (\ s h x ->+                 CreateCacheClusterResponse' <$>+                   (x .@? "CacheCluster") <*> (pure (fromEnum s))) +instance ToHeaders CreateCacheCluster where+        toHeaders = const mempty+ instance ToPath CreateCacheCluster where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCacheCluster where-    toQuery CreateCacheCluster{..} = mconcat-        [ "AZMode"                     =? _cccAZMode-        , "AutoMinorVersionUpgrade"    =? _cccAutoMinorVersionUpgrade-        , "CacheClusterId"             =? _cccCacheClusterId-        , "CacheNodeType"              =? _cccCacheNodeType-        , "CacheParameterGroupName"    =? _cccCacheParameterGroupName-        , "CacheSecurityGroupNames"    =? _cccCacheSecurityGroupNames-        , "CacheSubnetGroupName"       =? _cccCacheSubnetGroupName-        , "Engine"                     =? _cccEngine-        , "EngineVersion"              =? _cccEngineVersion-        , "NotificationTopicArn"       =? _cccNotificationTopicArn-        , "NumCacheNodes"              =? _cccNumCacheNodes-        , "Port"                       =? _cccPort-        , "PreferredAvailabilityZone"  =? _cccPreferredAvailabilityZone-        , "PreferredAvailabilityZones" =? _cccPreferredAvailabilityZones-        , "PreferredMaintenanceWindow" =? _cccPreferredMaintenanceWindow-        , "ReplicationGroupId"         =? _cccReplicationGroupId-        , "SecurityGroupIds"           =? _cccSecurityGroupIds-        , "SnapshotArns"               =? _cccSnapshotArns-        , "SnapshotName"               =? _cccSnapshotName-        , "SnapshotRetentionLimit"     =? _cccSnapshotRetentionLimit-        , "SnapshotWindow"             =? _cccSnapshotWindow-        , "Tags"                       =? _cccTags-        ]+        toQuery CreateCacheCluster'{..}+          = mconcat+              ["Action" =: ("CreateCacheCluster" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheNodeType" =: _cccCacheNodeType,+               "EngineVersion" =: _cccEngineVersion,+               "SecurityGroupIds" =:+                 toQuery+                   (toQueryList "SecurityGroupId" <$>+                      _cccSecurityGroupIds),+               "AutoMinorVersionUpgrade" =:+                 _cccAutoMinorVersionUpgrade,+               "SnapshotArns" =:+                 toQuery+                   (toQueryList "SnapshotArn" <$> _cccSnapshotARNs),+               "CacheParameterGroupName" =:+                 _cccCacheParameterGroupName,+               "SnapshotWindow" =: _cccSnapshotWindow,+               "Engine" =: _cccEngine,+               "PreferredAvailabilityZones" =:+                 toQuery+                   (toQueryList "PreferredAvailabilityZone" <$>+                      _cccPreferredAvailabilityZones),+               "PreferredMaintenanceWindow" =:+                 _cccPreferredMaintenanceWindow,+               "CacheSubnetGroupName" =: _cccCacheSubnetGroupName,+               "PreferredAvailabilityZone" =:+                 _cccPreferredAvailabilityZone,+               "SnapshotRetentionLimit" =:+                 _cccSnapshotRetentionLimit,+               "AZMode" =: _cccAZMode,+               "SnapshotName" =: _cccSnapshotName,+               "ReplicationGroupId" =: _cccReplicationGroupId,+               "NotificationTopicArn" =: _cccNotificationTopicARN,+               "Tags" =: toQuery (toQueryList "Tag" <$> _cccTags),+               "NumCacheNodes" =: _cccNumCacheNodes,+               "CacheSecurityGroupNames" =:+                 toQuery+                   (toQueryList "CacheSecurityGroupName" <$>+                      _cccCacheSecurityGroupNames),+               "Port" =: _cccPort,+               "CacheClusterId" =: _cccCacheClusterId] -instance ToHeaders CreateCacheCluster+-- | /See:/ 'createCacheClusterResponse' smart constructor.+data CreateCacheClusterResponse = CreateCacheClusterResponse'+    { _cccrsCacheCluster :: !(Maybe CacheCluster)+    , _cccrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCacheCluster where-    type Sv CreateCacheCluster = ElastiCache-    type Rs CreateCacheCluster = CreateCacheClusterResponse+-- | Creates a value of 'CreateCacheClusterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cccrsCacheCluster'+--+-- * 'cccrsStatus'+createCacheClusterResponse+    :: Int -- ^ 'cccrsStatus'+    -> CreateCacheClusterResponse+createCacheClusterResponse pStatus_ =+    CreateCacheClusterResponse'+    { _cccrsCacheCluster = Nothing+    , _cccrsStatus = pStatus_+    } -    request  = post "CreateCacheCluster"-    response = xmlResponse+-- | Undocumented member.+cccrsCacheCluster :: Lens' CreateCacheClusterResponse (Maybe CacheCluster)+cccrsCacheCluster = lens _cccrsCacheCluster (\ s a -> s{_cccrsCacheCluster = a}); -instance FromXML CreateCacheClusterResponse where-    parseXML = withElement "CreateCacheClusterResult" $ \x -> CreateCacheClusterResponse-        <$> x .@? "CacheCluster"+-- | The response status code.+cccrsStatus :: Lens' CreateCacheClusterResponse Int+cccrsStatus = lens _cccrsStatus (\ s a -> s{_cccrsStatus = a});

@@ -1,140 +1,153 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateCacheParameterGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateCacheParameterGroup/ action creates a new cache parameter group. A--- cache parameter group is a collection of parameters that you apply to all of--- the nodes in a cache cluster.+-- The /CreateCacheParameterGroup/ action creates a new cache parameter+-- group. A cache parameter group is a collection of parameters that you+-- apply to all of the nodes in a cache cluster. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheParameterGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheParameterGroup.html AWS API Reference> for CreateCacheParameterGroup. module Network.AWS.ElastiCache.CreateCacheParameterGroup     (-    -- * Request-      CreateCacheParameterGroup-    -- ** Request constructor-    , createCacheParameterGroup-    -- ** Request lenses-    , ccpgCacheParameterGroupFamily+    -- * Creating a Request+      createCacheParameterGroup+    , CreateCacheParameterGroup+    -- * Request Lenses     , ccpgCacheParameterGroupName+    , ccpgCacheParameterGroupFamily     , ccpgDescription -    -- * Response-    , CreateCacheParameterGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createCacheParameterGroupResponse-    -- ** Response lenses-    , ccpgrCacheParameterGroup+    , CreateCacheParameterGroupResponse+    -- * Response Lenses+    , ccpgrsCacheParameterGroup+    , ccpgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateCacheParameterGroup = CreateCacheParameterGroup-    { _ccpgCacheParameterGroupFamily :: Text-    , _ccpgCacheParameterGroupName   :: Text-    , _ccpgDescription               :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateCacheParameterGroup' constructor.+-- | Represents the input of a /CreateCacheParameterGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createCacheParameterGroup' smart constructor.+data CreateCacheParameterGroup = CreateCacheParameterGroup'+    { _ccpgCacheParameterGroupName   :: !Text+    , _ccpgCacheParameterGroupFamily :: !Text+    , _ccpgDescription               :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCacheParameterGroup' with the minimum fields required to make a request. ----- * 'ccpgCacheParameterGroupFamily' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccpgCacheParameterGroupName' @::@ 'Text'+-- * 'ccpgCacheParameterGroupName' ----- * 'ccpgDescription' @::@ 'Text'+-- * 'ccpgCacheParameterGroupFamily' ---createCacheParameterGroup :: Text -- ^ 'ccpgCacheParameterGroupName'-                          -> Text -- ^ 'ccpgCacheParameterGroupFamily'-                          -> Text -- ^ 'ccpgDescription'-                          -> CreateCacheParameterGroup-createCacheParameterGroup p1 p2 p3 = CreateCacheParameterGroup-    { _ccpgCacheParameterGroupName   = p1-    , _ccpgCacheParameterGroupFamily = p2-    , _ccpgDescription               = p3+-- * 'ccpgDescription'+createCacheParameterGroup+    :: Text -- ^ 'ccpgCacheParameterGroupName'+    -> Text -- ^ 'ccpgCacheParameterGroupFamily'+    -> Text -- ^ 'ccpgDescription'+    -> CreateCacheParameterGroup+createCacheParameterGroup pCacheParameterGroupName_ pCacheParameterGroupFamily_ pDescription_ =+    CreateCacheParameterGroup'+    { _ccpgCacheParameterGroupName = pCacheParameterGroupName_+    , _ccpgCacheParameterGroupFamily = pCacheParameterGroupFamily_+    , _ccpgDescription = pDescription_     } --- | The name of the cache parameter group family the cache parameter group can be--- used with.+-- | A user-specified name for the cache parameter group.+ccpgCacheParameterGroupName :: Lens' CreateCacheParameterGroup Text+ccpgCacheParameterGroupName = lens _ccpgCacheParameterGroupName (\ s a -> s{_ccpgCacheParameterGroupName = a});++-- | The name of the cache parameter group family the cache parameter group+-- can be used with. -- -- Valid values are: 'memcached1.4' | 'redis2.6' | 'redis2.8' ccpgCacheParameterGroupFamily :: Lens' CreateCacheParameterGroup Text-ccpgCacheParameterGroupFamily =-    lens _ccpgCacheParameterGroupFamily-        (\s a -> s { _ccpgCacheParameterGroupFamily = a })---- | A user-specified name for the cache parameter group.-ccpgCacheParameterGroupName :: Lens' CreateCacheParameterGroup Text-ccpgCacheParameterGroupName =-    lens _ccpgCacheParameterGroupName-        (\s a -> s { _ccpgCacheParameterGroupName = a })+ccpgCacheParameterGroupFamily = lens _ccpgCacheParameterGroupFamily (\ s a -> s{_ccpgCacheParameterGroupFamily = a});  -- | A user-specified description for the cache parameter group. ccpgDescription :: Lens' CreateCacheParameterGroup Text-ccpgDescription = lens _ccpgDescription (\s a -> s { _ccpgDescription = a })--newtype CreateCacheParameterGroupResponse = CreateCacheParameterGroupResponse-    { _ccpgrCacheParameterGroup :: Maybe CacheParameterGroup-    } deriving (Eq, Read, Show)+ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a}); --- | 'CreateCacheParameterGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccpgrCacheParameterGroup' @::@ 'Maybe' 'CacheParameterGroup'----createCacheParameterGroupResponse :: CreateCacheParameterGroupResponse-createCacheParameterGroupResponse = CreateCacheParameterGroupResponse-    { _ccpgrCacheParameterGroup = Nothing-    }+instance AWSRequest CreateCacheParameterGroup where+        type Sv CreateCacheParameterGroup = ElastiCache+        type Rs CreateCacheParameterGroup =+             CreateCacheParameterGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateCacheParameterGroupResult"+              (\ s h x ->+                 CreateCacheParameterGroupResponse' <$>+                   (x .@? "CacheParameterGroup") <*>+                     (pure (fromEnum s))) -ccpgrCacheParameterGroup :: Lens' CreateCacheParameterGroupResponse (Maybe CacheParameterGroup)-ccpgrCacheParameterGroup =-    lens _ccpgrCacheParameterGroup-        (\s a -> s { _ccpgrCacheParameterGroup = a })+instance ToHeaders CreateCacheParameterGroup where+        toHeaders = const mempty  instance ToPath CreateCacheParameterGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCacheParameterGroup where-    toQuery CreateCacheParameterGroup{..} = mconcat-        [ "CacheParameterGroupFamily" =? _ccpgCacheParameterGroupFamily-        , "CacheParameterGroupName"   =? _ccpgCacheParameterGroupName-        , "Description"               =? _ccpgDescription-        ]+        toQuery CreateCacheParameterGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateCacheParameterGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheParameterGroupName" =:+                 _ccpgCacheParameterGroupName,+               "CacheParameterGroupFamily" =:+                 _ccpgCacheParameterGroupFamily,+               "Description" =: _ccpgDescription] -instance ToHeaders CreateCacheParameterGroup+-- | /See:/ 'createCacheParameterGroupResponse' smart constructor.+data CreateCacheParameterGroupResponse = CreateCacheParameterGroupResponse'+    { _ccpgrsCacheParameterGroup :: !(Maybe CacheParameterGroup)+    , _ccpgrsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCacheParameterGroup where-    type Sv CreateCacheParameterGroup = ElastiCache-    type Rs CreateCacheParameterGroup = CreateCacheParameterGroupResponse+-- | Creates a value of 'CreateCacheParameterGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccpgrsCacheParameterGroup'+--+-- * 'ccpgrsStatus'+createCacheParameterGroupResponse+    :: Int -- ^ 'ccpgrsStatus'+    -> CreateCacheParameterGroupResponse+createCacheParameterGroupResponse pStatus_ =+    CreateCacheParameterGroupResponse'+    { _ccpgrsCacheParameterGroup = Nothing+    , _ccpgrsStatus = pStatus_+    } -    request  = post "CreateCacheParameterGroup"-    response = xmlResponse+-- | Undocumented member.+ccpgrsCacheParameterGroup :: Lens' CreateCacheParameterGroupResponse (Maybe CacheParameterGroup)+ccpgrsCacheParameterGroup = lens _ccpgrsCacheParameterGroup (\ s a -> s{_ccpgrsCacheParameterGroup = a}); -instance FromXML CreateCacheParameterGroupResponse where-    parseXML = withElement "CreateCacheParameterGroupResult" $ \x -> CreateCacheParameterGroupResponse-        <$> x .@? "CacheParameterGroup"+-- | The response status code.+ccpgrsStatus :: Lens' CreateCacheParameterGroupResponse Int+ccpgrsStatus = lens _ccpgrsStatus (\ s a -> s{_ccpgrsStatus = a});

@@ -1,133 +1,149 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateCacheSecurityGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateCacheSecurityGroup/ action creates a new cache security group. Use a--- cache security group to control access to one or more cache clusters.+-- The /CreateCacheSecurityGroup/ action creates a new cache security+-- group. Use a cache security group to control access to one or more cache+-- clusters. ----- Cache security groups are only used when you are creating a cache cluster--- outside of an Amazon Virtual Private Cloud (VPC). If you are creating a cache--- cluster inside of a VPC, use a cache subnet group instead. For more--- information, see <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSubnetGroup.html CreateCacheSubnetGroup>.+-- Cache security groups are only used when you are creating a cache+-- cluster outside of an Amazon Virtual Private Cloud (VPC). If you are+-- creating a cache cluster inside of a VPC, use a cache subnet group+-- instead. For more information, see+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSubnetGroup.html CreateCacheSubnetGroup>. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSecurityGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSecurityGroup.html AWS API Reference> for CreateCacheSecurityGroup. module Network.AWS.ElastiCache.CreateCacheSecurityGroup     (-    -- * Request-      CreateCacheSecurityGroup-    -- ** Request constructor-    , createCacheSecurityGroup-    -- ** Request lenses+    -- * Creating a Request+      createCacheSecurityGroup+    , CreateCacheSecurityGroup+    -- * Request Lenses     , ccsgCacheSecurityGroupName     , ccsgDescription -    -- * Response-    , CreateCacheSecurityGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createCacheSecurityGroupResponse-    -- ** Response lenses-    , ccsgrCacheSecurityGroup+    , CreateCacheSecurityGroupResponse+    -- * Response Lenses+    , ccsgrsCacheSecurityGroup+    , ccsgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateCacheSecurityGroup = CreateCacheSecurityGroup-    { _ccsgCacheSecurityGroupName :: Text-    , _ccsgDescription            :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateCacheSecurityGroup' constructor.+-- | Represents the input of a /CreateCacheSecurityGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createCacheSecurityGroup' smart constructor.+data CreateCacheSecurityGroup = CreateCacheSecurityGroup'+    { _ccsgCacheSecurityGroupName :: !Text+    , _ccsgDescription            :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCacheSecurityGroup' with the minimum fields required to make a request. ----- * 'ccsgCacheSecurityGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsgDescription' @::@ 'Text'+-- * 'ccsgCacheSecurityGroupName' ---createCacheSecurityGroup :: Text -- ^ 'ccsgCacheSecurityGroupName'-                         -> Text -- ^ 'ccsgDescription'-                         -> CreateCacheSecurityGroup-createCacheSecurityGroup p1 p2 = CreateCacheSecurityGroup-    { _ccsgCacheSecurityGroupName = p1-    , _ccsgDescription            = p2+-- * 'ccsgDescription'+createCacheSecurityGroup+    :: Text -- ^ 'ccsgCacheSecurityGroupName'+    -> Text -- ^ 'ccsgDescription'+    -> CreateCacheSecurityGroup+createCacheSecurityGroup pCacheSecurityGroupName_ pDescription_ =+    CreateCacheSecurityGroup'+    { _ccsgCacheSecurityGroupName = pCacheSecurityGroupName_+    , _ccsgDescription = pDescription_     }  -- | A name for the cache security group. This value is stored as a lowercase -- string. ----- Constraints: Must contain no more than 255 alphanumeric characters. Cannot--- be the word "Default".+-- Constraints: Must contain no more than 255 alphanumeric characters.+-- Cannot be the word \"Default\". -- -- Example: 'mysecuritygroup' ccsgCacheSecurityGroupName :: Lens' CreateCacheSecurityGroup Text-ccsgCacheSecurityGroupName =-    lens _ccsgCacheSecurityGroupName-        (\s a -> s { _ccsgCacheSecurityGroupName = a })+ccsgCacheSecurityGroupName = lens _ccsgCacheSecurityGroupName (\ s a -> s{_ccsgCacheSecurityGroupName = a});  -- | A description for the cache security group. ccsgDescription :: Lens' CreateCacheSecurityGroup Text-ccsgDescription = lens _ccsgDescription (\s a -> s { _ccsgDescription = a })--newtype CreateCacheSecurityGroupResponse = CreateCacheSecurityGroupResponse-    { _ccsgrCacheSecurityGroup :: Maybe CacheSecurityGroup-    } deriving (Eq, Read, Show)+ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a}); --- | 'CreateCacheSecurityGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsgrCacheSecurityGroup' @::@ 'Maybe' 'CacheSecurityGroup'----createCacheSecurityGroupResponse :: CreateCacheSecurityGroupResponse-createCacheSecurityGroupResponse = CreateCacheSecurityGroupResponse-    { _ccsgrCacheSecurityGroup = Nothing-    }+instance AWSRequest CreateCacheSecurityGroup where+        type Sv CreateCacheSecurityGroup = ElastiCache+        type Rs CreateCacheSecurityGroup =+             CreateCacheSecurityGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateCacheSecurityGroupResult"+              (\ s h x ->+                 CreateCacheSecurityGroupResponse' <$>+                   (x .@? "CacheSecurityGroup") <*> (pure (fromEnum s))) -ccsgrCacheSecurityGroup :: Lens' CreateCacheSecurityGroupResponse (Maybe CacheSecurityGroup)-ccsgrCacheSecurityGroup =-    lens _ccsgrCacheSecurityGroup (\s a -> s { _ccsgrCacheSecurityGroup = a })+instance ToHeaders CreateCacheSecurityGroup where+        toHeaders = const mempty  instance ToPath CreateCacheSecurityGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCacheSecurityGroup where-    toQuery CreateCacheSecurityGroup{..} = mconcat-        [ "CacheSecurityGroupName" =? _ccsgCacheSecurityGroupName-        , "Description"            =? _ccsgDescription-        ]+        toQuery CreateCacheSecurityGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateCacheSecurityGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheSecurityGroupName" =:+                 _ccsgCacheSecurityGroupName,+               "Description" =: _ccsgDescription] -instance ToHeaders CreateCacheSecurityGroup+-- | /See:/ 'createCacheSecurityGroupResponse' smart constructor.+data CreateCacheSecurityGroupResponse = CreateCacheSecurityGroupResponse'+    { _ccsgrsCacheSecurityGroup :: !(Maybe CacheSecurityGroup)+    , _ccsgrsStatus             :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCacheSecurityGroup where-    type Sv CreateCacheSecurityGroup = ElastiCache-    type Rs CreateCacheSecurityGroup = CreateCacheSecurityGroupResponse+-- | Creates a value of 'CreateCacheSecurityGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccsgrsCacheSecurityGroup'+--+-- * 'ccsgrsStatus'+createCacheSecurityGroupResponse+    :: Int -- ^ 'ccsgrsStatus'+    -> CreateCacheSecurityGroupResponse+createCacheSecurityGroupResponse pStatus_ =+    CreateCacheSecurityGroupResponse'+    { _ccsgrsCacheSecurityGroup = Nothing+    , _ccsgrsStatus = pStatus_+    } -    request  = post "CreateCacheSecurityGroup"-    response = xmlResponse+-- | Undocumented member.+ccsgrsCacheSecurityGroup :: Lens' CreateCacheSecurityGroupResponse (Maybe CacheSecurityGroup)+ccsgrsCacheSecurityGroup = lens _ccsgrsCacheSecurityGroup (\ s a -> s{_ccsgrsCacheSecurityGroup = a}); -instance FromXML CreateCacheSecurityGroupResponse where-    parseXML = withElement "CreateCacheSecurityGroupResult" $ \x -> CreateCacheSecurityGroupResponse-        <$> x .@? "CacheSecurityGroup"+-- | The response status code.+ccsgrsStatus :: Lens' CreateCacheSecurityGroupResponse Int+ccsgrsStatus = lens _ccsgrsStatus (\ s a -> s{_ccsgrsStatus = a});

@@ -1,141 +1,155 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateCacheSubnetGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateCacheSubnetGroup/ action creates a new cache subnet group.+-- The /CreateCacheSubnetGroup/ action creates a new cache subnet group. ----- Use this parameter only when you are creating a cluster in an Amazon Virtual--- Private Cloud (VPC).+-- Use this parameter only when you are creating a cluster in an Amazon+-- Virtual Private Cloud (VPC). ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSubnetGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateCacheSubnetGroup.html AWS API Reference> for CreateCacheSubnetGroup. module Network.AWS.ElastiCache.CreateCacheSubnetGroup     (-    -- * Request-      CreateCacheSubnetGroup-    -- ** Request constructor-    , createCacheSubnetGroup-    -- ** Request lenses-    , ccsgCacheSubnetGroupDescription+    -- * Creating a Request+      createCacheSubnetGroup+    , CreateCacheSubnetGroup+    -- * Request Lenses     , ccsgCacheSubnetGroupName+    , ccsgCacheSubnetGroupDescription     , ccsgSubnetIds -    -- * Response-    , CreateCacheSubnetGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createCacheSubnetGroupResponse-    -- ** Response lenses-    , ccsgrCacheSubnetGroup+    , CreateCacheSubnetGroupResponse+    -- * Response Lenses+    , crsCacheSubnetGroup+    , crsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateCacheSubnetGroup = CreateCacheSubnetGroup-    { _ccsgCacheSubnetGroupDescription :: Text-    , _ccsgCacheSubnetGroupName        :: Text-    , _ccsgSubnetIds                   :: List "member" Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateCacheSubnetGroup' constructor.+-- | Represents the input of a /CreateCacheSubnetGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createCacheSubnetGroup' smart constructor.+data CreateCacheSubnetGroup = CreateCacheSubnetGroup'+    { _ccsgCacheSubnetGroupName        :: !Text+    , _ccsgCacheSubnetGroupDescription :: !Text+    , _ccsgSubnetIds                   :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateCacheSubnetGroup' with the minimum fields required to make a request. ----- * 'ccsgCacheSubnetGroupDescription' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccsgCacheSubnetGroupName' @::@ 'Text'+-- * 'ccsgCacheSubnetGroupName' ----- * 'ccsgSubnetIds' @::@ ['Text']+-- * 'ccsgCacheSubnetGroupDescription' ---createCacheSubnetGroup :: Text -- ^ 'ccsgCacheSubnetGroupName'-                       -> Text -- ^ 'ccsgCacheSubnetGroupDescription'-                       -> CreateCacheSubnetGroup-createCacheSubnetGroup p1 p2 = CreateCacheSubnetGroup-    { _ccsgCacheSubnetGroupName        = p1-    , _ccsgCacheSubnetGroupDescription = p2-    , _ccsgSubnetIds                   = mempty+-- * 'ccsgSubnetIds'+createCacheSubnetGroup+    :: Text -- ^ 'ccsgCacheSubnetGroupName'+    -> Text -- ^ 'ccsgCacheSubnetGroupDescription'+    -> CreateCacheSubnetGroup+createCacheSubnetGroup pCacheSubnetGroupName_ pCacheSubnetGroupDescription_ =+    CreateCacheSubnetGroup'+    { _ccsgCacheSubnetGroupName = pCacheSubnetGroupName_+    , _ccsgCacheSubnetGroupDescription = pCacheSubnetGroupDescription_+    , _ccsgSubnetIds = mempty     } --- | A description for the cache subnet group.-ccsgCacheSubnetGroupDescription :: Lens' CreateCacheSubnetGroup Text-ccsgCacheSubnetGroupDescription =-    lens _ccsgCacheSubnetGroupDescription-        (\s a -> s { _ccsgCacheSubnetGroupDescription = a })---- | A name for the cache subnet group. This value is stored as a lowercase string.+-- | A name for the cache subnet group. This value is stored as a lowercase+-- string. -- -- Constraints: Must contain no more than 255 alphanumeric characters or -- hyphens. -- -- Example: 'mysubnetgroup' ccsgCacheSubnetGroupName :: Lens' CreateCacheSubnetGroup Text-ccsgCacheSubnetGroupName =-    lens _ccsgCacheSubnetGroupName-        (\s a -> s { _ccsgCacheSubnetGroupName = a })+ccsgCacheSubnetGroupName = lens _ccsgCacheSubnetGroupName (\ s a -> s{_ccsgCacheSubnetGroupName = a}); +-- | A description for the cache subnet group.+ccsgCacheSubnetGroupDescription :: Lens' CreateCacheSubnetGroup Text+ccsgCacheSubnetGroupDescription = lens _ccsgCacheSubnetGroupDescription (\ s a -> s{_ccsgCacheSubnetGroupDescription = a});+ -- | A list of VPC subnet IDs for the cache subnet group. ccsgSubnetIds :: Lens' CreateCacheSubnetGroup [Text]-ccsgSubnetIds = lens _ccsgSubnetIds (\s a -> s { _ccsgSubnetIds = a }) . _List--newtype CreateCacheSubnetGroupResponse = CreateCacheSubnetGroupResponse-    { _ccsgrCacheSubnetGroup :: Maybe CacheSubnetGroup-    } deriving (Eq, Read, Show)+ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce; --- | 'CreateCacheSubnetGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccsgrCacheSubnetGroup' @::@ 'Maybe' 'CacheSubnetGroup'----createCacheSubnetGroupResponse :: CreateCacheSubnetGroupResponse-createCacheSubnetGroupResponse = CreateCacheSubnetGroupResponse-    { _ccsgrCacheSubnetGroup = Nothing-    }+instance AWSRequest CreateCacheSubnetGroup where+        type Sv CreateCacheSubnetGroup = ElastiCache+        type Rs CreateCacheSubnetGroup =+             CreateCacheSubnetGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateCacheSubnetGroupResult"+              (\ s h x ->+                 CreateCacheSubnetGroupResponse' <$>+                   (x .@? "CacheSubnetGroup") <*> (pure (fromEnum s))) -ccsgrCacheSubnetGroup :: Lens' CreateCacheSubnetGroupResponse (Maybe CacheSubnetGroup)-ccsgrCacheSubnetGroup =-    lens _ccsgrCacheSubnetGroup (\s a -> s { _ccsgrCacheSubnetGroup = a })+instance ToHeaders CreateCacheSubnetGroup where+        toHeaders = const mempty  instance ToPath CreateCacheSubnetGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCacheSubnetGroup where-    toQuery CreateCacheSubnetGroup{..} = mconcat-        [ "CacheSubnetGroupDescription" =? _ccsgCacheSubnetGroupDescription-        , "CacheSubnetGroupName"        =? _ccsgCacheSubnetGroupName-        , "SubnetIds"                   =? _ccsgSubnetIds-        ]+        toQuery CreateCacheSubnetGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateCacheSubnetGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheSubnetGroupName" =: _ccsgCacheSubnetGroupName,+               "CacheSubnetGroupDescription" =:+                 _ccsgCacheSubnetGroupDescription,+               "SubnetIds" =:+                 toQueryList "SubnetIdentifier" _ccsgSubnetIds] -instance ToHeaders CreateCacheSubnetGroup+-- | /See:/ 'createCacheSubnetGroupResponse' smart constructor.+data CreateCacheSubnetGroupResponse = CreateCacheSubnetGroupResponse'+    { _crsCacheSubnetGroup :: !(Maybe CacheSubnetGroup)+    , _crsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateCacheSubnetGroup where-    type Sv CreateCacheSubnetGroup = ElastiCache-    type Rs CreateCacheSubnetGroup = CreateCacheSubnetGroupResponse+-- | Creates a value of 'CreateCacheSubnetGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crsCacheSubnetGroup'+--+-- * 'crsStatus'+createCacheSubnetGroupResponse+    :: Int -- ^ 'crsStatus'+    -> CreateCacheSubnetGroupResponse+createCacheSubnetGroupResponse pStatus_ =+    CreateCacheSubnetGroupResponse'+    { _crsCacheSubnetGroup = Nothing+    , _crsStatus = pStatus_+    } -    request  = post "CreateCacheSubnetGroup"-    response = xmlResponse+-- | Undocumented member.+crsCacheSubnetGroup :: Lens' CreateCacheSubnetGroupResponse (Maybe CacheSubnetGroup)+crsCacheSubnetGroup = lens _crsCacheSubnetGroup (\ s a -> s{_crsCacheSubnetGroup = a}); -instance FromXML CreateCacheSubnetGroupResponse where-    parseXML = withElement "CreateCacheSubnetGroupResult" $ \x -> CreateCacheSubnetGroupResponse-        <$> x .@? "CacheSubnetGroup"+-- | The response status code.+crsStatus :: Lens' CreateCacheSubnetGroupResponse Int+crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});

@@ -1,451 +1,499 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateReplicationGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateReplicationGroup/ action creates a replication group. A replication--- group is a collection of cache clusters, where one of the cache clusters is a--- read/write primary and the others are read-only replicas. Writes to the--- primary are automatically propagated to the replicas.+-- The /CreateReplicationGroup/ action creates a replication group. A+-- replication group is a collection of cache clusters, where one of the+-- cache clusters is a read\/write primary and the others are read-only+-- replicas. Writes to the primary are automatically propagated to the+-- replicas. -- -- When you create a replication group, you must specify an existing cache -- cluster that is in the primary role. When the replication group has been--- successfully created, you can add one or more read replica replicas to it, up--- to a total of five read replicas.+-- successfully created, you can add one or more read replica replicas to+-- it, up to a total of five read replicas. ----- Note: This action is valid only for Redis.+-- __Note:__ This action is valid only for Redis. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateReplicationGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateReplicationGroup.html AWS API Reference> for CreateReplicationGroup. module Network.AWS.ElastiCache.CreateReplicationGroup     (-    -- * Request-      CreateReplicationGroup-    -- ** Request constructor-    , createReplicationGroup-    -- ** Request lenses-    , crgAutoMinorVersionUpgrade+    -- * Creating a Request+      createReplicationGroup+    , CreateReplicationGroup+    -- * Request Lenses     , crgAutomaticFailoverEnabled     , crgCacheNodeType+    , crgEngineVersion+    , crgSecurityGroupIds+    , crgAutoMinorVersionUpgrade+    , crgSnapshotARNs     , crgCacheParameterGroupName-    , crgCacheSecurityGroupNames-    , crgCacheSubnetGroupName+    , crgSnapshotWindow+    , crgPrimaryClusterId     , crgEngine-    , crgEngineVersion-    , crgNotificationTopicArn-    , crgNumCacheClusters-    , crgPort-    , crgPreferredCacheClusterAZs     , crgPreferredMaintenanceWindow-    , crgPrimaryClusterId-    , crgReplicationGroupDescription-    , crgReplicationGroupId-    , crgSecurityGroupIds-    , crgSnapshotArns-    , crgSnapshotName+    , crgCacheSubnetGroupName     , crgSnapshotRetentionLimit-    , crgSnapshotWindow+    , crgSnapshotName+    , crgPreferredCacheClusterAZs+    , crgNumCacheClusters+    , crgNotificationTopicARN     , crgTags+    , crgCacheSecurityGroupNames+    , crgPort+    , crgReplicationGroupId+    , crgReplicationGroupDescription -    -- * Response-    , CreateReplicationGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createReplicationGroupResponse-    -- ** Response lenses-    , crgrReplicationGroup+    , CreateReplicationGroupResponse+    -- * Response Lenses+    , crgrsReplicationGroup+    , crgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateReplicationGroup = CreateReplicationGroup-    { _crgAutoMinorVersionUpgrade     :: Maybe Bool-    , _crgAutomaticFailoverEnabled    :: Maybe Bool-    , _crgCacheNodeType               :: Maybe Text-    , _crgCacheParameterGroupName     :: Maybe Text-    , _crgCacheSecurityGroupNames     :: List "member" Text-    , _crgCacheSubnetGroupName        :: Maybe Text-    , _crgEngine                      :: Maybe Text-    , _crgEngineVersion               :: Maybe Text-    , _crgNotificationTopicArn        :: Maybe Text-    , _crgNumCacheClusters            :: Maybe Int-    , _crgPort                        :: Maybe Int-    , _crgPreferredCacheClusterAZs    :: List "member" Text-    , _crgPreferredMaintenanceWindow  :: Maybe Text-    , _crgPrimaryClusterId            :: Maybe Text-    , _crgReplicationGroupDescription :: Text-    , _crgReplicationGroupId          :: Text-    , _crgSecurityGroupIds            :: List "member" Text-    , _crgSnapshotArns                :: List "member" Text-    , _crgSnapshotName                :: Maybe Text-    , _crgSnapshotRetentionLimit      :: Maybe Int-    , _crgSnapshotWindow              :: Maybe Text-    , _crgTags                        :: List "member" Tag-    } deriving (Eq, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateReplicationGroup' constructor.+-- | Represents the input of a /CreateReplicationGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createReplicationGroup' smart constructor.+data CreateReplicationGroup = CreateReplicationGroup'+    { _crgAutomaticFailoverEnabled    :: !(Maybe Bool)+    , _crgCacheNodeType               :: !(Maybe Text)+    , _crgEngineVersion               :: !(Maybe Text)+    , _crgSecurityGroupIds            :: !(Maybe [Text])+    , _crgAutoMinorVersionUpgrade     :: !(Maybe Bool)+    , _crgSnapshotARNs                :: !(Maybe [Text])+    , _crgCacheParameterGroupName     :: !(Maybe Text)+    , _crgSnapshotWindow              :: !(Maybe Text)+    , _crgPrimaryClusterId            :: !(Maybe Text)+    , _crgEngine                      :: !(Maybe Text)+    , _crgPreferredMaintenanceWindow  :: !(Maybe Text)+    , _crgCacheSubnetGroupName        :: !(Maybe Text)+    , _crgSnapshotRetentionLimit      :: !(Maybe Int)+    , _crgSnapshotName                :: !(Maybe Text)+    , _crgPreferredCacheClusterAZs    :: !(Maybe [Text])+    , _crgNumCacheClusters            :: !(Maybe Int)+    , _crgNotificationTopicARN        :: !(Maybe Text)+    , _crgTags                        :: !(Maybe [Tag])+    , _crgCacheSecurityGroupNames     :: !(Maybe [Text])+    , _crgPort                        :: !(Maybe Int)+    , _crgReplicationGroupId          :: !Text+    , _crgReplicationGroupDescription :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateReplicationGroup' with the minimum fields required to make a request. ----- * 'crgAutoMinorVersionUpgrade' @::@ 'Maybe' 'Bool'+-- Use one of the following lenses to modify other fields as desired: ----- * 'crgAutomaticFailoverEnabled' @::@ 'Maybe' 'Bool'+-- * 'crgAutomaticFailoverEnabled' ----- * 'crgCacheNodeType' @::@ 'Maybe' 'Text'+-- * 'crgCacheNodeType' ----- * 'crgCacheParameterGroupName' @::@ 'Maybe' 'Text'+-- * 'crgEngineVersion' ----- * 'crgCacheSecurityGroupNames' @::@ ['Text']+-- * 'crgSecurityGroupIds' ----- * 'crgCacheSubnetGroupName' @::@ 'Maybe' 'Text'+-- * 'crgAutoMinorVersionUpgrade' ----- * 'crgEngine' @::@ 'Maybe' 'Text'+-- * 'crgSnapshotARNs' ----- * 'crgEngineVersion' @::@ 'Maybe' 'Text'+-- * 'crgCacheParameterGroupName' ----- * 'crgNotificationTopicArn' @::@ 'Maybe' 'Text'+-- * 'crgSnapshotWindow' ----- * 'crgNumCacheClusters' @::@ 'Maybe' 'Int'+-- * 'crgPrimaryClusterId' ----- * 'crgPort' @::@ 'Maybe' 'Int'+-- * 'crgEngine' ----- * 'crgPreferredCacheClusterAZs' @::@ ['Text']+-- * 'crgPreferredMaintenanceWindow' ----- * 'crgPreferredMaintenanceWindow' @::@ 'Maybe' 'Text'+-- * 'crgCacheSubnetGroupName' ----- * 'crgPrimaryClusterId' @::@ 'Maybe' 'Text'+-- * 'crgSnapshotRetentionLimit' ----- * 'crgReplicationGroupDescription' @::@ 'Text'+-- * 'crgSnapshotName' ----- * 'crgReplicationGroupId' @::@ 'Text'+-- * 'crgPreferredCacheClusterAZs' ----- * 'crgSecurityGroupIds' @::@ ['Text']+-- * 'crgNumCacheClusters' ----- * 'crgSnapshotArns' @::@ ['Text']+-- * 'crgNotificationTopicARN' ----- * 'crgSnapshotName' @::@ 'Maybe' 'Text'+-- * 'crgTags' ----- * 'crgSnapshotRetentionLimit' @::@ 'Maybe' 'Int'+-- * 'crgCacheSecurityGroupNames' ----- * 'crgSnapshotWindow' @::@ 'Maybe' 'Text'+-- * 'crgPort' ----- * 'crgTags' @::@ ['Tag']+-- * 'crgReplicationGroupId' ---createReplicationGroup :: Text -- ^ 'crgReplicationGroupId'-                       -> Text -- ^ 'crgReplicationGroupDescription'-                       -> CreateReplicationGroup-createReplicationGroup p1 p2 = CreateReplicationGroup-    { _crgReplicationGroupId          = p1-    , _crgReplicationGroupDescription = p2-    , _crgPrimaryClusterId            = Nothing-    , _crgAutomaticFailoverEnabled    = Nothing-    , _crgNumCacheClusters            = Nothing-    , _crgPreferredCacheClusterAZs    = mempty-    , _crgCacheNodeType               = Nothing-    , _crgEngine                      = Nothing-    , _crgEngineVersion               = Nothing-    , _crgCacheParameterGroupName     = Nothing-    , _crgCacheSubnetGroupName        = Nothing-    , _crgCacheSecurityGroupNames     = mempty-    , _crgSecurityGroupIds            = mempty-    , _crgTags                        = mempty-    , _crgSnapshotArns                = mempty-    , _crgSnapshotName                = Nothing-    , _crgPreferredMaintenanceWindow  = Nothing-    , _crgPort                        = Nothing-    , _crgNotificationTopicArn        = Nothing-    , _crgAutoMinorVersionUpgrade     = Nothing-    , _crgSnapshotRetentionLimit      = Nothing-    , _crgSnapshotWindow              = Nothing+-- * 'crgReplicationGroupDescription'+createReplicationGroup+    :: Text -- ^ 'crgReplicationGroupId'+    -> Text -- ^ 'crgReplicationGroupDescription'+    -> CreateReplicationGroup+createReplicationGroup pReplicationGroupId_ pReplicationGroupDescription_ =+    CreateReplicationGroup'+    { _crgAutomaticFailoverEnabled = Nothing+    , _crgCacheNodeType = Nothing+    , _crgEngineVersion = Nothing+    , _crgSecurityGroupIds = Nothing+    , _crgAutoMinorVersionUpgrade = Nothing+    , _crgSnapshotARNs = Nothing+    , _crgCacheParameterGroupName = Nothing+    , _crgSnapshotWindow = Nothing+    , _crgPrimaryClusterId = Nothing+    , _crgEngine = Nothing+    , _crgPreferredMaintenanceWindow = Nothing+    , _crgCacheSubnetGroupName = Nothing+    , _crgSnapshotRetentionLimit = Nothing+    , _crgSnapshotName = Nothing+    , _crgPreferredCacheClusterAZs = Nothing+    , _crgNumCacheClusters = Nothing+    , _crgNotificationTopicARN = Nothing+    , _crgTags = Nothing+    , _crgCacheSecurityGroupNames = Nothing+    , _crgPort = Nothing+    , _crgReplicationGroupId = pReplicationGroupId_+    , _crgReplicationGroupDescription = pReplicationGroupDescription_     } --- | This parameter is currently disabled.-crgAutoMinorVersionUpgrade :: Lens' CreateReplicationGroup (Maybe Bool)-crgAutoMinorVersionUpgrade =-    lens _crgAutoMinorVersionUpgrade-        (\s a -> s { _crgAutoMinorVersionUpgrade = a })- -- | Specifies whether a read-only replica will be automatically promoted to--- read/write primary if the existing primary fails.+-- read\/write primary if the existing primary fails. ----- If 'true', Multi-AZ is enabled for this replication group. If 'false', Multi-AZ--- is disabled for this replication group.+-- If 'true', Multi-AZ is enabled for this replication group. If 'false',+-- Multi-AZ is disabled for this replication group. -- -- Default: false -- -- ElastiCache Multi-AZ replication groups is not supported on: ----- Redis versions earlier than 2.8.6. T1 and T2 cache node types.+-- -   Redis versions earlier than 2.8.6.+-- -   T1 and T2 cache node types. crgAutomaticFailoverEnabled :: Lens' CreateReplicationGroup (Maybe Bool)-crgAutomaticFailoverEnabled =-    lens _crgAutomaticFailoverEnabled-        (\s a -> s { _crgAutomaticFailoverEnabled = a })+crgAutomaticFailoverEnabled = lens _crgAutomaticFailoverEnabled (\ s a -> s{_crgAutomaticFailoverEnabled = a});  -- | The compute and memory capacity of the nodes in the node group. -- -- Valid node types are as follows: ----- General purpose:  Current generation: 'cache.t2.micro', 'cache.t2.small', 'cache.t2.medium', 'cache.m3.medium', 'cache.m3.large', 'cache.m3.xlarge', 'cache.m3.2xlarge' Previous--- generation: 'cache.t1.micro', 'cache.m1.small', 'cache.m1.medium', 'cache.m1.large', 'cache.m1.xlarge'  Compute optimized: 'cache.c1.xlarge' Memory optimized  Current generation: 'cache.r3.large', 'cache.r3.xlarge', 'cache.r3.2xlarge', 'cache.r3.4xlarge', 'cache.r3.8xlarge' Previous generation:--- 'cache.m2.xlarge', 'cache.m2.2xlarge', 'cache.m2.4xlarge'   Notes:+-- -   General purpose:+--     -   Current generation: 'cache.t2.micro', 'cache.t2.small',+--         'cache.t2.medium', 'cache.m3.medium', 'cache.m3.large',+--         'cache.m3.xlarge', 'cache.m3.2xlarge'+--     -   Previous generation: 'cache.t1.micro', 'cache.m1.small',+--         'cache.m1.medium', 'cache.m1.large', 'cache.m1.xlarge'+-- -   Compute optimized: 'cache.c1.xlarge'+-- -   Memory optimized+--     -   Current generation: 'cache.r3.large', 'cache.r3.xlarge',+--         'cache.r3.2xlarge', 'cache.r3.4xlarge', 'cache.r3.8xlarge'+--     -   Previous generation: 'cache.m2.xlarge', 'cache.m2.2xlarge',+--         'cache.m2.4xlarge' ----- All t2 instances are created in an Amazon Virtual Private Cloud (VPC). Redis backup/restore is not supported for t2 instances.--- Redis Append-only files (AOF) functionality is not supported for t1 or t2--- instances.  For a complete listing of cache node types and specifications,--- see <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details> and <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#CacheParameterGroups.Memcached.NodeSpecific Cache NodeType-Specific Parameters for Memcached> or <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#CacheParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parametersfor Redis>.-crgCacheNodeType :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheNodeType = lens _crgCacheNodeType (\s a -> s { _crgCacheNodeType = a })---- | The name of the parameter group to associate with this replication group. If--- this argument is omitted, the default cache parameter group for the specified--- engine is used.-crgCacheParameterGroupName :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheParameterGroupName =-    lens _crgCacheParameterGroupName-        (\s a -> s { _crgCacheParameterGroupName = a })---- | A list of cache security group names to associate with this replication group.-crgCacheSecurityGroupNames :: Lens' CreateReplicationGroup [Text]-crgCacheSecurityGroupNames =-    lens _crgCacheSecurityGroupNames-        (\s a -> s { _crgCacheSecurityGroupNames = a })-            . _List---- | The name of the cache subnet group to be used for the replication group.-crgCacheSubnetGroupName :: Lens' CreateReplicationGroup (Maybe Text)-crgCacheSubnetGroupName =-    lens _crgCacheSubnetGroupName (\s a -> s { _crgCacheSubnetGroupName = a })---- | The name of the cache engine to be used for the cache clusters in this--- replication group.+-- __Notes:__ ----- Default: redis-crgEngine :: Lens' CreateReplicationGroup (Maybe Text)-crgEngine = lens _crgEngine (\s a -> s { _crgEngine = a })+-- -   All t2 instances are created in an Amazon Virtual Private Cloud+--     (VPC).+-- -   Redis backup\/restore is not supported for t2 instances.+-- -   Redis Append-only files (AOF) functionality is not supported for t1+--     or t2 instances.+--+-- For a complete listing of cache node types and specifications, see+-- <http://aws.amazon.com/elasticache/details Amazon ElastiCache Product Features and Details>+-- and+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Memcached.html#CacheParameterGroups.Memcached.NodeSpecific Cache Node Type-Specific Parameters for Memcached>+-- or+-- <http://docs.aws.amazon.com/AmazonElastiCache/latest/UserGuide/CacheParameterGroups.Redis.html#CacheParameterGroups.Redis.NodeSpecific Cache Node Type-Specific Parameters for Redis>.+crgCacheNodeType :: Lens' CreateReplicationGroup (Maybe Text)+crgCacheNodeType = lens _crgCacheNodeType (\ s a -> s{_crgCacheNodeType = a}); --- | The version number of the cache engine to be used for the cache clusters in--- this replication group. To view the supported cache engine versions, use the /DescribeCacheEngineVersions/ action.+-- | The version number of the cache engine to be used for the cache clusters+-- in this replication group. To view the supported cache engine versions,+-- use the /DescribeCacheEngineVersions/ action. crgEngineVersion :: Lens' CreateReplicationGroup (Maybe Text)-crgEngineVersion = lens _crgEngineVersion (\s a -> s { _crgEngineVersion = a })+crgEngineVersion = lens _crgEngineVersion (\ s a -> s{_crgEngineVersion = a}); --- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service--- (SNS) topic to which notifications will be sent.+-- | One or more Amazon VPC security groups associated with this replication+-- group. ----- The Amazon SNS topic owner must be the same as the cache cluster owner.-crgNotificationTopicArn :: Lens' CreateReplicationGroup (Maybe Text)-crgNotificationTopicArn =-    lens _crgNotificationTopicArn (\s a -> s { _crgNotificationTopicArn = a })+-- Use this parameter only when you are creating a replication group in an+-- Amazon Virtual Private Cloud (VPC).+crgSecurityGroupIds :: Lens' CreateReplicationGroup [Text]+crgSecurityGroupIds = lens _crgSecurityGroupIds (\ s a -> s{_crgSecurityGroupIds = a}) . _Default . _Coerce; --- | The number of cache clusters this replication group will initially have.+-- | This parameter is currently disabled.+crgAutoMinorVersionUpgrade :: Lens' CreateReplicationGroup (Maybe Bool)+crgAutoMinorVersionUpgrade = lens _crgAutoMinorVersionUpgrade (\ s a -> s{_crgAutoMinorVersionUpgrade = a});++-- | A single-element string list containing an Amazon Resource Name (ARN)+-- that uniquely identifies a Redis RDB snapshot file stored in Amazon S3.+-- The snapshot file will be used to populate the node group. The Amazon S3+-- object name in the ARN cannot contain any commas. ----- If /Multi-AZ/ is 'enabled', the value of this parameter must be at least 2.+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'. ----- The maximum permitted value for /NumCacheClusters/ is 6 (primary plus 5--- replicas). If you need to exceed this limit, please fill out the ElastiCache--- Limit Increase Request form at <http://aws.amazon.com/contact-us/elasticache-node-limit-request http://aws.amazon.com/contact-us/elasticache-node-limit-request>.-crgNumCacheClusters :: Lens' CreateReplicationGroup (Maybe Int)-crgNumCacheClusters =-    lens _crgNumCacheClusters (\s a -> s { _crgNumCacheClusters = a })+-- Example of an Amazon S3 ARN: 'arn:aws:s3:::my_bucket\/snapshot1.rdb'+crgSnapshotARNs :: Lens' CreateReplicationGroup [Text]+crgSnapshotARNs = lens _crgSnapshotARNs (\ s a -> s{_crgSnapshotARNs = a}) . _Default . _Coerce; --- | The port number on which each member of the replication group will accept--- connections.-crgPort :: Lens' CreateReplicationGroup (Maybe Int)-crgPort = lens _crgPort (\s a -> s { _crgPort = a })+-- | The name of the parameter group to associate with this replication+-- group. If this argument is omitted, the default cache parameter group+-- for the specified engine is used.+crgCacheParameterGroupName :: Lens' CreateReplicationGroup (Maybe Text)+crgCacheParameterGroupName = lens _crgCacheParameterGroupName (\ s a -> s{_crgCacheParameterGroupName = a}); --- | A list of EC2 availability zones in which the replication group's cache--- clusters will be created. The order of the availability zones in the list is--- not important.------ If you are creating your replication group in an Amazon VPC (recommended),--- you can only locate cache clusters in availability zones associated with the--- subnets in the selected subnet group. The number of availability zones listed--- must equal the value of /NumCacheClusters/.+-- | The daily time range (in UTC) during which ElastiCache will begin taking+-- a daily snapshot of your node group. ----- Default: system chosen availability zones.+-- Example: '05:00-09:00' ----- Example: One Redis cache cluster in each of three availability zones.--- PreferredAvailabilityZones.member.1=us-west-2a--- PreferredAvailabilityZones.member.2=us-west-2c--- PreferredAvailabilityZones.member.3=us-west-2c-crgPreferredCacheClusterAZs :: Lens' CreateReplicationGroup [Text]-crgPreferredCacheClusterAZs =-    lens _crgPreferredCacheClusterAZs-        (\s a -> s { _crgPreferredCacheClusterAZs = a })-            . _List---- | Specifies the weekly time range during which maintenance on the cache cluster--- is performed. It is specified as a range in the format--- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window is a--- 60 minute period. Valid values for 'ddd' are:+-- If you do not specify this parameter, then ElastiCache will+-- automatically choose an appropriate time range. ----- 'sun' 'mon' 'tue' 'wed' 'thu' 'fri' 'sat'  Example: 'sun:05:00-sun:09:00'-crgPreferredMaintenanceWindow :: Lens' CreateReplicationGroup (Maybe Text)-crgPreferredMaintenanceWindow =-    lens _crgPreferredMaintenanceWindow-        (\s a -> s { _crgPreferredMaintenanceWindow = a })+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'.+crgSnapshotWindow :: Lens' CreateReplicationGroup (Maybe Text)+crgSnapshotWindow = lens _crgSnapshotWindow (\ s a -> s{_crgSnapshotWindow = a}); --- | The identifier of the cache cluster that will serve as the primary for this--- replication group. This cache cluster must already exist and have a status of /available/.+-- | The identifier of the cache cluster that will serve as the primary for+-- this replication group. This cache cluster must already exist and have a+-- status of /available/. -- -- This parameter is not required if /NumCacheClusters/ is specified. crgPrimaryClusterId :: Lens' CreateReplicationGroup (Maybe Text)-crgPrimaryClusterId =-    lens _crgPrimaryClusterId (\s a -> s { _crgPrimaryClusterId = a })+crgPrimaryClusterId = lens _crgPrimaryClusterId (\ s a -> s{_crgPrimaryClusterId = a}); --- | A user-created description for the replication group.-crgReplicationGroupDescription :: Lens' CreateReplicationGroup Text-crgReplicationGroupDescription =-    lens _crgReplicationGroupDescription-        (\s a -> s { _crgReplicationGroupDescription = a })+-- | The name of the cache engine to be used for the cache clusters in this+-- replication group.+--+-- Default: redis+crgEngine :: Lens' CreateReplicationGroup (Maybe Text)+crgEngine = lens _crgEngine (\ s a -> s{_crgEngine = a}); --- | The replication group identifier. This parameter is stored as a lowercase--- string.+-- | Specifies the weekly time range during which maintenance on the cache+-- cluster is performed. It is specified as a range in the format+-- ddd:hh24:mi-ddd:hh24:mi (24H Clock UTC). The minimum maintenance window+-- is a 60 minute period. Valid values for 'ddd' are: ----- Constraints:+-- -   'sun'+-- -   'mon'+-- -   'tue'+-- -   'wed'+-- -   'thu'+-- -   'fri'+-- -   'sat' ----- A name must contain from 1 to 20 alphanumeric characters or hyphens. The--- first character must be a letter. A name cannot end with a hyphen or contain--- two consecutive hyphens.-crgReplicationGroupId :: Lens' CreateReplicationGroup Text-crgReplicationGroupId =-    lens _crgReplicationGroupId (\s a -> s { _crgReplicationGroupId = a })+-- Example: 'sun:05:00-sun:09:00'+crgPreferredMaintenanceWindow :: Lens' CreateReplicationGroup (Maybe Text)+crgPreferredMaintenanceWindow = lens _crgPreferredMaintenanceWindow (\ s a -> s{_crgPreferredMaintenanceWindow = a}); --- | One or more Amazon VPC security groups associated with this replication group.------ Use this parameter only when you are creating a replication group in an--- Amazon Virtual Private Cloud (VPC).-crgSecurityGroupIds :: Lens' CreateReplicationGroup [Text]-crgSecurityGroupIds =-    lens _crgSecurityGroupIds (\s a -> s { _crgSecurityGroupIds = a })-        . _List+-- | The name of the cache subnet group to be used for the replication group.+crgCacheSubnetGroupName :: Lens' CreateReplicationGroup (Maybe Text)+crgCacheSubnetGroupName = lens _crgCacheSubnetGroupName (\ s a -> s{_crgCacheSubnetGroupName = a}); --- | A single-element string list containing an Amazon Resource Name (ARN) that--- uniquely identifies a Redis RDB snapshot file stored in Amazon S3. The--- snapshot file will be used to populate the node group. The Amazon S3 object--- name in the ARN cannot contain any commas.+-- | The number of days for which ElastiCache will retain automatic snapshots+-- before deleting them. For example, if you set 'SnapshotRetentionLimit'+-- to 5, then a snapshot that was taken today will be retained for 5 days+-- before being deleted. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'. ----- Example of an Amazon S3 ARN: 'arn:aws:s3:::my_bucket/snapshot1.rdb'-crgSnapshotArns :: Lens' CreateReplicationGroup [Text]-crgSnapshotArns = lens _crgSnapshotArns (\s a -> s { _crgSnapshotArns = a }) . _List+-- Default: 0 (i.e., automatic backups are disabled for this cache+-- cluster).+crgSnapshotRetentionLimit :: Lens' CreateReplicationGroup (Maybe Int)+crgSnapshotRetentionLimit = lens _crgSnapshotRetentionLimit (\ s a -> s{_crgSnapshotRetentionLimit = a}); --- | The name of a snapshot from which to restore data into the new node group.--- The snapshot status changes to 'restoring' while the new node group is being--- created.+-- | The name of a snapshot from which to restore data into the new node+-- group. The snapshot status changes to 'restoring' while the new node+-- group is being created. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- __Note:__ This parameter is only valid if the 'Engine' parameter is+-- 'redis'. crgSnapshotName :: Lens' CreateReplicationGroup (Maybe Text)-crgSnapshotName = lens _crgSnapshotName (\s a -> s { _crgSnapshotName = a })+crgSnapshotName = lens _crgSnapshotName (\ s a -> s{_crgSnapshotName = a}); --- | The number of days for which ElastiCache will retain automatic snapshots--- before deleting them. For example, if you set 'SnapshotRetentionLimit' to 5,--- then a snapshot that was taken today will be retained for 5 days before being--- deleted.+-- | A list of EC2 availability zones in which the replication group\'s cache+-- clusters will be created. The order of the availability zones in the+-- list is not important. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.+-- If you are creating your replication group in an Amazon VPC+-- (recommended), you can only locate cache clusters in availability zones+-- associated with the subnets in the selected subnet group. ----- Default: 0 (i.e., automatic backups are disabled for this cache cluster).-crgSnapshotRetentionLimit :: Lens' CreateReplicationGroup (Maybe Int)-crgSnapshotRetentionLimit =-    lens _crgSnapshotRetentionLimit-        (\s a -> s { _crgSnapshotRetentionLimit = a })+-- The number of availability zones listed must equal the value of+-- /NumCacheClusters/.+--+-- Default: system chosen availability zones.+--+-- Example: One Redis cache cluster in each of three availability zones.+-- PreferredAvailabilityZones.member.1=us-west-2a+-- PreferredAvailabilityZones.member.2=us-west-2c+-- PreferredAvailabilityZones.member.3=us-west-2c+crgPreferredCacheClusterAZs :: Lens' CreateReplicationGroup [Text]+crgPreferredCacheClusterAZs = lens _crgPreferredCacheClusterAZs (\ s a -> s{_crgPreferredCacheClusterAZs = a}) . _Default . _Coerce; --- | The daily time range (in UTC) during which ElastiCache will begin taking a--- daily snapshot of your node group.+-- | The number of cache clusters this replication group will initially have. ----- Example: '05:00-09:00'+-- If /Multi-AZ/ is 'enabled', the value of this parameter must be at least+-- 2. ----- If you do not specify this parameter, then ElastiCache will automatically--- choose an appropriate time range.+-- The maximum permitted value for /NumCacheClusters/ is 6 (primary plus 5+-- replicas). If you need to exceed this limit, please fill out the+-- ElastiCache Limit Increase Request form at+-- <http://aws.amazon.com/contact-us/elasticache-node-limit-request>.+crgNumCacheClusters :: Lens' CreateReplicationGroup (Maybe Int)+crgNumCacheClusters = lens _crgNumCacheClusters (\ s a -> s{_crgNumCacheClusters = a});++-- | The Amazon Resource Name (ARN) of the Amazon Simple Notification Service+-- (SNS) topic to which notifications will be sent. ----- Note: This parameter is only valid if the 'Engine' parameter is 'redis'.-crgSnapshotWindow :: Lens' CreateReplicationGroup (Maybe Text)-crgSnapshotWindow =-    lens _crgSnapshotWindow (\s a -> s { _crgSnapshotWindow = a })+-- The Amazon SNS topic owner must be the same as the cache cluster owner.+crgNotificationTopicARN :: Lens' CreateReplicationGroup (Maybe Text)+crgNotificationTopicARN = lens _crgNotificationTopicARN (\ s a -> s{_crgNotificationTopicARN = a});  -- | A list of cost allocation tags to be added to this resource. A tag is a -- key-value pair. A tag key must be accompanied by a tag value. crgTags :: Lens' CreateReplicationGroup [Tag]-crgTags = lens _crgTags (\s a -> s { _crgTags = a }) . _List+crgTags = lens _crgTags (\ s a -> s{_crgTags = a}) . _Default . _Coerce; -newtype CreateReplicationGroupResponse = CreateReplicationGroupResponse-    { _crgrReplicationGroup :: Maybe ReplicationGroup-    } deriving (Eq, Read, Show)+-- | A list of cache security group names to associate with this replication+-- group.+crgCacheSecurityGroupNames :: Lens' CreateReplicationGroup [Text]+crgCacheSecurityGroupNames = lens _crgCacheSecurityGroupNames (\ s a -> s{_crgCacheSecurityGroupNames = a}) . _Default . _Coerce; --- | 'CreateReplicationGroupResponse' constructor.------ The fields accessible through corresponding lenses are:+-- | The port number on which each member of the replication group will+-- accept connections.+crgPort :: Lens' CreateReplicationGroup (Maybe Int)+crgPort = lens _crgPort (\ s a -> s{_crgPort = a});++-- | The replication group identifier. This parameter is stored as a+-- lowercase string. ----- * 'crgrReplicationGroup' @::@ 'Maybe' 'ReplicationGroup'+-- Constraints: ---createReplicationGroupResponse :: CreateReplicationGroupResponse-createReplicationGroupResponse = CreateReplicationGroupResponse-    { _crgrReplicationGroup = Nothing-    }+-- -   A name must contain from 1 to 20 alphanumeric characters or hyphens.+-- -   The first character must be a letter.+-- -   A name cannot end with a hyphen or contain two consecutive hyphens.+crgReplicationGroupId :: Lens' CreateReplicationGroup Text+crgReplicationGroupId = lens _crgReplicationGroupId (\ s a -> s{_crgReplicationGroupId = a}); -crgrReplicationGroup :: Lens' CreateReplicationGroupResponse (Maybe ReplicationGroup)-crgrReplicationGroup =-    lens _crgrReplicationGroup (\s a -> s { _crgrReplicationGroup = a })+-- | A user-created description for the replication group.+crgReplicationGroupDescription :: Lens' CreateReplicationGroup Text+crgReplicationGroupDescription = lens _crgReplicationGroupDescription (\ s a -> s{_crgReplicationGroupDescription = a}); +instance AWSRequest CreateReplicationGroup where+        type Sv CreateReplicationGroup = ElastiCache+        type Rs CreateReplicationGroup =+             CreateReplicationGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateReplicationGroupResult"+              (\ s h x ->+                 CreateReplicationGroupResponse' <$>+                   (x .@? "ReplicationGroup") <*> (pure (fromEnum s)))++instance ToHeaders CreateReplicationGroup where+        toHeaders = const mempty+ instance ToPath CreateReplicationGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateReplicationGroup where-    toQuery CreateReplicationGroup{..} = mconcat-        [ "AutoMinorVersionUpgrade"     =? _crgAutoMinorVersionUpgrade-        , "AutomaticFailoverEnabled"    =? _crgAutomaticFailoverEnabled-        , "CacheNodeType"               =? _crgCacheNodeType-        , "CacheParameterGroupName"     =? _crgCacheParameterGroupName-        , "CacheSecurityGroupNames"     =? _crgCacheSecurityGroupNames-        , "CacheSubnetGroupName"        =? _crgCacheSubnetGroupName-        , "Engine"                      =? _crgEngine-        , "EngineVersion"               =? _crgEngineVersion-        , "NotificationTopicArn"        =? _crgNotificationTopicArn-        , "NumCacheClusters"            =? _crgNumCacheClusters-        , "Port"                        =? _crgPort-        , "PreferredCacheClusterAZs"    =? _crgPreferredCacheClusterAZs-        , "PreferredMaintenanceWindow"  =? _crgPreferredMaintenanceWindow-        , "PrimaryClusterId"            =? _crgPrimaryClusterId-        , "ReplicationGroupDescription" =? _crgReplicationGroupDescription-        , "ReplicationGroupId"          =? _crgReplicationGroupId-        , "SecurityGroupIds"            =? _crgSecurityGroupIds-        , "SnapshotArns"                =? _crgSnapshotArns-        , "SnapshotName"                =? _crgSnapshotName-        , "SnapshotRetentionLimit"      =? _crgSnapshotRetentionLimit-        , "SnapshotWindow"              =? _crgSnapshotWindow-        , "Tags"                        =? _crgTags-        ]+        toQuery CreateReplicationGroup'{..}+          = mconcat+              ["Action" =:+                 ("CreateReplicationGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "AutomaticFailoverEnabled" =:+                 _crgAutomaticFailoverEnabled,+               "CacheNodeType" =: _crgCacheNodeType,+               "EngineVersion" =: _crgEngineVersion,+               "SecurityGroupIds" =:+                 toQuery+                   (toQueryList "SecurityGroupId" <$>+                      _crgSecurityGroupIds),+               "AutoMinorVersionUpgrade" =:+                 _crgAutoMinorVersionUpgrade,+               "SnapshotArns" =:+                 toQuery+                   (toQueryList "SnapshotArn" <$> _crgSnapshotARNs),+               "CacheParameterGroupName" =:+                 _crgCacheParameterGroupName,+               "SnapshotWindow" =: _crgSnapshotWindow,+               "PrimaryClusterId" =: _crgPrimaryClusterId,+               "Engine" =: _crgEngine,+               "PreferredMaintenanceWindow" =:+                 _crgPreferredMaintenanceWindow,+               "CacheSubnetGroupName" =: _crgCacheSubnetGroupName,+               "SnapshotRetentionLimit" =:+                 _crgSnapshotRetentionLimit,+               "SnapshotName" =: _crgSnapshotName,+               "PreferredCacheClusterAZs" =:+                 toQuery+                   (toQueryList "AvailabilityZone" <$>+                      _crgPreferredCacheClusterAZs),+               "NumCacheClusters" =: _crgNumCacheClusters,+               "NotificationTopicArn" =: _crgNotificationTopicARN,+               "Tags" =: toQuery (toQueryList "Tag" <$> _crgTags),+               "CacheSecurityGroupNames" =:+                 toQuery+                   (toQueryList "CacheSecurityGroupName" <$>+                      _crgCacheSecurityGroupNames),+               "Port" =: _crgPort,+               "ReplicationGroupId" =: _crgReplicationGroupId,+               "ReplicationGroupDescription" =:+                 _crgReplicationGroupDescription] -instance ToHeaders CreateReplicationGroup+-- | /See:/ 'createReplicationGroupResponse' smart constructor.+data CreateReplicationGroupResponse = CreateReplicationGroupResponse'+    { _crgrsReplicationGroup :: !(Maybe ReplicationGroup)+    , _crgrsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateReplicationGroup where-    type Sv CreateReplicationGroup = ElastiCache-    type Rs CreateReplicationGroup = CreateReplicationGroupResponse+-- | Creates a value of 'CreateReplicationGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crgrsReplicationGroup'+--+-- * 'crgrsStatus'+createReplicationGroupResponse+    :: Int -- ^ 'crgrsStatus'+    -> CreateReplicationGroupResponse+createReplicationGroupResponse pStatus_ =+    CreateReplicationGroupResponse'+    { _crgrsReplicationGroup = Nothing+    , _crgrsStatus = pStatus_+    } -    request  = post "CreateReplicationGroup"-    response = xmlResponse+-- | Undocumented member.+crgrsReplicationGroup :: Lens' CreateReplicationGroupResponse (Maybe ReplicationGroup)+crgrsReplicationGroup = lens _crgrsReplicationGroup (\ s a -> s{_crgrsReplicationGroup = a}); -instance FromXML CreateReplicationGroupResponse where-    parseXML = withElement "CreateReplicationGroupResult" $ \x -> CreateReplicationGroupResponse-        <$> x .@? "ReplicationGroup"+-- | The response status code.+crgrsStatus :: Lens' CreateReplicationGroupResponse Int+crgrsStatus = lens _crgrsStatus (\ s a -> s{_crgrsStatus = a});

@@ -1,120 +1,134 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.CreateSnapshot--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /CreateSnapshot/ action creates a copy of an entire cache cluster at a--- specific moment in time.+-- The /CreateSnapshot/ action creates a copy of an entire cache cluster at+-- a specific moment in time. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_CreateSnapshot.html AWS API Reference> for CreateSnapshot. module Network.AWS.ElastiCache.CreateSnapshot     (-    -- * Request-      CreateSnapshot-    -- ** Request constructor-    , createSnapshot-    -- ** Request lenses+    -- * Creating a Request+      createSnapshot+    , CreateSnapshot+    -- * Request Lenses     , csCacheClusterId     , csSnapshotName -    -- * Response-    , CreateSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createSnapshotResponse-    -- ** Response lenses-    , csr1Snapshot+    , CreateSnapshotResponse+    -- * Response Lenses+    , crersSnapshot+    , crersStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data CreateSnapshot = CreateSnapshot-    { _csCacheClusterId :: Text-    , _csSnapshotName   :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'CreateSnapshot' constructor.+-- | Represents the input of a /CreateSnapshot/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createSnapshot' smart constructor.+data CreateSnapshot = CreateSnapshot'+    { _csCacheClusterId :: !Text+    , _csSnapshotName   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateSnapshot' with the minimum fields required to make a request. ----- * 'csCacheClusterId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'csSnapshotName' @::@ 'Text'+-- * 'csCacheClusterId' ---createSnapshot :: Text -- ^ 'csCacheClusterId'-               -> Text -- ^ 'csSnapshotName'-               -> CreateSnapshot-createSnapshot p1 p2 = CreateSnapshot-    { _csCacheClusterId = p1-    , _csSnapshotName   = p2+-- * 'csSnapshotName'+createSnapshot+    :: Text -- ^ 'csCacheClusterId'+    -> Text -- ^ 'csSnapshotName'+    -> CreateSnapshot+createSnapshot pCacheClusterId_ pSnapshotName_ =+    CreateSnapshot'+    { _csCacheClusterId = pCacheClusterId_+    , _csSnapshotName = pSnapshotName_     } --- | The identifier of an existing cache cluster. The snapshot will be created--- from this cache cluster.+-- | The identifier of an existing cache cluster. The snapshot will be+-- created from this cache cluster. csCacheClusterId :: Lens' CreateSnapshot Text-csCacheClusterId = lens _csCacheClusterId (\s a -> s { _csCacheClusterId = a })+csCacheClusterId = lens _csCacheClusterId (\ s a -> s{_csCacheClusterId = a});  -- | A name for the snapshot being created. csSnapshotName :: Lens' CreateSnapshot Text-csSnapshotName = lens _csSnapshotName (\s a -> s { _csSnapshotName = a })--newtype CreateSnapshotResponse = CreateSnapshotResponse-    { _csr1Snapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+csSnapshotName = lens _csSnapshotName (\ s a -> s{_csSnapshotName = a}); --- | 'CreateSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'csr1Snapshot' @::@ 'Maybe' 'Snapshot'----createSnapshotResponse :: CreateSnapshotResponse-createSnapshotResponse = CreateSnapshotResponse-    { _csr1Snapshot = Nothing-    }+instance AWSRequest CreateSnapshot where+        type Sv CreateSnapshot = ElastiCache+        type Rs CreateSnapshot = CreateSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "CreateSnapshotResult"+              (\ s h x ->+                 CreateSnapshotResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -csr1Snapshot :: Lens' CreateSnapshotResponse (Maybe Snapshot)-csr1Snapshot = lens _csr1Snapshot (\s a -> s { _csr1Snapshot = a })+instance ToHeaders CreateSnapshot where+        toHeaders = const mempty  instance ToPath CreateSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateSnapshot where-    toQuery CreateSnapshot{..} = mconcat-        [ "CacheClusterId" =? _csCacheClusterId-        , "SnapshotName"   =? _csSnapshotName-        ]+        toQuery CreateSnapshot'{..}+          = mconcat+              ["Action" =: ("CreateSnapshot" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheClusterId" =: _csCacheClusterId,+               "SnapshotName" =: _csSnapshotName] -instance ToHeaders CreateSnapshot+-- | /See:/ 'createSnapshotResponse' smart constructor.+data CreateSnapshotResponse = CreateSnapshotResponse'+    { _crersSnapshot :: !(Maybe Snapshot)+    , _crersStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateSnapshot where-    type Sv CreateSnapshot = ElastiCache-    type Rs CreateSnapshot = CreateSnapshotResponse+-- | Creates a value of 'CreateSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'crersSnapshot'+--+-- * 'crersStatus'+createSnapshotResponse+    :: Int -- ^ 'crersStatus'+    -> CreateSnapshotResponse+createSnapshotResponse pStatus_ =+    CreateSnapshotResponse'+    { _crersSnapshot = Nothing+    , _crersStatus = pStatus_+    } -    request  = post "CreateSnapshot"-    response = xmlResponse+-- | Undocumented member.+crersSnapshot :: Lens' CreateSnapshotResponse (Maybe Snapshot)+crersSnapshot = lens _crersSnapshot (\ s a -> s{_crersSnapshot = a}); -instance FromXML CreateSnapshotResponse where-    parseXML = withElement "CreateSnapshotResult" $ \x -> CreateSnapshotResponse-        <$> x .@? "Snapshot"+-- | The response status code.+crersStatus :: Lens' CreateSnapshotResponse Int+crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});

@@ -1,129 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteCacheCluster--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteCacheCluster/ action deletes a previously provisioned cache cluster. /DeleteCacheCluster/ deletes all associated cache nodes, node endpoints and the--- cache cluster itself. When you receive a successful response from this--- action, Amazon ElastiCache immediately begins deleting the cache cluster; you--- cannot cancel or revert this action.+-- The /DeleteCacheCluster/ action deletes a previously provisioned cache+-- cluster. /DeleteCacheCluster/ deletes all associated cache nodes, node+-- endpoints and the cache cluster itself. When you receive a successful+-- response from this action, Amazon ElastiCache immediately begins+-- deleting the cache cluster; you cannot cancel or revert this action. -- -- This API cannot be used to delete a cache cluster that is the last read -- replica of a replication group that has Multi-AZ mode enabled. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheCluster.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheCluster.html AWS API Reference> for DeleteCacheCluster. module Network.AWS.ElastiCache.DeleteCacheCluster     (-    -- * Request-      DeleteCacheCluster-    -- ** Request constructor-    , deleteCacheCluster-    -- ** Request lenses-    , dccCacheClusterId+    -- * Creating a Request+      deleteCacheCluster+    , DeleteCacheCluster+    -- * Request Lenses     , dccFinalSnapshotIdentifier+    , dccCacheClusterId -    -- * Response-    , DeleteCacheClusterResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteCacheClusterResponse-    -- ** Response lenses-    , dccrCacheCluster+    , DeleteCacheClusterResponse+    -- * Response Lenses+    , dccrsCacheCluster+    , dccrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data DeleteCacheCluster = DeleteCacheCluster-    { _dccCacheClusterId          :: Text-    , _dccFinalSnapshotIdentifier :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteCacheCluster' constructor.+-- | Represents the input of a /DeleteCacheCluster/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteCacheCluster' smart constructor.+data DeleteCacheCluster = DeleteCacheCluster'+    { _dccFinalSnapshotIdentifier :: !(Maybe Text)+    , _dccCacheClusterId          :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteCacheCluster' with the minimum fields required to make a request. ----- * 'dccCacheClusterId' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dccFinalSnapshotIdentifier' @::@ 'Maybe' 'Text'+-- * 'dccFinalSnapshotIdentifier' ---deleteCacheCluster :: Text -- ^ 'dccCacheClusterId'-                   -> DeleteCacheCluster-deleteCacheCluster p1 = DeleteCacheCluster-    { _dccCacheClusterId          = p1-    , _dccFinalSnapshotIdentifier = Nothing+-- * 'dccCacheClusterId'+deleteCacheCluster+    :: Text -- ^ 'dccCacheClusterId'+    -> DeleteCacheCluster+deleteCacheCluster pCacheClusterId_ =+    DeleteCacheCluster'+    { _dccFinalSnapshotIdentifier = Nothing+    , _dccCacheClusterId = pCacheClusterId_     } --- | The cache cluster identifier for the cluster to be deleted. This parameter is--- not case sensitive.-dccCacheClusterId :: Lens' DeleteCacheCluster Text-dccCacheClusterId =-    lens _dccCacheClusterId (\s a -> s { _dccCacheClusterId = a })---- | The user-supplied name of a final cache cluster snapshot. This is the unique--- name that identifies the snapshot. ElastiCache creates the snapshot, and then--- deletes the cache cluster immediately afterward.+-- | The user-supplied name of a final cache cluster snapshot. This is the+-- unique name that identifies the snapshot. ElastiCache creates the+-- snapshot, and then deletes the cache cluster immediately afterward. dccFinalSnapshotIdentifier :: Lens' DeleteCacheCluster (Maybe Text)-dccFinalSnapshotIdentifier =-    lens _dccFinalSnapshotIdentifier-        (\s a -> s { _dccFinalSnapshotIdentifier = a })+dccFinalSnapshotIdentifier = lens _dccFinalSnapshotIdentifier (\ s a -> s{_dccFinalSnapshotIdentifier = a}); -newtype DeleteCacheClusterResponse = DeleteCacheClusterResponse-    { _dccrCacheCluster :: Maybe CacheCluster-    } deriving (Eq, Read, Show)+-- | The cache cluster identifier for the cluster to be deleted. This+-- parameter is not case sensitive.+dccCacheClusterId :: Lens' DeleteCacheCluster Text+dccCacheClusterId = lens _dccCacheClusterId (\ s a -> s{_dccCacheClusterId = a}); --- | 'DeleteCacheClusterResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dccrCacheCluster' @::@ 'Maybe' 'CacheCluster'----deleteCacheClusterResponse :: DeleteCacheClusterResponse-deleteCacheClusterResponse = DeleteCacheClusterResponse-    { _dccrCacheCluster = Nothing-    }+instance AWSRequest DeleteCacheCluster where+        type Sv DeleteCacheCluster = ElastiCache+        type Rs DeleteCacheCluster =+             DeleteCacheClusterResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteCacheClusterResult"+              (\ s h x ->+                 DeleteCacheClusterResponse' <$>+                   (x .@? "CacheCluster") <*> (pure (fromEnum s))) -dccrCacheCluster :: Lens' DeleteCacheClusterResponse (Maybe CacheCluster)-dccrCacheCluster = lens _dccrCacheCluster (\s a -> s { _dccrCacheCluster = a })+instance ToHeaders DeleteCacheCluster where+        toHeaders = const mempty  instance ToPath DeleteCacheCluster where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteCacheCluster where-    toQuery DeleteCacheCluster{..} = mconcat-        [ "CacheClusterId"          =? _dccCacheClusterId-        , "FinalSnapshotIdentifier" =? _dccFinalSnapshotIdentifier-        ]+        toQuery DeleteCacheCluster'{..}+          = mconcat+              ["Action" =: ("DeleteCacheCluster" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "FinalSnapshotIdentifier" =:+                 _dccFinalSnapshotIdentifier,+               "CacheClusterId" =: _dccCacheClusterId] -instance ToHeaders DeleteCacheCluster+-- | /See:/ 'deleteCacheClusterResponse' smart constructor.+data DeleteCacheClusterResponse = DeleteCacheClusterResponse'+    { _dccrsCacheCluster :: !(Maybe CacheCluster)+    , _dccrsStatus       :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteCacheCluster where-    type Sv DeleteCacheCluster = ElastiCache-    type Rs DeleteCacheCluster = DeleteCacheClusterResponse+-- | Creates a value of 'DeleteCacheClusterResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dccrsCacheCluster'+--+-- * 'dccrsStatus'+deleteCacheClusterResponse+    :: Int -- ^ 'dccrsStatus'+    -> DeleteCacheClusterResponse+deleteCacheClusterResponse pStatus_ =+    DeleteCacheClusterResponse'+    { _dccrsCacheCluster = Nothing+    , _dccrsStatus = pStatus_+    } -    request  = post "DeleteCacheCluster"-    response = xmlResponse+-- | Undocumented member.+dccrsCacheCluster :: Lens' DeleteCacheClusterResponse (Maybe CacheCluster)+dccrsCacheCluster = lens _dccrsCacheCluster (\ s a -> s{_dccrsCacheCluster = a}); -instance FromXML DeleteCacheClusterResponse where-    parseXML = withElement "DeleteCacheClusterResult" $ \x -> DeleteCacheClusterResponse-        <$> x .@? "CacheCluster"+-- | The response status code.+dccrsStatus :: Lens' DeleteCacheClusterResponse Int+dccrsStatus = lens _dccrsStatus (\ s a -> s{_dccrsStatus = a});

@@ -1,97 +1,104 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteCacheParameterGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteCacheParameterGroup/ action deletes the specified cache parameter--- group. You cannot delete a cache parameter group if it is associated with any--- cache clusters.+-- The /DeleteCacheParameterGroup/ action deletes the specified cache+-- parameter group. You cannot delete a cache parameter group if it is+-- associated with any cache clusters. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheParameterGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheParameterGroup.html AWS API Reference> for DeleteCacheParameterGroup. module Network.AWS.ElastiCache.DeleteCacheParameterGroup     (-    -- * Request-      DeleteCacheParameterGroup-    -- ** Request constructor-    , deleteCacheParameterGroup-    -- ** Request lenses-    , dcpg1CacheParameterGroupName+    -- * Creating a Request+      deleteCacheParameterGroup+    , DeleteCacheParameterGroup+    -- * Request Lenses+    , dCacheParameterGroupName -    -- * Response-    , DeleteCacheParameterGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteCacheParameterGroupResponse+    , DeleteCacheParameterGroupResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--newtype DeleteCacheParameterGroup = DeleteCacheParameterGroup-    { _dcpg1CacheParameterGroupName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteCacheParameterGroup' constructor.+-- | Represents the input of a /DeleteCacheParameterGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteCacheParameterGroup' smart constructor.+newtype DeleteCacheParameterGroup = DeleteCacheParameterGroup'+    { _dCacheParameterGroupName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteCacheParameterGroup' with the minimum fields required to make a request. ----- * 'dcpg1CacheParameterGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteCacheParameterGroup :: Text -- ^ 'dcpg1CacheParameterGroupName'-                          -> DeleteCacheParameterGroup-deleteCacheParameterGroup p1 = DeleteCacheParameterGroup-    { _dcpg1CacheParameterGroupName = p1+-- * 'dCacheParameterGroupName'+deleteCacheParameterGroup+    :: Text -- ^ 'dCacheParameterGroupName'+    -> DeleteCacheParameterGroup+deleteCacheParameterGroup pCacheParameterGroupName_ =+    DeleteCacheParameterGroup'+    { _dCacheParameterGroupName = pCacheParameterGroupName_     }  -- | The name of the cache parameter group to delete. -- -- The specified cache security group must not be associated with any cache -- clusters.-dcpg1CacheParameterGroupName :: Lens' DeleteCacheParameterGroup Text-dcpg1CacheParameterGroupName =-    lens _dcpg1CacheParameterGroupName-        (\s a -> s { _dcpg1CacheParameterGroupName = a })+dCacheParameterGroupName :: Lens' DeleteCacheParameterGroup Text+dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a}); -data DeleteCacheParameterGroupResponse = DeleteCacheParameterGroupResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteCacheParameterGroup where+        type Sv DeleteCacheParameterGroup = ElastiCache+        type Rs DeleteCacheParameterGroup =+             DeleteCacheParameterGroupResponse+        request = postQuery+        response+          = receiveNull DeleteCacheParameterGroupResponse' --- | 'DeleteCacheParameterGroupResponse' constructor.-deleteCacheParameterGroupResponse :: DeleteCacheParameterGroupResponse-deleteCacheParameterGroupResponse = DeleteCacheParameterGroupResponse+instance ToHeaders DeleteCacheParameterGroup where+        toHeaders = const mempty  instance ToPath DeleteCacheParameterGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteCacheParameterGroup where-    toQuery DeleteCacheParameterGroup{..} = mconcat-        [ "CacheParameterGroupName" =? _dcpg1CacheParameterGroupName-        ]--instance ToHeaders DeleteCacheParameterGroup+        toQuery DeleteCacheParameterGroup'{..}+          = mconcat+              ["Action" =:+                 ("DeleteCacheParameterGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheParameterGroupName" =:+                 _dCacheParameterGroupName] -instance AWSRequest DeleteCacheParameterGroup where-    type Sv DeleteCacheParameterGroup = ElastiCache-    type Rs DeleteCacheParameterGroup = DeleteCacheParameterGroupResponse+-- | /See:/ 'deleteCacheParameterGroupResponse' smart constructor.+data DeleteCacheParameterGroupResponse =+    DeleteCacheParameterGroupResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteCacheParameterGroup"-    response = nullResponse DeleteCacheParameterGroupResponse+-- | Creates a value of 'DeleteCacheParameterGroupResponse' with the minimum fields required to make a request.+--+deleteCacheParameterGroupResponse+    :: DeleteCacheParameterGroupResponse+deleteCacheParameterGroupResponse = DeleteCacheParameterGroupResponse'

@@ -1,97 +1,104 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteCacheSecurityGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteCacheSecurityGroup/ action deletes a cache security group.+-- The /DeleteCacheSecurityGroup/ action deletes a cache security group. ----- You cannot delete a cache security group if it is associated with any cache--- clusters.+-- You cannot delete a cache security group if it is associated with any+-- cache clusters. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheSecurityGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheSecurityGroup.html AWS API Reference> for DeleteCacheSecurityGroup. module Network.AWS.ElastiCache.DeleteCacheSecurityGroup     (-    -- * Request-      DeleteCacheSecurityGroup-    -- ** Request constructor-    , deleteCacheSecurityGroup-    -- ** Request lenses+    -- * Creating a Request+      deleteCacheSecurityGroup+    , DeleteCacheSecurityGroup+    -- * Request Lenses     , dcsgCacheSecurityGroupName -    -- * Response-    , DeleteCacheSecurityGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteCacheSecurityGroupResponse+    , DeleteCacheSecurityGroupResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response -newtype DeleteCacheSecurityGroup = DeleteCacheSecurityGroup+-- | Represents the input of a /DeleteCacheSecurityGroup/ action.+--+-- /See:/ 'deleteCacheSecurityGroup' smart constructor.+newtype DeleteCacheSecurityGroup = DeleteCacheSecurityGroup'     { _dcsgCacheSecurityGroupName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteCacheSecurityGroup' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteCacheSecurityGroup' with the minimum fields required to make a request. ----- * 'dcsgCacheSecurityGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteCacheSecurityGroup :: Text -- ^ 'dcsgCacheSecurityGroupName'-                         -> DeleteCacheSecurityGroup-deleteCacheSecurityGroup p1 = DeleteCacheSecurityGroup-    { _dcsgCacheSecurityGroupName = p1+-- * 'dcsgCacheSecurityGroupName'+deleteCacheSecurityGroup+    :: Text -- ^ 'dcsgCacheSecurityGroupName'+    -> DeleteCacheSecurityGroup+deleteCacheSecurityGroup pCacheSecurityGroupName_ =+    DeleteCacheSecurityGroup'+    { _dcsgCacheSecurityGroupName = pCacheSecurityGroupName_     }  -- | The name of the cache security group to delete. -- -- You cannot delete the default security group. dcsgCacheSecurityGroupName :: Lens' DeleteCacheSecurityGroup Text-dcsgCacheSecurityGroupName =-    lens _dcsgCacheSecurityGroupName-        (\s a -> s { _dcsgCacheSecurityGroupName = a })+dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a}); -data DeleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteCacheSecurityGroup where+        type Sv DeleteCacheSecurityGroup = ElastiCache+        type Rs DeleteCacheSecurityGroup =+             DeleteCacheSecurityGroupResponse+        request = postQuery+        response+          = receiveNull DeleteCacheSecurityGroupResponse' --- | 'DeleteCacheSecurityGroupResponse' constructor.-deleteCacheSecurityGroupResponse :: DeleteCacheSecurityGroupResponse-deleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse+instance ToHeaders DeleteCacheSecurityGroup where+        toHeaders = const mempty  instance ToPath DeleteCacheSecurityGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteCacheSecurityGroup where-    toQuery DeleteCacheSecurityGroup{..} = mconcat-        [ "CacheSecurityGroupName" =? _dcsgCacheSecurityGroupName-        ]--instance ToHeaders DeleteCacheSecurityGroup+        toQuery DeleteCacheSecurityGroup'{..}+          = mconcat+              ["Action" =:+                 ("DeleteCacheSecurityGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheSecurityGroupName" =:+                 _dcsgCacheSecurityGroupName] -instance AWSRequest DeleteCacheSecurityGroup where-    type Sv DeleteCacheSecurityGroup = ElastiCache-    type Rs DeleteCacheSecurityGroup = DeleteCacheSecurityGroupResponse+-- | /See:/ 'deleteCacheSecurityGroupResponse' smart constructor.+data DeleteCacheSecurityGroupResponse =+    DeleteCacheSecurityGroupResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteCacheSecurityGroup"-    response = nullResponse DeleteCacheSecurityGroupResponse+-- | Creates a value of 'DeleteCacheSecurityGroupResponse' with the minimum fields required to make a request.+--+deleteCacheSecurityGroupResponse+    :: DeleteCacheSecurityGroupResponse+deleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse'

@@ -1,98 +1,104 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteCacheSubnetGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteCacheSubnetGroup/ action deletes a cache subnet group.+-- The /DeleteCacheSubnetGroup/ action deletes a cache subnet group. ----- You cannot delete a cache subnet group if it is associated with any cache--- clusters.+-- You cannot delete a cache subnet group if it is associated with any+-- cache clusters. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheSubnetGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteCacheSubnetGroup.html AWS API Reference> for DeleteCacheSubnetGroup. module Network.AWS.ElastiCache.DeleteCacheSubnetGroup     (-    -- * Request-      DeleteCacheSubnetGroup-    -- ** Request constructor-    , deleteCacheSubnetGroup-    -- ** Request lenses-    , dcsg1CacheSubnetGroupName+    -- * Creating a Request+      deleteCacheSubnetGroup+    , DeleteCacheSubnetGroup+    -- * Request Lenses+    , dCacheSubnetGroupName -    -- * Response-    , DeleteCacheSubnetGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteCacheSubnetGroupResponse+    , DeleteCacheSubnetGroupResponse     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--newtype DeleteCacheSubnetGroup = DeleteCacheSubnetGroup-    { _dcsg1CacheSubnetGroupName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteCacheSubnetGroup' constructor.+-- | Represents the input of a /DeleteCacheSubnetGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteCacheSubnetGroup' smart constructor.+newtype DeleteCacheSubnetGroup = DeleteCacheSubnetGroup'+    { _dCacheSubnetGroupName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteCacheSubnetGroup' with the minimum fields required to make a request. ----- * 'dcsg1CacheSubnetGroupName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteCacheSubnetGroup :: Text -- ^ 'dcsg1CacheSubnetGroupName'-                       -> DeleteCacheSubnetGroup-deleteCacheSubnetGroup p1 = DeleteCacheSubnetGroup-    { _dcsg1CacheSubnetGroupName = p1+-- * 'dCacheSubnetGroupName'+deleteCacheSubnetGroup+    :: Text -- ^ 'dCacheSubnetGroupName'+    -> DeleteCacheSubnetGroup+deleteCacheSubnetGroup pCacheSubnetGroupName_ =+    DeleteCacheSubnetGroup'+    { _dCacheSubnetGroupName = pCacheSubnetGroupName_     }  -- | The name of the cache subnet group to delete. -- -- Constraints: Must contain no more than 255 alphanumeric characters or -- hyphens.-dcsg1CacheSubnetGroupName :: Lens' DeleteCacheSubnetGroup Text-dcsg1CacheSubnetGroupName =-    lens _dcsg1CacheSubnetGroupName-        (\s a -> s { _dcsg1CacheSubnetGroupName = a })+dCacheSubnetGroupName :: Lens' DeleteCacheSubnetGroup Text+dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a}); -data DeleteCacheSubnetGroupResponse = DeleteCacheSubnetGroupResponse-    deriving (Eq, Ord, Read, Show, Generic)+instance AWSRequest DeleteCacheSubnetGroup where+        type Sv DeleteCacheSubnetGroup = ElastiCache+        type Rs DeleteCacheSubnetGroup =+             DeleteCacheSubnetGroupResponse+        request = postQuery+        response+          = receiveNull DeleteCacheSubnetGroupResponse' --- | 'DeleteCacheSubnetGroupResponse' constructor.-deleteCacheSubnetGroupResponse :: DeleteCacheSubnetGroupResponse-deleteCacheSubnetGroupResponse = DeleteCacheSubnetGroupResponse+instance ToHeaders DeleteCacheSubnetGroup where+        toHeaders = const mempty  instance ToPath DeleteCacheSubnetGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteCacheSubnetGroup where-    toQuery DeleteCacheSubnetGroup{..} = mconcat-        [ "CacheSubnetGroupName" =? _dcsg1CacheSubnetGroupName-        ]--instance ToHeaders DeleteCacheSubnetGroup+        toQuery DeleteCacheSubnetGroup'{..}+          = mconcat+              ["Action" =:+                 ("DeleteCacheSubnetGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheSubnetGroupName" =: _dCacheSubnetGroupName] -instance AWSRequest DeleteCacheSubnetGroup where-    type Sv DeleteCacheSubnetGroup = ElastiCache-    type Rs DeleteCacheSubnetGroup = DeleteCacheSubnetGroupResponse+-- | /See:/ 'deleteCacheSubnetGroupResponse' smart constructor.+data DeleteCacheSubnetGroupResponse =+    DeleteCacheSubnetGroupResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic) -    request  = post "DeleteCacheSubnetGroup"-    response = nullResponse DeleteCacheSubnetGroupResponse+-- | Creates a value of 'DeleteCacheSubnetGroupResponse' with the minimum fields required to make a request.+--+deleteCacheSubnetGroupResponse+    :: DeleteCacheSubnetGroupResponse+deleteCacheSubnetGroupResponse = DeleteCacheSubnetGroupResponse'

@@ -1,144 +1,157 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteReplicationGroup--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteReplicationGroup/ action deletes an existing replication group. By--- default, this action deletes the entire replication group, including the--- primary cluster and all of the read replicas. You can optionally delete only--- the read replicas, while retaining the primary cluster.+-- The /DeleteReplicationGroup/ action deletes an existing replication+-- group. By default, this action deletes the entire replication group,+-- including the primary cluster and all of the read replicas. You can+-- optionally delete only the read replicas, while retaining the primary+-- cluster. ----- When you receive a successful response from this action, Amazon ElastiCache--- immediately begins deleting the selected resources; you cannot cancel or--- revert this action.+-- When you receive a successful response from this action, Amazon+-- ElastiCache immediately begins deleting the selected resources; you+-- cannot cancel or revert this action. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteReplicationGroup.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteReplicationGroup.html AWS API Reference> for DeleteReplicationGroup. module Network.AWS.ElastiCache.DeleteReplicationGroup     (-    -- * Request-      DeleteReplicationGroup-    -- ** Request constructor-    , deleteReplicationGroup-    -- ** Request lenses+    -- * Creating a Request+      deleteReplicationGroup+    , DeleteReplicationGroup+    -- * Request Lenses     , drgFinalSnapshotIdentifier-    , drgReplicationGroupId     , drgRetainPrimaryCluster+    , drgReplicationGroupId -    -- * Response-    , DeleteReplicationGroupResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteReplicationGroupResponse-    -- ** Response lenses-    , drgrReplicationGroup+    , DeleteReplicationGroupResponse+    -- * Response Lenses+    , delrsReplicationGroup+    , delrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data DeleteReplicationGroup = DeleteReplicationGroup-    { _drgFinalSnapshotIdentifier :: Maybe Text-    , _drgReplicationGroupId      :: Text-    , _drgRetainPrimaryCluster    :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteReplicationGroup' constructor.+-- | Represents the input of a /DeleteReplicationGroup/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteReplicationGroup' smart constructor.+data DeleteReplicationGroup = DeleteReplicationGroup'+    { _drgFinalSnapshotIdentifier :: !(Maybe Text)+    , _drgRetainPrimaryCluster    :: !(Maybe Bool)+    , _drgReplicationGroupId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteReplicationGroup' with the minimum fields required to make a request. ----- * 'drgFinalSnapshotIdentifier' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'drgReplicationGroupId' @::@ 'Text'+-- * 'drgFinalSnapshotIdentifier' ----- * 'drgRetainPrimaryCluster' @::@ 'Maybe' 'Bool'+-- * 'drgRetainPrimaryCluster' ---deleteReplicationGroup :: Text -- ^ 'drgReplicationGroupId'-                       -> DeleteReplicationGroup-deleteReplicationGroup p1 = DeleteReplicationGroup-    { _drgReplicationGroupId      = p1-    , _drgRetainPrimaryCluster    = Nothing-    , _drgFinalSnapshotIdentifier = Nothing+-- * 'drgReplicationGroupId'+deleteReplicationGroup+    :: Text -- ^ 'drgReplicationGroupId'+    -> DeleteReplicationGroup+deleteReplicationGroup pReplicationGroupId_ =+    DeleteReplicationGroup'+    { _drgFinalSnapshotIdentifier = Nothing+    , _drgRetainPrimaryCluster = Nothing+    , _drgReplicationGroupId = pReplicationGroupId_     } --- | The name of a final node group snapshot. ElastiCache creates the snapshot--- from the primary node in the cluster, rather than one of the replicas; this--- is to ensure that it captures the freshest data. After the final snapshot is--- taken, the cluster is immediately deleted.+-- | The name of a final node group snapshot. ElastiCache creates the+-- snapshot from the primary node in the cluster, rather than one of the+-- replicas; this is to ensure that it captures the freshest data. After+-- the final snapshot is taken, the cluster is immediately deleted. drgFinalSnapshotIdentifier :: Lens' DeleteReplicationGroup (Maybe Text)-drgFinalSnapshotIdentifier =-    lens _drgFinalSnapshotIdentifier-        (\s a -> s { _drgFinalSnapshotIdentifier = a })+drgFinalSnapshotIdentifier = lens _drgFinalSnapshotIdentifier (\ s a -> s{_drgFinalSnapshotIdentifier = a}); +-- | If set to /true/, all of the read replicas will be deleted, but the+-- primary node will be retained.+drgRetainPrimaryCluster :: Lens' DeleteReplicationGroup (Maybe Bool)+drgRetainPrimaryCluster = lens _drgRetainPrimaryCluster (\ s a -> s{_drgRetainPrimaryCluster = a});+ -- | The identifier for the cluster to be deleted. This parameter is not case -- sensitive. drgReplicationGroupId :: Lens' DeleteReplicationGroup Text-drgReplicationGroupId =-    lens _drgReplicationGroupId (\s a -> s { _drgReplicationGroupId = a })---- | If set to /true/, all of the read replicas will be deleted, but the primary--- node will be retained.-drgRetainPrimaryCluster :: Lens' DeleteReplicationGroup (Maybe Bool)-drgRetainPrimaryCluster =-    lens _drgRetainPrimaryCluster (\s a -> s { _drgRetainPrimaryCluster = a })--newtype DeleteReplicationGroupResponse = DeleteReplicationGroupResponse-    { _drgrReplicationGroup :: Maybe ReplicationGroup-    } deriving (Eq, Read, Show)+drgReplicationGroupId = lens _drgReplicationGroupId (\ s a -> s{_drgReplicationGroupId = a}); --- | 'DeleteReplicationGroupResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'drgrReplicationGroup' @::@ 'Maybe' 'ReplicationGroup'----deleteReplicationGroupResponse :: DeleteReplicationGroupResponse-deleteReplicationGroupResponse = DeleteReplicationGroupResponse-    { _drgrReplicationGroup = Nothing-    }+instance AWSRequest DeleteReplicationGroup where+        type Sv DeleteReplicationGroup = ElastiCache+        type Rs DeleteReplicationGroup =+             DeleteReplicationGroupResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteReplicationGroupResult"+              (\ s h x ->+                 DeleteReplicationGroupResponse' <$>+                   (x .@? "ReplicationGroup") <*> (pure (fromEnum s))) -drgrReplicationGroup :: Lens' DeleteReplicationGroupResponse (Maybe ReplicationGroup)-drgrReplicationGroup =-    lens _drgrReplicationGroup (\s a -> s { _drgrReplicationGroup = a })+instance ToHeaders DeleteReplicationGroup where+        toHeaders = const mempty  instance ToPath DeleteReplicationGroup where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteReplicationGroup where-    toQuery DeleteReplicationGroup{..} = mconcat-        [ "FinalSnapshotIdentifier" =? _drgFinalSnapshotIdentifier-        , "ReplicationGroupId"      =? _drgReplicationGroupId-        , "RetainPrimaryCluster"    =? _drgRetainPrimaryCluster-        ]+        toQuery DeleteReplicationGroup'{..}+          = mconcat+              ["Action" =:+                 ("DeleteReplicationGroup" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "FinalSnapshotIdentifier" =:+                 _drgFinalSnapshotIdentifier,+               "RetainPrimaryCluster" =: _drgRetainPrimaryCluster,+               "ReplicationGroupId" =: _drgReplicationGroupId] -instance ToHeaders DeleteReplicationGroup+-- | /See:/ 'deleteReplicationGroupResponse' smart constructor.+data DeleteReplicationGroupResponse = DeleteReplicationGroupResponse'+    { _delrsReplicationGroup :: !(Maybe ReplicationGroup)+    , _delrsStatus           :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteReplicationGroup where-    type Sv DeleteReplicationGroup = ElastiCache-    type Rs DeleteReplicationGroup = DeleteReplicationGroupResponse+-- | Creates a value of 'DeleteReplicationGroupResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsReplicationGroup'+--+-- * 'delrsStatus'+deleteReplicationGroupResponse+    :: Int -- ^ 'delrsStatus'+    -> DeleteReplicationGroupResponse+deleteReplicationGroupResponse pStatus_ =+    DeleteReplicationGroupResponse'+    { _delrsReplicationGroup = Nothing+    , _delrsStatus = pStatus_+    } -    request  = post "DeleteReplicationGroup"-    response = xmlResponse+-- | Undocumented member.+delrsReplicationGroup :: Lens' DeleteReplicationGroupResponse (Maybe ReplicationGroup)+delrsReplicationGroup = lens _delrsReplicationGroup (\ s a -> s{_delrsReplicationGroup = a}); -instance FromXML DeleteReplicationGroupResponse where-    parseXML = withElement "DeleteReplicationGroupResult" $ \x -> DeleteReplicationGroupResponse-        <$> x .@? "ReplicationGroup"+-- | The response status code.+delrsStatus :: Lens' DeleteReplicationGroupResponse Int+delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a});

@@ -1,109 +1,123 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DeleteSnapshot--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DeleteSnapshot/ action deletes an existing snapshot. When you receive a--- successful response from this action, ElastiCache immediately begins deleting--- the snapshot; you cannot cancel or revert this action.+-- The /DeleteSnapshot/ action deletes an existing snapshot. When you+-- receive a successful response from this action, ElastiCache immediately+-- begins deleting the snapshot; you cannot cancel or revert this action. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DeleteSnapshot.html AWS API Reference> for DeleteSnapshot. module Network.AWS.ElastiCache.DeleteSnapshot     (-    -- * Request-      DeleteSnapshot-    -- ** Request constructor-    , deleteSnapshot-    -- ** Request lenses-    , ds1SnapshotName+    -- * Creating a Request+      deleteSnapshot+    , DeleteSnapshot+    -- * Request Lenses+    , dSnapshotName -    -- * Response-    , DeleteSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteSnapshotResponse-    -- ** Response lenses-    , dsrSnapshot+    , DeleteSnapshotResponse+    -- * Response Lenses+    , dsrsSnapshot+    , dsrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--newtype DeleteSnapshot = DeleteSnapshot-    { _ds1SnapshotName :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DeleteSnapshot' constructor.+-- | Represents the input of a /DeleteSnapshot/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteSnapshot' smart constructor.+newtype DeleteSnapshot = DeleteSnapshot'+    { _dSnapshotName :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteSnapshot' with the minimum fields required to make a request. ----- * 'ds1SnapshotName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteSnapshot :: Text -- ^ 'ds1SnapshotName'-               -> DeleteSnapshot-deleteSnapshot p1 = DeleteSnapshot-    { _ds1SnapshotName = p1+-- * 'dSnapshotName'+deleteSnapshot+    :: Text -- ^ 'dSnapshotName'+    -> DeleteSnapshot+deleteSnapshot pSnapshotName_ =+    DeleteSnapshot'+    { _dSnapshotName = pSnapshotName_     }  -- | The name of the snapshot to be deleted.-ds1SnapshotName :: Lens' DeleteSnapshot Text-ds1SnapshotName = lens _ds1SnapshotName (\s a -> s { _ds1SnapshotName = a })--newtype DeleteSnapshotResponse = DeleteSnapshotResponse-    { _dsrSnapshot :: Maybe Snapshot-    } deriving (Eq, Read, Show)+dSnapshotName :: Lens' DeleteSnapshot Text+dSnapshotName = lens _dSnapshotName (\ s a -> s{_dSnapshotName = a}); --- | 'DeleteSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dsrSnapshot' @::@ 'Maybe' 'Snapshot'----deleteSnapshotResponse :: DeleteSnapshotResponse-deleteSnapshotResponse = DeleteSnapshotResponse-    { _dsrSnapshot = Nothing-    }+instance AWSRequest DeleteSnapshot where+        type Sv DeleteSnapshot = ElastiCache+        type Rs DeleteSnapshot = DeleteSnapshotResponse+        request = postQuery+        response+          = receiveXMLWrapper "DeleteSnapshotResult"+              (\ s h x ->+                 DeleteSnapshotResponse' <$>+                   (x .@? "Snapshot") <*> (pure (fromEnum s))) -dsrSnapshot :: Lens' DeleteSnapshotResponse (Maybe Snapshot)-dsrSnapshot = lens _dsrSnapshot (\s a -> s { _dsrSnapshot = a })+instance ToHeaders DeleteSnapshot where+        toHeaders = const mempty  instance ToPath DeleteSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteSnapshot where-    toQuery DeleteSnapshot{..} = mconcat-        [ "SnapshotName" =? _ds1SnapshotName-        ]+        toQuery DeleteSnapshot'{..}+          = mconcat+              ["Action" =: ("DeleteSnapshot" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "SnapshotName" =: _dSnapshotName] -instance ToHeaders DeleteSnapshot+-- | /See:/ 'deleteSnapshotResponse' smart constructor.+data DeleteSnapshotResponse = DeleteSnapshotResponse'+    { _dsrsSnapshot :: !(Maybe Snapshot)+    , _dsrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteSnapshot where-    type Sv DeleteSnapshot = ElastiCache-    type Rs DeleteSnapshot = DeleteSnapshotResponse+-- | Creates a value of 'DeleteSnapshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsrsSnapshot'+--+-- * 'dsrsStatus'+deleteSnapshotResponse+    :: Int -- ^ 'dsrsStatus'+    -> DeleteSnapshotResponse+deleteSnapshotResponse pStatus_ =+    DeleteSnapshotResponse'+    { _dsrsSnapshot = Nothing+    , _dsrsStatus = pStatus_+    } -    request  = post "DeleteSnapshot"-    response = xmlResponse+-- | Undocumented member.+dsrsSnapshot :: Lens' DeleteSnapshotResponse (Maybe Snapshot)+dsrsSnapshot = lens _dsrsSnapshot (\ s a -> s{_dsrsSnapshot = a}); -instance FromXML DeleteSnapshotResponse where-    parseXML = withElement "DeleteSnapshotResult" $ \x -> DeleteSnapshotResponse-        <$> x .@? "Snapshot"+-- | The response status code.+dsrsStatus :: Lens' DeleteSnapshotResponse Int+dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});

@@ -1,190 +1,209 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DescribeCacheClusters--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DescribeCacheClusters/ action returns information about all provisioned--- cache clusters if no cache cluster identifier is specified, or about a--- specific cache cluster if a cache cluster identifier is supplied.+-- The /DescribeCacheClusters/ action returns information about all+-- provisioned cache clusters if no cache cluster identifier is specified,+-- or about a specific cache cluster if a cache cluster identifier is+-- supplied. -- -- By default, abbreviated information about the cache clusters(s) will be--- returned. You can use the optional /ShowDetails/ flag to retrieve detailed--- information about the cache nodes associated with the cache clusters. These--- details include the DNS address and port for the cache node endpoint.+-- returned. You can use the optional /ShowDetails/ flag to retrieve+-- detailed information about the cache nodes associated with the cache+-- clusters. These details include the DNS address and port for the cache+-- node endpoint. ----- If the cluster is in the CREATING state, only cluster level information will--- be displayed until all of the nodes are successfully provisioned.+-- If the cluster is in the CREATING state, only cluster level information+-- will be displayed until all of the nodes are successfully provisioned. ----- If the cluster is in the DELETING state, only cluster level information will--- be displayed.+-- If the cluster is in the DELETING state, only cluster level information+-- will be displayed. ----- If cache nodes are currently being added to the cache cluster, node endpoint--- information and creation time for the additional nodes will not be displayed--- until they are completely provisioned. When the cache cluster state is /available/, the cluster is ready for use.+-- If cache nodes are currently being added to the cache cluster, node+-- endpoint information and creation time for the additional nodes will not+-- be displayed until they are completely provisioned. When the cache+-- cluster state is /available/, the cluster is ready for use. -- -- If cache nodes are currently being removed from the cache cluster, no -- endpoint information for the removed nodes is displayed. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheClusters.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheClusters.html AWS API Reference> for DescribeCacheClusters.+--+-- This operation returns paginated results. module Network.AWS.ElastiCache.DescribeCacheClusters     (-    -- * Request-      DescribeCacheClusters-    -- ** Request constructor-    , describeCacheClusters-    -- ** Request lenses-    , dcc1CacheClusterId-    , dcc1Marker-    , dcc1MaxRecords-    , dcc1ShowCacheNodeInfo+    -- * Creating a Request+      describeCacheClusters+    , DescribeCacheClusters+    -- * Request Lenses+    , dCacheClusterId+    , dMaxRecords+    , dMarker+    , dShowCacheNodeInfo -    -- * Response-    , DescribeCacheClustersResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeCacheClustersResponse-    -- ** Response lenses-    , dccrCacheClusters-    , dccrMarker+    , DescribeCacheClustersResponse+    -- * Response Lenses+    , drsCacheClusters+    , drsMarker+    , drsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data DescribeCacheClusters = DescribeCacheClusters-    { _dcc1CacheClusterId    :: Maybe Text-    , _dcc1Marker            :: Maybe Text-    , _dcc1MaxRecords        :: Maybe Int-    , _dcc1ShowCacheNodeInfo :: Maybe Bool-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeCacheClusters' constructor.+-- | Represents the input of a /DescribeCacheClusters/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeCacheClusters' smart constructor.+data DescribeCacheClusters = DescribeCacheClusters'+    { _dCacheClusterId    :: !(Maybe Text)+    , _dMaxRecords        :: !(Maybe Int)+    , _dMarker            :: !(Maybe Text)+    , _dShowCacheNodeInfo :: !(Maybe Bool)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeCacheClusters' with the minimum fields required to make a request. ----- * 'dcc1CacheClusterId' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcc1Marker' @::@ 'Maybe' 'Text'+-- * 'dCacheClusterId' ----- * 'dcc1MaxRecords' @::@ 'Maybe' 'Int'+-- * 'dMaxRecords' ----- * 'dcc1ShowCacheNodeInfo' @::@ 'Maybe' 'Bool'+-- * 'dMarker' ---describeCacheClusters :: DescribeCacheClusters-describeCacheClusters = DescribeCacheClusters-    { _dcc1CacheClusterId    = Nothing-    , _dcc1MaxRecords        = Nothing-    , _dcc1Marker            = Nothing-    , _dcc1ShowCacheNodeInfo = Nothing+-- * 'dShowCacheNodeInfo'+describeCacheClusters+    :: DescribeCacheClusters+describeCacheClusters =+    DescribeCacheClusters'+    { _dCacheClusterId = Nothing+    , _dMaxRecords = Nothing+    , _dMarker = Nothing+    , _dShowCacheNodeInfo = Nothing     } --- | The user-supplied cluster identifier. If this parameter is specified, only--- information about that specific cache cluster is returned. This parameter--- isn't case sensitive.-dcc1CacheClusterId :: Lens' DescribeCacheClusters (Maybe Text)-dcc1CacheClusterId =-    lens _dcc1CacheClusterId (\s a -> s { _dcc1CacheClusterId = a })---- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified, the--- response includes only records beyond the marker, up to the value specified--- by /MaxRecords/.-dcc1Marker :: Lens' DescribeCacheClusters (Maybe Text)-dcc1Marker = lens _dcc1Marker (\s a -> s { _dcc1Marker = a })+-- | The user-supplied cluster identifier. If this parameter is specified,+-- only information about that specific cache cluster is returned. This+-- parameter isn\'t case sensitive.+dCacheClusterId :: Lens' DescribeCacheClusters (Maybe Text)+dCacheClusterId = lens _dCacheClusterId (\ s a -> s{_dCacheClusterId = a}); --- | The maximum number of records to include in the response. If more records--- exist than the specified 'MaxRecords' value, a marker is included in the--- response so that the remaining results can be retrieved.+-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a marker is+-- included in the response so that the remaining results can be retrieved. -- -- Default: 100 -- -- Constraints: minimum 20; maximum 100.-dcc1MaxRecords :: Lens' DescribeCacheClusters (Maybe Int)-dcc1MaxRecords = lens _dcc1MaxRecords (\s a -> s { _dcc1MaxRecords = a })+dMaxRecords :: Lens' DescribeCacheClusters (Maybe Int)+dMaxRecords = lens _dMaxRecords (\ s a -> s{_dMaxRecords = a}); --- | An optional flag that can be included in the DescribeCacheCluster request to--- retrieve information about the individual cache nodes.-dcc1ShowCacheNodeInfo :: Lens' DescribeCacheClusters (Maybe Bool)-dcc1ShowCacheNodeInfo =-    lens _dcc1ShowCacheNodeInfo (\s a -> s { _dcc1ShowCacheNodeInfo = a })+-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dMarker :: Lens' DescribeCacheClusters (Maybe Text)+dMarker = lens _dMarker (\ s a -> s{_dMarker = a}); -data DescribeCacheClustersResponse = DescribeCacheClustersResponse-    { _dccrCacheClusters :: List "member" CacheCluster-    , _dccrMarker        :: Maybe Text-    } deriving (Eq, Read, Show)+-- | An optional flag that can be included in the DescribeCacheCluster+-- request to retrieve information about the individual cache nodes.+dShowCacheNodeInfo :: Lens' DescribeCacheClusters (Maybe Bool)+dShowCacheNodeInfo = lens _dShowCacheNodeInfo (\ s a -> s{_dShowCacheNodeInfo = a}); --- | 'DescribeCacheClustersResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dccrCacheClusters' @::@ ['CacheCluster']------ * 'dccrMarker' @::@ 'Maybe' 'Text'----describeCacheClustersResponse :: DescribeCacheClustersResponse-describeCacheClustersResponse = DescribeCacheClustersResponse-    { _dccrMarker        = Nothing-    , _dccrCacheClusters = mempty-    }+instance AWSPager DescribeCacheClusters where+        page rq rs+          | stop (rs ^. drsMarker) = Nothing+          | stop (rs ^. drsCacheClusters) = Nothing+          | otherwise = Just $ rq & dMarker .~ rs ^. drsMarker --- | A list of cache clusters. Each item in the list contains detailed information--- about one cache cluster.-dccrCacheClusters :: Lens' DescribeCacheClustersResponse [CacheCluster]-dccrCacheClusters =-    lens _dccrCacheClusters (\s a -> s { _dccrCacheClusters = a })-        . _List+instance AWSRequest DescribeCacheClusters where+        type Sv DescribeCacheClusters = ElastiCache+        type Rs DescribeCacheClusters =+             DescribeCacheClustersResponse+        request = postQuery+        response+          = receiveXMLWrapper "DescribeCacheClustersResult"+              (\ s h x ->+                 DescribeCacheClustersResponse' <$>+                   (x .@? "CacheClusters" .!@ mempty >>=+                      may (parseXMLList "CacheCluster"))+                     <*> (x .@? "Marker")+                     <*> (pure (fromEnum s))) --- | Provides an identifier to allow retrieval of paginated results.-dccrMarker :: Lens' DescribeCacheClustersResponse (Maybe Text)-dccrMarker = lens _dccrMarker (\s a -> s { _dccrMarker = a })+instance ToHeaders DescribeCacheClusters where+        toHeaders = const mempty  instance ToPath DescribeCacheClusters where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeCacheClusters where-    toQuery DescribeCacheClusters{..} = mconcat-        [ "CacheClusterId"    =? _dcc1CacheClusterId-        , "Marker"            =? _dcc1Marker-        , "MaxRecords"        =? _dcc1MaxRecords-        , "ShowCacheNodeInfo" =? _dcc1ShowCacheNodeInfo-        ]+        toQuery DescribeCacheClusters'{..}+          = mconcat+              ["Action" =: ("DescribeCacheClusters" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheClusterId" =: _dCacheClusterId,+               "MaxRecords" =: _dMaxRecords, "Marker" =: _dMarker,+               "ShowCacheNodeInfo" =: _dShowCacheNodeInfo] -instance ToHeaders DescribeCacheClusters+-- | Represents the output of a /DescribeCacheClusters/ action.+--+-- /See:/ 'describeCacheClustersResponse' smart constructor.+data DescribeCacheClustersResponse = DescribeCacheClustersResponse'+    { _drsCacheClusters :: !(Maybe [CacheCluster])+    , _drsMarker        :: !(Maybe Text)+    , _drsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeCacheClusters where-    type Sv DescribeCacheClusters = ElastiCache-    type Rs DescribeCacheClusters = DescribeCacheClustersResponse+-- | Creates a value of 'DescribeCacheClustersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsCacheClusters'+--+-- * 'drsMarker'+--+-- * 'drsStatus'+describeCacheClustersResponse+    :: Int -- ^ 'drsStatus'+    -> DescribeCacheClustersResponse+describeCacheClustersResponse pStatus_ =+    DescribeCacheClustersResponse'+    { _drsCacheClusters = Nothing+    , _drsMarker = Nothing+    , _drsStatus = pStatus_+    } -    request  = post "DescribeCacheClusters"-    response = xmlResponse+-- | A list of cache clusters. Each item in the list contains detailed+-- information about one cache cluster.+drsCacheClusters :: Lens' DescribeCacheClustersResponse [CacheCluster]+drsCacheClusters = lens _drsCacheClusters (\ s a -> s{_drsCacheClusters = a}) . _Default . _Coerce; -instance FromXML DescribeCacheClustersResponse where-    parseXML = withElement "DescribeCacheClustersResult" $ \x -> DescribeCacheClustersResponse-        <$> x .@? "CacheClusters" .!@ mempty-        <*> x .@? "Marker"+-- | Provides an identifier to allow retrieval of paginated results.+drsMarker :: Lens' DescribeCacheClustersResponse (Maybe Text)+drsMarker = lens _drsMarker (\ s a -> s{_drsMarker = a}); -instance AWSPager DescribeCacheClusters where-    page rq rs-        | stop (rs ^. dccrMarker) = Nothing-        | otherwise = (\x -> rq & dcc1Marker ?~ x)-            <$> (rs ^. dccrMarker)+-- | The response status code.+drsStatus :: Lens' DescribeCacheClustersResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,198 +1,219 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DescribeCacheEngineVersions--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DescribeCacheEngineVersions/ action returns a list of the available cache--- engines and their versions.+-- The /DescribeCacheEngineVersions/ action returns a list of the available+-- cache engines and their versions. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheEngineVersions.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheEngineVersions.html AWS API Reference> for DescribeCacheEngineVersions.+--+-- This operation returns paginated results. module Network.AWS.ElastiCache.DescribeCacheEngineVersions     (-    -- * Request-      DescribeCacheEngineVersions-    -- ** Request constructor-    , describeCacheEngineVersions-    -- ** Request lenses+    -- * Creating a Request+      describeCacheEngineVersions+    , DescribeCacheEngineVersions+    -- * Request Lenses     , dcevCacheParameterGroupFamily+    , dcevEngineVersion     , dcevDefaultOnly     , dcevEngine-    , dcevEngineVersion-    , dcevMarker     , dcevMaxRecords+    , dcevMarker -    -- * Response-    , DescribeCacheEngineVersionsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeCacheEngineVersionsResponse-    -- ** Response lenses-    , dcevrCacheEngineVersions-    , dcevrMarker+    , DescribeCacheEngineVersionsResponse+    -- * Response Lenses+    , dcevrsCacheEngineVersions+    , dcevrsMarker+    , dcevrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data DescribeCacheEngineVersions = DescribeCacheEngineVersions-    { _dcevCacheParameterGroupFamily :: Maybe Text-    , _dcevDefaultOnly               :: Maybe Bool-    , _dcevEngine                    :: Maybe Text-    , _dcevEngineVersion             :: Maybe Text-    , _dcevMarker                    :: Maybe Text-    , _dcevMaxRecords                :: Maybe Int-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeCacheEngineVersions' constructor.+-- | Represents the input of a /DescribeCacheEngineVersions/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeCacheEngineVersions' smart constructor.+data DescribeCacheEngineVersions = DescribeCacheEngineVersions'+    { _dcevCacheParameterGroupFamily :: !(Maybe Text)+    , _dcevEngineVersion             :: !(Maybe Text)+    , _dcevDefaultOnly               :: !(Maybe Bool)+    , _dcevEngine                    :: !(Maybe Text)+    , _dcevMaxRecords                :: !(Maybe Int)+    , _dcevMarker                    :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeCacheEngineVersions' with the minimum fields required to make a request. ----- * 'dcevCacheParameterGroupFamily' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcevDefaultOnly' @::@ 'Maybe' 'Bool'+-- * 'dcevCacheParameterGroupFamily' ----- * 'dcevEngine' @::@ 'Maybe' 'Text'+-- * 'dcevEngineVersion' ----- * 'dcevEngineVersion' @::@ 'Maybe' 'Text'+-- * 'dcevDefaultOnly' ----- * 'dcevMarker' @::@ 'Maybe' 'Text'+-- * 'dcevEngine' ----- * 'dcevMaxRecords' @::@ 'Maybe' 'Int'+-- * 'dcevMaxRecords' ---describeCacheEngineVersions :: DescribeCacheEngineVersions-describeCacheEngineVersions = DescribeCacheEngineVersions-    { _dcevEngine                    = Nothing-    , _dcevEngineVersion             = Nothing-    , _dcevCacheParameterGroupFamily = Nothing-    , _dcevMaxRecords                = Nothing-    , _dcevMarker                    = Nothing-    , _dcevDefaultOnly               = Nothing+-- * 'dcevMarker'+describeCacheEngineVersions+    :: DescribeCacheEngineVersions+describeCacheEngineVersions =+    DescribeCacheEngineVersions'+    { _dcevCacheParameterGroupFamily = Nothing+    , _dcevEngineVersion = Nothing+    , _dcevDefaultOnly = Nothing+    , _dcevEngine = Nothing+    , _dcevMaxRecords = Nothing+    , _dcevMarker = Nothing     } --- | The name of a specific cache parameter group family to return details for.+-- | The name of a specific cache parameter group family to return details+-- for. -- -- Constraints: ----- Must be 1 to 255 alphanumeric characters First character must be a letter Cannot end with a hyphen or contain two consecutive hyphens---+-- -   Must be 1 to 255 alphanumeric characters+-- -   First character must be a letter+-- -   Cannot end with a hyphen or contain two consecutive hyphens dcevCacheParameterGroupFamily :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevCacheParameterGroupFamily =-    lens _dcevCacheParameterGroupFamily-        (\s a -> s { _dcevCacheParameterGroupFamily = a })---- | If /true/, specifies that only the default version of the specified engine or--- engine and major version combination is to be returned.-dcevDefaultOnly :: Lens' DescribeCacheEngineVersions (Maybe Bool)-dcevDefaultOnly = lens _dcevDefaultOnly (\s a -> s { _dcevDefaultOnly = a })---- | The cache engine to return. Valid values: 'memcached' | 'redis'-dcevEngine :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevEngine = lens _dcevEngine (\s a -> s { _dcevEngine = a })+dcevCacheParameterGroupFamily = lens _dcevCacheParameterGroupFamily (\ s a -> s{_dcevCacheParameterGroupFamily = a});  -- | The cache engine version to return. -- -- Example: '1.4.14' dcevEngineVersion :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevEngineVersion =-    lens _dcevEngineVersion (\s a -> s { _dcevEngineVersion = a })+dcevEngineVersion = lens _dcevEngineVersion (\ s a -> s{_dcevEngineVersion = a}); --- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified, the--- response includes only records beyond the marker, up to the value specified--- by /MaxRecords/.-dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)-dcevMarker = lens _dcevMarker (\s a -> s { _dcevMarker = a })+-- | If /true/, specifies that only the default version of the specified+-- engine or engine and major version combination is to be returned.+dcevDefaultOnly :: Lens' DescribeCacheEngineVersions (Maybe Bool)+dcevDefaultOnly = lens _dcevDefaultOnly (\ s a -> s{_dcevDefaultOnly = a}); --- | The maximum number of records to include in the response. If more records--- exist than the specified 'MaxRecords' value, a marker is included in the--- response so that the remaining results can be retrieved.+-- | The cache engine to return. Valid values: 'memcached' | 'redis'+dcevEngine :: Lens' DescribeCacheEngineVersions (Maybe Text)+dcevEngine = lens _dcevEngine (\ s a -> s{_dcevEngine = a});++-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a marker is+-- included in the response so that the remaining results can be retrieved. -- -- Default: 100 -- -- Constraints: minimum 20; maximum 100. dcevMaxRecords :: Lens' DescribeCacheEngineVersions (Maybe Int)-dcevMaxRecords = lens _dcevMaxRecords (\s a -> s { _dcevMaxRecords = a })+dcevMaxRecords = lens _dcevMaxRecords (\ s a -> s{_dcevMaxRecords = a}); -data DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse-    { _dcevrCacheEngineVersions :: List "member" CacheEngineVersion-    , _dcevrMarker              :: Maybe Text-    } deriving (Eq, Read, Show)+-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcevMarker :: Lens' DescribeCacheEngineVersions (Maybe Text)+dcevMarker = lens _dcevMarker (\ s a -> s{_dcevMarker = a}); --- | 'DescribeCacheEngineVersionsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcevrCacheEngineVersions' @::@ ['CacheEngineVersion']------ * 'dcevrMarker' @::@ 'Maybe' 'Text'----describeCacheEngineVersionsResponse :: DescribeCacheEngineVersionsResponse-describeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse-    { _dcevrMarker              = Nothing-    , _dcevrCacheEngineVersions = mempty-    }+instance AWSPager DescribeCacheEngineVersions where+        page rq rs+          | stop (rs ^. dcevrsMarker) = Nothing+          | stop (rs ^. dcevrsCacheEngineVersions) = Nothing+          | otherwise =+            Just $ rq & dcevMarker .~ rs ^. dcevrsMarker --- | A list of cache engine version details. Each element in the list contains--- detailed information about one cache engine version.-dcevrCacheEngineVersions :: Lens' DescribeCacheEngineVersionsResponse [CacheEngineVersion]-dcevrCacheEngineVersions =-    lens _dcevrCacheEngineVersions-        (\s a -> s { _dcevrCacheEngineVersions = a })-            . _List+instance AWSRequest DescribeCacheEngineVersions where+        type Sv DescribeCacheEngineVersions = ElastiCache+        type Rs DescribeCacheEngineVersions =+             DescribeCacheEngineVersionsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeCacheEngineVersionsResult"+              (\ s h x ->+                 DescribeCacheEngineVersionsResponse' <$>+                   (x .@? "CacheEngineVersions" .!@ mempty >>=+                      may (parseXMLList "CacheEngineVersion"))+                     <*> (x .@? "Marker")+                     <*> (pure (fromEnum s))) --- | Provides an identifier to allow retrieval of paginated results.-dcevrMarker :: Lens' DescribeCacheEngineVersionsResponse (Maybe Text)-dcevrMarker = lens _dcevrMarker (\s a -> s { _dcevrMarker = a })+instance ToHeaders DescribeCacheEngineVersions where+        toHeaders = const mempty  instance ToPath DescribeCacheEngineVersions where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeCacheEngineVersions where-    toQuery DescribeCacheEngineVersions{..} = mconcat-        [ "CacheParameterGroupFamily" =? _dcevCacheParameterGroupFamily-        , "DefaultOnly"               =? _dcevDefaultOnly-        , "Engine"                    =? _dcevEngine-        , "EngineVersion"             =? _dcevEngineVersion-        , "Marker"                    =? _dcevMarker-        , "MaxRecords"                =? _dcevMaxRecords-        ]+        toQuery DescribeCacheEngineVersions'{..}+          = mconcat+              ["Action" =:+                 ("DescribeCacheEngineVersions" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheParameterGroupFamily" =:+                 _dcevCacheParameterGroupFamily,+               "EngineVersion" =: _dcevEngineVersion,+               "DefaultOnly" =: _dcevDefaultOnly,+               "Engine" =: _dcevEngine,+               "MaxRecords" =: _dcevMaxRecords,+               "Marker" =: _dcevMarker] -instance ToHeaders DescribeCacheEngineVersions+-- | Represents the output of a DescribeCacheEngineVersions action.+--+-- /See:/ 'describeCacheEngineVersionsResponse' smart constructor.+data DescribeCacheEngineVersionsResponse = DescribeCacheEngineVersionsResponse'+    { _dcevrsCacheEngineVersions :: !(Maybe [CacheEngineVersion])+    , _dcevrsMarker              :: !(Maybe Text)+    , _dcevrsStatus              :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeCacheEngineVersions where-    type Sv DescribeCacheEngineVersions = ElastiCache-    type Rs DescribeCacheEngineVersions = DescribeCacheEngineVersionsResponse+-- | Creates a value of 'DescribeCacheEngineVersionsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcevrsCacheEngineVersions'+--+-- * 'dcevrsMarker'+--+-- * 'dcevrsStatus'+describeCacheEngineVersionsResponse+    :: Int -- ^ 'dcevrsStatus'+    -> DescribeCacheEngineVersionsResponse+describeCacheEngineVersionsResponse pStatus_ =+    DescribeCacheEngineVersionsResponse'+    { _dcevrsCacheEngineVersions = Nothing+    , _dcevrsMarker = Nothing+    , _dcevrsStatus = pStatus_+    } -    request  = post "DescribeCacheEngineVersions"-    response = xmlResponse+-- | A list of cache engine version details. Each element in the list+-- contains detailed information about one cache engine version.+dcevrsCacheEngineVersions :: Lens' DescribeCacheEngineVersionsResponse [CacheEngineVersion]+dcevrsCacheEngineVersions = lens _dcevrsCacheEngineVersions (\ s a -> s{_dcevrsCacheEngineVersions = a}) . _Default . _Coerce; -instance FromXML DescribeCacheEngineVersionsResponse where-    parseXML = withElement "DescribeCacheEngineVersionsResult" $ \x -> DescribeCacheEngineVersionsResponse-        <$> x .@? "CacheEngineVersions" .!@ mempty-        <*> x .@? "Marker"+-- | Provides an identifier to allow retrieval of paginated results.+dcevrsMarker :: Lens' DescribeCacheEngineVersionsResponse (Maybe Text)+dcevrsMarker = lens _dcevrsMarker (\ s a -> s{_dcevrsMarker = a}); -instance AWSPager DescribeCacheEngineVersions where-    page rq rs-        | stop (rs ^. dcevrMarker) = Nothing-        | otherwise = (\x -> rq & dcevMarker ?~ x)-            <$> (rs ^. dcevrMarker)+-- | The response status code.+dcevrsStatus :: Lens' DescribeCacheEngineVersionsResponse Int+dcevrsStatus = lens _dcevrsStatus (\ s a -> s{_dcevrsStatus = a});

@@ -1,160 +1,181 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-} +-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.ElastiCache.DescribeCacheParameterGroups--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | The /DescribeCacheParameterGroups/ action returns a list of cache parameter--- group descriptions. If a cache parameter group name is specified, the list--- will contain only the descriptions for that group.+-- The /DescribeCacheParameterGroups/ action returns a list of cache+-- parameter group descriptions. If a cache parameter group name is+-- specified, the list will contain only the descriptions for that group. ----- <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheParameterGroups.html>+-- /See:/ <http://docs.aws.amazon.com/AmazonElastiCache/latest/APIReference/API_DescribeCacheParameterGroups.html AWS API Reference> for DescribeCacheParameterGroups.+--+-- This operation returns paginated results. module Network.AWS.ElastiCache.DescribeCacheParameterGroups     (-    -- * Request-      DescribeCacheParameterGroups-    -- ** Request constructor-    , describeCacheParameterGroups-    -- ** Request lenses+    -- * Creating a Request+      describeCacheParameterGroups+    , DescribeCacheParameterGroups+    -- * Request Lenses     , dcpgCacheParameterGroupName-    , dcpgMarker     , dcpgMaxRecords+    , dcpgMarker -    -- * Response-    , DescribeCacheParameterGroupsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeCacheParameterGroupsResponse-    -- ** Response lenses-    , dcpgrCacheParameterGroups-    , dcpgrMarker+    , DescribeCacheParameterGroupsResponse+    -- * Response Lenses+    , dcpgrsCacheParameterGroups+    , dcpgrsMarker+    , dcpgrsStatus     ) where -import Network.AWS.Prelude-import Network.AWS.Request.Query-import Network.AWS.ElastiCache.Types-import qualified GHC.Exts--data DescribeCacheParameterGroups = DescribeCacheParameterGroups-    { _dcpgCacheParameterGroupName :: Maybe Text-    , _dcpgMarker                  :: Maybe Text-    , _dcpgMaxRecords              :: Maybe Int-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.ElastiCache.Types+import           Network.AWS.ElastiCache.Types.Product+import           Network.AWS.Pager+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response --- | 'DescribeCacheParameterGroups' constructor.+-- | Represents the input of a /DescribeCacheParameterGroups/ action. ----- The fields accessible through corresponding lenses are:+-- /See:/ 'describeCacheParameterGroups' smart constructor.+data DescribeCacheParameterGroups = DescribeCacheParameterGroups'+    { _dcpgCacheParameterGroupName :: !(Maybe Text)+    , _dcpgMaxRecords              :: !(Maybe Int)+    , _dcpgMarker                  :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeCacheParameterGroups' with the minimum fields required to make a request. ----- * 'dcpgCacheParameterGroupName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcpgMarker' @::@ 'Maybe' 'Text'+-- * 'dcpgCacheParameterGroupName' ----- * 'dcpgMaxRecords' @::@ 'Maybe' 'Int'+-- * 'dcpgMaxRecords' ---describeCacheParameterGroups :: DescribeCacheParameterGroups-describeCacheParameterGroups = DescribeCacheParameterGroups+-- * 'dcpgMarker'+describeCacheParameterGroups+    :: DescribeCacheParameterGroups+describeCacheParameterGroups =+    DescribeCacheParameterGroups'     { _dcpgCacheParameterGroupName = Nothing-    , _dcpgMaxRecords              = Nothing-    , _dcpgMarker                  = Nothing+    , _dcpgMaxRecords = Nothing+    , _dcpgMarker = Nothing     }  -- | The name of a specific cache parameter group to return details for. dcpgCacheParameterGroupName :: Lens' DescribeCacheParameterGroups (Maybe Text)-dcpgCacheParameterGroupName =-    lens _dcpgCacheParameterGroupName-        (\s a -> s { _dcpgCacheParameterGroupName = a })---- | An optional marker returned from a prior request. Use this marker for--- pagination of results from this action. If this parameter is specified, the--- response includes only records beyond the marker, up to the value specified--- by /MaxRecords/.-dcpgMarker :: Lens' DescribeCacheParameterGroups (Maybe Text)-dcpgMarker = lens _dcpgMarker (\s a -> s { _dcpgMarker = a })+dcpgCacheParameterGroupName = lens _dcpgCacheParameterGroupName (\ s a -> s{_dcpgCacheParameterGroupName = a}); --- | The maximum number of records to include in the response. If more records--- exist than the specified 'MaxRecords' value, a marker is included in the--- response so that the remaining results can be retrieved.+-- | The maximum number of records to include in the response. If more+-- records exist than the specified 'MaxRecords' value, a marker is+-- included in the response so that the remaining results can be retrieved. -- -- Default: 100 -- -- Constraints: minimum 20; maximum 100. dcpgMaxRecords :: Lens' DescribeCacheParameterGroups (Maybe Int)-dcpgMaxRecords = lens _dcpgMaxRecords (\s a -> s { _dcpgMaxRecords = a })+dcpgMaxRecords = lens _dcpgMaxRecords (\ s a -> s{_dcpgMaxRecords = a}); -data DescribeCacheParameterGroupsResponse = DescribeCacheParameterGroupsResponse-    { _dcpgrCacheParameterGroups :: List "member" CacheParameterGroup-    , _dcpgrMarker               :: Maybe Text-    } deriving (Eq, Read, Show)+-- | An optional marker returned from a prior request. Use this marker for+-- pagination of results from this action. If this parameter is specified,+-- the response includes only records beyond the marker, up to the value+-- specified by /MaxRecords/.+dcpgMarker :: Lens' DescribeCacheParameterGroups (Maybe Text)+dcpgMarker = lens _dcpgMarker (\ s a -> s{_dcpgMarker = a}); --- | 'DescribeCacheParameterGroupsResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcpgrCacheParameterGroups' @::@ ['CacheParameterGroup']------ * 'dcpgrMarker' @::@ 'Maybe' 'Text'----describeCacheParameterGroupsResponse :: DescribeCacheParameterGroupsResponse-describeCacheParameterGroupsResponse = DescribeCacheParameterGroupsResponse-    { _dcpgrMarker               = Nothing-    , _dcpgrCacheParameterGroups = mempty-    }+instance AWSPager DescribeCacheParameterGroups where+        page rq rs+          | stop (rs ^. dcpgrsMarker) = Nothing+          | stop (rs ^. dcpgrsCacheParameterGroups) = Nothing+          | otherwise =+            Just $ rq & dcpgMarker .~ rs ^. dcpgrsMarker --- | A list of cache parameter groups. Each element in the list contains detailed--- information about one cache parameter group.-dcpgrCacheParameterGroups :: Lens' DescribeCacheParameterGroupsResponse [CacheParameterGroup]-dcpgrCacheParameterGroups =-    lens _dcpgrCacheParameterGroups-        (\s a -> s { _dcpgrCacheParameterGroups = a })-            . _List+instance AWSRequest DescribeCacheParameterGroups+         where+        type Sv DescribeCacheParameterGroups = ElastiCache+        type Rs DescribeCacheParameterGroups =+             DescribeCacheParameterGroupsResponse+        request = postQuery+        response+          = receiveXMLWrapper+              "DescribeCacheParameterGroupsResult"+              (\ s h x ->+                 DescribeCacheParameterGroupsResponse' <$>+                   (x .@? "CacheParameterGroups" .!@ mempty >>=+                      may (parseXMLList "CacheParameterGroup"))+                     <*> (x .@? "Marker")+                     <*> (pure (fromEnum s))) --- | Provides an identifier to allow retrieval of paginated results.-dcpgrMarker :: Lens' DescribeCacheParameterGroupsResponse (Maybe Text)-dcpgrMarker = lens _dcpgrMarker (\s a -> s { _dcpgrMarker = a })+instance ToHeaders DescribeCacheParameterGroups where+        toHeaders = const mempty  instance ToPath DescribeCacheParameterGroups where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeCacheParameterGroups where-    toQuery DescribeCacheParameterGroups{..} = mconcat-        [ "CacheParameterGroupName" =? _dcpgCacheParameterGroupName-        , "Marker"                  =? _dcpgMarker-        , "MaxRecords"              =? _dcpgMaxRecords-        ]+        toQuery DescribeCacheParameterGroups'{..}+          = mconcat+              ["Action" =:+                 ("DescribeCacheParameterGroups" :: ByteString),+               "Version" =: ("2015-02-02" :: ByteString),+               "CacheParameterGroupName" =:+                 _dcpgCacheParameterGroupName,+               "MaxRecords" =: _dcpgMaxRecords,+               "Marker" =: _dcpgMarker] -instance ToHeaders DescribeCacheParameterGroups+-- | Represents the output of a /DescribeCacheParameterGroups/ action.+--+-- /See:/ 'describeCacheParameterGroupsResponse' smart constructor.+data DescribeCacheParameterGroupsResponse = DescribeCacheParameterGroupsResponse'+    { _dcpgrsCacheParameterGroups :: !(Maybe [CacheParameterGroup])+    , _dcpgrsMarker               :: !(Maybe Text)+    , _dcpgrsStatus               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DescribeCacheParameterGroups where-    type Sv DescribeCacheParameterGroups = ElastiCache-    type Rs DescribeCacheParameterGroups = DescribeCacheParameterGroupsResponse+-- | Creates a value of 'DescribeCacheParameterGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcpgrsCacheParameterGroups'+--+-- * 'dcpgrsMarker'+--+-- * 'dcpgrsStatus'+describeCacheParameterGroupsResponse+    :: Int -- ^ 'dcpgrsStatus'+    -> DescribeCacheParameterGroupsResponse+describeCacheParameterGroupsResponse pStatus_ =+    DescribeCacheParameterGroupsResponse'+    { _dcpgrsCacheParameterGroups = Nothing+    , _dcpgrsMarker = Nothing+    , _dcpgrsStatus = pStatus_+    } -    request  = post "DescribeCacheParameterGroups"-    response = xmlResponse+-- | A list of cache parameter groups. Each element in the list contains+-- detailed information about one cache parameter group.+dcpgrsCacheParameterGroups :: Lens' DescribeCacheParameterGroupsResponse [CacheParameterGroup]+dcpgrsCacheParameterGroups = lens _dcpgrsCacheParameterGroups (\ s a -> s{_dcpgrsCacheParameterGroups = a}) . _Default . _Coerce; -instance FromXML DescribeCacheParameterGroupsResponse where-    parseXML = withElement "DescribeCacheParameterGroupsResult" $ \x -> DescribeCacheParameterGroupsResponse-        <$> x .@? "CacheParameterGroups" .!@ mempty-        <*> x .@? "Marker"+-- | Provides an identifier to allow retrieval of paginated results.+dcpgrsMarker :: Lens' DescribeCacheParameterGroupsResponse (Maybe Text)+dcpgrsMarker = lens _dcpgrsMarker (\ s a -> s{_dcpgrsMarker = a}); -instance AWSPager DescribeCacheParameterGroups where-    page rq rs-        | stop (rs ^. dcpgrMarker) = Nothing-        | otherwise = (\x -> rq & dcpgMarker ?~ x)-            <$> (rs ^. dcpgrMarker)+-- | The response status code.+dcpgrsStatus :: Lens' DescribeCacheParameterGroupsResponse Int+dcpgrsStatus = lens _dcpgrsStatus (\ s a -> s{_dcpgrsStatus = a});