module Network.AWS.Inspector.Types
(
inspector
, _AccessDeniedException
, _NoSuchEntityException
, _OperationInProgressException
, _InvalidCrossAccountRoleException
, _InvalidInputException
, _InternalException
, Agent
, agent
, aTelemetry
, aAutoScalingGroup
, aAgentHealthCode
, aAssessmentARN
, aAgentId
, aAccountId
, aAgentHealthDetails
, aAgentHealth
, AgentPreview
, agentPreview
, apAutoScalingGroup
, apAgentId
, AgentsFilter
, agentsFilter
, afAgentHealthList
, Application
, application
, aApplicationARN
, aResourceGroupARN
, aApplicationName
, ApplicationsFilter
, applicationsFilter
, afApplicationNamePatterns
, Assessment
, assessment
, assDataCollected
, assApplicationARN
, assStartTime
, assAssessmentARN
, assUserAttributesForFindings
, assFailureMessage
, assAssessmentState
, assEndTime
, assDurationInSeconds
, assAssessmentName
, AssessmentsFilter
, assessmentsFilter
, afDataCollected
, afAssessmentStates
, afStartTimeRange
, afAssessmentNamePatterns
, afEndTimeRange
, afDurationRange
, Attribute
, attribute
, aValue
, aKey
, DurationRange
, durationRange
, drMaximum
, drMinimum
, Finding
, finding
, fAutoScalingGroup
, fFinding
, fSeverity
, fUserAttributes
, fRuleName
, fAgentId
, fRunARN
, fAttributes
, fRulesPackageARN
, fFindingARN
, fDescription
, fRecommendation
, FindingsFilter
, findingsFilter
, ffRuleNames
, ffUserAttributes
, ffRulesPackageARNs
, ffAttributes
, ffSeverities
, LocalizedText
, localizedText
, ltKey
, ltParameters
, LocalizedTextKey
, localizedTextKey
, ltkFacility
, ltkId
, MessageTypeTelemetry
, messageTypeTelemetry
, mttDataSize
, mttMessageType
, mttCount
, Parameter
, parameter
, pValue
, pName
, ResourceGroup
, resourceGroup
, rgResourceGroupTags
, rgResourceGroupARN
, RulesPackage
, rulesPackage
, rpVersion
, rpRulesPackageARN
, rpRulesPackageName
, rpDescription
, rpProvider
, Run
, run
, runCreationTime
, runRulesPackages
, runAssessmentARN
, runRunState
, runRunName
, runCompletionTime
, runRunARN
, RunsFilter
, runsFilter
, rfCreationTime
, rfRulesPackages
, rfRunStates
, rfRunNamePatterns
, rfCompletionTime
, Tag
, tag
, tagValue
, tagKey
, Telemetry
, telemetry
, tStatus
, tMessageTypeTelemetries
, TimestampRange
, timestampRange
, trMaximum
, trMinimum
) where
import Network.AWS.Inspector.Types.Product
import Network.AWS.Inspector.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
inspector :: Service
inspector =
Service
{ _svcAbbrev = "Inspector"
, _svcSigner = v4
, _svcPrefix = "inspector"
, _svcVersion = "2015-08-18"
, _svcEndpoint = defaultEndpoint inspector
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError
, _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 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError
_AccessDeniedException = _ServiceError . hasCode "AccessDeniedException"
_NoSuchEntityException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchEntityException = _ServiceError . hasCode "NoSuchEntityException"
_OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationInProgressException =
_ServiceError . hasCode "OperationInProgressException"
_InvalidCrossAccountRoleException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCrossAccountRoleException =
_ServiceError . hasCode "InvalidCrossAccountRoleException"
_InvalidInputException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInputException = _ServiceError . hasCode "InvalidInputException"
_InternalException :: AsError a => Getting (First ServiceError) a ServiceError
_InternalException = _ServiceError . hasCode "InternalException"