module Network.AWS.EFS.Types
(
eFS
, _MountTargetNotFound
, _SecurityGroupLimitExceeded
, _MountTargetConflict
, _UnsupportedAvailabilityZone
, _SecurityGroupNotFound
, _FileSystemAlreadyExists
, _FileSystemLimitExceeded
, _NetworkInterfaceLimitExceeded
, _FileSystemNotFound
, _SubnetNotFound
, _IncorrectFileSystemLifeCycleState
, _BadRequest
, _NoFreeAddressesInSubnet
, _DependencyTimeout
, _FileSystemInUse
, _IncorrectMountTargetState
, _InternalServerError
, _IPAddressInUse
, LifeCycleState (..)
, FileSystemDescription
, fileSystemDescription
, fsdName
, fsdOwnerId
, fsdCreationToken
, fsdFileSystemId
, fsdCreationTime
, fsdLifeCycleState
, fsdNumberOfMountTargets
, fsdSizeInBytes
, FileSystemSize
, fileSystemSize
, fssTimestamp
, fssValue
, MountTargetDescription
, mountTargetDescription
, mtdIPAddress
, mtdNetworkInterfaceId
, mtdOwnerId
, mtdMountTargetId
, mtdFileSystemId
, mtdSubnetId
, mtdLifeCycleState
, Tag
, tag
, tagKey
, tagValue
) where
import Network.AWS.EFS.Types.Product
import Network.AWS.EFS.Types.Sum
import Network.AWS.Prelude
import Network.AWS.Sign.V4
eFS :: Service
eFS =
Service
{ _svcAbbrev = "EFS"
, _svcSigner = v4
, _svcPrefix = "elasticfilesystem"
, _svcVersion = "2015-02-01"
, _svcEndpoint = defaultEndpoint eFS
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError
, _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
_MountTargetNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_MountTargetNotFound =
_ServiceError . hasStatus 404 . hasCode "MountTargetNotFound"
_SecurityGroupLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_SecurityGroupLimitExceeded =
_ServiceError . hasStatus 400 . hasCode "SecurityGroupLimitExceeded"
_MountTargetConflict :: AsError a => Getting (First ServiceError) a ServiceError
_MountTargetConflict =
_ServiceError . hasStatus 409 . hasCode "MountTargetConflict"
_UnsupportedAvailabilityZone :: AsError a => Getting (First ServiceError) a ServiceError
_UnsupportedAvailabilityZone =
_ServiceError . hasStatus 400 . hasCode "UnsupportedAvailabilityZone"
_SecurityGroupNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_SecurityGroupNotFound =
_ServiceError . hasStatus 400 . hasCode "SecurityGroupNotFound"
_FileSystemAlreadyExists :: AsError a => Getting (First ServiceError) a ServiceError
_FileSystemAlreadyExists =
_ServiceError . hasStatus 409 . hasCode "FileSystemAlreadyExists"
_FileSystemLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_FileSystemLimitExceeded =
_ServiceError . hasStatus 403 . hasCode "FileSystemLimitExceeded"
_NetworkInterfaceLimitExceeded :: AsError a => Getting (First ServiceError) a ServiceError
_NetworkInterfaceLimitExceeded =
_ServiceError . hasStatus 409 . hasCode "NetworkInterfaceLimitExceeded"
_FileSystemNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_FileSystemNotFound =
_ServiceError . hasStatus 404 . hasCode "FileSystemNotFound"
_SubnetNotFound :: AsError a => Getting (First ServiceError) a ServiceError
_SubnetNotFound = _ServiceError . hasStatus 400 . hasCode "SubnetNotFound"
_IncorrectFileSystemLifeCycleState :: AsError a => Getting (First ServiceError) a ServiceError
_IncorrectFileSystemLifeCycleState =
_ServiceError . hasStatus 409 . hasCode "IncorrectFileSystemLifeCycleState"
_BadRequest :: AsError a => Getting (First ServiceError) a ServiceError
_BadRequest = _ServiceError . hasStatus 400 . hasCode "BadRequest"
_NoFreeAddressesInSubnet :: AsError a => Getting (First ServiceError) a ServiceError
_NoFreeAddressesInSubnet =
_ServiceError . hasStatus 409 . hasCode "NoFreeAddressesInSubnet"
_DependencyTimeout :: AsError a => Getting (First ServiceError) a ServiceError
_DependencyTimeout =
_ServiceError . hasStatus 504 . hasCode "DependencyTimeout"
_FileSystemInUse :: AsError a => Getting (First ServiceError) a ServiceError
_FileSystemInUse = _ServiceError . hasStatus 409 . hasCode "FileSystemInUse"
_IncorrectMountTargetState :: AsError a => Getting (First ServiceError) a ServiceError
_IncorrectMountTargetState =
_ServiceError . hasStatus 409 . hasCode "IncorrectMountTargetState"
_InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError
_InternalServerError =
_ServiceError . hasStatus 500 . hasCode "InternalServerError"
_IPAddressInUse :: AsError a => Getting (First ServiceError) a ServiceError
_IPAddressInUse = _ServiceError . hasStatus 409 . hasCode "IpAddressInUse"