{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.DAX.Types
(
dax
, _SubnetQuotaExceededFault
, _ParameterGroupNotFoundFault
, _InvalidParameterGroupStateFault
, _SubnetGroupInUseFault
, _ParameterGroupAlreadyExistsFault
, _InvalidSubnet
, _TagQuotaPerResourceExceeded
, _ClusterNotFoundFault
, _TagNotFoundFault
, _NodeQuotaForClusterExceededFault
, _InvalidClusterStateFault
, _InsufficientClusterCapacityFault
, _NodeNotFoundFault
, _ParameterGroupQuotaExceededFault
, _InvalidParameterValueException
, _InvalidVPCNetworkStateFault
, _SubnetInUse
, _ClusterQuotaForCustomerExceededFault
, _SubnetGroupNotFoundFault
, _SubnetGroupAlreadyExistsFault
, _NodeQuotaForCustomerExceededFault
, _SubnetGroupQuotaExceededFault
, _ClusterAlreadyExistsFault
, _InvalidARNFault
, _InvalidParameterCombinationException
, ChangeType (..)
, IsModifiable (..)
, ParameterType (..)
, SourceType (..)
, Cluster
, cluster
, cStatus
, cIAMRoleARN
, cClusterARN
, cActiveNodes
, cSecurityGroups
, cNotificationConfiguration
, cNodeIdsToRemove
, cTotalNodes
, cPreferredMaintenanceWindow
, cSubnetGroup
, cClusterName
, cNodeType
, cNodes
, cClusterDiscoveryEndpoint
, cDescription
, cParameterGroup
, Endpoint
, endpoint
, eAddress
, ePort
, Event
, event
, eSourceName
, eSourceType
, eDate
, eMessage
, Node
, node
, nNodeStatus
, nParameterGroupStatus
, nAvailabilityZone
, nNodeId
, nEndpoint
, nNodeCreateTime
, NodeTypeSpecificValue
, nodeTypeSpecificValue
, ntsvValue
, ntsvNodeType
, NotificationConfiguration
, notificationConfiguration
, ncTopicStatus
, ncTopicARN
, Parameter
, parameter
, pParameterValue
, pParameterType
, pSource
, pIsModifiable
, pDataType
, pNodeTypeSpecificValues
, pAllowedValues
, pParameterName
, pDescription
, pChangeType
, ParameterGroup
, parameterGroup
, pgDescription
, pgParameterGroupName
, ParameterGroupStatus
, parameterGroupStatus
, pgsNodeIdsToReboot
, pgsParameterApplyStatus
, pgsParameterGroupName
, ParameterNameValue
, parameterNameValue
, pnvParameterValue
, pnvParameterName
, SecurityGroupMembership
, securityGroupMembership
, sgmStatus
, sgmSecurityGroupIdentifier
, Subnet
, subnet
, sSubnetIdentifier
, sSubnetAvailabilityZone
, SubnetGroup
, subnetGroup
, sgVPCId
, sgSubnets
, sgSubnetGroupName
, sgDescription
, Tag
, tag
, tagValue
, tagKey
) where
import Network.AWS.DAX.Types.Product
import Network.AWS.DAX.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
dax :: Service
dax =
Service
{ _svcAbbrev = "DAX"
, _svcSigner = v4
, _svcPrefix = "dax"
, _svcVersion = "2017-04-19"
, _svcEndpoint = defaultEndpoint dax
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "DAX"
, _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
_SubnetQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetQuotaExceededFault = _MatchServiceError dax "SubnetQuotaExceededFault"
_ParameterGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ParameterGroupNotFoundFault =
_MatchServiceError dax "ParameterGroupNotFoundFault"
_InvalidParameterGroupStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterGroupStateFault =
_MatchServiceError dax "InvalidParameterGroupStateFault"
_SubnetGroupInUseFault :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetGroupInUseFault = _MatchServiceError dax "SubnetGroupInUseFault"
_ParameterGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ParameterGroupAlreadyExistsFault =
_MatchServiceError dax "ParameterGroupAlreadyExistsFault"
_InvalidSubnet :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSubnet = _MatchServiceError dax "InvalidSubnet"
_TagQuotaPerResourceExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_TagQuotaPerResourceExceeded =
_MatchServiceError dax "TagQuotaPerResourceExceeded"
_ClusterNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_ClusterNotFoundFault = _MatchServiceError dax "ClusterNotFoundFault"
_TagNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_TagNotFoundFault = _MatchServiceError dax "TagNotFoundFault"
_NodeQuotaForClusterExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForClusterExceededFault =
_MatchServiceError dax "NodeQuotaForClusterExceededFault"
_InvalidClusterStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidClusterStateFault = _MatchServiceError dax "InvalidClusterStateFault"
_InsufficientClusterCapacityFault :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientClusterCapacityFault =
_MatchServiceError dax "InsufficientClusterCapacityFault"
_NodeNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeNotFoundFault = _MatchServiceError dax "NodeNotFoundFault"
_ParameterGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ParameterGroupQuotaExceededFault =
_MatchServiceError dax "ParameterGroupQuotaExceededFault"
_InvalidParameterValueException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterValueException =
_MatchServiceError dax "InvalidParameterValueException"
_InvalidVPCNetworkStateFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVPCNetworkStateFault =
_MatchServiceError dax "InvalidVPCNetworkStateFault"
_SubnetInUse :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetInUse = _MatchServiceError dax "SubnetInUse"
_ClusterQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_ClusterQuotaForCustomerExceededFault =
_MatchServiceError dax "ClusterQuotaForCustomerExceededFault"
_SubnetGroupNotFoundFault :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetGroupNotFoundFault = _MatchServiceError dax "SubnetGroupNotFoundFault"
_SubnetGroupAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetGroupAlreadyExistsFault =
_MatchServiceError dax "SubnetGroupAlreadyExistsFault"
_NodeQuotaForCustomerExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_NodeQuotaForCustomerExceededFault =
_MatchServiceError dax "NodeQuotaForCustomerExceededFault"
_SubnetGroupQuotaExceededFault :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetGroupQuotaExceededFault =
_MatchServiceError dax "SubnetGroupQuotaExceededFault"
_ClusterAlreadyExistsFault :: AsError a => Getting (First ServiceError) a ServiceError
_ClusterAlreadyExistsFault = _MatchServiceError dax "ClusterAlreadyExistsFault"
_InvalidARNFault :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidARNFault = _MatchServiceError dax "InvalidARNFault"
_InvalidParameterCombinationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterCombinationException =
_MatchServiceError dax "InvalidParameterCombinationException"