module Network.AWS.ImportExport.Types
(
importExport
, _InvalidJobIdException
, _InvalidParameterException
, _ExpiredJobIdException
, _InvalidFileSystemException
, _InvalidAccessKeyIdException
, _UnableToUpdateJobIdException
, _UnableToCancelJobIdException
, _InvalidVersionException
, _MultipleRegionsException
, _MalformedManifestException
, _CanceledJobIdException
, _BucketPermissionException
, _MissingParameterException
, _NoSuchBucketException
, _InvalidAddressException
, _InvalidManifestFieldException
, _MissingCustomsException
, _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.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
, _svcRetry = retry
}
where
retry =
Exponential
{ _retryBase = 5.0e-2
, _retryGrowth = 2
, _retryAttempts = 5
, _retryCheck = check
}
check e
| has (hasCode "ThrottlingException" . hasStatus 400) e =
Just "throttling_exception"
| has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
| 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 = _ServiceError . hasCode "InvalidJobIdException"
_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterException =
_ServiceError . hasCode "InvalidParameterException"
_ExpiredJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_ExpiredJobIdException = _ServiceError . hasCode "ExpiredJobIdException"
_InvalidFileSystemException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidFileSystemException =
_ServiceError . hasCode "InvalidFileSystemException"
_InvalidAccessKeyIdException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAccessKeyIdException =
_ServiceError . hasCode "InvalidAccessKeyIdException"
_UnableToUpdateJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_UnableToUpdateJobIdException =
_ServiceError . hasCode "UnableToUpdateJobIdException"
_UnableToCancelJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_UnableToCancelJobIdException =
_ServiceError . hasCode "UnableToCancelJobIdException"
_InvalidVersionException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidVersionException = _ServiceError . hasCode "InvalidVersionException"
_MultipleRegionsException :: AsError a => Getting (First ServiceError) a ServiceError
_MultipleRegionsException = _ServiceError . hasCode "MultipleRegionsException"
_MalformedManifestException :: AsError a => Getting (First ServiceError) a ServiceError
_MalformedManifestException =
_ServiceError . hasCode "MalformedManifestException"
_CanceledJobIdException :: AsError a => Getting (First ServiceError) a ServiceError
_CanceledJobIdException = _ServiceError . hasCode "CanceledJobIdException"
_BucketPermissionException :: AsError a => Getting (First ServiceError) a ServiceError
_BucketPermissionException =
_ServiceError . hasCode "BucketPermissionException"
_MissingParameterException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingParameterException =
_ServiceError . hasCode "MissingParameterException"
_NoSuchBucketException :: AsError a => Getting (First ServiceError) a ServiceError
_NoSuchBucketException = _ServiceError . hasCode "NoSuchBucketException"
_InvalidAddressException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidAddressException = _ServiceError . hasCode "InvalidAddressException"
_InvalidManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidManifestFieldException =
_ServiceError . hasCode "InvalidManifestFieldException"
_MissingCustomsException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingCustomsException = _ServiceError . hasCode "MissingCustomsException"
_InvalidCustomsException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidCustomsException = _ServiceError . hasCode "InvalidCustomsException"
_MissingManifestFieldException :: AsError a => Getting (First ServiceError) a ServiceError
_MissingManifestFieldException =
_ServiceError . hasCode "MissingManifestFieldException"
_CreateJobQuotaExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_CreateJobQuotaExceededException =
_ServiceError . hasCode "CreateJobQuotaExceededException"