{-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | -- Module : Network.AWS.DirectoryService.Types -- Copyright : (c) 2013-2015 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.DirectoryService.Types ( -- * Service DirectoryService -- * Errors , _AuthenticationFailedException , _DirectoryUnavailableException , _InvalidParameterException , _UnsupportedOperationException , _EntityAlreadyExistsException , _DirectoryLimitExceededException , _EntityDoesNotExistException , _InsufficientPermissionsException , _InvalidNextTokenException , _ServiceException , _SnapshotLimitExceededException , _ClientException -- * DirectorySize , DirectorySize (..) -- * DirectoryStage , DirectoryStage (..) -- * DirectoryType , DirectoryType (..) -- * RadiusAuthenticationProtocol , RadiusAuthenticationProtocol (..) -- * RadiusStatus , RadiusStatus (..) -- * SnapshotStatus , SnapshotStatus (..) -- * SnapshotType , SnapshotType (..) -- * Attribute , Attribute , attribute , aValue , aName -- * Computer , Computer , computer , cComputerId , cComputerAttributes , cComputerName -- * DirectoryConnectSettings , DirectoryConnectSettings , directoryConnectSettings , dcsVPCId , dcsSubnetIds , dcsCustomerDNSIPs , dcsCustomerUserName -- * DirectoryConnectSettingsDescription , DirectoryConnectSettingsDescription , directoryConnectSettingsDescription , dcsdCustomerUserName , dcsdSubnetIds , dcsdVPCId , dcsdConnectIPs , dcsdSecurityGroupId , dcsdAvailabilityZones -- * DirectoryDescription , DirectoryDescription , directoryDescription , ddRadiusStatus , ddDirectoryId , ddStage , ddAccessURL , ddShortName , ddSize , ddRadiusSettings , ddLaunchTime , ddAlias , ddName , ddSSOEnabled , ddStageLastUpdatedDateTime , ddStageReason , ddDNSIPAddrs , ddVPCSettings , ddType , ddConnectSettings , ddDescription -- * DirectoryLimits , DirectoryLimits , directoryLimits , dlConnectedDirectoriesCurrentCount , dlConnectedDirectoriesLimit , dlConnectedDirectoriesLimitReached , dlCloudOnlyDirectoriesLimit , dlCloudOnlyDirectoriesCurrentCount , dlCloudOnlyDirectoriesLimitReached -- * DirectoryVPCSettings , DirectoryVPCSettings , directoryVPCSettings , dvsVPCId , dvsSubnetIds -- * DirectoryVPCSettingsDescription , DirectoryVPCSettingsDescription , directoryVPCSettingsDescription , dvsdSubnetIds , dvsdVPCId , dvsdSecurityGroupId , dvsdAvailabilityZones -- * RadiusSettings , RadiusSettings , radiusSettings , rsDisplayLabel , rsRadiusServers , rsRadiusRetries , rsAuthenticationProtocol , rsUseSameUsername , rsSharedSecret , rsRadiusTimeout , rsRadiusPort -- * Snapshot , Snapshot , snapshot , sDirectoryId , sStatus , sStartTime , sName , sType , sSnapshotId -- * SnapshotLimits , SnapshotLimits , snapshotLimits , slManualSnapshotsLimitReached , slManualSnapshotsCurrentCount , slManualSnapshotsLimit ) where import Network.AWS.DirectoryService.Types.Product import Network.AWS.DirectoryService.Types.Sum import Network.AWS.Prelude import Network.AWS.Sign.V4 -- | Version @2015-04-16@ of the Amazon Directory Service SDK. data DirectoryService instance AWSService DirectoryService where type Sg DirectoryService = V4 service = const svc where svc = Service { _svcAbbrev = "DirectoryService" , _svcPrefix = "ds" , _svcVersion = "2015-04-16" , _svcEndpoint = defaultEndpoint svc , _svcTimeout = Just 70 , _svcStatus = statusSuccess , _svcError = parseJSONError , _svcRetry = retry } 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 -- | An authentication error occurred. _AuthenticationFailedException :: AsError a => Getting (First ServiceError) a ServiceError _AuthenticationFailedException = _ServiceError . hasCode "AuthenticationFailedException" -- | The specified directory is unavailable or could not be found. _DirectoryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _DirectoryUnavailableException = _ServiceError . hasCode "DirectoryUnavailableException" -- | One or more parameters are not valid. _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException = _ServiceError . hasCode "InvalidParameterException" -- | The operation is not supported. _UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedOperationException = _ServiceError . hasCode "UnsupportedOperationException" -- | The specified entity already exists. _EntityAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError _EntityAlreadyExistsException = _ServiceError . hasCode "EntityAlreadyExistsException" -- | The maximum number of directories in the region has been reached. You -- can use the GetDirectoryLimits operation to determine your directory -- limits in the region. _DirectoryLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DirectoryLimitExceededException = _ServiceError . hasCode "DirectoryLimitExceededException" -- | The specified entity could not be found. _EntityDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError _EntityDoesNotExistException = _ServiceError . hasCode "EntityDoesNotExistException" -- | The account does not have sufficient permission to perform the -- operation. _InsufficientPermissionsException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientPermissionsException = _ServiceError . hasCode "InsufficientPermissionsException" -- | The /NextToken/ value is not valid. _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidNextTokenException = _ServiceError . hasCode "InvalidNextTokenException" -- | An exception has occurred in AWS Directory Service. _ServiceException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceException = _ServiceError . hasCode "ServiceException" -- | The maximum number of manual snapshots for the directory has been -- reached. You can use the GetSnapshotLimits operation to determine the -- snapshot limits for a directory. _SnapshotLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _SnapshotLimitExceededException = _ServiceError . hasCode "SnapshotLimitExceededException" -- | A client exception has occurred. _ClientException :: AsError a => Getting (First ServiceError) a ServiceError _ClientException = _ServiceError . hasCode "ClientException"