module Network.AWS.ImportExport.Types
(
importExport
, _InvalidJobIdException
, _InvalidParameterException
, _ExpiredJobIdException
, _InvalidFileSystemException
, _InvalidAccessKeyIdException
, _UnableToUpdateJobIdException
, _UnableToCancelJobIdException
, _MultipleRegionsException
, _InvalidVersionException
, _MalformedManifestException
, _MissingParameterException
, _CanceledJobIdException
, _BucketPermissionException
, _NoSuchBucketException
, _InvalidAddressException
, _MissingCustomsException
, _InvalidManifestFieldException
, _InvalidCustomsException
, _MissingManifestFieldException
, _CreateJobQuotaExceededException
, JobType (..)
, Artifact
, artifact
, aURL
, aDescription
, Job
, job
, jobJobType
, jobJobId
, jobIsCanceled
, jobCreationDate
) where
import Network.AWS.ImportExport.Types.Product
import Network.AWS.ImportExport.Types.Sum
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V2
importExport :: Service
importExport =
Service
{ _svcAbbrev = "ImportExport"
, _svcSigner = v2
, _svcPrefix = "importexport"
, _svcVersion = "2010-06-01"
, _svcEndpoint = defaultEndpoint importExport
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseXMLError "ImportExport"
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottledException" . hasStatus 400) e =
Just "throttled_exception"
| has (hasStatus 429) e = Just "too_many_requests"
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| has (hasStatus 504) e = Just "gateway_timeout"
| has (hasStatus 502) e = Just "bad_gateway"
| has (hasStatus 503) e = Just "service_unavailable"
| has (hasStatus 500) e = Just "general_server_error"
| has (hasStatus 509) e = Just "limit_exceeded"
| otherwise = Nothing
_InvalidJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidJobIdException = _MatchServiceError importExport "InvalidJobIdException"
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
_MatchServiceError importExport "InvalidParameterException"
_ExpiredJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_ExpiredJobIdException = _MatchServiceError importExport "ExpiredJobIdException"
_InvalidFileSystemException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidFileSystemException =
_MatchServiceError importExport "InvalidFileSystemException"
_InvalidAccessKeyIdException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAccessKeyIdException =
_MatchServiceError importExport "InvalidAccessKeyIdException"
_UnableToUpdateJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_UnableToUpdateJobIdException =
_MatchServiceError importExport "UnableToUpdateJobIdException"
_UnableToCancelJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_UnableToCancelJobIdException =
_MatchServiceError importExport "UnableToCancelJobIdException"
_MultipleRegionsException :: AsError a => Getting (First ServiceError) a ServiceError
_MultipleRegionsException =
_MatchServiceError importExport "MultipleRegionsException"
_InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVersionException =
_MatchServiceError importExport "InvalidVersionException"
_MalformedManifestException :: AsError a => Getting (First ServiceError) a ServiceError
_MalformedManifestException =
_MatchServiceError importExport "MalformedManifestException"
_MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingParameterException =
_MatchServiceError importExport "MissingParameterException"
_CanceledJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_CanceledJobIdException =
_MatchServiceError importExport "CanceledJobIdException"
_BucketPermissionException :: AsError a => Getting (First ServiceError) a ServiceError
_BucketPermissionException =
_MatchServiceError importExport "BucketPermissionException"
_NoSuchBucketException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchBucketException = _MatchServiceError importExport "NoSuchBucketException"
_InvalidAddressException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAddressException =
_MatchServiceError importExport "InvalidAddressException"
_MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingCustomsException =
_MatchServiceError importExport "MissingCustomsException"
_InvalidManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidManifestFieldException =
_MatchServiceError importExport "InvalidManifestFieldException"
_InvalidCustomsException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCustomsException =
_MatchServiceError importExport "InvalidCustomsException"
_MissingManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingManifestFieldException =
_MatchServiceError importExport "MissingManifestFieldException"
_CreateJobQuotaExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_CreateJobQuotaExceededException =
_MatchServiceError importExport "CreateJobQuotaExceededException"