{-# LANGUAGE DisambiguateRecordFields #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.MediaConnect.Types
(
defaultService,
_AddFlowOutputs420Exception,
_BadRequestException,
_CreateFlow420Exception,
_ForbiddenException,
_GrantFlowEntitlements420Exception,
_InternalServerErrorException,
_NotFoundException,
_ServiceUnavailableException,
_TooManyRequestsException,
Algorithm (..),
Colorimetry (..),
DurationUnits (..),
EncoderProfile (..),
EncodingName (..),
EntitlementStatus (..),
FailoverMode (..),
KeyType (..),
MaintenanceDay (..),
MediaStreamType (..),
NetworkInterfaceType (..),
PriceUnits (..),
Protocol (..),
Range (..),
ReservationState (..),
ResourceType (..),
ScanMode (..),
SourceType (..),
State (..),
Status (..),
Tcs (..),
AddMaintenance (..),
newAddMaintenance,
addMaintenance_maintenanceDay,
addMaintenance_maintenanceStartHour,
AddMediaStreamRequest (..),
newAddMediaStreamRequest,
addMediaStreamRequest_attributes,
addMediaStreamRequest_clockRate,
addMediaStreamRequest_description,
addMediaStreamRequest_videoFormat,
addMediaStreamRequest_mediaStreamType,
addMediaStreamRequest_mediaStreamId,
addMediaStreamRequest_mediaStreamName,
AddOutputRequest (..),
newAddOutputRequest,
addOutputRequest_cidrAllowList,
addOutputRequest_description,
addOutputRequest_destination,
addOutputRequest_encryption,
addOutputRequest_maxLatency,
addOutputRequest_mediaStreamOutputConfigurations,
addOutputRequest_minLatency,
addOutputRequest_name,
addOutputRequest_port,
addOutputRequest_remoteId,
addOutputRequest_senderControlPort,
addOutputRequest_smoothingLatency,
addOutputRequest_streamId,
addOutputRequest_vpcInterfaceAttachment,
addOutputRequest_protocol,
DestinationConfiguration (..),
newDestinationConfiguration,
destinationConfiguration_destinationIp,
destinationConfiguration_destinationPort,
destinationConfiguration_interface,
destinationConfiguration_outboundIp,
DestinationConfigurationRequest (..),
newDestinationConfigurationRequest,
destinationConfigurationRequest_destinationIp,
destinationConfigurationRequest_destinationPort,
destinationConfigurationRequest_interface,
EncodingParameters (..),
newEncodingParameters,
encodingParameters_encoderProfile,
encodingParameters_compressionFactor,
EncodingParametersRequest (..),
newEncodingParametersRequest,
encodingParametersRequest_encoderProfile,
encodingParametersRequest_compressionFactor,
Encryption (..),
newEncryption,
encryption_algorithm,
encryption_constantInitializationVector,
encryption_deviceId,
encryption_keyType,
encryption_region,
encryption_resourceId,
encryption_secretArn,
encryption_url,
encryption_roleArn,
Entitlement (..),
newEntitlement,
entitlement_dataTransferSubscriberFeePercent,
entitlement_description,
entitlement_encryption,
entitlement_entitlementStatus,
entitlement_entitlementArn,
entitlement_subscribers,
entitlement_name,
FailoverConfig (..),
newFailoverConfig,
failoverConfig_failoverMode,
failoverConfig_recoveryWindow,
failoverConfig_sourcePriority,
failoverConfig_state,
Flow (..),
newFlow,
flow_description,
flow_egressIp,
flow_maintenance,
flow_mediaStreams,
flow_sourceFailoverConfig,
flow_sources,
flow_vpcInterfaces,
flow_status,
flow_entitlements,
flow_outputs,
flow_availabilityZone,
flow_flowArn,
flow_source,
flow_name,
Fmtp (..),
newFmtp,
fmtp_channelOrder,
fmtp_colorimetry,
fmtp_exactFramerate,
fmtp_par,
fmtp_range,
fmtp_scanMode,
fmtp_tcs,
FmtpRequest (..),
newFmtpRequest,
fmtpRequest_channelOrder,
fmtpRequest_colorimetry,
fmtpRequest_exactFramerate,
fmtpRequest_par,
fmtpRequest_range,
fmtpRequest_scanMode,
fmtpRequest_tcs,
GrantEntitlementRequest (..),
newGrantEntitlementRequest,
grantEntitlementRequest_dataTransferSubscriberFeePercent,
grantEntitlementRequest_description,
grantEntitlementRequest_encryption,
grantEntitlementRequest_entitlementStatus,
grantEntitlementRequest_name,
grantEntitlementRequest_subscribers,
InputConfiguration (..),
newInputConfiguration,
inputConfiguration_inputPort,
inputConfiguration_inputIp,
inputConfiguration_interface,
InputConfigurationRequest (..),
newInputConfigurationRequest,
inputConfigurationRequest_inputPort,
inputConfigurationRequest_interface,
Interface (..),
newInterface,
interface_name,
InterfaceRequest (..),
newInterfaceRequest,
interfaceRequest_name,
ListedEntitlement (..),
newListedEntitlement,
listedEntitlement_dataTransferSubscriberFeePercent,
listedEntitlement_entitlementArn,
listedEntitlement_entitlementName,
ListedFlow (..),
newListedFlow,
listedFlow_maintenance,
listedFlow_status,
listedFlow_description,
listedFlow_sourceType,
listedFlow_availabilityZone,
listedFlow_flowArn,
listedFlow_name,
Maintenance (..),
newMaintenance,
maintenance_maintenanceDay,
maintenance_maintenanceDeadline,
maintenance_maintenanceScheduledDate,
maintenance_maintenanceStartHour,
MediaStream (..),
newMediaStream,
mediaStream_attributes,
mediaStream_clockRate,
mediaStream_description,
mediaStream_videoFormat,
mediaStream_mediaStreamType,
mediaStream_mediaStreamId,
mediaStream_mediaStreamName,
mediaStream_fmt,
MediaStreamAttributes (..),
newMediaStreamAttributes,
mediaStreamAttributes_lang,
mediaStreamAttributes_fmtp,
MediaStreamAttributesRequest (..),
newMediaStreamAttributesRequest,
mediaStreamAttributesRequest_fmtp,
mediaStreamAttributesRequest_lang,
MediaStreamOutputConfiguration (..),
newMediaStreamOutputConfiguration,
mediaStreamOutputConfiguration_destinationConfigurations,
mediaStreamOutputConfiguration_encodingParameters,
mediaStreamOutputConfiguration_mediaStreamName,
mediaStreamOutputConfiguration_encodingName,
MediaStreamOutputConfigurationRequest (..),
newMediaStreamOutputConfigurationRequest,
mediaStreamOutputConfigurationRequest_destinationConfigurations,
mediaStreamOutputConfigurationRequest_encodingParameters,
mediaStreamOutputConfigurationRequest_mediaStreamName,
mediaStreamOutputConfigurationRequest_encodingName,
MediaStreamSourceConfiguration (..),
newMediaStreamSourceConfiguration,
mediaStreamSourceConfiguration_inputConfigurations,
mediaStreamSourceConfiguration_mediaStreamName,
mediaStreamSourceConfiguration_encodingName,
MediaStreamSourceConfigurationRequest (..),
newMediaStreamSourceConfigurationRequest,
mediaStreamSourceConfigurationRequest_inputConfigurations,
mediaStreamSourceConfigurationRequest_mediaStreamName,
mediaStreamSourceConfigurationRequest_encodingName,
Messages (..),
newMessages,
messages_errors,
Offering (..),
newOffering,
offering_currencyCode,
offering_offeringArn,
offering_offeringDescription,
offering_durationUnits,
offering_duration,
offering_pricePerUnit,
offering_resourceSpecification,
offering_priceUnits,
Output (..),
newOutput,
output_dataTransferSubscriberFeePercent,
output_description,
output_destination,
output_encryption,
output_entitlementArn,
output_listenerAddress,
output_mediaLiveInputArn,
output_mediaStreamOutputConfigurations,
output_port,
output_transport,
output_vpcInterfaceAttachment,
output_outputArn,
output_name,
Reservation (..),
newReservation,
reservation_currencyCode,
reservation_reservationState,
reservation_offeringArn,
reservation_reservationArn,
reservation_start,
reservation_offeringDescription,
reservation_reservationName,
reservation_end,
reservation_duration,
reservation_durationUnits,
reservation_pricePerUnit,
reservation_resourceSpecification,
reservation_priceUnits,
ResourceSpecification (..),
newResourceSpecification,
resourceSpecification_reservedBitrate,
resourceSpecification_resourceType,
SetSourceRequest (..),
newSetSourceRequest,
setSourceRequest_decryption,
setSourceRequest_description,
setSourceRequest_entitlementArn,
setSourceRequest_ingestPort,
setSourceRequest_maxBitrate,
setSourceRequest_maxLatency,
setSourceRequest_maxSyncBuffer,
setSourceRequest_mediaStreamSourceConfigurations,
setSourceRequest_minLatency,
setSourceRequest_name,
setSourceRequest_protocol,
setSourceRequest_senderControlPort,
setSourceRequest_senderIpAddress,
setSourceRequest_sourceListenerAddress,
setSourceRequest_sourceListenerPort,
setSourceRequest_streamId,
setSourceRequest_vpcInterfaceName,
setSourceRequest_whitelistCidr,
Source (..),
newSource,
source_dataTransferSubscriberFeePercent,
source_decryption,
source_description,
source_entitlementArn,
source_ingestIp,
source_ingestPort,
source_mediaStreamSourceConfigurations,
source_senderControlPort,
source_senderIpAddress,
source_transport,
source_vpcInterfaceName,
source_whitelistCidr,
source_sourceArn,
source_name,
SourcePriority (..),
newSourcePriority,
sourcePriority_primarySource,
Transport (..),
newTransport,
transport_cidrAllowList,
transport_maxBitrate,
transport_maxLatency,
transport_maxSyncBuffer,
transport_minLatency,
transport_remoteId,
transport_senderControlPort,
transport_senderIpAddress,
transport_smoothingLatency,
transport_sourceListenerAddress,
transport_sourceListenerPort,
transport_streamId,
transport_protocol,
UpdateEncryption (..),
newUpdateEncryption,
updateEncryption_algorithm,
updateEncryption_constantInitializationVector,
updateEncryption_deviceId,
updateEncryption_keyType,
updateEncryption_region,
updateEncryption_resourceId,
updateEncryption_roleArn,
updateEncryption_secretArn,
updateEncryption_url,
UpdateFailoverConfig (..),
newUpdateFailoverConfig,
updateFailoverConfig_failoverMode,
updateFailoverConfig_recoveryWindow,
updateFailoverConfig_sourcePriority,
updateFailoverConfig_state,
UpdateMaintenance (..),
newUpdateMaintenance,
updateMaintenance_maintenanceDay,
updateMaintenance_maintenanceScheduledDate,
updateMaintenance_maintenanceStartHour,
VpcInterface (..),
newVpcInterface,
vpcInterface_networkInterfaceType,
vpcInterface_networkInterfaceIds,
vpcInterface_subnetId,
vpcInterface_securityGroupIds,
vpcInterface_roleArn,
vpcInterface_name,
VpcInterfaceAttachment (..),
newVpcInterfaceAttachment,
vpcInterfaceAttachment_vpcInterfaceName,
VpcInterfaceRequest (..),
newVpcInterfaceRequest,
vpcInterfaceRequest_networkInterfaceType,
vpcInterfaceRequest_subnetId,
vpcInterfaceRequest_securityGroupIds,
vpcInterfaceRequest_roleArn,
vpcInterfaceRequest_name,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import Amazonka.MediaConnect.Types.AddMaintenance
import Amazonka.MediaConnect.Types.AddMediaStreamRequest
import Amazonka.MediaConnect.Types.AddOutputRequest
import Amazonka.MediaConnect.Types.Algorithm
import Amazonka.MediaConnect.Types.Colorimetry
import Amazonka.MediaConnect.Types.DestinationConfiguration
import Amazonka.MediaConnect.Types.DestinationConfigurationRequest
import Amazonka.MediaConnect.Types.DurationUnits
import Amazonka.MediaConnect.Types.EncoderProfile
import Amazonka.MediaConnect.Types.EncodingName
import Amazonka.MediaConnect.Types.EncodingParameters
import Amazonka.MediaConnect.Types.EncodingParametersRequest
import Amazonka.MediaConnect.Types.Encryption
import Amazonka.MediaConnect.Types.Entitlement
import Amazonka.MediaConnect.Types.EntitlementStatus
import Amazonka.MediaConnect.Types.FailoverConfig
import Amazonka.MediaConnect.Types.FailoverMode
import Amazonka.MediaConnect.Types.Flow
import Amazonka.MediaConnect.Types.Fmtp
import Amazonka.MediaConnect.Types.FmtpRequest
import Amazonka.MediaConnect.Types.GrantEntitlementRequest
import Amazonka.MediaConnect.Types.InputConfiguration
import Amazonka.MediaConnect.Types.InputConfigurationRequest
import Amazonka.MediaConnect.Types.Interface
import Amazonka.MediaConnect.Types.InterfaceRequest
import Amazonka.MediaConnect.Types.KeyType
import Amazonka.MediaConnect.Types.ListedEntitlement
import Amazonka.MediaConnect.Types.ListedFlow
import Amazonka.MediaConnect.Types.Maintenance
import Amazonka.MediaConnect.Types.MaintenanceDay
import Amazonka.MediaConnect.Types.MediaStream
import Amazonka.MediaConnect.Types.MediaStreamAttributes
import Amazonka.MediaConnect.Types.MediaStreamAttributesRequest
import Amazonka.MediaConnect.Types.MediaStreamOutputConfiguration
import Amazonka.MediaConnect.Types.MediaStreamOutputConfigurationRequest
import Amazonka.MediaConnect.Types.MediaStreamSourceConfiguration
import Amazonka.MediaConnect.Types.MediaStreamSourceConfigurationRequest
import Amazonka.MediaConnect.Types.MediaStreamType
import Amazonka.MediaConnect.Types.Messages
import Amazonka.MediaConnect.Types.NetworkInterfaceType
import Amazonka.MediaConnect.Types.Offering
import Amazonka.MediaConnect.Types.Output
import Amazonka.MediaConnect.Types.PriceUnits
import Amazonka.MediaConnect.Types.Protocol
import Amazonka.MediaConnect.Types.Range
import Amazonka.MediaConnect.Types.Reservation
import Amazonka.MediaConnect.Types.ReservationState
import Amazonka.MediaConnect.Types.ResourceSpecification
import Amazonka.MediaConnect.Types.ResourceType
import Amazonka.MediaConnect.Types.ScanMode
import Amazonka.MediaConnect.Types.SetSourceRequest
import Amazonka.MediaConnect.Types.Source
import Amazonka.MediaConnect.Types.SourcePriority
import Amazonka.MediaConnect.Types.SourceType
import Amazonka.MediaConnect.Types.State
import Amazonka.MediaConnect.Types.Status
import Amazonka.MediaConnect.Types.Tcs
import Amazonka.MediaConnect.Types.Transport
import Amazonka.MediaConnect.Types.UpdateEncryption
import Amazonka.MediaConnect.Types.UpdateFailoverConfig
import Amazonka.MediaConnect.Types.UpdateMaintenance
import Amazonka.MediaConnect.Types.VpcInterface
import Amazonka.MediaConnect.Types.VpcInterfaceAttachment
import Amazonka.MediaConnect.Types.VpcInterfaceRequest
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
"MediaConnect",
$sel:signer:Service :: Signer
Core.signer = Signer
Sign.v4,
$sel:endpointPrefix:Service :: ByteString
Core.endpointPrefix = ByteString
"mediaconnect",
$sel:signingName:Service :: ByteString
Core.signingName = ByteString
"mediaconnect",
$sel:version:Service :: ByteString
Core.version = ByteString
"2018-11-14",
$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
"MediaConnect",
$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
_AddFlowOutputs420Exception :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_AddFlowOutputs420Exception :: forall a. AsError a => Fold a ServiceError
_AddFlowOutputs420Exception =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"AddFlowOutputs420Exception"
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
420
_BadRequestException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_BadRequestException :: forall a. AsError a => Fold a ServiceError
_BadRequestException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"BadRequestException"
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
_CreateFlow420Exception :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_CreateFlow420Exception :: forall a. AsError a => Fold a ServiceError
_CreateFlow420Exception =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"CreateFlow420Exception"
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
420
_ForbiddenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ForbiddenException :: forall a. AsError a => Fold a ServiceError
_ForbiddenException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ForbiddenException"
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
_GrantFlowEntitlements420Exception :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_GrantFlowEntitlements420Exception :: forall a. AsError a => Fold a ServiceError
_GrantFlowEntitlements420Exception =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"GrantFlowEntitlements420Exception"
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
420
_InternalServerErrorException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_InternalServerErrorException :: forall a. AsError a => Fold a ServiceError
_InternalServerErrorException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"InternalServerErrorException"
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
_NotFoundException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_NotFoundException :: forall a. AsError a => Fold a ServiceError
_NotFoundException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"NotFoundException"
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
_ServiceUnavailableException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_ServiceUnavailableException :: forall a. AsError a => Fold a ServiceError
_ServiceUnavailableException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"ServiceUnavailableException"
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
503
_TooManyRequestsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError
_TooManyRequestsException :: forall a. AsError a => Fold a ServiceError
_TooManyRequestsException =
forall a. AsError a => Service -> ErrorCode -> Fold a ServiceError
Core._MatchServiceError
Service
defaultService
ErrorCode
"TooManyRequestsException"
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