{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.SSM.Types
(
ssm
, _UnsupportedPlatformType
, _InvalidPermissionType
, _AssociatedInstances
, _InvalidInstanceId
, _StatusUnchanged
, _InvalidNextToken
, _InvalidOutputFolder
, _InvalidActivationId
, _InvalidCommandId
, _DuplicateInstanceId
, _InvalidResourceType
, _InvalidDocument
, _InvalidFilterKey
, _InvalidInstanceInformationFilterValue
, _AssociationAlreadyExists
, _InvalidDocumentContent
, _AssociationLimitExceeded
, _AssociationDoesNotExist
, _InternalServerError
, _InvalidRole
, _TooManyUpdates
, _InvalidActivation
, _MaxDocumentSizeExceeded
, _InvalidDocumentOperation
, _InvalidParameters
, _InvalidResourceId
, _InvalidNotificationConfig
, _DocumentPermissionLimit
, _DocumentAlreadyExists
, _DocumentLimitExceeded
, _InvalidFilter
, AssociationFilterKey (..)
, AssociationStatusName (..)
, CommandFilterKey (..)
, CommandInvocationStatus (..)
, CommandPluginStatus (..)
, CommandStatus (..)
, DescribeActivationsFilterKeys (..)
, DocumentFilterKey (..)
, DocumentHashType (..)
, DocumentParameterType (..)
, DocumentPermissionType (..)
, DocumentStatus (..)
, Fault (..)
, InstanceInformationFilterKey (..)
, NotificationEvent (..)
, NotificationType (..)
, PingStatus (..)
, PlatformType (..)
, ResourceType (..)
, ResourceTypeForTagging (..)
, Activation
, activation
, aExpired
, aDefaultInstanceName
, aActivationId
, aCreatedDate
, aRegistrationLimit
, aExpirationDate
, aDescription
, aRegistrationsCount
, aIAMRole
, 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
, cNotificationConfig
, cOutputS3KeyPrefix
, cDocumentName
, cInstanceIds
, cCommandId
, cParameters
, cComment
, cOutputS3BucketName
, cRequestedDateTime
, cServiceRole
, CommandFilter
, commandFilter
, cfKey
, cfValue
, CommandInvocation
, commandInvocation
, ciInstanceId
, ciStatus
, ciNotificationConfig
, ciCommandPlugins
, ciDocumentName
, ciCommandId
, ciComment
, ciTraceOutput
, ciRequestedDateTime
, ciServiceRole
, CommandPlugin
, commandPlugin
, cpStatus
, cpResponseStartDateTime
, cpOutputS3KeyPrefix
, cpResponseCode
, cpOutput
, cpName
, cpOutputS3BucketName
, cpResponseFinishDateTime
, CreateAssociationBatchRequestEntry
, createAssociationBatchRequestEntry
, cabreInstanceId
, cabreName
, cabreParameters
, DescribeActivationsFilter
, describeActivationsFilter
, dafFilterKey
, dafFilterValues
, DocumentDescription
, documentDescription
, dStatus
, dHash
, dSha1
, dOwner
, dPlatformTypes
, dCreatedDate
, dName
, dHashType
, dParameters
, dDescription
, DocumentFilter
, documentFilter
, dfKey
, dfValue
, DocumentIdentifier
, documentIdentifier
, diOwner
, diPlatformTypes
, diName
, DocumentParameter
, documentParameter
, dpName
, dpDefaultValue
, dpType
, dpDescription
, FailedCreateAssociation
, failedCreateAssociation
, fcaEntry
, fcaFault
, fcaMessage
, InstanceInformation
, instanceInformation
, iiInstanceId
, iiPingStatus
, iiIPAddress
, iiResourceType
, iiRegistrationDate
, iiPlatformVersion
, iiIsLatestVersion
, iiAgentVersion
, iiLastPingDateTime
, iiActivationId
, iiName
, iiPlatformType
, iiPlatformName
, iiComputerName
, iiIAMRole
, InstanceInformationFilter
, instanceInformationFilter
, iifKey
, iifValueSet
, NotificationConfig
, notificationConfig
, ncNotificationEvents
, ncNotificationType
, ncNotificationARN
, Tag
, tag
, tagKey
, tagValue
) 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"
_InvalidPermissionType :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidPermissionType = _ServiceError . hasCode "InvalidPermissionType"
_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"
_InvalidActivationId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidActivationId = _ServiceError . hasCode "InvalidActivationId"
_InvalidCommandId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCommandId = _ServiceError . hasCode "InvalidCommandId"
_DuplicateInstanceId :: AsError a => Getting (First ServiceError) a ServiceError
_DuplicateInstanceId = _ServiceError . hasCode "DuplicateInstanceId"
_InvalidResourceType :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResourceType = _ServiceError . hasCode "InvalidResourceType"
_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"
_InvalidRole :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidRole = _ServiceError . hasCode "InvalidRole"
_TooManyUpdates :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyUpdates = _ServiceError . hasCode "TooManyUpdates"
_InvalidActivation :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidActivation = _ServiceError . hasCode "InvalidActivation"
_MaxDocumentSizeExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_MaxDocumentSizeExceeded = _ServiceError . hasCode "MaxDocumentSizeExceeded"
_InvalidDocumentOperation :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidDocumentOperation = _ServiceError . hasCode "InvalidDocumentOperation"
_InvalidParameters :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameters = _ServiceError . hasCode "InvalidParameters"
_InvalidResourceId :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResourceId = _ServiceError . hasCode "InvalidResourceId"
_InvalidNotificationConfig :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidNotificationConfig =
_ServiceError . hasCode "InvalidNotificationConfig"
_DocumentPermissionLimit :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentPermissionLimit = _ServiceError . hasCode "DocumentPermissionLimit"
_DocumentAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentAlreadyExists = _ServiceError . hasCode "DocumentAlreadyExists"
_DocumentLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentLimitExceeded = _ServiceError . hasCode "DocumentLimitExceeded"
_InvalidFilter :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidFilter = _ServiceError . hasCode "InvalidFilter"