module Network.AWS.WorkDocs.Types
(
workDocs
, _CustomMetadataLimitExceededException
, _EntityAlreadyExistsException
, _ResourceAlreadyCheckedOutException
, _ProhibitedStateException
, _TooManyLabelsException
, _InvalidArgumentException
, _UnauthorizedResourceAccessException
, _TooManySubscriptionsException
, _FailedDependencyException
, _DocumentLockedForCommentsException
, _EntityNotExistsException
, _DeactivatingLastSystemUserException
, _IllegalUserStateException
, _StorageLimitWillExceedException
, _ConcurrentModificationException
, _StorageLimitExceededException
, _ServiceUnavailableException
, _InvalidOperationException
, _UnauthorizedOperationException
, _DraftUploadOutOfSyncException
, _LimitExceededException
, ActivityType (..)
, CommentStatusType (..)
, CommentVisibilityType (..)
, DocumentSourceType (..)
, DocumentStatusType (..)
, DocumentThumbnailType (..)
, DocumentVersionStatus (..)
, FolderContentType (..)
, LocaleType (..)
, OrderType (..)
, PrincipalType (..)
, ResourceSortType (..)
, ResourceStateType (..)
, ResourceType (..)
, RolePermissionType (..)
, RoleType (..)
, ShareStatusType (..)
, StorageType (..)
, SubscriptionProtocolType (..)
, SubscriptionType (..)
, UserFilterType (..)
, UserSortType (..)
, UserStatusType (..)
, UserType (..)
, Activity
, activity
, aResourceMetadata
, aInitiator
, aParticipants
, aOriginalParent
, aType
, aCommentMetadata
, aTimeStamp
, aOrganizationId
, Comment
, comment
, cStatus
, cText
, cVisibility
, cThreadId
, cContributor
, cCreatedTimestamp
, cRecipientId
, cParentId
, cCommentId
, CommentMetadata
, commentMetadata
, cmCommentStatus
, cmContributor
, cmCommentId
, cmCreatedTimestamp
, cmRecipientId
, DocumentMetadata
, documentMetadata
, dmLatestVersionMetadata
, dmParentFolderId
, dmModifiedTimestamp
, dmId
, dmLabels
, dmResourceState
, dmCreatedTimestamp
, dmCreatorId
, DocumentVersionMetadata
, documentVersionMetadata
, dvmThumbnail
, dvmStatus
, dvmSignature
, dvmContentCreatedTimestamp
, dvmSize
, dvmName
, dvmModifiedTimestamp
, dvmSource
, dvmId
, dvmCreatedTimestamp
, dvmContentModifiedTimestamp
, dvmCreatorId
, dvmContentType
, FolderMetadata
, folderMetadata
, fmSignature
, fmParentFolderId
, fmSize
, fmLatestVersionSize
, fmName
, fmModifiedTimestamp
, fmId
, fmLabels
, fmResourceState
, fmCreatedTimestamp
, fmCreatorId
, GroupMetadata
, groupMetadata
, gmName
, gmId
, Participants
, participants
, pGroups
, pUsers
, PermissionInfo
, permissionInfo
, piRole
, piType
, Principal
, principal
, pRoles
, pId
, pType
, ResourceMetadata
, resourceMetadata
, rmVersionId
, rmOwner
, rmName
, rmId
, rmType
, rmOriginalName
, rmParentId
, ResourcePath
, resourcePath
, rpComponents
, ResourcePathComponent
, resourcePathComponent
, rpcName
, rpcId
, SharePrincipal
, sharePrincipal
, spId
, spType
, spRole
, ShareResult
, shareResult
, srStatus
, srPrincipalId
, srRole
, srStatusMessage
, srShareId
, StorageRuleType
, storageRuleType
, srtStorageAllocatedInBytes
, srtStorageType
, Subscription
, subscription
, sProtocol
, sEndPoint
, sSubscriptionId
, UploadMetadata
, uploadMetadata
, umUploadURL
, umSignedHeaders
, User
, user
, uGivenName
, uStatus
, uLocale
, uUsername
, uStorage
, uModifiedTimestamp
, uEmailAddress
, uId
, uRootFolderId
, uType
, uSurname
, uTimeZoneId
, uCreatedTimestamp
, uOrganizationId
, uRecycleBinFolderId
, UserMetadata
, userMetadata
, umGivenName
, umUsername
, umEmailAddress
, umId
, umSurname
, UserStorageMetadata
, userStorageMetadata
, usmStorageUtilizedInBytes
, usmStorageRule
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
import Network.AWS.WorkDocs.Types.Product
import Network.AWS.WorkDocs.Types.Sum
workDocs :: Service
workDocs =
Service
{ _svcAbbrev = "WorkDocs"
, _svcSigner = v4
, _svcPrefix = "workdocs"
, _svcVersion = "2016-05-01"
, _svcEndpoint = defaultEndpoint workDocs
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "WorkDocs"
, _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
_CustomMetadataLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_CustomMetadataLimitExceededException =
_MatchServiceError workDocs "CustomMetadataLimitExceededException" .
hasStatus 429
_EntityAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_EntityAlreadyExistsException =
_MatchServiceError workDocs "EntityAlreadyExistsException" . hasStatus 409
_ResourceAlreadyCheckedOutException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAlreadyCheckedOutException =
_MatchServiceError workDocs "ResourceAlreadyCheckedOutException" .
hasStatus 409
_ProhibitedStateException :: AsError a => Getting (First ServiceError) a ServiceError
_ProhibitedStateException =
_MatchServiceError workDocs "ProhibitedStateException" . hasStatus 409
_TooManyLabelsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManyLabelsException =
_MatchServiceError workDocs "TooManyLabelsException" . hasStatus 429
_InvalidArgumentException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidArgumentException =
_MatchServiceError workDocs "InvalidArgumentException" . hasStatus 400
_UnauthorizedResourceAccessException :: AsError a => Getting (First ServiceError) a ServiceError
_UnauthorizedResourceAccessException =
_MatchServiceError workDocs "UnauthorizedResourceAccessException" .
hasStatus 404
_TooManySubscriptionsException :: AsError a => Getting (First ServiceError) a ServiceError
_TooManySubscriptionsException =
_MatchServiceError workDocs "TooManySubscriptionsException" . hasStatus 429
_FailedDependencyException :: AsError a => Getting (First ServiceError) a ServiceError
_FailedDependencyException =
_MatchServiceError workDocs "FailedDependencyException" . hasStatus 424
_DocumentLockedForCommentsException :: AsError a => Getting (First ServiceError) a ServiceError
_DocumentLockedForCommentsException =
_MatchServiceError workDocs "DocumentLockedForCommentsException" .
hasStatus 409
_EntityNotExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_EntityNotExistsException =
_MatchServiceError workDocs "EntityNotExistsException" . hasStatus 404
_DeactivatingLastSystemUserException :: AsError a => Getting (First ServiceError) a ServiceError
_DeactivatingLastSystemUserException =
_MatchServiceError workDocs "DeactivatingLastSystemUserException" .
hasStatus 409
_IllegalUserStateException :: AsError a => Getting (First ServiceError) a ServiceError
_IllegalUserStateException =
_MatchServiceError workDocs "IllegalUserStateException" . hasStatus 409
_StorageLimitWillExceedException :: AsError a => Getting (First ServiceError) a ServiceError
_StorageLimitWillExceedException =
_MatchServiceError workDocs "StorageLimitWillExceedException" . hasStatus 413
_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError
_ConcurrentModificationException =
_MatchServiceError workDocs "ConcurrentModificationException" . hasStatus 409
_StorageLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_StorageLimitExceededException =
_MatchServiceError workDocs "StorageLimitExceededException" . hasStatus 409
_ServiceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError
_ServiceUnavailableException =
_MatchServiceError workDocs "ServiceUnavailableException" . hasStatus 503
_InvalidOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidOperationException =
_MatchServiceError workDocs "InvalidOperationException" . hasStatus 405
_UnauthorizedOperationException :: AsError a => Getting (First ServiceError) a ServiceError
_UnauthorizedOperationException =
_MatchServiceError workDocs "UnauthorizedOperationException" . hasStatus 403
_DraftUploadOutOfSyncException :: AsError a => Getting (First ServiceError) a ServiceError
_DraftUploadOutOfSyncException =
_MatchServiceError workDocs "DraftUploadOutOfSyncException" . hasStatus 409
_LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_LimitExceededException =
_MatchServiceError workDocs "LimitExceededException" . hasStatus 409