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