{-# 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
, _CacheParameterGroupAlreadyExistsFault
, _ReservedCacheNodeNotFoundFault
, _CacheSubnetGroupNotFoundFault
, _SnapshotFeatureNotSupportedFault
, _InvalidParameterValueException
, _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
, ccAutoMinorVersionUpgrade
, ccSecurityGroups
, ccNotificationConfiguration
, ccSnapshotWindow
, ccCacheClusterId
, ccConfigurationEndpoint
, ccEngine
, ccCacheSecurityGroups
, 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
, rgNodeGroups
, rgSnapshottingClusterId
, rgSnapshotWindow
, rgConfigurationEndpoint
, rgMemberClusters
, rgSnapshotRetentionLimit
, rgDescription
, rgReplicationGroupId
, rgPendingModifiedValues
, rgAutomaticFailover
, ReplicationGroupPendingModifiedValues
, replicationGroupPendingModifiedValues
, 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
, SecurityGroupMembership
, securityGroupMembership
, sgmStatus
, sgmSecurityGroupId
, 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 (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 (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 =
_ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupInUse"
_ReservedCacheNodeAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeAlreadyExistsFault =
_ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeAlreadyExists"
_CacheSecurityGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "CacheSecurityGroupNotFound"
_CacheSubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupAlreadyExists"
_NodeGroupsPerReplicationGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeGroupsPerReplicationGroupQuotaExceededFault =
_ServiceError .
hasStatus 400 . hasCode "NodeGroupsPerReplicationGroupQuotaExceeded"
_CacheSubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupQuotaExceeded"
_AuthorizationAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_AuthorizationAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "AuthorizationAlreadyExists"
_ReservedCacheNodeQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "ReservedCacheNodeQuotaExceeded"
_ReservedCacheNodesOfferingNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodesOfferingNotFoundFault =
_ServiceError .
hasStatus 404 . hasCode "ReservedCacheNodesOfferingNotFound"
_ReplicationGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationGroupNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "ReplicationGroupNotFoundFault"
_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSubnet = _ServiceError . hasStatus 400 . hasCode "InvalidSubnet"
_TagQuotaPerResourceExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_TagQuotaPerResourceExceeded =
_ServiceError . hasStatus 400 . hasCode "TagQuotaPerResourceExceeded"
_SnapshotNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "SnapshotNotFoundFault"
_InsufficientCacheClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientCacheClusterCapacityFault =
_ServiceError . hasStatus 400 . hasCode "InsufficientCacheClusterCapacity"
_InvalidSnapshotStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSnapshotStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidSnapshotState"
_SnapshotAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "SnapshotAlreadyExistsFault"
_TagNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_TagNotFoundFault = _ServiceError . hasStatus 404 . hasCode "TagNotFound"
_SnapshotQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "SnapshotQuotaExceededFault"
_NodeQuotaForClusterExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForClusterExceededFault =
_ServiceError . hasStatus 400 . hasCode "NodeQuotaForClusterExceeded"
_CacheParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "CacheParameterGroupAlreadyExists"
_ReservedCacheNodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReservedCacheNodeNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "ReservedCacheNodeNotFound"
_CacheSubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetGroupNotFoundFault =
_ServiceError . hasStatus 400 . hasCode "CacheSubnetGroupNotFoundFault"
_SnapshotFeatureNotSupportedFault :: AsError a => Getting (First ServiceError) a ServiceError
_SnapshotFeatureNotSupportedFault =
_ServiceError . hasStatus 400 . hasCode "SnapshotFeatureNotSupportedFault"
_InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterValueException =
_ServiceError . hasStatus 400 . hasCode "InvalidParameterValue"
_InvalidReplicationGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidReplicationGroupStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidReplicationGroupState"
_ReplicationGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ReplicationGroupAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "ReplicationGroupAlreadyExists"
_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVPCNetworkStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidVPCNetworkStateFault"
_SubnetInUse :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetInUse = _ServiceError . hasStatus 400 . hasCode "SubnetInUse"
_CacheClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheClusterNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "CacheClusterNotFound"
_ClusterQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ClusterQuotaForCustomerExceededFault =
_ServiceError . hasStatus 400 . hasCode "ClusterQuotaForCustomerExceeded"
_AuthorizationNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_AuthorizationNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "AuthorizationNotFound"
_InvalidCacheClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheClusterStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidCacheClusterState"
_CacheSecurityGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "QuotaExceeded.CacheSecurityGroup"
_CacheClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheClusterAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "CacheClusterAlreadyExists"
_CacheParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "CacheParameterGroupQuotaExceeded"
_NodeQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForCustomerExceededFault =
_ServiceError . hasStatus 400 . hasCode "NodeQuotaForCustomerExceeded"
_CacheSubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSubnetQuotaExceededFault =
_ServiceError . hasStatus 400 . hasCode "CacheSubnetQuotaExceededFault"
_CacheParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheParameterGroupNotFoundFault =
_ServiceError . hasStatus 404 . hasCode "CacheParameterGroupNotFound"
_InvalidARNFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidARNFault = _ServiceError . hasStatus 400 . hasCode "InvalidARN"
_InvalidCacheParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheParameterGroupStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidCacheParameterGroupState"
_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterCombinationException =
_ServiceError . hasStatus 400 . hasCode "InvalidParameterCombination"
_InvalidCacheSecurityGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCacheSecurityGroupStateFault =
_ServiceError . hasStatus 400 . hasCode "InvalidCacheSecurityGroupState"
_CacheSecurityGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_CacheSecurityGroupAlreadyExistsFault =
_ServiceError . hasStatus 400 . hasCode "CacheSecurityGroupAlreadyExists"