module Network.AWS.SSM.Types
(
ssm
, _UnsupportedPlatformType
, _AssociatedInstances
, _InvalidInstanceId
, _StatusUnchanged
, _InvalidNextToken
, _InvalidOutputFolder
, _InvalidCommandId
, _DuplicateInstanceId
, _InvalidDocument
, _InvalidFilterKey
, _InvalidInstanceInformationFilterValue
, _AssociationAlreadyExists
, _InvalidDocumentContent
, _AssociationLimitExceeded
, _AssociationDoesNotExist
, _InternalServerError
, _TooManyUpdates
, _MaxDocumentSizeExceeded
, _InvalidParameters
, _DocumentAlreadyExists
, _DocumentLimitExceeded
, AssociationFilterKey (..)
, AssociationStatusName (..)
, CommandFilterKey (..)
, CommandInvocationStatus (..)
, CommandPluginStatus (..)
, CommandStatus (..)
, DocumentFilterKey (..)
, DocumentParameterType (..)
, DocumentStatus (..)
, Fault (..)
, InstanceInformationFilterKey (..)
, PingStatus (..)
, PlatformType (..)
, Association
, association
, aInstanceId
, aName
, AssociationDescription
, associationDescription
, adInstanceId
, adStatus
, adDate
, adName
, adParameters
, AssociationFilter
, associationFilter
, afKey
, afValue
, AssociationStatus
, associationStatus
, asAdditionalInfo
, asDate
, asName
, asMessage
, Command
, command
, cStatus
, cExpiresAfter
, cOutputS3KeyPrefix
, cDocumentName
, cInstanceIds
, cCommandId
, cParameters
, cComment
, cOutputS3BucketName
, cRequestedDateTime
, CommandFilter
, commandFilter
, cfKey
, cfValue
, CommandInvocation
, commandInvocation
, ciInstanceId
, ciStatus
, ciCommandPlugins
, ciDocumentName
, ciCommandId
, ciComment
, ciTraceOutput
, ciRequestedDateTime
, CommandPlugin
, commandPlugin
, cpStatus
, cpResponseStartDateTime
, cpOutputS3KeyPrefix
, cpResponseCode
, cpOutput
, cpName
, cpOutputS3BucketName
, cpResponseFinishDateTime
, CreateAssociationBatchRequestEntry
, createAssociationBatchRequestEntry
, cabreInstanceId
, cabreName
, cabreParameters
, DocumentDescription
, documentDescription
, dStatus
, dSha1
, dPlatformTypes
, dCreatedDate
, dName
, dParameters
, dDescription
, DocumentFilter
, documentFilter
, dfKey
, dfValue
, DocumentIdentifier
, documentIdentifier
, diPlatformTypes
, diName
, DocumentParameter
, documentParameter
, dpName
, dpDefaultValue
, dpType
, dpDescription
, FailedCreateAssociation
, failedCreateAssociation
, fcaEntry
, fcaFault
, fcaMessage
, InstanceInformation
, instanceInformation
, iiInstanceId
, iiPingStatus
, iiPlatformVersion
, iiIsLatestVersion
, iiAgentVersion
, iiLastPingDateTime
, iiPlatformType
, iiPlatformName
, InstanceInformationFilter
, instanceInformationFilter
, iifKey
, iifValueSet
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
import Network.AWS.SSM.Types.Product
import Network.AWS.SSM.Types.Sum
ssm :: Service
ssm =
Service
{ _svcAbbrev = "SSM"
, _svcSigner = v4
, _svcPrefix = "ssm"
, _svcVersion = "2014-11-06"
, _svcEndpoint = defaultEndpoint ssm
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "SSM"
, _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 504) e = Just "gateway_timeout"
| 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
_UnsupportedPlatformType :: AsError a => Getting (First ServiceError) a ServiceError
_UnsupportedPlatformType = _ServiceError . hasCode "UnsupportedPlatformType"
_AssociatedInstances :: AsError a => Getting (First ServiceError) a ServiceError
_AssociatedInstances = _ServiceError . hasCode "AssociatedInstances"
_InvalidInstanceId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceId = _ServiceError . hasCode "InvalidInstanceId"
_StatusUnchanged :: AsError a => Getting (First ServiceError) a ServiceError
_StatusUnchanged = _ServiceError . hasCode "StatusUnchanged"
_InvalidNextToken :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNextToken = _ServiceError . hasCode "InvalidNextToken"
_InvalidOutputFolder :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOutputFolder = _ServiceError . hasCode "InvalidOutputFolder"
_InvalidCommandId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCommandId = _ServiceError . hasCode "InvalidCommandId"
_DuplicateInstanceId :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateInstanceId = _ServiceError . hasCode "DuplicateInstanceId"
_InvalidDocument :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDocument = _ServiceError . hasCode "InvalidDocument"
_InvalidFilterKey :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidFilterKey = _ServiceError . hasCode "InvalidFilterKey"
_InvalidInstanceInformationFilterValue :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceInformationFilterValue =
_ServiceError . hasCode "InvalidInstanceInformationFilterValue"
_AssociationAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationAlreadyExists = _ServiceError . hasCode "AssociationAlreadyExists"
_InvalidDocumentContent :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDocumentContent = _ServiceError . hasCode "InvalidDocumentContent"
_AssociationLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationLimitExceeded = _ServiceError . hasCode "AssociationLimitExceeded"
_AssociationDoesNotExist :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationDoesNotExist = _ServiceError . hasCode "AssociationDoesNotExist"
_InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError
_InternalServerError = _ServiceError . hasCode "InternalServerError"
_TooManyUpdates :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyUpdates = _ServiceError . hasCode "TooManyUpdates"
_MaxDocumentSizeExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_MaxDocumentSizeExceeded = _ServiceError . hasCode "MaxDocumentSizeExceeded"
_InvalidParameters :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameters = _ServiceError . hasCode "InvalidParameters"
_DocumentAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentAlreadyExists = _ServiceError . hasCode "DocumentAlreadyExists"
_DocumentLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentLimitExceeded = _ServiceError . hasCode "DocumentLimitExceeded"