{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MigrationHubStrategy.Types
(
defaultService,
_AccessDeniedException,
_ConflictException,
_DependencyException,
_InternalServerException,
_ResourceNotFoundException,
_ServiceLinkedRoleLockClientException,
_ServiceQuotaExceededException,
_ThrottlingException,
_ValidationException,
AntipatternReportStatus (..),
AppType (..),
AppUnitErrorCategory (..),
ApplicationComponentCriteria (..),
ApplicationMode (..),
AssessmentStatus (..),
AuthType (..),
AwsManagedTargetDestination (..),
CollectorHealth (..),
Condition (..),
DataSourceType (..),
DatabaseManagementPreference (..),
GroupName (..),
HeterogeneousTargetDatabaseEngine (..),
HomogeneousTargetDatabaseEngine (..),
ImportFileTaskStatus (..),
InclusionStatus (..),
NoPreferenceTargetDestination (..),
OSType (..),
OutputFormat (..),
PipelineType (..),
RecommendationReportStatus (..),
ResourceSubType (..),
RunTimeAssessmentStatus (..),
RuntimeAnalysisStatus (..),
SelfManageTargetDestination (..),
ServerCriteria (..),
ServerErrorCategory (..),
ServerOsType (..),
Severity (..),
SortOrder (..),
SrcCodeOrDbAnalysisStatus (..),
Strategy (..),
StrategyRecommendation (..),
TargetDatabaseEngine (..),
TargetDestination (..),
TransformationToolName (..),
VersionControl (..),
VersionControlType (..),
AntipatternSeveritySummary (..),
newAntipatternSeveritySummary,
antipatternSeveritySummary_count,
antipatternSeveritySummary_severity,
AppUnitError (..),
newAppUnitError,
appUnitError_appUnitErrorCategory,
ApplicationComponentDetail (..),
newApplicationComponentDetail,
applicationComponentDetail_analysisStatus,
applicationComponentDetail_antipatternReportS3Object,
applicationComponentDetail_antipatternReportStatus,
applicationComponentDetail_antipatternReportStatusMessage,
applicationComponentDetail_appType,
applicationComponentDetail_appUnitError,
applicationComponentDetail_associatedServerId,
applicationComponentDetail_databaseConfigDetail,
applicationComponentDetail_id,
applicationComponentDetail_inclusionStatus,
applicationComponentDetail_lastAnalyzedTimestamp,
applicationComponentDetail_listAntipatternSeveritySummary,
applicationComponentDetail_moreServerAssociationExists,
applicationComponentDetail_name,
applicationComponentDetail_osDriver,
applicationComponentDetail_osVersion,
applicationComponentDetail_recommendationSet,
applicationComponentDetail_resourceSubType,
applicationComponentDetail_runtimeStatus,
applicationComponentDetail_runtimeStatusMessage,
applicationComponentDetail_sourceCodeRepositories,
applicationComponentDetail_statusMessage,
ApplicationComponentStatusSummary (..),
newApplicationComponentStatusSummary,
applicationComponentStatusSummary_count,
applicationComponentStatusSummary_srcCodeOrDbAnalysisStatus,
ApplicationComponentStrategy (..),
newApplicationComponentStrategy,
applicationComponentStrategy_isPreferred,
applicationComponentStrategy_recommendation,
applicationComponentStrategy_status,
ApplicationComponentSummary (..),
newApplicationComponentSummary,
applicationComponentSummary_appType,
applicationComponentSummary_count,
ApplicationPreferences (..),
newApplicationPreferences,
applicationPreferences_managementPreference,
AssessmentSummary (..),
newAssessmentSummary,
assessmentSummary_antipatternReportS3Object,
assessmentSummary_antipatternReportStatus,
assessmentSummary_antipatternReportStatusMessage,
assessmentSummary_lastAnalyzedTimestamp,
assessmentSummary_listAntipatternSeveritySummary,
assessmentSummary_listApplicationComponentStatusSummary,
assessmentSummary_listApplicationComponentStrategySummary,
assessmentSummary_listApplicationComponentSummary,
assessmentSummary_listServerStatusSummary,
assessmentSummary_listServerStrategySummary,
assessmentSummary_listServerSummary,
AssessmentTarget (..),
newAssessmentTarget,
assessmentTarget_condition,
assessmentTarget_name,
assessmentTarget_values,
AssociatedApplication (..),
newAssociatedApplication,
associatedApplication_id,
associatedApplication_name,
AwsManagedResources (..),
newAwsManagedResources,
awsManagedResources_targetDestination,
BusinessGoals (..),
newBusinessGoals,
businessGoals_licenseCostReduction,
businessGoals_modernizeInfrastructureWithCloudNativeTechnologies,
businessGoals_reduceOperationalOverheadWithManagedServices,
businessGoals_speedOfMigration,
Collector (..),
newCollector,
collector_collectorHealth,
collector_collectorId,
collector_collectorVersion,
collector_configurationSummary,
collector_hostName,
collector_ipAddress,
collector_lastActivityTimeStamp,
collector_registeredTimeStamp,
ConfigurationSummary (..),
newConfigurationSummary,
configurationSummary_ipAddressBasedRemoteInfoList,
configurationSummary_pipelineInfoList,
configurationSummary_remoteSourceCodeAnalysisServerInfo,
configurationSummary_vcenterBasedRemoteInfoList,
configurationSummary_versionControlInfoList,
DataCollectionDetails (..),
newDataCollectionDetails,
dataCollectionDetails_completionTime,
dataCollectionDetails_failed,
dataCollectionDetails_inProgress,
dataCollectionDetails_servers,
dataCollectionDetails_startTime,
dataCollectionDetails_status,
dataCollectionDetails_statusMessage,
dataCollectionDetails_success,
DatabaseConfigDetail (..),
newDatabaseConfigDetail,
databaseConfigDetail_secretName,
DatabaseMigrationPreference (..),
newDatabaseMigrationPreference,
databaseMigrationPreference_heterogeneous,
databaseMigrationPreference_homogeneous,
databaseMigrationPreference_noPreference,
DatabasePreferences (..),
newDatabasePreferences,
databasePreferences_databaseManagementPreference,
databasePreferences_databaseMigrationPreference,
Group (..),
newGroup,
group_name,
group_value,
Heterogeneous (..),
newHeterogeneous,
heterogeneous_targetDatabaseEngine,
Homogeneous (..),
newHomogeneous,
homogeneous_targetDatabaseEngine,
IPAddressBasedRemoteInfo (..),
newIPAddressBasedRemoteInfo,
iPAddressBasedRemoteInfo_authType,
iPAddressBasedRemoteInfo_ipAddressConfigurationTimeStamp,
iPAddressBasedRemoteInfo_osType,
ImportFileTaskInformation (..),
newImportFileTaskInformation,
importFileTaskInformation_completionTime,
importFileTaskInformation_id,
importFileTaskInformation_importName,
importFileTaskInformation_inputS3Bucket,
importFileTaskInformation_inputS3Key,
importFileTaskInformation_numberOfRecordsFailed,
importFileTaskInformation_numberOfRecordsSuccess,
importFileTaskInformation_startTime,
importFileTaskInformation_status,
importFileTaskInformation_statusReportS3Bucket,
importFileTaskInformation_statusReportS3Key,
ManagementPreference (..),
newManagementPreference,
managementPreference_awsManagedResources,
managementPreference_noPreference,
managementPreference_selfManageResources,
NetworkInfo (..),
newNetworkInfo,
networkInfo_interfaceName,
networkInfo_ipAddress,
networkInfo_macAddress,
networkInfo_netMask,
NoDatabaseMigrationPreference (..),
newNoDatabaseMigrationPreference,
noDatabaseMigrationPreference_targetDatabaseEngine,
NoManagementPreference (..),
newNoManagementPreference,
noManagementPreference_targetDestination,
OSInfo (..),
newOSInfo,
oSInfo_type,
oSInfo_version,
PipelineInfo (..),
newPipelineInfo,
pipelineInfo_pipelineConfigurationTimeStamp,
pipelineInfo_pipelineType,
PrioritizeBusinessGoals (..),
newPrioritizeBusinessGoals,
prioritizeBusinessGoals_businessGoals,
RecommendationReportDetails (..),
newRecommendationReportDetails,
recommendationReportDetails_completionTime,
recommendationReportDetails_s3Bucket,
recommendationReportDetails_s3Keys,
recommendationReportDetails_startTime,
recommendationReportDetails_status,
recommendationReportDetails_statusMessage,
RecommendationSet (..),
newRecommendationSet,
recommendationSet_strategy,
recommendationSet_targetDestination,
recommendationSet_transformationTool,
RemoteSourceCodeAnalysisServerInfo (..),
newRemoteSourceCodeAnalysisServerInfo,
remoteSourceCodeAnalysisServerInfo_remoteSourceCodeAnalysisServerConfigurationTimestamp,
S3Object (..),
newS3Object,
s3Object_s3Bucket,
s3Object_s3key,
SelfManageResources (..),
newSelfManageResources,
selfManageResources_targetDestination,
ServerDetail (..),
newServerDetail,
serverDetail_antipatternReportS3Object,
serverDetail_antipatternReportStatus,
serverDetail_antipatternReportStatusMessage,
serverDetail_applicationComponentStrategySummary,
serverDetail_dataCollectionStatus,
serverDetail_id,
serverDetail_lastAnalyzedTimestamp,
serverDetail_listAntipatternSeveritySummary,
serverDetail_name,
serverDetail_recommendationSet,
serverDetail_serverError,
serverDetail_serverType,
serverDetail_statusMessage,
serverDetail_systemInfo,
ServerError (..),
newServerError,
serverError_serverErrorCategory,
ServerStatusSummary (..),
newServerStatusSummary,
serverStatusSummary_count,
serverStatusSummary_runTimeAssessmentStatus,
ServerStrategy (..),
newServerStrategy,
serverStrategy_isPreferred,
serverStrategy_numberOfApplicationComponents,
serverStrategy_recommendation,
serverStrategy_status,
ServerSummary (..),
newServerSummary,
serverSummary_serverOsType,
serverSummary_count,
SourceCode (..),
newSourceCode,
sourceCode_location,
sourceCode_projectName,
sourceCode_sourceVersion,
sourceCode_versionControl,
SourceCodeRepository (..),
newSourceCodeRepository,
sourceCodeRepository_branch,
sourceCodeRepository_projectName,
sourceCodeRepository_repository,
sourceCodeRepository_versionControlType,
StrategyOption (..),
newStrategyOption,
strategyOption_isPreferred,
strategyOption_strategy,
strategyOption_targetDestination,
strategyOption_toolName,
StrategySummary (..),
newStrategySummary,
strategySummary_count,
strategySummary_strategy,
SystemInfo (..),
newSystemInfo,
systemInfo_cpuArchitecture,
systemInfo_fileSystemType,
systemInfo_networkInfoList,
systemInfo_osInfo,
TransformationTool (..),
newTransformationTool,
transformationTool_description,
transformationTool_name,
transformationTool_tranformationToolInstallationLink,
VcenterBasedRemoteInfo (..),
newVcenterBasedRemoteInfo,
vcenterBasedRemoteInfo_osType,
vcenterBasedRemoteInfo_vcenterConfigurationTimeStamp,
VersionControlInfo (..),
newVersionControlInfo,
versionControlInfo_versionControlConfigurationTimeStamp,
versionControlInfo_versionControlType,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import Amazonka.MigrationHubStrategy.Types.AntipatternReportStatus
import Amazonka.MigrationHubStrategy.Types.AntipatternSeveritySummary
import Amazonka.MigrationHubStrategy.Types.AppType
import Amazonka.MigrationHubStrategy.Types.AppUnitError
import Amazonka.MigrationHubStrategy.Types.AppUnitErrorCategory
import Amazonka.MigrationHubStrategy.Types.ApplicationComponentCriteria
import Amazonka.MigrationHubStrategy.Types.ApplicationComponentDetail
import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStatusSummary
import Amazonka.MigrationHubStrategy.Types.ApplicationComponentStrategy
import Amazonka.MigrationHubStrategy.Types.ApplicationComponentSummary
import Amazonka.MigrationHubStrategy.Types.ApplicationMode
import Amazonka.MigrationHubStrategy.Types.ApplicationPreferences
import Amazonka.MigrationHubStrategy.Types.AssessmentStatus
import Amazonka.MigrationHubStrategy.Types.AssessmentSummary
import Amazonka.MigrationHubStrategy.Types.AssessmentTarget
import Amazonka.MigrationHubStrategy.Types.AssociatedApplication
import Amazonka.MigrationHubStrategy.Types.AuthType
import Amazonka.MigrationHubStrategy.Types.AwsManagedResources
import Amazonka.MigrationHubStrategy.Types.AwsManagedTargetDestination
import Amazonka.MigrationHubStrategy.Types.BusinessGoals
import Amazonka.MigrationHubStrategy.Types.Collector
import Amazonka.MigrationHubStrategy.Types.CollectorHealth
import Amazonka.MigrationHubStrategy.Types.Condition
import Amazonka.MigrationHubStrategy.Types.ConfigurationSummary
import Amazonka.MigrationHubStrategy.Types.DataCollectionDetails
import Amazonka.MigrationHubStrategy.Types.DataSourceType
import Amazonka.MigrationHubStrategy.Types.DatabaseConfigDetail
import Amazonka.MigrationHubStrategy.Types.DatabaseManagementPreference
import Amazonka.MigrationHubStrategy.Types.DatabaseMigrationPreference
import Amazonka.MigrationHubStrategy.Types.DatabasePreferences
import Amazonka.MigrationHubStrategy.Types.Group
import Amazonka.MigrationHubStrategy.Types.GroupName
import Amazonka.MigrationHubStrategy.Types.Heterogeneous
import Amazonka.MigrationHubStrategy.Types.HeterogeneousTargetDatabaseEngine
import Amazonka.MigrationHubStrategy.Types.Homogeneous
import Amazonka.MigrationHubStrategy.Types.HomogeneousTargetDatabaseEngine
import Amazonka.MigrationHubStrategy.Types.IPAddressBasedRemoteInfo
import Amazonka.MigrationHubStrategy.Types.ImportFileTaskInformation
import Amazonka.MigrationHubStrategy.Types.ImportFileTaskStatus
import Amazonka.MigrationHubStrategy.Types.InclusionStatus
import Amazonka.MigrationHubStrategy.Types.ManagementPreference
import Amazonka.MigrationHubStrategy.Types.NetworkInfo
import Amazonka.MigrationHubStrategy.Types.NoDatabaseMigrationPreference
import Amazonka.MigrationHubStrategy.Types.NoManagementPreference
import Amazonka.MigrationHubStrategy.Types.NoPreferenceTargetDestination
import Amazonka.MigrationHubStrategy.Types.OSInfo
import Amazonka.MigrationHubStrategy.Types.OSType
import Amazonka.MigrationHubStrategy.Types.OutputFormat
import Amazonka.MigrationHubStrategy.Types.PipelineInfo
import Amazonka.MigrationHubStrategy.Types.PipelineType
import Amazonka.MigrationHubStrategy.Types.PrioritizeBusinessGoals
import Amazonka.MigrationHubStrategy.Types.RecommendationReportDetails
import Amazonka.MigrationHubStrategy.Types.RecommendationReportStatus
import Amazonka.MigrationHubStrategy.Types.RecommendationSet
import Amazonka.MigrationHubStrategy.Types.RemoteSourceCodeAnalysisServerInfo
import Amazonka.MigrationHubStrategy.Types.ResourceSubType
import Amazonka.MigrationHubStrategy.Types.RunTimeAssessmentStatus
import Amazonka.MigrationHubStrategy.Types.RuntimeAnalysisStatus
import Amazonka.MigrationHubStrategy.Types.S3Object
import Amazonka.MigrationHubStrategy.Types.SelfManageResources
import Amazonka.MigrationHubStrategy.Types.SelfManageTargetDestination
import Amazonka.MigrationHubStrategy.Types.ServerCriteria
import Amazonka.MigrationHubStrategy.Types.ServerDetail
import Amazonka.MigrationHubStrategy.Types.ServerError
import Amazonka.MigrationHubStrategy.Types.ServerErrorCategory
import Amazonka.MigrationHubStrategy.Types.ServerOsType
import Amazonka.MigrationHubStrategy.Types.ServerStatusSummary
import Amazonka.MigrationHubStrategy.Types.ServerStrategy
import Amazonka.MigrationHubStrategy.Types.ServerSummary
import Amazonka.MigrationHubStrategy.Types.Severity
import Amazonka.MigrationHubStrategy.Types.SortOrder
import Amazonka.MigrationHubStrategy.Types.SourceCode
import Amazonka.MigrationHubStrategy.Types.SourceCodeRepository
import Amazonka.MigrationHubStrategy.Types.SrcCodeOrDbAnalysisStatus
import Amazonka.MigrationHubStrategy.Types.Strategy
import Amazonka.MigrationHubStrategy.Types.StrategyOption
import Amazonka.MigrationHubStrategy.Types.StrategyRecommendation
import Amazonka.MigrationHubStrategy.Types.StrategySummary
import Amazonka.MigrationHubStrategy.Types.SystemInfo
import Amazonka.MigrationHubStrategy.Types.TargetDatabaseEngine
import Amazonka.MigrationHubStrategy.Types.TargetDestination
import Amazonka.MigrationHubStrategy.Types.TransformationTool
import Amazonka.MigrationHubStrategy.Types.TransformationToolName
import Amazonka.MigrationHubStrategy.Types.VcenterBasedRemoteInfo
import Amazonka.MigrationHubStrategy.Types.VersionControl
import Amazonka.MigrationHubStrategy.Types.VersionControlInfo
import Amazonka.MigrationHubStrategy.Types.VersionControlType
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
"MigrationHubStrategy",
$sel:signer:Service :: Signer
Core.signer = Signer
Sign.v4,
$sel:endpointPrefix:Service :: ByteString
Core.endpointPrefix = ByteString
"migrationhub-strategy",
$sel:signingName:Service :: ByteString
Core.signingName = ByteString
"migrationhub-strategy",
$sel:version:Service :: ByteString
Core.version = ByteString
"2020-02-19",
$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.parseJSONError Abbrev
"MigrationHubStrategy",
$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
_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_AccessDeniedException :: forall a. AsError a => Fold a ServiceError
_AccessDeniedException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AccessDeniedException"
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
_ConflictException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ConflictException :: forall a. AsError a => Fold a ServiceError
_ConflictException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ConflictException"
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
409
_DependencyException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_DependencyException :: forall a. AsError a => Fold a ServiceError
_DependencyException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"DependencyException"
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
500
_InternalServerException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InternalServerException :: forall a. AsError a => Fold a ServiceError
_InternalServerException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalServerException"
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
500
_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
404
_ServiceLinkedRoleLockClientException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ServiceLinkedRoleLockClientException :: forall a. AsError a => Fold a ServiceError
_ServiceLinkedRoleLockClientException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceLinkedRoleLockClientException"
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
_ServiceQuotaExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ServiceQuotaExceededException :: forall a. AsError a => Fold a ServiceError
_ServiceQuotaExceededException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceQuotaExceededException"
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
402
_ThrottlingException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ThrottlingException :: forall a. AsError a => Fold a ServiceError
_ThrottlingException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
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
429
_ValidationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ValidationException :: forall a. AsError a => Fold a ServiceError
_ValidationException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ValidationException"
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