{-# LANGUAGE OverloadedStrings #-}
module Network.AWS.WorkSpaces.Types
(
workSpaces
, _AccessDeniedException
, _ResourceCreationFailedException
, _ResourceUnavailableException
, _InvalidParameterValuesException
, _ResourceAssociatedException
, _OperationInProgressException
, _ResourceAlreadyExistsException
, _ResourceLimitExceededException
, _InvalidResourceStateException
, _OperationNotSupportedException
, _UnsupportedWorkspaceConfigurationException
, _ResourceNotFoundException
, Compute (..)
, ConnectionState (..)
, ModificationResourceEnum (..)
, ModificationStateEnum (..)
, RunningMode (..)
, TargetWorkspaceState (..)
, WorkspaceDirectoryState (..)
, WorkspaceDirectoryType (..)
, WorkspaceState (..)
, ComputeType
, computeType
, ctName
, DefaultWorkspaceCreationProperties
, defaultWorkspaceCreationProperties
, dwcpCustomSecurityGroupId
, dwcpUserEnabledAsLocalAdministrator
, dwcpEnableWorkDocs
, dwcpEnableInternetAccess
, dwcpDefaultOu
, FailedCreateWorkspaceRequest
, failedCreateWorkspaceRequest
, fcwrWorkspaceRequest
, fcwrErrorCode
, fcwrErrorMessage
, FailedWorkspaceChangeRequest
, failedWorkspaceChangeRequest
, fwcrErrorCode
, fwcrWorkspaceId
, fwcrErrorMessage
, IPRuleItem
, ipRuleItem
, iriRuleDesc
, iriIpRule
, ModificationState
, modificationState
, msState
, msResource
, RebootRequest
, rebootRequest
, rWorkspaceId
, RebuildRequest
, rebuildRequest
, rrWorkspaceId
, RootStorage
, rootStorage
, rsCapacity
, StartRequest
, startRequest
, sWorkspaceId
, StopRequest
, stopRequest
, srWorkspaceId
, Tag
, tag
, tagValue
, tagKey
, TerminateRequest
, terminateRequest
, trWorkspaceId
, UserStorage
, userStorage
, usCapacity
, Workspace
, workspace
, wDirectoryId
, wState
, wIPAddress
, wModificationStates
, wUserName
, wSubnetId
, wBundleId
, wWorkspaceProperties
, wRootVolumeEncryptionEnabled
, wErrorCode
, wVolumeEncryptionKey
, wComputerName
, wWorkspaceId
, wUserVolumeEncryptionEnabled
, wErrorMessage
, WorkspaceBundle
, workspaceBundle
, wbBundleId
, wbOwner
, wbRootStorage
, wbName
, wbComputeType
, wbUserStorage
, wbDescription
, WorkspaceConnectionStatus
, workspaceConnectionStatus
, wcsLastKnownUserConnectionTimestamp
, wcsConnectionStateCheckTimestamp
, wcsWorkspaceId
, wcsConnectionState
, WorkspaceDirectory
, workspaceDirectory
, wdRegistrationCode
, wdIAMRoleId
, wdDirectoryId
, wdState
, wdCustomerUserName
, wdSubnetIds
, wdIpGroupIds
, wdAlias
, wdWorkspaceSecurityGroupId
, wdDirectoryType
, wdWorkspaceCreationProperties
, wdDNSIPAddresses
, wdDirectoryName
, WorkspaceProperties
, workspaceProperties
, wpComputeTypeName
, wpRunningMode
, wpRootVolumeSizeGib
, wpRunningModeAutoStopTimeoutInMinutes
, wpUserVolumeSizeGib
, WorkspaceRequest
, workspaceRequest
, wrWorkspaceProperties
, wrRootVolumeEncryptionEnabled
, wrVolumeEncryptionKey
, wrUserVolumeEncryptionEnabled
, wrTags
, wrDirectoryId
, wrUserName
, wrBundleId
, WorkspacesIPGroup
, workspacesIPGroup
, wigGroupDesc
, wigUserRules
, wigGroupId
, wigGroupName
) where
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Sign.V4
import Network.AWS.WorkSpaces.Types.Product
import Network.AWS.WorkSpaces.Types.Sum
workSpaces :: Service
workSpaces =
Service
{ _svcAbbrev = "WorkSpaces"
, _svcSigner = v4
, _svcPrefix = "workspaces"
, _svcVersion = "2015-04-08"
, _svcEndpoint = defaultEndpoint workSpaces
, _svcTimeout = Just 70
, _svcCheck = statusSuccess
, _svcError = parseJSONError "WorkSpaces"
, _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 (hasCode "RequestThrottledException" . hasStatus 400) e =
Just "request_throttled_exception"
| 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
_AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError
_AccessDeniedException = _MatchServiceError workSpaces "AccessDeniedException"
_ResourceCreationFailedException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceCreationFailedException =
_MatchServiceError workSpaces "ResourceCreationFailedException"
_ResourceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceUnavailableException =
_MatchServiceError workSpaces "ResourceUnavailableException"
_InvalidParameterValuesException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidParameterValuesException =
_MatchServiceError workSpaces "InvalidParameterValuesException"
_ResourceAssociatedException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAssociatedException =
_MatchServiceError workSpaces "ResourceAssociatedException"
_OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationInProgressException =
_MatchServiceError workSpaces "OperationInProgressException"
_ResourceAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceAlreadyExistsException =
_MatchServiceError workSpaces "ResourceAlreadyExistsException"
_ResourceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceLimitExceededException =
_MatchServiceError workSpaces "ResourceLimitExceededException"
_InvalidResourceStateException :: AsError a => Getting (First ServiceError) a ServiceError
_InvalidResourceStateException =
_MatchServiceError workSpaces "InvalidResourceStateException"
_OperationNotSupportedException :: AsError a => Getting (First ServiceError) a ServiceError
_OperationNotSupportedException =
_MatchServiceError workSpaces "OperationNotSupportedException"
_UnsupportedWorkspaceConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError
_UnsupportedWorkspaceConfigurationException =
_MatchServiceError workSpaces "UnsupportedWorkspaceConfigurationException"
_ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError
_ResourceNotFoundException =
_MatchServiceError workSpaces "ResourceNotFoundException"