module Network.AWS.Config.Types
(
Config
, _ValidationException
, _InvalidTimeRangeException
, _InvalidRecordingGroupException
, _InvalidSNSTopicARNException
, _InvalidRoleException
, _LastDeliveryChannelDeleteFailedException
, _InvalidLimitException
, _InvalidDeliveryChannelNameException
, _NoSuchDeliveryChannelException
, _ResourceNotDiscoveredException
, _InvalidNextTokenException
, _NoSuchBucketException
, _NoAvailableConfigurationRecorderException
, _NoAvailableDeliveryChannelException
, _NoRunningConfigurationRecorderException
, _MaxNumberOfConfigurationRecordersExceededException
, _InvalidConfigurationRecorderNameException
, _InsufficientDeliveryPolicyException
, _MaxNumberOfDeliveryChannelsExceededException
, _NoSuchConfigurationRecorderException
, _InvalidS3KeyPrefixException
, ChronologicalOrder (..)
, ConfigurationItemStatus (..)
, DeliveryStatus (..)
, RecorderStatus (..)
, ResourceType (..)
, ConfigExportDeliveryInfo
, configExportDeliveryInfo
, cediLastErrorCode
, cediLastAttemptTime
, cediLastSuccessfulTime
, cediLastStatus
, cediLastErrorMessage
, ConfigStreamDeliveryInfo
, configStreamDeliveryInfo
, csdiLastErrorCode
, csdiLastStatusChangeTime
, csdiLastStatus
, csdiLastErrorMessage
, ConfigurationItem
, configurationItem
, ciResourceId
, ciConfigurationStateId
, ciResourceType
, ciArn
, ciResourceCreationTime
, ciConfigurationItemStatus
, ciAccountId
, ciConfigurationItemCaptureTime
, ciAvailabilityZone
, ciRelationships
, ciVersion
, ciRelatedEvents
, ciConfiguration
, ciConfigurationItemMD5Hash
, ciTags
, ConfigurationRecorder
, configurationRecorder
, crName
, crRecordingGroup
, crRoleARN
, ConfigurationRecorderStatus
, configurationRecorderStatus
, crsLastErrorCode
, crsLastStopTime
, crsLastStatusChangeTime
, crsRecording
, crsLastStatus
, crsLastErrorMessage
, crsName
, crsLastStartTime
, DeliveryChannel
, deliveryChannel
, dcS3KeyPrefix
, dcSnsTopicARN
, dcName
, dcS3BucketName
, DeliveryChannelStatus
, deliveryChannelStatus
, dcsConfigStreamDeliveryInfo
, dcsConfigSnapshotDeliveryInfo
, dcsConfigHistoryDeliveryInfo
, dcsName
, RecordingGroup
, recordingGroup
, rgAllSupported
, rgResourceTypes
, Relationship
, relationship
, rResourceId
, rResourceType
, rRelationshipName
) where
import Network.AWS.Config.Types.Product
import Network.AWS.Config.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
data Config
instance AWSService Config where
type Sg Config = V4
service = const svc
where
svc =
Service
{ _svcAbbrev = "Config"
, _svcPrefix = "config"
, _svcVersion = "2014-11-12"
, _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
_ValidationException :: AsError a => Getting (First ServiceError) a ServiceError
_ValidationException = _ServiceError . hasCode "ValidationException"
_InvalidTimeRangeException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidTimeRangeException =
_ServiceError . hasCode "InvalidTimeRangeException"
_InvalidRecordingGroupException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRecordingGroupException =
_ServiceError . hasCode "InvalidRecordingGroupException"
_InvalidSNSTopicARNException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidSNSTopicARNException =
_ServiceError . hasCode "InvalidSNSTopicARNException"
_InvalidRoleException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRoleException = _ServiceError . hasCode "InvalidRoleException"
_LastDeliveryChannelDeleteFailedException :: AsError a => Getting (First ServiceError) a ServiceError
_LastDeliveryChannelDeleteFailedException =
_ServiceError . hasCode "LastDeliveryChannelDeleteFailedException"
_InvalidLimitException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidLimitException = _ServiceError . hasCode "InvalidLimitException"
_InvalidDeliveryChannelNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDeliveryChannelNameException =
_ServiceError . hasCode "InvalidDeliveryChannelNameException"
_NoSuchDeliveryChannelException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchDeliveryChannelException =
_ServiceError . hasCode "NoSuchDeliveryChannelException"
_ResourceNotDiscoveredException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotDiscoveredException =
_ServiceError . hasCode "ResourceNotDiscoveredException"
_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNextTokenException =
_ServiceError . hasCode "InvalidNextTokenException"
_NoSuchBucketException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchBucketException = _ServiceError . hasCode "NoSuchBucketException"
_NoAvailableConfigurationRecorderException :: AsError a => Getting (First ServiceError) a ServiceError
_NoAvailableConfigurationRecorderException =
_ServiceError . hasCode "NoAvailableConfigurationRecorderException"
_NoAvailableDeliveryChannelException :: AsError a => Getting (First ServiceError) a ServiceError
_NoAvailableDeliveryChannelException =
_ServiceError . hasCode "NoAvailableDeliveryChannelException"
_NoRunningConfigurationRecorderException :: AsError a => Getting (First ServiceError) a ServiceError
_NoRunningConfigurationRecorderException =
_ServiceError . hasCode "NoRunningConfigurationRecorderException"
_MaxNumberOfConfigurationRecordersExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_MaxNumberOfConfigurationRecordersExceededException =
_ServiceError .
hasCode "MaxNumberOfConfigurationRecordersExceededException"
_InvalidConfigurationRecorderNameException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidConfigurationRecorderNameException =
_ServiceError . hasCode "InvalidConfigurationRecorderNameException"
_InsufficientDeliveryPolicyException :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientDeliveryPolicyException =
_ServiceError . hasCode "InsufficientDeliveryPolicyException"
_MaxNumberOfDeliveryChannelsExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_MaxNumberOfDeliveryChannelsExceededException =
_ServiceError . hasCode "MaxNumberOfDeliveryChannelsExceededException"
_NoSuchConfigurationRecorderException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchConfigurationRecorderException =
_ServiceError . hasCode "NoSuchConfigurationRecorderException"
_InvalidS3KeyPrefixException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidS3KeyPrefixException =
_ServiceError . hasCode "InvalidS3KeyPrefixException"