{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.SageMakerGeoSpatial.Types
(
defaultService,
_AccessDeniedException,
_ConflictException,
_InternalServerException,
_ResourceNotFoundException,
_ServiceQuotaExceededException,
_ThrottlingException,
_ValidationException,
AlgorithmNameCloudRemoval (..),
AlgorithmNameGeoMosaic (..),
AlgorithmNameResampling (..),
ComparisonOperator (..),
DataCollectionType (..),
EarthObservationJobErrorType (..),
EarthObservationJobExportStatus (..),
EarthObservationJobStatus (..),
ExportErrorType (..),
GroupBy (..),
LogicalOperator (..),
MetadataProvider (..),
OutputType (..),
PredefinedResolution (..),
SortOrder (..),
TargetOptions (..),
TemporalStatistics (..),
Unit (..),
VectorEnrichmentJobDocumentType (..),
VectorEnrichmentJobErrorType (..),
VectorEnrichmentJobExportErrorType (..),
VectorEnrichmentJobExportStatus (..),
VectorEnrichmentJobStatus (..),
VectorEnrichmentJobType (..),
ZonalStatistics (..),
AreaOfInterest (..),
newAreaOfInterest,
areaOfInterest_areaOfInterestGeometry,
AreaOfInterestGeometry (..),
newAreaOfInterestGeometry,
areaOfInterestGeometry_multiPolygonGeometry,
areaOfInterestGeometry_polygonGeometry,
AssetValue (..),
newAssetValue,
assetValue_href,
BandMathConfigInput (..),
newBandMathConfigInput,
bandMathConfigInput_customIndices,
bandMathConfigInput_predefinedIndices,
CloudMaskingConfigInput (..),
newCloudMaskingConfigInput,
CloudRemovalConfigInput (..),
newCloudRemovalConfigInput,
cloudRemovalConfigInput_algorithmName,
cloudRemovalConfigInput_interpolationValue,
cloudRemovalConfigInput_targetBands,
CustomIndicesInput (..),
newCustomIndicesInput,
customIndicesInput_operations,
EarthObservationJobErrorDetails (..),
newEarthObservationJobErrorDetails,
earthObservationJobErrorDetails_message,
earthObservationJobErrorDetails_type,
EoCloudCoverInput (..),
newEoCloudCoverInput,
eoCloudCoverInput_lowerBound,
eoCloudCoverInput_upperBound,
EojDataSourceConfigInput (..),
newEojDataSourceConfigInput,
eojDataSourceConfigInput_s3Data,
ExportErrorDetails (..),
newExportErrorDetails,
exportErrorDetails_exportResults,
exportErrorDetails_exportSourceImages,
ExportErrorDetailsOutput (..),
newExportErrorDetailsOutput,
exportErrorDetailsOutput_message,
exportErrorDetailsOutput_type,
ExportS3DataInput (..),
newExportS3DataInput,
exportS3DataInput_kmsKeyId,
exportS3DataInput_s3Uri,
ExportVectorEnrichmentJobOutputConfig (..),
newExportVectorEnrichmentJobOutputConfig,
exportVectorEnrichmentJobOutputConfig_s3Data,
Filter (..),
newFilter,
filter_maximum,
filter_minimum,
filter_name,
filter_type,
GeoMosaicConfigInput (..),
newGeoMosaicConfigInput,
geoMosaicConfigInput_algorithmName,
geoMosaicConfigInput_targetBands,
Geometry (..),
newGeometry,
geometry_coordinates,
geometry_type,
InputConfigInput (..),
newInputConfigInput,
inputConfigInput_dataSourceConfig,
inputConfigInput_previousEarthObservationJobArn,
inputConfigInput_rasterDataCollectionQuery,
InputConfigOutput (..),
newInputConfigOutput,
inputConfigOutput_dataSourceConfig,
inputConfigOutput_previousEarthObservationJobArn,
inputConfigOutput_rasterDataCollectionQuery,
ItemSource (..),
newItemSource,
itemSource_assets,
itemSource_properties,
itemSource_dateTime,
itemSource_geometry,
itemSource_id,
JobConfigInput (..),
newJobConfigInput,
jobConfigInput_bandMathConfig,
jobConfigInput_cloudMaskingConfig,
jobConfigInput_cloudRemovalConfig,
jobConfigInput_geoMosaicConfig,
jobConfigInput_landCoverSegmentationConfig,
jobConfigInput_resamplingConfig,
jobConfigInput_stackConfig,
jobConfigInput_temporalStatisticsConfig,
jobConfigInput_zonalStatisticsConfig,
LandCoverSegmentationConfigInput (..),
newLandCoverSegmentationConfigInput,
LandsatCloudCoverLandInput (..),
newLandsatCloudCoverLandInput,
landsatCloudCoverLandInput_lowerBound,
landsatCloudCoverLandInput_upperBound,
ListEarthObservationJobOutputConfig (..),
newListEarthObservationJobOutputConfig,
listEarthObservationJobOutputConfig_tags,
listEarthObservationJobOutputConfig_arn,
listEarthObservationJobOutputConfig_creationTime,
listEarthObservationJobOutputConfig_durationInSeconds,
listEarthObservationJobOutputConfig_name,
listEarthObservationJobOutputConfig_operationType,
listEarthObservationJobOutputConfig_status,
ListVectorEnrichmentJobOutputConfig (..),
newListVectorEnrichmentJobOutputConfig,
listVectorEnrichmentJobOutputConfig_tags,
listVectorEnrichmentJobOutputConfig_arn,
listVectorEnrichmentJobOutputConfig_creationTime,
listVectorEnrichmentJobOutputConfig_durationInSeconds,
listVectorEnrichmentJobOutputConfig_name,
listVectorEnrichmentJobOutputConfig_status,
listVectorEnrichmentJobOutputConfig_type,
MapMatchingConfig (..),
newMapMatchingConfig,
mapMatchingConfig_idAttributeName,
mapMatchingConfig_timestampAttributeName,
mapMatchingConfig_xAttributeName,
mapMatchingConfig_yAttributeName,
MultiPolygonGeometryInput (..),
newMultiPolygonGeometryInput,
multiPolygonGeometryInput_coordinates,
Operation (..),
newOperation,
operation_outputType,
operation_equation,
operation_name,
OutputBand (..),
newOutputBand,
outputBand_bandName,
outputBand_outputDataType,
OutputConfigInput (..),
newOutputConfigInput,
outputConfigInput_s3Data,
OutputResolutionResamplingInput (..),
newOutputResolutionResamplingInput,
outputResolutionResamplingInput_userDefined,
OutputResolutionStackInput (..),
newOutputResolutionStackInput,
outputResolutionStackInput_predefined,
outputResolutionStackInput_userDefined,
PlatformInput (..),
newPlatformInput,
platformInput_comparisonOperator,
platformInput_value,
PolygonGeometryInput (..),
newPolygonGeometryInput,
polygonGeometryInput_coordinates,
Properties (..),
newProperties,
properties_eoCloudCover,
properties_landsatCloudCoverLand,
properties_platform,
properties_viewOffNadir,
properties_viewSunAzimuth,
properties_viewSunElevation,
Property (..),
newProperty,
property_eoCloudCover,
property_landsatCloudCoverLand,
property_platform,
property_viewOffNadir,
property_viewSunAzimuth,
property_viewSunElevation,
PropertyFilter (..),
newPropertyFilter,
propertyFilter_property,
PropertyFilters (..),
newPropertyFilters,
propertyFilters_logicalOperator,
propertyFilters_properties,
RasterDataCollectionMetadata (..),
newRasterDataCollectionMetadata,
rasterDataCollectionMetadata_descriptionPageUrl,
rasterDataCollectionMetadata_tags,
rasterDataCollectionMetadata_arn,
rasterDataCollectionMetadata_description,
rasterDataCollectionMetadata_name,
rasterDataCollectionMetadata_supportedFilters,
rasterDataCollectionMetadata_type,
RasterDataCollectionQueryInput (..),
newRasterDataCollectionQueryInput,
rasterDataCollectionQueryInput_areaOfInterest,
rasterDataCollectionQueryInput_propertyFilters,
rasterDataCollectionQueryInput_rasterDataCollectionArn,
rasterDataCollectionQueryInput_timeRangeFilter,
RasterDataCollectionQueryOutput (..),
newRasterDataCollectionQueryOutput,
rasterDataCollectionQueryOutput_areaOfInterest,
rasterDataCollectionQueryOutput_propertyFilters,
rasterDataCollectionQueryOutput_rasterDataCollectionArn,
rasterDataCollectionQueryOutput_rasterDataCollectionName,
rasterDataCollectionQueryOutput_timeRangeFilter,
RasterDataCollectionQueryWithBandFilterInput (..),
newRasterDataCollectionQueryWithBandFilterInput,
rasterDataCollectionQueryWithBandFilterInput_areaOfInterest,
rasterDataCollectionQueryWithBandFilterInput_bandFilter,
rasterDataCollectionQueryWithBandFilterInput_propertyFilters,
rasterDataCollectionQueryWithBandFilterInput_timeRangeFilter,
ResamplingConfigInput (..),
newResamplingConfigInput,
resamplingConfigInput_algorithmName,
resamplingConfigInput_targetBands,
resamplingConfigInput_outputResolution,
ReverseGeocodingConfig (..),
newReverseGeocodingConfig,
reverseGeocodingConfig_xAttributeName,
reverseGeocodingConfig_yAttributeName,
S3DataInput (..),
newS3DataInput,
s3DataInput_kmsKeyId,
s3DataInput_metadataProvider,
s3DataInput_s3Uri,
StackConfigInput (..),
newStackConfigInput,
stackConfigInput_outputResolution,
stackConfigInput_targetBands,
TemporalStatisticsConfigInput (..),
newTemporalStatisticsConfigInput,
temporalStatisticsConfigInput_groupBy,
temporalStatisticsConfigInput_targetBands,
temporalStatisticsConfigInput_statistics,
TimeRangeFilterInput (..),
newTimeRangeFilterInput,
timeRangeFilterInput_endTime,
timeRangeFilterInput_startTime,
UserDefined (..),
newUserDefined,
userDefined_unit,
userDefined_value,
VectorEnrichmentJobConfig (..),
newVectorEnrichmentJobConfig,
vectorEnrichmentJobConfig_mapMatchingConfig,
vectorEnrichmentJobConfig_reverseGeocodingConfig,
VectorEnrichmentJobDataSourceConfigInput (..),
newVectorEnrichmentJobDataSourceConfigInput,
vectorEnrichmentJobDataSourceConfigInput_s3Data,
VectorEnrichmentJobErrorDetails (..),
newVectorEnrichmentJobErrorDetails,
vectorEnrichmentJobErrorDetails_errorMessage,
vectorEnrichmentJobErrorDetails_errorType,
VectorEnrichmentJobExportErrorDetails (..),
newVectorEnrichmentJobExportErrorDetails,
vectorEnrichmentJobExportErrorDetails_message,
vectorEnrichmentJobExportErrorDetails_type,
VectorEnrichmentJobInputConfig (..),
newVectorEnrichmentJobInputConfig,
vectorEnrichmentJobInputConfig_dataSourceConfig,
vectorEnrichmentJobInputConfig_documentType,
VectorEnrichmentJobS3Data (..),
newVectorEnrichmentJobS3Data,
vectorEnrichmentJobS3Data_kmsKeyId,
vectorEnrichmentJobS3Data_s3Uri,
ViewOffNadirInput (..),
newViewOffNadirInput,
viewOffNadirInput_lowerBound,
viewOffNadirInput_upperBound,
ViewSunAzimuthInput (..),
newViewSunAzimuthInput,
viewSunAzimuthInput_lowerBound,
viewSunAzimuthInput_upperBound,
ViewSunElevationInput (..),
newViewSunElevationInput,
viewSunElevationInput_lowerBound,
viewSunElevationInput_upperBound,
ZonalStatisticsConfigInput (..),
newZonalStatisticsConfigInput,
zonalStatisticsConfigInput_targetBands,
zonalStatisticsConfigInput_statistics,
zonalStatisticsConfigInput_zoneS3Path,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Prelude as Prelude
import Amazonka.SageMakerGeoSpatial.Types.AlgorithmNameCloudRemoval
import Amazonka.SageMakerGeoSpatial.Types.AlgorithmNameGeoMosaic
import Amazonka.SageMakerGeoSpatial.Types.AlgorithmNameResampling
import Amazonka.SageMakerGeoSpatial.Types.AreaOfInterest
import Amazonka.SageMakerGeoSpatial.Types.AreaOfInterestGeometry
import Amazonka.SageMakerGeoSpatial.Types.AssetValue
import Amazonka.SageMakerGeoSpatial.Types.BandMathConfigInput
import Amazonka.SageMakerGeoSpatial.Types.CloudMaskingConfigInput
import Amazonka.SageMakerGeoSpatial.Types.CloudRemovalConfigInput
import Amazonka.SageMakerGeoSpatial.Types.ComparisonOperator
import Amazonka.SageMakerGeoSpatial.Types.CustomIndicesInput
import Amazonka.SageMakerGeoSpatial.Types.DataCollectionType
import Amazonka.SageMakerGeoSpatial.Types.EarthObservationJobErrorDetails
import Amazonka.SageMakerGeoSpatial.Types.EarthObservationJobErrorType
import Amazonka.SageMakerGeoSpatial.Types.EarthObservationJobExportStatus
import Amazonka.SageMakerGeoSpatial.Types.EarthObservationJobStatus
import Amazonka.SageMakerGeoSpatial.Types.EoCloudCoverInput
import Amazonka.SageMakerGeoSpatial.Types.EojDataSourceConfigInput
import Amazonka.SageMakerGeoSpatial.Types.ExportErrorDetails
import Amazonka.SageMakerGeoSpatial.Types.ExportErrorDetailsOutput
import Amazonka.SageMakerGeoSpatial.Types.ExportErrorType
import Amazonka.SageMakerGeoSpatial.Types.ExportS3DataInput
import Amazonka.SageMakerGeoSpatial.Types.ExportVectorEnrichmentJobOutputConfig
import Amazonka.SageMakerGeoSpatial.Types.Filter
import Amazonka.SageMakerGeoSpatial.Types.GeoMosaicConfigInput
import Amazonka.SageMakerGeoSpatial.Types.Geometry
import Amazonka.SageMakerGeoSpatial.Types.GroupBy
import Amazonka.SageMakerGeoSpatial.Types.InputConfigInput
import Amazonka.SageMakerGeoSpatial.Types.InputConfigOutput
import Amazonka.SageMakerGeoSpatial.Types.ItemSource
import Amazonka.SageMakerGeoSpatial.Types.JobConfigInput
import Amazonka.SageMakerGeoSpatial.Types.LandCoverSegmentationConfigInput
import Amazonka.SageMakerGeoSpatial.Types.LandsatCloudCoverLandInput
import Amazonka.SageMakerGeoSpatial.Types.ListEarthObservationJobOutputConfig
import Amazonka.SageMakerGeoSpatial.Types.ListVectorEnrichmentJobOutputConfig
import Amazonka.SageMakerGeoSpatial.Types.LogicalOperator
import Amazonka.SageMakerGeoSpatial.Types.MapMatchingConfig
import Amazonka.SageMakerGeoSpatial.Types.MetadataProvider
import Amazonka.SageMakerGeoSpatial.Types.MultiPolygonGeometryInput
import Amazonka.SageMakerGeoSpatial.Types.Operation
import Amazonka.SageMakerGeoSpatial.Types.OutputBand
import Amazonka.SageMakerGeoSpatial.Types.OutputConfigInput
import Amazonka.SageMakerGeoSpatial.Types.OutputResolutionResamplingInput
import Amazonka.SageMakerGeoSpatial.Types.OutputResolutionStackInput
import Amazonka.SageMakerGeoSpatial.Types.OutputType
import Amazonka.SageMakerGeoSpatial.Types.PlatformInput
import Amazonka.SageMakerGeoSpatial.Types.PolygonGeometryInput
import Amazonka.SageMakerGeoSpatial.Types.PredefinedResolution
import Amazonka.SageMakerGeoSpatial.Types.Properties
import Amazonka.SageMakerGeoSpatial.Types.Property
import Amazonka.SageMakerGeoSpatial.Types.PropertyFilter
import Amazonka.SageMakerGeoSpatial.Types.PropertyFilters
import Amazonka.SageMakerGeoSpatial.Types.RasterDataCollectionMetadata
import Amazonka.SageMakerGeoSpatial.Types.RasterDataCollectionQueryInput
import Amazonka.SageMakerGeoSpatial.Types.RasterDataCollectionQueryOutput
import Amazonka.SageMakerGeoSpatial.Types.RasterDataCollectionQueryWithBandFilterInput
import Amazonka.SageMakerGeoSpatial.Types.ResamplingConfigInput
import Amazonka.SageMakerGeoSpatial.Types.ReverseGeocodingConfig
import Amazonka.SageMakerGeoSpatial.Types.S3DataInput
import Amazonka.SageMakerGeoSpatial.Types.SortOrder
import Amazonka.SageMakerGeoSpatial.Types.StackConfigInput
import Amazonka.SageMakerGeoSpatial.Types.TargetOptions
import Amazonka.SageMakerGeoSpatial.Types.TemporalStatistics
import Amazonka.SageMakerGeoSpatial.Types.TemporalStatisticsConfigInput
import Amazonka.SageMakerGeoSpatial.Types.TimeRangeFilterInput
import Amazonka.SageMakerGeoSpatial.Types.Unit
import Amazonka.SageMakerGeoSpatial.Types.UserDefined
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobConfig
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobDataSourceConfigInput
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobDocumentType
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobErrorDetails
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobErrorType
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobExportErrorDetails
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobExportErrorType
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobExportStatus
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobInputConfig
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobS3Data
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobStatus
import Amazonka.SageMakerGeoSpatial.Types.VectorEnrichmentJobType
import Amazonka.SageMakerGeoSpatial.Types.ViewOffNadirInput
import Amazonka.SageMakerGeoSpatial.Types.ViewSunAzimuthInput
import Amazonka.SageMakerGeoSpatial.Types.ViewSunElevationInput
import Amazonka.SageMakerGeoSpatial.Types.ZonalStatistics
import Amazonka.SageMakerGeoSpatial.Types.ZonalStatisticsConfigInput
import qualified Amazonka.Sign.V4 as Sign
defaultService :: Core.Service
defaultService :: Service
defaultService =
Core.Service
{ $sel:abbrev:Service :: Abbrev
Core.abbrev = Abbrev
"SageMakerGeoSpatial",
$sel:signer:Service :: Signer
Core.signer = Signer
Sign.v4,
$sel:endpointPrefix:Service :: ByteString
Core.endpointPrefix = ByteString
"sagemaker-geospatial",
$sel:signingName:Service :: ByteString
Core.signingName = ByteString
"sagemaker-geospatial",
$sel:version:Service :: ByteString
Core.version = ByteString
"2020-05-27",
$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
"SageMakerGeoSpatial",
$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
_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
_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