module Network.AWS.CloudWatchLogs.Types
(
CloudWatchLogs
, _InvalidParameterException
, _InvalidSequenceTokenException
, _ResourceAlreadyExistsException
, _OperationAbortedException
, _DataAlreadyAcceptedException
, _ServiceUnavailableException
, _ResourceNotFoundException
, _LimitExceededException
, OrderBy (..)
, Destination
, destination
, dTargetARN
, dCreationTime
, dArn
, dAccessPolicy
, dDestinationName
, dRoleARN
, FilteredLogEvent
, filteredLogEvent
, fleIngestionTime
, fleLogStreamName
, fleMessage
, fleTimestamp
, fleEventId
, InputLogEvent
, inputLogEvent
, ileTimestamp
, ileMessage
, LogGroup
, logGroup
, lgCreationTime
, lgMetricFilterCount
, lgArn
, lgLogGroupName
, lgRetentionInDays
, lgStoredBytes
, LogStream
, logStream
, lsCreationTime
, lsUploadSequenceToken
, lsArn
, lsFirstEventTimestamp
, lsLogStreamName
, lsStoredBytes
, lsLastIngestionTime
, lsLastEventTimestamp
, MetricFilter
, metricFilter
, mfCreationTime
, mfFilterName
, mfFilterPattern
, mfMetricTransformations
, MetricFilterMatchRecord
, metricFilterMatchRecord
, mfmrExtractedValues
, mfmrEventMessage
, mfmrEventNumber
, MetricTransformation
, metricTransformation
, mtMetricName
, mtMetricNamespace
, mtMetricValue
, OutputLogEvent
, outputLogEvent
, oleIngestionTime
, oleMessage
, oleTimestamp
, RejectedLogEventsInfo
, rejectedLogEventsInfo
, rleiTooOldLogEventEndIndex
, rleiTooNewLogEventStartIndex
, rleiExpiredLogEventEndIndex
, SearchedLogStream
, searchedLogStream
, slsLogStreamName
, slsSearchedCompletely
, SubscriptionFilter
, subscriptionFilter
, sfCreationTime
, sfFilterName
, sfDestinationARN
, sfLogGroupName
, sfFilterPattern
, sfRoleARN
) where
import Network.AWS.CloudWatchLogs.Types.Product
import Network.AWS.CloudWatchLogs.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
data CloudWatchLogs
instance AWSService CloudWatchLogs where
type Sg CloudWatchLogs = V4
service = const svc
where
svc =
Service
{ _svcAbbrev = "CloudWatchLogs"
, _svcPrefix = "logs"
, _svcVersion = "2014-03-28"
, _svcEndpoint = defaultEndpoint svc
, _svcTimeout = Just 70
, _svcStatus = statusSuccess
, _svcError = parseJSONError
, _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
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
_ServiceError . hasCode "InvalidParameterException"
_InvalidSequenceTokenException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSequenceTokenException =
_ServiceError . hasCode "InvalidSequenceTokenException"
_ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsException =
_ServiceError . hasCode "ResourceAlreadyExistsException"
_OperationAbortedException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationAbortedException =
_ServiceError . hasCode "OperationAbortedException"
_DataAlreadyAcceptedException :: AsError a => Getting (First ServiceError) a ServiceError
_DataAlreadyAcceptedException =
_ServiceError . hasCode "DataAlreadyAcceptedException"
_ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError
_ServiceUnavailableException =
_ServiceError . hasCode "ServiceUnavailableException"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_ServiceError . hasCode "ResourceNotFoundException"
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException = _ServiceError . hasCode "LimitExceededException"