{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.ElasticBeanstalk.Types
(
defaultService,
_CodeBuildNotInServiceRegionException,
_ElasticBeanstalkServiceException,
_InsufficientPrivilegesException,
_InvalidRequestException,
_ManagedActionInvalidStateException,
_OperationInProgressException,
_PlatformVersionStillReferencedException,
_ResourceNotFoundException,
_ResourceTypeNotSupportedException,
_S3LocationNotInServiceRegionException,
_S3SubscriptionRequiredException,
_SourceBundleDeletionException,
_TooManyApplicationVersionsException,
_TooManyApplicationsException,
_TooManyBucketsException,
_TooManyConfigurationTemplatesException,
_TooManyEnvironmentsException,
_TooManyPlatformsException,
_TooManyTagsException,
ActionHistoryStatus (..),
ActionStatus (..),
ActionType (..),
ApplicationVersionStatus (..),
ComputeType (..),
ConfigurationDeploymentStatus (..),
ConfigurationOptionValueType (..),
EnvironmentHealth (..),
EnvironmentHealthAttribute (..),
EnvironmentHealthStatus (..),
EnvironmentInfoType (..),
EnvironmentStatus (..),
EventSeverity (..),
FailureType (..),
InstancesHealthAttribute (..),
PlatformStatus (..),
SourceRepository (..),
SourceType (..),
ValidationSeverity (..),
ApplicationDescription (..),
newApplicationDescription,
applicationDescription_applicationArn,
applicationDescription_applicationName,
applicationDescription_configurationTemplates,
applicationDescription_dateCreated,
applicationDescription_dateUpdated,
applicationDescription_description,
applicationDescription_resourceLifecycleConfig,
applicationDescription_versions,
ApplicationDescriptionMessage (..),
newApplicationDescriptionMessage,
applicationDescriptionMessage_application,
ApplicationMetrics (..),
newApplicationMetrics,
applicationMetrics_duration,
applicationMetrics_latency,
applicationMetrics_requestCount,
applicationMetrics_statusCodes,
ApplicationResourceLifecycleConfig (..),
newApplicationResourceLifecycleConfig,
applicationResourceLifecycleConfig_serviceRole,
applicationResourceLifecycleConfig_versionLifecycleConfig,
ApplicationVersionDescription (..),
newApplicationVersionDescription,
applicationVersionDescription_applicationName,
applicationVersionDescription_applicationVersionArn,
applicationVersionDescription_buildArn,
applicationVersionDescription_dateCreated,
applicationVersionDescription_dateUpdated,
applicationVersionDescription_description,
applicationVersionDescription_sourceBuildInformation,
applicationVersionDescription_sourceBundle,
applicationVersionDescription_status,
applicationVersionDescription_versionLabel,
ApplicationVersionDescriptionMessage (..),
newApplicationVersionDescriptionMessage,
applicationVersionDescriptionMessage_applicationVersion,
ApplicationVersionLifecycleConfig (..),
newApplicationVersionLifecycleConfig,
applicationVersionLifecycleConfig_maxAgeRule,
applicationVersionLifecycleConfig_maxCountRule,
AutoScalingGroup (..),
newAutoScalingGroup,
autoScalingGroup_name,
BuildConfiguration (..),
newBuildConfiguration,
buildConfiguration_artifactName,
buildConfiguration_computeType,
buildConfiguration_timeoutInMinutes,
buildConfiguration_codeBuildServiceRole,
buildConfiguration_image,
Builder (..),
newBuilder,
builder_arn,
CPUUtilization (..),
newCPUUtilization,
cPUUtilization_iOWait,
cPUUtilization_irq,
cPUUtilization_idle,
cPUUtilization_nice,
cPUUtilization_privileged,
cPUUtilization_softIRQ,
cPUUtilization_system,
cPUUtilization_user,
ConfigurationOptionDescription (..),
newConfigurationOptionDescription,
configurationOptionDescription_changeSeverity,
configurationOptionDescription_defaultValue,
configurationOptionDescription_maxLength,
configurationOptionDescription_maxValue,
configurationOptionDescription_minValue,
configurationOptionDescription_name,
configurationOptionDescription_namespace,
configurationOptionDescription_regex,
configurationOptionDescription_userDefined,
configurationOptionDescription_valueOptions,
configurationOptionDescription_valueType,
ConfigurationOptionSetting (..),
newConfigurationOptionSetting,
configurationOptionSetting_namespace,
configurationOptionSetting_optionName,
configurationOptionSetting_resourceName,
configurationOptionSetting_value,
ConfigurationSettingsDescription (..),
newConfigurationSettingsDescription,
configurationSettingsDescription_applicationName,
configurationSettingsDescription_dateCreated,
configurationSettingsDescription_dateUpdated,
configurationSettingsDescription_deploymentStatus,
configurationSettingsDescription_description,
configurationSettingsDescription_environmentName,
configurationSettingsDescription_optionSettings,
configurationSettingsDescription_platformArn,
configurationSettingsDescription_solutionStackName,
configurationSettingsDescription_templateName,
CustomAmi (..),
newCustomAmi,
customAmi_imageId,
customAmi_virtualizationType,
Deployment (..),
newDeployment,
deployment_deploymentId,
deployment_deploymentTime,
deployment_status,
deployment_versionLabel,
EnvironmentDescription (..),
newEnvironmentDescription,
environmentDescription_abortableOperationInProgress,
environmentDescription_applicationName,
environmentDescription_cname,
environmentDescription_dateCreated,
environmentDescription_dateUpdated,
environmentDescription_description,
environmentDescription_endpointURL,
environmentDescription_environmentArn,
environmentDescription_environmentId,
environmentDescription_environmentLinks,
environmentDescription_environmentName,
environmentDescription_health,
environmentDescription_healthStatus,
environmentDescription_operationsRole,
environmentDescription_platformArn,
environmentDescription_resources,
environmentDescription_solutionStackName,
environmentDescription_status,
environmentDescription_templateName,
environmentDescription_tier,
environmentDescription_versionLabel,
EnvironmentDescriptionsMessage (..),
newEnvironmentDescriptionsMessage,
environmentDescriptionsMessage_environments,
environmentDescriptionsMessage_nextToken,
EnvironmentInfoDescription (..),
newEnvironmentInfoDescription,
environmentInfoDescription_ec2InstanceId,
environmentInfoDescription_infoType,
environmentInfoDescription_message,
environmentInfoDescription_sampleTimestamp,
EnvironmentLink (..),
newEnvironmentLink,
environmentLink_environmentName,
environmentLink_linkName,
EnvironmentResourceDescription (..),
newEnvironmentResourceDescription,
environmentResourceDescription_autoScalingGroups,
environmentResourceDescription_environmentName,
environmentResourceDescription_instances,
environmentResourceDescription_launchConfigurations,
environmentResourceDescription_launchTemplates,
environmentResourceDescription_loadBalancers,
environmentResourceDescription_queues,
environmentResourceDescription_triggers,
EnvironmentResourcesDescription (..),
newEnvironmentResourcesDescription,
environmentResourcesDescription_loadBalancer,
EnvironmentTier (..),
newEnvironmentTier,
environmentTier_name,
environmentTier_type,
environmentTier_version,
EventDescription (..),
newEventDescription,
eventDescription_applicationName,
eventDescription_environmentName,
eventDescription_eventDate,
eventDescription_message,
eventDescription_platformArn,
eventDescription_requestId,
eventDescription_severity,
eventDescription_templateName,
eventDescription_versionLabel,
Instance (..),
newInstance,
instance_id,
InstanceHealthSummary (..),
newInstanceHealthSummary,
instanceHealthSummary_degraded,
instanceHealthSummary_info,
instanceHealthSummary_noData,
instanceHealthSummary_ok,
instanceHealthSummary_pending,
instanceHealthSummary_severe,
instanceHealthSummary_unknown,
instanceHealthSummary_warning,
Latency (..),
newLatency,
latency_p10,
latency_p50,
latency_p75,
latency_p85,
latency_p90,
latency_p95,
latency_p99,
latency_p999,
LaunchConfiguration (..),
newLaunchConfiguration,
launchConfiguration_name,
LaunchTemplate (..),
newLaunchTemplate,
launchTemplate_id,
Listener (..),
newListener,
listener_port,
listener_protocol,
LoadBalancer (..),
newLoadBalancer,
loadBalancer_name,
LoadBalancerDescription (..),
newLoadBalancerDescription,
loadBalancerDescription_domain,
loadBalancerDescription_listeners,
loadBalancerDescription_loadBalancerName,
ManagedAction (..),
newManagedAction,
managedAction_actionDescription,
managedAction_actionId,
managedAction_actionType,
managedAction_status,
managedAction_windowStartTime,
ManagedActionHistoryItem (..),
newManagedActionHistoryItem,
managedActionHistoryItem_actionDescription,
managedActionHistoryItem_actionId,
managedActionHistoryItem_actionType,
managedActionHistoryItem_executedTime,
managedActionHistoryItem_failureDescription,
managedActionHistoryItem_failureType,
managedActionHistoryItem_finishedTime,
managedActionHistoryItem_status,
MaxAgeRule (..),
newMaxAgeRule,
maxAgeRule_deleteSourceFromS3,
maxAgeRule_maxAgeInDays,
maxAgeRule_enabled,
MaxCountRule (..),
newMaxCountRule,
maxCountRule_deleteSourceFromS3,
maxCountRule_maxCount,
maxCountRule_enabled,
OptionRestrictionRegex (..),
newOptionRestrictionRegex,
optionRestrictionRegex_label,
optionRestrictionRegex_pattern,
OptionSpecification (..),
newOptionSpecification,
optionSpecification_namespace,
optionSpecification_optionName,
optionSpecification_resourceName,
PlatformBranchSummary (..),
newPlatformBranchSummary,
platformBranchSummary_branchName,
platformBranchSummary_branchOrder,
platformBranchSummary_lifecycleState,
platformBranchSummary_platformName,
platformBranchSummary_supportedTierList,
PlatformDescription (..),
newPlatformDescription,
platformDescription_customAmiList,
platformDescription_dateCreated,
platformDescription_dateUpdated,
platformDescription_description,
platformDescription_frameworks,
platformDescription_maintainer,
platformDescription_operatingSystemName,
platformDescription_operatingSystemVersion,
platformDescription_platformArn,
platformDescription_platformBranchLifecycleState,
platformDescription_platformBranchName,
platformDescription_platformCategory,
platformDescription_platformLifecycleState,
platformDescription_platformName,
platformDescription_platformOwner,
platformDescription_platformStatus,
platformDescription_platformVersion,
platformDescription_programmingLanguages,
platformDescription_solutionStackName,
platformDescription_supportedAddonList,
platformDescription_supportedTierList,
PlatformFilter (..),
newPlatformFilter,
platformFilter_operator,
platformFilter_type,
platformFilter_values,
PlatformFramework (..),
newPlatformFramework,
platformFramework_name,
platformFramework_version,
PlatformProgrammingLanguage (..),
newPlatformProgrammingLanguage,
platformProgrammingLanguage_name,
platformProgrammingLanguage_version,
PlatformSummary (..),
newPlatformSummary,
platformSummary_operatingSystemName,
platformSummary_operatingSystemVersion,
platformSummary_platformArn,
platformSummary_platformBranchLifecycleState,
platformSummary_platformBranchName,
platformSummary_platformCategory,
platformSummary_platformLifecycleState,
platformSummary_platformOwner,
platformSummary_platformStatus,
platformSummary_platformVersion,
platformSummary_supportedAddonList,
platformSummary_supportedTierList,
Queue (..),
newQueue,
queue_name,
queue_url,
ResourceQuota (..),
newResourceQuota,
resourceQuota_maximum,
ResourceQuotas (..),
newResourceQuotas,
resourceQuotas_applicationQuota,
resourceQuotas_applicationVersionQuota,
resourceQuotas_configurationTemplateQuota,
resourceQuotas_customPlatformQuota,
resourceQuotas_environmentQuota,
S3Location (..),
newS3Location,
s3Location_s3Bucket,
s3Location_s3Key,
SearchFilter (..),
newSearchFilter,
searchFilter_attribute,
searchFilter_operator,
searchFilter_values,
SingleInstanceHealth (..),
newSingleInstanceHealth,
singleInstanceHealth_applicationMetrics,
singleInstanceHealth_availabilityZone,
singleInstanceHealth_causes,
singleInstanceHealth_color,
singleInstanceHealth_deployment,
singleInstanceHealth_healthStatus,
singleInstanceHealth_instanceId,
singleInstanceHealth_instanceType,
singleInstanceHealth_launchedAt,
singleInstanceHealth_system,
SolutionStackDescription (..),
newSolutionStackDescription,
solutionStackDescription_permittedFileTypes,
solutionStackDescription_solutionStackName,
SourceBuildInformation (..),
newSourceBuildInformation,
sourceBuildInformation_sourceType,
sourceBuildInformation_sourceRepository,
sourceBuildInformation_sourceLocation,
SourceConfiguration (..),
newSourceConfiguration,
sourceConfiguration_applicationName,
sourceConfiguration_templateName,
StatusCodes (..),
newStatusCodes,
statusCodes_status2xx,
statusCodes_status3xx,
statusCodes_status4xx,
statusCodes_status5xx,
SystemStatus (..),
newSystemStatus,
systemStatus_cPUUtilization,
systemStatus_loadAverage,
Tag (..),
newTag,
tag_key,
tag_value,
Trigger (..),
newTrigger,
trigger_name,
ValidationMessage (..),
newValidationMessage,
validationMessage_message,
validationMessage_namespace,
validationMessage_optionName,
validationMessage_severity,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import Amazonka.ElasticBeanstalk.Types.ActionHistoryStatus
import Amazonka.ElasticBeanstalk.Types.ActionStatus
import Amazonka.ElasticBeanstalk.Types.ActionType
import Amazonka.ElasticBeanstalk.Types.ApplicationDescription
import Amazonka.ElasticBeanstalk.Types.ApplicationDescriptionMessage
import Amazonka.ElasticBeanstalk.Types.ApplicationMetrics
import Amazonka.ElasticBeanstalk.Types.ApplicationResourceLifecycleConfig
import Amazonka.ElasticBeanstalk.Types.ApplicationVersionDescription
import Amazonka.ElasticBeanstalk.Types.ApplicationVersionDescriptionMessage
import Amazonka.ElasticBeanstalk.Types.ApplicationVersionLifecycleConfig
import Amazonka.ElasticBeanstalk.Types.ApplicationVersionStatus
import Amazonka.ElasticBeanstalk.Types.AutoScalingGroup
import Amazonka.ElasticBeanstalk.Types.BuildConfiguration
import Amazonka.ElasticBeanstalk.Types.Builder
import Amazonka.ElasticBeanstalk.Types.CPUUtilization
import Amazonka.ElasticBeanstalk.Types.ComputeType
import Amazonka.ElasticBeanstalk.Types.ConfigurationDeploymentStatus
import Amazonka.ElasticBeanstalk.Types.ConfigurationOptionDescription
import Amazonka.ElasticBeanstalk.Types.ConfigurationOptionSetting
import Amazonka.ElasticBeanstalk.Types.ConfigurationOptionValueType
import Amazonka.ElasticBeanstalk.Types.ConfigurationSettingsDescription
import Amazonka.ElasticBeanstalk.Types.CustomAmi
import Amazonka.ElasticBeanstalk.Types.Deployment
import Amazonka.ElasticBeanstalk.Types.EnvironmentDescription
import Amazonka.ElasticBeanstalk.Types.EnvironmentDescriptionsMessage
import Amazonka.ElasticBeanstalk.Types.EnvironmentHealth
import Amazonka.ElasticBeanstalk.Types.EnvironmentHealthAttribute
import Amazonka.ElasticBeanstalk.Types.EnvironmentHealthStatus
import Amazonka.ElasticBeanstalk.Types.EnvironmentInfoDescription
import Amazonka.ElasticBeanstalk.Types.EnvironmentInfoType
import Amazonka.ElasticBeanstalk.Types.EnvironmentLink
import Amazonka.ElasticBeanstalk.Types.EnvironmentResourceDescription
import Amazonka.ElasticBeanstalk.Types.EnvironmentResourcesDescription
import Amazonka.ElasticBeanstalk.Types.EnvironmentStatus
import Amazonka.ElasticBeanstalk.Types.EnvironmentTier
import Amazonka.ElasticBeanstalk.Types.EventDescription
import Amazonka.ElasticBeanstalk.Types.EventSeverity
import Amazonka.ElasticBeanstalk.Types.FailureType
import Amazonka.ElasticBeanstalk.Types.Instance
import Amazonka.ElasticBeanstalk.Types.InstanceHealthSummary
import Amazonka.ElasticBeanstalk.Types.InstancesHealthAttribute
import Amazonka.ElasticBeanstalk.Types.Latency
import Amazonka.ElasticBeanstalk.Types.LaunchConfiguration
import Amazonka.ElasticBeanstalk.Types.LaunchTemplate
import Amazonka.ElasticBeanstalk.Types.Listener
import Amazonka.ElasticBeanstalk.Types.LoadBalancer
import Amazonka.ElasticBeanstalk.Types.LoadBalancerDescription
import Amazonka.ElasticBeanstalk.Types.ManagedAction
import Amazonka.ElasticBeanstalk.Types.ManagedActionHistoryItem
import Amazonka.ElasticBeanstalk.Types.MaxAgeRule
import Amazonka.ElasticBeanstalk.Types.MaxCountRule
import Amazonka.ElasticBeanstalk.Types.OptionRestrictionRegex
import Amazonka.ElasticBeanstalk.Types.OptionSpecification
import Amazonka.ElasticBeanstalk.Types.PlatformBranchSummary
import Amazonka.ElasticBeanstalk.Types.PlatformDescription
import Amazonka.ElasticBeanstalk.Types.PlatformFilter
import Amazonka.ElasticBeanstalk.Types.PlatformFramework
import Amazonka.ElasticBeanstalk.Types.PlatformProgrammingLanguage
import Amazonka.ElasticBeanstalk.Types.PlatformStatus
import Amazonka.ElasticBeanstalk.Types.PlatformSummary
import Amazonka.ElasticBeanstalk.Types.Queue
import Amazonka.ElasticBeanstalk.Types.ResourceQuota
import Amazonka.ElasticBeanstalk.Types.ResourceQuotas
import Amazonka.ElasticBeanstalk.Types.S3Location
import Amazonka.ElasticBeanstalk.Types.SearchFilter
import Amazonka.ElasticBeanstalk.Types.SingleInstanceHealth
import Amazonka.ElasticBeanstalk.Types.SolutionStackDescription
import Amazonka.ElasticBeanstalk.Types.SourceBuildInformation
import Amazonka.ElasticBeanstalk.Types.SourceConfiguration
import Amazonka.ElasticBeanstalk.Types.SourceRepository
import Amazonka.ElasticBeanstalk.Types.SourceType
import Amazonka.ElasticBeanstalk.Types.StatusCodes
import Amazonka.ElasticBeanstalk.Types.SystemStatus
import Amazonka.ElasticBeanstalk.Types.Tag
import Amazonka.ElasticBeanstalk.Types.Trigger
import Amazonka.ElasticBeanstalk.Types.ValidationMessage
import Amazonka.ElasticBeanstalk.Types.ValidationSeverity
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Sign.V4 as Sign
defaultService :: Core.Service
defaultService :: Service
defaultService =
Core.Service
{ $sel:abbrev:Service :: Abbrev
Core.abbrev = Abbrev
"ElasticBeanstalk",
$sel:signer:Service :: Signer
Core.signer = Signer
Sign.v4,
$sel:endpointPrefix:Service :: ByteString
Core.endpointPrefix = ByteString
"elasticbeanstalk",
$sel:signingName:Service :: ByteString
Core.signingName = ByteString
"elasticbeanstalk",
$sel:version:Service :: ByteString
Core.version = ByteString
"2010-12-01",
$sel:s3AddressingStyle:Service :: S3AddressingStyle
Core.s3AddressingStyle = S3AddressingStyle
Core.S3AddressingStyleAuto,
$sel:endpoint:Service :: Region -> Endpoint
Core.endpoint = Service -> Region -> Endpoint
Core.defaultEndpoint Service
defaultService,
$sel:timeout:Service :: Maybe Seconds
Core.timeout = forall a. a -> Maybe a
Prelude.Just Seconds
70,
$sel:check:Service :: Status -> Bool
Core.check = Status -> Bool
Core.statusSuccess,
$sel:error:Service :: Status -> [Header] -> ByteStringLazy -> Error
Core.error = Abbrev -> Status -> [Header] -> ByteStringLazy -> Error
Core.parseXMLError Abbrev
"ElasticBeanstalk",
$sel:retry:Service :: Retry
Core.retry = Retry
retry
}
where
retry :: Retry
retry =
Core.Exponential
{ $sel:base:Exponential :: Double
Core.base = Double
5.0e-2,
$sel:growth:Exponential :: Int
Core.growth = Int
2,
$sel:attempts:Exponential :: Int
Core.attempts = Int
5,
$sel:check:Exponential :: ServiceError -> Maybe Text
Core.check = forall {a}. IsString a => ServiceError -> Maybe a
check
}
check :: ServiceError -> Maybe a
check ServiceError
e
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
502) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"bad_gateway"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
504) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"gateway_timeout"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
500) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"general_server_error"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
509) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"limit_exceeded"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"RequestThrottledException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"request_throttled_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
503) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"service_unavailable"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottledException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttled_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"Throttling"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttling"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode ErrorCode
"ThrottlingException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throttling_exception"
| forall s a. Getting Any s a -> s -> Bool
Lens.has
( forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
ErrorCode -> Optic' p f ServiceError ServiceError
Core.hasCode
ErrorCode
"ProvisionedThroughputExceededException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
)
ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"throughput_exceeded"
| forall s a. Getting Any s a -> s -> Bool
Lens.has (forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
429) ServiceError
e =
forall a. a -> Maybe a
Prelude.Just a
"too_many_requests"
| Bool
Prelude.otherwise = forall a. Maybe a
Prelude.Nothing
_CodeBuildNotInServiceRegionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CodeBuildNotInServiceRegionException :: forall a. AsError a => Fold a ServiceError
_CodeBuildNotInServiceRegionException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CodeBuildNotInServiceRegionException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ElasticBeanstalkServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ElasticBeanstalkServiceException :: forall a. AsError a => Fold a ServiceError
_ElasticBeanstalkServiceException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ElasticBeanstalkServiceException"
_InsufficientPrivilegesException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InsufficientPrivilegesException :: forall a. AsError a => Fold a ServiceError
_InsufficientPrivilegesException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InsufficientPrivilegesException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
403
_InvalidRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InvalidRequestException :: forall a. AsError a => Fold a ServiceError
_InvalidRequestException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InvalidRequestException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ManagedActionInvalidStateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ManagedActionInvalidStateException :: forall a. AsError a => Fold a ServiceError
_ManagedActionInvalidStateException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ManagedActionInvalidStateException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_OperationInProgressException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_OperationInProgressException :: forall a. AsError a => Fold a ServiceError
_OperationInProgressException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"OperationInProgressFailure"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_PlatformVersionStillReferencedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_PlatformVersionStillReferencedException :: forall a. AsError a => Fold a ServiceError
_PlatformVersionStillReferencedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"PlatformVersionStillReferencedException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ResourceNotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ResourceNotFoundException :: forall a. AsError a => Fold a ServiceError
_ResourceNotFoundException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceNotFoundException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_ResourceTypeNotSupportedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ResourceTypeNotSupportedException :: forall a. AsError a => Fold a ServiceError
_ResourceTypeNotSupportedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceTypeNotSupportedException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_S3LocationNotInServiceRegionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_S3LocationNotInServiceRegionException :: forall a. AsError a => Fold a ServiceError
_S3LocationNotInServiceRegionException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"S3LocationNotInServiceRegionException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_S3SubscriptionRequiredException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_S3SubscriptionRequiredException :: forall a. AsError a => Fold a ServiceError
_S3SubscriptionRequiredException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"S3SubscriptionRequiredException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_SourceBundleDeletionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_SourceBundleDeletionException :: forall a. AsError a => Fold a ServiceError
_SourceBundleDeletionException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"SourceBundleDeletionFailure"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyApplicationVersionsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyApplicationVersionsException :: forall a. AsError a => Fold a ServiceError
_TooManyApplicationVersionsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyApplicationVersionsException"
_TooManyApplicationsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyApplicationsException :: forall a. AsError a => Fold a ServiceError
_TooManyApplicationsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyApplicationsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyBucketsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyBucketsException :: forall a. AsError a => Fold a ServiceError
_TooManyBucketsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyBucketsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyConfigurationTemplatesException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyConfigurationTemplatesException :: forall a. AsError a => Fold a ServiceError
_TooManyConfigurationTemplatesException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyConfigurationTemplatesException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyEnvironmentsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyEnvironmentsException :: forall a. AsError a => Fold a ServiceError
_TooManyEnvironmentsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyEnvironmentsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyPlatformsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyPlatformsException :: forall a. AsError a => Fold a ServiceError
_TooManyPlatformsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyPlatformsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400
_TooManyTagsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyTagsException :: forall a. AsError a => Fold a ServiceError
_TooManyTagsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyTagsException"
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (p :: * -> * -> *).
(Applicative f, Choice p) =>
Int -> Optic' p f ServiceError ServiceError
Core.hasStatus Int
400