diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-elasticache.cabal b/amazonka-elasticache.cabal --- a/amazonka-elasticache.cabal +++ b/amazonka-elasticache.cabal @@ -1,5 +1,5 @@ name: amazonka-elasticache -version: 1.1.0 +version: 1.2.0 synopsis: Amazon ElastiCache SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -99,7 +99,7 @@ , Network.AWS.ElastiCache.Types.Sum build-depends: - amazonka-core == 1.1.0.* + amazonka-core == 1.2.0.* , base >= 4.7 && < 5 test-suite amazonka-elasticache-test @@ -118,9 +118,9 @@ , Test.AWS.ElastiCache.Internal build-depends: - amazonka-core == 1.1.0 - , amazonka-test == 1.1.0 - , amazonka-elasticache == 1.1.0 + amazonka-core == 1.2.0 + , amazonka-test == 1.2.0 + , amazonka-elasticache == 1.2.0 , base , bytestring , lens diff --git a/gen/Network/AWS/ElastiCache.hs b/gen/Network/AWS/ElastiCache.hs --- a/gen/Network/AWS/ElastiCache.hs +++ b/gen/Network/AWS/ElastiCache.hs @@ -29,8 +29,8 @@ -- /See:/ module Network.AWS.ElastiCache ( - -- * Service - ElastiCache + -- * Service Configuration + elastiCache -- * Errors -- $errors diff --git a/gen/Network/AWS/ElastiCache/AddTagsToResource.hs b/gen/Network/AWS/ElastiCache/AddTagsToResource.hs --- a/gen/Network/AWS/ElastiCache/AddTagsToResource.hs +++ b/gen/Network/AWS/ElastiCache/AddTagsToResource.hs @@ -89,9 +89,8 @@ attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce; instance AWSRequest AddTagsToResource where - type Sv AddTagsToResource = ElastiCache type Rs AddTagsToResource = TagListMessage - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "AddTagsToResourceResult" (\ s h x -> parseXML x) diff --git a/gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs b/gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs --- a/gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs +++ b/gen/Network/AWS/ElastiCache/AuthorizeCacheSecurityGroupIngress.hs @@ -98,11 +98,9 @@ instance AWSRequest AuthorizeCacheSecurityGroupIngress where - type Sv AuthorizeCacheSecurityGroupIngress = - ElastiCache type Rs AuthorizeCacheSecurityGroupIngress = AuthorizeCacheSecurityGroupIngressResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "AuthorizeCacheSecurityGroupIngressResult" diff --git a/gen/Network/AWS/ElastiCache/CopySnapshot.hs b/gen/Network/AWS/ElastiCache/CopySnapshot.hs --- a/gen/Network/AWS/ElastiCache/CopySnapshot.hs +++ b/gen/Network/AWS/ElastiCache/CopySnapshot.hs @@ -78,9 +78,8 @@ csTargetSnapshotName = lens _csTargetSnapshotName (\ s a -> s{_csTargetSnapshotName = a}); instance AWSRequest CopySnapshot where - type Sv CopySnapshot = ElastiCache type Rs CopySnapshot = CopySnapshotResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CopySnapshotResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateCacheCluster.hs b/gen/Network/AWS/ElastiCache/CreateCacheCluster.hs --- a/gen/Network/AWS/ElastiCache/CreateCacheCluster.hs +++ b/gen/Network/AWS/ElastiCache/CreateCacheCluster.hs @@ -417,10 +417,9 @@ cccCacheClusterId = lens _cccCacheClusterId (\ s a -> s{_cccCacheClusterId = a}); instance AWSRequest CreateCacheCluster where - type Sv CreateCacheCluster = ElastiCache type Rs CreateCacheCluster = CreateCacheClusterResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateCacheClusterResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs b/gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs --- a/gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs +++ b/gen/Network/AWS/ElastiCache/CreateCacheParameterGroup.hs @@ -93,10 +93,9 @@ ccpgDescription = lens _ccpgDescription (\ s a -> s{_ccpgDescription = a}); instance AWSRequest CreateCacheParameterGroup where - type Sv CreateCacheParameterGroup = ElastiCache type Rs CreateCacheParameterGroup = CreateCacheParameterGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateCacheParameterGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs b/gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs --- a/gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs +++ b/gen/Network/AWS/ElastiCache/CreateCacheSecurityGroup.hs @@ -92,10 +92,9 @@ ccsgDescription = lens _ccsgDescription (\ s a -> s{_ccsgDescription = a}); instance AWSRequest CreateCacheSecurityGroup where - type Sv CreateCacheSecurityGroup = ElastiCache type Rs CreateCacheSecurityGroup = CreateCacheSecurityGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateCacheSecurityGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs b/gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs --- a/gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs +++ b/gen/Network/AWS/ElastiCache/CreateCacheSubnetGroup.hs @@ -96,10 +96,9 @@ ccsgSubnetIds = lens _ccsgSubnetIds (\ s a -> s{_ccsgSubnetIds = a}) . _Coerce; instance AWSRequest CreateCacheSubnetGroup where - type Sv CreateCacheSubnetGroup = ElastiCache type Rs CreateCacheSubnetGroup = CreateCacheSubnetGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateCacheSubnetGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs b/gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs --- a/gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs +++ b/gen/Network/AWS/ElastiCache/CreateReplicationGroup.hs @@ -406,10 +406,9 @@ crgReplicationGroupDescription = lens _crgReplicationGroupDescription (\ s a -> s{_crgReplicationGroupDescription = a}); instance AWSRequest CreateReplicationGroup where - type Sv CreateReplicationGroup = ElastiCache type Rs CreateReplicationGroup = CreateReplicationGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateReplicationGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/CreateSnapshot.hs b/gen/Network/AWS/ElastiCache/CreateSnapshot.hs --- a/gen/Network/AWS/ElastiCache/CreateSnapshot.hs +++ b/gen/Network/AWS/ElastiCache/CreateSnapshot.hs @@ -80,9 +80,8 @@ csSnapshotName = lens _csSnapshotName (\ s a -> s{_csSnapshotName = a}); instance AWSRequest CreateSnapshot where - type Sv CreateSnapshot = ElastiCache type Rs CreateSnapshot = CreateSnapshotResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "CreateSnapshotResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs b/gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs --- a/gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs +++ b/gen/Network/AWS/ElastiCache/DeleteCacheCluster.hs @@ -87,10 +87,9 @@ dccCacheClusterId = lens _dccCacheClusterId (\ s a -> s{_dccCacheClusterId = a}); instance AWSRequest DeleteCacheCluster where - type Sv DeleteCacheCluster = ElastiCache type Rs DeleteCacheCluster = DeleteCacheClusterResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DeleteCacheClusterResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs b/gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs --- a/gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs +++ b/gen/Network/AWS/ElastiCache/DeleteCacheParameterGroup.hs @@ -70,10 +70,9 @@ dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a}); instance AWSRequest DeleteCacheParameterGroup where - type Sv DeleteCacheParameterGroup = ElastiCache type Rs DeleteCacheParameterGroup = DeleteCacheParameterGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveNull DeleteCacheParameterGroupResponse' diff --git a/gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs b/gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs --- a/gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs +++ b/gen/Network/AWS/ElastiCache/DeleteCacheSecurityGroup.hs @@ -70,10 +70,9 @@ dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a}); instance AWSRequest DeleteCacheSecurityGroup where - type Sv DeleteCacheSecurityGroup = ElastiCache type Rs DeleteCacheSecurityGroup = DeleteCacheSecurityGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveNull DeleteCacheSecurityGroupResponse' diff --git a/gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs b/gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs --- a/gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs +++ b/gen/Network/AWS/ElastiCache/DeleteCacheSubnetGroup.hs @@ -71,10 +71,9 @@ dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a}); instance AWSRequest DeleteCacheSubnetGroup where - type Sv DeleteCacheSubnetGroup = ElastiCache type Rs DeleteCacheSubnetGroup = DeleteCacheSubnetGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveNull DeleteCacheSubnetGroupResponse' diff --git a/gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs b/gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs --- a/gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs +++ b/gen/Network/AWS/ElastiCache/DeleteReplicationGroup.hs @@ -99,10 +99,9 @@ drgReplicationGroupId = lens _drgReplicationGroupId (\ s a -> s{_drgReplicationGroupId = a}); instance AWSRequest DeleteReplicationGroup where - type Sv DeleteReplicationGroup = ElastiCache type Rs DeleteReplicationGroup = DeleteReplicationGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DeleteReplicationGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DeleteSnapshot.hs b/gen/Network/AWS/ElastiCache/DeleteSnapshot.hs --- a/gen/Network/AWS/ElastiCache/DeleteSnapshot.hs +++ b/gen/Network/AWS/ElastiCache/DeleteSnapshot.hs @@ -70,9 +70,8 @@ dSnapshotName = lens _dSnapshotName (\ s a -> s{_dSnapshotName = a}); instance AWSRequest DeleteSnapshot where - type Sv DeleteSnapshot = ElastiCache type Rs DeleteSnapshot = DeleteSnapshotResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DeleteSnapshotResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs b/gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheClusters.hs @@ -139,10 +139,9 @@ | otherwise = Just $ rq & dMarker .~ rs ^. drsMarker instance AWSRequest DescribeCacheClusters where - type Sv DescribeCacheClusters = ElastiCache type Rs DescribeCacheClusters = DescribeCacheClustersResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheClustersResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs b/gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheEngineVersions.hs @@ -143,10 +143,9 @@ Just $ rq & dcevMarker .~ rs ^. dcevrsMarker instance AWSRequest DescribeCacheEngineVersions where - type Sv DescribeCacheEngineVersions = ElastiCache type Rs DescribeCacheEngineVersions = DescribeCacheEngineVersionsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheEngineVersionsResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs b/gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheParameterGroups.hs @@ -108,10 +108,9 @@ instance AWSRequest DescribeCacheParameterGroups where - type Sv DescribeCacheParameterGroups = ElastiCache type Rs DescribeCacheParameterGroups = DescribeCacheParameterGroupsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheParameterGroupsResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs b/gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheParameters.hs @@ -119,10 +119,9 @@ Just $ rq & dcpMarker .~ rs ^. dcprsMarker instance AWSRequest DescribeCacheParameters where - type Sv DescribeCacheParameters = ElastiCache type Rs DescribeCacheParameters = DescribeCacheParametersResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheParametersResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs b/gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheSecurityGroups.hs @@ -107,10 +107,9 @@ Just $ rq & dcsgsMarker .~ rs ^. dcsgsrsMarker instance AWSRequest DescribeCacheSecurityGroups where - type Sv DescribeCacheSecurityGroups = ElastiCache type Rs DescribeCacheSecurityGroups = DescribeCacheSecurityGroupsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheSecurityGroupsResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs b/gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs --- a/gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs +++ b/gen/Network/AWS/ElastiCache/DescribeCacheSubnetGroups.hs @@ -107,10 +107,9 @@ Just $ rq & dcsgMarker .~ rs ^. dcsgrsMarker instance AWSRequest DescribeCacheSubnetGroups where - type Sv DescribeCacheSubnetGroups = ElastiCache type Rs DescribeCacheSubnetGroups = DescribeCacheSubnetGroupsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeCacheSubnetGroupsResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs b/gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs --- a/gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs +++ b/gen/Network/AWS/ElastiCache/DescribeEngineDefaultParameters.hs @@ -114,10 +114,9 @@ instance AWSRequest DescribeEngineDefaultParameters where - type Sv DescribeEngineDefaultParameters = ElastiCache type Rs DescribeEngineDefaultParameters = DescribeEngineDefaultParametersResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeEngineDefaultParametersResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeEvents.hs b/gen/Network/AWS/ElastiCache/DescribeEvents.hs --- a/gen/Network/AWS/ElastiCache/DescribeEvents.hs +++ b/gen/Network/AWS/ElastiCache/DescribeEvents.hs @@ -154,9 +154,8 @@ Just $ rq & deMarker .~ rs ^. dersMarker instance AWSRequest DescribeEvents where - type Sv DescribeEvents = ElastiCache type Rs DescribeEvents = DescribeEventsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeEventsResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs b/gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs --- a/gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs +++ b/gen/Network/AWS/ElastiCache/DescribeReplicationGroups.hs @@ -112,10 +112,9 @@ Just $ rq & drgsMarker .~ rs ^. drgrsMarker instance AWSRequest DescribeReplicationGroups where - type Sv DescribeReplicationGroups = ElastiCache type Rs DescribeReplicationGroups = DescribeReplicationGroupsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeReplicationGroupsResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs b/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs --- a/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs +++ b/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodes.hs @@ -193,10 +193,9 @@ Just $ rq & drcnMarker .~ rs ^. drcnrsMarker instance AWSRequest DescribeReservedCacheNodes where - type Sv DescribeReservedCacheNodes = ElastiCache type Rs DescribeReservedCacheNodes = DescribeReservedCacheNodesResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeReservedCacheNodesResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs b/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs --- a/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs +++ b/gen/Network/AWS/ElastiCache/DescribeReservedCacheNodesOfferings.hs @@ -188,11 +188,9 @@ instance AWSRequest DescribeReservedCacheNodesOfferings where - type Sv DescribeReservedCacheNodesOfferings = - ElastiCache type Rs DescribeReservedCacheNodesOfferings = DescribeReservedCacheNodesOfferingsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeReservedCacheNodesOfferingsResult" diff --git a/gen/Network/AWS/ElastiCache/DescribeSnapshots.hs b/gen/Network/AWS/ElastiCache/DescribeSnapshots.hs --- a/gen/Network/AWS/ElastiCache/DescribeSnapshots.hs +++ b/gen/Network/AWS/ElastiCache/DescribeSnapshots.hs @@ -131,9 +131,8 @@ Just $ rq & dsMarker .~ rs ^. dssrsMarker instance AWSRequest DescribeSnapshots where - type Sv DescribeSnapshots = ElastiCache type Rs DescribeSnapshots = DescribeSnapshotsResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "DescribeSnapshotsResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/ListTagsForResource.hs b/gen/Network/AWS/ElastiCache/ListTagsForResource.hs --- a/gen/Network/AWS/ElastiCache/ListTagsForResource.hs +++ b/gen/Network/AWS/ElastiCache/ListTagsForResource.hs @@ -75,9 +75,8 @@ ltfrResourceName = lens _ltfrResourceName (\ s a -> s{_ltfrResourceName = a}); instance AWSRequest ListTagsForResource where - type Sv ListTagsForResource = ElastiCache type Rs ListTagsForResource = TagListMessage - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ListTagsForResourceResult" (\ s h x -> parseXML x) diff --git a/gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs b/gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs --- a/gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs +++ b/gen/Network/AWS/ElastiCache/ModifyCacheCluster.hs @@ -370,10 +370,9 @@ mccCacheClusterId = lens _mccCacheClusterId (\ s a -> s{_mccCacheClusterId = a}); instance AWSRequest ModifyCacheCluster where - type Sv ModifyCacheCluster = ElastiCache type Rs ModifyCacheCluster = ModifyCacheClusterResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ModifyCacheClusterResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs b/gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs --- a/gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs +++ b/gen/Network/AWS/ElastiCache/ModifyCacheParameterGroup.hs @@ -80,10 +80,9 @@ mcpgParameterNameValues = lens _mcpgParameterNameValues (\ s a -> s{_mcpgParameterNameValues = a}) . _Coerce; instance AWSRequest ModifyCacheParameterGroup where - type Sv ModifyCacheParameterGroup = ElastiCache type Rs ModifyCacheParameterGroup = CacheParameterGroupNameMessage - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ModifyCacheParameterGroupResult" (\ s h x -> parseXML x) diff --git a/gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs b/gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs --- a/gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs +++ b/gen/Network/AWS/ElastiCache/ModifyCacheSubnetGroup.hs @@ -93,10 +93,9 @@ mcsgCacheSubnetGroupName = lens _mcsgCacheSubnetGroupName (\ s a -> s{_mcsgCacheSubnetGroupName = a}); instance AWSRequest ModifyCacheSubnetGroup where - type Sv ModifyCacheSubnetGroup = ElastiCache type Rs ModifyCacheSubnetGroup = ModifyCacheSubnetGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ModifyCacheSubnetGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs b/gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs --- a/gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs +++ b/gen/Network/AWS/ElastiCache/ModifyReplicationGroup.hs @@ -276,10 +276,9 @@ mrgReplicationGroupId = lens _mrgReplicationGroupId (\ s a -> s{_mrgReplicationGroupId = a}); instance AWSRequest ModifyReplicationGroup where - type Sv ModifyReplicationGroup = ElastiCache type Rs ModifyReplicationGroup = ModifyReplicationGroupResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ModifyReplicationGroupResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs b/gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs --- a/gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs +++ b/gen/Network/AWS/ElastiCache/PurchaseReservedCacheNodesOffering.hs @@ -94,11 +94,9 @@ instance AWSRequest PurchaseReservedCacheNodesOffering where - type Sv PurchaseReservedCacheNodesOffering = - ElastiCache type Rs PurchaseReservedCacheNodesOffering = PurchaseReservedCacheNodesOfferingResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "PurchaseReservedCacheNodesOfferingResult" diff --git a/gen/Network/AWS/ElastiCache/RebootCacheCluster.hs b/gen/Network/AWS/ElastiCache/RebootCacheCluster.hs --- a/gen/Network/AWS/ElastiCache/RebootCacheCluster.hs +++ b/gen/Network/AWS/ElastiCache/RebootCacheCluster.hs @@ -90,10 +90,9 @@ rccCacheNodeIdsToReboot = lens _rccCacheNodeIdsToReboot (\ s a -> s{_rccCacheNodeIdsToReboot = a}) . _Coerce; instance AWSRequest RebootCacheCluster where - type Sv RebootCacheCluster = ElastiCache type Rs RebootCacheCluster = RebootCacheClusterResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "RebootCacheClusterResult" (\ s h x -> diff --git a/gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs b/gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs --- a/gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs +++ b/gen/Network/AWS/ElastiCache/RemoveTagsFromResource.hs @@ -82,9 +82,8 @@ rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce; instance AWSRequest RemoveTagsFromResource where - type Sv RemoveTagsFromResource = ElastiCache type Rs RemoveTagsFromResource = TagListMessage - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "RemoveTagsFromResourceResult" (\ s h x -> parseXML x) diff --git a/gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs b/gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs --- a/gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs +++ b/gen/Network/AWS/ElastiCache/ResetCacheParameterGroup.hs @@ -94,10 +94,9 @@ rcpgParameterNameValues = lens _rcpgParameterNameValues (\ s a -> s{_rcpgParameterNameValues = a}) . _Coerce; instance AWSRequest ResetCacheParameterGroup where - type Sv ResetCacheParameterGroup = ElastiCache type Rs ResetCacheParameterGroup = CacheParameterGroupNameMessage - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "ResetCacheParameterGroupResult" (\ s h x -> parseXML x) diff --git a/gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs b/gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs --- a/gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs +++ b/gen/Network/AWS/ElastiCache/RevokeCacheSecurityGroupIngress.hs @@ -93,10 +93,9 @@ instance AWSRequest RevokeCacheSecurityGroupIngress where - type Sv RevokeCacheSecurityGroupIngress = ElastiCache type Rs RevokeCacheSecurityGroupIngress = RevokeCacheSecurityGroupIngressResponse - request = postQuery + request = postQuery elastiCache response = receiveXMLWrapper "RevokeCacheSecurityGroupIngressResult" diff --git a/gen/Network/AWS/ElastiCache/Types.hs b/gen/Network/AWS/ElastiCache/Types.hs --- a/gen/Network/AWS/ElastiCache/Types.hs +++ b/gen/Network/AWS/ElastiCache/Types.hs @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.ElastiCache.Types ( - -- * Service - ElastiCache + -- * Service Configuration + elastiCache -- * Errors , _CacheSubnetGroupAlreadyExistsFault @@ -372,39 +371,36 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | Version @2015-02-02@ of the Amazon ElastiCache SDK. -data ElastiCache - -instance AWSService ElastiCache where - type Sg ElastiCache = V4 - service = const svc - where - svc = - Service - { _svcAbbrev = "ElastiCache" - , _svcPrefix = "elasticache" - , _svcVersion = "2015-02-02" - , _svcEndpoint = defaultEndpoint svc - , _svcTimeout = Just 70 - , _svcStatus = statusSuccess - , _svcError = parseXMLError - , _svcRetry = retry - } - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing +-- | API version '2015-02-02' of the Amazon ElastiCache SDK configuration. +elastiCache :: Service +elastiCache = + Service + { _svcAbbrev = "ElastiCache" + , _svcSigner = v4 + , _svcPrefix = "elasticache" + , _svcVersion = "2015-02-02" + , _svcEndpoint = defaultEndpoint elastiCache + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseXMLError + , _svcRetry = retry + } + where + retry = + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } + check e + | has (hasCode "ThrottlingException" . hasStatus 400) e = + Just "throttling_exception" + | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 503) e = Just "service_unavailable" + | has (hasStatus 500) e = Just "general_server_error" + | has (hasStatus 509) e = Just "limit_exceeded" + | otherwise = Nothing -- | The requested cache subnet group name is already in use by an existing -- cache subnet group. diff --git a/gen/Network/AWS/ElastiCache/Types/Product.hs b/gen/Network/AWS/ElastiCache/Types/Product.hs --- a/gen/Network/AWS/ElastiCache/Types/Product.hs +++ b/gen/Network/AWS/ElastiCache/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} diff --git a/test/Test/AWS/Gen/ElastiCache.hs b/test/Test/AWS/Gen/ElastiCache.hs --- a/test/Test/AWS/Gen/ElastiCache.hs +++ b/test/Test/AWS/Gen/ElastiCache.hs @@ -449,220 +449,257 @@ testDeleteCacheSecurityGroupResponse = res "DeleteCacheSecurityGroupResponse" "fixture/DeleteCacheSecurityGroupResponse" + elastiCache (Proxy :: Proxy DeleteCacheSecurityGroup) testCreateReplicationGroupResponse :: CreateReplicationGroupResponse -> TestTree testCreateReplicationGroupResponse = res "CreateReplicationGroupResponse" "fixture/CreateReplicationGroupResponse" + elastiCache (Proxy :: Proxy CreateReplicationGroup) testDeleteCacheClusterResponse :: DeleteCacheClusterResponse -> TestTree testDeleteCacheClusterResponse = res "DeleteCacheClusterResponse" "fixture/DeleteCacheClusterResponse" + elastiCache (Proxy :: Proxy DeleteCacheCluster) testRebootCacheClusterResponse :: RebootCacheClusterResponse -> TestTree testRebootCacheClusterResponse = res "RebootCacheClusterResponse" "fixture/RebootCacheClusterResponse" + elastiCache (Proxy :: Proxy RebootCacheCluster) testRevokeCacheSecurityGroupIngressResponse :: RevokeCacheSecurityGroupIngressResponse -> TestTree testRevokeCacheSecurityGroupIngressResponse = res "RevokeCacheSecurityGroupIngressResponse" "fixture/RevokeCacheSecurityGroupIngressResponse" + elastiCache (Proxy :: Proxy RevokeCacheSecurityGroupIngress) testDescribeEventsResponse :: DescribeEventsResponse -> TestTree testDescribeEventsResponse = res "DescribeEventsResponse" "fixture/DescribeEventsResponse" + elastiCache (Proxy :: Proxy DescribeEvents) testDescribeEngineDefaultParametersResponse :: DescribeEngineDefaultParametersResponse -> TestTree testDescribeEngineDefaultParametersResponse = res "DescribeEngineDefaultParametersResponse" "fixture/DescribeEngineDefaultParametersResponse" + elastiCache (Proxy :: Proxy DescribeEngineDefaultParameters) testModifyCacheParameterGroupResponse :: CacheParameterGroupNameMessage -> TestTree testModifyCacheParameterGroupResponse = res "ModifyCacheParameterGroupResponse" "fixture/ModifyCacheParameterGroupResponse" + elastiCache (Proxy :: Proxy ModifyCacheParameterGroup) testCreateCacheClusterResponse :: CreateCacheClusterResponse -> TestTree testCreateCacheClusterResponse = res "CreateCacheClusterResponse" "fixture/CreateCacheClusterResponse" + elastiCache (Proxy :: Proxy CreateCacheCluster) testListTagsForResourceResponse :: TagListMessage -> TestTree testListTagsForResourceResponse = res "ListTagsForResourceResponse" "fixture/ListTagsForResourceResponse" + elastiCache (Proxy :: Proxy ListTagsForResource) testDeleteReplicationGroupResponse :: DeleteReplicationGroupResponse -> TestTree testDeleteReplicationGroupResponse = res "DeleteReplicationGroupResponse" "fixture/DeleteReplicationGroupResponse" + elastiCache (Proxy :: Proxy DeleteReplicationGroup) testPurchaseReservedCacheNodesOfferingResponse :: PurchaseReservedCacheNodesOfferingResponse -> TestTree testPurchaseReservedCacheNodesOfferingResponse = res "PurchaseReservedCacheNodesOfferingResponse" "fixture/PurchaseReservedCacheNodesOfferingResponse" + elastiCache (Proxy :: Proxy PurchaseReservedCacheNodesOffering) testDescribeCacheClustersResponse :: DescribeCacheClustersResponse -> TestTree testDescribeCacheClustersResponse = res "DescribeCacheClustersResponse" "fixture/DescribeCacheClustersResponse" + elastiCache (Proxy :: Proxy DescribeCacheClusters) testModifyReplicationGroupResponse :: ModifyReplicationGroupResponse -> TestTree testModifyReplicationGroupResponse = res "ModifyReplicationGroupResponse" "fixture/ModifyReplicationGroupResponse" + elastiCache (Proxy :: Proxy ModifyReplicationGroup) testRemoveTagsFromResourceResponse :: TagListMessage -> TestTree testRemoveTagsFromResourceResponse = res "RemoveTagsFromResourceResponse" "fixture/RemoveTagsFromResourceResponse" + elastiCache (Proxy :: Proxy RemoveTagsFromResource) testDescribeCacheParametersResponse :: DescribeCacheParametersResponse -> TestTree testDescribeCacheParametersResponse = res "DescribeCacheParametersResponse" "fixture/DescribeCacheParametersResponse" + elastiCache (Proxy :: Proxy DescribeCacheParameters) testDescribeCacheSubnetGroupsResponse :: DescribeCacheSubnetGroupsResponse -> TestTree testDescribeCacheSubnetGroupsResponse = res "DescribeCacheSubnetGroupsResponse" "fixture/DescribeCacheSubnetGroupsResponse" + elastiCache (Proxy :: Proxy DescribeCacheSubnetGroups) testCreateCacheSecurityGroupResponse :: CreateCacheSecurityGroupResponse -> TestTree testCreateCacheSecurityGroupResponse = res "CreateCacheSecurityGroupResponse" "fixture/CreateCacheSecurityGroupResponse" + elastiCache (Proxy :: Proxy CreateCacheSecurityGroup) testAddTagsToResourceResponse :: TagListMessage -> TestTree testAddTagsToResourceResponse = res "AddTagsToResourceResponse" "fixture/AddTagsToResourceResponse" + elastiCache (Proxy :: Proxy AddTagsToResource) testAuthorizeCacheSecurityGroupIngressResponse :: AuthorizeCacheSecurityGroupIngressResponse -> TestTree testAuthorizeCacheSecurityGroupIngressResponse = res "AuthorizeCacheSecurityGroupIngressResponse" "fixture/AuthorizeCacheSecurityGroupIngressResponse" + elastiCache (Proxy :: Proxy AuthorizeCacheSecurityGroupIngress) testCopySnapshotResponse :: CopySnapshotResponse -> TestTree testCopySnapshotResponse = res "CopySnapshotResponse" "fixture/CopySnapshotResponse" + elastiCache (Proxy :: Proxy CopySnapshot) testCreateCacheSubnetGroupResponse :: CreateCacheSubnetGroupResponse -> TestTree testCreateCacheSubnetGroupResponse = res "CreateCacheSubnetGroupResponse" "fixture/CreateCacheSubnetGroupResponse" + elastiCache (Proxy :: Proxy CreateCacheSubnetGroup) testDescribeCacheParameterGroupsResponse :: DescribeCacheParameterGroupsResponse -> TestTree testDescribeCacheParameterGroupsResponse = res "DescribeCacheParameterGroupsResponse" "fixture/DescribeCacheParameterGroupsResponse" + elastiCache (Proxy :: Proxy DescribeCacheParameterGroups) testResetCacheParameterGroupResponse :: CacheParameterGroupNameMessage -> TestTree testResetCacheParameterGroupResponse = res "ResetCacheParameterGroupResponse" "fixture/ResetCacheParameterGroupResponse" + elastiCache (Proxy :: Proxy ResetCacheParameterGroup) testDescribeSnapshotsResponse :: DescribeSnapshotsResponse -> TestTree testDescribeSnapshotsResponse = res "DescribeSnapshotsResponse" "fixture/DescribeSnapshotsResponse" + elastiCache (Proxy :: Proxy DescribeSnapshots) testDescribeReservedCacheNodesOfferingsResponse :: DescribeReservedCacheNodesOfferingsResponse -> TestTree testDescribeReservedCacheNodesOfferingsResponse = res "DescribeReservedCacheNodesOfferingsResponse" "fixture/DescribeReservedCacheNodesOfferingsResponse" + elastiCache (Proxy :: Proxy DescribeReservedCacheNodesOfferings) testDeleteSnapshotResponse :: DeleteSnapshotResponse -> TestTree testDeleteSnapshotResponse = res "DeleteSnapshotResponse" "fixture/DeleteSnapshotResponse" + elastiCache (Proxy :: Proxy DeleteSnapshot) testDescribeReplicationGroupsResponse :: DescribeReplicationGroupsResponse -> TestTree testDescribeReplicationGroupsResponse = res "DescribeReplicationGroupsResponse" "fixture/DescribeReplicationGroupsResponse" + elastiCache (Proxy :: Proxy DescribeReplicationGroups) testModifyCacheSubnetGroupResponse :: ModifyCacheSubnetGroupResponse -> TestTree testModifyCacheSubnetGroupResponse = res "ModifyCacheSubnetGroupResponse" "fixture/ModifyCacheSubnetGroupResponse" + elastiCache (Proxy :: Proxy ModifyCacheSubnetGroup) testCreateSnapshotResponse :: CreateSnapshotResponse -> TestTree testCreateSnapshotResponse = res "CreateSnapshotResponse" "fixture/CreateSnapshotResponse" + elastiCache (Proxy :: Proxy CreateSnapshot) testDescribeCacheSecurityGroupsResponse :: DescribeCacheSecurityGroupsResponse -> TestTree testDescribeCacheSecurityGroupsResponse = res "DescribeCacheSecurityGroupsResponse" "fixture/DescribeCacheSecurityGroupsResponse" + elastiCache (Proxy :: Proxy DescribeCacheSecurityGroups) testDeleteCacheParameterGroupResponse :: DeleteCacheParameterGroupResponse -> TestTree testDeleteCacheParameterGroupResponse = res "DeleteCacheParameterGroupResponse" "fixture/DeleteCacheParameterGroupResponse" + elastiCache (Proxy :: Proxy DeleteCacheParameterGroup) testDescribeReservedCacheNodesResponse :: DescribeReservedCacheNodesResponse -> TestTree testDescribeReservedCacheNodesResponse = res "DescribeReservedCacheNodesResponse" "fixture/DescribeReservedCacheNodesResponse" + elastiCache (Proxy :: Proxy DescribeReservedCacheNodes) testDescribeCacheEngineVersionsResponse :: DescribeCacheEngineVersionsResponse -> TestTree testDescribeCacheEngineVersionsResponse = res "DescribeCacheEngineVersionsResponse" "fixture/DescribeCacheEngineVersionsResponse" + elastiCache (Proxy :: Proxy DescribeCacheEngineVersions) testModifyCacheClusterResponse :: ModifyCacheClusterResponse -> TestTree testModifyCacheClusterResponse = res "ModifyCacheClusterResponse" "fixture/ModifyCacheClusterResponse" + elastiCache (Proxy :: Proxy ModifyCacheCluster) testCreateCacheParameterGroupResponse :: CreateCacheParameterGroupResponse -> TestTree testCreateCacheParameterGroupResponse = res "CreateCacheParameterGroupResponse" "fixture/CreateCacheParameterGroupResponse" + elastiCache (Proxy :: Proxy CreateCacheParameterGroup) testDeleteCacheSubnetGroupResponse :: DeleteCacheSubnetGroupResponse -> TestTree testDeleteCacheSubnetGroupResponse = res "DeleteCacheSubnetGroupResponse" "fixture/DeleteCacheSubnetGroupResponse" + elastiCache (Proxy :: Proxy DeleteCacheSubnetGroup)