{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.ElastiCache.Types
(
elastiCache
, _CacheSubnetGroupInUse
, _ReservedCacheNodeAlreadyExistsFault
, _CacheSecurityGroupNotFoundFault
, _CacheSubnetGroupAlreadyExistsFault
, _NodeGroupsPerReplicationGroupQuotaExceededFault
, _CacheSubnetGroupQuotaExceededFault
, _AuthorizationAlreadyExistsFault
, _ReservedCacheNodeQuotaExceededFault
, _ReservedCacheNodesOfferingNotFoundFault
, _ReplicationGroupNotFoundFault
, _InvalidSubnet
, _TagQuotaPerResourceExceeded
, _SnapshotNotFoundFault
, _InsufficientCacheClusterCapacityFault
, _InvalidSnapshotStateFault
, _SnapshotAlreadyExistsFault
, _TagNotFoundFault
, _SnapshotQuotaExceededFault
, _NodeQuotaForClusterExceededFault
, _APICallRateForCustomerExceededFault
, _NodeGroupNotFoundFault
, _CacheParameterGroupAlreadyExistsFault
, _ReservedCacheNodeNotFoundFault
, _CacheSubnetGroupNotFoundFault
, _SnapshotFeatureNotSupportedFault
, _InvalidParameterValueException
, _TestFailoverNotAvailableFault
, _InvalidReplicationGroupStateFault
, _ReplicationGroupAlreadyExistsFault
, _InvalidVPCNetworkStateFault
, _SubnetInUse
, _CacheClusterNotFoundFault
, _ClusterQuotaForCustomerExceededFault
, _AuthorizationNotFoundFault
, _InvalidCacheClusterStateFault
, _CacheSecurityGroupQuotaExceededFault
, _CacheClusterAlreadyExistsFault
, _CacheParameterGroupQuotaExceededFault
, _NodeQuotaForCustomerExceededFault
, _CacheSubnetQuotaExceededFault
, _CacheParameterGroupNotFoundFault
, _InvalidARNFault
, _InvalidCacheParameterGroupStateFault
, _InvalidParameterCombinationException
, _InvalidCacheSecurityGroupStateFault
, _CacheSecurityGroupAlreadyExistsFault
, AZMode (..)
, AutomaticFailoverStatus (..)
, ChangeType (..)
, PendingAutomaticFailoverStatus (..)
, SourceType (..)
, AvailabilityZone
, availabilityZone
, azName
, CacheCluster
, cacheCluster
, ccEngineVersion
, ccCacheNodeType
, ccCacheNodes
, ccCacheClusterCreateTime
, ccAtRestEncryptionEnabled
, ccAutoMinorVersionUpgrade
, ccSecurityGroups
, ccNotificationConfiguration
, ccTransitEncryptionEnabled
, ccSnapshotWindow
, ccCacheClusterId
, ccConfigurationEndpoint
, ccEngine
, ccCacheSecurityGroups
, ccAuthTokenEnabled
, ccClientDownloadLandingPage
, ccPreferredMaintenanceWindow
, ccCacheSubnetGroupName
, ccPreferredAvailabilityZone
, ccCacheParameterGroup
, ccCacheClusterStatus
, ccSnapshotRetentionLimit
, ccReplicationGroupId
, ccPendingModifiedValues
, ccNumCacheNodes
, CacheEngineVersion
, cacheEngineVersion
, cevEngineVersion
, cevCacheParameterGroupFamily
, cevCacheEngineDescription
, cevEngine
, cevCacheEngineVersionDescription
, CacheNode
, cacheNode
, cnSourceCacheNodeId
, cnParameterGroupStatus
, cnCacheNodeCreateTime
, cnCustomerAvailabilityZone
, cnCacheNodeId
, cnCacheNodeStatus
, cnEndpoint
, CacheNodeTypeSpecificParameter
, cacheNodeTypeSpecificParameter
, cntspCacheNodeTypeSpecificValues
, cntspMinimumEngineVersion
, cntspSource
, cntspIsModifiable
, cntspDataType
, cntspAllowedValues
, cntspParameterName
, cntspDescription
, cntspChangeType
, CacheNodeTypeSpecificValue
, cacheNodeTypeSpecificValue
, cntsvCacheNodeType
, cntsvValue
, CacheParameterGroup
, cacheParameterGroup
, cpgCacheParameterGroupFamily
, cpgCacheParameterGroupName
, cpgDescription
, CacheParameterGroupNameMessage
, cacheParameterGroupNameMessage
, cpgnmCacheParameterGroupName
, CacheParameterGroupStatus
, cacheParameterGroupStatus
, cpgsCacheParameterGroupName
, cpgsCacheNodeIdsToReboot
, cpgsParameterApplyStatus
, CacheSecurityGroup
, cacheSecurityGroup
, csgCacheSecurityGroupName
, csgOwnerId
, csgEC2SecurityGroups
, csgDescription
, CacheSecurityGroupMembership
, cacheSecurityGroupMembership
, csgmStatus
, csgmCacheSecurityGroupName
, CacheSubnetGroup
, cacheSubnetGroup
, csgVPCId
, csgSubnets
, csgCacheSubnetGroupName
, csgCacheSubnetGroupDescription
, EC2SecurityGroup
, ec2SecurityGroup
, esgStatus
, esgEC2SecurityGroupOwnerId
, esgEC2SecurityGroupName
, Endpoint
, endpoint
, eAddress
, ePort
, EngineDefaults
, engineDefaults
, edCacheParameterGroupFamily
, edCacheNodeTypeSpecificParameters
, edMarker
, edParameters
, Event
, event
, eSourceType
, eSourceIdentifier
, eDate
, eMessage
, NodeGroup
, nodeGroup
, ngStatus
, ngPrimaryEndpoint
, ngSlots
, ngNodeGroupMembers
, ngNodeGroupId
, NodeGroupConfiguration
, nodeGroupConfiguration
, ngcSlots
, ngcReplicaCount
, ngcPrimaryAvailabilityZone
, ngcReplicaAvailabilityZones
, NodeGroupMember
, nodeGroupMember
, ngmCacheClusterId
, ngmCacheNodeId
, ngmPreferredAvailabilityZone
, ngmCurrentRole
, ngmReadEndpoint
, NodeSnapshot
, nodeSnapshot
, nsNodeGroupConfiguration
, nsCacheNodeCreateTime
, nsCacheClusterId
, nsCacheNodeId
, nsNodeGroupId
, nsSnapshotCreateTime
, nsCacheSize
, NotificationConfiguration
, notificationConfiguration
, ncTopicStatus
, ncTopicARN
, Parameter
, parameter
, pParameterValue
, pMinimumEngineVersion
, pSource
, pIsModifiable
, pDataType
, pAllowedValues
, pParameterName
, pDescription
, pChangeType
, ParameterNameValue
, parameterNameValue
, pnvParameterValue
, pnvParameterName
, PendingModifiedValues
, pendingModifiedValues
, pmvEngineVersion
, pmvCacheNodeType
, pmvCacheNodeIdsToRemove
, pmvNumCacheNodes
, RecurringCharge
, recurringCharge
, rcRecurringChargeFrequency
, rcRecurringChargeAmount
, ReplicationGroup
, replicationGroup
, rgStatus
, rgCacheNodeType
, rgNodeGroups
, rgSnapshottingClusterId
, rgClusterEnabled
, rgAtRestEncryptionEnabled
, rgTransitEncryptionEnabled
, rgSnapshotWindow
, rgConfigurationEndpoint
, rgAuthTokenEnabled
, rgMemberClusters
, rgSnapshotRetentionLimit
, rgDescription
, rgReplicationGroupId
, rgPendingModifiedValues
, rgAutomaticFailover
, ReplicationGroupPendingModifiedValues
, replicationGroupPendingModifiedValues
, rgpmvResharding
, rgpmvPrimaryClusterId
, rgpmvAutomaticFailoverStatus
, ReservedCacheNode
, reservedCacheNode
, rcnCacheNodeType
, rcnState
, rcnStartTime
, rcnProductDescription
, rcnCacheNodeCount
, rcnReservedCacheNodeId
, rcnRecurringCharges
, rcnOfferingType
, rcnUsagePrice
, rcnFixedPrice
, rcnDuration
, rcnReservedCacheNodesOfferingId
, ReservedCacheNodesOffering
, reservedCacheNodesOffering
, rcnoCacheNodeType
, rcnoProductDescription
, rcnoRecurringCharges
, rcnoOfferingType
, rcnoUsagePrice
, rcnoFixedPrice
, rcnoDuration
, rcnoReservedCacheNodesOfferingId
, ReshardingConfiguration
, reshardingConfiguration
, rcPreferredAvailabilityZones
, ReshardingStatus
, reshardingStatus
, rsSlotMigration
, SecurityGroupMembership
, securityGroupMembership
, sgmStatus
, sgmSecurityGroupId
, SlotMigration
, slotMigration
, smProgressPercentage
, Snapshot
, snapshot
, sEngineVersion
, sCacheNodeType
, sCacheClusterCreateTime
, sAutoMinorVersionUpgrade
, sCacheParameterGroupName
, sReplicationGroupDescription
, sVPCId
, sSnapshotStatus
, sSnapshotWindow
, sCacheClusterId
, sEngine
, sPreferredMaintenanceWindow
, sTopicARN
, sNodeSnapshots
, sCacheSubnetGroupName
, sPreferredAvailabilityZone
, sNumNodeGroups
, sSnapshotRetentionLimit
, sSnapshotName
, sReplicationGroupId
, sNumCacheNodes
, sPort
, sAutomaticFailover
, sSnapshotSource
, Subnet
, subnet
, sSubnetIdentifier
, sSubnetAvailabilityZone
, Tag
, tag
, tagValue
, tagKey
, TagListMessage
, tagListMessage
, tlmTagList
) where
import Network.AWS.ElastiCache.Types.Product
import Network.AWS.ElastiCache.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
elastiCache :: Service
elastiCache =
Service
{ _svcAbbrev = "ElastiCache"
, _svcSigner = v4
, _svcPrefix = "elasticache"
, _svcVersion = "2015-02-02"
, _svcEndpoint = defaultEndpoint elastiCache
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseXMLError "ElastiCache"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasCode "RequestThrottledException" . hasStatus 400) e =
Just "request_throttled_exception"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_CacheSubnetGroupInUse :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupInUse =
_MatchServiceError elastiCache "CacheSubnetGroupInUse" . hasStatus 400
_ReservedCacheNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeAlreadyExistsFault =
_MatchServiceError elastiCache "ReservedCacheNodeAlreadyExists" .
hasStatus 404
_CacheSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupNotFoundFault =
_MatchServiceError elastiCache "CacheSecurityGroupNotFound" . hasStatus 404
_CacheSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupAlreadyExistsFault =
_MatchServiceError elastiCache "CacheSubnetGroupAlreadyExists" . hasStatus 400
_NodeGroupsPerReplicationGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeGroupsPerReplicationGroupQuotaExceededFault =
_MatchServiceError elastiCache "NodeGroupsPerReplicationGroupQuotaExceeded" .
hasStatus 400
_CacheSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupQuotaExceededFault =
_MatchServiceError elastiCache "CacheSubnetGroupQuotaExceeded" . hasStatus 400
_AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_AuthorizationAlreadyExistsFault =
_MatchServiceError elastiCache "AuthorizationAlreadyExists" . hasStatus 400
_ReservedCacheNodeQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeQuotaExceededFault =
_MatchServiceError elastiCache "ReservedCacheNodeQuotaExceeded" .
hasStatus 400
_ReservedCacheNodesOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodesOfferingNotFoundFault =
_MatchServiceError elastiCache "ReservedCacheNodesOfferingNotFound" .
hasStatus 404
_ReplicationGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationGroupNotFoundFault =
_MatchServiceError elastiCache "ReplicationGroupNotFoundFault" . hasStatus 404
_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSubnet = _MatchServiceError elastiCache "InvalidSubnet" . hasStatus 400
_TagQuotaPerResourceExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_TagQuotaPerResourceExceeded =
_MatchServiceError elastiCache "TagQuotaPerResourceExceeded" . hasStatus 400
_SnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotNotFoundFault =
_MatchServiceError elastiCache "SnapshotNotFoundFault" . hasStatus 404
_InsufficientCacheClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientCacheClusterCapacityFault =
_MatchServiceError elastiCache "InsufficientCacheClusterCapacity" .
hasStatus 400
_InvalidSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSnapshotStateFault =
_MatchServiceError elastiCache "InvalidSnapshotState" . hasStatus 400
_SnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotAlreadyExistsFault =
_MatchServiceError elastiCache "SnapshotAlreadyExistsFault" . hasStatus 400
_TagNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_TagNotFoundFault = _MatchServiceError elastiCache "TagNotFound" . hasStatus 404
_SnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotQuotaExceededFault =
_MatchServiceError elastiCache "SnapshotQuotaExceededFault" . hasStatus 400
_NodeQuotaForClusterExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForClusterExceededFault =
_MatchServiceError elastiCache "NodeQuotaForClusterExceeded" . hasStatus 400
_APICallRateForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_APICallRateForCustomerExceededFault =
_MatchServiceError elastiCache "APICallRateForCustomerExceeded" .
hasStatus 400
_NodeGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeGroupNotFoundFault =
_MatchServiceError elastiCache "NodeGroupNotFoundFault" . hasStatus 404
_CacheParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupAlreadyExistsFault =
_MatchServiceError elastiCache "CacheParameterGroupAlreadyExists" .
hasStatus 400
_ReservedCacheNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeNotFoundFault =
_MatchServiceError elastiCache "ReservedCacheNodeNotFound" . hasStatus 404
_CacheSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupNotFoundFault =
_MatchServiceError elastiCache "CacheSubnetGroupNotFoundFault" . hasStatus 400
_SnapshotFeatureNotSupportedFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotFeatureNotSupportedFault =
_MatchServiceError elastiCache "SnapshotFeatureNotSupportedFault" .
hasStatus 400
_InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterValueException =
_MatchServiceError elastiCache "InvalidParameterValue" . hasStatus 400
_TestFailoverNotAvailableFault :: AsError a => Getting (First ServiceError) a ServiceError
_TestFailoverNotAvailableFault =
_MatchServiceError elastiCache "TestFailoverNotAvailableFault" . hasStatus 400
_InvalidReplicationGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidReplicationGroupStateFault =
_MatchServiceError elastiCache "InvalidReplicationGroupState" . hasStatus 400
_ReplicationGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationGroupAlreadyExistsFault =
_MatchServiceError elastiCache "ReplicationGroupAlreadyExists" . hasStatus 400
_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVPCNetworkStateFault =
_MatchServiceError elastiCache "InvalidVPCNetworkStateFault" . hasStatus 400
_SubnetInUse :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetInUse = _MatchServiceError elastiCache "SubnetInUse" . hasStatus 400
_CacheClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheClusterNotFoundFault =
_MatchServiceError elastiCache "CacheClusterNotFound" . hasStatus 404
_ClusterQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ClusterQuotaForCustomerExceededFault =
_MatchServiceError elastiCache "ClusterQuotaForCustomerExceeded" .
hasStatus 400
_AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_AuthorizationNotFoundFault =
_MatchServiceError elastiCache "AuthorizationNotFound" . hasStatus 404
_InvalidCacheClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheClusterStateFault =
_MatchServiceError elastiCache "InvalidCacheClusterState" . hasStatus 400
_CacheSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupQuotaExceededFault =
_MatchServiceError elastiCache "QuotaExceeded.CacheSecurityGroup" .
hasStatus 400
_CacheClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheClusterAlreadyExistsFault =
_MatchServiceError elastiCache "CacheClusterAlreadyExists" . hasStatus 400
_CacheParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupQuotaExceededFault =
_MatchServiceError elastiCache "CacheParameterGroupQuotaExceeded" .
hasStatus 400
_NodeQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForCustomerExceededFault =
_MatchServiceError elastiCache "NodeQuotaForCustomerExceeded" . hasStatus 400
_CacheSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetQuotaExceededFault =
_MatchServiceError elastiCache "CacheSubnetQuotaExceededFault" . hasStatus 400
_CacheParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupNotFoundFault =
_MatchServiceError elastiCache "CacheParameterGroupNotFound" . hasStatus 404
_InvalidARNFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidARNFault = _MatchServiceError elastiCache "InvalidARN" . hasStatus 400
_InvalidCacheParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheParameterGroupStateFault =
_MatchServiceError elastiCache "InvalidCacheParameterGroupState" .
hasStatus 400
_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterCombinationException =
_MatchServiceError elastiCache "InvalidParameterCombination" . hasStatus 400
_InvalidCacheSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheSecurityGroupStateFault =
_MatchServiceError elastiCache "InvalidCacheSecurityGroupState" .
hasStatus 400
_CacheSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupAlreadyExistsFault =
_MatchServiceError elastiCache "CacheSecurityGroupAlreadyExists" .
hasStatus 400