module Network.AWS.CloudSearch.Types
(
cloudSearch
, _BaseException
, _DisabledOperationException
, _InternalException
, _InvalidTypeException
, _ResourceNotFoundException
, _LimitExceededException
, AlgorithmicStemming (..)
, AnalysisSchemeLanguage (..)
, IndexFieldType (..)
, OptionState (..)
, PartitionInstanceType (..)
, SuggesterFuzzyMatching (..)
, AccessPoliciesStatus
, accessPoliciesStatus
, apsOptions
, apsStatus
, AnalysisOptions
, analysisOptions
, aoAlgorithmicStemming
, aoStopwords
, aoStemmingDictionary
, aoSynonyms
, aoJapaneseTokenizationDictionary
, AnalysisScheme
, analysisScheme
, asAnalysisOptions
, asAnalysisSchemeName
, asAnalysisSchemeLanguage
, AnalysisSchemeStatus
, analysisSchemeStatus
, assOptions
, assStatus
, AvailabilityOptionsStatus
, availabilityOptionsStatus
, aosOptions
, aosStatus
, DateArrayOptions
, dateArrayOptions
, daosSourceFields
, daosReturnEnabled
, daosFacetEnabled
, daosSearchEnabled
, daosDefaultValue
, DateOptions
, dateOptions
, doSourceField
, doReturnEnabled
, doFacetEnabled
, doSearchEnabled
, doSortEnabled
, doDefaultValue
, DocumentSuggesterOptions
, documentSuggesterOptions
, dsoSortExpression
, dsoFuzzyMatching
, dsoSourceField
, DomainStatus
, domainStatus
, dsSearchInstanceCount
, dsSearchInstanceType
, dsARN
, dsDocService
, dsCreated
, dsSearchService
, dsLimits
, dsSearchPartitionCount
, dsDeleted
, dsProcessing
, dsDomainId
, dsDomainName
, dsRequiresIndexDocuments
, DoubleArrayOptions
, doubleArrayOptions
, daoSourceFields
, daoReturnEnabled
, daoFacetEnabled
, daoSearchEnabled
, daoDefaultValue
, DoubleOptions
, doubleOptions
, dSourceField
, dReturnEnabled
, dFacetEnabled
, dSearchEnabled
, dSortEnabled
, dDefaultValue
, Expression
, expression
, eExpressionName
, eExpressionValue
, ExpressionStatus
, expressionStatus
, esOptions
, esStatus
, IndexField
, indexField
, ifDateOptions
, ifTextArrayOptions
, ifDoubleArrayOptions
, ifDoubleOptions
, ifTextOptions
, ifLatLonOptions
, ifIntArrayOptions
, ifLiteralArrayOptions
, ifDateArrayOptions
, ifLiteralOptions
, ifIntOptions
, ifIndexFieldName
, ifIndexFieldType
, IndexFieldStatus
, indexFieldStatus
, ifsOptions
, ifsStatus
, IntArrayOptions
, intArrayOptions
, iaoSourceFields
, iaoReturnEnabled
, iaoFacetEnabled
, iaoSearchEnabled
, iaoDefaultValue
, IntOptions
, intOptions
, ioSourceField
, ioReturnEnabled
, ioFacetEnabled
, ioSearchEnabled
, ioSortEnabled
, ioDefaultValue
, LatLonOptions
, latLonOptions
, lloSourceField
, lloReturnEnabled
, lloFacetEnabled
, lloSearchEnabled
, lloSortEnabled
, lloDefaultValue
, Limits
, limits
, lMaximumReplicationCount
, lMaximumPartitionCount
, LiteralArrayOptions
, literalArrayOptions
, laoSourceFields
, laoReturnEnabled
, laoFacetEnabled
, laoSearchEnabled
, laoDefaultValue
, LiteralOptions
, literalOptions
, loSourceField
, loReturnEnabled
, loFacetEnabled
, loSearchEnabled
, loSortEnabled
, loDefaultValue
, OptionStatus
, optionStatus
, osPendingDeletion
, osUpdateVersion
, osCreationDate
, osUpdateDate
, osState
, ScalingParameters
, scalingParameters
, spDesiredInstanceType
, spDesiredReplicationCount
, spDesiredPartitionCount
, ScalingParametersStatus
, scalingParametersStatus
, spsOptions
, spsStatus
, ServiceEndpoint
, serviceEndpoint
, seEndpoint
, Suggester
, suggester
, sSuggesterName
, sDocumentSuggesterOptions
, SuggesterStatus
, suggesterStatus
, ssOptions
, ssStatus
, TextArrayOptions
, textArrayOptions
, taoSourceFields
, taoReturnEnabled
, taoAnalysisScheme
, taoHighlightEnabled
, taoDefaultValue
, TextOptions
, textOptions
, toSourceField
, toReturnEnabled
, toAnalysisScheme
, toHighlightEnabled
, toSortEnabled
, toDefaultValue
) where
import Network.AWS.CloudSearch.Types.Product
import Network.AWS.CloudSearch.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
cloudSearch :: Service
cloudSearch =
Service
{ _svcAbbrev = "CloudSearch"
, _svcSigner = v4
, _svcPrefix = "cloudsearch"
, _svcVersion = "2013-01-01"
, _svcEndpoint = defaultEndpoint cloudSearch
, _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 "BandwidthLimitExceeded" . hasStatus 509) e =
Just "request_limit_exceeded"
| 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
_BaseException :: AsError a => Getting (First ServiceError) a ServiceError
_BaseException = _ServiceError . hasCode "BaseException"
_DisabledOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_DisabledOperationException =
_ServiceError . hasStatus 409 . hasCode "DisabledAction"
_InternalException :: AsError a => Getting (First ServiceError) a ServiceError
_InternalException =
_ServiceError . hasStatus 500 . hasCode "InternalException"
_InvalidTypeException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTypeException = _ServiceError . hasStatus 409 . hasCode "InvalidType"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_ServiceError . hasStatus 409 . hasCode "ResourceNotFound"
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException =
_ServiceError . hasStatus 409 . hasCode "LimitExceeded"