{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.Proton.Types
(
defaultService,
_ValidationException,
_AccessDeniedException,
_ConflictException,
_ServiceQuotaExceededException,
_ThrottlingException,
_InternalServerException,
_ResourceNotFoundException,
DeploymentStatus (..),
DeploymentUpdateType (..),
EnvironmentAccountConnectionRequesterAccountType (..),
EnvironmentAccountConnectionStatus (..),
Provisioning (..),
ServiceStatus (..),
TemplateVersionStatus (..),
AccountSettings (..),
newAccountSettings,
accountSettings_pipelineServiceRoleArn,
CompatibleEnvironmentTemplate (..),
newCompatibleEnvironmentTemplate,
compatibleEnvironmentTemplate_majorVersion,
compatibleEnvironmentTemplate_templateName,
CompatibleEnvironmentTemplateInput (..),
newCompatibleEnvironmentTemplateInput,
compatibleEnvironmentTemplateInput_majorVersion,
compatibleEnvironmentTemplateInput_templateName,
Environment (..),
newEnvironment,
environment_deploymentStatusMessage,
environment_environmentAccountId,
environment_provisioning,
environment_protonServiceRoleArn,
environment_environmentAccountConnectionId,
environment_spec,
environment_description,
environment_arn,
environment_createdAt,
environment_deploymentStatus,
environment_lastDeploymentAttemptedAt,
environment_lastDeploymentSucceededAt,
environment_name,
environment_templateMajorVersion,
environment_templateMinorVersion,
environment_templateName,
EnvironmentAccountConnection (..),
newEnvironmentAccountConnection,
environmentAccountConnection_arn,
environmentAccountConnection_environmentAccountId,
environmentAccountConnection_environmentName,
environmentAccountConnection_id,
environmentAccountConnection_lastModifiedAt,
environmentAccountConnection_managementAccountId,
environmentAccountConnection_requestedAt,
environmentAccountConnection_roleArn,
environmentAccountConnection_status,
EnvironmentAccountConnectionSummary (..),
newEnvironmentAccountConnectionSummary,
environmentAccountConnectionSummary_arn,
environmentAccountConnectionSummary_environmentAccountId,
environmentAccountConnectionSummary_environmentName,
environmentAccountConnectionSummary_id,
environmentAccountConnectionSummary_lastModifiedAt,
environmentAccountConnectionSummary_managementAccountId,
environmentAccountConnectionSummary_requestedAt,
environmentAccountConnectionSummary_roleArn,
environmentAccountConnectionSummary_status,
EnvironmentSummary (..),
newEnvironmentSummary,
environmentSummary_deploymentStatusMessage,
environmentSummary_environmentAccountId,
environmentSummary_provisioning,
environmentSummary_protonServiceRoleArn,
environmentSummary_environmentAccountConnectionId,
environmentSummary_description,
environmentSummary_arn,
environmentSummary_createdAt,
environmentSummary_deploymentStatus,
environmentSummary_lastDeploymentAttemptedAt,
environmentSummary_lastDeploymentSucceededAt,
environmentSummary_name,
environmentSummary_templateMajorVersion,
environmentSummary_templateMinorVersion,
environmentSummary_templateName,
EnvironmentTemplate (..),
newEnvironmentTemplate,
environmentTemplate_provisioning,
environmentTemplate_recommendedVersion,
environmentTemplate_displayName,
environmentTemplate_encryptionKey,
environmentTemplate_description,
environmentTemplate_arn,
environmentTemplate_createdAt,
environmentTemplate_lastModifiedAt,
environmentTemplate_name,
EnvironmentTemplateFilter (..),
newEnvironmentTemplateFilter,
environmentTemplateFilter_majorVersion,
environmentTemplateFilter_templateName,
EnvironmentTemplateSummary (..),
newEnvironmentTemplateSummary,
environmentTemplateSummary_provisioning,
environmentTemplateSummary_recommendedVersion,
environmentTemplateSummary_displayName,
environmentTemplateSummary_description,
environmentTemplateSummary_arn,
environmentTemplateSummary_createdAt,
environmentTemplateSummary_lastModifiedAt,
environmentTemplateSummary_name,
EnvironmentTemplateVersion (..),
newEnvironmentTemplateVersion,
environmentTemplateVersion_schema,
environmentTemplateVersion_statusMessage,
environmentTemplateVersion_recommendedMinorVersion,
environmentTemplateVersion_description,
environmentTemplateVersion_arn,
environmentTemplateVersion_createdAt,
environmentTemplateVersion_lastModifiedAt,
environmentTemplateVersion_majorVersion,
environmentTemplateVersion_minorVersion,
environmentTemplateVersion_status,
environmentTemplateVersion_templateName,
EnvironmentTemplateVersionSummary (..),
newEnvironmentTemplateVersionSummary,
environmentTemplateVersionSummary_statusMessage,
environmentTemplateVersionSummary_recommendedMinorVersion,
environmentTemplateVersionSummary_description,
environmentTemplateVersionSummary_arn,
environmentTemplateVersionSummary_createdAt,
environmentTemplateVersionSummary_lastModifiedAt,
environmentTemplateVersionSummary_majorVersion,
environmentTemplateVersionSummary_minorVersion,
environmentTemplateVersionSummary_status,
environmentTemplateVersionSummary_templateName,
S3ObjectSource (..),
newS3ObjectSource,
s3ObjectSource_bucket,
s3ObjectSource_key,
Service (..),
newService,
service_branchName,
service_statusMessage,
service_repositoryId,
service_pipeline,
service_description,
service_repositoryConnectionArn,
service_arn,
service_createdAt,
service_lastModifiedAt,
service_name,
service_spec,
service_status,
service_templateName,
ServiceInstance (..),
newServiceInstance,
serviceInstance_deploymentStatusMessage,
serviceInstance_spec,
serviceInstance_arn,
serviceInstance_createdAt,
serviceInstance_deploymentStatus,
serviceInstance_environmentName,
serviceInstance_lastDeploymentAttemptedAt,
serviceInstance_lastDeploymentSucceededAt,
serviceInstance_name,
serviceInstance_serviceName,
serviceInstance_templateMajorVersion,
serviceInstance_templateMinorVersion,
serviceInstance_templateName,
ServiceInstanceSummary (..),
newServiceInstanceSummary,
serviceInstanceSummary_deploymentStatusMessage,
serviceInstanceSummary_arn,
serviceInstanceSummary_createdAt,
serviceInstanceSummary_deploymentStatus,
serviceInstanceSummary_environmentName,
serviceInstanceSummary_lastDeploymentAttemptedAt,
serviceInstanceSummary_lastDeploymentSucceededAt,
serviceInstanceSummary_name,
serviceInstanceSummary_serviceName,
serviceInstanceSummary_templateMajorVersion,
serviceInstanceSummary_templateMinorVersion,
serviceInstanceSummary_templateName,
ServicePipeline (..),
newServicePipeline,
servicePipeline_deploymentStatusMessage,
servicePipeline_spec,
servicePipeline_arn,
servicePipeline_createdAt,
servicePipeline_deploymentStatus,
servicePipeline_lastDeploymentAttemptedAt,
servicePipeline_lastDeploymentSucceededAt,
servicePipeline_templateMajorVersion,
servicePipeline_templateMinorVersion,
servicePipeline_templateName,
ServiceSummary (..),
newServiceSummary,
serviceSummary_statusMessage,
serviceSummary_description,
serviceSummary_arn,
serviceSummary_createdAt,
serviceSummary_lastModifiedAt,
serviceSummary_name,
serviceSummary_status,
serviceSummary_templateName,
ServiceTemplate (..),
newServiceTemplate,
serviceTemplate_recommendedVersion,
serviceTemplate_displayName,
serviceTemplate_encryptionKey,
serviceTemplate_pipelineProvisioning,
serviceTemplate_description,
serviceTemplate_arn,
serviceTemplate_createdAt,
serviceTemplate_lastModifiedAt,
serviceTemplate_name,
ServiceTemplateSummary (..),
newServiceTemplateSummary,
serviceTemplateSummary_recommendedVersion,
serviceTemplateSummary_displayName,
serviceTemplateSummary_pipelineProvisioning,
serviceTemplateSummary_description,
serviceTemplateSummary_arn,
serviceTemplateSummary_createdAt,
serviceTemplateSummary_lastModifiedAt,
serviceTemplateSummary_name,
ServiceTemplateVersion (..),
newServiceTemplateVersion,
serviceTemplateVersion_schema,
serviceTemplateVersion_statusMessage,
serviceTemplateVersion_recommendedMinorVersion,
serviceTemplateVersion_description,
serviceTemplateVersion_arn,
serviceTemplateVersion_compatibleEnvironmentTemplates,
serviceTemplateVersion_createdAt,
serviceTemplateVersion_lastModifiedAt,
serviceTemplateVersion_majorVersion,
serviceTemplateVersion_minorVersion,
serviceTemplateVersion_status,
serviceTemplateVersion_templateName,
ServiceTemplateVersionSummary (..),
newServiceTemplateVersionSummary,
serviceTemplateVersionSummary_statusMessage,
serviceTemplateVersionSummary_recommendedMinorVersion,
serviceTemplateVersionSummary_description,
serviceTemplateVersionSummary_arn,
serviceTemplateVersionSummary_createdAt,
serviceTemplateVersionSummary_lastModifiedAt,
serviceTemplateVersionSummary_majorVersion,
serviceTemplateVersionSummary_minorVersion,
serviceTemplateVersionSummary_status,
serviceTemplateVersionSummary_templateName,
Tag (..),
newTag,
tag_key,
tag_value,
TemplateVersionSourceInput (..),
newTemplateVersionSourceInput,
templateVersionSourceInput_s3,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Lens as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.Proton.Types.AccountSettings
import Amazonka.Proton.Types.CompatibleEnvironmentTemplate
import Amazonka.Proton.Types.CompatibleEnvironmentTemplateInput
import Amazonka.Proton.Types.DeploymentStatus
import Amazonka.Proton.Types.DeploymentUpdateType
import Amazonka.Proton.Types.Environment
import Amazonka.Proton.Types.EnvironmentAccountConnection
import Amazonka.Proton.Types.EnvironmentAccountConnectionRequesterAccountType
import Amazonka.Proton.Types.EnvironmentAccountConnectionStatus
import Amazonka.Proton.Types.EnvironmentAccountConnectionSummary
import Amazonka.Proton.Types.EnvironmentSummary
import Amazonka.Proton.Types.EnvironmentTemplate
import Amazonka.Proton.Types.EnvironmentTemplateFilter
import Amazonka.Proton.Types.EnvironmentTemplateSummary
import Amazonka.Proton.Types.EnvironmentTemplateVersion
import Amazonka.Proton.Types.EnvironmentTemplateVersionSummary
import Amazonka.Proton.Types.Provisioning
import Amazonka.Proton.Types.S3ObjectSource
import Amazonka.Proton.Types.Service
import Amazonka.Proton.Types.ServiceInstance
import Amazonka.Proton.Types.ServiceInstanceSummary
import Amazonka.Proton.Types.ServicePipeline
import Amazonka.Proton.Types.ServiceStatus
import Amazonka.Proton.Types.ServiceSummary
import Amazonka.Proton.Types.ServiceTemplate
import Amazonka.Proton.Types.ServiceTemplateSummary
import Amazonka.Proton.Types.ServiceTemplateVersion
import Amazonka.Proton.Types.ServiceTemplateVersionSummary
import Amazonka.Proton.Types.Tag
import Amazonka.Proton.Types.TemplateVersionSourceInput
import Amazonka.Proton.Types.TemplateVersionStatus
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
"Proton",
$sel:_serviceSigner:Service :: Signer
Core._serviceSigner = Signer
Sign.v4,
$sel:_serviceEndpointPrefix:Service :: ByteString
Core._serviceEndpointPrefix = ByteString
"proton",
$sel:_serviceSigningName:Service :: ByteString
Core._serviceSigningName = ByteString
"proton",
$sel:_serviceVersion:Service :: ByteString
Core._serviceVersion = ByteString
"2020-07-20",
$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.parseJSONError Abbrev
"Proton",
$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
_ValidationException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ValidationException :: Getting (First ServiceError) a ServiceError
_ValidationException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ValidationException"
_AccessDeniedException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_AccessDeniedException :: Getting (First ServiceError) a ServiceError
_AccessDeniedException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AccessDeniedException"
_ConflictException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ConflictException :: Getting (First ServiceError) a ServiceError
_ConflictException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ConflictException"
_ServiceQuotaExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ServiceQuotaExceededException :: Getting (First ServiceError) a ServiceError
_ServiceQuotaExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceQuotaExceededException"
_ThrottlingException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ThrottlingException :: Getting (First ServiceError) a ServiceError
_ThrottlingException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ThrottlingException"
_InternalServerException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InternalServerException :: Getting (First ServiceError) a ServiceError
_InternalServerException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalServerException"
_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"