{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.IoTAnalytics.Types
(
defaultService,
_InvalidRequestException,
_ResourceAlreadyExistsException,
_ThrottlingException,
_InternalFailureException,
_ServiceUnavailableException,
_ResourceNotFoundException,
_LimitExceededException,
ChannelStatus (..),
ComputeType (..),
DatasetActionType (..),
DatasetContentState (..),
DatasetStatus (..),
DatastoreStatus (..),
FileFormatType (..),
LoggingLevel (..),
ReprocessingStatus (..),
AddAttributesActivity (..),
newAddAttributesActivity,
addAttributesActivity_next,
addAttributesActivity_name,
addAttributesActivity_attributes,
BatchPutMessageErrorEntry (..),
newBatchPutMessageErrorEntry,
batchPutMessageErrorEntry_errorCode,
batchPutMessageErrorEntry_errorMessage,
batchPutMessageErrorEntry_messageId,
Channel (..),
newChannel,
channel_creationTime,
channel_status,
channel_lastMessageArrivalTime,
channel_arn,
channel_storage,
channel_retentionPeriod,
channel_name,
channel_lastUpdateTime,
ChannelActivity (..),
newChannelActivity,
channelActivity_next,
channelActivity_name,
channelActivity_channelName,
ChannelMessages (..),
newChannelMessages,
channelMessages_s3Paths,
ChannelStatistics (..),
newChannelStatistics,
channelStatistics_size,
ChannelStorage (..),
newChannelStorage,
channelStorage_serviceManagedS3,
channelStorage_customerManagedS3,
ChannelStorageSummary (..),
newChannelStorageSummary,
channelStorageSummary_serviceManagedS3,
channelStorageSummary_customerManagedS3,
ChannelSummary (..),
newChannelSummary,
channelSummary_creationTime,
channelSummary_status,
channelSummary_lastMessageArrivalTime,
channelSummary_channelName,
channelSummary_channelStorage,
channelSummary_lastUpdateTime,
Column (..),
newColumn,
column_name,
column_type,
ContainerDatasetAction (..),
newContainerDatasetAction,
containerDatasetAction_variables,
containerDatasetAction_image,
containerDatasetAction_executionRoleArn,
containerDatasetAction_resourceConfiguration,
CustomerManagedChannelS3Storage (..),
newCustomerManagedChannelS3Storage,
customerManagedChannelS3Storage_keyPrefix,
customerManagedChannelS3Storage_bucket,
customerManagedChannelS3Storage_roleArn,
CustomerManagedChannelS3StorageSummary (..),
newCustomerManagedChannelS3StorageSummary,
customerManagedChannelS3StorageSummary_bucket,
customerManagedChannelS3StorageSummary_keyPrefix,
customerManagedChannelS3StorageSummary_roleArn,
CustomerManagedDatastoreS3Storage (..),
newCustomerManagedDatastoreS3Storage,
customerManagedDatastoreS3Storage_keyPrefix,
customerManagedDatastoreS3Storage_bucket,
customerManagedDatastoreS3Storage_roleArn,
CustomerManagedDatastoreS3StorageSummary (..),
newCustomerManagedDatastoreS3StorageSummary,
customerManagedDatastoreS3StorageSummary_bucket,
customerManagedDatastoreS3StorageSummary_keyPrefix,
customerManagedDatastoreS3StorageSummary_roleArn,
Dataset (..),
newDataset,
dataset_creationTime,
dataset_status,
dataset_versioningConfiguration,
dataset_arn,
dataset_actions,
dataset_triggers,
dataset_retentionPeriod,
dataset_lateDataRules,
dataset_name,
dataset_contentDeliveryRules,
dataset_lastUpdateTime,
DatasetAction (..),
newDatasetAction,
datasetAction_queryAction,
datasetAction_actionName,
datasetAction_containerAction,
DatasetActionSummary (..),
newDatasetActionSummary,
datasetActionSummary_actionName,
datasetActionSummary_actionType,
DatasetContentDeliveryDestination (..),
newDatasetContentDeliveryDestination,
datasetContentDeliveryDestination_s3DestinationConfiguration,
datasetContentDeliveryDestination_iotEventsDestinationConfiguration,
DatasetContentDeliveryRule (..),
newDatasetContentDeliveryRule,
datasetContentDeliveryRule_entryName,
datasetContentDeliveryRule_destination,
DatasetContentStatus (..),
newDatasetContentStatus,
datasetContentStatus_state,
datasetContentStatus_reason,
DatasetContentSummary (..),
newDatasetContentSummary,
datasetContentSummary_creationTime,
datasetContentSummary_status,
datasetContentSummary_scheduleTime,
datasetContentSummary_completionTime,
datasetContentSummary_version,
DatasetContentVersionValue (..),
newDatasetContentVersionValue,
datasetContentVersionValue_datasetName,
DatasetEntry (..),
newDatasetEntry,
datasetEntry_entryName,
datasetEntry_dataURI,
DatasetSummary (..),
newDatasetSummary,
datasetSummary_creationTime,
datasetSummary_status,
datasetSummary_actions,
datasetSummary_triggers,
datasetSummary_datasetName,
datasetSummary_lastUpdateTime,
DatasetTrigger (..),
newDatasetTrigger,
datasetTrigger_dataset,
datasetTrigger_schedule,
Datastore (..),
newDatastore,
datastore_creationTime,
datastore_status,
datastore_lastMessageArrivalTime,
datastore_arn,
datastore_fileFormatConfiguration,
datastore_datastorePartitions,
datastore_storage,
datastore_retentionPeriod,
datastore_name,
datastore_lastUpdateTime,
DatastoreActivity (..),
newDatastoreActivity,
datastoreActivity_name,
datastoreActivity_datastoreName,
DatastoreIotSiteWiseMultiLayerStorage (..),
newDatastoreIotSiteWiseMultiLayerStorage,
datastoreIotSiteWiseMultiLayerStorage_customerManagedS3Storage,
DatastoreIotSiteWiseMultiLayerStorageSummary (..),
newDatastoreIotSiteWiseMultiLayerStorageSummary,
datastoreIotSiteWiseMultiLayerStorageSummary_customerManagedS3Storage,
DatastorePartition (..),
newDatastorePartition,
datastorePartition_attributePartition,
datastorePartition_timestampPartition,
DatastorePartitions (..),
newDatastorePartitions,
datastorePartitions_partitions,
DatastoreStatistics (..),
newDatastoreStatistics,
datastoreStatistics_size,
DatastoreStorage (..),
newDatastoreStorage,
datastoreStorage_serviceManagedS3,
datastoreStorage_customerManagedS3,
datastoreStorage_iotSiteWiseMultiLayerStorage,
DatastoreStorageSummary (..),
newDatastoreStorageSummary,
datastoreStorageSummary_serviceManagedS3,
datastoreStorageSummary_customerManagedS3,
datastoreStorageSummary_iotSiteWiseMultiLayerStorage,
DatastoreSummary (..),
newDatastoreSummary,
datastoreSummary_creationTime,
datastoreSummary_status,
datastoreSummary_lastMessageArrivalTime,
datastoreSummary_datastoreName,
datastoreSummary_datastorePartitions,
datastoreSummary_fileFormatType,
datastoreSummary_lastUpdateTime,
datastoreSummary_datastoreStorage,
DeltaTime (..),
newDeltaTime,
deltaTime_offsetSeconds,
deltaTime_timeExpression,
DeltaTimeSessionWindowConfiguration (..),
newDeltaTimeSessionWindowConfiguration,
deltaTimeSessionWindowConfiguration_timeoutInMinutes,
DeviceRegistryEnrichActivity (..),
newDeviceRegistryEnrichActivity,
deviceRegistryEnrichActivity_next,
deviceRegistryEnrichActivity_name,
deviceRegistryEnrichActivity_attribute,
deviceRegistryEnrichActivity_thingName,
deviceRegistryEnrichActivity_roleArn,
DeviceShadowEnrichActivity (..),
newDeviceShadowEnrichActivity,
deviceShadowEnrichActivity_next,
deviceShadowEnrichActivity_name,
deviceShadowEnrichActivity_attribute,
deviceShadowEnrichActivity_thingName,
deviceShadowEnrichActivity_roleArn,
EstimatedResourceSize (..),
newEstimatedResourceSize,
estimatedResourceSize_estimatedOn,
estimatedResourceSize_estimatedSizeInBytes,
FileFormatConfiguration (..),
newFileFormatConfiguration,
fileFormatConfiguration_jsonConfiguration,
fileFormatConfiguration_parquetConfiguration,
FilterActivity (..),
newFilterActivity,
filterActivity_next,
filterActivity_name,
filterActivity_filter,
GlueConfiguration (..),
newGlueConfiguration,
glueConfiguration_tableName,
glueConfiguration_databaseName,
IotEventsDestinationConfiguration (..),
newIotEventsDestinationConfiguration,
iotEventsDestinationConfiguration_inputName,
iotEventsDestinationConfiguration_roleArn,
IotSiteWiseCustomerManagedDatastoreS3Storage (..),
newIotSiteWiseCustomerManagedDatastoreS3Storage,
iotSiteWiseCustomerManagedDatastoreS3Storage_keyPrefix,
iotSiteWiseCustomerManagedDatastoreS3Storage_bucket,
IotSiteWiseCustomerManagedDatastoreS3StorageSummary (..),
newIotSiteWiseCustomerManagedDatastoreS3StorageSummary,
iotSiteWiseCustomerManagedDatastoreS3StorageSummary_bucket,
iotSiteWiseCustomerManagedDatastoreS3StorageSummary_keyPrefix,
JsonConfiguration (..),
newJsonConfiguration,
LambdaActivity (..),
newLambdaActivity,
lambdaActivity_next,
lambdaActivity_name,
lambdaActivity_lambdaName,
lambdaActivity_batchSize,
LateDataRule (..),
newLateDataRule,
lateDataRule_ruleName,
lateDataRule_ruleConfiguration,
LateDataRuleConfiguration (..),
newLateDataRuleConfiguration,
lateDataRuleConfiguration_deltaTimeSessionWindowConfiguration,
LoggingOptions (..),
newLoggingOptions,
loggingOptions_roleArn,
loggingOptions_level,
loggingOptions_enabled,
MathActivity (..),
newMathActivity,
mathActivity_next,
mathActivity_name,
mathActivity_attribute,
mathActivity_math,
Message (..),
newMessage,
message_messageId,
message_payload,
OutputFileUriValue (..),
newOutputFileUriValue,
outputFileUriValue_fileName,
ParquetConfiguration (..),
newParquetConfiguration,
parquetConfiguration_schemaDefinition,
Partition (..),
newPartition,
partition_attributeName,
Pipeline (..),
newPipeline,
pipeline_creationTime,
pipeline_arn,
pipeline_activities,
pipeline_name,
pipeline_reprocessingSummaries,
pipeline_lastUpdateTime,
PipelineActivity (..),
newPipelineActivity,
pipelineActivity_selectAttributes,
pipelineActivity_channel,
pipelineActivity_addAttributes,
pipelineActivity_deviceRegistryEnrich,
pipelineActivity_removeAttributes,
pipelineActivity_lambda,
pipelineActivity_datastore,
pipelineActivity_deviceShadowEnrich,
pipelineActivity_filter,
pipelineActivity_math,
PipelineSummary (..),
newPipelineSummary,
pipelineSummary_creationTime,
pipelineSummary_pipelineName,
pipelineSummary_reprocessingSummaries,
pipelineSummary_lastUpdateTime,
QueryFilter (..),
newQueryFilter,
queryFilter_deltaTime,
RemoveAttributesActivity (..),
newRemoveAttributesActivity,
removeAttributesActivity_next,
removeAttributesActivity_name,
removeAttributesActivity_attributes,
ReprocessingSummary (..),
newReprocessingSummary,
reprocessingSummary_creationTime,
reprocessingSummary_status,
reprocessingSummary_id,
ResourceConfiguration (..),
newResourceConfiguration,
resourceConfiguration_computeType,
resourceConfiguration_volumeSizeInGB,
RetentionPeriod (..),
newRetentionPeriod,
retentionPeriod_unlimited,
retentionPeriod_numberOfDays,
S3DestinationConfiguration (..),
newS3DestinationConfiguration,
s3DestinationConfiguration_glueConfiguration,
s3DestinationConfiguration_bucket,
s3DestinationConfiguration_key,
s3DestinationConfiguration_roleArn,
Schedule (..),
newSchedule,
schedule_expression,
SchemaDefinition (..),
newSchemaDefinition,
schemaDefinition_columns,
SelectAttributesActivity (..),
newSelectAttributesActivity,
selectAttributesActivity_next,
selectAttributesActivity_name,
selectAttributesActivity_attributes,
ServiceManagedChannelS3Storage (..),
newServiceManagedChannelS3Storage,
ServiceManagedChannelS3StorageSummary (..),
newServiceManagedChannelS3StorageSummary,
ServiceManagedDatastoreS3Storage (..),
newServiceManagedDatastoreS3Storage,
ServiceManagedDatastoreS3StorageSummary (..),
newServiceManagedDatastoreS3StorageSummary,
SqlQueryDatasetAction (..),
newSqlQueryDatasetAction,
sqlQueryDatasetAction_filters,
sqlQueryDatasetAction_sqlQuery,
Tag (..),
newTag,
tag_key,
tag_value,
TimestampPartition (..),
newTimestampPartition,
timestampPartition_timestampFormat,
timestampPartition_attributeName,
TriggeringDataset (..),
newTriggeringDataset,
triggeringDataset_name,
Variable (..),
newVariable,
variable_outputFileUriValue,
variable_doubleValue,
variable_stringValue,
variable_datasetContentVersionValue,
variable_name,
VersioningConfiguration (..),
newVersioningConfiguration,
versioningConfiguration_unlimited,
versioningConfiguration_maxVersions,
)
where
import qualified Amazonka.Core as Core
import Amazonka.IoTAnalytics.Types.AddAttributesActivity
import Amazonka.IoTAnalytics.Types.BatchPutMessageErrorEntry
import Amazonka.IoTAnalytics.Types.Channel
import Amazonka.IoTAnalytics.Types.ChannelActivity
import Amazonka.IoTAnalytics.Types.ChannelMessages
import Amazonka.IoTAnalytics.Types.ChannelStatistics
import Amazonka.IoTAnalytics.Types.ChannelStatus
import Amazonka.IoTAnalytics.Types.ChannelStorage
import Amazonka.IoTAnalytics.Types.ChannelStorageSummary
import Amazonka.IoTAnalytics.Types.ChannelSummary
import Amazonka.IoTAnalytics.Types.Column
import Amazonka.IoTAnalytics.Types.ComputeType
import Amazonka.IoTAnalytics.Types.ContainerDatasetAction
import Amazonka.IoTAnalytics.Types.CustomerManagedChannelS3Storage
import Amazonka.IoTAnalytics.Types.CustomerManagedChannelS3StorageSummary
import Amazonka.IoTAnalytics.Types.CustomerManagedDatastoreS3Storage
import Amazonka.IoTAnalytics.Types.CustomerManagedDatastoreS3StorageSummary
import Amazonka.IoTAnalytics.Types.Dataset
import Amazonka.IoTAnalytics.Types.DatasetAction
import Amazonka.IoTAnalytics.Types.DatasetActionSummary
import Amazonka.IoTAnalytics.Types.DatasetActionType
import Amazonka.IoTAnalytics.Types.DatasetContentDeliveryDestination
import Amazonka.IoTAnalytics.Types.DatasetContentDeliveryRule
import Amazonka.IoTAnalytics.Types.DatasetContentState
import Amazonka.IoTAnalytics.Types.DatasetContentStatus
import Amazonka.IoTAnalytics.Types.DatasetContentSummary
import Amazonka.IoTAnalytics.Types.DatasetContentVersionValue
import Amazonka.IoTAnalytics.Types.DatasetEntry
import Amazonka.IoTAnalytics.Types.DatasetStatus
import Amazonka.IoTAnalytics.Types.DatasetSummary
import Amazonka.IoTAnalytics.Types.DatasetTrigger
import Amazonka.IoTAnalytics.Types.Datastore
import Amazonka.IoTAnalytics.Types.DatastoreActivity
import Amazonka.IoTAnalytics.Types.DatastoreIotSiteWiseMultiLayerStorage
import Amazonka.IoTAnalytics.Types.DatastoreIotSiteWiseMultiLayerStorageSummary
import Amazonka.IoTAnalytics.Types.DatastorePartition
import Amazonka.IoTAnalytics.Types.DatastorePartitions
import Amazonka.IoTAnalytics.Types.DatastoreStatistics
import Amazonka.IoTAnalytics.Types.DatastoreStatus
import Amazonka.IoTAnalytics.Types.DatastoreStorage
import Amazonka.IoTAnalytics.Types.DatastoreStorageSummary
import Amazonka.IoTAnalytics.Types.DatastoreSummary
import Amazonka.IoTAnalytics.Types.DeltaTime
import Amazonka.IoTAnalytics.Types.DeltaTimeSessionWindowConfiguration
import Amazonka.IoTAnalytics.Types.DeviceRegistryEnrichActivity
import Amazonka.IoTAnalytics.Types.DeviceShadowEnrichActivity
import Amazonka.IoTAnalytics.Types.EstimatedResourceSize
import Amazonka.IoTAnalytics.Types.FileFormatConfiguration
import Amazonka.IoTAnalytics.Types.FileFormatType
import Amazonka.IoTAnalytics.Types.FilterActivity
import Amazonka.IoTAnalytics.Types.GlueConfiguration
import Amazonka.IoTAnalytics.Types.IotEventsDestinationConfiguration
import Amazonka.IoTAnalytics.Types.IotSiteWiseCustomerManagedDatastoreS3Storage
import Amazonka.IoTAnalytics.Types.IotSiteWiseCustomerManagedDatastoreS3StorageSummary
import Amazonka.IoTAnalytics.Types.JsonConfiguration
import Amazonka.IoTAnalytics.Types.LambdaActivity
import Amazonka.IoTAnalytics.Types.LateDataRule
import Amazonka.IoTAnalytics.Types.LateDataRuleConfiguration
import Amazonka.IoTAnalytics.Types.LoggingLevel
import Amazonka.IoTAnalytics.Types.LoggingOptions
import Amazonka.IoTAnalytics.Types.MathActivity
import Amazonka.IoTAnalytics.Types.Message
import Amazonka.IoTAnalytics.Types.OutputFileUriValue
import Amazonka.IoTAnalytics.Types.ParquetConfiguration
import Amazonka.IoTAnalytics.Types.Partition
import Amazonka.IoTAnalytics.Types.Pipeline
import Amazonka.IoTAnalytics.Types.PipelineActivity
import Amazonka.IoTAnalytics.Types.PipelineSummary
import Amazonka.IoTAnalytics.Types.QueryFilter
import Amazonka.IoTAnalytics.Types.RemoveAttributesActivity
import Amazonka.IoTAnalytics.Types.ReprocessingStatus
import Amazonka.IoTAnalytics.Types.ReprocessingSummary
import Amazonka.IoTAnalytics.Types.ResourceConfiguration
import Amazonka.IoTAnalytics.Types.RetentionPeriod
import Amazonka.IoTAnalytics.Types.S3DestinationConfiguration
import Amazonka.IoTAnalytics.Types.Schedule
import Amazonka.IoTAnalytics.Types.SchemaDefinition
import Amazonka.IoTAnalytics.Types.SelectAttributesActivity
import Amazonka.IoTAnalytics.Types.ServiceManagedChannelS3Storage
import Amazonka.IoTAnalytics.Types.ServiceManagedChannelS3StorageSummary
import Amazonka.IoTAnalytics.Types.ServiceManagedDatastoreS3Storage
import Amazonka.IoTAnalytics.Types.ServiceManagedDatastoreS3StorageSummary
import Amazonka.IoTAnalytics.Types.SqlQueryDatasetAction
import Amazonka.IoTAnalytics.Types.Tag
import Amazonka.IoTAnalytics.Types.TimestampPartition
import Amazonka.IoTAnalytics.Types.TriggeringDataset
import Amazonka.IoTAnalytics.Types.Variable
import Amazonka.IoTAnalytics.Types.VersioningConfiguration
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
"IoTAnalytics",
$sel:_serviceSigner:Service :: Signer
Core._serviceSigner = Signer
Sign.v4,
$sel:_serviceEndpointPrefix:Service :: ByteString
Core._serviceEndpointPrefix = ByteString
"iotanalytics",
$sel:_serviceSigningName:Service :: ByteString
Core._serviceSigningName = ByteString
"iotanalytics",
$sel:_serviceVersion:Service :: ByteString
Core._serviceVersion = ByteString
"2017-11-27",
$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
"IoTAnalytics",
$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
_ResourceAlreadyExistsException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ResourceAlreadyExistsException :: Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ResourceAlreadyExistsException"
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
409
_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"
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
429
_InternalFailureException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_InternalFailureException :: Getting (First ServiceError) a ServiceError
_InternalFailureException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalFailureException"
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
500
_ServiceUnavailableException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_ServiceUnavailableException :: Getting (First ServiceError) a ServiceError
_ServiceUnavailableException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceUnavailableException"
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
503
_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
404
_LimitExceededException :: Core.AsError a => Lens.Getting (Prelude.First Core.ServiceError) a Core.ServiceError
_LimitExceededException :: Getting (First ServiceError) a ServiceError
_LimitExceededException =
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
forall a.
AsError a =>
Service -> ErrorCode -> Getting (First ServiceError) a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"LimitExceededException"
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
410