{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.CloudFormation.Types
(
cloudFormation
, _CreatedButModifiedException
, _ChangeSetNotFoundException
, _OperationInProgressException
, _InvalidChangeSetStatusException
, _OperationNotFoundException
, _OperationIdAlreadyExistsException
, _InsufficientCapabilitiesException
, _TokenAlreadyExistsException
, _StackSetNotFoundException
, _StackInstanceNotFoundException
, _StackSetNotEmptyException
, _InvalidOperationException
, _NameAlreadyExistsException
, _StaleRequestException
, _AlreadyExistsException
, _LimitExceededException
, AccountGateStatus (..)
, Capability (..)
, ChangeAction (..)
, ChangeSetStatus (..)
, ChangeSetType (..)
, ChangeSource (..)
, ChangeType (..)
, EvaluationType (..)
, ExecutionStatus (..)
, OnFailure (..)
, Replacement (..)
, RequiresRecreation (..)
, ResourceAttribute (..)
, ResourceSignalStatus (..)
, ResourceStatus (..)
, StackInstanceStatus (..)
, StackSetOperationAction (..)
, StackSetOperationResultStatus (..)
, StackSetOperationStatus (..)
, StackSetStatus (..)
, StackStatus (..)
, TemplateStage (..)
, AccountGateResult
, accountGateResult
, agrStatus
, agrStatusReason
, AccountLimit
, accountLimit
, alValue
, alName
, Change
, change
, cResourceChange
, cType
, ChangeSetSummary
, changeSetSummary
, cCreationTime
, cStatus
, cChangeSetName
, cExecutionStatus
, cChangeSetId
, cStatusReason
, cStackId
, cDescription
, cStackName
, Export
, export'
, eValue
, eExportingStackId
, eName
, Output
, output
, oOutputValue
, oOutputKey
, oExportName
, oDescription
, Parameter
, parameter
, pParameterValue
, pResolvedValue
, pParameterKey
, pUsePreviousValue
, ParameterConstraints
, parameterConstraints
, pcAllowedValues
, ParameterDeclaration
, parameterDeclaration
, pdParameterKey
, pdParameterType
, pdParameterConstraints
, pdDefaultValue
, pdNoEcho
, pdDescription
, ResourceChange
, resourceChange
, rcLogicalResourceId
, rcPhysicalResourceId
, rcResourceType
, rcAction
, rcScope
, rcDetails
, rcReplacement
, ResourceChangeDetail
, resourceChangeDetail
, rcdCausingEntity
, rcdChangeSource
, rcdEvaluation
, rcdTarget
, ResourceTargetDefinition
, resourceTargetDefinition
, rtdAttribute
, rtdRequiresRecreation
, rtdName
, RollbackConfiguration
, rollbackConfiguration
, rcRollbackTriggers
, rcMonitoringTimeInMinutes
, RollbackTrigger
, rollbackTrigger
, rtARN
, rtType
, Stack
, stack
, sDisableRollback
, sLastUpdatedTime
, sRootId
, sNotificationARNs
, sStackStatusReason
, sEnableTerminationProtection
, sChangeSetId
, sDeletionTime
, sOutputs
, sParameters
, sStackId
, sDescription
, sCapabilities
, sRollbackConfiguration
, sTags
, sTimeoutInMinutes
, sParentId
, sRoleARN
, sStackName
, sCreationTime
, sStackStatus
, StackEvent
, stackEvent
, seLogicalResourceId
, sePhysicalResourceId
, seResourceType
, seResourceStatusReason
, seResourceProperties
, seResourceStatus
, seClientRequestToken
, seStackId
, seEventId
, seStackName
, seTimestamp
, StackInstance
, stackInstance
, siStatus
, siAccount
, siRegion
, siStatusReason
, siStackId
, siParameterOverrides
, siStackSetId
, StackInstanceSummary
, stackInstanceSummary
, sisStatus
, sisAccount
, sisRegion
, sisStatusReason
, sisStackId
, sisStackSetId
, StackResource
, stackResource
, srPhysicalResourceId
, srResourceStatusReason
, srStackId
, srDescription
, srStackName
, srLogicalResourceId
, srResourceType
, srTimestamp
, srResourceStatus
, StackResourceDetail
, stackResourceDetail
, srdPhysicalResourceId
, srdResourceStatusReason
, srdMetadata
, srdStackId
, srdDescription
, srdStackName
, srdLogicalResourceId
, srdResourceType
, srdLastUpdatedTimestamp
, srdResourceStatus
, StackResourceSummary
, stackResourceSummary
, srsPhysicalResourceId
, srsResourceStatusReason
, srsLogicalResourceId
, srsResourceType
, srsLastUpdatedTimestamp
, srsResourceStatus
, StackSet
, stackSet
, ssStatus
, ssAdministrationRoleARN
, ssStackSetARN
, ssParameters
, ssTemplateBody
, ssStackSetName
, ssDescription
, ssCapabilities
, ssTags
, ssStackSetId
, StackSetOperation
, stackSetOperation
, ssoStatus
, ssoAdministrationRoleARN
, ssoAction
, ssoEndTimestamp
, ssoCreationTimestamp
, ssoOperationPreferences
, ssoOperationId
, ssoRetainStacks
, ssoStackSetId
, StackSetOperationPreferences
, stackSetOperationPreferences
, ssopRegionOrder
, ssopMaxConcurrentCount
, ssopMaxConcurrentPercentage
, ssopFailureToleranceCount
, ssopFailureTolerancePercentage
, StackSetOperationResultSummary
, stackSetOperationResultSummary
, ssorsStatus
, ssorsAccount
, ssorsAccountGateResult
, ssorsRegion
, ssorsStatusReason
, StackSetOperationSummary
, stackSetOperationSummary
, ssosStatus
, ssosAction
, ssosEndTimestamp
, ssosCreationTimestamp
, ssosOperationId
, StackSetSummary
, stackSetSummary
, sssStatus
, sssStackSetName
, sssDescription
, sssStackSetId
, StackSummary
, stackSummary
, ssLastUpdatedTime
, ssRootId
, ssStackStatusReason
, ssTemplateDescription
, ssDeletionTime
, ssStackId
, ssParentId
, ssStackName
, ssCreationTime
, ssStackStatus
, Tag
, tag
, tagKey
, tagValue
, TemplateParameter
, templateParameter
, tpParameterKey
, tpDefaultValue
, tpNoEcho
, tpDescription
) where
import Network.AWS.CloudFormation.Types.Product
import Network.AWS.CloudFormation.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
cloudFormation :: Service
cloudFormation =
Service
{ _svcAbbrev = "CloudFormation"
, _svcSigner = v4
, _svcPrefix = "cloudformation"
, _svcVersion = "2010-05-15"
, _svcEndpoint = defaultEndpoint cloudFormation
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseXMLError "CloudFormation"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
| 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 (hasCode "RequestThrottledException" . hasStatus 400) e =
Just "request_throttled_exception"
| 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
_CreatedButModifiedException :: AsError a => Getting (First ServiceError) a ServiceError
_CreatedButModifiedException =
_MatchServiceError cloudFormation "CreatedButModifiedException" .
hasStatus 409
_ChangeSetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ChangeSetNotFoundException =
_MatchServiceError cloudFormation "ChangeSetNotFound" . hasStatus 404
_OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationInProgressException =
_MatchServiceError cloudFormation "OperationInProgressException" .
hasStatus 409
_InvalidChangeSetStatusException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidChangeSetStatusException =
_MatchServiceError cloudFormation "InvalidChangeSetStatus" . hasStatus 400
_OperationNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationNotFoundException =
_MatchServiceError cloudFormation "OperationNotFoundException" . hasStatus 404
_OperationIdAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationIdAlreadyExistsException =
_MatchServiceError cloudFormation "OperationIdAlreadyExistsException" .
hasStatus 409
_InsufficientCapabilitiesException :: AsError a => Getting (First ServiceError) a ServiceError
_InsufficientCapabilitiesException =
_MatchServiceError cloudFormation "InsufficientCapabilitiesException" .
hasStatus 400
_TokenAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_TokenAlreadyExistsException =
_MatchServiceError cloudFormation "TokenAlreadyExistsException" .
hasStatus 400
_StackSetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_StackSetNotFoundException =
_MatchServiceError cloudFormation "StackSetNotFoundException" . hasStatus 404
_StackInstanceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_StackInstanceNotFoundException =
_MatchServiceError cloudFormation "StackInstanceNotFoundException" .
hasStatus 404
_StackSetNotEmptyException :: AsError a => Getting (First ServiceError) a ServiceError
_StackSetNotEmptyException =
_MatchServiceError cloudFormation "StackSetNotEmptyException" . hasStatus 409
_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOperationException =
_MatchServiceError cloudFormation "InvalidOperationException" . hasStatus 400
_NameAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_NameAlreadyExistsException =
_MatchServiceError cloudFormation "NameAlreadyExistsException" . hasStatus 409
_StaleRequestException :: AsError a => Getting (First ServiceError) a ServiceError
_StaleRequestException =
_MatchServiceError cloudFormation "StaleRequestException" . hasStatus 409
_AlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_AlreadyExistsException =
_MatchServiceError cloudFormation "AlreadyExistsException" . hasStatus 400
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException =
_MatchServiceError cloudFormation "LimitExceededException" . hasStatus 400