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.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
, _svcRetry = retry
}
where
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
_UnsupportedPlatformType :: AsError a => Getting (First ServiceError) a ServiceError
_UnsupportedPlatformType =
_ServiceError . hasStatus 400 . hasCode "UnsupportedPlatformType"
_AssociatedInstances :: AsError a => Getting (First ServiceError) a ServiceError
_AssociatedInstances =
_ServiceError . hasStatus 400 . hasCode "AssociatedInstances"
_InvalidInstanceId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceId =
_ServiceError . hasStatus 404 . hasCode "InvalidInstanceId"
_StatusUnchanged :: AsError a => Getting (First ServiceError) a ServiceError
_StatusUnchanged = _ServiceError . hasStatus 400 . hasCode "StatusUnchanged"
_InvalidNextToken :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNextToken = _ServiceError . hasStatus 400 . hasCode "InvalidNextToken"
_InvalidOutputFolder :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOutputFolder =
_ServiceError . hasStatus 400 . hasCode "InvalidOutputFolder"
_InvalidCommandId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCommandId = _ServiceError . hasStatus 404 . hasCode "InvalidCommandId"
_DuplicateInstanceId :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateInstanceId =
_ServiceError . hasStatus 404 . hasCode "DuplicateInstanceId"
_InvalidDocument :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDocument = _ServiceError . hasStatus 404 . hasCode "InvalidDocument"
_InvalidFilterKey :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidFilterKey = _ServiceError . hasStatus 400 . hasCode "InvalidFilterKey"
_InvalidInstanceInformationFilterValue :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidInstanceInformationFilterValue =
_ServiceError .
hasStatus 400 . hasCode "InvalidInstanceInformationFilterValue"
_AssociationAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationAlreadyExists =
_ServiceError . hasStatus 400 . hasCode "AssociationAlreadyExists"
_InvalidDocumentContent :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDocumentContent =
_ServiceError . hasStatus 400 . hasCode "InvalidDocumentContent"
_AssociationLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationLimitExceeded =
_ServiceError . hasStatus 400 . hasCode "AssociationLimitExceeded"
_AssociationDoesNotExist :: AsError a => Getting (First ServiceError) a ServiceError
_AssociationDoesNotExist =
_ServiceError . hasStatus 404 . hasCode "AssociationDoesNotExist"
_InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError
_InternalServerError =
_ServiceError . hasStatus 500 . hasCode "InternalServerError"
_TooManyUpdates :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyUpdates = _ServiceError . hasStatus 429 . hasCode "TooManyUpdates"
_MaxDocumentSizeExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_MaxDocumentSizeExceeded =
_ServiceError . hasStatus 400 . hasCode "MaxDocumentSizeExceeded"
_InvalidParameters :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameters =
_ServiceError . hasStatus 400 . hasCode "InvalidParameters"
_DocumentAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentAlreadyExists =
_ServiceError . hasStatus 400 . hasCode "DocumentAlreadyExists"
_DocumentLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentLimitExceeded =
_ServiceError . hasStatus 400 . hasCode "DocumentLimitExceeded"