amazonka-ds 1.6.1 → 2.0

raw patch · 300 files changed

+27035/−10396 lines, 300 filesdep +case-insensitivedep ~amazonka-coredep ~amazonka-testdep ~basesetup-changedPVP ok

version bump matches the API change (PVP)

Dependencies added: case-insensitive

Dependency ranges changed: amazonka-core, amazonka-test, base

API changes (from Hackage documentation)

- Network.AWS.DirectoryService: ADConnector :: DirectoryType

- Network.AWS.DirectoryService: Active :: DomainControllerStatus

- Network.AWS.DirectoryService: AddFailed :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Added :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Adding :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Auto :: SnapshotType

- Network.AWS.DirectoryService: Chap :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService: Creating :: DomainControllerStatus

- Network.AWS.DirectoryService: DSActive :: DirectoryStage

- Network.AWS.DirectoryService: DSCreated :: DirectoryStage

- Network.AWS.DirectoryService: DSCreating :: DirectoryStage

- Network.AWS.DirectoryService: DSDeleted :: DirectoryStage

- Network.AWS.DirectoryService: DSDeleting :: DirectoryStage

- Network.AWS.DirectoryService: DSFailed :: DirectoryStage

- Network.AWS.DirectoryService: DSImpaired :: DirectoryStage

- Network.AWS.DirectoryService: DSInoperable :: DirectoryStage

- Network.AWS.DirectoryService: DSRequested :: DirectoryStage

- Network.AWS.DirectoryService: DSRestoreFailed :: DirectoryStage

- Network.AWS.DirectoryService: DSRestoring :: DirectoryStage

- Network.AWS.DirectoryService: Deleted :: DomainControllerStatus

- Network.AWS.DirectoryService: Deleting :: DomainControllerStatus

- Network.AWS.DirectoryService: Domain :: ReplicationScope

- Network.AWS.DirectoryService: Enterprise :: DirectoryEdition

- Network.AWS.DirectoryService: Failed :: DomainControllerStatus

- Network.AWS.DirectoryService: Forest :: TrustType

- Network.AWS.DirectoryService: Impaired :: DomainControllerStatus

- Network.AWS.DirectoryService: Large :: DirectorySize

- Network.AWS.DirectoryService: Manual :: SnapshotType

- Network.AWS.DirectoryService: MicrosoftAD :: DirectoryType

- Network.AWS.DirectoryService: MsCHAPV1 :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService: MsCHAPV2 :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService: OneWayIncoming :: TrustDirection

- Network.AWS.DirectoryService: OneWayOutgoing :: TrustDirection

- Network.AWS.DirectoryService: Pap :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService: RSCompleted :: RadiusStatus

- Network.AWS.DirectoryService: RSCreating :: RadiusStatus

- Network.AWS.DirectoryService: RSFailed :: RadiusStatus

- Network.AWS.DirectoryService: RemoveFailed :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Removed :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Removing :: IPRouteStatusMsg

- Network.AWS.DirectoryService: Restoring :: DomainControllerStatus

- Network.AWS.DirectoryService: SESCancelInProgress :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESCancelled :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESCompleted :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESCreatingSnapshot :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESFailed :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESInitializing :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESReplicating :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESRollbackInProgress :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SESUpdatingSchema :: SchemaExtensionStatus

- Network.AWS.DirectoryService: SSCompleted :: SnapshotStatus

- Network.AWS.DirectoryService: SSCreating :: SnapshotStatus

- Network.AWS.DirectoryService: SSFailed :: SnapshotStatus

- Network.AWS.DirectoryService: SimpleAD :: DirectoryType

- Network.AWS.DirectoryService: Small :: DirectorySize

- Network.AWS.DirectoryService: Standard :: DirectoryEdition

- Network.AWS.DirectoryService: TDeleted :: TopicStatus

- Network.AWS.DirectoryService: TFailed :: TopicStatus

- Network.AWS.DirectoryService: TRegistered :: TopicStatus

- Network.AWS.DirectoryService: TSCreated :: TrustState

- Network.AWS.DirectoryService: TSCreating :: TrustState

- Network.AWS.DirectoryService: TSDeleted :: TrustState

- Network.AWS.DirectoryService: TSDeleting :: TrustState

- Network.AWS.DirectoryService: TSFailed :: TrustState

- Network.AWS.DirectoryService: TSVerified :: TrustState

- Network.AWS.DirectoryService: TSVerifyFailed :: TrustState

- Network.AWS.DirectoryService: TSVerifying :: TrustState

- Network.AWS.DirectoryService: TTopicNotFound :: TopicStatus

- Network.AWS.DirectoryService: TwoWay :: TrustDirection

- Network.AWS.DirectoryService: _AuthenticationFailedException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _ClientException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _DirectoryLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _DirectoryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _DomainControllerLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _EntityAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _EntityDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _IPRouteLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _InsufficientPermissionsException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _ServiceException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _SnapshotLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: _UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService: aName :: Lens' Attribute (Maybe Text)

- Network.AWS.DirectoryService: aValue :: Lens' Attribute (Maybe Text)

- Network.AWS.DirectoryService: attribute :: Attribute

- Network.AWS.DirectoryService: cComputerAttributes :: Lens' Computer [Attribute]

- Network.AWS.DirectoryService: cComputerId :: Lens' Computer (Maybe Text)

- Network.AWS.DirectoryService: cComputerName :: Lens' Computer (Maybe Text)

- Network.AWS.DirectoryService: cfDNSIPAddrs :: Lens' ConditionalForwarder [Text]

- Network.AWS.DirectoryService: cfRemoteDomainName :: Lens' ConditionalForwarder (Maybe Text)

- Network.AWS.DirectoryService: cfReplicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)

- Network.AWS.DirectoryService: computer :: Computer

- Network.AWS.DirectoryService: conditionalForwarder :: ConditionalForwarder

- Network.AWS.DirectoryService: data Attribute

- Network.AWS.DirectoryService: data Computer

- Network.AWS.DirectoryService: data ConditionalForwarder

- Network.AWS.DirectoryService: data DirectoryConnectSettings

- Network.AWS.DirectoryService: data DirectoryConnectSettingsDescription

- Network.AWS.DirectoryService: data DirectoryDescription

- Network.AWS.DirectoryService: data DirectoryEdition

- Network.AWS.DirectoryService: data DirectoryLimits

- Network.AWS.DirectoryService: data DirectorySize

- Network.AWS.DirectoryService: data DirectoryStage

- Network.AWS.DirectoryService: data DirectoryType

- Network.AWS.DirectoryService: data DirectoryVPCSettings

- Network.AWS.DirectoryService: data DirectoryVPCSettingsDescription

- Network.AWS.DirectoryService: data DomainController

- Network.AWS.DirectoryService: data DomainControllerStatus

- Network.AWS.DirectoryService: data EventTopic

- Network.AWS.DirectoryService: data IPRoute

- Network.AWS.DirectoryService: data IPRouteInfo

- Network.AWS.DirectoryService: data IPRouteStatusMsg

- Network.AWS.DirectoryService: data RadiusAuthenticationProtocol

- Network.AWS.DirectoryService: data RadiusSettings

- Network.AWS.DirectoryService: data RadiusStatus

- Network.AWS.DirectoryService: data ReplicationScope

- Network.AWS.DirectoryService: data SchemaExtensionInfo

- Network.AWS.DirectoryService: data SchemaExtensionStatus

- Network.AWS.DirectoryService: data Snapshot

- Network.AWS.DirectoryService: data SnapshotLimits

- Network.AWS.DirectoryService: data SnapshotStatus

- Network.AWS.DirectoryService: data SnapshotType

- Network.AWS.DirectoryService: data Tag

- Network.AWS.DirectoryService: data TopicStatus

- Network.AWS.DirectoryService: data Trust

- Network.AWS.DirectoryService: data TrustDirection

- Network.AWS.DirectoryService: data TrustState

- Network.AWS.DirectoryService: data TrustType

- Network.AWS.DirectoryService: dcAvailabilityZone :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcDNSIPAddr :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcDirectoryId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcDomainControllerId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcLaunchTime :: Lens' DomainController (Maybe UTCTime)

- Network.AWS.DirectoryService: dcStatus :: Lens' DomainController (Maybe DomainControllerStatus)

- Network.AWS.DirectoryService: dcStatusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)

- Network.AWS.DirectoryService: dcStatusReason :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcSubnetId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcVPCId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService: dcsCustomerDNSIPs :: Lens' DirectoryConnectSettings [Text]

- Network.AWS.DirectoryService: dcsCustomerUserName :: Lens' DirectoryConnectSettings Text

- Network.AWS.DirectoryService: dcsSubnetIds :: Lens' DirectoryConnectSettings [Text]

- Network.AWS.DirectoryService: dcsVPCId :: Lens' DirectoryConnectSettings Text

- Network.AWS.DirectoryService: dcsdAvailabilityZones :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService: dcsdConnectIPs :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService: dcsdCustomerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService: dcsdSecurityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService: dcsdSubnetIds :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService: dcsdVPCId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService: ddAccessURL :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddAlias :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddConnectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)

- Network.AWS.DirectoryService: ddDNSIPAddrs :: Lens' DirectoryDescription [Text]

- Network.AWS.DirectoryService: ddDescription :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddDesiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)

- Network.AWS.DirectoryService: ddDirectoryId :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddEdition :: Lens' DirectoryDescription (Maybe DirectoryEdition)

- Network.AWS.DirectoryService: ddLaunchTime :: Lens' DirectoryDescription (Maybe UTCTime)

- Network.AWS.DirectoryService: ddName :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddRadiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)

- Network.AWS.DirectoryService: ddRadiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)

- Network.AWS.DirectoryService: ddSSOEnabled :: Lens' DirectoryDescription (Maybe Bool)

- Network.AWS.DirectoryService: ddShortName :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddSize :: Lens' DirectoryDescription (Maybe DirectorySize)

- Network.AWS.DirectoryService: ddStage :: Lens' DirectoryDescription (Maybe DirectoryStage)

- Network.AWS.DirectoryService: ddStageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)

- Network.AWS.DirectoryService: ddStageReason :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService: ddType :: Lens' DirectoryDescription (Maybe DirectoryType)

- Network.AWS.DirectoryService: ddVPCSettings :: Lens' DirectoryDescription (Maybe DirectoryVPCSettingsDescription)

- Network.AWS.DirectoryService: directoryConnectSettings :: Text -> Text -> DirectoryConnectSettings

- Network.AWS.DirectoryService: directoryConnectSettingsDescription :: DirectoryConnectSettingsDescription

- Network.AWS.DirectoryService: directoryDescription :: DirectoryDescription

- Network.AWS.DirectoryService: directoryLimits :: DirectoryLimits

- Network.AWS.DirectoryService: directoryService :: Service

- Network.AWS.DirectoryService: directoryVPCSettings :: Text -> DirectoryVPCSettings

- Network.AWS.DirectoryService: directoryVPCSettingsDescription :: DirectoryVPCSettingsDescription

- Network.AWS.DirectoryService: dlCloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlCloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlCloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService: dlCloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlCloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlCloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService: dlConnectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlConnectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService: dlConnectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService: domainController :: DomainController

- Network.AWS.DirectoryService: dvsSubnetIds :: Lens' DirectoryVPCSettings [Text]

- Network.AWS.DirectoryService: dvsVPCId :: Lens' DirectoryVPCSettings Text

- Network.AWS.DirectoryService: dvsdAvailabilityZones :: Lens' DirectoryVPCSettingsDescription [Text]

- Network.AWS.DirectoryService: dvsdSecurityGroupId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService: dvsdSubnetIds :: Lens' DirectoryVPCSettingsDescription [Text]

- Network.AWS.DirectoryService: dvsdVPCId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService: etCreatedDateTime :: Lens' EventTopic (Maybe UTCTime)

- Network.AWS.DirectoryService: etDirectoryId :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService: etStatus :: Lens' EventTopic (Maybe TopicStatus)

- Network.AWS.DirectoryService: etTopicARN :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService: etTopicName :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService: eventTopic :: EventTopic

- Network.AWS.DirectoryService: ipRoute :: IPRoute

- Network.AWS.DirectoryService: ipRouteInfo :: IPRouteInfo

- Network.AWS.DirectoryService: irCidrIP :: Lens' IPRoute (Maybe Text)

- Network.AWS.DirectoryService: irDescription :: Lens' IPRoute (Maybe Text)

- Network.AWS.DirectoryService: iriAddedDateTime :: Lens' IPRouteInfo (Maybe UTCTime)

- Network.AWS.DirectoryService: iriCidrIP :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService: iriDescription :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService: iriDirectoryId :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService: iriIPRouteStatusMsg :: Lens' IPRouteInfo (Maybe IPRouteStatusMsg)

- Network.AWS.DirectoryService: iriIPRouteStatusReason :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService: radiusSettings :: RadiusSettings

- Network.AWS.DirectoryService: rsAuthenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)

- Network.AWS.DirectoryService: rsDisplayLabel :: Lens' RadiusSettings (Maybe Text)

- Network.AWS.DirectoryService: rsRadiusPort :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService: rsRadiusRetries :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService: rsRadiusServers :: Lens' RadiusSettings [Text]

- Network.AWS.DirectoryService: rsRadiusTimeout :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService: rsSharedSecret :: Lens' RadiusSettings (Maybe Text)

- Network.AWS.DirectoryService: rsUseSameUsername :: Lens' RadiusSettings (Maybe Bool)

- Network.AWS.DirectoryService: sDirectoryId :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService: sName :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService: sSnapshotId :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService: sStartTime :: Lens' Snapshot (Maybe UTCTime)

- Network.AWS.DirectoryService: sStatus :: Lens' Snapshot (Maybe SnapshotStatus)

- Network.AWS.DirectoryService: sType :: Lens' Snapshot (Maybe SnapshotType)

- Network.AWS.DirectoryService: schemaExtensionInfo :: SchemaExtensionInfo

- Network.AWS.DirectoryService: seiDescription :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService: seiDirectoryId :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService: seiEndDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

- Network.AWS.DirectoryService: seiSchemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService: seiSchemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)

- Network.AWS.DirectoryService: seiSchemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService: seiStartDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

- Network.AWS.DirectoryService: slManualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)

- Network.AWS.DirectoryService: slManualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)

- Network.AWS.DirectoryService: slManualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)

- Network.AWS.DirectoryService: snapshot :: Snapshot

- Network.AWS.DirectoryService: snapshotLimits :: SnapshotLimits

- Network.AWS.DirectoryService: tCreatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService: tDirectoryId :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService: tLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService: tRemoteDomainName :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService: tStateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService: tTrustDirection :: Lens' Trust (Maybe TrustDirection)

- Network.AWS.DirectoryService: tTrustId :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService: tTrustState :: Lens' Trust (Maybe TrustState)

- Network.AWS.DirectoryService: tTrustStateReason :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService: tTrustType :: Lens' Trust (Maybe TrustType)

- Network.AWS.DirectoryService: tag :: Text -> Text -> Tag

- Network.AWS.DirectoryService: tagKey :: Lens' Tag Text

- Network.AWS.DirectoryService: tagValue :: Lens' Tag Text

- Network.AWS.DirectoryService: trust :: Trust

- Network.AWS.DirectoryService.AddIPRoutes: addIPRoutes :: Text -> AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: addIPRoutesResponse :: Int -> AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: airDirectoryId :: Lens' AddIPRoutes Text

- Network.AWS.DirectoryService.AddIPRoutes: airIPRoutes :: Lens' AddIPRoutes [IPRoute]

- Network.AWS.DirectoryService.AddIPRoutes: airUpdateSecurityGroupForDirectoryControllers :: Lens' AddIPRoutes (Maybe Bool)

- Network.AWS.DirectoryService.AddIPRoutes: airrsResponseStatus :: Lens' AddIPRoutesResponse Int

- Network.AWS.DirectoryService.AddIPRoutes: data AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: data AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutesResponse

- Network.AWS.DirectoryService.AddIPRoutes: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddIPRoutes: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.AddIPRoutes.AddIPRoutes

- Network.AWS.DirectoryService.AddTagsToResource: addTagsToResource :: Text -> AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: addTagsToResourceResponse :: Int -> AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: attrResourceId :: Lens' AddTagsToResource Text

- Network.AWS.DirectoryService.AddTagsToResource: attrTags :: Lens' AddTagsToResource [Tag]

- Network.AWS.DirectoryService.AddTagsToResource: attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int

- Network.AWS.DirectoryService.AddTagsToResource: data AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: data AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Data.Data.Data Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Data.Data.Data Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Read.Read Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Read.Read Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Show.Show Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance GHC.Show.Show Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

- Network.AWS.DirectoryService.AddTagsToResource: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.AddTagsToResource: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.AddTagsToResource.AddTagsToResource

- Network.AWS.DirectoryService.CancelSchemaExtension: cancelSchemaExtension :: Text -> Text -> CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: cancelSchemaExtensionResponse :: Int -> CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: cseDirectoryId :: Lens' CancelSchemaExtension Text

- Network.AWS.DirectoryService.CancelSchemaExtension: cseSchemaExtensionId :: Lens' CancelSchemaExtension Text

- Network.AWS.DirectoryService.CancelSchemaExtension: csersResponseStatus :: Lens' CancelSchemaExtensionResponse Int

- Network.AWS.DirectoryService.CancelSchemaExtension: data CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: data CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Data.Data.Data Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Data.Data.Data Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Classes.Eq Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Classes.Eq Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Generics.Generic Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Generics.Generic Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Read.Read Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Read.Read Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Show.Show Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance GHC.Show.Show Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.CancelSchemaExtension: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

- Network.AWS.DirectoryService.ConnectDirectory: cdConnectSettings :: Lens' ConnectDirectory DirectoryConnectSettings

- Network.AWS.DirectoryService.ConnectDirectory: cdDescription :: Lens' ConnectDirectory (Maybe Text)

- Network.AWS.DirectoryService.ConnectDirectory: cdName :: Lens' ConnectDirectory Text

- Network.AWS.DirectoryService.ConnectDirectory: cdPassword :: Lens' ConnectDirectory Text

- Network.AWS.DirectoryService.ConnectDirectory: cdShortName :: Lens' ConnectDirectory (Maybe Text)

- Network.AWS.DirectoryService.ConnectDirectory: cdSize :: Lens' ConnectDirectory DirectorySize

- Network.AWS.DirectoryService.ConnectDirectory: cdrsDirectoryId :: Lens' ConnectDirectoryResponse (Maybe Text)

- Network.AWS.DirectoryService.ConnectDirectory: cdrsResponseStatus :: Lens' ConnectDirectoryResponse Int

- Network.AWS.DirectoryService.ConnectDirectory: connectDirectory :: Text -> Text -> DirectorySize -> DirectoryConnectSettings -> ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: connectDirectoryResponse :: Int -> ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: data ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: data ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Data.Data.Data Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Data.Data.Data Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Read.Read Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

- Network.AWS.DirectoryService.ConnectDirectory: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.ConnectDirectory: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.ConnectDirectory.ConnectDirectory

- Network.AWS.DirectoryService.CreateAlias: caAlias :: Lens' CreateAlias Text

- Network.AWS.DirectoryService.CreateAlias: caDirectoryId :: Lens' CreateAlias Text

- Network.AWS.DirectoryService.CreateAlias: carsAlias :: Lens' CreateAliasResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateAlias: carsDirectoryId :: Lens' CreateAliasResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateAlias: carsResponseStatus :: Lens' CreateAliasResponse Int

- Network.AWS.DirectoryService.CreateAlias: createAlias :: Text -> Text -> CreateAlias

- Network.AWS.DirectoryService.CreateAlias: createAliasResponse :: Int -> CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: data CreateAlias

- Network.AWS.DirectoryService.CreateAlias: data CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Data.Data.Data Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Data.Data.Data Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Read.Read Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Read.Read Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Show.Show Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance GHC.Show.Show Network.AWS.DirectoryService.CreateAlias.CreateAliasResponse

- Network.AWS.DirectoryService.CreateAlias: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateAlias: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateAlias.CreateAlias

- Network.AWS.DirectoryService.CreateComputer: ccComputerAttributes :: Lens' CreateComputer [Attribute]

- Network.AWS.DirectoryService.CreateComputer: ccComputerName :: Lens' CreateComputer Text

- Network.AWS.DirectoryService.CreateComputer: ccDirectoryId :: Lens' CreateComputer Text

- Network.AWS.DirectoryService.CreateComputer: ccOrganizationalUnitDistinguishedName :: Lens' CreateComputer (Maybe Text)

- Network.AWS.DirectoryService.CreateComputer: ccPassword :: Lens' CreateComputer Text

- Network.AWS.DirectoryService.CreateComputer: ccrsComputer :: Lens' CreateComputerResponse (Maybe Computer)

- Network.AWS.DirectoryService.CreateComputer: ccrsResponseStatus :: Lens' CreateComputerResponse Int

- Network.AWS.DirectoryService.CreateComputer: createComputer :: Text -> Text -> Text -> CreateComputer

- Network.AWS.DirectoryService.CreateComputer: createComputerResponse :: Int -> CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: data CreateComputer

- Network.AWS.DirectoryService.CreateComputer: data CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Data.Data.Data Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Data.Data.Data Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Read.Read Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Show.Show Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance GHC.Show.Show Network.AWS.DirectoryService.CreateComputer.CreateComputerResponse

- Network.AWS.DirectoryService.CreateComputer: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateComputer: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateComputer.CreateComputer

- Network.AWS.DirectoryService.CreateConditionalForwarder: ccfDNSIPAddrs :: Lens' CreateConditionalForwarder [Text]

- Network.AWS.DirectoryService.CreateConditionalForwarder: ccfDirectoryId :: Lens' CreateConditionalForwarder Text

- Network.AWS.DirectoryService.CreateConditionalForwarder: ccfRemoteDomainName :: Lens' CreateConditionalForwarder Text

- Network.AWS.DirectoryService.CreateConditionalForwarder: ccfrsResponseStatus :: Lens' CreateConditionalForwarderResponse Int

- Network.AWS.DirectoryService.CreateConditionalForwarder: createConditionalForwarder :: Text -> Text -> CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: createConditionalForwarderResponse :: Int -> CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: data CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: data CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateConditionalForwarder: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

- Network.AWS.DirectoryService.CreateDirectory: cDescription :: Lens' CreateDirectory (Maybe Text)

- Network.AWS.DirectoryService.CreateDirectory: cName :: Lens' CreateDirectory Text

- Network.AWS.DirectoryService.CreateDirectory: cPassword :: Lens' CreateDirectory Text

- Network.AWS.DirectoryService.CreateDirectory: cShortName :: Lens' CreateDirectory (Maybe Text)

- Network.AWS.DirectoryService.CreateDirectory: cSize :: Lens' CreateDirectory DirectorySize

- Network.AWS.DirectoryService.CreateDirectory: cVPCSettings :: Lens' CreateDirectory (Maybe DirectoryVPCSettings)

- Network.AWS.DirectoryService.CreateDirectory: createDirectory :: Text -> Text -> DirectorySize -> CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: createDirectoryResponse :: Int -> CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: crsDirectoryId :: Lens' CreateDirectoryResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateDirectory: crsResponseStatus :: Lens' CreateDirectoryResponse Int

- Network.AWS.DirectoryService.CreateDirectory: data CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: data CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Data.Data.Data Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Data.Data.Data Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Read.Read Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.CreateDirectory.CreateDirectoryResponse

- Network.AWS.DirectoryService.CreateDirectory: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateDirectory: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateDirectory.CreateDirectory

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadDescription :: Lens' CreateMicrosoftAD (Maybe Text)

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadEdition :: Lens' CreateMicrosoftAD (Maybe DirectoryEdition)

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadName :: Lens' CreateMicrosoftAD Text

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadPassword :: Lens' CreateMicrosoftAD Text

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadShortName :: Lens' CreateMicrosoftAD (Maybe Text)

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadVPCSettings :: Lens' CreateMicrosoftAD DirectoryVPCSettings

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadrsDirectoryId :: Lens' CreateMicrosoftADResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateMicrosoftAD: cmadrsResponseStatus :: Lens' CreateMicrosoftADResponse Int

- Network.AWS.DirectoryService.CreateMicrosoftAD: createMicrosoftAD :: Text -> Text -> DirectoryVPCSettings -> CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: createMicrosoftADResponse :: Int -> CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: data CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: data CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Data.Data.Data Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Data.Data.Data Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Read.Read Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Show.Show Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance GHC.Show.Show Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateMicrosoftAD: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

- Network.AWS.DirectoryService.CreateSnapshot: createSnapshot :: Text -> CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: createSnapshotResponse :: Int -> CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: csDirectoryId :: Lens' CreateSnapshot Text

- Network.AWS.DirectoryService.CreateSnapshot: csName :: Lens' CreateSnapshot (Maybe Text)

- Network.AWS.DirectoryService.CreateSnapshot: csrsResponseStatus :: Lens' CreateSnapshotResponse Int

- Network.AWS.DirectoryService.CreateSnapshot: csrsSnapshotId :: Lens' CreateSnapshotResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateSnapshot: data CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: data CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshotResponse

- Network.AWS.DirectoryService.CreateSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateSnapshot.CreateSnapshot

- Network.AWS.DirectoryService.CreateTrust: createTrust :: Text -> Text -> Text -> TrustDirection -> CreateTrust

- Network.AWS.DirectoryService.CreateTrust: createTrustResponse :: Int -> CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: ctConditionalForwarderIPAddrs :: Lens' CreateTrust [Text]

- Network.AWS.DirectoryService.CreateTrust: ctDirectoryId :: Lens' CreateTrust Text

- Network.AWS.DirectoryService.CreateTrust: ctRemoteDomainName :: Lens' CreateTrust Text

- Network.AWS.DirectoryService.CreateTrust: ctTrustDirection :: Lens' CreateTrust TrustDirection

- Network.AWS.DirectoryService.CreateTrust: ctTrustPassword :: Lens' CreateTrust Text

- Network.AWS.DirectoryService.CreateTrust: ctTrustType :: Lens' CreateTrust (Maybe TrustType)

- Network.AWS.DirectoryService.CreateTrust: ctrsResponseStatus :: Lens' CreateTrustResponse Int

- Network.AWS.DirectoryService.CreateTrust: ctrsTrustId :: Lens' CreateTrustResponse (Maybe Text)

- Network.AWS.DirectoryService.CreateTrust: data CreateTrust

- Network.AWS.DirectoryService.CreateTrust: data CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Data.Data.Data Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Data.Data.Data Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Read.Read Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Show.Show Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance GHC.Show.Show Network.AWS.DirectoryService.CreateTrust.CreateTrustResponse

- Network.AWS.DirectoryService.CreateTrust: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.CreateTrust: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.CreateTrust.CreateTrust

- Network.AWS.DirectoryService.DeleteConditionalForwarder: data DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: data DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: delDirectoryId :: Lens' DeleteConditionalForwarder Text

- Network.AWS.DirectoryService.DeleteConditionalForwarder: delRemoteDomainName :: Lens' DeleteConditionalForwarder Text

- Network.AWS.DirectoryService.DeleteConditionalForwarder: deleteConditionalForwarder :: Text -> Text -> DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: deleteConditionalForwarderResponse :: Int -> DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: drsResponseStatus :: Lens' DeleteConditionalForwarderResponse Int

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteConditionalForwarder: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

- Network.AWS.DirectoryService.DeleteDirectory: data DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: data DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: dddDirectoryId :: Lens' DeleteDirectory Text

- Network.AWS.DirectoryService.DeleteDirectory: deleteDirectory :: Text -> DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: deleteDirectoryResponse :: Int -> DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: delrsDirectoryId :: Lens' DeleteDirectoryResponse (Maybe Text)

- Network.AWS.DirectoryService.DeleteDirectory: delrsResponseStatus :: Lens' DeleteDirectoryResponse Int

- Network.AWS.DirectoryService.DeleteDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Data.Data.Data Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Data.Data.Data Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

- Network.AWS.DirectoryService.DeleteDirectory: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteDirectory: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DeleteDirectory.DeleteDirectory

- Network.AWS.DirectoryService.DeleteSnapshot: data DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: data DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: deleteSnapshot :: Text -> DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: deleteSnapshotResponse :: Int -> DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: dsSnapshotId :: Lens' DeleteSnapshot Text

- Network.AWS.DirectoryService.DeleteSnapshot: dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int

- Network.AWS.DirectoryService.DeleteSnapshot: dsrsSnapshotId :: Lens' DeleteSnapshotResponse (Maybe Text)

- Network.AWS.DirectoryService.DeleteSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

- Network.AWS.DirectoryService.DeleteSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DeleteSnapshot.DeleteSnapshot

- Network.AWS.DirectoryService.DeleteTrust: data DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: data DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: deleteTrust :: Text -> DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: deleteTrustResponse :: Int -> DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: dtDeleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)

- Network.AWS.DirectoryService.DeleteTrust: dtTrustId :: Lens' DeleteTrust Text

- Network.AWS.DirectoryService.DeleteTrust: dttrsResponseStatus :: Lens' DeleteTrustResponse Int

- Network.AWS.DirectoryService.DeleteTrust: dttrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)

- Network.AWS.DirectoryService.DeleteTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Data.Data.Data Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Data.Data.Data Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Read.Read Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance GHC.Show.Show Network.AWS.DirectoryService.DeleteTrust.DeleteTrustResponse

- Network.AWS.DirectoryService.DeleteTrust: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeleteTrust: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DeleteTrust.DeleteTrust

- Network.AWS.DirectoryService.DeregisterEventTopic: data DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: data DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: deregisterEventTopic :: Text -> Text -> DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: deregisterEventTopicResponse :: Int -> DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: derrsResponseStatus :: Lens' DeregisterEventTopicResponse Int

- Network.AWS.DirectoryService.DeregisterEventTopic: detDirectoryId :: Lens' DeregisterEventTopic Text

- Network.AWS.DirectoryService.DeregisterEventTopic: detTopicName :: Lens' DeregisterEventTopic Text

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Data.Data.Data Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Data.Data.Data Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Classes.Eq Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Generics.Generic Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Read.Read Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Read.Read Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Show.Show Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance GHC.Show.Show Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DeregisterEventTopic: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

- Network.AWS.DirectoryService.DescribeConditionalForwarders: data DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: data DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: dcfDirectoryId :: Lens' DescribeConditionalForwarders Text

- Network.AWS.DirectoryService.DescribeConditionalForwarders: dcfRemoteDomainNames :: Lens' DescribeConditionalForwarders [Text]

- Network.AWS.DirectoryService.DescribeConditionalForwarders: dcfrsConditionalForwarders :: Lens' DescribeConditionalForwardersResponse [ConditionalForwarder]

- Network.AWS.DirectoryService.DescribeConditionalForwarders: dcfrsResponseStatus :: Lens' DescribeConditionalForwardersResponse Int

- Network.AWS.DirectoryService.DescribeConditionalForwarders: describeConditionalForwarders :: Text -> DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: describeConditionalForwardersResponse :: Int -> DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Data.Data.Data Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Data.Data.Data Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeConditionalForwarders: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

- Network.AWS.DirectoryService.DescribeDirectories: data DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: data DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: ddDirectoryIds :: Lens' DescribeDirectories [Text]

- Network.AWS.DirectoryService.DescribeDirectories: ddLimit :: Lens' DescribeDirectories (Maybe Natural)

- Network.AWS.DirectoryService.DescribeDirectories: ddNextToken :: Lens' DescribeDirectories (Maybe Text)

- Network.AWS.DirectoryService.DescribeDirectories: ddrsDirectoryDescriptions :: Lens' DescribeDirectoriesResponse [DirectoryDescription]

- Network.AWS.DirectoryService.DescribeDirectories: ddrsNextToken :: Lens' DescribeDirectoriesResponse (Maybe Text)

- Network.AWS.DirectoryService.DescribeDirectories: ddrsResponseStatus :: Lens' DescribeDirectoriesResponse Int

- Network.AWS.DirectoryService.DescribeDirectories: describeDirectories :: DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: describeDirectoriesResponse :: Int -> DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Data.Data.Data Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Data.Data.Data Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

- Network.AWS.DirectoryService.DescribeDirectories: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDirectories: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeDirectories.DescribeDirectories

- Network.AWS.DirectoryService.DescribeDomainControllers: data DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: data DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcDirectoryId :: Lens' DescribeDomainControllers Text

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcDomainControllerIds :: Lens' DescribeDomainControllers [Text]

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcLimit :: Lens' DescribeDomainControllers (Maybe Natural)

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcNextToken :: Lens' DescribeDomainControllers (Maybe Text)

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcrsDomainControllers :: Lens' DescribeDomainControllersResponse [DomainController]

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcrsNextToken :: Lens' DescribeDomainControllersResponse (Maybe Text)

- Network.AWS.DirectoryService.DescribeDomainControllers: ddcrsResponseStatus :: Lens' DescribeDomainControllersResponse Int

- Network.AWS.DirectoryService.DescribeDomainControllers: describeDomainControllers :: Text -> DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: describeDomainControllersResponse :: Int -> DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Data.Data.Data Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Data.Data.Data Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Network.AWS.Pager.AWSPager Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeDomainControllers: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

- Network.AWS.DirectoryService.DescribeEventTopics: dDirectoryId :: Lens' DescribeEventTopics (Maybe Text)

- Network.AWS.DirectoryService.DescribeEventTopics: dTopicNames :: Lens' DescribeEventTopics [Text]

- Network.AWS.DirectoryService.DescribeEventTopics: data DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: data DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: describeEventTopics :: DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: describeEventTopicsResponse :: Int -> DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: detrsEventTopics :: Lens' DescribeEventTopicsResponse [EventTopic]

- Network.AWS.DirectoryService.DescribeEventTopics: detrsResponseStatus :: Lens' DescribeEventTopicsResponse Int

- Network.AWS.DirectoryService.DescribeEventTopics: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Data.Data.Data Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Data.Data.Data Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

- Network.AWS.DirectoryService.DescribeEventTopics: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeEventTopics: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeEventTopics.DescribeEventTopics

- Network.AWS.DirectoryService.DescribeSnapshots: data DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: data DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: describeSnapshots :: DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: describeSnapshotsResponse :: Int -> DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: dsDirectoryId :: Lens' DescribeSnapshots (Maybe Text)

- Network.AWS.DirectoryService.DescribeSnapshots: dsLimit :: Lens' DescribeSnapshots (Maybe Natural)

- Network.AWS.DirectoryService.DescribeSnapshots: dsNextToken :: Lens' DescribeSnapshots (Maybe Text)

- Network.AWS.DirectoryService.DescribeSnapshots: dsSnapshotIds :: Lens' DescribeSnapshots [Text]

- Network.AWS.DirectoryService.DescribeSnapshots: dssrsNextToken :: Lens' DescribeSnapshotsResponse (Maybe Text)

- Network.AWS.DirectoryService.DescribeSnapshots: dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int

- Network.AWS.DirectoryService.DescribeSnapshots: dssrsSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot]

- Network.AWS.DirectoryService.DescribeSnapshots: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Data.Data.Data Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Data.Data.Data Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

- Network.AWS.DirectoryService.DescribeSnapshots: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeSnapshots: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeSnapshots.DescribeSnapshots

- Network.AWS.DirectoryService.DescribeTrusts: data DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: data DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: describeTrusts :: DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: describeTrustsResponse :: Int -> DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: dtDirectoryId :: Lens' DescribeTrusts (Maybe Text)

- Network.AWS.DirectoryService.DescribeTrusts: dtLimit :: Lens' DescribeTrusts (Maybe Natural)

- Network.AWS.DirectoryService.DescribeTrusts: dtNextToken :: Lens' DescribeTrusts (Maybe Text)

- Network.AWS.DirectoryService.DescribeTrusts: dtTrustIds :: Lens' DescribeTrusts [Text]

- Network.AWS.DirectoryService.DescribeTrusts: dtrsNextToken :: Lens' DescribeTrustsResponse (Maybe Text)

- Network.AWS.DirectoryService.DescribeTrusts: dtrsResponseStatus :: Lens' DescribeTrustsResponse Int

- Network.AWS.DirectoryService.DescribeTrusts: dtrsTrusts :: Lens' DescribeTrustsResponse [Trust]

- Network.AWS.DirectoryService.DescribeTrusts: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Data.Data.Data Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Data.Data.Data Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Classes.Eq Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Generics.Generic Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Read.Read Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance GHC.Show.Show Network.AWS.DirectoryService.DescribeTrusts.DescribeTrustsResponse

- Network.AWS.DirectoryService.DescribeTrusts: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DescribeTrusts: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DescribeTrusts.DescribeTrusts

- Network.AWS.DirectoryService.DisableRadius: data DisableRadius

- Network.AWS.DirectoryService.DisableRadius: data DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: disableRadius :: Text -> DisableRadius

- Network.AWS.DirectoryService.DisableRadius: disableRadiusResponse :: Int -> DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: drDirectoryId :: Lens' DisableRadius Text

- Network.AWS.DirectoryService.DisableRadius: drrsResponseStatus :: Lens' DisableRadiusResponse Int

- Network.AWS.DirectoryService.DisableRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Data.Data.Data Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Data.Data.Data Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Read.Read Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Read.Read Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Show.Show Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance GHC.Show.Show Network.AWS.DirectoryService.DisableRadius.DisableRadiusResponse

- Network.AWS.DirectoryService.DisableRadius: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableRadius: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DisableRadius.DisableRadius

- Network.AWS.DirectoryService.DisableSSO: data DisableSSO

- Network.AWS.DirectoryService.DisableSSO: data DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: disableSSO :: Text -> DisableSSO

- Network.AWS.DirectoryService.DisableSSO: disableSSOResponse :: Int -> DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: dssoDirectoryId :: Lens' DisableSSO Text

- Network.AWS.DirectoryService.DisableSSO: dssoPassword :: Lens' DisableSSO (Maybe Text)

- Network.AWS.DirectoryService.DisableSSO: dssoUserName :: Lens' DisableSSO (Maybe Text)

- Network.AWS.DirectoryService.DisableSSO: dssorsResponseStatus :: Lens' DisableSSOResponse Int

- Network.AWS.DirectoryService.DisableSSO: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Data.Data.Data Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Data.Data.Data Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Classes.Eq Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Classes.Eq Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Generics.Generic Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Generics.Generic Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Read.Read Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Show.Show Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance GHC.Show.Show Network.AWS.DirectoryService.DisableSSO.DisableSSOResponse

- Network.AWS.DirectoryService.DisableSSO: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.DisableSSO: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.DisableSSO.DisableSSO

- Network.AWS.DirectoryService.EnableRadius: data EnableRadius

- Network.AWS.DirectoryService.EnableRadius: data EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: enableRadius :: Text -> RadiusSettings -> EnableRadius

- Network.AWS.DirectoryService.EnableRadius: enableRadiusResponse :: Int -> EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: erDirectoryId :: Lens' EnableRadius Text

- Network.AWS.DirectoryService.EnableRadius: erRadiusSettings :: Lens' EnableRadius RadiusSettings

- Network.AWS.DirectoryService.EnableRadius: errsResponseStatus :: Lens' EnableRadiusResponse Int

- Network.AWS.DirectoryService.EnableRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Data.Data.Data Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Data.Data.Data Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Read.Read Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Show.Show Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance GHC.Show.Show Network.AWS.DirectoryService.EnableRadius.EnableRadiusResponse

- Network.AWS.DirectoryService.EnableRadius: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableRadius: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.EnableRadius.EnableRadius

- Network.AWS.DirectoryService.EnableSSO: data EnableSSO

- Network.AWS.DirectoryService.EnableSSO: data EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: enableSSO :: Text -> EnableSSO

- Network.AWS.DirectoryService.EnableSSO: enableSSOResponse :: Int -> EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: esDirectoryId :: Lens' EnableSSO Text

- Network.AWS.DirectoryService.EnableSSO: esPassword :: Lens' EnableSSO (Maybe Text)

- Network.AWS.DirectoryService.EnableSSO: esUserName :: Lens' EnableSSO (Maybe Text)

- Network.AWS.DirectoryService.EnableSSO: esrsResponseStatus :: Lens' EnableSSOResponse Int

- Network.AWS.DirectoryService.EnableSSO: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Data.Data.Data Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Data.Data.Data Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Classes.Eq Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Classes.Eq Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Generics.Generic Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Generics.Generic Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Read.Read Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Show.Show Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance GHC.Show.Show Network.AWS.DirectoryService.EnableSSO.EnableSSOResponse

- Network.AWS.DirectoryService.EnableSSO: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.EnableSSO: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.EnableSSO.EnableSSO

- Network.AWS.DirectoryService.GetDirectoryLimits: data GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: data GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: gdlrsDirectoryLimits :: Lens' GetDirectoryLimitsResponse (Maybe DirectoryLimits)

- Network.AWS.DirectoryService.GetDirectoryLimits: gdlrsResponseStatus :: Lens' GetDirectoryLimitsResponse Int

- Network.AWS.DirectoryService.GetDirectoryLimits: getDirectoryLimits :: GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: getDirectoryLimitsResponse :: Int -> GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Data.Data.Data Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Data.Data.Data Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Classes.Eq Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Classes.Eq Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Generics.Generic Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Generics.Generic Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Read.Read Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Read.Read Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Show.Show Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance GHC.Show.Show Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetDirectoryLimits: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: data GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: data GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: getSnapshotLimits :: Text -> GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: getSnapshotLimitsResponse :: Int -> GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: gslDirectoryId :: Lens' GetSnapshotLimits Text

- Network.AWS.DirectoryService.GetSnapshotLimits: gslrsResponseStatus :: Lens' GetSnapshotLimitsResponse Int

- Network.AWS.DirectoryService.GetSnapshotLimits: gslrsSnapshotLimits :: Lens' GetSnapshotLimitsResponse (Maybe SnapshotLimits)

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Data.Data.Data Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Data.Data.Data Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Classes.Eq Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Classes.Eq Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Generics.Generic Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Generics.Generic Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Read.Read Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Read.Read Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Show.Show Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance GHC.Show.Show Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.GetSnapshotLimits: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

- Network.AWS.DirectoryService.ListIPRoutes: data ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: data ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutesResponse

- Network.AWS.DirectoryService.ListIPRoutes: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.ListIPRoutes.ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: lirDirectoryId :: Lens' ListIPRoutes Text

- Network.AWS.DirectoryService.ListIPRoutes: lirLimit :: Lens' ListIPRoutes (Maybe Natural)

- Network.AWS.DirectoryService.ListIPRoutes: lirNextToken :: Lens' ListIPRoutes (Maybe Text)

- Network.AWS.DirectoryService.ListIPRoutes: lirrsIPRoutesInfo :: Lens' ListIPRoutesResponse [IPRouteInfo]

- Network.AWS.DirectoryService.ListIPRoutes: lirrsNextToken :: Lens' ListIPRoutesResponse (Maybe Text)

- Network.AWS.DirectoryService.ListIPRoutes: lirrsResponseStatus :: Lens' ListIPRoutesResponse Int

- Network.AWS.DirectoryService.ListIPRoutes: listIPRoutes :: Text -> ListIPRoutes

- Network.AWS.DirectoryService.ListIPRoutes: listIPRoutesResponse :: Int -> ListIPRoutesResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: data ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: data ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Data.Data.Data Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Data.Data.Data Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Read.Read Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Read.Read Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Show.Show Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance GHC.Show.Show Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: listSchemaExtensions :: Text -> ListSchemaExtensions

- Network.AWS.DirectoryService.ListSchemaExtensions: listSchemaExtensionsResponse :: Int -> ListSchemaExtensionsResponse

- Network.AWS.DirectoryService.ListSchemaExtensions: lseDirectoryId :: Lens' ListSchemaExtensions Text

- Network.AWS.DirectoryService.ListSchemaExtensions: lseLimit :: Lens' ListSchemaExtensions (Maybe Natural)

- Network.AWS.DirectoryService.ListSchemaExtensions: lseNextToken :: Lens' ListSchemaExtensions (Maybe Text)

- Network.AWS.DirectoryService.ListSchemaExtensions: lsersNextToken :: Lens' ListSchemaExtensionsResponse (Maybe Text)

- Network.AWS.DirectoryService.ListSchemaExtensions: lsersResponseStatus :: Lens' ListSchemaExtensionsResponse Int

- Network.AWS.DirectoryService.ListSchemaExtensions: lsersSchemaExtensionsInfo :: Lens' ListSchemaExtensionsResponse [SchemaExtensionInfo]

- Network.AWS.DirectoryService.ListTagsForResource: data ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: data ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Data.Data.Data Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Data.Data.Data Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Read.Read Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Read.Read Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Show.Show Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance GHC.Show.Show Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.ListTagsForResource.ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: listTagsForResource :: Text -> ListTagsForResource

- Network.AWS.DirectoryService.ListTagsForResource: listTagsForResourceResponse :: Int -> ListTagsForResourceResponse

- Network.AWS.DirectoryService.ListTagsForResource: ltfrLimit :: Lens' ListTagsForResource (Maybe Natural)

- Network.AWS.DirectoryService.ListTagsForResource: ltfrNextToken :: Lens' ListTagsForResource (Maybe Text)

- Network.AWS.DirectoryService.ListTagsForResource: ltfrResourceId :: Lens' ListTagsForResource Text

- Network.AWS.DirectoryService.ListTagsForResource: ltfrrsNextToken :: Lens' ListTagsForResourceResponse (Maybe Text)

- Network.AWS.DirectoryService.ListTagsForResource: ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int

- Network.AWS.DirectoryService.ListTagsForResource: ltfrrsTags :: Lens' ListTagsForResourceResponse [Tag]

- Network.AWS.DirectoryService.RegisterEventTopic: data RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: data RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Data.Data.Data Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Data.Data.Data Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Classes.Eq Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Classes.Eq Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Generics.Generic Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Generics.Generic Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Read.Read Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Read.Read Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Show.Show Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance GHC.Show.Show Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.RegisterEventTopic.RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: registerEventTopic :: Text -> Text -> RegisterEventTopic

- Network.AWS.DirectoryService.RegisterEventTopic: registerEventTopicResponse :: Int -> RegisterEventTopicResponse

- Network.AWS.DirectoryService.RegisterEventTopic: retDirectoryId :: Lens' RegisterEventTopic Text

- Network.AWS.DirectoryService.RegisterEventTopic: retTopicName :: Lens' RegisterEventTopic Text

- Network.AWS.DirectoryService.RegisterEventTopic: retrsResponseStatus :: Lens' RegisterEventTopicResponse Int

- Network.AWS.DirectoryService.RemoveIPRoutes: data RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: data RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Data.Data.Data Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Classes.Eq Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Generics.Generic Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Read.Read Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance GHC.Show.Show Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.RemoveIPRoutes.RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: removeIPRoutes :: Text -> RemoveIPRoutes

- Network.AWS.DirectoryService.RemoveIPRoutes: removeIPRoutesResponse :: Int -> RemoveIPRoutesResponse

- Network.AWS.DirectoryService.RemoveIPRoutes: rirCidrIPs :: Lens' RemoveIPRoutes [Text]

- Network.AWS.DirectoryService.RemoveIPRoutes: rirDirectoryId :: Lens' RemoveIPRoutes Text

- Network.AWS.DirectoryService.RemoveIPRoutes: rirrsResponseStatus :: Lens' RemoveIPRoutesResponse Int

- Network.AWS.DirectoryService.RemoveTagsFromResource: data RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: data RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Data.Data.Data Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Data.Data.Data Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Classes.Eq Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Generics.Generic Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Read.Read Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Read.Read Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Show.Show Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance GHC.Show.Show Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: removeTagsFromResource :: Text -> RemoveTagsFromResource

- Network.AWS.DirectoryService.RemoveTagsFromResource: removeTagsFromResourceResponse :: Int -> RemoveTagsFromResourceResponse

- Network.AWS.DirectoryService.RemoveTagsFromResource: rtfrResourceId :: Lens' RemoveTagsFromResource Text

- Network.AWS.DirectoryService.RemoveTagsFromResource: rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]

- Network.AWS.DirectoryService.RemoveTagsFromResource: rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int

- Network.AWS.DirectoryService.RestoreFromSnapshot: data RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: data RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Data.Data.Data Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Classes.Eq Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Generics.Generic Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Read.Read Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance GHC.Show.Show Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: restoreFromSnapshot :: Text -> RestoreFromSnapshot

- Network.AWS.DirectoryService.RestoreFromSnapshot: restoreFromSnapshotResponse :: Int -> RestoreFromSnapshotResponse

- Network.AWS.DirectoryService.RestoreFromSnapshot: rfsSnapshotId :: Lens' RestoreFromSnapshot Text

- Network.AWS.DirectoryService.RestoreFromSnapshot: rfsrsResponseStatus :: Lens' RestoreFromSnapshotResponse Int

- Network.AWS.DirectoryService.StartSchemaExtension: data StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: data StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Data.Data.Data Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Data.Data.Data Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Classes.Eq Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Classes.Eq Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Generics.Generic Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Generics.Generic Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Read.Read Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Read.Read Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Show.Show Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance GHC.Show.Show Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

- Network.AWS.DirectoryService.StartSchemaExtension: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.StartSchemaExtension.StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: sseCreateSnapshotBeforeSchemaExtension :: Lens' StartSchemaExtension Bool

- Network.AWS.DirectoryService.StartSchemaExtension: sseDescription :: Lens' StartSchemaExtension Text

- Network.AWS.DirectoryService.StartSchemaExtension: sseDirectoryId :: Lens' StartSchemaExtension Text

- Network.AWS.DirectoryService.StartSchemaExtension: sseLdifContent :: Lens' StartSchemaExtension Text

- Network.AWS.DirectoryService.StartSchemaExtension: ssersResponseStatus :: Lens' StartSchemaExtensionResponse Int

- Network.AWS.DirectoryService.StartSchemaExtension: ssersSchemaExtensionId :: Lens' StartSchemaExtensionResponse (Maybe Text)

- Network.AWS.DirectoryService.StartSchemaExtension: startSchemaExtension :: Text -> Bool -> Text -> Text -> StartSchemaExtension

- Network.AWS.DirectoryService.StartSchemaExtension: startSchemaExtensionResponse :: Int -> StartSchemaExtensionResponse

- Network.AWS.DirectoryService.Types: ADConnector :: DirectoryType

- Network.AWS.DirectoryService.Types: Active :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: AddFailed :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Added :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Adding :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Auto :: SnapshotType

- Network.AWS.DirectoryService.Types: Chap :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService.Types: Creating :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: DSActive :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSCreated :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSCreating :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSDeleted :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSDeleting :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSFailed :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSImpaired :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSInoperable :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSRequested :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSRestoreFailed :: DirectoryStage

- Network.AWS.DirectoryService.Types: DSRestoring :: DirectoryStage

- Network.AWS.DirectoryService.Types: Deleted :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: Deleting :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: Domain :: ReplicationScope

- Network.AWS.DirectoryService.Types: Enterprise :: DirectoryEdition

- Network.AWS.DirectoryService.Types: Failed :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: Forest :: TrustType

- Network.AWS.DirectoryService.Types: Impaired :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: Large :: DirectorySize

- Network.AWS.DirectoryService.Types: Manual :: SnapshotType

- Network.AWS.DirectoryService.Types: MicrosoftAD :: DirectoryType

- Network.AWS.DirectoryService.Types: MsCHAPV1 :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService.Types: MsCHAPV2 :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService.Types: OneWayIncoming :: TrustDirection

- Network.AWS.DirectoryService.Types: OneWayOutgoing :: TrustDirection

- Network.AWS.DirectoryService.Types: Pap :: RadiusAuthenticationProtocol

- Network.AWS.DirectoryService.Types: RSCompleted :: RadiusStatus

- Network.AWS.DirectoryService.Types: RSCreating :: RadiusStatus

- Network.AWS.DirectoryService.Types: RSFailed :: RadiusStatus

- Network.AWS.DirectoryService.Types: RemoveFailed :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Removed :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Removing :: IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: Restoring :: DomainControllerStatus

- Network.AWS.DirectoryService.Types: SESCancelInProgress :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESCancelled :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESCompleted :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESCreatingSnapshot :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESFailed :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESInitializing :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESReplicating :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESRollbackInProgress :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SESUpdatingSchema :: SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: SSCompleted :: SnapshotStatus

- Network.AWS.DirectoryService.Types: SSCreating :: SnapshotStatus

- Network.AWS.DirectoryService.Types: SSFailed :: SnapshotStatus

- Network.AWS.DirectoryService.Types: SimpleAD :: DirectoryType

- Network.AWS.DirectoryService.Types: Small :: DirectorySize

- Network.AWS.DirectoryService.Types: Standard :: DirectoryEdition

- Network.AWS.DirectoryService.Types: TDeleted :: TopicStatus

- Network.AWS.DirectoryService.Types: TFailed :: TopicStatus

- Network.AWS.DirectoryService.Types: TRegistered :: TopicStatus

- Network.AWS.DirectoryService.Types: TSCreated :: TrustState

- Network.AWS.DirectoryService.Types: TSCreating :: TrustState

- Network.AWS.DirectoryService.Types: TSDeleted :: TrustState

- Network.AWS.DirectoryService.Types: TSDeleting :: TrustState

- Network.AWS.DirectoryService.Types: TSFailed :: TrustState

- Network.AWS.DirectoryService.Types: TSVerified :: TrustState

- Network.AWS.DirectoryService.Types: TSVerifyFailed :: TrustState

- Network.AWS.DirectoryService.Types: TSVerifying :: TrustState

- Network.AWS.DirectoryService.Types: TTopicNotFound :: TopicStatus

- Network.AWS.DirectoryService.Types: TwoWay :: TrustDirection

- Network.AWS.DirectoryService.Types: _AuthenticationFailedException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _ClientException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _DirectoryLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _DirectoryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _DomainControllerLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _EntityAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _EntityDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _IPRouteLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _InsufficientPermissionsException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _ServiceException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _SnapshotLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: _UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError

- Network.AWS.DirectoryService.Types: aName :: Lens' Attribute (Maybe Text)

- Network.AWS.DirectoryService.Types: aValue :: Lens' Attribute (Maybe Text)

- Network.AWS.DirectoryService.Types: attribute :: Attribute

- Network.AWS.DirectoryService.Types: cComputerAttributes :: Lens' Computer [Attribute]

- Network.AWS.DirectoryService.Types: cComputerId :: Lens' Computer (Maybe Text)

- Network.AWS.DirectoryService.Types: cComputerName :: Lens' Computer (Maybe Text)

- Network.AWS.DirectoryService.Types: cfDNSIPAddrs :: Lens' ConditionalForwarder [Text]

- Network.AWS.DirectoryService.Types: cfRemoteDomainName :: Lens' ConditionalForwarder (Maybe Text)

- Network.AWS.DirectoryService.Types: cfReplicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)

- Network.AWS.DirectoryService.Types: computer :: Computer

- Network.AWS.DirectoryService.Types: conditionalForwarder :: ConditionalForwarder

- Network.AWS.DirectoryService.Types: data Attribute

- Network.AWS.DirectoryService.Types: data Computer

- Network.AWS.DirectoryService.Types: data ConditionalForwarder

- Network.AWS.DirectoryService.Types: data DirectoryConnectSettings

- Network.AWS.DirectoryService.Types: data DirectoryConnectSettingsDescription

- Network.AWS.DirectoryService.Types: data DirectoryDescription

- Network.AWS.DirectoryService.Types: data DirectoryEdition

- Network.AWS.DirectoryService.Types: data DirectoryLimits

- Network.AWS.DirectoryService.Types: data DirectorySize

- Network.AWS.DirectoryService.Types: data DirectoryStage

- Network.AWS.DirectoryService.Types: data DirectoryType

- Network.AWS.DirectoryService.Types: data DirectoryVPCSettings

- Network.AWS.DirectoryService.Types: data DirectoryVPCSettingsDescription

- Network.AWS.DirectoryService.Types: data DomainController

- Network.AWS.DirectoryService.Types: data DomainControllerStatus

- Network.AWS.DirectoryService.Types: data EventTopic

- Network.AWS.DirectoryService.Types: data IPRoute

- Network.AWS.DirectoryService.Types: data IPRouteInfo

- Network.AWS.DirectoryService.Types: data IPRouteStatusMsg

- Network.AWS.DirectoryService.Types: data RadiusAuthenticationProtocol

- Network.AWS.DirectoryService.Types: data RadiusSettings

- Network.AWS.DirectoryService.Types: data RadiusStatus

- Network.AWS.DirectoryService.Types: data ReplicationScope

- Network.AWS.DirectoryService.Types: data SchemaExtensionInfo

- Network.AWS.DirectoryService.Types: data SchemaExtensionStatus

- Network.AWS.DirectoryService.Types: data Snapshot

- Network.AWS.DirectoryService.Types: data SnapshotLimits

- Network.AWS.DirectoryService.Types: data SnapshotStatus

- Network.AWS.DirectoryService.Types: data SnapshotType

- Network.AWS.DirectoryService.Types: data Tag

- Network.AWS.DirectoryService.Types: data TopicStatus

- Network.AWS.DirectoryService.Types: data Trust

- Network.AWS.DirectoryService.Types: data TrustDirection

- Network.AWS.DirectoryService.Types: data TrustState

- Network.AWS.DirectoryService.Types: data TrustType

- Network.AWS.DirectoryService.Types: dcAvailabilityZone :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcDNSIPAddr :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcDirectoryId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcDomainControllerId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcLaunchTime :: Lens' DomainController (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: dcStatus :: Lens' DomainController (Maybe DomainControllerStatus)

- Network.AWS.DirectoryService.Types: dcStatusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: dcStatusReason :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcSubnetId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcVPCId :: Lens' DomainController (Maybe Text)

- Network.AWS.DirectoryService.Types: dcsCustomerDNSIPs :: Lens' DirectoryConnectSettings [Text]

- Network.AWS.DirectoryService.Types: dcsCustomerUserName :: Lens' DirectoryConnectSettings Text

- Network.AWS.DirectoryService.Types: dcsSubnetIds :: Lens' DirectoryConnectSettings [Text]

- Network.AWS.DirectoryService.Types: dcsVPCId :: Lens' DirectoryConnectSettings Text

- Network.AWS.DirectoryService.Types: dcsdAvailabilityZones :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService.Types: dcsdConnectIPs :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService.Types: dcsdCustomerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: dcsdSecurityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: dcsdSubnetIds :: Lens' DirectoryConnectSettingsDescription [Text]

- Network.AWS.DirectoryService.Types: dcsdVPCId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddAccessURL :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddAlias :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddConnectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)

- Network.AWS.DirectoryService.Types: ddDNSIPAddrs :: Lens' DirectoryDescription [Text]

- Network.AWS.DirectoryService.Types: ddDescription :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddDesiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)

- Network.AWS.DirectoryService.Types: ddDirectoryId :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddEdition :: Lens' DirectoryDescription (Maybe DirectoryEdition)

- Network.AWS.DirectoryService.Types: ddLaunchTime :: Lens' DirectoryDescription (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: ddName :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddRadiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)

- Network.AWS.DirectoryService.Types: ddRadiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)

- Network.AWS.DirectoryService.Types: ddSSOEnabled :: Lens' DirectoryDescription (Maybe Bool)

- Network.AWS.DirectoryService.Types: ddShortName :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddSize :: Lens' DirectoryDescription (Maybe DirectorySize)

- Network.AWS.DirectoryService.Types: ddStage :: Lens' DirectoryDescription (Maybe DirectoryStage)

- Network.AWS.DirectoryService.Types: ddStageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: ddStageReason :: Lens' DirectoryDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: ddType :: Lens' DirectoryDescription (Maybe DirectoryType)

- Network.AWS.DirectoryService.Types: ddVPCSettings :: Lens' DirectoryDescription (Maybe DirectoryVPCSettingsDescription)

- Network.AWS.DirectoryService.Types: directoryConnectSettings :: Text -> Text -> DirectoryConnectSettings

- Network.AWS.DirectoryService.Types: directoryConnectSettingsDescription :: DirectoryConnectSettingsDescription

- Network.AWS.DirectoryService.Types: directoryDescription :: DirectoryDescription

- Network.AWS.DirectoryService.Types: directoryLimits :: DirectoryLimits

- Network.AWS.DirectoryService.Types: directoryService :: Service

- Network.AWS.DirectoryService.Types: directoryVPCSettings :: Text -> DirectoryVPCSettings

- Network.AWS.DirectoryService.Types: directoryVPCSettingsDescription :: DirectoryVPCSettingsDescription

- Network.AWS.DirectoryService.Types: dlCloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlCloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlCloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService.Types: dlCloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlCloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlCloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService.Types: dlConnectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlConnectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: dlConnectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

- Network.AWS.DirectoryService.Types: domainController :: DomainController

- Network.AWS.DirectoryService.Types: dvsSubnetIds :: Lens' DirectoryVPCSettings [Text]

- Network.AWS.DirectoryService.Types: dvsVPCId :: Lens' DirectoryVPCSettings Text

- Network.AWS.DirectoryService.Types: dvsdAvailabilityZones :: Lens' DirectoryVPCSettingsDescription [Text]

- Network.AWS.DirectoryService.Types: dvsdSecurityGroupId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: dvsdSubnetIds :: Lens' DirectoryVPCSettingsDescription [Text]

- Network.AWS.DirectoryService.Types: dvsdVPCId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)

- Network.AWS.DirectoryService.Types: etCreatedDateTime :: Lens' EventTopic (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: etDirectoryId :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService.Types: etStatus :: Lens' EventTopic (Maybe TopicStatus)

- Network.AWS.DirectoryService.Types: etTopicARN :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService.Types: etTopicName :: Lens' EventTopic (Maybe Text)

- Network.AWS.DirectoryService.Types: eventTopic :: EventTopic

- Network.AWS.DirectoryService.Types: ipRoute :: IPRoute

- Network.AWS.DirectoryService.Types: ipRouteInfo :: IPRouteInfo

- Network.AWS.DirectoryService.Types: irCidrIP :: Lens' IPRoute (Maybe Text)

- Network.AWS.DirectoryService.Types: irDescription :: Lens' IPRoute (Maybe Text)

- Network.AWS.DirectoryService.Types: iriAddedDateTime :: Lens' IPRouteInfo (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: iriCidrIP :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: iriDescription :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: iriDirectoryId :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: iriIPRouteStatusMsg :: Lens' IPRouteInfo (Maybe IPRouteStatusMsg)

- Network.AWS.DirectoryService.Types: iriIPRouteStatusReason :: Lens' IPRouteInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: radiusSettings :: RadiusSettings

- Network.AWS.DirectoryService.Types: rsAuthenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)

- Network.AWS.DirectoryService.Types: rsDisplayLabel :: Lens' RadiusSettings (Maybe Text)

- Network.AWS.DirectoryService.Types: rsRadiusPort :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService.Types: rsRadiusRetries :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService.Types: rsRadiusServers :: Lens' RadiusSettings [Text]

- Network.AWS.DirectoryService.Types: rsRadiusTimeout :: Lens' RadiusSettings (Maybe Natural)

- Network.AWS.DirectoryService.Types: rsSharedSecret :: Lens' RadiusSettings (Maybe Text)

- Network.AWS.DirectoryService.Types: rsUseSameUsername :: Lens' RadiusSettings (Maybe Bool)

- Network.AWS.DirectoryService.Types: sDirectoryId :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService.Types: sName :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService.Types: sSnapshotId :: Lens' Snapshot (Maybe Text)

- Network.AWS.DirectoryService.Types: sStartTime :: Lens' Snapshot (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: sStatus :: Lens' Snapshot (Maybe SnapshotStatus)

- Network.AWS.DirectoryService.Types: sType :: Lens' Snapshot (Maybe SnapshotType)

- Network.AWS.DirectoryService.Types: schemaExtensionInfo :: SchemaExtensionInfo

- Network.AWS.DirectoryService.Types: seiDescription :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: seiDirectoryId :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: seiEndDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: seiSchemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: seiSchemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)

- Network.AWS.DirectoryService.Types: seiSchemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)

- Network.AWS.DirectoryService.Types: seiStartDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: slManualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: slManualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)

- Network.AWS.DirectoryService.Types: slManualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)

- Network.AWS.DirectoryService.Types: snapshot :: Snapshot

- Network.AWS.DirectoryService.Types: snapshotLimits :: SnapshotLimits

- Network.AWS.DirectoryService.Types: tCreatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: tDirectoryId :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService.Types: tLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: tRemoteDomainName :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService.Types: tStateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

- Network.AWS.DirectoryService.Types: tTrustDirection :: Lens' Trust (Maybe TrustDirection)

- Network.AWS.DirectoryService.Types: tTrustId :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService.Types: tTrustState :: Lens' Trust (Maybe TrustState)

- Network.AWS.DirectoryService.Types: tTrustStateReason :: Lens' Trust (Maybe Text)

- Network.AWS.DirectoryService.Types: tTrustType :: Lens' Trust (Maybe TrustType)

- Network.AWS.DirectoryService.Types: tag :: Text -> Text -> Tag

- Network.AWS.DirectoryService.Types: tagKey :: Lens' Tag Text

- Network.AWS.DirectoryService.Types: tagValue :: Lens' Tag Text

- Network.AWS.DirectoryService.Types: trust :: Trust

- Network.AWS.DirectoryService.UpdateConditionalForwarder: data UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: data UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Data.Data.Data Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Read.Read Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: ucfDNSIPAddrs :: Lens' UpdateConditionalForwarder [Text]

- Network.AWS.DirectoryService.UpdateConditionalForwarder: ucfDirectoryId :: Lens' UpdateConditionalForwarder Text

- Network.AWS.DirectoryService.UpdateConditionalForwarder: ucfRemoteDomainName :: Lens' UpdateConditionalForwarder Text

- Network.AWS.DirectoryService.UpdateConditionalForwarder: ucfrsResponseStatus :: Lens' UpdateConditionalForwarderResponse Int

- Network.AWS.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarder :: Text -> Text -> UpdateConditionalForwarder

- Network.AWS.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarderResponse :: Int -> UpdateConditionalForwarderResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: data UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: data UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Data.Data Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Data.Data Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Read.Read Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Read.Read Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: unodcDesiredNumber :: Lens' UpdateNumberOfDomainControllers Natural

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: unodcDirectoryId :: Lens' UpdateNumberOfDomainControllers Text

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: unodcrsResponseStatus :: Lens' UpdateNumberOfDomainControllersResponse Int

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: updateNumberOfDomainControllers :: Text -> Natural -> UpdateNumberOfDomainControllers

- Network.AWS.DirectoryService.UpdateNumberOfDomainControllers: updateNumberOfDomainControllersResponse :: Int -> UpdateNumberOfDomainControllersResponse

- Network.AWS.DirectoryService.UpdateRadius: data UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: data UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Data.Data.Data Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Data.Data.Data Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Classes.Eq Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Generics.Generic Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Read.Read Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance GHC.Show.Show Network.AWS.DirectoryService.UpdateRadius.UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.UpdateRadius.UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: updateRadius :: Text -> RadiusSettings -> UpdateRadius

- Network.AWS.DirectoryService.UpdateRadius: updateRadiusResponse :: Int -> UpdateRadiusResponse

- Network.AWS.DirectoryService.UpdateRadius: urDirectoryId :: Lens' UpdateRadius Text

- Network.AWS.DirectoryService.UpdateRadius: urRadiusSettings :: Lens' UpdateRadius RadiusSettings

- Network.AWS.DirectoryService.UpdateRadius: urrsResponseStatus :: Lens' UpdateRadiusResponse Int

- Network.AWS.DirectoryService.VerifyTrust: data VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: data VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Control.DeepSeq.NFData Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance Data.Aeson.Types.ToJSON.ToJSON Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Data.Data.Data Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Data.Data.Data Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance Data.Hashable.Class.Hashable Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Classes.Eq Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Generics.Generic Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Read.Read Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Read.Read Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Show.Show Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance GHC.Show.Show Network.AWS.DirectoryService.VerifyTrust.VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: instance Network.AWS.Data.Headers.ToHeaders Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Network.AWS.Data.Path.ToPath Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Network.AWS.Data.Query.ToQuery Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: instance Network.AWS.Types.AWSRequest Network.AWS.DirectoryService.VerifyTrust.VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: verifyTrust :: Text -> VerifyTrust

- Network.AWS.DirectoryService.VerifyTrust: verifyTrustResponse :: Int -> VerifyTrustResponse

- Network.AWS.DirectoryService.VerifyTrust: vtTrustId :: Lens' VerifyTrust Text

- Network.AWS.DirectoryService.VerifyTrust: vtrsResponseStatus :: Lens' VerifyTrustResponse Int

- Network.AWS.DirectoryService.VerifyTrust: vtrsTrustId :: Lens' VerifyTrustResponse (Maybe Text)

+ Amazonka.DirectoryService: AcceptSharedDirectory' :: Text -> AcceptSharedDirectory

+ Amazonka.DirectoryService: AcceptSharedDirectoryResponse' :: Maybe SharedDirectory -> Int -> AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService: AddIpRoutes' :: Maybe Bool -> Text -> [IpRoute] -> AddIpRoutes

+ Amazonka.DirectoryService: AddIpRoutesResponse' :: Int -> AddIpRoutesResponse

+ Amazonka.DirectoryService: AddRegion' :: Text -> Text -> DirectoryVpcSettings -> AddRegion

+ Amazonka.DirectoryService: AddRegionResponse' :: Int -> AddRegionResponse

+ Amazonka.DirectoryService: AddTagsToResource' :: Text -> [Tag] -> AddTagsToResource

+ Amazonka.DirectoryService: AddTagsToResourceResponse' :: Int -> AddTagsToResourceResponse

+ Amazonka.DirectoryService: Attribute' :: Maybe Text -> Maybe Text -> Attribute

+ Amazonka.DirectoryService: CancelSchemaExtension' :: Text -> Text -> CancelSchemaExtension

+ Amazonka.DirectoryService: CancelSchemaExtensionResponse' :: Int -> CancelSchemaExtensionResponse

+ Amazonka.DirectoryService: Certificate' :: Maybe Text -> Maybe ClientCertAuthSettings -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe CertificateState -> Maybe Text -> Maybe CertificateType -> Certificate

+ Amazonka.DirectoryService: CertificateInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe CertificateState -> Maybe CertificateType -> CertificateInfo

+ Amazonka.DirectoryService: CertificateState' :: Text -> CertificateState

+ Amazonka.DirectoryService: CertificateType' :: Text -> CertificateType

+ Amazonka.DirectoryService: ClientAuthenticationSettingInfo' :: Maybe POSIX -> Maybe ClientAuthenticationStatus -> Maybe ClientAuthenticationType -> ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService: ClientAuthenticationStatus' :: Text -> ClientAuthenticationStatus

+ Amazonka.DirectoryService: ClientAuthenticationType' :: Text -> ClientAuthenticationType

+ Amazonka.DirectoryService: ClientCertAuthSettings' :: Maybe Text -> ClientCertAuthSettings

+ Amazonka.DirectoryService: Computer' :: Maybe [Attribute] -> Maybe Text -> Maybe Text -> Computer

+ Amazonka.DirectoryService: ConditionalForwarder' :: Maybe [Text] -> Maybe Text -> Maybe ReplicationScope -> ConditionalForwarder

+ Amazonka.DirectoryService: ConnectDirectory' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> Text -> Sensitive Text -> DirectorySize -> DirectoryConnectSettings -> ConnectDirectory

+ Amazonka.DirectoryService: ConnectDirectoryResponse' :: Maybe Text -> Int -> ConnectDirectoryResponse

+ Amazonka.DirectoryService: CreateAlias' :: Text -> Text -> CreateAlias

+ Amazonka.DirectoryService: CreateAliasResponse' :: Maybe Text -> Maybe Text -> Int -> CreateAliasResponse

+ Amazonka.DirectoryService: CreateComputer' :: Maybe [Attribute] -> Maybe Text -> Text -> Text -> Sensitive Text -> CreateComputer

+ Amazonka.DirectoryService: CreateComputerResponse' :: Maybe Computer -> Int -> CreateComputerResponse

+ Amazonka.DirectoryService: CreateConditionalForwarder' :: Text -> Text -> [Text] -> CreateConditionalForwarder

+ Amazonka.DirectoryService: CreateConditionalForwarderResponse' :: Int -> CreateConditionalForwarderResponse

+ Amazonka.DirectoryService: CreateDirectory' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> Maybe DirectoryVpcSettings -> Text -> Sensitive Text -> DirectorySize -> CreateDirectory

+ Amazonka.DirectoryService: CreateDirectoryResponse' :: Maybe Text -> Int -> CreateDirectoryResponse

+ Amazonka.DirectoryService: CreateLogSubscription' :: Text -> Text -> CreateLogSubscription

+ Amazonka.DirectoryService: CreateLogSubscriptionResponse' :: Int -> CreateLogSubscriptionResponse

+ Amazonka.DirectoryService: CreateMicrosoftAD' :: Maybe Text -> Maybe DirectoryEdition -> Maybe Text -> Maybe [Tag] -> Text -> Sensitive Text -> DirectoryVpcSettings -> CreateMicrosoftAD

+ Amazonka.DirectoryService: CreateMicrosoftADResponse' :: Maybe Text -> Int -> CreateMicrosoftADResponse

+ Amazonka.DirectoryService: CreateSnapshot' :: Maybe Text -> Text -> CreateSnapshot

+ Amazonka.DirectoryService: CreateSnapshotResponse' :: Maybe Text -> Int -> CreateSnapshotResponse

+ Amazonka.DirectoryService: CreateTrust' :: Maybe [Text] -> Maybe SelectiveAuth -> Maybe TrustType -> Text -> Text -> Sensitive Text -> TrustDirection -> CreateTrust

+ Amazonka.DirectoryService: CreateTrustResponse' :: Maybe Text -> Int -> CreateTrustResponse

+ Amazonka.DirectoryService: DeleteConditionalForwarder' :: Text -> Text -> DeleteConditionalForwarder

+ Amazonka.DirectoryService: DeleteConditionalForwarderResponse' :: Int -> DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService: DeleteDirectory' :: Text -> DeleteDirectory

+ Amazonka.DirectoryService: DeleteDirectoryResponse' :: Maybe Text -> Int -> DeleteDirectoryResponse

+ Amazonka.DirectoryService: DeleteLogSubscription' :: Text -> DeleteLogSubscription

+ Amazonka.DirectoryService: DeleteLogSubscriptionResponse' :: Int -> DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService: DeleteSnapshot' :: Text -> DeleteSnapshot

+ Amazonka.DirectoryService: DeleteSnapshotResponse' :: Maybe Text -> Int -> DeleteSnapshotResponse

+ Amazonka.DirectoryService: DeleteTrust' :: Maybe Bool -> Text -> DeleteTrust

+ Amazonka.DirectoryService: DeleteTrustResponse' :: Maybe Text -> Int -> DeleteTrustResponse

+ Amazonka.DirectoryService: DeregisterCertificate' :: Text -> Text -> DeregisterCertificate

+ Amazonka.DirectoryService: DeregisterCertificateResponse' :: Int -> DeregisterCertificateResponse

+ Amazonka.DirectoryService: DeregisterEventTopic' :: Text -> Text -> DeregisterEventTopic

+ Amazonka.DirectoryService: DeregisterEventTopicResponse' :: Int -> DeregisterEventTopicResponse

+ Amazonka.DirectoryService: DescribeCertificate' :: Text -> Text -> DescribeCertificate

+ Amazonka.DirectoryService: DescribeCertificateResponse' :: Maybe Certificate -> Int -> DescribeCertificateResponse

+ Amazonka.DirectoryService: DescribeClientAuthenticationSettings' :: Maybe Natural -> Maybe Text -> Maybe ClientAuthenticationType -> Text -> DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService: DescribeClientAuthenticationSettingsResponse' :: Maybe [ClientAuthenticationSettingInfo] -> Maybe Text -> Int -> DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService: DescribeConditionalForwarders' :: Maybe [Text] -> Text -> DescribeConditionalForwarders

+ Amazonka.DirectoryService: DescribeConditionalForwardersResponse' :: Maybe [ConditionalForwarder] -> Int -> DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService: DescribeDirectories' :: Maybe [Text] -> Maybe Natural -> Maybe Text -> DescribeDirectories

+ Amazonka.DirectoryService: DescribeDirectoriesResponse' :: Maybe [DirectoryDescription] -> Maybe Text -> Int -> DescribeDirectoriesResponse

+ Amazonka.DirectoryService: DescribeDomainControllers' :: Maybe [Text] -> Maybe Natural -> Maybe Text -> Text -> DescribeDomainControllers

+ Amazonka.DirectoryService: DescribeDomainControllersResponse' :: Maybe [DomainController] -> Maybe Text -> Int -> DescribeDomainControllersResponse

+ Amazonka.DirectoryService: DescribeEventTopics' :: Maybe Text -> Maybe [Text] -> DescribeEventTopics

+ Amazonka.DirectoryService: DescribeEventTopicsResponse' :: Maybe [EventTopic] -> Int -> DescribeEventTopicsResponse

+ Amazonka.DirectoryService: DescribeLDAPSSettings' :: Maybe Natural -> Maybe Text -> Maybe LDAPSType -> Text -> DescribeLDAPSSettings

+ Amazonka.DirectoryService: DescribeLDAPSSettingsResponse' :: Maybe [LDAPSSettingInfo] -> Maybe Text -> Int -> DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService: DescribeRegions' :: Maybe Text -> Maybe Text -> Text -> DescribeRegions

+ Amazonka.DirectoryService: DescribeRegionsResponse' :: Maybe Text -> Maybe [RegionDescription] -> Int -> DescribeRegionsResponse

+ Amazonka.DirectoryService: DescribeSettings' :: Maybe Text -> Maybe DirectoryConfigurationStatus -> Text -> DescribeSettings

+ Amazonka.DirectoryService: DescribeSettingsResponse' :: Maybe Text -> Maybe Text -> Maybe [SettingEntry] -> Int -> DescribeSettingsResponse

+ Amazonka.DirectoryService: DescribeSharedDirectories' :: Maybe Natural -> Maybe Text -> Maybe [Text] -> Text -> DescribeSharedDirectories

+ Amazonka.DirectoryService: DescribeSharedDirectoriesResponse' :: Maybe Text -> Maybe [SharedDirectory] -> Int -> DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService: DescribeSnapshots' :: Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> DescribeSnapshots

+ Amazonka.DirectoryService: DescribeSnapshotsResponse' :: Maybe Text -> Maybe [Snapshot] -> Int -> DescribeSnapshotsResponse

+ Amazonka.DirectoryService: DescribeTrusts' :: Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> DescribeTrusts

+ Amazonka.DirectoryService: DescribeTrustsResponse' :: Maybe Text -> Maybe [Trust] -> Int -> DescribeTrustsResponse

+ Amazonka.DirectoryService: DescribeUpdateDirectory' :: Maybe Text -> Maybe Text -> Text -> UpdateType -> DescribeUpdateDirectory

+ Amazonka.DirectoryService: DescribeUpdateDirectoryResponse' :: Maybe Text -> Maybe [UpdateInfoEntry] -> Int -> DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService: DirectoryConfigurationStatus' :: Text -> DirectoryConfigurationStatus

+ Amazonka.DirectoryService: DirectoryConnectSettings' :: Text -> [Text] -> [Text] -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService: DirectoryConnectSettingsDescription' :: Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService: DirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe DirectoryConnectSettingsDescription -> Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> Maybe DirectoryEdition -> Maybe POSIX -> Maybe Text -> Maybe OSVersion -> Maybe OwnerDirectoryDescription -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe RegionsInfo -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe DirectorySize -> Maybe Bool -> Maybe DirectoryStage -> Maybe POSIX -> Maybe Text -> Maybe DirectoryType -> Maybe DirectoryVpcSettingsDescription -> DirectoryDescription

+ Amazonka.DirectoryService: DirectoryEdition' :: Text -> DirectoryEdition

+ Amazonka.DirectoryService: DirectoryLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> DirectoryLimits

+ Amazonka.DirectoryService: DirectorySize' :: Text -> DirectorySize

+ Amazonka.DirectoryService: DirectoryStage' :: Text -> DirectoryStage

+ Amazonka.DirectoryService: DirectoryType' :: Text -> DirectoryType

+ Amazonka.DirectoryService: DirectoryVpcSettings' :: Text -> [Text] -> DirectoryVpcSettings

+ Amazonka.DirectoryService: DirectoryVpcSettingsDescription' :: Maybe [Text] -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService: DisableClientAuthentication' :: Text -> ClientAuthenticationType -> DisableClientAuthentication

+ Amazonka.DirectoryService: DisableClientAuthenticationResponse' :: Int -> DisableClientAuthenticationResponse

+ Amazonka.DirectoryService: DisableLDAPS' :: Text -> LDAPSType -> DisableLDAPS

+ Amazonka.DirectoryService: DisableLDAPSResponse' :: Int -> DisableLDAPSResponse

+ Amazonka.DirectoryService: DisableRadius' :: Text -> DisableRadius

+ Amazonka.DirectoryService: DisableRadiusResponse' :: Int -> DisableRadiusResponse

+ Amazonka.DirectoryService: DisableSso' :: Maybe (Sensitive Text) -> Maybe Text -> Text -> DisableSso

+ Amazonka.DirectoryService: DisableSsoResponse' :: Int -> DisableSsoResponse

+ Amazonka.DirectoryService: DomainController' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe DomainControllerStatus -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> DomainController

+ Amazonka.DirectoryService: DomainControllerStatus' :: Text -> DomainControllerStatus

+ Amazonka.DirectoryService: EnableClientAuthentication' :: Text -> ClientAuthenticationType -> EnableClientAuthentication

+ Amazonka.DirectoryService: EnableClientAuthenticationResponse' :: Int -> EnableClientAuthenticationResponse

+ Amazonka.DirectoryService: EnableLDAPS' :: Text -> LDAPSType -> EnableLDAPS

+ Amazonka.DirectoryService: EnableLDAPSResponse' :: Int -> EnableLDAPSResponse

+ Amazonka.DirectoryService: EnableRadius' :: Text -> RadiusSettings -> EnableRadius

+ Amazonka.DirectoryService: EnableRadiusResponse' :: Int -> EnableRadiusResponse

+ Amazonka.DirectoryService: EnableSso' :: Maybe (Sensitive Text) -> Maybe Text -> Text -> EnableSso

+ Amazonka.DirectoryService: EnableSsoResponse' :: Int -> EnableSsoResponse

+ Amazonka.DirectoryService: EventTopic' :: Maybe POSIX -> Maybe Text -> Maybe TopicStatus -> Maybe Text -> Maybe Text -> EventTopic

+ Amazonka.DirectoryService: GetDirectoryLimits' :: GetDirectoryLimits

+ Amazonka.DirectoryService: GetDirectoryLimitsResponse' :: Maybe DirectoryLimits -> Int -> GetDirectoryLimitsResponse

+ Amazonka.DirectoryService: GetSnapshotLimits' :: Text -> GetSnapshotLimits

+ Amazonka.DirectoryService: GetSnapshotLimitsResponse' :: Maybe SnapshotLimits -> Int -> GetSnapshotLimitsResponse

+ Amazonka.DirectoryService: IpRoute' :: Maybe Text -> Maybe Text -> IpRoute

+ Amazonka.DirectoryService: IpRouteInfo' :: Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe IpRouteStatusMsg -> Maybe Text -> IpRouteInfo

+ Amazonka.DirectoryService: IpRouteStatusMsg' :: Text -> IpRouteStatusMsg

+ Amazonka.DirectoryService: LDAPSSettingInfo' :: Maybe LDAPSStatus -> Maybe Text -> Maybe POSIX -> LDAPSSettingInfo

+ Amazonka.DirectoryService: LDAPSStatus' :: Text -> LDAPSStatus

+ Amazonka.DirectoryService: LDAPSType' :: Text -> LDAPSType

+ Amazonka.DirectoryService: ListCertificates' :: Maybe Natural -> Maybe Text -> Text -> ListCertificates

+ Amazonka.DirectoryService: ListCertificatesResponse' :: Maybe [CertificateInfo] -> Maybe Text -> Int -> ListCertificatesResponse

+ Amazonka.DirectoryService: ListIpRoutes' :: Maybe Natural -> Maybe Text -> Text -> ListIpRoutes

+ Amazonka.DirectoryService: ListIpRoutesResponse' :: Maybe [IpRouteInfo] -> Maybe Text -> Int -> ListIpRoutesResponse

+ Amazonka.DirectoryService: ListLogSubscriptions' :: Maybe Text -> Maybe Natural -> Maybe Text -> ListLogSubscriptions

+ Amazonka.DirectoryService: ListLogSubscriptionsResponse' :: Maybe [LogSubscription] -> Maybe Text -> Int -> ListLogSubscriptionsResponse

+ Amazonka.DirectoryService: ListSchemaExtensions' :: Maybe Natural -> Maybe Text -> Text -> ListSchemaExtensions

+ Amazonka.DirectoryService: ListSchemaExtensionsResponse' :: Maybe Text -> Maybe [SchemaExtensionInfo] -> Int -> ListSchemaExtensionsResponse

+ Amazonka.DirectoryService: ListTagsForResource' :: Maybe Natural -> Maybe Text -> Text -> ListTagsForResource

+ Amazonka.DirectoryService: ListTagsForResourceResponse' :: Maybe Text -> Maybe [Tag] -> Int -> ListTagsForResourceResponse

+ Amazonka.DirectoryService: LogSubscription' :: Maybe Text -> Maybe Text -> Maybe POSIX -> LogSubscription

+ Amazonka.DirectoryService: OSUpdateSettings' :: Maybe OSVersion -> OSUpdateSettings

+ Amazonka.DirectoryService: OSVersion' :: Text -> OSVersion

+ Amazonka.DirectoryService: OwnerDirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe DirectoryVpcSettingsDescription -> OwnerDirectoryDescription

+ Amazonka.DirectoryService: RadiusAuthenticationProtocol' :: Text -> RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: RadiusSettings' :: Maybe RadiusAuthenticationProtocol -> Maybe Text -> Maybe Natural -> Maybe Natural -> Maybe [Text] -> Maybe Natural -> Maybe (Sensitive Text) -> Maybe Bool -> RadiusSettings

+ Amazonka.DirectoryService: RadiusStatus' :: Text -> RadiusStatus

+ Amazonka.DirectoryService: RegionDescription' :: Maybe Natural -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe RegionType -> Maybe DirectoryStage -> Maybe POSIX -> Maybe DirectoryVpcSettings -> RegionDescription

+ Amazonka.DirectoryService: RegionType' :: Text -> RegionType

+ Amazonka.DirectoryService: RegionsInfo' :: Maybe [Text] -> Maybe Text -> RegionsInfo

+ Amazonka.DirectoryService: RegisterCertificate' :: Maybe ClientCertAuthSettings -> Maybe CertificateType -> Text -> Text -> RegisterCertificate

+ Amazonka.DirectoryService: RegisterCertificateResponse' :: Maybe Text -> Int -> RegisterCertificateResponse

+ Amazonka.DirectoryService: RegisterEventTopic' :: Text -> Text -> RegisterEventTopic

+ Amazonka.DirectoryService: RegisterEventTopicResponse' :: Int -> RegisterEventTopicResponse

+ Amazonka.DirectoryService: RejectSharedDirectory' :: Text -> RejectSharedDirectory

+ Amazonka.DirectoryService: RejectSharedDirectoryResponse' :: Maybe Text -> Int -> RejectSharedDirectoryResponse

+ Amazonka.DirectoryService: RemoveIpRoutes' :: Text -> [Text] -> RemoveIpRoutes

+ Amazonka.DirectoryService: RemoveIpRoutesResponse' :: Int -> RemoveIpRoutesResponse

+ Amazonka.DirectoryService: RemoveRegion' :: Text -> RemoveRegion

+ Amazonka.DirectoryService: RemoveRegionResponse' :: Int -> RemoveRegionResponse

+ Amazonka.DirectoryService: RemoveTagsFromResource' :: Text -> [Text] -> RemoveTagsFromResource

+ Amazonka.DirectoryService: RemoveTagsFromResourceResponse' :: Int -> RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService: ReplicationScope' :: Text -> ReplicationScope

+ Amazonka.DirectoryService: ResetUserPassword' :: Text -> Text -> Sensitive Text -> ResetUserPassword

+ Amazonka.DirectoryService: ResetUserPasswordResponse' :: Int -> ResetUserPasswordResponse

+ Amazonka.DirectoryService: RestoreFromSnapshot' :: Text -> RestoreFromSnapshot

+ Amazonka.DirectoryService: RestoreFromSnapshotResponse' :: Int -> RestoreFromSnapshotResponse

+ Amazonka.DirectoryService: SchemaExtensionInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SchemaExtensionStatus -> Maybe Text -> Maybe POSIX -> SchemaExtensionInfo

+ Amazonka.DirectoryService: SchemaExtensionStatus' :: Text -> SchemaExtensionStatus

+ Amazonka.DirectoryService: SelectiveAuth' :: Text -> SelectiveAuth

+ Amazonka.DirectoryService: Setting' :: Text -> Text -> Setting

+ Amazonka.DirectoryService: SettingEntry' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe (HashMap Text DirectoryConfigurationStatus) -> Maybe DirectoryConfigurationStatus -> Maybe Text -> Maybe Text -> Maybe Text -> SettingEntry

+ Amazonka.DirectoryService: ShareDirectory' :: Maybe (Sensitive Text) -> Text -> ShareTarget -> ShareMethod -> ShareDirectory

+ Amazonka.DirectoryService: ShareDirectoryResponse' :: Maybe Text -> Int -> ShareDirectoryResponse

+ Amazonka.DirectoryService: ShareMethod' :: Text -> ShareMethod

+ Amazonka.DirectoryService: ShareStatus' :: Text -> ShareStatus

+ Amazonka.DirectoryService: ShareTarget' :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService: SharedDirectory' :: Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe Text -> SharedDirectory

+ Amazonka.DirectoryService: Snapshot' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe SnapshotStatus -> Maybe SnapshotType -> Snapshot

+ Amazonka.DirectoryService: SnapshotLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> SnapshotLimits

+ Amazonka.DirectoryService: SnapshotStatus' :: Text -> SnapshotStatus

+ Amazonka.DirectoryService: SnapshotType' :: Text -> SnapshotType

+ Amazonka.DirectoryService: StartSchemaExtension' :: Text -> Bool -> Text -> Text -> StartSchemaExtension

+ Amazonka.DirectoryService: StartSchemaExtensionResponse' :: Maybe Text -> Int -> StartSchemaExtensionResponse

+ Amazonka.DirectoryService: Tag' :: Text -> Text -> Tag

+ Amazonka.DirectoryService: TargetType' :: Text -> TargetType

+ Amazonka.DirectoryService: TopicStatus' :: Text -> TopicStatus

+ Amazonka.DirectoryService: Trust' :: Maybe POSIX -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SelectiveAuth -> Maybe POSIX -> Maybe TrustDirection -> Maybe Text -> Maybe TrustState -> Maybe Text -> Maybe TrustType -> Trust

+ Amazonka.DirectoryService: TrustDirection' :: Text -> TrustDirection

+ Amazonka.DirectoryService: TrustState' :: Text -> TrustState

+ Amazonka.DirectoryService: TrustType' :: Text -> TrustType

+ Amazonka.DirectoryService: UnshareDirectory' :: Text -> UnshareTarget -> UnshareDirectory

+ Amazonka.DirectoryService: UnshareDirectoryResponse' :: Maybe Text -> Int -> UnshareDirectoryResponse

+ Amazonka.DirectoryService: UnshareTarget' :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService: UpdateConditionalForwarder' :: Text -> Text -> [Text] -> UpdateConditionalForwarder

+ Amazonka.DirectoryService: UpdateConditionalForwarderResponse' :: Int -> UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService: UpdateDirectorySetup' :: Maybe Bool -> Maybe OSUpdateSettings -> Text -> UpdateType -> UpdateDirectorySetup

+ Amazonka.DirectoryService: UpdateDirectorySetupResponse' :: Int -> UpdateDirectorySetupResponse

+ Amazonka.DirectoryService: UpdateInfoEntry' :: Maybe Text -> Maybe POSIX -> Maybe UpdateValue -> Maybe UpdateValue -> Maybe Text -> Maybe POSIX -> Maybe UpdateStatus -> Maybe Text -> UpdateInfoEntry

+ Amazonka.DirectoryService: UpdateNumberOfDomainControllers' :: Text -> Natural -> UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService: UpdateNumberOfDomainControllersResponse' :: Int -> UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService: UpdateRadius' :: Text -> RadiusSettings -> UpdateRadius

+ Amazonka.DirectoryService: UpdateRadiusResponse' :: Int -> UpdateRadiusResponse

+ Amazonka.DirectoryService: UpdateSettings' :: Text -> [Setting] -> UpdateSettings

+ Amazonka.DirectoryService: UpdateSettingsResponse' :: Maybe Text -> Int -> UpdateSettingsResponse

+ Amazonka.DirectoryService: UpdateStatus' :: Text -> UpdateStatus

+ Amazonka.DirectoryService: UpdateTrust' :: Maybe SelectiveAuth -> Text -> UpdateTrust

+ Amazonka.DirectoryService: UpdateTrustResponse' :: Maybe Text -> Maybe Text -> Int -> UpdateTrustResponse

+ Amazonka.DirectoryService: UpdateType' :: Text -> UpdateType

+ Amazonka.DirectoryService: UpdateValue' :: Maybe OSUpdateSettings -> UpdateValue

+ Amazonka.DirectoryService: VerifyTrust' :: Text -> VerifyTrust

+ Amazonka.DirectoryService: VerifyTrustResponse' :: Maybe Text -> Int -> VerifyTrustResponse

+ Amazonka.DirectoryService: [fromCertificateState] :: CertificateState -> Text

+ Amazonka.DirectoryService: [fromCertificateType] :: CertificateType -> Text

+ Amazonka.DirectoryService: [fromClientAuthenticationStatus] :: ClientAuthenticationStatus -> Text

+ Amazonka.DirectoryService: [fromClientAuthenticationType] :: ClientAuthenticationType -> Text

+ Amazonka.DirectoryService: [fromDirectoryConfigurationStatus] :: DirectoryConfigurationStatus -> Text

+ Amazonka.DirectoryService: [fromDirectoryEdition] :: DirectoryEdition -> Text

+ Amazonka.DirectoryService: [fromDirectorySize] :: DirectorySize -> Text

+ Amazonka.DirectoryService: [fromDirectoryStage] :: DirectoryStage -> Text

+ Amazonka.DirectoryService: [fromDirectoryType] :: DirectoryType -> Text

+ Amazonka.DirectoryService: [fromDomainControllerStatus] :: DomainControllerStatus -> Text

+ Amazonka.DirectoryService: [fromIpRouteStatusMsg] :: IpRouteStatusMsg -> Text

+ Amazonka.DirectoryService: [fromLDAPSStatus] :: LDAPSStatus -> Text

+ Amazonka.DirectoryService: [fromLDAPSType] :: LDAPSType -> Text

+ Amazonka.DirectoryService: [fromOSVersion] :: OSVersion -> Text

+ Amazonka.DirectoryService: [fromRadiusAuthenticationProtocol] :: RadiusAuthenticationProtocol -> Text

+ Amazonka.DirectoryService: [fromRadiusStatus] :: RadiusStatus -> Text

+ Amazonka.DirectoryService: [fromRegionType] :: RegionType -> Text

+ Amazonka.DirectoryService: [fromReplicationScope] :: ReplicationScope -> Text

+ Amazonka.DirectoryService: [fromSchemaExtensionStatus] :: SchemaExtensionStatus -> Text

+ Amazonka.DirectoryService: [fromSelectiveAuth] :: SelectiveAuth -> Text

+ Amazonka.DirectoryService: [fromShareMethod] :: ShareMethod -> Text

+ Amazonka.DirectoryService: [fromShareStatus] :: ShareStatus -> Text

+ Amazonka.DirectoryService: [fromSnapshotStatus] :: SnapshotStatus -> Text

+ Amazonka.DirectoryService: [fromSnapshotType] :: SnapshotType -> Text

+ Amazonka.DirectoryService: [fromTargetType] :: TargetType -> Text

+ Amazonka.DirectoryService: [fromTopicStatus] :: TopicStatus -> Text

+ Amazonka.DirectoryService: [fromTrustDirection] :: TrustDirection -> Text

+ Amazonka.DirectoryService: [fromTrustState] :: TrustState -> Text

+ Amazonka.DirectoryService: [fromTrustType] :: TrustType -> Text

+ Amazonka.DirectoryService: [fromUpdateStatus] :: UpdateStatus -> Text

+ Amazonka.DirectoryService: [fromUpdateType] :: UpdateType -> Text

+ Amazonka.DirectoryService: _AccessDeniedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _AuthenticationFailedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _CertificateAlreadyExistsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _CertificateDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _CertificateInUseException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _CertificateLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _ClientException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryAlreadyInRegionException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryAlreadySharedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryInDesiredStateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryNotSharedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DirectoryUnavailableException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _DomainControllerLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _EntityAlreadyExistsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _EntityDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _IncompatibleSettingsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InsufficientPermissionsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidCertificateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidClientAuthStatusException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidLDAPSStatusException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidNextTokenException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidParameterException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidPasswordException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _InvalidTargetException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _IpRouteLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _NoAvailableCertificateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _OrganizationsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _RegionLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _ServiceException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _ShareLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _SnapshotLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _TagLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _UnsupportedOperationException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _UnsupportedSettingsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: _UserDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService: data AcceptSharedDirectory

+ Amazonka.DirectoryService: data AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService: data AddIpRoutes

+ Amazonka.DirectoryService: data AddIpRoutesResponse

+ Amazonka.DirectoryService: data AddRegion

+ Amazonka.DirectoryService: data AddRegionResponse

+ Amazonka.DirectoryService: data AddTagsToResource

+ Amazonka.DirectoryService: data AddTagsToResourceResponse

+ Amazonka.DirectoryService: data Attribute

+ Amazonka.DirectoryService: data CancelSchemaExtension

+ Amazonka.DirectoryService: data CancelSchemaExtensionResponse

+ Amazonka.DirectoryService: data Certificate

+ Amazonka.DirectoryService: data CertificateInfo

+ Amazonka.DirectoryService: data ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService: data ClientCertAuthSettings

+ Amazonka.DirectoryService: data Computer

+ Amazonka.DirectoryService: data ConditionalForwarder

+ Amazonka.DirectoryService: data ConnectDirectory

+ Amazonka.DirectoryService: data ConnectDirectoryResponse

+ Amazonka.DirectoryService: data CreateAlias

+ Amazonka.DirectoryService: data CreateAliasResponse

+ Amazonka.DirectoryService: data CreateComputer

+ Amazonka.DirectoryService: data CreateComputerResponse

+ Amazonka.DirectoryService: data CreateConditionalForwarder

+ Amazonka.DirectoryService: data CreateConditionalForwarderResponse

+ Amazonka.DirectoryService: data CreateDirectory

+ Amazonka.DirectoryService: data CreateDirectoryResponse

+ Amazonka.DirectoryService: data CreateLogSubscription

+ Amazonka.DirectoryService: data CreateLogSubscriptionResponse

+ Amazonka.DirectoryService: data CreateMicrosoftAD

+ Amazonka.DirectoryService: data CreateMicrosoftADResponse

+ Amazonka.DirectoryService: data CreateSnapshot

+ Amazonka.DirectoryService: data CreateSnapshotResponse

+ Amazonka.DirectoryService: data CreateTrust

+ Amazonka.DirectoryService: data CreateTrustResponse

+ Amazonka.DirectoryService: data DeleteConditionalForwarder

+ Amazonka.DirectoryService: data DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService: data DeleteDirectory

+ Amazonka.DirectoryService: data DeleteDirectoryResponse

+ Amazonka.DirectoryService: data DeleteLogSubscription

+ Amazonka.DirectoryService: data DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService: data DeleteSnapshot

+ Amazonka.DirectoryService: data DeleteSnapshotResponse

+ Amazonka.DirectoryService: data DeleteTrust

+ Amazonka.DirectoryService: data DeleteTrustResponse

+ Amazonka.DirectoryService: data DeregisterCertificate

+ Amazonka.DirectoryService: data DeregisterCertificateResponse

+ Amazonka.DirectoryService: data DeregisterEventTopic

+ Amazonka.DirectoryService: data DeregisterEventTopicResponse

+ Amazonka.DirectoryService: data DescribeCertificate

+ Amazonka.DirectoryService: data DescribeCertificateResponse

+ Amazonka.DirectoryService: data DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService: data DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService: data DescribeConditionalForwarders

+ Amazonka.DirectoryService: data DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService: data DescribeDirectories

+ Amazonka.DirectoryService: data DescribeDirectoriesResponse

+ Amazonka.DirectoryService: data DescribeDomainControllers

+ Amazonka.DirectoryService: data DescribeDomainControllersResponse

+ Amazonka.DirectoryService: data DescribeEventTopics

+ Amazonka.DirectoryService: data DescribeEventTopicsResponse

+ Amazonka.DirectoryService: data DescribeLDAPSSettings

+ Amazonka.DirectoryService: data DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService: data DescribeRegions

+ Amazonka.DirectoryService: data DescribeRegionsResponse

+ Amazonka.DirectoryService: data DescribeSettings

+ Amazonka.DirectoryService: data DescribeSettingsResponse

+ Amazonka.DirectoryService: data DescribeSharedDirectories

+ Amazonka.DirectoryService: data DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService: data DescribeSnapshots

+ Amazonka.DirectoryService: data DescribeSnapshotsResponse

+ Amazonka.DirectoryService: data DescribeTrusts

+ Amazonka.DirectoryService: data DescribeTrustsResponse

+ Amazonka.DirectoryService: data DescribeUpdateDirectory

+ Amazonka.DirectoryService: data DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService: data DirectoryConnectSettings

+ Amazonka.DirectoryService: data DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService: data DirectoryDescription

+ Amazonka.DirectoryService: data DirectoryLimits

+ Amazonka.DirectoryService: data DirectoryVpcSettings

+ Amazonka.DirectoryService: data DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService: data DisableClientAuthentication

+ Amazonka.DirectoryService: data DisableClientAuthenticationResponse

+ Amazonka.DirectoryService: data DisableLDAPS

+ Amazonka.DirectoryService: data DisableLDAPSResponse

+ Amazonka.DirectoryService: data DisableRadius

+ Amazonka.DirectoryService: data DisableRadiusResponse

+ Amazonka.DirectoryService: data DisableSso

+ Amazonka.DirectoryService: data DisableSsoResponse

+ Amazonka.DirectoryService: data DomainController

+ Amazonka.DirectoryService: data EnableClientAuthentication

+ Amazonka.DirectoryService: data EnableClientAuthenticationResponse

+ Amazonka.DirectoryService: data EnableLDAPS

+ Amazonka.DirectoryService: data EnableLDAPSResponse

+ Amazonka.DirectoryService: data EnableRadius

+ Amazonka.DirectoryService: data EnableRadiusResponse

+ Amazonka.DirectoryService: data EnableSso

+ Amazonka.DirectoryService: data EnableSsoResponse

+ Amazonka.DirectoryService: data EventTopic

+ Amazonka.DirectoryService: data GetDirectoryLimits

+ Amazonka.DirectoryService: data GetDirectoryLimitsResponse

+ Amazonka.DirectoryService: data GetSnapshotLimits

+ Amazonka.DirectoryService: data GetSnapshotLimitsResponse

+ Amazonka.DirectoryService: data IpRoute

+ Amazonka.DirectoryService: data IpRouteInfo

+ Amazonka.DirectoryService: data LDAPSSettingInfo

+ Amazonka.DirectoryService: data ListCertificates

+ Amazonka.DirectoryService: data ListCertificatesResponse

+ Amazonka.DirectoryService: data ListIpRoutes

+ Amazonka.DirectoryService: data ListIpRoutesResponse

+ Amazonka.DirectoryService: data ListLogSubscriptions

+ Amazonka.DirectoryService: data ListLogSubscriptionsResponse

+ Amazonka.DirectoryService: data ListSchemaExtensions

+ Amazonka.DirectoryService: data ListSchemaExtensionsResponse

+ Amazonka.DirectoryService: data ListTagsForResource

+ Amazonka.DirectoryService: data ListTagsForResourceResponse

+ Amazonka.DirectoryService: data LogSubscription

+ Amazonka.DirectoryService: data OSUpdateSettings

+ Amazonka.DirectoryService: data OwnerDirectoryDescription

+ Amazonka.DirectoryService: data RadiusSettings

+ Amazonka.DirectoryService: data RegionDescription

+ Amazonka.DirectoryService: data RegionsInfo

+ Amazonka.DirectoryService: data RegisterCertificate

+ Amazonka.DirectoryService: data RegisterCertificateResponse

+ Amazonka.DirectoryService: data RegisterEventTopic

+ Amazonka.DirectoryService: data RegisterEventTopicResponse

+ Amazonka.DirectoryService: data RejectSharedDirectory

+ Amazonka.DirectoryService: data RejectSharedDirectoryResponse

+ Amazonka.DirectoryService: data RemoveIpRoutes

+ Amazonka.DirectoryService: data RemoveIpRoutesResponse

+ Amazonka.DirectoryService: data RemoveRegion

+ Amazonka.DirectoryService: data RemoveRegionResponse

+ Amazonka.DirectoryService: data RemoveTagsFromResource

+ Amazonka.DirectoryService: data RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService: data ResetUserPassword

+ Amazonka.DirectoryService: data ResetUserPasswordResponse

+ Amazonka.DirectoryService: data RestoreFromSnapshot

+ Amazonka.DirectoryService: data RestoreFromSnapshotResponse

+ Amazonka.DirectoryService: data SchemaExtensionInfo

+ Amazonka.DirectoryService: data Setting

+ Amazonka.DirectoryService: data SettingEntry

+ Amazonka.DirectoryService: data ShareDirectory

+ Amazonka.DirectoryService: data ShareDirectoryResponse

+ Amazonka.DirectoryService: data ShareTarget

+ Amazonka.DirectoryService: data SharedDirectory

+ Amazonka.DirectoryService: data Snapshot

+ Amazonka.DirectoryService: data SnapshotLimits

+ Amazonka.DirectoryService: data StartSchemaExtension

+ Amazonka.DirectoryService: data StartSchemaExtensionResponse

+ Amazonka.DirectoryService: data Tag

+ Amazonka.DirectoryService: data Trust

+ Amazonka.DirectoryService: data UnshareDirectory

+ Amazonka.DirectoryService: data UnshareDirectoryResponse

+ Amazonka.DirectoryService: data UnshareTarget

+ Amazonka.DirectoryService: data UpdateConditionalForwarder

+ Amazonka.DirectoryService: data UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService: data UpdateDirectorySetup

+ Amazonka.DirectoryService: data UpdateDirectorySetupResponse

+ Amazonka.DirectoryService: data UpdateInfoEntry

+ Amazonka.DirectoryService: data UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService: data UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService: data UpdateRadius

+ Amazonka.DirectoryService: data UpdateRadiusResponse

+ Amazonka.DirectoryService: data UpdateSettings

+ Amazonka.DirectoryService: data UpdateSettingsResponse

+ Amazonka.DirectoryService: data UpdateTrust

+ Amazonka.DirectoryService: data UpdateTrustResponse

+ Amazonka.DirectoryService: data UpdateValue

+ Amazonka.DirectoryService: data VerifyTrust

+ Amazonka.DirectoryService: data VerifyTrustResponse

+ Amazonka.DirectoryService: defaultService :: Service

+ Amazonka.DirectoryService: newAcceptSharedDirectory :: Text -> AcceptSharedDirectory

+ Amazonka.DirectoryService: newAcceptSharedDirectoryResponse :: Int -> AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService: newAddIpRoutes :: Text -> AddIpRoutes

+ Amazonka.DirectoryService: newAddIpRoutesResponse :: Int -> AddIpRoutesResponse

+ Amazonka.DirectoryService: newAddRegion :: Text -> Text -> DirectoryVpcSettings -> AddRegion

+ Amazonka.DirectoryService: newAddRegionResponse :: Int -> AddRegionResponse

+ Amazonka.DirectoryService: newAddTagsToResource :: Text -> AddTagsToResource

+ Amazonka.DirectoryService: newAddTagsToResourceResponse :: Int -> AddTagsToResourceResponse

+ Amazonka.DirectoryService: newAttribute :: Attribute

+ Amazonka.DirectoryService: newCancelSchemaExtension :: Text -> Text -> CancelSchemaExtension

+ Amazonka.DirectoryService: newCancelSchemaExtensionResponse :: Int -> CancelSchemaExtensionResponse

+ Amazonka.DirectoryService: newCertificate :: Certificate

+ Amazonka.DirectoryService: newCertificateInfo :: CertificateInfo

+ Amazonka.DirectoryService: newClientAuthenticationSettingInfo :: ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService: newClientCertAuthSettings :: ClientCertAuthSettings

+ Amazonka.DirectoryService: newComputer :: Computer

+ Amazonka.DirectoryService: newConditionalForwarder :: ConditionalForwarder

+ Amazonka.DirectoryService: newConnectDirectory :: Text -> Text -> DirectorySize -> DirectoryConnectSettings -> ConnectDirectory

+ Amazonka.DirectoryService: newConnectDirectoryResponse :: Int -> ConnectDirectoryResponse

+ Amazonka.DirectoryService: newCreateAlias :: Text -> Text -> CreateAlias

+ Amazonka.DirectoryService: newCreateAliasResponse :: Int -> CreateAliasResponse

+ Amazonka.DirectoryService: newCreateComputer :: Text -> Text -> Text -> CreateComputer

+ Amazonka.DirectoryService: newCreateComputerResponse :: Int -> CreateComputerResponse

+ Amazonka.DirectoryService: newCreateConditionalForwarder :: Text -> Text -> CreateConditionalForwarder

+ Amazonka.DirectoryService: newCreateConditionalForwarderResponse :: Int -> CreateConditionalForwarderResponse

+ Amazonka.DirectoryService: newCreateDirectory :: Text -> Text -> DirectorySize -> CreateDirectory

+ Amazonka.DirectoryService: newCreateDirectoryResponse :: Int -> CreateDirectoryResponse

+ Amazonka.DirectoryService: newCreateLogSubscription :: Text -> Text -> CreateLogSubscription

+ Amazonka.DirectoryService: newCreateLogSubscriptionResponse :: Int -> CreateLogSubscriptionResponse

+ Amazonka.DirectoryService: newCreateMicrosoftAD :: Text -> Text -> DirectoryVpcSettings -> CreateMicrosoftAD

+ Amazonka.DirectoryService: newCreateMicrosoftADResponse :: Int -> CreateMicrosoftADResponse

+ Amazonka.DirectoryService: newCreateSnapshot :: Text -> CreateSnapshot

+ Amazonka.DirectoryService: newCreateSnapshotResponse :: Int -> CreateSnapshotResponse

+ Amazonka.DirectoryService: newCreateTrust :: Text -> Text -> Text -> TrustDirection -> CreateTrust

+ Amazonka.DirectoryService: newCreateTrustResponse :: Int -> CreateTrustResponse

+ Amazonka.DirectoryService: newDeleteConditionalForwarder :: Text -> Text -> DeleteConditionalForwarder

+ Amazonka.DirectoryService: newDeleteConditionalForwarderResponse :: Int -> DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService: newDeleteDirectory :: Text -> DeleteDirectory

+ Amazonka.DirectoryService: newDeleteDirectoryResponse :: Int -> DeleteDirectoryResponse

+ Amazonka.DirectoryService: newDeleteLogSubscription :: Text -> DeleteLogSubscription

+ Amazonka.DirectoryService: newDeleteLogSubscriptionResponse :: Int -> DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService: newDeleteSnapshot :: Text -> DeleteSnapshot

+ Amazonka.DirectoryService: newDeleteSnapshotResponse :: Int -> DeleteSnapshotResponse

+ Amazonka.DirectoryService: newDeleteTrust :: Text -> DeleteTrust

+ Amazonka.DirectoryService: newDeleteTrustResponse :: Int -> DeleteTrustResponse

+ Amazonka.DirectoryService: newDeregisterCertificate :: Text -> Text -> DeregisterCertificate

+ Amazonka.DirectoryService: newDeregisterCertificateResponse :: Int -> DeregisterCertificateResponse

+ Amazonka.DirectoryService: newDeregisterEventTopic :: Text -> Text -> DeregisterEventTopic

+ Amazonka.DirectoryService: newDeregisterEventTopicResponse :: Int -> DeregisterEventTopicResponse

+ Amazonka.DirectoryService: newDescribeCertificate :: Text -> Text -> DescribeCertificate

+ Amazonka.DirectoryService: newDescribeCertificateResponse :: Int -> DescribeCertificateResponse

+ Amazonka.DirectoryService: newDescribeClientAuthenticationSettings :: Text -> DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService: newDescribeClientAuthenticationSettingsResponse :: Int -> DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService: newDescribeConditionalForwarders :: Text -> DescribeConditionalForwarders

+ Amazonka.DirectoryService: newDescribeConditionalForwardersResponse :: Int -> DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService: newDescribeDirectories :: DescribeDirectories

+ Amazonka.DirectoryService: newDescribeDirectoriesResponse :: Int -> DescribeDirectoriesResponse

+ Amazonka.DirectoryService: newDescribeDomainControllers :: Text -> DescribeDomainControllers

+ Amazonka.DirectoryService: newDescribeDomainControllersResponse :: Int -> DescribeDomainControllersResponse

+ Amazonka.DirectoryService: newDescribeEventTopics :: DescribeEventTopics

+ Amazonka.DirectoryService: newDescribeEventTopicsResponse :: Int -> DescribeEventTopicsResponse

+ Amazonka.DirectoryService: newDescribeLDAPSSettings :: Text -> DescribeLDAPSSettings

+ Amazonka.DirectoryService: newDescribeLDAPSSettingsResponse :: Int -> DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService: newDescribeRegions :: Text -> DescribeRegions

+ Amazonka.DirectoryService: newDescribeRegionsResponse :: Int -> DescribeRegionsResponse

+ Amazonka.DirectoryService: newDescribeSettings :: Text -> DescribeSettings

+ Amazonka.DirectoryService: newDescribeSettingsResponse :: Int -> DescribeSettingsResponse

+ Amazonka.DirectoryService: newDescribeSharedDirectories :: Text -> DescribeSharedDirectories

+ Amazonka.DirectoryService: newDescribeSharedDirectoriesResponse :: Int -> DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService: newDescribeSnapshots :: DescribeSnapshots

+ Amazonka.DirectoryService: newDescribeSnapshotsResponse :: Int -> DescribeSnapshotsResponse

+ Amazonka.DirectoryService: newDescribeTrusts :: DescribeTrusts

+ Amazonka.DirectoryService: newDescribeTrustsResponse :: Int -> DescribeTrustsResponse

+ Amazonka.DirectoryService: newDescribeUpdateDirectory :: Text -> UpdateType -> DescribeUpdateDirectory

+ Amazonka.DirectoryService: newDescribeUpdateDirectoryResponse :: Int -> DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService: newDirectoryConnectSettings :: Text -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService: newDirectoryConnectSettingsDescription :: DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService: newDirectoryDescription :: DirectoryDescription

+ Amazonka.DirectoryService: newDirectoryLimits :: DirectoryLimits

+ Amazonka.DirectoryService: newDirectoryVpcSettings :: Text -> DirectoryVpcSettings

+ Amazonka.DirectoryService: newDirectoryVpcSettingsDescription :: DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService: newDisableClientAuthentication :: Text -> ClientAuthenticationType -> DisableClientAuthentication

+ Amazonka.DirectoryService: newDisableClientAuthenticationResponse :: Int -> DisableClientAuthenticationResponse

+ Amazonka.DirectoryService: newDisableLDAPS :: Text -> LDAPSType -> DisableLDAPS

+ Amazonka.DirectoryService: newDisableLDAPSResponse :: Int -> DisableLDAPSResponse

+ Amazonka.DirectoryService: newDisableRadius :: Text -> DisableRadius

+ Amazonka.DirectoryService: newDisableRadiusResponse :: Int -> DisableRadiusResponse

+ Amazonka.DirectoryService: newDisableSso :: Text -> DisableSso

+ Amazonka.DirectoryService: newDisableSsoResponse :: Int -> DisableSsoResponse

+ Amazonka.DirectoryService: newDomainController :: DomainController

+ Amazonka.DirectoryService: newEnableClientAuthentication :: Text -> ClientAuthenticationType -> EnableClientAuthentication

+ Amazonka.DirectoryService: newEnableClientAuthenticationResponse :: Int -> EnableClientAuthenticationResponse

+ Amazonka.DirectoryService: newEnableLDAPS :: Text -> LDAPSType -> EnableLDAPS

+ Amazonka.DirectoryService: newEnableLDAPSResponse :: Int -> EnableLDAPSResponse

+ Amazonka.DirectoryService: newEnableRadius :: Text -> RadiusSettings -> EnableRadius

+ Amazonka.DirectoryService: newEnableRadiusResponse :: Int -> EnableRadiusResponse

+ Amazonka.DirectoryService: newEnableSso :: Text -> EnableSso

+ Amazonka.DirectoryService: newEnableSsoResponse :: Int -> EnableSsoResponse

+ Amazonka.DirectoryService: newEventTopic :: EventTopic

+ Amazonka.DirectoryService: newGetDirectoryLimits :: GetDirectoryLimits

+ Amazonka.DirectoryService: newGetDirectoryLimitsResponse :: Int -> GetDirectoryLimitsResponse

+ Amazonka.DirectoryService: newGetSnapshotLimits :: Text -> GetSnapshotLimits

+ Amazonka.DirectoryService: newGetSnapshotLimitsResponse :: Int -> GetSnapshotLimitsResponse

+ Amazonka.DirectoryService: newIpRoute :: IpRoute

+ Amazonka.DirectoryService: newIpRouteInfo :: IpRouteInfo

+ Amazonka.DirectoryService: newLDAPSSettingInfo :: LDAPSSettingInfo

+ Amazonka.DirectoryService: newListCertificates :: Text -> ListCertificates

+ Amazonka.DirectoryService: newListCertificatesResponse :: Int -> ListCertificatesResponse

+ Amazonka.DirectoryService: newListIpRoutes :: Text -> ListIpRoutes

+ Amazonka.DirectoryService: newListIpRoutesResponse :: Int -> ListIpRoutesResponse

+ Amazonka.DirectoryService: newListLogSubscriptions :: ListLogSubscriptions

+ Amazonka.DirectoryService: newListLogSubscriptionsResponse :: Int -> ListLogSubscriptionsResponse

+ Amazonka.DirectoryService: newListSchemaExtensions :: Text -> ListSchemaExtensions

+ Amazonka.DirectoryService: newListSchemaExtensionsResponse :: Int -> ListSchemaExtensionsResponse

+ Amazonka.DirectoryService: newListTagsForResource :: Text -> ListTagsForResource

+ Amazonka.DirectoryService: newListTagsForResourceResponse :: Int -> ListTagsForResourceResponse

+ Amazonka.DirectoryService: newLogSubscription :: LogSubscription

+ Amazonka.DirectoryService: newOSUpdateSettings :: OSUpdateSettings

+ Amazonka.DirectoryService: newOwnerDirectoryDescription :: OwnerDirectoryDescription

+ Amazonka.DirectoryService: newRadiusSettings :: RadiusSettings

+ Amazonka.DirectoryService: newRegionDescription :: RegionDescription

+ Amazonka.DirectoryService: newRegionsInfo :: RegionsInfo

+ Amazonka.DirectoryService: newRegisterCertificate :: Text -> Text -> RegisterCertificate

+ Amazonka.DirectoryService: newRegisterCertificateResponse :: Int -> RegisterCertificateResponse

+ Amazonka.DirectoryService: newRegisterEventTopic :: Text -> Text -> RegisterEventTopic

+ Amazonka.DirectoryService: newRegisterEventTopicResponse :: Int -> RegisterEventTopicResponse

+ Amazonka.DirectoryService: newRejectSharedDirectory :: Text -> RejectSharedDirectory

+ Amazonka.DirectoryService: newRejectSharedDirectoryResponse :: Int -> RejectSharedDirectoryResponse

+ Amazonka.DirectoryService: newRemoveIpRoutes :: Text -> RemoveIpRoutes

+ Amazonka.DirectoryService: newRemoveIpRoutesResponse :: Int -> RemoveIpRoutesResponse

+ Amazonka.DirectoryService: newRemoveRegion :: Text -> RemoveRegion

+ Amazonka.DirectoryService: newRemoveRegionResponse :: Int -> RemoveRegionResponse

+ Amazonka.DirectoryService: newRemoveTagsFromResource :: Text -> RemoveTagsFromResource

+ Amazonka.DirectoryService: newRemoveTagsFromResourceResponse :: Int -> RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService: newResetUserPassword :: Text -> Text -> Text -> ResetUserPassword

+ Amazonka.DirectoryService: newResetUserPasswordResponse :: Int -> ResetUserPasswordResponse

+ Amazonka.DirectoryService: newRestoreFromSnapshot :: Text -> RestoreFromSnapshot

+ Amazonka.DirectoryService: newRestoreFromSnapshotResponse :: Int -> RestoreFromSnapshotResponse

+ Amazonka.DirectoryService: newSchemaExtensionInfo :: SchemaExtensionInfo

+ Amazonka.DirectoryService: newSetting :: Text -> Text -> Setting

+ Amazonka.DirectoryService: newSettingEntry :: SettingEntry

+ Amazonka.DirectoryService: newShareDirectory :: Text -> ShareTarget -> ShareMethod -> ShareDirectory

+ Amazonka.DirectoryService: newShareDirectoryResponse :: Int -> ShareDirectoryResponse

+ Amazonka.DirectoryService: newShareTarget :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService: newSharedDirectory :: SharedDirectory

+ Amazonka.DirectoryService: newSnapshot :: Snapshot

+ Amazonka.DirectoryService: newSnapshotLimits :: SnapshotLimits

+ Amazonka.DirectoryService: newStartSchemaExtension :: Text -> Bool -> Text -> Text -> StartSchemaExtension

+ Amazonka.DirectoryService: newStartSchemaExtensionResponse :: Int -> StartSchemaExtensionResponse

+ Amazonka.DirectoryService: newTag :: Text -> Text -> Tag

+ Amazonka.DirectoryService: newTrust :: Trust

+ Amazonka.DirectoryService: newUnshareDirectory :: Text -> UnshareTarget -> UnshareDirectory

+ Amazonka.DirectoryService: newUnshareDirectoryResponse :: Int -> UnshareDirectoryResponse

+ Amazonka.DirectoryService: newUnshareTarget :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService: newUpdateConditionalForwarder :: Text -> Text -> UpdateConditionalForwarder

+ Amazonka.DirectoryService: newUpdateConditionalForwarderResponse :: Int -> UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService: newUpdateDirectorySetup :: Text -> UpdateType -> UpdateDirectorySetup

+ Amazonka.DirectoryService: newUpdateDirectorySetupResponse :: Int -> UpdateDirectorySetupResponse

+ Amazonka.DirectoryService: newUpdateInfoEntry :: UpdateInfoEntry

+ Amazonka.DirectoryService: newUpdateNumberOfDomainControllers :: Text -> Natural -> UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService: newUpdateNumberOfDomainControllersResponse :: Int -> UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService: newUpdateRadius :: Text -> RadiusSettings -> UpdateRadius

+ Amazonka.DirectoryService: newUpdateRadiusResponse :: Int -> UpdateRadiusResponse

+ Amazonka.DirectoryService: newUpdateSettings :: Text -> UpdateSettings

+ Amazonka.DirectoryService: newUpdateSettingsResponse :: Int -> UpdateSettingsResponse

+ Amazonka.DirectoryService: newUpdateTrust :: Text -> UpdateTrust

+ Amazonka.DirectoryService: newUpdateTrustResponse :: Int -> UpdateTrustResponse

+ Amazonka.DirectoryService: newUpdateValue :: UpdateValue

+ Amazonka.DirectoryService: newVerifyTrust :: Text -> VerifyTrust

+ Amazonka.DirectoryService: newVerifyTrustResponse :: Int -> VerifyTrustResponse

+ Amazonka.DirectoryService: newtype CertificateState

+ Amazonka.DirectoryService: newtype CertificateType

+ Amazonka.DirectoryService: newtype ClientAuthenticationStatus

+ Amazonka.DirectoryService: newtype ClientAuthenticationType

+ Amazonka.DirectoryService: newtype DirectoryConfigurationStatus

+ Amazonka.DirectoryService: newtype DirectoryEdition

+ Amazonka.DirectoryService: newtype DirectorySize

+ Amazonka.DirectoryService: newtype DirectoryStage

+ Amazonka.DirectoryService: newtype DirectoryType

+ Amazonka.DirectoryService: newtype DomainControllerStatus

+ Amazonka.DirectoryService: newtype IpRouteStatusMsg

+ Amazonka.DirectoryService: newtype LDAPSStatus

+ Amazonka.DirectoryService: newtype LDAPSType

+ Amazonka.DirectoryService: newtype OSVersion

+ Amazonka.DirectoryService: newtype RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: newtype RadiusStatus

+ Amazonka.DirectoryService: newtype RegionType

+ Amazonka.DirectoryService: newtype ReplicationScope

+ Amazonka.DirectoryService: newtype SchemaExtensionStatus

+ Amazonka.DirectoryService: newtype SelectiveAuth

+ Amazonka.DirectoryService: newtype ShareMethod

+ Amazonka.DirectoryService: newtype ShareStatus

+ Amazonka.DirectoryService: newtype SnapshotStatus

+ Amazonka.DirectoryService: newtype SnapshotType

+ Amazonka.DirectoryService: newtype TargetType

+ Amazonka.DirectoryService: newtype TopicStatus

+ Amazonka.DirectoryService: newtype TrustDirection

+ Amazonka.DirectoryService: newtype TrustState

+ Amazonka.DirectoryService: newtype TrustType

+ Amazonka.DirectoryService: newtype UpdateStatus

+ Amazonka.DirectoryService: newtype UpdateType

+ Amazonka.DirectoryService: pattern CertificateState_DeregisterFailed :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateState_Deregistered :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateState_Deregistering :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateState_RegisterFailed :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateState_Registered :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateState_Registering :: CertificateState

+ Amazonka.DirectoryService: pattern CertificateType_ClientCertAuth :: CertificateType

+ Amazonka.DirectoryService: pattern CertificateType_ClientLDAPS :: CertificateType

+ Amazonka.DirectoryService: pattern ClientAuthenticationStatus_Disabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService: pattern ClientAuthenticationStatus_Enabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService: pattern ClientAuthenticationType_SmartCard :: ClientAuthenticationType

+ Amazonka.DirectoryService: pattern ClientAuthenticationType_SmartCardOrPassword :: ClientAuthenticationType

+ Amazonka.DirectoryService: pattern DirectoryConfigurationStatus_Default :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService: pattern DirectoryConfigurationStatus_Failed :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService: pattern DirectoryConfigurationStatus_Requested :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService: pattern DirectoryConfigurationStatus_Updated :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService: pattern DirectoryConfigurationStatus_Updating :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService: pattern DirectoryEdition_Enterprise :: DirectoryEdition

+ Amazonka.DirectoryService: pattern DirectoryEdition_Standard :: DirectoryEdition

+ Amazonka.DirectoryService: pattern DirectorySize_Large :: DirectorySize

+ Amazonka.DirectoryService: pattern DirectorySize_Small :: DirectorySize

+ Amazonka.DirectoryService: pattern DirectoryStage_Active :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Created :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Creating :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Deleted :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Deleting :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Failed :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Impaired :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Inoperable :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Requested :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_RestoreFailed :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryStage_Restoring :: DirectoryStage

+ Amazonka.DirectoryService: pattern DirectoryType_ADConnector :: DirectoryType

+ Amazonka.DirectoryService: pattern DirectoryType_MicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService: pattern DirectoryType_SharedMicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService: pattern DirectoryType_SimpleAD :: DirectoryType

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Active :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Creating :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Deleted :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Deleting :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Failed :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Impaired :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern DomainControllerStatus_Restoring :: DomainControllerStatus

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_AddFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_Added :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_Adding :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_RemoveFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_Removed :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern IpRouteStatusMsg_Removing :: IpRouteStatusMsg

+ Amazonka.DirectoryService: pattern LDAPSStatus_Disabled :: LDAPSStatus

+ Amazonka.DirectoryService: pattern LDAPSStatus_EnableFailed :: LDAPSStatus

+ Amazonka.DirectoryService: pattern LDAPSStatus_Enabled :: LDAPSStatus

+ Amazonka.DirectoryService: pattern LDAPSStatus_Enabling :: LDAPSStatus

+ Amazonka.DirectoryService: pattern LDAPSType_Client :: LDAPSType

+ Amazonka.DirectoryService: pattern OSVersion_SERVER_2012 :: OSVersion

+ Amazonka.DirectoryService: pattern OSVersion_SERVER_2019 :: OSVersion

+ Amazonka.DirectoryService: pattern RadiusAuthenticationProtocol_CHAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: pattern RadiusAuthenticationProtocol_MS_CHAPv1 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: pattern RadiusAuthenticationProtocol_MS_CHAPv2 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: pattern RadiusAuthenticationProtocol_PAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService: pattern RadiusStatus_Completed :: RadiusStatus

+ Amazonka.DirectoryService: pattern RadiusStatus_Creating :: RadiusStatus

+ Amazonka.DirectoryService: pattern RadiusStatus_Failed :: RadiusStatus

+ Amazonka.DirectoryService: pattern RegionType_Additional :: RegionType

+ Amazonka.DirectoryService: pattern RegionType_Primary :: RegionType

+ Amazonka.DirectoryService: pattern ReplicationScope_Domain :: ReplicationScope

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_CancelInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_Cancelled :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_Completed :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_CreatingSnapshot :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_Failed :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_Initializing :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_Replicating :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_RollbackInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SchemaExtensionStatus_UpdatingSchema :: SchemaExtensionStatus

+ Amazonka.DirectoryService: pattern SelectiveAuth_Disabled :: SelectiveAuth

+ Amazonka.DirectoryService: pattern SelectiveAuth_Enabled :: SelectiveAuth

+ Amazonka.DirectoryService: pattern ShareMethod_HANDSHAKE :: ShareMethod

+ Amazonka.DirectoryService: pattern ShareMethod_ORGANIZATIONS :: ShareMethod

+ Amazonka.DirectoryService: pattern ShareStatus_Deleted :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_Deleting :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_PendingAcceptance :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_RejectFailed :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_Rejected :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_Rejecting :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_ShareFailed :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_Shared :: ShareStatus

+ Amazonka.DirectoryService: pattern ShareStatus_Sharing :: ShareStatus

+ Amazonka.DirectoryService: pattern SnapshotStatus_Completed :: SnapshotStatus

+ Amazonka.DirectoryService: pattern SnapshotStatus_Creating :: SnapshotStatus

+ Amazonka.DirectoryService: pattern SnapshotStatus_Failed :: SnapshotStatus

+ Amazonka.DirectoryService: pattern SnapshotType_Auto :: SnapshotType

+ Amazonka.DirectoryService: pattern SnapshotType_Manual :: SnapshotType

+ Amazonka.DirectoryService: pattern TargetType_ACCOUNT :: TargetType

+ Amazonka.DirectoryService: pattern TopicStatus_Deleted :: TopicStatus

+ Amazonka.DirectoryService: pattern TopicStatus_Failed :: TopicStatus

+ Amazonka.DirectoryService: pattern TopicStatus_Registered :: TopicStatus

+ Amazonka.DirectoryService: pattern TopicStatus_Topic_not_found :: TopicStatus

+ Amazonka.DirectoryService: pattern TrustDirection_One_Way__Incoming :: TrustDirection

+ Amazonka.DirectoryService: pattern TrustDirection_One_Way__Outgoing :: TrustDirection

+ Amazonka.DirectoryService: pattern TrustDirection_Two_Way :: TrustDirection

+ Amazonka.DirectoryService: pattern TrustState_Created :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Creating :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Deleted :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Deleting :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Failed :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_UpdateFailed :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Updated :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Updating :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Verified :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_VerifyFailed :: TrustState

+ Amazonka.DirectoryService: pattern TrustState_Verifying :: TrustState

+ Amazonka.DirectoryService: pattern TrustType_External :: TrustType

+ Amazonka.DirectoryService: pattern TrustType_Forest :: TrustType

+ Amazonka.DirectoryService: pattern UpdateStatus_UpdateFailed :: UpdateStatus

+ Amazonka.DirectoryService: pattern UpdateStatus_Updated :: UpdateStatus

+ Amazonka.DirectoryService: pattern UpdateStatus_Updating :: UpdateStatus

+ Amazonka.DirectoryService: pattern UpdateType_OS :: UpdateType

+ Amazonka.DirectoryService.AcceptSharedDirectory: AcceptSharedDirectory' :: Text -> AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: AcceptSharedDirectoryResponse' :: Maybe SharedDirectory -> Int -> AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: [$sel:httpStatus:AcceptSharedDirectoryResponse'] :: AcceptSharedDirectoryResponse -> Int

+ Amazonka.DirectoryService.AcceptSharedDirectory: [$sel:sharedDirectory:AcceptSharedDirectoryResponse'] :: AcceptSharedDirectoryResponse -> Maybe SharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: [$sel:sharedDirectoryId:AcceptSharedDirectory'] :: AcceptSharedDirectory -> Text

+ Amazonka.DirectoryService.AcceptSharedDirectory: acceptSharedDirectoryResponse_httpStatus :: Lens' AcceptSharedDirectoryResponse Int

+ Amazonka.DirectoryService.AcceptSharedDirectory: acceptSharedDirectoryResponse_sharedDirectory :: Lens' AcceptSharedDirectoryResponse (Maybe SharedDirectory)

+ Amazonka.DirectoryService.AcceptSharedDirectory: acceptSharedDirectory_sharedDirectoryId :: Lens' AcceptSharedDirectory Text

+ Amazonka.DirectoryService.AcceptSharedDirectory: data AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: data AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Read.Read Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Show.Show Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: instance GHC.Show.Show Amazonka.DirectoryService.AcceptSharedDirectory.AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AcceptSharedDirectory: newAcceptSharedDirectory :: Text -> AcceptSharedDirectory

+ Amazonka.DirectoryService.AcceptSharedDirectory: newAcceptSharedDirectoryResponse :: Int -> AcceptSharedDirectoryResponse

+ Amazonka.DirectoryService.AddIpRoutes: AddIpRoutes' :: Maybe Bool -> Text -> [IpRoute] -> AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: AddIpRoutesResponse' :: Int -> AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: [$sel:directoryId:AddIpRoutes'] :: AddIpRoutes -> Text

+ Amazonka.DirectoryService.AddIpRoutes: [$sel:httpStatus:AddIpRoutesResponse'] :: AddIpRoutesResponse -> Int

+ Amazonka.DirectoryService.AddIpRoutes: [$sel:ipRoutes:AddIpRoutes'] :: AddIpRoutes -> [IpRoute]

+ Amazonka.DirectoryService.AddIpRoutes: [$sel:updateSecurityGroupForDirectoryControllers:AddIpRoutes'] :: AddIpRoutes -> Maybe Bool

+ Amazonka.DirectoryService.AddIpRoutes: addIpRoutesResponse_httpStatus :: Lens' AddIpRoutesResponse Int

+ Amazonka.DirectoryService.AddIpRoutes: addIpRoutes_directoryId :: Lens' AddIpRoutes Text

+ Amazonka.DirectoryService.AddIpRoutes: addIpRoutes_ipRoutes :: Lens' AddIpRoutes [IpRoute]

+ Amazonka.DirectoryService.AddIpRoutes: addIpRoutes_updateSecurityGroupForDirectoryControllers :: Lens' AddIpRoutes (Maybe Bool)

+ Amazonka.DirectoryService.AddIpRoutes: data AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: data AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddIpRoutes.AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.AddIpRoutes.AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.AddIpRoutes.AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.AddIpRoutes.AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.AddIpRoutes.AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.AddIpRoutes.AddIpRoutesResponse

+ Amazonka.DirectoryService.AddIpRoutes: newAddIpRoutes :: Text -> AddIpRoutes

+ Amazonka.DirectoryService.AddIpRoutes: newAddIpRoutesResponse :: Int -> AddIpRoutesResponse

+ Amazonka.DirectoryService.AddRegion: AddRegion' :: Text -> Text -> DirectoryVpcSettings -> AddRegion

+ Amazonka.DirectoryService.AddRegion: AddRegionResponse' :: Int -> AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: [$sel:directoryId:AddRegion'] :: AddRegion -> Text

+ Amazonka.DirectoryService.AddRegion: [$sel:httpStatus:AddRegionResponse'] :: AddRegionResponse -> Int

+ Amazonka.DirectoryService.AddRegion: [$sel:regionName:AddRegion'] :: AddRegion -> Text

+ Amazonka.DirectoryService.AddRegion: [$sel:vPCSettings:AddRegion'] :: AddRegion -> DirectoryVpcSettings

+ Amazonka.DirectoryService.AddRegion: addRegionResponse_httpStatus :: Lens' AddRegionResponse Int

+ Amazonka.DirectoryService.AddRegion: addRegion_directoryId :: Lens' AddRegion Text

+ Amazonka.DirectoryService.AddRegion: addRegion_regionName :: Lens' AddRegion Text

+ Amazonka.DirectoryService.AddRegion: addRegion_vPCSettings :: Lens' AddRegion DirectoryVpcSettings

+ Amazonka.DirectoryService.AddRegion: data AddRegion

+ Amazonka.DirectoryService.AddRegion: data AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddRegion.AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance GHC.Classes.Eq Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance GHC.Classes.Eq Amazonka.DirectoryService.AddRegion.AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: instance GHC.Generics.Generic Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance GHC.Generics.Generic Amazonka.DirectoryService.AddRegion.AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: instance GHC.Read.Read Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance GHC.Read.Read Amazonka.DirectoryService.AddRegion.AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: instance GHC.Show.Show Amazonka.DirectoryService.AddRegion.AddRegion

+ Amazonka.DirectoryService.AddRegion: instance GHC.Show.Show Amazonka.DirectoryService.AddRegion.AddRegionResponse

+ Amazonka.DirectoryService.AddRegion: newAddRegion :: Text -> Text -> DirectoryVpcSettings -> AddRegion

+ Amazonka.DirectoryService.AddRegion: newAddRegionResponse :: Int -> AddRegionResponse

+ Amazonka.DirectoryService.AddTagsToResource: AddTagsToResource' :: Text -> [Tag] -> AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: AddTagsToResourceResponse' :: Int -> AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: [$sel:httpStatus:AddTagsToResourceResponse'] :: AddTagsToResourceResponse -> Int

+ Amazonka.DirectoryService.AddTagsToResource: [$sel:resourceId:AddTagsToResource'] :: AddTagsToResource -> Text

+ Amazonka.DirectoryService.AddTagsToResource: [$sel:tags:AddTagsToResource'] :: AddTagsToResource -> [Tag]

+ Amazonka.DirectoryService.AddTagsToResource: addTagsToResourceResponse_httpStatus :: Lens' AddTagsToResourceResponse Int

+ Amazonka.DirectoryService.AddTagsToResource: addTagsToResource_resourceId :: Lens' AddTagsToResource Text

+ Amazonka.DirectoryService.AddTagsToResource: addTagsToResource_tags :: Lens' AddTagsToResource [Tag]

+ Amazonka.DirectoryService.AddTagsToResource: data AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: data AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Classes.Eq Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Classes.Eq Amazonka.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Generics.Generic Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Generics.Generic Amazonka.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Read.Read Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Read.Read Amazonka.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Show.Show Amazonka.DirectoryService.AddTagsToResource.AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: instance GHC.Show.Show Amazonka.DirectoryService.AddTagsToResource.AddTagsToResourceResponse

+ Amazonka.DirectoryService.AddTagsToResource: newAddTagsToResource :: Text -> AddTagsToResource

+ Amazonka.DirectoryService.AddTagsToResource: newAddTagsToResourceResponse :: Int -> AddTagsToResourceResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: CancelSchemaExtension' :: Text -> Text -> CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: CancelSchemaExtensionResponse' :: Int -> CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: [$sel:directoryId:CancelSchemaExtension'] :: CancelSchemaExtension -> Text

+ Amazonka.DirectoryService.CancelSchemaExtension: [$sel:httpStatus:CancelSchemaExtensionResponse'] :: CancelSchemaExtensionResponse -> Int

+ Amazonka.DirectoryService.CancelSchemaExtension: [$sel:schemaExtensionId:CancelSchemaExtension'] :: CancelSchemaExtension -> Text

+ Amazonka.DirectoryService.CancelSchemaExtension: cancelSchemaExtensionResponse_httpStatus :: Lens' CancelSchemaExtensionResponse Int

+ Amazonka.DirectoryService.CancelSchemaExtension: cancelSchemaExtension_directoryId :: Lens' CancelSchemaExtension Text

+ Amazonka.DirectoryService.CancelSchemaExtension: cancelSchemaExtension_schemaExtensionId :: Lens' CancelSchemaExtension Text

+ Amazonka.DirectoryService.CancelSchemaExtension: data CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: data CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Classes.Eq Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Classes.Eq Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Generics.Generic Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Generics.Generic Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Read.Read Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Read.Read Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Show.Show Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: instance GHC.Show.Show Amazonka.DirectoryService.CancelSchemaExtension.CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.CancelSchemaExtension: newCancelSchemaExtension :: Text -> Text -> CancelSchemaExtension

+ Amazonka.DirectoryService.CancelSchemaExtension: newCancelSchemaExtensionResponse :: Int -> CancelSchemaExtensionResponse

+ Amazonka.DirectoryService.ConnectDirectory: ConnectDirectory' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> Text -> Sensitive Text -> DirectorySize -> DirectoryConnectSettings -> ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: ConnectDirectoryResponse' :: Maybe Text -> Int -> ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:connectSettings:ConnectDirectory'] :: ConnectDirectory -> DirectoryConnectSettings

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:description:ConnectDirectory'] :: ConnectDirectory -> Maybe Text

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:directoryId:ConnectDirectoryResponse'] :: ConnectDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:httpStatus:ConnectDirectoryResponse'] :: ConnectDirectoryResponse -> Int

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:name:ConnectDirectory'] :: ConnectDirectory -> Text

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:password:ConnectDirectory'] :: ConnectDirectory -> Sensitive Text

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:shortName:ConnectDirectory'] :: ConnectDirectory -> Maybe Text

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:size:ConnectDirectory'] :: ConnectDirectory -> DirectorySize

+ Amazonka.DirectoryService.ConnectDirectory: [$sel:tags:ConnectDirectory'] :: ConnectDirectory -> Maybe [Tag]

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectoryResponse_directoryId :: Lens' ConnectDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectoryResponse_httpStatus :: Lens' ConnectDirectoryResponse Int

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_connectSettings :: Lens' ConnectDirectory DirectoryConnectSettings

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_description :: Lens' ConnectDirectory (Maybe Text)

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_name :: Lens' ConnectDirectory Text

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_password :: Lens' ConnectDirectory Text

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_shortName :: Lens' ConnectDirectory (Maybe Text)

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_size :: Lens' ConnectDirectory DirectorySize

+ Amazonka.DirectoryService.ConnectDirectory: connectDirectory_tags :: Lens' ConnectDirectory (Maybe [Tag])

+ Amazonka.DirectoryService.ConnectDirectory: data ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: data ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Read.Read Amazonka.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Show.Show Amazonka.DirectoryService.ConnectDirectory.ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: instance GHC.Show.Show Amazonka.DirectoryService.ConnectDirectory.ConnectDirectoryResponse

+ Amazonka.DirectoryService.ConnectDirectory: newConnectDirectory :: Text -> Text -> DirectorySize -> DirectoryConnectSettings -> ConnectDirectory

+ Amazonka.DirectoryService.ConnectDirectory: newConnectDirectoryResponse :: Int -> ConnectDirectoryResponse

+ Amazonka.DirectoryService.CreateAlias: CreateAlias' :: Text -> Text -> CreateAlias

+ Amazonka.DirectoryService.CreateAlias: CreateAliasResponse' :: Maybe Text -> Maybe Text -> Int -> CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: [$sel:alias:CreateAlias'] :: CreateAlias -> Text

+ Amazonka.DirectoryService.CreateAlias: [$sel:alias:CreateAliasResponse'] :: CreateAliasResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateAlias: [$sel:directoryId:CreateAlias'] :: CreateAlias -> Text

+ Amazonka.DirectoryService.CreateAlias: [$sel:directoryId:CreateAliasResponse'] :: CreateAliasResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateAlias: [$sel:httpStatus:CreateAliasResponse'] :: CreateAliasResponse -> Int

+ Amazonka.DirectoryService.CreateAlias: createAliasResponse_alias :: Lens' CreateAliasResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateAlias: createAliasResponse_directoryId :: Lens' CreateAliasResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateAlias: createAliasResponse_httpStatus :: Lens' CreateAliasResponse Int

+ Amazonka.DirectoryService.CreateAlias: createAlias_alias :: Lens' CreateAlias Text

+ Amazonka.DirectoryService.CreateAlias: createAlias_directoryId :: Lens' CreateAlias Text

+ Amazonka.DirectoryService.CreateAlias: data CreateAlias

+ Amazonka.DirectoryService.CreateAlias: data CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateAlias.CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateAlias.CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateAlias.CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Read.Read Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Read.Read Amazonka.DirectoryService.CreateAlias.CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Show.Show Amazonka.DirectoryService.CreateAlias.CreateAlias

+ Amazonka.DirectoryService.CreateAlias: instance GHC.Show.Show Amazonka.DirectoryService.CreateAlias.CreateAliasResponse

+ Amazonka.DirectoryService.CreateAlias: newCreateAlias :: Text -> Text -> CreateAlias

+ Amazonka.DirectoryService.CreateAlias: newCreateAliasResponse :: Int -> CreateAliasResponse

+ Amazonka.DirectoryService.CreateComputer: CreateComputer' :: Maybe [Attribute] -> Maybe Text -> Text -> Text -> Sensitive Text -> CreateComputer

+ Amazonka.DirectoryService.CreateComputer: CreateComputerResponse' :: Maybe Computer -> Int -> CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: [$sel:computer:CreateComputerResponse'] :: CreateComputerResponse -> Maybe Computer

+ Amazonka.DirectoryService.CreateComputer: [$sel:computerAttributes:CreateComputer'] :: CreateComputer -> Maybe [Attribute]

+ Amazonka.DirectoryService.CreateComputer: [$sel:computerName:CreateComputer'] :: CreateComputer -> Text

+ Amazonka.DirectoryService.CreateComputer: [$sel:directoryId:CreateComputer'] :: CreateComputer -> Text

+ Amazonka.DirectoryService.CreateComputer: [$sel:httpStatus:CreateComputerResponse'] :: CreateComputerResponse -> Int

+ Amazonka.DirectoryService.CreateComputer: [$sel:organizationalUnitDistinguishedName:CreateComputer'] :: CreateComputer -> Maybe Text

+ Amazonka.DirectoryService.CreateComputer: [$sel:password:CreateComputer'] :: CreateComputer -> Sensitive Text

+ Amazonka.DirectoryService.CreateComputer: createComputerResponse_computer :: Lens' CreateComputerResponse (Maybe Computer)

+ Amazonka.DirectoryService.CreateComputer: createComputerResponse_httpStatus :: Lens' CreateComputerResponse Int

+ Amazonka.DirectoryService.CreateComputer: createComputer_computerAttributes :: Lens' CreateComputer (Maybe [Attribute])

+ Amazonka.DirectoryService.CreateComputer: createComputer_computerName :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.CreateComputer: createComputer_directoryId :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.CreateComputer: createComputer_organizationalUnitDistinguishedName :: Lens' CreateComputer (Maybe Text)

+ Amazonka.DirectoryService.CreateComputer: createComputer_password :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.CreateComputer: data CreateComputer

+ Amazonka.DirectoryService.CreateComputer: data CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateComputer.CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateComputer.CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateComputer.CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Read.Read Amazonka.DirectoryService.CreateComputer.CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Show.Show Amazonka.DirectoryService.CreateComputer.CreateComputer

+ Amazonka.DirectoryService.CreateComputer: instance GHC.Show.Show Amazonka.DirectoryService.CreateComputer.CreateComputerResponse

+ Amazonka.DirectoryService.CreateComputer: newCreateComputer :: Text -> Text -> Text -> CreateComputer

+ Amazonka.DirectoryService.CreateComputer: newCreateComputerResponse :: Int -> CreateComputerResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: CreateConditionalForwarder' :: Text -> Text -> [Text] -> CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: CreateConditionalForwarderResponse' :: Int -> CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: [$sel:directoryId:CreateConditionalForwarder'] :: CreateConditionalForwarder -> Text

+ Amazonka.DirectoryService.CreateConditionalForwarder: [$sel:dnsIpAddrs:CreateConditionalForwarder'] :: CreateConditionalForwarder -> [Text]

+ Amazonka.DirectoryService.CreateConditionalForwarder: [$sel:httpStatus:CreateConditionalForwarderResponse'] :: CreateConditionalForwarderResponse -> Int

+ Amazonka.DirectoryService.CreateConditionalForwarder: [$sel:remoteDomainName:CreateConditionalForwarder'] :: CreateConditionalForwarder -> Text

+ Amazonka.DirectoryService.CreateConditionalForwarder: createConditionalForwarderResponse_httpStatus :: Lens' CreateConditionalForwarderResponse Int

+ Amazonka.DirectoryService.CreateConditionalForwarder: createConditionalForwarder_directoryId :: Lens' CreateConditionalForwarder Text

+ Amazonka.DirectoryService.CreateConditionalForwarder: createConditionalForwarder_dnsIpAddrs :: Lens' CreateConditionalForwarder [Text]

+ Amazonka.DirectoryService.CreateConditionalForwarder: createConditionalForwarder_remoteDomainName :: Lens' CreateConditionalForwarder Text

+ Amazonka.DirectoryService.CreateConditionalForwarder: data CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: data CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.CreateConditionalForwarder.CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateConditionalForwarder: newCreateConditionalForwarder :: Text -> Text -> CreateConditionalForwarder

+ Amazonka.DirectoryService.CreateConditionalForwarder: newCreateConditionalForwarderResponse :: Int -> CreateConditionalForwarderResponse

+ Amazonka.DirectoryService.CreateDirectory: CreateDirectory' :: Maybe Text -> Maybe Text -> Maybe [Tag] -> Maybe DirectoryVpcSettings -> Text -> Sensitive Text -> DirectorySize -> CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: CreateDirectoryResponse' :: Maybe Text -> Int -> CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: [$sel:description:CreateDirectory'] :: CreateDirectory -> Maybe Text

+ Amazonka.DirectoryService.CreateDirectory: [$sel:directoryId:CreateDirectoryResponse'] :: CreateDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateDirectory: [$sel:httpStatus:CreateDirectoryResponse'] :: CreateDirectoryResponse -> Int

+ Amazonka.DirectoryService.CreateDirectory: [$sel:name:CreateDirectory'] :: CreateDirectory -> Text

+ Amazonka.DirectoryService.CreateDirectory: [$sel:password:CreateDirectory'] :: CreateDirectory -> Sensitive Text

+ Amazonka.DirectoryService.CreateDirectory: [$sel:shortName:CreateDirectory'] :: CreateDirectory -> Maybe Text

+ Amazonka.DirectoryService.CreateDirectory: [$sel:size:CreateDirectory'] :: CreateDirectory -> DirectorySize

+ Amazonka.DirectoryService.CreateDirectory: [$sel:tags:CreateDirectory'] :: CreateDirectory -> Maybe [Tag]

+ Amazonka.DirectoryService.CreateDirectory: [$sel:vpcSettings:CreateDirectory'] :: CreateDirectory -> Maybe DirectoryVpcSettings

+ Amazonka.DirectoryService.CreateDirectory: createDirectoryResponse_directoryId :: Lens' CreateDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateDirectory: createDirectoryResponse_httpStatus :: Lens' CreateDirectoryResponse Int

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_description :: Lens' CreateDirectory (Maybe Text)

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_name :: Lens' CreateDirectory Text

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_password :: Lens' CreateDirectory Text

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_shortName :: Lens' CreateDirectory (Maybe Text)

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_size :: Lens' CreateDirectory DirectorySize

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_tags :: Lens' CreateDirectory (Maybe [Tag])

+ Amazonka.DirectoryService.CreateDirectory: createDirectory_vpcSettings :: Lens' CreateDirectory (Maybe DirectoryVpcSettings)

+ Amazonka.DirectoryService.CreateDirectory: data CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: data CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateDirectory.CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateDirectory.CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateDirectory.CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Read.Read Amazonka.DirectoryService.CreateDirectory.CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Show.Show Amazonka.DirectoryService.CreateDirectory.CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: instance GHC.Show.Show Amazonka.DirectoryService.CreateDirectory.CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateDirectory: newCreateDirectory :: Text -> Text -> DirectorySize -> CreateDirectory

+ Amazonka.DirectoryService.CreateDirectory: newCreateDirectoryResponse :: Int -> CreateDirectoryResponse

+ Amazonka.DirectoryService.CreateLogSubscription: CreateLogSubscription' :: Text -> Text -> CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: CreateLogSubscriptionResponse' :: Int -> CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: [$sel:directoryId:CreateLogSubscription'] :: CreateLogSubscription -> Text

+ Amazonka.DirectoryService.CreateLogSubscription: [$sel:httpStatus:CreateLogSubscriptionResponse'] :: CreateLogSubscriptionResponse -> Int

+ Amazonka.DirectoryService.CreateLogSubscription: [$sel:logGroupName:CreateLogSubscription'] :: CreateLogSubscription -> Text

+ Amazonka.DirectoryService.CreateLogSubscription: createLogSubscriptionResponse_httpStatus :: Lens' CreateLogSubscriptionResponse Int

+ Amazonka.DirectoryService.CreateLogSubscription: createLogSubscription_directoryId :: Lens' CreateLogSubscription Text

+ Amazonka.DirectoryService.CreateLogSubscription: createLogSubscription_logGroupName :: Lens' CreateLogSubscription Text

+ Amazonka.DirectoryService.CreateLogSubscription: data CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: data CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Read.Read Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Read.Read Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Show.Show Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: instance GHC.Show.Show Amazonka.DirectoryService.CreateLogSubscription.CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateLogSubscription: newCreateLogSubscription :: Text -> Text -> CreateLogSubscription

+ Amazonka.DirectoryService.CreateLogSubscription: newCreateLogSubscriptionResponse :: Int -> CreateLogSubscriptionResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: CreateMicrosoftAD' :: Maybe Text -> Maybe DirectoryEdition -> Maybe Text -> Maybe [Tag] -> Text -> Sensitive Text -> DirectoryVpcSettings -> CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: CreateMicrosoftADResponse' :: Maybe Text -> Int -> CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:description:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Maybe Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:directoryId:CreateMicrosoftADResponse'] :: CreateMicrosoftADResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:edition:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Maybe DirectoryEdition

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:httpStatus:CreateMicrosoftADResponse'] :: CreateMicrosoftADResponse -> Int

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:name:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:password:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Sensitive Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:shortName:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Maybe Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:tags:CreateMicrosoftAD'] :: CreateMicrosoftAD -> Maybe [Tag]

+ Amazonka.DirectoryService.CreateMicrosoftAD: [$sel:vpcSettings:CreateMicrosoftAD'] :: CreateMicrosoftAD -> DirectoryVpcSettings

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftADResponse_directoryId :: Lens' CreateMicrosoftADResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftADResponse_httpStatus :: Lens' CreateMicrosoftADResponse Int

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_description :: Lens' CreateMicrosoftAD (Maybe Text)

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_edition :: Lens' CreateMicrosoftAD (Maybe DirectoryEdition)

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_name :: Lens' CreateMicrosoftAD Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_password :: Lens' CreateMicrosoftAD Text

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_shortName :: Lens' CreateMicrosoftAD (Maybe Text)

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_tags :: Lens' CreateMicrosoftAD (Maybe [Tag])

+ Amazonka.DirectoryService.CreateMicrosoftAD: createMicrosoftAD_vpcSettings :: Lens' CreateMicrosoftAD DirectoryVpcSettings

+ Amazonka.DirectoryService.CreateMicrosoftAD: data CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: data CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Read.Read Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Show.Show Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: instance GHC.Show.Show Amazonka.DirectoryService.CreateMicrosoftAD.CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateMicrosoftAD: newCreateMicrosoftAD :: Text -> Text -> DirectoryVpcSettings -> CreateMicrosoftAD

+ Amazonka.DirectoryService.CreateMicrosoftAD: newCreateMicrosoftADResponse :: Int -> CreateMicrosoftADResponse

+ Amazonka.DirectoryService.CreateSnapshot: CreateSnapshot' :: Maybe Text -> Text -> CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: CreateSnapshotResponse' :: Maybe Text -> Int -> CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: [$sel:directoryId:CreateSnapshot'] :: CreateSnapshot -> Text

+ Amazonka.DirectoryService.CreateSnapshot: [$sel:httpStatus:CreateSnapshotResponse'] :: CreateSnapshotResponse -> Int

+ Amazonka.DirectoryService.CreateSnapshot: [$sel:name:CreateSnapshot'] :: CreateSnapshot -> Maybe Text

+ Amazonka.DirectoryService.CreateSnapshot: [$sel:snapshotId:CreateSnapshotResponse'] :: CreateSnapshotResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateSnapshot: createSnapshotResponse_httpStatus :: Lens' CreateSnapshotResponse Int

+ Amazonka.DirectoryService.CreateSnapshot: createSnapshotResponse_snapshotId :: Lens' CreateSnapshotResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateSnapshot: createSnapshot_directoryId :: Lens' CreateSnapshot Text

+ Amazonka.DirectoryService.CreateSnapshot: createSnapshot_name :: Lens' CreateSnapshot (Maybe Text)

+ Amazonka.DirectoryService.CreateSnapshot: data CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: data CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateSnapshot.CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateSnapshot.CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateSnapshot.CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.CreateSnapshot.CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.CreateSnapshot.CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.CreateSnapshot.CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateSnapshot: newCreateSnapshot :: Text -> CreateSnapshot

+ Amazonka.DirectoryService.CreateSnapshot: newCreateSnapshotResponse :: Int -> CreateSnapshotResponse

+ Amazonka.DirectoryService.CreateTrust: CreateTrust' :: Maybe [Text] -> Maybe SelectiveAuth -> Maybe TrustType -> Text -> Text -> Sensitive Text -> TrustDirection -> CreateTrust

+ Amazonka.DirectoryService.CreateTrust: CreateTrustResponse' :: Maybe Text -> Int -> CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: [$sel:conditionalForwarderIpAddrs:CreateTrust'] :: CreateTrust -> Maybe [Text]

+ Amazonka.DirectoryService.CreateTrust: [$sel:directoryId:CreateTrust'] :: CreateTrust -> Text

+ Amazonka.DirectoryService.CreateTrust: [$sel:httpStatus:CreateTrustResponse'] :: CreateTrustResponse -> Int

+ Amazonka.DirectoryService.CreateTrust: [$sel:remoteDomainName:CreateTrust'] :: CreateTrust -> Text

+ Amazonka.DirectoryService.CreateTrust: [$sel:selectiveAuth:CreateTrust'] :: CreateTrust -> Maybe SelectiveAuth

+ Amazonka.DirectoryService.CreateTrust: [$sel:trustDirection:CreateTrust'] :: CreateTrust -> TrustDirection

+ Amazonka.DirectoryService.CreateTrust: [$sel:trustId:CreateTrustResponse'] :: CreateTrustResponse -> Maybe Text

+ Amazonka.DirectoryService.CreateTrust: [$sel:trustPassword:CreateTrust'] :: CreateTrust -> Sensitive Text

+ Amazonka.DirectoryService.CreateTrust: [$sel:trustType:CreateTrust'] :: CreateTrust -> Maybe TrustType

+ Amazonka.DirectoryService.CreateTrust: createTrustResponse_httpStatus :: Lens' CreateTrustResponse Int

+ Amazonka.DirectoryService.CreateTrust: createTrustResponse_trustId :: Lens' CreateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.CreateTrust: createTrust_conditionalForwarderIpAddrs :: Lens' CreateTrust (Maybe [Text])

+ Amazonka.DirectoryService.CreateTrust: createTrust_directoryId :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.CreateTrust: createTrust_remoteDomainName :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.CreateTrust: createTrust_selectiveAuth :: Lens' CreateTrust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.CreateTrust: createTrust_trustDirection :: Lens' CreateTrust TrustDirection

+ Amazonka.DirectoryService.CreateTrust: createTrust_trustPassword :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.CreateTrust: createTrust_trustType :: Lens' CreateTrust (Maybe TrustType)

+ Amazonka.DirectoryService.CreateTrust: data CreateTrust

+ Amazonka.DirectoryService.CreateTrust: data CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.CreateTrust.CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.CreateTrust.CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.CreateTrust.CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Read.Read Amazonka.DirectoryService.CreateTrust.CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Show.Show Amazonka.DirectoryService.CreateTrust.CreateTrust

+ Amazonka.DirectoryService.CreateTrust: instance GHC.Show.Show Amazonka.DirectoryService.CreateTrust.CreateTrustResponse

+ Amazonka.DirectoryService.CreateTrust: newCreateTrust :: Text -> Text -> Text -> TrustDirection -> CreateTrust

+ Amazonka.DirectoryService.CreateTrust: newCreateTrustResponse :: Int -> CreateTrustResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: DeleteConditionalForwarder' :: Text -> Text -> DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: DeleteConditionalForwarderResponse' :: Int -> DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: [$sel:directoryId:DeleteConditionalForwarder'] :: DeleteConditionalForwarder -> Text

+ Amazonka.DirectoryService.DeleteConditionalForwarder: [$sel:httpStatus:DeleteConditionalForwarderResponse'] :: DeleteConditionalForwarderResponse -> Int

+ Amazonka.DirectoryService.DeleteConditionalForwarder: [$sel:remoteDomainName:DeleteConditionalForwarder'] :: DeleteConditionalForwarder -> Text

+ Amazonka.DirectoryService.DeleteConditionalForwarder: data DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: data DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: deleteConditionalForwarderResponse_httpStatus :: Lens' DeleteConditionalForwarderResponse Int

+ Amazonka.DirectoryService.DeleteConditionalForwarder: deleteConditionalForwarder_directoryId :: Lens' DeleteConditionalForwarder Text

+ Amazonka.DirectoryService.DeleteConditionalForwarder: deleteConditionalForwarder_remoteDomainName :: Lens' DeleteConditionalForwarder Text

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.DeleteConditionalForwarder.DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteConditionalForwarder: newDeleteConditionalForwarder :: Text -> Text -> DeleteConditionalForwarder

+ Amazonka.DirectoryService.DeleteConditionalForwarder: newDeleteConditionalForwarderResponse :: Int -> DeleteConditionalForwarderResponse

+ Amazonka.DirectoryService.DeleteDirectory: DeleteDirectory' :: Text -> DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: DeleteDirectoryResponse' :: Maybe Text -> Int -> DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: [$sel:directoryId:DeleteDirectory'] :: DeleteDirectory -> Text

+ Amazonka.DirectoryService.DeleteDirectory: [$sel:directoryId:DeleteDirectoryResponse'] :: DeleteDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.DeleteDirectory: [$sel:httpStatus:DeleteDirectoryResponse'] :: DeleteDirectoryResponse -> Int

+ Amazonka.DirectoryService.DeleteDirectory: data DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: data DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: deleteDirectoryResponse_directoryId :: Lens' DeleteDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.DeleteDirectory: deleteDirectoryResponse_httpStatus :: Lens' DeleteDirectoryResponse Int

+ Amazonka.DirectoryService.DeleteDirectory: deleteDirectory_directoryId :: Lens' DeleteDirectory Text

+ Amazonka.DirectoryService.DeleteDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Read.Read Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Read.Read Amazonka.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Show.Show Amazonka.DirectoryService.DeleteDirectory.DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: instance GHC.Show.Show Amazonka.DirectoryService.DeleteDirectory.DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteDirectory: newDeleteDirectory :: Text -> DeleteDirectory

+ Amazonka.DirectoryService.DeleteDirectory: newDeleteDirectoryResponse :: Int -> DeleteDirectoryResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: DeleteLogSubscription' :: Text -> DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: DeleteLogSubscriptionResponse' :: Int -> DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: [$sel:directoryId:DeleteLogSubscription'] :: DeleteLogSubscription -> Text

+ Amazonka.DirectoryService.DeleteLogSubscription: [$sel:httpStatus:DeleteLogSubscriptionResponse'] :: DeleteLogSubscriptionResponse -> Int

+ Amazonka.DirectoryService.DeleteLogSubscription: data DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: data DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: deleteLogSubscriptionResponse_httpStatus :: Lens' DeleteLogSubscriptionResponse Int

+ Amazonka.DirectoryService.DeleteLogSubscription: deleteLogSubscription_directoryId :: Lens' DeleteLogSubscription Text

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Read.Read Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Read.Read Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Show.Show Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: instance GHC.Show.Show Amazonka.DirectoryService.DeleteLogSubscription.DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteLogSubscription: newDeleteLogSubscription :: Text -> DeleteLogSubscription

+ Amazonka.DirectoryService.DeleteLogSubscription: newDeleteLogSubscriptionResponse :: Int -> DeleteLogSubscriptionResponse

+ Amazonka.DirectoryService.DeleteSnapshot: DeleteSnapshot' :: Text -> DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: DeleteSnapshotResponse' :: Maybe Text -> Int -> DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: [$sel:httpStatus:DeleteSnapshotResponse'] :: DeleteSnapshotResponse -> Int

+ Amazonka.DirectoryService.DeleteSnapshot: [$sel:snapshotId:DeleteSnapshot'] :: DeleteSnapshot -> Text

+ Amazonka.DirectoryService.DeleteSnapshot: [$sel:snapshotId:DeleteSnapshotResponse'] :: DeleteSnapshotResponse -> Maybe Text

+ Amazonka.DirectoryService.DeleteSnapshot: data DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: data DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: deleteSnapshotResponse_httpStatus :: Lens' DeleteSnapshotResponse Int

+ Amazonka.DirectoryService.DeleteSnapshot: deleteSnapshotResponse_snapshotId :: Lens' DeleteSnapshotResponse (Maybe Text)

+ Amazonka.DirectoryService.DeleteSnapshot: deleteSnapshot_snapshotId :: Lens' DeleteSnapshot Text

+ Amazonka.DirectoryService.DeleteSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.DeleteSnapshot.DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteSnapshot: newDeleteSnapshot :: Text -> DeleteSnapshot

+ Amazonka.DirectoryService.DeleteSnapshot: newDeleteSnapshotResponse :: Int -> DeleteSnapshotResponse

+ Amazonka.DirectoryService.DeleteTrust: DeleteTrust' :: Maybe Bool -> Text -> DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: DeleteTrustResponse' :: Maybe Text -> Int -> DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: [$sel:deleteAssociatedConditionalForwarder:DeleteTrust'] :: DeleteTrust -> Maybe Bool

+ Amazonka.DirectoryService.DeleteTrust: [$sel:httpStatus:DeleteTrustResponse'] :: DeleteTrustResponse -> Int

+ Amazonka.DirectoryService.DeleteTrust: [$sel:trustId:DeleteTrust'] :: DeleteTrust -> Text

+ Amazonka.DirectoryService.DeleteTrust: [$sel:trustId:DeleteTrustResponse'] :: DeleteTrustResponse -> Maybe Text

+ Amazonka.DirectoryService.DeleteTrust: data DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: data DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: deleteTrustResponse_httpStatus :: Lens' DeleteTrustResponse Int

+ Amazonka.DirectoryService.DeleteTrust: deleteTrustResponse_trustId :: Lens' DeleteTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.DeleteTrust: deleteTrust_deleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)

+ Amazonka.DirectoryService.DeleteTrust: deleteTrust_trustId :: Lens' DeleteTrust Text

+ Amazonka.DirectoryService.DeleteTrust: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeleteTrust.DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.DeleteTrust.DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.DeleteTrust.DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Read.Read Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Read.Read Amazonka.DirectoryService.DeleteTrust.DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Show.Show Amazonka.DirectoryService.DeleteTrust.DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: instance GHC.Show.Show Amazonka.DirectoryService.DeleteTrust.DeleteTrustResponse

+ Amazonka.DirectoryService.DeleteTrust: newDeleteTrust :: Text -> DeleteTrust

+ Amazonka.DirectoryService.DeleteTrust: newDeleteTrustResponse :: Int -> DeleteTrustResponse

+ Amazonka.DirectoryService.DeregisterCertificate: DeregisterCertificate' :: Text -> Text -> DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: DeregisterCertificateResponse' :: Int -> DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: [$sel:certificateId:DeregisterCertificate'] :: DeregisterCertificate -> Text

+ Amazonka.DirectoryService.DeregisterCertificate: [$sel:directoryId:DeregisterCertificate'] :: DeregisterCertificate -> Text

+ Amazonka.DirectoryService.DeregisterCertificate: [$sel:httpStatus:DeregisterCertificateResponse'] :: DeregisterCertificateResponse -> Int

+ Amazonka.DirectoryService.DeregisterCertificate: data DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: data DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: deregisterCertificateResponse_httpStatus :: Lens' DeregisterCertificateResponse Int

+ Amazonka.DirectoryService.DeregisterCertificate: deregisterCertificate_certificateId :: Lens' DeregisterCertificate Text

+ Amazonka.DirectoryService.DeregisterCertificate: deregisterCertificate_directoryId :: Lens' DeregisterCertificate Text

+ Amazonka.DirectoryService.DeregisterCertificate: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Read.Read Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Read.Read Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Show.Show Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: instance GHC.Show.Show Amazonka.DirectoryService.DeregisterCertificate.DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterCertificate: newDeregisterCertificate :: Text -> Text -> DeregisterCertificate

+ Amazonka.DirectoryService.DeregisterCertificate: newDeregisterCertificateResponse :: Int -> DeregisterCertificateResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: DeregisterEventTopic' :: Text -> Text -> DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: DeregisterEventTopicResponse' :: Int -> DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: [$sel:directoryId:DeregisterEventTopic'] :: DeregisterEventTopic -> Text

+ Amazonka.DirectoryService.DeregisterEventTopic: [$sel:httpStatus:DeregisterEventTopicResponse'] :: DeregisterEventTopicResponse -> Int

+ Amazonka.DirectoryService.DeregisterEventTopic: [$sel:topicName:DeregisterEventTopic'] :: DeregisterEventTopic -> Text

+ Amazonka.DirectoryService.DeregisterEventTopic: data DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: data DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: deregisterEventTopicResponse_httpStatus :: Lens' DeregisterEventTopicResponse Int

+ Amazonka.DirectoryService.DeregisterEventTopic: deregisterEventTopic_directoryId :: Lens' DeregisterEventTopic Text

+ Amazonka.DirectoryService.DeregisterEventTopic: deregisterEventTopic_topicName :: Lens' DeregisterEventTopic Text

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Classes.Eq Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Classes.Eq Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Generics.Generic Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Generics.Generic Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Read.Read Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Read.Read Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Show.Show Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: instance GHC.Show.Show Amazonka.DirectoryService.DeregisterEventTopic.DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DeregisterEventTopic: newDeregisterEventTopic :: Text -> Text -> DeregisterEventTopic

+ Amazonka.DirectoryService.DeregisterEventTopic: newDeregisterEventTopicResponse :: Int -> DeregisterEventTopicResponse

+ Amazonka.DirectoryService.DescribeCertificate: DescribeCertificate' :: Text -> Text -> DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: DescribeCertificateResponse' :: Maybe Certificate -> Int -> DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: [$sel:certificate:DescribeCertificateResponse'] :: DescribeCertificateResponse -> Maybe Certificate

+ Amazonka.DirectoryService.DescribeCertificate: [$sel:certificateId:DescribeCertificate'] :: DescribeCertificate -> Text

+ Amazonka.DirectoryService.DescribeCertificate: [$sel:directoryId:DescribeCertificate'] :: DescribeCertificate -> Text

+ Amazonka.DirectoryService.DescribeCertificate: [$sel:httpStatus:DescribeCertificateResponse'] :: DescribeCertificateResponse -> Int

+ Amazonka.DirectoryService.DescribeCertificate: data DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: data DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: describeCertificateResponse_certificate :: Lens' DescribeCertificateResponse (Maybe Certificate)

+ Amazonka.DirectoryService.DescribeCertificate: describeCertificateResponse_httpStatus :: Lens' DescribeCertificateResponse Int

+ Amazonka.DirectoryService.DescribeCertificate: describeCertificate_certificateId :: Lens' DescribeCertificate Text

+ Amazonka.DirectoryService.DescribeCertificate: describeCertificate_directoryId :: Lens' DescribeCertificate Text

+ Amazonka.DirectoryService.DescribeCertificate: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeCertificate.DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeCertificate.DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeCertificate.DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Read.Read Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Read.Read Amazonka.DirectoryService.DescribeCertificate.DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Show.Show Amazonka.DirectoryService.DescribeCertificate.DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: instance GHC.Show.Show Amazonka.DirectoryService.DescribeCertificate.DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeCertificate: newDescribeCertificate :: Text -> Text -> DescribeCertificate

+ Amazonka.DirectoryService.DescribeCertificate: newDescribeCertificateResponse :: Int -> DescribeCertificateResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: DescribeClientAuthenticationSettings' :: Maybe Natural -> Maybe Text -> Maybe ClientAuthenticationType -> Text -> DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: DescribeClientAuthenticationSettingsResponse' :: Maybe [ClientAuthenticationSettingInfo] -> Maybe Text -> Int -> DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:clientAuthenticationSettingsInfo:DescribeClientAuthenticationSettingsResponse'] :: DescribeClientAuthenticationSettingsResponse -> Maybe [ClientAuthenticationSettingInfo]

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:directoryId:DescribeClientAuthenticationSettings'] :: DescribeClientAuthenticationSettings -> Text

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:httpStatus:DescribeClientAuthenticationSettingsResponse'] :: DescribeClientAuthenticationSettingsResponse -> Int

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:limit:DescribeClientAuthenticationSettings'] :: DescribeClientAuthenticationSettings -> Maybe Natural

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:nextToken:DescribeClientAuthenticationSettings'] :: DescribeClientAuthenticationSettings -> Maybe Text

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:nextToken:DescribeClientAuthenticationSettingsResponse'] :: DescribeClientAuthenticationSettingsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: [$sel:type':DescribeClientAuthenticationSettings'] :: DescribeClientAuthenticationSettings -> Maybe ClientAuthenticationType

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: data DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: data DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo :: Lens' DescribeClientAuthenticationSettingsResponse (Maybe [ClientAuthenticationSettingInfo])

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettingsResponse_httpStatus :: Lens' DescribeClientAuthenticationSettingsResponse Int

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettingsResponse_nextToken :: Lens' DescribeClientAuthenticationSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettings_directoryId :: Lens' DescribeClientAuthenticationSettings Text

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettings_limit :: Lens' DescribeClientAuthenticationSettings (Maybe Natural)

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettings_nextToken :: Lens' DescribeClientAuthenticationSettings (Maybe Text)

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: describeClientAuthenticationSettings_type :: Lens' DescribeClientAuthenticationSettings (Maybe ClientAuthenticationType)

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeClientAuthenticationSettings.DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: newDescribeClientAuthenticationSettings :: Text -> DescribeClientAuthenticationSettings

+ Amazonka.DirectoryService.DescribeClientAuthenticationSettings: newDescribeClientAuthenticationSettingsResponse :: Int -> DescribeClientAuthenticationSettingsResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: DescribeConditionalForwarders' :: Maybe [Text] -> Text -> DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: DescribeConditionalForwardersResponse' :: Maybe [ConditionalForwarder] -> Int -> DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: [$sel:conditionalForwarders:DescribeConditionalForwardersResponse'] :: DescribeConditionalForwardersResponse -> Maybe [ConditionalForwarder]

+ Amazonka.DirectoryService.DescribeConditionalForwarders: [$sel:directoryId:DescribeConditionalForwarders'] :: DescribeConditionalForwarders -> Text

+ Amazonka.DirectoryService.DescribeConditionalForwarders: [$sel:httpStatus:DescribeConditionalForwardersResponse'] :: DescribeConditionalForwardersResponse -> Int

+ Amazonka.DirectoryService.DescribeConditionalForwarders: [$sel:remoteDomainNames:DescribeConditionalForwarders'] :: DescribeConditionalForwarders -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeConditionalForwarders: data DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: data DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: describeConditionalForwardersResponse_conditionalForwarders :: Lens' DescribeConditionalForwardersResponse (Maybe [ConditionalForwarder])

+ Amazonka.DirectoryService.DescribeConditionalForwarders: describeConditionalForwardersResponse_httpStatus :: Lens' DescribeConditionalForwardersResponse Int

+ Amazonka.DirectoryService.DescribeConditionalForwarders: describeConditionalForwarders_directoryId :: Lens' DescribeConditionalForwarders Text

+ Amazonka.DirectoryService.DescribeConditionalForwarders: describeConditionalForwarders_remoteDomainNames :: Lens' DescribeConditionalForwarders (Maybe [Text])

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Read.Read Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Read.Read Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Show.Show Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: instance GHC.Show.Show Amazonka.DirectoryService.DescribeConditionalForwarders.DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeConditionalForwarders: newDescribeConditionalForwarders :: Text -> DescribeConditionalForwarders

+ Amazonka.DirectoryService.DescribeConditionalForwarders: newDescribeConditionalForwardersResponse :: Int -> DescribeConditionalForwardersResponse

+ Amazonka.DirectoryService.DescribeDirectories: DescribeDirectories' :: Maybe [Text] -> Maybe Natural -> Maybe Text -> DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: DescribeDirectoriesResponse' :: Maybe [DirectoryDescription] -> Maybe Text -> Int -> DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:directoryDescriptions:DescribeDirectoriesResponse'] :: DescribeDirectoriesResponse -> Maybe [DirectoryDescription]

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:directoryIds:DescribeDirectories'] :: DescribeDirectories -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:httpStatus:DescribeDirectoriesResponse'] :: DescribeDirectoriesResponse -> Int

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:limit:DescribeDirectories'] :: DescribeDirectories -> Maybe Natural

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:nextToken:DescribeDirectories'] :: DescribeDirectories -> Maybe Text

+ Amazonka.DirectoryService.DescribeDirectories: [$sel:nextToken:DescribeDirectoriesResponse'] :: DescribeDirectoriesResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeDirectories: data DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: data DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectoriesResponse_directoryDescriptions :: Lens' DescribeDirectoriesResponse (Maybe [DirectoryDescription])

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectoriesResponse_httpStatus :: Lens' DescribeDirectoriesResponse Int

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectoriesResponse_nextToken :: Lens' DescribeDirectoriesResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectories_directoryIds :: Lens' DescribeDirectories (Maybe [Text])

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectories_limit :: Lens' DescribeDirectories (Maybe Natural)

+ Amazonka.DirectoryService.DescribeDirectories: describeDirectories_nextToken :: Lens' DescribeDirectories (Maybe Text)

+ Amazonka.DirectoryService.DescribeDirectories: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Read.Read Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Show.Show Amazonka.DirectoryService.DescribeDirectories.DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: instance GHC.Show.Show Amazonka.DirectoryService.DescribeDirectories.DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDirectories: newDescribeDirectories :: DescribeDirectories

+ Amazonka.DirectoryService.DescribeDirectories: newDescribeDirectoriesResponse :: Int -> DescribeDirectoriesResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: DescribeDomainControllers' :: Maybe [Text] -> Maybe Natural -> Maybe Text -> Text -> DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: DescribeDomainControllersResponse' :: Maybe [DomainController] -> Maybe Text -> Int -> DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:directoryId:DescribeDomainControllers'] :: DescribeDomainControllers -> Text

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:domainControllerIds:DescribeDomainControllers'] :: DescribeDomainControllers -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:domainControllers:DescribeDomainControllersResponse'] :: DescribeDomainControllersResponse -> Maybe [DomainController]

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:httpStatus:DescribeDomainControllersResponse'] :: DescribeDomainControllersResponse -> Int

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:limit:DescribeDomainControllers'] :: DescribeDomainControllers -> Maybe Natural

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:nextToken:DescribeDomainControllers'] :: DescribeDomainControllers -> Maybe Text

+ Amazonka.DirectoryService.DescribeDomainControllers: [$sel:nextToken:DescribeDomainControllersResponse'] :: DescribeDomainControllersResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeDomainControllers: data DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: data DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllersResponse_domainControllers :: Lens' DescribeDomainControllersResponse (Maybe [DomainController])

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllersResponse_httpStatus :: Lens' DescribeDomainControllersResponse Int

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllersResponse_nextToken :: Lens' DescribeDomainControllersResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllers_directoryId :: Lens' DescribeDomainControllers Text

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllers_domainControllerIds :: Lens' DescribeDomainControllers (Maybe [Text])

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllers_limit :: Lens' DescribeDomainControllers (Maybe Natural)

+ Amazonka.DirectoryService.DescribeDomainControllers: describeDomainControllers_nextToken :: Lens' DescribeDomainControllers (Maybe Text)

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Read.Read Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Read.Read Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Show.Show Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: instance GHC.Show.Show Amazonka.DirectoryService.DescribeDomainControllers.DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeDomainControllers: newDescribeDomainControllers :: Text -> DescribeDomainControllers

+ Amazonka.DirectoryService.DescribeDomainControllers: newDescribeDomainControllersResponse :: Int -> DescribeDomainControllersResponse

+ Amazonka.DirectoryService.DescribeEventTopics: DescribeEventTopics' :: Maybe Text -> Maybe [Text] -> DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: DescribeEventTopicsResponse' :: Maybe [EventTopic] -> Int -> DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: [$sel:directoryId:DescribeEventTopics'] :: DescribeEventTopics -> Maybe Text

+ Amazonka.DirectoryService.DescribeEventTopics: [$sel:eventTopics:DescribeEventTopicsResponse'] :: DescribeEventTopicsResponse -> Maybe [EventTopic]

+ Amazonka.DirectoryService.DescribeEventTopics: [$sel:httpStatus:DescribeEventTopicsResponse'] :: DescribeEventTopicsResponse -> Int

+ Amazonka.DirectoryService.DescribeEventTopics: [$sel:topicNames:DescribeEventTopics'] :: DescribeEventTopics -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeEventTopics: data DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: data DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: describeEventTopicsResponse_eventTopics :: Lens' DescribeEventTopicsResponse (Maybe [EventTopic])

+ Amazonka.DirectoryService.DescribeEventTopics: describeEventTopicsResponse_httpStatus :: Lens' DescribeEventTopicsResponse Int

+ Amazonka.DirectoryService.DescribeEventTopics: describeEventTopics_directoryId :: Lens' DescribeEventTopics (Maybe Text)

+ Amazonka.DirectoryService.DescribeEventTopics: describeEventTopics_topicNames :: Lens' DescribeEventTopics (Maybe [Text])

+ Amazonka.DirectoryService.DescribeEventTopics: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Read.Read Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Read.Read Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Show.Show Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: instance GHC.Show.Show Amazonka.DirectoryService.DescribeEventTopics.DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeEventTopics: newDescribeEventTopics :: DescribeEventTopics

+ Amazonka.DirectoryService.DescribeEventTopics: newDescribeEventTopicsResponse :: Int -> DescribeEventTopicsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: DescribeLDAPSSettings' :: Maybe Natural -> Maybe Text -> Maybe LDAPSType -> Text -> DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: DescribeLDAPSSettingsResponse' :: Maybe [LDAPSSettingInfo] -> Maybe Text -> Int -> DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:directoryId:DescribeLDAPSSettings'] :: DescribeLDAPSSettings -> Text

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:httpStatus:DescribeLDAPSSettingsResponse'] :: DescribeLDAPSSettingsResponse -> Int

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:lDAPSSettingsInfo:DescribeLDAPSSettingsResponse'] :: DescribeLDAPSSettingsResponse -> Maybe [LDAPSSettingInfo]

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:limit:DescribeLDAPSSettings'] :: DescribeLDAPSSettings -> Maybe Natural

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:nextToken:DescribeLDAPSSettings'] :: DescribeLDAPSSettings -> Maybe Text

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:nextToken:DescribeLDAPSSettingsResponse'] :: DescribeLDAPSSettingsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeLDAPSSettings: [$sel:type':DescribeLDAPSSettings'] :: DescribeLDAPSSettings -> Maybe LDAPSType

+ Amazonka.DirectoryService.DescribeLDAPSSettings: data DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: data DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettingsResponse_httpStatus :: Lens' DescribeLDAPSSettingsResponse Int

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettingsResponse_lDAPSSettingsInfo :: Lens' DescribeLDAPSSettingsResponse (Maybe [LDAPSSettingInfo])

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettingsResponse_nextToken :: Lens' DescribeLDAPSSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettings_directoryId :: Lens' DescribeLDAPSSettings Text

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettings_limit :: Lens' DescribeLDAPSSettings (Maybe Natural)

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettings_nextToken :: Lens' DescribeLDAPSSettings (Maybe Text)

+ Amazonka.DirectoryService.DescribeLDAPSSettings: describeLDAPSSettings_type :: Lens' DescribeLDAPSSettings (Maybe LDAPSType)

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeLDAPSSettings.DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeLDAPSSettings: newDescribeLDAPSSettings :: Text -> DescribeLDAPSSettings

+ Amazonka.DirectoryService.DescribeLDAPSSettings: newDescribeLDAPSSettingsResponse :: Int -> DescribeLDAPSSettingsResponse

+ Amazonka.DirectoryService.DescribeRegions: DescribeRegions' :: Maybe Text -> Maybe Text -> Text -> DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: DescribeRegionsResponse' :: Maybe Text -> Maybe [RegionDescription] -> Int -> DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: [$sel:directoryId:DescribeRegions'] :: DescribeRegions -> Text

+ Amazonka.DirectoryService.DescribeRegions: [$sel:httpStatus:DescribeRegionsResponse'] :: DescribeRegionsResponse -> Int

+ Amazonka.DirectoryService.DescribeRegions: [$sel:nextToken:DescribeRegions'] :: DescribeRegions -> Maybe Text

+ Amazonka.DirectoryService.DescribeRegions: [$sel:nextToken:DescribeRegionsResponse'] :: DescribeRegionsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeRegions: [$sel:regionName:DescribeRegions'] :: DescribeRegions -> Maybe Text

+ Amazonka.DirectoryService.DescribeRegions: [$sel:regionsDescription:DescribeRegionsResponse'] :: DescribeRegionsResponse -> Maybe [RegionDescription]

+ Amazonka.DirectoryService.DescribeRegions: data DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: data DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: describeRegionsResponse_httpStatus :: Lens' DescribeRegionsResponse Int

+ Amazonka.DirectoryService.DescribeRegions: describeRegionsResponse_nextToken :: Lens' DescribeRegionsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeRegions: describeRegionsResponse_regionsDescription :: Lens' DescribeRegionsResponse (Maybe [RegionDescription])

+ Amazonka.DirectoryService.DescribeRegions: describeRegions_directoryId :: Lens' DescribeRegions Text

+ Amazonka.DirectoryService.DescribeRegions: describeRegions_nextToken :: Lens' DescribeRegions (Maybe Text)

+ Amazonka.DirectoryService.DescribeRegions: describeRegions_regionName :: Lens' DescribeRegions (Maybe Text)

+ Amazonka.DirectoryService.DescribeRegions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeRegions.DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeRegions.DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeRegions.DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Read.Read Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Read.Read Amazonka.DirectoryService.DescribeRegions.DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Show.Show Amazonka.DirectoryService.DescribeRegions.DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: instance GHC.Show.Show Amazonka.DirectoryService.DescribeRegions.DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeRegions: newDescribeRegions :: Text -> DescribeRegions

+ Amazonka.DirectoryService.DescribeRegions: newDescribeRegionsResponse :: Int -> DescribeRegionsResponse

+ Amazonka.DirectoryService.DescribeSettings: DescribeSettings' :: Maybe Text -> Maybe DirectoryConfigurationStatus -> Text -> DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: DescribeSettingsResponse' :: Maybe Text -> Maybe Text -> Maybe [SettingEntry] -> Int -> DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: [$sel:directoryId:DescribeSettings'] :: DescribeSettings -> Text

+ Amazonka.DirectoryService.DescribeSettings: [$sel:directoryId:DescribeSettingsResponse'] :: DescribeSettingsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeSettings: [$sel:httpStatus:DescribeSettingsResponse'] :: DescribeSettingsResponse -> Int

+ Amazonka.DirectoryService.DescribeSettings: [$sel:nextToken:DescribeSettings'] :: DescribeSettings -> Maybe Text

+ Amazonka.DirectoryService.DescribeSettings: [$sel:nextToken:DescribeSettingsResponse'] :: DescribeSettingsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeSettings: [$sel:settingEntries:DescribeSettingsResponse'] :: DescribeSettingsResponse -> Maybe [SettingEntry]

+ Amazonka.DirectoryService.DescribeSettings: [$sel:status:DescribeSettings'] :: DescribeSettings -> Maybe DirectoryConfigurationStatus

+ Amazonka.DirectoryService.DescribeSettings: data DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: data DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: describeSettingsResponse_directoryId :: Lens' DescribeSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeSettings: describeSettingsResponse_httpStatus :: Lens' DescribeSettingsResponse Int

+ Amazonka.DirectoryService.DescribeSettings: describeSettingsResponse_nextToken :: Lens' DescribeSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeSettings: describeSettingsResponse_settingEntries :: Lens' DescribeSettingsResponse (Maybe [SettingEntry])

+ Amazonka.DirectoryService.DescribeSettings: describeSettings_directoryId :: Lens' DescribeSettings Text

+ Amazonka.DirectoryService.DescribeSettings: describeSettings_nextToken :: Lens' DescribeSettings (Maybe Text)

+ Amazonka.DirectoryService.DescribeSettings: describeSettings_status :: Lens' DescribeSettings (Maybe DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.DescribeSettings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSettings.DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSettings.DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSettings.DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Read.Read Amazonka.DirectoryService.DescribeSettings.DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSettings.DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSettings.DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSettings: newDescribeSettings :: Text -> DescribeSettings

+ Amazonka.DirectoryService.DescribeSettings: newDescribeSettingsResponse :: Int -> DescribeSettingsResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: DescribeSharedDirectories' :: Maybe Natural -> Maybe Text -> Maybe [Text] -> Text -> DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: DescribeSharedDirectoriesResponse' :: Maybe Text -> Maybe [SharedDirectory] -> Int -> DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:httpStatus:DescribeSharedDirectoriesResponse'] :: DescribeSharedDirectoriesResponse -> Int

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:limit:DescribeSharedDirectories'] :: DescribeSharedDirectories -> Maybe Natural

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:nextToken:DescribeSharedDirectories'] :: DescribeSharedDirectories -> Maybe Text

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:nextToken:DescribeSharedDirectoriesResponse'] :: DescribeSharedDirectoriesResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:ownerDirectoryId:DescribeSharedDirectories'] :: DescribeSharedDirectories -> Text

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:sharedDirectories:DescribeSharedDirectoriesResponse'] :: DescribeSharedDirectoriesResponse -> Maybe [SharedDirectory]

+ Amazonka.DirectoryService.DescribeSharedDirectories: [$sel:sharedDirectoryIds:DescribeSharedDirectories'] :: DescribeSharedDirectories -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeSharedDirectories: data DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: data DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectoriesResponse_httpStatus :: Lens' DescribeSharedDirectoriesResponse Int

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectoriesResponse_nextToken :: Lens' DescribeSharedDirectoriesResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectoriesResponse_sharedDirectories :: Lens' DescribeSharedDirectoriesResponse (Maybe [SharedDirectory])

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectories_limit :: Lens' DescribeSharedDirectories (Maybe Natural)

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectories_nextToken :: Lens' DescribeSharedDirectories (Maybe Text)

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectories_ownerDirectoryId :: Lens' DescribeSharedDirectories Text

+ Amazonka.DirectoryService.DescribeSharedDirectories: describeSharedDirectories_sharedDirectoryIds :: Lens' DescribeSharedDirectories (Maybe [Text])

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Read.Read Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSharedDirectories.DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSharedDirectories: newDescribeSharedDirectories :: Text -> DescribeSharedDirectories

+ Amazonka.DirectoryService.DescribeSharedDirectories: newDescribeSharedDirectoriesResponse :: Int -> DescribeSharedDirectoriesResponse

+ Amazonka.DirectoryService.DescribeSnapshots: DescribeSnapshots' :: Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: DescribeSnapshotsResponse' :: Maybe Text -> Maybe [Snapshot] -> Int -> DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:directoryId:DescribeSnapshots'] :: DescribeSnapshots -> Maybe Text

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:httpStatus:DescribeSnapshotsResponse'] :: DescribeSnapshotsResponse -> Int

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:limit:DescribeSnapshots'] :: DescribeSnapshots -> Maybe Natural

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:nextToken:DescribeSnapshots'] :: DescribeSnapshots -> Maybe Text

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:nextToken:DescribeSnapshotsResponse'] :: DescribeSnapshotsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:snapshotIds:DescribeSnapshots'] :: DescribeSnapshots -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeSnapshots: [$sel:snapshots:DescribeSnapshotsResponse'] :: DescribeSnapshotsResponse -> Maybe [Snapshot]

+ Amazonka.DirectoryService.DescribeSnapshots: data DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: data DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshotsResponse_httpStatus :: Lens' DescribeSnapshotsResponse Int

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshotsResponse_nextToken :: Lens' DescribeSnapshotsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshotsResponse_snapshots :: Lens' DescribeSnapshotsResponse (Maybe [Snapshot])

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshots_directoryId :: Lens' DescribeSnapshots (Maybe Text)

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshots_limit :: Lens' DescribeSnapshots (Maybe Natural)

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshots_nextToken :: Lens' DescribeSnapshots (Maybe Text)

+ Amazonka.DirectoryService.DescribeSnapshots: describeSnapshots_snapshotIds :: Lens' DescribeSnapshots (Maybe [Text])

+ Amazonka.DirectoryService.DescribeSnapshots: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Read.Read Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Read.Read Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: instance GHC.Show.Show Amazonka.DirectoryService.DescribeSnapshots.DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeSnapshots: newDescribeSnapshots :: DescribeSnapshots

+ Amazonka.DirectoryService.DescribeSnapshots: newDescribeSnapshotsResponse :: Int -> DescribeSnapshotsResponse

+ Amazonka.DirectoryService.DescribeTrusts: DescribeTrusts' :: Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: DescribeTrustsResponse' :: Maybe Text -> Maybe [Trust] -> Int -> DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:directoryId:DescribeTrusts'] :: DescribeTrusts -> Maybe Text

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:httpStatus:DescribeTrustsResponse'] :: DescribeTrustsResponse -> Int

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:limit:DescribeTrusts'] :: DescribeTrusts -> Maybe Natural

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:nextToken:DescribeTrusts'] :: DescribeTrusts -> Maybe Text

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:nextToken:DescribeTrustsResponse'] :: DescribeTrustsResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:trustIds:DescribeTrusts'] :: DescribeTrusts -> Maybe [Text]

+ Amazonka.DirectoryService.DescribeTrusts: [$sel:trusts:DescribeTrustsResponse'] :: DescribeTrustsResponse -> Maybe [Trust]

+ Amazonka.DirectoryService.DescribeTrusts: data DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: data DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: describeTrustsResponse_httpStatus :: Lens' DescribeTrustsResponse Int

+ Amazonka.DirectoryService.DescribeTrusts: describeTrustsResponse_nextToken :: Lens' DescribeTrustsResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeTrusts: describeTrustsResponse_trusts :: Lens' DescribeTrustsResponse (Maybe [Trust])

+ Amazonka.DirectoryService.DescribeTrusts: describeTrusts_directoryId :: Lens' DescribeTrusts (Maybe Text)

+ Amazonka.DirectoryService.DescribeTrusts: describeTrusts_limit :: Lens' DescribeTrusts (Maybe Natural)

+ Amazonka.DirectoryService.DescribeTrusts: describeTrusts_nextToken :: Lens' DescribeTrusts (Maybe Text)

+ Amazonka.DirectoryService.DescribeTrusts: describeTrusts_trustIds :: Lens' DescribeTrusts (Maybe [Text])

+ Amazonka.DirectoryService.DescribeTrusts: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeTrusts.DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeTrusts.DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeTrusts.DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Read.Read Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Read.Read Amazonka.DirectoryService.DescribeTrusts.DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Show.Show Amazonka.DirectoryService.DescribeTrusts.DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: instance GHC.Show.Show Amazonka.DirectoryService.DescribeTrusts.DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeTrusts: newDescribeTrusts :: DescribeTrusts

+ Amazonka.DirectoryService.DescribeTrusts: newDescribeTrustsResponse :: Int -> DescribeTrustsResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: DescribeUpdateDirectory' :: Maybe Text -> Maybe Text -> Text -> UpdateType -> DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: DescribeUpdateDirectoryResponse' :: Maybe Text -> Maybe [UpdateInfoEntry] -> Int -> DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:directoryId:DescribeUpdateDirectory'] :: DescribeUpdateDirectory -> Text

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:httpStatus:DescribeUpdateDirectoryResponse'] :: DescribeUpdateDirectoryResponse -> Int

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:nextToken:DescribeUpdateDirectory'] :: DescribeUpdateDirectory -> Maybe Text

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:nextToken:DescribeUpdateDirectoryResponse'] :: DescribeUpdateDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:regionName:DescribeUpdateDirectory'] :: DescribeUpdateDirectory -> Maybe Text

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:updateActivities:DescribeUpdateDirectoryResponse'] :: DescribeUpdateDirectoryResponse -> Maybe [UpdateInfoEntry]

+ Amazonka.DirectoryService.DescribeUpdateDirectory: [$sel:updateType:DescribeUpdateDirectory'] :: DescribeUpdateDirectory -> UpdateType

+ Amazonka.DirectoryService.DescribeUpdateDirectory: data DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: data DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectoryResponse_httpStatus :: Lens' DescribeUpdateDirectoryResponse Int

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectoryResponse_nextToken :: Lens' DescribeUpdateDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectoryResponse_updateActivities :: Lens' DescribeUpdateDirectoryResponse (Maybe [UpdateInfoEntry])

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectory_directoryId :: Lens' DescribeUpdateDirectory Text

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectory_nextToken :: Lens' DescribeUpdateDirectory (Maybe Text)

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectory_regionName :: Lens' DescribeUpdateDirectory (Maybe Text)

+ Amazonka.DirectoryService.DescribeUpdateDirectory: describeUpdateDirectory_updateType :: Lens' DescribeUpdateDirectory UpdateType

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Read.Read Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Read.Read Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Show.Show Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: instance GHC.Show.Show Amazonka.DirectoryService.DescribeUpdateDirectory.DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DescribeUpdateDirectory: newDescribeUpdateDirectory :: Text -> UpdateType -> DescribeUpdateDirectory

+ Amazonka.DirectoryService.DescribeUpdateDirectory: newDescribeUpdateDirectoryResponse :: Int -> DescribeUpdateDirectoryResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: DisableClientAuthentication' :: Text -> ClientAuthenticationType -> DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: DisableClientAuthenticationResponse' :: Int -> DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: [$sel:directoryId:DisableClientAuthentication'] :: DisableClientAuthentication -> Text

+ Amazonka.DirectoryService.DisableClientAuthentication: [$sel:httpStatus:DisableClientAuthenticationResponse'] :: DisableClientAuthenticationResponse -> Int

+ Amazonka.DirectoryService.DisableClientAuthentication: [$sel:type':DisableClientAuthentication'] :: DisableClientAuthentication -> ClientAuthenticationType

+ Amazonka.DirectoryService.DisableClientAuthentication: data DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: data DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: disableClientAuthenticationResponse_httpStatus :: Lens' DisableClientAuthenticationResponse Int

+ Amazonka.DirectoryService.DisableClientAuthentication: disableClientAuthentication_directoryId :: Lens' DisableClientAuthentication Text

+ Amazonka.DirectoryService.DisableClientAuthentication: disableClientAuthentication_type :: Lens' DisableClientAuthentication ClientAuthenticationType

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Read.Read Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Read.Read Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Show.Show Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: instance GHC.Show.Show Amazonka.DirectoryService.DisableClientAuthentication.DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableClientAuthentication: newDisableClientAuthentication :: Text -> ClientAuthenticationType -> DisableClientAuthentication

+ Amazonka.DirectoryService.DisableClientAuthentication: newDisableClientAuthenticationResponse :: Int -> DisableClientAuthenticationResponse

+ Amazonka.DirectoryService.DisableLDAPS: DisableLDAPS' :: Text -> LDAPSType -> DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: DisableLDAPSResponse' :: Int -> DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: [$sel:directoryId:DisableLDAPS'] :: DisableLDAPS -> Text

+ Amazonka.DirectoryService.DisableLDAPS: [$sel:httpStatus:DisableLDAPSResponse'] :: DisableLDAPSResponse -> Int

+ Amazonka.DirectoryService.DisableLDAPS: [$sel:type':DisableLDAPS'] :: DisableLDAPS -> LDAPSType

+ Amazonka.DirectoryService.DisableLDAPS: data DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: data DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: disableLDAPSResponse_httpStatus :: Lens' DisableLDAPSResponse Int

+ Amazonka.DirectoryService.DisableLDAPS: disableLDAPS_directoryId :: Lens' DisableLDAPS Text

+ Amazonka.DirectoryService.DisableLDAPS: disableLDAPS_type :: Lens' DisableLDAPS LDAPSType

+ Amazonka.DirectoryService.DisableLDAPS: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableLDAPS.DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableLDAPS.DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableLDAPS.DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Read.Read Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Read.Read Amazonka.DirectoryService.DisableLDAPS.DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Show.Show Amazonka.DirectoryService.DisableLDAPS.DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: instance GHC.Show.Show Amazonka.DirectoryService.DisableLDAPS.DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableLDAPS: newDisableLDAPS :: Text -> LDAPSType -> DisableLDAPS

+ Amazonka.DirectoryService.DisableLDAPS: newDisableLDAPSResponse :: Int -> DisableLDAPSResponse

+ Amazonka.DirectoryService.DisableRadius: DisableRadius' :: Text -> DisableRadius

+ Amazonka.DirectoryService.DisableRadius: DisableRadiusResponse' :: Int -> DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: [$sel:directoryId:DisableRadius'] :: DisableRadius -> Text

+ Amazonka.DirectoryService.DisableRadius: [$sel:httpStatus:DisableRadiusResponse'] :: DisableRadiusResponse -> Int

+ Amazonka.DirectoryService.DisableRadius: data DisableRadius

+ Amazonka.DirectoryService.DisableRadius: data DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: disableRadiusResponse_httpStatus :: Lens' DisableRadiusResponse Int

+ Amazonka.DirectoryService.DisableRadius: disableRadius_directoryId :: Lens' DisableRadius Text

+ Amazonka.DirectoryService.DisableRadius: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableRadius.DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableRadius.DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableRadius.DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Read.Read Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Read.Read Amazonka.DirectoryService.DisableRadius.DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Show.Show Amazonka.DirectoryService.DisableRadius.DisableRadius

+ Amazonka.DirectoryService.DisableRadius: instance GHC.Show.Show Amazonka.DirectoryService.DisableRadius.DisableRadiusResponse

+ Amazonka.DirectoryService.DisableRadius: newDisableRadius :: Text -> DisableRadius

+ Amazonka.DirectoryService.DisableRadius: newDisableRadiusResponse :: Int -> DisableRadiusResponse

+ Amazonka.DirectoryService.DisableSso: DisableSso' :: Maybe (Sensitive Text) -> Maybe Text -> Text -> DisableSso

+ Amazonka.DirectoryService.DisableSso: DisableSsoResponse' :: Int -> DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: [$sel:directoryId:DisableSso'] :: DisableSso -> Text

+ Amazonka.DirectoryService.DisableSso: [$sel:httpStatus:DisableSsoResponse'] :: DisableSsoResponse -> Int

+ Amazonka.DirectoryService.DisableSso: [$sel:password:DisableSso'] :: DisableSso -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.DisableSso: [$sel:userName:DisableSso'] :: DisableSso -> Maybe Text

+ Amazonka.DirectoryService.DisableSso: data DisableSso

+ Amazonka.DirectoryService.DisableSso: data DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: disableSsoResponse_httpStatus :: Lens' DisableSsoResponse Int

+ Amazonka.DirectoryService.DisableSso: disableSso_directoryId :: Lens' DisableSso Text

+ Amazonka.DirectoryService.DisableSso: disableSso_password :: Lens' DisableSso (Maybe Text)

+ Amazonka.DirectoryService.DisableSso: disableSso_userName :: Lens' DisableSso (Maybe Text)

+ Amazonka.DirectoryService.DisableSso: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Control.DeepSeq.NFData Amazonka.DirectoryService.DisableSso.DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance GHC.Classes.Eq Amazonka.DirectoryService.DisableSso.DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance GHC.Generics.Generic Amazonka.DirectoryService.DisableSso.DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: instance GHC.Read.Read Amazonka.DirectoryService.DisableSso.DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: instance GHC.Show.Show Amazonka.DirectoryService.DisableSso.DisableSso

+ Amazonka.DirectoryService.DisableSso: instance GHC.Show.Show Amazonka.DirectoryService.DisableSso.DisableSsoResponse

+ Amazonka.DirectoryService.DisableSso: newDisableSso :: Text -> DisableSso

+ Amazonka.DirectoryService.DisableSso: newDisableSsoResponse :: Int -> DisableSsoResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: EnableClientAuthentication' :: Text -> ClientAuthenticationType -> EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: EnableClientAuthenticationResponse' :: Int -> EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: [$sel:directoryId:EnableClientAuthentication'] :: EnableClientAuthentication -> Text

+ Amazonka.DirectoryService.EnableClientAuthentication: [$sel:httpStatus:EnableClientAuthenticationResponse'] :: EnableClientAuthenticationResponse -> Int

+ Amazonka.DirectoryService.EnableClientAuthentication: [$sel:type':EnableClientAuthentication'] :: EnableClientAuthentication -> ClientAuthenticationType

+ Amazonka.DirectoryService.EnableClientAuthentication: data EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: data EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: enableClientAuthenticationResponse_httpStatus :: Lens' EnableClientAuthenticationResponse Int

+ Amazonka.DirectoryService.EnableClientAuthentication: enableClientAuthentication_directoryId :: Lens' EnableClientAuthentication Text

+ Amazonka.DirectoryService.EnableClientAuthentication: enableClientAuthentication_type :: Lens' EnableClientAuthentication ClientAuthenticationType

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Read.Read Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Read.Read Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Show.Show Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: instance GHC.Show.Show Amazonka.DirectoryService.EnableClientAuthentication.EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableClientAuthentication: newEnableClientAuthentication :: Text -> ClientAuthenticationType -> EnableClientAuthentication

+ Amazonka.DirectoryService.EnableClientAuthentication: newEnableClientAuthenticationResponse :: Int -> EnableClientAuthenticationResponse

+ Amazonka.DirectoryService.EnableLDAPS: EnableLDAPS' :: Text -> LDAPSType -> EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: EnableLDAPSResponse' :: Int -> EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: [$sel:directoryId:EnableLDAPS'] :: EnableLDAPS -> Text

+ Amazonka.DirectoryService.EnableLDAPS: [$sel:httpStatus:EnableLDAPSResponse'] :: EnableLDAPSResponse -> Int

+ Amazonka.DirectoryService.EnableLDAPS: [$sel:type':EnableLDAPS'] :: EnableLDAPS -> LDAPSType

+ Amazonka.DirectoryService.EnableLDAPS: data EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: data EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: enableLDAPSResponse_httpStatus :: Lens' EnableLDAPSResponse Int

+ Amazonka.DirectoryService.EnableLDAPS: enableLDAPS_directoryId :: Lens' EnableLDAPS Text

+ Amazonka.DirectoryService.EnableLDAPS: enableLDAPS_type :: Lens' EnableLDAPS LDAPSType

+ Amazonka.DirectoryService.EnableLDAPS: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableLDAPS.EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableLDAPS.EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableLDAPS.EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Read.Read Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Read.Read Amazonka.DirectoryService.EnableLDAPS.EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Show.Show Amazonka.DirectoryService.EnableLDAPS.EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: instance GHC.Show.Show Amazonka.DirectoryService.EnableLDAPS.EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableLDAPS: newEnableLDAPS :: Text -> LDAPSType -> EnableLDAPS

+ Amazonka.DirectoryService.EnableLDAPS: newEnableLDAPSResponse :: Int -> EnableLDAPSResponse

+ Amazonka.DirectoryService.EnableRadius: EnableRadius' :: Text -> RadiusSettings -> EnableRadius

+ Amazonka.DirectoryService.EnableRadius: EnableRadiusResponse' :: Int -> EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: [$sel:directoryId:EnableRadius'] :: EnableRadius -> Text

+ Amazonka.DirectoryService.EnableRadius: [$sel:httpStatus:EnableRadiusResponse'] :: EnableRadiusResponse -> Int

+ Amazonka.DirectoryService.EnableRadius: [$sel:radiusSettings:EnableRadius'] :: EnableRadius -> RadiusSettings

+ Amazonka.DirectoryService.EnableRadius: data EnableRadius

+ Amazonka.DirectoryService.EnableRadius: data EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: enableRadiusResponse_httpStatus :: Lens' EnableRadiusResponse Int

+ Amazonka.DirectoryService.EnableRadius: enableRadius_directoryId :: Lens' EnableRadius Text

+ Amazonka.DirectoryService.EnableRadius: enableRadius_radiusSettings :: Lens' EnableRadius RadiusSettings

+ Amazonka.DirectoryService.EnableRadius: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableRadius.EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableRadius.EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableRadius.EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Read.Read Amazonka.DirectoryService.EnableRadius.EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Show.Show Amazonka.DirectoryService.EnableRadius.EnableRadius

+ Amazonka.DirectoryService.EnableRadius: instance GHC.Show.Show Amazonka.DirectoryService.EnableRadius.EnableRadiusResponse

+ Amazonka.DirectoryService.EnableRadius: newEnableRadius :: Text -> RadiusSettings -> EnableRadius

+ Amazonka.DirectoryService.EnableRadius: newEnableRadiusResponse :: Int -> EnableRadiusResponse

+ Amazonka.DirectoryService.EnableSso: EnableSso' :: Maybe (Sensitive Text) -> Maybe Text -> Text -> EnableSso

+ Amazonka.DirectoryService.EnableSso: EnableSsoResponse' :: Int -> EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: [$sel:directoryId:EnableSso'] :: EnableSso -> Text

+ Amazonka.DirectoryService.EnableSso: [$sel:httpStatus:EnableSsoResponse'] :: EnableSsoResponse -> Int

+ Amazonka.DirectoryService.EnableSso: [$sel:password:EnableSso'] :: EnableSso -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.EnableSso: [$sel:userName:EnableSso'] :: EnableSso -> Maybe Text

+ Amazonka.DirectoryService.EnableSso: data EnableSso

+ Amazonka.DirectoryService.EnableSso: data EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: enableSsoResponse_httpStatus :: Lens' EnableSsoResponse Int

+ Amazonka.DirectoryService.EnableSso: enableSso_directoryId :: Lens' EnableSso Text

+ Amazonka.DirectoryService.EnableSso: enableSso_password :: Lens' EnableSso (Maybe Text)

+ Amazonka.DirectoryService.EnableSso: enableSso_userName :: Lens' EnableSso (Maybe Text)

+ Amazonka.DirectoryService.EnableSso: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Control.DeepSeq.NFData Amazonka.DirectoryService.EnableSso.EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance GHC.Classes.Eq Amazonka.DirectoryService.EnableSso.EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance GHC.Generics.Generic Amazonka.DirectoryService.EnableSso.EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: instance GHC.Read.Read Amazonka.DirectoryService.EnableSso.EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: instance GHC.Show.Show Amazonka.DirectoryService.EnableSso.EnableSso

+ Amazonka.DirectoryService.EnableSso: instance GHC.Show.Show Amazonka.DirectoryService.EnableSso.EnableSsoResponse

+ Amazonka.DirectoryService.EnableSso: newEnableSso :: Text -> EnableSso

+ Amazonka.DirectoryService.EnableSso: newEnableSsoResponse :: Int -> EnableSsoResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: GetDirectoryLimits' :: GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: GetDirectoryLimitsResponse' :: Maybe DirectoryLimits -> Int -> GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: [$sel:directoryLimits:GetDirectoryLimitsResponse'] :: GetDirectoryLimitsResponse -> Maybe DirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: [$sel:httpStatus:GetDirectoryLimitsResponse'] :: GetDirectoryLimitsResponse -> Int

+ Amazonka.DirectoryService.GetDirectoryLimits: data GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: data GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: getDirectoryLimitsResponse_directoryLimits :: Lens' GetDirectoryLimitsResponse (Maybe DirectoryLimits)

+ Amazonka.DirectoryService.GetDirectoryLimits: getDirectoryLimitsResponse_httpStatus :: Lens' GetDirectoryLimitsResponse Int

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Read.Read Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Read.Read Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Show.Show Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: instance GHC.Show.Show Amazonka.DirectoryService.GetDirectoryLimits.GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetDirectoryLimits: newGetDirectoryLimits :: GetDirectoryLimits

+ Amazonka.DirectoryService.GetDirectoryLimits: newGetDirectoryLimitsResponse :: Int -> GetDirectoryLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: GetSnapshotLimits' :: Text -> GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: GetSnapshotLimitsResponse' :: Maybe SnapshotLimits -> Int -> GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: [$sel:directoryId:GetSnapshotLimits'] :: GetSnapshotLimits -> Text

+ Amazonka.DirectoryService.GetSnapshotLimits: [$sel:httpStatus:GetSnapshotLimitsResponse'] :: GetSnapshotLimitsResponse -> Int

+ Amazonka.DirectoryService.GetSnapshotLimits: [$sel:snapshotLimits:GetSnapshotLimitsResponse'] :: GetSnapshotLimitsResponse -> Maybe SnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: data GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: data GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: getSnapshotLimitsResponse_httpStatus :: Lens' GetSnapshotLimitsResponse Int

+ Amazonka.DirectoryService.GetSnapshotLimits: getSnapshotLimitsResponse_snapshotLimits :: Lens' GetSnapshotLimitsResponse (Maybe SnapshotLimits)

+ Amazonka.DirectoryService.GetSnapshotLimits: getSnapshotLimits_directoryId :: Lens' GetSnapshotLimits Text

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Read.Read Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Read.Read Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Show.Show Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: instance GHC.Show.Show Amazonka.DirectoryService.GetSnapshotLimits.GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.GetSnapshotLimits: newGetSnapshotLimits :: Text -> GetSnapshotLimits

+ Amazonka.DirectoryService.GetSnapshotLimits: newGetSnapshotLimitsResponse :: Int -> GetSnapshotLimitsResponse

+ Amazonka.DirectoryService.Lens: acceptSharedDirectoryResponse_httpStatus :: Lens' AcceptSharedDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: acceptSharedDirectoryResponse_sharedDirectory :: Lens' AcceptSharedDirectoryResponse (Maybe SharedDirectory)

+ Amazonka.DirectoryService.Lens: acceptSharedDirectory_sharedDirectoryId :: Lens' AcceptSharedDirectory Text

+ Amazonka.DirectoryService.Lens: addIpRoutesResponse_httpStatus :: Lens' AddIpRoutesResponse Int

+ Amazonka.DirectoryService.Lens: addIpRoutes_directoryId :: Lens' AddIpRoutes Text

+ Amazonka.DirectoryService.Lens: addIpRoutes_ipRoutes :: Lens' AddIpRoutes [IpRoute]

+ Amazonka.DirectoryService.Lens: addIpRoutes_updateSecurityGroupForDirectoryControllers :: Lens' AddIpRoutes (Maybe Bool)

+ Amazonka.DirectoryService.Lens: addRegionResponse_httpStatus :: Lens' AddRegionResponse Int

+ Amazonka.DirectoryService.Lens: addRegion_directoryId :: Lens' AddRegion Text

+ Amazonka.DirectoryService.Lens: addRegion_regionName :: Lens' AddRegion Text

+ Amazonka.DirectoryService.Lens: addRegion_vPCSettings :: Lens' AddRegion DirectoryVpcSettings

+ Amazonka.DirectoryService.Lens: addTagsToResourceResponse_httpStatus :: Lens' AddTagsToResourceResponse Int

+ Amazonka.DirectoryService.Lens: addTagsToResource_resourceId :: Lens' AddTagsToResource Text

+ Amazonka.DirectoryService.Lens: addTagsToResource_tags :: Lens' AddTagsToResource [Tag]

+ Amazonka.DirectoryService.Lens: attribute_name :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Lens: attribute_value :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Lens: cancelSchemaExtensionResponse_httpStatus :: Lens' CancelSchemaExtensionResponse Int

+ Amazonka.DirectoryService.Lens: cancelSchemaExtension_directoryId :: Lens' CancelSchemaExtension Text

+ Amazonka.DirectoryService.Lens: cancelSchemaExtension_schemaExtensionId :: Lens' CancelSchemaExtension Text

+ Amazonka.DirectoryService.Lens: certificateInfo_certificateId :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: certificateInfo_commonName :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: certificateInfo_expiryDateTime :: Lens' CertificateInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: certificateInfo_state :: Lens' CertificateInfo (Maybe CertificateState)

+ Amazonka.DirectoryService.Lens: certificateInfo_type :: Lens' CertificateInfo (Maybe CertificateType)

+ Amazonka.DirectoryService.Lens: certificate_certificateId :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Lens: certificate_clientCertAuthSettings :: Lens' Certificate (Maybe ClientCertAuthSettings)

+ Amazonka.DirectoryService.Lens: certificate_commonName :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Lens: certificate_expiryDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: certificate_registeredDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: certificate_state :: Lens' Certificate (Maybe CertificateState)

+ Amazonka.DirectoryService.Lens: certificate_stateReason :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Lens: certificate_type :: Lens' Certificate (Maybe CertificateType)

+ Amazonka.DirectoryService.Lens: clientAuthenticationSettingInfo_lastUpdatedDateTime :: Lens' ClientAuthenticationSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: clientAuthenticationSettingInfo_status :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationStatus)

+ Amazonka.DirectoryService.Lens: clientAuthenticationSettingInfo_type :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationType)

+ Amazonka.DirectoryService.Lens: clientCertAuthSettings_oCSPUrl :: Lens' ClientCertAuthSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: computer_computerAttributes :: Lens' Computer (Maybe [Attribute])

+ Amazonka.DirectoryService.Lens: computer_computerId :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Lens: computer_computerName :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Lens: conditionalForwarder_dnsIpAddrs :: Lens' ConditionalForwarder (Maybe [Text])

+ Amazonka.DirectoryService.Lens: conditionalForwarder_remoteDomainName :: Lens' ConditionalForwarder (Maybe Text)

+ Amazonka.DirectoryService.Lens: conditionalForwarder_replicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)

+ Amazonka.DirectoryService.Lens: connectDirectoryResponse_directoryId :: Lens' ConnectDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: connectDirectoryResponse_httpStatus :: Lens' ConnectDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: connectDirectory_connectSettings :: Lens' ConnectDirectory DirectoryConnectSettings

+ Amazonka.DirectoryService.Lens: connectDirectory_description :: Lens' ConnectDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: connectDirectory_name :: Lens' ConnectDirectory Text

+ Amazonka.DirectoryService.Lens: connectDirectory_password :: Lens' ConnectDirectory Text

+ Amazonka.DirectoryService.Lens: connectDirectory_shortName :: Lens' ConnectDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: connectDirectory_size :: Lens' ConnectDirectory DirectorySize

+ Amazonka.DirectoryService.Lens: connectDirectory_tags :: Lens' ConnectDirectory (Maybe [Tag])

+ Amazonka.DirectoryService.Lens: createAliasResponse_alias :: Lens' CreateAliasResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createAliasResponse_directoryId :: Lens' CreateAliasResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createAliasResponse_httpStatus :: Lens' CreateAliasResponse Int

+ Amazonka.DirectoryService.Lens: createAlias_alias :: Lens' CreateAlias Text

+ Amazonka.DirectoryService.Lens: createAlias_directoryId :: Lens' CreateAlias Text

+ Amazonka.DirectoryService.Lens: createComputerResponse_computer :: Lens' CreateComputerResponse (Maybe Computer)

+ Amazonka.DirectoryService.Lens: createComputerResponse_httpStatus :: Lens' CreateComputerResponse Int

+ Amazonka.DirectoryService.Lens: createComputer_computerAttributes :: Lens' CreateComputer (Maybe [Attribute])

+ Amazonka.DirectoryService.Lens: createComputer_computerName :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.Lens: createComputer_directoryId :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.Lens: createComputer_organizationalUnitDistinguishedName :: Lens' CreateComputer (Maybe Text)

+ Amazonka.DirectoryService.Lens: createComputer_password :: Lens' CreateComputer Text

+ Amazonka.DirectoryService.Lens: createConditionalForwarderResponse_httpStatus :: Lens' CreateConditionalForwarderResponse Int

+ Amazonka.DirectoryService.Lens: createConditionalForwarder_directoryId :: Lens' CreateConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: createConditionalForwarder_dnsIpAddrs :: Lens' CreateConditionalForwarder [Text]

+ Amazonka.DirectoryService.Lens: createConditionalForwarder_remoteDomainName :: Lens' CreateConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: createDirectoryResponse_directoryId :: Lens' CreateDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createDirectoryResponse_httpStatus :: Lens' CreateDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: createDirectory_description :: Lens' CreateDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: createDirectory_name :: Lens' CreateDirectory Text

+ Amazonka.DirectoryService.Lens: createDirectory_password :: Lens' CreateDirectory Text

+ Amazonka.DirectoryService.Lens: createDirectory_shortName :: Lens' CreateDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: createDirectory_size :: Lens' CreateDirectory DirectorySize

+ Amazonka.DirectoryService.Lens: createDirectory_tags :: Lens' CreateDirectory (Maybe [Tag])

+ Amazonka.DirectoryService.Lens: createDirectory_vpcSettings :: Lens' CreateDirectory (Maybe DirectoryVpcSettings)

+ Amazonka.DirectoryService.Lens: createLogSubscriptionResponse_httpStatus :: Lens' CreateLogSubscriptionResponse Int

+ Amazonka.DirectoryService.Lens: createLogSubscription_directoryId :: Lens' CreateLogSubscription Text

+ Amazonka.DirectoryService.Lens: createLogSubscription_logGroupName :: Lens' CreateLogSubscription Text

+ Amazonka.DirectoryService.Lens: createMicrosoftADResponse_directoryId :: Lens' CreateMicrosoftADResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createMicrosoftADResponse_httpStatus :: Lens' CreateMicrosoftADResponse Int

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_description :: Lens' CreateMicrosoftAD (Maybe Text)

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_edition :: Lens' CreateMicrosoftAD (Maybe DirectoryEdition)

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_name :: Lens' CreateMicrosoftAD Text

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_password :: Lens' CreateMicrosoftAD Text

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_shortName :: Lens' CreateMicrosoftAD (Maybe Text)

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_tags :: Lens' CreateMicrosoftAD (Maybe [Tag])

+ Amazonka.DirectoryService.Lens: createMicrosoftAD_vpcSettings :: Lens' CreateMicrosoftAD DirectoryVpcSettings

+ Amazonka.DirectoryService.Lens: createSnapshotResponse_httpStatus :: Lens' CreateSnapshotResponse Int

+ Amazonka.DirectoryService.Lens: createSnapshotResponse_snapshotId :: Lens' CreateSnapshotResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createSnapshot_directoryId :: Lens' CreateSnapshot Text

+ Amazonka.DirectoryService.Lens: createSnapshot_name :: Lens' CreateSnapshot (Maybe Text)

+ Amazonka.DirectoryService.Lens: createTrustResponse_httpStatus :: Lens' CreateTrustResponse Int

+ Amazonka.DirectoryService.Lens: createTrustResponse_trustId :: Lens' CreateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: createTrust_conditionalForwarderIpAddrs :: Lens' CreateTrust (Maybe [Text])

+ Amazonka.DirectoryService.Lens: createTrust_directoryId :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.Lens: createTrust_remoteDomainName :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.Lens: createTrust_selectiveAuth :: Lens' CreateTrust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.Lens: createTrust_trustDirection :: Lens' CreateTrust TrustDirection

+ Amazonka.DirectoryService.Lens: createTrust_trustPassword :: Lens' CreateTrust Text

+ Amazonka.DirectoryService.Lens: createTrust_trustType :: Lens' CreateTrust (Maybe TrustType)

+ Amazonka.DirectoryService.Lens: deleteConditionalForwarderResponse_httpStatus :: Lens' DeleteConditionalForwarderResponse Int

+ Amazonka.DirectoryService.Lens: deleteConditionalForwarder_directoryId :: Lens' DeleteConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: deleteConditionalForwarder_remoteDomainName :: Lens' DeleteConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: deleteDirectoryResponse_directoryId :: Lens' DeleteDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: deleteDirectoryResponse_httpStatus :: Lens' DeleteDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: deleteDirectory_directoryId :: Lens' DeleteDirectory Text

+ Amazonka.DirectoryService.Lens: deleteLogSubscriptionResponse_httpStatus :: Lens' DeleteLogSubscriptionResponse Int

+ Amazonka.DirectoryService.Lens: deleteLogSubscription_directoryId :: Lens' DeleteLogSubscription Text

+ Amazonka.DirectoryService.Lens: deleteSnapshotResponse_httpStatus :: Lens' DeleteSnapshotResponse Int

+ Amazonka.DirectoryService.Lens: deleteSnapshotResponse_snapshotId :: Lens' DeleteSnapshotResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: deleteSnapshot_snapshotId :: Lens' DeleteSnapshot Text

+ Amazonka.DirectoryService.Lens: deleteTrustResponse_httpStatus :: Lens' DeleteTrustResponse Int

+ Amazonka.DirectoryService.Lens: deleteTrustResponse_trustId :: Lens' DeleteTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: deleteTrust_deleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)

+ Amazonka.DirectoryService.Lens: deleteTrust_trustId :: Lens' DeleteTrust Text

+ Amazonka.DirectoryService.Lens: deregisterCertificateResponse_httpStatus :: Lens' DeregisterCertificateResponse Int

+ Amazonka.DirectoryService.Lens: deregisterCertificate_certificateId :: Lens' DeregisterCertificate Text

+ Amazonka.DirectoryService.Lens: deregisterCertificate_directoryId :: Lens' DeregisterCertificate Text

+ Amazonka.DirectoryService.Lens: deregisterEventTopicResponse_httpStatus :: Lens' DeregisterEventTopicResponse Int

+ Amazonka.DirectoryService.Lens: deregisterEventTopic_directoryId :: Lens' DeregisterEventTopic Text

+ Amazonka.DirectoryService.Lens: deregisterEventTopic_topicName :: Lens' DeregisterEventTopic Text

+ Amazonka.DirectoryService.Lens: describeCertificateResponse_certificate :: Lens' DescribeCertificateResponse (Maybe Certificate)

+ Amazonka.DirectoryService.Lens: describeCertificateResponse_httpStatus :: Lens' DescribeCertificateResponse Int

+ Amazonka.DirectoryService.Lens: describeCertificate_certificateId :: Lens' DescribeCertificate Text

+ Amazonka.DirectoryService.Lens: describeCertificate_directoryId :: Lens' DescribeCertificate Text

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo :: Lens' DescribeClientAuthenticationSettingsResponse (Maybe [ClientAuthenticationSettingInfo])

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettingsResponse_httpStatus :: Lens' DescribeClientAuthenticationSettingsResponse Int

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettingsResponse_nextToken :: Lens' DescribeClientAuthenticationSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettings_directoryId :: Lens' DescribeClientAuthenticationSettings Text

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettings_limit :: Lens' DescribeClientAuthenticationSettings (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettings_nextToken :: Lens' DescribeClientAuthenticationSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeClientAuthenticationSettings_type :: Lens' DescribeClientAuthenticationSettings (Maybe ClientAuthenticationType)

+ Amazonka.DirectoryService.Lens: describeConditionalForwardersResponse_conditionalForwarders :: Lens' DescribeConditionalForwardersResponse (Maybe [ConditionalForwarder])

+ Amazonka.DirectoryService.Lens: describeConditionalForwardersResponse_httpStatus :: Lens' DescribeConditionalForwardersResponse Int

+ Amazonka.DirectoryService.Lens: describeConditionalForwarders_directoryId :: Lens' DescribeConditionalForwarders Text

+ Amazonka.DirectoryService.Lens: describeConditionalForwarders_remoteDomainNames :: Lens' DescribeConditionalForwarders (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeDirectoriesResponse_directoryDescriptions :: Lens' DescribeDirectoriesResponse (Maybe [DirectoryDescription])

+ Amazonka.DirectoryService.Lens: describeDirectoriesResponse_httpStatus :: Lens' DescribeDirectoriesResponse Int

+ Amazonka.DirectoryService.Lens: describeDirectoriesResponse_nextToken :: Lens' DescribeDirectoriesResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeDirectories_directoryIds :: Lens' DescribeDirectories (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeDirectories_limit :: Lens' DescribeDirectories (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeDirectories_nextToken :: Lens' DescribeDirectories (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeDomainControllersResponse_domainControllers :: Lens' DescribeDomainControllersResponse (Maybe [DomainController])

+ Amazonka.DirectoryService.Lens: describeDomainControllersResponse_httpStatus :: Lens' DescribeDomainControllersResponse Int

+ Amazonka.DirectoryService.Lens: describeDomainControllersResponse_nextToken :: Lens' DescribeDomainControllersResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeDomainControllers_directoryId :: Lens' DescribeDomainControllers Text

+ Amazonka.DirectoryService.Lens: describeDomainControllers_domainControllerIds :: Lens' DescribeDomainControllers (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeDomainControllers_limit :: Lens' DescribeDomainControllers (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeDomainControllers_nextToken :: Lens' DescribeDomainControllers (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeEventTopicsResponse_eventTopics :: Lens' DescribeEventTopicsResponse (Maybe [EventTopic])

+ Amazonka.DirectoryService.Lens: describeEventTopicsResponse_httpStatus :: Lens' DescribeEventTopicsResponse Int

+ Amazonka.DirectoryService.Lens: describeEventTopics_directoryId :: Lens' DescribeEventTopics (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeEventTopics_topicNames :: Lens' DescribeEventTopics (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeLDAPSSettingsResponse_httpStatus :: Lens' DescribeLDAPSSettingsResponse Int

+ Amazonka.DirectoryService.Lens: describeLDAPSSettingsResponse_lDAPSSettingsInfo :: Lens' DescribeLDAPSSettingsResponse (Maybe [LDAPSSettingInfo])

+ Amazonka.DirectoryService.Lens: describeLDAPSSettingsResponse_nextToken :: Lens' DescribeLDAPSSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeLDAPSSettings_directoryId :: Lens' DescribeLDAPSSettings Text

+ Amazonka.DirectoryService.Lens: describeLDAPSSettings_limit :: Lens' DescribeLDAPSSettings (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeLDAPSSettings_nextToken :: Lens' DescribeLDAPSSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeLDAPSSettings_type :: Lens' DescribeLDAPSSettings (Maybe LDAPSType)

+ Amazonka.DirectoryService.Lens: describeRegionsResponse_httpStatus :: Lens' DescribeRegionsResponse Int

+ Amazonka.DirectoryService.Lens: describeRegionsResponse_nextToken :: Lens' DescribeRegionsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeRegionsResponse_regionsDescription :: Lens' DescribeRegionsResponse (Maybe [RegionDescription])

+ Amazonka.DirectoryService.Lens: describeRegions_directoryId :: Lens' DescribeRegions Text

+ Amazonka.DirectoryService.Lens: describeRegions_nextToken :: Lens' DescribeRegions (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeRegions_regionName :: Lens' DescribeRegions (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSettingsResponse_directoryId :: Lens' DescribeSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSettingsResponse_httpStatus :: Lens' DescribeSettingsResponse Int

+ Amazonka.DirectoryService.Lens: describeSettingsResponse_nextToken :: Lens' DescribeSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSettingsResponse_settingEntries :: Lens' DescribeSettingsResponse (Maybe [SettingEntry])

+ Amazonka.DirectoryService.Lens: describeSettings_directoryId :: Lens' DescribeSettings Text

+ Amazonka.DirectoryService.Lens: describeSettings_nextToken :: Lens' DescribeSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSettings_status :: Lens' DescribeSettings (Maybe DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Lens: describeSharedDirectoriesResponse_httpStatus :: Lens' DescribeSharedDirectoriesResponse Int

+ Amazonka.DirectoryService.Lens: describeSharedDirectoriesResponse_nextToken :: Lens' DescribeSharedDirectoriesResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSharedDirectoriesResponse_sharedDirectories :: Lens' DescribeSharedDirectoriesResponse (Maybe [SharedDirectory])

+ Amazonka.DirectoryService.Lens: describeSharedDirectories_limit :: Lens' DescribeSharedDirectories (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeSharedDirectories_nextToken :: Lens' DescribeSharedDirectories (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSharedDirectories_ownerDirectoryId :: Lens' DescribeSharedDirectories Text

+ Amazonka.DirectoryService.Lens: describeSharedDirectories_sharedDirectoryIds :: Lens' DescribeSharedDirectories (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeSnapshotsResponse_httpStatus :: Lens' DescribeSnapshotsResponse Int

+ Amazonka.DirectoryService.Lens: describeSnapshotsResponse_nextToken :: Lens' DescribeSnapshotsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSnapshotsResponse_snapshots :: Lens' DescribeSnapshotsResponse (Maybe [Snapshot])

+ Amazonka.DirectoryService.Lens: describeSnapshots_directoryId :: Lens' DescribeSnapshots (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSnapshots_limit :: Lens' DescribeSnapshots (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeSnapshots_nextToken :: Lens' DescribeSnapshots (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeSnapshots_snapshotIds :: Lens' DescribeSnapshots (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeTrustsResponse_httpStatus :: Lens' DescribeTrustsResponse Int

+ Amazonka.DirectoryService.Lens: describeTrustsResponse_nextToken :: Lens' DescribeTrustsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeTrustsResponse_trusts :: Lens' DescribeTrustsResponse (Maybe [Trust])

+ Amazonka.DirectoryService.Lens: describeTrusts_directoryId :: Lens' DescribeTrusts (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeTrusts_limit :: Lens' DescribeTrusts (Maybe Natural)

+ Amazonka.DirectoryService.Lens: describeTrusts_nextToken :: Lens' DescribeTrusts (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeTrusts_trustIds :: Lens' DescribeTrusts (Maybe [Text])

+ Amazonka.DirectoryService.Lens: describeUpdateDirectoryResponse_httpStatus :: Lens' DescribeUpdateDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: describeUpdateDirectoryResponse_nextToken :: Lens' DescribeUpdateDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeUpdateDirectoryResponse_updateActivities :: Lens' DescribeUpdateDirectoryResponse (Maybe [UpdateInfoEntry])

+ Amazonka.DirectoryService.Lens: describeUpdateDirectory_directoryId :: Lens' DescribeUpdateDirectory Text

+ Amazonka.DirectoryService.Lens: describeUpdateDirectory_nextToken :: Lens' DescribeUpdateDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeUpdateDirectory_regionName :: Lens' DescribeUpdateDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: describeUpdateDirectory_updateType :: Lens' DescribeUpdateDirectory UpdateType

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_availabilityZones :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_connectIps :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_customerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_securityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_subnetIds :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryConnectSettingsDescription_vpcId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryConnectSettings_customerDnsIps :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Lens: directoryConnectSettings_customerUserName :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Lens: directoryConnectSettings_subnetIds :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Lens: directoryConnectSettings_vpcId :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Lens: directoryDescription_accessUrl :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_alias :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_connectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)

+ Amazonka.DirectoryService.Lens: directoryDescription_description :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_desiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryDescription_directoryId :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_dnsIpAddrs :: Lens' DirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryDescription_edition :: Lens' DirectoryDescription (Maybe DirectoryEdition)

+ Amazonka.DirectoryService.Lens: directoryDescription_launchTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: directoryDescription_name :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_osVersion :: Lens' DirectoryDescription (Maybe OSVersion)

+ Amazonka.DirectoryService.Lens: directoryDescription_ownerDirectoryDescription :: Lens' DirectoryDescription (Maybe OwnerDirectoryDescription)

+ Amazonka.DirectoryService.Lens: directoryDescription_radiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Lens: directoryDescription_radiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Lens: directoryDescription_regionsInfo :: Lens' DirectoryDescription (Maybe RegionsInfo)

+ Amazonka.DirectoryService.Lens: directoryDescription_shareMethod :: Lens' DirectoryDescription (Maybe ShareMethod)

+ Amazonka.DirectoryService.Lens: directoryDescription_shareNotes :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_shareStatus :: Lens' DirectoryDescription (Maybe ShareStatus)

+ Amazonka.DirectoryService.Lens: directoryDescription_shortName :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_size :: Lens' DirectoryDescription (Maybe DirectorySize)

+ Amazonka.DirectoryService.Lens: directoryDescription_ssoEnabled :: Lens' DirectoryDescription (Maybe Bool)

+ Amazonka.DirectoryService.Lens: directoryDescription_stage :: Lens' DirectoryDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Lens: directoryDescription_stageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: directoryDescription_stageReason :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryDescription_type :: Lens' DirectoryDescription (Maybe DirectoryType)

+ Amazonka.DirectoryService.Lens: directoryDescription_vpcSettings :: Lens' DirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_cloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Lens: directoryLimits_connectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_connectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: directoryLimits_connectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Lens: directoryVpcSettingsDescription_availabilityZones :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryVpcSettingsDescription_securityGroupId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryVpcSettingsDescription_subnetIds :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: directoryVpcSettingsDescription_vpcId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: directoryVpcSettings_subnetIds :: Lens' DirectoryVpcSettings [Text]

+ Amazonka.DirectoryService.Lens: directoryVpcSettings_vpcId :: Lens' DirectoryVpcSettings Text

+ Amazonka.DirectoryService.Lens: disableClientAuthenticationResponse_httpStatus :: Lens' DisableClientAuthenticationResponse Int

+ Amazonka.DirectoryService.Lens: disableClientAuthentication_directoryId :: Lens' DisableClientAuthentication Text

+ Amazonka.DirectoryService.Lens: disableClientAuthentication_type :: Lens' DisableClientAuthentication ClientAuthenticationType

+ Amazonka.DirectoryService.Lens: disableLDAPSResponse_httpStatus :: Lens' DisableLDAPSResponse Int

+ Amazonka.DirectoryService.Lens: disableLDAPS_directoryId :: Lens' DisableLDAPS Text

+ Amazonka.DirectoryService.Lens: disableLDAPS_type :: Lens' DisableLDAPS LDAPSType

+ Amazonka.DirectoryService.Lens: disableRadiusResponse_httpStatus :: Lens' DisableRadiusResponse Int

+ Amazonka.DirectoryService.Lens: disableRadius_directoryId :: Lens' DisableRadius Text

+ Amazonka.DirectoryService.Lens: disableSsoResponse_httpStatus :: Lens' DisableSsoResponse Int

+ Amazonka.DirectoryService.Lens: disableSso_directoryId :: Lens' DisableSso Text

+ Amazonka.DirectoryService.Lens: disableSso_password :: Lens' DisableSso (Maybe Text)

+ Amazonka.DirectoryService.Lens: disableSso_userName :: Lens' DisableSso (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_availabilityZone :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_directoryId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_dnsIpAddr :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_domainControllerId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_launchTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: domainController_status :: Lens' DomainController (Maybe DomainControllerStatus)

+ Amazonka.DirectoryService.Lens: domainController_statusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: domainController_statusReason :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_subnetId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: domainController_vpcId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Lens: enableClientAuthenticationResponse_httpStatus :: Lens' EnableClientAuthenticationResponse Int

+ Amazonka.DirectoryService.Lens: enableClientAuthentication_directoryId :: Lens' EnableClientAuthentication Text

+ Amazonka.DirectoryService.Lens: enableClientAuthentication_type :: Lens' EnableClientAuthentication ClientAuthenticationType

+ Amazonka.DirectoryService.Lens: enableLDAPSResponse_httpStatus :: Lens' EnableLDAPSResponse Int

+ Amazonka.DirectoryService.Lens: enableLDAPS_directoryId :: Lens' EnableLDAPS Text

+ Amazonka.DirectoryService.Lens: enableLDAPS_type :: Lens' EnableLDAPS LDAPSType

+ Amazonka.DirectoryService.Lens: enableRadiusResponse_httpStatus :: Lens' EnableRadiusResponse Int

+ Amazonka.DirectoryService.Lens: enableRadius_directoryId :: Lens' EnableRadius Text

+ Amazonka.DirectoryService.Lens: enableRadius_radiusSettings :: Lens' EnableRadius RadiusSettings

+ Amazonka.DirectoryService.Lens: enableSsoResponse_httpStatus :: Lens' EnableSsoResponse Int

+ Amazonka.DirectoryService.Lens: enableSso_directoryId :: Lens' EnableSso Text

+ Amazonka.DirectoryService.Lens: enableSso_password :: Lens' EnableSso (Maybe Text)

+ Amazonka.DirectoryService.Lens: enableSso_userName :: Lens' EnableSso (Maybe Text)

+ Amazonka.DirectoryService.Lens: eventTopic_createdDateTime :: Lens' EventTopic (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: eventTopic_directoryId :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Lens: eventTopic_status :: Lens' EventTopic (Maybe TopicStatus)

+ Amazonka.DirectoryService.Lens: eventTopic_topicArn :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Lens: eventTopic_topicName :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Lens: getDirectoryLimitsResponse_directoryLimits :: Lens' GetDirectoryLimitsResponse (Maybe DirectoryLimits)

+ Amazonka.DirectoryService.Lens: getDirectoryLimitsResponse_httpStatus :: Lens' GetDirectoryLimitsResponse Int

+ Amazonka.DirectoryService.Lens: getSnapshotLimitsResponse_httpStatus :: Lens' GetSnapshotLimitsResponse Int

+ Amazonka.DirectoryService.Lens: getSnapshotLimitsResponse_snapshotLimits :: Lens' GetSnapshotLimitsResponse (Maybe SnapshotLimits)

+ Amazonka.DirectoryService.Lens: getSnapshotLimits_directoryId :: Lens' GetSnapshotLimits Text

+ Amazonka.DirectoryService.Lens: ipRouteInfo_addedDateTime :: Lens' IpRouteInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: ipRouteInfo_cidrIp :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: ipRouteInfo_description :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: ipRouteInfo_directoryId :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: ipRouteInfo_ipRouteStatusMsg :: Lens' IpRouteInfo (Maybe IpRouteStatusMsg)

+ Amazonka.DirectoryService.Lens: ipRouteInfo_ipRouteStatusReason :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: ipRoute_cidrIp :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Lens: ipRoute_description :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Lens: lDAPSSettingInfo_lDAPSStatus :: Lens' LDAPSSettingInfo (Maybe LDAPSStatus)

+ Amazonka.DirectoryService.Lens: lDAPSSettingInfo_lDAPSStatusReason :: Lens' LDAPSSettingInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: lDAPSSettingInfo_lastUpdatedDateTime :: Lens' LDAPSSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: listCertificatesResponse_certificatesInfo :: Lens' ListCertificatesResponse (Maybe [CertificateInfo])

+ Amazonka.DirectoryService.Lens: listCertificatesResponse_httpStatus :: Lens' ListCertificatesResponse Int

+ Amazonka.DirectoryService.Lens: listCertificatesResponse_nextToken :: Lens' ListCertificatesResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: listCertificates_directoryId :: Lens' ListCertificates Text

+ Amazonka.DirectoryService.Lens: listCertificates_limit :: Lens' ListCertificates (Maybe Natural)

+ Amazonka.DirectoryService.Lens: listCertificates_nextToken :: Lens' ListCertificates (Maybe Text)

+ Amazonka.DirectoryService.Lens: listIpRoutesResponse_httpStatus :: Lens' ListIpRoutesResponse Int

+ Amazonka.DirectoryService.Lens: listIpRoutesResponse_ipRoutesInfo :: Lens' ListIpRoutesResponse (Maybe [IpRouteInfo])

+ Amazonka.DirectoryService.Lens: listIpRoutesResponse_nextToken :: Lens' ListIpRoutesResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: listIpRoutes_directoryId :: Lens' ListIpRoutes Text

+ Amazonka.DirectoryService.Lens: listIpRoutes_limit :: Lens' ListIpRoutes (Maybe Natural)

+ Amazonka.DirectoryService.Lens: listIpRoutes_nextToken :: Lens' ListIpRoutes (Maybe Text)

+ Amazonka.DirectoryService.Lens: listLogSubscriptionsResponse_httpStatus :: Lens' ListLogSubscriptionsResponse Int

+ Amazonka.DirectoryService.Lens: listLogSubscriptionsResponse_logSubscriptions :: Lens' ListLogSubscriptionsResponse (Maybe [LogSubscription])

+ Amazonka.DirectoryService.Lens: listLogSubscriptionsResponse_nextToken :: Lens' ListLogSubscriptionsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: listLogSubscriptions_directoryId :: Lens' ListLogSubscriptions (Maybe Text)

+ Amazonka.DirectoryService.Lens: listLogSubscriptions_limit :: Lens' ListLogSubscriptions (Maybe Natural)

+ Amazonka.DirectoryService.Lens: listLogSubscriptions_nextToken :: Lens' ListLogSubscriptions (Maybe Text)

+ Amazonka.DirectoryService.Lens: listSchemaExtensionsResponse_httpStatus :: Lens' ListSchemaExtensionsResponse Int

+ Amazonka.DirectoryService.Lens: listSchemaExtensionsResponse_nextToken :: Lens' ListSchemaExtensionsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: listSchemaExtensionsResponse_schemaExtensionsInfo :: Lens' ListSchemaExtensionsResponse (Maybe [SchemaExtensionInfo])

+ Amazonka.DirectoryService.Lens: listSchemaExtensions_directoryId :: Lens' ListSchemaExtensions Text

+ Amazonka.DirectoryService.Lens: listSchemaExtensions_limit :: Lens' ListSchemaExtensions (Maybe Natural)

+ Amazonka.DirectoryService.Lens: listSchemaExtensions_nextToken :: Lens' ListSchemaExtensions (Maybe Text)

+ Amazonka.DirectoryService.Lens: listTagsForResourceResponse_httpStatus :: Lens' ListTagsForResourceResponse Int

+ Amazonka.DirectoryService.Lens: listTagsForResourceResponse_nextToken :: Lens' ListTagsForResourceResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: listTagsForResourceResponse_tags :: Lens' ListTagsForResourceResponse (Maybe [Tag])

+ Amazonka.DirectoryService.Lens: listTagsForResource_limit :: Lens' ListTagsForResource (Maybe Natural)

+ Amazonka.DirectoryService.Lens: listTagsForResource_nextToken :: Lens' ListTagsForResource (Maybe Text)

+ Amazonka.DirectoryService.Lens: listTagsForResource_resourceId :: Lens' ListTagsForResource Text

+ Amazonka.DirectoryService.Lens: logSubscription_directoryId :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Lens: logSubscription_logGroupName :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Lens: logSubscription_subscriptionCreatedDateTime :: Lens' LogSubscription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: oSUpdateSettings_oSVersion :: Lens' OSUpdateSettings (Maybe OSVersion)

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_accountId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_directoryId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_dnsIpAddrs :: Lens' OwnerDirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_radiusSettings :: Lens' OwnerDirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_radiusStatus :: Lens' OwnerDirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Lens: ownerDirectoryDescription_vpcSettings :: Lens' OwnerDirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Lens: radiusSettings_authenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)

+ Amazonka.DirectoryService.Lens: radiusSettings_displayLabel :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: radiusSettings_radiusPort :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Lens: radiusSettings_radiusRetries :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Lens: radiusSettings_radiusServers :: Lens' RadiusSettings (Maybe [Text])

+ Amazonka.DirectoryService.Lens: radiusSettings_radiusTimeout :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Lens: radiusSettings_sharedSecret :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Lens: radiusSettings_useSameUsername :: Lens' RadiusSettings (Maybe Bool)

+ Amazonka.DirectoryService.Lens: regionDescription_desiredNumberOfDomainControllers :: Lens' RegionDescription (Maybe Natural)

+ Amazonka.DirectoryService.Lens: regionDescription_directoryId :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: regionDescription_lastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: regionDescription_launchTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: regionDescription_regionName :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Lens: regionDescription_regionType :: Lens' RegionDescription (Maybe RegionType)

+ Amazonka.DirectoryService.Lens: regionDescription_status :: Lens' RegionDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Lens: regionDescription_statusLastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: regionDescription_vpcSettings :: Lens' RegionDescription (Maybe DirectoryVpcSettings)

+ Amazonka.DirectoryService.Lens: regionsInfo_additionalRegions :: Lens' RegionsInfo (Maybe [Text])

+ Amazonka.DirectoryService.Lens: regionsInfo_primaryRegion :: Lens' RegionsInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: registerCertificateResponse_certificateId :: Lens' RegisterCertificateResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: registerCertificateResponse_httpStatus :: Lens' RegisterCertificateResponse Int

+ Amazonka.DirectoryService.Lens: registerCertificate_certificateData :: Lens' RegisterCertificate Text

+ Amazonka.DirectoryService.Lens: registerCertificate_clientCertAuthSettings :: Lens' RegisterCertificate (Maybe ClientCertAuthSettings)

+ Amazonka.DirectoryService.Lens: registerCertificate_directoryId :: Lens' RegisterCertificate Text

+ Amazonka.DirectoryService.Lens: registerCertificate_type :: Lens' RegisterCertificate (Maybe CertificateType)

+ Amazonka.DirectoryService.Lens: registerEventTopicResponse_httpStatus :: Lens' RegisterEventTopicResponse Int

+ Amazonka.DirectoryService.Lens: registerEventTopic_directoryId :: Lens' RegisterEventTopic Text

+ Amazonka.DirectoryService.Lens: registerEventTopic_topicName :: Lens' RegisterEventTopic Text

+ Amazonka.DirectoryService.Lens: rejectSharedDirectoryResponse_httpStatus :: Lens' RejectSharedDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: rejectSharedDirectoryResponse_sharedDirectoryId :: Lens' RejectSharedDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: rejectSharedDirectory_sharedDirectoryId :: Lens' RejectSharedDirectory Text

+ Amazonka.DirectoryService.Lens: removeIpRoutesResponse_httpStatus :: Lens' RemoveIpRoutesResponse Int

+ Amazonka.DirectoryService.Lens: removeIpRoutes_cidrIps :: Lens' RemoveIpRoutes [Text]

+ Amazonka.DirectoryService.Lens: removeIpRoutes_directoryId :: Lens' RemoveIpRoutes Text

+ Amazonka.DirectoryService.Lens: removeRegionResponse_httpStatus :: Lens' RemoveRegionResponse Int

+ Amazonka.DirectoryService.Lens: removeRegion_directoryId :: Lens' RemoveRegion Text

+ Amazonka.DirectoryService.Lens: removeTagsFromResourceResponse_httpStatus :: Lens' RemoveTagsFromResourceResponse Int

+ Amazonka.DirectoryService.Lens: removeTagsFromResource_resourceId :: Lens' RemoveTagsFromResource Text

+ Amazonka.DirectoryService.Lens: removeTagsFromResource_tagKeys :: Lens' RemoveTagsFromResource [Text]

+ Amazonka.DirectoryService.Lens: resetUserPasswordResponse_httpStatus :: Lens' ResetUserPasswordResponse Int

+ Amazonka.DirectoryService.Lens: resetUserPassword_directoryId :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.Lens: resetUserPassword_newPassword :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.Lens: resetUserPassword_userName :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.Lens: restoreFromSnapshotResponse_httpStatus :: Lens' RestoreFromSnapshotResponse Int

+ Amazonka.DirectoryService.Lens: restoreFromSnapshot_snapshotId :: Lens' RestoreFromSnapshot Text

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_description :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_directoryId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_endDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_schemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_schemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_schemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Lens: schemaExtensionInfo_startDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: settingEntry_allowedValues :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: settingEntry_appliedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: settingEntry_lastRequestedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: settingEntry_lastUpdatedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: settingEntry_name :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: settingEntry_requestDetailedStatus :: Lens' SettingEntry (Maybe (HashMap Text DirectoryConfigurationStatus))

+ Amazonka.DirectoryService.Lens: settingEntry_requestStatus :: Lens' SettingEntry (Maybe DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Lens: settingEntry_requestStatusMessage :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: settingEntry_requestedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: settingEntry_type :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: setting_name :: Lens' Setting Text

+ Amazonka.DirectoryService.Lens: setting_value :: Lens' Setting Text

+ Amazonka.DirectoryService.Lens: shareDirectoryResponse_httpStatus :: Lens' ShareDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: shareDirectoryResponse_sharedDirectoryId :: Lens' ShareDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: shareDirectory_directoryId :: Lens' ShareDirectory Text

+ Amazonka.DirectoryService.Lens: shareDirectory_shareMethod :: Lens' ShareDirectory ShareMethod

+ Amazonka.DirectoryService.Lens: shareDirectory_shareNotes :: Lens' ShareDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: shareDirectory_shareTarget :: Lens' ShareDirectory ShareTarget

+ Amazonka.DirectoryService.Lens: shareTarget_id :: Lens' ShareTarget Text

+ Amazonka.DirectoryService.Lens: shareTarget_type :: Lens' ShareTarget TargetType

+ Amazonka.DirectoryService.Lens: sharedDirectory_createdDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: sharedDirectory_lastUpdatedDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: sharedDirectory_ownerAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: sharedDirectory_ownerDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: sharedDirectory_shareMethod :: Lens' SharedDirectory (Maybe ShareMethod)

+ Amazonka.DirectoryService.Lens: sharedDirectory_shareNotes :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: sharedDirectory_shareStatus :: Lens' SharedDirectory (Maybe ShareStatus)

+ Amazonka.DirectoryService.Lens: sharedDirectory_sharedAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: sharedDirectory_sharedDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Lens: snapshotLimits_manualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: snapshotLimits_manualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Lens: snapshotLimits_manualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)

+ Amazonka.DirectoryService.Lens: snapshot_directoryId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Lens: snapshot_name :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Lens: snapshot_snapshotId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Lens: snapshot_startTime :: Lens' Snapshot (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: snapshot_status :: Lens' Snapshot (Maybe SnapshotStatus)

+ Amazonka.DirectoryService.Lens: snapshot_type :: Lens' Snapshot (Maybe SnapshotType)

+ Amazonka.DirectoryService.Lens: startSchemaExtensionResponse_httpStatus :: Lens' StartSchemaExtensionResponse Int

+ Amazonka.DirectoryService.Lens: startSchemaExtensionResponse_schemaExtensionId :: Lens' StartSchemaExtensionResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: startSchemaExtension_createSnapshotBeforeSchemaExtension :: Lens' StartSchemaExtension Bool

+ Amazonka.DirectoryService.Lens: startSchemaExtension_description :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.Lens: startSchemaExtension_directoryId :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.Lens: startSchemaExtension_ldifContent :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.Lens: tag_key :: Lens' Tag Text

+ Amazonka.DirectoryService.Lens: tag_value :: Lens' Tag Text

+ Amazonka.DirectoryService.Lens: trust_createdDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: trust_directoryId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Lens: trust_lastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: trust_remoteDomainName :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Lens: trust_selectiveAuth :: Lens' Trust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.Lens: trust_stateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: trust_trustDirection :: Lens' Trust (Maybe TrustDirection)

+ Amazonka.DirectoryService.Lens: trust_trustId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Lens: trust_trustState :: Lens' Trust (Maybe TrustState)

+ Amazonka.DirectoryService.Lens: trust_trustStateReason :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Lens: trust_trustType :: Lens' Trust (Maybe TrustType)

+ Amazonka.DirectoryService.Lens: unshareDirectoryResponse_httpStatus :: Lens' UnshareDirectoryResponse Int

+ Amazonka.DirectoryService.Lens: unshareDirectoryResponse_sharedDirectoryId :: Lens' UnshareDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: unshareDirectory_directoryId :: Lens' UnshareDirectory Text

+ Amazonka.DirectoryService.Lens: unshareDirectory_unshareTarget :: Lens' UnshareDirectory UnshareTarget

+ Amazonka.DirectoryService.Lens: unshareTarget_id :: Lens' UnshareTarget Text

+ Amazonka.DirectoryService.Lens: unshareTarget_type :: Lens' UnshareTarget TargetType

+ Amazonka.DirectoryService.Lens: updateConditionalForwarderResponse_httpStatus :: Lens' UpdateConditionalForwarderResponse Int

+ Amazonka.DirectoryService.Lens: updateConditionalForwarder_directoryId :: Lens' UpdateConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: updateConditionalForwarder_dnsIpAddrs :: Lens' UpdateConditionalForwarder [Text]

+ Amazonka.DirectoryService.Lens: updateConditionalForwarder_remoteDomainName :: Lens' UpdateConditionalForwarder Text

+ Amazonka.DirectoryService.Lens: updateDirectorySetupResponse_httpStatus :: Lens' UpdateDirectorySetupResponse Int

+ Amazonka.DirectoryService.Lens: updateDirectorySetup_createSnapshotBeforeUpdate :: Lens' UpdateDirectorySetup (Maybe Bool)

+ Amazonka.DirectoryService.Lens: updateDirectorySetup_directoryId :: Lens' UpdateDirectorySetup Text

+ Amazonka.DirectoryService.Lens: updateDirectorySetup_oSUpdateSettings :: Lens' UpdateDirectorySetup (Maybe OSUpdateSettings)

+ Amazonka.DirectoryService.Lens: updateDirectorySetup_updateType :: Lens' UpdateDirectorySetup UpdateType

+ Amazonka.DirectoryService.Lens: updateInfoEntry_initiatedBy :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_lastUpdatedDateTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_newValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_previousValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_region :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_startTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_status :: Lens' UpdateInfoEntry (Maybe UpdateStatus)

+ Amazonka.DirectoryService.Lens: updateInfoEntry_statusReason :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateNumberOfDomainControllersResponse_httpStatus :: Lens' UpdateNumberOfDomainControllersResponse Int

+ Amazonka.DirectoryService.Lens: updateNumberOfDomainControllers_desiredNumber :: Lens' UpdateNumberOfDomainControllers Natural

+ Amazonka.DirectoryService.Lens: updateNumberOfDomainControllers_directoryId :: Lens' UpdateNumberOfDomainControllers Text

+ Amazonka.DirectoryService.Lens: updateRadiusResponse_httpStatus :: Lens' UpdateRadiusResponse Int

+ Amazonka.DirectoryService.Lens: updateRadius_directoryId :: Lens' UpdateRadius Text

+ Amazonka.DirectoryService.Lens: updateRadius_radiusSettings :: Lens' UpdateRadius RadiusSettings

+ Amazonka.DirectoryService.Lens: updateSettingsResponse_directoryId :: Lens' UpdateSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateSettingsResponse_httpStatus :: Lens' UpdateSettingsResponse Int

+ Amazonka.DirectoryService.Lens: updateSettings_directoryId :: Lens' UpdateSettings Text

+ Amazonka.DirectoryService.Lens: updateSettings_settings :: Lens' UpdateSettings [Setting]

+ Amazonka.DirectoryService.Lens: updateTrustResponse_httpStatus :: Lens' UpdateTrustResponse Int

+ Amazonka.DirectoryService.Lens: updateTrustResponse_requestId :: Lens' UpdateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateTrustResponse_trustId :: Lens' UpdateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: updateTrust_selectiveAuth :: Lens' UpdateTrust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.Lens: updateTrust_trustId :: Lens' UpdateTrust Text

+ Amazonka.DirectoryService.Lens: updateValue_oSUpdateSettings :: Lens' UpdateValue (Maybe OSUpdateSettings)

+ Amazonka.DirectoryService.Lens: verifyTrustResponse_httpStatus :: Lens' VerifyTrustResponse Int

+ Amazonka.DirectoryService.Lens: verifyTrustResponse_trustId :: Lens' VerifyTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.Lens: verifyTrust_trustId :: Lens' VerifyTrust Text

+ Amazonka.DirectoryService.ListCertificates: ListCertificates' :: Maybe Natural -> Maybe Text -> Text -> ListCertificates

+ Amazonka.DirectoryService.ListCertificates: ListCertificatesResponse' :: Maybe [CertificateInfo] -> Maybe Text -> Int -> ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: [$sel:certificatesInfo:ListCertificatesResponse'] :: ListCertificatesResponse -> Maybe [CertificateInfo]

+ Amazonka.DirectoryService.ListCertificates: [$sel:directoryId:ListCertificates'] :: ListCertificates -> Text

+ Amazonka.DirectoryService.ListCertificates: [$sel:httpStatus:ListCertificatesResponse'] :: ListCertificatesResponse -> Int

+ Amazonka.DirectoryService.ListCertificates: [$sel:limit:ListCertificates'] :: ListCertificates -> Maybe Natural

+ Amazonka.DirectoryService.ListCertificates: [$sel:nextToken:ListCertificates'] :: ListCertificates -> Maybe Text

+ Amazonka.DirectoryService.ListCertificates: [$sel:nextToken:ListCertificatesResponse'] :: ListCertificatesResponse -> Maybe Text

+ Amazonka.DirectoryService.ListCertificates: data ListCertificates

+ Amazonka.DirectoryService.ListCertificates: data ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListCertificates.ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Classes.Eq Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Classes.Eq Amazonka.DirectoryService.ListCertificates.ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Generics.Generic Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Generics.Generic Amazonka.DirectoryService.ListCertificates.ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Read.Read Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Read.Read Amazonka.DirectoryService.ListCertificates.ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Show.Show Amazonka.DirectoryService.ListCertificates.ListCertificates

+ Amazonka.DirectoryService.ListCertificates: instance GHC.Show.Show Amazonka.DirectoryService.ListCertificates.ListCertificatesResponse

+ Amazonka.DirectoryService.ListCertificates: listCertificatesResponse_certificatesInfo :: Lens' ListCertificatesResponse (Maybe [CertificateInfo])

+ Amazonka.DirectoryService.ListCertificates: listCertificatesResponse_httpStatus :: Lens' ListCertificatesResponse Int

+ Amazonka.DirectoryService.ListCertificates: listCertificatesResponse_nextToken :: Lens' ListCertificatesResponse (Maybe Text)

+ Amazonka.DirectoryService.ListCertificates: listCertificates_directoryId :: Lens' ListCertificates Text

+ Amazonka.DirectoryService.ListCertificates: listCertificates_limit :: Lens' ListCertificates (Maybe Natural)

+ Amazonka.DirectoryService.ListCertificates: listCertificates_nextToken :: Lens' ListCertificates (Maybe Text)

+ Amazonka.DirectoryService.ListCertificates: newListCertificates :: Text -> ListCertificates

+ Amazonka.DirectoryService.ListCertificates: newListCertificatesResponse :: Int -> ListCertificatesResponse

+ Amazonka.DirectoryService.ListIpRoutes: ListIpRoutes' :: Maybe Natural -> Maybe Text -> Text -> ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: ListIpRoutesResponse' :: Maybe [IpRouteInfo] -> Maybe Text -> Int -> ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:directoryId:ListIpRoutes'] :: ListIpRoutes -> Text

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:httpStatus:ListIpRoutesResponse'] :: ListIpRoutesResponse -> Int

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:ipRoutesInfo:ListIpRoutesResponse'] :: ListIpRoutesResponse -> Maybe [IpRouteInfo]

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:limit:ListIpRoutes'] :: ListIpRoutes -> Maybe Natural

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:nextToken:ListIpRoutes'] :: ListIpRoutes -> Maybe Text

+ Amazonka.DirectoryService.ListIpRoutes: [$sel:nextToken:ListIpRoutesResponse'] :: ListIpRoutesResponse -> Maybe Text

+ Amazonka.DirectoryService.ListIpRoutes: data ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: data ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListIpRoutes.ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.ListIpRoutes.ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.ListIpRoutes.ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.ListIpRoutes.ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.ListIpRoutes.ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.ListIpRoutes.ListIpRoutesResponse

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutesResponse_httpStatus :: Lens' ListIpRoutesResponse Int

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutesResponse_ipRoutesInfo :: Lens' ListIpRoutesResponse (Maybe [IpRouteInfo])

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutesResponse_nextToken :: Lens' ListIpRoutesResponse (Maybe Text)

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutes_directoryId :: Lens' ListIpRoutes Text

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutes_limit :: Lens' ListIpRoutes (Maybe Natural)

+ Amazonka.DirectoryService.ListIpRoutes: listIpRoutes_nextToken :: Lens' ListIpRoutes (Maybe Text)

+ Amazonka.DirectoryService.ListIpRoutes: newListIpRoutes :: Text -> ListIpRoutes

+ Amazonka.DirectoryService.ListIpRoutes: newListIpRoutesResponse :: Int -> ListIpRoutesResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: ListLogSubscriptions' :: Maybe Text -> Maybe Natural -> Maybe Text -> ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: ListLogSubscriptionsResponse' :: Maybe [LogSubscription] -> Maybe Text -> Int -> ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:directoryId:ListLogSubscriptions'] :: ListLogSubscriptions -> Maybe Text

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:httpStatus:ListLogSubscriptionsResponse'] :: ListLogSubscriptionsResponse -> Int

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:limit:ListLogSubscriptions'] :: ListLogSubscriptions -> Maybe Natural

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:logSubscriptions:ListLogSubscriptionsResponse'] :: ListLogSubscriptionsResponse -> Maybe [LogSubscription]

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:nextToken:ListLogSubscriptions'] :: ListLogSubscriptions -> Maybe Text

+ Amazonka.DirectoryService.ListLogSubscriptions: [$sel:nextToken:ListLogSubscriptionsResponse'] :: ListLogSubscriptionsResponse -> Maybe Text

+ Amazonka.DirectoryService.ListLogSubscriptions: data ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: data ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Classes.Eq Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Classes.Eq Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Generics.Generic Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Generics.Generic Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Read.Read Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Read.Read Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Show.Show Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: instance GHC.Show.Show Amazonka.DirectoryService.ListLogSubscriptions.ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptionsResponse_httpStatus :: Lens' ListLogSubscriptionsResponse Int

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptionsResponse_logSubscriptions :: Lens' ListLogSubscriptionsResponse (Maybe [LogSubscription])

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptionsResponse_nextToken :: Lens' ListLogSubscriptionsResponse (Maybe Text)

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptions_directoryId :: Lens' ListLogSubscriptions (Maybe Text)

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptions_limit :: Lens' ListLogSubscriptions (Maybe Natural)

+ Amazonka.DirectoryService.ListLogSubscriptions: listLogSubscriptions_nextToken :: Lens' ListLogSubscriptions (Maybe Text)

+ Amazonka.DirectoryService.ListLogSubscriptions: newListLogSubscriptions :: ListLogSubscriptions

+ Amazonka.DirectoryService.ListLogSubscriptions: newListLogSubscriptionsResponse :: Int -> ListLogSubscriptionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: ListSchemaExtensions' :: Maybe Natural -> Maybe Text -> Text -> ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: ListSchemaExtensionsResponse' :: Maybe Text -> Maybe [SchemaExtensionInfo] -> Int -> ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:directoryId:ListSchemaExtensions'] :: ListSchemaExtensions -> Text

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:httpStatus:ListSchemaExtensionsResponse'] :: ListSchemaExtensionsResponse -> Int

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:limit:ListSchemaExtensions'] :: ListSchemaExtensions -> Maybe Natural

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:nextToken:ListSchemaExtensions'] :: ListSchemaExtensions -> Maybe Text

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:nextToken:ListSchemaExtensionsResponse'] :: ListSchemaExtensionsResponse -> Maybe Text

+ Amazonka.DirectoryService.ListSchemaExtensions: [$sel:schemaExtensionsInfo:ListSchemaExtensionsResponse'] :: ListSchemaExtensionsResponse -> Maybe [SchemaExtensionInfo]

+ Amazonka.DirectoryService.ListSchemaExtensions: data ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: data ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Classes.Eq Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Classes.Eq Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Generics.Generic Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Generics.Generic Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Read.Read Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Read.Read Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Show.Show Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: instance GHC.Show.Show Amazonka.DirectoryService.ListSchemaExtensions.ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensionsResponse_httpStatus :: Lens' ListSchemaExtensionsResponse Int

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensionsResponse_nextToken :: Lens' ListSchemaExtensionsResponse (Maybe Text)

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensionsResponse_schemaExtensionsInfo :: Lens' ListSchemaExtensionsResponse (Maybe [SchemaExtensionInfo])

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensions_directoryId :: Lens' ListSchemaExtensions Text

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensions_limit :: Lens' ListSchemaExtensions (Maybe Natural)

+ Amazonka.DirectoryService.ListSchemaExtensions: listSchemaExtensions_nextToken :: Lens' ListSchemaExtensions (Maybe Text)

+ Amazonka.DirectoryService.ListSchemaExtensions: newListSchemaExtensions :: Text -> ListSchemaExtensions

+ Amazonka.DirectoryService.ListSchemaExtensions: newListSchemaExtensionsResponse :: Int -> ListSchemaExtensionsResponse

+ Amazonka.DirectoryService.ListTagsForResource: ListTagsForResource' :: Maybe Natural -> Maybe Text -> Text -> ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: ListTagsForResourceResponse' :: Maybe Text -> Maybe [Tag] -> Int -> ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:httpStatus:ListTagsForResourceResponse'] :: ListTagsForResourceResponse -> Int

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:limit:ListTagsForResource'] :: ListTagsForResource -> Maybe Natural

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:nextToken:ListTagsForResource'] :: ListTagsForResource -> Maybe Text

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:nextToken:ListTagsForResourceResponse'] :: ListTagsForResourceResponse -> Maybe Text

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:resourceId:ListTagsForResource'] :: ListTagsForResource -> Text

+ Amazonka.DirectoryService.ListTagsForResource: [$sel:tags:ListTagsForResourceResponse'] :: ListTagsForResourceResponse -> Maybe [Tag]

+ Amazonka.DirectoryService.ListTagsForResource: data ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: data ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Amazonka.Pager.AWSPager Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Classes.Eq Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Classes.Eq Amazonka.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Generics.Generic Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Generics.Generic Amazonka.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Read.Read Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Read.Read Amazonka.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Show.Show Amazonka.DirectoryService.ListTagsForResource.ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: instance GHC.Show.Show Amazonka.DirectoryService.ListTagsForResource.ListTagsForResourceResponse

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResourceResponse_httpStatus :: Lens' ListTagsForResourceResponse Int

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResourceResponse_nextToken :: Lens' ListTagsForResourceResponse (Maybe Text)

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResourceResponse_tags :: Lens' ListTagsForResourceResponse (Maybe [Tag])

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResource_limit :: Lens' ListTagsForResource (Maybe Natural)

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResource_nextToken :: Lens' ListTagsForResource (Maybe Text)

+ Amazonka.DirectoryService.ListTagsForResource: listTagsForResource_resourceId :: Lens' ListTagsForResource Text

+ Amazonka.DirectoryService.ListTagsForResource: newListTagsForResource :: Text -> ListTagsForResource

+ Amazonka.DirectoryService.ListTagsForResource: newListTagsForResourceResponse :: Int -> ListTagsForResourceResponse

+ Amazonka.DirectoryService.RegisterCertificate: RegisterCertificate' :: Maybe ClientCertAuthSettings -> Maybe CertificateType -> Text -> Text -> RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: RegisterCertificateResponse' :: Maybe Text -> Int -> RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:certificateData:RegisterCertificate'] :: RegisterCertificate -> Text

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:certificateId:RegisterCertificateResponse'] :: RegisterCertificateResponse -> Maybe Text

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:clientCertAuthSettings:RegisterCertificate'] :: RegisterCertificate -> Maybe ClientCertAuthSettings

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:directoryId:RegisterCertificate'] :: RegisterCertificate -> Text

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:httpStatus:RegisterCertificateResponse'] :: RegisterCertificateResponse -> Int

+ Amazonka.DirectoryService.RegisterCertificate: [$sel:type':RegisterCertificate'] :: RegisterCertificate -> Maybe CertificateType

+ Amazonka.DirectoryService.RegisterCertificate: data RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: data RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RegisterCertificate.RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Classes.Eq Amazonka.DirectoryService.RegisterCertificate.RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Generics.Generic Amazonka.DirectoryService.RegisterCertificate.RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Read.Read Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Read.Read Amazonka.DirectoryService.RegisterCertificate.RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Show.Show Amazonka.DirectoryService.RegisterCertificate.RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: instance GHC.Show.Show Amazonka.DirectoryService.RegisterCertificate.RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: newRegisterCertificate :: Text -> Text -> RegisterCertificate

+ Amazonka.DirectoryService.RegisterCertificate: newRegisterCertificateResponse :: Int -> RegisterCertificateResponse

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificateResponse_certificateId :: Lens' RegisterCertificateResponse (Maybe Text)

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificateResponse_httpStatus :: Lens' RegisterCertificateResponse Int

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificate_certificateData :: Lens' RegisterCertificate Text

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificate_clientCertAuthSettings :: Lens' RegisterCertificate (Maybe ClientCertAuthSettings)

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificate_directoryId :: Lens' RegisterCertificate Text

+ Amazonka.DirectoryService.RegisterCertificate: registerCertificate_type :: Lens' RegisterCertificate (Maybe CertificateType)

+ Amazonka.DirectoryService.RegisterEventTopic: RegisterEventTopic' :: Text -> Text -> RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: RegisterEventTopicResponse' :: Int -> RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: [$sel:directoryId:RegisterEventTopic'] :: RegisterEventTopic -> Text

+ Amazonka.DirectoryService.RegisterEventTopic: [$sel:httpStatus:RegisterEventTopicResponse'] :: RegisterEventTopicResponse -> Int

+ Amazonka.DirectoryService.RegisterEventTopic: [$sel:topicName:RegisterEventTopic'] :: RegisterEventTopic -> Text

+ Amazonka.DirectoryService.RegisterEventTopic: data RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: data RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Classes.Eq Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Classes.Eq Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Generics.Generic Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Generics.Generic Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Read.Read Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Read.Read Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Show.Show Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: instance GHC.Show.Show Amazonka.DirectoryService.RegisterEventTopic.RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: newRegisterEventTopic :: Text -> Text -> RegisterEventTopic

+ Amazonka.DirectoryService.RegisterEventTopic: newRegisterEventTopicResponse :: Int -> RegisterEventTopicResponse

+ Amazonka.DirectoryService.RegisterEventTopic: registerEventTopicResponse_httpStatus :: Lens' RegisterEventTopicResponse Int

+ Amazonka.DirectoryService.RegisterEventTopic: registerEventTopic_directoryId :: Lens' RegisterEventTopic Text

+ Amazonka.DirectoryService.RegisterEventTopic: registerEventTopic_topicName :: Lens' RegisterEventTopic Text

+ Amazonka.DirectoryService.RejectSharedDirectory: RejectSharedDirectory' :: Text -> RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: RejectSharedDirectoryResponse' :: Maybe Text -> Int -> RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: [$sel:httpStatus:RejectSharedDirectoryResponse'] :: RejectSharedDirectoryResponse -> Int

+ Amazonka.DirectoryService.RejectSharedDirectory: [$sel:sharedDirectoryId:RejectSharedDirectory'] :: RejectSharedDirectory -> Text

+ Amazonka.DirectoryService.RejectSharedDirectory: [$sel:sharedDirectoryId:RejectSharedDirectoryResponse'] :: RejectSharedDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.RejectSharedDirectory: data RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: data RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Read.Read Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Read.Read Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Show.Show Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: instance GHC.Show.Show Amazonka.DirectoryService.RejectSharedDirectory.RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: newRejectSharedDirectory :: Text -> RejectSharedDirectory

+ Amazonka.DirectoryService.RejectSharedDirectory: newRejectSharedDirectoryResponse :: Int -> RejectSharedDirectoryResponse

+ Amazonka.DirectoryService.RejectSharedDirectory: rejectSharedDirectoryResponse_httpStatus :: Lens' RejectSharedDirectoryResponse Int

+ Amazonka.DirectoryService.RejectSharedDirectory: rejectSharedDirectoryResponse_sharedDirectoryId :: Lens' RejectSharedDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.RejectSharedDirectory: rejectSharedDirectory_sharedDirectoryId :: Lens' RejectSharedDirectory Text

+ Amazonka.DirectoryService.RemoveIpRoutes: RemoveIpRoutes' :: Text -> [Text] -> RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: RemoveIpRoutesResponse' :: Int -> RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: [$sel:cidrIps:RemoveIpRoutes'] :: RemoveIpRoutes -> [Text]

+ Amazonka.DirectoryService.RemoveIpRoutes: [$sel:directoryId:RemoveIpRoutes'] :: RemoveIpRoutes -> Text

+ Amazonka.DirectoryService.RemoveIpRoutes: [$sel:httpStatus:RemoveIpRoutesResponse'] :: RemoveIpRoutesResponse -> Int

+ Amazonka.DirectoryService.RemoveIpRoutes: data RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: data RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Read.Read Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: instance GHC.Show.Show Amazonka.DirectoryService.RemoveIpRoutes.RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: newRemoveIpRoutes :: Text -> RemoveIpRoutes

+ Amazonka.DirectoryService.RemoveIpRoutes: newRemoveIpRoutesResponse :: Int -> RemoveIpRoutesResponse

+ Amazonka.DirectoryService.RemoveIpRoutes: removeIpRoutesResponse_httpStatus :: Lens' RemoveIpRoutesResponse Int

+ Amazonka.DirectoryService.RemoveIpRoutes: removeIpRoutes_cidrIps :: Lens' RemoveIpRoutes [Text]

+ Amazonka.DirectoryService.RemoveIpRoutes: removeIpRoutes_directoryId :: Lens' RemoveIpRoutes Text

+ Amazonka.DirectoryService.RemoveRegion: RemoveRegion' :: Text -> RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: RemoveRegionResponse' :: Int -> RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: [$sel:directoryId:RemoveRegion'] :: RemoveRegion -> Text

+ Amazonka.DirectoryService.RemoveRegion: [$sel:httpStatus:RemoveRegionResponse'] :: RemoveRegionResponse -> Int

+ Amazonka.DirectoryService.RemoveRegion: data RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: data RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveRegion.RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveRegion.RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveRegion.RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Read.Read Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Read.Read Amazonka.DirectoryService.RemoveRegion.RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Show.Show Amazonka.DirectoryService.RemoveRegion.RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: instance GHC.Show.Show Amazonka.DirectoryService.RemoveRegion.RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: newRemoveRegion :: Text -> RemoveRegion

+ Amazonka.DirectoryService.RemoveRegion: newRemoveRegionResponse :: Int -> RemoveRegionResponse

+ Amazonka.DirectoryService.RemoveRegion: removeRegionResponse_httpStatus :: Lens' RemoveRegionResponse Int

+ Amazonka.DirectoryService.RemoveRegion: removeRegion_directoryId :: Lens' RemoveRegion Text

+ Amazonka.DirectoryService.RemoveTagsFromResource: RemoveTagsFromResource' :: Text -> [Text] -> RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: RemoveTagsFromResourceResponse' :: Int -> RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: [$sel:httpStatus:RemoveTagsFromResourceResponse'] :: RemoveTagsFromResourceResponse -> Int

+ Amazonka.DirectoryService.RemoveTagsFromResource: [$sel:resourceId:RemoveTagsFromResource'] :: RemoveTagsFromResource -> Text

+ Amazonka.DirectoryService.RemoveTagsFromResource: [$sel:tagKeys:RemoveTagsFromResource'] :: RemoveTagsFromResource -> [Text]

+ Amazonka.DirectoryService.RemoveTagsFromResource: data RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: data RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Classes.Eq Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Generics.Generic Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Read.Read Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Read.Read Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Show.Show Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: instance GHC.Show.Show Amazonka.DirectoryService.RemoveTagsFromResource.RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: newRemoveTagsFromResource :: Text -> RemoveTagsFromResource

+ Amazonka.DirectoryService.RemoveTagsFromResource: newRemoveTagsFromResourceResponse :: Int -> RemoveTagsFromResourceResponse

+ Amazonka.DirectoryService.RemoveTagsFromResource: removeTagsFromResourceResponse_httpStatus :: Lens' RemoveTagsFromResourceResponse Int

+ Amazonka.DirectoryService.RemoveTagsFromResource: removeTagsFromResource_resourceId :: Lens' RemoveTagsFromResource Text

+ Amazonka.DirectoryService.RemoveTagsFromResource: removeTagsFromResource_tagKeys :: Lens' RemoveTagsFromResource [Text]

+ Amazonka.DirectoryService.ResetUserPassword: ResetUserPassword' :: Text -> Text -> Sensitive Text -> ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: ResetUserPasswordResponse' :: Int -> ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: [$sel:directoryId:ResetUserPassword'] :: ResetUserPassword -> Text

+ Amazonka.DirectoryService.ResetUserPassword: [$sel:httpStatus:ResetUserPasswordResponse'] :: ResetUserPasswordResponse -> Int

+ Amazonka.DirectoryService.ResetUserPassword: [$sel:newPassword':ResetUserPassword'] :: ResetUserPassword -> Sensitive Text

+ Amazonka.DirectoryService.ResetUserPassword: [$sel:userName:ResetUserPassword'] :: ResetUserPassword -> Text

+ Amazonka.DirectoryService.ResetUserPassword: data ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: data ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ResetUserPassword.ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Classes.Eq Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Classes.Eq Amazonka.DirectoryService.ResetUserPassword.ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Generics.Generic Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Generics.Generic Amazonka.DirectoryService.ResetUserPassword.ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Read.Read Amazonka.DirectoryService.ResetUserPassword.ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Show.Show Amazonka.DirectoryService.ResetUserPassword.ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: instance GHC.Show.Show Amazonka.DirectoryService.ResetUserPassword.ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: newResetUserPassword :: Text -> Text -> Text -> ResetUserPassword

+ Amazonka.DirectoryService.ResetUserPassword: newResetUserPasswordResponse :: Int -> ResetUserPasswordResponse

+ Amazonka.DirectoryService.ResetUserPassword: resetUserPasswordResponse_httpStatus :: Lens' ResetUserPasswordResponse Int

+ Amazonka.DirectoryService.ResetUserPassword: resetUserPassword_directoryId :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.ResetUserPassword: resetUserPassword_newPassword :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.ResetUserPassword: resetUserPassword_userName :: Lens' ResetUserPassword Text

+ Amazonka.DirectoryService.RestoreFromSnapshot: RestoreFromSnapshot' :: Text -> RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: RestoreFromSnapshotResponse' :: Int -> RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: [$sel:httpStatus:RestoreFromSnapshotResponse'] :: RestoreFromSnapshotResponse -> Int

+ Amazonka.DirectoryService.RestoreFromSnapshot: [$sel:snapshotId:RestoreFromSnapshot'] :: RestoreFromSnapshot -> Text

+ Amazonka.DirectoryService.RestoreFromSnapshot: data RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: data RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Read.Read Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: instance GHC.Show.Show Amazonka.DirectoryService.RestoreFromSnapshot.RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: newRestoreFromSnapshot :: Text -> RestoreFromSnapshot

+ Amazonka.DirectoryService.RestoreFromSnapshot: newRestoreFromSnapshotResponse :: Int -> RestoreFromSnapshotResponse

+ Amazonka.DirectoryService.RestoreFromSnapshot: restoreFromSnapshotResponse_httpStatus :: Lens' RestoreFromSnapshotResponse Int

+ Amazonka.DirectoryService.RestoreFromSnapshot: restoreFromSnapshot_snapshotId :: Lens' RestoreFromSnapshot Text

+ Amazonka.DirectoryService.ShareDirectory: ShareDirectory' :: Maybe (Sensitive Text) -> Text -> ShareTarget -> ShareMethod -> ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: ShareDirectoryResponse' :: Maybe Text -> Int -> ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: [$sel:directoryId:ShareDirectory'] :: ShareDirectory -> Text

+ Amazonka.DirectoryService.ShareDirectory: [$sel:httpStatus:ShareDirectoryResponse'] :: ShareDirectoryResponse -> Int

+ Amazonka.DirectoryService.ShareDirectory: [$sel:shareMethod:ShareDirectory'] :: ShareDirectory -> ShareMethod

+ Amazonka.DirectoryService.ShareDirectory: [$sel:shareNotes:ShareDirectory'] :: ShareDirectory -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.ShareDirectory: [$sel:shareTarget:ShareDirectory'] :: ShareDirectory -> ShareTarget

+ Amazonka.DirectoryService.ShareDirectory: [$sel:sharedDirectoryId:ShareDirectoryResponse'] :: ShareDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.ShareDirectory: data ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: data ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.ShareDirectory.ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.ShareDirectory.ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.ShareDirectory.ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Read.Read Amazonka.DirectoryService.ShareDirectory.ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Show.Show Amazonka.DirectoryService.ShareDirectory.ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: instance GHC.Show.Show Amazonka.DirectoryService.ShareDirectory.ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: newShareDirectory :: Text -> ShareTarget -> ShareMethod -> ShareDirectory

+ Amazonka.DirectoryService.ShareDirectory: newShareDirectoryResponse :: Int -> ShareDirectoryResponse

+ Amazonka.DirectoryService.ShareDirectory: shareDirectoryResponse_httpStatus :: Lens' ShareDirectoryResponse Int

+ Amazonka.DirectoryService.ShareDirectory: shareDirectoryResponse_sharedDirectoryId :: Lens' ShareDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.ShareDirectory: shareDirectory_directoryId :: Lens' ShareDirectory Text

+ Amazonka.DirectoryService.ShareDirectory: shareDirectory_shareMethod :: Lens' ShareDirectory ShareMethod

+ Amazonka.DirectoryService.ShareDirectory: shareDirectory_shareNotes :: Lens' ShareDirectory (Maybe Text)

+ Amazonka.DirectoryService.ShareDirectory: shareDirectory_shareTarget :: Lens' ShareDirectory ShareTarget

+ Amazonka.DirectoryService.StartSchemaExtension: StartSchemaExtension' :: Text -> Bool -> Text -> Text -> StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: StartSchemaExtensionResponse' :: Maybe Text -> Int -> StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:createSnapshotBeforeSchemaExtension:StartSchemaExtension'] :: StartSchemaExtension -> Bool

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:description:StartSchemaExtension'] :: StartSchemaExtension -> Text

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:directoryId:StartSchemaExtension'] :: StartSchemaExtension -> Text

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:httpStatus:StartSchemaExtensionResponse'] :: StartSchemaExtensionResponse -> Int

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:ldifContent:StartSchemaExtension'] :: StartSchemaExtension -> Text

+ Amazonka.DirectoryService.StartSchemaExtension: [$sel:schemaExtensionId:StartSchemaExtensionResponse'] :: StartSchemaExtensionResponse -> Maybe Text

+ Amazonka.DirectoryService.StartSchemaExtension: data StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: data StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Control.DeepSeq.NFData Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Control.DeepSeq.NFData Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Classes.Eq Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Classes.Eq Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Generics.Generic Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Generics.Generic Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Read.Read Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Read.Read Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Show.Show Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: instance GHC.Show.Show Amazonka.DirectoryService.StartSchemaExtension.StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: newStartSchemaExtension :: Text -> Bool -> Text -> Text -> StartSchemaExtension

+ Amazonka.DirectoryService.StartSchemaExtension: newStartSchemaExtensionResponse :: Int -> StartSchemaExtensionResponse

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtensionResponse_httpStatus :: Lens' StartSchemaExtensionResponse Int

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtensionResponse_schemaExtensionId :: Lens' StartSchemaExtensionResponse (Maybe Text)

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtension_createSnapshotBeforeSchemaExtension :: Lens' StartSchemaExtension Bool

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtension_description :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtension_directoryId :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.StartSchemaExtension: startSchemaExtension_ldifContent :: Lens' StartSchemaExtension Text

+ Amazonka.DirectoryService.Types: Attribute' :: Maybe Text -> Maybe Text -> Attribute

+ Amazonka.DirectoryService.Types: Certificate' :: Maybe Text -> Maybe ClientCertAuthSettings -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe CertificateState -> Maybe Text -> Maybe CertificateType -> Certificate

+ Amazonka.DirectoryService.Types: CertificateInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe CertificateState -> Maybe CertificateType -> CertificateInfo

+ Amazonka.DirectoryService.Types: CertificateState' :: Text -> CertificateState

+ Amazonka.DirectoryService.Types: CertificateType' :: Text -> CertificateType

+ Amazonka.DirectoryService.Types: ClientAuthenticationSettingInfo' :: Maybe POSIX -> Maybe ClientAuthenticationStatus -> Maybe ClientAuthenticationType -> ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types: ClientAuthenticationStatus' :: Text -> ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types: ClientAuthenticationType' :: Text -> ClientAuthenticationType

+ Amazonka.DirectoryService.Types: ClientCertAuthSettings' :: Maybe Text -> ClientCertAuthSettings

+ Amazonka.DirectoryService.Types: Computer' :: Maybe [Attribute] -> Maybe Text -> Maybe Text -> Computer

+ Amazonka.DirectoryService.Types: ConditionalForwarder' :: Maybe [Text] -> Maybe Text -> Maybe ReplicationScope -> ConditionalForwarder

+ Amazonka.DirectoryService.Types: DirectoryConfigurationStatus' :: Text -> DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: DirectoryConnectSettings' :: Text -> [Text] -> [Text] -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService.Types: DirectoryConnectSettingsDescription' :: Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types: DirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe DirectoryConnectSettingsDescription -> Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> Maybe DirectoryEdition -> Maybe POSIX -> Maybe Text -> Maybe OSVersion -> Maybe OwnerDirectoryDescription -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe RegionsInfo -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe DirectorySize -> Maybe Bool -> Maybe DirectoryStage -> Maybe POSIX -> Maybe Text -> Maybe DirectoryType -> Maybe DirectoryVpcSettingsDescription -> DirectoryDescription

+ Amazonka.DirectoryService.Types: DirectoryEdition' :: Text -> DirectoryEdition

+ Amazonka.DirectoryService.Types: DirectoryLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> DirectoryLimits

+ Amazonka.DirectoryService.Types: DirectorySize' :: Text -> DirectorySize

+ Amazonka.DirectoryService.Types: DirectoryStage' :: Text -> DirectoryStage

+ Amazonka.DirectoryService.Types: DirectoryType' :: Text -> DirectoryType

+ Amazonka.DirectoryService.Types: DirectoryVpcSettings' :: Text -> [Text] -> DirectoryVpcSettings

+ Amazonka.DirectoryService.Types: DirectoryVpcSettingsDescription' :: Maybe [Text] -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types: DomainController' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe DomainControllerStatus -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> DomainController

+ Amazonka.DirectoryService.Types: DomainControllerStatus' :: Text -> DomainControllerStatus

+ Amazonka.DirectoryService.Types: EventTopic' :: Maybe POSIX -> Maybe Text -> Maybe TopicStatus -> Maybe Text -> Maybe Text -> EventTopic

+ Amazonka.DirectoryService.Types: IpRoute' :: Maybe Text -> Maybe Text -> IpRoute

+ Amazonka.DirectoryService.Types: IpRouteInfo' :: Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe IpRouteStatusMsg -> Maybe Text -> IpRouteInfo

+ Amazonka.DirectoryService.Types: IpRouteStatusMsg' :: Text -> IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: LDAPSSettingInfo' :: Maybe LDAPSStatus -> Maybe Text -> Maybe POSIX -> LDAPSSettingInfo

+ Amazonka.DirectoryService.Types: LDAPSStatus' :: Text -> LDAPSStatus

+ Amazonka.DirectoryService.Types: LDAPSType' :: Text -> LDAPSType

+ Amazonka.DirectoryService.Types: LogSubscription' :: Maybe Text -> Maybe Text -> Maybe POSIX -> LogSubscription

+ Amazonka.DirectoryService.Types: OSUpdateSettings' :: Maybe OSVersion -> OSUpdateSettings

+ Amazonka.DirectoryService.Types: OSVersion' :: Text -> OSVersion

+ Amazonka.DirectoryService.Types: OwnerDirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe DirectoryVpcSettingsDescription -> OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types: RadiusAuthenticationProtocol' :: Text -> RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: RadiusSettings' :: Maybe RadiusAuthenticationProtocol -> Maybe Text -> Maybe Natural -> Maybe Natural -> Maybe [Text] -> Maybe Natural -> Maybe (Sensitive Text) -> Maybe Bool -> RadiusSettings

+ Amazonka.DirectoryService.Types: RadiusStatus' :: Text -> RadiusStatus

+ Amazonka.DirectoryService.Types: RegionDescription' :: Maybe Natural -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe RegionType -> Maybe DirectoryStage -> Maybe POSIX -> Maybe DirectoryVpcSettings -> RegionDescription

+ Amazonka.DirectoryService.Types: RegionType' :: Text -> RegionType

+ Amazonka.DirectoryService.Types: RegionsInfo' :: Maybe [Text] -> Maybe Text -> RegionsInfo

+ Amazonka.DirectoryService.Types: ReplicationScope' :: Text -> ReplicationScope

+ Amazonka.DirectoryService.Types: SchemaExtensionInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SchemaExtensionStatus -> Maybe Text -> Maybe POSIX -> SchemaExtensionInfo

+ Amazonka.DirectoryService.Types: SchemaExtensionStatus' :: Text -> SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: SelectiveAuth' :: Text -> SelectiveAuth

+ Amazonka.DirectoryService.Types: Setting' :: Text -> Text -> Setting

+ Amazonka.DirectoryService.Types: SettingEntry' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe (HashMap Text DirectoryConfigurationStatus) -> Maybe DirectoryConfigurationStatus -> Maybe Text -> Maybe Text -> Maybe Text -> SettingEntry

+ Amazonka.DirectoryService.Types: ShareMethod' :: Text -> ShareMethod

+ Amazonka.DirectoryService.Types: ShareStatus' :: Text -> ShareStatus

+ Amazonka.DirectoryService.Types: ShareTarget' :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService.Types: SharedDirectory' :: Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe Text -> SharedDirectory

+ Amazonka.DirectoryService.Types: Snapshot' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe SnapshotStatus -> Maybe SnapshotType -> Snapshot

+ Amazonka.DirectoryService.Types: SnapshotLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> SnapshotLimits

+ Amazonka.DirectoryService.Types: SnapshotStatus' :: Text -> SnapshotStatus

+ Amazonka.DirectoryService.Types: SnapshotType' :: Text -> SnapshotType

+ Amazonka.DirectoryService.Types: Tag' :: Text -> Text -> Tag

+ Amazonka.DirectoryService.Types: TargetType' :: Text -> TargetType

+ Amazonka.DirectoryService.Types: TopicStatus' :: Text -> TopicStatus

+ Amazonka.DirectoryService.Types: Trust' :: Maybe POSIX -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SelectiveAuth -> Maybe POSIX -> Maybe TrustDirection -> Maybe Text -> Maybe TrustState -> Maybe Text -> Maybe TrustType -> Trust

+ Amazonka.DirectoryService.Types: TrustDirection' :: Text -> TrustDirection

+ Amazonka.DirectoryService.Types: TrustState' :: Text -> TrustState

+ Amazonka.DirectoryService.Types: TrustType' :: Text -> TrustType

+ Amazonka.DirectoryService.Types: UnshareTarget' :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService.Types: UpdateInfoEntry' :: Maybe Text -> Maybe POSIX -> Maybe UpdateValue -> Maybe UpdateValue -> Maybe Text -> Maybe POSIX -> Maybe UpdateStatus -> Maybe Text -> UpdateInfoEntry

+ Amazonka.DirectoryService.Types: UpdateStatus' :: Text -> UpdateStatus

+ Amazonka.DirectoryService.Types: UpdateType' :: Text -> UpdateType

+ Amazonka.DirectoryService.Types: UpdateValue' :: Maybe OSUpdateSettings -> UpdateValue

+ Amazonka.DirectoryService.Types: [$sel:accessUrl:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:accountId:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:addedDateTime:IpRouteInfo'] :: IpRouteInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:additionalRegions:RegionsInfo'] :: RegionsInfo -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:alias:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:allowedValues:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:appliedValue:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:authenticationProtocol:RadiusSettings'] :: RadiusSettings -> Maybe RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: [$sel:availabilityZone:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:availabilityZones:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:availabilityZones:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:certificateId:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:certificateId:CertificateInfo'] :: CertificateInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:cidrIp:IpRoute'] :: IpRoute -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:cidrIp:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:clientCertAuthSettings:Certificate'] :: Certificate -> Maybe ClientCertAuthSettings

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyDirectoriesCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyDirectoriesLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyDirectoriesLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyMicrosoftADCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyMicrosoftADLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:cloudOnlyMicrosoftADLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:commonName:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:commonName:CertificateInfo'] :: CertificateInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:computerAttributes:Computer'] :: Computer -> Maybe [Attribute]

+ Amazonka.DirectoryService.Types: [$sel:computerId:Computer'] :: Computer -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:computerName:Computer'] :: Computer -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:connectIps:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:connectSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types: [$sel:connectedDirectoriesCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:connectedDirectoriesLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:connectedDirectoriesLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:createdDateTime:EventTopic'] :: EventTopic -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:createdDateTime:SharedDirectory'] :: SharedDirectory -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:createdDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:customerDnsIps:DirectoryConnectSettings'] :: DirectoryConnectSettings -> [Text]

+ Amazonka.DirectoryService.Types: [$sel:customerUserName:DirectoryConnectSettings'] :: DirectoryConnectSettings -> Text

+ Amazonka.DirectoryService.Types: [$sel:customerUserName:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:description:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:description:IpRoute'] :: IpRoute -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:description:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:description:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:desiredNumberOfDomainControllers:DirectoryDescription'] :: DirectoryDescription -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:desiredNumberOfDomainControllers:RegionDescription'] :: RegionDescription -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:directoryId:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:LogSubscription'] :: LogSubscription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:RegionDescription'] :: RegionDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:directoryId:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:displayLabel:RadiusSettings'] :: RadiusSettings -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:dnsIpAddr:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:dnsIpAddrs:ConditionalForwarder'] :: ConditionalForwarder -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:dnsIpAddrs:DirectoryDescription'] :: DirectoryDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:dnsIpAddrs:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:domainControllerId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:edition:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryEdition

+ Amazonka.DirectoryService.Types: [$sel:endDateTime:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:expiryDateTime:Certificate'] :: Certificate -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:expiryDateTime:CertificateInfo'] :: CertificateInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:id:ShareTarget'] :: ShareTarget -> Text

+ Amazonka.DirectoryService.Types: [$sel:id:UnshareTarget'] :: UnshareTarget -> Text

+ Amazonka.DirectoryService.Types: [$sel:initiatedBy:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:ipRouteStatusMsg:IpRouteInfo'] :: IpRouteInfo -> Maybe IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: [$sel:ipRouteStatusReason:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:key:Tag'] :: Tag -> Text

+ Amazonka.DirectoryService.Types: [$sel:lDAPSStatus:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe LDAPSStatus

+ Amazonka.DirectoryService.Types: [$sel:lDAPSStatusReason:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:lastRequestedDateTime:SettingEntry'] :: SettingEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:SettingEntry'] :: SettingEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:SharedDirectory'] :: SharedDirectory -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:lastUpdatedDateTime:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:launchTime:DirectoryDescription'] :: DirectoryDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:launchTime:DomainController'] :: DomainController -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:launchTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:logGroupName:LogSubscription'] :: LogSubscription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:manualSnapshotsCurrentCount:SnapshotLimits'] :: SnapshotLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:manualSnapshotsLimit:SnapshotLimits'] :: SnapshotLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:manualSnapshotsLimitReached:SnapshotLimits'] :: SnapshotLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:name:Attribute'] :: Attribute -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:name:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:name:Setting'] :: Setting -> Text

+ Amazonka.DirectoryService.Types: [$sel:name:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:name:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:newValue':UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateValue

+ Amazonka.DirectoryService.Types: [$sel:oCSPUrl:ClientCertAuthSettings'] :: ClientCertAuthSettings -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:oSUpdateSettings:UpdateValue'] :: UpdateValue -> Maybe OSUpdateSettings

+ Amazonka.DirectoryService.Types: [$sel:oSVersion:OSUpdateSettings'] :: OSUpdateSettings -> Maybe OSVersion

+ Amazonka.DirectoryService.Types: [$sel:osVersion:DirectoryDescription'] :: DirectoryDescription -> Maybe OSVersion

+ Amazonka.DirectoryService.Types: [$sel:ownerAccountId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:ownerDirectoryDescription:DirectoryDescription'] :: DirectoryDescription -> Maybe OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types: [$sel:ownerDirectoryId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:previousValue:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateValue

+ Amazonka.DirectoryService.Types: [$sel:primaryRegion:RegionsInfo'] :: RegionsInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:radiusPort:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:radiusRetries:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:radiusServers:RadiusSettings'] :: RadiusSettings -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:radiusSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe RadiusSettings

+ Amazonka.DirectoryService.Types: [$sel:radiusSettings:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe RadiusSettings

+ Amazonka.DirectoryService.Types: [$sel:radiusStatus:DirectoryDescription'] :: DirectoryDescription -> Maybe RadiusStatus

+ Amazonka.DirectoryService.Types: [$sel:radiusStatus:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe RadiusStatus

+ Amazonka.DirectoryService.Types: [$sel:radiusTimeout:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types: [$sel:region:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:regionName:RegionDescription'] :: RegionDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:regionType:RegionDescription'] :: RegionDescription -> Maybe RegionType

+ Amazonka.DirectoryService.Types: [$sel:regionsInfo:DirectoryDescription'] :: DirectoryDescription -> Maybe RegionsInfo

+ Amazonka.DirectoryService.Types: [$sel:registeredDateTime:Certificate'] :: Certificate -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:remoteDomainName:ConditionalForwarder'] :: ConditionalForwarder -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:remoteDomainName:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:replicationScope:ConditionalForwarder'] :: ConditionalForwarder -> Maybe ReplicationScope

+ Amazonka.DirectoryService.Types: [$sel:requestDetailedStatus:SettingEntry'] :: SettingEntry -> Maybe (HashMap Text DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Types: [$sel:requestStatus:SettingEntry'] :: SettingEntry -> Maybe DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: [$sel:requestStatusMessage:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:requestedValue:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:schemaExtensionId:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:schemaExtensionStatus:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: [$sel:schemaExtensionStatusReason:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:securityGroupId:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:securityGroupId:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:selectiveAuth:Trust'] :: Trust -> Maybe SelectiveAuth

+ Amazonka.DirectoryService.Types: [$sel:shareMethod:DirectoryDescription'] :: DirectoryDescription -> Maybe ShareMethod

+ Amazonka.DirectoryService.Types: [$sel:shareMethod:SharedDirectory'] :: SharedDirectory -> Maybe ShareMethod

+ Amazonka.DirectoryService.Types: [$sel:shareNotes:DirectoryDescription'] :: DirectoryDescription -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types: [$sel:shareNotes:SharedDirectory'] :: SharedDirectory -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types: [$sel:shareStatus:DirectoryDescription'] :: DirectoryDescription -> Maybe ShareStatus

+ Amazonka.DirectoryService.Types: [$sel:shareStatus:SharedDirectory'] :: SharedDirectory -> Maybe ShareStatus

+ Amazonka.DirectoryService.Types: [$sel:sharedAccountId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:sharedDirectoryId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:sharedSecret:RadiusSettings'] :: RadiusSettings -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types: [$sel:shortName:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:size:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectorySize

+ Amazonka.DirectoryService.Types: [$sel:snapshotId:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:ssoEnabled:DirectoryDescription'] :: DirectoryDescription -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:stage:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryStage

+ Amazonka.DirectoryService.Types: [$sel:stageLastUpdatedDateTime:DirectoryDescription'] :: DirectoryDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:stageReason:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:startDateTime:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:startTime:Snapshot'] :: Snapshot -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:startTime:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:state:Certificate'] :: Certificate -> Maybe CertificateState

+ Amazonka.DirectoryService.Types: [$sel:state:CertificateInfo'] :: CertificateInfo -> Maybe CertificateState

+ Amazonka.DirectoryService.Types: [$sel:stateLastUpdatedDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:stateReason:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:status:ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types: [$sel:status:DomainController'] :: DomainController -> Maybe DomainControllerStatus

+ Amazonka.DirectoryService.Types: [$sel:status:EventTopic'] :: EventTopic -> Maybe TopicStatus

+ Amazonka.DirectoryService.Types: [$sel:status:RegionDescription'] :: RegionDescription -> Maybe DirectoryStage

+ Amazonka.DirectoryService.Types: [$sel:status:Snapshot'] :: Snapshot -> Maybe SnapshotStatus

+ Amazonka.DirectoryService.Types: [$sel:status:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateStatus

+ Amazonka.DirectoryService.Types: [$sel:statusLastUpdatedDateTime:DomainController'] :: DomainController -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:statusLastUpdatedDateTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:statusReason:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:statusReason:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:subnetId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:subnetIds:DirectoryConnectSettings'] :: DirectoryConnectSettings -> [Text]

+ Amazonka.DirectoryService.Types: [$sel:subnetIds:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:subnetIds:DirectoryVpcSettings'] :: DirectoryVpcSettings -> [Text]

+ Amazonka.DirectoryService.Types: [$sel:subnetIds:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types: [$sel:subscriptionCreatedDateTime:LogSubscription'] :: LogSubscription -> Maybe POSIX

+ Amazonka.DirectoryService.Types: [$sel:topicArn:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:topicName:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:trustDirection:Trust'] :: Trust -> Maybe TrustDirection

+ Amazonka.DirectoryService.Types: [$sel:trustId:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:trustState:Trust'] :: Trust -> Maybe TrustState

+ Amazonka.DirectoryService.Types: [$sel:trustStateReason:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:trustType:Trust'] :: Trust -> Maybe TrustType

+ Amazonka.DirectoryService.Types: [$sel:type':Certificate'] :: Certificate -> Maybe CertificateType

+ Amazonka.DirectoryService.Types: [$sel:type':CertificateInfo'] :: CertificateInfo -> Maybe CertificateType

+ Amazonka.DirectoryService.Types: [$sel:type':ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe ClientAuthenticationType

+ Amazonka.DirectoryService.Types: [$sel:type':DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryType

+ Amazonka.DirectoryService.Types: [$sel:type':SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:type':ShareTarget'] :: ShareTarget -> TargetType

+ Amazonka.DirectoryService.Types: [$sel:type':Snapshot'] :: Snapshot -> Maybe SnapshotType

+ Amazonka.DirectoryService.Types: [$sel:type':UnshareTarget'] :: UnshareTarget -> TargetType

+ Amazonka.DirectoryService.Types: [$sel:useSameUsername:RadiusSettings'] :: RadiusSettings -> Maybe Bool

+ Amazonka.DirectoryService.Types: [$sel:value:Attribute'] :: Attribute -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:value:Setting'] :: Setting -> Text

+ Amazonka.DirectoryService.Types: [$sel:value:Tag'] :: Tag -> Text

+ Amazonka.DirectoryService.Types: [$sel:vpcId:DirectoryConnectSettings'] :: DirectoryConnectSettings -> Text

+ Amazonka.DirectoryService.Types: [$sel:vpcId:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:vpcId:DirectoryVpcSettings'] :: DirectoryVpcSettings -> Text

+ Amazonka.DirectoryService.Types: [$sel:vpcId:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:vpcId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types: [$sel:vpcSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types: [$sel:vpcSettings:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types: [$sel:vpcSettings:RegionDescription'] :: RegionDescription -> Maybe DirectoryVpcSettings

+ Amazonka.DirectoryService.Types: [fromCertificateState] :: CertificateState -> Text

+ Amazonka.DirectoryService.Types: [fromCertificateType] :: CertificateType -> Text

+ Amazonka.DirectoryService.Types: [fromClientAuthenticationStatus] :: ClientAuthenticationStatus -> Text

+ Amazonka.DirectoryService.Types: [fromClientAuthenticationType] :: ClientAuthenticationType -> Text

+ Amazonka.DirectoryService.Types: [fromDirectoryConfigurationStatus] :: DirectoryConfigurationStatus -> Text

+ Amazonka.DirectoryService.Types: [fromDirectoryEdition] :: DirectoryEdition -> Text

+ Amazonka.DirectoryService.Types: [fromDirectorySize] :: DirectorySize -> Text

+ Amazonka.DirectoryService.Types: [fromDirectoryStage] :: DirectoryStage -> Text

+ Amazonka.DirectoryService.Types: [fromDirectoryType] :: DirectoryType -> Text

+ Amazonka.DirectoryService.Types: [fromDomainControllerStatus] :: DomainControllerStatus -> Text

+ Amazonka.DirectoryService.Types: [fromIpRouteStatusMsg] :: IpRouteStatusMsg -> Text

+ Amazonka.DirectoryService.Types: [fromLDAPSStatus] :: LDAPSStatus -> Text

+ Amazonka.DirectoryService.Types: [fromLDAPSType] :: LDAPSType -> Text

+ Amazonka.DirectoryService.Types: [fromOSVersion] :: OSVersion -> Text

+ Amazonka.DirectoryService.Types: [fromRadiusAuthenticationProtocol] :: RadiusAuthenticationProtocol -> Text

+ Amazonka.DirectoryService.Types: [fromRadiusStatus] :: RadiusStatus -> Text

+ Amazonka.DirectoryService.Types: [fromRegionType] :: RegionType -> Text

+ Amazonka.DirectoryService.Types: [fromReplicationScope] :: ReplicationScope -> Text

+ Amazonka.DirectoryService.Types: [fromSchemaExtensionStatus] :: SchemaExtensionStatus -> Text

+ Amazonka.DirectoryService.Types: [fromSelectiveAuth] :: SelectiveAuth -> Text

+ Amazonka.DirectoryService.Types: [fromShareMethod] :: ShareMethod -> Text

+ Amazonka.DirectoryService.Types: [fromShareStatus] :: ShareStatus -> Text

+ Amazonka.DirectoryService.Types: [fromSnapshotStatus] :: SnapshotStatus -> Text

+ Amazonka.DirectoryService.Types: [fromSnapshotType] :: SnapshotType -> Text

+ Amazonka.DirectoryService.Types: [fromTargetType] :: TargetType -> Text

+ Amazonka.DirectoryService.Types: [fromTopicStatus] :: TopicStatus -> Text

+ Amazonka.DirectoryService.Types: [fromTrustDirection] :: TrustDirection -> Text

+ Amazonka.DirectoryService.Types: [fromTrustState] :: TrustState -> Text

+ Amazonka.DirectoryService.Types: [fromTrustType] :: TrustType -> Text

+ Amazonka.DirectoryService.Types: [fromUpdateStatus] :: UpdateStatus -> Text

+ Amazonka.DirectoryService.Types: [fromUpdateType] :: UpdateType -> Text

+ Amazonka.DirectoryService.Types: _AccessDeniedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _AuthenticationFailedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _CertificateAlreadyExistsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _CertificateDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _CertificateInUseException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _CertificateLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _ClientException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryAlreadyInRegionException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryAlreadySharedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryInDesiredStateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryNotSharedException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DirectoryUnavailableException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _DomainControllerLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _EntityAlreadyExistsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _EntityDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _IncompatibleSettingsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InsufficientPermissionsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidCertificateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidClientAuthStatusException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidLDAPSStatusException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidNextTokenException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidParameterException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidPasswordException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _InvalidTargetException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _IpRouteLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _NoAvailableCertificateException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _OrganizationsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _RegionLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _ServiceException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _ShareLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _SnapshotLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _TagLimitExceededException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _UnsupportedOperationException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _UnsupportedSettingsException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: _UserDoesNotExistException :: AsError a => Fold a ServiceError

+ Amazonka.DirectoryService.Types: attribute_name :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Types: attribute_value :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Types: certificateInfo_certificateId :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: certificateInfo_commonName :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: certificateInfo_expiryDateTime :: Lens' CertificateInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: certificateInfo_state :: Lens' CertificateInfo (Maybe CertificateState)

+ Amazonka.DirectoryService.Types: certificateInfo_type :: Lens' CertificateInfo (Maybe CertificateType)

+ Amazonka.DirectoryService.Types: certificate_certificateId :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types: certificate_clientCertAuthSettings :: Lens' Certificate (Maybe ClientCertAuthSettings)

+ Amazonka.DirectoryService.Types: certificate_commonName :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types: certificate_expiryDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: certificate_registeredDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: certificate_state :: Lens' Certificate (Maybe CertificateState)

+ Amazonka.DirectoryService.Types: certificate_stateReason :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types: certificate_type :: Lens' Certificate (Maybe CertificateType)

+ Amazonka.DirectoryService.Types: clientAuthenticationSettingInfo_lastUpdatedDateTime :: Lens' ClientAuthenticationSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: clientAuthenticationSettingInfo_status :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationStatus)

+ Amazonka.DirectoryService.Types: clientAuthenticationSettingInfo_type :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationType)

+ Amazonka.DirectoryService.Types: clientCertAuthSettings_oCSPUrl :: Lens' ClientCertAuthSettings (Maybe Text)

+ Amazonka.DirectoryService.Types: computer_computerAttributes :: Lens' Computer (Maybe [Attribute])

+ Amazonka.DirectoryService.Types: computer_computerId :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Types: computer_computerName :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Types: conditionalForwarder_dnsIpAddrs :: Lens' ConditionalForwarder (Maybe [Text])

+ Amazonka.DirectoryService.Types: conditionalForwarder_remoteDomainName :: Lens' ConditionalForwarder (Maybe Text)

+ Amazonka.DirectoryService.Types: conditionalForwarder_replicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)

+ Amazonka.DirectoryService.Types: data Attribute

+ Amazonka.DirectoryService.Types: data Certificate

+ Amazonka.DirectoryService.Types: data CertificateInfo

+ Amazonka.DirectoryService.Types: data ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types: data ClientCertAuthSettings

+ Amazonka.DirectoryService.Types: data Computer

+ Amazonka.DirectoryService.Types: data ConditionalForwarder

+ Amazonka.DirectoryService.Types: data DirectoryConnectSettings

+ Amazonka.DirectoryService.Types: data DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types: data DirectoryDescription

+ Amazonka.DirectoryService.Types: data DirectoryLimits

+ Amazonka.DirectoryService.Types: data DirectoryVpcSettings

+ Amazonka.DirectoryService.Types: data DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types: data DomainController

+ Amazonka.DirectoryService.Types: data EventTopic

+ Amazonka.DirectoryService.Types: data IpRoute

+ Amazonka.DirectoryService.Types: data IpRouteInfo

+ Amazonka.DirectoryService.Types: data LDAPSSettingInfo

+ Amazonka.DirectoryService.Types: data LogSubscription

+ Amazonka.DirectoryService.Types: data OSUpdateSettings

+ Amazonka.DirectoryService.Types: data OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types: data RadiusSettings

+ Amazonka.DirectoryService.Types: data RegionDescription

+ Amazonka.DirectoryService.Types: data RegionsInfo

+ Amazonka.DirectoryService.Types: data SchemaExtensionInfo

+ Amazonka.DirectoryService.Types: data Setting

+ Amazonka.DirectoryService.Types: data SettingEntry

+ Amazonka.DirectoryService.Types: data ShareTarget

+ Amazonka.DirectoryService.Types: data SharedDirectory

+ Amazonka.DirectoryService.Types: data Snapshot

+ Amazonka.DirectoryService.Types: data SnapshotLimits

+ Amazonka.DirectoryService.Types: data Tag

+ Amazonka.DirectoryService.Types: data Trust

+ Amazonka.DirectoryService.Types: data UnshareTarget

+ Amazonka.DirectoryService.Types: data UpdateInfoEntry

+ Amazonka.DirectoryService.Types: data UpdateValue

+ Amazonka.DirectoryService.Types: defaultService :: Service

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_availabilityZones :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_connectIps :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_customerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_securityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_subnetIds :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryConnectSettingsDescription_vpcId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryConnectSettings_customerDnsIps :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Types: directoryConnectSettings_customerUserName :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Types: directoryConnectSettings_subnetIds :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Types: directoryConnectSettings_vpcId :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Types: directoryDescription_accessUrl :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_alias :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_connectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)

+ Amazonka.DirectoryService.Types: directoryDescription_description :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_desiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryDescription_directoryId :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_dnsIpAddrs :: Lens' DirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryDescription_edition :: Lens' DirectoryDescription (Maybe DirectoryEdition)

+ Amazonka.DirectoryService.Types: directoryDescription_launchTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: directoryDescription_name :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_osVersion :: Lens' DirectoryDescription (Maybe OSVersion)

+ Amazonka.DirectoryService.Types: directoryDescription_ownerDirectoryDescription :: Lens' DirectoryDescription (Maybe OwnerDirectoryDescription)

+ Amazonka.DirectoryService.Types: directoryDescription_radiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Types: directoryDescription_radiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Types: directoryDescription_regionsInfo :: Lens' DirectoryDescription (Maybe RegionsInfo)

+ Amazonka.DirectoryService.Types: directoryDescription_shareMethod :: Lens' DirectoryDescription (Maybe ShareMethod)

+ Amazonka.DirectoryService.Types: directoryDescription_shareNotes :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_shareStatus :: Lens' DirectoryDescription (Maybe ShareStatus)

+ Amazonka.DirectoryService.Types: directoryDescription_shortName :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_size :: Lens' DirectoryDescription (Maybe DirectorySize)

+ Amazonka.DirectoryService.Types: directoryDescription_ssoEnabled :: Lens' DirectoryDescription (Maybe Bool)

+ Amazonka.DirectoryService.Types: directoryDescription_stage :: Lens' DirectoryDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Types: directoryDescription_stageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: directoryDescription_stageReason :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryDescription_type :: Lens' DirectoryDescription (Maybe DirectoryType)

+ Amazonka.DirectoryService.Types: directoryDescription_vpcSettings :: Lens' DirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_cloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types: directoryLimits_connectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_connectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: directoryLimits_connectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types: directoryVpcSettingsDescription_availabilityZones :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryVpcSettingsDescription_securityGroupId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryVpcSettingsDescription_subnetIds :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: directoryVpcSettingsDescription_vpcId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: directoryVpcSettings_subnetIds :: Lens' DirectoryVpcSettings [Text]

+ Amazonka.DirectoryService.Types: directoryVpcSettings_vpcId :: Lens' DirectoryVpcSettings Text

+ Amazonka.DirectoryService.Types: domainController_availabilityZone :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_directoryId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_dnsIpAddr :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_domainControllerId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_launchTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: domainController_status :: Lens' DomainController (Maybe DomainControllerStatus)

+ Amazonka.DirectoryService.Types: domainController_statusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: domainController_statusReason :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_subnetId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: domainController_vpcId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types: eventTopic_createdDateTime :: Lens' EventTopic (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: eventTopic_directoryId :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types: eventTopic_status :: Lens' EventTopic (Maybe TopicStatus)

+ Amazonka.DirectoryService.Types: eventTopic_topicArn :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types: eventTopic_topicName :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRouteInfo_addedDateTime :: Lens' IpRouteInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: ipRouteInfo_cidrIp :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRouteInfo_description :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRouteInfo_directoryId :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRouteInfo_ipRouteStatusMsg :: Lens' IpRouteInfo (Maybe IpRouteStatusMsg)

+ Amazonka.DirectoryService.Types: ipRouteInfo_ipRouteStatusReason :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRoute_cidrIp :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Types: ipRoute_description :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Types: lDAPSSettingInfo_lDAPSStatus :: Lens' LDAPSSettingInfo (Maybe LDAPSStatus)

+ Amazonka.DirectoryService.Types: lDAPSSettingInfo_lDAPSStatusReason :: Lens' LDAPSSettingInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: lDAPSSettingInfo_lastUpdatedDateTime :: Lens' LDAPSSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: logSubscription_directoryId :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Types: logSubscription_logGroupName :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Types: logSubscription_subscriptionCreatedDateTime :: Lens' LogSubscription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: newAttribute :: Attribute

+ Amazonka.DirectoryService.Types: newCertificate :: Certificate

+ Amazonka.DirectoryService.Types: newCertificateInfo :: CertificateInfo

+ Amazonka.DirectoryService.Types: newClientAuthenticationSettingInfo :: ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types: newClientCertAuthSettings :: ClientCertAuthSettings

+ Amazonka.DirectoryService.Types: newComputer :: Computer

+ Amazonka.DirectoryService.Types: newConditionalForwarder :: ConditionalForwarder

+ Amazonka.DirectoryService.Types: newDirectoryConnectSettings :: Text -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService.Types: newDirectoryConnectSettingsDescription :: DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types: newDirectoryDescription :: DirectoryDescription

+ Amazonka.DirectoryService.Types: newDirectoryLimits :: DirectoryLimits

+ Amazonka.DirectoryService.Types: newDirectoryVpcSettings :: Text -> DirectoryVpcSettings

+ Amazonka.DirectoryService.Types: newDirectoryVpcSettingsDescription :: DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types: newDomainController :: DomainController

+ Amazonka.DirectoryService.Types: newEventTopic :: EventTopic

+ Amazonka.DirectoryService.Types: newIpRoute :: IpRoute

+ Amazonka.DirectoryService.Types: newIpRouteInfo :: IpRouteInfo

+ Amazonka.DirectoryService.Types: newLDAPSSettingInfo :: LDAPSSettingInfo

+ Amazonka.DirectoryService.Types: newLogSubscription :: LogSubscription

+ Amazonka.DirectoryService.Types: newOSUpdateSettings :: OSUpdateSettings

+ Amazonka.DirectoryService.Types: newOwnerDirectoryDescription :: OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types: newRadiusSettings :: RadiusSettings

+ Amazonka.DirectoryService.Types: newRegionDescription :: RegionDescription

+ Amazonka.DirectoryService.Types: newRegionsInfo :: RegionsInfo

+ Amazonka.DirectoryService.Types: newSchemaExtensionInfo :: SchemaExtensionInfo

+ Amazonka.DirectoryService.Types: newSetting :: Text -> Text -> Setting

+ Amazonka.DirectoryService.Types: newSettingEntry :: SettingEntry

+ Amazonka.DirectoryService.Types: newShareTarget :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService.Types: newSharedDirectory :: SharedDirectory

+ Amazonka.DirectoryService.Types: newSnapshot :: Snapshot

+ Amazonka.DirectoryService.Types: newSnapshotLimits :: SnapshotLimits

+ Amazonka.DirectoryService.Types: newTag :: Text -> Text -> Tag

+ Amazonka.DirectoryService.Types: newTrust :: Trust

+ Amazonka.DirectoryService.Types: newUnshareTarget :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService.Types: newUpdateInfoEntry :: UpdateInfoEntry

+ Amazonka.DirectoryService.Types: newUpdateValue :: UpdateValue

+ Amazonka.DirectoryService.Types: newtype CertificateState

+ Amazonka.DirectoryService.Types: newtype CertificateType

+ Amazonka.DirectoryService.Types: newtype ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types: newtype ClientAuthenticationType

+ Amazonka.DirectoryService.Types: newtype DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: newtype DirectoryEdition

+ Amazonka.DirectoryService.Types: newtype DirectorySize

+ Amazonka.DirectoryService.Types: newtype DirectoryStage

+ Amazonka.DirectoryService.Types: newtype DirectoryType

+ Amazonka.DirectoryService.Types: newtype DomainControllerStatus

+ Amazonka.DirectoryService.Types: newtype IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: newtype LDAPSStatus

+ Amazonka.DirectoryService.Types: newtype LDAPSType

+ Amazonka.DirectoryService.Types: newtype OSVersion

+ Amazonka.DirectoryService.Types: newtype RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: newtype RadiusStatus

+ Amazonka.DirectoryService.Types: newtype RegionType

+ Amazonka.DirectoryService.Types: newtype ReplicationScope

+ Amazonka.DirectoryService.Types: newtype SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: newtype SelectiveAuth

+ Amazonka.DirectoryService.Types: newtype ShareMethod

+ Amazonka.DirectoryService.Types: newtype ShareStatus

+ Amazonka.DirectoryService.Types: newtype SnapshotStatus

+ Amazonka.DirectoryService.Types: newtype SnapshotType

+ Amazonka.DirectoryService.Types: newtype TargetType

+ Amazonka.DirectoryService.Types: newtype TopicStatus

+ Amazonka.DirectoryService.Types: newtype TrustDirection

+ Amazonka.DirectoryService.Types: newtype TrustState

+ Amazonka.DirectoryService.Types: newtype TrustType

+ Amazonka.DirectoryService.Types: newtype UpdateStatus

+ Amazonka.DirectoryService.Types: newtype UpdateType

+ Amazonka.DirectoryService.Types: oSUpdateSettings_oSVersion :: Lens' OSUpdateSettings (Maybe OSVersion)

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_accountId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_directoryId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_dnsIpAddrs :: Lens' OwnerDirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_radiusSettings :: Lens' OwnerDirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_radiusStatus :: Lens' OwnerDirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Types: ownerDirectoryDescription_vpcSettings :: Lens' OwnerDirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Types: pattern CertificateState_DeregisterFailed :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateState_Deregistered :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateState_Deregistering :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateState_RegisterFailed :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateState_Registered :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateState_Registering :: CertificateState

+ Amazonka.DirectoryService.Types: pattern CertificateType_ClientCertAuth :: CertificateType

+ Amazonka.DirectoryService.Types: pattern CertificateType_ClientLDAPS :: CertificateType

+ Amazonka.DirectoryService.Types: pattern ClientAuthenticationStatus_Disabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types: pattern ClientAuthenticationStatus_Enabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types: pattern ClientAuthenticationType_SmartCard :: ClientAuthenticationType

+ Amazonka.DirectoryService.Types: pattern ClientAuthenticationType_SmartCardOrPassword :: ClientAuthenticationType

+ Amazonka.DirectoryService.Types: pattern DirectoryConfigurationStatus_Default :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: pattern DirectoryConfigurationStatus_Failed :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: pattern DirectoryConfigurationStatus_Requested :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: pattern DirectoryConfigurationStatus_Updated :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: pattern DirectoryConfigurationStatus_Updating :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types: pattern DirectoryEdition_Enterprise :: DirectoryEdition

+ Amazonka.DirectoryService.Types: pattern DirectoryEdition_Standard :: DirectoryEdition

+ Amazonka.DirectoryService.Types: pattern DirectorySize_Large :: DirectorySize

+ Amazonka.DirectoryService.Types: pattern DirectorySize_Small :: DirectorySize

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Active :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Created :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Creating :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Deleted :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Deleting :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Failed :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Impaired :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Inoperable :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Requested :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_RestoreFailed :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryStage_Restoring :: DirectoryStage

+ Amazonka.DirectoryService.Types: pattern DirectoryType_ADConnector :: DirectoryType

+ Amazonka.DirectoryService.Types: pattern DirectoryType_MicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService.Types: pattern DirectoryType_SharedMicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService.Types: pattern DirectoryType_SimpleAD :: DirectoryType

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Active :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Creating :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Deleted :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Deleting :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Failed :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Impaired :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern DomainControllerStatus_Restoring :: DomainControllerStatus

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_AddFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_Added :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_Adding :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_RemoveFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_Removed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern IpRouteStatusMsg_Removing :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types: pattern LDAPSStatus_Disabled :: LDAPSStatus

+ Amazonka.DirectoryService.Types: pattern LDAPSStatus_EnableFailed :: LDAPSStatus

+ Amazonka.DirectoryService.Types: pattern LDAPSStatus_Enabled :: LDAPSStatus

+ Amazonka.DirectoryService.Types: pattern LDAPSStatus_Enabling :: LDAPSStatus

+ Amazonka.DirectoryService.Types: pattern LDAPSType_Client :: LDAPSType

+ Amazonka.DirectoryService.Types: pattern OSVersion_SERVER_2012 :: OSVersion

+ Amazonka.DirectoryService.Types: pattern OSVersion_SERVER_2019 :: OSVersion

+ Amazonka.DirectoryService.Types: pattern RadiusAuthenticationProtocol_CHAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: pattern RadiusAuthenticationProtocol_MS_CHAPv1 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: pattern RadiusAuthenticationProtocol_MS_CHAPv2 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: pattern RadiusAuthenticationProtocol_PAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types: pattern RadiusStatus_Completed :: RadiusStatus

+ Amazonka.DirectoryService.Types: pattern RadiusStatus_Creating :: RadiusStatus

+ Amazonka.DirectoryService.Types: pattern RadiusStatus_Failed :: RadiusStatus

+ Amazonka.DirectoryService.Types: pattern RegionType_Additional :: RegionType

+ Amazonka.DirectoryService.Types: pattern RegionType_Primary :: RegionType

+ Amazonka.DirectoryService.Types: pattern ReplicationScope_Domain :: ReplicationScope

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_CancelInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_Cancelled :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_Completed :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_CreatingSnapshot :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_Failed :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_Initializing :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_Replicating :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_RollbackInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SchemaExtensionStatus_UpdatingSchema :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types: pattern SelectiveAuth_Disabled :: SelectiveAuth

+ Amazonka.DirectoryService.Types: pattern SelectiveAuth_Enabled :: SelectiveAuth

+ Amazonka.DirectoryService.Types: pattern ShareMethod_HANDSHAKE :: ShareMethod

+ Amazonka.DirectoryService.Types: pattern ShareMethod_ORGANIZATIONS :: ShareMethod

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Deleted :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Deleting :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_PendingAcceptance :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_RejectFailed :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Rejected :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Rejecting :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_ShareFailed :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Shared :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern ShareStatus_Sharing :: ShareStatus

+ Amazonka.DirectoryService.Types: pattern SnapshotStatus_Completed :: SnapshotStatus

+ Amazonka.DirectoryService.Types: pattern SnapshotStatus_Creating :: SnapshotStatus

+ Amazonka.DirectoryService.Types: pattern SnapshotStatus_Failed :: SnapshotStatus

+ Amazonka.DirectoryService.Types: pattern SnapshotType_Auto :: SnapshotType

+ Amazonka.DirectoryService.Types: pattern SnapshotType_Manual :: SnapshotType

+ Amazonka.DirectoryService.Types: pattern TargetType_ACCOUNT :: TargetType

+ Amazonka.DirectoryService.Types: pattern TopicStatus_Deleted :: TopicStatus

+ Amazonka.DirectoryService.Types: pattern TopicStatus_Failed :: TopicStatus

+ Amazonka.DirectoryService.Types: pattern TopicStatus_Registered :: TopicStatus

+ Amazonka.DirectoryService.Types: pattern TopicStatus_Topic_not_found :: TopicStatus

+ Amazonka.DirectoryService.Types: pattern TrustDirection_One_Way__Incoming :: TrustDirection

+ Amazonka.DirectoryService.Types: pattern TrustDirection_One_Way__Outgoing :: TrustDirection

+ Amazonka.DirectoryService.Types: pattern TrustDirection_Two_Way :: TrustDirection

+ Amazonka.DirectoryService.Types: pattern TrustState_Created :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Creating :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Deleted :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Deleting :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Failed :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_UpdateFailed :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Updated :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Updating :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Verified :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_VerifyFailed :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustState_Verifying :: TrustState

+ Amazonka.DirectoryService.Types: pattern TrustType_External :: TrustType

+ Amazonka.DirectoryService.Types: pattern TrustType_Forest :: TrustType

+ Amazonka.DirectoryService.Types: pattern UpdateStatus_UpdateFailed :: UpdateStatus

+ Amazonka.DirectoryService.Types: pattern UpdateStatus_Updated :: UpdateStatus

+ Amazonka.DirectoryService.Types: pattern UpdateStatus_Updating :: UpdateStatus

+ Amazonka.DirectoryService.Types: pattern UpdateType_OS :: UpdateType

+ Amazonka.DirectoryService.Types: radiusSettings_authenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)

+ Amazonka.DirectoryService.Types: radiusSettings_displayLabel :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Types: radiusSettings_radiusPort :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types: radiusSettings_radiusRetries :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types: radiusSettings_radiusServers :: Lens' RadiusSettings (Maybe [Text])

+ Amazonka.DirectoryService.Types: radiusSettings_radiusTimeout :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types: radiusSettings_sharedSecret :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Types: radiusSettings_useSameUsername :: Lens' RadiusSettings (Maybe Bool)

+ Amazonka.DirectoryService.Types: regionDescription_desiredNumberOfDomainControllers :: Lens' RegionDescription (Maybe Natural)

+ Amazonka.DirectoryService.Types: regionDescription_directoryId :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: regionDescription_lastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: regionDescription_launchTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: regionDescription_regionName :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Types: regionDescription_regionType :: Lens' RegionDescription (Maybe RegionType)

+ Amazonka.DirectoryService.Types: regionDescription_status :: Lens' RegionDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Types: regionDescription_statusLastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: regionDescription_vpcSettings :: Lens' RegionDescription (Maybe DirectoryVpcSettings)

+ Amazonka.DirectoryService.Types: regionsInfo_additionalRegions :: Lens' RegionsInfo (Maybe [Text])

+ Amazonka.DirectoryService.Types: regionsInfo_primaryRegion :: Lens' RegionsInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_description :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_directoryId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_endDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_schemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_schemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_schemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types: schemaExtensionInfo_startDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: settingEntry_allowedValues :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: settingEntry_appliedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: settingEntry_lastRequestedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: settingEntry_lastUpdatedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: settingEntry_name :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: settingEntry_requestDetailedStatus :: Lens' SettingEntry (Maybe (HashMap Text DirectoryConfigurationStatus))

+ Amazonka.DirectoryService.Types: settingEntry_requestStatus :: Lens' SettingEntry (Maybe DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Types: settingEntry_requestStatusMessage :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: settingEntry_requestedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: settingEntry_type :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: setting_name :: Lens' Setting Text

+ Amazonka.DirectoryService.Types: setting_value :: Lens' Setting Text

+ Amazonka.DirectoryService.Types: shareTarget_id :: Lens' ShareTarget Text

+ Amazonka.DirectoryService.Types: shareTarget_type :: Lens' ShareTarget TargetType

+ Amazonka.DirectoryService.Types: sharedDirectory_createdDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: sharedDirectory_lastUpdatedDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: sharedDirectory_ownerAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types: sharedDirectory_ownerDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types: sharedDirectory_shareMethod :: Lens' SharedDirectory (Maybe ShareMethod)

+ Amazonka.DirectoryService.Types: sharedDirectory_shareNotes :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types: sharedDirectory_shareStatus :: Lens' SharedDirectory (Maybe ShareStatus)

+ Amazonka.DirectoryService.Types: sharedDirectory_sharedAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types: sharedDirectory_sharedDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types: snapshotLimits_manualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: snapshotLimits_manualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types: snapshotLimits_manualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types: snapshot_directoryId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types: snapshot_name :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types: snapshot_snapshotId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types: snapshot_startTime :: Lens' Snapshot (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: snapshot_status :: Lens' Snapshot (Maybe SnapshotStatus)

+ Amazonka.DirectoryService.Types: snapshot_type :: Lens' Snapshot (Maybe SnapshotType)

+ Amazonka.DirectoryService.Types: tag_key :: Lens' Tag Text

+ Amazonka.DirectoryService.Types: tag_value :: Lens' Tag Text

+ Amazonka.DirectoryService.Types: trust_createdDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: trust_directoryId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types: trust_lastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: trust_remoteDomainName :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types: trust_selectiveAuth :: Lens' Trust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.Types: trust_stateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: trust_trustDirection :: Lens' Trust (Maybe TrustDirection)

+ Amazonka.DirectoryService.Types: trust_trustId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types: trust_trustState :: Lens' Trust (Maybe TrustState)

+ Amazonka.DirectoryService.Types: trust_trustStateReason :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types: trust_trustType :: Lens' Trust (Maybe TrustType)

+ Amazonka.DirectoryService.Types: unshareTarget_id :: Lens' UnshareTarget Text

+ Amazonka.DirectoryService.Types: unshareTarget_type :: Lens' UnshareTarget TargetType

+ Amazonka.DirectoryService.Types: updateInfoEntry_initiatedBy :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: updateInfoEntry_lastUpdatedDateTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: updateInfoEntry_newValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Types: updateInfoEntry_previousValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Types: updateInfoEntry_region :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: updateInfoEntry_startTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types: updateInfoEntry_status :: Lens' UpdateInfoEntry (Maybe UpdateStatus)

+ Amazonka.DirectoryService.Types: updateInfoEntry_statusReason :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types: updateValue_oSUpdateSettings :: Lens' UpdateValue (Maybe OSUpdateSettings)

+ Amazonka.DirectoryService.Types.Attribute: Attribute' :: Maybe Text -> Maybe Text -> Attribute

+ Amazonka.DirectoryService.Types.Attribute: [$sel:name:Attribute'] :: Attribute -> Maybe Text

+ Amazonka.DirectoryService.Types.Attribute: [$sel:value:Attribute'] :: Attribute -> Maybe Text

+ Amazonka.DirectoryService.Types.Attribute: attribute_name :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Types.Attribute: attribute_value :: Lens' Attribute (Maybe Text)

+ Amazonka.DirectoryService.Types.Attribute: data Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance GHC.Read.Read Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: instance GHC.Show.Show Amazonka.DirectoryService.Types.Attribute.Attribute

+ Amazonka.DirectoryService.Types.Attribute: newAttribute :: Attribute

+ Amazonka.DirectoryService.Types.Certificate: Certificate' :: Maybe Text -> Maybe ClientCertAuthSettings -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe CertificateState -> Maybe Text -> Maybe CertificateType -> Certificate

+ Amazonka.DirectoryService.Types.Certificate: [$sel:certificateId:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types.Certificate: [$sel:clientCertAuthSettings:Certificate'] :: Certificate -> Maybe ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.Certificate: [$sel:commonName:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types.Certificate: [$sel:expiryDateTime:Certificate'] :: Certificate -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Certificate: [$sel:registeredDateTime:Certificate'] :: Certificate -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Certificate: [$sel:state:Certificate'] :: Certificate -> Maybe CertificateState

+ Amazonka.DirectoryService.Types.Certificate: [$sel:stateReason:Certificate'] :: Certificate -> Maybe Text

+ Amazonka.DirectoryService.Types.Certificate: [$sel:type':Certificate'] :: Certificate -> Maybe CertificateType

+ Amazonka.DirectoryService.Types.Certificate: certificate_certificateId :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types.Certificate: certificate_clientCertAuthSettings :: Lens' Certificate (Maybe ClientCertAuthSettings)

+ Amazonka.DirectoryService.Types.Certificate: certificate_commonName :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types.Certificate: certificate_expiryDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Certificate: certificate_registeredDateTime :: Lens' Certificate (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Certificate: certificate_state :: Lens' Certificate (Maybe CertificateState)

+ Amazonka.DirectoryService.Types.Certificate: certificate_stateReason :: Lens' Certificate (Maybe Text)

+ Amazonka.DirectoryService.Types.Certificate: certificate_type :: Lens' Certificate (Maybe CertificateType)

+ Amazonka.DirectoryService.Types.Certificate: data Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance GHC.Read.Read Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: instance GHC.Show.Show Amazonka.DirectoryService.Types.Certificate.Certificate

+ Amazonka.DirectoryService.Types.Certificate: newCertificate :: Certificate

+ Amazonka.DirectoryService.Types.CertificateInfo: CertificateInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe CertificateState -> Maybe CertificateType -> CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: [$sel:certificateId:CertificateInfo'] :: CertificateInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.CertificateInfo: [$sel:commonName:CertificateInfo'] :: CertificateInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.CertificateInfo: [$sel:expiryDateTime:CertificateInfo'] :: CertificateInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.CertificateInfo: [$sel:state:CertificateInfo'] :: CertificateInfo -> Maybe CertificateState

+ Amazonka.DirectoryService.Types.CertificateInfo: [$sel:type':CertificateInfo'] :: CertificateInfo -> Maybe CertificateType

+ Amazonka.DirectoryService.Types.CertificateInfo: certificateInfo_certificateId :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.CertificateInfo: certificateInfo_commonName :: Lens' CertificateInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.CertificateInfo: certificateInfo_expiryDateTime :: Lens' CertificateInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.CertificateInfo: certificateInfo_state :: Lens' CertificateInfo (Maybe CertificateState)

+ Amazonka.DirectoryService.Types.CertificateInfo: certificateInfo_type :: Lens' CertificateInfo (Maybe CertificateType)

+ Amazonka.DirectoryService.Types.CertificateInfo: data CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.CertificateInfo.CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateInfo: newCertificateInfo :: CertificateInfo

+ Amazonka.DirectoryService.Types.CertificateState: CertificateState' :: Text -> CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: [fromCertificateState] :: CertificateState -> Text

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance GHC.Read.Read Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: instance GHC.Show.Show Amazonka.DirectoryService.Types.CertificateState.CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: newtype CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_DeregisterFailed :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_Deregistered :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_Deregistering :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_RegisterFailed :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_Registered :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateState: pattern CertificateState_Registering :: CertificateState

+ Amazonka.DirectoryService.Types.CertificateType: CertificateType' :: Text -> CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: [fromCertificateType] :: CertificateType -> Text

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance GHC.Read.Read Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: instance GHC.Show.Show Amazonka.DirectoryService.Types.CertificateType.CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: newtype CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: pattern CertificateType_ClientCertAuth :: CertificateType

+ Amazonka.DirectoryService.Types.CertificateType: pattern CertificateType_ClientLDAPS :: CertificateType

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: ClientAuthenticationSettingInfo' :: Maybe POSIX -> Maybe ClientAuthenticationStatus -> Maybe ClientAuthenticationType -> ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: [$sel:lastUpdatedDateTime:ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: [$sel:status:ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: [$sel:type':ClientAuthenticationSettingInfo'] :: ClientAuthenticationSettingInfo -> Maybe ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: clientAuthenticationSettingInfo_lastUpdatedDateTime :: Lens' ClientAuthenticationSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: clientAuthenticationSettingInfo_status :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationStatus)

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: clientAuthenticationSettingInfo_type :: Lens' ClientAuthenticationSettingInfo (Maybe ClientAuthenticationType)

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: data ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo.ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo: newClientAuthenticationSettingInfo :: ClientAuthenticationSettingInfo

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: ClientAuthenticationStatus' :: Text -> ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: [fromClientAuthenticationStatus] :: ClientAuthenticationStatus -> Text

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.ClientAuthenticationStatus.ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: newtype ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: pattern ClientAuthenticationStatus_Disabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationStatus: pattern ClientAuthenticationStatus_Enabled :: ClientAuthenticationStatus

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: ClientAuthenticationType' :: Text -> ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: [fromClientAuthenticationType] :: ClientAuthenticationType -> Text

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance GHC.Read.Read Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: instance GHC.Show.Show Amazonka.DirectoryService.Types.ClientAuthenticationType.ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: newtype ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: pattern ClientAuthenticationType_SmartCard :: ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientAuthenticationType: pattern ClientAuthenticationType_SmartCardOrPassword :: ClientAuthenticationType

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: ClientCertAuthSettings' :: Maybe Text -> ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: [$sel:oCSPUrl:ClientCertAuthSettings'] :: ClientCertAuthSettings -> Maybe Text

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: clientCertAuthSettings_oCSPUrl :: Lens' ClientCertAuthSettings (Maybe Text)

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: data ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance GHC.Read.Read Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: instance GHC.Show.Show Amazonka.DirectoryService.Types.ClientCertAuthSettings.ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.ClientCertAuthSettings: newClientCertAuthSettings :: ClientCertAuthSettings

+ Amazonka.DirectoryService.Types.Computer: Computer' :: Maybe [Attribute] -> Maybe Text -> Maybe Text -> Computer

+ Amazonka.DirectoryService.Types.Computer: [$sel:computerAttributes:Computer'] :: Computer -> Maybe [Attribute]

+ Amazonka.DirectoryService.Types.Computer: [$sel:computerId:Computer'] :: Computer -> Maybe Text

+ Amazonka.DirectoryService.Types.Computer: [$sel:computerName:Computer'] :: Computer -> Maybe Text

+ Amazonka.DirectoryService.Types.Computer: computer_computerAttributes :: Lens' Computer (Maybe [Attribute])

+ Amazonka.DirectoryService.Types.Computer: computer_computerId :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Types.Computer: computer_computerName :: Lens' Computer (Maybe Text)

+ Amazonka.DirectoryService.Types.Computer: data Computer

+ Amazonka.DirectoryService.Types.Computer: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance GHC.Read.Read Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: instance GHC.Show.Show Amazonka.DirectoryService.Types.Computer.Computer

+ Amazonka.DirectoryService.Types.Computer: newComputer :: Computer

+ Amazonka.DirectoryService.Types.ConditionalForwarder: ConditionalForwarder' :: Maybe [Text] -> Maybe Text -> Maybe ReplicationScope -> ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: [$sel:dnsIpAddrs:ConditionalForwarder'] :: ConditionalForwarder -> Maybe [Text]

+ Amazonka.DirectoryService.Types.ConditionalForwarder: [$sel:remoteDomainName:ConditionalForwarder'] :: ConditionalForwarder -> Maybe Text

+ Amazonka.DirectoryService.Types.ConditionalForwarder: [$sel:replicationScope:ConditionalForwarder'] :: ConditionalForwarder -> Maybe ReplicationScope

+ Amazonka.DirectoryService.Types.ConditionalForwarder: conditionalForwarder_dnsIpAddrs :: Lens' ConditionalForwarder (Maybe [Text])

+ Amazonka.DirectoryService.Types.ConditionalForwarder: conditionalForwarder_remoteDomainName :: Lens' ConditionalForwarder (Maybe Text)

+ Amazonka.DirectoryService.Types.ConditionalForwarder: conditionalForwarder_replicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)

+ Amazonka.DirectoryService.Types.ConditionalForwarder: data ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.Types.ConditionalForwarder.ConditionalForwarder

+ Amazonka.DirectoryService.Types.ConditionalForwarder: newConditionalForwarder :: ConditionalForwarder

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: DirectoryConfigurationStatus' :: Text -> DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: [fromDirectoryConfigurationStatus] :: DirectoryConfigurationStatus -> Text

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryConfigurationStatus.DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: newtype DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: pattern DirectoryConfigurationStatus_Default :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: pattern DirectoryConfigurationStatus_Failed :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: pattern DirectoryConfigurationStatus_Requested :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: pattern DirectoryConfigurationStatus_Updated :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConfigurationStatus: pattern DirectoryConfigurationStatus_Updating :: DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: DirectoryConnectSettings' :: Text -> [Text] -> [Text] -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: [$sel:customerDnsIps:DirectoryConnectSettings'] :: DirectoryConnectSettings -> [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: [$sel:customerUserName:DirectoryConnectSettings'] :: DirectoryConnectSettings -> Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: [$sel:subnetIds:DirectoryConnectSettings'] :: DirectoryConnectSettings -> [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: [$sel:vpcId:DirectoryConnectSettings'] :: DirectoryConnectSettings -> Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: data DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: directoryConnectSettings_customerDnsIps :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: directoryConnectSettings_customerUserName :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: directoryConnectSettings_subnetIds :: Lens' DirectoryConnectSettings [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: directoryConnectSettings_vpcId :: Lens' DirectoryConnectSettings Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryConnectSettings.DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettings: newDirectoryConnectSettings :: Text -> Text -> DirectoryConnectSettings

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: DirectoryConnectSettingsDescription' :: Maybe [Text] -> Maybe [Text] -> Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:availabilityZones:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:connectIps:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:customerUserName:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:securityGroupId:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:subnetIds:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: [$sel:vpcId:DirectoryConnectSettingsDescription'] :: DirectoryConnectSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: data DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_availabilityZones :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_connectIps :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_customerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_securityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_subnetIds :: Lens' DirectoryConnectSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: directoryConnectSettingsDescription_vpcId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription.DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription: newDirectoryConnectSettingsDescription :: DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: DirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe DirectoryConnectSettingsDescription -> Maybe Text -> Maybe Natural -> Maybe Text -> Maybe [Text] -> Maybe DirectoryEdition -> Maybe POSIX -> Maybe Text -> Maybe OSVersion -> Maybe OwnerDirectoryDescription -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe RegionsInfo -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe DirectorySize -> Maybe Bool -> Maybe DirectoryStage -> Maybe POSIX -> Maybe Text -> Maybe DirectoryType -> Maybe DirectoryVpcSettingsDescription -> DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:accessUrl:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:alias:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:connectSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryConnectSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:description:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:desiredNumberOfDomainControllers:DirectoryDescription'] :: DirectoryDescription -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:directoryId:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:dnsIpAddrs:DirectoryDescription'] :: DirectoryDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:edition:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:launchTime:DirectoryDescription'] :: DirectoryDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:name:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:osVersion:DirectoryDescription'] :: DirectoryDescription -> Maybe OSVersion

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:ownerDirectoryDescription:DirectoryDescription'] :: DirectoryDescription -> Maybe OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:radiusSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe RadiusSettings

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:radiusStatus:DirectoryDescription'] :: DirectoryDescription -> Maybe RadiusStatus

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:regionsInfo:DirectoryDescription'] :: DirectoryDescription -> Maybe RegionsInfo

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:shareMethod:DirectoryDescription'] :: DirectoryDescription -> Maybe ShareMethod

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:shareNotes:DirectoryDescription'] :: DirectoryDescription -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:shareStatus:DirectoryDescription'] :: DirectoryDescription -> Maybe ShareStatus

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:shortName:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:size:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectorySize

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:ssoEnabled:DirectoryDescription'] :: DirectoryDescription -> Maybe Bool

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:stage:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:stageLastUpdatedDateTime:DirectoryDescription'] :: DirectoryDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:stageReason:DirectoryDescription'] :: DirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:type':DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryDescription: [$sel:vpcSettings:DirectoryDescription'] :: DirectoryDescription -> Maybe DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: data DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_accessUrl :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_alias :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_connectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_description :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_desiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_directoryId :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_dnsIpAddrs :: Lens' DirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_edition :: Lens' DirectoryDescription (Maybe DirectoryEdition)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_launchTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_name :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_osVersion :: Lens' DirectoryDescription (Maybe OSVersion)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_ownerDirectoryDescription :: Lens' DirectoryDescription (Maybe OwnerDirectoryDescription)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_radiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_radiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_regionsInfo :: Lens' DirectoryDescription (Maybe RegionsInfo)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_shareMethod :: Lens' DirectoryDescription (Maybe ShareMethod)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_shareNotes :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_shareStatus :: Lens' DirectoryDescription (Maybe ShareStatus)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_shortName :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_size :: Lens' DirectoryDescription (Maybe DirectorySize)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_ssoEnabled :: Lens' DirectoryDescription (Maybe Bool)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_stage :: Lens' DirectoryDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_stageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_stageReason :: Lens' DirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_type :: Lens' DirectoryDescription (Maybe DirectoryType)

+ Amazonka.DirectoryService.Types.DirectoryDescription: directoryDescription_vpcSettings :: Lens' DirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryDescription.DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryDescription: newDirectoryDescription :: DirectoryDescription

+ Amazonka.DirectoryService.Types.DirectoryEdition: DirectoryEdition' :: Text -> DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: [fromDirectoryEdition] :: DirectoryEdition -> Text

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryEdition.DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: newtype DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: pattern DirectoryEdition_Enterprise :: DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryEdition: pattern DirectoryEdition_Standard :: DirectoryEdition

+ Amazonka.DirectoryService.Types.DirectoryLimits: DirectoryLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> Maybe Natural -> Maybe Natural -> Maybe Bool -> DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyDirectoriesCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyDirectoriesLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyDirectoriesLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyMicrosoftADCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyMicrosoftADLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:cloudOnlyMicrosoftADLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:connectedDirectoriesCurrentCount:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:connectedDirectoriesLimit:DirectoryLimits'] :: DirectoryLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.DirectoryLimits: [$sel:connectedDirectoriesLimitReached:DirectoryLimits'] :: DirectoryLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types.DirectoryLimits: data DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_cloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_connectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_connectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.DirectoryLimits: directoryLimits_connectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryLimits.DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectoryLimits: newDirectoryLimits :: DirectoryLimits

+ Amazonka.DirectoryService.Types.DirectorySize: DirectorySize' :: Text -> DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: [fromDirectorySize] :: DirectorySize -> Text

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectorySize.DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: newtype DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: pattern DirectorySize_Large :: DirectorySize

+ Amazonka.DirectoryService.Types.DirectorySize: pattern DirectorySize_Small :: DirectorySize

+ Amazonka.DirectoryService.Types.DirectoryStage: DirectoryStage' :: Text -> DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: [fromDirectoryStage] :: DirectoryStage -> Text

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryStage.DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: newtype DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Active :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Created :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Creating :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Deleted :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Deleting :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Failed :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Impaired :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Inoperable :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Requested :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_RestoreFailed :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryStage: pattern DirectoryStage_Restoring :: DirectoryStage

+ Amazonka.DirectoryService.Types.DirectoryType: DirectoryType' :: Text -> DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: [fromDirectoryType] :: DirectoryType -> Text

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryType.DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: newtype DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: pattern DirectoryType_ADConnector :: DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: pattern DirectoryType_MicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: pattern DirectoryType_SharedMicrosoftAD :: DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryType: pattern DirectoryType_SimpleAD :: DirectoryType

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: DirectoryVpcSettings' :: Text -> [Text] -> DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: [$sel:subnetIds:DirectoryVpcSettings'] :: DirectoryVpcSettings -> [Text]

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: [$sel:vpcId:DirectoryVpcSettings'] :: DirectoryVpcSettings -> Text

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: data DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: directoryVpcSettings_subnetIds :: Lens' DirectoryVpcSettings [Text]

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: directoryVpcSettings_vpcId :: Lens' DirectoryVpcSettings Text

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryVpcSettings.DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettings: newDirectoryVpcSettings :: Text -> DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: DirectoryVpcSettingsDescription' :: Maybe [Text] -> Maybe Text -> Maybe [Text] -> Maybe Text -> DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: [$sel:availabilityZones:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: [$sel:securityGroupId:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: [$sel:subnetIds:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: [$sel:vpcId:DirectoryVpcSettingsDescription'] :: DirectoryVpcSettingsDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: data DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: directoryVpcSettingsDescription_availabilityZones :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: directoryVpcSettingsDescription_securityGroupId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: directoryVpcSettingsDescription_subnetIds :: Lens' DirectoryVpcSettingsDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: directoryVpcSettingsDescription_vpcId :: Lens' DirectoryVpcSettingsDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance GHC.Read.Read Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: instance GHC.Show.Show Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription.DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription: newDirectoryVpcSettingsDescription :: DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.DomainController: DomainController' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe DomainControllerStatus -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> DomainController

+ Amazonka.DirectoryService.Types.DomainController: [$sel:availabilityZone:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:directoryId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:dnsIpAddr:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:domainControllerId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:launchTime:DomainController'] :: DomainController -> Maybe POSIX

+ Amazonka.DirectoryService.Types.DomainController: [$sel:status:DomainController'] :: DomainController -> Maybe DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainController: [$sel:statusLastUpdatedDateTime:DomainController'] :: DomainController -> Maybe POSIX

+ Amazonka.DirectoryService.Types.DomainController: [$sel:statusReason:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:subnetId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: [$sel:vpcId:DomainController'] :: DomainController -> Maybe Text

+ Amazonka.DirectoryService.Types.DomainController: data DomainController

+ Amazonka.DirectoryService.Types.DomainController: domainController_availabilityZone :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_directoryId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_dnsIpAddr :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_domainControllerId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_launchTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.DomainController: domainController_status :: Lens' DomainController (Maybe DomainControllerStatus)

+ Amazonka.DirectoryService.Types.DomainController: domainController_statusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.DomainController: domainController_statusReason :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_subnetId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: domainController_vpcId :: Lens' DomainController (Maybe Text)

+ Amazonka.DirectoryService.Types.DomainController: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance GHC.Read.Read Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: instance GHC.Show.Show Amazonka.DirectoryService.Types.DomainController.DomainController

+ Amazonka.DirectoryService.Types.DomainController: newDomainController :: DomainController

+ Amazonka.DirectoryService.Types.DomainControllerStatus: DomainControllerStatus' :: Text -> DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: [fromDomainControllerStatus] :: DomainControllerStatus -> Text

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.DomainControllerStatus.DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: newtype DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Active :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Creating :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Deleted :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Deleting :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Failed :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Impaired :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.DomainControllerStatus: pattern DomainControllerStatus_Restoring :: DomainControllerStatus

+ Amazonka.DirectoryService.Types.EventTopic: EventTopic' :: Maybe POSIX -> Maybe Text -> Maybe TopicStatus -> Maybe Text -> Maybe Text -> EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: [$sel:createdDateTime:EventTopic'] :: EventTopic -> Maybe POSIX

+ Amazonka.DirectoryService.Types.EventTopic: [$sel:directoryId:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types.EventTopic: [$sel:status:EventTopic'] :: EventTopic -> Maybe TopicStatus

+ Amazonka.DirectoryService.Types.EventTopic: [$sel:topicArn:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types.EventTopic: [$sel:topicName:EventTopic'] :: EventTopic -> Maybe Text

+ Amazonka.DirectoryService.Types.EventTopic: data EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: eventTopic_createdDateTime :: Lens' EventTopic (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.EventTopic: eventTopic_directoryId :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types.EventTopic: eventTopic_status :: Lens' EventTopic (Maybe TopicStatus)

+ Amazonka.DirectoryService.Types.EventTopic: eventTopic_topicArn :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types.EventTopic: eventTopic_topicName :: Lens' EventTopic (Maybe Text)

+ Amazonka.DirectoryService.Types.EventTopic: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance GHC.Read.Read Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: instance GHC.Show.Show Amazonka.DirectoryService.Types.EventTopic.EventTopic

+ Amazonka.DirectoryService.Types.EventTopic: newEventTopic :: EventTopic

+ Amazonka.DirectoryService.Types.IpRoute: IpRoute' :: Maybe Text -> Maybe Text -> IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: [$sel:cidrIp:IpRoute'] :: IpRoute -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRoute: [$sel:description:IpRoute'] :: IpRoute -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRoute: data IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance GHC.Read.Read Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: instance GHC.Show.Show Amazonka.DirectoryService.Types.IpRoute.IpRoute

+ Amazonka.DirectoryService.Types.IpRoute: ipRoute_cidrIp :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRoute: ipRoute_description :: Lens' IpRoute (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRoute: newIpRoute :: IpRoute

+ Amazonka.DirectoryService.Types.IpRouteInfo: IpRouteInfo' :: Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe Text -> Maybe IpRouteStatusMsg -> Maybe Text -> IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:addedDateTime:IpRouteInfo'] :: IpRouteInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:cidrIp:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:description:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:directoryId:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:ipRouteStatusMsg:IpRouteInfo'] :: IpRouteInfo -> Maybe IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteInfo: [$sel:ipRouteStatusReason:IpRouteInfo'] :: IpRouteInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.IpRouteInfo: data IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.IpRouteInfo.IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_addedDateTime :: Lens' IpRouteInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_cidrIp :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_description :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_directoryId :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_ipRouteStatusMsg :: Lens' IpRouteInfo (Maybe IpRouteStatusMsg)

+ Amazonka.DirectoryService.Types.IpRouteInfo: ipRouteInfo_ipRouteStatusReason :: Lens' IpRouteInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.IpRouteInfo: newIpRouteInfo :: IpRouteInfo

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: IpRouteStatusMsg' :: Text -> IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: [fromIpRouteStatusMsg] :: IpRouteStatusMsg -> Text

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance GHC.Read.Read Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: instance GHC.Show.Show Amazonka.DirectoryService.Types.IpRouteStatusMsg.IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: newtype IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_AddFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_Added :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_Adding :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_RemoveFailed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_Removed :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.IpRouteStatusMsg: pattern IpRouteStatusMsg_Removing :: IpRouteStatusMsg

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: LDAPSSettingInfo' :: Maybe LDAPSStatus -> Maybe Text -> Maybe POSIX -> LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: [$sel:lDAPSStatus:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: [$sel:lDAPSStatusReason:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: [$sel:lastUpdatedDateTime:LDAPSSettingInfo'] :: LDAPSSettingInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: data LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.LDAPSSettingInfo.LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: lDAPSSettingInfo_lDAPSStatus :: Lens' LDAPSSettingInfo (Maybe LDAPSStatus)

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: lDAPSSettingInfo_lDAPSStatusReason :: Lens' LDAPSSettingInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: lDAPSSettingInfo_lastUpdatedDateTime :: Lens' LDAPSSettingInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.LDAPSSettingInfo: newLDAPSSettingInfo :: LDAPSSettingInfo

+ Amazonka.DirectoryService.Types.LDAPSStatus: LDAPSStatus' :: Text -> LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: [fromLDAPSStatus] :: LDAPSStatus -> Text

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.LDAPSStatus.LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: newtype LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: pattern LDAPSStatus_Disabled :: LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: pattern LDAPSStatus_EnableFailed :: LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: pattern LDAPSStatus_Enabled :: LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSStatus: pattern LDAPSStatus_Enabling :: LDAPSStatus

+ Amazonka.DirectoryService.Types.LDAPSType: LDAPSType' :: Text -> LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: [fromLDAPSType] :: LDAPSType -> Text

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance GHC.Read.Read Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: instance GHC.Show.Show Amazonka.DirectoryService.Types.LDAPSType.LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: newtype LDAPSType

+ Amazonka.DirectoryService.Types.LDAPSType: pattern LDAPSType_Client :: LDAPSType

+ Amazonka.DirectoryService.Types.LogSubscription: LogSubscription' :: Maybe Text -> Maybe Text -> Maybe POSIX -> LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: [$sel:directoryId:LogSubscription'] :: LogSubscription -> Maybe Text

+ Amazonka.DirectoryService.Types.LogSubscription: [$sel:logGroupName:LogSubscription'] :: LogSubscription -> Maybe Text

+ Amazonka.DirectoryService.Types.LogSubscription: [$sel:subscriptionCreatedDateTime:LogSubscription'] :: LogSubscription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.LogSubscription: data LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance GHC.Read.Read Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: instance GHC.Show.Show Amazonka.DirectoryService.Types.LogSubscription.LogSubscription

+ Amazonka.DirectoryService.Types.LogSubscription: logSubscription_directoryId :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Types.LogSubscription: logSubscription_logGroupName :: Lens' LogSubscription (Maybe Text)

+ Amazonka.DirectoryService.Types.LogSubscription: logSubscription_subscriptionCreatedDateTime :: Lens' LogSubscription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.LogSubscription: newLogSubscription :: LogSubscription

+ Amazonka.DirectoryService.Types.OSUpdateSettings: OSUpdateSettings' :: Maybe OSVersion -> OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: [$sel:oSVersion:OSUpdateSettings'] :: OSUpdateSettings -> Maybe OSVersion

+ Amazonka.DirectoryService.Types.OSUpdateSettings: data OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance GHC.Read.Read Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: instance GHC.Show.Show Amazonka.DirectoryService.Types.OSUpdateSettings.OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: newOSUpdateSettings :: OSUpdateSettings

+ Amazonka.DirectoryService.Types.OSUpdateSettings: oSUpdateSettings_oSVersion :: Lens' OSUpdateSettings (Maybe OSVersion)

+ Amazonka.DirectoryService.Types.OSVersion: OSVersion' :: Text -> OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: [fromOSVersion] :: OSVersion -> Text

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance GHC.Read.Read Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: instance GHC.Show.Show Amazonka.DirectoryService.Types.OSVersion.OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: newtype OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: pattern OSVersion_SERVER_2012 :: OSVersion

+ Amazonka.DirectoryService.Types.OSVersion: pattern OSVersion_SERVER_2019 :: OSVersion

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: OwnerDirectoryDescription' :: Maybe Text -> Maybe Text -> Maybe [Text] -> Maybe RadiusSettings -> Maybe RadiusStatus -> Maybe DirectoryVpcSettingsDescription -> OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:accountId:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:directoryId:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:dnsIpAddrs:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe [Text]

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:radiusSettings:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe RadiusSettings

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:radiusStatus:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe RadiusStatus

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: [$sel:vpcSettings:OwnerDirectoryDescription'] :: OwnerDirectoryDescription -> Maybe DirectoryVpcSettingsDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: data OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: instance GHC.Show.Show Amazonka.DirectoryService.Types.OwnerDirectoryDescription.OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: newOwnerDirectoryDescription :: OwnerDirectoryDescription

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_accountId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_directoryId :: Lens' OwnerDirectoryDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_dnsIpAddrs :: Lens' OwnerDirectoryDescription (Maybe [Text])

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_radiusSettings :: Lens' OwnerDirectoryDescription (Maybe RadiusSettings)

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_radiusStatus :: Lens' OwnerDirectoryDescription (Maybe RadiusStatus)

+ Amazonka.DirectoryService.Types.OwnerDirectoryDescription: ownerDirectoryDescription_vpcSettings :: Lens' OwnerDirectoryDescription (Maybe DirectoryVpcSettingsDescription)

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: RadiusAuthenticationProtocol' :: Text -> RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: [fromRadiusAuthenticationProtocol] :: RadiusAuthenticationProtocol -> Text

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance GHC.Read.Read Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: instance GHC.Show.Show Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol.RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: newtype RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: pattern RadiusAuthenticationProtocol_CHAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: pattern RadiusAuthenticationProtocol_MS_CHAPv1 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: pattern RadiusAuthenticationProtocol_MS_CHAPv2 :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol: pattern RadiusAuthenticationProtocol_PAP :: RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusSettings: RadiusSettings' :: Maybe RadiusAuthenticationProtocol -> Maybe Text -> Maybe Natural -> Maybe Natural -> Maybe [Text] -> Maybe Natural -> Maybe (Sensitive Text) -> Maybe Bool -> RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:authenticationProtocol:RadiusSettings'] :: RadiusSettings -> Maybe RadiusAuthenticationProtocol

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:displayLabel:RadiusSettings'] :: RadiusSettings -> Maybe Text

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:radiusPort:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:radiusRetries:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:radiusServers:RadiusSettings'] :: RadiusSettings -> Maybe [Text]

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:radiusTimeout:RadiusSettings'] :: RadiusSettings -> Maybe Natural

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:sharedSecret:RadiusSettings'] :: RadiusSettings -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types.RadiusSettings: [$sel:useSameUsername:RadiusSettings'] :: RadiusSettings -> Maybe Bool

+ Amazonka.DirectoryService.Types.RadiusSettings: data RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: instance GHC.Show.Show Amazonka.DirectoryService.Types.RadiusSettings.RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: newRadiusSettings :: RadiusSettings

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_authenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_displayLabel :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_radiusPort :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_radiusRetries :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_radiusServers :: Lens' RadiusSettings (Maybe [Text])

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_radiusTimeout :: Lens' RadiusSettings (Maybe Natural)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_sharedSecret :: Lens' RadiusSettings (Maybe Text)

+ Amazonka.DirectoryService.Types.RadiusSettings: radiusSettings_useSameUsername :: Lens' RadiusSettings (Maybe Bool)

+ Amazonka.DirectoryService.Types.RadiusStatus: RadiusStatus' :: Text -> RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: [fromRadiusStatus] :: RadiusStatus -> Text

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.RadiusStatus.RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: newtype RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: pattern RadiusStatus_Completed :: RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: pattern RadiusStatus_Creating :: RadiusStatus

+ Amazonka.DirectoryService.Types.RadiusStatus: pattern RadiusStatus_Failed :: RadiusStatus

+ Amazonka.DirectoryService.Types.RegionDescription: RegionDescription' :: Maybe Natural -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe RegionType -> Maybe DirectoryStage -> Maybe POSIX -> Maybe DirectoryVpcSettings -> RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:desiredNumberOfDomainControllers:RegionDescription'] :: RegionDescription -> Maybe Natural

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:directoryId:RegionDescription'] :: RegionDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:lastUpdatedDateTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:launchTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:regionName:RegionDescription'] :: RegionDescription -> Maybe Text

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:regionType:RegionDescription'] :: RegionDescription -> Maybe RegionType

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:status:RegionDescription'] :: RegionDescription -> Maybe DirectoryStage

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:statusLastUpdatedDateTime:RegionDescription'] :: RegionDescription -> Maybe POSIX

+ Amazonka.DirectoryService.Types.RegionDescription: [$sel:vpcSettings:RegionDescription'] :: RegionDescription -> Maybe DirectoryVpcSettings

+ Amazonka.DirectoryService.Types.RegionDescription: data RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance GHC.Read.Read Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: instance GHC.Show.Show Amazonka.DirectoryService.Types.RegionDescription.RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: newRegionDescription :: RegionDescription

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_desiredNumberOfDomainControllers :: Lens' RegionDescription (Maybe Natural)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_directoryId :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_lastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_launchTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_regionName :: Lens' RegionDescription (Maybe Text)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_regionType :: Lens' RegionDescription (Maybe RegionType)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_status :: Lens' RegionDescription (Maybe DirectoryStage)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_statusLastUpdatedDateTime :: Lens' RegionDescription (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.RegionDescription: regionDescription_vpcSettings :: Lens' RegionDescription (Maybe DirectoryVpcSettings)

+ Amazonka.DirectoryService.Types.RegionType: RegionType' :: Text -> RegionType

+ Amazonka.DirectoryService.Types.RegionType: [fromRegionType] :: RegionType -> Text

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance GHC.Read.Read Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: instance GHC.Show.Show Amazonka.DirectoryService.Types.RegionType.RegionType

+ Amazonka.DirectoryService.Types.RegionType: newtype RegionType

+ Amazonka.DirectoryService.Types.RegionType: pattern RegionType_Additional :: RegionType

+ Amazonka.DirectoryService.Types.RegionType: pattern RegionType_Primary :: RegionType

+ Amazonka.DirectoryService.Types.RegionsInfo: RegionsInfo' :: Maybe [Text] -> Maybe Text -> RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: [$sel:additionalRegions:RegionsInfo'] :: RegionsInfo -> Maybe [Text]

+ Amazonka.DirectoryService.Types.RegionsInfo: [$sel:primaryRegion:RegionsInfo'] :: RegionsInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.RegionsInfo: data RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.RegionsInfo.RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: newRegionsInfo :: RegionsInfo

+ Amazonka.DirectoryService.Types.RegionsInfo: regionsInfo_additionalRegions :: Lens' RegionsInfo (Maybe [Text])

+ Amazonka.DirectoryService.Types.RegionsInfo: regionsInfo_primaryRegion :: Lens' RegionsInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.ReplicationScope: ReplicationScope' :: Text -> ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: [fromReplicationScope] :: ReplicationScope -> Text

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance GHC.Read.Read Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: instance GHC.Show.Show Amazonka.DirectoryService.Types.ReplicationScope.ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: newtype ReplicationScope

+ Amazonka.DirectoryService.Types.ReplicationScope: pattern ReplicationScope_Domain :: ReplicationScope

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: SchemaExtensionInfo' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SchemaExtensionStatus -> Maybe Text -> Maybe POSIX -> SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:description:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:directoryId:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:endDateTime:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:schemaExtensionId:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:schemaExtensionStatus:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:schemaExtensionStatusReason:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe Text

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: [$sel:startDateTime:SchemaExtensionInfo'] :: SchemaExtensionInfo -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: data SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance GHC.Read.Read Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: instance GHC.Show.Show Amazonka.DirectoryService.Types.SchemaExtensionInfo.SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: newSchemaExtensionInfo :: SchemaExtensionInfo

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_description :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_directoryId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_endDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_schemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_schemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_schemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)

+ Amazonka.DirectoryService.Types.SchemaExtensionInfo: schemaExtensionInfo_startDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: SchemaExtensionStatus' :: Text -> SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: [fromSchemaExtensionStatus] :: SchemaExtensionStatus -> Text

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.SchemaExtensionStatus.SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: newtype SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_CancelInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_Cancelled :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_Completed :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_CreatingSnapshot :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_Failed :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_Initializing :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_Replicating :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_RollbackInProgress :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SchemaExtensionStatus: pattern SchemaExtensionStatus_UpdatingSchema :: SchemaExtensionStatus

+ Amazonka.DirectoryService.Types.SelectiveAuth: SelectiveAuth' :: Text -> SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: [fromSelectiveAuth] :: SelectiveAuth -> Text

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance GHC.Read.Read Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: instance GHC.Show.Show Amazonka.DirectoryService.Types.SelectiveAuth.SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: newtype SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: pattern SelectiveAuth_Disabled :: SelectiveAuth

+ Amazonka.DirectoryService.Types.SelectiveAuth: pattern SelectiveAuth_Enabled :: SelectiveAuth

+ Amazonka.DirectoryService.Types.Setting: Setting' :: Text -> Text -> Setting

+ Amazonka.DirectoryService.Types.Setting: [$sel:name:Setting'] :: Setting -> Text

+ Amazonka.DirectoryService.Types.Setting: [$sel:value:Setting'] :: Setting -> Text

+ Amazonka.DirectoryService.Types.Setting: data Setting

+ Amazonka.DirectoryService.Types.Setting: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance GHC.Read.Read Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: instance GHC.Show.Show Amazonka.DirectoryService.Types.Setting.Setting

+ Amazonka.DirectoryService.Types.Setting: newSetting :: Text -> Text -> Setting

+ Amazonka.DirectoryService.Types.Setting: setting_name :: Lens' Setting Text

+ Amazonka.DirectoryService.Types.Setting: setting_value :: Lens' Setting Text

+ Amazonka.DirectoryService.Types.SettingEntry: SettingEntry' :: Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe (HashMap Text DirectoryConfigurationStatus) -> Maybe DirectoryConfigurationStatus -> Maybe Text -> Maybe Text -> Maybe Text -> SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:allowedValues:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:appliedValue:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:lastRequestedDateTime:SettingEntry'] :: SettingEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:lastUpdatedDateTime:SettingEntry'] :: SettingEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:name:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:requestDetailedStatus:SettingEntry'] :: SettingEntry -> Maybe (HashMap Text DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:requestStatus:SettingEntry'] :: SettingEntry -> Maybe DirectoryConfigurationStatus

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:requestStatusMessage:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:requestedValue:SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: [$sel:type':SettingEntry'] :: SettingEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.SettingEntry: data SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance GHC.Read.Read Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: instance GHC.Show.Show Amazonka.DirectoryService.Types.SettingEntry.SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: newSettingEntry :: SettingEntry

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_allowedValues :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_appliedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_lastRequestedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_lastUpdatedDateTime :: Lens' SettingEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_name :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_requestDetailedStatus :: Lens' SettingEntry (Maybe (HashMap Text DirectoryConfigurationStatus))

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_requestStatus :: Lens' SettingEntry (Maybe DirectoryConfigurationStatus)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_requestStatusMessage :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_requestedValue :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.SettingEntry: settingEntry_type :: Lens' SettingEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.ShareMethod: ShareMethod' :: Text -> ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: [fromShareMethod] :: ShareMethod -> Text

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance GHC.Read.Read Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: instance GHC.Show.Show Amazonka.DirectoryService.Types.ShareMethod.ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: newtype ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: pattern ShareMethod_HANDSHAKE :: ShareMethod

+ Amazonka.DirectoryService.Types.ShareMethod: pattern ShareMethod_ORGANIZATIONS :: ShareMethod

+ Amazonka.DirectoryService.Types.ShareStatus: ShareStatus' :: Text -> ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: [fromShareStatus] :: ShareStatus -> Text

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.ShareStatus.ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: newtype ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Deleted :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Deleting :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_PendingAcceptance :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_RejectFailed :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Rejected :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Rejecting :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_ShareFailed :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Shared :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareStatus: pattern ShareStatus_Sharing :: ShareStatus

+ Amazonka.DirectoryService.Types.ShareTarget: ShareTarget' :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: [$sel:id:ShareTarget'] :: ShareTarget -> Text

+ Amazonka.DirectoryService.Types.ShareTarget: [$sel:type':ShareTarget'] :: ShareTarget -> TargetType

+ Amazonka.DirectoryService.Types.ShareTarget: data ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance GHC.Read.Read Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: instance GHC.Show.Show Amazonka.DirectoryService.Types.ShareTarget.ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: newShareTarget :: Text -> TargetType -> ShareTarget

+ Amazonka.DirectoryService.Types.ShareTarget: shareTarget_id :: Lens' ShareTarget Text

+ Amazonka.DirectoryService.Types.ShareTarget: shareTarget_type :: Lens' ShareTarget TargetType

+ Amazonka.DirectoryService.Types.SharedDirectory: SharedDirectory' :: Maybe POSIX -> Maybe POSIX -> Maybe Text -> Maybe Text -> Maybe ShareMethod -> Maybe (Sensitive Text) -> Maybe ShareStatus -> Maybe Text -> Maybe Text -> SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:createdDateTime:SharedDirectory'] :: SharedDirectory -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:lastUpdatedDateTime:SharedDirectory'] :: SharedDirectory -> Maybe POSIX

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:ownerAccountId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:ownerDirectoryId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:shareMethod:SharedDirectory'] :: SharedDirectory -> Maybe ShareMethod

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:shareNotes:SharedDirectory'] :: SharedDirectory -> Maybe (Sensitive Text)

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:shareStatus:SharedDirectory'] :: SharedDirectory -> Maybe ShareStatus

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:sharedAccountId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types.SharedDirectory: [$sel:sharedDirectoryId:SharedDirectory'] :: SharedDirectory -> Maybe Text

+ Amazonka.DirectoryService.Types.SharedDirectory: data SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: instance GHC.Show.Show Amazonka.DirectoryService.Types.SharedDirectory.SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: newSharedDirectory :: SharedDirectory

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_createdDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_lastUpdatedDateTime :: Lens' SharedDirectory (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_ownerAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_ownerDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_shareMethod :: Lens' SharedDirectory (Maybe ShareMethod)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_shareNotes :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_shareStatus :: Lens' SharedDirectory (Maybe ShareStatus)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_sharedAccountId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types.SharedDirectory: sharedDirectory_sharedDirectoryId :: Lens' SharedDirectory (Maybe Text)

+ Amazonka.DirectoryService.Types.Snapshot: Snapshot' :: Maybe Text -> Maybe Text -> Maybe Text -> Maybe POSIX -> Maybe SnapshotStatus -> Maybe SnapshotType -> Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:directoryId:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:name:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:snapshotId:Snapshot'] :: Snapshot -> Maybe Text

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:startTime:Snapshot'] :: Snapshot -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:status:Snapshot'] :: Snapshot -> Maybe SnapshotStatus

+ Amazonka.DirectoryService.Types.Snapshot: [$sel:type':Snapshot'] :: Snapshot -> Maybe SnapshotType

+ Amazonka.DirectoryService.Types.Snapshot: data Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance GHC.Read.Read Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: instance GHC.Show.Show Amazonka.DirectoryService.Types.Snapshot.Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: newSnapshot :: Snapshot

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_directoryId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_name :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_snapshotId :: Lens' Snapshot (Maybe Text)

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_startTime :: Lens' Snapshot (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_status :: Lens' Snapshot (Maybe SnapshotStatus)

+ Amazonka.DirectoryService.Types.Snapshot: snapshot_type :: Lens' Snapshot (Maybe SnapshotType)

+ Amazonka.DirectoryService.Types.SnapshotLimits: SnapshotLimits' :: Maybe Natural -> Maybe Natural -> Maybe Bool -> SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: [$sel:manualSnapshotsCurrentCount:SnapshotLimits'] :: SnapshotLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.SnapshotLimits: [$sel:manualSnapshotsLimit:SnapshotLimits'] :: SnapshotLimits -> Maybe Natural

+ Amazonka.DirectoryService.Types.SnapshotLimits: [$sel:manualSnapshotsLimitReached:SnapshotLimits'] :: SnapshotLimits -> Maybe Bool

+ Amazonka.DirectoryService.Types.SnapshotLimits: data SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance GHC.Read.Read Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: instance GHC.Show.Show Amazonka.DirectoryService.Types.SnapshotLimits.SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: newSnapshotLimits :: SnapshotLimits

+ Amazonka.DirectoryService.Types.SnapshotLimits: snapshotLimits_manualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.SnapshotLimits: snapshotLimits_manualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)

+ Amazonka.DirectoryService.Types.SnapshotLimits: snapshotLimits_manualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)

+ Amazonka.DirectoryService.Types.SnapshotStatus: SnapshotStatus' :: Text -> SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: [fromSnapshotStatus] :: SnapshotStatus -> Text

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.SnapshotStatus.SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: newtype SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: pattern SnapshotStatus_Completed :: SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: pattern SnapshotStatus_Creating :: SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotStatus: pattern SnapshotStatus_Failed :: SnapshotStatus

+ Amazonka.DirectoryService.Types.SnapshotType: SnapshotType' :: Text -> SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: [fromSnapshotType] :: SnapshotType -> Text

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance GHC.Read.Read Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: instance GHC.Show.Show Amazonka.DirectoryService.Types.SnapshotType.SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: newtype SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: pattern SnapshotType_Auto :: SnapshotType

+ Amazonka.DirectoryService.Types.SnapshotType: pattern SnapshotType_Manual :: SnapshotType

+ Amazonka.DirectoryService.Types.Tag: Tag' :: Text -> Text -> Tag

+ Amazonka.DirectoryService.Types.Tag: [$sel:key:Tag'] :: Tag -> Text

+ Amazonka.DirectoryService.Types.Tag: [$sel:value:Tag'] :: Tag -> Text

+ Amazonka.DirectoryService.Types.Tag: data Tag

+ Amazonka.DirectoryService.Types.Tag: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance GHC.Read.Read Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: instance GHC.Show.Show Amazonka.DirectoryService.Types.Tag.Tag

+ Amazonka.DirectoryService.Types.Tag: newTag :: Text -> Text -> Tag

+ Amazonka.DirectoryService.Types.Tag: tag_key :: Lens' Tag Text

+ Amazonka.DirectoryService.Types.Tag: tag_value :: Lens' Tag Text

+ Amazonka.DirectoryService.Types.TargetType: TargetType' :: Text -> TargetType

+ Amazonka.DirectoryService.Types.TargetType: [fromTargetType] :: TargetType -> Text

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance GHC.Read.Read Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: instance GHC.Show.Show Amazonka.DirectoryService.Types.TargetType.TargetType

+ Amazonka.DirectoryService.Types.TargetType: newtype TargetType

+ Amazonka.DirectoryService.Types.TargetType: pattern TargetType_ACCOUNT :: TargetType

+ Amazonka.DirectoryService.Types.TopicStatus: TopicStatus' :: Text -> TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: [fromTopicStatus] :: TopicStatus -> Text

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.TopicStatus.TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: newtype TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: pattern TopicStatus_Deleted :: TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: pattern TopicStatus_Failed :: TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: pattern TopicStatus_Registered :: TopicStatus

+ Amazonka.DirectoryService.Types.TopicStatus: pattern TopicStatus_Topic_not_found :: TopicStatus

+ Amazonka.DirectoryService.Types.Trust: Trust' :: Maybe POSIX -> Maybe Text -> Maybe POSIX -> Maybe Text -> Maybe SelectiveAuth -> Maybe POSIX -> Maybe TrustDirection -> Maybe Text -> Maybe TrustState -> Maybe Text -> Maybe TrustType -> Trust

+ Amazonka.DirectoryService.Types.Trust: [$sel:createdDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Trust: [$sel:directoryId:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types.Trust: [$sel:lastUpdatedDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Trust: [$sel:remoteDomainName:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types.Trust: [$sel:selectiveAuth:Trust'] :: Trust -> Maybe SelectiveAuth

+ Amazonka.DirectoryService.Types.Trust: [$sel:stateLastUpdatedDateTime:Trust'] :: Trust -> Maybe POSIX

+ Amazonka.DirectoryService.Types.Trust: [$sel:trustDirection:Trust'] :: Trust -> Maybe TrustDirection

+ Amazonka.DirectoryService.Types.Trust: [$sel:trustId:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types.Trust: [$sel:trustState:Trust'] :: Trust -> Maybe TrustState

+ Amazonka.DirectoryService.Types.Trust: [$sel:trustStateReason:Trust'] :: Trust -> Maybe Text

+ Amazonka.DirectoryService.Types.Trust: [$sel:trustType:Trust'] :: Trust -> Maybe TrustType

+ Amazonka.DirectoryService.Types.Trust: data Trust

+ Amazonka.DirectoryService.Types.Trust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance GHC.Read.Read Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: instance GHC.Show.Show Amazonka.DirectoryService.Types.Trust.Trust

+ Amazonka.DirectoryService.Types.Trust: newTrust :: Trust

+ Amazonka.DirectoryService.Types.Trust: trust_createdDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Trust: trust_directoryId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types.Trust: trust_lastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Trust: trust_remoteDomainName :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types.Trust: trust_selectiveAuth :: Lens' Trust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.Types.Trust: trust_stateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.Trust: trust_trustDirection :: Lens' Trust (Maybe TrustDirection)

+ Amazonka.DirectoryService.Types.Trust: trust_trustId :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types.Trust: trust_trustState :: Lens' Trust (Maybe TrustState)

+ Amazonka.DirectoryService.Types.Trust: trust_trustStateReason :: Lens' Trust (Maybe Text)

+ Amazonka.DirectoryService.Types.Trust: trust_trustType :: Lens' Trust (Maybe TrustType)

+ Amazonka.DirectoryService.Types.TrustDirection: TrustDirection' :: Text -> TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: [fromTrustDirection] :: TrustDirection -> Text

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance GHC.Read.Read Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: instance GHC.Show.Show Amazonka.DirectoryService.Types.TrustDirection.TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: newtype TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: pattern TrustDirection_One_Way__Incoming :: TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: pattern TrustDirection_One_Way__Outgoing :: TrustDirection

+ Amazonka.DirectoryService.Types.TrustDirection: pattern TrustDirection_Two_Way :: TrustDirection

+ Amazonka.DirectoryService.Types.TrustState: TrustState' :: Text -> TrustState

+ Amazonka.DirectoryService.Types.TrustState: [fromTrustState] :: TrustState -> Text

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance GHC.Read.Read Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: instance GHC.Show.Show Amazonka.DirectoryService.Types.TrustState.TrustState

+ Amazonka.DirectoryService.Types.TrustState: newtype TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Created :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Creating :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Deleted :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Deleting :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Failed :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_UpdateFailed :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Updated :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Updating :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Verified :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_VerifyFailed :: TrustState

+ Amazonka.DirectoryService.Types.TrustState: pattern TrustState_Verifying :: TrustState

+ Amazonka.DirectoryService.Types.TrustType: TrustType' :: Text -> TrustType

+ Amazonka.DirectoryService.Types.TrustType: [fromTrustType] :: TrustType -> Text

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance GHC.Read.Read Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: instance GHC.Show.Show Amazonka.DirectoryService.Types.TrustType.TrustType

+ Amazonka.DirectoryService.Types.TrustType: newtype TrustType

+ Amazonka.DirectoryService.Types.TrustType: pattern TrustType_External :: TrustType

+ Amazonka.DirectoryService.Types.TrustType: pattern TrustType_Forest :: TrustType

+ Amazonka.DirectoryService.Types.UnshareTarget: UnshareTarget' :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: [$sel:id:UnshareTarget'] :: UnshareTarget -> Text

+ Amazonka.DirectoryService.Types.UnshareTarget: [$sel:type':UnshareTarget'] :: UnshareTarget -> TargetType

+ Amazonka.DirectoryService.Types.UnshareTarget: data UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance GHC.Read.Read Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: instance GHC.Show.Show Amazonka.DirectoryService.Types.UnshareTarget.UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: newUnshareTarget :: Text -> TargetType -> UnshareTarget

+ Amazonka.DirectoryService.Types.UnshareTarget: unshareTarget_id :: Lens' UnshareTarget Text

+ Amazonka.DirectoryService.Types.UnshareTarget: unshareTarget_type :: Lens' UnshareTarget TargetType

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: UpdateInfoEntry' :: Maybe Text -> Maybe POSIX -> Maybe UpdateValue -> Maybe UpdateValue -> Maybe Text -> Maybe POSIX -> Maybe UpdateStatus -> Maybe Text -> UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:initiatedBy:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:lastUpdatedDateTime:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:newValue':UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateValue

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:previousValue:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateValue

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:region:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:startTime:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe POSIX

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:status:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: [$sel:statusReason:UpdateInfoEntry'] :: UpdateInfoEntry -> Maybe Text

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: data UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance GHC.Read.Read Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: instance GHC.Show.Show Amazonka.DirectoryService.Types.UpdateInfoEntry.UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: newUpdateInfoEntry :: UpdateInfoEntry

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_initiatedBy :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_lastUpdatedDateTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_newValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_previousValue :: Lens' UpdateInfoEntry (Maybe UpdateValue)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_region :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_startTime :: Lens' UpdateInfoEntry (Maybe UTCTime)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_status :: Lens' UpdateInfoEntry (Maybe UpdateStatus)

+ Amazonka.DirectoryService.Types.UpdateInfoEntry: updateInfoEntry_statusReason :: Lens' UpdateInfoEntry (Maybe Text)

+ Amazonka.DirectoryService.Types.UpdateStatus: UpdateStatus' :: Text -> UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: [fromUpdateStatus] :: UpdateStatus -> Text

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance GHC.Read.Read Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: instance GHC.Show.Show Amazonka.DirectoryService.Types.UpdateStatus.UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: newtype UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: pattern UpdateStatus_UpdateFailed :: UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: pattern UpdateStatus_Updated :: UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateStatus: pattern UpdateStatus_Updating :: UpdateStatus

+ Amazonka.DirectoryService.Types.UpdateType: UpdateType' :: Text -> UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: [fromUpdateType] :: UpdateType -> Text

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.ByteString.ToByteString Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.Headers.ToHeader Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.Log.ToLog Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.Text.FromText Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.Text.ToText Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.XML.FromXML Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Amazonka.Data.XML.ToXML Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Data.Aeson.Types.FromJSON.FromJSONKey Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Data.Aeson.Types.ToJSON.ToJSONKey Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance GHC.Classes.Ord Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance GHC.Read.Read Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: instance GHC.Show.Show Amazonka.DirectoryService.Types.UpdateType.UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: newtype UpdateType

+ Amazonka.DirectoryService.Types.UpdateType: pattern UpdateType_OS :: UpdateType

+ Amazonka.DirectoryService.Types.UpdateValue: UpdateValue' :: Maybe OSUpdateSettings -> UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: [$sel:oSUpdateSettings:UpdateValue'] :: UpdateValue -> Maybe OSUpdateSettings

+ Amazonka.DirectoryService.Types.UpdateValue: data UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance Control.DeepSeq.NFData Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance Data.Aeson.Types.FromJSON.FromJSON Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance GHC.Classes.Eq Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance GHC.Generics.Generic Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance GHC.Read.Read Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: instance GHC.Show.Show Amazonka.DirectoryService.Types.UpdateValue.UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: newUpdateValue :: UpdateValue

+ Amazonka.DirectoryService.Types.UpdateValue: updateValue_oSUpdateSettings :: Lens' UpdateValue (Maybe OSUpdateSettings)

+ Amazonka.DirectoryService.UnshareDirectory: UnshareDirectory' :: Text -> UnshareTarget -> UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: UnshareDirectoryResponse' :: Maybe Text -> Int -> UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: [$sel:directoryId:UnshareDirectory'] :: UnshareDirectory -> Text

+ Amazonka.DirectoryService.UnshareDirectory: [$sel:httpStatus:UnshareDirectoryResponse'] :: UnshareDirectoryResponse -> Int

+ Amazonka.DirectoryService.UnshareDirectory: [$sel:sharedDirectoryId:UnshareDirectoryResponse'] :: UnshareDirectoryResponse -> Maybe Text

+ Amazonka.DirectoryService.UnshareDirectory: [$sel:unshareTarget:UnshareDirectory'] :: UnshareDirectory -> UnshareTarget

+ Amazonka.DirectoryService.UnshareDirectory: data UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: data UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UnshareDirectory.UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Classes.Eq Amazonka.DirectoryService.UnshareDirectory.UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Generics.Generic Amazonka.DirectoryService.UnshareDirectory.UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Read.Read Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Read.Read Amazonka.DirectoryService.UnshareDirectory.UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Show.Show Amazonka.DirectoryService.UnshareDirectory.UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: instance GHC.Show.Show Amazonka.DirectoryService.UnshareDirectory.UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: newUnshareDirectory :: Text -> UnshareTarget -> UnshareDirectory

+ Amazonka.DirectoryService.UnshareDirectory: newUnshareDirectoryResponse :: Int -> UnshareDirectoryResponse

+ Amazonka.DirectoryService.UnshareDirectory: unshareDirectoryResponse_httpStatus :: Lens' UnshareDirectoryResponse Int

+ Amazonka.DirectoryService.UnshareDirectory: unshareDirectoryResponse_sharedDirectoryId :: Lens' UnshareDirectoryResponse (Maybe Text)

+ Amazonka.DirectoryService.UnshareDirectory: unshareDirectory_directoryId :: Lens' UnshareDirectory Text

+ Amazonka.DirectoryService.UnshareDirectory: unshareDirectory_unshareTarget :: Lens' UnshareDirectory UnshareTarget

+ Amazonka.DirectoryService.UpdateConditionalForwarder: UpdateConditionalForwarder' :: Text -> Text -> [Text] -> UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: UpdateConditionalForwarderResponse' :: Int -> UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: [$sel:directoryId:UpdateConditionalForwarder'] :: UpdateConditionalForwarder -> Text

+ Amazonka.DirectoryService.UpdateConditionalForwarder: [$sel:dnsIpAddrs:UpdateConditionalForwarder'] :: UpdateConditionalForwarder -> [Text]

+ Amazonka.DirectoryService.UpdateConditionalForwarder: [$sel:httpStatus:UpdateConditionalForwarderResponse'] :: UpdateConditionalForwarderResponse -> Int

+ Amazonka.DirectoryService.UpdateConditionalForwarder: [$sel:remoteDomainName:UpdateConditionalForwarder'] :: UpdateConditionalForwarder -> Text

+ Amazonka.DirectoryService.UpdateConditionalForwarder: data UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: data UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Read.Read Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: instance GHC.Show.Show Amazonka.DirectoryService.UpdateConditionalForwarder.UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: newUpdateConditionalForwarder :: Text -> Text -> UpdateConditionalForwarder

+ Amazonka.DirectoryService.UpdateConditionalForwarder: newUpdateConditionalForwarderResponse :: Int -> UpdateConditionalForwarderResponse

+ Amazonka.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarderResponse_httpStatus :: Lens' UpdateConditionalForwarderResponse Int

+ Amazonka.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarder_directoryId :: Lens' UpdateConditionalForwarder Text

+ Amazonka.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarder_dnsIpAddrs :: Lens' UpdateConditionalForwarder [Text]

+ Amazonka.DirectoryService.UpdateConditionalForwarder: updateConditionalForwarder_remoteDomainName :: Lens' UpdateConditionalForwarder Text

+ Amazonka.DirectoryService.UpdateDirectorySetup: UpdateDirectorySetup' :: Maybe Bool -> Maybe OSUpdateSettings -> Text -> UpdateType -> UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: UpdateDirectorySetupResponse' :: Int -> UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: [$sel:createSnapshotBeforeUpdate:UpdateDirectorySetup'] :: UpdateDirectorySetup -> Maybe Bool

+ Amazonka.DirectoryService.UpdateDirectorySetup: [$sel:directoryId:UpdateDirectorySetup'] :: UpdateDirectorySetup -> Text

+ Amazonka.DirectoryService.UpdateDirectorySetup: [$sel:httpStatus:UpdateDirectorySetupResponse'] :: UpdateDirectorySetupResponse -> Int

+ Amazonka.DirectoryService.UpdateDirectorySetup: [$sel:oSUpdateSettings:UpdateDirectorySetup'] :: UpdateDirectorySetup -> Maybe OSUpdateSettings

+ Amazonka.DirectoryService.UpdateDirectorySetup: [$sel:updateType:UpdateDirectorySetup'] :: UpdateDirectorySetup -> UpdateType

+ Amazonka.DirectoryService.UpdateDirectorySetup: data UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: data UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Read.Read Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Read.Read Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Show.Show Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: instance GHC.Show.Show Amazonka.DirectoryService.UpdateDirectorySetup.UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: newUpdateDirectorySetup :: Text -> UpdateType -> UpdateDirectorySetup

+ Amazonka.DirectoryService.UpdateDirectorySetup: newUpdateDirectorySetupResponse :: Int -> UpdateDirectorySetupResponse

+ Amazonka.DirectoryService.UpdateDirectorySetup: updateDirectorySetupResponse_httpStatus :: Lens' UpdateDirectorySetupResponse Int

+ Amazonka.DirectoryService.UpdateDirectorySetup: updateDirectorySetup_createSnapshotBeforeUpdate :: Lens' UpdateDirectorySetup (Maybe Bool)

+ Amazonka.DirectoryService.UpdateDirectorySetup: updateDirectorySetup_directoryId :: Lens' UpdateDirectorySetup Text

+ Amazonka.DirectoryService.UpdateDirectorySetup: updateDirectorySetup_oSUpdateSettings :: Lens' UpdateDirectorySetup (Maybe OSUpdateSettings)

+ Amazonka.DirectoryService.UpdateDirectorySetup: updateDirectorySetup_updateType :: Lens' UpdateDirectorySetup UpdateType

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: UpdateNumberOfDomainControllers' :: Text -> Natural -> UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: UpdateNumberOfDomainControllersResponse' :: Int -> UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: [$sel:desiredNumber:UpdateNumberOfDomainControllers'] :: UpdateNumberOfDomainControllers -> Natural

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: [$sel:directoryId:UpdateNumberOfDomainControllers'] :: UpdateNumberOfDomainControllers -> Text

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: [$sel:httpStatus:UpdateNumberOfDomainControllersResponse'] :: UpdateNumberOfDomainControllersResponse -> Int

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: data UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: data UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Read.Read Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Read.Read Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Show.Show Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: instance GHC.Show.Show Amazonka.DirectoryService.UpdateNumberOfDomainControllers.UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: newUpdateNumberOfDomainControllers :: Text -> Natural -> UpdateNumberOfDomainControllers

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: newUpdateNumberOfDomainControllersResponse :: Int -> UpdateNumberOfDomainControllersResponse

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: updateNumberOfDomainControllersResponse_httpStatus :: Lens' UpdateNumberOfDomainControllersResponse Int

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: updateNumberOfDomainControllers_desiredNumber :: Lens' UpdateNumberOfDomainControllers Natural

+ Amazonka.DirectoryService.UpdateNumberOfDomainControllers: updateNumberOfDomainControllers_directoryId :: Lens' UpdateNumberOfDomainControllers Text

+ Amazonka.DirectoryService.UpdateRadius: UpdateRadius' :: Text -> RadiusSettings -> UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: UpdateRadiusResponse' :: Int -> UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: [$sel:directoryId:UpdateRadius'] :: UpdateRadius -> Text

+ Amazonka.DirectoryService.UpdateRadius: [$sel:httpStatus:UpdateRadiusResponse'] :: UpdateRadiusResponse -> Int

+ Amazonka.DirectoryService.UpdateRadius: [$sel:radiusSettings:UpdateRadius'] :: UpdateRadius -> RadiusSettings

+ Amazonka.DirectoryService.UpdateRadius: data UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: data UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateRadius.UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateRadius.UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateRadius.UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Read.Read Amazonka.DirectoryService.UpdateRadius.UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Show.Show Amazonka.DirectoryService.UpdateRadius.UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: instance GHC.Show.Show Amazonka.DirectoryService.UpdateRadius.UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: newUpdateRadius :: Text -> RadiusSettings -> UpdateRadius

+ Amazonka.DirectoryService.UpdateRadius: newUpdateRadiusResponse :: Int -> UpdateRadiusResponse

+ Amazonka.DirectoryService.UpdateRadius: updateRadiusResponse_httpStatus :: Lens' UpdateRadiusResponse Int

+ Amazonka.DirectoryService.UpdateRadius: updateRadius_directoryId :: Lens' UpdateRadius Text

+ Amazonka.DirectoryService.UpdateRadius: updateRadius_radiusSettings :: Lens' UpdateRadius RadiusSettings

+ Amazonka.DirectoryService.UpdateSettings: UpdateSettings' :: Text -> [Setting] -> UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: UpdateSettingsResponse' :: Maybe Text -> Int -> UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: [$sel:directoryId:UpdateSettings'] :: UpdateSettings -> Text

+ Amazonka.DirectoryService.UpdateSettings: [$sel:directoryId:UpdateSettingsResponse'] :: UpdateSettingsResponse -> Maybe Text

+ Amazonka.DirectoryService.UpdateSettings: [$sel:httpStatus:UpdateSettingsResponse'] :: UpdateSettingsResponse -> Int

+ Amazonka.DirectoryService.UpdateSettings: [$sel:settings:UpdateSettings'] :: UpdateSettings -> [Setting]

+ Amazonka.DirectoryService.UpdateSettings: data UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: data UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateSettings.UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateSettings.UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateSettings.UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Read.Read Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Read.Read Amazonka.DirectoryService.UpdateSettings.UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Show.Show Amazonka.DirectoryService.UpdateSettings.UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: instance GHC.Show.Show Amazonka.DirectoryService.UpdateSettings.UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: newUpdateSettings :: Text -> UpdateSettings

+ Amazonka.DirectoryService.UpdateSettings: newUpdateSettingsResponse :: Int -> UpdateSettingsResponse

+ Amazonka.DirectoryService.UpdateSettings: updateSettingsResponse_directoryId :: Lens' UpdateSettingsResponse (Maybe Text)

+ Amazonka.DirectoryService.UpdateSettings: updateSettingsResponse_httpStatus :: Lens' UpdateSettingsResponse Int

+ Amazonka.DirectoryService.UpdateSettings: updateSettings_directoryId :: Lens' UpdateSettings Text

+ Amazonka.DirectoryService.UpdateSettings: updateSettings_settings :: Lens' UpdateSettings [Setting]

+ Amazonka.DirectoryService.UpdateTrust: UpdateTrust' :: Maybe SelectiveAuth -> Text -> UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: UpdateTrustResponse' :: Maybe Text -> Maybe Text -> Int -> UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: [$sel:httpStatus:UpdateTrustResponse'] :: UpdateTrustResponse -> Int

+ Amazonka.DirectoryService.UpdateTrust: [$sel:requestId:UpdateTrustResponse'] :: UpdateTrustResponse -> Maybe Text

+ Amazonka.DirectoryService.UpdateTrust: [$sel:selectiveAuth:UpdateTrust'] :: UpdateTrust -> Maybe SelectiveAuth

+ Amazonka.DirectoryService.UpdateTrust: [$sel:trustId:UpdateTrust'] :: UpdateTrust -> Text

+ Amazonka.DirectoryService.UpdateTrust: [$sel:trustId:UpdateTrustResponse'] :: UpdateTrustResponse -> Maybe Text

+ Amazonka.DirectoryService.UpdateTrust: data UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: data UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.UpdateTrust.UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.UpdateTrust.UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.UpdateTrust.UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Read.Read Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Read.Read Amazonka.DirectoryService.UpdateTrust.UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Show.Show Amazonka.DirectoryService.UpdateTrust.UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: instance GHC.Show.Show Amazonka.DirectoryService.UpdateTrust.UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: newUpdateTrust :: Text -> UpdateTrust

+ Amazonka.DirectoryService.UpdateTrust: newUpdateTrustResponse :: Int -> UpdateTrustResponse

+ Amazonka.DirectoryService.UpdateTrust: updateTrustResponse_httpStatus :: Lens' UpdateTrustResponse Int

+ Amazonka.DirectoryService.UpdateTrust: updateTrustResponse_requestId :: Lens' UpdateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.UpdateTrust: updateTrustResponse_trustId :: Lens' UpdateTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.UpdateTrust: updateTrust_selectiveAuth :: Lens' UpdateTrust (Maybe SelectiveAuth)

+ Amazonka.DirectoryService.UpdateTrust: updateTrust_trustId :: Lens' UpdateTrust Text

+ Amazonka.DirectoryService.VerifyTrust: VerifyTrust' :: Text -> VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: VerifyTrustResponse' :: Maybe Text -> Int -> VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: [$sel:httpStatus:VerifyTrustResponse'] :: VerifyTrustResponse -> Int

+ Amazonka.DirectoryService.VerifyTrust: [$sel:trustId:VerifyTrust'] :: VerifyTrust -> Text

+ Amazonka.DirectoryService.VerifyTrust: [$sel:trustId:VerifyTrustResponse'] :: VerifyTrustResponse -> Maybe Text

+ Amazonka.DirectoryService.VerifyTrust: data VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: data VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: instance Amazonka.Data.Headers.ToHeaders Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Amazonka.Data.Path.ToPath Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Amazonka.Data.Query.ToQuery Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Amazonka.Types.AWSRequest Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Control.DeepSeq.NFData Amazonka.DirectoryService.VerifyTrust.VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: instance Data.Aeson.Types.ToJSON.ToJSON Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance Data.Hashable.Class.Hashable Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Classes.Eq Amazonka.DirectoryService.VerifyTrust.VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Generics.Generic Amazonka.DirectoryService.VerifyTrust.VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Read.Read Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Read.Read Amazonka.DirectoryService.VerifyTrust.VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Show.Show Amazonka.DirectoryService.VerifyTrust.VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: instance GHC.Show.Show Amazonka.DirectoryService.VerifyTrust.VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: newVerifyTrust :: Text -> VerifyTrust

+ Amazonka.DirectoryService.VerifyTrust: newVerifyTrustResponse :: Int -> VerifyTrustResponse

+ Amazonka.DirectoryService.VerifyTrust: verifyTrustResponse_httpStatus :: Lens' VerifyTrustResponse Int

+ Amazonka.DirectoryService.VerifyTrust: verifyTrustResponse_trustId :: Lens' VerifyTrustResponse (Maybe Text)

+ Amazonka.DirectoryService.VerifyTrust: verifyTrust_trustId :: Lens' VerifyTrust Text

Files

README.md +3/−4
Setup.hs +0/−2
amazonka-ds.cabal +206/−114
fixture/AcceptSharedDirectory.yaml +10/−0
fixture/AcceptSharedDirectoryResponse.proto +0/−0
fixture/AddIPRoutes.yaml +0/−0
fixture/AddIPRoutesResponse.proto +0/−0
fixture/AddIpRoutes.yaml +10/−0
fixture/AddIpRoutesResponse.proto +0/−0
fixture/AddRegion.yaml +10/−0
fixture/AddRegionResponse.proto +0/−0
fixture/AddTagsToResource.yaml +10/−0
fixture/CancelSchemaExtension.yaml +10/−0
fixture/ConnectDirectory.yaml +10/−0
fixture/CreateAlias.yaml +10/−0
fixture/CreateComputer.yaml +10/−0
fixture/CreateConditionalForwarder.yaml +10/−0
fixture/CreateDirectory.yaml +10/−0
fixture/CreateLogSubscription.yaml +10/−0
fixture/CreateLogSubscriptionResponse.proto +0/−0
fixture/CreateMicrosoftAD.yaml +10/−0
fixture/CreateSnapshot.yaml +10/−0
fixture/CreateTrust.yaml +10/−0
fixture/DeleteConditionalForwarder.yaml +10/−0
fixture/DeleteDirectory.yaml +10/−0
fixture/DeleteLogSubscription.yaml +10/−0
fixture/DeleteLogSubscriptionResponse.proto +0/−0
fixture/DeleteSnapshot.yaml +10/−0
fixture/DeleteTrust.yaml +10/−0
fixture/DeregisterCertificate.yaml +10/−0
fixture/DeregisterCertificateResponse.proto +0/−0
fixture/DeregisterEventTopic.yaml +10/−0
fixture/DescribeCertificate.yaml +10/−0
fixture/DescribeCertificateResponse.proto +0/−0
fixture/DescribeClientAuthenticationSettings.yaml +10/−0
fixture/DescribeClientAuthenticationSettingsResponse.proto +0/−0
fixture/DescribeConditionalForwarders.yaml +10/−0
fixture/DescribeDirectories.yaml +10/−0
fixture/DescribeEventTopics.yaml +10/−0
fixture/DescribeLDAPSSettings.yaml +10/−0
fixture/DescribeLDAPSSettingsResponse.proto +0/−0
fixture/DescribeRegions.yaml +10/−0
fixture/DescribeRegionsResponse.proto +0/−0
fixture/DescribeSettings.yaml +10/−0
fixture/DescribeSettingsResponse.proto +0/−0
fixture/DescribeSharedDirectories.yaml +10/−0
fixture/DescribeSharedDirectoriesResponse.proto +0/−0
fixture/DescribeSnapshots.yaml +10/−0
fixture/DescribeTrusts.yaml +10/−0
fixture/DescribeUpdateDirectory.yaml +10/−0
fixture/DescribeUpdateDirectoryResponse.proto +0/−0
fixture/DisableClientAuthentication.yaml +10/−0
fixture/DisableClientAuthenticationResponse.proto +0/−0
fixture/DisableLDAPS.yaml +10/−0
fixture/DisableLDAPSResponse.proto +0/−0
fixture/DisableRadius.yaml +10/−0
fixture/DisableSSO.yaml +0/−0
fixture/DisableSSOResponse.proto +0/−0
fixture/DisableSso.yaml +10/−0
fixture/DisableSsoResponse.proto +0/−0
fixture/EnableClientAuthentication.yaml +10/−0
fixture/EnableClientAuthenticationResponse.proto +0/−0
fixture/EnableLDAPS.yaml +10/−0
fixture/EnableLDAPSResponse.proto +0/−0
fixture/EnableRadius.yaml +10/−0
fixture/EnableSSO.yaml +0/−0
fixture/EnableSSOResponse.proto +0/−0
fixture/EnableSso.yaml +10/−0
fixture/EnableSsoResponse.proto +0/−0
fixture/GetDirectoryLimits.yaml +10/−0
fixture/GetSnapshotLimits.yaml +10/−0
fixture/ListCertificates.yaml +10/−0
fixture/ListCertificatesResponse.proto +0/−0
fixture/ListIPRoutes.yaml +0/−0
fixture/ListIPRoutesResponse.proto +0/−0
fixture/ListIpRoutes.yaml +10/−0
fixture/ListIpRoutesResponse.proto +0/−0
fixture/ListLogSubscriptions.yaml +10/−0
fixture/ListLogSubscriptionsResponse.proto +0/−0
fixture/ListSchemaExtensions.yaml +10/−0
fixture/ListTagsForResource.yaml +10/−0
fixture/RegisterCertificate.yaml +10/−0
fixture/RegisterCertificateResponse.proto +0/−0
fixture/RegisterEventTopic.yaml +10/−0
fixture/RejectSharedDirectory.yaml +10/−0
fixture/RejectSharedDirectoryResponse.proto +0/−0
fixture/RemoveIPRoutes.yaml +0/−0
fixture/RemoveIPRoutesResponse.proto +0/−0
fixture/RemoveIpRoutes.yaml +10/−0
fixture/RemoveIpRoutesResponse.proto +0/−0
fixture/RemoveRegion.yaml +10/−0
fixture/RemoveRegionResponse.proto +0/−0
fixture/RemoveTagsFromResource.yaml +10/−0
fixture/ResetUserPassword.yaml +10/−0
fixture/ResetUserPasswordResponse.proto +0/−0
fixture/RestoreFromSnapshot.yaml +10/−0
fixture/ShareDirectory.yaml +10/−0
fixture/ShareDirectoryResponse.proto +0/−0
fixture/StartSchemaExtension.yaml +10/−0
fixture/UnshareDirectory.yaml +10/−0
fixture/UnshareDirectoryResponse.proto +0/−0
fixture/UpdateConditionalForwarder.yaml +10/−0
fixture/UpdateDirectorySetup.yaml +10/−0
fixture/UpdateDirectorySetupResponse.proto +0/−0
fixture/UpdateRadius.yaml +10/−0
fixture/UpdateSettings.yaml +10/−0
fixture/UpdateSettingsResponse.proto +0/−0
fixture/UpdateTrust.yaml +10/−0
fixture/UpdateTrustResponse.proto +0/−0
fixture/VerifyTrust.yaml +10/−0
gen/Amazonka/DirectoryService.hs +895/−0
gen/Amazonka/DirectoryService/AcceptSharedDirectory.hs +178/−0
gen/Amazonka/DirectoryService/AddIpRoutes.hs +350/−0
gen/Amazonka/DirectoryService/AddRegion.hs +191/−0
gen/Amazonka/DirectoryService/AddTagsToResource.hs +176/−0
gen/Amazonka/DirectoryService/CancelSchemaExtension.hs +183/−0
gen/Amazonka/DirectoryService/ConnectDirectory.hs +278/−0
gen/Amazonka/DirectoryService/CreateAlias.hs +218/−0
gen/Amazonka/DirectoryService/CreateComputer.hs +248/−0
gen/Amazonka/DirectoryService/CreateConditionalForwarder.hs +214/−0
gen/Amazonka/DirectoryService/CreateDirectory.hs +357/−0
gen/Amazonka/DirectoryService/CreateLogSubscription.hs +184/−0
gen/Amazonka/DirectoryService/CreateMicrosoftAD.hs +301/−0
gen/Amazonka/DirectoryService/CreateSnapshot.hs +193/−0
gen/Amazonka/DirectoryService/CreateTrust.hs +296/−0
gen/Amazonka/DirectoryService/DeleteConditionalForwarder.hs +191/−0
gen/Amazonka/DirectoryService/DeleteDirectory.hs +178/−0
gen/Amazonka/DirectoryService/DeleteLogSubscription.hs +157/−0
gen/Amazonka/DirectoryService/DeleteSnapshot.hs +172/−0
gen/Amazonka/DirectoryService/DeleteTrust.hs +191/−0
gen/Amazonka/DirectoryService/DeregisterCertificate.hs +180/−0
gen/Amazonka/DirectoryService/DeregisterEventTopic.hs +188/−0
gen/Amazonka/DirectoryService/DescribeCertificate.hs +196/−0
gen/Amazonka/DirectoryService/DescribeClientAuthenticationSettings.hs +322/−0
gen/Amazonka/DirectoryService/DescribeConditionalForwarders.hs +216/−0
gen/Amazonka/DirectoryService/DescribeDirectories.hs +296/−0
gen/Amazonka/DirectoryService/DescribeDomainControllers.hs +271/−0
gen/Amazonka/DirectoryService/DescribeEventTopics.hs +213/−0
gen/Amazonka/DirectoryService/DescribeLDAPSSettings.hs +263/−0
gen/Amazonka/DirectoryService/DescribeRegions.hs +251/−0
gen/Amazonka/DirectoryService/DescribeSettings.hs +248/−0
gen/Amazonka/DirectoryService/DescribeSharedDirectories.hs +265/−0
gen/Amazonka/DirectoryService/DescribeSnapshots.hs +289/−0
gen/Amazonka/DirectoryService/DescribeTrusts.hs +295/−0
gen/Amazonka/DirectoryService/DescribeUpdateDirectory.hs +266/−0
gen/Amazonka/DirectoryService/DisableClientAuthentication.hs +184/−0
gen/Amazonka/DirectoryService/DisableLDAPS.hs +174/−0
gen/Amazonka/DirectoryService/DisableRadius.hs +159/−0
gen/Amazonka/DirectoryService/DisableSso.hs +215/−0
gen/Amazonka/DirectoryService/EnableClientAuthentication.hs +190/−0
gen/Amazonka/DirectoryService/EnableLDAPS.hs +174/−0
gen/Amazonka/DirectoryService/EnableRadius.hs +181/−0
gen/Amazonka/DirectoryService/EnableSso.hs +218/−0
gen/Amazonka/DirectoryService/GetDirectoryLimits.hs +155/−0
gen/Amazonka/DirectoryService/GetSnapshotLimits.hs +175/−0
gen/Amazonka/DirectoryService/Lens.hs +829/−0
gen/Amazonka/DirectoryService/ListCertificates.hs +254/−0
gen/Amazonka/DirectoryService/ListIpRoutes.hs +248/−0
gen/Amazonka/DirectoryService/ListLogSubscriptions.hs +252/−0
gen/Amazonka/DirectoryService/ListSchemaExtensions.hs +250/−0
gen/Amazonka/DirectoryService/ListTagsForResource.hs +235/−0
gen/Amazonka/DirectoryService/RegisterCertificate.hs +229/−0
gen/Amazonka/DirectoryService/RegisterEventTopic.hs +194/−0
gen/Amazonka/DirectoryService/RejectSharedDirectory.hs +178/−0
gen/Amazonka/DirectoryService/RemoveIpRoutes.hs +174/−0
gen/Amazonka/DirectoryService/RemoveRegion.hs +156/−0
gen/Amazonka/DirectoryService/RemoveTagsFromResource.hs +177/−0
gen/Amazonka/DirectoryService/ResetUserPassword.hs +214/−0
gen/Amazonka/DirectoryService/RestoreFromSnapshot.hs +169/−0
gen/Amazonka/DirectoryService/ShareDirectory.hs +265/−0
gen/Amazonka/DirectoryService/StartSchemaExtension.hs +241/−0
gen/Amazonka/DirectoryService/Types.hs +910/−0
gen/Amazonka/DirectoryService/Types/Attribute.hs +92/−0
gen/Amazonka/DirectoryService/Types/Certificate.hs +168/−0
gen/Amazonka/DirectoryService/Types/CertificateInfo.hs +128/−0
gen/Amazonka/DirectoryService/Types/CertificateState.hs +91/−0
gen/Amazonka/DirectoryService/Types/CertificateType.hs +71/−0
gen/Amazonka/DirectoryService/Types/ClientAuthenticationSettingInfo.hs +123/−0
gen/Amazonka/DirectoryService/Types/ClientAuthenticationStatus.hs +71/−0
gen/Amazonka/DirectoryService/Types/ClientAuthenticationType.hs +71/−0
gen/Amazonka/DirectoryService/Types/ClientCertAuthSettings.hs +83/−0
gen/Amazonka/DirectoryService/Types/Computer.hs +103/−0
gen/Amazonka/DirectoryService/Types/ConditionalForwarder.hs +114/−0
gen/Amazonka/DirectoryService/Types/DirectoryConfigurationStatus.hs +86/−0
gen/Amazonka/DirectoryService/Types/DirectoryConnectSettings.hs +146/−0
gen/Amazonka/DirectoryService/Types/DirectoryConnectSettingsDescription.hs +147/−0
gen/Amazonka/DirectoryService/Types/DirectoryDescription.hs +457/−0
gen/Amazonka/DirectoryService/Types/DirectoryEdition.hs +71/−0
gen/Amazonka/DirectoryService/Types/DirectoryLimits.hs +172/−0
gen/Amazonka/DirectoryService/Types/DirectorySize.hs +71/−0
gen/Amazonka/DirectoryService/Types/DirectoryStage.hs +116/−0
gen/Amazonka/DirectoryService/Types/DirectoryType.hs +81/−0
gen/Amazonka/DirectoryService/Types/DirectoryVpcSettings.hs +102/−0
gen/Amazonka/DirectoryService/Types/DirectoryVpcSettingsDescription.hs +123/−0
gen/Amazonka/DirectoryService/Types/DomainController.hs +183/−0
gen/Amazonka/DirectoryService/Types/DomainControllerStatus.hs +96/−0
gen/Amazonka/DirectoryService/Types/EventTopic.hs +131/−0
gen/Amazonka/DirectoryService/Types/IpRoute.hs +93/−0
gen/Amazonka/DirectoryService/Types/IpRouteInfo.hs +133/−0
gen/Amazonka/DirectoryService/Types/IpRouteStatusMsg.hs +91/−0
gen/Amazonka/DirectoryService/Types/LDAPSSettingInfo.hs +97/−0
gen/Amazonka/DirectoryService/Types/LDAPSStatus.hs +81/−0
gen/Amazonka/DirectoryService/Types/LDAPSType.hs +66/−0
gen/Amazonka/DirectoryService/Types/LogSubscription.hs +100/−0
gen/Amazonka/DirectoryService/Types/OSUpdateSettings.hs +76/−0
gen/Amazonka/DirectoryService/Types/OSVersion.hs +71/−0
gen/Amazonka/DirectoryService/Types/OwnerDirectoryDescription.hs +143/−0
gen/Amazonka/DirectoryService/Types/RadiusAuthenticationProtocol.hs +81/−0
gen/Amazonka/DirectoryService/Types/RadiusSettings.hs +194/−0
gen/Amazonka/DirectoryService/Types/RadiusStatus.hs +76/−0
gen/Amazonka/DirectoryService/Types/RegionDescription.hs +177/−0
gen/Amazonka/DirectoryService/Types/RegionType.hs +71/−0
gen/Amazonka/DirectoryService/Types/RegionsInfo.hs +94/−0
gen/Amazonka/DirectoryService/Types/ReplicationScope.hs +66/−0
gen/Amazonka/DirectoryService/Types/SchemaExtensionInfo.hs +151/−0
gen/Amazonka/DirectoryService/Types/SchemaExtensionStatus.hs +106/−0
gen/Amazonka/DirectoryService/Types/SelectiveAuth.hs +71/−0
gen/Amazonka/DirectoryService/Types/Setting.hs +95/−0
gen/Amazonka/DirectoryService/Types/SettingEntry.hs +206/−0
gen/Amazonka/DirectoryService/Types/ShareMethod.hs +71/−0
gen/Amazonka/DirectoryService/Types/ShareStatus.hs +106/−0
gen/Amazonka/DirectoryService/Types/ShareTarget.hs +84/−0
gen/Amazonka/DirectoryService/Types/SharedDirectory.hs +199/−0
gen/Amazonka/DirectoryService/Types/Snapshot.hs +134/−0
gen/Amazonka/DirectoryService/Types/SnapshotLimits.hs +97/−0
gen/Amazonka/DirectoryService/Types/SnapshotStatus.hs +76/−0
gen/Amazonka/DirectoryService/Types/SnapshotType.hs +71/−0
gen/Amazonka/DirectoryService/Types/Tag.hs +114/−0
gen/Amazonka/DirectoryService/Types/TargetType.hs +66/−0
gen/Amazonka/DirectoryService/Types/TopicStatus.hs +81/−0
gen/Amazonka/DirectoryService/Types/Trust.hs +203/−0
gen/Amazonka/DirectoryService/Types/TrustDirection.hs +76/−0
gen/Amazonka/DirectoryService/Types/TrustState.hs +116/−0
gen/Amazonka/DirectoryService/Types/TrustType.hs +71/−0
gen/Amazonka/DirectoryService/Types/UnshareTarget.hs +85/−0
gen/Amazonka/DirectoryService/Types/UpdateInfoEntry.hs +161/−0
gen/Amazonka/DirectoryService/Types/UpdateStatus.hs +76/−0
gen/Amazonka/DirectoryService/Types/UpdateType.hs +66/−0
gen/Amazonka/DirectoryService/Types/UpdateValue.hs +69/−0
gen/Amazonka/DirectoryService/UnshareDirectory.hs +199/−0
gen/Amazonka/DirectoryService/UpdateConditionalForwarder.hs +210/−0
gen/Amazonka/DirectoryService/UpdateDirectorySetup.hs +214/−0
gen/Amazonka/DirectoryService/UpdateNumberOfDomainControllers.hs +206/−0
gen/Amazonka/DirectoryService/UpdateRadius.hs +183/−0
gen/Amazonka/DirectoryService/UpdateSettings.hs +186/−0
gen/Amazonka/DirectoryService/UpdateTrust.hs +195/−0
gen/Amazonka/DirectoryService/VerifyTrust.hs +174/−0
gen/Amazonka/DirectoryService/Waiters.hs +24/−0
gen/Network/AWS/DirectoryService.hs +0/−507
gen/Network/AWS/DirectoryService/AddIPRoutes.hs +0/−149
gen/Network/AWS/DirectoryService/AddTagsToResource.hs +0/−133
gen/Network/AWS/DirectoryService/CancelSchemaExtension.hs +0/−139
gen/Network/AWS/DirectoryService/ConnectDirectory.hs +0/−199
gen/Network/AWS/DirectoryService/CreateAlias.hs +0/−166
gen/Network/AWS/DirectoryService/CreateComputer.hs +0/−187
gen/Network/AWS/DirectoryService/CreateConditionalForwarder.hs +0/−158
gen/Network/AWS/DirectoryService/CreateDirectory.hs +0/−198
gen/Network/AWS/DirectoryService/CreateMicrosoftAD.hs +0/−198
gen/Network/AWS/DirectoryService/CreateSnapshot.hs +0/−151
gen/Network/AWS/DirectoryService/CreateTrust.hs +0/−202
gen/Network/AWS/DirectoryService/DeleteConditionalForwarder.hs +0/−146
gen/Network/AWS/DirectoryService/DeleteDirectory.hs +0/−143
gen/Network/AWS/DirectoryService/DeleteSnapshot.hs +0/−140
gen/Network/AWS/DirectoryService/DeleteTrust.hs +0/−153
gen/Network/AWS/DirectoryService/DeregisterEventTopic.hs +0/−145
gen/Network/AWS/DirectoryService/DescribeConditionalForwarders.hs +0/−161
gen/Network/AWS/DirectoryService/DescribeDirectories.hs +0/−180
gen/Network/AWS/DirectoryService/DescribeDomainControllers.hs +0/−192
gen/Network/AWS/DirectoryService/DescribeEventTopics.hs +0/−154
gen/Network/AWS/DirectoryService/DescribeSnapshots.hs +0/−190
gen/Network/AWS/DirectoryService/DescribeTrusts.hs +0/−187
gen/Network/AWS/DirectoryService/DisableRadius.hs +0/−130
gen/Network/AWS/DirectoryService/DisableSSO.hs +0/−154
gen/Network/AWS/DirectoryService/EnableRadius.hs +0/−143
gen/Network/AWS/DirectoryService/EnableSSO.hs +0/−154
gen/Network/AWS/DirectoryService/GetDirectoryLimits.hs +0/−129
gen/Network/AWS/DirectoryService/GetSnapshotLimits.hs +0/−141
gen/Network/AWS/DirectoryService/ListIPRoutes.hs +0/−169
gen/Network/AWS/DirectoryService/ListSchemaExtensions.hs +0/−170
gen/Network/AWS/DirectoryService/ListTagsForResource.hs +0/−169
gen/Network/AWS/DirectoryService/RegisterEventTopic.hs +0/−144
gen/Network/AWS/DirectoryService/RemoveIPRoutes.hs +0/−133
gen/Network/AWS/DirectoryService/RemoveTagsFromResource.hs +0/−136
gen/Network/AWS/DirectoryService/RestoreFromSnapshot.hs +0/−136
gen/Network/AWS/DirectoryService/StartSchemaExtension.hs +0/−173
gen/Network/AWS/DirectoryService/Types.hs +0/−433
gen/Network/AWS/DirectoryService/Types/Product.hs +0/−1587
gen/Network/AWS/DirectoryService/Types/Sum.hs +0/−578
gen/Network/AWS/DirectoryService/UpdateConditionalForwarder.hs +0/−158
gen/Network/AWS/DirectoryService/UpdateNumberOfDomainControllers.hs +0/−146
gen/Network/AWS/DirectoryService/UpdateRadius.hs +0/−143
gen/Network/AWS/DirectoryService/VerifyTrust.hs +0/−141
gen/Network/AWS/DirectoryService/Waiters.hs +0/−21
test/Main.hs +11/−9
test/Test/AWS/DirectoryService.hs +0/−26
test/Test/AWS/DirectoryService/Internal.hs +0/−16
test/Test/AWS/Gen/DirectoryService.hs +0/−759
test/Test/Amazonka/DirectoryService.hs +20/−0
test/Test/Amazonka/DirectoryService/Internal.hs +8/−0
test/Test/Amazonka/Gen/DirectoryService.hs +1378/−0

README.md view

@@ -7,9 +7,8 @@   ## Version--`1.6.1`-+ +`2.0` - Derived from API version @2015-04-16@ of the AWS service descriptions, licensed under Apache 2.0.  ## Description @@ -26,7 +25,7 @@ The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core). -See [Network.AWS.DirectoryService](http://hackage.haskell.org/package/amazonka-ds/docs/Network-AWS-DirectoryService.html)+See [Amazonka.DirectoryService](http://hackage.haskell.org/package/amazonka-ds/docs/Amazonka-DirectoryService.html) or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.

− Setup.hs

@@ -1,2 +0,0 @@-import           Distribution.Simple-main = defaultMain

amazonka-ds.cabal view

@@ -1,125 +1,217 @@-name:                  amazonka-ds-version:               1.6.1-synopsis:              Amazon Directory Service SDK.-homepage:              https://github.com/brendanhay/amazonka-bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               MPL-2.0-license-file:          LICENSE-author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2018 Brendan Hay-category:              Network, AWS, Cloud, Distributed Computing-build-type:            Simple-cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep+cabal-version:      2.2+name:               amazonka-ds+version:            2.0+synopsis:           Amazon Directory Service SDK.+homepage:           https://github.com/brendanhay/amazonka+bug-reports:        https://github.com/brendanhay/amazonka/issues+license:            MPL-2.0+license-file:       LICENSE+author:             Brendan Hay+maintainer:+  Brendan Hay <brendan.g.hay+amazonka@gmail.com>, Jack Kelly <jack@jackkelly.name>++copyright:          Copyright (c) 2013-2023 Brendan Hay+category:           AWS+build-type:         Simple+extra-source-files:+  fixture/*.proto+  fixture/*.yaml+  README.md+  src/.gitkeep+ description:-    The types from this library are intended to be used with-    <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information, sending requests,-    and receiving responses.-    .-    Lenses are used for constructing and manipulating types,-    due to the depth of nesting of AWS types and transparency regarding-    de/serialisation into more palatable Haskell values.-    The provided lenses should be compatible with any of the major lens libraries-    such as <http://hackage.haskell.org/package/lens lens> or-    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.-    .-    See "Network.AWS.DirectoryService" or <https://aws.amazon.com/documentation/ the AWS documentation>-    to get started.+  Derived from API version @2015-04-16@ of the AWS service descriptions, licensed under Apache 2.0.+  .+  The types from this library are intended to be used with <http://hackage.haskell.org/package/amazonka amazonka>,+  which provides mechanisms for specifying AuthN/AuthZ information, sending requests, and receiving responses.+  .+  It is recommended to use generic lenses or optics from packages such as <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify optional fields and deconstruct responses.+  .+  Generated lenses can be found in "Amazonka.DirectoryService.Lens" and are+  suitable for use with a lens package such as <http://hackage.haskell.org/package/lens lens> or <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+  .+  See "Amazonka.DirectoryService" and the <https://aws.amazon.com/documentation/ AWS documentation> to get started.  source-repository head-    type:              git-    location:          git://github.com/brendanhay/amazonka.git-    subdir:            amazonka-ds+  type:     git+  location: git://github.com/brendanhay/amazonka.git+  subdir:   amazonka-ds  library-    default-language:  Haskell2010-    hs-source-dirs:    src gen--    ghc-options:-        -Wall-        -fwarn-incomplete-uni-patterns-        -fwarn-incomplete-record-updates-        -funbox-strict-fields--    exposed-modules:-          Network.AWS.DirectoryService-        , Network.AWS.DirectoryService.AddIPRoutes-        , Network.AWS.DirectoryService.AddTagsToResource-        , Network.AWS.DirectoryService.CancelSchemaExtension-        , Network.AWS.DirectoryService.ConnectDirectory-        , Network.AWS.DirectoryService.CreateAlias-        , Network.AWS.DirectoryService.CreateComputer-        , Network.AWS.DirectoryService.CreateConditionalForwarder-        , Network.AWS.DirectoryService.CreateDirectory-        , Network.AWS.DirectoryService.CreateMicrosoftAD-        , Network.AWS.DirectoryService.CreateSnapshot-        , Network.AWS.DirectoryService.CreateTrust-        , Network.AWS.DirectoryService.DeleteConditionalForwarder-        , Network.AWS.DirectoryService.DeleteDirectory-        , Network.AWS.DirectoryService.DeleteSnapshot-        , Network.AWS.DirectoryService.DeleteTrust-        , Network.AWS.DirectoryService.DeregisterEventTopic-        , Network.AWS.DirectoryService.DescribeConditionalForwarders-        , Network.AWS.DirectoryService.DescribeDirectories-        , Network.AWS.DirectoryService.DescribeDomainControllers-        , Network.AWS.DirectoryService.DescribeEventTopics-        , Network.AWS.DirectoryService.DescribeSnapshots-        , Network.AWS.DirectoryService.DescribeTrusts-        , Network.AWS.DirectoryService.DisableRadius-        , Network.AWS.DirectoryService.DisableSSO-        , Network.AWS.DirectoryService.EnableRadius-        , Network.AWS.DirectoryService.EnableSSO-        , Network.AWS.DirectoryService.GetDirectoryLimits-        , Network.AWS.DirectoryService.GetSnapshotLimits-        , Network.AWS.DirectoryService.ListIPRoutes-        , Network.AWS.DirectoryService.ListSchemaExtensions-        , Network.AWS.DirectoryService.ListTagsForResource-        , Network.AWS.DirectoryService.RegisterEventTopic-        , Network.AWS.DirectoryService.RemoveIPRoutes-        , Network.AWS.DirectoryService.RemoveTagsFromResource-        , Network.AWS.DirectoryService.RestoreFromSnapshot-        , Network.AWS.DirectoryService.StartSchemaExtension-        , Network.AWS.DirectoryService.Types-        , Network.AWS.DirectoryService.UpdateConditionalForwarder-        , Network.AWS.DirectoryService.UpdateNumberOfDomainControllers-        , Network.AWS.DirectoryService.UpdateRadius-        , Network.AWS.DirectoryService.VerifyTrust-        , Network.AWS.DirectoryService.Waiters+  default-language: Haskell2010+  hs-source-dirs:   src gen+  ghc-options:+    -Wall -fwarn-incomplete-uni-patterns+    -fwarn-incomplete-record-updates -funbox-strict-fields -    other-modules:-          Network.AWS.DirectoryService.Types.Product-        , Network.AWS.DirectoryService.Types.Sum+  exposed-modules:+    Amazonka.DirectoryService+    Amazonka.DirectoryService.AcceptSharedDirectory+    Amazonka.DirectoryService.AddIpRoutes+    Amazonka.DirectoryService.AddRegion+    Amazonka.DirectoryService.AddTagsToResource+    Amazonka.DirectoryService.CancelSchemaExtension+    Amazonka.DirectoryService.ConnectDirectory+    Amazonka.DirectoryService.CreateAlias+    Amazonka.DirectoryService.CreateComputer+    Amazonka.DirectoryService.CreateConditionalForwarder+    Amazonka.DirectoryService.CreateDirectory+    Amazonka.DirectoryService.CreateLogSubscription+    Amazonka.DirectoryService.CreateMicrosoftAD+    Amazonka.DirectoryService.CreateSnapshot+    Amazonka.DirectoryService.CreateTrust+    Amazonka.DirectoryService.DeleteConditionalForwarder+    Amazonka.DirectoryService.DeleteDirectory+    Amazonka.DirectoryService.DeleteLogSubscription+    Amazonka.DirectoryService.DeleteSnapshot+    Amazonka.DirectoryService.DeleteTrust+    Amazonka.DirectoryService.DeregisterCertificate+    Amazonka.DirectoryService.DeregisterEventTopic+    Amazonka.DirectoryService.DescribeCertificate+    Amazonka.DirectoryService.DescribeClientAuthenticationSettings+    Amazonka.DirectoryService.DescribeConditionalForwarders+    Amazonka.DirectoryService.DescribeDirectories+    Amazonka.DirectoryService.DescribeDomainControllers+    Amazonka.DirectoryService.DescribeEventTopics+    Amazonka.DirectoryService.DescribeLDAPSSettings+    Amazonka.DirectoryService.DescribeRegions+    Amazonka.DirectoryService.DescribeSettings+    Amazonka.DirectoryService.DescribeSharedDirectories+    Amazonka.DirectoryService.DescribeSnapshots+    Amazonka.DirectoryService.DescribeTrusts+    Amazonka.DirectoryService.DescribeUpdateDirectory+    Amazonka.DirectoryService.DisableClientAuthentication+    Amazonka.DirectoryService.DisableLDAPS+    Amazonka.DirectoryService.DisableRadius+    Amazonka.DirectoryService.DisableSso+    Amazonka.DirectoryService.EnableClientAuthentication+    Amazonka.DirectoryService.EnableLDAPS+    Amazonka.DirectoryService.EnableRadius+    Amazonka.DirectoryService.EnableSso+    Amazonka.DirectoryService.GetDirectoryLimits+    Amazonka.DirectoryService.GetSnapshotLimits+    Amazonka.DirectoryService.Lens+    Amazonka.DirectoryService.ListCertificates+    Amazonka.DirectoryService.ListIpRoutes+    Amazonka.DirectoryService.ListLogSubscriptions+    Amazonka.DirectoryService.ListSchemaExtensions+    Amazonka.DirectoryService.ListTagsForResource+    Amazonka.DirectoryService.RegisterCertificate+    Amazonka.DirectoryService.RegisterEventTopic+    Amazonka.DirectoryService.RejectSharedDirectory+    Amazonka.DirectoryService.RemoveIpRoutes+    Amazonka.DirectoryService.RemoveRegion+    Amazonka.DirectoryService.RemoveTagsFromResource+    Amazonka.DirectoryService.ResetUserPassword+    Amazonka.DirectoryService.RestoreFromSnapshot+    Amazonka.DirectoryService.ShareDirectory+    Amazonka.DirectoryService.StartSchemaExtension+    Amazonka.DirectoryService.Types+    Amazonka.DirectoryService.Types.Attribute+    Amazonka.DirectoryService.Types.Certificate+    Amazonka.DirectoryService.Types.CertificateInfo+    Amazonka.DirectoryService.Types.CertificateState+    Amazonka.DirectoryService.Types.CertificateType+    Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo+    Amazonka.DirectoryService.Types.ClientAuthenticationStatus+    Amazonka.DirectoryService.Types.ClientAuthenticationType+    Amazonka.DirectoryService.Types.ClientCertAuthSettings+    Amazonka.DirectoryService.Types.Computer+    Amazonka.DirectoryService.Types.ConditionalForwarder+    Amazonka.DirectoryService.Types.DirectoryConfigurationStatus+    Amazonka.DirectoryService.Types.DirectoryConnectSettings+    Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription+    Amazonka.DirectoryService.Types.DirectoryDescription+    Amazonka.DirectoryService.Types.DirectoryEdition+    Amazonka.DirectoryService.Types.DirectoryLimits+    Amazonka.DirectoryService.Types.DirectorySize+    Amazonka.DirectoryService.Types.DirectoryStage+    Amazonka.DirectoryService.Types.DirectoryType+    Amazonka.DirectoryService.Types.DirectoryVpcSettings+    Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+    Amazonka.DirectoryService.Types.DomainController+    Amazonka.DirectoryService.Types.DomainControllerStatus+    Amazonka.DirectoryService.Types.EventTopic+    Amazonka.DirectoryService.Types.IpRoute+    Amazonka.DirectoryService.Types.IpRouteInfo+    Amazonka.DirectoryService.Types.IpRouteStatusMsg+    Amazonka.DirectoryService.Types.LDAPSSettingInfo+    Amazonka.DirectoryService.Types.LDAPSStatus+    Amazonka.DirectoryService.Types.LDAPSType+    Amazonka.DirectoryService.Types.LogSubscription+    Amazonka.DirectoryService.Types.OSUpdateSettings+    Amazonka.DirectoryService.Types.OSVersion+    Amazonka.DirectoryService.Types.OwnerDirectoryDescription+    Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol+    Amazonka.DirectoryService.Types.RadiusSettings+    Amazonka.DirectoryService.Types.RadiusStatus+    Amazonka.DirectoryService.Types.RegionDescription+    Amazonka.DirectoryService.Types.RegionsInfo+    Amazonka.DirectoryService.Types.RegionType+    Amazonka.DirectoryService.Types.ReplicationScope+    Amazonka.DirectoryService.Types.SchemaExtensionInfo+    Amazonka.DirectoryService.Types.SchemaExtensionStatus+    Amazonka.DirectoryService.Types.SelectiveAuth+    Amazonka.DirectoryService.Types.Setting+    Amazonka.DirectoryService.Types.SettingEntry+    Amazonka.DirectoryService.Types.SharedDirectory+    Amazonka.DirectoryService.Types.ShareMethod+    Amazonka.DirectoryService.Types.ShareStatus+    Amazonka.DirectoryService.Types.ShareTarget+    Amazonka.DirectoryService.Types.Snapshot+    Amazonka.DirectoryService.Types.SnapshotLimits+    Amazonka.DirectoryService.Types.SnapshotStatus+    Amazonka.DirectoryService.Types.SnapshotType+    Amazonka.DirectoryService.Types.Tag+    Amazonka.DirectoryService.Types.TargetType+    Amazonka.DirectoryService.Types.TopicStatus+    Amazonka.DirectoryService.Types.Trust+    Amazonka.DirectoryService.Types.TrustDirection+    Amazonka.DirectoryService.Types.TrustState+    Amazonka.DirectoryService.Types.TrustType+    Amazonka.DirectoryService.Types.UnshareTarget+    Amazonka.DirectoryService.Types.UpdateInfoEntry+    Amazonka.DirectoryService.Types.UpdateStatus+    Amazonka.DirectoryService.Types.UpdateType+    Amazonka.DirectoryService.Types.UpdateValue+    Amazonka.DirectoryService.UnshareDirectory+    Amazonka.DirectoryService.UpdateConditionalForwarder+    Amazonka.DirectoryService.UpdateDirectorySetup+    Amazonka.DirectoryService.UpdateNumberOfDomainControllers+    Amazonka.DirectoryService.UpdateRadius+    Amazonka.DirectoryService.UpdateSettings+    Amazonka.DirectoryService.UpdateTrust+    Amazonka.DirectoryService.VerifyTrust+    Amazonka.DirectoryService.Waiters -    build-depends:-          amazonka-core == 1.6.1.*-        , base          >= 4.7     && < 5+  build-depends:+    , amazonka-core  >=2.0  && <2.1+    , base           >=4.12 && <5  test-suite amazonka-ds-test-    type:              exitcode-stdio-1.0-    default-language:  Haskell2010-    hs-source-dirs:    test-    main-is:           Main.hs--    ghc-options:       -Wall -threaded+  type:             exitcode-stdio-1.0+  default-language: Haskell2010+  hs-source-dirs:   test+  main-is:          Main.hs+  ghc-options:      -Wall -threaded -    -- This section is encoded by the template and any modules added by-    -- hand outside these namespaces will not correctly be added to the-    -- distribution package.-    other-modules:-          Test.AWS.DirectoryService-        , Test.AWS.Gen.DirectoryService-        , Test.AWS.DirectoryService.Internal+  -- This section is encoded by the template and any modules added by+  -- hand outside these namespaces will not correctly be added to the+  -- distribution package.+  other-modules:+    Test.Amazonka.DirectoryService+    Test.Amazonka.DirectoryService.Internal+    Test.Amazonka.Gen.DirectoryService -    build-depends:-          amazonka-core == 1.6.1.*-        , amazonka-test == 1.6.1.*-        , amazonka-ds-        , base-        , bytestring-        , tasty-        , tasty-hunit-        , text-        , time-        , unordered-containers+  build-depends:+    , amazonka-core         >=2.0 && <2.1+    , amazonka-ds+    , amazonka-test         >=2.0 && <2.1+    , base+    , bytestring+    , case-insensitive+    , tasty+    , tasty-hunit+    , text+    , time+    , unordered-containers

+ fixture/AcceptSharedDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/AcceptSharedDirectoryResponse.proto view

− fixture/AddIPRoutes.yaml

− fixture/AddIPRoutesResponse.proto

+ fixture/AddIpRoutes.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/AddIpRoutesResponse.proto view

+ fixture/AddRegion.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/AddRegionResponse.proto view

fixture/AddTagsToResource.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CancelSchemaExtension.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/ConnectDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateAlias.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateComputer.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateConditionalForwarder.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/CreateLogSubscription.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/CreateLogSubscriptionResponse.proto view

fixture/CreateMicrosoftAD.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateSnapshot.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/CreateTrust.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DeleteConditionalForwarder.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DeleteDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DeleteLogSubscription.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DeleteLogSubscriptionResponse.proto view

fixture/DeleteSnapshot.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DeleteTrust.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DeregisterCertificate.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DeregisterCertificateResponse.proto view

fixture/DeregisterEventTopic.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeCertificate.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeCertificateResponse.proto view

+ fixture/DescribeClientAuthenticationSettings.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeClientAuthenticationSettingsResponse.proto view

fixture/DescribeConditionalForwarders.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DescribeDirectories.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DescribeEventTopics.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeLDAPSSettings.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeLDAPSSettingsResponse.proto view

+ fixture/DescribeRegions.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeRegionsResponse.proto view

+ fixture/DescribeSettings.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeSettingsResponse.proto view

+ fixture/DescribeSharedDirectories.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeSharedDirectoriesResponse.proto view

fixture/DescribeSnapshots.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/DescribeTrusts.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeUpdateDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DescribeUpdateDirectoryResponse.proto view

+ fixture/DisableClientAuthentication.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DisableClientAuthenticationResponse.proto view

+ fixture/DisableLDAPS.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DisableLDAPSResponse.proto view

fixture/DisableRadius.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

− fixture/DisableSSO.yaml

− fixture/DisableSSOResponse.proto

+ fixture/DisableSso.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/DisableSsoResponse.proto view

+ fixture/EnableClientAuthentication.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/EnableClientAuthenticationResponse.proto view

+ fixture/EnableLDAPS.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/EnableLDAPSResponse.proto view

fixture/EnableRadius.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

− fixture/EnableSSO.yaml

− fixture/EnableSSOResponse.proto

+ fixture/EnableSso.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/EnableSsoResponse.proto view

fixture/GetDirectoryLimits.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/GetSnapshotLimits.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ListCertificates.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ListCertificatesResponse.proto view

− fixture/ListIPRoutes.yaml

− fixture/ListIPRoutesResponse.proto

+ fixture/ListIpRoutes.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ListIpRoutesResponse.proto view

+ fixture/ListLogSubscriptions.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ListLogSubscriptionsResponse.proto view

fixture/ListSchemaExtensions.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

fixture/ListTagsForResource.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RegisterCertificate.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RegisterCertificateResponse.proto view

fixture/RegisterEventTopic.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RejectSharedDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RejectSharedDirectoryResponse.proto view

− fixture/RemoveIPRoutes.yaml

− fixture/RemoveIPRoutesResponse.proto

+ fixture/RemoveIpRoutes.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RemoveIpRoutesResponse.proto view

+ fixture/RemoveRegion.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/RemoveRegionResponse.proto view

fixture/RemoveTagsFromResource.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ResetUserPassword.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ResetUserPasswordResponse.proto view

fixture/RestoreFromSnapshot.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ShareDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/ShareDirectoryResponse.proto view

fixture/StartSchemaExtension.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UnshareDirectory.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UnshareDirectoryResponse.proto view

fixture/UpdateConditionalForwarder.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UpdateDirectorySetup.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UpdateDirectorySetupResponse.proto view

fixture/UpdateRadius.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UpdateSettings.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UpdateSettingsResponse.proto view

+ fixture/UpdateTrust.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ fixture/UpdateTrustResponse.proto view

fixture/VerifyTrust.yaml view

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ds/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  ds.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

+ gen/Amazonka/DirectoryService.hs view

@@ -0,0 +1,895 @@+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- |+-- Module      : Amazonka.DirectoryService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Derived from API version @2015-04-16@ of the AWS service descriptions, licensed under Apache 2.0.+--+-- Directory Service+--+-- Directory Service is a web service that makes it easy for you to setup+-- and run directories in the Amazon Web Services cloud, or connect your+-- Amazon Web Services resources with an existing self-managed Microsoft+-- Active Directory. This guide provides detailed information about+-- Directory Service operations, data types, parameters, and errors. For+-- information about Directory Services features, see+-- <https://aws.amazon.com/directoryservice/ Directory Service> and the+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/what_is.html Directory Service Administration Guide>.+--+-- Amazon Web Services provides SDKs that consist of libraries and sample+-- code for various programming languages and platforms (Java, Ruby, .Net,+-- iOS, Android, etc.). The SDKs provide a convenient way to create+-- programmatic access to Directory Service and other Amazon Web Services+-- services. For more information about the Amazon Web Services SDKs,+-- including how to download and install them, see+-- <http://aws.amazon.com/tools/ Tools for Amazon Web Services>.+module Amazonka.DirectoryService+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    -- $errors++    -- ** AccessDeniedException+    _AccessDeniedException,++    -- ** AuthenticationFailedException+    _AuthenticationFailedException,++    -- ** CertificateAlreadyExistsException+    _CertificateAlreadyExistsException,++    -- ** CertificateDoesNotExistException+    _CertificateDoesNotExistException,++    -- ** CertificateInUseException+    _CertificateInUseException,++    -- ** CertificateLimitExceededException+    _CertificateLimitExceededException,++    -- ** ClientException+    _ClientException,++    -- ** DirectoryAlreadyInRegionException+    _DirectoryAlreadyInRegionException,++    -- ** DirectoryAlreadySharedException+    _DirectoryAlreadySharedException,++    -- ** DirectoryDoesNotExistException+    _DirectoryDoesNotExistException,++    -- ** DirectoryInDesiredStateException+    _DirectoryInDesiredStateException,++    -- ** DirectoryLimitExceededException+    _DirectoryLimitExceededException,++    -- ** DirectoryNotSharedException+    _DirectoryNotSharedException,++    -- ** DirectoryUnavailableException+    _DirectoryUnavailableException,++    -- ** DomainControllerLimitExceededException+    _DomainControllerLimitExceededException,++    -- ** EntityAlreadyExistsException+    _EntityAlreadyExistsException,++    -- ** EntityDoesNotExistException+    _EntityDoesNotExistException,++    -- ** IncompatibleSettingsException+    _IncompatibleSettingsException,++    -- ** InsufficientPermissionsException+    _InsufficientPermissionsException,++    -- ** InvalidCertificateException+    _InvalidCertificateException,++    -- ** InvalidClientAuthStatusException+    _InvalidClientAuthStatusException,++    -- ** InvalidLDAPSStatusException+    _InvalidLDAPSStatusException,++    -- ** InvalidNextTokenException+    _InvalidNextTokenException,++    -- ** InvalidParameterException+    _InvalidParameterException,++    -- ** InvalidPasswordException+    _InvalidPasswordException,++    -- ** InvalidTargetException+    _InvalidTargetException,++    -- ** IpRouteLimitExceededException+    _IpRouteLimitExceededException,++    -- ** NoAvailableCertificateException+    _NoAvailableCertificateException,++    -- ** OrganizationsException+    _OrganizationsException,++    -- ** RegionLimitExceededException+    _RegionLimitExceededException,++    -- ** ServiceException+    _ServiceException,++    -- ** ShareLimitExceededException+    _ShareLimitExceededException,++    -- ** SnapshotLimitExceededException+    _SnapshotLimitExceededException,++    -- ** TagLimitExceededException+    _TagLimitExceededException,++    -- ** UnsupportedOperationException+    _UnsupportedOperationException,++    -- ** UnsupportedSettingsException+    _UnsupportedSettingsException,++    -- ** UserDoesNotExistException+    _UserDoesNotExistException,++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** AcceptSharedDirectory+    AcceptSharedDirectory (AcceptSharedDirectory'),+    newAcceptSharedDirectory,+    AcceptSharedDirectoryResponse (AcceptSharedDirectoryResponse'),+    newAcceptSharedDirectoryResponse,++    -- ** AddIpRoutes+    AddIpRoutes (AddIpRoutes'),+    newAddIpRoutes,+    AddIpRoutesResponse (AddIpRoutesResponse'),+    newAddIpRoutesResponse,++    -- ** AddRegion+    AddRegion (AddRegion'),+    newAddRegion,+    AddRegionResponse (AddRegionResponse'),+    newAddRegionResponse,++    -- ** AddTagsToResource+    AddTagsToResource (AddTagsToResource'),+    newAddTagsToResource,+    AddTagsToResourceResponse (AddTagsToResourceResponse'),+    newAddTagsToResourceResponse,++    -- ** CancelSchemaExtension+    CancelSchemaExtension (CancelSchemaExtension'),+    newCancelSchemaExtension,+    CancelSchemaExtensionResponse (CancelSchemaExtensionResponse'),+    newCancelSchemaExtensionResponse,++    -- ** ConnectDirectory+    ConnectDirectory (ConnectDirectory'),+    newConnectDirectory,+    ConnectDirectoryResponse (ConnectDirectoryResponse'),+    newConnectDirectoryResponse,++    -- ** CreateAlias+    CreateAlias (CreateAlias'),+    newCreateAlias,+    CreateAliasResponse (CreateAliasResponse'),+    newCreateAliasResponse,++    -- ** CreateComputer+    CreateComputer (CreateComputer'),+    newCreateComputer,+    CreateComputerResponse (CreateComputerResponse'),+    newCreateComputerResponse,++    -- ** CreateConditionalForwarder+    CreateConditionalForwarder (CreateConditionalForwarder'),+    newCreateConditionalForwarder,+    CreateConditionalForwarderResponse (CreateConditionalForwarderResponse'),+    newCreateConditionalForwarderResponse,++    -- ** CreateDirectory+    CreateDirectory (CreateDirectory'),+    newCreateDirectory,+    CreateDirectoryResponse (CreateDirectoryResponse'),+    newCreateDirectoryResponse,++    -- ** CreateLogSubscription+    CreateLogSubscription (CreateLogSubscription'),+    newCreateLogSubscription,+    CreateLogSubscriptionResponse (CreateLogSubscriptionResponse'),+    newCreateLogSubscriptionResponse,++    -- ** CreateMicrosoftAD+    CreateMicrosoftAD (CreateMicrosoftAD'),+    newCreateMicrosoftAD,+    CreateMicrosoftADResponse (CreateMicrosoftADResponse'),+    newCreateMicrosoftADResponse,++    -- ** CreateSnapshot+    CreateSnapshot (CreateSnapshot'),+    newCreateSnapshot,+    CreateSnapshotResponse (CreateSnapshotResponse'),+    newCreateSnapshotResponse,++    -- ** CreateTrust+    CreateTrust (CreateTrust'),+    newCreateTrust,+    CreateTrustResponse (CreateTrustResponse'),+    newCreateTrustResponse,++    -- ** DeleteConditionalForwarder+    DeleteConditionalForwarder (DeleteConditionalForwarder'),+    newDeleteConditionalForwarder,+    DeleteConditionalForwarderResponse (DeleteConditionalForwarderResponse'),+    newDeleteConditionalForwarderResponse,++    -- ** DeleteDirectory+    DeleteDirectory (DeleteDirectory'),+    newDeleteDirectory,+    DeleteDirectoryResponse (DeleteDirectoryResponse'),+    newDeleteDirectoryResponse,++    -- ** DeleteLogSubscription+    DeleteLogSubscription (DeleteLogSubscription'),+    newDeleteLogSubscription,+    DeleteLogSubscriptionResponse (DeleteLogSubscriptionResponse'),+    newDeleteLogSubscriptionResponse,++    -- ** DeleteSnapshot+    DeleteSnapshot (DeleteSnapshot'),+    newDeleteSnapshot,+    DeleteSnapshotResponse (DeleteSnapshotResponse'),+    newDeleteSnapshotResponse,++    -- ** DeleteTrust+    DeleteTrust (DeleteTrust'),+    newDeleteTrust,+    DeleteTrustResponse (DeleteTrustResponse'),+    newDeleteTrustResponse,++    -- ** DeregisterCertificate+    DeregisterCertificate (DeregisterCertificate'),+    newDeregisterCertificate,+    DeregisterCertificateResponse (DeregisterCertificateResponse'),+    newDeregisterCertificateResponse,++    -- ** DeregisterEventTopic+    DeregisterEventTopic (DeregisterEventTopic'),+    newDeregisterEventTopic,+    DeregisterEventTopicResponse (DeregisterEventTopicResponse'),+    newDeregisterEventTopicResponse,++    -- ** DescribeCertificate+    DescribeCertificate (DescribeCertificate'),+    newDescribeCertificate,+    DescribeCertificateResponse (DescribeCertificateResponse'),+    newDescribeCertificateResponse,++    -- ** DescribeClientAuthenticationSettings (Paginated)+    DescribeClientAuthenticationSettings (DescribeClientAuthenticationSettings'),+    newDescribeClientAuthenticationSettings,+    DescribeClientAuthenticationSettingsResponse (DescribeClientAuthenticationSettingsResponse'),+    newDescribeClientAuthenticationSettingsResponse,++    -- ** DescribeConditionalForwarders+    DescribeConditionalForwarders (DescribeConditionalForwarders'),+    newDescribeConditionalForwarders,+    DescribeConditionalForwardersResponse (DescribeConditionalForwardersResponse'),+    newDescribeConditionalForwardersResponse,++    -- ** DescribeDirectories (Paginated)+    DescribeDirectories (DescribeDirectories'),+    newDescribeDirectories,+    DescribeDirectoriesResponse (DescribeDirectoriesResponse'),+    newDescribeDirectoriesResponse,++    -- ** DescribeDomainControllers (Paginated)+    DescribeDomainControllers (DescribeDomainControllers'),+    newDescribeDomainControllers,+    DescribeDomainControllersResponse (DescribeDomainControllersResponse'),+    newDescribeDomainControllersResponse,++    -- ** DescribeEventTopics+    DescribeEventTopics (DescribeEventTopics'),+    newDescribeEventTopics,+    DescribeEventTopicsResponse (DescribeEventTopicsResponse'),+    newDescribeEventTopicsResponse,++    -- ** DescribeLDAPSSettings (Paginated)+    DescribeLDAPSSettings (DescribeLDAPSSettings'),+    newDescribeLDAPSSettings,+    DescribeLDAPSSettingsResponse (DescribeLDAPSSettingsResponse'),+    newDescribeLDAPSSettingsResponse,++    -- ** DescribeRegions (Paginated)+    DescribeRegions (DescribeRegions'),+    newDescribeRegions,+    DescribeRegionsResponse (DescribeRegionsResponse'),+    newDescribeRegionsResponse,++    -- ** DescribeSettings+    DescribeSettings (DescribeSettings'),+    newDescribeSettings,+    DescribeSettingsResponse (DescribeSettingsResponse'),+    newDescribeSettingsResponse,++    -- ** DescribeSharedDirectories (Paginated)+    DescribeSharedDirectories (DescribeSharedDirectories'),+    newDescribeSharedDirectories,+    DescribeSharedDirectoriesResponse (DescribeSharedDirectoriesResponse'),+    newDescribeSharedDirectoriesResponse,++    -- ** DescribeSnapshots (Paginated)+    DescribeSnapshots (DescribeSnapshots'),+    newDescribeSnapshots,+    DescribeSnapshotsResponse (DescribeSnapshotsResponse'),+    newDescribeSnapshotsResponse,++    -- ** DescribeTrusts (Paginated)+    DescribeTrusts (DescribeTrusts'),+    newDescribeTrusts,+    DescribeTrustsResponse (DescribeTrustsResponse'),+    newDescribeTrustsResponse,++    -- ** DescribeUpdateDirectory (Paginated)+    DescribeUpdateDirectory (DescribeUpdateDirectory'),+    newDescribeUpdateDirectory,+    DescribeUpdateDirectoryResponse (DescribeUpdateDirectoryResponse'),+    newDescribeUpdateDirectoryResponse,++    -- ** DisableClientAuthentication+    DisableClientAuthentication (DisableClientAuthentication'),+    newDisableClientAuthentication,+    DisableClientAuthenticationResponse (DisableClientAuthenticationResponse'),+    newDisableClientAuthenticationResponse,++    -- ** DisableLDAPS+    DisableLDAPS (DisableLDAPS'),+    newDisableLDAPS,+    DisableLDAPSResponse (DisableLDAPSResponse'),+    newDisableLDAPSResponse,++    -- ** DisableRadius+    DisableRadius (DisableRadius'),+    newDisableRadius,+    DisableRadiusResponse (DisableRadiusResponse'),+    newDisableRadiusResponse,++    -- ** DisableSso+    DisableSso (DisableSso'),+    newDisableSso,+    DisableSsoResponse (DisableSsoResponse'),+    newDisableSsoResponse,++    -- ** EnableClientAuthentication+    EnableClientAuthentication (EnableClientAuthentication'),+    newEnableClientAuthentication,+    EnableClientAuthenticationResponse (EnableClientAuthenticationResponse'),+    newEnableClientAuthenticationResponse,++    -- ** EnableLDAPS+    EnableLDAPS (EnableLDAPS'),+    newEnableLDAPS,+    EnableLDAPSResponse (EnableLDAPSResponse'),+    newEnableLDAPSResponse,++    -- ** EnableRadius+    EnableRadius (EnableRadius'),+    newEnableRadius,+    EnableRadiusResponse (EnableRadiusResponse'),+    newEnableRadiusResponse,++    -- ** EnableSso+    EnableSso (EnableSso'),+    newEnableSso,+    EnableSsoResponse (EnableSsoResponse'),+    newEnableSsoResponse,++    -- ** GetDirectoryLimits+    GetDirectoryLimits (GetDirectoryLimits'),+    newGetDirectoryLimits,+    GetDirectoryLimitsResponse (GetDirectoryLimitsResponse'),+    newGetDirectoryLimitsResponse,++    -- ** GetSnapshotLimits+    GetSnapshotLimits (GetSnapshotLimits'),+    newGetSnapshotLimits,+    GetSnapshotLimitsResponse (GetSnapshotLimitsResponse'),+    newGetSnapshotLimitsResponse,++    -- ** ListCertificates (Paginated)+    ListCertificates (ListCertificates'),+    newListCertificates,+    ListCertificatesResponse (ListCertificatesResponse'),+    newListCertificatesResponse,++    -- ** ListIpRoutes (Paginated)+    ListIpRoutes (ListIpRoutes'),+    newListIpRoutes,+    ListIpRoutesResponse (ListIpRoutesResponse'),+    newListIpRoutesResponse,++    -- ** ListLogSubscriptions (Paginated)+    ListLogSubscriptions (ListLogSubscriptions'),+    newListLogSubscriptions,+    ListLogSubscriptionsResponse (ListLogSubscriptionsResponse'),+    newListLogSubscriptionsResponse,++    -- ** ListSchemaExtensions (Paginated)+    ListSchemaExtensions (ListSchemaExtensions'),+    newListSchemaExtensions,+    ListSchemaExtensionsResponse (ListSchemaExtensionsResponse'),+    newListSchemaExtensionsResponse,++    -- ** ListTagsForResource (Paginated)+    ListTagsForResource (ListTagsForResource'),+    newListTagsForResource,+    ListTagsForResourceResponse (ListTagsForResourceResponse'),+    newListTagsForResourceResponse,++    -- ** RegisterCertificate+    RegisterCertificate (RegisterCertificate'),+    newRegisterCertificate,+    RegisterCertificateResponse (RegisterCertificateResponse'),+    newRegisterCertificateResponse,++    -- ** RegisterEventTopic+    RegisterEventTopic (RegisterEventTopic'),+    newRegisterEventTopic,+    RegisterEventTopicResponse (RegisterEventTopicResponse'),+    newRegisterEventTopicResponse,++    -- ** RejectSharedDirectory+    RejectSharedDirectory (RejectSharedDirectory'),+    newRejectSharedDirectory,+    RejectSharedDirectoryResponse (RejectSharedDirectoryResponse'),+    newRejectSharedDirectoryResponse,++    -- ** RemoveIpRoutes+    RemoveIpRoutes (RemoveIpRoutes'),+    newRemoveIpRoutes,+    RemoveIpRoutesResponse (RemoveIpRoutesResponse'),+    newRemoveIpRoutesResponse,++    -- ** RemoveRegion+    RemoveRegion (RemoveRegion'),+    newRemoveRegion,+    RemoveRegionResponse (RemoveRegionResponse'),+    newRemoveRegionResponse,++    -- ** RemoveTagsFromResource+    RemoveTagsFromResource (RemoveTagsFromResource'),+    newRemoveTagsFromResource,+    RemoveTagsFromResourceResponse (RemoveTagsFromResourceResponse'),+    newRemoveTagsFromResourceResponse,++    -- ** ResetUserPassword+    ResetUserPassword (ResetUserPassword'),+    newResetUserPassword,+    ResetUserPasswordResponse (ResetUserPasswordResponse'),+    newResetUserPasswordResponse,++    -- ** RestoreFromSnapshot+    RestoreFromSnapshot (RestoreFromSnapshot'),+    newRestoreFromSnapshot,+    RestoreFromSnapshotResponse (RestoreFromSnapshotResponse'),+    newRestoreFromSnapshotResponse,++    -- ** ShareDirectory+    ShareDirectory (ShareDirectory'),+    newShareDirectory,+    ShareDirectoryResponse (ShareDirectoryResponse'),+    newShareDirectoryResponse,++    -- ** StartSchemaExtension+    StartSchemaExtension (StartSchemaExtension'),+    newStartSchemaExtension,+    StartSchemaExtensionResponse (StartSchemaExtensionResponse'),+    newStartSchemaExtensionResponse,++    -- ** UnshareDirectory+    UnshareDirectory (UnshareDirectory'),+    newUnshareDirectory,+    UnshareDirectoryResponse (UnshareDirectoryResponse'),+    newUnshareDirectoryResponse,++    -- ** UpdateConditionalForwarder+    UpdateConditionalForwarder (UpdateConditionalForwarder'),+    newUpdateConditionalForwarder,+    UpdateConditionalForwarderResponse (UpdateConditionalForwarderResponse'),+    newUpdateConditionalForwarderResponse,++    -- ** UpdateDirectorySetup+    UpdateDirectorySetup (UpdateDirectorySetup'),+    newUpdateDirectorySetup,+    UpdateDirectorySetupResponse (UpdateDirectorySetupResponse'),+    newUpdateDirectorySetupResponse,++    -- ** UpdateNumberOfDomainControllers+    UpdateNumberOfDomainControllers (UpdateNumberOfDomainControllers'),+    newUpdateNumberOfDomainControllers,+    UpdateNumberOfDomainControllersResponse (UpdateNumberOfDomainControllersResponse'),+    newUpdateNumberOfDomainControllersResponse,++    -- ** UpdateRadius+    UpdateRadius (UpdateRadius'),+    newUpdateRadius,+    UpdateRadiusResponse (UpdateRadiusResponse'),+    newUpdateRadiusResponse,++    -- ** UpdateSettings+    UpdateSettings (UpdateSettings'),+    newUpdateSettings,+    UpdateSettingsResponse (UpdateSettingsResponse'),+    newUpdateSettingsResponse,++    -- ** UpdateTrust+    UpdateTrust (UpdateTrust'),+    newUpdateTrust,+    UpdateTrustResponse (UpdateTrustResponse'),+    newUpdateTrustResponse,++    -- ** VerifyTrust+    VerifyTrust (VerifyTrust'),+    newVerifyTrust,+    VerifyTrustResponse (VerifyTrustResponse'),+    newVerifyTrustResponse,++    -- * Types++    -- ** CertificateState+    CertificateState (..),++    -- ** CertificateType+    CertificateType (..),++    -- ** ClientAuthenticationStatus+    ClientAuthenticationStatus (..),++    -- ** ClientAuthenticationType+    ClientAuthenticationType (..),++    -- ** DirectoryConfigurationStatus+    DirectoryConfigurationStatus (..),++    -- ** DirectoryEdition+    DirectoryEdition (..),++    -- ** DirectorySize+    DirectorySize (..),++    -- ** DirectoryStage+    DirectoryStage (..),++    -- ** DirectoryType+    DirectoryType (..),++    -- ** DomainControllerStatus+    DomainControllerStatus (..),++    -- ** IpRouteStatusMsg+    IpRouteStatusMsg (..),++    -- ** LDAPSStatus+    LDAPSStatus (..),++    -- ** LDAPSType+    LDAPSType (..),++    -- ** OSVersion+    OSVersion (..),++    -- ** RadiusAuthenticationProtocol+    RadiusAuthenticationProtocol (..),++    -- ** RadiusStatus+    RadiusStatus (..),++    -- ** RegionType+    RegionType (..),++    -- ** ReplicationScope+    ReplicationScope (..),++    -- ** SchemaExtensionStatus+    SchemaExtensionStatus (..),++    -- ** SelectiveAuth+    SelectiveAuth (..),++    -- ** ShareMethod+    ShareMethod (..),++    -- ** ShareStatus+    ShareStatus (..),++    -- ** SnapshotStatus+    SnapshotStatus (..),++    -- ** SnapshotType+    SnapshotType (..),++    -- ** TargetType+    TargetType (..),++    -- ** TopicStatus+    TopicStatus (..),++    -- ** TrustDirection+    TrustDirection (..),++    -- ** TrustState+    TrustState (..),++    -- ** TrustType+    TrustType (..),++    -- ** UpdateStatus+    UpdateStatus (..),++    -- ** UpdateType+    UpdateType (..),++    -- ** Attribute+    Attribute (Attribute'),+    newAttribute,++    -- ** Certificate+    Certificate (Certificate'),+    newCertificate,++    -- ** CertificateInfo+    CertificateInfo (CertificateInfo'),+    newCertificateInfo,++    -- ** ClientAuthenticationSettingInfo+    ClientAuthenticationSettingInfo (ClientAuthenticationSettingInfo'),+    newClientAuthenticationSettingInfo,++    -- ** ClientCertAuthSettings+    ClientCertAuthSettings (ClientCertAuthSettings'),+    newClientCertAuthSettings,++    -- ** Computer+    Computer (Computer'),+    newComputer,++    -- ** ConditionalForwarder+    ConditionalForwarder (ConditionalForwarder'),+    newConditionalForwarder,++    -- ** DirectoryConnectSettings+    DirectoryConnectSettings (DirectoryConnectSettings'),+    newDirectoryConnectSettings,++    -- ** DirectoryConnectSettingsDescription+    DirectoryConnectSettingsDescription (DirectoryConnectSettingsDescription'),+    newDirectoryConnectSettingsDescription,++    -- ** DirectoryDescription+    DirectoryDescription (DirectoryDescription'),+    newDirectoryDescription,++    -- ** DirectoryLimits+    DirectoryLimits (DirectoryLimits'),+    newDirectoryLimits,++    -- ** DirectoryVpcSettings+    DirectoryVpcSettings (DirectoryVpcSettings'),+    newDirectoryVpcSettings,++    -- ** DirectoryVpcSettingsDescription+    DirectoryVpcSettingsDescription (DirectoryVpcSettingsDescription'),+    newDirectoryVpcSettingsDescription,++    -- ** DomainController+    DomainController (DomainController'),+    newDomainController,++    -- ** EventTopic+    EventTopic (EventTopic'),+    newEventTopic,++    -- ** IpRoute+    IpRoute (IpRoute'),+    newIpRoute,++    -- ** IpRouteInfo+    IpRouteInfo (IpRouteInfo'),+    newIpRouteInfo,++    -- ** LDAPSSettingInfo+    LDAPSSettingInfo (LDAPSSettingInfo'),+    newLDAPSSettingInfo,++    -- ** LogSubscription+    LogSubscription (LogSubscription'),+    newLogSubscription,++    -- ** OSUpdateSettings+    OSUpdateSettings (OSUpdateSettings'),+    newOSUpdateSettings,++    -- ** OwnerDirectoryDescription+    OwnerDirectoryDescription (OwnerDirectoryDescription'),+    newOwnerDirectoryDescription,++    -- ** RadiusSettings+    RadiusSettings (RadiusSettings'),+    newRadiusSettings,++    -- ** RegionDescription+    RegionDescription (RegionDescription'),+    newRegionDescription,++    -- ** RegionsInfo+    RegionsInfo (RegionsInfo'),+    newRegionsInfo,++    -- ** SchemaExtensionInfo+    SchemaExtensionInfo (SchemaExtensionInfo'),+    newSchemaExtensionInfo,++    -- ** Setting+    Setting (Setting'),+    newSetting,++    -- ** SettingEntry+    SettingEntry (SettingEntry'),+    newSettingEntry,++    -- ** ShareTarget+    ShareTarget (ShareTarget'),+    newShareTarget,++    -- ** SharedDirectory+    SharedDirectory (SharedDirectory'),+    newSharedDirectory,++    -- ** Snapshot+    Snapshot (Snapshot'),+    newSnapshot,++    -- ** SnapshotLimits+    SnapshotLimits (SnapshotLimits'),+    newSnapshotLimits,++    -- ** Tag+    Tag (Tag'),+    newTag,++    -- ** Trust+    Trust (Trust'),+    newTrust,++    -- ** UnshareTarget+    UnshareTarget (UnshareTarget'),+    newUnshareTarget,++    -- ** UpdateInfoEntry+    UpdateInfoEntry (UpdateInfoEntry'),+    newUpdateInfoEntry,++    -- ** UpdateValue+    UpdateValue (UpdateValue'),+    newUpdateValue,+  )+where++import Amazonka.DirectoryService.AcceptSharedDirectory+import Amazonka.DirectoryService.AddIpRoutes+import Amazonka.DirectoryService.AddRegion+import Amazonka.DirectoryService.AddTagsToResource+import Amazonka.DirectoryService.CancelSchemaExtension+import Amazonka.DirectoryService.ConnectDirectory+import Amazonka.DirectoryService.CreateAlias+import Amazonka.DirectoryService.CreateComputer+import Amazonka.DirectoryService.CreateConditionalForwarder+import Amazonka.DirectoryService.CreateDirectory+import Amazonka.DirectoryService.CreateLogSubscription+import Amazonka.DirectoryService.CreateMicrosoftAD+import Amazonka.DirectoryService.CreateSnapshot+import Amazonka.DirectoryService.CreateTrust+import Amazonka.DirectoryService.DeleteConditionalForwarder+import Amazonka.DirectoryService.DeleteDirectory+import Amazonka.DirectoryService.DeleteLogSubscription+import Amazonka.DirectoryService.DeleteSnapshot+import Amazonka.DirectoryService.DeleteTrust+import Amazonka.DirectoryService.DeregisterCertificate+import Amazonka.DirectoryService.DeregisterEventTopic+import Amazonka.DirectoryService.DescribeCertificate+import Amazonka.DirectoryService.DescribeClientAuthenticationSettings+import Amazonka.DirectoryService.DescribeConditionalForwarders+import Amazonka.DirectoryService.DescribeDirectories+import Amazonka.DirectoryService.DescribeDomainControllers+import Amazonka.DirectoryService.DescribeEventTopics+import Amazonka.DirectoryService.DescribeLDAPSSettings+import Amazonka.DirectoryService.DescribeRegions+import Amazonka.DirectoryService.DescribeSettings+import Amazonka.DirectoryService.DescribeSharedDirectories+import Amazonka.DirectoryService.DescribeSnapshots+import Amazonka.DirectoryService.DescribeTrusts+import Amazonka.DirectoryService.DescribeUpdateDirectory+import Amazonka.DirectoryService.DisableClientAuthentication+import Amazonka.DirectoryService.DisableLDAPS+import Amazonka.DirectoryService.DisableRadius+import Amazonka.DirectoryService.DisableSso+import Amazonka.DirectoryService.EnableClientAuthentication+import Amazonka.DirectoryService.EnableLDAPS+import Amazonka.DirectoryService.EnableRadius+import Amazonka.DirectoryService.EnableSso+import Amazonka.DirectoryService.GetDirectoryLimits+import Amazonka.DirectoryService.GetSnapshotLimits+import Amazonka.DirectoryService.Lens+import Amazonka.DirectoryService.ListCertificates+import Amazonka.DirectoryService.ListIpRoutes+import Amazonka.DirectoryService.ListLogSubscriptions+import Amazonka.DirectoryService.ListSchemaExtensions+import Amazonka.DirectoryService.ListTagsForResource+import Amazonka.DirectoryService.RegisterCertificate+import Amazonka.DirectoryService.RegisterEventTopic+import Amazonka.DirectoryService.RejectSharedDirectory+import Amazonka.DirectoryService.RemoveIpRoutes+import Amazonka.DirectoryService.RemoveRegion+import Amazonka.DirectoryService.RemoveTagsFromResource+import Amazonka.DirectoryService.ResetUserPassword+import Amazonka.DirectoryService.RestoreFromSnapshot+import Amazonka.DirectoryService.ShareDirectory+import Amazonka.DirectoryService.StartSchemaExtension+import Amazonka.DirectoryService.Types+import Amazonka.DirectoryService.UnshareDirectory+import Amazonka.DirectoryService.UpdateConditionalForwarder+import Amazonka.DirectoryService.UpdateDirectorySetup+import Amazonka.DirectoryService.UpdateNumberOfDomainControllers+import Amazonka.DirectoryService.UpdateRadius+import Amazonka.DirectoryService.UpdateSettings+import Amazonka.DirectoryService.UpdateTrust+import Amazonka.DirectoryService.VerifyTrust+import Amazonka.DirectoryService.Waiters++-- $errors+-- Error matchers are designed for use with the functions provided by+-- <http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+-- This allows catching (and rethrowing) service specific errors returned+-- by 'DirectoryService'.++-- $operations+-- Some AWS operations return results that are incomplete and require subsequent+-- requests in order to obtain the entire result set. The process of sending+-- subsequent requests to continue where a previous request left off is called+-- pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+-- 1000 objects at a time, and you must send subsequent requests with the+-- appropriate Marker in order to retrieve the next page of results.+--+-- Operations that have an 'AWSPager' instance can transparently perform subsequent+-- requests, correctly setting Markers and other request facets to iterate through+-- the entire result set of a truncated API operation. Operations which support+-- this have an additional note in the documentation.+--+-- Many operations have the ability to filter results on the server side. See the+-- individual operation parameters for details.++-- $waiters+-- Waiters poll by repeatedly sending a request until some remote success condition+-- configured by the 'Wait' specification is fulfilled. The 'Wait' specification+-- determines how many attempts should be made, in addition to delay and retry strategies.

+ gen/Amazonka/DirectoryService/AcceptSharedDirectory.hs view

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.AcceptSharedDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Accepts a directory sharing request that was sent from the directory+-- owner account.+module Amazonka.DirectoryService.AcceptSharedDirectory+  ( -- * Creating a Request+    AcceptSharedDirectory (..),+    newAcceptSharedDirectory,++    -- * Request Lenses+    acceptSharedDirectory_sharedDirectoryId,++    -- * Destructuring the Response+    AcceptSharedDirectoryResponse (..),+    newAcceptSharedDirectoryResponse,++    -- * Response Lenses+    acceptSharedDirectoryResponse_sharedDirectory,+    acceptSharedDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAcceptSharedDirectory' smart constructor.+data AcceptSharedDirectory = AcceptSharedDirectory'+  { -- | Identifier of the shared directory in the directory consumer account.+    -- This identifier is different for each directory owner account.+    sharedDirectoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptSharedDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectoryId', 'acceptSharedDirectory_sharedDirectoryId' - Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+newAcceptSharedDirectory ::+  -- | 'sharedDirectoryId'+  Prelude.Text ->+  AcceptSharedDirectory+newAcceptSharedDirectory pSharedDirectoryId_ =+  AcceptSharedDirectory'+    { sharedDirectoryId =+        pSharedDirectoryId_+    }++-- | Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+acceptSharedDirectory_sharedDirectoryId :: Lens.Lens' AcceptSharedDirectory Prelude.Text+acceptSharedDirectory_sharedDirectoryId = Lens.lens (\AcceptSharedDirectory' {sharedDirectoryId} -> sharedDirectoryId) (\s@AcceptSharedDirectory' {} a -> s {sharedDirectoryId = a} :: AcceptSharedDirectory)++instance Core.AWSRequest AcceptSharedDirectory where+  type+    AWSResponse AcceptSharedDirectory =+      AcceptSharedDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          AcceptSharedDirectoryResponse'+            Prelude.<$> (x Data..?> "SharedDirectory")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AcceptSharedDirectory where+  hashWithSalt _salt AcceptSharedDirectory' {..} =+    _salt `Prelude.hashWithSalt` sharedDirectoryId++instance Prelude.NFData AcceptSharedDirectory where+  rnf AcceptSharedDirectory' {..} =+    Prelude.rnf sharedDirectoryId++instance Data.ToHeaders AcceptSharedDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.AcceptSharedDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AcceptSharedDirectory where+  toJSON AcceptSharedDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("SharedDirectoryId" Data..= sharedDirectoryId)+          ]+      )++instance Data.ToPath AcceptSharedDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery AcceptSharedDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAcceptSharedDirectoryResponse' smart constructor.+data AcceptSharedDirectoryResponse = AcceptSharedDirectoryResponse'+  { -- | The shared directory in the directory consumer account.+    sharedDirectory :: Prelude.Maybe SharedDirectory,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AcceptSharedDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectory', 'acceptSharedDirectoryResponse_sharedDirectory' - The shared directory in the directory consumer account.+--+-- 'httpStatus', 'acceptSharedDirectoryResponse_httpStatus' - The response's http status code.+newAcceptSharedDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AcceptSharedDirectoryResponse+newAcceptSharedDirectoryResponse pHttpStatus_ =+  AcceptSharedDirectoryResponse'+    { sharedDirectory =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The shared directory in the directory consumer account.+acceptSharedDirectoryResponse_sharedDirectory :: Lens.Lens' AcceptSharedDirectoryResponse (Prelude.Maybe SharedDirectory)+acceptSharedDirectoryResponse_sharedDirectory = Lens.lens (\AcceptSharedDirectoryResponse' {sharedDirectory} -> sharedDirectory) (\s@AcceptSharedDirectoryResponse' {} a -> s {sharedDirectory = a} :: AcceptSharedDirectoryResponse)++-- | The response's http status code.+acceptSharedDirectoryResponse_httpStatus :: Lens.Lens' AcceptSharedDirectoryResponse Prelude.Int+acceptSharedDirectoryResponse_httpStatus = Lens.lens (\AcceptSharedDirectoryResponse' {httpStatus} -> httpStatus) (\s@AcceptSharedDirectoryResponse' {} a -> s {httpStatus = a} :: AcceptSharedDirectoryResponse)++instance Prelude.NFData AcceptSharedDirectoryResponse where+  rnf AcceptSharedDirectoryResponse' {..} =+    Prelude.rnf sharedDirectory+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/AddIpRoutes.hs view

@@ -0,0 +1,350 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.AddIpRoutes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- If the DNS server for your self-managed domain uses a publicly+-- addressable IP address, you must add a CIDR address block to correctly+-- route traffic to and from your Microsoft AD on Amazon Web Services.+-- /AddIpRoutes/ adds this address block. You can also use /AddIpRoutes/ to+-- facilitate routing traffic that uses public IP ranges from your+-- Microsoft AD on Amazon Web Services to a peer VPC.+--+-- Before you call /AddIpRoutes/, ensure that all of the required+-- permissions have been explicitly granted through a policy. For details+-- about what permissions are required to run the /AddIpRoutes/ operation,+-- see+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html Directory Service API Permissions: Actions, Resources, and Conditions Reference>.+module Amazonka.DirectoryService.AddIpRoutes+  ( -- * Creating a Request+    AddIpRoutes (..),+    newAddIpRoutes,++    -- * Request Lenses+    addIpRoutes_updateSecurityGroupForDirectoryControllers,+    addIpRoutes_directoryId,+    addIpRoutes_ipRoutes,++    -- * Destructuring the Response+    AddIpRoutesResponse (..),+    newAddIpRoutesResponse,++    -- * Response Lenses+    addIpRoutesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAddIpRoutes' smart constructor.+data AddIpRoutes = AddIpRoutes'+  { -- | If set to true, updates the inbound and outbound rules of the security+    -- group that has the description: \"Amazon Web Services created security+    -- group for /directory ID/ directory controllers.\" Following are the new+    -- rules:+    --+    -- Inbound:+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: 0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source:+    --     0.0.0.0\/0+    --+    -- -   Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source:+    --     0.0.0.0\/0+    --+    -- -   Type: DNS (UDP), Protocol: UDP, Range: 53, Source: 0.0.0.0\/0+    --+    -- -   Type: DNS (TCP), Protocol: TCP, Range: 53, Source: 0.0.0.0\/0+    --+    -- -   Type: LDAP, Protocol: TCP, Range: 389, Source: 0.0.0.0\/0+    --+    -- -   Type: All ICMP, Protocol: All, Range: N\/A, Source: 0.0.0.0\/0+    --+    -- Outbound:+    --+    -- -   Type: All traffic, Protocol: All, Range: All, Destination:+    --     0.0.0.0\/0+    --+    -- These security rules impact an internal network interface that is not+    -- exposed publicly.+    updateSecurityGroupForDirectoryControllers :: Prelude.Maybe Prelude.Bool,+    -- | Identifier (ID) of the directory to which to add the address block.+    directoryId :: Prelude.Text,+    -- | IP address blocks, using CIDR format, of the traffic to route. This is+    -- often the IP address block of the DNS server used for your self-managed+    -- domain.+    ipRoutes :: [IpRoute]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddIpRoutes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'updateSecurityGroupForDirectoryControllers', 'addIpRoutes_updateSecurityGroupForDirectoryControllers' - If set to true, updates the inbound and outbound rules of the security+-- group that has the description: \"Amazon Web Services created security+-- group for /directory ID/ directory controllers.\" Following are the new+-- rules:+--+-- Inbound:+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source:+--     0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source:+--     0.0.0.0\/0+--+-- -   Type: DNS (UDP), Protocol: UDP, Range: 53, Source: 0.0.0.0\/0+--+-- -   Type: DNS (TCP), Protocol: TCP, Range: 53, Source: 0.0.0.0\/0+--+-- -   Type: LDAP, Protocol: TCP, Range: 389, Source: 0.0.0.0\/0+--+-- -   Type: All ICMP, Protocol: All, Range: N\/A, Source: 0.0.0.0\/0+--+-- Outbound:+--+-- -   Type: All traffic, Protocol: All, Range: All, Destination:+--     0.0.0.0\/0+--+-- These security rules impact an internal network interface that is not+-- exposed publicly.+--+-- 'directoryId', 'addIpRoutes_directoryId' - Identifier (ID) of the directory to which to add the address block.+--+-- 'ipRoutes', 'addIpRoutes_ipRoutes' - IP address blocks, using CIDR format, of the traffic to route. This is+-- often the IP address block of the DNS server used for your self-managed+-- domain.+newAddIpRoutes ::+  -- | 'directoryId'+  Prelude.Text ->+  AddIpRoutes+newAddIpRoutes pDirectoryId_ =+  AddIpRoutes'+    { updateSecurityGroupForDirectoryControllers =+        Prelude.Nothing,+      directoryId = pDirectoryId_,+      ipRoutes = Prelude.mempty+    }++-- | If set to true, updates the inbound and outbound rules of the security+-- group that has the description: \"Amazon Web Services created security+-- group for /directory ID/ directory controllers.\" Following are the new+-- rules:+--+-- Inbound:+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: 0.0.0.0\/0+--+-- -   Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: 0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source:+--     0.0.0.0\/0+--+-- -   Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source:+--     0.0.0.0\/0+--+-- -   Type: DNS (UDP), Protocol: UDP, Range: 53, Source: 0.0.0.0\/0+--+-- -   Type: DNS (TCP), Protocol: TCP, Range: 53, Source: 0.0.0.0\/0+--+-- -   Type: LDAP, Protocol: TCP, Range: 389, Source: 0.0.0.0\/0+--+-- -   Type: All ICMP, Protocol: All, Range: N\/A, Source: 0.0.0.0\/0+--+-- Outbound:+--+-- -   Type: All traffic, Protocol: All, Range: All, Destination:+--     0.0.0.0\/0+--+-- These security rules impact an internal network interface that is not+-- exposed publicly.+addIpRoutes_updateSecurityGroupForDirectoryControllers :: Lens.Lens' AddIpRoutes (Prelude.Maybe Prelude.Bool)+addIpRoutes_updateSecurityGroupForDirectoryControllers = Lens.lens (\AddIpRoutes' {updateSecurityGroupForDirectoryControllers} -> updateSecurityGroupForDirectoryControllers) (\s@AddIpRoutes' {} a -> s {updateSecurityGroupForDirectoryControllers = a} :: AddIpRoutes)++-- | Identifier (ID) of the directory to which to add the address block.+addIpRoutes_directoryId :: Lens.Lens' AddIpRoutes Prelude.Text+addIpRoutes_directoryId = Lens.lens (\AddIpRoutes' {directoryId} -> directoryId) (\s@AddIpRoutes' {} a -> s {directoryId = a} :: AddIpRoutes)++-- | IP address blocks, using CIDR format, of the traffic to route. This is+-- often the IP address block of the DNS server used for your self-managed+-- domain.+addIpRoutes_ipRoutes :: Lens.Lens' AddIpRoutes [IpRoute]+addIpRoutes_ipRoutes = Lens.lens (\AddIpRoutes' {ipRoutes} -> ipRoutes) (\s@AddIpRoutes' {} a -> s {ipRoutes = a} :: AddIpRoutes) Prelude.. Lens.coerced++instance Core.AWSRequest AddIpRoutes where+  type AWSResponse AddIpRoutes = AddIpRoutesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AddIpRoutesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddIpRoutes where+  hashWithSalt _salt AddIpRoutes' {..} =+    _salt+      `Prelude.hashWithSalt` updateSecurityGroupForDirectoryControllers+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` ipRoutes++instance Prelude.NFData AddIpRoutes where+  rnf AddIpRoutes' {..} =+    Prelude.rnf+      updateSecurityGroupForDirectoryControllers+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf ipRoutes++instance Data.ToHeaders AddIpRoutes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.AddIpRoutes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddIpRoutes where+  toJSON AddIpRoutes' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ( "UpdateSecurityGroupForDirectoryControllers"+                Data..=+            )+              Prelude.<$> updateSecurityGroupForDirectoryControllers,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("IpRoutes" Data..= ipRoutes)+          ]+      )++instance Data.ToPath AddIpRoutes where+  toPath = Prelude.const "/"++instance Data.ToQuery AddIpRoutes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAddIpRoutesResponse' smart constructor.+data AddIpRoutesResponse = AddIpRoutesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddIpRoutesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'addIpRoutesResponse_httpStatus' - The response's http status code.+newAddIpRoutesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddIpRoutesResponse+newAddIpRoutesResponse pHttpStatus_ =+  AddIpRoutesResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+addIpRoutesResponse_httpStatus :: Lens.Lens' AddIpRoutesResponse Prelude.Int+addIpRoutesResponse_httpStatus = Lens.lens (\AddIpRoutesResponse' {httpStatus} -> httpStatus) (\s@AddIpRoutesResponse' {} a -> s {httpStatus = a} :: AddIpRoutesResponse)++instance Prelude.NFData AddIpRoutesResponse where+  rnf AddIpRoutesResponse' {..} = Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/AddRegion.hs view

@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.AddRegion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds two domain controllers in the specified Region for the specified+-- directory.+module Amazonka.DirectoryService.AddRegion+  ( -- * Creating a Request+    AddRegion (..),+    newAddRegion,++    -- * Request Lenses+    addRegion_directoryId,+    addRegion_regionName,+    addRegion_vPCSettings,++    -- * Destructuring the Response+    AddRegionResponse (..),+    newAddRegionResponse,++    -- * Response Lenses+    addRegionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAddRegion' smart constructor.+data AddRegion = AddRegion'+  { -- | The identifier of the directory to which you want to add Region+    -- replication.+    directoryId :: Prelude.Text,+    -- | The name of the Region where you want to add domain controllers for+    -- replication. For example, @us-east-1@.+    regionName :: Prelude.Text,+    vPCSettings :: DirectoryVpcSettings+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddRegion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'addRegion_directoryId' - The identifier of the directory to which you want to add Region+-- replication.+--+-- 'regionName', 'addRegion_regionName' - The name of the Region where you want to add domain controllers for+-- replication. For example, @us-east-1@.+--+-- 'vPCSettings', 'addRegion_vPCSettings' - Undocumented member.+newAddRegion ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'regionName'+  Prelude.Text ->+  -- | 'vPCSettings'+  DirectoryVpcSettings ->+  AddRegion+newAddRegion pDirectoryId_ pRegionName_ pVPCSettings_ =+  AddRegion'+    { directoryId = pDirectoryId_,+      regionName = pRegionName_,+      vPCSettings = pVPCSettings_+    }++-- | The identifier of the directory to which you want to add Region+-- replication.+addRegion_directoryId :: Lens.Lens' AddRegion Prelude.Text+addRegion_directoryId = Lens.lens (\AddRegion' {directoryId} -> directoryId) (\s@AddRegion' {} a -> s {directoryId = a} :: AddRegion)++-- | The name of the Region where you want to add domain controllers for+-- replication. For example, @us-east-1@.+addRegion_regionName :: Lens.Lens' AddRegion Prelude.Text+addRegion_regionName = Lens.lens (\AddRegion' {regionName} -> regionName) (\s@AddRegion' {} a -> s {regionName = a} :: AddRegion)++-- | Undocumented member.+addRegion_vPCSettings :: Lens.Lens' AddRegion DirectoryVpcSettings+addRegion_vPCSettings = Lens.lens (\AddRegion' {vPCSettings} -> vPCSettings) (\s@AddRegion' {} a -> s {vPCSettings = a} :: AddRegion)++instance Core.AWSRequest AddRegion where+  type AWSResponse AddRegion = AddRegionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AddRegionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddRegion where+  hashWithSalt _salt AddRegion' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` regionName+      `Prelude.hashWithSalt` vPCSettings++instance Prelude.NFData AddRegion where+  rnf AddRegion' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf regionName+      `Prelude.seq` Prelude.rnf vPCSettings++instance Data.ToHeaders AddRegion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.AddRegion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddRegion where+  toJSON AddRegion' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("RegionName" Data..= regionName),+            Prelude.Just ("VPCSettings" Data..= vPCSettings)+          ]+      )++instance Data.ToPath AddRegion where+  toPath = Prelude.const "/"++instance Data.ToQuery AddRegion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAddRegionResponse' smart constructor.+data AddRegionResponse = AddRegionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddRegionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'addRegionResponse_httpStatus' - The response's http status code.+newAddRegionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddRegionResponse+newAddRegionResponse pHttpStatus_ =+  AddRegionResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+addRegionResponse_httpStatus :: Lens.Lens' AddRegionResponse Prelude.Int+addRegionResponse_httpStatus = Lens.lens (\AddRegionResponse' {httpStatus} -> httpStatus) (\s@AddRegionResponse' {} a -> s {httpStatus = a} :: AddRegionResponse)++instance Prelude.NFData AddRegionResponse where+  rnf AddRegionResponse' {..} = Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/AddTagsToResource.hs view

@@ -0,0 +1,176 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.AddTagsToResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds or overwrites one or more tags for the specified directory. Each+-- directory can have a maximum of 50 tags. Each tag consists of a key and+-- optional value. Tag keys must be unique to each resource.+module Amazonka.DirectoryService.AddTagsToResource+  ( -- * Creating a Request+    AddTagsToResource (..),+    newAddTagsToResource,++    -- * Request Lenses+    addTagsToResource_resourceId,+    addTagsToResource_tags,++    -- * Destructuring the Response+    AddTagsToResourceResponse (..),+    newAddTagsToResourceResponse,++    -- * Response Lenses+    addTagsToResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newAddTagsToResource' smart constructor.+data AddTagsToResource = AddTagsToResource'+  { -- | Identifier (ID) for the directory to which to add the tag.+    resourceId :: Prelude.Text,+    -- | The tags to be assigned to the directory.+    tags :: [Tag]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsToResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceId', 'addTagsToResource_resourceId' - Identifier (ID) for the directory to which to add the tag.+--+-- 'tags', 'addTagsToResource_tags' - The tags to be assigned to the directory.+newAddTagsToResource ::+  -- | 'resourceId'+  Prelude.Text ->+  AddTagsToResource+newAddTagsToResource pResourceId_ =+  AddTagsToResource'+    { resourceId = pResourceId_,+      tags = Prelude.mempty+    }++-- | Identifier (ID) for the directory to which to add the tag.+addTagsToResource_resourceId :: Lens.Lens' AddTagsToResource Prelude.Text+addTagsToResource_resourceId = Lens.lens (\AddTagsToResource' {resourceId} -> resourceId) (\s@AddTagsToResource' {} a -> s {resourceId = a} :: AddTagsToResource)++-- | The tags to be assigned to the directory.+addTagsToResource_tags :: Lens.Lens' AddTagsToResource [Tag]+addTagsToResource_tags = Lens.lens (\AddTagsToResource' {tags} -> tags) (\s@AddTagsToResource' {} a -> s {tags = a} :: AddTagsToResource) Prelude.. Lens.coerced++instance Core.AWSRequest AddTagsToResource where+  type+    AWSResponse AddTagsToResource =+      AddTagsToResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          AddTagsToResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable AddTagsToResource where+  hashWithSalt _salt AddTagsToResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` tags++instance Prelude.NFData AddTagsToResource where+  rnf AddTagsToResource' {..} =+    Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf tags++instance Data.ToHeaders AddTagsToResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.AddTagsToResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON AddTagsToResource where+  toJSON AddTagsToResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just ("Tags" Data..= tags)+          ]+      )++instance Data.ToPath AddTagsToResource where+  toPath = Prelude.const "/"++instance Data.ToQuery AddTagsToResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newAddTagsToResourceResponse' smart constructor.+data AddTagsToResourceResponse = AddTagsToResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'AddTagsToResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'addTagsToResourceResponse_httpStatus' - The response's http status code.+newAddTagsToResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  AddTagsToResourceResponse+newAddTagsToResourceResponse pHttpStatus_ =+  AddTagsToResourceResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+addTagsToResourceResponse_httpStatus :: Lens.Lens' AddTagsToResourceResponse Prelude.Int+addTagsToResourceResponse_httpStatus = Lens.lens (\AddTagsToResourceResponse' {httpStatus} -> httpStatus) (\s@AddTagsToResourceResponse' {} a -> s {httpStatus = a} :: AddTagsToResourceResponse)++instance Prelude.NFData AddTagsToResourceResponse where+  rnf AddTagsToResourceResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CancelSchemaExtension.hs view

@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CancelSchemaExtension+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Cancels an in-progress schema extension to a Microsoft AD directory.+-- Once a schema extension has started replicating to all domain+-- controllers, the task can no longer be canceled. A schema extension can+-- be canceled during any of the following states; @Initializing@,+-- @CreatingSnapshot@, and @UpdatingSchema@.+module Amazonka.DirectoryService.CancelSchemaExtension+  ( -- * Creating a Request+    CancelSchemaExtension (..),+    newCancelSchemaExtension,++    -- * Request Lenses+    cancelSchemaExtension_directoryId,+    cancelSchemaExtension_schemaExtensionId,++    -- * Destructuring the Response+    CancelSchemaExtensionResponse (..),+    newCancelSchemaExtensionResponse,++    -- * Response Lenses+    cancelSchemaExtensionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCancelSchemaExtension' smart constructor.+data CancelSchemaExtension = CancelSchemaExtension'+  { -- | The identifier of the directory whose schema extension will be canceled.+    directoryId :: Prelude.Text,+    -- | The identifier of the schema extension that will be canceled.+    schemaExtensionId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelSchemaExtension' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'cancelSchemaExtension_directoryId' - The identifier of the directory whose schema extension will be canceled.+--+-- 'schemaExtensionId', 'cancelSchemaExtension_schemaExtensionId' - The identifier of the schema extension that will be canceled.+newCancelSchemaExtension ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'schemaExtensionId'+  Prelude.Text ->+  CancelSchemaExtension+newCancelSchemaExtension+  pDirectoryId_+  pSchemaExtensionId_ =+    CancelSchemaExtension'+      { directoryId = pDirectoryId_,+        schemaExtensionId = pSchemaExtensionId_+      }++-- | The identifier of the directory whose schema extension will be canceled.+cancelSchemaExtension_directoryId :: Lens.Lens' CancelSchemaExtension Prelude.Text+cancelSchemaExtension_directoryId = Lens.lens (\CancelSchemaExtension' {directoryId} -> directoryId) (\s@CancelSchemaExtension' {} a -> s {directoryId = a} :: CancelSchemaExtension)++-- | The identifier of the schema extension that will be canceled.+cancelSchemaExtension_schemaExtensionId :: Lens.Lens' CancelSchemaExtension Prelude.Text+cancelSchemaExtension_schemaExtensionId = Lens.lens (\CancelSchemaExtension' {schemaExtensionId} -> schemaExtensionId) (\s@CancelSchemaExtension' {} a -> s {schemaExtensionId = a} :: CancelSchemaExtension)++instance Core.AWSRequest CancelSchemaExtension where+  type+    AWSResponse CancelSchemaExtension =+      CancelSchemaExtensionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CancelSchemaExtensionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CancelSchemaExtension where+  hashWithSalt _salt CancelSchemaExtension' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` schemaExtensionId++instance Prelude.NFData CancelSchemaExtension where+  rnf CancelSchemaExtension' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf schemaExtensionId++instance Data.ToHeaders CancelSchemaExtension where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CancelSchemaExtension" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CancelSchemaExtension where+  toJSON CancelSchemaExtension' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("SchemaExtensionId" Data..= schemaExtensionId)+          ]+      )++instance Data.ToPath CancelSchemaExtension where+  toPath = Prelude.const "/"++instance Data.ToQuery CancelSchemaExtension where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCancelSchemaExtensionResponse' smart constructor.+data CancelSchemaExtensionResponse = CancelSchemaExtensionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CancelSchemaExtensionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'cancelSchemaExtensionResponse_httpStatus' - The response's http status code.+newCancelSchemaExtensionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CancelSchemaExtensionResponse+newCancelSchemaExtensionResponse pHttpStatus_ =+  CancelSchemaExtensionResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+cancelSchemaExtensionResponse_httpStatus :: Lens.Lens' CancelSchemaExtensionResponse Prelude.Int+cancelSchemaExtensionResponse_httpStatus = Lens.lens (\CancelSchemaExtensionResponse' {httpStatus} -> httpStatus) (\s@CancelSchemaExtensionResponse' {} a -> s {httpStatus = a} :: CancelSchemaExtensionResponse)++instance Prelude.NFData CancelSchemaExtensionResponse where+  rnf CancelSchemaExtensionResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ConnectDirectory.hs view

@@ -0,0 +1,278 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ConnectDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an AD Connector to connect to a self-managed directory.+--+-- Before you call @ConnectDirectory@, ensure that all of the required+-- permissions have been explicitly granted through a policy. For details+-- about what permissions are required to run the @ConnectDirectory@+-- operation, see+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html Directory Service API Permissions: Actions, Resources, and Conditions Reference>.+module Amazonka.DirectoryService.ConnectDirectory+  ( -- * Creating a Request+    ConnectDirectory (..),+    newConnectDirectory,++    -- * Request Lenses+    connectDirectory_description,+    connectDirectory_shortName,+    connectDirectory_tags,+    connectDirectory_name,+    connectDirectory_password,+    connectDirectory_size,+    connectDirectory_connectSettings,++    -- * Destructuring the Response+    ConnectDirectoryResponse (..),+    newConnectDirectoryResponse,++    -- * Response Lenses+    connectDirectoryResponse_directoryId,+    connectDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the ConnectDirectory operation.+--+-- /See:/ 'newConnectDirectory' smart constructor.+data ConnectDirectory = ConnectDirectory'+  { -- | A description for the directory.+    description :: Prelude.Maybe Prelude.Text,+    -- | The NetBIOS name of your self-managed directory, such as @CORP@.+    shortName :: Prelude.Maybe Prelude.Text,+    -- | The tags to be assigned to AD Connector.+    tags :: Prelude.Maybe [Tag],+    -- | The fully qualified name of your self-managed directory, such as+    -- @corp.example.com@.+    name :: Prelude.Text,+    -- | The password for your self-managed user account.+    password :: Data.Sensitive Prelude.Text,+    -- | The size of the directory.+    size :: DirectorySize,+    -- | A DirectoryConnectSettings object that contains additional information+    -- for the operation.+    connectSettings :: DirectoryConnectSettings+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConnectDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'connectDirectory_description' - A description for the directory.+--+-- 'shortName', 'connectDirectory_shortName' - The NetBIOS name of your self-managed directory, such as @CORP@.+--+-- 'tags', 'connectDirectory_tags' - The tags to be assigned to AD Connector.+--+-- 'name', 'connectDirectory_name' - The fully qualified name of your self-managed directory, such as+-- @corp.example.com@.+--+-- 'password', 'connectDirectory_password' - The password for your self-managed user account.+--+-- 'size', 'connectDirectory_size' - The size of the directory.+--+-- 'connectSettings', 'connectDirectory_connectSettings' - A DirectoryConnectSettings object that contains additional information+-- for the operation.+newConnectDirectory ::+  -- | 'name'+  Prelude.Text ->+  -- | 'password'+  Prelude.Text ->+  -- | 'size'+  DirectorySize ->+  -- | 'connectSettings'+  DirectoryConnectSettings ->+  ConnectDirectory+newConnectDirectory+  pName_+  pPassword_+  pSize_+  pConnectSettings_ =+    ConnectDirectory'+      { description = Prelude.Nothing,+        shortName = Prelude.Nothing,+        tags = Prelude.Nothing,+        name = pName_,+        password = Data._Sensitive Lens.# pPassword_,+        size = pSize_,+        connectSettings = pConnectSettings_+      }++-- | A description for the directory.+connectDirectory_description :: Lens.Lens' ConnectDirectory (Prelude.Maybe Prelude.Text)+connectDirectory_description = Lens.lens (\ConnectDirectory' {description} -> description) (\s@ConnectDirectory' {} a -> s {description = a} :: ConnectDirectory)++-- | The NetBIOS name of your self-managed directory, such as @CORP@.+connectDirectory_shortName :: Lens.Lens' ConnectDirectory (Prelude.Maybe Prelude.Text)+connectDirectory_shortName = Lens.lens (\ConnectDirectory' {shortName} -> shortName) (\s@ConnectDirectory' {} a -> s {shortName = a} :: ConnectDirectory)++-- | The tags to be assigned to AD Connector.+connectDirectory_tags :: Lens.Lens' ConnectDirectory (Prelude.Maybe [Tag])+connectDirectory_tags = Lens.lens (\ConnectDirectory' {tags} -> tags) (\s@ConnectDirectory' {} a -> s {tags = a} :: ConnectDirectory) Prelude.. Lens.mapping Lens.coerced++-- | The fully qualified name of your self-managed directory, such as+-- @corp.example.com@.+connectDirectory_name :: Lens.Lens' ConnectDirectory Prelude.Text+connectDirectory_name = Lens.lens (\ConnectDirectory' {name} -> name) (\s@ConnectDirectory' {} a -> s {name = a} :: ConnectDirectory)++-- | The password for your self-managed user account.+connectDirectory_password :: Lens.Lens' ConnectDirectory Prelude.Text+connectDirectory_password = Lens.lens (\ConnectDirectory' {password} -> password) (\s@ConnectDirectory' {} a -> s {password = a} :: ConnectDirectory) Prelude.. Data._Sensitive++-- | The size of the directory.+connectDirectory_size :: Lens.Lens' ConnectDirectory DirectorySize+connectDirectory_size = Lens.lens (\ConnectDirectory' {size} -> size) (\s@ConnectDirectory' {} a -> s {size = a} :: ConnectDirectory)++-- | A DirectoryConnectSettings object that contains additional information+-- for the operation.+connectDirectory_connectSettings :: Lens.Lens' ConnectDirectory DirectoryConnectSettings+connectDirectory_connectSettings = Lens.lens (\ConnectDirectory' {connectSettings} -> connectSettings) (\s@ConnectDirectory' {} a -> s {connectSettings = a} :: ConnectDirectory)++instance Core.AWSRequest ConnectDirectory where+  type+    AWSResponse ConnectDirectory =+      ConnectDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ConnectDirectoryResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ConnectDirectory where+  hashWithSalt _salt ConnectDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` shortName+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` password+      `Prelude.hashWithSalt` size+      `Prelude.hashWithSalt` connectSettings++instance Prelude.NFData ConnectDirectory where+  rnf ConnectDirectory' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf shortName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf password+      `Prelude.seq` Prelude.rnf size+      `Prelude.seq` Prelude.rnf connectSettings++instance Data.ToHeaders ConnectDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ConnectDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ConnectDirectory where+  toJSON ConnectDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("ShortName" Data..=) Prelude.<$> shortName,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Password" Data..= password),+            Prelude.Just ("Size" Data..= size),+            Prelude.Just+              ("ConnectSettings" Data..= connectSettings)+          ]+      )++instance Data.ToPath ConnectDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery ConnectDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the ConnectDirectory operation.+--+-- /See:/ 'newConnectDirectoryResponse' smart constructor.+data ConnectDirectoryResponse = ConnectDirectoryResponse'+  { -- | The identifier of the new directory.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConnectDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'connectDirectoryResponse_directoryId' - The identifier of the new directory.+--+-- 'httpStatus', 'connectDirectoryResponse_httpStatus' - The response's http status code.+newConnectDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ConnectDirectoryResponse+newConnectDirectoryResponse pHttpStatus_ =+  ConnectDirectoryResponse'+    { directoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the new directory.+connectDirectoryResponse_directoryId :: Lens.Lens' ConnectDirectoryResponse (Prelude.Maybe Prelude.Text)+connectDirectoryResponse_directoryId = Lens.lens (\ConnectDirectoryResponse' {directoryId} -> directoryId) (\s@ConnectDirectoryResponse' {} a -> s {directoryId = a} :: ConnectDirectoryResponse)++-- | The response's http status code.+connectDirectoryResponse_httpStatus :: Lens.Lens' ConnectDirectoryResponse Prelude.Int+connectDirectoryResponse_httpStatus = Lens.lens (\ConnectDirectoryResponse' {httpStatus} -> httpStatus) (\s@ConnectDirectoryResponse' {} a -> s {httpStatus = a} :: ConnectDirectoryResponse)++instance Prelude.NFData ConnectDirectoryResponse where+  rnf ConnectDirectoryResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateAlias.hs view

@@ -0,0 +1,218 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateAlias+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an alias for a directory and assigns the alias to the directory.+-- The alias is used to construct the access URL for the directory, such as+-- @http:\/\/\<alias>.awsapps.com@.+--+-- After an alias has been created, it cannot be deleted or reused, so this+-- operation should only be used when absolutely necessary.+module Amazonka.DirectoryService.CreateAlias+  ( -- * Creating a Request+    CreateAlias (..),+    newCreateAlias,++    -- * Request Lenses+    createAlias_directoryId,+    createAlias_alias,++    -- * Destructuring the Response+    CreateAliasResponse (..),+    newCreateAliasResponse,++    -- * Response Lenses+    createAliasResponse_alias,+    createAliasResponse_directoryId,+    createAliasResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the CreateAlias operation.+--+-- /See:/ 'newCreateAlias' smart constructor.+data CreateAlias = CreateAlias'+  { -- | The identifier of the directory for which to create the alias.+    directoryId :: Prelude.Text,+    -- | The requested alias.+    --+    -- The alias must be unique amongst all aliases in Amazon Web Services.+    -- This operation throws an @EntityAlreadyExistsException@ error if the+    -- alias already exists.+    alias :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAlias' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'createAlias_directoryId' - The identifier of the directory for which to create the alias.+--+-- 'alias', 'createAlias_alias' - The requested alias.+--+-- The alias must be unique amongst all aliases in Amazon Web Services.+-- This operation throws an @EntityAlreadyExistsException@ error if the+-- alias already exists.+newCreateAlias ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'alias'+  Prelude.Text ->+  CreateAlias+newCreateAlias pDirectoryId_ pAlias_ =+  CreateAlias'+    { directoryId = pDirectoryId_,+      alias = pAlias_+    }++-- | The identifier of the directory for which to create the alias.+createAlias_directoryId :: Lens.Lens' CreateAlias Prelude.Text+createAlias_directoryId = Lens.lens (\CreateAlias' {directoryId} -> directoryId) (\s@CreateAlias' {} a -> s {directoryId = a} :: CreateAlias)++-- | The requested alias.+--+-- The alias must be unique amongst all aliases in Amazon Web Services.+-- This operation throws an @EntityAlreadyExistsException@ error if the+-- alias already exists.+createAlias_alias :: Lens.Lens' CreateAlias Prelude.Text+createAlias_alias = Lens.lens (\CreateAlias' {alias} -> alias) (\s@CreateAlias' {} a -> s {alias = a} :: CreateAlias)++instance Core.AWSRequest CreateAlias where+  type AWSResponse CreateAlias = CreateAliasResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateAliasResponse'+            Prelude.<$> (x Data..?> "Alias")+            Prelude.<*> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateAlias where+  hashWithSalt _salt CreateAlias' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` alias++instance Prelude.NFData CreateAlias where+  rnf CreateAlias' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf alias++instance Data.ToHeaders CreateAlias where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateAlias" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateAlias where+  toJSON CreateAlias' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Alias" Data..= alias)+          ]+      )++instance Data.ToPath CreateAlias where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateAlias where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the CreateAlias operation.+--+-- /See:/ 'newCreateAliasResponse' smart constructor.+data CreateAliasResponse = CreateAliasResponse'+  { -- | The alias for the directory.+    alias :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateAliasResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'alias', 'createAliasResponse_alias' - The alias for the directory.+--+-- 'directoryId', 'createAliasResponse_directoryId' - The identifier of the directory.+--+-- 'httpStatus', 'createAliasResponse_httpStatus' - The response's http status code.+newCreateAliasResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateAliasResponse+newCreateAliasResponse pHttpStatus_ =+  CreateAliasResponse'+    { alias = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The alias for the directory.+createAliasResponse_alias :: Lens.Lens' CreateAliasResponse (Prelude.Maybe Prelude.Text)+createAliasResponse_alias = Lens.lens (\CreateAliasResponse' {alias} -> alias) (\s@CreateAliasResponse' {} a -> s {alias = a} :: CreateAliasResponse)++-- | The identifier of the directory.+createAliasResponse_directoryId :: Lens.Lens' CreateAliasResponse (Prelude.Maybe Prelude.Text)+createAliasResponse_directoryId = Lens.lens (\CreateAliasResponse' {directoryId} -> directoryId) (\s@CreateAliasResponse' {} a -> s {directoryId = a} :: CreateAliasResponse)++-- | The response's http status code.+createAliasResponse_httpStatus :: Lens.Lens' CreateAliasResponse Prelude.Int+createAliasResponse_httpStatus = Lens.lens (\CreateAliasResponse' {httpStatus} -> httpStatus) (\s@CreateAliasResponse' {} a -> s {httpStatus = a} :: CreateAliasResponse)++instance Prelude.NFData CreateAliasResponse where+  rnf CreateAliasResponse' {..} =+    Prelude.rnf alias+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateComputer.hs view

@@ -0,0 +1,248 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateComputer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an Active Directory computer object in the specified directory.+module Amazonka.DirectoryService.CreateComputer+  ( -- * Creating a Request+    CreateComputer (..),+    newCreateComputer,++    -- * Request Lenses+    createComputer_computerAttributes,+    createComputer_organizationalUnitDistinguishedName,+    createComputer_directoryId,+    createComputer_computerName,+    createComputer_password,++    -- * Destructuring the Response+    CreateComputerResponse (..),+    newCreateComputerResponse,++    -- * Response Lenses+    createComputerResponse_computer,+    createComputerResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the CreateComputer operation.+--+-- /See:/ 'newCreateComputer' smart constructor.+data CreateComputer = CreateComputer'+  { -- | An array of Attribute objects that contain any LDAP attributes to apply+    -- to the computer account.+    computerAttributes :: Prelude.Maybe [Attribute],+    -- | The fully-qualified distinguished name of the organizational unit to+    -- place the computer account in.+    organizationalUnitDistinguishedName :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory in which to create the computer account.+    directoryId :: Prelude.Text,+    -- | The name of the computer account.+    computerName :: Prelude.Text,+    -- | A one-time password that is used to join the computer to the directory.+    -- You should generate a random, strong password to use for this parameter.+    password :: Data.Sensitive Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateComputer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'computerAttributes', 'createComputer_computerAttributes' - An array of Attribute objects that contain any LDAP attributes to apply+-- to the computer account.+--+-- 'organizationalUnitDistinguishedName', 'createComputer_organizationalUnitDistinguishedName' - The fully-qualified distinguished name of the organizational unit to+-- place the computer account in.+--+-- 'directoryId', 'createComputer_directoryId' - The identifier of the directory in which to create the computer account.+--+-- 'computerName', 'createComputer_computerName' - The name of the computer account.+--+-- 'password', 'createComputer_password' - A one-time password that is used to join the computer to the directory.+-- You should generate a random, strong password to use for this parameter.+newCreateComputer ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'computerName'+  Prelude.Text ->+  -- | 'password'+  Prelude.Text ->+  CreateComputer+newCreateComputer+  pDirectoryId_+  pComputerName_+  pPassword_ =+    CreateComputer'+      { computerAttributes =+          Prelude.Nothing,+        organizationalUnitDistinguishedName =+          Prelude.Nothing,+        directoryId = pDirectoryId_,+        computerName = pComputerName_,+        password = Data._Sensitive Lens.# pPassword_+      }++-- | An array of Attribute objects that contain any LDAP attributes to apply+-- to the computer account.+createComputer_computerAttributes :: Lens.Lens' CreateComputer (Prelude.Maybe [Attribute])+createComputer_computerAttributes = Lens.lens (\CreateComputer' {computerAttributes} -> computerAttributes) (\s@CreateComputer' {} a -> s {computerAttributes = a} :: CreateComputer) Prelude.. Lens.mapping Lens.coerced++-- | The fully-qualified distinguished name of the organizational unit to+-- place the computer account in.+createComputer_organizationalUnitDistinguishedName :: Lens.Lens' CreateComputer (Prelude.Maybe Prelude.Text)+createComputer_organizationalUnitDistinguishedName = Lens.lens (\CreateComputer' {organizationalUnitDistinguishedName} -> organizationalUnitDistinguishedName) (\s@CreateComputer' {} a -> s {organizationalUnitDistinguishedName = a} :: CreateComputer)++-- | The identifier of the directory in which to create the computer account.+createComputer_directoryId :: Lens.Lens' CreateComputer Prelude.Text+createComputer_directoryId = Lens.lens (\CreateComputer' {directoryId} -> directoryId) (\s@CreateComputer' {} a -> s {directoryId = a} :: CreateComputer)++-- | The name of the computer account.+createComputer_computerName :: Lens.Lens' CreateComputer Prelude.Text+createComputer_computerName = Lens.lens (\CreateComputer' {computerName} -> computerName) (\s@CreateComputer' {} a -> s {computerName = a} :: CreateComputer)++-- | A one-time password that is used to join the computer to the directory.+-- You should generate a random, strong password to use for this parameter.+createComputer_password :: Lens.Lens' CreateComputer Prelude.Text+createComputer_password = Lens.lens (\CreateComputer' {password} -> password) (\s@CreateComputer' {} a -> s {password = a} :: CreateComputer) Prelude.. Data._Sensitive++instance Core.AWSRequest CreateComputer where+  type+    AWSResponse CreateComputer =+      CreateComputerResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateComputerResponse'+            Prelude.<$> (x Data..?> "Computer")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateComputer where+  hashWithSalt _salt CreateComputer' {..} =+    _salt+      `Prelude.hashWithSalt` computerAttributes+      `Prelude.hashWithSalt` organizationalUnitDistinguishedName+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` computerName+      `Prelude.hashWithSalt` password++instance Prelude.NFData CreateComputer where+  rnf CreateComputer' {..} =+    Prelude.rnf computerAttributes+      `Prelude.seq` Prelude.rnf organizationalUnitDistinguishedName+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf computerName+      `Prelude.seq` Prelude.rnf password++instance Data.ToHeaders CreateComputer where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateComputer" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateComputer where+  toJSON CreateComputer' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ComputerAttributes" Data..=)+              Prelude.<$> computerAttributes,+            ("OrganizationalUnitDistinguishedName" Data..=)+              Prelude.<$> organizationalUnitDistinguishedName,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("ComputerName" Data..= computerName),+            Prelude.Just ("Password" Data..= password)+          ]+      )++instance Data.ToPath CreateComputer where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateComputer where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results for the CreateComputer operation.+--+-- /See:/ 'newCreateComputerResponse' smart constructor.+data CreateComputerResponse = CreateComputerResponse'+  { -- | A Computer object that represents the computer account.+    computer :: Prelude.Maybe Computer,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateComputerResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'computer', 'createComputerResponse_computer' - A Computer object that represents the computer account.+--+-- 'httpStatus', 'createComputerResponse_httpStatus' - The response's http status code.+newCreateComputerResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateComputerResponse+newCreateComputerResponse pHttpStatus_ =+  CreateComputerResponse'+    { computer = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A Computer object that represents the computer account.+createComputerResponse_computer :: Lens.Lens' CreateComputerResponse (Prelude.Maybe Computer)+createComputerResponse_computer = Lens.lens (\CreateComputerResponse' {computer} -> computer) (\s@CreateComputerResponse' {} a -> s {computer = a} :: CreateComputerResponse)++-- | The response's http status code.+createComputerResponse_httpStatus :: Lens.Lens' CreateComputerResponse Prelude.Int+createComputerResponse_httpStatus = Lens.lens (\CreateComputerResponse' {httpStatus} -> httpStatus) (\s@CreateComputerResponse' {} a -> s {httpStatus = a} :: CreateComputerResponse)++instance Prelude.NFData CreateComputerResponse where+  rnf CreateComputerResponse' {..} =+    Prelude.rnf computer+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateConditionalForwarder.hs view

@@ -0,0 +1,214 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateConditionalForwarder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a conditional forwarder associated with your Amazon Web Services+-- directory. Conditional forwarders are required in order to set up a+-- trust relationship with another domain. The conditional forwarder points+-- to the trusted domain.+module Amazonka.DirectoryService.CreateConditionalForwarder+  ( -- * Creating a Request+    CreateConditionalForwarder (..),+    newCreateConditionalForwarder,++    -- * Request Lenses+    createConditionalForwarder_directoryId,+    createConditionalForwarder_remoteDomainName,+    createConditionalForwarder_dnsIpAddrs,++    -- * Destructuring the Response+    CreateConditionalForwarderResponse (..),+    newCreateConditionalForwarderResponse,++    -- * Response Lenses+    createConditionalForwarderResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Initiates the creation of a conditional forwarder for your Directory+-- Service for Microsoft Active Directory. Conditional forwarders are+-- required in order to set up a trust relationship with another domain.+--+-- /See:/ 'newCreateConditionalForwarder' smart constructor.+data CreateConditionalForwarder = CreateConditionalForwarder'+  { -- | The directory ID of the Amazon Web Services directory for which you are+    -- creating the conditional forwarder.+    directoryId :: Prelude.Text,+    -- | The fully qualified domain name (FQDN) of the remote domain with which+    -- you will set up a trust relationship.+    remoteDomainName :: Prelude.Text,+    -- | The IP addresses of the remote DNS server associated with+    -- RemoteDomainName.+    dnsIpAddrs :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateConditionalForwarder' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'createConditionalForwarder_directoryId' - The directory ID of the Amazon Web Services directory for which you are+-- creating the conditional forwarder.+--+-- 'remoteDomainName', 'createConditionalForwarder_remoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+--+-- 'dnsIpAddrs', 'createConditionalForwarder_dnsIpAddrs' - The IP addresses of the remote DNS server associated with+-- RemoteDomainName.+newCreateConditionalForwarder ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'remoteDomainName'+  Prelude.Text ->+  CreateConditionalForwarder+newCreateConditionalForwarder+  pDirectoryId_+  pRemoteDomainName_ =+    CreateConditionalForwarder'+      { directoryId =+          pDirectoryId_,+        remoteDomainName = pRemoteDomainName_,+        dnsIpAddrs = Prelude.mempty+      }++-- | The directory ID of the Amazon Web Services directory for which you are+-- creating the conditional forwarder.+createConditionalForwarder_directoryId :: Lens.Lens' CreateConditionalForwarder Prelude.Text+createConditionalForwarder_directoryId = Lens.lens (\CreateConditionalForwarder' {directoryId} -> directoryId) (\s@CreateConditionalForwarder' {} a -> s {directoryId = a} :: CreateConditionalForwarder)++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+createConditionalForwarder_remoteDomainName :: Lens.Lens' CreateConditionalForwarder Prelude.Text+createConditionalForwarder_remoteDomainName = Lens.lens (\CreateConditionalForwarder' {remoteDomainName} -> remoteDomainName) (\s@CreateConditionalForwarder' {} a -> s {remoteDomainName = a} :: CreateConditionalForwarder)++-- | The IP addresses of the remote DNS server associated with+-- RemoteDomainName.+createConditionalForwarder_dnsIpAddrs :: Lens.Lens' CreateConditionalForwarder [Prelude.Text]+createConditionalForwarder_dnsIpAddrs = Lens.lens (\CreateConditionalForwarder' {dnsIpAddrs} -> dnsIpAddrs) (\s@CreateConditionalForwarder' {} a -> s {dnsIpAddrs = a} :: CreateConditionalForwarder) Prelude.. Lens.coerced++instance Core.AWSRequest CreateConditionalForwarder where+  type+    AWSResponse CreateConditionalForwarder =+      CreateConditionalForwarderResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateConditionalForwarderResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateConditionalForwarder where+  hashWithSalt _salt CreateConditionalForwarder' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` remoteDomainName+      `Prelude.hashWithSalt` dnsIpAddrs++instance Prelude.NFData CreateConditionalForwarder where+  rnf CreateConditionalForwarder' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf remoteDomainName+      `Prelude.seq` Prelude.rnf dnsIpAddrs++instance Data.ToHeaders CreateConditionalForwarder where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateConditionalForwarder" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateConditionalForwarder where+  toJSON CreateConditionalForwarder' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RemoteDomainName" Data..= remoteDomainName),+            Prelude.Just ("DnsIpAddrs" Data..= dnsIpAddrs)+          ]+      )++instance Data.ToPath CreateConditionalForwarder where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateConditionalForwarder where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a CreateConditinalForwarder request.+--+-- /See:/ 'newCreateConditionalForwarderResponse' smart constructor.+data CreateConditionalForwarderResponse = CreateConditionalForwarderResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateConditionalForwarderResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createConditionalForwarderResponse_httpStatus' - The response's http status code.+newCreateConditionalForwarderResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateConditionalForwarderResponse+newCreateConditionalForwarderResponse pHttpStatus_ =+  CreateConditionalForwarderResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createConditionalForwarderResponse_httpStatus :: Lens.Lens' CreateConditionalForwarderResponse Prelude.Int+createConditionalForwarderResponse_httpStatus = Lens.lens (\CreateConditionalForwarderResponse' {httpStatus} -> httpStatus) (\s@CreateConditionalForwarderResponse' {} a -> s {httpStatus = a} :: CreateConditionalForwarderResponse)++instance+  Prelude.NFData+    CreateConditionalForwarderResponse+  where+  rnf CreateConditionalForwarderResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateDirectory.hs view

@@ -0,0 +1,357 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Simple AD directory. For more information, see+-- <https://docs.aws.amazon.com/directoryservice/latest/admin-guide/directory_simple_ad.html Simple Active Directory>+-- in the /Directory Service Admin Guide/.+--+-- Before you call @CreateDirectory@, ensure that all of the required+-- permissions have been explicitly granted through a policy. For details+-- about what permissions are required to run the @CreateDirectory@+-- operation, see+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html Directory Service API Permissions: Actions, Resources, and Conditions Reference>.+module Amazonka.DirectoryService.CreateDirectory+  ( -- * Creating a Request+    CreateDirectory (..),+    newCreateDirectory,++    -- * Request Lenses+    createDirectory_description,+    createDirectory_shortName,+    createDirectory_tags,+    createDirectory_vpcSettings,+    createDirectory_name,+    createDirectory_password,+    createDirectory_size,++    -- * Destructuring the Response+    CreateDirectoryResponse (..),+    newCreateDirectoryResponse,++    -- * Response Lenses+    createDirectoryResponse_directoryId,+    createDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the CreateDirectory operation.+--+-- /See:/ 'newCreateDirectory' smart constructor.+data CreateDirectory = CreateDirectory'+  { -- | A description for the directory.+    description :: Prelude.Maybe Prelude.Text,+    -- | The NetBIOS name of the directory, such as @CORP@.+    shortName :: Prelude.Maybe Prelude.Text,+    -- | The tags to be assigned to the Simple AD directory.+    tags :: Prelude.Maybe [Tag],+    -- | A DirectoryVpcSettings object that contains additional information for+    -- the operation.+    vpcSettings :: Prelude.Maybe DirectoryVpcSettings,+    -- | The fully qualified name for the directory, such as @corp.example.com@.+    name :: Prelude.Text,+    -- | The password for the directory administrator. The directory creation+    -- process creates a directory administrator account with the user name+    -- @Administrator@ and this password.+    --+    -- If you need to change the password for the administrator account, you+    -- can use the ResetUserPassword API call.+    --+    -- The regex pattern for this string is made up of the following+    -- conditions:+    --+    -- -   Length (?=^.{8,64}$) – Must be between 8 and 64 characters+    --+    -- AND any 3 of the following password complexity rules required by Active+    -- Directory:+    --+    -- -   Numbers and upper case and lowercase (?=.*\\d)(?=.*[A-Z])(?=.*[a-z])+    --+    -- -   Numbers and special characters and lower case+    --     (?=.*\\d)(?=.*[^A-Za-z0-9\\s])(?=.*[a-z])+    --+    -- -   Special characters and upper case and lower case+    --     (?=.*[^A-Za-z0-9\\s])(?=.*[A-Z])(?=.*[a-z])+    --+    -- -   Numbers and upper case and special characters+    --     (?=.*\\d)(?=.*[A-Z])(?=.*[^A-Za-z0-9\\s])+    --+    -- For additional information about how Active Directory passwords are+    -- enforced, see+    -- <https://docs.microsoft.com/en-us/windows/security/threat-protection/security-policy-settings/password-must-meet-complexity-requirements Password must meet complexity requirements>+    -- on the Microsoft website.+    password :: Data.Sensitive Prelude.Text,+    -- | The size of the directory.+    size :: DirectorySize+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createDirectory_description' - A description for the directory.+--+-- 'shortName', 'createDirectory_shortName' - The NetBIOS name of the directory, such as @CORP@.+--+-- 'tags', 'createDirectory_tags' - The tags to be assigned to the Simple AD directory.+--+-- 'vpcSettings', 'createDirectory_vpcSettings' - A DirectoryVpcSettings object that contains additional information for+-- the operation.+--+-- 'name', 'createDirectory_name' - The fully qualified name for the directory, such as @corp.example.com@.+--+-- 'password', 'createDirectory_password' - The password for the directory administrator. The directory creation+-- process creates a directory administrator account with the user name+-- @Administrator@ and this password.+--+-- If you need to change the password for the administrator account, you+-- can use the ResetUserPassword API call.+--+-- The regex pattern for this string is made up of the following+-- conditions:+--+-- -   Length (?=^.{8,64}$) – Must be between 8 and 64 characters+--+-- AND any 3 of the following password complexity rules required by Active+-- Directory:+--+-- -   Numbers and upper case and lowercase (?=.*\\d)(?=.*[A-Z])(?=.*[a-z])+--+-- -   Numbers and special characters and lower case+--     (?=.*\\d)(?=.*[^A-Za-z0-9\\s])(?=.*[a-z])+--+-- -   Special characters and upper case and lower case+--     (?=.*[^A-Za-z0-9\\s])(?=.*[A-Z])(?=.*[a-z])+--+-- -   Numbers and upper case and special characters+--     (?=.*\\d)(?=.*[A-Z])(?=.*[^A-Za-z0-9\\s])+--+-- For additional information about how Active Directory passwords are+-- enforced, see+-- <https://docs.microsoft.com/en-us/windows/security/threat-protection/security-policy-settings/password-must-meet-complexity-requirements Password must meet complexity requirements>+-- on the Microsoft website.+--+-- 'size', 'createDirectory_size' - The size of the directory.+newCreateDirectory ::+  -- | 'name'+  Prelude.Text ->+  -- | 'password'+  Prelude.Text ->+  -- | 'size'+  DirectorySize ->+  CreateDirectory+newCreateDirectory pName_ pPassword_ pSize_ =+  CreateDirectory'+    { description = Prelude.Nothing,+      shortName = Prelude.Nothing,+      tags = Prelude.Nothing,+      vpcSettings = Prelude.Nothing,+      name = pName_,+      password = Data._Sensitive Lens.# pPassword_,+      size = pSize_+    }++-- | A description for the directory.+createDirectory_description :: Lens.Lens' CreateDirectory (Prelude.Maybe Prelude.Text)+createDirectory_description = Lens.lens (\CreateDirectory' {description} -> description) (\s@CreateDirectory' {} a -> s {description = a} :: CreateDirectory)++-- | The NetBIOS name of the directory, such as @CORP@.+createDirectory_shortName :: Lens.Lens' CreateDirectory (Prelude.Maybe Prelude.Text)+createDirectory_shortName = Lens.lens (\CreateDirectory' {shortName} -> shortName) (\s@CreateDirectory' {} a -> s {shortName = a} :: CreateDirectory)++-- | The tags to be assigned to the Simple AD directory.+createDirectory_tags :: Lens.Lens' CreateDirectory (Prelude.Maybe [Tag])+createDirectory_tags = Lens.lens (\CreateDirectory' {tags} -> tags) (\s@CreateDirectory' {} a -> s {tags = a} :: CreateDirectory) Prelude.. Lens.mapping Lens.coerced++-- | A DirectoryVpcSettings object that contains additional information for+-- the operation.+createDirectory_vpcSettings :: Lens.Lens' CreateDirectory (Prelude.Maybe DirectoryVpcSettings)+createDirectory_vpcSettings = Lens.lens (\CreateDirectory' {vpcSettings} -> vpcSettings) (\s@CreateDirectory' {} a -> s {vpcSettings = a} :: CreateDirectory)++-- | The fully qualified name for the directory, such as @corp.example.com@.+createDirectory_name :: Lens.Lens' CreateDirectory Prelude.Text+createDirectory_name = Lens.lens (\CreateDirectory' {name} -> name) (\s@CreateDirectory' {} a -> s {name = a} :: CreateDirectory)++-- | The password for the directory administrator. The directory creation+-- process creates a directory administrator account with the user name+-- @Administrator@ and this password.+--+-- If you need to change the password for the administrator account, you+-- can use the ResetUserPassword API call.+--+-- The regex pattern for this string is made up of the following+-- conditions:+--+-- -   Length (?=^.{8,64}$) – Must be between 8 and 64 characters+--+-- AND any 3 of the following password complexity rules required by Active+-- Directory:+--+-- -   Numbers and upper case and lowercase (?=.*\\d)(?=.*[A-Z])(?=.*[a-z])+--+-- -   Numbers and special characters and lower case+--     (?=.*\\d)(?=.*[^A-Za-z0-9\\s])(?=.*[a-z])+--+-- -   Special characters and upper case and lower case+--     (?=.*[^A-Za-z0-9\\s])(?=.*[A-Z])(?=.*[a-z])+--+-- -   Numbers and upper case and special characters+--     (?=.*\\d)(?=.*[A-Z])(?=.*[^A-Za-z0-9\\s])+--+-- For additional information about how Active Directory passwords are+-- enforced, see+-- <https://docs.microsoft.com/en-us/windows/security/threat-protection/security-policy-settings/password-must-meet-complexity-requirements Password must meet complexity requirements>+-- on the Microsoft website.+createDirectory_password :: Lens.Lens' CreateDirectory Prelude.Text+createDirectory_password = Lens.lens (\CreateDirectory' {password} -> password) (\s@CreateDirectory' {} a -> s {password = a} :: CreateDirectory) Prelude.. Data._Sensitive++-- | The size of the directory.+createDirectory_size :: Lens.Lens' CreateDirectory DirectorySize+createDirectory_size = Lens.lens (\CreateDirectory' {size} -> size) (\s@CreateDirectory' {} a -> s {size = a} :: CreateDirectory)++instance Core.AWSRequest CreateDirectory where+  type+    AWSResponse CreateDirectory =+      CreateDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateDirectoryResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateDirectory where+  hashWithSalt _salt CreateDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` shortName+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` vpcSettings+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` password+      `Prelude.hashWithSalt` size++instance Prelude.NFData CreateDirectory where+  rnf CreateDirectory' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf shortName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf vpcSettings+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf password+      `Prelude.seq` Prelude.rnf size++instance Data.ToHeaders CreateDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateDirectory where+  toJSON CreateDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("ShortName" Data..=) Prelude.<$> shortName,+            ("Tags" Data..=) Prelude.<$> tags,+            ("VpcSettings" Data..=) Prelude.<$> vpcSettings,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Password" Data..= password),+            Prelude.Just ("Size" Data..= size)+          ]+      )++instance Data.ToPath CreateDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the CreateDirectory operation.+--+-- /See:/ 'newCreateDirectoryResponse' smart constructor.+data CreateDirectoryResponse = CreateDirectoryResponse'+  { -- | The identifier of the directory that was created.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'createDirectoryResponse_directoryId' - The identifier of the directory that was created.+--+-- 'httpStatus', 'createDirectoryResponse_httpStatus' - The response's http status code.+newCreateDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateDirectoryResponse+newCreateDirectoryResponse pHttpStatus_ =+  CreateDirectoryResponse'+    { directoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the directory that was created.+createDirectoryResponse_directoryId :: Lens.Lens' CreateDirectoryResponse (Prelude.Maybe Prelude.Text)+createDirectoryResponse_directoryId = Lens.lens (\CreateDirectoryResponse' {directoryId} -> directoryId) (\s@CreateDirectoryResponse' {} a -> s {directoryId = a} :: CreateDirectoryResponse)++-- | The response's http status code.+createDirectoryResponse_httpStatus :: Lens.Lens' CreateDirectoryResponse Prelude.Int+createDirectoryResponse_httpStatus = Lens.lens (\CreateDirectoryResponse' {httpStatus} -> httpStatus) (\s@CreateDirectoryResponse' {} a -> s {httpStatus = a} :: CreateDirectoryResponse)++instance Prelude.NFData CreateDirectoryResponse where+  rnf CreateDirectoryResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateLogSubscription.hs view

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateLogSubscription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a subscription to forward real-time Directory Service domain+-- controller security logs to the specified Amazon CloudWatch log group in+-- your Amazon Web Services account.+module Amazonka.DirectoryService.CreateLogSubscription+  ( -- * Creating a Request+    CreateLogSubscription (..),+    newCreateLogSubscription,++    -- * Request Lenses+    createLogSubscription_directoryId,+    createLogSubscription_logGroupName,++    -- * Destructuring the Response+    CreateLogSubscriptionResponse (..),+    newCreateLogSubscriptionResponse,++    -- * Response Lenses+    createLogSubscriptionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newCreateLogSubscription' smart constructor.+data CreateLogSubscription = CreateLogSubscription'+  { -- | Identifier of the directory to which you want to subscribe and receive+    -- real-time logs to your specified CloudWatch log group.+    directoryId :: Prelude.Text,+    -- | The name of the CloudWatch log group where the real-time domain+    -- controller logs are forwarded.+    logGroupName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLogSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'createLogSubscription_directoryId' - Identifier of the directory to which you want to subscribe and receive+-- real-time logs to your specified CloudWatch log group.+--+-- 'logGroupName', 'createLogSubscription_logGroupName' - The name of the CloudWatch log group where the real-time domain+-- controller logs are forwarded.+newCreateLogSubscription ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'logGroupName'+  Prelude.Text ->+  CreateLogSubscription+newCreateLogSubscription pDirectoryId_ pLogGroupName_ =+  CreateLogSubscription'+    { directoryId = pDirectoryId_,+      logGroupName = pLogGroupName_+    }++-- | Identifier of the directory to which you want to subscribe and receive+-- real-time logs to your specified CloudWatch log group.+createLogSubscription_directoryId :: Lens.Lens' CreateLogSubscription Prelude.Text+createLogSubscription_directoryId = Lens.lens (\CreateLogSubscription' {directoryId} -> directoryId) (\s@CreateLogSubscription' {} a -> s {directoryId = a} :: CreateLogSubscription)++-- | The name of the CloudWatch log group where the real-time domain+-- controller logs are forwarded.+createLogSubscription_logGroupName :: Lens.Lens' CreateLogSubscription Prelude.Text+createLogSubscription_logGroupName = Lens.lens (\CreateLogSubscription' {logGroupName} -> logGroupName) (\s@CreateLogSubscription' {} a -> s {logGroupName = a} :: CreateLogSubscription)++instance Core.AWSRequest CreateLogSubscription where+  type+    AWSResponse CreateLogSubscription =+      CreateLogSubscriptionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          CreateLogSubscriptionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateLogSubscription where+  hashWithSalt _salt CreateLogSubscription' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` logGroupName++instance Prelude.NFData CreateLogSubscription where+  rnf CreateLogSubscription' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf logGroupName++instance Data.ToHeaders CreateLogSubscription where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateLogSubscription" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateLogSubscription where+  toJSON CreateLogSubscription' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("LogGroupName" Data..= logGroupName)+          ]+      )++instance Data.ToPath CreateLogSubscription where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateLogSubscription where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newCreateLogSubscriptionResponse' smart constructor.+data CreateLogSubscriptionResponse = CreateLogSubscriptionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateLogSubscriptionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'createLogSubscriptionResponse_httpStatus' - The response's http status code.+newCreateLogSubscriptionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateLogSubscriptionResponse+newCreateLogSubscriptionResponse pHttpStatus_ =+  CreateLogSubscriptionResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+createLogSubscriptionResponse_httpStatus :: Lens.Lens' CreateLogSubscriptionResponse Prelude.Int+createLogSubscriptionResponse_httpStatus = Lens.lens (\CreateLogSubscriptionResponse' {httpStatus} -> httpStatus) (\s@CreateLogSubscriptionResponse' {} a -> s {httpStatus = a} :: CreateLogSubscriptionResponse)++instance Prelude.NFData CreateLogSubscriptionResponse where+  rnf CreateLogSubscriptionResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateMicrosoftAD.hs view

@@ -0,0 +1,301 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateMicrosoftAD+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a Microsoft AD directory in the Amazon Web Services Cloud. For+-- more information, see+-- <https://docs.aws.amazon.com/directoryservice/latest/admin-guide/directory_microsoft_ad.html Managed Microsoft AD>+-- in the /Directory Service Admin Guide/.+--+-- Before you call /CreateMicrosoftAD/, ensure that all of the required+-- permissions have been explicitly granted through a policy. For details+-- about what permissions are required to run the /CreateMicrosoftAD/+-- operation, see+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html Directory Service API Permissions: Actions, Resources, and Conditions Reference>.+module Amazonka.DirectoryService.CreateMicrosoftAD+  ( -- * Creating a Request+    CreateMicrosoftAD (..),+    newCreateMicrosoftAD,++    -- * Request Lenses+    createMicrosoftAD_description,+    createMicrosoftAD_edition,+    createMicrosoftAD_shortName,+    createMicrosoftAD_tags,+    createMicrosoftAD_name,+    createMicrosoftAD_password,+    createMicrosoftAD_vpcSettings,++    -- * Destructuring the Response+    CreateMicrosoftADResponse (..),+    newCreateMicrosoftADResponse,++    -- * Response Lenses+    createMicrosoftADResponse_directoryId,+    createMicrosoftADResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Creates an Managed Microsoft AD directory.+--+-- /See:/ 'newCreateMicrosoftAD' smart constructor.+data CreateMicrosoftAD = CreateMicrosoftAD'+  { -- | A description for the directory. This label will appear on the Amazon+    -- Web Services console @Directory Details@ page after the directory is+    -- created.+    description :: Prelude.Maybe Prelude.Text,+    -- | Managed Microsoft AD is available in two editions: @Standard@ and+    -- @Enterprise@. @Enterprise@ is the default.+    edition :: Prelude.Maybe DirectoryEdition,+    -- | The NetBIOS name for your domain, such as @CORP@. If you don\'t specify+    -- a NetBIOS name, it will default to the first part of your directory DNS.+    -- For example, @CORP@ for the directory DNS @corp.example.com@.+    shortName :: Prelude.Maybe Prelude.Text,+    -- | The tags to be assigned to the Managed Microsoft AD directory.+    tags :: Prelude.Maybe [Tag],+    -- | The fully qualified domain name for the Managed Microsoft AD directory,+    -- such as @corp.example.com@. This name will resolve inside your VPC only.+    -- It does not need to be publicly resolvable.+    name :: Prelude.Text,+    -- | The password for the default administrative user named @Admin@.+    --+    -- If you need to change the password for the administrator account, you+    -- can use the ResetUserPassword API call.+    password :: Data.Sensitive Prelude.Text,+    -- | Contains VPC information for the CreateDirectory or CreateMicrosoftAD+    -- operation.+    vpcSettings :: DirectoryVpcSettings+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateMicrosoftAD' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'createMicrosoftAD_description' - A description for the directory. This label will appear on the Amazon+-- Web Services console @Directory Details@ page after the directory is+-- created.+--+-- 'edition', 'createMicrosoftAD_edition' - Managed Microsoft AD is available in two editions: @Standard@ and+-- @Enterprise@. @Enterprise@ is the default.+--+-- 'shortName', 'createMicrosoftAD_shortName' - The NetBIOS name for your domain, such as @CORP@. If you don\'t specify+-- a NetBIOS name, it will default to the first part of your directory DNS.+-- For example, @CORP@ for the directory DNS @corp.example.com@.+--+-- 'tags', 'createMicrosoftAD_tags' - The tags to be assigned to the Managed Microsoft AD directory.+--+-- 'name', 'createMicrosoftAD_name' - The fully qualified domain name for the Managed Microsoft AD directory,+-- such as @corp.example.com@. This name will resolve inside your VPC only.+-- It does not need to be publicly resolvable.+--+-- 'password', 'createMicrosoftAD_password' - The password for the default administrative user named @Admin@.+--+-- If you need to change the password for the administrator account, you+-- can use the ResetUserPassword API call.+--+-- 'vpcSettings', 'createMicrosoftAD_vpcSettings' - Contains VPC information for the CreateDirectory or CreateMicrosoftAD+-- operation.+newCreateMicrosoftAD ::+  -- | 'name'+  Prelude.Text ->+  -- | 'password'+  Prelude.Text ->+  -- | 'vpcSettings'+  DirectoryVpcSettings ->+  CreateMicrosoftAD+newCreateMicrosoftAD pName_ pPassword_ pVpcSettings_ =+  CreateMicrosoftAD'+    { description = Prelude.Nothing,+      edition = Prelude.Nothing,+      shortName = Prelude.Nothing,+      tags = Prelude.Nothing,+      name = pName_,+      password = Data._Sensitive Lens.# pPassword_,+      vpcSettings = pVpcSettings_+    }++-- | A description for the directory. This label will appear on the Amazon+-- Web Services console @Directory Details@ page after the directory is+-- created.+createMicrosoftAD_description :: Lens.Lens' CreateMicrosoftAD (Prelude.Maybe Prelude.Text)+createMicrosoftAD_description = Lens.lens (\CreateMicrosoftAD' {description} -> description) (\s@CreateMicrosoftAD' {} a -> s {description = a} :: CreateMicrosoftAD)++-- | Managed Microsoft AD is available in two editions: @Standard@ and+-- @Enterprise@. @Enterprise@ is the default.+createMicrosoftAD_edition :: Lens.Lens' CreateMicrosoftAD (Prelude.Maybe DirectoryEdition)+createMicrosoftAD_edition = Lens.lens (\CreateMicrosoftAD' {edition} -> edition) (\s@CreateMicrosoftAD' {} a -> s {edition = a} :: CreateMicrosoftAD)++-- | The NetBIOS name for your domain, such as @CORP@. If you don\'t specify+-- a NetBIOS name, it will default to the first part of your directory DNS.+-- For example, @CORP@ for the directory DNS @corp.example.com@.+createMicrosoftAD_shortName :: Lens.Lens' CreateMicrosoftAD (Prelude.Maybe Prelude.Text)+createMicrosoftAD_shortName = Lens.lens (\CreateMicrosoftAD' {shortName} -> shortName) (\s@CreateMicrosoftAD' {} a -> s {shortName = a} :: CreateMicrosoftAD)++-- | The tags to be assigned to the Managed Microsoft AD directory.+createMicrosoftAD_tags :: Lens.Lens' CreateMicrosoftAD (Prelude.Maybe [Tag])+createMicrosoftAD_tags = Lens.lens (\CreateMicrosoftAD' {tags} -> tags) (\s@CreateMicrosoftAD' {} a -> s {tags = a} :: CreateMicrosoftAD) Prelude.. Lens.mapping Lens.coerced++-- | The fully qualified domain name for the Managed Microsoft AD directory,+-- such as @corp.example.com@. This name will resolve inside your VPC only.+-- It does not need to be publicly resolvable.+createMicrosoftAD_name :: Lens.Lens' CreateMicrosoftAD Prelude.Text+createMicrosoftAD_name = Lens.lens (\CreateMicrosoftAD' {name} -> name) (\s@CreateMicrosoftAD' {} a -> s {name = a} :: CreateMicrosoftAD)++-- | The password for the default administrative user named @Admin@.+--+-- If you need to change the password for the administrator account, you+-- can use the ResetUserPassword API call.+createMicrosoftAD_password :: Lens.Lens' CreateMicrosoftAD Prelude.Text+createMicrosoftAD_password = Lens.lens (\CreateMicrosoftAD' {password} -> password) (\s@CreateMicrosoftAD' {} a -> s {password = a} :: CreateMicrosoftAD) Prelude.. Data._Sensitive++-- | Contains VPC information for the CreateDirectory or CreateMicrosoftAD+-- operation.+createMicrosoftAD_vpcSettings :: Lens.Lens' CreateMicrosoftAD DirectoryVpcSettings+createMicrosoftAD_vpcSettings = Lens.lens (\CreateMicrosoftAD' {vpcSettings} -> vpcSettings) (\s@CreateMicrosoftAD' {} a -> s {vpcSettings = a} :: CreateMicrosoftAD)++instance Core.AWSRequest CreateMicrosoftAD where+  type+    AWSResponse CreateMicrosoftAD =+      CreateMicrosoftADResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateMicrosoftADResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateMicrosoftAD where+  hashWithSalt _salt CreateMicrosoftAD' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` edition+      `Prelude.hashWithSalt` shortName+      `Prelude.hashWithSalt` tags+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` password+      `Prelude.hashWithSalt` vpcSettings++instance Prelude.NFData CreateMicrosoftAD where+  rnf CreateMicrosoftAD' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf edition+      `Prelude.seq` Prelude.rnf shortName+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf password+      `Prelude.seq` Prelude.rnf vpcSettings++instance Data.ToHeaders CreateMicrosoftAD where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateMicrosoftAD" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateMicrosoftAD where+  toJSON CreateMicrosoftAD' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Description" Data..=) Prelude.<$> description,+            ("Edition" Data..=) Prelude.<$> edition,+            ("ShortName" Data..=) Prelude.<$> shortName,+            ("Tags" Data..=) Prelude.<$> tags,+            Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Password" Data..= password),+            Prelude.Just ("VpcSettings" Data..= vpcSettings)+          ]+      )++instance Data.ToPath CreateMicrosoftAD where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateMicrosoftAD where+  toQuery = Prelude.const Prelude.mempty++-- | Result of a CreateMicrosoftAD request.+--+-- /See:/ 'newCreateMicrosoftADResponse' smart constructor.+data CreateMicrosoftADResponse = CreateMicrosoftADResponse'+  { -- | The identifier of the directory that was created.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateMicrosoftADResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'createMicrosoftADResponse_directoryId' - The identifier of the directory that was created.+--+-- 'httpStatus', 'createMicrosoftADResponse_httpStatus' - The response's http status code.+newCreateMicrosoftADResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateMicrosoftADResponse+newCreateMicrosoftADResponse pHttpStatus_ =+  CreateMicrosoftADResponse'+    { directoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the directory that was created.+createMicrosoftADResponse_directoryId :: Lens.Lens' CreateMicrosoftADResponse (Prelude.Maybe Prelude.Text)+createMicrosoftADResponse_directoryId = Lens.lens (\CreateMicrosoftADResponse' {directoryId} -> directoryId) (\s@CreateMicrosoftADResponse' {} a -> s {directoryId = a} :: CreateMicrosoftADResponse)++-- | The response's http status code.+createMicrosoftADResponse_httpStatus :: Lens.Lens' CreateMicrosoftADResponse Prelude.Int+createMicrosoftADResponse_httpStatus = Lens.lens (\CreateMicrosoftADResponse' {httpStatus} -> httpStatus) (\s@CreateMicrosoftADResponse' {} a -> s {httpStatus = a} :: CreateMicrosoftADResponse)++instance Prelude.NFData CreateMicrosoftADResponse where+  rnf CreateMicrosoftADResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateSnapshot.hs view

@@ -0,0 +1,193 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateSnapshot+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a snapshot of a Simple AD or Microsoft AD directory in the+-- Amazon Web Services cloud.+--+-- You cannot take snapshots of AD Connector directories.+module Amazonka.DirectoryService.CreateSnapshot+  ( -- * Creating a Request+    CreateSnapshot (..),+    newCreateSnapshot,++    -- * Request Lenses+    createSnapshot_name,+    createSnapshot_directoryId,++    -- * Destructuring the Response+    CreateSnapshotResponse (..),+    newCreateSnapshotResponse,++    -- * Response Lenses+    createSnapshotResponse_snapshotId,+    createSnapshotResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the CreateSnapshot operation.+--+-- /See:/ 'newCreateSnapshot' smart constructor.+data CreateSnapshot = CreateSnapshot'+  { -- | The descriptive name to apply to the snapshot.+    name :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory of which to take a snapshot.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'createSnapshot_name' - The descriptive name to apply to the snapshot.+--+-- 'directoryId', 'createSnapshot_directoryId' - The identifier of the directory of which to take a snapshot.+newCreateSnapshot ::+  -- | 'directoryId'+  Prelude.Text ->+  CreateSnapshot+newCreateSnapshot pDirectoryId_ =+  CreateSnapshot'+    { name = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The descriptive name to apply to the snapshot.+createSnapshot_name :: Lens.Lens' CreateSnapshot (Prelude.Maybe Prelude.Text)+createSnapshot_name = Lens.lens (\CreateSnapshot' {name} -> name) (\s@CreateSnapshot' {} a -> s {name = a} :: CreateSnapshot)++-- | The identifier of the directory of which to take a snapshot.+createSnapshot_directoryId :: Lens.Lens' CreateSnapshot Prelude.Text+createSnapshot_directoryId = Lens.lens (\CreateSnapshot' {directoryId} -> directoryId) (\s@CreateSnapshot' {} a -> s {directoryId = a} :: CreateSnapshot)++instance Core.AWSRequest CreateSnapshot where+  type+    AWSResponse CreateSnapshot =+      CreateSnapshotResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateSnapshotResponse'+            Prelude.<$> (x Data..?> "SnapshotId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateSnapshot where+  hashWithSalt _salt CreateSnapshot' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData CreateSnapshot where+  rnf CreateSnapshot' {..} =+    Prelude.rnf name+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders CreateSnapshot where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateSnapshot" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateSnapshot where+  toJSON CreateSnapshot' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Name" Data..=) Prelude.<$> name,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath CreateSnapshot where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateSnapshot where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the CreateSnapshot operation.+--+-- /See:/ 'newCreateSnapshotResponse' smart constructor.+data CreateSnapshotResponse = CreateSnapshotResponse'+  { -- | The identifier of the snapshot that was created.+    snapshotId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotId', 'createSnapshotResponse_snapshotId' - The identifier of the snapshot that was created.+--+-- 'httpStatus', 'createSnapshotResponse_httpStatus' - The response's http status code.+newCreateSnapshotResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateSnapshotResponse+newCreateSnapshotResponse pHttpStatus_ =+  CreateSnapshotResponse'+    { snapshotId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the snapshot that was created.+createSnapshotResponse_snapshotId :: Lens.Lens' CreateSnapshotResponse (Prelude.Maybe Prelude.Text)+createSnapshotResponse_snapshotId = Lens.lens (\CreateSnapshotResponse' {snapshotId} -> snapshotId) (\s@CreateSnapshotResponse' {} a -> s {snapshotId = a} :: CreateSnapshotResponse)++-- | The response's http status code.+createSnapshotResponse_httpStatus :: Lens.Lens' CreateSnapshotResponse Prelude.Int+createSnapshotResponse_httpStatus = Lens.lens (\CreateSnapshotResponse' {httpStatus} -> httpStatus) (\s@CreateSnapshotResponse' {} a -> s {httpStatus = a} :: CreateSnapshotResponse)++instance Prelude.NFData CreateSnapshotResponse where+  rnf CreateSnapshotResponse' {..} =+    Prelude.rnf snapshotId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/CreateTrust.hs view

@@ -0,0 +1,296 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.CreateTrust+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Directory Service for Microsoft Active Directory allows you to configure+-- trust relationships. For example, you can establish a trust between your+-- Managed Microsoft AD directory, and your existing self-managed Microsoft+-- Active Directory. This would allow you to provide users and groups+-- access to resources in either domain, with a single set of credentials.+--+-- This action initiates the creation of the Amazon Web Services side of a+-- trust relationship between an Managed Microsoft AD directory and an+-- external domain. You can create either a forest trust or an external+-- trust.+module Amazonka.DirectoryService.CreateTrust+  ( -- * Creating a Request+    CreateTrust (..),+    newCreateTrust,++    -- * Request Lenses+    createTrust_conditionalForwarderIpAddrs,+    createTrust_selectiveAuth,+    createTrust_trustType,+    createTrust_directoryId,+    createTrust_remoteDomainName,+    createTrust_trustPassword,+    createTrust_trustDirection,++    -- * Destructuring the Response+    CreateTrustResponse (..),+    newCreateTrustResponse,++    -- * Response Lenses+    createTrustResponse_trustId,+    createTrustResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Directory Service for Microsoft Active Directory allows you to configure+-- trust relationships. For example, you can establish a trust between your+-- Managed Microsoft AD directory, and your existing self-managed Microsoft+-- Active Directory. This would allow you to provide users and groups+-- access to resources in either domain, with a single set of credentials.+--+-- This action initiates the creation of the Amazon Web Services side of a+-- trust relationship between an Managed Microsoft AD directory and an+-- external domain.+--+-- /See:/ 'newCreateTrust' smart constructor.+data CreateTrust = CreateTrust'+  { -- | The IP addresses of the remote DNS server associated with+    -- RemoteDomainName.+    conditionalForwarderIpAddrs :: Prelude.Maybe [Prelude.Text],+    -- | Optional parameter to enable selective authentication for the trust.+    selectiveAuth :: Prelude.Maybe SelectiveAuth,+    -- | The trust relationship type. @Forest@ is the default.+    trustType :: Prelude.Maybe TrustType,+    -- | The Directory ID of the Managed Microsoft AD directory for which to+    -- establish the trust relationship.+    directoryId :: Prelude.Text,+    -- | The Fully Qualified Domain Name (FQDN) of the external domain for which+    -- to create the trust relationship.+    remoteDomainName :: Prelude.Text,+    -- | The trust password. The must be the same password that was used when+    -- creating the trust relationship on the external domain.+    trustPassword :: Data.Sensitive Prelude.Text,+    -- | The direction of the trust relationship.+    trustDirection :: TrustDirection+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTrust' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'conditionalForwarderIpAddrs', 'createTrust_conditionalForwarderIpAddrs' - The IP addresses of the remote DNS server associated with+-- RemoteDomainName.+--+-- 'selectiveAuth', 'createTrust_selectiveAuth' - Optional parameter to enable selective authentication for the trust.+--+-- 'trustType', 'createTrust_trustType' - The trust relationship type. @Forest@ is the default.+--+-- 'directoryId', 'createTrust_directoryId' - The Directory ID of the Managed Microsoft AD directory for which to+-- establish the trust relationship.+--+-- 'remoteDomainName', 'createTrust_remoteDomainName' - The Fully Qualified Domain Name (FQDN) of the external domain for which+-- to create the trust relationship.+--+-- 'trustPassword', 'createTrust_trustPassword' - The trust password. The must be the same password that was used when+-- creating the trust relationship on the external domain.+--+-- 'trustDirection', 'createTrust_trustDirection' - The direction of the trust relationship.+newCreateTrust ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'remoteDomainName'+  Prelude.Text ->+  -- | 'trustPassword'+  Prelude.Text ->+  -- | 'trustDirection'+  TrustDirection ->+  CreateTrust+newCreateTrust+  pDirectoryId_+  pRemoteDomainName_+  pTrustPassword_+  pTrustDirection_ =+    CreateTrust'+      { conditionalForwarderIpAddrs =+          Prelude.Nothing,+        selectiveAuth = Prelude.Nothing,+        trustType = Prelude.Nothing,+        directoryId = pDirectoryId_,+        remoteDomainName = pRemoteDomainName_,+        trustPassword =+          Data._Sensitive Lens.# pTrustPassword_,+        trustDirection = pTrustDirection_+      }++-- | The IP addresses of the remote DNS server associated with+-- RemoteDomainName.+createTrust_conditionalForwarderIpAddrs :: Lens.Lens' CreateTrust (Prelude.Maybe [Prelude.Text])+createTrust_conditionalForwarderIpAddrs = Lens.lens (\CreateTrust' {conditionalForwarderIpAddrs} -> conditionalForwarderIpAddrs) (\s@CreateTrust' {} a -> s {conditionalForwarderIpAddrs = a} :: CreateTrust) Prelude.. Lens.mapping Lens.coerced++-- | Optional parameter to enable selective authentication for the trust.+createTrust_selectiveAuth :: Lens.Lens' CreateTrust (Prelude.Maybe SelectiveAuth)+createTrust_selectiveAuth = Lens.lens (\CreateTrust' {selectiveAuth} -> selectiveAuth) (\s@CreateTrust' {} a -> s {selectiveAuth = a} :: CreateTrust)++-- | The trust relationship type. @Forest@ is the default.+createTrust_trustType :: Lens.Lens' CreateTrust (Prelude.Maybe TrustType)+createTrust_trustType = Lens.lens (\CreateTrust' {trustType} -> trustType) (\s@CreateTrust' {} a -> s {trustType = a} :: CreateTrust)++-- | The Directory ID of the Managed Microsoft AD directory for which to+-- establish the trust relationship.+createTrust_directoryId :: Lens.Lens' CreateTrust Prelude.Text+createTrust_directoryId = Lens.lens (\CreateTrust' {directoryId} -> directoryId) (\s@CreateTrust' {} a -> s {directoryId = a} :: CreateTrust)++-- | The Fully Qualified Domain Name (FQDN) of the external domain for which+-- to create the trust relationship.+createTrust_remoteDomainName :: Lens.Lens' CreateTrust Prelude.Text+createTrust_remoteDomainName = Lens.lens (\CreateTrust' {remoteDomainName} -> remoteDomainName) (\s@CreateTrust' {} a -> s {remoteDomainName = a} :: CreateTrust)++-- | The trust password. The must be the same password that was used when+-- creating the trust relationship on the external domain.+createTrust_trustPassword :: Lens.Lens' CreateTrust Prelude.Text+createTrust_trustPassword = Lens.lens (\CreateTrust' {trustPassword} -> trustPassword) (\s@CreateTrust' {} a -> s {trustPassword = a} :: CreateTrust) Prelude.. Data._Sensitive++-- | The direction of the trust relationship.+createTrust_trustDirection :: Lens.Lens' CreateTrust TrustDirection+createTrust_trustDirection = Lens.lens (\CreateTrust' {trustDirection} -> trustDirection) (\s@CreateTrust' {} a -> s {trustDirection = a} :: CreateTrust)++instance Core.AWSRequest CreateTrust where+  type AWSResponse CreateTrust = CreateTrustResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          CreateTrustResponse'+            Prelude.<$> (x Data..?> "TrustId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable CreateTrust where+  hashWithSalt _salt CreateTrust' {..} =+    _salt+      `Prelude.hashWithSalt` conditionalForwarderIpAddrs+      `Prelude.hashWithSalt` selectiveAuth+      `Prelude.hashWithSalt` trustType+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` remoteDomainName+      `Prelude.hashWithSalt` trustPassword+      `Prelude.hashWithSalt` trustDirection++instance Prelude.NFData CreateTrust where+  rnf CreateTrust' {..} =+    Prelude.rnf conditionalForwarderIpAddrs+      `Prelude.seq` Prelude.rnf selectiveAuth+      `Prelude.seq` Prelude.rnf trustType+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf remoteDomainName+      `Prelude.seq` Prelude.rnf trustPassword+      `Prelude.seq` Prelude.rnf trustDirection++instance Data.ToHeaders CreateTrust where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.CreateTrust" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON CreateTrust where+  toJSON CreateTrust' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ConditionalForwarderIpAddrs" Data..=)+              Prelude.<$> conditionalForwarderIpAddrs,+            ("SelectiveAuth" Data..=) Prelude.<$> selectiveAuth,+            ("TrustType" Data..=) Prelude.<$> trustType,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RemoteDomainName" Data..= remoteDomainName),+            Prelude.Just ("TrustPassword" Data..= trustPassword),+            Prelude.Just+              ("TrustDirection" Data..= trustDirection)+          ]+      )++instance Data.ToPath CreateTrust where+  toPath = Prelude.const "/"++instance Data.ToQuery CreateTrust where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a CreateTrust request.+--+-- /See:/ 'newCreateTrustResponse' smart constructor.+data CreateTrustResponse = CreateTrustResponse'+  { -- | A unique identifier for the trust relationship that was created.+    trustId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CreateTrustResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'trustId', 'createTrustResponse_trustId' - A unique identifier for the trust relationship that was created.+--+-- 'httpStatus', 'createTrustResponse_httpStatus' - The response's http status code.+newCreateTrustResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  CreateTrustResponse+newCreateTrustResponse pHttpStatus_ =+  CreateTrustResponse'+    { trustId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A unique identifier for the trust relationship that was created.+createTrustResponse_trustId :: Lens.Lens' CreateTrustResponse (Prelude.Maybe Prelude.Text)+createTrustResponse_trustId = Lens.lens (\CreateTrustResponse' {trustId} -> trustId) (\s@CreateTrustResponse' {} a -> s {trustId = a} :: CreateTrustResponse)++-- | The response's http status code.+createTrustResponse_httpStatus :: Lens.Lens' CreateTrustResponse Prelude.Int+createTrustResponse_httpStatus = Lens.lens (\CreateTrustResponse' {httpStatus} -> httpStatus) (\s@CreateTrustResponse' {} a -> s {httpStatus = a} :: CreateTrustResponse)++instance Prelude.NFData CreateTrustResponse where+  rnf CreateTrustResponse' {..} =+    Prelude.rnf trustId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeleteConditionalForwarder.hs view

@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeleteConditionalForwarder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a conditional forwarder that has been set up for your Amazon Web+-- Services directory.+module Amazonka.DirectoryService.DeleteConditionalForwarder+  ( -- * Creating a Request+    DeleteConditionalForwarder (..),+    newDeleteConditionalForwarder,++    -- * Request Lenses+    deleteConditionalForwarder_directoryId,+    deleteConditionalForwarder_remoteDomainName,++    -- * Destructuring the Response+    DeleteConditionalForwarderResponse (..),+    newDeleteConditionalForwarderResponse,++    -- * Response Lenses+    deleteConditionalForwarderResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Deletes a conditional forwarder.+--+-- /See:/ 'newDeleteConditionalForwarder' smart constructor.+data DeleteConditionalForwarder = DeleteConditionalForwarder'+  { -- | The directory ID for which you are deleting the conditional forwarder.+    directoryId :: Prelude.Text,+    -- | The fully qualified domain name (FQDN) of the remote domain with which+    -- you are deleting the conditional forwarder.+    remoteDomainName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteConditionalForwarder' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deleteConditionalForwarder_directoryId' - The directory ID for which you are deleting the conditional forwarder.+--+-- 'remoteDomainName', 'deleteConditionalForwarder_remoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which+-- you are deleting the conditional forwarder.+newDeleteConditionalForwarder ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'remoteDomainName'+  Prelude.Text ->+  DeleteConditionalForwarder+newDeleteConditionalForwarder+  pDirectoryId_+  pRemoteDomainName_ =+    DeleteConditionalForwarder'+      { directoryId =+          pDirectoryId_,+        remoteDomainName = pRemoteDomainName_+      }++-- | The directory ID for which you are deleting the conditional forwarder.+deleteConditionalForwarder_directoryId :: Lens.Lens' DeleteConditionalForwarder Prelude.Text+deleteConditionalForwarder_directoryId = Lens.lens (\DeleteConditionalForwarder' {directoryId} -> directoryId) (\s@DeleteConditionalForwarder' {} a -> s {directoryId = a} :: DeleteConditionalForwarder)++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you are deleting the conditional forwarder.+deleteConditionalForwarder_remoteDomainName :: Lens.Lens' DeleteConditionalForwarder Prelude.Text+deleteConditionalForwarder_remoteDomainName = Lens.lens (\DeleteConditionalForwarder' {remoteDomainName} -> remoteDomainName) (\s@DeleteConditionalForwarder' {} a -> s {remoteDomainName = a} :: DeleteConditionalForwarder)++instance Core.AWSRequest DeleteConditionalForwarder where+  type+    AWSResponse DeleteConditionalForwarder =+      DeleteConditionalForwarderResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteConditionalForwarderResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteConditionalForwarder where+  hashWithSalt _salt DeleteConditionalForwarder' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` remoteDomainName++instance Prelude.NFData DeleteConditionalForwarder where+  rnf DeleteConditionalForwarder' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf remoteDomainName++instance Data.ToHeaders DeleteConditionalForwarder where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeleteConditionalForwarder" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteConditionalForwarder where+  toJSON DeleteConditionalForwarder' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RemoteDomainName" Data..= remoteDomainName)+          ]+      )++instance Data.ToPath DeleteConditionalForwarder where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteConditionalForwarder where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DeleteConditionalForwarder request.+--+-- /See:/ 'newDeleteConditionalForwarderResponse' smart constructor.+data DeleteConditionalForwarderResponse = DeleteConditionalForwarderResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteConditionalForwarderResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteConditionalForwarderResponse_httpStatus' - The response's http status code.+newDeleteConditionalForwarderResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteConditionalForwarderResponse+newDeleteConditionalForwarderResponse pHttpStatus_ =+  DeleteConditionalForwarderResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteConditionalForwarderResponse_httpStatus :: Lens.Lens' DeleteConditionalForwarderResponse Prelude.Int+deleteConditionalForwarderResponse_httpStatus = Lens.lens (\DeleteConditionalForwarderResponse' {httpStatus} -> httpStatus) (\s@DeleteConditionalForwarderResponse' {} a -> s {httpStatus = a} :: DeleteConditionalForwarderResponse)++instance+  Prelude.NFData+    DeleteConditionalForwarderResponse+  where+  rnf DeleteConditionalForwarderResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeleteDirectory.hs view

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeleteDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an Directory Service directory.+--+-- Before you call @DeleteDirectory@, ensure that all of the required+-- permissions have been explicitly granted through a policy. For details+-- about what permissions are required to run the @DeleteDirectory@+-- operation, see+-- <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html Directory Service API Permissions: Actions, Resources, and Conditions Reference>.+module Amazonka.DirectoryService.DeleteDirectory+  ( -- * Creating a Request+    DeleteDirectory (..),+    newDeleteDirectory,++    -- * Request Lenses+    deleteDirectory_directoryId,++    -- * Destructuring the Response+    DeleteDirectoryResponse (..),+    newDeleteDirectoryResponse,++    -- * Response Lenses+    deleteDirectoryResponse_directoryId,+    deleteDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DeleteDirectory operation.+--+-- /See:/ 'newDeleteDirectory' smart constructor.+data DeleteDirectory = DeleteDirectory'+  { -- | The identifier of the directory to delete.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deleteDirectory_directoryId' - The identifier of the directory to delete.+newDeleteDirectory ::+  -- | 'directoryId'+  Prelude.Text ->+  DeleteDirectory+newDeleteDirectory pDirectoryId_ =+  DeleteDirectory' {directoryId = pDirectoryId_}++-- | The identifier of the directory to delete.+deleteDirectory_directoryId :: Lens.Lens' DeleteDirectory Prelude.Text+deleteDirectory_directoryId = Lens.lens (\DeleteDirectory' {directoryId} -> directoryId) (\s@DeleteDirectory' {} a -> s {directoryId = a} :: DeleteDirectory)++instance Core.AWSRequest DeleteDirectory where+  type+    AWSResponse DeleteDirectory =+      DeleteDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteDirectoryResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteDirectory where+  hashWithSalt _salt DeleteDirectory' {..} =+    _salt `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DeleteDirectory where+  rnf DeleteDirectory' {..} = Prelude.rnf directoryId++instance Data.ToHeaders DeleteDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeleteDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteDirectory where+  toJSON DeleteDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DirectoryId" Data..= directoryId)]+      )++instance Data.ToPath DeleteDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DeleteDirectory operation.+--+-- /See:/ 'newDeleteDirectoryResponse' smart constructor.+data DeleteDirectoryResponse = DeleteDirectoryResponse'+  { -- | The directory identifier.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deleteDirectoryResponse_directoryId' - The directory identifier.+--+-- 'httpStatus', 'deleteDirectoryResponse_httpStatus' - The response's http status code.+newDeleteDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteDirectoryResponse+newDeleteDirectoryResponse pHttpStatus_ =+  DeleteDirectoryResponse'+    { directoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The directory identifier.+deleteDirectoryResponse_directoryId :: Lens.Lens' DeleteDirectoryResponse (Prelude.Maybe Prelude.Text)+deleteDirectoryResponse_directoryId = Lens.lens (\DeleteDirectoryResponse' {directoryId} -> directoryId) (\s@DeleteDirectoryResponse' {} a -> s {directoryId = a} :: DeleteDirectoryResponse)++-- | The response's http status code.+deleteDirectoryResponse_httpStatus :: Lens.Lens' DeleteDirectoryResponse Prelude.Int+deleteDirectoryResponse_httpStatus = Lens.lens (\DeleteDirectoryResponse' {httpStatus} -> httpStatus) (\s@DeleteDirectoryResponse' {} a -> s {httpStatus = a} :: DeleteDirectoryResponse)++instance Prelude.NFData DeleteDirectoryResponse where+  rnf DeleteDirectoryResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeleteLogSubscription.hs view

@@ -0,0 +1,157 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeleteLogSubscription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the specified log subscription.+module Amazonka.DirectoryService.DeleteLogSubscription+  ( -- * Creating a Request+    DeleteLogSubscription (..),+    newDeleteLogSubscription,++    -- * Request Lenses+    deleteLogSubscription_directoryId,++    -- * Destructuring the Response+    DeleteLogSubscriptionResponse (..),+    newDeleteLogSubscriptionResponse,++    -- * Response Lenses+    deleteLogSubscriptionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeleteLogSubscription' smart constructor.+data DeleteLogSubscription = DeleteLogSubscription'+  { -- | Identifier of the directory whose log subscription you want to delete.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLogSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deleteLogSubscription_directoryId' - Identifier of the directory whose log subscription you want to delete.+newDeleteLogSubscription ::+  -- | 'directoryId'+  Prelude.Text ->+  DeleteLogSubscription+newDeleteLogSubscription pDirectoryId_ =+  DeleteLogSubscription' {directoryId = pDirectoryId_}++-- | Identifier of the directory whose log subscription you want to delete.+deleteLogSubscription_directoryId :: Lens.Lens' DeleteLogSubscription Prelude.Text+deleteLogSubscription_directoryId = Lens.lens (\DeleteLogSubscription' {directoryId} -> directoryId) (\s@DeleteLogSubscription' {} a -> s {directoryId = a} :: DeleteLogSubscription)++instance Core.AWSRequest DeleteLogSubscription where+  type+    AWSResponse DeleteLogSubscription =+      DeleteLogSubscriptionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeleteLogSubscriptionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteLogSubscription where+  hashWithSalt _salt DeleteLogSubscription' {..} =+    _salt `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DeleteLogSubscription where+  rnf DeleteLogSubscription' {..} =+    Prelude.rnf directoryId++instance Data.ToHeaders DeleteLogSubscription where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeleteLogSubscription" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteLogSubscription where+  toJSON DeleteLogSubscription' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DirectoryId" Data..= directoryId)]+      )++instance Data.ToPath DeleteLogSubscription where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteLogSubscription where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeleteLogSubscriptionResponse' smart constructor.+data DeleteLogSubscriptionResponse = DeleteLogSubscriptionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteLogSubscriptionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deleteLogSubscriptionResponse_httpStatus' - The response's http status code.+newDeleteLogSubscriptionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteLogSubscriptionResponse+newDeleteLogSubscriptionResponse pHttpStatus_ =+  DeleteLogSubscriptionResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deleteLogSubscriptionResponse_httpStatus :: Lens.Lens' DeleteLogSubscriptionResponse Prelude.Int+deleteLogSubscriptionResponse_httpStatus = Lens.lens (\DeleteLogSubscriptionResponse' {httpStatus} -> httpStatus) (\s@DeleteLogSubscriptionResponse' {} a -> s {httpStatus = a} :: DeleteLogSubscriptionResponse)++instance Prelude.NFData DeleteLogSubscriptionResponse where+  rnf DeleteLogSubscriptionResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeleteSnapshot.hs view

@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeleteSnapshot+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a directory snapshot.+module Amazonka.DirectoryService.DeleteSnapshot+  ( -- * Creating a Request+    DeleteSnapshot (..),+    newDeleteSnapshot,++    -- * Request Lenses+    deleteSnapshot_snapshotId,++    -- * Destructuring the Response+    DeleteSnapshotResponse (..),+    newDeleteSnapshotResponse,++    -- * Response Lenses+    deleteSnapshotResponse_snapshotId,+    deleteSnapshotResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DeleteSnapshot operation.+--+-- /See:/ 'newDeleteSnapshot' smart constructor.+data DeleteSnapshot = DeleteSnapshot'+  { -- | The identifier of the directory snapshot to be deleted.+    snapshotId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotId', 'deleteSnapshot_snapshotId' - The identifier of the directory snapshot to be deleted.+newDeleteSnapshot ::+  -- | 'snapshotId'+  Prelude.Text ->+  DeleteSnapshot+newDeleteSnapshot pSnapshotId_ =+  DeleteSnapshot' {snapshotId = pSnapshotId_}++-- | The identifier of the directory snapshot to be deleted.+deleteSnapshot_snapshotId :: Lens.Lens' DeleteSnapshot Prelude.Text+deleteSnapshot_snapshotId = Lens.lens (\DeleteSnapshot' {snapshotId} -> snapshotId) (\s@DeleteSnapshot' {} a -> s {snapshotId = a} :: DeleteSnapshot)++instance Core.AWSRequest DeleteSnapshot where+  type+    AWSResponse DeleteSnapshot =+      DeleteSnapshotResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteSnapshotResponse'+            Prelude.<$> (x Data..?> "SnapshotId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteSnapshot where+  hashWithSalt _salt DeleteSnapshot' {..} =+    _salt `Prelude.hashWithSalt` snapshotId++instance Prelude.NFData DeleteSnapshot where+  rnf DeleteSnapshot' {..} = Prelude.rnf snapshotId++instance Data.ToHeaders DeleteSnapshot where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeleteSnapshot" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteSnapshot where+  toJSON DeleteSnapshot' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("SnapshotId" Data..= snapshotId)]+      )++instance Data.ToPath DeleteSnapshot where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteSnapshot where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DeleteSnapshot operation.+--+-- /See:/ 'newDeleteSnapshotResponse' smart constructor.+data DeleteSnapshotResponse = DeleteSnapshotResponse'+  { -- | The identifier of the directory snapshot that was deleted.+    snapshotId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotId', 'deleteSnapshotResponse_snapshotId' - The identifier of the directory snapshot that was deleted.+--+-- 'httpStatus', 'deleteSnapshotResponse_httpStatus' - The response's http status code.+newDeleteSnapshotResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteSnapshotResponse+newDeleteSnapshotResponse pHttpStatus_ =+  DeleteSnapshotResponse'+    { snapshotId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the directory snapshot that was deleted.+deleteSnapshotResponse_snapshotId :: Lens.Lens' DeleteSnapshotResponse (Prelude.Maybe Prelude.Text)+deleteSnapshotResponse_snapshotId = Lens.lens (\DeleteSnapshotResponse' {snapshotId} -> snapshotId) (\s@DeleteSnapshotResponse' {} a -> s {snapshotId = a} :: DeleteSnapshotResponse)++-- | The response's http status code.+deleteSnapshotResponse_httpStatus :: Lens.Lens' DeleteSnapshotResponse Prelude.Int+deleteSnapshotResponse_httpStatus = Lens.lens (\DeleteSnapshotResponse' {httpStatus} -> httpStatus) (\s@DeleteSnapshotResponse' {} a -> s {httpStatus = a} :: DeleteSnapshotResponse)++instance Prelude.NFData DeleteSnapshotResponse where+  rnf DeleteSnapshotResponse' {..} =+    Prelude.rnf snapshotId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeleteTrust.hs view

@@ -0,0 +1,191 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeleteTrust+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes an existing trust relationship between your Managed Microsoft AD+-- directory and an external domain.+module Amazonka.DirectoryService.DeleteTrust+  ( -- * Creating a Request+    DeleteTrust (..),+    newDeleteTrust,++    -- * Request Lenses+    deleteTrust_deleteAssociatedConditionalForwarder,+    deleteTrust_trustId,++    -- * Destructuring the Response+    DeleteTrustResponse (..),+    newDeleteTrustResponse,++    -- * Response Lenses+    deleteTrustResponse_trustId,+    deleteTrustResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Deletes the local side of an existing trust relationship between the+-- Managed Microsoft AD directory and the external domain.+--+-- /See:/ 'newDeleteTrust' smart constructor.+data DeleteTrust = DeleteTrust'+  { -- | Delete a conditional forwarder as part of a DeleteTrustRequest.+    deleteAssociatedConditionalForwarder :: Prelude.Maybe Prelude.Bool,+    -- | The Trust ID of the trust relationship to be deleted.+    trustId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTrust' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'deleteAssociatedConditionalForwarder', 'deleteTrust_deleteAssociatedConditionalForwarder' - Delete a conditional forwarder as part of a DeleteTrustRequest.+--+-- 'trustId', 'deleteTrust_trustId' - The Trust ID of the trust relationship to be deleted.+newDeleteTrust ::+  -- | 'trustId'+  Prelude.Text ->+  DeleteTrust+newDeleteTrust pTrustId_ =+  DeleteTrust'+    { deleteAssociatedConditionalForwarder =+        Prelude.Nothing,+      trustId = pTrustId_+    }++-- | Delete a conditional forwarder as part of a DeleteTrustRequest.+deleteTrust_deleteAssociatedConditionalForwarder :: Lens.Lens' DeleteTrust (Prelude.Maybe Prelude.Bool)+deleteTrust_deleteAssociatedConditionalForwarder = Lens.lens (\DeleteTrust' {deleteAssociatedConditionalForwarder} -> deleteAssociatedConditionalForwarder) (\s@DeleteTrust' {} a -> s {deleteAssociatedConditionalForwarder = a} :: DeleteTrust)++-- | The Trust ID of the trust relationship to be deleted.+deleteTrust_trustId :: Lens.Lens' DeleteTrust Prelude.Text+deleteTrust_trustId = Lens.lens (\DeleteTrust' {trustId} -> trustId) (\s@DeleteTrust' {} a -> s {trustId = a} :: DeleteTrust)++instance Core.AWSRequest DeleteTrust where+  type AWSResponse DeleteTrust = DeleteTrustResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DeleteTrustResponse'+            Prelude.<$> (x Data..?> "TrustId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeleteTrust where+  hashWithSalt _salt DeleteTrust' {..} =+    _salt+      `Prelude.hashWithSalt` deleteAssociatedConditionalForwarder+      `Prelude.hashWithSalt` trustId++instance Prelude.NFData DeleteTrust where+  rnf DeleteTrust' {..} =+    Prelude.rnf deleteAssociatedConditionalForwarder+      `Prelude.seq` Prelude.rnf trustId++instance Data.ToHeaders DeleteTrust where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeleteTrust" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeleteTrust where+  toJSON DeleteTrust' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DeleteAssociatedConditionalForwarder" Data..=)+              Prelude.<$> deleteAssociatedConditionalForwarder,+            Prelude.Just ("TrustId" Data..= trustId)+          ]+      )++instance Data.ToPath DeleteTrust where+  toPath = Prelude.const "/"++instance Data.ToQuery DeleteTrust where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DeleteTrust request.+--+-- /See:/ 'newDeleteTrustResponse' smart constructor.+data DeleteTrustResponse = DeleteTrustResponse'+  { -- | The Trust ID of the trust relationship that was deleted.+    trustId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeleteTrustResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'trustId', 'deleteTrustResponse_trustId' - The Trust ID of the trust relationship that was deleted.+--+-- 'httpStatus', 'deleteTrustResponse_httpStatus' - The response's http status code.+newDeleteTrustResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeleteTrustResponse+newDeleteTrustResponse pHttpStatus_ =+  DeleteTrustResponse'+    { trustId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The Trust ID of the trust relationship that was deleted.+deleteTrustResponse_trustId :: Lens.Lens' DeleteTrustResponse (Prelude.Maybe Prelude.Text)+deleteTrustResponse_trustId = Lens.lens (\DeleteTrustResponse' {trustId} -> trustId) (\s@DeleteTrustResponse' {} a -> s {trustId = a} :: DeleteTrustResponse)++-- | The response's http status code.+deleteTrustResponse_httpStatus :: Lens.Lens' DeleteTrustResponse Prelude.Int+deleteTrustResponse_httpStatus = Lens.lens (\DeleteTrustResponse' {httpStatus} -> httpStatus) (\s@DeleteTrustResponse' {} a -> s {httpStatus = a} :: DeleteTrustResponse)++instance Prelude.NFData DeleteTrustResponse where+  rnf DeleteTrustResponse' {..} =+    Prelude.rnf trustId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeregisterCertificate.hs view

@@ -0,0 +1,180 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeregisterCertificate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes from the system the certificate that was registered for secure+-- LDAP or client certificate authentication.+module Amazonka.DirectoryService.DeregisterCertificate+  ( -- * Creating a Request+    DeregisterCertificate (..),+    newDeregisterCertificate,++    -- * Request Lenses+    deregisterCertificate_directoryId,+    deregisterCertificate_certificateId,++    -- * Destructuring the Response+    DeregisterCertificateResponse (..),+    newDeregisterCertificateResponse,++    -- * Response Lenses+    deregisterCertificateResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDeregisterCertificate' smart constructor.+data DeregisterCertificate = DeregisterCertificate'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The identifier of the certificate.+    certificateId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deregisterCertificate_directoryId' - The identifier of the directory.+--+-- 'certificateId', 'deregisterCertificate_certificateId' - The identifier of the certificate.+newDeregisterCertificate ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'certificateId'+  Prelude.Text ->+  DeregisterCertificate+newDeregisterCertificate+  pDirectoryId_+  pCertificateId_ =+    DeregisterCertificate'+      { directoryId = pDirectoryId_,+        certificateId = pCertificateId_+      }++-- | The identifier of the directory.+deregisterCertificate_directoryId :: Lens.Lens' DeregisterCertificate Prelude.Text+deregisterCertificate_directoryId = Lens.lens (\DeregisterCertificate' {directoryId} -> directoryId) (\s@DeregisterCertificate' {} a -> s {directoryId = a} :: DeregisterCertificate)++-- | The identifier of the certificate.+deregisterCertificate_certificateId :: Lens.Lens' DeregisterCertificate Prelude.Text+deregisterCertificate_certificateId = Lens.lens (\DeregisterCertificate' {certificateId} -> certificateId) (\s@DeregisterCertificate' {} a -> s {certificateId = a} :: DeregisterCertificate)++instance Core.AWSRequest DeregisterCertificate where+  type+    AWSResponse DeregisterCertificate =+      DeregisterCertificateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeregisterCertificateResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeregisterCertificate where+  hashWithSalt _salt DeregisterCertificate' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` certificateId++instance Prelude.NFData DeregisterCertificate where+  rnf DeregisterCertificate' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf certificateId++instance Data.ToHeaders DeregisterCertificate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeregisterCertificate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeregisterCertificate where+  toJSON DeregisterCertificate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("CertificateId" Data..= certificateId)+          ]+      )++instance Data.ToPath DeregisterCertificate where+  toPath = Prelude.const "/"++instance Data.ToQuery DeregisterCertificate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDeregisterCertificateResponse' smart constructor.+data DeregisterCertificateResponse = DeregisterCertificateResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterCertificateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deregisterCertificateResponse_httpStatus' - The response's http status code.+newDeregisterCertificateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeregisterCertificateResponse+newDeregisterCertificateResponse pHttpStatus_ =+  DeregisterCertificateResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deregisterCertificateResponse_httpStatus :: Lens.Lens' DeregisterCertificateResponse Prelude.Int+deregisterCertificateResponse_httpStatus = Lens.lens (\DeregisterCertificateResponse' {httpStatus} -> httpStatus) (\s@DeregisterCertificateResponse' {} a -> s {httpStatus = a} :: DeregisterCertificateResponse)++instance Prelude.NFData DeregisterCertificateResponse where+  rnf DeregisterCertificateResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DeregisterEventTopic.hs view

@@ -0,0 +1,188 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DeregisterEventTopic+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes the specified directory as a publisher to the specified Amazon+-- SNS topic.+module Amazonka.DirectoryService.DeregisterEventTopic+  ( -- * Creating a Request+    DeregisterEventTopic (..),+    newDeregisterEventTopic,++    -- * Request Lenses+    deregisterEventTopic_directoryId,+    deregisterEventTopic_topicName,++    -- * Destructuring the Response+    DeregisterEventTopicResponse (..),+    newDeregisterEventTopicResponse,++    -- * Response Lenses+    deregisterEventTopicResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Removes the specified directory as a publisher to the specified Amazon+-- SNS topic.+--+-- /See:/ 'newDeregisterEventTopic' smart constructor.+data DeregisterEventTopic = DeregisterEventTopic'+  { -- | The Directory ID to remove as a publisher. This directory will no longer+    -- send messages to the specified Amazon SNS topic.+    directoryId :: Prelude.Text,+    -- | The name of the Amazon SNS topic from which to remove the directory as a+    -- publisher.+    topicName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterEventTopic' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'deregisterEventTopic_directoryId' - The Directory ID to remove as a publisher. This directory will no longer+-- send messages to the specified Amazon SNS topic.+--+-- 'topicName', 'deregisterEventTopic_topicName' - The name of the Amazon SNS topic from which to remove the directory as a+-- publisher.+newDeregisterEventTopic ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'topicName'+  Prelude.Text ->+  DeregisterEventTopic+newDeregisterEventTopic pDirectoryId_ pTopicName_ =+  DeregisterEventTopic'+    { directoryId = pDirectoryId_,+      topicName = pTopicName_+    }++-- | The Directory ID to remove as a publisher. This directory will no longer+-- send messages to the specified Amazon SNS topic.+deregisterEventTopic_directoryId :: Lens.Lens' DeregisterEventTopic Prelude.Text+deregisterEventTopic_directoryId = Lens.lens (\DeregisterEventTopic' {directoryId} -> directoryId) (\s@DeregisterEventTopic' {} a -> s {directoryId = a} :: DeregisterEventTopic)++-- | The name of the Amazon SNS topic from which to remove the directory as a+-- publisher.+deregisterEventTopic_topicName :: Lens.Lens' DeregisterEventTopic Prelude.Text+deregisterEventTopic_topicName = Lens.lens (\DeregisterEventTopic' {topicName} -> topicName) (\s@DeregisterEventTopic' {} a -> s {topicName = a} :: DeregisterEventTopic)++instance Core.AWSRequest DeregisterEventTopic where+  type+    AWSResponse DeregisterEventTopic =+      DeregisterEventTopicResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DeregisterEventTopicResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DeregisterEventTopic where+  hashWithSalt _salt DeregisterEventTopic' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` topicName++instance Prelude.NFData DeregisterEventTopic where+  rnf DeregisterEventTopic' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf topicName++instance Data.ToHeaders DeregisterEventTopic where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DeregisterEventTopic" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DeregisterEventTopic where+  toJSON DeregisterEventTopic' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("TopicName" Data..= topicName)+          ]+      )++instance Data.ToPath DeregisterEventTopic where+  toPath = Prelude.const "/"++instance Data.ToQuery DeregisterEventTopic where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DeregisterEventTopic request.+--+-- /See:/ 'newDeregisterEventTopicResponse' smart constructor.+data DeregisterEventTopicResponse = DeregisterEventTopicResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DeregisterEventTopicResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'deregisterEventTopicResponse_httpStatus' - The response's http status code.+newDeregisterEventTopicResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DeregisterEventTopicResponse+newDeregisterEventTopicResponse pHttpStatus_ =+  DeregisterEventTopicResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+deregisterEventTopicResponse_httpStatus :: Lens.Lens' DeregisterEventTopicResponse Prelude.Int+deregisterEventTopicResponse_httpStatus = Lens.lens (\DeregisterEventTopicResponse' {httpStatus} -> httpStatus) (\s@DeregisterEventTopicResponse' {} a -> s {httpStatus = a} :: DeregisterEventTopicResponse)++instance Prelude.NFData DeregisterEventTopicResponse where+  rnf DeregisterEventTopicResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeCertificate.hs view

@@ -0,0 +1,196 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeCertificate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Displays information about the certificate registered for secure LDAP or+-- client certificate authentication.+module Amazonka.DirectoryService.DescribeCertificate+  ( -- * Creating a Request+    DescribeCertificate (..),+    newDescribeCertificate,++    -- * Request Lenses+    describeCertificate_directoryId,+    describeCertificate_certificateId,++    -- * Destructuring the Response+    DescribeCertificateResponse (..),+    newDescribeCertificateResponse,++    -- * Response Lenses+    describeCertificateResponse_certificate,+    describeCertificateResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeCertificate' smart constructor.+data DescribeCertificate = DescribeCertificate'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The identifier of the certificate.+    certificateId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'describeCertificate_directoryId' - The identifier of the directory.+--+-- 'certificateId', 'describeCertificate_certificateId' - The identifier of the certificate.+newDescribeCertificate ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'certificateId'+  Prelude.Text ->+  DescribeCertificate+newDescribeCertificate pDirectoryId_ pCertificateId_ =+  DescribeCertificate'+    { directoryId = pDirectoryId_,+      certificateId = pCertificateId_+    }++-- | The identifier of the directory.+describeCertificate_directoryId :: Lens.Lens' DescribeCertificate Prelude.Text+describeCertificate_directoryId = Lens.lens (\DescribeCertificate' {directoryId} -> directoryId) (\s@DescribeCertificate' {} a -> s {directoryId = a} :: DescribeCertificate)++-- | The identifier of the certificate.+describeCertificate_certificateId :: Lens.Lens' DescribeCertificate Prelude.Text+describeCertificate_certificateId = Lens.lens (\DescribeCertificate' {certificateId} -> certificateId) (\s@DescribeCertificate' {} a -> s {certificateId = a} :: DescribeCertificate)++instance Core.AWSRequest DescribeCertificate where+  type+    AWSResponse DescribeCertificate =+      DescribeCertificateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeCertificateResponse'+            Prelude.<$> (x Data..?> "Certificate")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeCertificate where+  hashWithSalt _salt DescribeCertificate' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` certificateId++instance Prelude.NFData DescribeCertificate where+  rnf DescribeCertificate' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf certificateId++instance Data.ToHeaders DescribeCertificate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeCertificate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeCertificate where+  toJSON DescribeCertificate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("CertificateId" Data..= certificateId)+          ]+      )++instance Data.ToPath DescribeCertificate where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeCertificate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeCertificateResponse' smart constructor.+data DescribeCertificateResponse = DescribeCertificateResponse'+  { -- | Information about the certificate, including registered date time,+    -- certificate state, the reason for the state, expiration date time, and+    -- certificate common name.+    certificate :: Prelude.Maybe Certificate,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeCertificateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificate', 'describeCertificateResponse_certificate' - Information about the certificate, including registered date time,+-- certificate state, the reason for the state, expiration date time, and+-- certificate common name.+--+-- 'httpStatus', 'describeCertificateResponse_httpStatus' - The response's http status code.+newDescribeCertificateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeCertificateResponse+newDescribeCertificateResponse pHttpStatus_ =+  DescribeCertificateResponse'+    { certificate =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about the certificate, including registered date time,+-- certificate state, the reason for the state, expiration date time, and+-- certificate common name.+describeCertificateResponse_certificate :: Lens.Lens' DescribeCertificateResponse (Prelude.Maybe Certificate)+describeCertificateResponse_certificate = Lens.lens (\DescribeCertificateResponse' {certificate} -> certificate) (\s@DescribeCertificateResponse' {} a -> s {certificate = a} :: DescribeCertificateResponse)++-- | The response's http status code.+describeCertificateResponse_httpStatus :: Lens.Lens' DescribeCertificateResponse Prelude.Int+describeCertificateResponse_httpStatus = Lens.lens (\DescribeCertificateResponse' {httpStatus} -> httpStatus) (\s@DescribeCertificateResponse' {} a -> s {httpStatus = a} :: DescribeCertificateResponse)++instance Prelude.NFData DescribeCertificateResponse where+  rnf DescribeCertificateResponse' {..} =+    Prelude.rnf certificate+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeClientAuthenticationSettings.hs view

@@ -0,0 +1,322 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeClientAuthenticationSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about the type of client authentication for the+-- specified directory, if the type is specified. If no type is specified,+-- information about all client authentication types that are supported for+-- the specified directory is retrieved. Currently, only @SmartCard@ is+-- supported.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeClientAuthenticationSettings+  ( -- * Creating a Request+    DescribeClientAuthenticationSettings (..),+    newDescribeClientAuthenticationSettings,++    -- * Request Lenses+    describeClientAuthenticationSettings_limit,+    describeClientAuthenticationSettings_nextToken,+    describeClientAuthenticationSettings_type,+    describeClientAuthenticationSettings_directoryId,++    -- * Destructuring the Response+    DescribeClientAuthenticationSettingsResponse (..),+    newDescribeClientAuthenticationSettingsResponse,++    -- * Response Lenses+    describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo,+    describeClientAuthenticationSettingsResponse_nextToken,+    describeClientAuthenticationSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeClientAuthenticationSettings' smart constructor.+data DescribeClientAuthenticationSettings = DescribeClientAuthenticationSettings'+  { -- | The maximum number of items to return. If this value is zero, the+    -- maximum number of items is specified by the limitations of the+    -- operation.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The /DescribeClientAuthenticationSettingsResult.NextToken/ value from a+    -- previous call to DescribeClientAuthenticationSettings. Pass null if this+    -- is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The type of client authentication for which to retrieve information. If+    -- no type is specified, a list of all client authentication types that are+    -- supported for the specified directory is retrieved.+    type' :: Prelude.Maybe ClientAuthenticationType,+    -- | The identifier of the directory for which to retrieve information.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClientAuthenticationSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'describeClientAuthenticationSettings_limit' - The maximum number of items to return. If this value is zero, the+-- maximum number of items is specified by the limitations of the+-- operation.+--+-- 'nextToken', 'describeClientAuthenticationSettings_nextToken' - The /DescribeClientAuthenticationSettingsResult.NextToken/ value from a+-- previous call to DescribeClientAuthenticationSettings. Pass null if this+-- is the first call.+--+-- 'type'', 'describeClientAuthenticationSettings_type' - The type of client authentication for which to retrieve information. If+-- no type is specified, a list of all client authentication types that are+-- supported for the specified directory is retrieved.+--+-- 'directoryId', 'describeClientAuthenticationSettings_directoryId' - The identifier of the directory for which to retrieve information.+newDescribeClientAuthenticationSettings ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeClientAuthenticationSettings+newDescribeClientAuthenticationSettings pDirectoryId_ =+  DescribeClientAuthenticationSettings'+    { limit =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The maximum number of items to return. If this value is zero, the+-- maximum number of items is specified by the limitations of the+-- operation.+describeClientAuthenticationSettings_limit :: Lens.Lens' DescribeClientAuthenticationSettings (Prelude.Maybe Prelude.Natural)+describeClientAuthenticationSettings_limit = Lens.lens (\DescribeClientAuthenticationSettings' {limit} -> limit) (\s@DescribeClientAuthenticationSettings' {} a -> s {limit = a} :: DescribeClientAuthenticationSettings)++-- | The /DescribeClientAuthenticationSettingsResult.NextToken/ value from a+-- previous call to DescribeClientAuthenticationSettings. Pass null if this+-- is the first call.+describeClientAuthenticationSettings_nextToken :: Lens.Lens' DescribeClientAuthenticationSettings (Prelude.Maybe Prelude.Text)+describeClientAuthenticationSettings_nextToken = Lens.lens (\DescribeClientAuthenticationSettings' {nextToken} -> nextToken) (\s@DescribeClientAuthenticationSettings' {} a -> s {nextToken = a} :: DescribeClientAuthenticationSettings)++-- | The type of client authentication for which to retrieve information. If+-- no type is specified, a list of all client authentication types that are+-- supported for the specified directory is retrieved.+describeClientAuthenticationSettings_type :: Lens.Lens' DescribeClientAuthenticationSettings (Prelude.Maybe ClientAuthenticationType)+describeClientAuthenticationSettings_type = Lens.lens (\DescribeClientAuthenticationSettings' {type'} -> type') (\s@DescribeClientAuthenticationSettings' {} a -> s {type' = a} :: DescribeClientAuthenticationSettings)++-- | The identifier of the directory for which to retrieve information.+describeClientAuthenticationSettings_directoryId :: Lens.Lens' DescribeClientAuthenticationSettings Prelude.Text+describeClientAuthenticationSettings_directoryId = Lens.lens (\DescribeClientAuthenticationSettings' {directoryId} -> directoryId) (\s@DescribeClientAuthenticationSettings' {} a -> s {directoryId = a} :: DescribeClientAuthenticationSettings)++instance+  Core.AWSPager+    DescribeClientAuthenticationSettings+  where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeClientAuthenticationSettingsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeClientAuthenticationSettings_nextToken+          Lens..~ rs+          Lens.^? describeClientAuthenticationSettingsResponse_nextToken+          Prelude.. Lens._Just++instance+  Core.AWSRequest+    DescribeClientAuthenticationSettings+  where+  type+    AWSResponse DescribeClientAuthenticationSettings =+      DescribeClientAuthenticationSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeClientAuthenticationSettingsResponse'+            Prelude.<$> ( x+                            Data..?> "ClientAuthenticationSettingsInfo"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeClientAuthenticationSettings+  where+  hashWithSalt+    _salt+    DescribeClientAuthenticationSettings' {..} =+      _salt+        `Prelude.hashWithSalt` limit+        `Prelude.hashWithSalt` nextToken+        `Prelude.hashWithSalt` type'+        `Prelude.hashWithSalt` directoryId++instance+  Prelude.NFData+    DescribeClientAuthenticationSettings+  where+  rnf DescribeClientAuthenticationSettings' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf directoryId++instance+  Data.ToHeaders+    DescribeClientAuthenticationSettings+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeClientAuthenticationSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance+  Data.ToJSON+    DescribeClientAuthenticationSettings+  where+  toJSON DescribeClientAuthenticationSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Type" Data..=) Prelude.<$> type',+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance+  Data.ToPath+    DescribeClientAuthenticationSettings+  where+  toPath = Prelude.const "/"++instance+  Data.ToQuery+    DescribeClientAuthenticationSettings+  where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeClientAuthenticationSettingsResponse' smart constructor.+data DescribeClientAuthenticationSettingsResponse = DescribeClientAuthenticationSettingsResponse'+  { -- | Information about the type of client authentication for the specified+    -- directory. The following information is retrieved: The date and time+    -- when the status of the client authentication type was last updated,+    -- whether the client authentication type is enabled or disabled, and the+    -- type of client authentication.+    clientAuthenticationSettingsInfo :: Prelude.Maybe [ClientAuthenticationSettingInfo],+    -- | The next token used to retrieve the client authentication settings if+    -- the number of setting types exceeds page limit and there is another+    -- page.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeClientAuthenticationSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientAuthenticationSettingsInfo', 'describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo' - Information about the type of client authentication for the specified+-- directory. The following information is retrieved: The date and time+-- when the status of the client authentication type was last updated,+-- whether the client authentication type is enabled or disabled, and the+-- type of client authentication.+--+-- 'nextToken', 'describeClientAuthenticationSettingsResponse_nextToken' - The next token used to retrieve the client authentication settings if+-- the number of setting types exceeds page limit and there is another+-- page.+--+-- 'httpStatus', 'describeClientAuthenticationSettingsResponse_httpStatus' - The response's http status code.+newDescribeClientAuthenticationSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeClientAuthenticationSettingsResponse+newDescribeClientAuthenticationSettingsResponse+  pHttpStatus_ =+    DescribeClientAuthenticationSettingsResponse'+      { clientAuthenticationSettingsInfo =+          Prelude.Nothing,+        nextToken = Prelude.Nothing,+        httpStatus = pHttpStatus_+      }++-- | Information about the type of client authentication for the specified+-- directory. The following information is retrieved: The date and time+-- when the status of the client authentication type was last updated,+-- whether the client authentication type is enabled or disabled, and the+-- type of client authentication.+describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo :: Lens.Lens' DescribeClientAuthenticationSettingsResponse (Prelude.Maybe [ClientAuthenticationSettingInfo])+describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo = Lens.lens (\DescribeClientAuthenticationSettingsResponse' {clientAuthenticationSettingsInfo} -> clientAuthenticationSettingsInfo) (\s@DescribeClientAuthenticationSettingsResponse' {} a -> s {clientAuthenticationSettingsInfo = a} :: DescribeClientAuthenticationSettingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The next token used to retrieve the client authentication settings if+-- the number of setting types exceeds page limit and there is another+-- page.+describeClientAuthenticationSettingsResponse_nextToken :: Lens.Lens' DescribeClientAuthenticationSettingsResponse (Prelude.Maybe Prelude.Text)+describeClientAuthenticationSettingsResponse_nextToken = Lens.lens (\DescribeClientAuthenticationSettingsResponse' {nextToken} -> nextToken) (\s@DescribeClientAuthenticationSettingsResponse' {} a -> s {nextToken = a} :: DescribeClientAuthenticationSettingsResponse)++-- | The response's http status code.+describeClientAuthenticationSettingsResponse_httpStatus :: Lens.Lens' DescribeClientAuthenticationSettingsResponse Prelude.Int+describeClientAuthenticationSettingsResponse_httpStatus = Lens.lens (\DescribeClientAuthenticationSettingsResponse' {httpStatus} -> httpStatus) (\s@DescribeClientAuthenticationSettingsResponse' {} a -> s {httpStatus = a} :: DescribeClientAuthenticationSettingsResponse)++instance+  Prelude.NFData+    DescribeClientAuthenticationSettingsResponse+  where+  rnf DescribeClientAuthenticationSettingsResponse' {..} =+    Prelude.rnf clientAuthenticationSettingsInfo+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeConditionalForwarders.hs view

@@ -0,0 +1,216 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeConditionalForwarders+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about the conditional forwarders for this account.+--+-- If no input parameters are provided for RemoteDomainNames, this request+-- describes all conditional forwarders for the specified directory ID.+module Amazonka.DirectoryService.DescribeConditionalForwarders+  ( -- * Creating a Request+    DescribeConditionalForwarders (..),+    newDescribeConditionalForwarders,++    -- * Request Lenses+    describeConditionalForwarders_remoteDomainNames,+    describeConditionalForwarders_directoryId,++    -- * Destructuring the Response+    DescribeConditionalForwardersResponse (..),+    newDescribeConditionalForwardersResponse,++    -- * Response Lenses+    describeConditionalForwardersResponse_conditionalForwarders,+    describeConditionalForwardersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes a conditional forwarder.+--+-- /See:/ 'newDescribeConditionalForwarders' smart constructor.+data DescribeConditionalForwarders = DescribeConditionalForwarders'+  { -- | The fully qualified domain names (FQDN) of the remote domains for which+    -- to get the list of associated conditional forwarders. If this member is+    -- null, all conditional forwarders are returned.+    remoteDomainNames :: Prelude.Maybe [Prelude.Text],+    -- | The directory ID for which to get the list of associated conditional+    -- forwarders.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeConditionalForwarders' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'remoteDomainNames', 'describeConditionalForwarders_remoteDomainNames' - The fully qualified domain names (FQDN) of the remote domains for which+-- to get the list of associated conditional forwarders. If this member is+-- null, all conditional forwarders are returned.+--+-- 'directoryId', 'describeConditionalForwarders_directoryId' - The directory ID for which to get the list of associated conditional+-- forwarders.+newDescribeConditionalForwarders ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeConditionalForwarders+newDescribeConditionalForwarders pDirectoryId_ =+  DescribeConditionalForwarders'+    { remoteDomainNames =+        Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The fully qualified domain names (FQDN) of the remote domains for which+-- to get the list of associated conditional forwarders. If this member is+-- null, all conditional forwarders are returned.+describeConditionalForwarders_remoteDomainNames :: Lens.Lens' DescribeConditionalForwarders (Prelude.Maybe [Prelude.Text])+describeConditionalForwarders_remoteDomainNames = Lens.lens (\DescribeConditionalForwarders' {remoteDomainNames} -> remoteDomainNames) (\s@DescribeConditionalForwarders' {} a -> s {remoteDomainNames = a} :: DescribeConditionalForwarders) Prelude.. Lens.mapping Lens.coerced++-- | The directory ID for which to get the list of associated conditional+-- forwarders.+describeConditionalForwarders_directoryId :: Lens.Lens' DescribeConditionalForwarders Prelude.Text+describeConditionalForwarders_directoryId = Lens.lens (\DescribeConditionalForwarders' {directoryId} -> directoryId) (\s@DescribeConditionalForwarders' {} a -> s {directoryId = a} :: DescribeConditionalForwarders)++instance+  Core.AWSRequest+    DescribeConditionalForwarders+  where+  type+    AWSResponse DescribeConditionalForwarders =+      DescribeConditionalForwardersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeConditionalForwardersResponse'+            Prelude.<$> ( x+                            Data..?> "ConditionalForwarders"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    DescribeConditionalForwarders+  where+  hashWithSalt _salt DescribeConditionalForwarders' {..} =+    _salt+      `Prelude.hashWithSalt` remoteDomainNames+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DescribeConditionalForwarders where+  rnf DescribeConditionalForwarders' {..} =+    Prelude.rnf remoteDomainNames+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DescribeConditionalForwarders where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeConditionalForwarders" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeConditionalForwarders where+  toJSON DescribeConditionalForwarders' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("RemoteDomainNames" Data..=)+              Prelude.<$> remoteDomainNames,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DescribeConditionalForwarders where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeConditionalForwarders where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DescribeConditionalForwarder request.+--+-- /See:/ 'newDescribeConditionalForwardersResponse' smart constructor.+data DescribeConditionalForwardersResponse = DescribeConditionalForwardersResponse'+  { -- | The list of conditional forwarders that have been created.+    conditionalForwarders :: Prelude.Maybe [ConditionalForwarder],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeConditionalForwardersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'conditionalForwarders', 'describeConditionalForwardersResponse_conditionalForwarders' - The list of conditional forwarders that have been created.+--+-- 'httpStatus', 'describeConditionalForwardersResponse_httpStatus' - The response's http status code.+newDescribeConditionalForwardersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeConditionalForwardersResponse+newDescribeConditionalForwardersResponse pHttpStatus_ =+  DescribeConditionalForwardersResponse'+    { conditionalForwarders =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of conditional forwarders that have been created.+describeConditionalForwardersResponse_conditionalForwarders :: Lens.Lens' DescribeConditionalForwardersResponse (Prelude.Maybe [ConditionalForwarder])+describeConditionalForwardersResponse_conditionalForwarders = Lens.lens (\DescribeConditionalForwardersResponse' {conditionalForwarders} -> conditionalForwarders) (\s@DescribeConditionalForwardersResponse' {} a -> s {conditionalForwarders = a} :: DescribeConditionalForwardersResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeConditionalForwardersResponse_httpStatus :: Lens.Lens' DescribeConditionalForwardersResponse Prelude.Int+describeConditionalForwardersResponse_httpStatus = Lens.lens (\DescribeConditionalForwardersResponse' {httpStatus} -> httpStatus) (\s@DescribeConditionalForwardersResponse' {} a -> s {httpStatus = a} :: DescribeConditionalForwardersResponse)++instance+  Prelude.NFData+    DescribeConditionalForwardersResponse+  where+  rnf DescribeConditionalForwardersResponse' {..} =+    Prelude.rnf conditionalForwarders+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeDirectories.hs view

@@ -0,0 +1,296 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeDirectories+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about the directories that belong to this account.+--+-- You can retrieve information about specific directories by passing the+-- directory identifiers in the @DirectoryIds@ parameter. Otherwise, all+-- directories that belong to the current account are returned.+--+-- This operation supports pagination with the use of the @NextToken@+-- request and response parameters. If more results are available, the+-- @DescribeDirectoriesResult.NextToken@ member contains a token that you+-- pass in the next call to DescribeDirectories to retrieve the next set of+-- items.+--+-- You can also specify a maximum number of return results with the @Limit@+-- parameter.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeDirectories+  ( -- * Creating a Request+    DescribeDirectories (..),+    newDescribeDirectories,++    -- * Request Lenses+    describeDirectories_directoryIds,+    describeDirectories_limit,+    describeDirectories_nextToken,++    -- * Destructuring the Response+    DescribeDirectoriesResponse (..),+    newDescribeDirectoriesResponse,++    -- * Response Lenses+    describeDirectoriesResponse_directoryDescriptions,+    describeDirectoriesResponse_nextToken,+    describeDirectoriesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DescribeDirectories operation.+--+-- /See:/ 'newDescribeDirectories' smart constructor.+data DescribeDirectories = DescribeDirectories'+  { -- | A list of identifiers of the directories for which to obtain the+    -- information. If this member is null, all directories that belong to the+    -- current account are returned.+    --+    -- An empty list results in an @InvalidParameterException@ being thrown.+    directoryIds :: Prelude.Maybe [Prelude.Text],+    -- | The maximum number of items to return. If this value is zero, the+    -- maximum number of items is specified by the limitations of the+    -- operation.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The @DescribeDirectoriesResult.NextToken@ value from a previous call to+    -- DescribeDirectories. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDirectories' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryIds', 'describeDirectories_directoryIds' - A list of identifiers of the directories for which to obtain the+-- information. If this member is null, all directories that belong to the+-- current account are returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+--+-- 'limit', 'describeDirectories_limit' - The maximum number of items to return. If this value is zero, the+-- maximum number of items is specified by the limitations of the+-- operation.+--+-- 'nextToken', 'describeDirectories_nextToken' - The @DescribeDirectoriesResult.NextToken@ value from a previous call to+-- DescribeDirectories. Pass null if this is the first call.+newDescribeDirectories ::+  DescribeDirectories+newDescribeDirectories =+  DescribeDirectories'+    { directoryIds =+        Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | A list of identifiers of the directories for which to obtain the+-- information. If this member is null, all directories that belong to the+-- current account are returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+describeDirectories_directoryIds :: Lens.Lens' DescribeDirectories (Prelude.Maybe [Prelude.Text])+describeDirectories_directoryIds = Lens.lens (\DescribeDirectories' {directoryIds} -> directoryIds) (\s@DescribeDirectories' {} a -> s {directoryIds = a} :: DescribeDirectories) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of items to return. If this value is zero, the+-- maximum number of items is specified by the limitations of the+-- operation.+describeDirectories_limit :: Lens.Lens' DescribeDirectories (Prelude.Maybe Prelude.Natural)+describeDirectories_limit = Lens.lens (\DescribeDirectories' {limit} -> limit) (\s@DescribeDirectories' {} a -> s {limit = a} :: DescribeDirectories)++-- | The @DescribeDirectoriesResult.NextToken@ value from a previous call to+-- DescribeDirectories. Pass null if this is the first call.+describeDirectories_nextToken :: Lens.Lens' DescribeDirectories (Prelude.Maybe Prelude.Text)+describeDirectories_nextToken = Lens.lens (\DescribeDirectories' {nextToken} -> nextToken) (\s@DescribeDirectories' {} a -> s {nextToken = a} :: DescribeDirectories)++instance Core.AWSPager DescribeDirectories where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeDirectoriesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeDirectoriesResponse_directoryDescriptions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeDirectories_nextToken+          Lens..~ rs+          Lens.^? describeDirectoriesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeDirectories where+  type+    AWSResponse DescribeDirectories =+      DescribeDirectoriesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDirectoriesResponse'+            Prelude.<$> ( x+                            Data..?> "DirectoryDescriptions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDirectories where+  hashWithSalt _salt DescribeDirectories' {..} =+    _salt+      `Prelude.hashWithSalt` directoryIds+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData DescribeDirectories where+  rnf DescribeDirectories' {..} =+    Prelude.rnf directoryIds+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders DescribeDirectories where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeDirectories" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeDirectories where+  toJSON DescribeDirectories' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DirectoryIds" Data..=) Prelude.<$> directoryIds,+            ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath DescribeDirectories where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDirectories where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DescribeDirectories operation.+--+-- /See:/ 'newDescribeDirectoriesResponse' smart constructor.+data DescribeDirectoriesResponse = DescribeDirectoriesResponse'+  { -- | The list of DirectoryDescription objects that were retrieved.+    --+    -- It is possible that this list contains less than the number of items+    -- specified in the @Limit@ member of the request. This occurs if there are+    -- less than the requested number of items left to retrieve, or if the+    -- limitations of the operation have been exceeded.+    directoryDescriptions :: Prelude.Maybe [DirectoryDescription],+    -- | If not null, more results are available. Pass this value for the+    -- @NextToken@ parameter in a subsequent call to DescribeDirectories to+    -- retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDirectoriesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryDescriptions', 'describeDirectoriesResponse_directoryDescriptions' - The list of DirectoryDescription objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the @Limit@ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+--+-- 'nextToken', 'describeDirectoriesResponse_nextToken' - If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeDirectories to+-- retrieve the next set of items.+--+-- 'httpStatus', 'describeDirectoriesResponse_httpStatus' - The response's http status code.+newDescribeDirectoriesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDirectoriesResponse+newDescribeDirectoriesResponse pHttpStatus_ =+  DescribeDirectoriesResponse'+    { directoryDescriptions =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The list of DirectoryDescription objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the @Limit@ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+describeDirectoriesResponse_directoryDescriptions :: Lens.Lens' DescribeDirectoriesResponse (Prelude.Maybe [DirectoryDescription])+describeDirectoriesResponse_directoryDescriptions = Lens.lens (\DescribeDirectoriesResponse' {directoryDescriptions} -> directoryDescriptions) (\s@DescribeDirectoriesResponse' {} a -> s {directoryDescriptions = a} :: DescribeDirectoriesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeDirectories to+-- retrieve the next set of items.+describeDirectoriesResponse_nextToken :: Lens.Lens' DescribeDirectoriesResponse (Prelude.Maybe Prelude.Text)+describeDirectoriesResponse_nextToken = Lens.lens (\DescribeDirectoriesResponse' {nextToken} -> nextToken) (\s@DescribeDirectoriesResponse' {} a -> s {nextToken = a} :: DescribeDirectoriesResponse)++-- | The response's http status code.+describeDirectoriesResponse_httpStatus :: Lens.Lens' DescribeDirectoriesResponse Prelude.Int+describeDirectoriesResponse_httpStatus = Lens.lens (\DescribeDirectoriesResponse' {httpStatus} -> httpStatus) (\s@DescribeDirectoriesResponse' {} a -> s {httpStatus = a} :: DescribeDirectoriesResponse)++instance Prelude.NFData DescribeDirectoriesResponse where+  rnf DescribeDirectoriesResponse' {..} =+    Prelude.rnf directoryDescriptions+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeDomainControllers.hs view

@@ -0,0 +1,271 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeDomainControllers+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about any domain controllers in your directory.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeDomainControllers+  ( -- * Creating a Request+    DescribeDomainControllers (..),+    newDescribeDomainControllers,++    -- * Request Lenses+    describeDomainControllers_domainControllerIds,+    describeDomainControllers_limit,+    describeDomainControllers_nextToken,+    describeDomainControllers_directoryId,++    -- * Destructuring the Response+    DescribeDomainControllersResponse (..),+    newDescribeDomainControllersResponse,++    -- * Response Lenses+    describeDomainControllersResponse_domainControllers,+    describeDomainControllersResponse_nextToken,+    describeDomainControllersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeDomainControllers' smart constructor.+data DescribeDomainControllers = DescribeDomainControllers'+  { -- | A list of identifiers for the domain controllers whose information will+    -- be provided.+    domainControllerIds :: Prelude.Maybe [Prelude.Text],+    -- | The maximum number of items to return.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The /DescribeDomainControllers.NextToken/ value from a previous call to+    -- DescribeDomainControllers. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the directory for which to retrieve the domain controller+    -- information.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomainControllers' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'domainControllerIds', 'describeDomainControllers_domainControllerIds' - A list of identifiers for the domain controllers whose information will+-- be provided.+--+-- 'limit', 'describeDomainControllers_limit' - The maximum number of items to return.+--+-- 'nextToken', 'describeDomainControllers_nextToken' - The /DescribeDomainControllers.NextToken/ value from a previous call to+-- DescribeDomainControllers. Pass null if this is the first call.+--+-- 'directoryId', 'describeDomainControllers_directoryId' - Identifier of the directory for which to retrieve the domain controller+-- information.+newDescribeDomainControllers ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeDomainControllers+newDescribeDomainControllers pDirectoryId_ =+  DescribeDomainControllers'+    { domainControllerIds =+        Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | A list of identifiers for the domain controllers whose information will+-- be provided.+describeDomainControllers_domainControllerIds :: Lens.Lens' DescribeDomainControllers (Prelude.Maybe [Prelude.Text])+describeDomainControllers_domainControllerIds = Lens.lens (\DescribeDomainControllers' {domainControllerIds} -> domainControllerIds) (\s@DescribeDomainControllers' {} a -> s {domainControllerIds = a} :: DescribeDomainControllers) Prelude.. Lens.mapping Lens.coerced++-- | The maximum number of items to return.+describeDomainControllers_limit :: Lens.Lens' DescribeDomainControllers (Prelude.Maybe Prelude.Natural)+describeDomainControllers_limit = Lens.lens (\DescribeDomainControllers' {limit} -> limit) (\s@DescribeDomainControllers' {} a -> s {limit = a} :: DescribeDomainControllers)++-- | The /DescribeDomainControllers.NextToken/ value from a previous call to+-- DescribeDomainControllers. Pass null if this is the first call.+describeDomainControllers_nextToken :: Lens.Lens' DescribeDomainControllers (Prelude.Maybe Prelude.Text)+describeDomainControllers_nextToken = Lens.lens (\DescribeDomainControllers' {nextToken} -> nextToken) (\s@DescribeDomainControllers' {} a -> s {nextToken = a} :: DescribeDomainControllers)++-- | Identifier of the directory for which to retrieve the domain controller+-- information.+describeDomainControllers_directoryId :: Lens.Lens' DescribeDomainControllers Prelude.Text+describeDomainControllers_directoryId = Lens.lens (\DescribeDomainControllers' {directoryId} -> directoryId) (\s@DescribeDomainControllers' {} a -> s {directoryId = a} :: DescribeDomainControllers)++instance Core.AWSPager DescribeDomainControllers where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeDomainControllersResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeDomainControllersResponse_domainControllers+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeDomainControllers_nextToken+          Lens..~ rs+          Lens.^? describeDomainControllersResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeDomainControllers where+  type+    AWSResponse DescribeDomainControllers =+      DescribeDomainControllersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeDomainControllersResponse'+            Prelude.<$> ( x+                            Data..?> "DomainControllers"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeDomainControllers where+  hashWithSalt _salt DescribeDomainControllers' {..} =+    _salt+      `Prelude.hashWithSalt` domainControllerIds+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DescribeDomainControllers where+  rnf DescribeDomainControllers' {..} =+    Prelude.rnf domainControllerIds+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DescribeDomainControllers where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeDomainControllers" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeDomainControllers where+  toJSON DescribeDomainControllers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DomainControllerIds" Data..=)+              Prelude.<$> domainControllerIds,+            ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DescribeDomainControllers where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeDomainControllers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeDomainControllersResponse' smart constructor.+data DescribeDomainControllersResponse = DescribeDomainControllersResponse'+  { -- | List of the DomainController objects that were retrieved.+    domainControllers :: Prelude.Maybe [DomainController],+    -- | If not null, more results are available. Pass this value for the+    -- @NextToken@ parameter in a subsequent call to DescribeDomainControllers+    -- retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeDomainControllersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'domainControllers', 'describeDomainControllersResponse_domainControllers' - List of the DomainController objects that were retrieved.+--+-- 'nextToken', 'describeDomainControllersResponse_nextToken' - If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeDomainControllers+-- retrieve the next set of items.+--+-- 'httpStatus', 'describeDomainControllersResponse_httpStatus' - The response's http status code.+newDescribeDomainControllersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeDomainControllersResponse+newDescribeDomainControllersResponse pHttpStatus_ =+  DescribeDomainControllersResponse'+    { domainControllers =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | List of the DomainController objects that were retrieved.+describeDomainControllersResponse_domainControllers :: Lens.Lens' DescribeDomainControllersResponse (Prelude.Maybe [DomainController])+describeDomainControllersResponse_domainControllers = Lens.lens (\DescribeDomainControllersResponse' {domainControllers} -> domainControllers) (\s@DescribeDomainControllersResponse' {} a -> s {domainControllers = a} :: DescribeDomainControllersResponse) Prelude.. Lens.mapping Lens.coerced++-- | If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeDomainControllers+-- retrieve the next set of items.+describeDomainControllersResponse_nextToken :: Lens.Lens' DescribeDomainControllersResponse (Prelude.Maybe Prelude.Text)+describeDomainControllersResponse_nextToken = Lens.lens (\DescribeDomainControllersResponse' {nextToken} -> nextToken) (\s@DescribeDomainControllersResponse' {} a -> s {nextToken = a} :: DescribeDomainControllersResponse)++-- | The response's http status code.+describeDomainControllersResponse_httpStatus :: Lens.Lens' DescribeDomainControllersResponse Prelude.Int+describeDomainControllersResponse_httpStatus = Lens.lens (\DescribeDomainControllersResponse' {httpStatus} -> httpStatus) (\s@DescribeDomainControllersResponse' {} a -> s {httpStatus = a} :: DescribeDomainControllersResponse)++instance+  Prelude.NFData+    DescribeDomainControllersResponse+  where+  rnf DescribeDomainControllersResponse' {..} =+    Prelude.rnf domainControllers+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeEventTopics.hs view

@@ -0,0 +1,213 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeEventTopics+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about which Amazon SNS topics receive status+-- messages from the specified directory.+--+-- If no input parameters are provided, such as DirectoryId or TopicName,+-- this request describes all of the associations in the account.+module Amazonka.DirectoryService.DescribeEventTopics+  ( -- * Creating a Request+    DescribeEventTopics (..),+    newDescribeEventTopics,++    -- * Request Lenses+    describeEventTopics_directoryId,+    describeEventTopics_topicNames,++    -- * Destructuring the Response+    DescribeEventTopicsResponse (..),+    newDescribeEventTopicsResponse,++    -- * Response Lenses+    describeEventTopicsResponse_eventTopics,+    describeEventTopicsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes event topics.+--+-- /See:/ 'newDescribeEventTopics' smart constructor.+data DescribeEventTopics = DescribeEventTopics'+  { -- | The Directory ID for which to get the list of associated Amazon SNS+    -- topics. If this member is null, associations for all Directory IDs are+    -- returned.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | A list of Amazon SNS topic names for which to obtain the information. If+    -- this member is null, all associations for the specified Directory ID are+    -- returned.+    --+    -- An empty list results in an @InvalidParameterException@ being thrown.+    topicNames :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventTopics' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'describeEventTopics_directoryId' - The Directory ID for which to get the list of associated Amazon SNS+-- topics. If this member is null, associations for all Directory IDs are+-- returned.+--+-- 'topicNames', 'describeEventTopics_topicNames' - A list of Amazon SNS topic names for which to obtain the information. If+-- this member is null, all associations for the specified Directory ID are+-- returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+newDescribeEventTopics ::+  DescribeEventTopics+newDescribeEventTopics =+  DescribeEventTopics'+    { directoryId = Prelude.Nothing,+      topicNames = Prelude.Nothing+    }++-- | The Directory ID for which to get the list of associated Amazon SNS+-- topics. If this member is null, associations for all Directory IDs are+-- returned.+describeEventTopics_directoryId :: Lens.Lens' DescribeEventTopics (Prelude.Maybe Prelude.Text)+describeEventTopics_directoryId = Lens.lens (\DescribeEventTopics' {directoryId} -> directoryId) (\s@DescribeEventTopics' {} a -> s {directoryId = a} :: DescribeEventTopics)++-- | A list of Amazon SNS topic names for which to obtain the information. If+-- this member is null, all associations for the specified Directory ID are+-- returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+describeEventTopics_topicNames :: Lens.Lens' DescribeEventTopics (Prelude.Maybe [Prelude.Text])+describeEventTopics_topicNames = Lens.lens (\DescribeEventTopics' {topicNames} -> topicNames) (\s@DescribeEventTopics' {} a -> s {topicNames = a} :: DescribeEventTopics) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSRequest DescribeEventTopics where+  type+    AWSResponse DescribeEventTopics =+      DescribeEventTopicsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeEventTopicsResponse'+            Prelude.<$> (x Data..?> "EventTopics" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeEventTopics where+  hashWithSalt _salt DescribeEventTopics' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` topicNames++instance Prelude.NFData DescribeEventTopics where+  rnf DescribeEventTopics' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf topicNames++instance Data.ToHeaders DescribeEventTopics where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeEventTopics" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeEventTopics where+  toJSON DescribeEventTopics' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DirectoryId" Data..=) Prelude.<$> directoryId,+            ("TopicNames" Data..=) Prelude.<$> topicNames+          ]+      )++instance Data.ToPath DescribeEventTopics where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeEventTopics where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DescribeEventTopic request.+--+-- /See:/ 'newDescribeEventTopicsResponse' smart constructor.+data DescribeEventTopicsResponse = DescribeEventTopicsResponse'+  { -- | A list of Amazon SNS topic names that receive status messages from the+    -- specified Directory ID.+    eventTopics :: Prelude.Maybe [EventTopic],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeEventTopicsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'eventTopics', 'describeEventTopicsResponse_eventTopics' - A list of Amazon SNS topic names that receive status messages from the+-- specified Directory ID.+--+-- 'httpStatus', 'describeEventTopicsResponse_httpStatus' - The response's http status code.+newDescribeEventTopicsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeEventTopicsResponse+newDescribeEventTopicsResponse pHttpStatus_ =+  DescribeEventTopicsResponse'+    { eventTopics =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of Amazon SNS topic names that receive status messages from the+-- specified Directory ID.+describeEventTopicsResponse_eventTopics :: Lens.Lens' DescribeEventTopicsResponse (Prelude.Maybe [EventTopic])+describeEventTopicsResponse_eventTopics = Lens.lens (\DescribeEventTopicsResponse' {eventTopics} -> eventTopics) (\s@DescribeEventTopicsResponse' {} a -> s {eventTopics = a} :: DescribeEventTopicsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeEventTopicsResponse_httpStatus :: Lens.Lens' DescribeEventTopicsResponse Prelude.Int+describeEventTopicsResponse_httpStatus = Lens.lens (\DescribeEventTopicsResponse' {httpStatus} -> httpStatus) (\s@DescribeEventTopicsResponse' {} a -> s {httpStatus = a} :: DescribeEventTopicsResponse)++instance Prelude.NFData DescribeEventTopicsResponse where+  rnf DescribeEventTopicsResponse' {..} =+    Prelude.rnf eventTopics+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeLDAPSSettings.hs view

@@ -0,0 +1,263 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeLDAPSSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the status of LDAP security for the specified directory.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeLDAPSSettings+  ( -- * Creating a Request+    DescribeLDAPSSettings (..),+    newDescribeLDAPSSettings,++    -- * Request Lenses+    describeLDAPSSettings_limit,+    describeLDAPSSettings_nextToken,+    describeLDAPSSettings_type,+    describeLDAPSSettings_directoryId,++    -- * Destructuring the Response+    DescribeLDAPSSettingsResponse (..),+    newDescribeLDAPSSettingsResponse,++    -- * Response Lenses+    describeLDAPSSettingsResponse_lDAPSSettingsInfo,+    describeLDAPSSettingsResponse_nextToken,+    describeLDAPSSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeLDAPSSettings' smart constructor.+data DescribeLDAPSSettings = DescribeLDAPSSettings'+  { -- | Specifies the number of items that should be displayed on one page.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The type of next token used for pagination.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The type of LDAP security to enable. Currently only the value @Client@+    -- is supported.+    type' :: Prelude.Maybe LDAPSType,+    -- | The identifier of the directory.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLDAPSSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'describeLDAPSSettings_limit' - Specifies the number of items that should be displayed on one page.+--+-- 'nextToken', 'describeLDAPSSettings_nextToken' - The type of next token used for pagination.+--+-- 'type'', 'describeLDAPSSettings_type' - The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+--+-- 'directoryId', 'describeLDAPSSettings_directoryId' - The identifier of the directory.+newDescribeLDAPSSettings ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeLDAPSSettings+newDescribeLDAPSSettings pDirectoryId_ =+  DescribeLDAPSSettings'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      type' = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | Specifies the number of items that should be displayed on one page.+describeLDAPSSettings_limit :: Lens.Lens' DescribeLDAPSSettings (Prelude.Maybe Prelude.Natural)+describeLDAPSSettings_limit = Lens.lens (\DescribeLDAPSSettings' {limit} -> limit) (\s@DescribeLDAPSSettings' {} a -> s {limit = a} :: DescribeLDAPSSettings)++-- | The type of next token used for pagination.+describeLDAPSSettings_nextToken :: Lens.Lens' DescribeLDAPSSettings (Prelude.Maybe Prelude.Text)+describeLDAPSSettings_nextToken = Lens.lens (\DescribeLDAPSSettings' {nextToken} -> nextToken) (\s@DescribeLDAPSSettings' {} a -> s {nextToken = a} :: DescribeLDAPSSettings)++-- | The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+describeLDAPSSettings_type :: Lens.Lens' DescribeLDAPSSettings (Prelude.Maybe LDAPSType)+describeLDAPSSettings_type = Lens.lens (\DescribeLDAPSSettings' {type'} -> type') (\s@DescribeLDAPSSettings' {} a -> s {type' = a} :: DescribeLDAPSSettings)++-- | The identifier of the directory.+describeLDAPSSettings_directoryId :: Lens.Lens' DescribeLDAPSSettings Prelude.Text+describeLDAPSSettings_directoryId = Lens.lens (\DescribeLDAPSSettings' {directoryId} -> directoryId) (\s@DescribeLDAPSSettings' {} a -> s {directoryId = a} :: DescribeLDAPSSettings)++instance Core.AWSPager DescribeLDAPSSettings where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeLDAPSSettingsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeLDAPSSettingsResponse_lDAPSSettingsInfo+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeLDAPSSettings_nextToken+          Lens..~ rs+          Lens.^? describeLDAPSSettingsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeLDAPSSettings where+  type+    AWSResponse DescribeLDAPSSettings =+      DescribeLDAPSSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeLDAPSSettingsResponse'+            Prelude.<$> ( x+                            Data..?> "LDAPSSettingsInfo"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeLDAPSSettings where+  hashWithSalt _salt DescribeLDAPSSettings' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DescribeLDAPSSettings where+  rnf DescribeLDAPSSettings' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DescribeLDAPSSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeLDAPSSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeLDAPSSettings where+  toJSON DescribeLDAPSSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Type" Data..=) Prelude.<$> type',+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DescribeLDAPSSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeLDAPSSettings where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeLDAPSSettingsResponse' smart constructor.+data DescribeLDAPSSettingsResponse = DescribeLDAPSSettingsResponse'+  { -- | Information about LDAP security for the specified directory, including+    -- status of enablement, state last updated date time, and the reason for+    -- the state.+    lDAPSSettingsInfo :: Prelude.Maybe [LDAPSSettingInfo],+    -- | The next token used to retrieve the LDAPS settings if the number of+    -- setting types exceeds page limit and there is another page.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeLDAPSSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lDAPSSettingsInfo', 'describeLDAPSSettingsResponse_lDAPSSettingsInfo' - Information about LDAP security for the specified directory, including+-- status of enablement, state last updated date time, and the reason for+-- the state.+--+-- 'nextToken', 'describeLDAPSSettingsResponse_nextToken' - The next token used to retrieve the LDAPS settings if the number of+-- setting types exceeds page limit and there is another page.+--+-- 'httpStatus', 'describeLDAPSSettingsResponse_httpStatus' - The response's http status code.+newDescribeLDAPSSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeLDAPSSettingsResponse+newDescribeLDAPSSettingsResponse pHttpStatus_ =+  DescribeLDAPSSettingsResponse'+    { lDAPSSettingsInfo =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Information about LDAP security for the specified directory, including+-- status of enablement, state last updated date time, and the reason for+-- the state.+describeLDAPSSettingsResponse_lDAPSSettingsInfo :: Lens.Lens' DescribeLDAPSSettingsResponse (Prelude.Maybe [LDAPSSettingInfo])+describeLDAPSSettingsResponse_lDAPSSettingsInfo = Lens.lens (\DescribeLDAPSSettingsResponse' {lDAPSSettingsInfo} -> lDAPSSettingsInfo) (\s@DescribeLDAPSSettingsResponse' {} a -> s {lDAPSSettingsInfo = a} :: DescribeLDAPSSettingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The next token used to retrieve the LDAPS settings if the number of+-- setting types exceeds page limit and there is another page.+describeLDAPSSettingsResponse_nextToken :: Lens.Lens' DescribeLDAPSSettingsResponse (Prelude.Maybe Prelude.Text)+describeLDAPSSettingsResponse_nextToken = Lens.lens (\DescribeLDAPSSettingsResponse' {nextToken} -> nextToken) (\s@DescribeLDAPSSettingsResponse' {} a -> s {nextToken = a} :: DescribeLDAPSSettingsResponse)++-- | The response's http status code.+describeLDAPSSettingsResponse_httpStatus :: Lens.Lens' DescribeLDAPSSettingsResponse Prelude.Int+describeLDAPSSettingsResponse_httpStatus = Lens.lens (\DescribeLDAPSSettingsResponse' {httpStatus} -> httpStatus) (\s@DescribeLDAPSSettingsResponse' {} a -> s {httpStatus = a} :: DescribeLDAPSSettingsResponse)++instance Prelude.NFData DescribeLDAPSSettingsResponse where+  rnf DescribeLDAPSSettingsResponse' {..} =+    Prelude.rnf lDAPSSettingsInfo+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeRegions.hs view

@@ -0,0 +1,251 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeRegions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Provides information about the Regions that are configured for+-- multi-Region replication.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeRegions+  ( -- * Creating a Request+    DescribeRegions (..),+    newDescribeRegions,++    -- * Request Lenses+    describeRegions_nextToken,+    describeRegions_regionName,+    describeRegions_directoryId,++    -- * Destructuring the Response+    DescribeRegionsResponse (..),+    newDescribeRegionsResponse,++    -- * Response Lenses+    describeRegionsResponse_nextToken,+    describeRegionsResponse_regionsDescription,+    describeRegionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeRegions' smart constructor.+data DescribeRegions = DescribeRegions'+  { -- | The @DescribeRegionsResult.NextToken@ value from a previous call to+    -- DescribeRegions. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the Region. For example, @us-east-1@.+    regionName :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeRegions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeRegions_nextToken' - The @DescribeRegionsResult.NextToken@ value from a previous call to+-- DescribeRegions. Pass null if this is the first call.+--+-- 'regionName', 'describeRegions_regionName' - The name of the Region. For example, @us-east-1@.+--+-- 'directoryId', 'describeRegions_directoryId' - The identifier of the directory.+newDescribeRegions ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeRegions+newDescribeRegions pDirectoryId_ =+  DescribeRegions'+    { nextToken = Prelude.Nothing,+      regionName = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The @DescribeRegionsResult.NextToken@ value from a previous call to+-- DescribeRegions. Pass null if this is the first call.+describeRegions_nextToken :: Lens.Lens' DescribeRegions (Prelude.Maybe Prelude.Text)+describeRegions_nextToken = Lens.lens (\DescribeRegions' {nextToken} -> nextToken) (\s@DescribeRegions' {} a -> s {nextToken = a} :: DescribeRegions)++-- | The name of the Region. For example, @us-east-1@.+describeRegions_regionName :: Lens.Lens' DescribeRegions (Prelude.Maybe Prelude.Text)+describeRegions_regionName = Lens.lens (\DescribeRegions' {regionName} -> regionName) (\s@DescribeRegions' {} a -> s {regionName = a} :: DescribeRegions)++-- | The identifier of the directory.+describeRegions_directoryId :: Lens.Lens' DescribeRegions Prelude.Text+describeRegions_directoryId = Lens.lens (\DescribeRegions' {directoryId} -> directoryId) (\s@DescribeRegions' {} a -> s {directoryId = a} :: DescribeRegions)++instance Core.AWSPager DescribeRegions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeRegionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeRegionsResponse_regionsDescription+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeRegions_nextToken+          Lens..~ rs+          Lens.^? describeRegionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeRegions where+  type+    AWSResponse DescribeRegions =+      DescribeRegionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeRegionsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "RegionsDescription"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeRegions where+  hashWithSalt _salt DescribeRegions' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` regionName+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DescribeRegions where+  rnf DescribeRegions' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf regionName+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DescribeRegions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeRegions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeRegions where+  toJSON DescribeRegions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NextToken" Data..=) Prelude.<$> nextToken,+            ("RegionName" Data..=) Prelude.<$> regionName,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DescribeRegions where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeRegions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeRegionsResponse' smart constructor.+data DescribeRegionsResponse = DescribeRegionsResponse'+  { -- | If not null, more results are available. Pass this value for the+    -- @NextToken@ parameter in a subsequent call to DescribeRegions to+    -- retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | List of Region information related to the directory for each replicated+    -- Region.+    regionsDescription :: Prelude.Maybe [RegionDescription],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeRegionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeRegionsResponse_nextToken' - If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeRegions to+-- retrieve the next set of items.+--+-- 'regionsDescription', 'describeRegionsResponse_regionsDescription' - List of Region information related to the directory for each replicated+-- Region.+--+-- 'httpStatus', 'describeRegionsResponse_httpStatus' - The response's http status code.+newDescribeRegionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeRegionsResponse+newDescribeRegionsResponse pHttpStatus_ =+  DescribeRegionsResponse'+    { nextToken =+        Prelude.Nothing,+      regionsDescription = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to DescribeRegions to+-- retrieve the next set of items.+describeRegionsResponse_nextToken :: Lens.Lens' DescribeRegionsResponse (Prelude.Maybe Prelude.Text)+describeRegionsResponse_nextToken = Lens.lens (\DescribeRegionsResponse' {nextToken} -> nextToken) (\s@DescribeRegionsResponse' {} a -> s {nextToken = a} :: DescribeRegionsResponse)++-- | List of Region information related to the directory for each replicated+-- Region.+describeRegionsResponse_regionsDescription :: Lens.Lens' DescribeRegionsResponse (Prelude.Maybe [RegionDescription])+describeRegionsResponse_regionsDescription = Lens.lens (\DescribeRegionsResponse' {regionsDescription} -> regionsDescription) (\s@DescribeRegionsResponse' {} a -> s {regionsDescription = a} :: DescribeRegionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeRegionsResponse_httpStatus :: Lens.Lens' DescribeRegionsResponse Prelude.Int+describeRegionsResponse_httpStatus = Lens.lens (\DescribeRegionsResponse' {httpStatus} -> httpStatus) (\s@DescribeRegionsResponse' {} a -> s {httpStatus = a} :: DescribeRegionsResponse)++instance Prelude.NFData DescribeRegionsResponse where+  rnf DescribeRegionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf regionsDescription+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeSettings.hs view

@@ -0,0 +1,248 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieves information about the configurable settings for the specified+-- directory.+module Amazonka.DirectoryService.DescribeSettings+  ( -- * Creating a Request+    DescribeSettings (..),+    newDescribeSettings,++    -- * Request Lenses+    describeSettings_nextToken,+    describeSettings_status,+    describeSettings_directoryId,++    -- * Destructuring the Response+    DescribeSettingsResponse (..),+    newDescribeSettingsResponse,++    -- * Response Lenses+    describeSettingsResponse_directoryId,+    describeSettingsResponse_nextToken,+    describeSettingsResponse_settingEntries,+    describeSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeSettings' smart constructor.+data DescribeSettings = DescribeSettings'+  { -- | The @DescribeSettingsResult.NextToken@ value from a previous call to+    -- DescribeSettings. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The status of the directory settings for which to retrieve information.+    status :: Prelude.Maybe DirectoryConfigurationStatus,+    -- | The identifier of the directory for which to retrieve information.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeSettings_nextToken' - The @DescribeSettingsResult.NextToken@ value from a previous call to+-- DescribeSettings. Pass null if this is the first call.+--+-- 'status', 'describeSettings_status' - The status of the directory settings for which to retrieve information.+--+-- 'directoryId', 'describeSettings_directoryId' - The identifier of the directory for which to retrieve information.+newDescribeSettings ::+  -- | 'directoryId'+  Prelude.Text ->+  DescribeSettings+newDescribeSettings pDirectoryId_ =+  DescribeSettings'+    { nextToken = Prelude.Nothing,+      status = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The @DescribeSettingsResult.NextToken@ value from a previous call to+-- DescribeSettings. Pass null if this is the first call.+describeSettings_nextToken :: Lens.Lens' DescribeSettings (Prelude.Maybe Prelude.Text)+describeSettings_nextToken = Lens.lens (\DescribeSettings' {nextToken} -> nextToken) (\s@DescribeSettings' {} a -> s {nextToken = a} :: DescribeSettings)++-- | The status of the directory settings for which to retrieve information.+describeSettings_status :: Lens.Lens' DescribeSettings (Prelude.Maybe DirectoryConfigurationStatus)+describeSettings_status = Lens.lens (\DescribeSettings' {status} -> status) (\s@DescribeSettings' {} a -> s {status = a} :: DescribeSettings)++-- | The identifier of the directory for which to retrieve information.+describeSettings_directoryId :: Lens.Lens' DescribeSettings Prelude.Text+describeSettings_directoryId = Lens.lens (\DescribeSettings' {directoryId} -> directoryId) (\s@DescribeSettings' {} a -> s {directoryId = a} :: DescribeSettings)++instance Core.AWSRequest DescribeSettings where+  type+    AWSResponse DescribeSettings =+      DescribeSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSettingsResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "SettingEntries" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSettings where+  hashWithSalt _salt DescribeSettings' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DescribeSettings where+  rnf DescribeSettings' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DescribeSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeSettings where+  toJSON DescribeSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NextToken" Data..=) Prelude.<$> nextToken,+            ("Status" Data..=) Prelude.<$> status,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DescribeSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeSettings where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeSettingsResponse' smart constructor.+data DescribeSettingsResponse = DescribeSettingsResponse'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | If not null, token that indicates that more results are available. Pass+    -- this value for the @NextToken@ parameter in a subsequent call to+    -- @DescribeSettings@ to retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of SettingEntry objects that were retrieved.+    --+    -- It is possible that this list contains less than the number of items+    -- specified in the @Limit@ member of the request. This occurs if there are+    -- less than the requested number of items left to retrieve, or if the+    -- limitations of the operation have been exceeded.+    settingEntries :: Prelude.Maybe [SettingEntry],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'describeSettingsResponse_directoryId' - The identifier of the directory.+--+-- 'nextToken', 'describeSettingsResponse_nextToken' - If not null, token that indicates that more results are available. Pass+-- this value for the @NextToken@ parameter in a subsequent call to+-- @DescribeSettings@ to retrieve the next set of items.+--+-- 'settingEntries', 'describeSettingsResponse_settingEntries' - The list of SettingEntry objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the @Limit@ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+--+-- 'httpStatus', 'describeSettingsResponse_httpStatus' - The response's http status code.+newDescribeSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSettingsResponse+newDescribeSettingsResponse pHttpStatus_ =+  DescribeSettingsResponse'+    { directoryId =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      settingEntries = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the directory.+describeSettingsResponse_directoryId :: Lens.Lens' DescribeSettingsResponse (Prelude.Maybe Prelude.Text)+describeSettingsResponse_directoryId = Lens.lens (\DescribeSettingsResponse' {directoryId} -> directoryId) (\s@DescribeSettingsResponse' {} a -> s {directoryId = a} :: DescribeSettingsResponse)++-- | If not null, token that indicates that more results are available. Pass+-- this value for the @NextToken@ parameter in a subsequent call to+-- @DescribeSettings@ to retrieve the next set of items.+describeSettingsResponse_nextToken :: Lens.Lens' DescribeSettingsResponse (Prelude.Maybe Prelude.Text)+describeSettingsResponse_nextToken = Lens.lens (\DescribeSettingsResponse' {nextToken} -> nextToken) (\s@DescribeSettingsResponse' {} a -> s {nextToken = a} :: DescribeSettingsResponse)++-- | The list of SettingEntry objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the @Limit@ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+describeSettingsResponse_settingEntries :: Lens.Lens' DescribeSettingsResponse (Prelude.Maybe [SettingEntry])+describeSettingsResponse_settingEntries = Lens.lens (\DescribeSettingsResponse' {settingEntries} -> settingEntries) (\s@DescribeSettingsResponse' {} a -> s {settingEntries = a} :: DescribeSettingsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSettingsResponse_httpStatus :: Lens.Lens' DescribeSettingsResponse Prelude.Int+describeSettingsResponse_httpStatus = Lens.lens (\DescribeSettingsResponse' {httpStatus} -> httpStatus) (\s@DescribeSettingsResponse' {} a -> s {httpStatus = a} :: DescribeSettingsResponse)++instance Prelude.NFData DescribeSettingsResponse where+  rnf DescribeSettingsResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf settingEntries+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeSharedDirectories.hs view

@@ -0,0 +1,265 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeSharedDirectories+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the shared directories in your account.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeSharedDirectories+  ( -- * Creating a Request+    DescribeSharedDirectories (..),+    newDescribeSharedDirectories,++    -- * Request Lenses+    describeSharedDirectories_limit,+    describeSharedDirectories_nextToken,+    describeSharedDirectories_sharedDirectoryIds,+    describeSharedDirectories_ownerDirectoryId,++    -- * Destructuring the Response+    DescribeSharedDirectoriesResponse (..),+    newDescribeSharedDirectoriesResponse,++    -- * Response Lenses+    describeSharedDirectoriesResponse_nextToken,+    describeSharedDirectoriesResponse_sharedDirectories,+    describeSharedDirectoriesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeSharedDirectories' smart constructor.+data DescribeSharedDirectories = DescribeSharedDirectories'+  { -- | The number of shared directories to return in the response object.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The @DescribeSharedDirectoriesResult.NextToken@ value from a previous+    -- call to DescribeSharedDirectories. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of identifiers of all shared directories in your account.+    sharedDirectoryIds :: Prelude.Maybe [Prelude.Text],+    -- | Returns the identifier of the directory in the directory owner account.+    ownerDirectoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSharedDirectories' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'describeSharedDirectories_limit' - The number of shared directories to return in the response object.+--+-- 'nextToken', 'describeSharedDirectories_nextToken' - The @DescribeSharedDirectoriesResult.NextToken@ value from a previous+-- call to DescribeSharedDirectories. Pass null if this is the first call.+--+-- 'sharedDirectoryIds', 'describeSharedDirectories_sharedDirectoryIds' - A list of identifiers of all shared directories in your account.+--+-- 'ownerDirectoryId', 'describeSharedDirectories_ownerDirectoryId' - Returns the identifier of the directory in the directory owner account.+newDescribeSharedDirectories ::+  -- | 'ownerDirectoryId'+  Prelude.Text ->+  DescribeSharedDirectories+newDescribeSharedDirectories pOwnerDirectoryId_ =+  DescribeSharedDirectories'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      sharedDirectoryIds = Prelude.Nothing,+      ownerDirectoryId = pOwnerDirectoryId_+    }++-- | The number of shared directories to return in the response object.+describeSharedDirectories_limit :: Lens.Lens' DescribeSharedDirectories (Prelude.Maybe Prelude.Natural)+describeSharedDirectories_limit = Lens.lens (\DescribeSharedDirectories' {limit} -> limit) (\s@DescribeSharedDirectories' {} a -> s {limit = a} :: DescribeSharedDirectories)++-- | The @DescribeSharedDirectoriesResult.NextToken@ value from a previous+-- call to DescribeSharedDirectories. Pass null if this is the first call.+describeSharedDirectories_nextToken :: Lens.Lens' DescribeSharedDirectories (Prelude.Maybe Prelude.Text)+describeSharedDirectories_nextToken = Lens.lens (\DescribeSharedDirectories' {nextToken} -> nextToken) (\s@DescribeSharedDirectories' {} a -> s {nextToken = a} :: DescribeSharedDirectories)++-- | A list of identifiers of all shared directories in your account.+describeSharedDirectories_sharedDirectoryIds :: Lens.Lens' DescribeSharedDirectories (Prelude.Maybe [Prelude.Text])+describeSharedDirectories_sharedDirectoryIds = Lens.lens (\DescribeSharedDirectories' {sharedDirectoryIds} -> sharedDirectoryIds) (\s@DescribeSharedDirectories' {} a -> s {sharedDirectoryIds = a} :: DescribeSharedDirectories) Prelude.. Lens.mapping Lens.coerced++-- | Returns the identifier of the directory in the directory owner account.+describeSharedDirectories_ownerDirectoryId :: Lens.Lens' DescribeSharedDirectories Prelude.Text+describeSharedDirectories_ownerDirectoryId = Lens.lens (\DescribeSharedDirectories' {ownerDirectoryId} -> ownerDirectoryId) (\s@DescribeSharedDirectories' {} a -> s {ownerDirectoryId = a} :: DescribeSharedDirectories)++instance Core.AWSPager DescribeSharedDirectories where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeSharedDirectoriesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeSharedDirectoriesResponse_sharedDirectories+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeSharedDirectories_nextToken+          Lens..~ rs+          Lens.^? describeSharedDirectoriesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeSharedDirectories where+  type+    AWSResponse DescribeSharedDirectories =+      DescribeSharedDirectoriesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSharedDirectoriesResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "SharedDirectories"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSharedDirectories where+  hashWithSalt _salt DescribeSharedDirectories' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` sharedDirectoryIds+      `Prelude.hashWithSalt` ownerDirectoryId++instance Prelude.NFData DescribeSharedDirectories where+  rnf DescribeSharedDirectories' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sharedDirectoryIds+      `Prelude.seq` Prelude.rnf ownerDirectoryId++instance Data.ToHeaders DescribeSharedDirectories where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeSharedDirectories" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeSharedDirectories where+  toJSON DescribeSharedDirectories' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("SharedDirectoryIds" Data..=)+              Prelude.<$> sharedDirectoryIds,+            Prelude.Just+              ("OwnerDirectoryId" Data..= ownerDirectoryId)+          ]+      )++instance Data.ToPath DescribeSharedDirectories where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeSharedDirectories where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeSharedDirectoriesResponse' smart constructor.+data DescribeSharedDirectoriesResponse = DescribeSharedDirectoriesResponse'+  { -- | If not null, token that indicates that more results are available. Pass+    -- this value for the @NextToken@ parameter in a subsequent call to+    -- DescribeSharedDirectories to retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of all shared directories in your account.+    sharedDirectories :: Prelude.Maybe [SharedDirectory],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSharedDirectoriesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeSharedDirectoriesResponse_nextToken' - If not null, token that indicates that more results are available. Pass+-- this value for the @NextToken@ parameter in a subsequent call to+-- DescribeSharedDirectories to retrieve the next set of items.+--+-- 'sharedDirectories', 'describeSharedDirectoriesResponse_sharedDirectories' - A list of all shared directories in your account.+--+-- 'httpStatus', 'describeSharedDirectoriesResponse_httpStatus' - The response's http status code.+newDescribeSharedDirectoriesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSharedDirectoriesResponse+newDescribeSharedDirectoriesResponse pHttpStatus_ =+  DescribeSharedDirectoriesResponse'+    { nextToken =+        Prelude.Nothing,+      sharedDirectories = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, token that indicates that more results are available. Pass+-- this value for the @NextToken@ parameter in a subsequent call to+-- DescribeSharedDirectories to retrieve the next set of items.+describeSharedDirectoriesResponse_nextToken :: Lens.Lens' DescribeSharedDirectoriesResponse (Prelude.Maybe Prelude.Text)+describeSharedDirectoriesResponse_nextToken = Lens.lens (\DescribeSharedDirectoriesResponse' {nextToken} -> nextToken) (\s@DescribeSharedDirectoriesResponse' {} a -> s {nextToken = a} :: DescribeSharedDirectoriesResponse)++-- | A list of all shared directories in your account.+describeSharedDirectoriesResponse_sharedDirectories :: Lens.Lens' DescribeSharedDirectoriesResponse (Prelude.Maybe [SharedDirectory])+describeSharedDirectoriesResponse_sharedDirectories = Lens.lens (\DescribeSharedDirectoriesResponse' {sharedDirectories} -> sharedDirectories) (\s@DescribeSharedDirectoriesResponse' {} a -> s {sharedDirectories = a} :: DescribeSharedDirectoriesResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSharedDirectoriesResponse_httpStatus :: Lens.Lens' DescribeSharedDirectoriesResponse Prelude.Int+describeSharedDirectoriesResponse_httpStatus = Lens.lens (\DescribeSharedDirectoriesResponse' {httpStatus} -> httpStatus) (\s@DescribeSharedDirectoriesResponse' {} a -> s {httpStatus = a} :: DescribeSharedDirectoriesResponse)++instance+  Prelude.NFData+    DescribeSharedDirectoriesResponse+  where+  rnf DescribeSharedDirectoriesResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf sharedDirectories+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeSnapshots.hs view

@@ -0,0 +1,289 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeSnapshots+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about the directory snapshots that belong to this+-- account.+--+-- This operation supports pagination with the use of the /NextToken/+-- request and response parameters. If more results are available, the+-- /DescribeSnapshots.NextToken/ member contains a token that you pass in+-- the next call to DescribeSnapshots to retrieve the next set of items.+--+-- You can also specify a maximum number of return results with the /Limit/+-- parameter.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeSnapshots+  ( -- * Creating a Request+    DescribeSnapshots (..),+    newDescribeSnapshots,++    -- * Request Lenses+    describeSnapshots_directoryId,+    describeSnapshots_limit,+    describeSnapshots_nextToken,+    describeSnapshots_snapshotIds,++    -- * Destructuring the Response+    DescribeSnapshotsResponse (..),+    newDescribeSnapshotsResponse,++    -- * Response Lenses+    describeSnapshotsResponse_nextToken,+    describeSnapshotsResponse_snapshots,+    describeSnapshotsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DescribeSnapshots operation.+--+-- /See:/ 'newDescribeSnapshots' smart constructor.+data DescribeSnapshots = DescribeSnapshots'+  { -- | The identifier of the directory for which to retrieve snapshot+    -- information.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of objects to return.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The /DescribeSnapshotsResult.NextToken/ value from a previous call to+    -- DescribeSnapshots. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of identifiers of the snapshots to obtain the information for. If+    -- this member is null or empty, all snapshots are returned using the+    -- /Limit/ and /NextToken/ members.+    snapshotIds :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshots' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'describeSnapshots_directoryId' - The identifier of the directory for which to retrieve snapshot+-- information.+--+-- 'limit', 'describeSnapshots_limit' - The maximum number of objects to return.+--+-- 'nextToken', 'describeSnapshots_nextToken' - The /DescribeSnapshotsResult.NextToken/ value from a previous call to+-- DescribeSnapshots. Pass null if this is the first call.+--+-- 'snapshotIds', 'describeSnapshots_snapshotIds' - A list of identifiers of the snapshots to obtain the information for. If+-- this member is null or empty, all snapshots are returned using the+-- /Limit/ and /NextToken/ members.+newDescribeSnapshots ::+  DescribeSnapshots+newDescribeSnapshots =+  DescribeSnapshots'+    { directoryId = Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      snapshotIds = Prelude.Nothing+    }++-- | The identifier of the directory for which to retrieve snapshot+-- information.+describeSnapshots_directoryId :: Lens.Lens' DescribeSnapshots (Prelude.Maybe Prelude.Text)+describeSnapshots_directoryId = Lens.lens (\DescribeSnapshots' {directoryId} -> directoryId) (\s@DescribeSnapshots' {} a -> s {directoryId = a} :: DescribeSnapshots)++-- | The maximum number of objects to return.+describeSnapshots_limit :: Lens.Lens' DescribeSnapshots (Prelude.Maybe Prelude.Natural)+describeSnapshots_limit = Lens.lens (\DescribeSnapshots' {limit} -> limit) (\s@DescribeSnapshots' {} a -> s {limit = a} :: DescribeSnapshots)++-- | The /DescribeSnapshotsResult.NextToken/ value from a previous call to+-- DescribeSnapshots. Pass null if this is the first call.+describeSnapshots_nextToken :: Lens.Lens' DescribeSnapshots (Prelude.Maybe Prelude.Text)+describeSnapshots_nextToken = Lens.lens (\DescribeSnapshots' {nextToken} -> nextToken) (\s@DescribeSnapshots' {} a -> s {nextToken = a} :: DescribeSnapshots)++-- | A list of identifiers of the snapshots to obtain the information for. If+-- this member is null or empty, all snapshots are returned using the+-- /Limit/ and /NextToken/ members.+describeSnapshots_snapshotIds :: Lens.Lens' DescribeSnapshots (Prelude.Maybe [Prelude.Text])+describeSnapshots_snapshotIds = Lens.lens (\DescribeSnapshots' {snapshotIds} -> snapshotIds) (\s@DescribeSnapshots' {} a -> s {snapshotIds = a} :: DescribeSnapshots) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeSnapshots where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeSnapshotsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeSnapshotsResponse_snapshots+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeSnapshots_nextToken+          Lens..~ rs+          Lens.^? describeSnapshotsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeSnapshots where+  type+    AWSResponse DescribeSnapshots =+      DescribeSnapshotsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeSnapshotsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Snapshots" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeSnapshots where+  hashWithSalt _salt DescribeSnapshots' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` snapshotIds++instance Prelude.NFData DescribeSnapshots where+  rnf DescribeSnapshots' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf snapshotIds++instance Data.ToHeaders DescribeSnapshots where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeSnapshots" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeSnapshots where+  toJSON DescribeSnapshots' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DirectoryId" Data..=) Prelude.<$> directoryId,+            ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("SnapshotIds" Data..=) Prelude.<$> snapshotIds+          ]+      )++instance Data.ToPath DescribeSnapshots where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeSnapshots where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DescribeSnapshots operation.+--+-- /See:/ 'newDescribeSnapshotsResponse' smart constructor.+data DescribeSnapshotsResponse = DescribeSnapshotsResponse'+  { -- | If not null, more results are available. Pass this value in the+    -- /NextToken/ member of a subsequent call to DescribeSnapshots.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of Snapshot objects that were retrieved.+    --+    -- It is possible that this list contains less than the number of items+    -- specified in the /Limit/ member of the request. This occurs if there are+    -- less than the requested number of items left to retrieve, or if the+    -- limitations of the operation have been exceeded.+    snapshots :: Prelude.Maybe [Snapshot],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeSnapshotsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeSnapshotsResponse_nextToken' - If not null, more results are available. Pass this value in the+-- /NextToken/ member of a subsequent call to DescribeSnapshots.+--+-- 'snapshots', 'describeSnapshotsResponse_snapshots' - The list of Snapshot objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the /Limit/ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+--+-- 'httpStatus', 'describeSnapshotsResponse_httpStatus' - The response's http status code.+newDescribeSnapshotsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeSnapshotsResponse+newDescribeSnapshotsResponse pHttpStatus_ =+  DescribeSnapshotsResponse'+    { nextToken =+        Prelude.Nothing,+      snapshots = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, more results are available. Pass this value in the+-- /NextToken/ member of a subsequent call to DescribeSnapshots.+describeSnapshotsResponse_nextToken :: Lens.Lens' DescribeSnapshotsResponse (Prelude.Maybe Prelude.Text)+describeSnapshotsResponse_nextToken = Lens.lens (\DescribeSnapshotsResponse' {nextToken} -> nextToken) (\s@DescribeSnapshotsResponse' {} a -> s {nextToken = a} :: DescribeSnapshotsResponse)++-- | The list of Snapshot objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the /Limit/ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+describeSnapshotsResponse_snapshots :: Lens.Lens' DescribeSnapshotsResponse (Prelude.Maybe [Snapshot])+describeSnapshotsResponse_snapshots = Lens.lens (\DescribeSnapshotsResponse' {snapshots} -> snapshots) (\s@DescribeSnapshotsResponse' {} a -> s {snapshots = a} :: DescribeSnapshotsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeSnapshotsResponse_httpStatus :: Lens.Lens' DescribeSnapshotsResponse Prelude.Int+describeSnapshotsResponse_httpStatus = Lens.lens (\DescribeSnapshotsResponse' {httpStatus} -> httpStatus) (\s@DescribeSnapshotsResponse' {} a -> s {httpStatus = a} :: DescribeSnapshotsResponse)++instance Prelude.NFData DescribeSnapshotsResponse where+  rnf DescribeSnapshotsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf snapshots+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeTrusts.hs view

@@ -0,0 +1,295 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeTrusts+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about the trust relationships for this account.+--+-- If no input parameters are provided, such as DirectoryId or TrustIds,+-- this request describes all the trust relationships belonging to the+-- account.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeTrusts+  ( -- * Creating a Request+    DescribeTrusts (..),+    newDescribeTrusts,++    -- * Request Lenses+    describeTrusts_directoryId,+    describeTrusts_limit,+    describeTrusts_nextToken,+    describeTrusts_trustIds,++    -- * Destructuring the Response+    DescribeTrustsResponse (..),+    newDescribeTrustsResponse,++    -- * Response Lenses+    describeTrustsResponse_nextToken,+    describeTrustsResponse_trusts,+    describeTrustsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Describes the trust relationships for a particular Managed Microsoft AD+-- directory. If no input parameters are provided, such as directory ID or+-- trust ID, this request describes all the trust relationships.+--+-- /See:/ 'newDescribeTrusts' smart constructor.+data DescribeTrusts = DescribeTrusts'+  { -- | The Directory ID of the Amazon Web Services directory that is a part of+    -- the requested trust relationship.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of objects to return.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The /DescribeTrustsResult.NextToken/ value from a previous call to+    -- DescribeTrusts. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | A list of identifiers of the trust relationships for which to obtain the+    -- information. If this member is null, all trust relationships that belong+    -- to the current account are returned.+    --+    -- An empty list results in an @InvalidParameterException@ being thrown.+    trustIds :: Prelude.Maybe [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrusts' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'describeTrusts_directoryId' - The Directory ID of the Amazon Web Services directory that is a part of+-- the requested trust relationship.+--+-- 'limit', 'describeTrusts_limit' - The maximum number of objects to return.+--+-- 'nextToken', 'describeTrusts_nextToken' - The /DescribeTrustsResult.NextToken/ value from a previous call to+-- DescribeTrusts. Pass null if this is the first call.+--+-- 'trustIds', 'describeTrusts_trustIds' - A list of identifiers of the trust relationships for which to obtain the+-- information. If this member is null, all trust relationships that belong+-- to the current account are returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+newDescribeTrusts ::+  DescribeTrusts+newDescribeTrusts =+  DescribeTrusts'+    { directoryId = Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      trustIds = Prelude.Nothing+    }++-- | The Directory ID of the Amazon Web Services directory that is a part of+-- the requested trust relationship.+describeTrusts_directoryId :: Lens.Lens' DescribeTrusts (Prelude.Maybe Prelude.Text)+describeTrusts_directoryId = Lens.lens (\DescribeTrusts' {directoryId} -> directoryId) (\s@DescribeTrusts' {} a -> s {directoryId = a} :: DescribeTrusts)++-- | The maximum number of objects to return.+describeTrusts_limit :: Lens.Lens' DescribeTrusts (Prelude.Maybe Prelude.Natural)+describeTrusts_limit = Lens.lens (\DescribeTrusts' {limit} -> limit) (\s@DescribeTrusts' {} a -> s {limit = a} :: DescribeTrusts)++-- | The /DescribeTrustsResult.NextToken/ value from a previous call to+-- DescribeTrusts. Pass null if this is the first call.+describeTrusts_nextToken :: Lens.Lens' DescribeTrusts (Prelude.Maybe Prelude.Text)+describeTrusts_nextToken = Lens.lens (\DescribeTrusts' {nextToken} -> nextToken) (\s@DescribeTrusts' {} a -> s {nextToken = a} :: DescribeTrusts)++-- | A list of identifiers of the trust relationships for which to obtain the+-- information. If this member is null, all trust relationships that belong+-- to the current account are returned.+--+-- An empty list results in an @InvalidParameterException@ being thrown.+describeTrusts_trustIds :: Lens.Lens' DescribeTrusts (Prelude.Maybe [Prelude.Text])+describeTrusts_trustIds = Lens.lens (\DescribeTrusts' {trustIds} -> trustIds) (\s@DescribeTrusts' {} a -> s {trustIds = a} :: DescribeTrusts) Prelude.. Lens.mapping Lens.coerced++instance Core.AWSPager DescribeTrusts where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeTrustsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeTrustsResponse_trusts+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeTrusts_nextToken+          Lens..~ rs+          Lens.^? describeTrustsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeTrusts where+  type+    AWSResponse DescribeTrusts =+      DescribeTrustsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeTrustsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Trusts" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeTrusts where+  hashWithSalt _salt DescribeTrusts' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` trustIds++instance Prelude.NFData DescribeTrusts where+  rnf DescribeTrusts' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf trustIds++instance Data.ToHeaders DescribeTrusts where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeTrusts" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeTrusts where+  toJSON DescribeTrusts' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DirectoryId" Data..=) Prelude.<$> directoryId,+            ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            ("TrustIds" Data..=) Prelude.<$> trustIds+          ]+      )++instance Data.ToPath DescribeTrusts where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeTrusts where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a DescribeTrust request.+--+-- /See:/ 'newDescribeTrustsResponse' smart constructor.+data DescribeTrustsResponse = DescribeTrustsResponse'+  { -- | If not null, more results are available. Pass this value for the+    -- /NextToken/ parameter in a subsequent call to DescribeTrusts to retrieve+    -- the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of Trust objects that were retrieved.+    --+    -- It is possible that this list contains less than the number of items+    -- specified in the /Limit/ member of the request. This occurs if there are+    -- less than the requested number of items left to retrieve, or if the+    -- limitations of the operation have been exceeded.+    trusts :: Prelude.Maybe [Trust],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeTrustsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeTrustsResponse_nextToken' - If not null, more results are available. Pass this value for the+-- /NextToken/ parameter in a subsequent call to DescribeTrusts to retrieve+-- the next set of items.+--+-- 'trusts', 'describeTrustsResponse_trusts' - The list of Trust objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the /Limit/ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+--+-- 'httpStatus', 'describeTrustsResponse_httpStatus' - The response's http status code.+newDescribeTrustsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeTrustsResponse+newDescribeTrustsResponse pHttpStatus_ =+  DescribeTrustsResponse'+    { nextToken =+        Prelude.Nothing,+      trusts = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, more results are available. Pass this value for the+-- /NextToken/ parameter in a subsequent call to DescribeTrusts to retrieve+-- the next set of items.+describeTrustsResponse_nextToken :: Lens.Lens' DescribeTrustsResponse (Prelude.Maybe Prelude.Text)+describeTrustsResponse_nextToken = Lens.lens (\DescribeTrustsResponse' {nextToken} -> nextToken) (\s@DescribeTrustsResponse' {} a -> s {nextToken = a} :: DescribeTrustsResponse)++-- | The list of Trust objects that were retrieved.+--+-- It is possible that this list contains less than the number of items+-- specified in the /Limit/ member of the request. This occurs if there are+-- less than the requested number of items left to retrieve, or if the+-- limitations of the operation have been exceeded.+describeTrustsResponse_trusts :: Lens.Lens' DescribeTrustsResponse (Prelude.Maybe [Trust])+describeTrustsResponse_trusts = Lens.lens (\DescribeTrustsResponse' {trusts} -> trusts) (\s@DescribeTrustsResponse' {} a -> s {trusts = a} :: DescribeTrustsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeTrustsResponse_httpStatus :: Lens.Lens' DescribeTrustsResponse Prelude.Int+describeTrustsResponse_httpStatus = Lens.lens (\DescribeTrustsResponse' {httpStatus} -> httpStatus) (\s@DescribeTrustsResponse' {} a -> s {httpStatus = a} :: DescribeTrustsResponse)++instance Prelude.NFData DescribeTrustsResponse where+  rnf DescribeTrustsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf trusts+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DescribeUpdateDirectory.hs view

@@ -0,0 +1,266 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DescribeUpdateDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the updates of a directory for a particular update type.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.DescribeUpdateDirectory+  ( -- * Creating a Request+    DescribeUpdateDirectory (..),+    newDescribeUpdateDirectory,++    -- * Request Lenses+    describeUpdateDirectory_nextToken,+    describeUpdateDirectory_regionName,+    describeUpdateDirectory_directoryId,+    describeUpdateDirectory_updateType,++    -- * Destructuring the Response+    DescribeUpdateDirectoryResponse (..),+    newDescribeUpdateDirectoryResponse,++    -- * Response Lenses+    describeUpdateDirectoryResponse_nextToken,+    describeUpdateDirectoryResponse_updateActivities,+    describeUpdateDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDescribeUpdateDirectory' smart constructor.+data DescribeUpdateDirectory = DescribeUpdateDirectory'+  { -- | The @DescribeUpdateDirectoryResult@. NextToken value from a previous+    -- call to DescribeUpdateDirectory. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The name of the Region.+    regionName :: Prelude.Maybe Prelude.Text,+    -- | The unique identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The type of updates you want to describe for the directory.+    updateType :: UpdateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeUpdateDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeUpdateDirectory_nextToken' - The @DescribeUpdateDirectoryResult@. NextToken value from a previous+-- call to DescribeUpdateDirectory. Pass null if this is the first call.+--+-- 'regionName', 'describeUpdateDirectory_regionName' - The name of the Region.+--+-- 'directoryId', 'describeUpdateDirectory_directoryId' - The unique identifier of the directory.+--+-- 'updateType', 'describeUpdateDirectory_updateType' - The type of updates you want to describe for the directory.+newDescribeUpdateDirectory ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'updateType'+  UpdateType ->+  DescribeUpdateDirectory+newDescribeUpdateDirectory pDirectoryId_ pUpdateType_ =+  DescribeUpdateDirectory'+    { nextToken =+        Prelude.Nothing,+      regionName = Prelude.Nothing,+      directoryId = pDirectoryId_,+      updateType = pUpdateType_+    }++-- | The @DescribeUpdateDirectoryResult@. NextToken value from a previous+-- call to DescribeUpdateDirectory. Pass null if this is the first call.+describeUpdateDirectory_nextToken :: Lens.Lens' DescribeUpdateDirectory (Prelude.Maybe Prelude.Text)+describeUpdateDirectory_nextToken = Lens.lens (\DescribeUpdateDirectory' {nextToken} -> nextToken) (\s@DescribeUpdateDirectory' {} a -> s {nextToken = a} :: DescribeUpdateDirectory)++-- | The name of the Region.+describeUpdateDirectory_regionName :: Lens.Lens' DescribeUpdateDirectory (Prelude.Maybe Prelude.Text)+describeUpdateDirectory_regionName = Lens.lens (\DescribeUpdateDirectory' {regionName} -> regionName) (\s@DescribeUpdateDirectory' {} a -> s {regionName = a} :: DescribeUpdateDirectory)++-- | The unique identifier of the directory.+describeUpdateDirectory_directoryId :: Lens.Lens' DescribeUpdateDirectory Prelude.Text+describeUpdateDirectory_directoryId = Lens.lens (\DescribeUpdateDirectory' {directoryId} -> directoryId) (\s@DescribeUpdateDirectory' {} a -> s {directoryId = a} :: DescribeUpdateDirectory)++-- | The type of updates you want to describe for the directory.+describeUpdateDirectory_updateType :: Lens.Lens' DescribeUpdateDirectory UpdateType+describeUpdateDirectory_updateType = Lens.lens (\DescribeUpdateDirectory' {updateType} -> updateType) (\s@DescribeUpdateDirectory' {} a -> s {updateType = a} :: DescribeUpdateDirectory)++instance Core.AWSPager DescribeUpdateDirectory where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? describeUpdateDirectoryResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? describeUpdateDirectoryResponse_updateActivities+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& describeUpdateDirectory_nextToken+          Lens..~ rs+          Lens.^? describeUpdateDirectoryResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest DescribeUpdateDirectory where+  type+    AWSResponse DescribeUpdateDirectory =+      DescribeUpdateDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          DescribeUpdateDirectoryResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "UpdateActivities"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DescribeUpdateDirectory where+  hashWithSalt _salt DescribeUpdateDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` regionName+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` updateType++instance Prelude.NFData DescribeUpdateDirectory where+  rnf DescribeUpdateDirectory' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf regionName+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf updateType++instance Data.ToHeaders DescribeUpdateDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DescribeUpdateDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DescribeUpdateDirectory where+  toJSON DescribeUpdateDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("NextToken" Data..=) Prelude.<$> nextToken,+            ("RegionName" Data..=) Prelude.<$> regionName,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("UpdateType" Data..= updateType)+          ]+      )++instance Data.ToPath DescribeUpdateDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery DescribeUpdateDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDescribeUpdateDirectoryResponse' smart constructor.+data DescribeUpdateDirectoryResponse = DescribeUpdateDirectoryResponse'+  { -- | If not null, more results are available. Pass this value for the+    -- @NextToken@ parameter.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The list of update activities on a directory for the requested update+    -- type.+    updateActivities :: Prelude.Maybe [UpdateInfoEntry],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DescribeUpdateDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'describeUpdateDirectoryResponse_nextToken' - If not null, more results are available. Pass this value for the+-- @NextToken@ parameter.+--+-- 'updateActivities', 'describeUpdateDirectoryResponse_updateActivities' - The list of update activities on a directory for the requested update+-- type.+--+-- 'httpStatus', 'describeUpdateDirectoryResponse_httpStatus' - The response's http status code.+newDescribeUpdateDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DescribeUpdateDirectoryResponse+newDescribeUpdateDirectoryResponse pHttpStatus_ =+  DescribeUpdateDirectoryResponse'+    { nextToken =+        Prelude.Nothing,+      updateActivities = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, more results are available. Pass this value for the+-- @NextToken@ parameter.+describeUpdateDirectoryResponse_nextToken :: Lens.Lens' DescribeUpdateDirectoryResponse (Prelude.Maybe Prelude.Text)+describeUpdateDirectoryResponse_nextToken = Lens.lens (\DescribeUpdateDirectoryResponse' {nextToken} -> nextToken) (\s@DescribeUpdateDirectoryResponse' {} a -> s {nextToken = a} :: DescribeUpdateDirectoryResponse)++-- | The list of update activities on a directory for the requested update+-- type.+describeUpdateDirectoryResponse_updateActivities :: Lens.Lens' DescribeUpdateDirectoryResponse (Prelude.Maybe [UpdateInfoEntry])+describeUpdateDirectoryResponse_updateActivities = Lens.lens (\DescribeUpdateDirectoryResponse' {updateActivities} -> updateActivities) (\s@DescribeUpdateDirectoryResponse' {} a -> s {updateActivities = a} :: DescribeUpdateDirectoryResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+describeUpdateDirectoryResponse_httpStatus :: Lens.Lens' DescribeUpdateDirectoryResponse Prelude.Int+describeUpdateDirectoryResponse_httpStatus = Lens.lens (\DescribeUpdateDirectoryResponse' {httpStatus} -> httpStatus) (\s@DescribeUpdateDirectoryResponse' {} a -> s {httpStatus = a} :: DescribeUpdateDirectoryResponse)++instance+  Prelude.NFData+    DescribeUpdateDirectoryResponse+  where+  rnf DescribeUpdateDirectoryResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf updateActivities+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DisableClientAuthentication.hs view

@@ -0,0 +1,184 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DisableClientAuthentication+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disables alternative client authentication methods for the specified+-- directory.+module Amazonka.DirectoryService.DisableClientAuthentication+  ( -- * Creating a Request+    DisableClientAuthentication (..),+    newDisableClientAuthentication,++    -- * Request Lenses+    disableClientAuthentication_directoryId,+    disableClientAuthentication_type,++    -- * Destructuring the Response+    DisableClientAuthenticationResponse (..),+    newDisableClientAuthenticationResponse,++    -- * Response Lenses+    disableClientAuthenticationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDisableClientAuthentication' smart constructor.+data DisableClientAuthentication = DisableClientAuthentication'+  { -- | The identifier of the directory+    directoryId :: Prelude.Text,+    -- | The type of client authentication to disable. Currently, only the+    -- parameter, @SmartCard@ is supported.+    type' :: ClientAuthenticationType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableClientAuthentication' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'disableClientAuthentication_directoryId' - The identifier of the directory+--+-- 'type'', 'disableClientAuthentication_type' - The type of client authentication to disable. Currently, only the+-- parameter, @SmartCard@ is supported.+newDisableClientAuthentication ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'type''+  ClientAuthenticationType ->+  DisableClientAuthentication+newDisableClientAuthentication pDirectoryId_ pType_ =+  DisableClientAuthentication'+    { directoryId =+        pDirectoryId_,+      type' = pType_+    }++-- | The identifier of the directory+disableClientAuthentication_directoryId :: Lens.Lens' DisableClientAuthentication Prelude.Text+disableClientAuthentication_directoryId = Lens.lens (\DisableClientAuthentication' {directoryId} -> directoryId) (\s@DisableClientAuthentication' {} a -> s {directoryId = a} :: DisableClientAuthentication)++-- | The type of client authentication to disable. Currently, only the+-- parameter, @SmartCard@ is supported.+disableClientAuthentication_type :: Lens.Lens' DisableClientAuthentication ClientAuthenticationType+disableClientAuthentication_type = Lens.lens (\DisableClientAuthentication' {type'} -> type') (\s@DisableClientAuthentication' {} a -> s {type' = a} :: DisableClientAuthentication)++instance Core.AWSRequest DisableClientAuthentication where+  type+    AWSResponse DisableClientAuthentication =+      DisableClientAuthenticationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DisableClientAuthenticationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisableClientAuthentication where+  hashWithSalt _salt DisableClientAuthentication' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` type'++instance Prelude.NFData DisableClientAuthentication where+  rnf DisableClientAuthentication' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders DisableClientAuthentication where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DisableClientAuthentication" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DisableClientAuthentication where+  toJSON DisableClientAuthentication' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Type" Data..= type')+          ]+      )++instance Data.ToPath DisableClientAuthentication where+  toPath = Prelude.const "/"++instance Data.ToQuery DisableClientAuthentication where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDisableClientAuthenticationResponse' smart constructor.+data DisableClientAuthenticationResponse = DisableClientAuthenticationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableClientAuthenticationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'disableClientAuthenticationResponse_httpStatus' - The response's http status code.+newDisableClientAuthenticationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisableClientAuthenticationResponse+newDisableClientAuthenticationResponse pHttpStatus_ =+  DisableClientAuthenticationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+disableClientAuthenticationResponse_httpStatus :: Lens.Lens' DisableClientAuthenticationResponse Prelude.Int+disableClientAuthenticationResponse_httpStatus = Lens.lens (\DisableClientAuthenticationResponse' {httpStatus} -> httpStatus) (\s@DisableClientAuthenticationResponse' {} a -> s {httpStatus = a} :: DisableClientAuthenticationResponse)++instance+  Prelude.NFData+    DisableClientAuthenticationResponse+  where+  rnf DisableClientAuthenticationResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DisableLDAPS.hs view

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DisableLDAPS+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deactivates LDAP secure calls for the specified directory.+module Amazonka.DirectoryService.DisableLDAPS+  ( -- * Creating a Request+    DisableLDAPS (..),+    newDisableLDAPS,++    -- * Request Lenses+    disableLDAPS_directoryId,+    disableLDAPS_type,++    -- * Destructuring the Response+    DisableLDAPSResponse (..),+    newDisableLDAPSResponse,++    -- * Response Lenses+    disableLDAPSResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newDisableLDAPS' smart constructor.+data DisableLDAPS = DisableLDAPS'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The type of LDAP security to enable. Currently only the value @Client@+    -- is supported.+    type' :: LDAPSType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableLDAPS' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'disableLDAPS_directoryId' - The identifier of the directory.+--+-- 'type'', 'disableLDAPS_type' - The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+newDisableLDAPS ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'type''+  LDAPSType ->+  DisableLDAPS+newDisableLDAPS pDirectoryId_ pType_ =+  DisableLDAPS'+    { directoryId = pDirectoryId_,+      type' = pType_+    }++-- | The identifier of the directory.+disableLDAPS_directoryId :: Lens.Lens' DisableLDAPS Prelude.Text+disableLDAPS_directoryId = Lens.lens (\DisableLDAPS' {directoryId} -> directoryId) (\s@DisableLDAPS' {} a -> s {directoryId = a} :: DisableLDAPS)++-- | The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+disableLDAPS_type :: Lens.Lens' DisableLDAPS LDAPSType+disableLDAPS_type = Lens.lens (\DisableLDAPS' {type'} -> type') (\s@DisableLDAPS' {} a -> s {type' = a} :: DisableLDAPS)++instance Core.AWSRequest DisableLDAPS where+  type AWSResponse DisableLDAPS = DisableLDAPSResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DisableLDAPSResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisableLDAPS where+  hashWithSalt _salt DisableLDAPS' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` type'++instance Prelude.NFData DisableLDAPS where+  rnf DisableLDAPS' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders DisableLDAPS where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DisableLDAPS" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DisableLDAPS where+  toJSON DisableLDAPS' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Type" Data..= type')+          ]+      )++instance Data.ToPath DisableLDAPS where+  toPath = Prelude.const "/"++instance Data.ToQuery DisableLDAPS where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newDisableLDAPSResponse' smart constructor.+data DisableLDAPSResponse = DisableLDAPSResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableLDAPSResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'disableLDAPSResponse_httpStatus' - The response's http status code.+newDisableLDAPSResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisableLDAPSResponse+newDisableLDAPSResponse pHttpStatus_ =+  DisableLDAPSResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+disableLDAPSResponse_httpStatus :: Lens.Lens' DisableLDAPSResponse Prelude.Int+disableLDAPSResponse_httpStatus = Lens.lens (\DisableLDAPSResponse' {httpStatus} -> httpStatus) (\s@DisableLDAPSResponse' {} a -> s {httpStatus = a} :: DisableLDAPSResponse)++instance Prelude.NFData DisableLDAPSResponse where+  rnf DisableLDAPSResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DisableRadius.hs view

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DisableRadius+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disables multi-factor authentication (MFA) with the Remote+-- Authentication Dial In User Service (RADIUS) server for an AD Connector+-- or Microsoft AD directory.+module Amazonka.DirectoryService.DisableRadius+  ( -- * Creating a Request+    DisableRadius (..),+    newDisableRadius,++    -- * Request Lenses+    disableRadius_directoryId,++    -- * Destructuring the Response+    DisableRadiusResponse (..),+    newDisableRadiusResponse,++    -- * Response Lenses+    disableRadiusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DisableRadius operation.+--+-- /See:/ 'newDisableRadius' smart constructor.+data DisableRadius = DisableRadius'+  { -- | The identifier of the directory for which to disable MFA.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableRadius' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'disableRadius_directoryId' - The identifier of the directory for which to disable MFA.+newDisableRadius ::+  -- | 'directoryId'+  Prelude.Text ->+  DisableRadius+newDisableRadius pDirectoryId_ =+  DisableRadius' {directoryId = pDirectoryId_}++-- | The identifier of the directory for which to disable MFA.+disableRadius_directoryId :: Lens.Lens' DisableRadius Prelude.Text+disableRadius_directoryId = Lens.lens (\DisableRadius' {directoryId} -> directoryId) (\s@DisableRadius' {} a -> s {directoryId = a} :: DisableRadius)++instance Core.AWSRequest DisableRadius where+  type+    AWSResponse DisableRadius =+      DisableRadiusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DisableRadiusResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisableRadius where+  hashWithSalt _salt DisableRadius' {..} =+    _salt `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DisableRadius where+  rnf DisableRadius' {..} = Prelude.rnf directoryId++instance Data.ToHeaders DisableRadius where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DisableRadius" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DisableRadius where+  toJSON DisableRadius' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DirectoryId" Data..= directoryId)]+      )++instance Data.ToPath DisableRadius where+  toPath = Prelude.const "/"++instance Data.ToQuery DisableRadius where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DisableRadius operation.+--+-- /See:/ 'newDisableRadiusResponse' smart constructor.+data DisableRadiusResponse = DisableRadiusResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableRadiusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'disableRadiusResponse_httpStatus' - The response's http status code.+newDisableRadiusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisableRadiusResponse+newDisableRadiusResponse pHttpStatus_ =+  DisableRadiusResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+disableRadiusResponse_httpStatus :: Lens.Lens' DisableRadiusResponse Prelude.Int+disableRadiusResponse_httpStatus = Lens.lens (\DisableRadiusResponse' {httpStatus} -> httpStatus) (\s@DisableRadiusResponse' {} a -> s {httpStatus = a} :: DisableRadiusResponse)++instance Prelude.NFData DisableRadiusResponse where+  rnf DisableRadiusResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/DisableSso.hs view

@@ -0,0 +1,215 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.DisableSso+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disables single-sign on for a directory.+module Amazonka.DirectoryService.DisableSso+  ( -- * Creating a Request+    DisableSso (..),+    newDisableSso,++    -- * Request Lenses+    disableSso_password,+    disableSso_userName,+    disableSso_directoryId,++    -- * Destructuring the Response+    DisableSsoResponse (..),+    newDisableSsoResponse,++    -- * Response Lenses+    disableSsoResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the DisableSso operation.+--+-- /See:/ 'newDisableSso' smart constructor.+data DisableSso = DisableSso'+  { -- | The password of an alternate account to use to disable single-sign on.+    -- This is only used for AD Connector directories. For more information,+    -- see the /UserName/ parameter.+    password :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The username of an alternate account to use to disable single-sign on.+    -- This is only used for AD Connector directories. This account must have+    -- privileges to remove a service principal name.+    --+    -- If the AD Connector service account does not have privileges to remove a+    -- service principal name, you can specify an alternate account with the+    -- /UserName/ and /Password/ parameters. These credentials are only used to+    -- disable single sign-on and are not stored by the service. The AD+    -- Connector service account is not changed.+    userName :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory for which to disable single-sign on.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableSso' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'password', 'disableSso_password' - The password of an alternate account to use to disable single-sign on.+-- This is only used for AD Connector directories. For more information,+-- see the /UserName/ parameter.+--+-- 'userName', 'disableSso_userName' - The username of an alternate account to use to disable single-sign on.+-- This is only used for AD Connector directories. This account must have+-- privileges to remove a service principal name.+--+-- If the AD Connector service account does not have privileges to remove a+-- service principal name, you can specify an alternate account with the+-- /UserName/ and /Password/ parameters. These credentials are only used to+-- disable single sign-on and are not stored by the service. The AD+-- Connector service account is not changed.+--+-- 'directoryId', 'disableSso_directoryId' - The identifier of the directory for which to disable single-sign on.+newDisableSso ::+  -- | 'directoryId'+  Prelude.Text ->+  DisableSso+newDisableSso pDirectoryId_ =+  DisableSso'+    { password = Prelude.Nothing,+      userName = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The password of an alternate account to use to disable single-sign on.+-- This is only used for AD Connector directories. For more information,+-- see the /UserName/ parameter.+disableSso_password :: Lens.Lens' DisableSso (Prelude.Maybe Prelude.Text)+disableSso_password = Lens.lens (\DisableSso' {password} -> password) (\s@DisableSso' {} a -> s {password = a} :: DisableSso) Prelude.. Lens.mapping Data._Sensitive++-- | The username of an alternate account to use to disable single-sign on.+-- This is only used for AD Connector directories. This account must have+-- privileges to remove a service principal name.+--+-- If the AD Connector service account does not have privileges to remove a+-- service principal name, you can specify an alternate account with the+-- /UserName/ and /Password/ parameters. These credentials are only used to+-- disable single sign-on and are not stored by the service. The AD+-- Connector service account is not changed.+disableSso_userName :: Lens.Lens' DisableSso (Prelude.Maybe Prelude.Text)+disableSso_userName = Lens.lens (\DisableSso' {userName} -> userName) (\s@DisableSso' {} a -> s {userName = a} :: DisableSso)++-- | The identifier of the directory for which to disable single-sign on.+disableSso_directoryId :: Lens.Lens' DisableSso Prelude.Text+disableSso_directoryId = Lens.lens (\DisableSso' {directoryId} -> directoryId) (\s@DisableSso' {} a -> s {directoryId = a} :: DisableSso)++instance Core.AWSRequest DisableSso where+  type AWSResponse DisableSso = DisableSsoResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          DisableSsoResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable DisableSso where+  hashWithSalt _salt DisableSso' {..} =+    _salt+      `Prelude.hashWithSalt` password+      `Prelude.hashWithSalt` userName+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData DisableSso where+  rnf DisableSso' {..} =+    Prelude.rnf password+      `Prelude.seq` Prelude.rnf userName+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders DisableSso where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.DisableSso" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON DisableSso where+  toJSON DisableSso' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Password" Data..=) Prelude.<$> password,+            ("UserName" Data..=) Prelude.<$> userName,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath DisableSso where+  toPath = Prelude.const "/"++instance Data.ToQuery DisableSso where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the DisableSso operation.+--+-- /See:/ 'newDisableSsoResponse' smart constructor.+data DisableSsoResponse = DisableSsoResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DisableSsoResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'disableSsoResponse_httpStatus' - The response's http status code.+newDisableSsoResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  DisableSsoResponse+newDisableSsoResponse pHttpStatus_ =+  DisableSsoResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+disableSsoResponse_httpStatus :: Lens.Lens' DisableSsoResponse Prelude.Int+disableSsoResponse_httpStatus = Lens.lens (\DisableSsoResponse' {httpStatus} -> httpStatus) (\s@DisableSsoResponse' {} a -> s {httpStatus = a} :: DisableSsoResponse)++instance Prelude.NFData DisableSsoResponse where+  rnf DisableSsoResponse' {..} = Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/EnableClientAuthentication.hs view

@@ -0,0 +1,190 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.EnableClientAuthentication+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables alternative client authentication methods for the specified+-- directory.+module Amazonka.DirectoryService.EnableClientAuthentication+  ( -- * Creating a Request+    EnableClientAuthentication (..),+    newEnableClientAuthentication,++    -- * Request Lenses+    enableClientAuthentication_directoryId,+    enableClientAuthentication_type,++    -- * Destructuring the Response+    EnableClientAuthenticationResponse (..),+    newEnableClientAuthenticationResponse,++    -- * Response Lenses+    enableClientAuthenticationResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newEnableClientAuthentication' smart constructor.+data EnableClientAuthentication = EnableClientAuthentication'+  { -- | The identifier of the specified directory.+    directoryId :: Prelude.Text,+    -- | The type of client authentication to enable. Currently only the value+    -- @SmartCard@ is supported. Smart card authentication in AD Connector+    -- requires that you enable Kerberos Constrained Delegation for the Service+    -- User to the LDAP service in your self-managed AD.+    type' :: ClientAuthenticationType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableClientAuthentication' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'enableClientAuthentication_directoryId' - The identifier of the specified directory.+--+-- 'type'', 'enableClientAuthentication_type' - The type of client authentication to enable. Currently only the value+-- @SmartCard@ is supported. Smart card authentication in AD Connector+-- requires that you enable Kerberos Constrained Delegation for the Service+-- User to the LDAP service in your self-managed AD.+newEnableClientAuthentication ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'type''+  ClientAuthenticationType ->+  EnableClientAuthentication+newEnableClientAuthentication pDirectoryId_ pType_ =+  EnableClientAuthentication'+    { directoryId =+        pDirectoryId_,+      type' = pType_+    }++-- | The identifier of the specified directory.+enableClientAuthentication_directoryId :: Lens.Lens' EnableClientAuthentication Prelude.Text+enableClientAuthentication_directoryId = Lens.lens (\EnableClientAuthentication' {directoryId} -> directoryId) (\s@EnableClientAuthentication' {} a -> s {directoryId = a} :: EnableClientAuthentication)++-- | The type of client authentication to enable. Currently only the value+-- @SmartCard@ is supported. Smart card authentication in AD Connector+-- requires that you enable Kerberos Constrained Delegation for the Service+-- User to the LDAP service in your self-managed AD.+enableClientAuthentication_type :: Lens.Lens' EnableClientAuthentication ClientAuthenticationType+enableClientAuthentication_type = Lens.lens (\EnableClientAuthentication' {type'} -> type') (\s@EnableClientAuthentication' {} a -> s {type' = a} :: EnableClientAuthentication)++instance Core.AWSRequest EnableClientAuthentication where+  type+    AWSResponse EnableClientAuthentication =+      EnableClientAuthenticationResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          EnableClientAuthenticationResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable EnableClientAuthentication where+  hashWithSalt _salt EnableClientAuthentication' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` type'++instance Prelude.NFData EnableClientAuthentication where+  rnf EnableClientAuthentication' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders EnableClientAuthentication where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.EnableClientAuthentication" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON EnableClientAuthentication where+  toJSON EnableClientAuthentication' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Type" Data..= type')+          ]+      )++instance Data.ToPath EnableClientAuthentication where+  toPath = Prelude.const "/"++instance Data.ToQuery EnableClientAuthentication where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newEnableClientAuthenticationResponse' smart constructor.+data EnableClientAuthenticationResponse = EnableClientAuthenticationResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableClientAuthenticationResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'enableClientAuthenticationResponse_httpStatus' - The response's http status code.+newEnableClientAuthenticationResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  EnableClientAuthenticationResponse+newEnableClientAuthenticationResponse pHttpStatus_ =+  EnableClientAuthenticationResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+enableClientAuthenticationResponse_httpStatus :: Lens.Lens' EnableClientAuthenticationResponse Prelude.Int+enableClientAuthenticationResponse_httpStatus = Lens.lens (\EnableClientAuthenticationResponse' {httpStatus} -> httpStatus) (\s@EnableClientAuthenticationResponse' {} a -> s {httpStatus = a} :: EnableClientAuthenticationResponse)++instance+  Prelude.NFData+    EnableClientAuthenticationResponse+  where+  rnf EnableClientAuthenticationResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/EnableLDAPS.hs view

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.EnableLDAPS+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Activates the switch for the specific directory to always use LDAP+-- secure calls.+module Amazonka.DirectoryService.EnableLDAPS+  ( -- * Creating a Request+    EnableLDAPS (..),+    newEnableLDAPS,++    -- * Request Lenses+    enableLDAPS_directoryId,+    enableLDAPS_type,++    -- * Destructuring the Response+    EnableLDAPSResponse (..),+    newEnableLDAPSResponse,++    -- * Response Lenses+    enableLDAPSResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newEnableLDAPS' smart constructor.+data EnableLDAPS = EnableLDAPS'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The type of LDAP security to enable. Currently only the value @Client@+    -- is supported.+    type' :: LDAPSType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableLDAPS' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'enableLDAPS_directoryId' - The identifier of the directory.+--+-- 'type'', 'enableLDAPS_type' - The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+newEnableLDAPS ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'type''+  LDAPSType ->+  EnableLDAPS+newEnableLDAPS pDirectoryId_ pType_ =+  EnableLDAPS'+    { directoryId = pDirectoryId_,+      type' = pType_+    }++-- | The identifier of the directory.+enableLDAPS_directoryId :: Lens.Lens' EnableLDAPS Prelude.Text+enableLDAPS_directoryId = Lens.lens (\EnableLDAPS' {directoryId} -> directoryId) (\s@EnableLDAPS' {} a -> s {directoryId = a} :: EnableLDAPS)++-- | The type of LDAP security to enable. Currently only the value @Client@+-- is supported.+enableLDAPS_type :: Lens.Lens' EnableLDAPS LDAPSType+enableLDAPS_type = Lens.lens (\EnableLDAPS' {type'} -> type') (\s@EnableLDAPS' {} a -> s {type' = a} :: EnableLDAPS)++instance Core.AWSRequest EnableLDAPS where+  type AWSResponse EnableLDAPS = EnableLDAPSResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          EnableLDAPSResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable EnableLDAPS where+  hashWithSalt _salt EnableLDAPS' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` type'++instance Prelude.NFData EnableLDAPS where+  rnf EnableLDAPS' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf type'++instance Data.ToHeaders EnableLDAPS where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.EnableLDAPS" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON EnableLDAPS where+  toJSON EnableLDAPS' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Type" Data..= type')+          ]+      )++instance Data.ToPath EnableLDAPS where+  toPath = Prelude.const "/"++instance Data.ToQuery EnableLDAPS where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newEnableLDAPSResponse' smart constructor.+data EnableLDAPSResponse = EnableLDAPSResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableLDAPSResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'enableLDAPSResponse_httpStatus' - The response's http status code.+newEnableLDAPSResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  EnableLDAPSResponse+newEnableLDAPSResponse pHttpStatus_ =+  EnableLDAPSResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+enableLDAPSResponse_httpStatus :: Lens.Lens' EnableLDAPSResponse Prelude.Int+enableLDAPSResponse_httpStatus = Lens.lens (\EnableLDAPSResponse' {httpStatus} -> httpStatus) (\s@EnableLDAPSResponse' {} a -> s {httpStatus = a} :: EnableLDAPSResponse)++instance Prelude.NFData EnableLDAPSResponse where+  rnf EnableLDAPSResponse' {..} = Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/EnableRadius.hs view

@@ -0,0 +1,181 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.EnableRadius+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables multi-factor authentication (MFA) with the Remote Authentication+-- Dial In User Service (RADIUS) server for an AD Connector or Microsoft AD+-- directory.+module Amazonka.DirectoryService.EnableRadius+  ( -- * Creating a Request+    EnableRadius (..),+    newEnableRadius,++    -- * Request Lenses+    enableRadius_directoryId,+    enableRadius_radiusSettings,++    -- * Destructuring the Response+    EnableRadiusResponse (..),+    newEnableRadiusResponse,++    -- * Response Lenses+    enableRadiusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the EnableRadius operation.+--+-- /See:/ 'newEnableRadius' smart constructor.+data EnableRadius = EnableRadius'+  { -- | The identifier of the directory for which to enable MFA.+    directoryId :: Prelude.Text,+    -- | A RadiusSettings object that contains information about the RADIUS+    -- server.+    radiusSettings :: RadiusSettings+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableRadius' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'enableRadius_directoryId' - The identifier of the directory for which to enable MFA.+--+-- 'radiusSettings', 'enableRadius_radiusSettings' - A RadiusSettings object that contains information about the RADIUS+-- server.+newEnableRadius ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'radiusSettings'+  RadiusSettings ->+  EnableRadius+newEnableRadius pDirectoryId_ pRadiusSettings_ =+  EnableRadius'+    { directoryId = pDirectoryId_,+      radiusSettings = pRadiusSettings_+    }++-- | The identifier of the directory for which to enable MFA.+enableRadius_directoryId :: Lens.Lens' EnableRadius Prelude.Text+enableRadius_directoryId = Lens.lens (\EnableRadius' {directoryId} -> directoryId) (\s@EnableRadius' {} a -> s {directoryId = a} :: EnableRadius)++-- | A RadiusSettings object that contains information about the RADIUS+-- server.+enableRadius_radiusSettings :: Lens.Lens' EnableRadius RadiusSettings+enableRadius_radiusSettings = Lens.lens (\EnableRadius' {radiusSettings} -> radiusSettings) (\s@EnableRadius' {} a -> s {radiusSettings = a} :: EnableRadius)++instance Core.AWSRequest EnableRadius where+  type AWSResponse EnableRadius = EnableRadiusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          EnableRadiusResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable EnableRadius where+  hashWithSalt _salt EnableRadius' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` radiusSettings++instance Prelude.NFData EnableRadius where+  rnf EnableRadius' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf radiusSettings++instance Data.ToHeaders EnableRadius where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.EnableRadius" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON EnableRadius where+  toJSON EnableRadius' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RadiusSettings" Data..= radiusSettings)+          ]+      )++instance Data.ToPath EnableRadius where+  toPath = Prelude.const "/"++instance Data.ToQuery EnableRadius where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the EnableRadius operation.+--+-- /See:/ 'newEnableRadiusResponse' smart constructor.+data EnableRadiusResponse = EnableRadiusResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableRadiusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'enableRadiusResponse_httpStatus' - The response's http status code.+newEnableRadiusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  EnableRadiusResponse+newEnableRadiusResponse pHttpStatus_ =+  EnableRadiusResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+enableRadiusResponse_httpStatus :: Lens.Lens' EnableRadiusResponse Prelude.Int+enableRadiusResponse_httpStatus = Lens.lens (\EnableRadiusResponse' {httpStatus} -> httpStatus) (\s@EnableRadiusResponse' {} a -> s {httpStatus = a} :: EnableRadiusResponse)++instance Prelude.NFData EnableRadiusResponse where+  rnf EnableRadiusResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/EnableSso.hs view

@@ -0,0 +1,218 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.EnableSso+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Enables single sign-on for a directory. Single sign-on allows users in+-- your directory to access certain Amazon Web Services services from a+-- computer joined to the directory without having to enter their+-- credentials separately.+module Amazonka.DirectoryService.EnableSso+  ( -- * Creating a Request+    EnableSso (..),+    newEnableSso,++    -- * Request Lenses+    enableSso_password,+    enableSso_userName,+    enableSso_directoryId,++    -- * Destructuring the Response+    EnableSsoResponse (..),+    newEnableSsoResponse,++    -- * Response Lenses+    enableSsoResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the EnableSso operation.+--+-- /See:/ 'newEnableSso' smart constructor.+data EnableSso = EnableSso'+  { -- | The password of an alternate account to use to enable single-sign on.+    -- This is only used for AD Connector directories. For more information,+    -- see the /UserName/ parameter.+    password :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | The username of an alternate account to use to enable single-sign on.+    -- This is only used for AD Connector directories. This account must have+    -- privileges to add a service principal name.+    --+    -- If the AD Connector service account does not have privileges to add a+    -- service principal name, you can specify an alternate account with the+    -- /UserName/ and /Password/ parameters. These credentials are only used to+    -- enable single sign-on and are not stored by the service. The AD+    -- Connector service account is not changed.+    userName :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory for which to enable single-sign on.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableSso' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'password', 'enableSso_password' - The password of an alternate account to use to enable single-sign on.+-- This is only used for AD Connector directories. For more information,+-- see the /UserName/ parameter.+--+-- 'userName', 'enableSso_userName' - The username of an alternate account to use to enable single-sign on.+-- This is only used for AD Connector directories. This account must have+-- privileges to add a service principal name.+--+-- If the AD Connector service account does not have privileges to add a+-- service principal name, you can specify an alternate account with the+-- /UserName/ and /Password/ parameters. These credentials are only used to+-- enable single sign-on and are not stored by the service. The AD+-- Connector service account is not changed.+--+-- 'directoryId', 'enableSso_directoryId' - The identifier of the directory for which to enable single-sign on.+newEnableSso ::+  -- | 'directoryId'+  Prelude.Text ->+  EnableSso+newEnableSso pDirectoryId_ =+  EnableSso'+    { password = Prelude.Nothing,+      userName = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The password of an alternate account to use to enable single-sign on.+-- This is only used for AD Connector directories. For more information,+-- see the /UserName/ parameter.+enableSso_password :: Lens.Lens' EnableSso (Prelude.Maybe Prelude.Text)+enableSso_password = Lens.lens (\EnableSso' {password} -> password) (\s@EnableSso' {} a -> s {password = a} :: EnableSso) Prelude.. Lens.mapping Data._Sensitive++-- | The username of an alternate account to use to enable single-sign on.+-- This is only used for AD Connector directories. This account must have+-- privileges to add a service principal name.+--+-- If the AD Connector service account does not have privileges to add a+-- service principal name, you can specify an alternate account with the+-- /UserName/ and /Password/ parameters. These credentials are only used to+-- enable single sign-on and are not stored by the service. The AD+-- Connector service account is not changed.+enableSso_userName :: Lens.Lens' EnableSso (Prelude.Maybe Prelude.Text)+enableSso_userName = Lens.lens (\EnableSso' {userName} -> userName) (\s@EnableSso' {} a -> s {userName = a} :: EnableSso)++-- | The identifier of the directory for which to enable single-sign on.+enableSso_directoryId :: Lens.Lens' EnableSso Prelude.Text+enableSso_directoryId = Lens.lens (\EnableSso' {directoryId} -> directoryId) (\s@EnableSso' {} a -> s {directoryId = a} :: EnableSso)++instance Core.AWSRequest EnableSso where+  type AWSResponse EnableSso = EnableSsoResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          EnableSsoResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable EnableSso where+  hashWithSalt _salt EnableSso' {..} =+    _salt+      `Prelude.hashWithSalt` password+      `Prelude.hashWithSalt` userName+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData EnableSso where+  rnf EnableSso' {..} =+    Prelude.rnf password+      `Prelude.seq` Prelude.rnf userName+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders EnableSso where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.EnableSso" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON EnableSso where+  toJSON EnableSso' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Password" Data..=) Prelude.<$> password,+            ("UserName" Data..=) Prelude.<$> userName,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath EnableSso where+  toPath = Prelude.const "/"++instance Data.ToQuery EnableSso where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the EnableSso operation.+--+-- /See:/ 'newEnableSsoResponse' smart constructor.+data EnableSsoResponse = EnableSsoResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EnableSsoResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'enableSsoResponse_httpStatus' - The response's http status code.+newEnableSsoResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  EnableSsoResponse+newEnableSsoResponse pHttpStatus_ =+  EnableSsoResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+enableSsoResponse_httpStatus :: Lens.Lens' EnableSsoResponse Prelude.Int+enableSsoResponse_httpStatus = Lens.lens (\EnableSsoResponse' {httpStatus} -> httpStatus) (\s@EnableSsoResponse' {} a -> s {httpStatus = a} :: EnableSsoResponse)++instance Prelude.NFData EnableSsoResponse where+  rnf EnableSsoResponse' {..} = Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/GetDirectoryLimits.hs view

@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.GetDirectoryLimits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains directory limit information for the current Region.+module Amazonka.DirectoryService.GetDirectoryLimits+  ( -- * Creating a Request+    GetDirectoryLimits (..),+    newGetDirectoryLimits,++    -- * Destructuring the Response+    GetDirectoryLimitsResponse (..),+    newGetDirectoryLimitsResponse,++    -- * Response Lenses+    getDirectoryLimitsResponse_directoryLimits,+    getDirectoryLimitsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the GetDirectoryLimits operation.+--+-- /See:/ 'newGetDirectoryLimits' smart constructor.+data GetDirectoryLimits = GetDirectoryLimits'+  {+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDirectoryLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+newGetDirectoryLimits ::+  GetDirectoryLimits+newGetDirectoryLimits = GetDirectoryLimits'++instance Core.AWSRequest GetDirectoryLimits where+  type+    AWSResponse GetDirectoryLimits =+      GetDirectoryLimitsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetDirectoryLimitsResponse'+            Prelude.<$> (x Data..?> "DirectoryLimits")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetDirectoryLimits where+  hashWithSalt _salt _ =+    _salt `Prelude.hashWithSalt` ()++instance Prelude.NFData GetDirectoryLimits where+  rnf _ = ()++instance Data.ToHeaders GetDirectoryLimits where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.GetDirectoryLimits" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetDirectoryLimits where+  toJSON = Prelude.const (Data.Object Prelude.mempty)++instance Data.ToPath GetDirectoryLimits where+  toPath = Prelude.const "/"++instance Data.ToQuery GetDirectoryLimits where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the GetDirectoryLimits operation.+--+-- /See:/ 'newGetDirectoryLimitsResponse' smart constructor.+data GetDirectoryLimitsResponse = GetDirectoryLimitsResponse'+  { -- | A DirectoryLimits object that contains the directory limits for the+    -- current Region.+    directoryLimits :: Prelude.Maybe DirectoryLimits,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetDirectoryLimitsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryLimits', 'getDirectoryLimitsResponse_directoryLimits' - A DirectoryLimits object that contains the directory limits for the+-- current Region.+--+-- 'httpStatus', 'getDirectoryLimitsResponse_httpStatus' - The response's http status code.+newGetDirectoryLimitsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetDirectoryLimitsResponse+newGetDirectoryLimitsResponse pHttpStatus_ =+  GetDirectoryLimitsResponse'+    { directoryLimits =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A DirectoryLimits object that contains the directory limits for the+-- current Region.+getDirectoryLimitsResponse_directoryLimits :: Lens.Lens' GetDirectoryLimitsResponse (Prelude.Maybe DirectoryLimits)+getDirectoryLimitsResponse_directoryLimits = Lens.lens (\GetDirectoryLimitsResponse' {directoryLimits} -> directoryLimits) (\s@GetDirectoryLimitsResponse' {} a -> s {directoryLimits = a} :: GetDirectoryLimitsResponse)++-- | The response's http status code.+getDirectoryLimitsResponse_httpStatus :: Lens.Lens' GetDirectoryLimitsResponse Prelude.Int+getDirectoryLimitsResponse_httpStatus = Lens.lens (\GetDirectoryLimitsResponse' {httpStatus} -> httpStatus) (\s@GetDirectoryLimitsResponse' {} a -> s {httpStatus = a} :: GetDirectoryLimitsResponse)++instance Prelude.NFData GetDirectoryLimitsResponse where+  rnf GetDirectoryLimitsResponse' {..} =+    Prelude.rnf directoryLimits+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/GetSnapshotLimits.hs view

@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.GetSnapshotLimits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains the manual snapshot limits for a directory.+module Amazonka.DirectoryService.GetSnapshotLimits+  ( -- * Creating a Request+    GetSnapshotLimits (..),+    newGetSnapshotLimits,++    -- * Request Lenses+    getSnapshotLimits_directoryId,++    -- * Destructuring the Response+    GetSnapshotLimitsResponse (..),+    newGetSnapshotLimitsResponse,++    -- * Response Lenses+    getSnapshotLimitsResponse_snapshotLimits,+    getSnapshotLimitsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the GetSnapshotLimits operation.+--+-- /See:/ 'newGetSnapshotLimits' smart constructor.+data GetSnapshotLimits = GetSnapshotLimits'+  { -- | Contains the identifier of the directory to obtain the limits for.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSnapshotLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'getSnapshotLimits_directoryId' - Contains the identifier of the directory to obtain the limits for.+newGetSnapshotLimits ::+  -- | 'directoryId'+  Prelude.Text ->+  GetSnapshotLimits+newGetSnapshotLimits pDirectoryId_ =+  GetSnapshotLimits' {directoryId = pDirectoryId_}++-- | Contains the identifier of the directory to obtain the limits for.+getSnapshotLimits_directoryId :: Lens.Lens' GetSnapshotLimits Prelude.Text+getSnapshotLimits_directoryId = Lens.lens (\GetSnapshotLimits' {directoryId} -> directoryId) (\s@GetSnapshotLimits' {} a -> s {directoryId = a} :: GetSnapshotLimits)++instance Core.AWSRequest GetSnapshotLimits where+  type+    AWSResponse GetSnapshotLimits =+      GetSnapshotLimitsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          GetSnapshotLimitsResponse'+            Prelude.<$> (x Data..?> "SnapshotLimits")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable GetSnapshotLimits where+  hashWithSalt _salt GetSnapshotLimits' {..} =+    _salt `Prelude.hashWithSalt` directoryId++instance Prelude.NFData GetSnapshotLimits where+  rnf GetSnapshotLimits' {..} = Prelude.rnf directoryId++instance Data.ToHeaders GetSnapshotLimits where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.GetSnapshotLimits" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON GetSnapshotLimits where+  toJSON GetSnapshotLimits' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DirectoryId" Data..= directoryId)]+      )++instance Data.ToPath GetSnapshotLimits where+  toPath = Prelude.const "/"++instance Data.ToQuery GetSnapshotLimits where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the GetSnapshotLimits operation.+--+-- /See:/ 'newGetSnapshotLimitsResponse' smart constructor.+data GetSnapshotLimitsResponse = GetSnapshotLimitsResponse'+  { -- | A SnapshotLimits object that contains the manual snapshot limits for the+    -- specified directory.+    snapshotLimits :: Prelude.Maybe SnapshotLimits,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'GetSnapshotLimitsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotLimits', 'getSnapshotLimitsResponse_snapshotLimits' - A SnapshotLimits object that contains the manual snapshot limits for the+-- specified directory.+--+-- 'httpStatus', 'getSnapshotLimitsResponse_httpStatus' - The response's http status code.+newGetSnapshotLimitsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  GetSnapshotLimitsResponse+newGetSnapshotLimitsResponse pHttpStatus_ =+  GetSnapshotLimitsResponse'+    { snapshotLimits =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A SnapshotLimits object that contains the manual snapshot limits for the+-- specified directory.+getSnapshotLimitsResponse_snapshotLimits :: Lens.Lens' GetSnapshotLimitsResponse (Prelude.Maybe SnapshotLimits)+getSnapshotLimitsResponse_snapshotLimits = Lens.lens (\GetSnapshotLimitsResponse' {snapshotLimits} -> snapshotLimits) (\s@GetSnapshotLimitsResponse' {} a -> s {snapshotLimits = a} :: GetSnapshotLimitsResponse)++-- | The response's http status code.+getSnapshotLimitsResponse_httpStatus :: Lens.Lens' GetSnapshotLimitsResponse Prelude.Int+getSnapshotLimitsResponse_httpStatus = Lens.lens (\GetSnapshotLimitsResponse' {httpStatus} -> httpStatus) (\s@GetSnapshotLimitsResponse' {} a -> s {httpStatus = a} :: GetSnapshotLimitsResponse)++instance Prelude.NFData GetSnapshotLimitsResponse where+  rnf GetSnapshotLimitsResponse' {..} =+    Prelude.rnf snapshotLimits+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/Lens.hs view

@@ -0,0 +1,829 @@+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Lens+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Lens+  ( -- * Operations++    -- ** AcceptSharedDirectory+    acceptSharedDirectory_sharedDirectoryId,+    acceptSharedDirectoryResponse_sharedDirectory,+    acceptSharedDirectoryResponse_httpStatus,++    -- ** AddIpRoutes+    addIpRoutes_updateSecurityGroupForDirectoryControllers,+    addIpRoutes_directoryId,+    addIpRoutes_ipRoutes,+    addIpRoutesResponse_httpStatus,++    -- ** AddRegion+    addRegion_directoryId,+    addRegion_regionName,+    addRegion_vPCSettings,+    addRegionResponse_httpStatus,++    -- ** AddTagsToResource+    addTagsToResource_resourceId,+    addTagsToResource_tags,+    addTagsToResourceResponse_httpStatus,++    -- ** CancelSchemaExtension+    cancelSchemaExtension_directoryId,+    cancelSchemaExtension_schemaExtensionId,+    cancelSchemaExtensionResponse_httpStatus,++    -- ** ConnectDirectory+    connectDirectory_description,+    connectDirectory_shortName,+    connectDirectory_tags,+    connectDirectory_name,+    connectDirectory_password,+    connectDirectory_size,+    connectDirectory_connectSettings,+    connectDirectoryResponse_directoryId,+    connectDirectoryResponse_httpStatus,++    -- ** CreateAlias+    createAlias_directoryId,+    createAlias_alias,+    createAliasResponse_alias,+    createAliasResponse_directoryId,+    createAliasResponse_httpStatus,++    -- ** CreateComputer+    createComputer_computerAttributes,+    createComputer_organizationalUnitDistinguishedName,+    createComputer_directoryId,+    createComputer_computerName,+    createComputer_password,+    createComputerResponse_computer,+    createComputerResponse_httpStatus,++    -- ** CreateConditionalForwarder+    createConditionalForwarder_directoryId,+    createConditionalForwarder_remoteDomainName,+    createConditionalForwarder_dnsIpAddrs,+    createConditionalForwarderResponse_httpStatus,++    -- ** CreateDirectory+    createDirectory_description,+    createDirectory_shortName,+    createDirectory_tags,+    createDirectory_vpcSettings,+    createDirectory_name,+    createDirectory_password,+    createDirectory_size,+    createDirectoryResponse_directoryId,+    createDirectoryResponse_httpStatus,++    -- ** CreateLogSubscription+    createLogSubscription_directoryId,+    createLogSubscription_logGroupName,+    createLogSubscriptionResponse_httpStatus,++    -- ** CreateMicrosoftAD+    createMicrosoftAD_description,+    createMicrosoftAD_edition,+    createMicrosoftAD_shortName,+    createMicrosoftAD_tags,+    createMicrosoftAD_name,+    createMicrosoftAD_password,+    createMicrosoftAD_vpcSettings,+    createMicrosoftADResponse_directoryId,+    createMicrosoftADResponse_httpStatus,++    -- ** CreateSnapshot+    createSnapshot_name,+    createSnapshot_directoryId,+    createSnapshotResponse_snapshotId,+    createSnapshotResponse_httpStatus,++    -- ** CreateTrust+    createTrust_conditionalForwarderIpAddrs,+    createTrust_selectiveAuth,+    createTrust_trustType,+    createTrust_directoryId,+    createTrust_remoteDomainName,+    createTrust_trustPassword,+    createTrust_trustDirection,+    createTrustResponse_trustId,+    createTrustResponse_httpStatus,++    -- ** DeleteConditionalForwarder+    deleteConditionalForwarder_directoryId,+    deleteConditionalForwarder_remoteDomainName,+    deleteConditionalForwarderResponse_httpStatus,++    -- ** DeleteDirectory+    deleteDirectory_directoryId,+    deleteDirectoryResponse_directoryId,+    deleteDirectoryResponse_httpStatus,++    -- ** DeleteLogSubscription+    deleteLogSubscription_directoryId,+    deleteLogSubscriptionResponse_httpStatus,++    -- ** DeleteSnapshot+    deleteSnapshot_snapshotId,+    deleteSnapshotResponse_snapshotId,+    deleteSnapshotResponse_httpStatus,++    -- ** DeleteTrust+    deleteTrust_deleteAssociatedConditionalForwarder,+    deleteTrust_trustId,+    deleteTrustResponse_trustId,+    deleteTrustResponse_httpStatus,++    -- ** DeregisterCertificate+    deregisterCertificate_directoryId,+    deregisterCertificate_certificateId,+    deregisterCertificateResponse_httpStatus,++    -- ** DeregisterEventTopic+    deregisterEventTopic_directoryId,+    deregisterEventTopic_topicName,+    deregisterEventTopicResponse_httpStatus,++    -- ** DescribeCertificate+    describeCertificate_directoryId,+    describeCertificate_certificateId,+    describeCertificateResponse_certificate,+    describeCertificateResponse_httpStatus,++    -- ** DescribeClientAuthenticationSettings+    describeClientAuthenticationSettings_limit,+    describeClientAuthenticationSettings_nextToken,+    describeClientAuthenticationSettings_type,+    describeClientAuthenticationSettings_directoryId,+    describeClientAuthenticationSettingsResponse_clientAuthenticationSettingsInfo,+    describeClientAuthenticationSettingsResponse_nextToken,+    describeClientAuthenticationSettingsResponse_httpStatus,++    -- ** DescribeConditionalForwarders+    describeConditionalForwarders_remoteDomainNames,+    describeConditionalForwarders_directoryId,+    describeConditionalForwardersResponse_conditionalForwarders,+    describeConditionalForwardersResponse_httpStatus,++    -- ** DescribeDirectories+    describeDirectories_directoryIds,+    describeDirectories_limit,+    describeDirectories_nextToken,+    describeDirectoriesResponse_directoryDescriptions,+    describeDirectoriesResponse_nextToken,+    describeDirectoriesResponse_httpStatus,++    -- ** DescribeDomainControllers+    describeDomainControllers_domainControllerIds,+    describeDomainControllers_limit,+    describeDomainControllers_nextToken,+    describeDomainControllers_directoryId,+    describeDomainControllersResponse_domainControllers,+    describeDomainControllersResponse_nextToken,+    describeDomainControllersResponse_httpStatus,++    -- ** DescribeEventTopics+    describeEventTopics_directoryId,+    describeEventTopics_topicNames,+    describeEventTopicsResponse_eventTopics,+    describeEventTopicsResponse_httpStatus,++    -- ** DescribeLDAPSSettings+    describeLDAPSSettings_limit,+    describeLDAPSSettings_nextToken,+    describeLDAPSSettings_type,+    describeLDAPSSettings_directoryId,+    describeLDAPSSettingsResponse_lDAPSSettingsInfo,+    describeLDAPSSettingsResponse_nextToken,+    describeLDAPSSettingsResponse_httpStatus,++    -- ** DescribeRegions+    describeRegions_nextToken,+    describeRegions_regionName,+    describeRegions_directoryId,+    describeRegionsResponse_nextToken,+    describeRegionsResponse_regionsDescription,+    describeRegionsResponse_httpStatus,++    -- ** DescribeSettings+    describeSettings_nextToken,+    describeSettings_status,+    describeSettings_directoryId,+    describeSettingsResponse_directoryId,+    describeSettingsResponse_nextToken,+    describeSettingsResponse_settingEntries,+    describeSettingsResponse_httpStatus,++    -- ** DescribeSharedDirectories+    describeSharedDirectories_limit,+    describeSharedDirectories_nextToken,+    describeSharedDirectories_sharedDirectoryIds,+    describeSharedDirectories_ownerDirectoryId,+    describeSharedDirectoriesResponse_nextToken,+    describeSharedDirectoriesResponse_sharedDirectories,+    describeSharedDirectoriesResponse_httpStatus,++    -- ** DescribeSnapshots+    describeSnapshots_directoryId,+    describeSnapshots_limit,+    describeSnapshots_nextToken,+    describeSnapshots_snapshotIds,+    describeSnapshotsResponse_nextToken,+    describeSnapshotsResponse_snapshots,+    describeSnapshotsResponse_httpStatus,++    -- ** DescribeTrusts+    describeTrusts_directoryId,+    describeTrusts_limit,+    describeTrusts_nextToken,+    describeTrusts_trustIds,+    describeTrustsResponse_nextToken,+    describeTrustsResponse_trusts,+    describeTrustsResponse_httpStatus,++    -- ** DescribeUpdateDirectory+    describeUpdateDirectory_nextToken,+    describeUpdateDirectory_regionName,+    describeUpdateDirectory_directoryId,+    describeUpdateDirectory_updateType,+    describeUpdateDirectoryResponse_nextToken,+    describeUpdateDirectoryResponse_updateActivities,+    describeUpdateDirectoryResponse_httpStatus,++    -- ** DisableClientAuthentication+    disableClientAuthentication_directoryId,+    disableClientAuthentication_type,+    disableClientAuthenticationResponse_httpStatus,++    -- ** DisableLDAPS+    disableLDAPS_directoryId,+    disableLDAPS_type,+    disableLDAPSResponse_httpStatus,++    -- ** DisableRadius+    disableRadius_directoryId,+    disableRadiusResponse_httpStatus,++    -- ** DisableSso+    disableSso_password,+    disableSso_userName,+    disableSso_directoryId,+    disableSsoResponse_httpStatus,++    -- ** EnableClientAuthentication+    enableClientAuthentication_directoryId,+    enableClientAuthentication_type,+    enableClientAuthenticationResponse_httpStatus,++    -- ** EnableLDAPS+    enableLDAPS_directoryId,+    enableLDAPS_type,+    enableLDAPSResponse_httpStatus,++    -- ** EnableRadius+    enableRadius_directoryId,+    enableRadius_radiusSettings,+    enableRadiusResponse_httpStatus,++    -- ** EnableSso+    enableSso_password,+    enableSso_userName,+    enableSso_directoryId,+    enableSsoResponse_httpStatus,++    -- ** GetDirectoryLimits+    getDirectoryLimitsResponse_directoryLimits,+    getDirectoryLimitsResponse_httpStatus,++    -- ** GetSnapshotLimits+    getSnapshotLimits_directoryId,+    getSnapshotLimitsResponse_snapshotLimits,+    getSnapshotLimitsResponse_httpStatus,++    -- ** ListCertificates+    listCertificates_limit,+    listCertificates_nextToken,+    listCertificates_directoryId,+    listCertificatesResponse_certificatesInfo,+    listCertificatesResponse_nextToken,+    listCertificatesResponse_httpStatus,++    -- ** ListIpRoutes+    listIpRoutes_limit,+    listIpRoutes_nextToken,+    listIpRoutes_directoryId,+    listIpRoutesResponse_ipRoutesInfo,+    listIpRoutesResponse_nextToken,+    listIpRoutesResponse_httpStatus,++    -- ** ListLogSubscriptions+    listLogSubscriptions_directoryId,+    listLogSubscriptions_limit,+    listLogSubscriptions_nextToken,+    listLogSubscriptionsResponse_logSubscriptions,+    listLogSubscriptionsResponse_nextToken,+    listLogSubscriptionsResponse_httpStatus,++    -- ** ListSchemaExtensions+    listSchemaExtensions_limit,+    listSchemaExtensions_nextToken,+    listSchemaExtensions_directoryId,+    listSchemaExtensionsResponse_nextToken,+    listSchemaExtensionsResponse_schemaExtensionsInfo,+    listSchemaExtensionsResponse_httpStatus,++    -- ** ListTagsForResource+    listTagsForResource_limit,+    listTagsForResource_nextToken,+    listTagsForResource_resourceId,+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,++    -- ** RegisterCertificate+    registerCertificate_clientCertAuthSettings,+    registerCertificate_type,+    registerCertificate_directoryId,+    registerCertificate_certificateData,+    registerCertificateResponse_certificateId,+    registerCertificateResponse_httpStatus,++    -- ** RegisterEventTopic+    registerEventTopic_directoryId,+    registerEventTopic_topicName,+    registerEventTopicResponse_httpStatus,++    -- ** RejectSharedDirectory+    rejectSharedDirectory_sharedDirectoryId,+    rejectSharedDirectoryResponse_sharedDirectoryId,+    rejectSharedDirectoryResponse_httpStatus,++    -- ** RemoveIpRoutes+    removeIpRoutes_directoryId,+    removeIpRoutes_cidrIps,+    removeIpRoutesResponse_httpStatus,++    -- ** RemoveRegion+    removeRegion_directoryId,+    removeRegionResponse_httpStatus,++    -- ** RemoveTagsFromResource+    removeTagsFromResource_resourceId,+    removeTagsFromResource_tagKeys,+    removeTagsFromResourceResponse_httpStatus,++    -- ** ResetUserPassword+    resetUserPassword_directoryId,+    resetUserPassword_userName,+    resetUserPassword_newPassword,+    resetUserPasswordResponse_httpStatus,++    -- ** RestoreFromSnapshot+    restoreFromSnapshot_snapshotId,+    restoreFromSnapshotResponse_httpStatus,++    -- ** ShareDirectory+    shareDirectory_shareNotes,+    shareDirectory_directoryId,+    shareDirectory_shareTarget,+    shareDirectory_shareMethod,+    shareDirectoryResponse_sharedDirectoryId,+    shareDirectoryResponse_httpStatus,++    -- ** StartSchemaExtension+    startSchemaExtension_directoryId,+    startSchemaExtension_createSnapshotBeforeSchemaExtension,+    startSchemaExtension_ldifContent,+    startSchemaExtension_description,+    startSchemaExtensionResponse_schemaExtensionId,+    startSchemaExtensionResponse_httpStatus,++    -- ** UnshareDirectory+    unshareDirectory_directoryId,+    unshareDirectory_unshareTarget,+    unshareDirectoryResponse_sharedDirectoryId,+    unshareDirectoryResponse_httpStatus,++    -- ** UpdateConditionalForwarder+    updateConditionalForwarder_directoryId,+    updateConditionalForwarder_remoteDomainName,+    updateConditionalForwarder_dnsIpAddrs,+    updateConditionalForwarderResponse_httpStatus,++    -- ** UpdateDirectorySetup+    updateDirectorySetup_createSnapshotBeforeUpdate,+    updateDirectorySetup_oSUpdateSettings,+    updateDirectorySetup_directoryId,+    updateDirectorySetup_updateType,+    updateDirectorySetupResponse_httpStatus,++    -- ** UpdateNumberOfDomainControllers+    updateNumberOfDomainControllers_directoryId,+    updateNumberOfDomainControllers_desiredNumber,+    updateNumberOfDomainControllersResponse_httpStatus,++    -- ** UpdateRadius+    updateRadius_directoryId,+    updateRadius_radiusSettings,+    updateRadiusResponse_httpStatus,++    -- ** UpdateSettings+    updateSettings_directoryId,+    updateSettings_settings,+    updateSettingsResponse_directoryId,+    updateSettingsResponse_httpStatus,++    -- ** UpdateTrust+    updateTrust_selectiveAuth,+    updateTrust_trustId,+    updateTrustResponse_requestId,+    updateTrustResponse_trustId,+    updateTrustResponse_httpStatus,++    -- ** VerifyTrust+    verifyTrust_trustId,+    verifyTrustResponse_trustId,+    verifyTrustResponse_httpStatus,++    -- * Types++    -- ** Attribute+    attribute_name,+    attribute_value,++    -- ** Certificate+    certificate_certificateId,+    certificate_clientCertAuthSettings,+    certificate_commonName,+    certificate_expiryDateTime,+    certificate_registeredDateTime,+    certificate_state,+    certificate_stateReason,+    certificate_type,++    -- ** CertificateInfo+    certificateInfo_certificateId,+    certificateInfo_commonName,+    certificateInfo_expiryDateTime,+    certificateInfo_state,+    certificateInfo_type,++    -- ** ClientAuthenticationSettingInfo+    clientAuthenticationSettingInfo_lastUpdatedDateTime,+    clientAuthenticationSettingInfo_status,+    clientAuthenticationSettingInfo_type,++    -- ** ClientCertAuthSettings+    clientCertAuthSettings_oCSPUrl,++    -- ** Computer+    computer_computerAttributes,+    computer_computerId,+    computer_computerName,++    -- ** ConditionalForwarder+    conditionalForwarder_dnsIpAddrs,+    conditionalForwarder_remoteDomainName,+    conditionalForwarder_replicationScope,++    -- ** DirectoryConnectSettings+    directoryConnectSettings_vpcId,+    directoryConnectSettings_subnetIds,+    directoryConnectSettings_customerDnsIps,+    directoryConnectSettings_customerUserName,++    -- ** DirectoryConnectSettingsDescription+    directoryConnectSettingsDescription_availabilityZones,+    directoryConnectSettingsDescription_connectIps,+    directoryConnectSettingsDescription_customerUserName,+    directoryConnectSettingsDescription_securityGroupId,+    directoryConnectSettingsDescription_subnetIds,+    directoryConnectSettingsDescription_vpcId,++    -- ** DirectoryDescription+    directoryDescription_accessUrl,+    directoryDescription_alias,+    directoryDescription_connectSettings,+    directoryDescription_description,+    directoryDescription_desiredNumberOfDomainControllers,+    directoryDescription_directoryId,+    directoryDescription_dnsIpAddrs,+    directoryDescription_edition,+    directoryDescription_launchTime,+    directoryDescription_name,+    directoryDescription_osVersion,+    directoryDescription_ownerDirectoryDescription,+    directoryDescription_radiusSettings,+    directoryDescription_radiusStatus,+    directoryDescription_regionsInfo,+    directoryDescription_shareMethod,+    directoryDescription_shareNotes,+    directoryDescription_shareStatus,+    directoryDescription_shortName,+    directoryDescription_size,+    directoryDescription_ssoEnabled,+    directoryDescription_stage,+    directoryDescription_stageLastUpdatedDateTime,+    directoryDescription_stageReason,+    directoryDescription_type,+    directoryDescription_vpcSettings,++    -- ** DirectoryLimits+    directoryLimits_cloudOnlyDirectoriesCurrentCount,+    directoryLimits_cloudOnlyDirectoriesLimit,+    directoryLimits_cloudOnlyDirectoriesLimitReached,+    directoryLimits_cloudOnlyMicrosoftADCurrentCount,+    directoryLimits_cloudOnlyMicrosoftADLimit,+    directoryLimits_cloudOnlyMicrosoftADLimitReached,+    directoryLimits_connectedDirectoriesCurrentCount,+    directoryLimits_connectedDirectoriesLimit,+    directoryLimits_connectedDirectoriesLimitReached,++    -- ** DirectoryVpcSettings+    directoryVpcSettings_vpcId,+    directoryVpcSettings_subnetIds,++    -- ** DirectoryVpcSettingsDescription+    directoryVpcSettingsDescription_availabilityZones,+    directoryVpcSettingsDescription_securityGroupId,+    directoryVpcSettingsDescription_subnetIds,+    directoryVpcSettingsDescription_vpcId,++    -- ** DomainController+    domainController_availabilityZone,+    domainController_directoryId,+    domainController_dnsIpAddr,+    domainController_domainControllerId,+    domainController_launchTime,+    domainController_status,+    domainController_statusLastUpdatedDateTime,+    domainController_statusReason,+    domainController_subnetId,+    domainController_vpcId,++    -- ** EventTopic+    eventTopic_createdDateTime,+    eventTopic_directoryId,+    eventTopic_status,+    eventTopic_topicArn,+    eventTopic_topicName,++    -- ** IpRoute+    ipRoute_cidrIp,+    ipRoute_description,++    -- ** IpRouteInfo+    ipRouteInfo_addedDateTime,+    ipRouteInfo_cidrIp,+    ipRouteInfo_description,+    ipRouteInfo_directoryId,+    ipRouteInfo_ipRouteStatusMsg,+    ipRouteInfo_ipRouteStatusReason,++    -- ** LDAPSSettingInfo+    lDAPSSettingInfo_lDAPSStatus,+    lDAPSSettingInfo_lDAPSStatusReason,+    lDAPSSettingInfo_lastUpdatedDateTime,++    -- ** LogSubscription+    logSubscription_directoryId,+    logSubscription_logGroupName,+    logSubscription_subscriptionCreatedDateTime,++    -- ** OSUpdateSettings+    oSUpdateSettings_oSVersion,++    -- ** OwnerDirectoryDescription+    ownerDirectoryDescription_accountId,+    ownerDirectoryDescription_directoryId,+    ownerDirectoryDescription_dnsIpAddrs,+    ownerDirectoryDescription_radiusSettings,+    ownerDirectoryDescription_radiusStatus,+    ownerDirectoryDescription_vpcSettings,++    -- ** RadiusSettings+    radiusSettings_authenticationProtocol,+    radiusSettings_displayLabel,+    radiusSettings_radiusPort,+    radiusSettings_radiusRetries,+    radiusSettings_radiusServers,+    radiusSettings_radiusTimeout,+    radiusSettings_sharedSecret,+    radiusSettings_useSameUsername,++    -- ** RegionDescription+    regionDescription_desiredNumberOfDomainControllers,+    regionDescription_directoryId,+    regionDescription_lastUpdatedDateTime,+    regionDescription_launchTime,+    regionDescription_regionName,+    regionDescription_regionType,+    regionDescription_status,+    regionDescription_statusLastUpdatedDateTime,+    regionDescription_vpcSettings,++    -- ** RegionsInfo+    regionsInfo_additionalRegions,+    regionsInfo_primaryRegion,++    -- ** SchemaExtensionInfo+    schemaExtensionInfo_description,+    schemaExtensionInfo_directoryId,+    schemaExtensionInfo_endDateTime,+    schemaExtensionInfo_schemaExtensionId,+    schemaExtensionInfo_schemaExtensionStatus,+    schemaExtensionInfo_schemaExtensionStatusReason,+    schemaExtensionInfo_startDateTime,++    -- ** Setting+    setting_name,+    setting_value,++    -- ** SettingEntry+    settingEntry_allowedValues,+    settingEntry_appliedValue,+    settingEntry_lastRequestedDateTime,+    settingEntry_lastUpdatedDateTime,+    settingEntry_name,+    settingEntry_requestDetailedStatus,+    settingEntry_requestStatus,+    settingEntry_requestStatusMessage,+    settingEntry_requestedValue,+    settingEntry_type,++    -- ** ShareTarget+    shareTarget_id,+    shareTarget_type,++    -- ** SharedDirectory+    sharedDirectory_createdDateTime,+    sharedDirectory_lastUpdatedDateTime,+    sharedDirectory_ownerAccountId,+    sharedDirectory_ownerDirectoryId,+    sharedDirectory_shareMethod,+    sharedDirectory_shareNotes,+    sharedDirectory_shareStatus,+    sharedDirectory_sharedAccountId,+    sharedDirectory_sharedDirectoryId,++    -- ** Snapshot+    snapshot_directoryId,+    snapshot_name,+    snapshot_snapshotId,+    snapshot_startTime,+    snapshot_status,+    snapshot_type,++    -- ** SnapshotLimits+    snapshotLimits_manualSnapshotsCurrentCount,+    snapshotLimits_manualSnapshotsLimit,+    snapshotLimits_manualSnapshotsLimitReached,++    -- ** Tag+    tag_key,+    tag_value,++    -- ** Trust+    trust_createdDateTime,+    trust_directoryId,+    trust_lastUpdatedDateTime,+    trust_remoteDomainName,+    trust_selectiveAuth,+    trust_stateLastUpdatedDateTime,+    trust_trustDirection,+    trust_trustId,+    trust_trustState,+    trust_trustStateReason,+    trust_trustType,++    -- ** UnshareTarget+    unshareTarget_id,+    unshareTarget_type,++    -- ** UpdateInfoEntry+    updateInfoEntry_initiatedBy,+    updateInfoEntry_lastUpdatedDateTime,+    updateInfoEntry_newValue,+    updateInfoEntry_previousValue,+    updateInfoEntry_region,+    updateInfoEntry_startTime,+    updateInfoEntry_status,+    updateInfoEntry_statusReason,++    -- ** UpdateValue+    updateValue_oSUpdateSettings,+  )+where++import Amazonka.DirectoryService.AcceptSharedDirectory+import Amazonka.DirectoryService.AddIpRoutes+import Amazonka.DirectoryService.AddRegion+import Amazonka.DirectoryService.AddTagsToResource+import Amazonka.DirectoryService.CancelSchemaExtension+import Amazonka.DirectoryService.ConnectDirectory+import Amazonka.DirectoryService.CreateAlias+import Amazonka.DirectoryService.CreateComputer+import Amazonka.DirectoryService.CreateConditionalForwarder+import Amazonka.DirectoryService.CreateDirectory+import Amazonka.DirectoryService.CreateLogSubscription+import Amazonka.DirectoryService.CreateMicrosoftAD+import Amazonka.DirectoryService.CreateSnapshot+import Amazonka.DirectoryService.CreateTrust+import Amazonka.DirectoryService.DeleteConditionalForwarder+import Amazonka.DirectoryService.DeleteDirectory+import Amazonka.DirectoryService.DeleteLogSubscription+import Amazonka.DirectoryService.DeleteSnapshot+import Amazonka.DirectoryService.DeleteTrust+import Amazonka.DirectoryService.DeregisterCertificate+import Amazonka.DirectoryService.DeregisterEventTopic+import Amazonka.DirectoryService.DescribeCertificate+import Amazonka.DirectoryService.DescribeClientAuthenticationSettings+import Amazonka.DirectoryService.DescribeConditionalForwarders+import Amazonka.DirectoryService.DescribeDirectories+import Amazonka.DirectoryService.DescribeDomainControllers+import Amazonka.DirectoryService.DescribeEventTopics+import Amazonka.DirectoryService.DescribeLDAPSSettings+import Amazonka.DirectoryService.DescribeRegions+import Amazonka.DirectoryService.DescribeSettings+import Amazonka.DirectoryService.DescribeSharedDirectories+import Amazonka.DirectoryService.DescribeSnapshots+import Amazonka.DirectoryService.DescribeTrusts+import Amazonka.DirectoryService.DescribeUpdateDirectory+import Amazonka.DirectoryService.DisableClientAuthentication+import Amazonka.DirectoryService.DisableLDAPS+import Amazonka.DirectoryService.DisableRadius+import Amazonka.DirectoryService.DisableSso+import Amazonka.DirectoryService.EnableClientAuthentication+import Amazonka.DirectoryService.EnableLDAPS+import Amazonka.DirectoryService.EnableRadius+import Amazonka.DirectoryService.EnableSso+import Amazonka.DirectoryService.GetDirectoryLimits+import Amazonka.DirectoryService.GetSnapshotLimits+import Amazonka.DirectoryService.ListCertificates+import Amazonka.DirectoryService.ListIpRoutes+import Amazonka.DirectoryService.ListLogSubscriptions+import Amazonka.DirectoryService.ListSchemaExtensions+import Amazonka.DirectoryService.ListTagsForResource+import Amazonka.DirectoryService.RegisterCertificate+import Amazonka.DirectoryService.RegisterEventTopic+import Amazonka.DirectoryService.RejectSharedDirectory+import Amazonka.DirectoryService.RemoveIpRoutes+import Amazonka.DirectoryService.RemoveRegion+import Amazonka.DirectoryService.RemoveTagsFromResource+import Amazonka.DirectoryService.ResetUserPassword+import Amazonka.DirectoryService.RestoreFromSnapshot+import Amazonka.DirectoryService.ShareDirectory+import Amazonka.DirectoryService.StartSchemaExtension+import Amazonka.DirectoryService.Types.Attribute+import Amazonka.DirectoryService.Types.Certificate+import Amazonka.DirectoryService.Types.CertificateInfo+import Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo+import Amazonka.DirectoryService.Types.ClientCertAuthSettings+import Amazonka.DirectoryService.Types.Computer+import Amazonka.DirectoryService.Types.ConditionalForwarder+import Amazonka.DirectoryService.Types.DirectoryConnectSettings+import Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription+import Amazonka.DirectoryService.Types.DirectoryDescription+import Amazonka.DirectoryService.Types.DirectoryLimits+import Amazonka.DirectoryService.Types.DirectoryVpcSettings+import Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+import Amazonka.DirectoryService.Types.DomainController+import Amazonka.DirectoryService.Types.EventTopic+import Amazonka.DirectoryService.Types.IpRoute+import Amazonka.DirectoryService.Types.IpRouteInfo+import Amazonka.DirectoryService.Types.LDAPSSettingInfo+import Amazonka.DirectoryService.Types.LogSubscription+import Amazonka.DirectoryService.Types.OSUpdateSettings+import Amazonka.DirectoryService.Types.OwnerDirectoryDescription+import Amazonka.DirectoryService.Types.RadiusSettings+import Amazonka.DirectoryService.Types.RegionDescription+import Amazonka.DirectoryService.Types.RegionsInfo+import Amazonka.DirectoryService.Types.SchemaExtensionInfo+import Amazonka.DirectoryService.Types.Setting+import Amazonka.DirectoryService.Types.SettingEntry+import Amazonka.DirectoryService.Types.ShareTarget+import Amazonka.DirectoryService.Types.SharedDirectory+import Amazonka.DirectoryService.Types.Snapshot+import Amazonka.DirectoryService.Types.SnapshotLimits+import Amazonka.DirectoryService.Types.Tag+import Amazonka.DirectoryService.Types.Trust+import Amazonka.DirectoryService.Types.UnshareTarget+import Amazonka.DirectoryService.Types.UpdateInfoEntry+import Amazonka.DirectoryService.Types.UpdateValue+import Amazonka.DirectoryService.UnshareDirectory+import Amazonka.DirectoryService.UpdateConditionalForwarder+import Amazonka.DirectoryService.UpdateDirectorySetup+import Amazonka.DirectoryService.UpdateNumberOfDomainControllers+import Amazonka.DirectoryService.UpdateRadius+import Amazonka.DirectoryService.UpdateSettings+import Amazonka.DirectoryService.UpdateTrust+import Amazonka.DirectoryService.VerifyTrust

+ gen/Amazonka/DirectoryService/ListCertificates.hs view

@@ -0,0 +1,254 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ListCertificates+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- For the specified directory, lists all the certificates registered for a+-- secure LDAP or client certificate authentication.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.ListCertificates+  ( -- * Creating a Request+    ListCertificates (..),+    newListCertificates,++    -- * Request Lenses+    listCertificates_limit,+    listCertificates_nextToken,+    listCertificates_directoryId,++    -- * Destructuring the Response+    ListCertificatesResponse (..),+    newListCertificatesResponse,++    -- * Response Lenses+    listCertificatesResponse_certificatesInfo,+    listCertificatesResponse_nextToken,+    listCertificatesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListCertificates' smart constructor.+data ListCertificates = ListCertificates'+  { -- | The number of items that should show up on one page+    limit :: Prelude.Maybe Prelude.Natural,+    -- | A token for requesting another page of certificates if the @NextToken@+    -- response element indicates that more certificates are available. Use the+    -- value of the returned @NextToken@ element in your request until the+    -- token comes back as @null@. Pass @null@ if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListCertificates' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listCertificates_limit' - The number of items that should show up on one page+--+-- 'nextToken', 'listCertificates_nextToken' - A token for requesting another page of certificates if the @NextToken@+-- response element indicates that more certificates are available. Use the+-- value of the returned @NextToken@ element in your request until the+-- token comes back as @null@. Pass @null@ if this is the first call.+--+-- 'directoryId', 'listCertificates_directoryId' - The identifier of the directory.+newListCertificates ::+  -- | 'directoryId'+  Prelude.Text ->+  ListCertificates+newListCertificates pDirectoryId_ =+  ListCertificates'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The number of items that should show up on one page+listCertificates_limit :: Lens.Lens' ListCertificates (Prelude.Maybe Prelude.Natural)+listCertificates_limit = Lens.lens (\ListCertificates' {limit} -> limit) (\s@ListCertificates' {} a -> s {limit = a} :: ListCertificates)++-- | A token for requesting another page of certificates if the @NextToken@+-- response element indicates that more certificates are available. Use the+-- value of the returned @NextToken@ element in your request until the+-- token comes back as @null@. Pass @null@ if this is the first call.+listCertificates_nextToken :: Lens.Lens' ListCertificates (Prelude.Maybe Prelude.Text)+listCertificates_nextToken = Lens.lens (\ListCertificates' {nextToken} -> nextToken) (\s@ListCertificates' {} a -> s {nextToken = a} :: ListCertificates)++-- | The identifier of the directory.+listCertificates_directoryId :: Lens.Lens' ListCertificates Prelude.Text+listCertificates_directoryId = Lens.lens (\ListCertificates' {directoryId} -> directoryId) (\s@ListCertificates' {} a -> s {directoryId = a} :: ListCertificates)++instance Core.AWSPager ListCertificates where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listCertificatesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listCertificatesResponse_certificatesInfo+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listCertificates_nextToken+          Lens..~ rs+          Lens.^? listCertificatesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListCertificates where+  type+    AWSResponse ListCertificates =+      ListCertificatesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListCertificatesResponse'+            Prelude.<$> ( x+                            Data..?> "CertificatesInfo"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListCertificates where+  hashWithSalt _salt ListCertificates' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData ListCertificates where+  rnf ListCertificates' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders ListCertificates where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ListCertificates" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListCertificates where+  toJSON ListCertificates' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath ListCertificates where+  toPath = Prelude.const "/"++instance Data.ToQuery ListCertificates where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListCertificatesResponse' smart constructor.+data ListCertificatesResponse = ListCertificatesResponse'+  { -- | A list of certificates with basic details including certificate ID,+    -- certificate common name, certificate state.+    certificatesInfo :: Prelude.Maybe [CertificateInfo],+    -- | Indicates whether another page of certificates is available when the+    -- number of available certificates exceeds the page limit.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListCertificatesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificatesInfo', 'listCertificatesResponse_certificatesInfo' - A list of certificates with basic details including certificate ID,+-- certificate common name, certificate state.+--+-- 'nextToken', 'listCertificatesResponse_nextToken' - Indicates whether another page of certificates is available when the+-- number of available certificates exceeds the page limit.+--+-- 'httpStatus', 'listCertificatesResponse_httpStatus' - The response's http status code.+newListCertificatesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListCertificatesResponse+newListCertificatesResponse pHttpStatus_ =+  ListCertificatesResponse'+    { certificatesInfo =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of certificates with basic details including certificate ID,+-- certificate common name, certificate state.+listCertificatesResponse_certificatesInfo :: Lens.Lens' ListCertificatesResponse (Prelude.Maybe [CertificateInfo])+listCertificatesResponse_certificatesInfo = Lens.lens (\ListCertificatesResponse' {certificatesInfo} -> certificatesInfo) (\s@ListCertificatesResponse' {} a -> s {certificatesInfo = a} :: ListCertificatesResponse) Prelude.. Lens.mapping Lens.coerced++-- | Indicates whether another page of certificates is available when the+-- number of available certificates exceeds the page limit.+listCertificatesResponse_nextToken :: Lens.Lens' ListCertificatesResponse (Prelude.Maybe Prelude.Text)+listCertificatesResponse_nextToken = Lens.lens (\ListCertificatesResponse' {nextToken} -> nextToken) (\s@ListCertificatesResponse' {} a -> s {nextToken = a} :: ListCertificatesResponse)++-- | The response's http status code.+listCertificatesResponse_httpStatus :: Lens.Lens' ListCertificatesResponse Prelude.Int+listCertificatesResponse_httpStatus = Lens.lens (\ListCertificatesResponse' {httpStatus} -> httpStatus) (\s@ListCertificatesResponse' {} a -> s {httpStatus = a} :: ListCertificatesResponse)++instance Prelude.NFData ListCertificatesResponse where+  rnf ListCertificatesResponse' {..} =+    Prelude.rnf certificatesInfo+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ListIpRoutes.hs view

@@ -0,0 +1,248 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ListIpRoutes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the address blocks that you have added to a directory.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.ListIpRoutes+  ( -- * Creating a Request+    ListIpRoutes (..),+    newListIpRoutes,++    -- * Request Lenses+    listIpRoutes_limit,+    listIpRoutes_nextToken,+    listIpRoutes_directoryId,++    -- * Destructuring the Response+    ListIpRoutesResponse (..),+    newListIpRoutesResponse,++    -- * Response Lenses+    listIpRoutesResponse_ipRoutesInfo,+    listIpRoutesResponse_nextToken,+    listIpRoutesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListIpRoutes' smart constructor.+data ListIpRoutes = ListIpRoutes'+  { -- | Maximum number of items to return. If this value is zero, the maximum+    -- number of items is specified by the limitations of the operation.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The /ListIpRoutes.NextToken/ value from a previous call to ListIpRoutes.+    -- Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Identifier (ID) of the directory for which you want to retrieve the IP+    -- addresses.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListIpRoutes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listIpRoutes_limit' - Maximum number of items to return. If this value is zero, the maximum+-- number of items is specified by the limitations of the operation.+--+-- 'nextToken', 'listIpRoutes_nextToken' - The /ListIpRoutes.NextToken/ value from a previous call to ListIpRoutes.+-- Pass null if this is the first call.+--+-- 'directoryId', 'listIpRoutes_directoryId' - Identifier (ID) of the directory for which you want to retrieve the IP+-- addresses.+newListIpRoutes ::+  -- | 'directoryId'+  Prelude.Text ->+  ListIpRoutes+newListIpRoutes pDirectoryId_ =+  ListIpRoutes'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | Maximum number of items to return. If this value is zero, the maximum+-- number of items is specified by the limitations of the operation.+listIpRoutes_limit :: Lens.Lens' ListIpRoutes (Prelude.Maybe Prelude.Natural)+listIpRoutes_limit = Lens.lens (\ListIpRoutes' {limit} -> limit) (\s@ListIpRoutes' {} a -> s {limit = a} :: ListIpRoutes)++-- | The /ListIpRoutes.NextToken/ value from a previous call to ListIpRoutes.+-- Pass null if this is the first call.+listIpRoutes_nextToken :: Lens.Lens' ListIpRoutes (Prelude.Maybe Prelude.Text)+listIpRoutes_nextToken = Lens.lens (\ListIpRoutes' {nextToken} -> nextToken) (\s@ListIpRoutes' {} a -> s {nextToken = a} :: ListIpRoutes)++-- | Identifier (ID) of the directory for which you want to retrieve the IP+-- addresses.+listIpRoutes_directoryId :: Lens.Lens' ListIpRoutes Prelude.Text+listIpRoutes_directoryId = Lens.lens (\ListIpRoutes' {directoryId} -> directoryId) (\s@ListIpRoutes' {} a -> s {directoryId = a} :: ListIpRoutes)++instance Core.AWSPager ListIpRoutes where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listIpRoutesResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listIpRoutesResponse_ipRoutesInfo+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listIpRoutes_nextToken+          Lens..~ rs+          Lens.^? listIpRoutesResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListIpRoutes where+  type AWSResponse ListIpRoutes = ListIpRoutesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListIpRoutesResponse'+            Prelude.<$> (x Data..?> "IpRoutesInfo" Core..!@ Prelude.mempty)+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListIpRoutes where+  hashWithSalt _salt ListIpRoutes' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData ListIpRoutes where+  rnf ListIpRoutes' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders ListIpRoutes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ListIpRoutes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListIpRoutes where+  toJSON ListIpRoutes' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath ListIpRoutes where+  toPath = Prelude.const "/"++instance Data.ToQuery ListIpRoutes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListIpRoutesResponse' smart constructor.+data ListIpRoutesResponse = ListIpRoutesResponse'+  { -- | A list of IpRoutes.+    ipRoutesInfo :: Prelude.Maybe [IpRouteInfo],+    -- | If not null, more results are available. Pass this value for the+    -- /NextToken/ parameter in a subsequent call to ListIpRoutes to retrieve+    -- the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListIpRoutesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'ipRoutesInfo', 'listIpRoutesResponse_ipRoutesInfo' - A list of IpRoutes.+--+-- 'nextToken', 'listIpRoutesResponse_nextToken' - If not null, more results are available. Pass this value for the+-- /NextToken/ parameter in a subsequent call to ListIpRoutes to retrieve+-- the next set of items.+--+-- 'httpStatus', 'listIpRoutesResponse_httpStatus' - The response's http status code.+newListIpRoutesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListIpRoutesResponse+newListIpRoutesResponse pHttpStatus_ =+  ListIpRoutesResponse'+    { ipRoutesInfo =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of IpRoutes.+listIpRoutesResponse_ipRoutesInfo :: Lens.Lens' ListIpRoutesResponse (Prelude.Maybe [IpRouteInfo])+listIpRoutesResponse_ipRoutesInfo = Lens.lens (\ListIpRoutesResponse' {ipRoutesInfo} -> ipRoutesInfo) (\s@ListIpRoutesResponse' {} a -> s {ipRoutesInfo = a} :: ListIpRoutesResponse) Prelude.. Lens.mapping Lens.coerced++-- | If not null, more results are available. Pass this value for the+-- /NextToken/ parameter in a subsequent call to ListIpRoutes to retrieve+-- the next set of items.+listIpRoutesResponse_nextToken :: Lens.Lens' ListIpRoutesResponse (Prelude.Maybe Prelude.Text)+listIpRoutesResponse_nextToken = Lens.lens (\ListIpRoutesResponse' {nextToken} -> nextToken) (\s@ListIpRoutesResponse' {} a -> s {nextToken = a} :: ListIpRoutesResponse)++-- | The response's http status code.+listIpRoutesResponse_httpStatus :: Lens.Lens' ListIpRoutesResponse Prelude.Int+listIpRoutesResponse_httpStatus = Lens.lens (\ListIpRoutesResponse' {httpStatus} -> httpStatus) (\s@ListIpRoutesResponse' {} a -> s {httpStatus = a} :: ListIpRoutesResponse)++instance Prelude.NFData ListIpRoutesResponse where+  rnf ListIpRoutesResponse' {..} =+    Prelude.rnf ipRoutesInfo+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ListLogSubscriptions.hs view

@@ -0,0 +1,252 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ListLogSubscriptions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists the active log subscriptions for the Amazon Web Services account.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.ListLogSubscriptions+  ( -- * Creating a Request+    ListLogSubscriptions (..),+    newListLogSubscriptions,++    -- * Request Lenses+    listLogSubscriptions_directoryId,+    listLogSubscriptions_limit,+    listLogSubscriptions_nextToken,++    -- * Destructuring the Response+    ListLogSubscriptionsResponse (..),+    newListLogSubscriptionsResponse,++    -- * Response Lenses+    listLogSubscriptionsResponse_logSubscriptions,+    listLogSubscriptionsResponse_nextToken,+    listLogSubscriptionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListLogSubscriptions' smart constructor.+data ListLogSubscriptions = ListLogSubscriptions'+  { -- | If a /DirectoryID/ is provided, lists only the log subscription+    -- associated with that directory. If no /DirectoryId/ is provided, lists+    -- all log subscriptions associated with your Amazon Web Services account.+    -- If there are no log subscriptions for the Amazon Web Services account or+    -- the directory, an empty list will be returned.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The maximum number of items returned.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The token for the next set of items to return.+    nextToken :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLogSubscriptions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'listLogSubscriptions_directoryId' - If a /DirectoryID/ is provided, lists only the log subscription+-- associated with that directory. If no /DirectoryId/ is provided, lists+-- all log subscriptions associated with your Amazon Web Services account.+-- If there are no log subscriptions for the Amazon Web Services account or+-- the directory, an empty list will be returned.+--+-- 'limit', 'listLogSubscriptions_limit' - The maximum number of items returned.+--+-- 'nextToken', 'listLogSubscriptions_nextToken' - The token for the next set of items to return.+newListLogSubscriptions ::+  ListLogSubscriptions+newListLogSubscriptions =+  ListLogSubscriptions'+    { directoryId =+        Prelude.Nothing,+      limit = Prelude.Nothing,+      nextToken = Prelude.Nothing+    }++-- | If a /DirectoryID/ is provided, lists only the log subscription+-- associated with that directory. If no /DirectoryId/ is provided, lists+-- all log subscriptions associated with your Amazon Web Services account.+-- If there are no log subscriptions for the Amazon Web Services account or+-- the directory, an empty list will be returned.+listLogSubscriptions_directoryId :: Lens.Lens' ListLogSubscriptions (Prelude.Maybe Prelude.Text)+listLogSubscriptions_directoryId = Lens.lens (\ListLogSubscriptions' {directoryId} -> directoryId) (\s@ListLogSubscriptions' {} a -> s {directoryId = a} :: ListLogSubscriptions)++-- | The maximum number of items returned.+listLogSubscriptions_limit :: Lens.Lens' ListLogSubscriptions (Prelude.Maybe Prelude.Natural)+listLogSubscriptions_limit = Lens.lens (\ListLogSubscriptions' {limit} -> limit) (\s@ListLogSubscriptions' {} a -> s {limit = a} :: ListLogSubscriptions)++-- | The token for the next set of items to return.+listLogSubscriptions_nextToken :: Lens.Lens' ListLogSubscriptions (Prelude.Maybe Prelude.Text)+listLogSubscriptions_nextToken = Lens.lens (\ListLogSubscriptions' {nextToken} -> nextToken) (\s@ListLogSubscriptions' {} a -> s {nextToken = a} :: ListLogSubscriptions)++instance Core.AWSPager ListLogSubscriptions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listLogSubscriptionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listLogSubscriptionsResponse_logSubscriptions+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listLogSubscriptions_nextToken+          Lens..~ rs+          Lens.^? listLogSubscriptionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListLogSubscriptions where+  type+    AWSResponse ListLogSubscriptions =+      ListLogSubscriptionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListLogSubscriptionsResponse'+            Prelude.<$> ( x+                            Data..?> "LogSubscriptions"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (x Data..?> "NextToken")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListLogSubscriptions where+  hashWithSalt _salt ListLogSubscriptions' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken++instance Prelude.NFData ListLogSubscriptions where+  rnf ListLogSubscriptions' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken++instance Data.ToHeaders ListLogSubscriptions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ListLogSubscriptions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListLogSubscriptions where+  toJSON ListLogSubscriptions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("DirectoryId" Data..=) Prelude.<$> directoryId,+            ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken+          ]+      )++instance Data.ToPath ListLogSubscriptions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListLogSubscriptions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListLogSubscriptionsResponse' smart constructor.+data ListLogSubscriptionsResponse = ListLogSubscriptionsResponse'+  { -- | A list of active LogSubscription objects for calling the Amazon Web+    -- Services account.+    logSubscriptions :: Prelude.Maybe [LogSubscription],+    -- | The token for the next set of items to return.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListLogSubscriptionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'logSubscriptions', 'listLogSubscriptionsResponse_logSubscriptions' - A list of active LogSubscription objects for calling the Amazon Web+-- Services account.+--+-- 'nextToken', 'listLogSubscriptionsResponse_nextToken' - The token for the next set of items to return.+--+-- 'httpStatus', 'listLogSubscriptionsResponse_httpStatus' - The response's http status code.+newListLogSubscriptionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListLogSubscriptionsResponse+newListLogSubscriptionsResponse pHttpStatus_ =+  ListLogSubscriptionsResponse'+    { logSubscriptions =+        Prelude.Nothing,+      nextToken = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | A list of active LogSubscription objects for calling the Amazon Web+-- Services account.+listLogSubscriptionsResponse_logSubscriptions :: Lens.Lens' ListLogSubscriptionsResponse (Prelude.Maybe [LogSubscription])+listLogSubscriptionsResponse_logSubscriptions = Lens.lens (\ListLogSubscriptionsResponse' {logSubscriptions} -> logSubscriptions) (\s@ListLogSubscriptionsResponse' {} a -> s {logSubscriptions = a} :: ListLogSubscriptionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The token for the next set of items to return.+listLogSubscriptionsResponse_nextToken :: Lens.Lens' ListLogSubscriptionsResponse (Prelude.Maybe Prelude.Text)+listLogSubscriptionsResponse_nextToken = Lens.lens (\ListLogSubscriptionsResponse' {nextToken} -> nextToken) (\s@ListLogSubscriptionsResponse' {} a -> s {nextToken = a} :: ListLogSubscriptionsResponse)++-- | The response's http status code.+listLogSubscriptionsResponse_httpStatus :: Lens.Lens' ListLogSubscriptionsResponse Prelude.Int+listLogSubscriptionsResponse_httpStatus = Lens.lens (\ListLogSubscriptionsResponse' {httpStatus} -> httpStatus) (\s@ListLogSubscriptionsResponse' {} a -> s {httpStatus = a} :: ListLogSubscriptionsResponse)++instance Prelude.NFData ListLogSubscriptionsResponse where+  rnf ListLogSubscriptionsResponse' {..} =+    Prelude.rnf logSubscriptions+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ListSchemaExtensions.hs view

@@ -0,0 +1,250 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ListSchemaExtensions+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all schema extensions applied to a Microsoft AD Directory.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.ListSchemaExtensions+  ( -- * Creating a Request+    ListSchemaExtensions (..),+    newListSchemaExtensions,++    -- * Request Lenses+    listSchemaExtensions_limit,+    listSchemaExtensions_nextToken,+    listSchemaExtensions_directoryId,++    -- * Destructuring the Response+    ListSchemaExtensionsResponse (..),+    newListSchemaExtensionsResponse,++    -- * Response Lenses+    listSchemaExtensionsResponse_nextToken,+    listSchemaExtensionsResponse_schemaExtensionsInfo,+    listSchemaExtensionsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListSchemaExtensions' smart constructor.+data ListSchemaExtensions = ListSchemaExtensions'+  { -- | The maximum number of items to return.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | The @ListSchemaExtensions.NextToken@ value from a previous call to+    -- @ListSchemaExtensions@. Pass null if this is the first call.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory from which to retrieve the schema+    -- extension information.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemaExtensions' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listSchemaExtensions_limit' - The maximum number of items to return.+--+-- 'nextToken', 'listSchemaExtensions_nextToken' - The @ListSchemaExtensions.NextToken@ value from a previous call to+-- @ListSchemaExtensions@. Pass null if this is the first call.+--+-- 'directoryId', 'listSchemaExtensions_directoryId' - The identifier of the directory from which to retrieve the schema+-- extension information.+newListSchemaExtensions ::+  -- | 'directoryId'+  Prelude.Text ->+  ListSchemaExtensions+newListSchemaExtensions pDirectoryId_ =+  ListSchemaExtensions'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      directoryId = pDirectoryId_+    }++-- | The maximum number of items to return.+listSchemaExtensions_limit :: Lens.Lens' ListSchemaExtensions (Prelude.Maybe Prelude.Natural)+listSchemaExtensions_limit = Lens.lens (\ListSchemaExtensions' {limit} -> limit) (\s@ListSchemaExtensions' {} a -> s {limit = a} :: ListSchemaExtensions)++-- | The @ListSchemaExtensions.NextToken@ value from a previous call to+-- @ListSchemaExtensions@. Pass null if this is the first call.+listSchemaExtensions_nextToken :: Lens.Lens' ListSchemaExtensions (Prelude.Maybe Prelude.Text)+listSchemaExtensions_nextToken = Lens.lens (\ListSchemaExtensions' {nextToken} -> nextToken) (\s@ListSchemaExtensions' {} a -> s {nextToken = a} :: ListSchemaExtensions)++-- | The identifier of the directory from which to retrieve the schema+-- extension information.+listSchemaExtensions_directoryId :: Lens.Lens' ListSchemaExtensions Prelude.Text+listSchemaExtensions_directoryId = Lens.lens (\ListSchemaExtensions' {directoryId} -> directoryId) (\s@ListSchemaExtensions' {} a -> s {directoryId = a} :: ListSchemaExtensions)++instance Core.AWSPager ListSchemaExtensions where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listSchemaExtensionsResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listSchemaExtensionsResponse_schemaExtensionsInfo+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listSchemaExtensions_nextToken+          Lens..~ rs+          Lens.^? listSchemaExtensionsResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListSchemaExtensions where+  type+    AWSResponse ListSchemaExtensions =+      ListSchemaExtensionsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListSchemaExtensionsResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> ( x+                            Data..?> "SchemaExtensionsInfo"+                            Core..!@ Prelude.mempty+                        )+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListSchemaExtensions where+  hashWithSalt _salt ListSchemaExtensions' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` directoryId++instance Prelude.NFData ListSchemaExtensions where+  rnf ListSchemaExtensions' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf directoryId++instance Data.ToHeaders ListSchemaExtensions where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ListSchemaExtensions" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListSchemaExtensions where+  toJSON ListSchemaExtensions' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("DirectoryId" Data..= directoryId)+          ]+      )++instance Data.ToPath ListSchemaExtensions where+  toPath = Prelude.const "/"++instance Data.ToQuery ListSchemaExtensions where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListSchemaExtensionsResponse' smart constructor.+data ListSchemaExtensionsResponse = ListSchemaExtensionsResponse'+  { -- | If not null, more results are available. Pass this value for the+    -- @NextToken@ parameter in a subsequent call to @ListSchemaExtensions@ to+    -- retrieve the next set of items.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Information about the schema extensions applied to the directory.+    schemaExtensionsInfo :: Prelude.Maybe [SchemaExtensionInfo],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListSchemaExtensionsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listSchemaExtensionsResponse_nextToken' - If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to @ListSchemaExtensions@ to+-- retrieve the next set of items.+--+-- 'schemaExtensionsInfo', 'listSchemaExtensionsResponse_schemaExtensionsInfo' - Information about the schema extensions applied to the directory.+--+-- 'httpStatus', 'listSchemaExtensionsResponse_httpStatus' - The response's http status code.+newListSchemaExtensionsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListSchemaExtensionsResponse+newListSchemaExtensionsResponse pHttpStatus_ =+  ListSchemaExtensionsResponse'+    { nextToken =+        Prelude.Nothing,+      schemaExtensionsInfo = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | If not null, more results are available. Pass this value for the+-- @NextToken@ parameter in a subsequent call to @ListSchemaExtensions@ to+-- retrieve the next set of items.+listSchemaExtensionsResponse_nextToken :: Lens.Lens' ListSchemaExtensionsResponse (Prelude.Maybe Prelude.Text)+listSchemaExtensionsResponse_nextToken = Lens.lens (\ListSchemaExtensionsResponse' {nextToken} -> nextToken) (\s@ListSchemaExtensionsResponse' {} a -> s {nextToken = a} :: ListSchemaExtensionsResponse)++-- | Information about the schema extensions applied to the directory.+listSchemaExtensionsResponse_schemaExtensionsInfo :: Lens.Lens' ListSchemaExtensionsResponse (Prelude.Maybe [SchemaExtensionInfo])+listSchemaExtensionsResponse_schemaExtensionsInfo = Lens.lens (\ListSchemaExtensionsResponse' {schemaExtensionsInfo} -> schemaExtensionsInfo) (\s@ListSchemaExtensionsResponse' {} a -> s {schemaExtensionsInfo = a} :: ListSchemaExtensionsResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listSchemaExtensionsResponse_httpStatus :: Lens.Lens' ListSchemaExtensionsResponse Prelude.Int+listSchemaExtensionsResponse_httpStatus = Lens.lens (\ListSchemaExtensionsResponse' {httpStatus} -> httpStatus) (\s@ListSchemaExtensionsResponse' {} a -> s {httpStatus = a} :: ListSchemaExtensionsResponse)++instance Prelude.NFData ListSchemaExtensionsResponse where+  rnf ListSchemaExtensionsResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf schemaExtensionsInfo+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ListTagsForResource.hs view

@@ -0,0 +1,235 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ListTagsForResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists all tags on a directory.+--+-- This operation returns paginated results.+module Amazonka.DirectoryService.ListTagsForResource+  ( -- * Creating a Request+    ListTagsForResource (..),+    newListTagsForResource,++    -- * Request Lenses+    listTagsForResource_limit,+    listTagsForResource_nextToken,+    listTagsForResource_resourceId,++    -- * Destructuring the Response+    ListTagsForResourceResponse (..),+    newListTagsForResourceResponse,++    -- * Response Lenses+    listTagsForResourceResponse_nextToken,+    listTagsForResourceResponse_tags,+    listTagsForResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newListTagsForResource' smart constructor.+data ListTagsForResource = ListTagsForResource'+  { -- | Reserved for future use.+    limit :: Prelude.Maybe Prelude.Natural,+    -- | Reserved for future use.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | Identifier (ID) of the directory for which you want to retrieve tags.+    resourceId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'limit', 'listTagsForResource_limit' - Reserved for future use.+--+-- 'nextToken', 'listTagsForResource_nextToken' - Reserved for future use.+--+-- 'resourceId', 'listTagsForResource_resourceId' - Identifier (ID) of the directory for which you want to retrieve tags.+newListTagsForResource ::+  -- | 'resourceId'+  Prelude.Text ->+  ListTagsForResource+newListTagsForResource pResourceId_ =+  ListTagsForResource'+    { limit = Prelude.Nothing,+      nextToken = Prelude.Nothing,+      resourceId = pResourceId_+    }++-- | Reserved for future use.+listTagsForResource_limit :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Natural)+listTagsForResource_limit = Lens.lens (\ListTagsForResource' {limit} -> limit) (\s@ListTagsForResource' {} a -> s {limit = a} :: ListTagsForResource)++-- | Reserved for future use.+listTagsForResource_nextToken :: Lens.Lens' ListTagsForResource (Prelude.Maybe Prelude.Text)+listTagsForResource_nextToken = Lens.lens (\ListTagsForResource' {nextToken} -> nextToken) (\s@ListTagsForResource' {} a -> s {nextToken = a} :: ListTagsForResource)++-- | Identifier (ID) of the directory for which you want to retrieve tags.+listTagsForResource_resourceId :: Lens.Lens' ListTagsForResource Prelude.Text+listTagsForResource_resourceId = Lens.lens (\ListTagsForResource' {resourceId} -> resourceId) (\s@ListTagsForResource' {} a -> s {resourceId = a} :: ListTagsForResource)++instance Core.AWSPager ListTagsForResource where+  page rq rs+    | Core.stop+        ( rs+            Lens.^? listTagsForResourceResponse_nextToken+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Core.stop+        ( rs+            Lens.^? listTagsForResourceResponse_tags+            Prelude.. Lens._Just+        ) =+        Prelude.Nothing+    | Prelude.otherwise =+        Prelude.Just+          Prelude.$ rq+          Prelude.& listTagsForResource_nextToken+          Lens..~ rs+          Lens.^? listTagsForResourceResponse_nextToken+          Prelude.. Lens._Just++instance Core.AWSRequest ListTagsForResource where+  type+    AWSResponse ListTagsForResource =+      ListTagsForResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ListTagsForResourceResponse'+            Prelude.<$> (x Data..?> "NextToken")+            Prelude.<*> (x Data..?> "Tags" Core..!@ Prelude.mempty)+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ListTagsForResource where+  hashWithSalt _salt ListTagsForResource' {..} =+    _salt+      `Prelude.hashWithSalt` limit+      `Prelude.hashWithSalt` nextToken+      `Prelude.hashWithSalt` resourceId++instance Prelude.NFData ListTagsForResource where+  rnf ListTagsForResource' {..} =+    Prelude.rnf limit+      `Prelude.seq` Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf resourceId++instance Data.ToHeaders ListTagsForResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ListTagsForResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ListTagsForResource where+  toJSON ListTagsForResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Limit" Data..=) Prelude.<$> limit,+            ("NextToken" Data..=) Prelude.<$> nextToken,+            Prelude.Just ("ResourceId" Data..= resourceId)+          ]+      )++instance Data.ToPath ListTagsForResource where+  toPath = Prelude.const "/"++instance Data.ToQuery ListTagsForResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newListTagsForResourceResponse' smart constructor.+data ListTagsForResourceResponse = ListTagsForResourceResponse'+  { -- | Reserved for future use.+    nextToken :: Prelude.Maybe Prelude.Text,+    -- | List of tags returned by the ListTagsForResource operation.+    tags :: Prelude.Maybe [Tag],+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ListTagsForResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'nextToken', 'listTagsForResourceResponse_nextToken' - Reserved for future use.+--+-- 'tags', 'listTagsForResourceResponse_tags' - List of tags returned by the ListTagsForResource operation.+--+-- 'httpStatus', 'listTagsForResourceResponse_httpStatus' - The response's http status code.+newListTagsForResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ListTagsForResourceResponse+newListTagsForResourceResponse pHttpStatus_ =+  ListTagsForResourceResponse'+    { nextToken =+        Prelude.Nothing,+      tags = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Reserved for future use.+listTagsForResourceResponse_nextToken :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe Prelude.Text)+listTagsForResourceResponse_nextToken = Lens.lens (\ListTagsForResourceResponse' {nextToken} -> nextToken) (\s@ListTagsForResourceResponse' {} a -> s {nextToken = a} :: ListTagsForResourceResponse)++-- | List of tags returned by the ListTagsForResource operation.+listTagsForResourceResponse_tags :: Lens.Lens' ListTagsForResourceResponse (Prelude.Maybe [Tag])+listTagsForResourceResponse_tags = Lens.lens (\ListTagsForResourceResponse' {tags} -> tags) (\s@ListTagsForResourceResponse' {} a -> s {tags = a} :: ListTagsForResourceResponse) Prelude.. Lens.mapping Lens.coerced++-- | The response's http status code.+listTagsForResourceResponse_httpStatus :: Lens.Lens' ListTagsForResourceResponse Prelude.Int+listTagsForResourceResponse_httpStatus = Lens.lens (\ListTagsForResourceResponse' {httpStatus} -> httpStatus) (\s@ListTagsForResourceResponse' {} a -> s {httpStatus = a} :: ListTagsForResourceResponse)++instance Prelude.NFData ListTagsForResourceResponse where+  rnf ListTagsForResourceResponse' {..} =+    Prelude.rnf nextToken+      `Prelude.seq` Prelude.rnf tags+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RegisterCertificate.hs view

@@ -0,0 +1,229 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RegisterCertificate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Registers a certificate for a secure LDAP or client certificate+-- authentication.+module Amazonka.DirectoryService.RegisterCertificate+  ( -- * Creating a Request+    RegisterCertificate (..),+    newRegisterCertificate,++    -- * Request Lenses+    registerCertificate_clientCertAuthSettings,+    registerCertificate_type,+    registerCertificate_directoryId,+    registerCertificate_certificateData,++    -- * Destructuring the Response+    RegisterCertificateResponse (..),+    newRegisterCertificateResponse,++    -- * Response Lenses+    registerCertificateResponse_certificateId,+    registerCertificateResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRegisterCertificate' smart constructor.+data RegisterCertificate = RegisterCertificate'+  { -- | A @ClientCertAuthSettings@ object that contains client certificate+    -- authentication settings.+    clientCertAuthSettings :: Prelude.Maybe ClientCertAuthSettings,+    -- | The function that the registered certificate performs. Valid values+    -- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+    -- @ClientLDAPS@.+    type' :: Prelude.Maybe CertificateType,+    -- | The identifier of the directory.+    directoryId :: Prelude.Text,+    -- | The certificate PEM string that needs to be registered.+    certificateData :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegisterCertificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'clientCertAuthSettings', 'registerCertificate_clientCertAuthSettings' - A @ClientCertAuthSettings@ object that contains client certificate+-- authentication settings.+--+-- 'type'', 'registerCertificate_type' - The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+--+-- 'directoryId', 'registerCertificate_directoryId' - The identifier of the directory.+--+-- 'certificateData', 'registerCertificate_certificateData' - The certificate PEM string that needs to be registered.+newRegisterCertificate ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'certificateData'+  Prelude.Text ->+  RegisterCertificate+newRegisterCertificate+  pDirectoryId_+  pCertificateData_ =+    RegisterCertificate'+      { clientCertAuthSettings =+          Prelude.Nothing,+        type' = Prelude.Nothing,+        directoryId = pDirectoryId_,+        certificateData = pCertificateData_+      }++-- | A @ClientCertAuthSettings@ object that contains client certificate+-- authentication settings.+registerCertificate_clientCertAuthSettings :: Lens.Lens' RegisterCertificate (Prelude.Maybe ClientCertAuthSettings)+registerCertificate_clientCertAuthSettings = Lens.lens (\RegisterCertificate' {clientCertAuthSettings} -> clientCertAuthSettings) (\s@RegisterCertificate' {} a -> s {clientCertAuthSettings = a} :: RegisterCertificate)++-- | The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+registerCertificate_type :: Lens.Lens' RegisterCertificate (Prelude.Maybe CertificateType)+registerCertificate_type = Lens.lens (\RegisterCertificate' {type'} -> type') (\s@RegisterCertificate' {} a -> s {type' = a} :: RegisterCertificate)++-- | The identifier of the directory.+registerCertificate_directoryId :: Lens.Lens' RegisterCertificate Prelude.Text+registerCertificate_directoryId = Lens.lens (\RegisterCertificate' {directoryId} -> directoryId) (\s@RegisterCertificate' {} a -> s {directoryId = a} :: RegisterCertificate)++-- | The certificate PEM string that needs to be registered.+registerCertificate_certificateData :: Lens.Lens' RegisterCertificate Prelude.Text+registerCertificate_certificateData = Lens.lens (\RegisterCertificate' {certificateData} -> certificateData) (\s@RegisterCertificate' {} a -> s {certificateData = a} :: RegisterCertificate)++instance Core.AWSRequest RegisterCertificate where+  type+    AWSResponse RegisterCertificate =+      RegisterCertificateResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RegisterCertificateResponse'+            Prelude.<$> (x Data..?> "CertificateId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RegisterCertificate where+  hashWithSalt _salt RegisterCertificate' {..} =+    _salt+      `Prelude.hashWithSalt` clientCertAuthSettings+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` certificateData++instance Prelude.NFData RegisterCertificate where+  rnf RegisterCertificate' {..} =+    Prelude.rnf clientCertAuthSettings+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf certificateData++instance Data.ToHeaders RegisterCertificate where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RegisterCertificate" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RegisterCertificate where+  toJSON RegisterCertificate' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ClientCertAuthSettings" Data..=)+              Prelude.<$> clientCertAuthSettings,+            ("Type" Data..=) Prelude.<$> type',+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("CertificateData" Data..= certificateData)+          ]+      )++instance Data.ToPath RegisterCertificate where+  toPath = Prelude.const "/"++instance Data.ToQuery RegisterCertificate where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRegisterCertificateResponse' smart constructor.+data RegisterCertificateResponse = RegisterCertificateResponse'+  { -- | The identifier of the certificate.+    certificateId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegisterCertificateResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificateId', 'registerCertificateResponse_certificateId' - The identifier of the certificate.+--+-- 'httpStatus', 'registerCertificateResponse_httpStatus' - The response's http status code.+newRegisterCertificateResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RegisterCertificateResponse+newRegisterCertificateResponse pHttpStatus_ =+  RegisterCertificateResponse'+    { certificateId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the certificate.+registerCertificateResponse_certificateId :: Lens.Lens' RegisterCertificateResponse (Prelude.Maybe Prelude.Text)+registerCertificateResponse_certificateId = Lens.lens (\RegisterCertificateResponse' {certificateId} -> certificateId) (\s@RegisterCertificateResponse' {} a -> s {certificateId = a} :: RegisterCertificateResponse)++-- | The response's http status code.+registerCertificateResponse_httpStatus :: Lens.Lens' RegisterCertificateResponse Prelude.Int+registerCertificateResponse_httpStatus = Lens.lens (\RegisterCertificateResponse' {httpStatus} -> httpStatus) (\s@RegisterCertificateResponse' {} a -> s {httpStatus = a} :: RegisterCertificateResponse)++instance Prelude.NFData RegisterCertificateResponse where+  rnf RegisterCertificateResponse' {..} =+    Prelude.rnf certificateId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RegisterEventTopic.hs view

@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RegisterEventTopic+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a directory with an Amazon SNS topic. This establishes the+-- directory as a publisher to the specified Amazon SNS topic. You can then+-- receive email or text (SMS) messages when the status of your directory+-- changes. You get notified if your directory goes from an Active status+-- to an Impaired or Inoperable status. You also receive a notification+-- when the directory returns to an Active status.+module Amazonka.DirectoryService.RegisterEventTopic+  ( -- * Creating a Request+    RegisterEventTopic (..),+    newRegisterEventTopic,++    -- * Request Lenses+    registerEventTopic_directoryId,+    registerEventTopic_topicName,++    -- * Destructuring the Response+    RegisterEventTopicResponse (..),+    newRegisterEventTopicResponse,++    -- * Response Lenses+    registerEventTopicResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Registers a new event topic.+--+-- /See:/ 'newRegisterEventTopic' smart constructor.+data RegisterEventTopic = RegisterEventTopic'+  { -- | The Directory ID that will publish status messages to the Amazon SNS+    -- topic.+    directoryId :: Prelude.Text,+    -- | The Amazon SNS topic name to which the directory will publish status+    -- messages. This Amazon SNS topic must be in the same region as the+    -- specified Directory ID.+    topicName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegisterEventTopic' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'registerEventTopic_directoryId' - The Directory ID that will publish status messages to the Amazon SNS+-- topic.+--+-- 'topicName', 'registerEventTopic_topicName' - The Amazon SNS topic name to which the directory will publish status+-- messages. This Amazon SNS topic must be in the same region as the+-- specified Directory ID.+newRegisterEventTopic ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'topicName'+  Prelude.Text ->+  RegisterEventTopic+newRegisterEventTopic pDirectoryId_ pTopicName_ =+  RegisterEventTopic'+    { directoryId = pDirectoryId_,+      topicName = pTopicName_+    }++-- | The Directory ID that will publish status messages to the Amazon SNS+-- topic.+registerEventTopic_directoryId :: Lens.Lens' RegisterEventTopic Prelude.Text+registerEventTopic_directoryId = Lens.lens (\RegisterEventTopic' {directoryId} -> directoryId) (\s@RegisterEventTopic' {} a -> s {directoryId = a} :: RegisterEventTopic)++-- | The Amazon SNS topic name to which the directory will publish status+-- messages. This Amazon SNS topic must be in the same region as the+-- specified Directory ID.+registerEventTopic_topicName :: Lens.Lens' RegisterEventTopic Prelude.Text+registerEventTopic_topicName = Lens.lens (\RegisterEventTopic' {topicName} -> topicName) (\s@RegisterEventTopic' {} a -> s {topicName = a} :: RegisterEventTopic)++instance Core.AWSRequest RegisterEventTopic where+  type+    AWSResponse RegisterEventTopic =+      RegisterEventTopicResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          RegisterEventTopicResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RegisterEventTopic where+  hashWithSalt _salt RegisterEventTopic' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` topicName++instance Prelude.NFData RegisterEventTopic where+  rnf RegisterEventTopic' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf topicName++instance Data.ToHeaders RegisterEventTopic where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RegisterEventTopic" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RegisterEventTopic where+  toJSON RegisterEventTopic' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("TopicName" Data..= topicName)+          ]+      )++instance Data.ToPath RegisterEventTopic where+  toPath = Prelude.const "/"++instance Data.ToQuery RegisterEventTopic where+  toQuery = Prelude.const Prelude.mempty++-- | The result of a RegisterEventTopic request.+--+-- /See:/ 'newRegisterEventTopicResponse' smart constructor.+data RegisterEventTopicResponse = RegisterEventTopicResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegisterEventTopicResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'registerEventTopicResponse_httpStatus' - The response's http status code.+newRegisterEventTopicResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RegisterEventTopicResponse+newRegisterEventTopicResponse pHttpStatus_ =+  RegisterEventTopicResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+registerEventTopicResponse_httpStatus :: Lens.Lens' RegisterEventTopicResponse Prelude.Int+registerEventTopicResponse_httpStatus = Lens.lens (\RegisterEventTopicResponse' {httpStatus} -> httpStatus) (\s@RegisterEventTopicResponse' {} a -> s {httpStatus = a} :: RegisterEventTopicResponse)++instance Prelude.NFData RegisterEventTopicResponse where+  rnf RegisterEventTopicResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RejectSharedDirectory.hs view

@@ -0,0 +1,178 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RejectSharedDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Rejects a directory sharing request that was sent from the directory+-- owner account.+module Amazonka.DirectoryService.RejectSharedDirectory+  ( -- * Creating a Request+    RejectSharedDirectory (..),+    newRejectSharedDirectory,++    -- * Request Lenses+    rejectSharedDirectory_sharedDirectoryId,++    -- * Destructuring the Response+    RejectSharedDirectoryResponse (..),+    newRejectSharedDirectoryResponse,++    -- * Response Lenses+    rejectSharedDirectoryResponse_sharedDirectoryId,+    rejectSharedDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRejectSharedDirectory' smart constructor.+data RejectSharedDirectory = RejectSharedDirectory'+  { -- | Identifier of the shared directory in the directory consumer account.+    -- This identifier is different for each directory owner account.+    sharedDirectoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RejectSharedDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectoryId', 'rejectSharedDirectory_sharedDirectoryId' - Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+newRejectSharedDirectory ::+  -- | 'sharedDirectoryId'+  Prelude.Text ->+  RejectSharedDirectory+newRejectSharedDirectory pSharedDirectoryId_ =+  RejectSharedDirectory'+    { sharedDirectoryId =+        pSharedDirectoryId_+    }++-- | Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+rejectSharedDirectory_sharedDirectoryId :: Lens.Lens' RejectSharedDirectory Prelude.Text+rejectSharedDirectory_sharedDirectoryId = Lens.lens (\RejectSharedDirectory' {sharedDirectoryId} -> sharedDirectoryId) (\s@RejectSharedDirectory' {} a -> s {sharedDirectoryId = a} :: RejectSharedDirectory)++instance Core.AWSRequest RejectSharedDirectory where+  type+    AWSResponse RejectSharedDirectory =+      RejectSharedDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          RejectSharedDirectoryResponse'+            Prelude.<$> (x Data..?> "SharedDirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RejectSharedDirectory where+  hashWithSalt _salt RejectSharedDirectory' {..} =+    _salt `Prelude.hashWithSalt` sharedDirectoryId++instance Prelude.NFData RejectSharedDirectory where+  rnf RejectSharedDirectory' {..} =+    Prelude.rnf sharedDirectoryId++instance Data.ToHeaders RejectSharedDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RejectSharedDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RejectSharedDirectory where+  toJSON RejectSharedDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just+              ("SharedDirectoryId" Data..= sharedDirectoryId)+          ]+      )++instance Data.ToPath RejectSharedDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery RejectSharedDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRejectSharedDirectoryResponse' smart constructor.+data RejectSharedDirectoryResponse = RejectSharedDirectoryResponse'+  { -- | Identifier of the shared directory in the directory consumer account.+    sharedDirectoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RejectSharedDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectoryId', 'rejectSharedDirectoryResponse_sharedDirectoryId' - Identifier of the shared directory in the directory consumer account.+--+-- 'httpStatus', 'rejectSharedDirectoryResponse_httpStatus' - The response's http status code.+newRejectSharedDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RejectSharedDirectoryResponse+newRejectSharedDirectoryResponse pHttpStatus_ =+  RejectSharedDirectoryResponse'+    { sharedDirectoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Identifier of the shared directory in the directory consumer account.+rejectSharedDirectoryResponse_sharedDirectoryId :: Lens.Lens' RejectSharedDirectoryResponse (Prelude.Maybe Prelude.Text)+rejectSharedDirectoryResponse_sharedDirectoryId = Lens.lens (\RejectSharedDirectoryResponse' {sharedDirectoryId} -> sharedDirectoryId) (\s@RejectSharedDirectoryResponse' {} a -> s {sharedDirectoryId = a} :: RejectSharedDirectoryResponse)++-- | The response's http status code.+rejectSharedDirectoryResponse_httpStatus :: Lens.Lens' RejectSharedDirectoryResponse Prelude.Int+rejectSharedDirectoryResponse_httpStatus = Lens.lens (\RejectSharedDirectoryResponse' {httpStatus} -> httpStatus) (\s@RejectSharedDirectoryResponse' {} a -> s {httpStatus = a} :: RejectSharedDirectoryResponse)++instance Prelude.NFData RejectSharedDirectoryResponse where+  rnf RejectSharedDirectoryResponse' {..} =+    Prelude.rnf sharedDirectoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RemoveIpRoutes.hs view

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RemoveIpRoutes+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes IP address blocks from a directory.+module Amazonka.DirectoryService.RemoveIpRoutes+  ( -- * Creating a Request+    RemoveIpRoutes (..),+    newRemoveIpRoutes,++    -- * Request Lenses+    removeIpRoutes_directoryId,+    removeIpRoutes_cidrIps,++    -- * Destructuring the Response+    RemoveIpRoutesResponse (..),+    newRemoveIpRoutesResponse,++    -- * Response Lenses+    removeIpRoutesResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRemoveIpRoutes' smart constructor.+data RemoveIpRoutes = RemoveIpRoutes'+  { -- | Identifier (ID) of the directory from which you want to remove the IP+    -- addresses.+    directoryId :: Prelude.Text,+    -- | IP address blocks that you want to remove.+    cidrIps :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveIpRoutes' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'removeIpRoutes_directoryId' - Identifier (ID) of the directory from which you want to remove the IP+-- addresses.+--+-- 'cidrIps', 'removeIpRoutes_cidrIps' - IP address blocks that you want to remove.+newRemoveIpRoutes ::+  -- | 'directoryId'+  Prelude.Text ->+  RemoveIpRoutes+newRemoveIpRoutes pDirectoryId_ =+  RemoveIpRoutes'+    { directoryId = pDirectoryId_,+      cidrIps = Prelude.mempty+    }++-- | Identifier (ID) of the directory from which you want to remove the IP+-- addresses.+removeIpRoutes_directoryId :: Lens.Lens' RemoveIpRoutes Prelude.Text+removeIpRoutes_directoryId = Lens.lens (\RemoveIpRoutes' {directoryId} -> directoryId) (\s@RemoveIpRoutes' {} a -> s {directoryId = a} :: RemoveIpRoutes)++-- | IP address blocks that you want to remove.+removeIpRoutes_cidrIps :: Lens.Lens' RemoveIpRoutes [Prelude.Text]+removeIpRoutes_cidrIps = Lens.lens (\RemoveIpRoutes' {cidrIps} -> cidrIps) (\s@RemoveIpRoutes' {} a -> s {cidrIps = a} :: RemoveIpRoutes) Prelude.. Lens.coerced++instance Core.AWSRequest RemoveIpRoutes where+  type+    AWSResponse RemoveIpRoutes =+      RemoveIpRoutesResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          RemoveIpRoutesResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RemoveIpRoutes where+  hashWithSalt _salt RemoveIpRoutes' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` cidrIps++instance Prelude.NFData RemoveIpRoutes where+  rnf RemoveIpRoutes' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf cidrIps++instance Data.ToHeaders RemoveIpRoutes where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RemoveIpRoutes" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RemoveIpRoutes where+  toJSON RemoveIpRoutes' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("CidrIps" Data..= cidrIps)+          ]+      )++instance Data.ToPath RemoveIpRoutes where+  toPath = Prelude.const "/"++instance Data.ToQuery RemoveIpRoutes where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRemoveIpRoutesResponse' smart constructor.+data RemoveIpRoutesResponse = RemoveIpRoutesResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveIpRoutesResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'removeIpRoutesResponse_httpStatus' - The response's http status code.+newRemoveIpRoutesResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RemoveIpRoutesResponse+newRemoveIpRoutesResponse pHttpStatus_ =+  RemoveIpRoutesResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+removeIpRoutesResponse_httpStatus :: Lens.Lens' RemoveIpRoutesResponse Prelude.Int+removeIpRoutesResponse_httpStatus = Lens.lens (\RemoveIpRoutesResponse' {httpStatus} -> httpStatus) (\s@RemoveIpRoutesResponse' {} a -> s {httpStatus = a} :: RemoveIpRoutesResponse)++instance Prelude.NFData RemoveIpRoutesResponse where+  rnf RemoveIpRoutesResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RemoveRegion.hs view

@@ -0,0 +1,156 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RemoveRegion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops all replication and removes the domain controllers from the+-- specified Region. You cannot remove the primary Region with this+-- operation. Instead, use the @DeleteDirectory@ API.+module Amazonka.DirectoryService.RemoveRegion+  ( -- * Creating a Request+    RemoveRegion (..),+    newRemoveRegion,++    -- * Request Lenses+    removeRegion_directoryId,++    -- * Destructuring the Response+    RemoveRegionResponse (..),+    newRemoveRegionResponse,++    -- * Response Lenses+    removeRegionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRemoveRegion' smart constructor.+data RemoveRegion = RemoveRegion'+  { -- | The identifier of the directory for which you want to remove Region+    -- replication.+    directoryId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveRegion' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'removeRegion_directoryId' - The identifier of the directory for which you want to remove Region+-- replication.+newRemoveRegion ::+  -- | 'directoryId'+  Prelude.Text ->+  RemoveRegion+newRemoveRegion pDirectoryId_ =+  RemoveRegion' {directoryId = pDirectoryId_}++-- | The identifier of the directory for which you want to remove Region+-- replication.+removeRegion_directoryId :: Lens.Lens' RemoveRegion Prelude.Text+removeRegion_directoryId = Lens.lens (\RemoveRegion' {directoryId} -> directoryId) (\s@RemoveRegion' {} a -> s {directoryId = a} :: RemoveRegion)++instance Core.AWSRequest RemoveRegion where+  type AWSResponse RemoveRegion = RemoveRegionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          RemoveRegionResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RemoveRegion where+  hashWithSalt _salt RemoveRegion' {..} =+    _salt `Prelude.hashWithSalt` directoryId++instance Prelude.NFData RemoveRegion where+  rnf RemoveRegion' {..} = Prelude.rnf directoryId++instance Data.ToHeaders RemoveRegion where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RemoveRegion" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RemoveRegion where+  toJSON RemoveRegion' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("DirectoryId" Data..= directoryId)]+      )++instance Data.ToPath RemoveRegion where+  toPath = Prelude.const "/"++instance Data.ToQuery RemoveRegion where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRemoveRegionResponse' smart constructor.+data RemoveRegionResponse = RemoveRegionResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveRegionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'removeRegionResponse_httpStatus' - The response's http status code.+newRemoveRegionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RemoveRegionResponse+newRemoveRegionResponse pHttpStatus_ =+  RemoveRegionResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+removeRegionResponse_httpStatus :: Lens.Lens' RemoveRegionResponse Prelude.Int+removeRegionResponse_httpStatus = Lens.lens (\RemoveRegionResponse' {httpStatus} -> httpStatus) (\s@RemoveRegionResponse' {} a -> s {httpStatus = a} :: RemoveRegionResponse)++instance Prelude.NFData RemoveRegionResponse where+  rnf RemoveRegionResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RemoveTagsFromResource.hs view

@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RemoveTagsFromResource+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Removes tags from a directory.+module Amazonka.DirectoryService.RemoveTagsFromResource+  ( -- * Creating a Request+    RemoveTagsFromResource (..),+    newRemoveTagsFromResource,++    -- * Request Lenses+    removeTagsFromResource_resourceId,+    removeTagsFromResource_tagKeys,++    -- * Destructuring the Response+    RemoveTagsFromResourceResponse (..),+    newRemoveTagsFromResourceResponse,++    -- * Response Lenses+    removeTagsFromResourceResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newRemoveTagsFromResource' smart constructor.+data RemoveTagsFromResource = RemoveTagsFromResource'+  { -- | Identifier (ID) of the directory from which to remove the tag.+    resourceId :: Prelude.Text,+    -- | The tag key (name) of the tag to be removed.+    tagKeys :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveTagsFromResource' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'resourceId', 'removeTagsFromResource_resourceId' - Identifier (ID) of the directory from which to remove the tag.+--+-- 'tagKeys', 'removeTagsFromResource_tagKeys' - The tag key (name) of the tag to be removed.+newRemoveTagsFromResource ::+  -- | 'resourceId'+  Prelude.Text ->+  RemoveTagsFromResource+newRemoveTagsFromResource pResourceId_ =+  RemoveTagsFromResource'+    { resourceId = pResourceId_,+      tagKeys = Prelude.mempty+    }++-- | Identifier (ID) of the directory from which to remove the tag.+removeTagsFromResource_resourceId :: Lens.Lens' RemoveTagsFromResource Prelude.Text+removeTagsFromResource_resourceId = Lens.lens (\RemoveTagsFromResource' {resourceId} -> resourceId) (\s@RemoveTagsFromResource' {} a -> s {resourceId = a} :: RemoveTagsFromResource)++-- | The tag key (name) of the tag to be removed.+removeTagsFromResource_tagKeys :: Lens.Lens' RemoveTagsFromResource [Prelude.Text]+removeTagsFromResource_tagKeys = Lens.lens (\RemoveTagsFromResource' {tagKeys} -> tagKeys) (\s@RemoveTagsFromResource' {} a -> s {tagKeys = a} :: RemoveTagsFromResource) Prelude.. Lens.coerced++instance Core.AWSRequest RemoveTagsFromResource where+  type+    AWSResponse RemoveTagsFromResource =+      RemoveTagsFromResourceResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          RemoveTagsFromResourceResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RemoveTagsFromResource where+  hashWithSalt _salt RemoveTagsFromResource' {..} =+    _salt+      `Prelude.hashWithSalt` resourceId+      `Prelude.hashWithSalt` tagKeys++instance Prelude.NFData RemoveTagsFromResource where+  rnf RemoveTagsFromResource' {..} =+    Prelude.rnf resourceId+      `Prelude.seq` Prelude.rnf tagKeys++instance Data.ToHeaders RemoveTagsFromResource where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RemoveTagsFromResource" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RemoveTagsFromResource where+  toJSON RemoveTagsFromResource' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("ResourceId" Data..= resourceId),+            Prelude.Just ("TagKeys" Data..= tagKeys)+          ]+      )++instance Data.ToPath RemoveTagsFromResource where+  toPath = Prelude.const "/"++instance Data.ToQuery RemoveTagsFromResource where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newRemoveTagsFromResourceResponse' smart constructor.+data RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RemoveTagsFromResourceResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'removeTagsFromResourceResponse_httpStatus' - The response's http status code.+newRemoveTagsFromResourceResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RemoveTagsFromResourceResponse+newRemoveTagsFromResourceResponse pHttpStatus_ =+  RemoveTagsFromResourceResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+removeTagsFromResourceResponse_httpStatus :: Lens.Lens' RemoveTagsFromResourceResponse Prelude.Int+removeTagsFromResourceResponse_httpStatus = Lens.lens (\RemoveTagsFromResourceResponse' {httpStatus} -> httpStatus) (\s@RemoveTagsFromResourceResponse' {} a -> s {httpStatus = a} :: RemoveTagsFromResourceResponse)++instance+  Prelude.NFData+    RemoveTagsFromResourceResponse+  where+  rnf RemoveTagsFromResourceResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ResetUserPassword.hs view

@@ -0,0 +1,214 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ResetUserPassword+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Resets the password for any user in your Managed Microsoft AD or Simple+-- AD directory.+--+-- You can reset the password for any user in your directory with the+-- following exceptions:+--+-- -   For Simple AD, you cannot reset the password for any user that is a+--     member of either the __Domain Admins__ or __Enterprise Admins__+--     group except for the administrator user.+--+-- -   For Managed Microsoft AD, you can only reset the password for a user+--     that is in an OU based off of the NetBIOS name that you typed when+--     you created your directory. For example, you cannot reset the+--     password for a user in the __Amazon Web Services Reserved__ OU. For+--     more information about the OU structure for an Managed Microsoft AD+--     directory, see+--     <https://docs.aws.amazon.com/directoryservice/latest/admin-guide/ms_ad_getting_started_what_gets_created.html What Gets Created>+--     in the /Directory Service Administration Guide/.+module Amazonka.DirectoryService.ResetUserPassword+  ( -- * Creating a Request+    ResetUserPassword (..),+    newResetUserPassword,++    -- * Request Lenses+    resetUserPassword_directoryId,+    resetUserPassword_userName,+    resetUserPassword_newPassword,++    -- * Destructuring the Response+    ResetUserPasswordResponse (..),+    newResetUserPasswordResponse,++    -- * Response Lenses+    resetUserPasswordResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newResetUserPassword' smart constructor.+data ResetUserPassword = ResetUserPassword'+  { -- | Identifier of the Managed Microsoft AD or Simple AD directory in which+    -- the user resides.+    directoryId :: Prelude.Text,+    -- | The user name of the user whose password will be reset.+    userName :: Prelude.Text,+    -- | The new password that will be reset.+    newPassword' :: Data.Sensitive Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResetUserPassword' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'resetUserPassword_directoryId' - Identifier of the Managed Microsoft AD or Simple AD directory in which+-- the user resides.+--+-- 'userName', 'resetUserPassword_userName' - The user name of the user whose password will be reset.+--+-- 'newPassword'', 'resetUserPassword_newPassword' - The new password that will be reset.+newResetUserPassword ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'userName'+  Prelude.Text ->+  -- | 'newPassword''+  Prelude.Text ->+  ResetUserPassword+newResetUserPassword+  pDirectoryId_+  pUserName_+  pNewPassword_ =+    ResetUserPassword'+      { directoryId = pDirectoryId_,+        userName = pUserName_,+        newPassword' = Data._Sensitive Lens.# pNewPassword_+      }++-- | Identifier of the Managed Microsoft AD or Simple AD directory in which+-- the user resides.+resetUserPassword_directoryId :: Lens.Lens' ResetUserPassword Prelude.Text+resetUserPassword_directoryId = Lens.lens (\ResetUserPassword' {directoryId} -> directoryId) (\s@ResetUserPassword' {} a -> s {directoryId = a} :: ResetUserPassword)++-- | The user name of the user whose password will be reset.+resetUserPassword_userName :: Lens.Lens' ResetUserPassword Prelude.Text+resetUserPassword_userName = Lens.lens (\ResetUserPassword' {userName} -> userName) (\s@ResetUserPassword' {} a -> s {userName = a} :: ResetUserPassword)++-- | The new password that will be reset.+resetUserPassword_newPassword :: Lens.Lens' ResetUserPassword Prelude.Text+resetUserPassword_newPassword = Lens.lens (\ResetUserPassword' {newPassword'} -> newPassword') (\s@ResetUserPassword' {} a -> s {newPassword' = a} :: ResetUserPassword) Prelude.. Data._Sensitive++instance Core.AWSRequest ResetUserPassword where+  type+    AWSResponse ResetUserPassword =+      ResetUserPasswordResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          ResetUserPasswordResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ResetUserPassword where+  hashWithSalt _salt ResetUserPassword' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` userName+      `Prelude.hashWithSalt` newPassword'++instance Prelude.NFData ResetUserPassword where+  rnf ResetUserPassword' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf userName+      `Prelude.seq` Prelude.rnf newPassword'++instance Data.ToHeaders ResetUserPassword where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ResetUserPassword" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ResetUserPassword where+  toJSON ResetUserPassword' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("UserName" Data..= userName),+            Prelude.Just ("NewPassword" Data..= newPassword')+          ]+      )++instance Data.ToPath ResetUserPassword where+  toPath = Prelude.const "/"++instance Data.ToQuery ResetUserPassword where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newResetUserPasswordResponse' smart constructor.+data ResetUserPasswordResponse = ResetUserPasswordResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ResetUserPasswordResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'resetUserPasswordResponse_httpStatus' - The response's http status code.+newResetUserPasswordResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ResetUserPasswordResponse+newResetUserPasswordResponse pHttpStatus_ =+  ResetUserPasswordResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+resetUserPasswordResponse_httpStatus :: Lens.Lens' ResetUserPasswordResponse Prelude.Int+resetUserPasswordResponse_httpStatus = Lens.lens (\ResetUserPasswordResponse' {httpStatus} -> httpStatus) (\s@ResetUserPasswordResponse' {} a -> s {httpStatus = a} :: ResetUserPasswordResponse)++instance Prelude.NFData ResetUserPasswordResponse where+  rnf ResetUserPasswordResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/RestoreFromSnapshot.hs view

@@ -0,0 +1,169 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.RestoreFromSnapshot+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Restores a directory using an existing directory snapshot.+--+-- When you restore a directory from a snapshot, any changes made to the+-- directory after the snapshot date are overwritten.+--+-- This action returns as soon as the restore operation is initiated. You+-- can monitor the progress of the restore operation by calling the+-- DescribeDirectories operation with the directory identifier. When the+-- __DirectoryDescription.Stage__ value changes to @Active@, the restore+-- operation is complete.+module Amazonka.DirectoryService.RestoreFromSnapshot+  ( -- * Creating a Request+    RestoreFromSnapshot (..),+    newRestoreFromSnapshot,++    -- * Request Lenses+    restoreFromSnapshot_snapshotId,++    -- * Destructuring the Response+    RestoreFromSnapshotResponse (..),+    newRestoreFromSnapshotResponse,++    -- * Response Lenses+    restoreFromSnapshotResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | An object representing the inputs for the RestoreFromSnapshot operation.+--+-- /See:/ 'newRestoreFromSnapshot' smart constructor.+data RestoreFromSnapshot = RestoreFromSnapshot'+  { -- | The identifier of the snapshot to restore from.+    snapshotId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreFromSnapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'snapshotId', 'restoreFromSnapshot_snapshotId' - The identifier of the snapshot to restore from.+newRestoreFromSnapshot ::+  -- | 'snapshotId'+  Prelude.Text ->+  RestoreFromSnapshot+newRestoreFromSnapshot pSnapshotId_ =+  RestoreFromSnapshot' {snapshotId = pSnapshotId_}++-- | The identifier of the snapshot to restore from.+restoreFromSnapshot_snapshotId :: Lens.Lens' RestoreFromSnapshot Prelude.Text+restoreFromSnapshot_snapshotId = Lens.lens (\RestoreFromSnapshot' {snapshotId} -> snapshotId) (\s@RestoreFromSnapshot' {} a -> s {snapshotId = a} :: RestoreFromSnapshot)++instance Core.AWSRequest RestoreFromSnapshot where+  type+    AWSResponse RestoreFromSnapshot =+      RestoreFromSnapshotResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          RestoreFromSnapshotResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable RestoreFromSnapshot where+  hashWithSalt _salt RestoreFromSnapshot' {..} =+    _salt `Prelude.hashWithSalt` snapshotId++instance Prelude.NFData RestoreFromSnapshot where+  rnf RestoreFromSnapshot' {..} = Prelude.rnf snapshotId++instance Data.ToHeaders RestoreFromSnapshot where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.RestoreFromSnapshot" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON RestoreFromSnapshot where+  toJSON RestoreFromSnapshot' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("SnapshotId" Data..= snapshotId)]+      )++instance Data.ToPath RestoreFromSnapshot where+  toPath = Prelude.const "/"++instance Data.ToQuery RestoreFromSnapshot where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the RestoreFromSnapshot operation.+--+-- /See:/ 'newRestoreFromSnapshotResponse' smart constructor.+data RestoreFromSnapshotResponse = RestoreFromSnapshotResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RestoreFromSnapshotResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'restoreFromSnapshotResponse_httpStatus' - The response's http status code.+newRestoreFromSnapshotResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  RestoreFromSnapshotResponse+newRestoreFromSnapshotResponse pHttpStatus_ =+  RestoreFromSnapshotResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+restoreFromSnapshotResponse_httpStatus :: Lens.Lens' RestoreFromSnapshotResponse Prelude.Int+restoreFromSnapshotResponse_httpStatus = Lens.lens (\RestoreFromSnapshotResponse' {httpStatus} -> httpStatus) (\s@RestoreFromSnapshotResponse' {} a -> s {httpStatus = a} :: RestoreFromSnapshotResponse)++instance Prelude.NFData RestoreFromSnapshotResponse where+  rnf RestoreFromSnapshotResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/ShareDirectory.hs view

@@ -0,0 +1,265 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.ShareDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Shares a specified directory (@DirectoryId@) in your Amazon Web Services+-- account (directory owner) with another Amazon Web Services account+-- (directory consumer). With this operation you can use your directory+-- from any Amazon Web Services account and from any Amazon VPC within an+-- Amazon Web Services Region.+--+-- When you share your Managed Microsoft AD directory, Directory Service+-- creates a shared directory in the directory consumer account. This+-- shared directory contains the metadata to provide access to the+-- directory within the directory owner account. The shared directory is+-- visible in all VPCs in the directory consumer account.+--+-- The @ShareMethod@ parameter determines whether the specified directory+-- can be shared between Amazon Web Services accounts inside the same+-- Amazon Web Services organization (@ORGANIZATIONS@). It also determines+-- whether you can share the directory with any other Amazon Web Services+-- account either inside or outside of the organization (@HANDSHAKE@).+--+-- The @ShareNotes@ parameter is only used when @HANDSHAKE@ is called,+-- which sends a directory sharing request to the directory consumer.+module Amazonka.DirectoryService.ShareDirectory+  ( -- * Creating a Request+    ShareDirectory (..),+    newShareDirectory,++    -- * Request Lenses+    shareDirectory_shareNotes,+    shareDirectory_directoryId,+    shareDirectory_shareTarget,+    shareDirectory_shareMethod,++    -- * Destructuring the Response+    ShareDirectoryResponse (..),+    newShareDirectoryResponse,++    -- * Response Lenses+    shareDirectoryResponse_sharedDirectoryId,+    shareDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newShareDirectory' smart constructor.+data ShareDirectory = ShareDirectory'+  { -- | A directory share request that is sent by the directory owner to the+    -- directory consumer. The request includes a typed message to help the+    -- directory consumer administrator determine whether to approve or reject+    -- the share invitation.+    shareNotes :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Identifier of the Managed Microsoft AD directory that you want to share+    -- with other Amazon Web Services accounts.+    directoryId :: Prelude.Text,+    -- | Identifier for the directory consumer account with whom the directory is+    -- to be shared.+    shareTarget :: ShareTarget,+    -- | The method used when sharing a directory to determine whether the+    -- directory should be shared within your Amazon Web Services organization+    -- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+    -- directory sharing request (@HANDSHAKE@).+    shareMethod :: ShareMethod+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ShareDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'shareNotes', 'shareDirectory_shareNotes' - A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+--+-- 'directoryId', 'shareDirectory_directoryId' - Identifier of the Managed Microsoft AD directory that you want to share+-- with other Amazon Web Services accounts.+--+-- 'shareTarget', 'shareDirectory_shareTarget' - Identifier for the directory consumer account with whom the directory is+-- to be shared.+--+-- 'shareMethod', 'shareDirectory_shareMethod' - The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- directory sharing request (@HANDSHAKE@).+newShareDirectory ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'shareTarget'+  ShareTarget ->+  -- | 'shareMethod'+  ShareMethod ->+  ShareDirectory+newShareDirectory+  pDirectoryId_+  pShareTarget_+  pShareMethod_ =+    ShareDirectory'+      { shareNotes = Prelude.Nothing,+        directoryId = pDirectoryId_,+        shareTarget = pShareTarget_,+        shareMethod = pShareMethod_+      }++-- | A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+shareDirectory_shareNotes :: Lens.Lens' ShareDirectory (Prelude.Maybe Prelude.Text)+shareDirectory_shareNotes = Lens.lens (\ShareDirectory' {shareNotes} -> shareNotes) (\s@ShareDirectory' {} a -> s {shareNotes = a} :: ShareDirectory) Prelude.. Lens.mapping Data._Sensitive++-- | Identifier of the Managed Microsoft AD directory that you want to share+-- with other Amazon Web Services accounts.+shareDirectory_directoryId :: Lens.Lens' ShareDirectory Prelude.Text+shareDirectory_directoryId = Lens.lens (\ShareDirectory' {directoryId} -> directoryId) (\s@ShareDirectory' {} a -> s {directoryId = a} :: ShareDirectory)++-- | Identifier for the directory consumer account with whom the directory is+-- to be shared.+shareDirectory_shareTarget :: Lens.Lens' ShareDirectory ShareTarget+shareDirectory_shareTarget = Lens.lens (\ShareDirectory' {shareTarget} -> shareTarget) (\s@ShareDirectory' {} a -> s {shareTarget = a} :: ShareDirectory)++-- | The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- directory sharing request (@HANDSHAKE@).+shareDirectory_shareMethod :: Lens.Lens' ShareDirectory ShareMethod+shareDirectory_shareMethod = Lens.lens (\ShareDirectory' {shareMethod} -> shareMethod) (\s@ShareDirectory' {} a -> s {shareMethod = a} :: ShareDirectory)++instance Core.AWSRequest ShareDirectory where+  type+    AWSResponse ShareDirectory =+      ShareDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          ShareDirectoryResponse'+            Prelude.<$> (x Data..?> "SharedDirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable ShareDirectory where+  hashWithSalt _salt ShareDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` shareNotes+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` shareTarget+      `Prelude.hashWithSalt` shareMethod++instance Prelude.NFData ShareDirectory where+  rnf ShareDirectory' {..} =+    Prelude.rnf shareNotes+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf shareTarget+      `Prelude.seq` Prelude.rnf shareMethod++instance Data.ToHeaders ShareDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.ShareDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON ShareDirectory where+  toJSON ShareDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("ShareNotes" Data..=) Prelude.<$> shareNotes,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("ShareTarget" Data..= shareTarget),+            Prelude.Just ("ShareMethod" Data..= shareMethod)+          ]+      )++instance Data.ToPath ShareDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery ShareDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newShareDirectoryResponse' smart constructor.+data ShareDirectoryResponse = ShareDirectoryResponse'+  { -- | Identifier of the directory that is stored in the directory consumer+    -- account that is shared from the specified directory (@DirectoryId@).+    sharedDirectoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ShareDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectoryId', 'shareDirectoryResponse_sharedDirectoryId' - Identifier of the directory that is stored in the directory consumer+-- account that is shared from the specified directory (@DirectoryId@).+--+-- 'httpStatus', 'shareDirectoryResponse_httpStatus' - The response's http status code.+newShareDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  ShareDirectoryResponse+newShareDirectoryResponse pHttpStatus_ =+  ShareDirectoryResponse'+    { sharedDirectoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Identifier of the directory that is stored in the directory consumer+-- account that is shared from the specified directory (@DirectoryId@).+shareDirectoryResponse_sharedDirectoryId :: Lens.Lens' ShareDirectoryResponse (Prelude.Maybe Prelude.Text)+shareDirectoryResponse_sharedDirectoryId = Lens.lens (\ShareDirectoryResponse' {sharedDirectoryId} -> sharedDirectoryId) (\s@ShareDirectoryResponse' {} a -> s {sharedDirectoryId = a} :: ShareDirectoryResponse)++-- | The response's http status code.+shareDirectoryResponse_httpStatus :: Lens.Lens' ShareDirectoryResponse Prelude.Int+shareDirectoryResponse_httpStatus = Lens.lens (\ShareDirectoryResponse' {httpStatus} -> httpStatus) (\s@ShareDirectoryResponse' {} a -> s {httpStatus = a} :: ShareDirectoryResponse)++instance Prelude.NFData ShareDirectoryResponse where+  rnf ShareDirectoryResponse' {..} =+    Prelude.rnf sharedDirectoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/StartSchemaExtension.hs view

@@ -0,0 +1,241 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.StartSchemaExtension+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Applies a schema extension to a Microsoft AD directory.+module Amazonka.DirectoryService.StartSchemaExtension+  ( -- * Creating a Request+    StartSchemaExtension (..),+    newStartSchemaExtension,++    -- * Request Lenses+    startSchemaExtension_directoryId,+    startSchemaExtension_createSnapshotBeforeSchemaExtension,+    startSchemaExtension_ldifContent,+    startSchemaExtension_description,++    -- * Destructuring the Response+    StartSchemaExtensionResponse (..),+    newStartSchemaExtensionResponse,++    -- * Response Lenses+    startSchemaExtensionResponse_schemaExtensionId,+    startSchemaExtensionResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newStartSchemaExtension' smart constructor.+data StartSchemaExtension = StartSchemaExtension'+  { -- | The identifier of the directory for which the schema extension will be+    -- applied to.+    directoryId :: Prelude.Text,+    -- | If true, creates a snapshot of the directory before applying the schema+    -- extension.+    createSnapshotBeforeSchemaExtension :: Prelude.Bool,+    -- | The LDIF file represented as a string. To construct the LdifContent+    -- string, precede each line as it would be formatted in an ldif file with+    -- \\n. See the example request below for more details. The file size can+    -- be no larger than 1MB.+    ldifContent :: Prelude.Text,+    -- | A description of the schema extension.+    description :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSchemaExtension' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'startSchemaExtension_directoryId' - The identifier of the directory for which the schema extension will be+-- applied to.+--+-- 'createSnapshotBeforeSchemaExtension', 'startSchemaExtension_createSnapshotBeforeSchemaExtension' - If true, creates a snapshot of the directory before applying the schema+-- extension.+--+-- 'ldifContent', 'startSchemaExtension_ldifContent' - The LDIF file represented as a string. To construct the LdifContent+-- string, precede each line as it would be formatted in an ldif file with+-- \\n. See the example request below for more details. The file size can+-- be no larger than 1MB.+--+-- 'description', 'startSchemaExtension_description' - A description of the schema extension.+newStartSchemaExtension ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'createSnapshotBeforeSchemaExtension'+  Prelude.Bool ->+  -- | 'ldifContent'+  Prelude.Text ->+  -- | 'description'+  Prelude.Text ->+  StartSchemaExtension+newStartSchemaExtension+  pDirectoryId_+  pCreateSnapshotBeforeSchemaExtension_+  pLdifContent_+  pDescription_ =+    StartSchemaExtension'+      { directoryId = pDirectoryId_,+        createSnapshotBeforeSchemaExtension =+          pCreateSnapshotBeforeSchemaExtension_,+        ldifContent = pLdifContent_,+        description = pDescription_+      }++-- | The identifier of the directory for which the schema extension will be+-- applied to.+startSchemaExtension_directoryId :: Lens.Lens' StartSchemaExtension Prelude.Text+startSchemaExtension_directoryId = Lens.lens (\StartSchemaExtension' {directoryId} -> directoryId) (\s@StartSchemaExtension' {} a -> s {directoryId = a} :: StartSchemaExtension)++-- | If true, creates a snapshot of the directory before applying the schema+-- extension.+startSchemaExtension_createSnapshotBeforeSchemaExtension :: Lens.Lens' StartSchemaExtension Prelude.Bool+startSchemaExtension_createSnapshotBeforeSchemaExtension = Lens.lens (\StartSchemaExtension' {createSnapshotBeforeSchemaExtension} -> createSnapshotBeforeSchemaExtension) (\s@StartSchemaExtension' {} a -> s {createSnapshotBeforeSchemaExtension = a} :: StartSchemaExtension)++-- | The LDIF file represented as a string. To construct the LdifContent+-- string, precede each line as it would be formatted in an ldif file with+-- \\n. See the example request below for more details. The file size can+-- be no larger than 1MB.+startSchemaExtension_ldifContent :: Lens.Lens' StartSchemaExtension Prelude.Text+startSchemaExtension_ldifContent = Lens.lens (\StartSchemaExtension' {ldifContent} -> ldifContent) (\s@StartSchemaExtension' {} a -> s {ldifContent = a} :: StartSchemaExtension)++-- | A description of the schema extension.+startSchemaExtension_description :: Lens.Lens' StartSchemaExtension Prelude.Text+startSchemaExtension_description = Lens.lens (\StartSchemaExtension' {description} -> description) (\s@StartSchemaExtension' {} a -> s {description = a} :: StartSchemaExtension)++instance Core.AWSRequest StartSchemaExtension where+  type+    AWSResponse StartSchemaExtension =+      StartSchemaExtensionResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          StartSchemaExtensionResponse'+            Prelude.<$> (x Data..?> "SchemaExtensionId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable StartSchemaExtension where+  hashWithSalt _salt StartSchemaExtension' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` createSnapshotBeforeSchemaExtension+      `Prelude.hashWithSalt` ldifContent+      `Prelude.hashWithSalt` description++instance Prelude.NFData StartSchemaExtension where+  rnf StartSchemaExtension' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf createSnapshotBeforeSchemaExtension+      `Prelude.seq` Prelude.rnf ldifContent+      `Prelude.seq` Prelude.rnf description++instance Data.ToHeaders StartSchemaExtension where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.StartSchemaExtension" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON StartSchemaExtension where+  toJSON StartSchemaExtension' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ( "CreateSnapshotBeforeSchemaExtension"+                  Data..= createSnapshotBeforeSchemaExtension+              ),+            Prelude.Just ("LdifContent" Data..= ldifContent),+            Prelude.Just ("Description" Data..= description)+          ]+      )++instance Data.ToPath StartSchemaExtension where+  toPath = Prelude.const "/"++instance Data.ToQuery StartSchemaExtension where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newStartSchemaExtensionResponse' smart constructor.+data StartSchemaExtensionResponse = StartSchemaExtensionResponse'+  { -- | The identifier of the schema extension that will be applied.+    schemaExtensionId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'StartSchemaExtensionResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'schemaExtensionId', 'startSchemaExtensionResponse_schemaExtensionId' - The identifier of the schema extension that will be applied.+--+-- 'httpStatus', 'startSchemaExtensionResponse_httpStatus' - The response's http status code.+newStartSchemaExtensionResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  StartSchemaExtensionResponse+newStartSchemaExtensionResponse pHttpStatus_ =+  StartSchemaExtensionResponse'+    { schemaExtensionId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the schema extension that will be applied.+startSchemaExtensionResponse_schemaExtensionId :: Lens.Lens' StartSchemaExtensionResponse (Prelude.Maybe Prelude.Text)+startSchemaExtensionResponse_schemaExtensionId = Lens.lens (\StartSchemaExtensionResponse' {schemaExtensionId} -> schemaExtensionId) (\s@StartSchemaExtensionResponse' {} a -> s {schemaExtensionId = a} :: StartSchemaExtensionResponse)++-- | The response's http status code.+startSchemaExtensionResponse_httpStatus :: Lens.Lens' StartSchemaExtensionResponse Prelude.Int+startSchemaExtensionResponse_httpStatus = Lens.lens (\StartSchemaExtensionResponse' {httpStatus} -> httpStatus) (\s@StartSchemaExtensionResponse' {} a -> s {httpStatus = a} :: StartSchemaExtensionResponse)++instance Prelude.NFData StartSchemaExtensionResponse where+  rnf StartSchemaExtensionResponse' {..} =+    Prelude.rnf schemaExtensionId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/Types.hs view

@@ -0,0 +1,910 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types+  ( -- * Service Configuration+    defaultService,++    -- * Errors+    _AccessDeniedException,+    _AuthenticationFailedException,+    _CertificateAlreadyExistsException,+    _CertificateDoesNotExistException,+    _CertificateInUseException,+    _CertificateLimitExceededException,+    _ClientException,+    _DirectoryAlreadyInRegionException,+    _DirectoryAlreadySharedException,+    _DirectoryDoesNotExistException,+    _DirectoryInDesiredStateException,+    _DirectoryLimitExceededException,+    _DirectoryNotSharedException,+    _DirectoryUnavailableException,+    _DomainControllerLimitExceededException,+    _EntityAlreadyExistsException,+    _EntityDoesNotExistException,+    _IncompatibleSettingsException,+    _InsufficientPermissionsException,+    _InvalidCertificateException,+    _InvalidClientAuthStatusException,+    _InvalidLDAPSStatusException,+    _InvalidNextTokenException,+    _InvalidParameterException,+    _InvalidPasswordException,+    _InvalidTargetException,+    _IpRouteLimitExceededException,+    _NoAvailableCertificateException,+    _OrganizationsException,+    _RegionLimitExceededException,+    _ServiceException,+    _ShareLimitExceededException,+    _SnapshotLimitExceededException,+    _TagLimitExceededException,+    _UnsupportedOperationException,+    _UnsupportedSettingsException,+    _UserDoesNotExistException,++    -- * CertificateState+    CertificateState (..),++    -- * CertificateType+    CertificateType (..),++    -- * ClientAuthenticationStatus+    ClientAuthenticationStatus (..),++    -- * ClientAuthenticationType+    ClientAuthenticationType (..),++    -- * DirectoryConfigurationStatus+    DirectoryConfigurationStatus (..),++    -- * DirectoryEdition+    DirectoryEdition (..),++    -- * DirectorySize+    DirectorySize (..),++    -- * DirectoryStage+    DirectoryStage (..),++    -- * DirectoryType+    DirectoryType (..),++    -- * DomainControllerStatus+    DomainControllerStatus (..),++    -- * IpRouteStatusMsg+    IpRouteStatusMsg (..),++    -- * LDAPSStatus+    LDAPSStatus (..),++    -- * LDAPSType+    LDAPSType (..),++    -- * OSVersion+    OSVersion (..),++    -- * RadiusAuthenticationProtocol+    RadiusAuthenticationProtocol (..),++    -- * RadiusStatus+    RadiusStatus (..),++    -- * RegionType+    RegionType (..),++    -- * ReplicationScope+    ReplicationScope (..),++    -- * SchemaExtensionStatus+    SchemaExtensionStatus (..),++    -- * SelectiveAuth+    SelectiveAuth (..),++    -- * ShareMethod+    ShareMethod (..),++    -- * ShareStatus+    ShareStatus (..),++    -- * SnapshotStatus+    SnapshotStatus (..),++    -- * SnapshotType+    SnapshotType (..),++    -- * TargetType+    TargetType (..),++    -- * TopicStatus+    TopicStatus (..),++    -- * TrustDirection+    TrustDirection (..),++    -- * TrustState+    TrustState (..),++    -- * TrustType+    TrustType (..),++    -- * UpdateStatus+    UpdateStatus (..),++    -- * UpdateType+    UpdateType (..),++    -- * Attribute+    Attribute (..),+    newAttribute,+    attribute_name,+    attribute_value,++    -- * Certificate+    Certificate (..),+    newCertificate,+    certificate_certificateId,+    certificate_clientCertAuthSettings,+    certificate_commonName,+    certificate_expiryDateTime,+    certificate_registeredDateTime,+    certificate_state,+    certificate_stateReason,+    certificate_type,++    -- * CertificateInfo+    CertificateInfo (..),+    newCertificateInfo,+    certificateInfo_certificateId,+    certificateInfo_commonName,+    certificateInfo_expiryDateTime,+    certificateInfo_state,+    certificateInfo_type,++    -- * ClientAuthenticationSettingInfo+    ClientAuthenticationSettingInfo (..),+    newClientAuthenticationSettingInfo,+    clientAuthenticationSettingInfo_lastUpdatedDateTime,+    clientAuthenticationSettingInfo_status,+    clientAuthenticationSettingInfo_type,++    -- * ClientCertAuthSettings+    ClientCertAuthSettings (..),+    newClientCertAuthSettings,+    clientCertAuthSettings_oCSPUrl,++    -- * Computer+    Computer (..),+    newComputer,+    computer_computerAttributes,+    computer_computerId,+    computer_computerName,++    -- * ConditionalForwarder+    ConditionalForwarder (..),+    newConditionalForwarder,+    conditionalForwarder_dnsIpAddrs,+    conditionalForwarder_remoteDomainName,+    conditionalForwarder_replicationScope,++    -- * DirectoryConnectSettings+    DirectoryConnectSettings (..),+    newDirectoryConnectSettings,+    directoryConnectSettings_vpcId,+    directoryConnectSettings_subnetIds,+    directoryConnectSettings_customerDnsIps,+    directoryConnectSettings_customerUserName,++    -- * DirectoryConnectSettingsDescription+    DirectoryConnectSettingsDescription (..),+    newDirectoryConnectSettingsDescription,+    directoryConnectSettingsDescription_availabilityZones,+    directoryConnectSettingsDescription_connectIps,+    directoryConnectSettingsDescription_customerUserName,+    directoryConnectSettingsDescription_securityGroupId,+    directoryConnectSettingsDescription_subnetIds,+    directoryConnectSettingsDescription_vpcId,++    -- * DirectoryDescription+    DirectoryDescription (..),+    newDirectoryDescription,+    directoryDescription_accessUrl,+    directoryDescription_alias,+    directoryDescription_connectSettings,+    directoryDescription_description,+    directoryDescription_desiredNumberOfDomainControllers,+    directoryDescription_directoryId,+    directoryDescription_dnsIpAddrs,+    directoryDescription_edition,+    directoryDescription_launchTime,+    directoryDescription_name,+    directoryDescription_osVersion,+    directoryDescription_ownerDirectoryDescription,+    directoryDescription_radiusSettings,+    directoryDescription_radiusStatus,+    directoryDescription_regionsInfo,+    directoryDescription_shareMethod,+    directoryDescription_shareNotes,+    directoryDescription_shareStatus,+    directoryDescription_shortName,+    directoryDescription_size,+    directoryDescription_ssoEnabled,+    directoryDescription_stage,+    directoryDescription_stageLastUpdatedDateTime,+    directoryDescription_stageReason,+    directoryDescription_type,+    directoryDescription_vpcSettings,++    -- * DirectoryLimits+    DirectoryLimits (..),+    newDirectoryLimits,+    directoryLimits_cloudOnlyDirectoriesCurrentCount,+    directoryLimits_cloudOnlyDirectoriesLimit,+    directoryLimits_cloudOnlyDirectoriesLimitReached,+    directoryLimits_cloudOnlyMicrosoftADCurrentCount,+    directoryLimits_cloudOnlyMicrosoftADLimit,+    directoryLimits_cloudOnlyMicrosoftADLimitReached,+    directoryLimits_connectedDirectoriesCurrentCount,+    directoryLimits_connectedDirectoriesLimit,+    directoryLimits_connectedDirectoriesLimitReached,++    -- * DirectoryVpcSettings+    DirectoryVpcSettings (..),+    newDirectoryVpcSettings,+    directoryVpcSettings_vpcId,+    directoryVpcSettings_subnetIds,++    -- * DirectoryVpcSettingsDescription+    DirectoryVpcSettingsDescription (..),+    newDirectoryVpcSettingsDescription,+    directoryVpcSettingsDescription_availabilityZones,+    directoryVpcSettingsDescription_securityGroupId,+    directoryVpcSettingsDescription_subnetIds,+    directoryVpcSettingsDescription_vpcId,++    -- * DomainController+    DomainController (..),+    newDomainController,+    domainController_availabilityZone,+    domainController_directoryId,+    domainController_dnsIpAddr,+    domainController_domainControllerId,+    domainController_launchTime,+    domainController_status,+    domainController_statusLastUpdatedDateTime,+    domainController_statusReason,+    domainController_subnetId,+    domainController_vpcId,++    -- * EventTopic+    EventTopic (..),+    newEventTopic,+    eventTopic_createdDateTime,+    eventTopic_directoryId,+    eventTopic_status,+    eventTopic_topicArn,+    eventTopic_topicName,++    -- * IpRoute+    IpRoute (..),+    newIpRoute,+    ipRoute_cidrIp,+    ipRoute_description,++    -- * IpRouteInfo+    IpRouteInfo (..),+    newIpRouteInfo,+    ipRouteInfo_addedDateTime,+    ipRouteInfo_cidrIp,+    ipRouteInfo_description,+    ipRouteInfo_directoryId,+    ipRouteInfo_ipRouteStatusMsg,+    ipRouteInfo_ipRouteStatusReason,++    -- * LDAPSSettingInfo+    LDAPSSettingInfo (..),+    newLDAPSSettingInfo,+    lDAPSSettingInfo_lDAPSStatus,+    lDAPSSettingInfo_lDAPSStatusReason,+    lDAPSSettingInfo_lastUpdatedDateTime,++    -- * LogSubscription+    LogSubscription (..),+    newLogSubscription,+    logSubscription_directoryId,+    logSubscription_logGroupName,+    logSubscription_subscriptionCreatedDateTime,++    -- * OSUpdateSettings+    OSUpdateSettings (..),+    newOSUpdateSettings,+    oSUpdateSettings_oSVersion,++    -- * OwnerDirectoryDescription+    OwnerDirectoryDescription (..),+    newOwnerDirectoryDescription,+    ownerDirectoryDescription_accountId,+    ownerDirectoryDescription_directoryId,+    ownerDirectoryDescription_dnsIpAddrs,+    ownerDirectoryDescription_radiusSettings,+    ownerDirectoryDescription_radiusStatus,+    ownerDirectoryDescription_vpcSettings,++    -- * RadiusSettings+    RadiusSettings (..),+    newRadiusSettings,+    radiusSettings_authenticationProtocol,+    radiusSettings_displayLabel,+    radiusSettings_radiusPort,+    radiusSettings_radiusRetries,+    radiusSettings_radiusServers,+    radiusSettings_radiusTimeout,+    radiusSettings_sharedSecret,+    radiusSettings_useSameUsername,++    -- * RegionDescription+    RegionDescription (..),+    newRegionDescription,+    regionDescription_desiredNumberOfDomainControllers,+    regionDescription_directoryId,+    regionDescription_lastUpdatedDateTime,+    regionDescription_launchTime,+    regionDescription_regionName,+    regionDescription_regionType,+    regionDescription_status,+    regionDescription_statusLastUpdatedDateTime,+    regionDescription_vpcSettings,++    -- * RegionsInfo+    RegionsInfo (..),+    newRegionsInfo,+    regionsInfo_additionalRegions,+    regionsInfo_primaryRegion,++    -- * SchemaExtensionInfo+    SchemaExtensionInfo (..),+    newSchemaExtensionInfo,+    schemaExtensionInfo_description,+    schemaExtensionInfo_directoryId,+    schemaExtensionInfo_endDateTime,+    schemaExtensionInfo_schemaExtensionId,+    schemaExtensionInfo_schemaExtensionStatus,+    schemaExtensionInfo_schemaExtensionStatusReason,+    schemaExtensionInfo_startDateTime,++    -- * Setting+    Setting (..),+    newSetting,+    setting_name,+    setting_value,++    -- * SettingEntry+    SettingEntry (..),+    newSettingEntry,+    settingEntry_allowedValues,+    settingEntry_appliedValue,+    settingEntry_lastRequestedDateTime,+    settingEntry_lastUpdatedDateTime,+    settingEntry_name,+    settingEntry_requestDetailedStatus,+    settingEntry_requestStatus,+    settingEntry_requestStatusMessage,+    settingEntry_requestedValue,+    settingEntry_type,++    -- * ShareTarget+    ShareTarget (..),+    newShareTarget,+    shareTarget_id,+    shareTarget_type,++    -- * SharedDirectory+    SharedDirectory (..),+    newSharedDirectory,+    sharedDirectory_createdDateTime,+    sharedDirectory_lastUpdatedDateTime,+    sharedDirectory_ownerAccountId,+    sharedDirectory_ownerDirectoryId,+    sharedDirectory_shareMethod,+    sharedDirectory_shareNotes,+    sharedDirectory_shareStatus,+    sharedDirectory_sharedAccountId,+    sharedDirectory_sharedDirectoryId,++    -- * Snapshot+    Snapshot (..),+    newSnapshot,+    snapshot_directoryId,+    snapshot_name,+    snapshot_snapshotId,+    snapshot_startTime,+    snapshot_status,+    snapshot_type,++    -- * SnapshotLimits+    SnapshotLimits (..),+    newSnapshotLimits,+    snapshotLimits_manualSnapshotsCurrentCount,+    snapshotLimits_manualSnapshotsLimit,+    snapshotLimits_manualSnapshotsLimitReached,++    -- * Tag+    Tag (..),+    newTag,+    tag_key,+    tag_value,++    -- * Trust+    Trust (..),+    newTrust,+    trust_createdDateTime,+    trust_directoryId,+    trust_lastUpdatedDateTime,+    trust_remoteDomainName,+    trust_selectiveAuth,+    trust_stateLastUpdatedDateTime,+    trust_trustDirection,+    trust_trustId,+    trust_trustState,+    trust_trustStateReason,+    trust_trustType,++    -- * UnshareTarget+    UnshareTarget (..),+    newUnshareTarget,+    unshareTarget_id,+    unshareTarget_type,++    -- * UpdateInfoEntry+    UpdateInfoEntry (..),+    newUpdateInfoEntry,+    updateInfoEntry_initiatedBy,+    updateInfoEntry_lastUpdatedDateTime,+    updateInfoEntry_newValue,+    updateInfoEntry_previousValue,+    updateInfoEntry_region,+    updateInfoEntry_startTime,+    updateInfoEntry_status,+    updateInfoEntry_statusReason,++    -- * UpdateValue+    UpdateValue (..),+    newUpdateValue,+    updateValue_oSUpdateSettings,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import Amazonka.DirectoryService.Types.Attribute+import Amazonka.DirectoryService.Types.Certificate+import Amazonka.DirectoryService.Types.CertificateInfo+import Amazonka.DirectoryService.Types.CertificateState+import Amazonka.DirectoryService.Types.CertificateType+import Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo+import Amazonka.DirectoryService.Types.ClientAuthenticationStatus+import Amazonka.DirectoryService.Types.ClientAuthenticationType+import Amazonka.DirectoryService.Types.ClientCertAuthSettings+import Amazonka.DirectoryService.Types.Computer+import Amazonka.DirectoryService.Types.ConditionalForwarder+import Amazonka.DirectoryService.Types.DirectoryConfigurationStatus+import Amazonka.DirectoryService.Types.DirectoryConnectSettings+import Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription+import Amazonka.DirectoryService.Types.DirectoryDescription+import Amazonka.DirectoryService.Types.DirectoryEdition+import Amazonka.DirectoryService.Types.DirectoryLimits+import Amazonka.DirectoryService.Types.DirectorySize+import Amazonka.DirectoryService.Types.DirectoryStage+import Amazonka.DirectoryService.Types.DirectoryType+import Amazonka.DirectoryService.Types.DirectoryVpcSettings+import Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+import Amazonka.DirectoryService.Types.DomainController+import Amazonka.DirectoryService.Types.DomainControllerStatus+import Amazonka.DirectoryService.Types.EventTopic+import Amazonka.DirectoryService.Types.IpRoute+import Amazonka.DirectoryService.Types.IpRouteInfo+import Amazonka.DirectoryService.Types.IpRouteStatusMsg+import Amazonka.DirectoryService.Types.LDAPSSettingInfo+import Amazonka.DirectoryService.Types.LDAPSStatus+import Amazonka.DirectoryService.Types.LDAPSType+import Amazonka.DirectoryService.Types.LogSubscription+import Amazonka.DirectoryService.Types.OSUpdateSettings+import Amazonka.DirectoryService.Types.OSVersion+import Amazonka.DirectoryService.Types.OwnerDirectoryDescription+import Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol+import Amazonka.DirectoryService.Types.RadiusSettings+import Amazonka.DirectoryService.Types.RadiusStatus+import Amazonka.DirectoryService.Types.RegionDescription+import Amazonka.DirectoryService.Types.RegionType+import Amazonka.DirectoryService.Types.RegionsInfo+import Amazonka.DirectoryService.Types.ReplicationScope+import Amazonka.DirectoryService.Types.SchemaExtensionInfo+import Amazonka.DirectoryService.Types.SchemaExtensionStatus+import Amazonka.DirectoryService.Types.SelectiveAuth+import Amazonka.DirectoryService.Types.Setting+import Amazonka.DirectoryService.Types.SettingEntry+import Amazonka.DirectoryService.Types.ShareMethod+import Amazonka.DirectoryService.Types.ShareStatus+import Amazonka.DirectoryService.Types.ShareTarget+import Amazonka.DirectoryService.Types.SharedDirectory+import Amazonka.DirectoryService.Types.Snapshot+import Amazonka.DirectoryService.Types.SnapshotLimits+import Amazonka.DirectoryService.Types.SnapshotStatus+import Amazonka.DirectoryService.Types.SnapshotType+import Amazonka.DirectoryService.Types.Tag+import Amazonka.DirectoryService.Types.TargetType+import Amazonka.DirectoryService.Types.TopicStatus+import Amazonka.DirectoryService.Types.Trust+import Amazonka.DirectoryService.Types.TrustDirection+import Amazonka.DirectoryService.Types.TrustState+import Amazonka.DirectoryService.Types.TrustType+import Amazonka.DirectoryService.Types.UnshareTarget+import Amazonka.DirectoryService.Types.UpdateInfoEntry+import Amazonka.DirectoryService.Types.UpdateStatus+import Amazonka.DirectoryService.Types.UpdateType+import Amazonka.DirectoryService.Types.UpdateValue+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Sign.V4 as Sign++-- | API version @2015-04-16@ of the Amazon Directory Service SDK configuration.+defaultService :: Core.Service+defaultService =+  Core.Service+    { Core.abbrev = "DirectoryService",+      Core.signer = Sign.v4,+      Core.endpointPrefix = "ds",+      Core.signingName = "ds",+      Core.version = "2015-04-16",+      Core.s3AddressingStyle = Core.S3AddressingStyleAuto,+      Core.endpoint = Core.defaultEndpoint defaultService,+      Core.timeout = Prelude.Just 70,+      Core.check = Core.statusSuccess,+      Core.error = Core.parseJSONError "DirectoryService",+      Core.retry = retry+    }+  where+    retry =+      Core.Exponential+        { Core.base = 5.0e-2,+          Core.growth = 2,+          Core.attempts = 5,+          Core.check = check+        }+    check e+      | Lens.has (Core.hasStatus 502) e =+          Prelude.Just "bad_gateway"+      | Lens.has (Core.hasStatus 504) e =+          Prelude.Just "gateway_timeout"+      | Lens.has (Core.hasStatus 500) e =+          Prelude.Just "general_server_error"+      | Lens.has (Core.hasStatus 509) e =+          Prelude.Just "limit_exceeded"+      | Lens.has+          ( Core.hasCode "RequestThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "request_throttled_exception"+      | Lens.has (Core.hasStatus 503) e =+          Prelude.Just "service_unavailable"+      | Lens.has+          ( Core.hasCode "ThrottledException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttled_exception"+      | Lens.has+          ( Core.hasCode "Throttling"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling"+      | Lens.has+          ( Core.hasCode "ThrottlingException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throttling_exception"+      | Lens.has+          ( Core.hasCode+              "ProvisionedThroughputExceededException"+              Prelude.. Core.hasStatus 400+          )+          e =+          Prelude.Just "throughput_exceeded"+      | Lens.has (Core.hasStatus 429) e =+          Prelude.Just "too_many_requests"+      | Prelude.otherwise = Prelude.Nothing++-- | Client authentication is not available in this region at this time.+_AccessDeniedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AccessDeniedException =+  Core._MatchServiceError+    defaultService+    "AccessDeniedException"++-- | An authentication error occurred.+_AuthenticationFailedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_AuthenticationFailedException =+  Core._MatchServiceError+    defaultService+    "AuthenticationFailedException"++-- | The certificate has already been registered into the system.+_CertificateAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CertificateAlreadyExistsException =+  Core._MatchServiceError+    defaultService+    "CertificateAlreadyExistsException"++-- | The certificate is not present in the system for describe or deregister+-- activities.+_CertificateDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CertificateDoesNotExistException =+  Core._MatchServiceError+    defaultService+    "CertificateDoesNotExistException"++-- | The certificate is being used for the LDAP security connection and+-- cannot be removed without disabling LDAP security.+_CertificateInUseException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CertificateInUseException =+  Core._MatchServiceError+    defaultService+    "CertificateInUseException"++-- | The certificate could not be added because the certificate limit has+-- been reached.+_CertificateLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_CertificateLimitExceededException =+  Core._MatchServiceError+    defaultService+    "CertificateLimitExceededException"++-- | A client exception has occurred.+_ClientException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ClientException =+  Core._MatchServiceError+    defaultService+    "ClientException"++-- | The Region you specified is the same Region where the Managed Microsoft+-- AD directory was created. Specify a different Region and try again.+_DirectoryAlreadyInRegionException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryAlreadyInRegionException =+  Core._MatchServiceError+    defaultService+    "DirectoryAlreadyInRegionException"++-- | The specified directory has already been shared with this Amazon Web+-- Services account.+_DirectoryAlreadySharedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryAlreadySharedException =+  Core._MatchServiceError+    defaultService+    "DirectoryAlreadySharedException"++-- | The specified directory does not exist in the system.+_DirectoryDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryDoesNotExistException =+  Core._MatchServiceError+    defaultService+    "DirectoryDoesNotExistException"++-- | The directory is already updated to desired update type settings.+_DirectoryInDesiredStateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryInDesiredStateException =+  Core._MatchServiceError+    defaultService+    "DirectoryInDesiredStateException"++-- | 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 :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryLimitExceededException =+  Core._MatchServiceError+    defaultService+    "DirectoryLimitExceededException"++-- | The specified directory has not been shared with this Amazon Web+-- Services account.+_DirectoryNotSharedException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryNotSharedException =+  Core._MatchServiceError+    defaultService+    "DirectoryNotSharedException"++-- | The specified directory is unavailable or could not be found.+_DirectoryUnavailableException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DirectoryUnavailableException =+  Core._MatchServiceError+    defaultService+    "DirectoryUnavailableException"++-- | The maximum allowed number of domain controllers per directory was+-- exceeded. The default limit per directory is 20 domain controllers.+_DomainControllerLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_DomainControllerLimitExceededException =+  Core._MatchServiceError+    defaultService+    "DomainControllerLimitExceededException"++-- | The specified entity already exists.+_EntityAlreadyExistsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EntityAlreadyExistsException =+  Core._MatchServiceError+    defaultService+    "EntityAlreadyExistsException"++-- | The specified entity could not be found.+_EntityDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_EntityDoesNotExistException =+  Core._MatchServiceError+    defaultService+    "EntityDoesNotExistException"++-- | The specified directory setting is not compatible with other settings.+_IncompatibleSettingsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_IncompatibleSettingsException =+  Core._MatchServiceError+    defaultService+    "IncompatibleSettingsException"++-- | The account does not have sufficient permission to perform the+-- operation.+_InsufficientPermissionsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InsufficientPermissionsException =+  Core._MatchServiceError+    defaultService+    "InsufficientPermissionsException"++-- | The certificate PEM that was provided has incorrect encoding.+_InvalidCertificateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidCertificateException =+  Core._MatchServiceError+    defaultService+    "InvalidCertificateException"++-- | Client authentication is already enabled.+_InvalidClientAuthStatusException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidClientAuthStatusException =+  Core._MatchServiceError+    defaultService+    "InvalidClientAuthStatusException"++-- | The LDAP activities could not be performed because they are limited by+-- the LDAPS status.+_InvalidLDAPSStatusException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidLDAPSStatusException =+  Core._MatchServiceError+    defaultService+    "InvalidLDAPSStatusException"++-- | The @NextToken@ value is not valid.+_InvalidNextTokenException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidNextTokenException =+  Core._MatchServiceError+    defaultService+    "InvalidNextTokenException"++-- | One or more parameters are not valid.+_InvalidParameterException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidParameterException =+  Core._MatchServiceError+    defaultService+    "InvalidParameterException"++-- | The new password provided by the user does not meet the password+-- complexity requirements defined in your directory.+_InvalidPasswordException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidPasswordException =+  Core._MatchServiceError+    defaultService+    "InvalidPasswordException"++-- | The specified shared target is not valid.+_InvalidTargetException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_InvalidTargetException =+  Core._MatchServiceError+    defaultService+    "InvalidTargetException"++-- | The maximum allowed number of IP addresses was exceeded. The default+-- limit is 100 IP address blocks.+_IpRouteLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_IpRouteLimitExceededException =+  Core._MatchServiceError+    defaultService+    "IpRouteLimitExceededException"++-- | Client authentication setup could not be completed because at least one+-- valid certificate must be registered in the system.+_NoAvailableCertificateException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_NoAvailableCertificateException =+  Core._MatchServiceError+    defaultService+    "NoAvailableCertificateException"++-- | Exception encountered while trying to access your Amazon Web Services+-- organization.+_OrganizationsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_OrganizationsException =+  Core._MatchServiceError+    defaultService+    "OrganizationsException"++-- | You have reached the limit for maximum number of simultaneous Region+-- replications per directory.+_RegionLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_RegionLimitExceededException =+  Core._MatchServiceError+    defaultService+    "RegionLimitExceededException"++-- | An exception has occurred in Directory Service.+_ServiceException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ServiceException =+  Core._MatchServiceError+    defaultService+    "ServiceException"++-- | The maximum number of Amazon Web Services accounts that you can share+-- with this directory has been reached.+_ShareLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_ShareLimitExceededException =+  Core._MatchServiceError+    defaultService+    "ShareLimitExceededException"++-- | 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 :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_SnapshotLimitExceededException =+  Core._MatchServiceError+    defaultService+    "SnapshotLimitExceededException"++-- | The maximum allowed number of tags was exceeded.+_TagLimitExceededException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_TagLimitExceededException =+  Core._MatchServiceError+    defaultService+    "TagLimitExceededException"++-- | The operation is not supported.+_UnsupportedOperationException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedOperationException =+  Core._MatchServiceError+    defaultService+    "UnsupportedOperationException"++-- | The specified directory setting is not supported.+_UnsupportedSettingsException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UnsupportedSettingsException =+  Core._MatchServiceError+    defaultService+    "UnsupportedSettingsException"++-- | The user provided a username that does not exist in your directory.+_UserDoesNotExistException :: (Core.AsError a) => Lens.Fold a Core.ServiceError+_UserDoesNotExistException =+  Core._MatchServiceError+    defaultService+    "UserDoesNotExistException"

+ gen/Amazonka/DirectoryService/Types/Attribute.hs view

@@ -0,0 +1,92 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Attribute+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Attribute where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a named directory attribute.+--+-- /See:/ 'newAttribute' smart constructor.+data Attribute = Attribute'+  { -- | The name of the attribute.+    name :: Prelude.Maybe Prelude.Text,+    -- | The value of the attribute.+    value :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Attribute' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'attribute_name' - The name of the attribute.+--+-- 'value', 'attribute_value' - The value of the attribute.+newAttribute ::+  Attribute+newAttribute =+  Attribute'+    { name = Prelude.Nothing,+      value = Prelude.Nothing+    }++-- | The name of the attribute.+attribute_name :: Lens.Lens' Attribute (Prelude.Maybe Prelude.Text)+attribute_name = Lens.lens (\Attribute' {name} -> name) (\s@Attribute' {} a -> s {name = a} :: Attribute)++-- | The value of the attribute.+attribute_value :: Lens.Lens' Attribute (Prelude.Maybe Prelude.Text)+attribute_value = Lens.lens (\Attribute' {value} -> value) (\s@Attribute' {} a -> s {value = a} :: Attribute)++instance Data.FromJSON Attribute where+  parseJSON =+    Data.withObject+      "Attribute"+      ( \x ->+          Attribute'+            Prelude.<$> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "Value")+      )++instance Prelude.Hashable Attribute where+  hashWithSalt _salt Attribute' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` value++instance Prelude.NFData Attribute where+  rnf Attribute' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Attribute where+  toJSON Attribute' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("Name" Data..=) Prelude.<$> name,+            ("Value" Data..=) Prelude.<$> value+          ]+      )

+ gen/Amazonka/DirectoryService/Types/Certificate.hs view

@@ -0,0 +1,168 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Certificate+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Certificate where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.CertificateState+import Amazonka.DirectoryService.Types.CertificateType+import Amazonka.DirectoryService.Types.ClientCertAuthSettings+import qualified Amazonka.Prelude as Prelude++-- | Information about the certificate.+--+-- /See:/ 'newCertificate' smart constructor.+data Certificate = Certificate'+  { -- | The identifier of the certificate.+    certificateId :: Prelude.Maybe Prelude.Text,+    -- | A @ClientCertAuthSettings@ object that contains client certificate+    -- authentication settings.+    clientCertAuthSettings :: Prelude.Maybe ClientCertAuthSettings,+    -- | The common name for the certificate.+    commonName :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the certificate will expire.+    expiryDateTime :: Prelude.Maybe Data.POSIX,+    -- | The date and time that the certificate was registered.+    registeredDateTime :: Prelude.Maybe Data.POSIX,+    -- | The state of the certificate.+    state :: Prelude.Maybe CertificateState,+    -- | Describes a state change for the certificate.+    stateReason :: Prelude.Maybe Prelude.Text,+    -- | The function that the registered certificate performs. Valid values+    -- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+    -- @ClientLDAPS@.+    type' :: Prelude.Maybe CertificateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Certificate' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificateId', 'certificate_certificateId' - The identifier of the certificate.+--+-- 'clientCertAuthSettings', 'certificate_clientCertAuthSettings' - A @ClientCertAuthSettings@ object that contains client certificate+-- authentication settings.+--+-- 'commonName', 'certificate_commonName' - The common name for the certificate.+--+-- 'expiryDateTime', 'certificate_expiryDateTime' - The date and time when the certificate will expire.+--+-- 'registeredDateTime', 'certificate_registeredDateTime' - The date and time that the certificate was registered.+--+-- 'state', 'certificate_state' - The state of the certificate.+--+-- 'stateReason', 'certificate_stateReason' - Describes a state change for the certificate.+--+-- 'type'', 'certificate_type' - The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+newCertificate ::+  Certificate+newCertificate =+  Certificate'+    { certificateId = Prelude.Nothing,+      clientCertAuthSettings = Prelude.Nothing,+      commonName = Prelude.Nothing,+      expiryDateTime = Prelude.Nothing,+      registeredDateTime = Prelude.Nothing,+      state = Prelude.Nothing,+      stateReason = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The identifier of the certificate.+certificate_certificateId :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)+certificate_certificateId = Lens.lens (\Certificate' {certificateId} -> certificateId) (\s@Certificate' {} a -> s {certificateId = a} :: Certificate)++-- | A @ClientCertAuthSettings@ object that contains client certificate+-- authentication settings.+certificate_clientCertAuthSettings :: Lens.Lens' Certificate (Prelude.Maybe ClientCertAuthSettings)+certificate_clientCertAuthSettings = Lens.lens (\Certificate' {clientCertAuthSettings} -> clientCertAuthSettings) (\s@Certificate' {} a -> s {clientCertAuthSettings = a} :: Certificate)++-- | The common name for the certificate.+certificate_commonName :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)+certificate_commonName = Lens.lens (\Certificate' {commonName} -> commonName) (\s@Certificate' {} a -> s {commonName = a} :: Certificate)++-- | The date and time when the certificate will expire.+certificate_expiryDateTime :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)+certificate_expiryDateTime = Lens.lens (\Certificate' {expiryDateTime} -> expiryDateTime) (\s@Certificate' {} a -> s {expiryDateTime = a} :: Certificate) Prelude.. Lens.mapping Data._Time++-- | The date and time that the certificate was registered.+certificate_registeredDateTime :: Lens.Lens' Certificate (Prelude.Maybe Prelude.UTCTime)+certificate_registeredDateTime = Lens.lens (\Certificate' {registeredDateTime} -> registeredDateTime) (\s@Certificate' {} a -> s {registeredDateTime = a} :: Certificate) Prelude.. Lens.mapping Data._Time++-- | The state of the certificate.+certificate_state :: Lens.Lens' Certificate (Prelude.Maybe CertificateState)+certificate_state = Lens.lens (\Certificate' {state} -> state) (\s@Certificate' {} a -> s {state = a} :: Certificate)++-- | Describes a state change for the certificate.+certificate_stateReason :: Lens.Lens' Certificate (Prelude.Maybe Prelude.Text)+certificate_stateReason = Lens.lens (\Certificate' {stateReason} -> stateReason) (\s@Certificate' {} a -> s {stateReason = a} :: Certificate)++-- | The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+certificate_type :: Lens.Lens' Certificate (Prelude.Maybe CertificateType)+certificate_type = Lens.lens (\Certificate' {type'} -> type') (\s@Certificate' {} a -> s {type' = a} :: Certificate)++instance Data.FromJSON Certificate where+  parseJSON =+    Data.withObject+      "Certificate"+      ( \x ->+          Certificate'+            Prelude.<$> (x Data..:? "CertificateId")+            Prelude.<*> (x Data..:? "ClientCertAuthSettings")+            Prelude.<*> (x Data..:? "CommonName")+            Prelude.<*> (x Data..:? "ExpiryDateTime")+            Prelude.<*> (x Data..:? "RegisteredDateTime")+            Prelude.<*> (x Data..:? "State")+            Prelude.<*> (x Data..:? "StateReason")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable Certificate where+  hashWithSalt _salt Certificate' {..} =+    _salt+      `Prelude.hashWithSalt` certificateId+      `Prelude.hashWithSalt` clientCertAuthSettings+      `Prelude.hashWithSalt` commonName+      `Prelude.hashWithSalt` expiryDateTime+      `Prelude.hashWithSalt` registeredDateTime+      `Prelude.hashWithSalt` state+      `Prelude.hashWithSalt` stateReason+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Certificate where+  rnf Certificate' {..} =+    Prelude.rnf certificateId+      `Prelude.seq` Prelude.rnf clientCertAuthSettings+      `Prelude.seq` Prelude.rnf commonName+      `Prelude.seq` Prelude.rnf expiryDateTime+      `Prelude.seq` Prelude.rnf registeredDateTime+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf stateReason+      `Prelude.seq` Prelude.rnf type'

+ gen/Amazonka/DirectoryService/Types/CertificateInfo.hs view

@@ -0,0 +1,128 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.CertificateInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.CertificateInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.CertificateState+import Amazonka.DirectoryService.Types.CertificateType+import qualified Amazonka.Prelude as Prelude++-- | Contains general information about a certificate.+--+-- /See:/ 'newCertificateInfo' smart constructor.+data CertificateInfo = CertificateInfo'+  { -- | The identifier of the certificate.+    certificateId :: Prelude.Maybe Prelude.Text,+    -- | The common name for the certificate.+    commonName :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the certificate will expire.+    expiryDateTime :: Prelude.Maybe Data.POSIX,+    -- | The state of the certificate.+    state :: Prelude.Maybe CertificateState,+    -- | The function that the registered certificate performs. Valid values+    -- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+    -- @ClientLDAPS@.+    type' :: Prelude.Maybe CertificateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'CertificateInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'certificateId', 'certificateInfo_certificateId' - The identifier of the certificate.+--+-- 'commonName', 'certificateInfo_commonName' - The common name for the certificate.+--+-- 'expiryDateTime', 'certificateInfo_expiryDateTime' - The date and time when the certificate will expire.+--+-- 'state', 'certificateInfo_state' - The state of the certificate.+--+-- 'type'', 'certificateInfo_type' - The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+newCertificateInfo ::+  CertificateInfo+newCertificateInfo =+  CertificateInfo'+    { certificateId = Prelude.Nothing,+      commonName = Prelude.Nothing,+      expiryDateTime = Prelude.Nothing,+      state = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The identifier of the certificate.+certificateInfo_certificateId :: Lens.Lens' CertificateInfo (Prelude.Maybe Prelude.Text)+certificateInfo_certificateId = Lens.lens (\CertificateInfo' {certificateId} -> certificateId) (\s@CertificateInfo' {} a -> s {certificateId = a} :: CertificateInfo)++-- | The common name for the certificate.+certificateInfo_commonName :: Lens.Lens' CertificateInfo (Prelude.Maybe Prelude.Text)+certificateInfo_commonName = Lens.lens (\CertificateInfo' {commonName} -> commonName) (\s@CertificateInfo' {} a -> s {commonName = a} :: CertificateInfo)++-- | The date and time when the certificate will expire.+certificateInfo_expiryDateTime :: Lens.Lens' CertificateInfo (Prelude.Maybe Prelude.UTCTime)+certificateInfo_expiryDateTime = Lens.lens (\CertificateInfo' {expiryDateTime} -> expiryDateTime) (\s@CertificateInfo' {} a -> s {expiryDateTime = a} :: CertificateInfo) Prelude.. Lens.mapping Data._Time++-- | The state of the certificate.+certificateInfo_state :: Lens.Lens' CertificateInfo (Prelude.Maybe CertificateState)+certificateInfo_state = Lens.lens (\CertificateInfo' {state} -> state) (\s@CertificateInfo' {} a -> s {state = a} :: CertificateInfo)++-- | The function that the registered certificate performs. Valid values+-- include @ClientLDAPS@ or @ClientCertAuth@. The default value is+-- @ClientLDAPS@.+certificateInfo_type :: Lens.Lens' CertificateInfo (Prelude.Maybe CertificateType)+certificateInfo_type = Lens.lens (\CertificateInfo' {type'} -> type') (\s@CertificateInfo' {} a -> s {type' = a} :: CertificateInfo)++instance Data.FromJSON CertificateInfo where+  parseJSON =+    Data.withObject+      "CertificateInfo"+      ( \x ->+          CertificateInfo'+            Prelude.<$> (x Data..:? "CertificateId")+            Prelude.<*> (x Data..:? "CommonName")+            Prelude.<*> (x Data..:? "ExpiryDateTime")+            Prelude.<*> (x Data..:? "State")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable CertificateInfo where+  hashWithSalt _salt CertificateInfo' {..} =+    _salt+      `Prelude.hashWithSalt` certificateId+      `Prelude.hashWithSalt` commonName+      `Prelude.hashWithSalt` expiryDateTime+      `Prelude.hashWithSalt` state+      `Prelude.hashWithSalt` type'++instance Prelude.NFData CertificateInfo where+  rnf CertificateInfo' {..} =+    Prelude.rnf certificateId+      `Prelude.seq` Prelude.rnf commonName+      `Prelude.seq` Prelude.rnf expiryDateTime+      `Prelude.seq` Prelude.rnf state+      `Prelude.seq` Prelude.rnf type'

+ gen/Amazonka/DirectoryService/Types/CertificateState.hs view

@@ -0,0 +1,91 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.CertificateState+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.CertificateState+  ( CertificateState+      ( ..,+        CertificateState_DeregisterFailed,+        CertificateState_Deregistered,+        CertificateState_Deregistering,+        CertificateState_RegisterFailed,+        CertificateState_Registered,+        CertificateState_Registering+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype CertificateState = CertificateState'+  { fromCertificateState ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern CertificateState_DeregisterFailed :: CertificateState+pattern CertificateState_DeregisterFailed = CertificateState' "DeregisterFailed"++pattern CertificateState_Deregistered :: CertificateState+pattern CertificateState_Deregistered = CertificateState' "Deregistered"++pattern CertificateState_Deregistering :: CertificateState+pattern CertificateState_Deregistering = CertificateState' "Deregistering"++pattern CertificateState_RegisterFailed :: CertificateState+pattern CertificateState_RegisterFailed = CertificateState' "RegisterFailed"++pattern CertificateState_Registered :: CertificateState+pattern CertificateState_Registered = CertificateState' "Registered"++pattern CertificateState_Registering :: CertificateState+pattern CertificateState_Registering = CertificateState' "Registering"++{-# COMPLETE+  CertificateState_DeregisterFailed,+  CertificateState_Deregistered,+  CertificateState_Deregistering,+  CertificateState_RegisterFailed,+  CertificateState_Registered,+  CertificateState_Registering,+  CertificateState'+  #-}

+ gen/Amazonka/DirectoryService/Types/CertificateType.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.CertificateType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.CertificateType+  ( CertificateType+      ( ..,+        CertificateType_ClientCertAuth,+        CertificateType_ClientLDAPS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype CertificateType = CertificateType'+  { fromCertificateType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern CertificateType_ClientCertAuth :: CertificateType+pattern CertificateType_ClientCertAuth = CertificateType' "ClientCertAuth"++pattern CertificateType_ClientLDAPS :: CertificateType+pattern CertificateType_ClientLDAPS = CertificateType' "ClientLDAPS"++{-# COMPLETE+  CertificateType_ClientCertAuth,+  CertificateType_ClientLDAPS,+  CertificateType'+  #-}

+ gen/Amazonka/DirectoryService/Types/ClientAuthenticationSettingInfo.hs view

@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ClientAuthenticationSettingInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.ClientAuthenticationStatus+import Amazonka.DirectoryService.Types.ClientAuthenticationType+import qualified Amazonka.Prelude as Prelude++-- | Contains information about a client authentication method for a+-- directory.+--+-- /See:/ 'newClientAuthenticationSettingInfo' smart constructor.+data ClientAuthenticationSettingInfo = ClientAuthenticationSettingInfo'+  { -- | The date and time when the status of the client authentication type was+    -- last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | Whether the client authentication type is enabled or disabled for the+    -- specified directory.+    status :: Prelude.Maybe ClientAuthenticationStatus,+    -- | The type of client authentication for the specified directory. If no+    -- type is specified, a list of all client authentication types that are+    -- supported for the directory is retrieved.+    type' :: Prelude.Maybe ClientAuthenticationType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClientAuthenticationSettingInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lastUpdatedDateTime', 'clientAuthenticationSettingInfo_lastUpdatedDateTime' - The date and time when the status of the client authentication type was+-- last updated.+--+-- 'status', 'clientAuthenticationSettingInfo_status' - Whether the client authentication type is enabled or disabled for the+-- specified directory.+--+-- 'type'', 'clientAuthenticationSettingInfo_type' - The type of client authentication for the specified directory. If no+-- type is specified, a list of all client authentication types that are+-- supported for the directory is retrieved.+newClientAuthenticationSettingInfo ::+  ClientAuthenticationSettingInfo+newClientAuthenticationSettingInfo =+  ClientAuthenticationSettingInfo'+    { lastUpdatedDateTime =+        Prelude.Nothing,+      status = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The date and time when the status of the client authentication type was+-- last updated.+clientAuthenticationSettingInfo_lastUpdatedDateTime :: Lens.Lens' ClientAuthenticationSettingInfo (Prelude.Maybe Prelude.UTCTime)+clientAuthenticationSettingInfo_lastUpdatedDateTime = Lens.lens (\ClientAuthenticationSettingInfo' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@ClientAuthenticationSettingInfo' {} a -> s {lastUpdatedDateTime = a} :: ClientAuthenticationSettingInfo) Prelude.. Lens.mapping Data._Time++-- | Whether the client authentication type is enabled or disabled for the+-- specified directory.+clientAuthenticationSettingInfo_status :: Lens.Lens' ClientAuthenticationSettingInfo (Prelude.Maybe ClientAuthenticationStatus)+clientAuthenticationSettingInfo_status = Lens.lens (\ClientAuthenticationSettingInfo' {status} -> status) (\s@ClientAuthenticationSettingInfo' {} a -> s {status = a} :: ClientAuthenticationSettingInfo)++-- | The type of client authentication for the specified directory. If no+-- type is specified, a list of all client authentication types that are+-- supported for the directory is retrieved.+clientAuthenticationSettingInfo_type :: Lens.Lens' ClientAuthenticationSettingInfo (Prelude.Maybe ClientAuthenticationType)+clientAuthenticationSettingInfo_type = Lens.lens (\ClientAuthenticationSettingInfo' {type'} -> type') (\s@ClientAuthenticationSettingInfo' {} a -> s {type' = a} :: ClientAuthenticationSettingInfo)++instance+  Data.FromJSON+    ClientAuthenticationSettingInfo+  where+  parseJSON =+    Data.withObject+      "ClientAuthenticationSettingInfo"+      ( \x ->+          ClientAuthenticationSettingInfo'+            Prelude.<$> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "Type")+      )++instance+  Prelude.Hashable+    ClientAuthenticationSettingInfo+  where+  hashWithSalt+    _salt+    ClientAuthenticationSettingInfo' {..} =+      _salt+        `Prelude.hashWithSalt` lastUpdatedDateTime+        `Prelude.hashWithSalt` status+        `Prelude.hashWithSalt` type'++instance+  Prelude.NFData+    ClientAuthenticationSettingInfo+  where+  rnf ClientAuthenticationSettingInfo' {..} =+    Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf type'

+ gen/Amazonka/DirectoryService/Types/ClientAuthenticationStatus.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ClientAuthenticationStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ClientAuthenticationStatus+  ( ClientAuthenticationStatus+      ( ..,+        ClientAuthenticationStatus_Disabled,+        ClientAuthenticationStatus_Enabled+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ClientAuthenticationStatus = ClientAuthenticationStatus'+  { fromClientAuthenticationStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ClientAuthenticationStatus_Disabled :: ClientAuthenticationStatus+pattern ClientAuthenticationStatus_Disabled = ClientAuthenticationStatus' "Disabled"++pattern ClientAuthenticationStatus_Enabled :: ClientAuthenticationStatus+pattern ClientAuthenticationStatus_Enabled = ClientAuthenticationStatus' "Enabled"++{-# COMPLETE+  ClientAuthenticationStatus_Disabled,+  ClientAuthenticationStatus_Enabled,+  ClientAuthenticationStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/ClientAuthenticationType.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ClientAuthenticationType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ClientAuthenticationType+  ( ClientAuthenticationType+      ( ..,+        ClientAuthenticationType_SmartCard,+        ClientAuthenticationType_SmartCardOrPassword+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ClientAuthenticationType = ClientAuthenticationType'+  { fromClientAuthenticationType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ClientAuthenticationType_SmartCard :: ClientAuthenticationType+pattern ClientAuthenticationType_SmartCard = ClientAuthenticationType' "SmartCard"++pattern ClientAuthenticationType_SmartCardOrPassword :: ClientAuthenticationType+pattern ClientAuthenticationType_SmartCardOrPassword = ClientAuthenticationType' "SmartCardOrPassword"++{-# COMPLETE+  ClientAuthenticationType_SmartCard,+  ClientAuthenticationType_SmartCardOrPassword,+  ClientAuthenticationType'+  #-}

+ gen/Amazonka/DirectoryService/Types/ClientCertAuthSettings.hs view

@@ -0,0 +1,83 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ClientCertAuthSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ClientCertAuthSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the client certificate authentication+-- settings for the @RegisterCertificate@ and @DescribeCertificate@+-- operations.+--+-- /See:/ 'newClientCertAuthSettings' smart constructor.+data ClientCertAuthSettings = ClientCertAuthSettings'+  { -- | Specifies the URL of the default OCSP server used to check for+    -- revocation status. A secondary value to any OCSP address found in the+    -- AIA extension of the user certificate.+    oCSPUrl :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ClientCertAuthSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'oCSPUrl', 'clientCertAuthSettings_oCSPUrl' - Specifies the URL of the default OCSP server used to check for+-- revocation status. A secondary value to any OCSP address found in the+-- AIA extension of the user certificate.+newClientCertAuthSettings ::+  ClientCertAuthSettings+newClientCertAuthSettings =+  ClientCertAuthSettings' {oCSPUrl = Prelude.Nothing}++-- | Specifies the URL of the default OCSP server used to check for+-- revocation status. A secondary value to any OCSP address found in the+-- AIA extension of the user certificate.+clientCertAuthSettings_oCSPUrl :: Lens.Lens' ClientCertAuthSettings (Prelude.Maybe Prelude.Text)+clientCertAuthSettings_oCSPUrl = Lens.lens (\ClientCertAuthSettings' {oCSPUrl} -> oCSPUrl) (\s@ClientCertAuthSettings' {} a -> s {oCSPUrl = a} :: ClientCertAuthSettings)++instance Data.FromJSON ClientCertAuthSettings where+  parseJSON =+    Data.withObject+      "ClientCertAuthSettings"+      ( \x ->+          ClientCertAuthSettings'+            Prelude.<$> (x Data..:? "OCSPUrl")+      )++instance Prelude.Hashable ClientCertAuthSettings where+  hashWithSalt _salt ClientCertAuthSettings' {..} =+    _salt `Prelude.hashWithSalt` oCSPUrl++instance Prelude.NFData ClientCertAuthSettings where+  rnf ClientCertAuthSettings' {..} = Prelude.rnf oCSPUrl++instance Data.ToJSON ClientCertAuthSettings where+  toJSON ClientCertAuthSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [("OCSPUrl" Data..=) Prelude.<$> oCSPUrl]+      )

+ gen/Amazonka/DirectoryService/Types/Computer.hs view

@@ -0,0 +1,103 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Computer+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Computer where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.Attribute+import qualified Amazonka.Prelude as Prelude++-- | Contains information about a computer account in a directory.+--+-- /See:/ 'newComputer' smart constructor.+data Computer = Computer'+  { -- | An array of Attribute objects containing the LDAP attributes that belong+    -- to the computer account.+    computerAttributes :: Prelude.Maybe [Attribute],+    -- | The identifier of the computer.+    computerId :: Prelude.Maybe Prelude.Text,+    -- | The computer name.+    computerName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Computer' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'computerAttributes', 'computer_computerAttributes' - An array of Attribute objects containing the LDAP attributes that belong+-- to the computer account.+--+-- 'computerId', 'computer_computerId' - The identifier of the computer.+--+-- 'computerName', 'computer_computerName' - The computer name.+newComputer ::+  Computer+newComputer =+  Computer'+    { computerAttributes = Prelude.Nothing,+      computerId = Prelude.Nothing,+      computerName = Prelude.Nothing+    }++-- | An array of Attribute objects containing the LDAP attributes that belong+-- to the computer account.+computer_computerAttributes :: Lens.Lens' Computer (Prelude.Maybe [Attribute])+computer_computerAttributes = Lens.lens (\Computer' {computerAttributes} -> computerAttributes) (\s@Computer' {} a -> s {computerAttributes = a} :: Computer) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the computer.+computer_computerId :: Lens.Lens' Computer (Prelude.Maybe Prelude.Text)+computer_computerId = Lens.lens (\Computer' {computerId} -> computerId) (\s@Computer' {} a -> s {computerId = a} :: Computer)++-- | The computer name.+computer_computerName :: Lens.Lens' Computer (Prelude.Maybe Prelude.Text)+computer_computerName = Lens.lens (\Computer' {computerName} -> computerName) (\s@Computer' {} a -> s {computerName = a} :: Computer)++instance Data.FromJSON Computer where+  parseJSON =+    Data.withObject+      "Computer"+      ( \x ->+          Computer'+            Prelude.<$> ( x+                            Data..:? "ComputerAttributes"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "ComputerId")+            Prelude.<*> (x Data..:? "ComputerName")+      )++instance Prelude.Hashable Computer where+  hashWithSalt _salt Computer' {..} =+    _salt+      `Prelude.hashWithSalt` computerAttributes+      `Prelude.hashWithSalt` computerId+      `Prelude.hashWithSalt` computerName++instance Prelude.NFData Computer where+  rnf Computer' {..} =+    Prelude.rnf computerAttributes+      `Prelude.seq` Prelude.rnf computerId+      `Prelude.seq` Prelude.rnf computerName

+ gen/Amazonka/DirectoryService/Types/ConditionalForwarder.hs view

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ConditionalForwarder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ConditionalForwarder where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.ReplicationScope+import qualified Amazonka.Prelude as Prelude++-- | Points to a remote domain with which you are setting up a trust+-- relationship. Conditional forwarders are required in order to set up a+-- trust relationship with another domain.+--+-- /See:/ 'newConditionalForwarder' smart constructor.+data ConditionalForwarder = ConditionalForwarder'+  { -- | The IP addresses of the remote DNS server associated with+    -- RemoteDomainName. This is the IP address of the DNS server that your+    -- conditional forwarder points to.+    dnsIpAddrs :: Prelude.Maybe [Prelude.Text],+    -- | The fully qualified domain name (FQDN) of the remote domains pointed to+    -- by the conditional forwarder.+    remoteDomainName :: Prelude.Maybe Prelude.Text,+    -- | The replication scope of the conditional forwarder. The only allowed+    -- value is @Domain@, which will replicate the conditional forwarder to all+    -- of the domain controllers for your Amazon Web Services directory.+    replicationScope :: Prelude.Maybe ReplicationScope+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ConditionalForwarder' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'dnsIpAddrs', 'conditionalForwarder_dnsIpAddrs' - The IP addresses of the remote DNS server associated with+-- RemoteDomainName. This is the IP address of the DNS server that your+-- conditional forwarder points to.+--+-- 'remoteDomainName', 'conditionalForwarder_remoteDomainName' - The fully qualified domain name (FQDN) of the remote domains pointed to+-- by the conditional forwarder.+--+-- 'replicationScope', 'conditionalForwarder_replicationScope' - The replication scope of the conditional forwarder. The only allowed+-- value is @Domain@, which will replicate the conditional forwarder to all+-- of the domain controllers for your Amazon Web Services directory.+newConditionalForwarder ::+  ConditionalForwarder+newConditionalForwarder =+  ConditionalForwarder'+    { dnsIpAddrs = Prelude.Nothing,+      remoteDomainName = Prelude.Nothing,+      replicationScope = Prelude.Nothing+    }++-- | The IP addresses of the remote DNS server associated with+-- RemoteDomainName. This is the IP address of the DNS server that your+-- conditional forwarder points to.+conditionalForwarder_dnsIpAddrs :: Lens.Lens' ConditionalForwarder (Prelude.Maybe [Prelude.Text])+conditionalForwarder_dnsIpAddrs = Lens.lens (\ConditionalForwarder' {dnsIpAddrs} -> dnsIpAddrs) (\s@ConditionalForwarder' {} a -> s {dnsIpAddrs = a} :: ConditionalForwarder) Prelude.. Lens.mapping Lens.coerced++-- | The fully qualified domain name (FQDN) of the remote domains pointed to+-- by the conditional forwarder.+conditionalForwarder_remoteDomainName :: Lens.Lens' ConditionalForwarder (Prelude.Maybe Prelude.Text)+conditionalForwarder_remoteDomainName = Lens.lens (\ConditionalForwarder' {remoteDomainName} -> remoteDomainName) (\s@ConditionalForwarder' {} a -> s {remoteDomainName = a} :: ConditionalForwarder)++-- | The replication scope of the conditional forwarder. The only allowed+-- value is @Domain@, which will replicate the conditional forwarder to all+-- of the domain controllers for your Amazon Web Services directory.+conditionalForwarder_replicationScope :: Lens.Lens' ConditionalForwarder (Prelude.Maybe ReplicationScope)+conditionalForwarder_replicationScope = Lens.lens (\ConditionalForwarder' {replicationScope} -> replicationScope) (\s@ConditionalForwarder' {} a -> s {replicationScope = a} :: ConditionalForwarder)++instance Data.FromJSON ConditionalForwarder where+  parseJSON =+    Data.withObject+      "ConditionalForwarder"+      ( \x ->+          ConditionalForwarder'+            Prelude.<$> (x Data..:? "DnsIpAddrs" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "RemoteDomainName")+            Prelude.<*> (x Data..:? "ReplicationScope")+      )++instance Prelude.Hashable ConditionalForwarder where+  hashWithSalt _salt ConditionalForwarder' {..} =+    _salt+      `Prelude.hashWithSalt` dnsIpAddrs+      `Prelude.hashWithSalt` remoteDomainName+      `Prelude.hashWithSalt` replicationScope++instance Prelude.NFData ConditionalForwarder where+  rnf ConditionalForwarder' {..} =+    Prelude.rnf dnsIpAddrs+      `Prelude.seq` Prelude.rnf remoteDomainName+      `Prelude.seq` Prelude.rnf replicationScope

+ gen/Amazonka/DirectoryService/Types/DirectoryConfigurationStatus.hs view

@@ -0,0 +1,86 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryConfigurationStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryConfigurationStatus+  ( DirectoryConfigurationStatus+      ( ..,+        DirectoryConfigurationStatus_Default,+        DirectoryConfigurationStatus_Failed,+        DirectoryConfigurationStatus_Requested,+        DirectoryConfigurationStatus_Updated,+        DirectoryConfigurationStatus_Updating+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DirectoryConfigurationStatus = DirectoryConfigurationStatus'+  { fromDirectoryConfigurationStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DirectoryConfigurationStatus_Default :: DirectoryConfigurationStatus+pattern DirectoryConfigurationStatus_Default = DirectoryConfigurationStatus' "Default"++pattern DirectoryConfigurationStatus_Failed :: DirectoryConfigurationStatus+pattern DirectoryConfigurationStatus_Failed = DirectoryConfigurationStatus' "Failed"++pattern DirectoryConfigurationStatus_Requested :: DirectoryConfigurationStatus+pattern DirectoryConfigurationStatus_Requested = DirectoryConfigurationStatus' "Requested"++pattern DirectoryConfigurationStatus_Updated :: DirectoryConfigurationStatus+pattern DirectoryConfigurationStatus_Updated = DirectoryConfigurationStatus' "Updated"++pattern DirectoryConfigurationStatus_Updating :: DirectoryConfigurationStatus+pattern DirectoryConfigurationStatus_Updating = DirectoryConfigurationStatus' "Updating"++{-# COMPLETE+  DirectoryConfigurationStatus_Default,+  DirectoryConfigurationStatus_Failed,+  DirectoryConfigurationStatus_Requested,+  DirectoryConfigurationStatus_Updated,+  DirectoryConfigurationStatus_Updating,+  DirectoryConfigurationStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/DirectoryConnectSettings.hs view

@@ -0,0 +1,146 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryConnectSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryConnectSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains information for the ConnectDirectory operation when an AD+-- Connector directory is being created.+--+-- /See:/ 'newDirectoryConnectSettings' smart constructor.+data DirectoryConnectSettings = DirectoryConnectSettings'+  { -- | The identifier of the VPC in which the AD Connector is created.+    vpcId :: Prelude.Text,+    -- | A list of subnet identifiers in the VPC in which the AD Connector is+    -- created.+    subnetIds :: [Prelude.Text],+    -- | A list of one or more IP addresses of DNS servers or domain controllers+    -- in your self-managed directory.+    customerDnsIps :: [Prelude.Text],+    -- | The user name of an account in your self-managed directory that is used+    -- to connect to the directory. This account must have the following+    -- permissions:+    --+    -- -   Read users and groups+    --+    -- -   Create computer objects+    --+    -- -   Join computers to the domain+    customerUserName :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryConnectSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpcId', 'directoryConnectSettings_vpcId' - The identifier of the VPC in which the AD Connector is created.+--+-- 'subnetIds', 'directoryConnectSettings_subnetIds' - A list of subnet identifiers in the VPC in which the AD Connector is+-- created.+--+-- 'customerDnsIps', 'directoryConnectSettings_customerDnsIps' - A list of one or more IP addresses of DNS servers or domain controllers+-- in your self-managed directory.+--+-- 'customerUserName', 'directoryConnectSettings_customerUserName' - The user name of an account in your self-managed directory that is used+-- to connect to the directory. This account must have the following+-- permissions:+--+-- -   Read users and groups+--+-- -   Create computer objects+--+-- -   Join computers to the domain+newDirectoryConnectSettings ::+  -- | 'vpcId'+  Prelude.Text ->+  -- | 'customerUserName'+  Prelude.Text ->+  DirectoryConnectSettings+newDirectoryConnectSettings+  pVpcId_+  pCustomerUserName_ =+    DirectoryConnectSettings'+      { vpcId = pVpcId_,+        subnetIds = Prelude.mempty,+        customerDnsIps = Prelude.mempty,+        customerUserName = pCustomerUserName_+      }++-- | The identifier of the VPC in which the AD Connector is created.+directoryConnectSettings_vpcId :: Lens.Lens' DirectoryConnectSettings Prelude.Text+directoryConnectSettings_vpcId = Lens.lens (\DirectoryConnectSettings' {vpcId} -> vpcId) (\s@DirectoryConnectSettings' {} a -> s {vpcId = a} :: DirectoryConnectSettings)++-- | A list of subnet identifiers in the VPC in which the AD Connector is+-- created.+directoryConnectSettings_subnetIds :: Lens.Lens' DirectoryConnectSettings [Prelude.Text]+directoryConnectSettings_subnetIds = Lens.lens (\DirectoryConnectSettings' {subnetIds} -> subnetIds) (\s@DirectoryConnectSettings' {} a -> s {subnetIds = a} :: DirectoryConnectSettings) Prelude.. Lens.coerced++-- | A list of one or more IP addresses of DNS servers or domain controllers+-- in your self-managed directory.+directoryConnectSettings_customerDnsIps :: Lens.Lens' DirectoryConnectSettings [Prelude.Text]+directoryConnectSettings_customerDnsIps = Lens.lens (\DirectoryConnectSettings' {customerDnsIps} -> customerDnsIps) (\s@DirectoryConnectSettings' {} a -> s {customerDnsIps = a} :: DirectoryConnectSettings) Prelude.. Lens.coerced++-- | The user name of an account in your self-managed directory that is used+-- to connect to the directory. This account must have the following+-- permissions:+--+-- -   Read users and groups+--+-- -   Create computer objects+--+-- -   Join computers to the domain+directoryConnectSettings_customerUserName :: Lens.Lens' DirectoryConnectSettings Prelude.Text+directoryConnectSettings_customerUserName = Lens.lens (\DirectoryConnectSettings' {customerUserName} -> customerUserName) (\s@DirectoryConnectSettings' {} a -> s {customerUserName = a} :: DirectoryConnectSettings)++instance Prelude.Hashable DirectoryConnectSettings where+  hashWithSalt _salt DirectoryConnectSettings' {..} =+    _salt+      `Prelude.hashWithSalt` vpcId+      `Prelude.hashWithSalt` subnetIds+      `Prelude.hashWithSalt` customerDnsIps+      `Prelude.hashWithSalt` customerUserName++instance Prelude.NFData DirectoryConnectSettings where+  rnf DirectoryConnectSettings' {..} =+    Prelude.rnf vpcId+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf customerDnsIps+      `Prelude.seq` Prelude.rnf customerUserName++instance Data.ToJSON DirectoryConnectSettings where+  toJSON DirectoryConnectSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("VpcId" Data..= vpcId),+            Prelude.Just ("SubnetIds" Data..= subnetIds),+            Prelude.Just+              ("CustomerDnsIps" Data..= customerDnsIps),+            Prelude.Just+              ("CustomerUserName" Data..= customerUserName)+          ]+      )

+ gen/Amazonka/DirectoryService/Types/DirectoryConnectSettingsDescription.hs view

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains information about an AD Connector directory.+--+-- /See:/ 'newDirectoryConnectSettingsDescription' smart constructor.+data DirectoryConnectSettingsDescription = DirectoryConnectSettingsDescription'+  { -- | A list of the Availability Zones that the directory is in.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The IP addresses of the AD Connector servers.+    connectIps :: Prelude.Maybe [Prelude.Text],+    -- | The user name of the service account in your self-managed directory.+    customerUserName :: Prelude.Maybe Prelude.Text,+    -- | The security group identifier for the AD Connector directory.+    securityGroupId :: Prelude.Maybe Prelude.Text,+    -- | A list of subnet identifiers in the VPC that the AD Connector is in.+    subnetIds :: Prelude.Maybe [Prelude.Text],+    -- | The identifier of the VPC that the AD Connector is in.+    vpcId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryConnectSettingsDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZones', 'directoryConnectSettingsDescription_availabilityZones' - A list of the Availability Zones that the directory is in.+--+-- 'connectIps', 'directoryConnectSettingsDescription_connectIps' - The IP addresses of the AD Connector servers.+--+-- 'customerUserName', 'directoryConnectSettingsDescription_customerUserName' - The user name of the service account in your self-managed directory.+--+-- 'securityGroupId', 'directoryConnectSettingsDescription_securityGroupId' - The security group identifier for the AD Connector directory.+--+-- 'subnetIds', 'directoryConnectSettingsDescription_subnetIds' - A list of subnet identifiers in the VPC that the AD Connector is in.+--+-- 'vpcId', 'directoryConnectSettingsDescription_vpcId' - The identifier of the VPC that the AD Connector is in.+newDirectoryConnectSettingsDescription ::+  DirectoryConnectSettingsDescription+newDirectoryConnectSettingsDescription =+  DirectoryConnectSettingsDescription'+    { availabilityZones =+        Prelude.Nothing,+      connectIps = Prelude.Nothing,+      customerUserName = Prelude.Nothing,+      securityGroupId = Prelude.Nothing,+      subnetIds = Prelude.Nothing,+      vpcId = Prelude.Nothing+    }++-- | A list of the Availability Zones that the directory is in.+directoryConnectSettingsDescription_availabilityZones :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe [Prelude.Text])+directoryConnectSettingsDescription_availabilityZones = Lens.lens (\DirectoryConnectSettingsDescription' {availabilityZones} -> availabilityZones) (\s@DirectoryConnectSettingsDescription' {} a -> s {availabilityZones = a} :: DirectoryConnectSettingsDescription) Prelude.. Lens.mapping Lens.coerced++-- | The IP addresses of the AD Connector servers.+directoryConnectSettingsDescription_connectIps :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe [Prelude.Text])+directoryConnectSettingsDescription_connectIps = Lens.lens (\DirectoryConnectSettingsDescription' {connectIps} -> connectIps) (\s@DirectoryConnectSettingsDescription' {} a -> s {connectIps = a} :: DirectoryConnectSettingsDescription) Prelude.. Lens.mapping Lens.coerced++-- | The user name of the service account in your self-managed directory.+directoryConnectSettingsDescription_customerUserName :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe Prelude.Text)+directoryConnectSettingsDescription_customerUserName = Lens.lens (\DirectoryConnectSettingsDescription' {customerUserName} -> customerUserName) (\s@DirectoryConnectSettingsDescription' {} a -> s {customerUserName = a} :: DirectoryConnectSettingsDescription)++-- | The security group identifier for the AD Connector directory.+directoryConnectSettingsDescription_securityGroupId :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe Prelude.Text)+directoryConnectSettingsDescription_securityGroupId = Lens.lens (\DirectoryConnectSettingsDescription' {securityGroupId} -> securityGroupId) (\s@DirectoryConnectSettingsDescription' {} a -> s {securityGroupId = a} :: DirectoryConnectSettingsDescription)++-- | A list of subnet identifiers in the VPC that the AD Connector is in.+directoryConnectSettingsDescription_subnetIds :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe [Prelude.Text])+directoryConnectSettingsDescription_subnetIds = Lens.lens (\DirectoryConnectSettingsDescription' {subnetIds} -> subnetIds) (\s@DirectoryConnectSettingsDescription' {} a -> s {subnetIds = a} :: DirectoryConnectSettingsDescription) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the VPC that the AD Connector is in.+directoryConnectSettingsDescription_vpcId :: Lens.Lens' DirectoryConnectSettingsDescription (Prelude.Maybe Prelude.Text)+directoryConnectSettingsDescription_vpcId = Lens.lens (\DirectoryConnectSettingsDescription' {vpcId} -> vpcId) (\s@DirectoryConnectSettingsDescription' {} a -> s {vpcId = a} :: DirectoryConnectSettingsDescription)++instance+  Data.FromJSON+    DirectoryConnectSettingsDescription+  where+  parseJSON =+    Data.withObject+      "DirectoryConnectSettingsDescription"+      ( \x ->+          DirectoryConnectSettingsDescription'+            Prelude.<$> ( x+                            Data..:? "AvailabilityZones"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "ConnectIps" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "CustomerUserName")+            Prelude.<*> (x Data..:? "SecurityGroupId")+            Prelude.<*> (x Data..:? "SubnetIds" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "VpcId")+      )++instance+  Prelude.Hashable+    DirectoryConnectSettingsDescription+  where+  hashWithSalt+    _salt+    DirectoryConnectSettingsDescription' {..} =+      _salt+        `Prelude.hashWithSalt` availabilityZones+        `Prelude.hashWithSalt` connectIps+        `Prelude.hashWithSalt` customerUserName+        `Prelude.hashWithSalt` securityGroupId+        `Prelude.hashWithSalt` subnetIds+        `Prelude.hashWithSalt` vpcId++instance+  Prelude.NFData+    DirectoryConnectSettingsDescription+  where+  rnf DirectoryConnectSettingsDescription' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf connectIps+      `Prelude.seq` Prelude.rnf customerUserName+      `Prelude.seq` Prelude.rnf securityGroupId+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf vpcId

+ gen/Amazonka/DirectoryService/Types/DirectoryDescription.hs view

@@ -0,0 +1,457 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryDescription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.DirectoryConnectSettingsDescription+import Amazonka.DirectoryService.Types.DirectoryEdition+import Amazonka.DirectoryService.Types.DirectorySize+import Amazonka.DirectoryService.Types.DirectoryStage+import Amazonka.DirectoryService.Types.DirectoryType+import Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+import Amazonka.DirectoryService.Types.OSVersion+import Amazonka.DirectoryService.Types.OwnerDirectoryDescription+import Amazonka.DirectoryService.Types.RadiusSettings+import Amazonka.DirectoryService.Types.RadiusStatus+import Amazonka.DirectoryService.Types.RegionsInfo+import Amazonka.DirectoryService.Types.ShareMethod+import Amazonka.DirectoryService.Types.ShareStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains information about an Directory Service directory.+--+-- /See:/ 'newDirectoryDescription' smart constructor.+data DirectoryDescription = DirectoryDescription'+  { -- | The access URL for the directory, such as+    -- @http:\/\/\<alias>.awsapps.com@. If no alias has been created for the+    -- directory, @\<alias>@ is the directory identifier, such as+    -- @d-XXXXXXXXXX@.+    accessUrl :: Prelude.Maybe Prelude.Text,+    -- | The alias for the directory. If no alias has been created for the+    -- directory, the alias is the directory identifier, such as+    -- @d-XXXXXXXXXX@.+    alias :: Prelude.Maybe Prelude.Text,+    -- | A DirectoryConnectSettingsDescription object that contains additional+    -- information about an AD Connector directory. This member is only present+    -- if the directory is an AD Connector directory.+    connectSettings :: Prelude.Maybe DirectoryConnectSettingsDescription,+    -- | The description for the directory.+    description :: Prelude.Maybe Prelude.Text,+    -- | The desired number of domain controllers in the directory if the+    -- directory is Microsoft AD.+    desiredNumberOfDomainControllers :: Prelude.Maybe Prelude.Natural,+    -- | The directory identifier.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The IP addresses of the DNS servers for the directory. For a Simple AD+    -- or Microsoft AD directory, these are the IP addresses of the Simple AD+    -- or Microsoft AD directory servers. For an AD Connector directory, these+    -- are the IP addresses of the DNS servers or domain controllers in your+    -- self-managed directory to which the AD Connector is connected.+    dnsIpAddrs :: Prelude.Maybe [Prelude.Text],+    -- | The edition associated with this directory.+    edition :: Prelude.Maybe DirectoryEdition,+    -- | Specifies when the directory was created.+    launchTime :: Prelude.Maybe Data.POSIX,+    -- | The fully qualified name of the directory.+    name :: Prelude.Maybe Prelude.Text,+    -- | The operating system (OS) version of the directory.+    osVersion :: Prelude.Maybe OSVersion,+    -- | Describes the Managed Microsoft AD directory in the directory owner+    -- account.+    ownerDirectoryDescription :: Prelude.Maybe OwnerDirectoryDescription,+    -- | A RadiusSettings object that contains information about the RADIUS+    -- server configured for this directory.+    radiusSettings :: Prelude.Maybe RadiusSettings,+    -- | The status of the RADIUS MFA server connection.+    radiusStatus :: Prelude.Maybe RadiusStatus,+    -- | Lists the Regions where the directory has replicated.+    regionsInfo :: Prelude.Maybe RegionsInfo,+    -- | The method used when sharing a directory to determine whether the+    -- directory should be shared within your Amazon Web Services organization+    -- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+    -- shared directory request (@HANDSHAKE@).+    shareMethod :: Prelude.Maybe ShareMethod,+    -- | A directory share request that is sent by the directory owner to the+    -- directory consumer. The request includes a typed message to help the+    -- directory consumer administrator determine whether to approve or reject+    -- the share invitation.+    shareNotes :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Current directory status of the shared Managed Microsoft AD directory.+    shareStatus :: Prelude.Maybe ShareStatus,+    -- | The short name of the directory.+    shortName :: Prelude.Maybe Prelude.Text,+    -- | The directory size.+    size :: Prelude.Maybe DirectorySize,+    -- | Indicates if single sign-on is enabled for the directory. For more+    -- information, see EnableSso and DisableSso.+    ssoEnabled :: Prelude.Maybe Prelude.Bool,+    -- | The current stage of the directory.+    stage :: Prelude.Maybe DirectoryStage,+    -- | The date and time that the stage was last updated.+    stageLastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | Additional information about the directory stage.+    stageReason :: Prelude.Maybe Prelude.Text,+    -- | The directory size.+    type' :: Prelude.Maybe DirectoryType,+    -- | A DirectoryVpcSettingsDescription object that contains additional+    -- information about a directory. This member is only present if the+    -- directory is a Simple AD or Managed Microsoft AD directory.+    vpcSettings :: Prelude.Maybe DirectoryVpcSettingsDescription+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accessUrl', 'directoryDescription_accessUrl' - The access URL for the directory, such as+-- @http:\/\/\<alias>.awsapps.com@. If no alias has been created for the+-- directory, @\<alias>@ is the directory identifier, such as+-- @d-XXXXXXXXXX@.+--+-- 'alias', 'directoryDescription_alias' - The alias for the directory. If no alias has been created for the+-- directory, the alias is the directory identifier, such as+-- @d-XXXXXXXXXX@.+--+-- 'connectSettings', 'directoryDescription_connectSettings' - A DirectoryConnectSettingsDescription object that contains additional+-- information about an AD Connector directory. This member is only present+-- if the directory is an AD Connector directory.+--+-- 'description', 'directoryDescription_description' - The description for the directory.+--+-- 'desiredNumberOfDomainControllers', 'directoryDescription_desiredNumberOfDomainControllers' - The desired number of domain controllers in the directory if the+-- directory is Microsoft AD.+--+-- 'directoryId', 'directoryDescription_directoryId' - The directory identifier.+--+-- 'dnsIpAddrs', 'directoryDescription_dnsIpAddrs' - The IP addresses of the DNS servers for the directory. For a Simple AD+-- or Microsoft AD directory, these are the IP addresses of the Simple AD+-- or Microsoft AD directory servers. For an AD Connector directory, these+-- are the IP addresses of the DNS servers or domain controllers in your+-- self-managed directory to which the AD Connector is connected.+--+-- 'edition', 'directoryDescription_edition' - The edition associated with this directory.+--+-- 'launchTime', 'directoryDescription_launchTime' - Specifies when the directory was created.+--+-- 'name', 'directoryDescription_name' - The fully qualified name of the directory.+--+-- 'osVersion', 'directoryDescription_osVersion' - The operating system (OS) version of the directory.+--+-- 'ownerDirectoryDescription', 'directoryDescription_ownerDirectoryDescription' - Describes the Managed Microsoft AD directory in the directory owner+-- account.+--+-- 'radiusSettings', 'directoryDescription_radiusSettings' - A RadiusSettings object that contains information about the RADIUS+-- server configured for this directory.+--+-- 'radiusStatus', 'directoryDescription_radiusStatus' - The status of the RADIUS MFA server connection.+--+-- 'regionsInfo', 'directoryDescription_regionsInfo' - Lists the Regions where the directory has replicated.+--+-- 'shareMethod', 'directoryDescription_shareMethod' - The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- shared directory request (@HANDSHAKE@).+--+-- 'shareNotes', 'directoryDescription_shareNotes' - A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+--+-- 'shareStatus', 'directoryDescription_shareStatus' - Current directory status of the shared Managed Microsoft AD directory.+--+-- 'shortName', 'directoryDescription_shortName' - The short name of the directory.+--+-- 'size', 'directoryDescription_size' - The directory size.+--+-- 'ssoEnabled', 'directoryDescription_ssoEnabled' - Indicates if single sign-on is enabled for the directory. For more+-- information, see EnableSso and DisableSso.+--+-- 'stage', 'directoryDescription_stage' - The current stage of the directory.+--+-- 'stageLastUpdatedDateTime', 'directoryDescription_stageLastUpdatedDateTime' - The date and time that the stage was last updated.+--+-- 'stageReason', 'directoryDescription_stageReason' - Additional information about the directory stage.+--+-- 'type'', 'directoryDescription_type' - The directory size.+--+-- 'vpcSettings', 'directoryDescription_vpcSettings' - A DirectoryVpcSettingsDescription object that contains additional+-- information about a directory. This member is only present if the+-- directory is a Simple AD or Managed Microsoft AD directory.+newDirectoryDescription ::+  DirectoryDescription+newDirectoryDescription =+  DirectoryDescription'+    { accessUrl = Prelude.Nothing,+      alias = Prelude.Nothing,+      connectSettings = Prelude.Nothing,+      description = Prelude.Nothing,+      desiredNumberOfDomainControllers = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      dnsIpAddrs = Prelude.Nothing,+      edition = Prelude.Nothing,+      launchTime = Prelude.Nothing,+      name = Prelude.Nothing,+      osVersion = Prelude.Nothing,+      ownerDirectoryDescription = Prelude.Nothing,+      radiusSettings = Prelude.Nothing,+      radiusStatus = Prelude.Nothing,+      regionsInfo = Prelude.Nothing,+      shareMethod = Prelude.Nothing,+      shareNotes = Prelude.Nothing,+      shareStatus = Prelude.Nothing,+      shortName = Prelude.Nothing,+      size = Prelude.Nothing,+      ssoEnabled = Prelude.Nothing,+      stage = Prelude.Nothing,+      stageLastUpdatedDateTime = Prelude.Nothing,+      stageReason = Prelude.Nothing,+      type' = Prelude.Nothing,+      vpcSettings = Prelude.Nothing+    }++-- | The access URL for the directory, such as+-- @http:\/\/\<alias>.awsapps.com@. If no alias has been created for the+-- directory, @\<alias>@ is the directory identifier, such as+-- @d-XXXXXXXXXX@.+directoryDescription_accessUrl :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_accessUrl = Lens.lens (\DirectoryDescription' {accessUrl} -> accessUrl) (\s@DirectoryDescription' {} a -> s {accessUrl = a} :: DirectoryDescription)++-- | The alias for the directory. If no alias has been created for the+-- directory, the alias is the directory identifier, such as+-- @d-XXXXXXXXXX@.+directoryDescription_alias :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_alias = Lens.lens (\DirectoryDescription' {alias} -> alias) (\s@DirectoryDescription' {} a -> s {alias = a} :: DirectoryDescription)++-- | A DirectoryConnectSettingsDescription object that contains additional+-- information about an AD Connector directory. This member is only present+-- if the directory is an AD Connector directory.+directoryDescription_connectSettings :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectoryConnectSettingsDescription)+directoryDescription_connectSettings = Lens.lens (\DirectoryDescription' {connectSettings} -> connectSettings) (\s@DirectoryDescription' {} a -> s {connectSettings = a} :: DirectoryDescription)++-- | The description for the directory.+directoryDescription_description :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_description = Lens.lens (\DirectoryDescription' {description} -> description) (\s@DirectoryDescription' {} a -> s {description = a} :: DirectoryDescription)++-- | The desired number of domain controllers in the directory if the+-- directory is Microsoft AD.+directoryDescription_desiredNumberOfDomainControllers :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Natural)+directoryDescription_desiredNumberOfDomainControllers = Lens.lens (\DirectoryDescription' {desiredNumberOfDomainControllers} -> desiredNumberOfDomainControllers) (\s@DirectoryDescription' {} a -> s {desiredNumberOfDomainControllers = a} :: DirectoryDescription)++-- | The directory identifier.+directoryDescription_directoryId :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_directoryId = Lens.lens (\DirectoryDescription' {directoryId} -> directoryId) (\s@DirectoryDescription' {} a -> s {directoryId = a} :: DirectoryDescription)++-- | The IP addresses of the DNS servers for the directory. For a Simple AD+-- or Microsoft AD directory, these are the IP addresses of the Simple AD+-- or Microsoft AD directory servers. For an AD Connector directory, these+-- are the IP addresses of the DNS servers or domain controllers in your+-- self-managed directory to which the AD Connector is connected.+directoryDescription_dnsIpAddrs :: Lens.Lens' DirectoryDescription (Prelude.Maybe [Prelude.Text])+directoryDescription_dnsIpAddrs = Lens.lens (\DirectoryDescription' {dnsIpAddrs} -> dnsIpAddrs) (\s@DirectoryDescription' {} a -> s {dnsIpAddrs = a} :: DirectoryDescription) Prelude.. Lens.mapping Lens.coerced++-- | The edition associated with this directory.+directoryDescription_edition :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectoryEdition)+directoryDescription_edition = Lens.lens (\DirectoryDescription' {edition} -> edition) (\s@DirectoryDescription' {} a -> s {edition = a} :: DirectoryDescription)++-- | Specifies when the directory was created.+directoryDescription_launchTime :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.UTCTime)+directoryDescription_launchTime = Lens.lens (\DirectoryDescription' {launchTime} -> launchTime) (\s@DirectoryDescription' {} a -> s {launchTime = a} :: DirectoryDescription) Prelude.. Lens.mapping Data._Time++-- | The fully qualified name of the directory.+directoryDescription_name :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_name = Lens.lens (\DirectoryDescription' {name} -> name) (\s@DirectoryDescription' {} a -> s {name = a} :: DirectoryDescription)++-- | The operating system (OS) version of the directory.+directoryDescription_osVersion :: Lens.Lens' DirectoryDescription (Prelude.Maybe OSVersion)+directoryDescription_osVersion = Lens.lens (\DirectoryDescription' {osVersion} -> osVersion) (\s@DirectoryDescription' {} a -> s {osVersion = a} :: DirectoryDescription)++-- | Describes the Managed Microsoft AD directory in the directory owner+-- account.+directoryDescription_ownerDirectoryDescription :: Lens.Lens' DirectoryDescription (Prelude.Maybe OwnerDirectoryDescription)+directoryDescription_ownerDirectoryDescription = Lens.lens (\DirectoryDescription' {ownerDirectoryDescription} -> ownerDirectoryDescription) (\s@DirectoryDescription' {} a -> s {ownerDirectoryDescription = a} :: DirectoryDescription)++-- | A RadiusSettings object that contains information about the RADIUS+-- server configured for this directory.+directoryDescription_radiusSettings :: Lens.Lens' DirectoryDescription (Prelude.Maybe RadiusSettings)+directoryDescription_radiusSettings = Lens.lens (\DirectoryDescription' {radiusSettings} -> radiusSettings) (\s@DirectoryDescription' {} a -> s {radiusSettings = a} :: DirectoryDescription)++-- | The status of the RADIUS MFA server connection.+directoryDescription_radiusStatus :: Lens.Lens' DirectoryDescription (Prelude.Maybe RadiusStatus)+directoryDescription_radiusStatus = Lens.lens (\DirectoryDescription' {radiusStatus} -> radiusStatus) (\s@DirectoryDescription' {} a -> s {radiusStatus = a} :: DirectoryDescription)++-- | Lists the Regions where the directory has replicated.+directoryDescription_regionsInfo :: Lens.Lens' DirectoryDescription (Prelude.Maybe RegionsInfo)+directoryDescription_regionsInfo = Lens.lens (\DirectoryDescription' {regionsInfo} -> regionsInfo) (\s@DirectoryDescription' {} a -> s {regionsInfo = a} :: DirectoryDescription)++-- | The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- shared directory request (@HANDSHAKE@).+directoryDescription_shareMethod :: Lens.Lens' DirectoryDescription (Prelude.Maybe ShareMethod)+directoryDescription_shareMethod = Lens.lens (\DirectoryDescription' {shareMethod} -> shareMethod) (\s@DirectoryDescription' {} a -> s {shareMethod = a} :: DirectoryDescription)++-- | A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+directoryDescription_shareNotes :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_shareNotes = Lens.lens (\DirectoryDescription' {shareNotes} -> shareNotes) (\s@DirectoryDescription' {} a -> s {shareNotes = a} :: DirectoryDescription) Prelude.. Lens.mapping Data._Sensitive++-- | Current directory status of the shared Managed Microsoft AD directory.+directoryDescription_shareStatus :: Lens.Lens' DirectoryDescription (Prelude.Maybe ShareStatus)+directoryDescription_shareStatus = Lens.lens (\DirectoryDescription' {shareStatus} -> shareStatus) (\s@DirectoryDescription' {} a -> s {shareStatus = a} :: DirectoryDescription)++-- | The short name of the directory.+directoryDescription_shortName :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_shortName = Lens.lens (\DirectoryDescription' {shortName} -> shortName) (\s@DirectoryDescription' {} a -> s {shortName = a} :: DirectoryDescription)++-- | The directory size.+directoryDescription_size :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectorySize)+directoryDescription_size = Lens.lens (\DirectoryDescription' {size} -> size) (\s@DirectoryDescription' {} a -> s {size = a} :: DirectoryDescription)++-- | Indicates if single sign-on is enabled for the directory. For more+-- information, see EnableSso and DisableSso.+directoryDescription_ssoEnabled :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Bool)+directoryDescription_ssoEnabled = Lens.lens (\DirectoryDescription' {ssoEnabled} -> ssoEnabled) (\s@DirectoryDescription' {} a -> s {ssoEnabled = a} :: DirectoryDescription)++-- | The current stage of the directory.+directoryDescription_stage :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectoryStage)+directoryDescription_stage = Lens.lens (\DirectoryDescription' {stage} -> stage) (\s@DirectoryDescription' {} a -> s {stage = a} :: DirectoryDescription)++-- | The date and time that the stage was last updated.+directoryDescription_stageLastUpdatedDateTime :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.UTCTime)+directoryDescription_stageLastUpdatedDateTime = Lens.lens (\DirectoryDescription' {stageLastUpdatedDateTime} -> stageLastUpdatedDateTime) (\s@DirectoryDescription' {} a -> s {stageLastUpdatedDateTime = a} :: DirectoryDescription) Prelude.. Lens.mapping Data._Time++-- | Additional information about the directory stage.+directoryDescription_stageReason :: Lens.Lens' DirectoryDescription (Prelude.Maybe Prelude.Text)+directoryDescription_stageReason = Lens.lens (\DirectoryDescription' {stageReason} -> stageReason) (\s@DirectoryDescription' {} a -> s {stageReason = a} :: DirectoryDescription)++-- | The directory size.+directoryDescription_type :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectoryType)+directoryDescription_type = Lens.lens (\DirectoryDescription' {type'} -> type') (\s@DirectoryDescription' {} a -> s {type' = a} :: DirectoryDescription)++-- | A DirectoryVpcSettingsDescription object that contains additional+-- information about a directory. This member is only present if the+-- directory is a Simple AD or Managed Microsoft AD directory.+directoryDescription_vpcSettings :: Lens.Lens' DirectoryDescription (Prelude.Maybe DirectoryVpcSettingsDescription)+directoryDescription_vpcSettings = Lens.lens (\DirectoryDescription' {vpcSettings} -> vpcSettings) (\s@DirectoryDescription' {} a -> s {vpcSettings = a} :: DirectoryDescription)++instance Data.FromJSON DirectoryDescription where+  parseJSON =+    Data.withObject+      "DirectoryDescription"+      ( \x ->+          DirectoryDescription'+            Prelude.<$> (x Data..:? "AccessUrl")+            Prelude.<*> (x Data..:? "Alias")+            Prelude.<*> (x Data..:? "ConnectSettings")+            Prelude.<*> (x Data..:? "Description")+            Prelude.<*> (x Data..:? "DesiredNumberOfDomainControllers")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "DnsIpAddrs" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "Edition")+            Prelude.<*> (x Data..:? "LaunchTime")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "OsVersion")+            Prelude.<*> (x Data..:? "OwnerDirectoryDescription")+            Prelude.<*> (x Data..:? "RadiusSettings")+            Prelude.<*> (x Data..:? "RadiusStatus")+            Prelude.<*> (x Data..:? "RegionsInfo")+            Prelude.<*> (x Data..:? "ShareMethod")+            Prelude.<*> (x Data..:? "ShareNotes")+            Prelude.<*> (x Data..:? "ShareStatus")+            Prelude.<*> (x Data..:? "ShortName")+            Prelude.<*> (x Data..:? "Size")+            Prelude.<*> (x Data..:? "SsoEnabled")+            Prelude.<*> (x Data..:? "Stage")+            Prelude.<*> (x Data..:? "StageLastUpdatedDateTime")+            Prelude.<*> (x Data..:? "StageReason")+            Prelude.<*> (x Data..:? "Type")+            Prelude.<*> (x Data..:? "VpcSettings")+      )++instance Prelude.Hashable DirectoryDescription where+  hashWithSalt _salt DirectoryDescription' {..} =+    _salt+      `Prelude.hashWithSalt` accessUrl+      `Prelude.hashWithSalt` alias+      `Prelude.hashWithSalt` connectSettings+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` desiredNumberOfDomainControllers+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` dnsIpAddrs+      `Prelude.hashWithSalt` edition+      `Prelude.hashWithSalt` launchTime+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` osVersion+      `Prelude.hashWithSalt` ownerDirectoryDescription+      `Prelude.hashWithSalt` radiusSettings+      `Prelude.hashWithSalt` radiusStatus+      `Prelude.hashWithSalt` regionsInfo+      `Prelude.hashWithSalt` shareMethod+      `Prelude.hashWithSalt` shareNotes+      `Prelude.hashWithSalt` shareStatus+      `Prelude.hashWithSalt` shortName+      `Prelude.hashWithSalt` size+      `Prelude.hashWithSalt` ssoEnabled+      `Prelude.hashWithSalt` stage+      `Prelude.hashWithSalt` stageLastUpdatedDateTime+      `Prelude.hashWithSalt` stageReason+      `Prelude.hashWithSalt` type'+      `Prelude.hashWithSalt` vpcSettings++instance Prelude.NFData DirectoryDescription where+  rnf DirectoryDescription' {..} =+    Prelude.rnf accessUrl+      `Prelude.seq` Prelude.rnf alias+      `Prelude.seq` Prelude.rnf connectSettings+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf desiredNumberOfDomainControllers+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf dnsIpAddrs+      `Prelude.seq` Prelude.rnf edition+      `Prelude.seq` Prelude.rnf launchTime+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf osVersion+      `Prelude.seq` Prelude.rnf ownerDirectoryDescription+      `Prelude.seq` Prelude.rnf radiusSettings+      `Prelude.seq` Prelude.rnf radiusStatus+      `Prelude.seq` Prelude.rnf regionsInfo+      `Prelude.seq` Prelude.rnf shareMethod+      `Prelude.seq` Prelude.rnf shareNotes+      `Prelude.seq` Prelude.rnf shareStatus+      `Prelude.seq` Prelude.rnf shortName+      `Prelude.seq` Prelude.rnf size+      `Prelude.seq` Prelude.rnf ssoEnabled+      `Prelude.seq` Prelude.rnf stage+      `Prelude.seq` Prelude.rnf+        stageLastUpdatedDateTime+      `Prelude.seq` Prelude.rnf+        stageReason+      `Prelude.seq` Prelude.rnf type'+      `Prelude.seq` Prelude.rnf+        vpcSettings

+ gen/Amazonka/DirectoryService/Types/DirectoryEdition.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryEdition+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryEdition+  ( DirectoryEdition+      ( ..,+        DirectoryEdition_Enterprise,+        DirectoryEdition_Standard+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DirectoryEdition = DirectoryEdition'+  { fromDirectoryEdition ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DirectoryEdition_Enterprise :: DirectoryEdition+pattern DirectoryEdition_Enterprise = DirectoryEdition' "Enterprise"++pattern DirectoryEdition_Standard :: DirectoryEdition+pattern DirectoryEdition_Standard = DirectoryEdition' "Standard"++{-# COMPLETE+  DirectoryEdition_Enterprise,+  DirectoryEdition_Standard,+  DirectoryEdition'+  #-}

+ gen/Amazonka/DirectoryService/Types/DirectoryLimits.hs view

@@ -0,0 +1,172 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryLimits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryLimits where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains directory limit information for a Region.+--+-- /See:/ 'newDirectoryLimits' smart constructor.+data DirectoryLimits = DirectoryLimits'+  { -- | The current number of cloud directories in the Region.+    cloudOnlyDirectoriesCurrentCount :: Prelude.Maybe Prelude.Natural,+    -- | The maximum number of cloud directories allowed in the Region.+    cloudOnlyDirectoriesLimit :: Prelude.Maybe Prelude.Natural,+    -- | Indicates if the cloud directory limit has been reached.+    cloudOnlyDirectoriesLimitReached :: Prelude.Maybe Prelude.Bool,+    -- | The current number of Managed Microsoft AD directories in the region.+    cloudOnlyMicrosoftADCurrentCount :: Prelude.Maybe Prelude.Natural,+    -- | The maximum number of Managed Microsoft AD directories allowed in the+    -- region.+    cloudOnlyMicrosoftADLimit :: Prelude.Maybe Prelude.Natural,+    -- | Indicates if the Managed Microsoft AD directory limit has been reached.+    cloudOnlyMicrosoftADLimitReached :: Prelude.Maybe Prelude.Bool,+    -- | The current number of connected directories in the Region.+    connectedDirectoriesCurrentCount :: Prelude.Maybe Prelude.Natural,+    -- | The maximum number of connected directories allowed in the Region.+    connectedDirectoriesLimit :: Prelude.Maybe Prelude.Natural,+    -- | Indicates if the connected directory limit has been reached.+    connectedDirectoriesLimitReached :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cloudOnlyDirectoriesCurrentCount', 'directoryLimits_cloudOnlyDirectoriesCurrentCount' - The current number of cloud directories in the Region.+--+-- 'cloudOnlyDirectoriesLimit', 'directoryLimits_cloudOnlyDirectoriesLimit' - The maximum number of cloud directories allowed in the Region.+--+-- 'cloudOnlyDirectoriesLimitReached', 'directoryLimits_cloudOnlyDirectoriesLimitReached' - Indicates if the cloud directory limit has been reached.+--+-- 'cloudOnlyMicrosoftADCurrentCount', 'directoryLimits_cloudOnlyMicrosoftADCurrentCount' - The current number of Managed Microsoft AD directories in the region.+--+-- 'cloudOnlyMicrosoftADLimit', 'directoryLimits_cloudOnlyMicrosoftADLimit' - The maximum number of Managed Microsoft AD directories allowed in the+-- region.+--+-- 'cloudOnlyMicrosoftADLimitReached', 'directoryLimits_cloudOnlyMicrosoftADLimitReached' - Indicates if the Managed Microsoft AD directory limit has been reached.+--+-- 'connectedDirectoriesCurrentCount', 'directoryLimits_connectedDirectoriesCurrentCount' - The current number of connected directories in the Region.+--+-- 'connectedDirectoriesLimit', 'directoryLimits_connectedDirectoriesLimit' - The maximum number of connected directories allowed in the Region.+--+-- 'connectedDirectoriesLimitReached', 'directoryLimits_connectedDirectoriesLimitReached' - Indicates if the connected directory limit has been reached.+newDirectoryLimits ::+  DirectoryLimits+newDirectoryLimits =+  DirectoryLimits'+    { cloudOnlyDirectoriesCurrentCount =+        Prelude.Nothing,+      cloudOnlyDirectoriesLimit = Prelude.Nothing,+      cloudOnlyDirectoriesLimitReached = Prelude.Nothing,+      cloudOnlyMicrosoftADCurrentCount = Prelude.Nothing,+      cloudOnlyMicrosoftADLimit = Prelude.Nothing,+      cloudOnlyMicrosoftADLimitReached = Prelude.Nothing,+      connectedDirectoriesCurrentCount = Prelude.Nothing,+      connectedDirectoriesLimit = Prelude.Nothing,+      connectedDirectoriesLimitReached = Prelude.Nothing+    }++-- | The current number of cloud directories in the Region.+directoryLimits_cloudOnlyDirectoriesCurrentCount :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_cloudOnlyDirectoriesCurrentCount = Lens.lens (\DirectoryLimits' {cloudOnlyDirectoriesCurrentCount} -> cloudOnlyDirectoriesCurrentCount) (\s@DirectoryLimits' {} a -> s {cloudOnlyDirectoriesCurrentCount = a} :: DirectoryLimits)++-- | The maximum number of cloud directories allowed in the Region.+directoryLimits_cloudOnlyDirectoriesLimit :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_cloudOnlyDirectoriesLimit = Lens.lens (\DirectoryLimits' {cloudOnlyDirectoriesLimit} -> cloudOnlyDirectoriesLimit) (\s@DirectoryLimits' {} a -> s {cloudOnlyDirectoriesLimit = a} :: DirectoryLimits)++-- | Indicates if the cloud directory limit has been reached.+directoryLimits_cloudOnlyDirectoriesLimitReached :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Bool)+directoryLimits_cloudOnlyDirectoriesLimitReached = Lens.lens (\DirectoryLimits' {cloudOnlyDirectoriesLimitReached} -> cloudOnlyDirectoriesLimitReached) (\s@DirectoryLimits' {} a -> s {cloudOnlyDirectoriesLimitReached = a} :: DirectoryLimits)++-- | The current number of Managed Microsoft AD directories in the region.+directoryLimits_cloudOnlyMicrosoftADCurrentCount :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_cloudOnlyMicrosoftADCurrentCount = Lens.lens (\DirectoryLimits' {cloudOnlyMicrosoftADCurrentCount} -> cloudOnlyMicrosoftADCurrentCount) (\s@DirectoryLimits' {} a -> s {cloudOnlyMicrosoftADCurrentCount = a} :: DirectoryLimits)++-- | The maximum number of Managed Microsoft AD directories allowed in the+-- region.+directoryLimits_cloudOnlyMicrosoftADLimit :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_cloudOnlyMicrosoftADLimit = Lens.lens (\DirectoryLimits' {cloudOnlyMicrosoftADLimit} -> cloudOnlyMicrosoftADLimit) (\s@DirectoryLimits' {} a -> s {cloudOnlyMicrosoftADLimit = a} :: DirectoryLimits)++-- | Indicates if the Managed Microsoft AD directory limit has been reached.+directoryLimits_cloudOnlyMicrosoftADLimitReached :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Bool)+directoryLimits_cloudOnlyMicrosoftADLimitReached = Lens.lens (\DirectoryLimits' {cloudOnlyMicrosoftADLimitReached} -> cloudOnlyMicrosoftADLimitReached) (\s@DirectoryLimits' {} a -> s {cloudOnlyMicrosoftADLimitReached = a} :: DirectoryLimits)++-- | The current number of connected directories in the Region.+directoryLimits_connectedDirectoriesCurrentCount :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_connectedDirectoriesCurrentCount = Lens.lens (\DirectoryLimits' {connectedDirectoriesCurrentCount} -> connectedDirectoriesCurrentCount) (\s@DirectoryLimits' {} a -> s {connectedDirectoriesCurrentCount = a} :: DirectoryLimits)++-- | The maximum number of connected directories allowed in the Region.+directoryLimits_connectedDirectoriesLimit :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Natural)+directoryLimits_connectedDirectoriesLimit = Lens.lens (\DirectoryLimits' {connectedDirectoriesLimit} -> connectedDirectoriesLimit) (\s@DirectoryLimits' {} a -> s {connectedDirectoriesLimit = a} :: DirectoryLimits)++-- | Indicates if the connected directory limit has been reached.+directoryLimits_connectedDirectoriesLimitReached :: Lens.Lens' DirectoryLimits (Prelude.Maybe Prelude.Bool)+directoryLimits_connectedDirectoriesLimitReached = Lens.lens (\DirectoryLimits' {connectedDirectoriesLimitReached} -> connectedDirectoriesLimitReached) (\s@DirectoryLimits' {} a -> s {connectedDirectoriesLimitReached = a} :: DirectoryLimits)++instance Data.FromJSON DirectoryLimits where+  parseJSON =+    Data.withObject+      "DirectoryLimits"+      ( \x ->+          DirectoryLimits'+            Prelude.<$> (x Data..:? "CloudOnlyDirectoriesCurrentCount")+            Prelude.<*> (x Data..:? "CloudOnlyDirectoriesLimit")+            Prelude.<*> (x Data..:? "CloudOnlyDirectoriesLimitReached")+            Prelude.<*> (x Data..:? "CloudOnlyMicrosoftADCurrentCount")+            Prelude.<*> (x Data..:? "CloudOnlyMicrosoftADLimit")+            Prelude.<*> (x Data..:? "CloudOnlyMicrosoftADLimitReached")+            Prelude.<*> (x Data..:? "ConnectedDirectoriesCurrentCount")+            Prelude.<*> (x Data..:? "ConnectedDirectoriesLimit")+            Prelude.<*> (x Data..:? "ConnectedDirectoriesLimitReached")+      )++instance Prelude.Hashable DirectoryLimits where+  hashWithSalt _salt DirectoryLimits' {..} =+    _salt+      `Prelude.hashWithSalt` cloudOnlyDirectoriesCurrentCount+      `Prelude.hashWithSalt` cloudOnlyDirectoriesLimit+      `Prelude.hashWithSalt` cloudOnlyDirectoriesLimitReached+      `Prelude.hashWithSalt` cloudOnlyMicrosoftADCurrentCount+      `Prelude.hashWithSalt` cloudOnlyMicrosoftADLimit+      `Prelude.hashWithSalt` cloudOnlyMicrosoftADLimitReached+      `Prelude.hashWithSalt` connectedDirectoriesCurrentCount+      `Prelude.hashWithSalt` connectedDirectoriesLimit+      `Prelude.hashWithSalt` connectedDirectoriesLimitReached++instance Prelude.NFData DirectoryLimits where+  rnf DirectoryLimits' {..} =+    Prelude.rnf cloudOnlyDirectoriesCurrentCount+      `Prelude.seq` Prelude.rnf cloudOnlyDirectoriesLimit+      `Prelude.seq` Prelude.rnf cloudOnlyDirectoriesLimitReached+      `Prelude.seq` Prelude.rnf cloudOnlyMicrosoftADCurrentCount+      `Prelude.seq` Prelude.rnf cloudOnlyMicrosoftADLimit+      `Prelude.seq` Prelude.rnf cloudOnlyMicrosoftADLimitReached+      `Prelude.seq` Prelude.rnf connectedDirectoriesCurrentCount+      `Prelude.seq` Prelude.rnf connectedDirectoriesLimit+      `Prelude.seq` Prelude.rnf connectedDirectoriesLimitReached

+ gen/Amazonka/DirectoryService/Types/DirectorySize.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectorySize+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectorySize+  ( DirectorySize+      ( ..,+        DirectorySize_Large,+        DirectorySize_Small+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DirectorySize = DirectorySize'+  { fromDirectorySize ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DirectorySize_Large :: DirectorySize+pattern DirectorySize_Large = DirectorySize' "Large"++pattern DirectorySize_Small :: DirectorySize+pattern DirectorySize_Small = DirectorySize' "Small"++{-# COMPLETE+  DirectorySize_Large,+  DirectorySize_Small,+  DirectorySize'+  #-}

+ gen/Amazonka/DirectoryService/Types/DirectoryStage.hs view

@@ -0,0 +1,116 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryStage+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryStage+  ( DirectoryStage+      ( ..,+        DirectoryStage_Active,+        DirectoryStage_Created,+        DirectoryStage_Creating,+        DirectoryStage_Deleted,+        DirectoryStage_Deleting,+        DirectoryStage_Failed,+        DirectoryStage_Impaired,+        DirectoryStage_Inoperable,+        DirectoryStage_Requested,+        DirectoryStage_RestoreFailed,+        DirectoryStage_Restoring+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DirectoryStage = DirectoryStage'+  { fromDirectoryStage ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DirectoryStage_Active :: DirectoryStage+pattern DirectoryStage_Active = DirectoryStage' "Active"++pattern DirectoryStage_Created :: DirectoryStage+pattern DirectoryStage_Created = DirectoryStage' "Created"++pattern DirectoryStage_Creating :: DirectoryStage+pattern DirectoryStage_Creating = DirectoryStage' "Creating"++pattern DirectoryStage_Deleted :: DirectoryStage+pattern DirectoryStage_Deleted = DirectoryStage' "Deleted"++pattern DirectoryStage_Deleting :: DirectoryStage+pattern DirectoryStage_Deleting = DirectoryStage' "Deleting"++pattern DirectoryStage_Failed :: DirectoryStage+pattern DirectoryStage_Failed = DirectoryStage' "Failed"++pattern DirectoryStage_Impaired :: DirectoryStage+pattern DirectoryStage_Impaired = DirectoryStage' "Impaired"++pattern DirectoryStage_Inoperable :: DirectoryStage+pattern DirectoryStage_Inoperable = DirectoryStage' "Inoperable"++pattern DirectoryStage_Requested :: DirectoryStage+pattern DirectoryStage_Requested = DirectoryStage' "Requested"++pattern DirectoryStage_RestoreFailed :: DirectoryStage+pattern DirectoryStage_RestoreFailed = DirectoryStage' "RestoreFailed"++pattern DirectoryStage_Restoring :: DirectoryStage+pattern DirectoryStage_Restoring = DirectoryStage' "Restoring"++{-# COMPLETE+  DirectoryStage_Active,+  DirectoryStage_Created,+  DirectoryStage_Creating,+  DirectoryStage_Deleted,+  DirectoryStage_Deleting,+  DirectoryStage_Failed,+  DirectoryStage_Impaired,+  DirectoryStage_Inoperable,+  DirectoryStage_Requested,+  DirectoryStage_RestoreFailed,+  DirectoryStage_Restoring,+  DirectoryStage'+  #-}

+ gen/Amazonka/DirectoryService/Types/DirectoryType.hs view

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryType+  ( DirectoryType+      ( ..,+        DirectoryType_ADConnector,+        DirectoryType_MicrosoftAD,+        DirectoryType_SharedMicrosoftAD,+        DirectoryType_SimpleAD+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DirectoryType = DirectoryType'+  { fromDirectoryType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DirectoryType_ADConnector :: DirectoryType+pattern DirectoryType_ADConnector = DirectoryType' "ADConnector"++pattern DirectoryType_MicrosoftAD :: DirectoryType+pattern DirectoryType_MicrosoftAD = DirectoryType' "MicrosoftAD"++pattern DirectoryType_SharedMicrosoftAD :: DirectoryType+pattern DirectoryType_SharedMicrosoftAD = DirectoryType' "SharedMicrosoftAD"++pattern DirectoryType_SimpleAD :: DirectoryType+pattern DirectoryType_SimpleAD = DirectoryType' "SimpleAD"++{-# COMPLETE+  DirectoryType_ADConnector,+  DirectoryType_MicrosoftAD,+  DirectoryType_SharedMicrosoftAD,+  DirectoryType_SimpleAD,+  DirectoryType'+  #-}

+ gen/Amazonka/DirectoryService/Types/DirectoryVpcSettings.hs view

@@ -0,0 +1,102 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryVpcSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryVpcSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains VPC information for the CreateDirectory or CreateMicrosoftAD+-- operation.+--+-- /See:/ 'newDirectoryVpcSettings' smart constructor.+data DirectoryVpcSettings = DirectoryVpcSettings'+  { -- | The identifier of the VPC in which to create the directory.+    vpcId :: Prelude.Text,+    -- | The identifiers of the subnets for the directory servers. The two+    -- subnets must be in different Availability Zones. Directory Service+    -- creates a directory server and a DNS server in each of these subnets.+    subnetIds :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryVpcSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'vpcId', 'directoryVpcSettings_vpcId' - The identifier of the VPC in which to create the directory.+--+-- 'subnetIds', 'directoryVpcSettings_subnetIds' - The identifiers of the subnets for the directory servers. The two+-- subnets must be in different Availability Zones. Directory Service+-- creates a directory server and a DNS server in each of these subnets.+newDirectoryVpcSettings ::+  -- | 'vpcId'+  Prelude.Text ->+  DirectoryVpcSettings+newDirectoryVpcSettings pVpcId_ =+  DirectoryVpcSettings'+    { vpcId = pVpcId_,+      subnetIds = Prelude.mempty+    }++-- | The identifier of the VPC in which to create the directory.+directoryVpcSettings_vpcId :: Lens.Lens' DirectoryVpcSettings Prelude.Text+directoryVpcSettings_vpcId = Lens.lens (\DirectoryVpcSettings' {vpcId} -> vpcId) (\s@DirectoryVpcSettings' {} a -> s {vpcId = a} :: DirectoryVpcSettings)++-- | The identifiers of the subnets for the directory servers. The two+-- subnets must be in different Availability Zones. Directory Service+-- creates a directory server and a DNS server in each of these subnets.+directoryVpcSettings_subnetIds :: Lens.Lens' DirectoryVpcSettings [Prelude.Text]+directoryVpcSettings_subnetIds = Lens.lens (\DirectoryVpcSettings' {subnetIds} -> subnetIds) (\s@DirectoryVpcSettings' {} a -> s {subnetIds = a} :: DirectoryVpcSettings) Prelude.. Lens.coerced++instance Data.FromJSON DirectoryVpcSettings where+  parseJSON =+    Data.withObject+      "DirectoryVpcSettings"+      ( \x ->+          DirectoryVpcSettings'+            Prelude.<$> (x Data..: "VpcId")+            Prelude.<*> (x Data..:? "SubnetIds" Data..!= Prelude.mempty)+      )++instance Prelude.Hashable DirectoryVpcSettings where+  hashWithSalt _salt DirectoryVpcSettings' {..} =+    _salt+      `Prelude.hashWithSalt` vpcId+      `Prelude.hashWithSalt` subnetIds++instance Prelude.NFData DirectoryVpcSettings where+  rnf DirectoryVpcSettings' {..} =+    Prelude.rnf vpcId+      `Prelude.seq` Prelude.rnf subnetIds++instance Data.ToJSON DirectoryVpcSettings where+  toJSON DirectoryVpcSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("VpcId" Data..= vpcId),+            Prelude.Just ("SubnetIds" Data..= subnetIds)+          ]+      )

+ gen/Amazonka/DirectoryService/Types/DirectoryVpcSettingsDescription.hs view

@@ -0,0 +1,123 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the directory.+--+-- /See:/ 'newDirectoryVpcSettingsDescription' smart constructor.+data DirectoryVpcSettingsDescription = DirectoryVpcSettingsDescription'+  { -- | The list of Availability Zones that the directory is in.+    availabilityZones :: Prelude.Maybe [Prelude.Text],+    -- | The domain controller security group identifier for the directory.+    securityGroupId :: Prelude.Maybe Prelude.Text,+    -- | The identifiers of the subnets for the directory servers.+    subnetIds :: Prelude.Maybe [Prelude.Text],+    -- | The identifier of the VPC that the directory is in.+    vpcId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DirectoryVpcSettingsDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZones', 'directoryVpcSettingsDescription_availabilityZones' - The list of Availability Zones that the directory is in.+--+-- 'securityGroupId', 'directoryVpcSettingsDescription_securityGroupId' - The domain controller security group identifier for the directory.+--+-- 'subnetIds', 'directoryVpcSettingsDescription_subnetIds' - The identifiers of the subnets for the directory servers.+--+-- 'vpcId', 'directoryVpcSettingsDescription_vpcId' - The identifier of the VPC that the directory is in.+newDirectoryVpcSettingsDescription ::+  DirectoryVpcSettingsDescription+newDirectoryVpcSettingsDescription =+  DirectoryVpcSettingsDescription'+    { availabilityZones =+        Prelude.Nothing,+      securityGroupId = Prelude.Nothing,+      subnetIds = Prelude.Nothing,+      vpcId = Prelude.Nothing+    }++-- | The list of Availability Zones that the directory is in.+directoryVpcSettingsDescription_availabilityZones :: Lens.Lens' DirectoryVpcSettingsDescription (Prelude.Maybe [Prelude.Text])+directoryVpcSettingsDescription_availabilityZones = Lens.lens (\DirectoryVpcSettingsDescription' {availabilityZones} -> availabilityZones) (\s@DirectoryVpcSettingsDescription' {} a -> s {availabilityZones = a} :: DirectoryVpcSettingsDescription) Prelude.. Lens.mapping Lens.coerced++-- | The domain controller security group identifier for the directory.+directoryVpcSettingsDescription_securityGroupId :: Lens.Lens' DirectoryVpcSettingsDescription (Prelude.Maybe Prelude.Text)+directoryVpcSettingsDescription_securityGroupId = Lens.lens (\DirectoryVpcSettingsDescription' {securityGroupId} -> securityGroupId) (\s@DirectoryVpcSettingsDescription' {} a -> s {securityGroupId = a} :: DirectoryVpcSettingsDescription)++-- | The identifiers of the subnets for the directory servers.+directoryVpcSettingsDescription_subnetIds :: Lens.Lens' DirectoryVpcSettingsDescription (Prelude.Maybe [Prelude.Text])+directoryVpcSettingsDescription_subnetIds = Lens.lens (\DirectoryVpcSettingsDescription' {subnetIds} -> subnetIds) (\s@DirectoryVpcSettingsDescription' {} a -> s {subnetIds = a} :: DirectoryVpcSettingsDescription) Prelude.. Lens.mapping Lens.coerced++-- | The identifier of the VPC that the directory is in.+directoryVpcSettingsDescription_vpcId :: Lens.Lens' DirectoryVpcSettingsDescription (Prelude.Maybe Prelude.Text)+directoryVpcSettingsDescription_vpcId = Lens.lens (\DirectoryVpcSettingsDescription' {vpcId} -> vpcId) (\s@DirectoryVpcSettingsDescription' {} a -> s {vpcId = a} :: DirectoryVpcSettingsDescription)++instance+  Data.FromJSON+    DirectoryVpcSettingsDescription+  where+  parseJSON =+    Data.withObject+      "DirectoryVpcSettingsDescription"+      ( \x ->+          DirectoryVpcSettingsDescription'+            Prelude.<$> ( x+                            Data..:? "AvailabilityZones"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "SecurityGroupId")+            Prelude.<*> (x Data..:? "SubnetIds" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "VpcId")+      )++instance+  Prelude.Hashable+    DirectoryVpcSettingsDescription+  where+  hashWithSalt+    _salt+    DirectoryVpcSettingsDescription' {..} =+      _salt+        `Prelude.hashWithSalt` availabilityZones+        `Prelude.hashWithSalt` securityGroupId+        `Prelude.hashWithSalt` subnetIds+        `Prelude.hashWithSalt` vpcId++instance+  Prelude.NFData+    DirectoryVpcSettingsDescription+  where+  rnf DirectoryVpcSettingsDescription' {..} =+    Prelude.rnf availabilityZones+      `Prelude.seq` Prelude.rnf securityGroupId+      `Prelude.seq` Prelude.rnf subnetIds+      `Prelude.seq` Prelude.rnf vpcId

+ gen/Amazonka/DirectoryService/Types/DomainController.hs view

@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DomainController+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DomainController where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.DomainControllerStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the domain controllers for a specified+-- directory.+--+-- /See:/ 'newDomainController' smart constructor.+data DomainController = DomainController'+  { -- | The Availability Zone where the domain controller is located.+    availabilityZone :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the directory where the domain controller resides.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The IP address of the domain controller.+    dnsIpAddr :: Prelude.Maybe Prelude.Text,+    -- | Identifies a specific domain controller in the directory.+    domainControllerId :: Prelude.Maybe Prelude.Text,+    -- | Specifies when the domain controller was created.+    launchTime :: Prelude.Maybe Data.POSIX,+    -- | The status of the domain controller.+    status :: Prelude.Maybe DomainControllerStatus,+    -- | The date and time that the status was last updated.+    statusLastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | A description of the domain controller state.+    statusReason :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the subnet in the VPC that contains the domain controller.+    subnetId :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the VPC that contains the domain controller.+    vpcId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'DomainController' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'availabilityZone', 'domainController_availabilityZone' - The Availability Zone where the domain controller is located.+--+-- 'directoryId', 'domainController_directoryId' - Identifier of the directory where the domain controller resides.+--+-- 'dnsIpAddr', 'domainController_dnsIpAddr' - The IP address of the domain controller.+--+-- 'domainControllerId', 'domainController_domainControllerId' - Identifies a specific domain controller in the directory.+--+-- 'launchTime', 'domainController_launchTime' - Specifies when the domain controller was created.+--+-- 'status', 'domainController_status' - The status of the domain controller.+--+-- 'statusLastUpdatedDateTime', 'domainController_statusLastUpdatedDateTime' - The date and time that the status was last updated.+--+-- 'statusReason', 'domainController_statusReason' - A description of the domain controller state.+--+-- 'subnetId', 'domainController_subnetId' - Identifier of the subnet in the VPC that contains the domain controller.+--+-- 'vpcId', 'domainController_vpcId' - The identifier of the VPC that contains the domain controller.+newDomainController ::+  DomainController+newDomainController =+  DomainController'+    { availabilityZone =+        Prelude.Nothing,+      directoryId = Prelude.Nothing,+      dnsIpAddr = Prelude.Nothing,+      domainControllerId = Prelude.Nothing,+      launchTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusLastUpdatedDateTime = Prelude.Nothing,+      statusReason = Prelude.Nothing,+      subnetId = Prelude.Nothing,+      vpcId = Prelude.Nothing+    }++-- | The Availability Zone where the domain controller is located.+domainController_availabilityZone :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_availabilityZone = Lens.lens (\DomainController' {availabilityZone} -> availabilityZone) (\s@DomainController' {} a -> s {availabilityZone = a} :: DomainController)++-- | Identifier of the directory where the domain controller resides.+domainController_directoryId :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_directoryId = Lens.lens (\DomainController' {directoryId} -> directoryId) (\s@DomainController' {} a -> s {directoryId = a} :: DomainController)++-- | The IP address of the domain controller.+domainController_dnsIpAddr :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_dnsIpAddr = Lens.lens (\DomainController' {dnsIpAddr} -> dnsIpAddr) (\s@DomainController' {} a -> s {dnsIpAddr = a} :: DomainController)++-- | Identifies a specific domain controller in the directory.+domainController_domainControllerId :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_domainControllerId = Lens.lens (\DomainController' {domainControllerId} -> domainControllerId) (\s@DomainController' {} a -> s {domainControllerId = a} :: DomainController)++-- | Specifies when the domain controller was created.+domainController_launchTime :: Lens.Lens' DomainController (Prelude.Maybe Prelude.UTCTime)+domainController_launchTime = Lens.lens (\DomainController' {launchTime} -> launchTime) (\s@DomainController' {} a -> s {launchTime = a} :: DomainController) Prelude.. Lens.mapping Data._Time++-- | The status of the domain controller.+domainController_status :: Lens.Lens' DomainController (Prelude.Maybe DomainControllerStatus)+domainController_status = Lens.lens (\DomainController' {status} -> status) (\s@DomainController' {} a -> s {status = a} :: DomainController)++-- | The date and time that the status was last updated.+domainController_statusLastUpdatedDateTime :: Lens.Lens' DomainController (Prelude.Maybe Prelude.UTCTime)+domainController_statusLastUpdatedDateTime = Lens.lens (\DomainController' {statusLastUpdatedDateTime} -> statusLastUpdatedDateTime) (\s@DomainController' {} a -> s {statusLastUpdatedDateTime = a} :: DomainController) Prelude.. Lens.mapping Data._Time++-- | A description of the domain controller state.+domainController_statusReason :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_statusReason = Lens.lens (\DomainController' {statusReason} -> statusReason) (\s@DomainController' {} a -> s {statusReason = a} :: DomainController)++-- | Identifier of the subnet in the VPC that contains the domain controller.+domainController_subnetId :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_subnetId = Lens.lens (\DomainController' {subnetId} -> subnetId) (\s@DomainController' {} a -> s {subnetId = a} :: DomainController)++-- | The identifier of the VPC that contains the domain controller.+domainController_vpcId :: Lens.Lens' DomainController (Prelude.Maybe Prelude.Text)+domainController_vpcId = Lens.lens (\DomainController' {vpcId} -> vpcId) (\s@DomainController' {} a -> s {vpcId = a} :: DomainController)++instance Data.FromJSON DomainController where+  parseJSON =+    Data.withObject+      "DomainController"+      ( \x ->+          DomainController'+            Prelude.<$> (x Data..:? "AvailabilityZone")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "DnsIpAddr")+            Prelude.<*> (x Data..:? "DomainControllerId")+            Prelude.<*> (x Data..:? "LaunchTime")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "StatusLastUpdatedDateTime")+            Prelude.<*> (x Data..:? "StatusReason")+            Prelude.<*> (x Data..:? "SubnetId")+            Prelude.<*> (x Data..:? "VpcId")+      )++instance Prelude.Hashable DomainController where+  hashWithSalt _salt DomainController' {..} =+    _salt+      `Prelude.hashWithSalt` availabilityZone+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` dnsIpAddr+      `Prelude.hashWithSalt` domainControllerId+      `Prelude.hashWithSalt` launchTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusLastUpdatedDateTime+      `Prelude.hashWithSalt` statusReason+      `Prelude.hashWithSalt` subnetId+      `Prelude.hashWithSalt` vpcId++instance Prelude.NFData DomainController where+  rnf DomainController' {..} =+    Prelude.rnf availabilityZone+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf dnsIpAddr+      `Prelude.seq` Prelude.rnf domainControllerId+      `Prelude.seq` Prelude.rnf launchTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusLastUpdatedDateTime+      `Prelude.seq` Prelude.rnf statusReason+      `Prelude.seq` Prelude.rnf subnetId+      `Prelude.seq` Prelude.rnf vpcId

+ gen/Amazonka/DirectoryService/Types/DomainControllerStatus.hs view

@@ -0,0 +1,96 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.DomainControllerStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.DomainControllerStatus+  ( DomainControllerStatus+      ( ..,+        DomainControllerStatus_Active,+        DomainControllerStatus_Creating,+        DomainControllerStatus_Deleted,+        DomainControllerStatus_Deleting,+        DomainControllerStatus_Failed,+        DomainControllerStatus_Impaired,+        DomainControllerStatus_Restoring+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype DomainControllerStatus = DomainControllerStatus'+  { fromDomainControllerStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern DomainControllerStatus_Active :: DomainControllerStatus+pattern DomainControllerStatus_Active = DomainControllerStatus' "Active"++pattern DomainControllerStatus_Creating :: DomainControllerStatus+pattern DomainControllerStatus_Creating = DomainControllerStatus' "Creating"++pattern DomainControllerStatus_Deleted :: DomainControllerStatus+pattern DomainControllerStatus_Deleted = DomainControllerStatus' "Deleted"++pattern DomainControllerStatus_Deleting :: DomainControllerStatus+pattern DomainControllerStatus_Deleting = DomainControllerStatus' "Deleting"++pattern DomainControllerStatus_Failed :: DomainControllerStatus+pattern DomainControllerStatus_Failed = DomainControllerStatus' "Failed"++pattern DomainControllerStatus_Impaired :: DomainControllerStatus+pattern DomainControllerStatus_Impaired = DomainControllerStatus' "Impaired"++pattern DomainControllerStatus_Restoring :: DomainControllerStatus+pattern DomainControllerStatus_Restoring = DomainControllerStatus' "Restoring"++{-# COMPLETE+  DomainControllerStatus_Active,+  DomainControllerStatus_Creating,+  DomainControllerStatus_Deleted,+  DomainControllerStatus_Deleting,+  DomainControllerStatus_Failed,+  DomainControllerStatus_Impaired,+  DomainControllerStatus_Restoring,+  DomainControllerStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/EventTopic.hs view

@@ -0,0 +1,131 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.EventTopic+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.EventTopic where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.TopicStatus+import qualified Amazonka.Prelude as Prelude++-- | Information about Amazon SNS topic and Directory Service directory+-- associations.+--+-- /See:/ 'newEventTopic' smart constructor.+data EventTopic = EventTopic'+  { -- | The date and time of when you associated your directory with the Amazon+    -- SNS topic.+    createdDateTime :: Prelude.Maybe Data.POSIX,+    -- | The Directory ID of an Directory Service directory that will publish+    -- status messages to an Amazon SNS topic.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The topic registration status.+    status :: Prelude.Maybe TopicStatus,+    -- | The Amazon SNS topic ARN (Amazon Resource Name).+    topicArn :: Prelude.Maybe Prelude.Text,+    -- | The name of an Amazon SNS topic the receives status messages from the+    -- directory.+    topicName :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'EventTopic' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdDateTime', 'eventTopic_createdDateTime' - The date and time of when you associated your directory with the Amazon+-- SNS topic.+--+-- 'directoryId', 'eventTopic_directoryId' - The Directory ID of an Directory Service directory that will publish+-- status messages to an Amazon SNS topic.+--+-- 'status', 'eventTopic_status' - The topic registration status.+--+-- 'topicArn', 'eventTopic_topicArn' - The Amazon SNS topic ARN (Amazon Resource Name).+--+-- 'topicName', 'eventTopic_topicName' - The name of an Amazon SNS topic the receives status messages from the+-- directory.+newEventTopic ::+  EventTopic+newEventTopic =+  EventTopic'+    { createdDateTime = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      status = Prelude.Nothing,+      topicArn = Prelude.Nothing,+      topicName = Prelude.Nothing+    }++-- | The date and time of when you associated your directory with the Amazon+-- SNS topic.+eventTopic_createdDateTime :: Lens.Lens' EventTopic (Prelude.Maybe Prelude.UTCTime)+eventTopic_createdDateTime = Lens.lens (\EventTopic' {createdDateTime} -> createdDateTime) (\s@EventTopic' {} a -> s {createdDateTime = a} :: EventTopic) Prelude.. Lens.mapping Data._Time++-- | The Directory ID of an Directory Service directory that will publish+-- status messages to an Amazon SNS topic.+eventTopic_directoryId :: Lens.Lens' EventTopic (Prelude.Maybe Prelude.Text)+eventTopic_directoryId = Lens.lens (\EventTopic' {directoryId} -> directoryId) (\s@EventTopic' {} a -> s {directoryId = a} :: EventTopic)++-- | The topic registration status.+eventTopic_status :: Lens.Lens' EventTopic (Prelude.Maybe TopicStatus)+eventTopic_status = Lens.lens (\EventTopic' {status} -> status) (\s@EventTopic' {} a -> s {status = a} :: EventTopic)++-- | The Amazon SNS topic ARN (Amazon Resource Name).+eventTopic_topicArn :: Lens.Lens' EventTopic (Prelude.Maybe Prelude.Text)+eventTopic_topicArn = Lens.lens (\EventTopic' {topicArn} -> topicArn) (\s@EventTopic' {} a -> s {topicArn = a} :: EventTopic)++-- | The name of an Amazon SNS topic the receives status messages from the+-- directory.+eventTopic_topicName :: Lens.Lens' EventTopic (Prelude.Maybe Prelude.Text)+eventTopic_topicName = Lens.lens (\EventTopic' {topicName} -> topicName) (\s@EventTopic' {} a -> s {topicName = a} :: EventTopic)++instance Data.FromJSON EventTopic where+  parseJSON =+    Data.withObject+      "EventTopic"+      ( \x ->+          EventTopic'+            Prelude.<$> (x Data..:? "CreatedDateTime")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "TopicArn")+            Prelude.<*> (x Data..:? "TopicName")+      )++instance Prelude.Hashable EventTopic where+  hashWithSalt _salt EventTopic' {..} =+    _salt+      `Prelude.hashWithSalt` createdDateTime+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` topicArn+      `Prelude.hashWithSalt` topicName++instance Prelude.NFData EventTopic where+  rnf EventTopic' {..} =+    Prelude.rnf createdDateTime+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf topicArn+      `Prelude.seq` Prelude.rnf topicName

+ gen/Amazonka/DirectoryService/Types/IpRoute.hs view

@@ -0,0 +1,93 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.IpRoute+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.IpRoute where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | IP address block. This is often the address block of the DNS server used+-- for your self-managed domain.+--+-- /See:/ 'newIpRoute' smart constructor.+data IpRoute = IpRoute'+  { -- | IP address block using CIDR format, for example 10.0.0.0\/24. This is+    -- often the address block of the DNS server used for your self-managed+    -- domain. For a single IP address use a CIDR address block with \/32. For+    -- example 10.0.0.0\/32.+    cidrIp :: Prelude.Maybe Prelude.Text,+    -- | Description of the address block.+    description :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IpRoute' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'cidrIp', 'ipRoute_cidrIp' - IP address block using CIDR format, for example 10.0.0.0\/24. This is+-- often the address block of the DNS server used for your self-managed+-- domain. For a single IP address use a CIDR address block with \/32. For+-- example 10.0.0.0\/32.+--+-- 'description', 'ipRoute_description' - Description of the address block.+newIpRoute ::+  IpRoute+newIpRoute =+  IpRoute'+    { cidrIp = Prelude.Nothing,+      description = Prelude.Nothing+    }++-- | IP address block using CIDR format, for example 10.0.0.0\/24. This is+-- often the address block of the DNS server used for your self-managed+-- domain. For a single IP address use a CIDR address block with \/32. For+-- example 10.0.0.0\/32.+ipRoute_cidrIp :: Lens.Lens' IpRoute (Prelude.Maybe Prelude.Text)+ipRoute_cidrIp = Lens.lens (\IpRoute' {cidrIp} -> cidrIp) (\s@IpRoute' {} a -> s {cidrIp = a} :: IpRoute)++-- | Description of the address block.+ipRoute_description :: Lens.Lens' IpRoute (Prelude.Maybe Prelude.Text)+ipRoute_description = Lens.lens (\IpRoute' {description} -> description) (\s@IpRoute' {} a -> s {description = a} :: IpRoute)++instance Prelude.Hashable IpRoute where+  hashWithSalt _salt IpRoute' {..} =+    _salt+      `Prelude.hashWithSalt` cidrIp+      `Prelude.hashWithSalt` description++instance Prelude.NFData IpRoute where+  rnf IpRoute' {..} =+    Prelude.rnf cidrIp+      `Prelude.seq` Prelude.rnf description++instance Data.ToJSON IpRoute where+  toJSON IpRoute' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CidrIp" Data..=) Prelude.<$> cidrIp,+            ("Description" Data..=) Prelude.<$> description+          ]+      )

+ gen/Amazonka/DirectoryService/Types/IpRouteInfo.hs view

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.IpRouteInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.IpRouteInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.IpRouteStatusMsg+import qualified Amazonka.Prelude as Prelude++-- | Information about one or more IP address blocks.+--+-- /See:/ 'newIpRouteInfo' smart constructor.+data IpRouteInfo = IpRouteInfo'+  { -- | The date and time the address block was added to the directory.+    addedDateTime :: Prelude.Maybe Data.POSIX,+    -- | IP address block in the IpRoute.+    cidrIp :: Prelude.Maybe Prelude.Text,+    -- | Description of the IpRouteInfo.+    description :: Prelude.Maybe Prelude.Text,+    -- | Identifier (ID) of the directory associated with the IP addresses.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The status of the IP address block.+    ipRouteStatusMsg :: Prelude.Maybe IpRouteStatusMsg,+    -- | The reason for the IpRouteStatusMsg.+    ipRouteStatusReason :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'IpRouteInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'addedDateTime', 'ipRouteInfo_addedDateTime' - The date and time the address block was added to the directory.+--+-- 'cidrIp', 'ipRouteInfo_cidrIp' - IP address block in the IpRoute.+--+-- 'description', 'ipRouteInfo_description' - Description of the IpRouteInfo.+--+-- 'directoryId', 'ipRouteInfo_directoryId' - Identifier (ID) of the directory associated with the IP addresses.+--+-- 'ipRouteStatusMsg', 'ipRouteInfo_ipRouteStatusMsg' - The status of the IP address block.+--+-- 'ipRouteStatusReason', 'ipRouteInfo_ipRouteStatusReason' - The reason for the IpRouteStatusMsg.+newIpRouteInfo ::+  IpRouteInfo+newIpRouteInfo =+  IpRouteInfo'+    { addedDateTime = Prelude.Nothing,+      cidrIp = Prelude.Nothing,+      description = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      ipRouteStatusMsg = Prelude.Nothing,+      ipRouteStatusReason = Prelude.Nothing+    }++-- | The date and time the address block was added to the directory.+ipRouteInfo_addedDateTime :: Lens.Lens' IpRouteInfo (Prelude.Maybe Prelude.UTCTime)+ipRouteInfo_addedDateTime = Lens.lens (\IpRouteInfo' {addedDateTime} -> addedDateTime) (\s@IpRouteInfo' {} a -> s {addedDateTime = a} :: IpRouteInfo) Prelude.. Lens.mapping Data._Time++-- | IP address block in the IpRoute.+ipRouteInfo_cidrIp :: Lens.Lens' IpRouteInfo (Prelude.Maybe Prelude.Text)+ipRouteInfo_cidrIp = Lens.lens (\IpRouteInfo' {cidrIp} -> cidrIp) (\s@IpRouteInfo' {} a -> s {cidrIp = a} :: IpRouteInfo)++-- | Description of the IpRouteInfo.+ipRouteInfo_description :: Lens.Lens' IpRouteInfo (Prelude.Maybe Prelude.Text)+ipRouteInfo_description = Lens.lens (\IpRouteInfo' {description} -> description) (\s@IpRouteInfo' {} a -> s {description = a} :: IpRouteInfo)++-- | Identifier (ID) of the directory associated with the IP addresses.+ipRouteInfo_directoryId :: Lens.Lens' IpRouteInfo (Prelude.Maybe Prelude.Text)+ipRouteInfo_directoryId = Lens.lens (\IpRouteInfo' {directoryId} -> directoryId) (\s@IpRouteInfo' {} a -> s {directoryId = a} :: IpRouteInfo)++-- | The status of the IP address block.+ipRouteInfo_ipRouteStatusMsg :: Lens.Lens' IpRouteInfo (Prelude.Maybe IpRouteStatusMsg)+ipRouteInfo_ipRouteStatusMsg = Lens.lens (\IpRouteInfo' {ipRouteStatusMsg} -> ipRouteStatusMsg) (\s@IpRouteInfo' {} a -> s {ipRouteStatusMsg = a} :: IpRouteInfo)++-- | The reason for the IpRouteStatusMsg.+ipRouteInfo_ipRouteStatusReason :: Lens.Lens' IpRouteInfo (Prelude.Maybe Prelude.Text)+ipRouteInfo_ipRouteStatusReason = Lens.lens (\IpRouteInfo' {ipRouteStatusReason} -> ipRouteStatusReason) (\s@IpRouteInfo' {} a -> s {ipRouteStatusReason = a} :: IpRouteInfo)++instance Data.FromJSON IpRouteInfo where+  parseJSON =+    Data.withObject+      "IpRouteInfo"+      ( \x ->+          IpRouteInfo'+            Prelude.<$> (x Data..:? "AddedDateTime")+            Prelude.<*> (x Data..:? "CidrIp")+            Prelude.<*> (x Data..:? "Description")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "IpRouteStatusMsg")+            Prelude.<*> (x Data..:? "IpRouteStatusReason")+      )++instance Prelude.Hashable IpRouteInfo where+  hashWithSalt _salt IpRouteInfo' {..} =+    _salt+      `Prelude.hashWithSalt` addedDateTime+      `Prelude.hashWithSalt` cidrIp+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` ipRouteStatusMsg+      `Prelude.hashWithSalt` ipRouteStatusReason++instance Prelude.NFData IpRouteInfo where+  rnf IpRouteInfo' {..} =+    Prelude.rnf addedDateTime+      `Prelude.seq` Prelude.rnf cidrIp+      `Prelude.seq` Prelude.rnf description+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf ipRouteStatusMsg+      `Prelude.seq` Prelude.rnf ipRouteStatusReason

+ gen/Amazonka/DirectoryService/Types/IpRouteStatusMsg.hs view

@@ -0,0 +1,91 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.IpRouteStatusMsg+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.IpRouteStatusMsg+  ( IpRouteStatusMsg+      ( ..,+        IpRouteStatusMsg_AddFailed,+        IpRouteStatusMsg_Added,+        IpRouteStatusMsg_Adding,+        IpRouteStatusMsg_RemoveFailed,+        IpRouteStatusMsg_Removed,+        IpRouteStatusMsg_Removing+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype IpRouteStatusMsg = IpRouteStatusMsg'+  { fromIpRouteStatusMsg ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern IpRouteStatusMsg_AddFailed :: IpRouteStatusMsg+pattern IpRouteStatusMsg_AddFailed = IpRouteStatusMsg' "AddFailed"++pattern IpRouteStatusMsg_Added :: IpRouteStatusMsg+pattern IpRouteStatusMsg_Added = IpRouteStatusMsg' "Added"++pattern IpRouteStatusMsg_Adding :: IpRouteStatusMsg+pattern IpRouteStatusMsg_Adding = IpRouteStatusMsg' "Adding"++pattern IpRouteStatusMsg_RemoveFailed :: IpRouteStatusMsg+pattern IpRouteStatusMsg_RemoveFailed = IpRouteStatusMsg' "RemoveFailed"++pattern IpRouteStatusMsg_Removed :: IpRouteStatusMsg+pattern IpRouteStatusMsg_Removed = IpRouteStatusMsg' "Removed"++pattern IpRouteStatusMsg_Removing :: IpRouteStatusMsg+pattern IpRouteStatusMsg_Removing = IpRouteStatusMsg' "Removing"++{-# COMPLETE+  IpRouteStatusMsg_AddFailed,+  IpRouteStatusMsg_Added,+  IpRouteStatusMsg_Adding,+  IpRouteStatusMsg_RemoveFailed,+  IpRouteStatusMsg_Removed,+  IpRouteStatusMsg_Removing,+  IpRouteStatusMsg'+  #-}

+ gen/Amazonka/DirectoryService/Types/LDAPSSettingInfo.hs view

@@ -0,0 +1,97 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.LDAPSSettingInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.LDAPSSettingInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.LDAPSStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains general information about the LDAPS settings.+--+-- /See:/ 'newLDAPSSettingInfo' smart constructor.+data LDAPSSettingInfo = LDAPSSettingInfo'+  { -- | The state of the LDAPS settings.+    lDAPSStatus :: Prelude.Maybe LDAPSStatus,+    -- | Describes a state change for LDAPS.+    lDAPSStatusReason :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the LDAPS settings were last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LDAPSSettingInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'lDAPSStatus', 'lDAPSSettingInfo_lDAPSStatus' - The state of the LDAPS settings.+--+-- 'lDAPSStatusReason', 'lDAPSSettingInfo_lDAPSStatusReason' - Describes a state change for LDAPS.+--+-- 'lastUpdatedDateTime', 'lDAPSSettingInfo_lastUpdatedDateTime' - The date and time when the LDAPS settings were last updated.+newLDAPSSettingInfo ::+  LDAPSSettingInfo+newLDAPSSettingInfo =+  LDAPSSettingInfo'+    { lDAPSStatus = Prelude.Nothing,+      lDAPSStatusReason = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing+    }++-- | The state of the LDAPS settings.+lDAPSSettingInfo_lDAPSStatus :: Lens.Lens' LDAPSSettingInfo (Prelude.Maybe LDAPSStatus)+lDAPSSettingInfo_lDAPSStatus = Lens.lens (\LDAPSSettingInfo' {lDAPSStatus} -> lDAPSStatus) (\s@LDAPSSettingInfo' {} a -> s {lDAPSStatus = a} :: LDAPSSettingInfo)++-- | Describes a state change for LDAPS.+lDAPSSettingInfo_lDAPSStatusReason :: Lens.Lens' LDAPSSettingInfo (Prelude.Maybe Prelude.Text)+lDAPSSettingInfo_lDAPSStatusReason = Lens.lens (\LDAPSSettingInfo' {lDAPSStatusReason} -> lDAPSStatusReason) (\s@LDAPSSettingInfo' {} a -> s {lDAPSStatusReason = a} :: LDAPSSettingInfo)++-- | The date and time when the LDAPS settings were last updated.+lDAPSSettingInfo_lastUpdatedDateTime :: Lens.Lens' LDAPSSettingInfo (Prelude.Maybe Prelude.UTCTime)+lDAPSSettingInfo_lastUpdatedDateTime = Lens.lens (\LDAPSSettingInfo' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@LDAPSSettingInfo' {} a -> s {lastUpdatedDateTime = a} :: LDAPSSettingInfo) Prelude.. Lens.mapping Data._Time++instance Data.FromJSON LDAPSSettingInfo where+  parseJSON =+    Data.withObject+      "LDAPSSettingInfo"+      ( \x ->+          LDAPSSettingInfo'+            Prelude.<$> (x Data..:? "LDAPSStatus")+            Prelude.<*> (x Data..:? "LDAPSStatusReason")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+      )++instance Prelude.Hashable LDAPSSettingInfo where+  hashWithSalt _salt LDAPSSettingInfo' {..} =+    _salt+      `Prelude.hashWithSalt` lDAPSStatus+      `Prelude.hashWithSalt` lDAPSStatusReason+      `Prelude.hashWithSalt` lastUpdatedDateTime++instance Prelude.NFData LDAPSSettingInfo where+  rnf LDAPSSettingInfo' {..} =+    Prelude.rnf lDAPSStatus+      `Prelude.seq` Prelude.rnf lDAPSStatusReason+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime

+ gen/Amazonka/DirectoryService/Types/LDAPSStatus.hs view

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.LDAPSStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.LDAPSStatus+  ( LDAPSStatus+      ( ..,+        LDAPSStatus_Disabled,+        LDAPSStatus_EnableFailed,+        LDAPSStatus_Enabled,+        LDAPSStatus_Enabling+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LDAPSStatus = LDAPSStatus'+  { fromLDAPSStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern LDAPSStatus_Disabled :: LDAPSStatus+pattern LDAPSStatus_Disabled = LDAPSStatus' "Disabled"++pattern LDAPSStatus_EnableFailed :: LDAPSStatus+pattern LDAPSStatus_EnableFailed = LDAPSStatus' "EnableFailed"++pattern LDAPSStatus_Enabled :: LDAPSStatus+pattern LDAPSStatus_Enabled = LDAPSStatus' "Enabled"++pattern LDAPSStatus_Enabling :: LDAPSStatus+pattern LDAPSStatus_Enabling = LDAPSStatus' "Enabling"++{-# COMPLETE+  LDAPSStatus_Disabled,+  LDAPSStatus_EnableFailed,+  LDAPSStatus_Enabled,+  LDAPSStatus_Enabling,+  LDAPSStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/LDAPSType.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.LDAPSType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.LDAPSType+  ( LDAPSType+      ( ..,+        LDAPSType_Client+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype LDAPSType = LDAPSType'+  { fromLDAPSType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern LDAPSType_Client :: LDAPSType+pattern LDAPSType_Client = LDAPSType' "Client"++{-# COMPLETE+  LDAPSType_Client,+  LDAPSType'+  #-}

+ gen/Amazonka/DirectoryService/Types/LogSubscription.hs view

@@ -0,0 +1,100 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.LogSubscription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.LogSubscription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Represents a log subscription, which tracks real-time data from a chosen+-- log group to a specified destination.+--+-- /See:/ 'newLogSubscription' smart constructor.+data LogSubscription = LogSubscription'+  { -- | Identifier (ID) of the directory that you want to associate with the log+    -- subscription.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The name of the log group.+    logGroupName :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the log subscription was created.+    subscriptionCreatedDateTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'LogSubscription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'logSubscription_directoryId' - Identifier (ID) of the directory that you want to associate with the log+-- subscription.+--+-- 'logGroupName', 'logSubscription_logGroupName' - The name of the log group.+--+-- 'subscriptionCreatedDateTime', 'logSubscription_subscriptionCreatedDateTime' - The date and time that the log subscription was created.+newLogSubscription ::+  LogSubscription+newLogSubscription =+  LogSubscription'+    { directoryId = Prelude.Nothing,+      logGroupName = Prelude.Nothing,+      subscriptionCreatedDateTime = Prelude.Nothing+    }++-- | Identifier (ID) of the directory that you want to associate with the log+-- subscription.+logSubscription_directoryId :: Lens.Lens' LogSubscription (Prelude.Maybe Prelude.Text)+logSubscription_directoryId = Lens.lens (\LogSubscription' {directoryId} -> directoryId) (\s@LogSubscription' {} a -> s {directoryId = a} :: LogSubscription)++-- | The name of the log group.+logSubscription_logGroupName :: Lens.Lens' LogSubscription (Prelude.Maybe Prelude.Text)+logSubscription_logGroupName = Lens.lens (\LogSubscription' {logGroupName} -> logGroupName) (\s@LogSubscription' {} a -> s {logGroupName = a} :: LogSubscription)++-- | The date and time that the log subscription was created.+logSubscription_subscriptionCreatedDateTime :: Lens.Lens' LogSubscription (Prelude.Maybe Prelude.UTCTime)+logSubscription_subscriptionCreatedDateTime = Lens.lens (\LogSubscription' {subscriptionCreatedDateTime} -> subscriptionCreatedDateTime) (\s@LogSubscription' {} a -> s {subscriptionCreatedDateTime = a} :: LogSubscription) Prelude.. Lens.mapping Data._Time++instance Data.FromJSON LogSubscription where+  parseJSON =+    Data.withObject+      "LogSubscription"+      ( \x ->+          LogSubscription'+            Prelude.<$> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "LogGroupName")+            Prelude.<*> (x Data..:? "SubscriptionCreatedDateTime")+      )++instance Prelude.Hashable LogSubscription where+  hashWithSalt _salt LogSubscription' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` logGroupName+      `Prelude.hashWithSalt` subscriptionCreatedDateTime++instance Prelude.NFData LogSubscription where+  rnf LogSubscription' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf logGroupName+      `Prelude.seq` Prelude.rnf subscriptionCreatedDateTime

+ gen/Amazonka/DirectoryService/Types/OSUpdateSettings.hs view

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.OSUpdateSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.OSUpdateSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.OSVersion+import qualified Amazonka.Prelude as Prelude++-- | OS version that the directory needs to be updated to.+--+-- /See:/ 'newOSUpdateSettings' smart constructor.+data OSUpdateSettings = OSUpdateSettings'+  { -- | OS version that the directory needs to be updated to.+    oSVersion :: Prelude.Maybe OSVersion+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OSUpdateSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'oSVersion', 'oSUpdateSettings_oSVersion' - OS version that the directory needs to be updated to.+newOSUpdateSettings ::+  OSUpdateSettings+newOSUpdateSettings =+  OSUpdateSettings' {oSVersion = Prelude.Nothing}++-- | OS version that the directory needs to be updated to.+oSUpdateSettings_oSVersion :: Lens.Lens' OSUpdateSettings (Prelude.Maybe OSVersion)+oSUpdateSettings_oSVersion = Lens.lens (\OSUpdateSettings' {oSVersion} -> oSVersion) (\s@OSUpdateSettings' {} a -> s {oSVersion = a} :: OSUpdateSettings)++instance Data.FromJSON OSUpdateSettings where+  parseJSON =+    Data.withObject+      "OSUpdateSettings"+      ( \x ->+          OSUpdateSettings'+            Prelude.<$> (x Data..:? "OSVersion")+      )++instance Prelude.Hashable OSUpdateSettings where+  hashWithSalt _salt OSUpdateSettings' {..} =+    _salt `Prelude.hashWithSalt` oSVersion++instance Prelude.NFData OSUpdateSettings where+  rnf OSUpdateSettings' {..} = Prelude.rnf oSVersion++instance Data.ToJSON OSUpdateSettings where+  toJSON OSUpdateSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [("OSVersion" Data..=) Prelude.<$> oSVersion]+      )

+ gen/Amazonka/DirectoryService/Types/OSVersion.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.OSVersion+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.OSVersion+  ( OSVersion+      ( ..,+        OSVersion_SERVER_2012,+        OSVersion_SERVER_2019+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype OSVersion = OSVersion'+  { fromOSVersion ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern OSVersion_SERVER_2012 :: OSVersion+pattern OSVersion_SERVER_2012 = OSVersion' "SERVER_2012"++pattern OSVersion_SERVER_2019 :: OSVersion+pattern OSVersion_SERVER_2019 = OSVersion' "SERVER_2019"++{-# COMPLETE+  OSVersion_SERVER_2012,+  OSVersion_SERVER_2019,+  OSVersion'+  #-}

+ gen/Amazonka/DirectoryService/Types/OwnerDirectoryDescription.hs view

@@ -0,0 +1,143 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.OwnerDirectoryDescription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.OwnerDirectoryDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.DirectoryVpcSettingsDescription+import Amazonka.DirectoryService.Types.RadiusSettings+import Amazonka.DirectoryService.Types.RadiusStatus+import qualified Amazonka.Prelude as Prelude++-- | Describes the directory owner account details that have been shared to+-- the directory consumer account.+--+-- /See:/ 'newOwnerDirectoryDescription' smart constructor.+data OwnerDirectoryDescription = OwnerDirectoryDescription'+  { -- | Identifier of the directory owner account.+    accountId :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the Managed Microsoft AD directory in the directory owner+    -- account.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | IP address of the directory’s domain controllers.+    dnsIpAddrs :: Prelude.Maybe [Prelude.Text],+    -- | A RadiusSettings object that contains information about the RADIUS+    -- server.+    radiusSettings :: Prelude.Maybe RadiusSettings,+    -- | Information about the status of the RADIUS server.+    radiusStatus :: Prelude.Maybe RadiusStatus,+    -- | Information about the VPC settings for the directory.+    vpcSettings :: Prelude.Maybe DirectoryVpcSettingsDescription+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'OwnerDirectoryDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'accountId', 'ownerDirectoryDescription_accountId' - Identifier of the directory owner account.+--+-- 'directoryId', 'ownerDirectoryDescription_directoryId' - Identifier of the Managed Microsoft AD directory in the directory owner+-- account.+--+-- 'dnsIpAddrs', 'ownerDirectoryDescription_dnsIpAddrs' - IP address of the directory’s domain controllers.+--+-- 'radiusSettings', 'ownerDirectoryDescription_radiusSettings' - A RadiusSettings object that contains information about the RADIUS+-- server.+--+-- 'radiusStatus', 'ownerDirectoryDescription_radiusStatus' - Information about the status of the RADIUS server.+--+-- 'vpcSettings', 'ownerDirectoryDescription_vpcSettings' - Information about the VPC settings for the directory.+newOwnerDirectoryDescription ::+  OwnerDirectoryDescription+newOwnerDirectoryDescription =+  OwnerDirectoryDescription'+    { accountId =+        Prelude.Nothing,+      directoryId = Prelude.Nothing,+      dnsIpAddrs = Prelude.Nothing,+      radiusSettings = Prelude.Nothing,+      radiusStatus = Prelude.Nothing,+      vpcSettings = Prelude.Nothing+    }++-- | Identifier of the directory owner account.+ownerDirectoryDescription_accountId :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe Prelude.Text)+ownerDirectoryDescription_accountId = Lens.lens (\OwnerDirectoryDescription' {accountId} -> accountId) (\s@OwnerDirectoryDescription' {} a -> s {accountId = a} :: OwnerDirectoryDescription)++-- | Identifier of the Managed Microsoft AD directory in the directory owner+-- account.+ownerDirectoryDescription_directoryId :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe Prelude.Text)+ownerDirectoryDescription_directoryId = Lens.lens (\OwnerDirectoryDescription' {directoryId} -> directoryId) (\s@OwnerDirectoryDescription' {} a -> s {directoryId = a} :: OwnerDirectoryDescription)++-- | IP address of the directory’s domain controllers.+ownerDirectoryDescription_dnsIpAddrs :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe [Prelude.Text])+ownerDirectoryDescription_dnsIpAddrs = Lens.lens (\OwnerDirectoryDescription' {dnsIpAddrs} -> dnsIpAddrs) (\s@OwnerDirectoryDescription' {} a -> s {dnsIpAddrs = a} :: OwnerDirectoryDescription) Prelude.. Lens.mapping Lens.coerced++-- | A RadiusSettings object that contains information about the RADIUS+-- server.+ownerDirectoryDescription_radiusSettings :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe RadiusSettings)+ownerDirectoryDescription_radiusSettings = Lens.lens (\OwnerDirectoryDescription' {radiusSettings} -> radiusSettings) (\s@OwnerDirectoryDescription' {} a -> s {radiusSettings = a} :: OwnerDirectoryDescription)++-- | Information about the status of the RADIUS server.+ownerDirectoryDescription_radiusStatus :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe RadiusStatus)+ownerDirectoryDescription_radiusStatus = Lens.lens (\OwnerDirectoryDescription' {radiusStatus} -> radiusStatus) (\s@OwnerDirectoryDescription' {} a -> s {radiusStatus = a} :: OwnerDirectoryDescription)++-- | Information about the VPC settings for the directory.+ownerDirectoryDescription_vpcSettings :: Lens.Lens' OwnerDirectoryDescription (Prelude.Maybe DirectoryVpcSettingsDescription)+ownerDirectoryDescription_vpcSettings = Lens.lens (\OwnerDirectoryDescription' {vpcSettings} -> vpcSettings) (\s@OwnerDirectoryDescription' {} a -> s {vpcSettings = a} :: OwnerDirectoryDescription)++instance Data.FromJSON OwnerDirectoryDescription where+  parseJSON =+    Data.withObject+      "OwnerDirectoryDescription"+      ( \x ->+          OwnerDirectoryDescription'+            Prelude.<$> (x Data..:? "AccountId")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "DnsIpAddrs" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "RadiusSettings")+            Prelude.<*> (x Data..:? "RadiusStatus")+            Prelude.<*> (x Data..:? "VpcSettings")+      )++instance Prelude.Hashable OwnerDirectoryDescription where+  hashWithSalt _salt OwnerDirectoryDescription' {..} =+    _salt+      `Prelude.hashWithSalt` accountId+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` dnsIpAddrs+      `Prelude.hashWithSalt` radiusSettings+      `Prelude.hashWithSalt` radiusStatus+      `Prelude.hashWithSalt` vpcSettings++instance Prelude.NFData OwnerDirectoryDescription where+  rnf OwnerDirectoryDescription' {..} =+    Prelude.rnf accountId+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf dnsIpAddrs+      `Prelude.seq` Prelude.rnf radiusSettings+      `Prelude.seq` Prelude.rnf radiusStatus+      `Prelude.seq` Prelude.rnf vpcSettings

+ gen/Amazonka/DirectoryService/Types/RadiusAuthenticationProtocol.hs view

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol+  ( RadiusAuthenticationProtocol+      ( ..,+        RadiusAuthenticationProtocol_CHAP,+        RadiusAuthenticationProtocol_MS_CHAPv1,+        RadiusAuthenticationProtocol_MS_CHAPv2,+        RadiusAuthenticationProtocol_PAP+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RadiusAuthenticationProtocol = RadiusAuthenticationProtocol'+  { fromRadiusAuthenticationProtocol ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RadiusAuthenticationProtocol_CHAP :: RadiusAuthenticationProtocol+pattern RadiusAuthenticationProtocol_CHAP = RadiusAuthenticationProtocol' "CHAP"++pattern RadiusAuthenticationProtocol_MS_CHAPv1 :: RadiusAuthenticationProtocol+pattern RadiusAuthenticationProtocol_MS_CHAPv1 = RadiusAuthenticationProtocol' "MS-CHAPv1"++pattern RadiusAuthenticationProtocol_MS_CHAPv2 :: RadiusAuthenticationProtocol+pattern RadiusAuthenticationProtocol_MS_CHAPv2 = RadiusAuthenticationProtocol' "MS-CHAPv2"++pattern RadiusAuthenticationProtocol_PAP :: RadiusAuthenticationProtocol+pattern RadiusAuthenticationProtocol_PAP = RadiusAuthenticationProtocol' "PAP"++{-# COMPLETE+  RadiusAuthenticationProtocol_CHAP,+  RadiusAuthenticationProtocol_MS_CHAPv1,+  RadiusAuthenticationProtocol_MS_CHAPv2,+  RadiusAuthenticationProtocol_PAP,+  RadiusAuthenticationProtocol'+  #-}

+ gen/Amazonka/DirectoryService/Types/RadiusSettings.hs view

@@ -0,0 +1,194 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RadiusSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RadiusSettings where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.RadiusAuthenticationProtocol+import qualified Amazonka.Prelude as Prelude++-- | Contains information about a Remote Authentication Dial In User Service+-- (RADIUS) server.+--+-- /See:/ 'newRadiusSettings' smart constructor.+data RadiusSettings = RadiusSettings'+  { -- | The protocol specified for your RADIUS endpoints.+    authenticationProtocol :: Prelude.Maybe RadiusAuthenticationProtocol,+    -- | Not currently used.+    displayLabel :: Prelude.Maybe Prelude.Text,+    -- | The port that your RADIUS server is using for communications. Your+    -- self-managed network must allow inbound traffic over this port from the+    -- Directory Service servers.+    radiusPort :: Prelude.Maybe Prelude.Natural,+    -- | The maximum number of times that communication with the RADIUS server is+    -- attempted.+    radiusRetries :: Prelude.Maybe Prelude.Natural,+    -- | An array of strings that contains the fully qualified domain name (FQDN)+    -- or IP addresses of the RADIUS server endpoints, or the FQDN or IP+    -- addresses of your RADIUS server load balancer.+    radiusServers :: Prelude.Maybe [Prelude.Text],+    -- | The amount of time, in seconds, to wait for the RADIUS server to+    -- respond.+    radiusTimeout :: Prelude.Maybe Prelude.Natural,+    -- | Required for enabling RADIUS on the directory.+    sharedSecret :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Not currently used.+    useSameUsername :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RadiusSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'authenticationProtocol', 'radiusSettings_authenticationProtocol' - The protocol specified for your RADIUS endpoints.+--+-- 'displayLabel', 'radiusSettings_displayLabel' - Not currently used.+--+-- 'radiusPort', 'radiusSettings_radiusPort' - The port that your RADIUS server is using for communications. Your+-- self-managed network must allow inbound traffic over this port from the+-- Directory Service servers.+--+-- 'radiusRetries', 'radiusSettings_radiusRetries' - The maximum number of times that communication with the RADIUS server is+-- attempted.+--+-- 'radiusServers', 'radiusSettings_radiusServers' - An array of strings that contains the fully qualified domain name (FQDN)+-- or IP addresses of the RADIUS server endpoints, or the FQDN or IP+-- addresses of your RADIUS server load balancer.+--+-- 'radiusTimeout', 'radiusSettings_radiusTimeout' - The amount of time, in seconds, to wait for the RADIUS server to+-- respond.+--+-- 'sharedSecret', 'radiusSettings_sharedSecret' - Required for enabling RADIUS on the directory.+--+-- 'useSameUsername', 'radiusSettings_useSameUsername' - Not currently used.+newRadiusSettings ::+  RadiusSettings+newRadiusSettings =+  RadiusSettings'+    { authenticationProtocol =+        Prelude.Nothing,+      displayLabel = Prelude.Nothing,+      radiusPort = Prelude.Nothing,+      radiusRetries = Prelude.Nothing,+      radiusServers = Prelude.Nothing,+      radiusTimeout = Prelude.Nothing,+      sharedSecret = Prelude.Nothing,+      useSameUsername = Prelude.Nothing+    }++-- | The protocol specified for your RADIUS endpoints.+radiusSettings_authenticationProtocol :: Lens.Lens' RadiusSettings (Prelude.Maybe RadiusAuthenticationProtocol)+radiusSettings_authenticationProtocol = Lens.lens (\RadiusSettings' {authenticationProtocol} -> authenticationProtocol) (\s@RadiusSettings' {} a -> s {authenticationProtocol = a} :: RadiusSettings)++-- | Not currently used.+radiusSettings_displayLabel :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Text)+radiusSettings_displayLabel = Lens.lens (\RadiusSettings' {displayLabel} -> displayLabel) (\s@RadiusSettings' {} a -> s {displayLabel = a} :: RadiusSettings)++-- | The port that your RADIUS server is using for communications. Your+-- self-managed network must allow inbound traffic over this port from the+-- Directory Service servers.+radiusSettings_radiusPort :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Natural)+radiusSettings_radiusPort = Lens.lens (\RadiusSettings' {radiusPort} -> radiusPort) (\s@RadiusSettings' {} a -> s {radiusPort = a} :: RadiusSettings)++-- | The maximum number of times that communication with the RADIUS server is+-- attempted.+radiusSettings_radiusRetries :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Natural)+radiusSettings_radiusRetries = Lens.lens (\RadiusSettings' {radiusRetries} -> radiusRetries) (\s@RadiusSettings' {} a -> s {radiusRetries = a} :: RadiusSettings)++-- | An array of strings that contains the fully qualified domain name (FQDN)+-- or IP addresses of the RADIUS server endpoints, or the FQDN or IP+-- addresses of your RADIUS server load balancer.+radiusSettings_radiusServers :: Lens.Lens' RadiusSettings (Prelude.Maybe [Prelude.Text])+radiusSettings_radiusServers = Lens.lens (\RadiusSettings' {radiusServers} -> radiusServers) (\s@RadiusSettings' {} a -> s {radiusServers = a} :: RadiusSettings) Prelude.. Lens.mapping Lens.coerced++-- | The amount of time, in seconds, to wait for the RADIUS server to+-- respond.+radiusSettings_radiusTimeout :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Natural)+radiusSettings_radiusTimeout = Lens.lens (\RadiusSettings' {radiusTimeout} -> radiusTimeout) (\s@RadiusSettings' {} a -> s {radiusTimeout = a} :: RadiusSettings)++-- | Required for enabling RADIUS on the directory.+radiusSettings_sharedSecret :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Text)+radiusSettings_sharedSecret = Lens.lens (\RadiusSettings' {sharedSecret} -> sharedSecret) (\s@RadiusSettings' {} a -> s {sharedSecret = a} :: RadiusSettings) Prelude.. Lens.mapping Data._Sensitive++-- | Not currently used.+radiusSettings_useSameUsername :: Lens.Lens' RadiusSettings (Prelude.Maybe Prelude.Bool)+radiusSettings_useSameUsername = Lens.lens (\RadiusSettings' {useSameUsername} -> useSameUsername) (\s@RadiusSettings' {} a -> s {useSameUsername = a} :: RadiusSettings)++instance Data.FromJSON RadiusSettings where+  parseJSON =+    Data.withObject+      "RadiusSettings"+      ( \x ->+          RadiusSettings'+            Prelude.<$> (x Data..:? "AuthenticationProtocol")+            Prelude.<*> (x Data..:? "DisplayLabel")+            Prelude.<*> (x Data..:? "RadiusPort")+            Prelude.<*> (x Data..:? "RadiusRetries")+            Prelude.<*> (x Data..:? "RadiusServers" Data..!= Prelude.mempty)+            Prelude.<*> (x Data..:? "RadiusTimeout")+            Prelude.<*> (x Data..:? "SharedSecret")+            Prelude.<*> (x Data..:? "UseSameUsername")+      )++instance Prelude.Hashable RadiusSettings where+  hashWithSalt _salt RadiusSettings' {..} =+    _salt+      `Prelude.hashWithSalt` authenticationProtocol+      `Prelude.hashWithSalt` displayLabel+      `Prelude.hashWithSalt` radiusPort+      `Prelude.hashWithSalt` radiusRetries+      `Prelude.hashWithSalt` radiusServers+      `Prelude.hashWithSalt` radiusTimeout+      `Prelude.hashWithSalt` sharedSecret+      `Prelude.hashWithSalt` useSameUsername++instance Prelude.NFData RadiusSettings where+  rnf RadiusSettings' {..} =+    Prelude.rnf authenticationProtocol+      `Prelude.seq` Prelude.rnf displayLabel+      `Prelude.seq` Prelude.rnf radiusPort+      `Prelude.seq` Prelude.rnf radiusRetries+      `Prelude.seq` Prelude.rnf radiusServers+      `Prelude.seq` Prelude.rnf radiusTimeout+      `Prelude.seq` Prelude.rnf sharedSecret+      `Prelude.seq` Prelude.rnf useSameUsername++instance Data.ToJSON RadiusSettings where+  toJSON RadiusSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("AuthenticationProtocol" Data..=)+              Prelude.<$> authenticationProtocol,+            ("DisplayLabel" Data..=) Prelude.<$> displayLabel,+            ("RadiusPort" Data..=) Prelude.<$> radiusPort,+            ("RadiusRetries" Data..=) Prelude.<$> radiusRetries,+            ("RadiusServers" Data..=) Prelude.<$> radiusServers,+            ("RadiusTimeout" Data..=) Prelude.<$> radiusTimeout,+            ("SharedSecret" Data..=) Prelude.<$> sharedSecret,+            ("UseSameUsername" Data..=)+              Prelude.<$> useSameUsername+          ]+      )

+ gen/Amazonka/DirectoryService/Types/RadiusStatus.hs view

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RadiusStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RadiusStatus+  ( RadiusStatus+      ( ..,+        RadiusStatus_Completed,+        RadiusStatus_Creating,+        RadiusStatus_Failed+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RadiusStatus = RadiusStatus'+  { fromRadiusStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RadiusStatus_Completed :: RadiusStatus+pattern RadiusStatus_Completed = RadiusStatus' "Completed"++pattern RadiusStatus_Creating :: RadiusStatus+pattern RadiusStatus_Creating = RadiusStatus' "Creating"++pattern RadiusStatus_Failed :: RadiusStatus+pattern RadiusStatus_Failed = RadiusStatus' "Failed"++{-# COMPLETE+  RadiusStatus_Completed,+  RadiusStatus_Creating,+  RadiusStatus_Failed,+  RadiusStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/RegionDescription.hs view

@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RegionDescription+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RegionDescription where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.DirectoryStage+import Amazonka.DirectoryService.Types.DirectoryVpcSettings+import Amazonka.DirectoryService.Types.RegionType+import qualified Amazonka.Prelude as Prelude++-- | The replicated Region information for a directory.+--+-- /See:/ 'newRegionDescription' smart constructor.+data RegionDescription = RegionDescription'+  { -- | The desired number of domain controllers in the specified Region for the+    -- specified directory.+    desiredNumberOfDomainControllers :: Prelude.Maybe Prelude.Natural,+    -- | The identifier of the directory.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the Region description was last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | Specifies when the Region replication began.+    launchTime :: Prelude.Maybe Data.POSIX,+    -- | The name of the Region. For example, @us-east-1@.+    regionName :: Prelude.Maybe Prelude.Text,+    -- | Specifies whether the Region is the primary Region or an additional+    -- Region.+    regionType :: Prelude.Maybe RegionType,+    -- | The status of the replication process for the specified Region.+    status :: Prelude.Maybe DirectoryStage,+    -- | The date and time that the Region status was last updated.+    statusLastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    vpcSettings :: Prelude.Maybe DirectoryVpcSettings+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegionDescription' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'desiredNumberOfDomainControllers', 'regionDescription_desiredNumberOfDomainControllers' - The desired number of domain controllers in the specified Region for the+-- specified directory.+--+-- 'directoryId', 'regionDescription_directoryId' - The identifier of the directory.+--+-- 'lastUpdatedDateTime', 'regionDescription_lastUpdatedDateTime' - The date and time that the Region description was last updated.+--+-- 'launchTime', 'regionDescription_launchTime' - Specifies when the Region replication began.+--+-- 'regionName', 'regionDescription_regionName' - The name of the Region. For example, @us-east-1@.+--+-- 'regionType', 'regionDescription_regionType' - Specifies whether the Region is the primary Region or an additional+-- Region.+--+-- 'status', 'regionDescription_status' - The status of the replication process for the specified Region.+--+-- 'statusLastUpdatedDateTime', 'regionDescription_statusLastUpdatedDateTime' - The date and time that the Region status was last updated.+--+-- 'vpcSettings', 'regionDescription_vpcSettings' - Undocumented member.+newRegionDescription ::+  RegionDescription+newRegionDescription =+  RegionDescription'+    { desiredNumberOfDomainControllers =+        Prelude.Nothing,+      directoryId = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing,+      launchTime = Prelude.Nothing,+      regionName = Prelude.Nothing,+      regionType = Prelude.Nothing,+      status = Prelude.Nothing,+      statusLastUpdatedDateTime = Prelude.Nothing,+      vpcSettings = Prelude.Nothing+    }++-- | The desired number of domain controllers in the specified Region for the+-- specified directory.+regionDescription_desiredNumberOfDomainControllers :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.Natural)+regionDescription_desiredNumberOfDomainControllers = Lens.lens (\RegionDescription' {desiredNumberOfDomainControllers} -> desiredNumberOfDomainControllers) (\s@RegionDescription' {} a -> s {desiredNumberOfDomainControllers = a} :: RegionDescription)++-- | The identifier of the directory.+regionDescription_directoryId :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.Text)+regionDescription_directoryId = Lens.lens (\RegionDescription' {directoryId} -> directoryId) (\s@RegionDescription' {} a -> s {directoryId = a} :: RegionDescription)++-- | The date and time that the Region description was last updated.+regionDescription_lastUpdatedDateTime :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.UTCTime)+regionDescription_lastUpdatedDateTime = Lens.lens (\RegionDescription' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@RegionDescription' {} a -> s {lastUpdatedDateTime = a} :: RegionDescription) Prelude.. Lens.mapping Data._Time++-- | Specifies when the Region replication began.+regionDescription_launchTime :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.UTCTime)+regionDescription_launchTime = Lens.lens (\RegionDescription' {launchTime} -> launchTime) (\s@RegionDescription' {} a -> s {launchTime = a} :: RegionDescription) Prelude.. Lens.mapping Data._Time++-- | The name of the Region. For example, @us-east-1@.+regionDescription_regionName :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.Text)+regionDescription_regionName = Lens.lens (\RegionDescription' {regionName} -> regionName) (\s@RegionDescription' {} a -> s {regionName = a} :: RegionDescription)++-- | Specifies whether the Region is the primary Region or an additional+-- Region.+regionDescription_regionType :: Lens.Lens' RegionDescription (Prelude.Maybe RegionType)+regionDescription_regionType = Lens.lens (\RegionDescription' {regionType} -> regionType) (\s@RegionDescription' {} a -> s {regionType = a} :: RegionDescription)++-- | The status of the replication process for the specified Region.+regionDescription_status :: Lens.Lens' RegionDescription (Prelude.Maybe DirectoryStage)+regionDescription_status = Lens.lens (\RegionDescription' {status} -> status) (\s@RegionDescription' {} a -> s {status = a} :: RegionDescription)++-- | The date and time that the Region status was last updated.+regionDescription_statusLastUpdatedDateTime :: Lens.Lens' RegionDescription (Prelude.Maybe Prelude.UTCTime)+regionDescription_statusLastUpdatedDateTime = Lens.lens (\RegionDescription' {statusLastUpdatedDateTime} -> statusLastUpdatedDateTime) (\s@RegionDescription' {} a -> s {statusLastUpdatedDateTime = a} :: RegionDescription) Prelude.. Lens.mapping Data._Time++-- | Undocumented member.+regionDescription_vpcSettings :: Lens.Lens' RegionDescription (Prelude.Maybe DirectoryVpcSettings)+regionDescription_vpcSettings = Lens.lens (\RegionDescription' {vpcSettings} -> vpcSettings) (\s@RegionDescription' {} a -> s {vpcSettings = a} :: RegionDescription)++instance Data.FromJSON RegionDescription where+  parseJSON =+    Data.withObject+      "RegionDescription"+      ( \x ->+          RegionDescription'+            Prelude.<$> (x Data..:? "DesiredNumberOfDomainControllers")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "LaunchTime")+            Prelude.<*> (x Data..:? "RegionName")+            Prelude.<*> (x Data..:? "RegionType")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "StatusLastUpdatedDateTime")+            Prelude.<*> (x Data..:? "VpcSettings")+      )++instance Prelude.Hashable RegionDescription where+  hashWithSalt _salt RegionDescription' {..} =+    _salt+      `Prelude.hashWithSalt` desiredNumberOfDomainControllers+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` lastUpdatedDateTime+      `Prelude.hashWithSalt` launchTime+      `Prelude.hashWithSalt` regionName+      `Prelude.hashWithSalt` regionType+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusLastUpdatedDateTime+      `Prelude.hashWithSalt` vpcSettings++instance Prelude.NFData RegionDescription where+  rnf RegionDescription' {..} =+    Prelude.rnf desiredNumberOfDomainControllers+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf launchTime+      `Prelude.seq` Prelude.rnf regionName+      `Prelude.seq` Prelude.rnf regionType+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusLastUpdatedDateTime+      `Prelude.seq` Prelude.rnf vpcSettings

+ gen/Amazonka/DirectoryService/Types/RegionType.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RegionType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RegionType+  ( RegionType+      ( ..,+        RegionType_Additional,+        RegionType_Primary+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype RegionType = RegionType'+  { fromRegionType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern RegionType_Additional :: RegionType+pattern RegionType_Additional = RegionType' "Additional"++pattern RegionType_Primary :: RegionType+pattern RegionType_Primary = RegionType' "Primary"++{-# COMPLETE+  RegionType_Additional,+  RegionType_Primary,+  RegionType'+  #-}

+ gen/Amazonka/DirectoryService/Types/RegionsInfo.hs view

@@ -0,0 +1,94 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.RegionsInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.RegionsInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Provides information about the Regions that are configured for+-- multi-Region replication.+--+-- /See:/ 'newRegionsInfo' smart constructor.+data RegionsInfo = RegionsInfo'+  { -- | Lists the Regions where the directory has been replicated, excluding the+    -- primary Region.+    additionalRegions :: Prelude.Maybe [Prelude.Text],+    -- | The Region where the Managed Microsoft AD directory was originally+    -- created.+    primaryRegion :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'RegionsInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'additionalRegions', 'regionsInfo_additionalRegions' - Lists the Regions where the directory has been replicated, excluding the+-- primary Region.+--+-- 'primaryRegion', 'regionsInfo_primaryRegion' - The Region where the Managed Microsoft AD directory was originally+-- created.+newRegionsInfo ::+  RegionsInfo+newRegionsInfo =+  RegionsInfo'+    { additionalRegions = Prelude.Nothing,+      primaryRegion = Prelude.Nothing+    }++-- | Lists the Regions where the directory has been replicated, excluding the+-- primary Region.+regionsInfo_additionalRegions :: Lens.Lens' RegionsInfo (Prelude.Maybe [Prelude.Text])+regionsInfo_additionalRegions = Lens.lens (\RegionsInfo' {additionalRegions} -> additionalRegions) (\s@RegionsInfo' {} a -> s {additionalRegions = a} :: RegionsInfo) Prelude.. Lens.mapping Lens.coerced++-- | The Region where the Managed Microsoft AD directory was originally+-- created.+regionsInfo_primaryRegion :: Lens.Lens' RegionsInfo (Prelude.Maybe Prelude.Text)+regionsInfo_primaryRegion = Lens.lens (\RegionsInfo' {primaryRegion} -> primaryRegion) (\s@RegionsInfo' {} a -> s {primaryRegion = a} :: RegionsInfo)++instance Data.FromJSON RegionsInfo where+  parseJSON =+    Data.withObject+      "RegionsInfo"+      ( \x ->+          RegionsInfo'+            Prelude.<$> ( x+                            Data..:? "AdditionalRegions"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "PrimaryRegion")+      )++instance Prelude.Hashable RegionsInfo where+  hashWithSalt _salt RegionsInfo' {..} =+    _salt+      `Prelude.hashWithSalt` additionalRegions+      `Prelude.hashWithSalt` primaryRegion++instance Prelude.NFData RegionsInfo where+  rnf RegionsInfo' {..} =+    Prelude.rnf additionalRegions+      `Prelude.seq` Prelude.rnf primaryRegion

+ gen/Amazonka/DirectoryService/Types/ReplicationScope.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ReplicationScope+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ReplicationScope+  ( ReplicationScope+      ( ..,+        ReplicationScope_Domain+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ReplicationScope = ReplicationScope'+  { fromReplicationScope ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ReplicationScope_Domain :: ReplicationScope+pattern ReplicationScope_Domain = ReplicationScope' "Domain"++{-# COMPLETE+  ReplicationScope_Domain,+  ReplicationScope'+  #-}

+ gen/Amazonka/DirectoryService/Types/SchemaExtensionInfo.hs view

@@ -0,0 +1,151 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SchemaExtensionInfo+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SchemaExtensionInfo where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.SchemaExtensionStatus+import qualified Amazonka.Prelude as Prelude++-- | Information about a schema extension.+--+-- /See:/ 'newSchemaExtensionInfo' smart constructor.+data SchemaExtensionInfo = SchemaExtensionInfo'+  { -- | A description of the schema extension.+    description :: Prelude.Maybe Prelude.Text,+    -- | The identifier of the directory to which the schema extension is+    -- applied.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the schema extension was completed.+    endDateTime :: Prelude.Maybe Data.POSIX,+    -- | The identifier of the schema extension.+    schemaExtensionId :: Prelude.Maybe Prelude.Text,+    -- | The current status of the schema extension.+    schemaExtensionStatus :: Prelude.Maybe SchemaExtensionStatus,+    -- | The reason for the @SchemaExtensionStatus@.+    schemaExtensionStatusReason :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the schema extension started being applied to the+    -- directory.+    startDateTime :: Prelude.Maybe Data.POSIX+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SchemaExtensionInfo' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'description', 'schemaExtensionInfo_description' - A description of the schema extension.+--+-- 'directoryId', 'schemaExtensionInfo_directoryId' - The identifier of the directory to which the schema extension is+-- applied.+--+-- 'endDateTime', 'schemaExtensionInfo_endDateTime' - The date and time that the schema extension was completed.+--+-- 'schemaExtensionId', 'schemaExtensionInfo_schemaExtensionId' - The identifier of the schema extension.+--+-- 'schemaExtensionStatus', 'schemaExtensionInfo_schemaExtensionStatus' - The current status of the schema extension.+--+-- 'schemaExtensionStatusReason', 'schemaExtensionInfo_schemaExtensionStatusReason' - The reason for the @SchemaExtensionStatus@.+--+-- 'startDateTime', 'schemaExtensionInfo_startDateTime' - The date and time that the schema extension started being applied to the+-- directory.+newSchemaExtensionInfo ::+  SchemaExtensionInfo+newSchemaExtensionInfo =+  SchemaExtensionInfo'+    { description = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      endDateTime = Prelude.Nothing,+      schemaExtensionId = Prelude.Nothing,+      schemaExtensionStatus = Prelude.Nothing,+      schemaExtensionStatusReason = Prelude.Nothing,+      startDateTime = Prelude.Nothing+    }++-- | A description of the schema extension.+schemaExtensionInfo_description :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.Text)+schemaExtensionInfo_description = Lens.lens (\SchemaExtensionInfo' {description} -> description) (\s@SchemaExtensionInfo' {} a -> s {description = a} :: SchemaExtensionInfo)++-- | The identifier of the directory to which the schema extension is+-- applied.+schemaExtensionInfo_directoryId :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.Text)+schemaExtensionInfo_directoryId = Lens.lens (\SchemaExtensionInfo' {directoryId} -> directoryId) (\s@SchemaExtensionInfo' {} a -> s {directoryId = a} :: SchemaExtensionInfo)++-- | The date and time that the schema extension was completed.+schemaExtensionInfo_endDateTime :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.UTCTime)+schemaExtensionInfo_endDateTime = Lens.lens (\SchemaExtensionInfo' {endDateTime} -> endDateTime) (\s@SchemaExtensionInfo' {} a -> s {endDateTime = a} :: SchemaExtensionInfo) Prelude.. Lens.mapping Data._Time++-- | The identifier of the schema extension.+schemaExtensionInfo_schemaExtensionId :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.Text)+schemaExtensionInfo_schemaExtensionId = Lens.lens (\SchemaExtensionInfo' {schemaExtensionId} -> schemaExtensionId) (\s@SchemaExtensionInfo' {} a -> s {schemaExtensionId = a} :: SchemaExtensionInfo)++-- | The current status of the schema extension.+schemaExtensionInfo_schemaExtensionStatus :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe SchemaExtensionStatus)+schemaExtensionInfo_schemaExtensionStatus = Lens.lens (\SchemaExtensionInfo' {schemaExtensionStatus} -> schemaExtensionStatus) (\s@SchemaExtensionInfo' {} a -> s {schemaExtensionStatus = a} :: SchemaExtensionInfo)++-- | The reason for the @SchemaExtensionStatus@.+schemaExtensionInfo_schemaExtensionStatusReason :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.Text)+schemaExtensionInfo_schemaExtensionStatusReason = Lens.lens (\SchemaExtensionInfo' {schemaExtensionStatusReason} -> schemaExtensionStatusReason) (\s@SchemaExtensionInfo' {} a -> s {schemaExtensionStatusReason = a} :: SchemaExtensionInfo)++-- | The date and time that the schema extension started being applied to the+-- directory.+schemaExtensionInfo_startDateTime :: Lens.Lens' SchemaExtensionInfo (Prelude.Maybe Prelude.UTCTime)+schemaExtensionInfo_startDateTime = Lens.lens (\SchemaExtensionInfo' {startDateTime} -> startDateTime) (\s@SchemaExtensionInfo' {} a -> s {startDateTime = a} :: SchemaExtensionInfo) Prelude.. Lens.mapping Data._Time++instance Data.FromJSON SchemaExtensionInfo where+  parseJSON =+    Data.withObject+      "SchemaExtensionInfo"+      ( \x ->+          SchemaExtensionInfo'+            Prelude.<$> (x Data..:? "Description")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "EndDateTime")+            Prelude.<*> (x Data..:? "SchemaExtensionId")+            Prelude.<*> (x Data..:? "SchemaExtensionStatus")+            Prelude.<*> (x Data..:? "SchemaExtensionStatusReason")+            Prelude.<*> (x Data..:? "StartDateTime")+      )++instance Prelude.Hashable SchemaExtensionInfo where+  hashWithSalt _salt SchemaExtensionInfo' {..} =+    _salt+      `Prelude.hashWithSalt` description+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` endDateTime+      `Prelude.hashWithSalt` schemaExtensionId+      `Prelude.hashWithSalt` schemaExtensionStatus+      `Prelude.hashWithSalt` schemaExtensionStatusReason+      `Prelude.hashWithSalt` startDateTime++instance Prelude.NFData SchemaExtensionInfo where+  rnf SchemaExtensionInfo' {..} =+    Prelude.rnf description+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf endDateTime+      `Prelude.seq` Prelude.rnf schemaExtensionId+      `Prelude.seq` Prelude.rnf schemaExtensionStatus+      `Prelude.seq` Prelude.rnf schemaExtensionStatusReason+      `Prelude.seq` Prelude.rnf startDateTime

+ gen/Amazonka/DirectoryService/Types/SchemaExtensionStatus.hs view

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SchemaExtensionStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SchemaExtensionStatus+  ( SchemaExtensionStatus+      ( ..,+        SchemaExtensionStatus_CancelInProgress,+        SchemaExtensionStatus_Cancelled,+        SchemaExtensionStatus_Completed,+        SchemaExtensionStatus_CreatingSnapshot,+        SchemaExtensionStatus_Failed,+        SchemaExtensionStatus_Initializing,+        SchemaExtensionStatus_Replicating,+        SchemaExtensionStatus_RollbackInProgress,+        SchemaExtensionStatus_UpdatingSchema+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SchemaExtensionStatus = SchemaExtensionStatus'+  { fromSchemaExtensionStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SchemaExtensionStatus_CancelInProgress :: SchemaExtensionStatus+pattern SchemaExtensionStatus_CancelInProgress = SchemaExtensionStatus' "CancelInProgress"++pattern SchemaExtensionStatus_Cancelled :: SchemaExtensionStatus+pattern SchemaExtensionStatus_Cancelled = SchemaExtensionStatus' "Cancelled"++pattern SchemaExtensionStatus_Completed :: SchemaExtensionStatus+pattern SchemaExtensionStatus_Completed = SchemaExtensionStatus' "Completed"++pattern SchemaExtensionStatus_CreatingSnapshot :: SchemaExtensionStatus+pattern SchemaExtensionStatus_CreatingSnapshot = SchemaExtensionStatus' "CreatingSnapshot"++pattern SchemaExtensionStatus_Failed :: SchemaExtensionStatus+pattern SchemaExtensionStatus_Failed = SchemaExtensionStatus' "Failed"++pattern SchemaExtensionStatus_Initializing :: SchemaExtensionStatus+pattern SchemaExtensionStatus_Initializing = SchemaExtensionStatus' "Initializing"++pattern SchemaExtensionStatus_Replicating :: SchemaExtensionStatus+pattern SchemaExtensionStatus_Replicating = SchemaExtensionStatus' "Replicating"++pattern SchemaExtensionStatus_RollbackInProgress :: SchemaExtensionStatus+pattern SchemaExtensionStatus_RollbackInProgress = SchemaExtensionStatus' "RollbackInProgress"++pattern SchemaExtensionStatus_UpdatingSchema :: SchemaExtensionStatus+pattern SchemaExtensionStatus_UpdatingSchema = SchemaExtensionStatus' "UpdatingSchema"++{-# COMPLETE+  SchemaExtensionStatus_CancelInProgress,+  SchemaExtensionStatus_Cancelled,+  SchemaExtensionStatus_Completed,+  SchemaExtensionStatus_CreatingSnapshot,+  SchemaExtensionStatus_Failed,+  SchemaExtensionStatus_Initializing,+  SchemaExtensionStatus_Replicating,+  SchemaExtensionStatus_RollbackInProgress,+  SchemaExtensionStatus_UpdatingSchema,+  SchemaExtensionStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/SelectiveAuth.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SelectiveAuth+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SelectiveAuth+  ( SelectiveAuth+      ( ..,+        SelectiveAuth_Disabled,+        SelectiveAuth_Enabled+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SelectiveAuth = SelectiveAuth'+  { fromSelectiveAuth ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SelectiveAuth_Disabled :: SelectiveAuth+pattern SelectiveAuth_Disabled = SelectiveAuth' "Disabled"++pattern SelectiveAuth_Enabled :: SelectiveAuth+pattern SelectiveAuth_Enabled = SelectiveAuth' "Enabled"++{-# COMPLETE+  SelectiveAuth_Disabled,+  SelectiveAuth_Enabled,+  SelectiveAuth'+  #-}

+ gen/Amazonka/DirectoryService/Types/Setting.hs view

@@ -0,0 +1,95 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Setting+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Setting where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the configurable settings for a directory.+--+-- /See:/ 'newSetting' smart constructor.+data Setting = Setting'+  { -- | The name of the directory setting. For example:+    --+    -- @TLS_1_0@+    name :: Prelude.Text,+    -- | The value of the directory setting for which to retrieve information.+    -- For example, for @TLS_1_0@, the valid values are: @Enable@ and+    -- @Disable@.+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Setting' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'name', 'setting_name' - The name of the directory setting. For example:+--+-- @TLS_1_0@+--+-- 'value', 'setting_value' - The value of the directory setting for which to retrieve information.+-- For example, for @TLS_1_0@, the valid values are: @Enable@ and+-- @Disable@.+newSetting ::+  -- | 'name'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Setting+newSetting pName_ pValue_ =+  Setting' {name = pName_, value = pValue_}++-- | The name of the directory setting. For example:+--+-- @TLS_1_0@+setting_name :: Lens.Lens' Setting Prelude.Text+setting_name = Lens.lens (\Setting' {name} -> name) (\s@Setting' {} a -> s {name = a} :: Setting)++-- | The value of the directory setting for which to retrieve information.+-- For example, for @TLS_1_0@, the valid values are: @Enable@ and+-- @Disable@.+setting_value :: Lens.Lens' Setting Prelude.Text+setting_value = Lens.lens (\Setting' {value} -> value) (\s@Setting' {} a -> s {value = a} :: Setting)++instance Prelude.Hashable Setting where+  hashWithSalt _salt Setting' {..} =+    _salt+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` value++instance Prelude.NFData Setting where+  rnf Setting' {..} =+    Prelude.rnf name `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Setting where+  toJSON Setting' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Name" Data..= name),+            Prelude.Just ("Value" Data..= value)+          ]+      )

+ gen/Amazonka/DirectoryService/Types/SettingEntry.hs view

@@ -0,0 +1,206 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SettingEntry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SettingEntry where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.DirectoryConfigurationStatus+import qualified Amazonka.Prelude as Prelude++-- | Contains information about the specified configurable setting for a+-- directory.+--+-- /See:/ 'newSettingEntry' smart constructor.+data SettingEntry = SettingEntry'+  { -- | The valid range of values for the directory setting.+    allowedValues :: Prelude.Maybe Prelude.Text,+    -- | The value of the directory setting that is applied to the directory.+    appliedValue :: Prelude.Maybe Prelude.Text,+    -- | The date and time when the request to update a directory setting was+    -- last submitted.+    lastRequestedDateTime :: Prelude.Maybe Data.POSIX,+    -- | The date and time when the directory setting was last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | The name of the directory setting. For example:+    --+    -- @TLS_1_0@+    name :: Prelude.Maybe Prelude.Text,+    -- | Details about the status of the request to update the directory setting.+    -- If the directory setting is deployed in more than one region, status is+    -- returned for the request in each region where the setting is deployed.+    requestDetailedStatus :: Prelude.Maybe (Prelude.HashMap Prelude.Text DirectoryConfigurationStatus),+    -- | The overall status of the request to update the directory setting+    -- request. If the directory setting is deployed in more than one region,+    -- and the request fails in any region, the overall status is @Failed@.+    requestStatus :: Prelude.Maybe DirectoryConfigurationStatus,+    -- | The last status message for the directory status request.+    requestStatusMessage :: Prelude.Maybe Prelude.Text,+    -- | The value that was last requested for the directory setting.+    requestedValue :: Prelude.Maybe Prelude.Text,+    -- | The type of directory setting. For example, @Protocol@ or @Cipher@.+    type' :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SettingEntry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'allowedValues', 'settingEntry_allowedValues' - The valid range of values for the directory setting.+--+-- 'appliedValue', 'settingEntry_appliedValue' - The value of the directory setting that is applied to the directory.+--+-- 'lastRequestedDateTime', 'settingEntry_lastRequestedDateTime' - The date and time when the request to update a directory setting was+-- last submitted.+--+-- 'lastUpdatedDateTime', 'settingEntry_lastUpdatedDateTime' - The date and time when the directory setting was last updated.+--+-- 'name', 'settingEntry_name' - The name of the directory setting. For example:+--+-- @TLS_1_0@+--+-- 'requestDetailedStatus', 'settingEntry_requestDetailedStatus' - Details about the status of the request to update the directory setting.+-- If the directory setting is deployed in more than one region, status is+-- returned for the request in each region where the setting is deployed.+--+-- 'requestStatus', 'settingEntry_requestStatus' - The overall status of the request to update the directory setting+-- request. If the directory setting is deployed in more than one region,+-- and the request fails in any region, the overall status is @Failed@.+--+-- 'requestStatusMessage', 'settingEntry_requestStatusMessage' - The last status message for the directory status request.+--+-- 'requestedValue', 'settingEntry_requestedValue' - The value that was last requested for the directory setting.+--+-- 'type'', 'settingEntry_type' - The type of directory setting. For example, @Protocol@ or @Cipher@.+newSettingEntry ::+  SettingEntry+newSettingEntry =+  SettingEntry'+    { allowedValues = Prelude.Nothing,+      appliedValue = Prelude.Nothing,+      lastRequestedDateTime = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing,+      name = Prelude.Nothing,+      requestDetailedStatus = Prelude.Nothing,+      requestStatus = Prelude.Nothing,+      requestStatusMessage = Prelude.Nothing,+      requestedValue = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The valid range of values for the directory setting.+settingEntry_allowedValues :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_allowedValues = Lens.lens (\SettingEntry' {allowedValues} -> allowedValues) (\s@SettingEntry' {} a -> s {allowedValues = a} :: SettingEntry)++-- | The value of the directory setting that is applied to the directory.+settingEntry_appliedValue :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_appliedValue = Lens.lens (\SettingEntry' {appliedValue} -> appliedValue) (\s@SettingEntry' {} a -> s {appliedValue = a} :: SettingEntry)++-- | The date and time when the request to update a directory setting was+-- last submitted.+settingEntry_lastRequestedDateTime :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.UTCTime)+settingEntry_lastRequestedDateTime = Lens.lens (\SettingEntry' {lastRequestedDateTime} -> lastRequestedDateTime) (\s@SettingEntry' {} a -> s {lastRequestedDateTime = a} :: SettingEntry) Prelude.. Lens.mapping Data._Time++-- | The date and time when the directory setting was last updated.+settingEntry_lastUpdatedDateTime :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.UTCTime)+settingEntry_lastUpdatedDateTime = Lens.lens (\SettingEntry' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@SettingEntry' {} a -> s {lastUpdatedDateTime = a} :: SettingEntry) Prelude.. Lens.mapping Data._Time++-- | The name of the directory setting. For example:+--+-- @TLS_1_0@+settingEntry_name :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_name = Lens.lens (\SettingEntry' {name} -> name) (\s@SettingEntry' {} a -> s {name = a} :: SettingEntry)++-- | Details about the status of the request to update the directory setting.+-- If the directory setting is deployed in more than one region, status is+-- returned for the request in each region where the setting is deployed.+settingEntry_requestDetailedStatus :: Lens.Lens' SettingEntry (Prelude.Maybe (Prelude.HashMap Prelude.Text DirectoryConfigurationStatus))+settingEntry_requestDetailedStatus = Lens.lens (\SettingEntry' {requestDetailedStatus} -> requestDetailedStatus) (\s@SettingEntry' {} a -> s {requestDetailedStatus = a} :: SettingEntry) Prelude.. Lens.mapping Lens.coerced++-- | The overall status of the request to update the directory setting+-- request. If the directory setting is deployed in more than one region,+-- and the request fails in any region, the overall status is @Failed@.+settingEntry_requestStatus :: Lens.Lens' SettingEntry (Prelude.Maybe DirectoryConfigurationStatus)+settingEntry_requestStatus = Lens.lens (\SettingEntry' {requestStatus} -> requestStatus) (\s@SettingEntry' {} a -> s {requestStatus = a} :: SettingEntry)++-- | The last status message for the directory status request.+settingEntry_requestStatusMessage :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_requestStatusMessage = Lens.lens (\SettingEntry' {requestStatusMessage} -> requestStatusMessage) (\s@SettingEntry' {} a -> s {requestStatusMessage = a} :: SettingEntry)++-- | The value that was last requested for the directory setting.+settingEntry_requestedValue :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_requestedValue = Lens.lens (\SettingEntry' {requestedValue} -> requestedValue) (\s@SettingEntry' {} a -> s {requestedValue = a} :: SettingEntry)++-- | The type of directory setting. For example, @Protocol@ or @Cipher@.+settingEntry_type :: Lens.Lens' SettingEntry (Prelude.Maybe Prelude.Text)+settingEntry_type = Lens.lens (\SettingEntry' {type'} -> type') (\s@SettingEntry' {} a -> s {type' = a} :: SettingEntry)++instance Data.FromJSON SettingEntry where+  parseJSON =+    Data.withObject+      "SettingEntry"+      ( \x ->+          SettingEntry'+            Prelude.<$> (x Data..:? "AllowedValues")+            Prelude.<*> (x Data..:? "AppliedValue")+            Prelude.<*> (x Data..:? "LastRequestedDateTime")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> ( x+                            Data..:? "RequestDetailedStatus"+                            Data..!= Prelude.mempty+                        )+            Prelude.<*> (x Data..:? "RequestStatus")+            Prelude.<*> (x Data..:? "RequestStatusMessage")+            Prelude.<*> (x Data..:? "RequestedValue")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable SettingEntry where+  hashWithSalt _salt SettingEntry' {..} =+    _salt+      `Prelude.hashWithSalt` allowedValues+      `Prelude.hashWithSalt` appliedValue+      `Prelude.hashWithSalt` lastRequestedDateTime+      `Prelude.hashWithSalt` lastUpdatedDateTime+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` requestDetailedStatus+      `Prelude.hashWithSalt` requestStatus+      `Prelude.hashWithSalt` requestStatusMessage+      `Prelude.hashWithSalt` requestedValue+      `Prelude.hashWithSalt` type'++instance Prelude.NFData SettingEntry where+  rnf SettingEntry' {..} =+    Prelude.rnf allowedValues+      `Prelude.seq` Prelude.rnf appliedValue+      `Prelude.seq` Prelude.rnf lastRequestedDateTime+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf requestDetailedStatus+      `Prelude.seq` Prelude.rnf requestStatus+      `Prelude.seq` Prelude.rnf requestStatusMessage+      `Prelude.seq` Prelude.rnf requestedValue+      `Prelude.seq` Prelude.rnf type'

+ gen/Amazonka/DirectoryService/Types/ShareMethod.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ShareMethod+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ShareMethod+  ( ShareMethod+      ( ..,+        ShareMethod_HANDSHAKE,+        ShareMethod_ORGANIZATIONS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ShareMethod = ShareMethod'+  { fromShareMethod ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ShareMethod_HANDSHAKE :: ShareMethod+pattern ShareMethod_HANDSHAKE = ShareMethod' "HANDSHAKE"++pattern ShareMethod_ORGANIZATIONS :: ShareMethod+pattern ShareMethod_ORGANIZATIONS = ShareMethod' "ORGANIZATIONS"++{-# COMPLETE+  ShareMethod_HANDSHAKE,+  ShareMethod_ORGANIZATIONS,+  ShareMethod'+  #-}

+ gen/Amazonka/DirectoryService/Types/ShareStatus.hs view

@@ -0,0 +1,106 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ShareStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ShareStatus+  ( ShareStatus+      ( ..,+        ShareStatus_Deleted,+        ShareStatus_Deleting,+        ShareStatus_PendingAcceptance,+        ShareStatus_RejectFailed,+        ShareStatus_Rejected,+        ShareStatus_Rejecting,+        ShareStatus_ShareFailed,+        ShareStatus_Shared,+        ShareStatus_Sharing+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype ShareStatus = ShareStatus'+  { fromShareStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern ShareStatus_Deleted :: ShareStatus+pattern ShareStatus_Deleted = ShareStatus' "Deleted"++pattern ShareStatus_Deleting :: ShareStatus+pattern ShareStatus_Deleting = ShareStatus' "Deleting"++pattern ShareStatus_PendingAcceptance :: ShareStatus+pattern ShareStatus_PendingAcceptance = ShareStatus' "PendingAcceptance"++pattern ShareStatus_RejectFailed :: ShareStatus+pattern ShareStatus_RejectFailed = ShareStatus' "RejectFailed"++pattern ShareStatus_Rejected :: ShareStatus+pattern ShareStatus_Rejected = ShareStatus' "Rejected"++pattern ShareStatus_Rejecting :: ShareStatus+pattern ShareStatus_Rejecting = ShareStatus' "Rejecting"++pattern ShareStatus_ShareFailed :: ShareStatus+pattern ShareStatus_ShareFailed = ShareStatus' "ShareFailed"++pattern ShareStatus_Shared :: ShareStatus+pattern ShareStatus_Shared = ShareStatus' "Shared"++pattern ShareStatus_Sharing :: ShareStatus+pattern ShareStatus_Sharing = ShareStatus' "Sharing"++{-# COMPLETE+  ShareStatus_Deleted,+  ShareStatus_Deleting,+  ShareStatus_PendingAcceptance,+  ShareStatus_RejectFailed,+  ShareStatus_Rejected,+  ShareStatus_Rejecting,+  ShareStatus_ShareFailed,+  ShareStatus_Shared,+  ShareStatus_Sharing,+  ShareStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/ShareTarget.hs view

@@ -0,0 +1,84 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.ShareTarget+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.ShareTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.TargetType+import qualified Amazonka.Prelude as Prelude++-- | Identifier that contains details about the directory consumer account.+--+-- /See:/ 'newShareTarget' smart constructor.+data ShareTarget = ShareTarget'+  { -- | Identifier of the directory consumer account.+    id :: Prelude.Text,+    -- | Type of identifier to be used in the @Id@ field.+    type' :: TargetType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'ShareTarget' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'shareTarget_id' - Identifier of the directory consumer account.+--+-- 'type'', 'shareTarget_type' - Type of identifier to be used in the @Id@ field.+newShareTarget ::+  -- | 'id'+  Prelude.Text ->+  -- | 'type''+  TargetType ->+  ShareTarget+newShareTarget pId_ pType_ =+  ShareTarget' {id = pId_, type' = pType_}++-- | Identifier of the directory consumer account.+shareTarget_id :: Lens.Lens' ShareTarget Prelude.Text+shareTarget_id = Lens.lens (\ShareTarget' {id} -> id) (\s@ShareTarget' {} a -> s {id = a} :: ShareTarget)++-- | Type of identifier to be used in the @Id@ field.+shareTarget_type :: Lens.Lens' ShareTarget TargetType+shareTarget_type = Lens.lens (\ShareTarget' {type'} -> type') (\s@ShareTarget' {} a -> s {type' = a} :: ShareTarget)++instance Prelude.Hashable ShareTarget where+  hashWithSalt _salt ShareTarget' {..} =+    _salt+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` type'++instance Prelude.NFData ShareTarget where+  rnf ShareTarget' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf type'++instance Data.ToJSON ShareTarget where+  toJSON ShareTarget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Id" Data..= id),+            Prelude.Just ("Type" Data..= type')+          ]+      )

+ gen/Amazonka/DirectoryService/Types/SharedDirectory.hs view

@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SharedDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SharedDirectory where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.ShareMethod+import Amazonka.DirectoryService.Types.ShareStatus+import qualified Amazonka.Prelude as Prelude++-- | Details about the shared directory in the directory owner account for+-- which the share request in the directory consumer account has been+-- accepted.+--+-- /See:/ 'newSharedDirectory' smart constructor.+data SharedDirectory = SharedDirectory'+  { -- | The date and time that the shared directory was created.+    createdDateTime :: Prelude.Maybe Data.POSIX,+    -- | The date and time that the shared directory was last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | Identifier of the directory owner account, which contains the directory+    -- that has been shared to the consumer account.+    ownerAccountId :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the directory in the directory owner account.+    ownerDirectoryId :: Prelude.Maybe Prelude.Text,+    -- | The method used when sharing a directory to determine whether the+    -- directory should be shared within your Amazon Web Services organization+    -- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+    -- shared directory request (@HANDSHAKE@).+    shareMethod :: Prelude.Maybe ShareMethod,+    -- | A directory share request that is sent by the directory owner to the+    -- directory consumer. The request includes a typed message to help the+    -- directory consumer administrator determine whether to approve or reject+    -- the share invitation.+    shareNotes :: Prelude.Maybe (Data.Sensitive Prelude.Text),+    -- | Current directory status of the shared Managed Microsoft AD directory.+    shareStatus :: Prelude.Maybe ShareStatus,+    -- | Identifier of the directory consumer account that has access to the+    -- shared directory (@OwnerDirectoryId@) in the directory owner account.+    sharedAccountId :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the shared directory in the directory consumer account.+    -- This identifier is different for each directory owner account.+    sharedDirectoryId :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SharedDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdDateTime', 'sharedDirectory_createdDateTime' - The date and time that the shared directory was created.+--+-- 'lastUpdatedDateTime', 'sharedDirectory_lastUpdatedDateTime' - The date and time that the shared directory was last updated.+--+-- 'ownerAccountId', 'sharedDirectory_ownerAccountId' - Identifier of the directory owner account, which contains the directory+-- that has been shared to the consumer account.+--+-- 'ownerDirectoryId', 'sharedDirectory_ownerDirectoryId' - Identifier of the directory in the directory owner account.+--+-- 'shareMethod', 'sharedDirectory_shareMethod' - The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- shared directory request (@HANDSHAKE@).+--+-- 'shareNotes', 'sharedDirectory_shareNotes' - A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+--+-- 'shareStatus', 'sharedDirectory_shareStatus' - Current directory status of the shared Managed Microsoft AD directory.+--+-- 'sharedAccountId', 'sharedDirectory_sharedAccountId' - Identifier of the directory consumer account that has access to the+-- shared directory (@OwnerDirectoryId@) in the directory owner account.+--+-- 'sharedDirectoryId', 'sharedDirectory_sharedDirectoryId' - Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+newSharedDirectory ::+  SharedDirectory+newSharedDirectory =+  SharedDirectory'+    { createdDateTime = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing,+      ownerAccountId = Prelude.Nothing,+      ownerDirectoryId = Prelude.Nothing,+      shareMethod = Prelude.Nothing,+      shareNotes = Prelude.Nothing,+      shareStatus = Prelude.Nothing,+      sharedAccountId = Prelude.Nothing,+      sharedDirectoryId = Prelude.Nothing+    }++-- | The date and time that the shared directory was created.+sharedDirectory_createdDateTime :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.UTCTime)+sharedDirectory_createdDateTime = Lens.lens (\SharedDirectory' {createdDateTime} -> createdDateTime) (\s@SharedDirectory' {} a -> s {createdDateTime = a} :: SharedDirectory) Prelude.. Lens.mapping Data._Time++-- | The date and time that the shared directory was last updated.+sharedDirectory_lastUpdatedDateTime :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.UTCTime)+sharedDirectory_lastUpdatedDateTime = Lens.lens (\SharedDirectory' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@SharedDirectory' {} a -> s {lastUpdatedDateTime = a} :: SharedDirectory) Prelude.. Lens.mapping Data._Time++-- | Identifier of the directory owner account, which contains the directory+-- that has been shared to the consumer account.+sharedDirectory_ownerAccountId :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.Text)+sharedDirectory_ownerAccountId = Lens.lens (\SharedDirectory' {ownerAccountId} -> ownerAccountId) (\s@SharedDirectory' {} a -> s {ownerAccountId = a} :: SharedDirectory)++-- | Identifier of the directory in the directory owner account.+sharedDirectory_ownerDirectoryId :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.Text)+sharedDirectory_ownerDirectoryId = Lens.lens (\SharedDirectory' {ownerDirectoryId} -> ownerDirectoryId) (\s@SharedDirectory' {} a -> s {ownerDirectoryId = a} :: SharedDirectory)++-- | The method used when sharing a directory to determine whether the+-- directory should be shared within your Amazon Web Services organization+-- (@ORGANIZATIONS@) or with any Amazon Web Services account by sending a+-- shared directory request (@HANDSHAKE@).+sharedDirectory_shareMethod :: Lens.Lens' SharedDirectory (Prelude.Maybe ShareMethod)+sharedDirectory_shareMethod = Lens.lens (\SharedDirectory' {shareMethod} -> shareMethod) (\s@SharedDirectory' {} a -> s {shareMethod = a} :: SharedDirectory)++-- | A directory share request that is sent by the directory owner to the+-- directory consumer. The request includes a typed message to help the+-- directory consumer administrator determine whether to approve or reject+-- the share invitation.+sharedDirectory_shareNotes :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.Text)+sharedDirectory_shareNotes = Lens.lens (\SharedDirectory' {shareNotes} -> shareNotes) (\s@SharedDirectory' {} a -> s {shareNotes = a} :: SharedDirectory) Prelude.. Lens.mapping Data._Sensitive++-- | Current directory status of the shared Managed Microsoft AD directory.+sharedDirectory_shareStatus :: Lens.Lens' SharedDirectory (Prelude.Maybe ShareStatus)+sharedDirectory_shareStatus = Lens.lens (\SharedDirectory' {shareStatus} -> shareStatus) (\s@SharedDirectory' {} a -> s {shareStatus = a} :: SharedDirectory)++-- | Identifier of the directory consumer account that has access to the+-- shared directory (@OwnerDirectoryId@) in the directory owner account.+sharedDirectory_sharedAccountId :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.Text)+sharedDirectory_sharedAccountId = Lens.lens (\SharedDirectory' {sharedAccountId} -> sharedAccountId) (\s@SharedDirectory' {} a -> s {sharedAccountId = a} :: SharedDirectory)++-- | Identifier of the shared directory in the directory consumer account.+-- This identifier is different for each directory owner account.+sharedDirectory_sharedDirectoryId :: Lens.Lens' SharedDirectory (Prelude.Maybe Prelude.Text)+sharedDirectory_sharedDirectoryId = Lens.lens (\SharedDirectory' {sharedDirectoryId} -> sharedDirectoryId) (\s@SharedDirectory' {} a -> s {sharedDirectoryId = a} :: SharedDirectory)++instance Data.FromJSON SharedDirectory where+  parseJSON =+    Data.withObject+      "SharedDirectory"+      ( \x ->+          SharedDirectory'+            Prelude.<$> (x Data..:? "CreatedDateTime")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "OwnerAccountId")+            Prelude.<*> (x Data..:? "OwnerDirectoryId")+            Prelude.<*> (x Data..:? "ShareMethod")+            Prelude.<*> (x Data..:? "ShareNotes")+            Prelude.<*> (x Data..:? "ShareStatus")+            Prelude.<*> (x Data..:? "SharedAccountId")+            Prelude.<*> (x Data..:? "SharedDirectoryId")+      )++instance Prelude.Hashable SharedDirectory where+  hashWithSalt _salt SharedDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` createdDateTime+      `Prelude.hashWithSalt` lastUpdatedDateTime+      `Prelude.hashWithSalt` ownerAccountId+      `Prelude.hashWithSalt` ownerDirectoryId+      `Prelude.hashWithSalt` shareMethod+      `Prelude.hashWithSalt` shareNotes+      `Prelude.hashWithSalt` shareStatus+      `Prelude.hashWithSalt` sharedAccountId+      `Prelude.hashWithSalt` sharedDirectoryId++instance Prelude.NFData SharedDirectory where+  rnf SharedDirectory' {..} =+    Prelude.rnf createdDateTime+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf ownerAccountId+      `Prelude.seq` Prelude.rnf ownerDirectoryId+      `Prelude.seq` Prelude.rnf shareMethod+      `Prelude.seq` Prelude.rnf shareNotes+      `Prelude.seq` Prelude.rnf shareStatus+      `Prelude.seq` Prelude.rnf sharedAccountId+      `Prelude.seq` Prelude.rnf sharedDirectoryId

+ gen/Amazonka/DirectoryService/Types/Snapshot.hs view

@@ -0,0 +1,134 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Snapshot+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Snapshot where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.SnapshotStatus+import Amazonka.DirectoryService.Types.SnapshotType+import qualified Amazonka.Prelude as Prelude++-- | Describes a directory snapshot.+--+-- /See:/ 'newSnapshot' smart constructor.+data Snapshot = Snapshot'+  { -- | The directory identifier.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The descriptive name of the snapshot.+    name :: Prelude.Maybe Prelude.Text,+    -- | The snapshot identifier.+    snapshotId :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the snapshot was taken.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The snapshot status.+    status :: Prelude.Maybe SnapshotStatus,+    -- | The snapshot type.+    type' :: Prelude.Maybe SnapshotType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Snapshot' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'snapshot_directoryId' - The directory identifier.+--+-- 'name', 'snapshot_name' - The descriptive name of the snapshot.+--+-- 'snapshotId', 'snapshot_snapshotId' - The snapshot identifier.+--+-- 'startTime', 'snapshot_startTime' - The date and time that the snapshot was taken.+--+-- 'status', 'snapshot_status' - The snapshot status.+--+-- 'type'', 'snapshot_type' - The snapshot type.+newSnapshot ::+  Snapshot+newSnapshot =+  Snapshot'+    { directoryId = Prelude.Nothing,+      name = Prelude.Nothing,+      snapshotId = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      type' = Prelude.Nothing+    }++-- | The directory identifier.+snapshot_directoryId :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_directoryId = Lens.lens (\Snapshot' {directoryId} -> directoryId) (\s@Snapshot' {} a -> s {directoryId = a} :: Snapshot)++-- | The descriptive name of the snapshot.+snapshot_name :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_name = Lens.lens (\Snapshot' {name} -> name) (\s@Snapshot' {} a -> s {name = a} :: Snapshot)++-- | The snapshot identifier.+snapshot_snapshotId :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.Text)+snapshot_snapshotId = Lens.lens (\Snapshot' {snapshotId} -> snapshotId) (\s@Snapshot' {} a -> s {snapshotId = a} :: Snapshot)++-- | The date and time that the snapshot was taken.+snapshot_startTime :: Lens.Lens' Snapshot (Prelude.Maybe Prelude.UTCTime)+snapshot_startTime = Lens.lens (\Snapshot' {startTime} -> startTime) (\s@Snapshot' {} a -> s {startTime = a} :: Snapshot) Prelude.. Lens.mapping Data._Time++-- | The snapshot status.+snapshot_status :: Lens.Lens' Snapshot (Prelude.Maybe SnapshotStatus)+snapshot_status = Lens.lens (\Snapshot' {status} -> status) (\s@Snapshot' {} a -> s {status = a} :: Snapshot)++-- | The snapshot type.+snapshot_type :: Lens.Lens' Snapshot (Prelude.Maybe SnapshotType)+snapshot_type = Lens.lens (\Snapshot' {type'} -> type') (\s@Snapshot' {} a -> s {type' = a} :: Snapshot)++instance Data.FromJSON Snapshot where+  parseJSON =+    Data.withObject+      "Snapshot"+      ( \x ->+          Snapshot'+            Prelude.<$> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "Name")+            Prelude.<*> (x Data..:? "SnapshotId")+            Prelude.<*> (x Data..:? "StartTime")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "Type")+      )++instance Prelude.Hashable Snapshot where+  hashWithSalt _salt Snapshot' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` name+      `Prelude.hashWithSalt` snapshotId+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` type'++instance Prelude.NFData Snapshot where+  rnf Snapshot' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf name+      `Prelude.seq` Prelude.rnf snapshotId+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf type'

+ gen/Amazonka/DirectoryService/Types/SnapshotLimits.hs view

@@ -0,0 +1,97 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SnapshotLimits+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SnapshotLimits where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Contains manual snapshot limit information for a directory.+--+-- /See:/ 'newSnapshotLimits' smart constructor.+data SnapshotLimits = SnapshotLimits'+  { -- | The current number of manual snapshots of the directory.+    manualSnapshotsCurrentCount :: Prelude.Maybe Prelude.Natural,+    -- | The maximum number of manual snapshots allowed.+    manualSnapshotsLimit :: Prelude.Maybe Prelude.Natural,+    -- | Indicates if the manual snapshot limit has been reached.+    manualSnapshotsLimitReached :: Prelude.Maybe Prelude.Bool+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'SnapshotLimits' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'manualSnapshotsCurrentCount', 'snapshotLimits_manualSnapshotsCurrentCount' - The current number of manual snapshots of the directory.+--+-- 'manualSnapshotsLimit', 'snapshotLimits_manualSnapshotsLimit' - The maximum number of manual snapshots allowed.+--+-- 'manualSnapshotsLimitReached', 'snapshotLimits_manualSnapshotsLimitReached' - Indicates if the manual snapshot limit has been reached.+newSnapshotLimits ::+  SnapshotLimits+newSnapshotLimits =+  SnapshotLimits'+    { manualSnapshotsCurrentCount =+        Prelude.Nothing,+      manualSnapshotsLimit = Prelude.Nothing,+      manualSnapshotsLimitReached = Prelude.Nothing+    }++-- | The current number of manual snapshots of the directory.+snapshotLimits_manualSnapshotsCurrentCount :: Lens.Lens' SnapshotLimits (Prelude.Maybe Prelude.Natural)+snapshotLimits_manualSnapshotsCurrentCount = Lens.lens (\SnapshotLimits' {manualSnapshotsCurrentCount} -> manualSnapshotsCurrentCount) (\s@SnapshotLimits' {} a -> s {manualSnapshotsCurrentCount = a} :: SnapshotLimits)++-- | The maximum number of manual snapshots allowed.+snapshotLimits_manualSnapshotsLimit :: Lens.Lens' SnapshotLimits (Prelude.Maybe Prelude.Natural)+snapshotLimits_manualSnapshotsLimit = Lens.lens (\SnapshotLimits' {manualSnapshotsLimit} -> manualSnapshotsLimit) (\s@SnapshotLimits' {} a -> s {manualSnapshotsLimit = a} :: SnapshotLimits)++-- | Indicates if the manual snapshot limit has been reached.+snapshotLimits_manualSnapshotsLimitReached :: Lens.Lens' SnapshotLimits (Prelude.Maybe Prelude.Bool)+snapshotLimits_manualSnapshotsLimitReached = Lens.lens (\SnapshotLimits' {manualSnapshotsLimitReached} -> manualSnapshotsLimitReached) (\s@SnapshotLimits' {} a -> s {manualSnapshotsLimitReached = a} :: SnapshotLimits)++instance Data.FromJSON SnapshotLimits where+  parseJSON =+    Data.withObject+      "SnapshotLimits"+      ( \x ->+          SnapshotLimits'+            Prelude.<$> (x Data..:? "ManualSnapshotsCurrentCount")+            Prelude.<*> (x Data..:? "ManualSnapshotsLimit")+            Prelude.<*> (x Data..:? "ManualSnapshotsLimitReached")+      )++instance Prelude.Hashable SnapshotLimits where+  hashWithSalt _salt SnapshotLimits' {..} =+    _salt+      `Prelude.hashWithSalt` manualSnapshotsCurrentCount+      `Prelude.hashWithSalt` manualSnapshotsLimit+      `Prelude.hashWithSalt` manualSnapshotsLimitReached++instance Prelude.NFData SnapshotLimits where+  rnf SnapshotLimits' {..} =+    Prelude.rnf manualSnapshotsCurrentCount+      `Prelude.seq` Prelude.rnf manualSnapshotsLimit+      `Prelude.seq` Prelude.rnf manualSnapshotsLimitReached

+ gen/Amazonka/DirectoryService/Types/SnapshotStatus.hs view

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SnapshotStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SnapshotStatus+  ( SnapshotStatus+      ( ..,+        SnapshotStatus_Completed,+        SnapshotStatus_Creating,+        SnapshotStatus_Failed+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SnapshotStatus = SnapshotStatus'+  { fromSnapshotStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SnapshotStatus_Completed :: SnapshotStatus+pattern SnapshotStatus_Completed = SnapshotStatus' "Completed"++pattern SnapshotStatus_Creating :: SnapshotStatus+pattern SnapshotStatus_Creating = SnapshotStatus' "Creating"++pattern SnapshotStatus_Failed :: SnapshotStatus+pattern SnapshotStatus_Failed = SnapshotStatus' "Failed"++{-# COMPLETE+  SnapshotStatus_Completed,+  SnapshotStatus_Creating,+  SnapshotStatus_Failed,+  SnapshotStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/SnapshotType.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.SnapshotType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.SnapshotType+  ( SnapshotType+      ( ..,+        SnapshotType_Auto,+        SnapshotType_Manual+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype SnapshotType = SnapshotType'+  { fromSnapshotType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern SnapshotType_Auto :: SnapshotType+pattern SnapshotType_Auto = SnapshotType' "Auto"++pattern SnapshotType_Manual :: SnapshotType+pattern SnapshotType_Manual = SnapshotType' "Manual"++{-# COMPLETE+  SnapshotType_Auto,+  SnapshotType_Manual,+  SnapshotType'+  #-}

+ gen/Amazonka/DirectoryService/Types/Tag.hs view

@@ -0,0 +1,114 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Tag+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Tag where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++-- | Metadata assigned to a directory consisting of a key-value pair.+--+-- /See:/ 'newTag' smart constructor.+data Tag = Tag'+  { -- | Required name of the tag. The string value can be Unicode characters and+    -- cannot be prefixed with \"aws:\". The string can contain only the set of+    -- Unicode letters, digits, white-space, \'_\', \'.\', \'\/\', \'=\',+    -- \'+\', \'-\' (Java regex:+    -- \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+    key :: Prelude.Text,+    -- | The optional value of the tag. The string value can be Unicode+    -- characters. The string can contain only the set of Unicode letters,+    -- digits, white-space, \'_\', \'.\', \'\/\', \'=\', \'+\', \'-\' (Java+    -- regex: \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+    value :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Tag' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'key', 'tag_key' - Required name of the tag. The string value can be Unicode characters and+-- cannot be prefixed with \"aws:\". The string can contain only the set of+-- Unicode letters, digits, white-space, \'_\', \'.\', \'\/\', \'=\',+-- \'+\', \'-\' (Java regex:+-- \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+--+-- 'value', 'tag_value' - The optional value of the tag. The string value can be Unicode+-- characters. The string can contain only the set of Unicode letters,+-- digits, white-space, \'_\', \'.\', \'\/\', \'=\', \'+\', \'-\' (Java+-- regex: \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+newTag ::+  -- | 'key'+  Prelude.Text ->+  -- | 'value'+  Prelude.Text ->+  Tag+newTag pKey_ pValue_ =+  Tag' {key = pKey_, value = pValue_}++-- | Required name of the tag. The string value can be Unicode characters and+-- cannot be prefixed with \"aws:\". The string can contain only the set of+-- Unicode letters, digits, white-space, \'_\', \'.\', \'\/\', \'=\',+-- \'+\', \'-\' (Java regex:+-- \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+tag_key :: Lens.Lens' Tag Prelude.Text+tag_key = Lens.lens (\Tag' {key} -> key) (\s@Tag' {} a -> s {key = a} :: Tag)++-- | The optional value of the tag. The string value can be Unicode+-- characters. The string can contain only the set of Unicode letters,+-- digits, white-space, \'_\', \'.\', \'\/\', \'=\', \'+\', \'-\' (Java+-- regex: \"^([\\\\p{L}\\\\p{Z}\\\\p{N}_.:\/=+\\\\-]*)$\").+tag_value :: Lens.Lens' Tag Prelude.Text+tag_value = Lens.lens (\Tag' {value} -> value) (\s@Tag' {} a -> s {value = a} :: Tag)++instance Data.FromJSON Tag where+  parseJSON =+    Data.withObject+      "Tag"+      ( \x ->+          Tag'+            Prelude.<$> (x Data..: "Key")+            Prelude.<*> (x Data..: "Value")+      )++instance Prelude.Hashable Tag where+  hashWithSalt _salt Tag' {..} =+    _salt+      `Prelude.hashWithSalt` key+      `Prelude.hashWithSalt` value++instance Prelude.NFData Tag where+  rnf Tag' {..} =+    Prelude.rnf key `Prelude.seq` Prelude.rnf value++instance Data.ToJSON Tag where+  toJSON Tag' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Key" Data..= key),+            Prelude.Just ("Value" Data..= value)+          ]+      )

+ gen/Amazonka/DirectoryService/Types/TargetType.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.TargetType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.TargetType+  ( TargetType+      ( ..,+        TargetType_ACCOUNT+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TargetType = TargetType'+  { fromTargetType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TargetType_ACCOUNT :: TargetType+pattern TargetType_ACCOUNT = TargetType' "ACCOUNT"++{-# COMPLETE+  TargetType_ACCOUNT,+  TargetType'+  #-}

+ gen/Amazonka/DirectoryService/Types/TopicStatus.hs view

@@ -0,0 +1,81 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.TopicStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.TopicStatus+  ( TopicStatus+      ( ..,+        TopicStatus_Deleted,+        TopicStatus_Failed,+        TopicStatus_Registered,+        TopicStatus_Topic_not_found+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TopicStatus = TopicStatus'+  { fromTopicStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TopicStatus_Deleted :: TopicStatus+pattern TopicStatus_Deleted = TopicStatus' "Deleted"++pattern TopicStatus_Failed :: TopicStatus+pattern TopicStatus_Failed = TopicStatus' "Failed"++pattern TopicStatus_Registered :: TopicStatus+pattern TopicStatus_Registered = TopicStatus' "Registered"++pattern TopicStatus_Topic_not_found :: TopicStatus+pattern TopicStatus_Topic_not_found = TopicStatus' "Topic not found"++{-# COMPLETE+  TopicStatus_Deleted,+  TopicStatus_Failed,+  TopicStatus_Registered,+  TopicStatus_Topic_not_found,+  TopicStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/Trust.hs view

@@ -0,0 +1,203 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.Trust+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.Trust where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.SelectiveAuth+import Amazonka.DirectoryService.Types.TrustDirection+import Amazonka.DirectoryService.Types.TrustState+import Amazonka.DirectoryService.Types.TrustType+import qualified Amazonka.Prelude as Prelude++-- | Describes a trust relationship between an Managed Microsoft AD directory+-- and an external domain.+--+-- /See:/ 'newTrust' smart constructor.+data Trust = Trust'+  { -- | The date and time that the trust relationship was created.+    createdDateTime :: Prelude.Maybe Data.POSIX,+    -- | The Directory ID of the Amazon Web Services directory involved in the+    -- trust relationship.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The date and time that the trust relationship was last updated.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | The Fully Qualified Domain Name (FQDN) of the external domain involved+    -- in the trust relationship.+    remoteDomainName :: Prelude.Maybe Prelude.Text,+    -- | Current state of selective authentication for the trust.+    selectiveAuth :: Prelude.Maybe SelectiveAuth,+    -- | The date and time that the TrustState was last updated.+    stateLastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | The trust relationship direction.+    trustDirection :: Prelude.Maybe TrustDirection,+    -- | The unique ID of the trust relationship.+    trustId :: Prelude.Maybe Prelude.Text,+    -- | The trust relationship state.+    trustState :: Prelude.Maybe TrustState,+    -- | The reason for the TrustState.+    trustStateReason :: Prelude.Maybe Prelude.Text,+    -- | The trust relationship type. @Forest@ is the default.+    trustType :: Prelude.Maybe TrustType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'Trust' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createdDateTime', 'trust_createdDateTime' - The date and time that the trust relationship was created.+--+-- 'directoryId', 'trust_directoryId' - The Directory ID of the Amazon Web Services directory involved in the+-- trust relationship.+--+-- 'lastUpdatedDateTime', 'trust_lastUpdatedDateTime' - The date and time that the trust relationship was last updated.+--+-- 'remoteDomainName', 'trust_remoteDomainName' - The Fully Qualified Domain Name (FQDN) of the external domain involved+-- in the trust relationship.+--+-- 'selectiveAuth', 'trust_selectiveAuth' - Current state of selective authentication for the trust.+--+-- 'stateLastUpdatedDateTime', 'trust_stateLastUpdatedDateTime' - The date and time that the TrustState was last updated.+--+-- 'trustDirection', 'trust_trustDirection' - The trust relationship direction.+--+-- 'trustId', 'trust_trustId' - The unique ID of the trust relationship.+--+-- 'trustState', 'trust_trustState' - The trust relationship state.+--+-- 'trustStateReason', 'trust_trustStateReason' - The reason for the TrustState.+--+-- 'trustType', 'trust_trustType' - The trust relationship type. @Forest@ is the default.+newTrust ::+  Trust+newTrust =+  Trust'+    { createdDateTime = Prelude.Nothing,+      directoryId = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing,+      remoteDomainName = Prelude.Nothing,+      selectiveAuth = Prelude.Nothing,+      stateLastUpdatedDateTime = Prelude.Nothing,+      trustDirection = Prelude.Nothing,+      trustId = Prelude.Nothing,+      trustState = Prelude.Nothing,+      trustStateReason = Prelude.Nothing,+      trustType = Prelude.Nothing+    }++-- | The date and time that the trust relationship was created.+trust_createdDateTime :: Lens.Lens' Trust (Prelude.Maybe Prelude.UTCTime)+trust_createdDateTime = Lens.lens (\Trust' {createdDateTime} -> createdDateTime) (\s@Trust' {} a -> s {createdDateTime = a} :: Trust) Prelude.. Lens.mapping Data._Time++-- | The Directory ID of the Amazon Web Services directory involved in the+-- trust relationship.+trust_directoryId :: Lens.Lens' Trust (Prelude.Maybe Prelude.Text)+trust_directoryId = Lens.lens (\Trust' {directoryId} -> directoryId) (\s@Trust' {} a -> s {directoryId = a} :: Trust)++-- | The date and time that the trust relationship was last updated.+trust_lastUpdatedDateTime :: Lens.Lens' Trust (Prelude.Maybe Prelude.UTCTime)+trust_lastUpdatedDateTime = Lens.lens (\Trust' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@Trust' {} a -> s {lastUpdatedDateTime = a} :: Trust) Prelude.. Lens.mapping Data._Time++-- | The Fully Qualified Domain Name (FQDN) of the external domain involved+-- in the trust relationship.+trust_remoteDomainName :: Lens.Lens' Trust (Prelude.Maybe Prelude.Text)+trust_remoteDomainName = Lens.lens (\Trust' {remoteDomainName} -> remoteDomainName) (\s@Trust' {} a -> s {remoteDomainName = a} :: Trust)++-- | Current state of selective authentication for the trust.+trust_selectiveAuth :: Lens.Lens' Trust (Prelude.Maybe SelectiveAuth)+trust_selectiveAuth = Lens.lens (\Trust' {selectiveAuth} -> selectiveAuth) (\s@Trust' {} a -> s {selectiveAuth = a} :: Trust)++-- | The date and time that the TrustState was last updated.+trust_stateLastUpdatedDateTime :: Lens.Lens' Trust (Prelude.Maybe Prelude.UTCTime)+trust_stateLastUpdatedDateTime = Lens.lens (\Trust' {stateLastUpdatedDateTime} -> stateLastUpdatedDateTime) (\s@Trust' {} a -> s {stateLastUpdatedDateTime = a} :: Trust) Prelude.. Lens.mapping Data._Time++-- | The trust relationship direction.+trust_trustDirection :: Lens.Lens' Trust (Prelude.Maybe TrustDirection)+trust_trustDirection = Lens.lens (\Trust' {trustDirection} -> trustDirection) (\s@Trust' {} a -> s {trustDirection = a} :: Trust)++-- | The unique ID of the trust relationship.+trust_trustId :: Lens.Lens' Trust (Prelude.Maybe Prelude.Text)+trust_trustId = Lens.lens (\Trust' {trustId} -> trustId) (\s@Trust' {} a -> s {trustId = a} :: Trust)++-- | The trust relationship state.+trust_trustState :: Lens.Lens' Trust (Prelude.Maybe TrustState)+trust_trustState = Lens.lens (\Trust' {trustState} -> trustState) (\s@Trust' {} a -> s {trustState = a} :: Trust)++-- | The reason for the TrustState.+trust_trustStateReason :: Lens.Lens' Trust (Prelude.Maybe Prelude.Text)+trust_trustStateReason = Lens.lens (\Trust' {trustStateReason} -> trustStateReason) (\s@Trust' {} a -> s {trustStateReason = a} :: Trust)++-- | The trust relationship type. @Forest@ is the default.+trust_trustType :: Lens.Lens' Trust (Prelude.Maybe TrustType)+trust_trustType = Lens.lens (\Trust' {trustType} -> trustType) (\s@Trust' {} a -> s {trustType = a} :: Trust)++instance Data.FromJSON Trust where+  parseJSON =+    Data.withObject+      "Trust"+      ( \x ->+          Trust'+            Prelude.<$> (x Data..:? "CreatedDateTime")+            Prelude.<*> (x Data..:? "DirectoryId")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "RemoteDomainName")+            Prelude.<*> (x Data..:? "SelectiveAuth")+            Prelude.<*> (x Data..:? "StateLastUpdatedDateTime")+            Prelude.<*> (x Data..:? "TrustDirection")+            Prelude.<*> (x Data..:? "TrustId")+            Prelude.<*> (x Data..:? "TrustState")+            Prelude.<*> (x Data..:? "TrustStateReason")+            Prelude.<*> (x Data..:? "TrustType")+      )++instance Prelude.Hashable Trust where+  hashWithSalt _salt Trust' {..} =+    _salt+      `Prelude.hashWithSalt` createdDateTime+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` lastUpdatedDateTime+      `Prelude.hashWithSalt` remoteDomainName+      `Prelude.hashWithSalt` selectiveAuth+      `Prelude.hashWithSalt` stateLastUpdatedDateTime+      `Prelude.hashWithSalt` trustDirection+      `Prelude.hashWithSalt` trustId+      `Prelude.hashWithSalt` trustState+      `Prelude.hashWithSalt` trustStateReason+      `Prelude.hashWithSalt` trustType++instance Prelude.NFData Trust where+  rnf Trust' {..} =+    Prelude.rnf createdDateTime+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf remoteDomainName+      `Prelude.seq` Prelude.rnf selectiveAuth+      `Prelude.seq` Prelude.rnf stateLastUpdatedDateTime+      `Prelude.seq` Prelude.rnf trustDirection+      `Prelude.seq` Prelude.rnf trustId+      `Prelude.seq` Prelude.rnf trustState+      `Prelude.seq` Prelude.rnf trustStateReason+      `Prelude.seq` Prelude.rnf trustType

+ gen/Amazonka/DirectoryService/Types/TrustDirection.hs view

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.TrustDirection+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.TrustDirection+  ( TrustDirection+      ( ..,+        TrustDirection_One_Way__Incoming,+        TrustDirection_One_Way__Outgoing,+        TrustDirection_Two_Way+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TrustDirection = TrustDirection'+  { fromTrustDirection ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TrustDirection_One_Way__Incoming :: TrustDirection+pattern TrustDirection_One_Way__Incoming = TrustDirection' "One-Way: Incoming"++pattern TrustDirection_One_Way__Outgoing :: TrustDirection+pattern TrustDirection_One_Way__Outgoing = TrustDirection' "One-Way: Outgoing"++pattern TrustDirection_Two_Way :: TrustDirection+pattern TrustDirection_Two_Way = TrustDirection' "Two-Way"++{-# COMPLETE+  TrustDirection_One_Way__Incoming,+  TrustDirection_One_Way__Outgoing,+  TrustDirection_Two_Way,+  TrustDirection'+  #-}

+ gen/Amazonka/DirectoryService/Types/TrustState.hs view

@@ -0,0 +1,116 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.TrustState+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.TrustState+  ( TrustState+      ( ..,+        TrustState_Created,+        TrustState_Creating,+        TrustState_Deleted,+        TrustState_Deleting,+        TrustState_Failed,+        TrustState_UpdateFailed,+        TrustState_Updated,+        TrustState_Updating,+        TrustState_Verified,+        TrustState_VerifyFailed,+        TrustState_Verifying+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TrustState = TrustState'+  { fromTrustState ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TrustState_Created :: TrustState+pattern TrustState_Created = TrustState' "Created"++pattern TrustState_Creating :: TrustState+pattern TrustState_Creating = TrustState' "Creating"++pattern TrustState_Deleted :: TrustState+pattern TrustState_Deleted = TrustState' "Deleted"++pattern TrustState_Deleting :: TrustState+pattern TrustState_Deleting = TrustState' "Deleting"++pattern TrustState_Failed :: TrustState+pattern TrustState_Failed = TrustState' "Failed"++pattern TrustState_UpdateFailed :: TrustState+pattern TrustState_UpdateFailed = TrustState' "UpdateFailed"++pattern TrustState_Updated :: TrustState+pattern TrustState_Updated = TrustState' "Updated"++pattern TrustState_Updating :: TrustState+pattern TrustState_Updating = TrustState' "Updating"++pattern TrustState_Verified :: TrustState+pattern TrustState_Verified = TrustState' "Verified"++pattern TrustState_VerifyFailed :: TrustState+pattern TrustState_VerifyFailed = TrustState' "VerifyFailed"++pattern TrustState_Verifying :: TrustState+pattern TrustState_Verifying = TrustState' "Verifying"++{-# COMPLETE+  TrustState_Created,+  TrustState_Creating,+  TrustState_Deleted,+  TrustState_Deleting,+  TrustState_Failed,+  TrustState_UpdateFailed,+  TrustState_Updated,+  TrustState_Updating,+  TrustState_Verified,+  TrustState_VerifyFailed,+  TrustState_Verifying,+  TrustState'+  #-}

+ gen/Amazonka/DirectoryService/Types/TrustType.hs view

@@ -0,0 +1,71 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.TrustType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.TrustType+  ( TrustType+      ( ..,+        TrustType_External,+        TrustType_Forest+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype TrustType = TrustType'+  { fromTrustType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern TrustType_External :: TrustType+pattern TrustType_External = TrustType' "External"++pattern TrustType_Forest :: TrustType+pattern TrustType_Forest = TrustType' "Forest"++{-# COMPLETE+  TrustType_External,+  TrustType_Forest,+  TrustType'+  #-}

+ gen/Amazonka/DirectoryService/Types/UnshareTarget.hs view

@@ -0,0 +1,85 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.UnshareTarget+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.UnshareTarget where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.TargetType+import qualified Amazonka.Prelude as Prelude++-- | Identifier that contains details about the directory consumer account+-- with whom the directory is being unshared.+--+-- /See:/ 'newUnshareTarget' smart constructor.+data UnshareTarget = UnshareTarget'+  { -- | Identifier of the directory consumer account.+    id :: Prelude.Text,+    -- | Type of identifier to be used in the /Id/ field.+    type' :: TargetType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UnshareTarget' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'id', 'unshareTarget_id' - Identifier of the directory consumer account.+--+-- 'type'', 'unshareTarget_type' - Type of identifier to be used in the /Id/ field.+newUnshareTarget ::+  -- | 'id'+  Prelude.Text ->+  -- | 'type''+  TargetType ->+  UnshareTarget+newUnshareTarget pId_ pType_ =+  UnshareTarget' {id = pId_, type' = pType_}++-- | Identifier of the directory consumer account.+unshareTarget_id :: Lens.Lens' UnshareTarget Prelude.Text+unshareTarget_id = Lens.lens (\UnshareTarget' {id} -> id) (\s@UnshareTarget' {} a -> s {id = a} :: UnshareTarget)++-- | Type of identifier to be used in the /Id/ field.+unshareTarget_type :: Lens.Lens' UnshareTarget TargetType+unshareTarget_type = Lens.lens (\UnshareTarget' {type'} -> type') (\s@UnshareTarget' {} a -> s {type' = a} :: UnshareTarget)++instance Prelude.Hashable UnshareTarget where+  hashWithSalt _salt UnshareTarget' {..} =+    _salt+      `Prelude.hashWithSalt` id+      `Prelude.hashWithSalt` type'++instance Prelude.NFData UnshareTarget where+  rnf UnshareTarget' {..} =+    Prelude.rnf id `Prelude.seq` Prelude.rnf type'++instance Data.ToJSON UnshareTarget where+  toJSON UnshareTarget' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("Id" Data..= id),+            Prelude.Just ("Type" Data..= type')+          ]+      )

+ gen/Amazonka/DirectoryService/Types/UpdateInfoEntry.hs view

@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.UpdateInfoEntry+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.UpdateInfoEntry where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.UpdateStatus+import Amazonka.DirectoryService.Types.UpdateValue+import qualified Amazonka.Prelude as Prelude++-- | An entry of update information related to a requested update type.+--+-- /See:/ 'newUpdateInfoEntry' smart constructor.+data UpdateInfoEntry = UpdateInfoEntry'+  { -- | This specifies if the update was initiated by the customer or by the+    -- service team.+    initiatedBy :: Prelude.Maybe Prelude.Text,+    -- | The last updated date and time of a particular directory setting.+    lastUpdatedDateTime :: Prelude.Maybe Data.POSIX,+    -- | The new value of the target setting.+    newValue' :: Prelude.Maybe UpdateValue,+    -- | The old value of the target setting.+    previousValue :: Prelude.Maybe UpdateValue,+    -- | The name of the Region.+    region :: Prelude.Maybe Prelude.Text,+    -- | The start time of the @UpdateDirectorySetup@ for the particular type.+    startTime :: Prelude.Maybe Data.POSIX,+    -- | The status of the update performed on the directory.+    status :: Prelude.Maybe UpdateStatus,+    -- | The reason for the current status of the update type activity.+    statusReason :: Prelude.Maybe Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateInfoEntry' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'initiatedBy', 'updateInfoEntry_initiatedBy' - This specifies if the update was initiated by the customer or by the+-- service team.+--+-- 'lastUpdatedDateTime', 'updateInfoEntry_lastUpdatedDateTime' - The last updated date and time of a particular directory setting.+--+-- 'newValue'', 'updateInfoEntry_newValue' - The new value of the target setting.+--+-- 'previousValue', 'updateInfoEntry_previousValue' - The old value of the target setting.+--+-- 'region', 'updateInfoEntry_region' - The name of the Region.+--+-- 'startTime', 'updateInfoEntry_startTime' - The start time of the @UpdateDirectorySetup@ for the particular type.+--+-- 'status', 'updateInfoEntry_status' - The status of the update performed on the directory.+--+-- 'statusReason', 'updateInfoEntry_statusReason' - The reason for the current status of the update type activity.+newUpdateInfoEntry ::+  UpdateInfoEntry+newUpdateInfoEntry =+  UpdateInfoEntry'+    { initiatedBy = Prelude.Nothing,+      lastUpdatedDateTime = Prelude.Nothing,+      newValue' = Prelude.Nothing,+      previousValue = Prelude.Nothing,+      region = Prelude.Nothing,+      startTime = Prelude.Nothing,+      status = Prelude.Nothing,+      statusReason = Prelude.Nothing+    }++-- | This specifies if the update was initiated by the customer or by the+-- service team.+updateInfoEntry_initiatedBy :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe Prelude.Text)+updateInfoEntry_initiatedBy = Lens.lens (\UpdateInfoEntry' {initiatedBy} -> initiatedBy) (\s@UpdateInfoEntry' {} a -> s {initiatedBy = a} :: UpdateInfoEntry)++-- | The last updated date and time of a particular directory setting.+updateInfoEntry_lastUpdatedDateTime :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe Prelude.UTCTime)+updateInfoEntry_lastUpdatedDateTime = Lens.lens (\UpdateInfoEntry' {lastUpdatedDateTime} -> lastUpdatedDateTime) (\s@UpdateInfoEntry' {} a -> s {lastUpdatedDateTime = a} :: UpdateInfoEntry) Prelude.. Lens.mapping Data._Time++-- | The new value of the target setting.+updateInfoEntry_newValue :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe UpdateValue)+updateInfoEntry_newValue = Lens.lens (\UpdateInfoEntry' {newValue'} -> newValue') (\s@UpdateInfoEntry' {} a -> s {newValue' = a} :: UpdateInfoEntry)++-- | The old value of the target setting.+updateInfoEntry_previousValue :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe UpdateValue)+updateInfoEntry_previousValue = Lens.lens (\UpdateInfoEntry' {previousValue} -> previousValue) (\s@UpdateInfoEntry' {} a -> s {previousValue = a} :: UpdateInfoEntry)++-- | The name of the Region.+updateInfoEntry_region :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe Prelude.Text)+updateInfoEntry_region = Lens.lens (\UpdateInfoEntry' {region} -> region) (\s@UpdateInfoEntry' {} a -> s {region = a} :: UpdateInfoEntry)++-- | The start time of the @UpdateDirectorySetup@ for the particular type.+updateInfoEntry_startTime :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe Prelude.UTCTime)+updateInfoEntry_startTime = Lens.lens (\UpdateInfoEntry' {startTime} -> startTime) (\s@UpdateInfoEntry' {} a -> s {startTime = a} :: UpdateInfoEntry) Prelude.. Lens.mapping Data._Time++-- | The status of the update performed on the directory.+updateInfoEntry_status :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe UpdateStatus)+updateInfoEntry_status = Lens.lens (\UpdateInfoEntry' {status} -> status) (\s@UpdateInfoEntry' {} a -> s {status = a} :: UpdateInfoEntry)++-- | The reason for the current status of the update type activity.+updateInfoEntry_statusReason :: Lens.Lens' UpdateInfoEntry (Prelude.Maybe Prelude.Text)+updateInfoEntry_statusReason = Lens.lens (\UpdateInfoEntry' {statusReason} -> statusReason) (\s@UpdateInfoEntry' {} a -> s {statusReason = a} :: UpdateInfoEntry)++instance Data.FromJSON UpdateInfoEntry where+  parseJSON =+    Data.withObject+      "UpdateInfoEntry"+      ( \x ->+          UpdateInfoEntry'+            Prelude.<$> (x Data..:? "InitiatedBy")+            Prelude.<*> (x Data..:? "LastUpdatedDateTime")+            Prelude.<*> (x Data..:? "NewValue")+            Prelude.<*> (x Data..:? "PreviousValue")+            Prelude.<*> (x Data..:? "Region")+            Prelude.<*> (x Data..:? "StartTime")+            Prelude.<*> (x Data..:? "Status")+            Prelude.<*> (x Data..:? "StatusReason")+      )++instance Prelude.Hashable UpdateInfoEntry where+  hashWithSalt _salt UpdateInfoEntry' {..} =+    _salt+      `Prelude.hashWithSalt` initiatedBy+      `Prelude.hashWithSalt` lastUpdatedDateTime+      `Prelude.hashWithSalt` newValue'+      `Prelude.hashWithSalt` previousValue+      `Prelude.hashWithSalt` region+      `Prelude.hashWithSalt` startTime+      `Prelude.hashWithSalt` status+      `Prelude.hashWithSalt` statusReason++instance Prelude.NFData UpdateInfoEntry where+  rnf UpdateInfoEntry' {..} =+    Prelude.rnf initiatedBy+      `Prelude.seq` Prelude.rnf lastUpdatedDateTime+      `Prelude.seq` Prelude.rnf newValue'+      `Prelude.seq` Prelude.rnf previousValue+      `Prelude.seq` Prelude.rnf region+      `Prelude.seq` Prelude.rnf startTime+      `Prelude.seq` Prelude.rnf status+      `Prelude.seq` Prelude.rnf statusReason

+ gen/Amazonka/DirectoryService/Types/UpdateStatus.hs view

@@ -0,0 +1,76 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.UpdateStatus+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.UpdateStatus+  ( UpdateStatus+      ( ..,+        UpdateStatus_UpdateFailed,+        UpdateStatus_Updated,+        UpdateStatus_Updating+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UpdateStatus = UpdateStatus'+  { fromUpdateStatus ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern UpdateStatus_UpdateFailed :: UpdateStatus+pattern UpdateStatus_UpdateFailed = UpdateStatus' "UpdateFailed"++pattern UpdateStatus_Updated :: UpdateStatus+pattern UpdateStatus_Updated = UpdateStatus' "Updated"++pattern UpdateStatus_Updating :: UpdateStatus+pattern UpdateStatus_Updating = UpdateStatus' "Updating"++{-# COMPLETE+  UpdateStatus_UpdateFailed,+  UpdateStatus_Updated,+  UpdateStatus_Updating,+  UpdateStatus'+  #-}

+ gen/Amazonka/DirectoryService/Types/UpdateType.hs view

@@ -0,0 +1,66 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DerivingStrategies #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE LambdaCase #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE PatternSynonyms #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.UpdateType+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.UpdateType+  ( UpdateType+      ( ..,+        UpdateType_OS+      ),+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Data as Data+import qualified Amazonka.Prelude as Prelude++newtype UpdateType = UpdateType'+  { fromUpdateType ::+      Data.Text+  }+  deriving stock+    ( Prelude.Show,+      Prelude.Read,+      Prelude.Eq,+      Prelude.Ord,+      Prelude.Generic+    )+  deriving newtype+    ( Prelude.Hashable,+      Prelude.NFData,+      Data.FromText,+      Data.ToText,+      Data.ToByteString,+      Data.ToLog,+      Data.ToHeader,+      Data.ToQuery,+      Data.FromJSON,+      Data.FromJSONKey,+      Data.ToJSON,+      Data.ToJSONKey,+      Data.FromXML,+      Data.ToXML+    )++pattern UpdateType_OS :: UpdateType+pattern UpdateType_OS = UpdateType' "OS"++{-# COMPLETE+  UpdateType_OS,+  UpdateType'+  #-}

+ gen/Amazonka/DirectoryService/Types/UpdateValue.hs view

@@ -0,0 +1,69 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Types.UpdateValue+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Types.UpdateValue where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types.OSUpdateSettings+import qualified Amazonka.Prelude as Prelude++-- | The value for a given type of @UpdateSettings@.+--+-- /See:/ 'newUpdateValue' smart constructor.+data UpdateValue = UpdateValue'+  { -- | The OS update related settings.+    oSUpdateSettings :: Prelude.Maybe OSUpdateSettings+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateValue' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'oSUpdateSettings', 'updateValue_oSUpdateSettings' - The OS update related settings.+newUpdateValue ::+  UpdateValue+newUpdateValue =+  UpdateValue' {oSUpdateSettings = Prelude.Nothing}++-- | The OS update related settings.+updateValue_oSUpdateSettings :: Lens.Lens' UpdateValue (Prelude.Maybe OSUpdateSettings)+updateValue_oSUpdateSettings = Lens.lens (\UpdateValue' {oSUpdateSettings} -> oSUpdateSettings) (\s@UpdateValue' {} a -> s {oSUpdateSettings = a} :: UpdateValue)++instance Data.FromJSON UpdateValue where+  parseJSON =+    Data.withObject+      "UpdateValue"+      ( \x ->+          UpdateValue'+            Prelude.<$> (x Data..:? "OSUpdateSettings")+      )++instance Prelude.Hashable UpdateValue where+  hashWithSalt _salt UpdateValue' {..} =+    _salt `Prelude.hashWithSalt` oSUpdateSettings++instance Prelude.NFData UpdateValue where+  rnf UpdateValue' {..} = Prelude.rnf oSUpdateSettings

+ gen/Amazonka/DirectoryService/UnshareDirectory.hs view

@@ -0,0 +1,199 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UnshareDirectory+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Stops the directory sharing between the directory owner and consumer+-- accounts.+module Amazonka.DirectoryService.UnshareDirectory+  ( -- * Creating a Request+    UnshareDirectory (..),+    newUnshareDirectory,++    -- * Request Lenses+    unshareDirectory_directoryId,+    unshareDirectory_unshareTarget,++    -- * Destructuring the Response+    UnshareDirectoryResponse (..),+    newUnshareDirectoryResponse,++    -- * Response Lenses+    unshareDirectoryResponse_sharedDirectoryId,+    unshareDirectoryResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUnshareDirectory' smart constructor.+data UnshareDirectory = UnshareDirectory'+  { -- | The identifier of the Managed Microsoft AD directory that you want to+    -- stop sharing.+    directoryId :: Prelude.Text,+    -- | Identifier for the directory consumer account with whom the directory+    -- has to be unshared.+    unshareTarget :: UnshareTarget+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UnshareDirectory' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'unshareDirectory_directoryId' - The identifier of the Managed Microsoft AD directory that you want to+-- stop sharing.+--+-- 'unshareTarget', 'unshareDirectory_unshareTarget' - Identifier for the directory consumer account with whom the directory+-- has to be unshared.+newUnshareDirectory ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'unshareTarget'+  UnshareTarget ->+  UnshareDirectory+newUnshareDirectory pDirectoryId_ pUnshareTarget_ =+  UnshareDirectory'+    { directoryId = pDirectoryId_,+      unshareTarget = pUnshareTarget_+    }++-- | The identifier of the Managed Microsoft AD directory that you want to+-- stop sharing.+unshareDirectory_directoryId :: Lens.Lens' UnshareDirectory Prelude.Text+unshareDirectory_directoryId = Lens.lens (\UnshareDirectory' {directoryId} -> directoryId) (\s@UnshareDirectory' {} a -> s {directoryId = a} :: UnshareDirectory)++-- | Identifier for the directory consumer account with whom the directory+-- has to be unshared.+unshareDirectory_unshareTarget :: Lens.Lens' UnshareDirectory UnshareTarget+unshareDirectory_unshareTarget = Lens.lens (\UnshareDirectory' {unshareTarget} -> unshareTarget) (\s@UnshareDirectory' {} a -> s {unshareTarget = a} :: UnshareDirectory)++instance Core.AWSRequest UnshareDirectory where+  type+    AWSResponse UnshareDirectory =+      UnshareDirectoryResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UnshareDirectoryResponse'+            Prelude.<$> (x Data..?> "SharedDirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UnshareDirectory where+  hashWithSalt _salt UnshareDirectory' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` unshareTarget++instance Prelude.NFData UnshareDirectory where+  rnf UnshareDirectory' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf unshareTarget++instance Data.ToHeaders UnshareDirectory where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UnshareDirectory" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UnshareDirectory where+  toJSON UnshareDirectory' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("UnshareTarget" Data..= unshareTarget)+          ]+      )++instance Data.ToPath UnshareDirectory where+  toPath = Prelude.const "/"++instance Data.ToQuery UnshareDirectory where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUnshareDirectoryResponse' smart constructor.+data UnshareDirectoryResponse = UnshareDirectoryResponse'+  { -- | Identifier of the directory stored in the directory consumer account+    -- that is to be unshared from the specified directory (@DirectoryId@).+    sharedDirectoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UnshareDirectoryResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'sharedDirectoryId', 'unshareDirectoryResponse_sharedDirectoryId' - Identifier of the directory stored in the directory consumer account+-- that is to be unshared from the specified directory (@DirectoryId@).+--+-- 'httpStatus', 'unshareDirectoryResponse_httpStatus' - The response's http status code.+newUnshareDirectoryResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UnshareDirectoryResponse+newUnshareDirectoryResponse pHttpStatus_ =+  UnshareDirectoryResponse'+    { sharedDirectoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Identifier of the directory stored in the directory consumer account+-- that is to be unshared from the specified directory (@DirectoryId@).+unshareDirectoryResponse_sharedDirectoryId :: Lens.Lens' UnshareDirectoryResponse (Prelude.Maybe Prelude.Text)+unshareDirectoryResponse_sharedDirectoryId = Lens.lens (\UnshareDirectoryResponse' {sharedDirectoryId} -> sharedDirectoryId) (\s@UnshareDirectoryResponse' {} a -> s {sharedDirectoryId = a} :: UnshareDirectoryResponse)++-- | The response's http status code.+unshareDirectoryResponse_httpStatus :: Lens.Lens' UnshareDirectoryResponse Prelude.Int+unshareDirectoryResponse_httpStatus = Lens.lens (\UnshareDirectoryResponse' {httpStatus} -> httpStatus) (\s@UnshareDirectoryResponse' {} a -> s {httpStatus = a} :: UnshareDirectoryResponse)++instance Prelude.NFData UnshareDirectoryResponse where+  rnf UnshareDirectoryResponse' {..} =+    Prelude.rnf sharedDirectoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateConditionalForwarder.hs view

@@ -0,0 +1,210 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateConditionalForwarder+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a conditional forwarder that has been set up for your Amazon Web+-- Services directory.+module Amazonka.DirectoryService.UpdateConditionalForwarder+  ( -- * Creating a Request+    UpdateConditionalForwarder (..),+    newUpdateConditionalForwarder,++    -- * Request Lenses+    updateConditionalForwarder_directoryId,+    updateConditionalForwarder_remoteDomainName,+    updateConditionalForwarder_dnsIpAddrs,++    -- * Destructuring the Response+    UpdateConditionalForwarderResponse (..),+    newUpdateConditionalForwarderResponse,++    -- * Response Lenses+    updateConditionalForwarderResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Updates a conditional forwarder.+--+-- /See:/ 'newUpdateConditionalForwarder' smart constructor.+data UpdateConditionalForwarder = UpdateConditionalForwarder'+  { -- | The directory ID of the Amazon Web Services directory for which to+    -- update the conditional forwarder.+    directoryId :: Prelude.Text,+    -- | The fully qualified domain name (FQDN) of the remote domain with which+    -- you will set up a trust relationship.+    remoteDomainName :: Prelude.Text,+    -- | The updated IP addresses of the remote DNS server associated with the+    -- conditional forwarder.+    dnsIpAddrs :: [Prelude.Text]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateConditionalForwarder' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'updateConditionalForwarder_directoryId' - The directory ID of the Amazon Web Services directory for which to+-- update the conditional forwarder.+--+-- 'remoteDomainName', 'updateConditionalForwarder_remoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+--+-- 'dnsIpAddrs', 'updateConditionalForwarder_dnsIpAddrs' - The updated IP addresses of the remote DNS server associated with the+-- conditional forwarder.+newUpdateConditionalForwarder ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'remoteDomainName'+  Prelude.Text ->+  UpdateConditionalForwarder+newUpdateConditionalForwarder+  pDirectoryId_+  pRemoteDomainName_ =+    UpdateConditionalForwarder'+      { directoryId =+          pDirectoryId_,+        remoteDomainName = pRemoteDomainName_,+        dnsIpAddrs = Prelude.mempty+      }++-- | The directory ID of the Amazon Web Services directory for which to+-- update the conditional forwarder.+updateConditionalForwarder_directoryId :: Lens.Lens' UpdateConditionalForwarder Prelude.Text+updateConditionalForwarder_directoryId = Lens.lens (\UpdateConditionalForwarder' {directoryId} -> directoryId) (\s@UpdateConditionalForwarder' {} a -> s {directoryId = a} :: UpdateConditionalForwarder)++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+updateConditionalForwarder_remoteDomainName :: Lens.Lens' UpdateConditionalForwarder Prelude.Text+updateConditionalForwarder_remoteDomainName = Lens.lens (\UpdateConditionalForwarder' {remoteDomainName} -> remoteDomainName) (\s@UpdateConditionalForwarder' {} a -> s {remoteDomainName = a} :: UpdateConditionalForwarder)++-- | The updated IP addresses of the remote DNS server associated with the+-- conditional forwarder.+updateConditionalForwarder_dnsIpAddrs :: Lens.Lens' UpdateConditionalForwarder [Prelude.Text]+updateConditionalForwarder_dnsIpAddrs = Lens.lens (\UpdateConditionalForwarder' {dnsIpAddrs} -> dnsIpAddrs) (\s@UpdateConditionalForwarder' {} a -> s {dnsIpAddrs = a} :: UpdateConditionalForwarder) Prelude.. Lens.coerced++instance Core.AWSRequest UpdateConditionalForwarder where+  type+    AWSResponse UpdateConditionalForwarder =+      UpdateConditionalForwarderResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateConditionalForwarderResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateConditionalForwarder where+  hashWithSalt _salt UpdateConditionalForwarder' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` remoteDomainName+      `Prelude.hashWithSalt` dnsIpAddrs++instance Prelude.NFData UpdateConditionalForwarder where+  rnf UpdateConditionalForwarder' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf remoteDomainName+      `Prelude.seq` Prelude.rnf dnsIpAddrs++instance Data.ToHeaders UpdateConditionalForwarder where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateConditionalForwarder" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateConditionalForwarder where+  toJSON UpdateConditionalForwarder' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RemoteDomainName" Data..= remoteDomainName),+            Prelude.Just ("DnsIpAddrs" Data..= dnsIpAddrs)+          ]+      )++instance Data.ToPath UpdateConditionalForwarder where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateConditionalForwarder where+  toQuery = Prelude.const Prelude.mempty++-- | The result of an UpdateConditionalForwarder request.+--+-- /See:/ 'newUpdateConditionalForwarderResponse' smart constructor.+data UpdateConditionalForwarderResponse = UpdateConditionalForwarderResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateConditionalForwarderResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateConditionalForwarderResponse_httpStatus' - The response's http status code.+newUpdateConditionalForwarderResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateConditionalForwarderResponse+newUpdateConditionalForwarderResponse pHttpStatus_ =+  UpdateConditionalForwarderResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+updateConditionalForwarderResponse_httpStatus :: Lens.Lens' UpdateConditionalForwarderResponse Prelude.Int+updateConditionalForwarderResponse_httpStatus = Lens.lens (\UpdateConditionalForwarderResponse' {httpStatus} -> httpStatus) (\s@UpdateConditionalForwarderResponse' {} a -> s {httpStatus = a} :: UpdateConditionalForwarderResponse)++instance+  Prelude.NFData+    UpdateConditionalForwarderResponse+  where+  rnf UpdateConditionalForwarderResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateDirectorySetup.hs view

@@ -0,0 +1,214 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateDirectorySetup+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the directory for a particular update type.+module Amazonka.DirectoryService.UpdateDirectorySetup+  ( -- * Creating a Request+    UpdateDirectorySetup (..),+    newUpdateDirectorySetup,++    -- * Request Lenses+    updateDirectorySetup_createSnapshotBeforeUpdate,+    updateDirectorySetup_oSUpdateSettings,+    updateDirectorySetup_directoryId,+    updateDirectorySetup_updateType,++    -- * Destructuring the Response+    UpdateDirectorySetupResponse (..),+    newUpdateDirectorySetupResponse,++    -- * Response Lenses+    updateDirectorySetupResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateDirectorySetup' smart constructor.+data UpdateDirectorySetup = UpdateDirectorySetup'+  { -- | The boolean that specifies if a snapshot for the directory needs to be+    -- taken before updating the directory.+    createSnapshotBeforeUpdate :: Prelude.Maybe Prelude.Bool,+    -- | The settings for the OS update that needs to be performed on the+    -- directory.+    oSUpdateSettings :: Prelude.Maybe OSUpdateSettings,+    -- | The identifier of the directory on which you want to perform the update.+    directoryId :: Prelude.Text,+    -- | The type of update that needs to be performed on the directory. For+    -- example, OS.+    updateType :: UpdateType+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDirectorySetup' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'createSnapshotBeforeUpdate', 'updateDirectorySetup_createSnapshotBeforeUpdate' - The boolean that specifies if a snapshot for the directory needs to be+-- taken before updating the directory.+--+-- 'oSUpdateSettings', 'updateDirectorySetup_oSUpdateSettings' - The settings for the OS update that needs to be performed on the+-- directory.+--+-- 'directoryId', 'updateDirectorySetup_directoryId' - The identifier of the directory on which you want to perform the update.+--+-- 'updateType', 'updateDirectorySetup_updateType' - The type of update that needs to be performed on the directory. For+-- example, OS.+newUpdateDirectorySetup ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'updateType'+  UpdateType ->+  UpdateDirectorySetup+newUpdateDirectorySetup pDirectoryId_ pUpdateType_ =+  UpdateDirectorySetup'+    { createSnapshotBeforeUpdate =+        Prelude.Nothing,+      oSUpdateSettings = Prelude.Nothing,+      directoryId = pDirectoryId_,+      updateType = pUpdateType_+    }++-- | The boolean that specifies if a snapshot for the directory needs to be+-- taken before updating the directory.+updateDirectorySetup_createSnapshotBeforeUpdate :: Lens.Lens' UpdateDirectorySetup (Prelude.Maybe Prelude.Bool)+updateDirectorySetup_createSnapshotBeforeUpdate = Lens.lens (\UpdateDirectorySetup' {createSnapshotBeforeUpdate} -> createSnapshotBeforeUpdate) (\s@UpdateDirectorySetup' {} a -> s {createSnapshotBeforeUpdate = a} :: UpdateDirectorySetup)++-- | The settings for the OS update that needs to be performed on the+-- directory.+updateDirectorySetup_oSUpdateSettings :: Lens.Lens' UpdateDirectorySetup (Prelude.Maybe OSUpdateSettings)+updateDirectorySetup_oSUpdateSettings = Lens.lens (\UpdateDirectorySetup' {oSUpdateSettings} -> oSUpdateSettings) (\s@UpdateDirectorySetup' {} a -> s {oSUpdateSettings = a} :: UpdateDirectorySetup)++-- | The identifier of the directory on which you want to perform the update.+updateDirectorySetup_directoryId :: Lens.Lens' UpdateDirectorySetup Prelude.Text+updateDirectorySetup_directoryId = Lens.lens (\UpdateDirectorySetup' {directoryId} -> directoryId) (\s@UpdateDirectorySetup' {} a -> s {directoryId = a} :: UpdateDirectorySetup)++-- | The type of update that needs to be performed on the directory. For+-- example, OS.+updateDirectorySetup_updateType :: Lens.Lens' UpdateDirectorySetup UpdateType+updateDirectorySetup_updateType = Lens.lens (\UpdateDirectorySetup' {updateType} -> updateType) (\s@UpdateDirectorySetup' {} a -> s {updateType = a} :: UpdateDirectorySetup)++instance Core.AWSRequest UpdateDirectorySetup where+  type+    AWSResponse UpdateDirectorySetup =+      UpdateDirectorySetupResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateDirectorySetupResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateDirectorySetup where+  hashWithSalt _salt UpdateDirectorySetup' {..} =+    _salt+      `Prelude.hashWithSalt` createSnapshotBeforeUpdate+      `Prelude.hashWithSalt` oSUpdateSettings+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` updateType++instance Prelude.NFData UpdateDirectorySetup where+  rnf UpdateDirectorySetup' {..} =+    Prelude.rnf createSnapshotBeforeUpdate+      `Prelude.seq` Prelude.rnf oSUpdateSettings+      `Prelude.seq` Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf updateType++instance Data.ToHeaders UpdateDirectorySetup where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateDirectorySetup" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateDirectorySetup where+  toJSON UpdateDirectorySetup' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("CreateSnapshotBeforeUpdate" Data..=)+              Prelude.<$> createSnapshotBeforeUpdate,+            ("OSUpdateSettings" Data..=)+              Prelude.<$> oSUpdateSettings,+            Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("UpdateType" Data..= updateType)+          ]+      )++instance Data.ToPath UpdateDirectorySetup where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateDirectorySetup where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateDirectorySetupResponse' smart constructor.+data UpdateDirectorySetupResponse = UpdateDirectorySetupResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateDirectorySetupResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateDirectorySetupResponse_httpStatus' - The response's http status code.+newUpdateDirectorySetupResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateDirectorySetupResponse+newUpdateDirectorySetupResponse pHttpStatus_ =+  UpdateDirectorySetupResponse'+    { httpStatus =+        pHttpStatus_+    }++-- | The response's http status code.+updateDirectorySetupResponse_httpStatus :: Lens.Lens' UpdateDirectorySetupResponse Prelude.Int+updateDirectorySetupResponse_httpStatus = Lens.lens (\UpdateDirectorySetupResponse' {httpStatus} -> httpStatus) (\s@UpdateDirectorySetupResponse' {} a -> s {httpStatus = a} :: UpdateDirectorySetupResponse)++instance Prelude.NFData UpdateDirectorySetupResponse where+  rnf UpdateDirectorySetupResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateNumberOfDomainControllers.hs view

@@ -0,0 +1,206 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateNumberOfDomainControllers+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Adds or removes domain controllers to or from the directory. Based on+-- the difference between current value and new value (provided through+-- this API call), domain controllers will be added or removed. It may take+-- up to 45 minutes for any new domain controllers to become fully active+-- once the requested number of domain controllers is updated. During this+-- time, you cannot make another update request.+module Amazonka.DirectoryService.UpdateNumberOfDomainControllers+  ( -- * Creating a Request+    UpdateNumberOfDomainControllers (..),+    newUpdateNumberOfDomainControllers,++    -- * Request Lenses+    updateNumberOfDomainControllers_directoryId,+    updateNumberOfDomainControllers_desiredNumber,++    -- * Destructuring the Response+    UpdateNumberOfDomainControllersResponse (..),+    newUpdateNumberOfDomainControllersResponse,++    -- * Response Lenses+    updateNumberOfDomainControllersResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateNumberOfDomainControllers' smart constructor.+data UpdateNumberOfDomainControllers = UpdateNumberOfDomainControllers'+  { -- | Identifier of the directory to which the domain controllers will be+    -- added or removed.+    directoryId :: Prelude.Text,+    -- | The number of domain controllers desired in the directory.+    desiredNumber :: Prelude.Natural+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateNumberOfDomainControllers' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'updateNumberOfDomainControllers_directoryId' - Identifier of the directory to which the domain controllers will be+-- added or removed.+--+-- 'desiredNumber', 'updateNumberOfDomainControllers_desiredNumber' - The number of domain controllers desired in the directory.+newUpdateNumberOfDomainControllers ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'desiredNumber'+  Prelude.Natural ->+  UpdateNumberOfDomainControllers+newUpdateNumberOfDomainControllers+  pDirectoryId_+  pDesiredNumber_ =+    UpdateNumberOfDomainControllers'+      { directoryId =+          pDirectoryId_,+        desiredNumber = pDesiredNumber_+      }++-- | Identifier of the directory to which the domain controllers will be+-- added or removed.+updateNumberOfDomainControllers_directoryId :: Lens.Lens' UpdateNumberOfDomainControllers Prelude.Text+updateNumberOfDomainControllers_directoryId = Lens.lens (\UpdateNumberOfDomainControllers' {directoryId} -> directoryId) (\s@UpdateNumberOfDomainControllers' {} a -> s {directoryId = a} :: UpdateNumberOfDomainControllers)++-- | The number of domain controllers desired in the directory.+updateNumberOfDomainControllers_desiredNumber :: Lens.Lens' UpdateNumberOfDomainControllers Prelude.Natural+updateNumberOfDomainControllers_desiredNumber = Lens.lens (\UpdateNumberOfDomainControllers' {desiredNumber} -> desiredNumber) (\s@UpdateNumberOfDomainControllers' {} a -> s {desiredNumber = a} :: UpdateNumberOfDomainControllers)++instance+  Core.AWSRequest+    UpdateNumberOfDomainControllers+  where+  type+    AWSResponse UpdateNumberOfDomainControllers =+      UpdateNumberOfDomainControllersResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateNumberOfDomainControllersResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance+  Prelude.Hashable+    UpdateNumberOfDomainControllers+  where+  hashWithSalt+    _salt+    UpdateNumberOfDomainControllers' {..} =+      _salt+        `Prelude.hashWithSalt` directoryId+        `Prelude.hashWithSalt` desiredNumber++instance+  Prelude.NFData+    UpdateNumberOfDomainControllers+  where+  rnf UpdateNumberOfDomainControllers' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf desiredNumber++instance+  Data.ToHeaders+    UpdateNumberOfDomainControllers+  where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateNumberOfDomainControllers" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateNumberOfDomainControllers where+  toJSON UpdateNumberOfDomainControllers' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("DesiredNumber" Data..= desiredNumber)+          ]+      )++instance Data.ToPath UpdateNumberOfDomainControllers where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateNumberOfDomainControllers where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateNumberOfDomainControllersResponse' smart constructor.+data UpdateNumberOfDomainControllersResponse = UpdateNumberOfDomainControllersResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateNumberOfDomainControllersResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateNumberOfDomainControllersResponse_httpStatus' - The response's http status code.+newUpdateNumberOfDomainControllersResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateNumberOfDomainControllersResponse+newUpdateNumberOfDomainControllersResponse+  pHttpStatus_ =+    UpdateNumberOfDomainControllersResponse'+      { httpStatus =+          pHttpStatus_+      }++-- | The response's http status code.+updateNumberOfDomainControllersResponse_httpStatus :: Lens.Lens' UpdateNumberOfDomainControllersResponse Prelude.Int+updateNumberOfDomainControllersResponse_httpStatus = Lens.lens (\UpdateNumberOfDomainControllersResponse' {httpStatus} -> httpStatus) (\s@UpdateNumberOfDomainControllersResponse' {} a -> s {httpStatus = a} :: UpdateNumberOfDomainControllersResponse)++instance+  Prelude.NFData+    UpdateNumberOfDomainControllersResponse+  where+  rnf UpdateNumberOfDomainControllersResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateRadius.hs view

@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateRadius+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the Remote Authentication Dial In User Service (RADIUS) server+-- information for an AD Connector or Microsoft AD directory.+module Amazonka.DirectoryService.UpdateRadius+  ( -- * Creating a Request+    UpdateRadius (..),+    newUpdateRadius,++    -- * Request Lenses+    updateRadius_directoryId,+    updateRadius_radiusSettings,++    -- * Destructuring the Response+    UpdateRadiusResponse (..),+    newUpdateRadiusResponse,++    -- * Response Lenses+    updateRadiusResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Contains the inputs for the UpdateRadius operation.+--+-- /See:/ 'newUpdateRadius' smart constructor.+data UpdateRadius = UpdateRadius'+  { -- | The identifier of the directory for which to update the RADIUS server+    -- information.+    directoryId :: Prelude.Text,+    -- | A RadiusSettings object that contains information about the RADIUS+    -- server.+    radiusSettings :: RadiusSettings+  }+  deriving (Prelude.Eq, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateRadius' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'updateRadius_directoryId' - The identifier of the directory for which to update the RADIUS server+-- information.+--+-- 'radiusSettings', 'updateRadius_radiusSettings' - A RadiusSettings object that contains information about the RADIUS+-- server.+newUpdateRadius ::+  -- | 'directoryId'+  Prelude.Text ->+  -- | 'radiusSettings'+  RadiusSettings ->+  UpdateRadius+newUpdateRadius pDirectoryId_ pRadiusSettings_ =+  UpdateRadius'+    { directoryId = pDirectoryId_,+      radiusSettings = pRadiusSettings_+    }++-- | The identifier of the directory for which to update the RADIUS server+-- information.+updateRadius_directoryId :: Lens.Lens' UpdateRadius Prelude.Text+updateRadius_directoryId = Lens.lens (\UpdateRadius' {directoryId} -> directoryId) (\s@UpdateRadius' {} a -> s {directoryId = a} :: UpdateRadius)++-- | A RadiusSettings object that contains information about the RADIUS+-- server.+updateRadius_radiusSettings :: Lens.Lens' UpdateRadius RadiusSettings+updateRadius_radiusSettings = Lens.lens (\UpdateRadius' {radiusSettings} -> radiusSettings) (\s@UpdateRadius' {} a -> s {radiusSettings = a} :: UpdateRadius)++instance Core.AWSRequest UpdateRadius where+  type AWSResponse UpdateRadius = UpdateRadiusResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveEmpty+      ( \s h x ->+          UpdateRadiusResponse'+            Prelude.<$> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateRadius where+  hashWithSalt _salt UpdateRadius' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` radiusSettings++instance Prelude.NFData UpdateRadius where+  rnf UpdateRadius' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf radiusSettings++instance Data.ToHeaders UpdateRadius where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateRadius" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateRadius where+  toJSON UpdateRadius' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just+              ("RadiusSettings" Data..= radiusSettings)+          ]+      )++instance Data.ToPath UpdateRadius where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateRadius where+  toQuery = Prelude.const Prelude.mempty++-- | Contains the results of the UpdateRadius operation.+--+-- /See:/ 'newUpdateRadiusResponse' smart constructor.+data UpdateRadiusResponse = UpdateRadiusResponse'+  { -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateRadiusResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'httpStatus', 'updateRadiusResponse_httpStatus' - The response's http status code.+newUpdateRadiusResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateRadiusResponse+newUpdateRadiusResponse pHttpStatus_ =+  UpdateRadiusResponse' {httpStatus = pHttpStatus_}++-- | The response's http status code.+updateRadiusResponse_httpStatus :: Lens.Lens' UpdateRadiusResponse Prelude.Int+updateRadiusResponse_httpStatus = Lens.lens (\UpdateRadiusResponse' {httpStatus} -> httpStatus) (\s@UpdateRadiusResponse' {} a -> s {httpStatus = a} :: UpdateRadiusResponse)++instance Prelude.NFData UpdateRadiusResponse where+  rnf UpdateRadiusResponse' {..} =+    Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateSettings.hs view

@@ -0,0 +1,186 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateSettings+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the configurable settings for the specified directory.+module Amazonka.DirectoryService.UpdateSettings+  ( -- * Creating a Request+    UpdateSettings (..),+    newUpdateSettings,++    -- * Request Lenses+    updateSettings_directoryId,+    updateSettings_settings,++    -- * Destructuring the Response+    UpdateSettingsResponse (..),+    newUpdateSettingsResponse,++    -- * Response Lenses+    updateSettingsResponse_directoryId,+    updateSettingsResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateSettings' smart constructor.+data UpdateSettings = UpdateSettings'+  { -- | The identifier of the directory for which to update settings.+    directoryId :: Prelude.Text,+    -- | The list of Setting objects.+    settings :: [Setting]+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSettings' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'updateSettings_directoryId' - The identifier of the directory for which to update settings.+--+-- 'settings', 'updateSettings_settings' - The list of Setting objects.+newUpdateSettings ::+  -- | 'directoryId'+  Prelude.Text ->+  UpdateSettings+newUpdateSettings pDirectoryId_ =+  UpdateSettings'+    { directoryId = pDirectoryId_,+      settings = Prelude.mempty+    }++-- | The identifier of the directory for which to update settings.+updateSettings_directoryId :: Lens.Lens' UpdateSettings Prelude.Text+updateSettings_directoryId = Lens.lens (\UpdateSettings' {directoryId} -> directoryId) (\s@UpdateSettings' {} a -> s {directoryId = a} :: UpdateSettings)++-- | The list of Setting objects.+updateSettings_settings :: Lens.Lens' UpdateSettings [Setting]+updateSettings_settings = Lens.lens (\UpdateSettings' {settings} -> settings) (\s@UpdateSettings' {} a -> s {settings = a} :: UpdateSettings) Prelude.. Lens.coerced++instance Core.AWSRequest UpdateSettings where+  type+    AWSResponse UpdateSettings =+      UpdateSettingsResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateSettingsResponse'+            Prelude.<$> (x Data..?> "DirectoryId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateSettings where+  hashWithSalt _salt UpdateSettings' {..} =+    _salt+      `Prelude.hashWithSalt` directoryId+      `Prelude.hashWithSalt` settings++instance Prelude.NFData UpdateSettings where+  rnf UpdateSettings' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf settings++instance Data.ToHeaders UpdateSettings where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateSettings" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateSettings where+  toJSON UpdateSettings' {..} =+    Data.object+      ( Prelude.catMaybes+          [ Prelude.Just ("DirectoryId" Data..= directoryId),+            Prelude.Just ("Settings" Data..= settings)+          ]+      )++instance Data.ToPath UpdateSettings where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateSettings where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateSettingsResponse' smart constructor.+data UpdateSettingsResponse = UpdateSettingsResponse'+  { -- | The identifier of the directory.+    directoryId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateSettingsResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'directoryId', 'updateSettingsResponse_directoryId' - The identifier of the directory.+--+-- 'httpStatus', 'updateSettingsResponse_httpStatus' - The response's http status code.+newUpdateSettingsResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateSettingsResponse+newUpdateSettingsResponse pHttpStatus_ =+  UpdateSettingsResponse'+    { directoryId =+        Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The identifier of the directory.+updateSettingsResponse_directoryId :: Lens.Lens' UpdateSettingsResponse (Prelude.Maybe Prelude.Text)+updateSettingsResponse_directoryId = Lens.lens (\UpdateSettingsResponse' {directoryId} -> directoryId) (\s@UpdateSettingsResponse' {} a -> s {directoryId = a} :: UpdateSettingsResponse)++-- | The response's http status code.+updateSettingsResponse_httpStatus :: Lens.Lens' UpdateSettingsResponse Prelude.Int+updateSettingsResponse_httpStatus = Lens.lens (\UpdateSettingsResponse' {httpStatus} -> httpStatus) (\s@UpdateSettingsResponse' {} a -> s {httpStatus = a} :: UpdateSettingsResponse)++instance Prelude.NFData UpdateSettingsResponse where+  rnf UpdateSettingsResponse' {..} =+    Prelude.rnf directoryId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/UpdateTrust.hs view

@@ -0,0 +1,195 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.UpdateTrust+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates the trust that has been set up between your Managed Microsoft AD+-- directory and an self-managed Active Directory.+module Amazonka.DirectoryService.UpdateTrust+  ( -- * Creating a Request+    UpdateTrust (..),+    newUpdateTrust,++    -- * Request Lenses+    updateTrust_selectiveAuth,+    updateTrust_trustId,++    -- * Destructuring the Response+    UpdateTrustResponse (..),+    newUpdateTrustResponse,++    -- * Response Lenses+    updateTrustResponse_requestId,+    updateTrustResponse_trustId,+    updateTrustResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | /See:/ 'newUpdateTrust' smart constructor.+data UpdateTrust = UpdateTrust'+  { -- | Updates selective authentication for the trust.+    selectiveAuth :: Prelude.Maybe SelectiveAuth,+    -- | Identifier of the trust relationship.+    trustId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTrust' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'selectiveAuth', 'updateTrust_selectiveAuth' - Updates selective authentication for the trust.+--+-- 'trustId', 'updateTrust_trustId' - Identifier of the trust relationship.+newUpdateTrust ::+  -- | 'trustId'+  Prelude.Text ->+  UpdateTrust+newUpdateTrust pTrustId_ =+  UpdateTrust'+    { selectiveAuth = Prelude.Nothing,+      trustId = pTrustId_+    }++-- | Updates selective authentication for the trust.+updateTrust_selectiveAuth :: Lens.Lens' UpdateTrust (Prelude.Maybe SelectiveAuth)+updateTrust_selectiveAuth = Lens.lens (\UpdateTrust' {selectiveAuth} -> selectiveAuth) (\s@UpdateTrust' {} a -> s {selectiveAuth = a} :: UpdateTrust)++-- | Identifier of the trust relationship.+updateTrust_trustId :: Lens.Lens' UpdateTrust Prelude.Text+updateTrust_trustId = Lens.lens (\UpdateTrust' {trustId} -> trustId) (\s@UpdateTrust' {} a -> s {trustId = a} :: UpdateTrust)++instance Core.AWSRequest UpdateTrust where+  type AWSResponse UpdateTrust = UpdateTrustResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          UpdateTrustResponse'+            Prelude.<$> (x Data..?> "RequestId")+            Prelude.<*> (x Data..?> "TrustId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable UpdateTrust where+  hashWithSalt _salt UpdateTrust' {..} =+    _salt+      `Prelude.hashWithSalt` selectiveAuth+      `Prelude.hashWithSalt` trustId++instance Prelude.NFData UpdateTrust where+  rnf UpdateTrust' {..} =+    Prelude.rnf selectiveAuth+      `Prelude.seq` Prelude.rnf trustId++instance Data.ToHeaders UpdateTrust where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.UpdateTrust" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON UpdateTrust where+  toJSON UpdateTrust' {..} =+    Data.object+      ( Prelude.catMaybes+          [ ("SelectiveAuth" Data..=) Prelude.<$> selectiveAuth,+            Prelude.Just ("TrustId" Data..= trustId)+          ]+      )++instance Data.ToPath UpdateTrust where+  toPath = Prelude.const "/"++instance Data.ToQuery UpdateTrust where+  toQuery = Prelude.const Prelude.mempty++-- | /See:/ 'newUpdateTrustResponse' smart constructor.+data UpdateTrustResponse = UpdateTrustResponse'+  { requestId :: Prelude.Maybe Prelude.Text,+    -- | Identifier of the trust relationship.+    trustId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'UpdateTrustResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'requestId', 'updateTrustResponse_requestId' - Undocumented member.+--+-- 'trustId', 'updateTrustResponse_trustId' - Identifier of the trust relationship.+--+-- 'httpStatus', 'updateTrustResponse_httpStatus' - The response's http status code.+newUpdateTrustResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  UpdateTrustResponse+newUpdateTrustResponse pHttpStatus_ =+  UpdateTrustResponse'+    { requestId = Prelude.Nothing,+      trustId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | Undocumented member.+updateTrustResponse_requestId :: Lens.Lens' UpdateTrustResponse (Prelude.Maybe Prelude.Text)+updateTrustResponse_requestId = Lens.lens (\UpdateTrustResponse' {requestId} -> requestId) (\s@UpdateTrustResponse' {} a -> s {requestId = a} :: UpdateTrustResponse)++-- | Identifier of the trust relationship.+updateTrustResponse_trustId :: Lens.Lens' UpdateTrustResponse (Prelude.Maybe Prelude.Text)+updateTrustResponse_trustId = Lens.lens (\UpdateTrustResponse' {trustId} -> trustId) (\s@UpdateTrustResponse' {} a -> s {trustId = a} :: UpdateTrustResponse)++-- | The response's http status code.+updateTrustResponse_httpStatus :: Lens.Lens' UpdateTrustResponse Prelude.Int+updateTrustResponse_httpStatus = Lens.lens (\UpdateTrustResponse' {httpStatus} -> httpStatus) (\s@UpdateTrustResponse' {} a -> s {httpStatus = a} :: UpdateTrustResponse)++instance Prelude.NFData UpdateTrustResponse where+  rnf UpdateTrustResponse' {..} =+    Prelude.rnf requestId+      `Prelude.seq` Prelude.rnf trustId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/VerifyTrust.hs view

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveGeneric #-}+{-# LANGUAGE DuplicateRecordFields #-}+{-# LANGUAGE NamedFieldPuns #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-binds #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.VerifyTrust+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Directory Service for Microsoft Active Directory allows you to configure+-- and verify trust relationships.+--+-- This action verifies a trust relationship between your Managed Microsoft+-- AD directory and an external domain.+module Amazonka.DirectoryService.VerifyTrust+  ( -- * Creating a Request+    VerifyTrust (..),+    newVerifyTrust,++    -- * Request Lenses+    verifyTrust_trustId,++    -- * Destructuring the Response+    VerifyTrustResponse (..),+    newVerifyTrustResponse,++    -- * Response Lenses+    verifyTrustResponse_trustId,+    verifyTrustResponse_httpStatus,+  )+where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude+import qualified Amazonka.Request as Request+import qualified Amazonka.Response as Response++-- | Initiates the verification of an existing trust relationship between an+-- Managed Microsoft AD directory and an external domain.+--+-- /See:/ 'newVerifyTrust' smart constructor.+data VerifyTrust = VerifyTrust'+  { -- | The unique Trust ID of the trust relationship to verify.+    trustId :: Prelude.Text+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VerifyTrust' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'trustId', 'verifyTrust_trustId' - The unique Trust ID of the trust relationship to verify.+newVerifyTrust ::+  -- | 'trustId'+  Prelude.Text ->+  VerifyTrust+newVerifyTrust pTrustId_ =+  VerifyTrust' {trustId = pTrustId_}++-- | The unique Trust ID of the trust relationship to verify.+verifyTrust_trustId :: Lens.Lens' VerifyTrust Prelude.Text+verifyTrust_trustId = Lens.lens (\VerifyTrust' {trustId} -> trustId) (\s@VerifyTrust' {} a -> s {trustId = a} :: VerifyTrust)++instance Core.AWSRequest VerifyTrust where+  type AWSResponse VerifyTrust = VerifyTrustResponse+  request overrides =+    Request.postJSON (overrides defaultService)+  response =+    Response.receiveJSON+      ( \s h x ->+          VerifyTrustResponse'+            Prelude.<$> (x Data..?> "TrustId")+            Prelude.<*> (Prelude.pure (Prelude.fromEnum s))+      )++instance Prelude.Hashable VerifyTrust where+  hashWithSalt _salt VerifyTrust' {..} =+    _salt `Prelude.hashWithSalt` trustId++instance Prelude.NFData VerifyTrust where+  rnf VerifyTrust' {..} = Prelude.rnf trustId++instance Data.ToHeaders VerifyTrust where+  toHeaders =+    Prelude.const+      ( Prelude.mconcat+          [ "X-Amz-Target"+              Data.=# ( "DirectoryService_20150416.VerifyTrust" ::+                          Prelude.ByteString+                      ),+            "Content-Type"+              Data.=# ( "application/x-amz-json-1.1" ::+                          Prelude.ByteString+                      )+          ]+      )++instance Data.ToJSON VerifyTrust where+  toJSON VerifyTrust' {..} =+    Data.object+      ( Prelude.catMaybes+          [Prelude.Just ("TrustId" Data..= trustId)]+      )++instance Data.ToPath VerifyTrust where+  toPath = Prelude.const "/"++instance Data.ToQuery VerifyTrust where+  toQuery = Prelude.const Prelude.mempty++-- | Result of a VerifyTrust request.+--+-- /See:/ 'newVerifyTrustResponse' smart constructor.+data VerifyTrustResponse = VerifyTrustResponse'+  { -- | The unique Trust ID of the trust relationship that was verified.+    trustId :: Prelude.Maybe Prelude.Text,+    -- | The response's http status code.+    httpStatus :: Prelude.Int+  }+  deriving (Prelude.Eq, Prelude.Read, Prelude.Show, Prelude.Generic)++-- |+-- Create a value of 'VerifyTrustResponse' with all optional fields omitted.+--+-- Use <https://hackage.haskell.org/package/generic-lens generic-lens> or <https://hackage.haskell.org/package/optics optics> to modify other optional fields.+--+-- The following record fields are available, with the corresponding lenses provided+-- for backwards compatibility:+--+-- 'trustId', 'verifyTrustResponse_trustId' - The unique Trust ID of the trust relationship that was verified.+--+-- 'httpStatus', 'verifyTrustResponse_httpStatus' - The response's http status code.+newVerifyTrustResponse ::+  -- | 'httpStatus'+  Prelude.Int ->+  VerifyTrustResponse+newVerifyTrustResponse pHttpStatus_ =+  VerifyTrustResponse'+    { trustId = Prelude.Nothing,+      httpStatus = pHttpStatus_+    }++-- | The unique Trust ID of the trust relationship that was verified.+verifyTrustResponse_trustId :: Lens.Lens' VerifyTrustResponse (Prelude.Maybe Prelude.Text)+verifyTrustResponse_trustId = Lens.lens (\VerifyTrustResponse' {trustId} -> trustId) (\s@VerifyTrustResponse' {} a -> s {trustId = a} :: VerifyTrustResponse)++-- | The response's http status code.+verifyTrustResponse_httpStatus :: Lens.Lens' VerifyTrustResponse Prelude.Int+verifyTrustResponse_httpStatus = Lens.lens (\VerifyTrustResponse' {httpStatus} -> httpStatus) (\s@VerifyTrustResponse' {} a -> s {httpStatus = a} :: VerifyTrustResponse)++instance Prelude.NFData VerifyTrustResponse where+  rnf VerifyTrustResponse' {..} =+    Prelude.rnf trustId+      `Prelude.seq` Prelude.rnf httpStatus

+ gen/Amazonka/DirectoryService/Waiters.hs view

@@ -0,0 +1,24 @@+{-# LANGUAGE DisambiguateRecordFields #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE StrictData #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE NoImplicitPrelude #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Amazonka.DirectoryService.Waiters+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Amazonka.DirectoryService.Waiters where++import qualified Amazonka.Core as Core+import qualified Amazonka.Core.Lens.Internal as Lens+import qualified Amazonka.Data as Data+import Amazonka.DirectoryService.Lens+import Amazonka.DirectoryService.Types+import qualified Amazonka.Prelude as Prelude

− gen/Network/AWS/DirectoryService.hs

@@ -1,507 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports    #-}-{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ __AWS Directory Service__------ AWS Directory Service is a web service that makes it easy for you to setup and run directories in the AWS cloud, or connect your AWS resources with an existing on-premises Microsoft Active Directory. This guide provides detailed information about AWS Directory Service operations, data types, parameters, and errors. For information about AWS Directory Services features, see <https://aws.amazon.com/directoryservice/ AWS Directory Service> and the <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/what_is.html AWS Directory Service Administration Guide> .----module Network.AWS.DirectoryService-    (-    -- * Service Configuration-      directoryService--    -- * Errors-    -- $errors--    -- ** DirectoryUnavailableException-    , _DirectoryUnavailableException--    -- ** AuthenticationFailedException-    , _AuthenticationFailedException--    -- ** InvalidParameterException-    , _InvalidParameterException--    -- ** UnsupportedOperationException-    , _UnsupportedOperationException--    -- ** EntityAlreadyExistsException-    , _EntityAlreadyExistsException--    -- ** DirectoryLimitExceededException-    , _DirectoryLimitExceededException--    -- ** IPRouteLimitExceededException-    , _IPRouteLimitExceededException--    -- ** EntityDoesNotExistException-    , _EntityDoesNotExistException--    -- ** InsufficientPermissionsException-    , _InsufficientPermissionsException--    -- ** InvalidNextTokenException-    , _InvalidNextTokenException--    -- ** ServiceException-    , _ServiceException--    -- ** SnapshotLimitExceededException-    , _SnapshotLimitExceededException--    -- ** DomainControllerLimitExceededException-    , _DomainControllerLimitExceededException--    -- ** TagLimitExceededException-    , _TagLimitExceededException--    -- ** ClientException-    , _ClientException--    -- * Waiters-    -- $waiters--    -- * Operations-    -- $operations--    -- ** UpdateNumberOfDomainControllers-    , module Network.AWS.DirectoryService.UpdateNumberOfDomainControllers--    -- ** DescribeConditionalForwarders-    , module Network.AWS.DirectoryService.DescribeConditionalForwarders--    -- ** GetSnapshotLimits-    , module Network.AWS.DirectoryService.GetSnapshotLimits--    -- ** RegisterEventTopic-    , module Network.AWS.DirectoryService.RegisterEventTopic--    -- ** ConnectDirectory-    , module Network.AWS.DirectoryService.ConnectDirectory--    -- ** CreateAlias-    , module Network.AWS.DirectoryService.CreateAlias--    -- ** DescribeDirectories-    , module Network.AWS.DirectoryService.DescribeDirectories--    -- ** AddIPRoutes-    , module Network.AWS.DirectoryService.AddIPRoutes--    -- ** ListTagsForResource-    , module Network.AWS.DirectoryService.ListTagsForResource--    -- ** DescribeTrusts-    , module Network.AWS.DirectoryService.DescribeTrusts--    -- ** DeleteTrust-    , module Network.AWS.DirectoryService.DeleteTrust--    -- ** CreateMicrosoftAD-    , module Network.AWS.DirectoryService.CreateMicrosoftAD--    -- ** DeregisterEventTopic-    , module Network.AWS.DirectoryService.DeregisterEventTopic--    -- ** CreateDirectory-    , module Network.AWS.DirectoryService.CreateDirectory--    -- ** RemoveTagsFromResource-    , module Network.AWS.DirectoryService.RemoveTagsFromResource--    -- ** DescribeEventTopics-    , module Network.AWS.DirectoryService.DescribeEventTopics--    -- ** UpdateConditionalForwarder-    , module Network.AWS.DirectoryService.UpdateConditionalForwarder--    -- ** DeleteConditionalForwarder-    , module Network.AWS.DirectoryService.DeleteConditionalForwarder--    -- ** EnableSSO-    , module Network.AWS.DirectoryService.EnableSSO--    -- ** CancelSchemaExtension-    , module Network.AWS.DirectoryService.CancelSchemaExtension--    -- ** EnableRadius-    , module Network.AWS.DirectoryService.EnableRadius--    -- ** ListIPRoutes-    , module Network.AWS.DirectoryService.ListIPRoutes--    -- ** AddTagsToResource-    , module Network.AWS.DirectoryService.AddTagsToResource--    -- ** ListSchemaExtensions-    , module Network.AWS.DirectoryService.ListSchemaExtensions--    -- ** DisableRadius-    , module Network.AWS.DirectoryService.DisableRadius--    -- ** RestoreFromSnapshot-    , module Network.AWS.DirectoryService.RestoreFromSnapshot--    -- ** DescribeDomainControllers (Paginated)-    , module Network.AWS.DirectoryService.DescribeDomainControllers--    -- ** DescribeSnapshots-    , module Network.AWS.DirectoryService.DescribeSnapshots--    -- ** RemoveIPRoutes-    , module Network.AWS.DirectoryService.RemoveIPRoutes--    -- ** DeleteSnapshot-    , module Network.AWS.DirectoryService.DeleteSnapshot--    -- ** StartSchemaExtension-    , module Network.AWS.DirectoryService.StartSchemaExtension--    -- ** CreateTrust-    , module Network.AWS.DirectoryService.CreateTrust--    -- ** DeleteDirectory-    , module Network.AWS.DirectoryService.DeleteDirectory--    -- ** CreateSnapshot-    , module Network.AWS.DirectoryService.CreateSnapshot--    -- ** CreateComputer-    , module Network.AWS.DirectoryService.CreateComputer--    -- ** DisableSSO-    , module Network.AWS.DirectoryService.DisableSSO--    -- ** VerifyTrust-    , module Network.AWS.DirectoryService.VerifyTrust--    -- ** CreateConditionalForwarder-    , module Network.AWS.DirectoryService.CreateConditionalForwarder--    -- ** GetDirectoryLimits-    , module Network.AWS.DirectoryService.GetDirectoryLimits--    -- ** UpdateRadius-    , module Network.AWS.DirectoryService.UpdateRadius--    -- * Types--    -- ** DirectoryEdition-    , DirectoryEdition (..)--    -- ** DirectorySize-    , DirectorySize (..)--    -- ** DirectoryStage-    , DirectoryStage (..)--    -- ** DirectoryType-    , DirectoryType (..)--    -- ** DomainControllerStatus-    , DomainControllerStatus (..)--    -- ** IPRouteStatusMsg-    , IPRouteStatusMsg (..)--    -- ** RadiusAuthenticationProtocol-    , RadiusAuthenticationProtocol (..)--    -- ** RadiusStatus-    , RadiusStatus (..)--    -- ** ReplicationScope-    , ReplicationScope (..)--    -- ** SchemaExtensionStatus-    , SchemaExtensionStatus (..)--    -- ** SnapshotStatus-    , SnapshotStatus (..)--    -- ** SnapshotType-    , SnapshotType (..)--    -- ** TopicStatus-    , TopicStatus (..)--    -- ** TrustDirection-    , TrustDirection (..)--    -- ** TrustState-    , TrustState (..)--    -- ** TrustType-    , TrustType (..)--    -- ** Attribute-    , Attribute-    , attribute-    , aValue-    , aName--    -- ** Computer-    , Computer-    , computer-    , cComputerId-    , cComputerAttributes-    , cComputerName--    -- ** ConditionalForwarder-    , ConditionalForwarder-    , conditionalForwarder-    , cfDNSIPAddrs-    , cfRemoteDomainName-    , cfReplicationScope--    -- ** DirectoryConnectSettings-    , DirectoryConnectSettings-    , directoryConnectSettings-    , dcsVPCId-    , dcsSubnetIds-    , dcsCustomerDNSIPs-    , dcsCustomerUserName--    -- ** DirectoryConnectSettingsDescription-    , DirectoryConnectSettingsDescription-    , directoryConnectSettingsDescription-    , dcsdCustomerUserName-    , dcsdSubnetIds-    , dcsdVPCId-    , dcsdSecurityGroupId-    , dcsdConnectIPs-    , dcsdAvailabilityZones--    -- ** DirectoryDescription-    , DirectoryDescription-    , directoryDescription-    , ddEdition-    , ddRadiusStatus-    , ddStage-    , ddDirectoryId-    , ddAccessURL-    , ddShortName-    , ddSize-    , ddDesiredNumberOfDomainControllers-    , ddRadiusSettings-    , ddLaunchTime-    , ddAlias-    , ddName-    , ddStageLastUpdatedDateTime-    , ddSSOEnabled-    , ddDNSIPAddrs-    , ddVPCSettings-    , ddType-    , ddStageReason-    , ddConnectSettings-    , ddDescription--    -- ** DirectoryLimits-    , DirectoryLimits-    , directoryLimits-    , dlConnectedDirectoriesCurrentCount-    , dlCloudOnlyMicrosoftADLimitReached-    , dlConnectedDirectoriesLimit-    , dlConnectedDirectoriesLimitReached-    , dlCloudOnlyMicrosoftADLimit-    , dlCloudOnlyDirectoriesLimit-    , dlCloudOnlyDirectoriesCurrentCount-    , dlCloudOnlyDirectoriesLimitReached-    , dlCloudOnlyMicrosoftADCurrentCount--    -- ** DirectoryVPCSettings-    , DirectoryVPCSettings-    , directoryVPCSettings-    , dvsVPCId-    , dvsSubnetIds--    -- ** DirectoryVPCSettingsDescription-    , DirectoryVPCSettingsDescription-    , directoryVPCSettingsDescription-    , dvsdSubnetIds-    , dvsdVPCId-    , dvsdSecurityGroupId-    , dvsdAvailabilityZones--    -- ** DomainController-    , DomainController-    , domainController-    , dcStatus-    , dcDirectoryId-    , dcVPCId-    , dcLaunchTime-    , dcSubnetId-    , dcAvailabilityZone-    , dcStatusLastUpdatedDateTime-    , dcStatusReason-    , dcDNSIPAddr-    , dcDomainControllerId--    -- ** EventTopic-    , EventTopic-    , eventTopic-    , etStatus-    , etDirectoryId-    , etTopicName-    , etTopicARN-    , etCreatedDateTime--    -- ** IPRoute-    , IPRoute-    , ipRoute-    , irCidrIP-    , irDescription--    -- ** IPRouteInfo-    , IPRouteInfo-    , ipRouteInfo-    , iriDirectoryId-    , iriIPRouteStatusReason-    , iriAddedDateTime-    , iriCidrIP-    , iriIPRouteStatusMsg-    , iriDescription--    -- ** RadiusSettings-    , RadiusSettings-    , radiusSettings-    , rsDisplayLabel-    , rsRadiusRetries-    , rsAuthenticationProtocol-    , rsRadiusServers-    , rsUseSameUsername-    , rsSharedSecret-    , rsRadiusTimeout-    , rsRadiusPort--    -- ** SchemaExtensionInfo-    , SchemaExtensionInfo-    , schemaExtensionInfo-    , seiDirectoryId-    , seiSchemaExtensionId-    , seiSchemaExtensionStatusReason-    , seiSchemaExtensionStatus-    , seiDescription-    , seiEndDateTime-    , seiStartDateTime--    -- ** Snapshot-    , Snapshot-    , snapshot-    , sStatus-    , sDirectoryId-    , sStartTime-    , sName-    , sType-    , sSnapshotId--    -- ** SnapshotLimits-    , SnapshotLimits-    , snapshotLimits-    , slManualSnapshotsLimitReached-    , slManualSnapshotsCurrentCount-    , slManualSnapshotsLimit--    -- ** Tag-    , Tag-    , tag-    , tagKey-    , tagValue--    -- ** Trust-    , Trust-    , trust-    , tDirectoryId-    , tTrustState-    , tLastUpdatedDateTime-    , tTrustDirection-    , tStateLastUpdatedDateTime-    , tTrustType-    , tTrustStateReason-    , tRemoteDomainName-    , tTrustId-    , tCreatedDateTime-    ) where--import Network.AWS.DirectoryService.AddIPRoutes-import Network.AWS.DirectoryService.AddTagsToResource-import Network.AWS.DirectoryService.CancelSchemaExtension-import Network.AWS.DirectoryService.ConnectDirectory-import Network.AWS.DirectoryService.CreateAlias-import Network.AWS.DirectoryService.CreateComputer-import Network.AWS.DirectoryService.CreateConditionalForwarder-import Network.AWS.DirectoryService.CreateDirectory-import Network.AWS.DirectoryService.CreateMicrosoftAD-import Network.AWS.DirectoryService.CreateSnapshot-import Network.AWS.DirectoryService.CreateTrust-import Network.AWS.DirectoryService.DeleteConditionalForwarder-import Network.AWS.DirectoryService.DeleteDirectory-import Network.AWS.DirectoryService.DeleteSnapshot-import Network.AWS.DirectoryService.DeleteTrust-import Network.AWS.DirectoryService.DeregisterEventTopic-import Network.AWS.DirectoryService.DescribeConditionalForwarders-import Network.AWS.DirectoryService.DescribeDirectories-import Network.AWS.DirectoryService.DescribeDomainControllers-import Network.AWS.DirectoryService.DescribeEventTopics-import Network.AWS.DirectoryService.DescribeSnapshots-import Network.AWS.DirectoryService.DescribeTrusts-import Network.AWS.DirectoryService.DisableRadius-import Network.AWS.DirectoryService.DisableSSO-import Network.AWS.DirectoryService.EnableRadius-import Network.AWS.DirectoryService.EnableSSO-import Network.AWS.DirectoryService.GetDirectoryLimits-import Network.AWS.DirectoryService.GetSnapshotLimits-import Network.AWS.DirectoryService.ListIPRoutes-import Network.AWS.DirectoryService.ListSchemaExtensions-import Network.AWS.DirectoryService.ListTagsForResource-import Network.AWS.DirectoryService.RegisterEventTopic-import Network.AWS.DirectoryService.RemoveIPRoutes-import Network.AWS.DirectoryService.RemoveTagsFromResource-import Network.AWS.DirectoryService.RestoreFromSnapshot-import Network.AWS.DirectoryService.StartSchemaExtension-import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.UpdateConditionalForwarder-import Network.AWS.DirectoryService.UpdateNumberOfDomainControllers-import Network.AWS.DirectoryService.UpdateRadius-import Network.AWS.DirectoryService.VerifyTrust-import Network.AWS.DirectoryService.Waiters--{- $errors-Error matchers are designed for use with the functions provided by-<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.-This allows catching (and rethrowing) service specific errors returned-by 'DirectoryService'.--}--{- $operations-Some AWS operations return results that are incomplete and require subsequent-requests in order to obtain the entire result set. The process of sending-subsequent requests to continue where a previous request left off is called-pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to-1000 objects at a time, and you must send subsequent requests with the-appropriate Marker in order to retrieve the next page of results.--Operations that have an 'AWSPager' instance can transparently perform subsequent-requests, correctly setting Markers and other request facets to iterate through-the entire result set of a truncated API operation. Operations which support-this have an additional note in the documentation.--Many operations have the ability to filter results on the server side. See the-individual operation parameters for details.--}--{- $waiters-Waiters poll by repeatedly sending a request until some remote success condition-configured by the 'Wait' specification is fulfilled. The 'Wait' specification-determines how many attempts should be made, in addition to delay and retry strategies.--}

− gen/Network/AWS/DirectoryService/AddIPRoutes.hs

@@ -1,149 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.AddIPRoutes--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ If the DNS server for your on-premises domain uses a publicly addressable IP address, you must add a CIDR address block to correctly route traffic to and from your Microsoft AD on Amazon Web Services. /AddIpRoutes/ adds this address block. You can also use /AddIpRoutes/ to facilitate routing traffic that uses public IP ranges from your Microsoft AD on AWS to a peer VPC.--------- Before you call /AddIpRoutes/ , ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the /AddIpRoutes/ operation, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html AWS Directory Service API Permissions: Actions, Resources, and Conditions Reference> .----module Network.AWS.DirectoryService.AddIPRoutes-    (-    -- * Creating a Request-      addIPRoutes-    , AddIPRoutes-    -- * Request Lenses-    , airUpdateSecurityGroupForDirectoryControllers-    , airDirectoryId-    , airIPRoutes--    -- * Destructuring the Response-    , addIPRoutesResponse-    , AddIPRoutesResponse-    -- * Response Lenses-    , airrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'addIPRoutes' smart constructor.-data AddIPRoutes = AddIPRoutes'-  { _airUpdateSecurityGroupForDirectoryControllers :: !(Maybe Bool)-  , _airDirectoryId                                :: !Text-  , _airIPRoutes                                   :: ![IPRoute]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AddIPRoutes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'airUpdateSecurityGroupForDirectoryControllers' - If set to true, updates the inbound and outbound rules of the security group that has the description: "AWS created security group for /directory ID/ directory controllers." Following are the new rules:  Inbound:     * Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source: 0.0.0.0/0     * Type: DNS (UDP), Protocol: UDP, Range: 53, Source: 0.0.0.0/0     * Type: DNS (TCP), Protocol: TCP, Range: 53, Source: 0.0.0.0/0     * Type: LDAP, Protocol: TCP, Range: 389, Source: 0.0.0.0/0     * Type: All ICMP, Protocol: All, Range: N/A, Source: 0.0.0.0/0 Outbound:     * Type: All traffic, Protocol: All, Range: All, Destination: 0.0.0.0/0 These security rules impact an internal network interface that is not exposed publicly.------ * 'airDirectoryId' - Identifier (ID) of the directory to which to add the address block.------ * 'airIPRoutes' - IP address blocks, using CIDR format, of the traffic to route. This is often the IP address block of the DNS server used for your on-premises domain.-addIPRoutes-    :: Text -- ^ 'airDirectoryId'-    -> AddIPRoutes-addIPRoutes pDirectoryId_ =-  AddIPRoutes'-    { _airUpdateSecurityGroupForDirectoryControllers = Nothing-    , _airDirectoryId = pDirectoryId_-    , _airIPRoutes = mempty-    }----- | If set to true, updates the inbound and outbound rules of the security group that has the description: "AWS created security group for /directory ID/ directory controllers." Following are the new rules:  Inbound:     * Type: Custom UDP Rule, Protocol: UDP, Range: 88, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 123, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 138, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 389, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 464, Source: 0.0.0.0/0     * Type: Custom UDP Rule, Protocol: UDP, Range: 445, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 88, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 135, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 445, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 464, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 636, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 1024-65535, Source: 0.0.0.0/0     * Type: Custom TCP Rule, Protocol: TCP, Range: 3268-33269, Source: 0.0.0.0/0     * Type: DNS (UDP), Protocol: UDP, Range: 53, Source: 0.0.0.0/0     * Type: DNS (TCP), Protocol: TCP, Range: 53, Source: 0.0.0.0/0     * Type: LDAP, Protocol: TCP, Range: 389, Source: 0.0.0.0/0     * Type: All ICMP, Protocol: All, Range: N/A, Source: 0.0.0.0/0 Outbound:     * Type: All traffic, Protocol: All, Range: All, Destination: 0.0.0.0/0 These security rules impact an internal network interface that is not exposed publicly.-airUpdateSecurityGroupForDirectoryControllers :: Lens' AddIPRoutes (Maybe Bool)-airUpdateSecurityGroupForDirectoryControllers = lens _airUpdateSecurityGroupForDirectoryControllers (\ s a -> s{_airUpdateSecurityGroupForDirectoryControllers = a})---- | Identifier (ID) of the directory to which to add the address block.-airDirectoryId :: Lens' AddIPRoutes Text-airDirectoryId = lens _airDirectoryId (\ s a -> s{_airDirectoryId = a})---- | IP address blocks, using CIDR format, of the traffic to route. This is often the IP address block of the DNS server used for your on-premises domain.-airIPRoutes :: Lens' AddIPRoutes [IPRoute]-airIPRoutes = lens _airIPRoutes (\ s a -> s{_airIPRoutes = a}) . _Coerce--instance AWSRequest AddIPRoutes where-        type Rs AddIPRoutes = AddIPRoutesResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 AddIPRoutesResponse' <$> (pure (fromEnum s)))--instance Hashable AddIPRoutes where--instance NFData AddIPRoutes where--instance ToHeaders AddIPRoutes where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.AddIpRoutes" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON AddIPRoutes where-        toJSON AddIPRoutes'{..}-          = object-              (catMaybes-                 [("UpdateSecurityGroupForDirectoryControllers" .=)-                    <$> _airUpdateSecurityGroupForDirectoryControllers,-                  Just ("DirectoryId" .= _airDirectoryId),-                  Just ("IpRoutes" .= _airIPRoutes)])--instance ToPath AddIPRoutes where-        toPath = const "/"--instance ToQuery AddIPRoutes where-        toQuery = const mempty---- | /See:/ 'addIPRoutesResponse' smart constructor.-newtype AddIPRoutesResponse = AddIPRoutesResponse'-  { _airrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AddIPRoutesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'airrsResponseStatus' - -- | The response status code.-addIPRoutesResponse-    :: Int -- ^ 'airrsResponseStatus'-    -> AddIPRoutesResponse-addIPRoutesResponse pResponseStatus_ =-  AddIPRoutesResponse' {_airrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-airrsResponseStatus :: Lens' AddIPRoutesResponse Int-airrsResponseStatus = lens _airrsResponseStatus (\ s a -> s{_airrsResponseStatus = a})--instance NFData AddIPRoutesResponse where

− gen/Network/AWS/DirectoryService/AddTagsToResource.hs

@@ -1,133 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.AddTagsToResource--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Adds or overwrites one or more tags for the specified directory. Each directory can have a maximum of 50 tags. Each tag consists of a key and optional value. Tag keys must be unique to each resource.-------module Network.AWS.DirectoryService.AddTagsToResource-    (-    -- * Creating a Request-      addTagsToResource-    , AddTagsToResource-    -- * Request Lenses-    , attrResourceId-    , attrTags--    -- * Destructuring the Response-    , addTagsToResourceResponse-    , AddTagsToResourceResponse-    -- * Response Lenses-    , attrrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'addTagsToResource' smart constructor.-data AddTagsToResource = AddTagsToResource'-  { _attrResourceId :: !Text-  , _attrTags       :: ![Tag]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AddTagsToResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'attrResourceId' - Identifier (ID) for the directory to which to add the tag.------ * 'attrTags' - The tags to be assigned to the directory.-addTagsToResource-    :: Text -- ^ 'attrResourceId'-    -> AddTagsToResource-addTagsToResource pResourceId_ =-  AddTagsToResource' {_attrResourceId = pResourceId_, _attrTags = mempty}----- | Identifier (ID) for the directory to which to add the tag.-attrResourceId :: Lens' AddTagsToResource Text-attrResourceId = lens _attrResourceId (\ s a -> s{_attrResourceId = a})---- | The tags to be assigned to the directory.-attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce--instance AWSRequest AddTagsToResource where-        type Rs AddTagsToResource = AddTagsToResourceResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 AddTagsToResourceResponse' <$> (pure (fromEnum s)))--instance Hashable AddTagsToResource where--instance NFData AddTagsToResource where--instance ToHeaders AddTagsToResource where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.AddTagsToResource" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON AddTagsToResource where-        toJSON AddTagsToResource'{..}-          = object-              (catMaybes-                 [Just ("ResourceId" .= _attrResourceId),-                  Just ("Tags" .= _attrTags)])--instance ToPath AddTagsToResource where-        toPath = const "/"--instance ToQuery AddTagsToResource where-        toQuery = const mempty---- | /See:/ 'addTagsToResourceResponse' smart constructor.-newtype AddTagsToResourceResponse = AddTagsToResourceResponse'-  { _attrrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'AddTagsToResourceResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'attrrsResponseStatus' - -- | The response status code.-addTagsToResourceResponse-    :: Int -- ^ 'attrrsResponseStatus'-    -> AddTagsToResourceResponse-addTagsToResourceResponse pResponseStatus_ =-  AddTagsToResourceResponse' {_attrrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})--instance NFData AddTagsToResourceResponse where

− gen/Network/AWS/DirectoryService/CancelSchemaExtension.hs

@@ -1,139 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CancelSchemaExtension--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Cancels an in-progress schema extension to a Microsoft AD directory. Once a schema extension has started replicating to all domain controllers, the task can no longer be canceled. A schema extension can be canceled during any of the following states; @Initializing@ , @CreatingSnapshot@ , and @UpdatingSchema@ .-------module Network.AWS.DirectoryService.CancelSchemaExtension-    (-    -- * Creating a Request-      cancelSchemaExtension-    , CancelSchemaExtension-    -- * Request Lenses-    , cseDirectoryId-    , cseSchemaExtensionId--    -- * Destructuring the Response-    , cancelSchemaExtensionResponse-    , CancelSchemaExtensionResponse-    -- * Response Lenses-    , csersResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'cancelSchemaExtension' smart constructor.-data CancelSchemaExtension = CancelSchemaExtension'-  { _cseDirectoryId       :: !Text-  , _cseSchemaExtensionId :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelSchemaExtension' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cseDirectoryId' - The identifier of the directory whose schema extension will be canceled.------ * 'cseSchemaExtensionId' - The identifier of the schema extension that will be canceled.-cancelSchemaExtension-    :: Text -- ^ 'cseDirectoryId'-    -> Text -- ^ 'cseSchemaExtensionId'-    -> CancelSchemaExtension-cancelSchemaExtension pDirectoryId_ pSchemaExtensionId_ =-  CancelSchemaExtension'-    { _cseDirectoryId = pDirectoryId_-    , _cseSchemaExtensionId = pSchemaExtensionId_-    }----- | The identifier of the directory whose schema extension will be canceled.-cseDirectoryId :: Lens' CancelSchemaExtension Text-cseDirectoryId = lens _cseDirectoryId (\ s a -> s{_cseDirectoryId = a})---- | The identifier of the schema extension that will be canceled.-cseSchemaExtensionId :: Lens' CancelSchemaExtension Text-cseSchemaExtensionId = lens _cseSchemaExtensionId (\ s a -> s{_cseSchemaExtensionId = a})--instance AWSRequest CancelSchemaExtension where-        type Rs CancelSchemaExtension =-             CancelSchemaExtensionResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 CancelSchemaExtensionResponse' <$>-                   (pure (fromEnum s)))--instance Hashable CancelSchemaExtension where--instance NFData CancelSchemaExtension where--instance ToHeaders CancelSchemaExtension where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CancelSchemaExtension" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CancelSchemaExtension where-        toJSON CancelSchemaExtension'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _cseDirectoryId),-                  Just ("SchemaExtensionId" .= _cseSchemaExtensionId)])--instance ToPath CancelSchemaExtension where-        toPath = const "/"--instance ToQuery CancelSchemaExtension where-        toQuery = const mempty---- | /See:/ 'cancelSchemaExtensionResponse' smart constructor.-newtype CancelSchemaExtensionResponse = CancelSchemaExtensionResponse'-  { _csersResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CancelSchemaExtensionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csersResponseStatus' - -- | The response status code.-cancelSchemaExtensionResponse-    :: Int -- ^ 'csersResponseStatus'-    -> CancelSchemaExtensionResponse-cancelSchemaExtensionResponse pResponseStatus_ =-  CancelSchemaExtensionResponse' {_csersResponseStatus = pResponseStatus_}----- | -- | The response status code.-csersResponseStatus :: Lens' CancelSchemaExtensionResponse Int-csersResponseStatus = lens _csersResponseStatus (\ s a -> s{_csersResponseStatus = a})--instance NFData CancelSchemaExtensionResponse where

− gen/Network/AWS/DirectoryService/ConnectDirectory.hs

@@ -1,199 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.ConnectDirectory--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an AD Connector to connect to an on-premises directory.--------- Before you call /ConnectDirectory/ , ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the /ConnectDirectory/ operation, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html AWS Directory Service API Permissions: Actions, Resources, and Conditions Reference> .----module Network.AWS.DirectoryService.ConnectDirectory-    (-    -- * Creating a Request-      connectDirectory-    , ConnectDirectory-    -- * Request Lenses-    , cdShortName-    , cdDescription-    , cdName-    , cdPassword-    , cdSize-    , cdConnectSettings--    -- * Destructuring the Response-    , connectDirectoryResponse-    , ConnectDirectoryResponse-    -- * Response Lenses-    , cdrsDirectoryId-    , cdrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'ConnectDirectory' operation.------------ /See:/ 'connectDirectory' smart constructor.-data ConnectDirectory = ConnectDirectory'-  { _cdShortName       :: !(Maybe Text)-  , _cdDescription     :: !(Maybe Text)-  , _cdName            :: !Text-  , _cdPassword        :: !(Sensitive Text)-  , _cdSize            :: !DirectorySize-  , _cdConnectSettings :: !DirectoryConnectSettings-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'ConnectDirectory' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdShortName' - The NetBIOS name of the on-premises directory, such as @CORP@ .------ * 'cdDescription' - A textual description for the directory.------ * 'cdName' - The fully-qualified name of the on-premises directory, such as @corp.example.com@ .------ * 'cdPassword' - The password for the on-premises user account.------ * 'cdSize' - The size of the directory.------ * 'cdConnectSettings' - A 'DirectoryConnectSettings' object that contains additional information for the operation.-connectDirectory-    :: Text -- ^ 'cdName'-    -> Text -- ^ 'cdPassword'-    -> DirectorySize -- ^ 'cdSize'-    -> DirectoryConnectSettings -- ^ 'cdConnectSettings'-    -> ConnectDirectory-connectDirectory pName_ pPassword_ pSize_ pConnectSettings_ =-  ConnectDirectory'-    { _cdShortName = Nothing-    , _cdDescription = Nothing-    , _cdName = pName_-    , _cdPassword = _Sensitive # pPassword_-    , _cdSize = pSize_-    , _cdConnectSettings = pConnectSettings_-    }----- | The NetBIOS name of the on-premises directory, such as @CORP@ .-cdShortName :: Lens' ConnectDirectory (Maybe Text)-cdShortName = lens _cdShortName (\ s a -> s{_cdShortName = a})---- | A textual description for the directory.-cdDescription :: Lens' ConnectDirectory (Maybe Text)-cdDescription = lens _cdDescription (\ s a -> s{_cdDescription = a})---- | The fully-qualified name of the on-premises directory, such as @corp.example.com@ .-cdName :: Lens' ConnectDirectory Text-cdName = lens _cdName (\ s a -> s{_cdName = a})---- | The password for the on-premises user account.-cdPassword :: Lens' ConnectDirectory Text-cdPassword = lens _cdPassword (\ s a -> s{_cdPassword = a}) . _Sensitive---- | The size of the directory.-cdSize :: Lens' ConnectDirectory DirectorySize-cdSize = lens _cdSize (\ s a -> s{_cdSize = a})---- | A 'DirectoryConnectSettings' object that contains additional information for the operation.-cdConnectSettings :: Lens' ConnectDirectory DirectoryConnectSettings-cdConnectSettings = lens _cdConnectSettings (\ s a -> s{_cdConnectSettings = a})--instance AWSRequest ConnectDirectory where-        type Rs ConnectDirectory = ConnectDirectoryResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 ConnectDirectoryResponse' <$>-                   (x .?> "DirectoryId") <*> (pure (fromEnum s)))--instance Hashable ConnectDirectory where--instance NFData ConnectDirectory where--instance ToHeaders ConnectDirectory where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.ConnectDirectory" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ConnectDirectory where-        toJSON ConnectDirectory'{..}-          = object-              (catMaybes-                 [("ShortName" .=) <$> _cdShortName,-                  ("Description" .=) <$> _cdDescription,-                  Just ("Name" .= _cdName),-                  Just ("Password" .= _cdPassword),-                  Just ("Size" .= _cdSize),-                  Just ("ConnectSettings" .= _cdConnectSettings)])--instance ToPath ConnectDirectory where-        toPath = const "/"--instance ToQuery ConnectDirectory where-        toQuery = const mempty---- | Contains the results of the 'ConnectDirectory' operation.------------ /See:/ 'connectDirectoryResponse' smart constructor.-data ConnectDirectoryResponse = ConnectDirectoryResponse'-  { _cdrsDirectoryId    :: !(Maybe Text)-  , _cdrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConnectDirectoryResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cdrsDirectoryId' - The identifier of the new directory.------ * 'cdrsResponseStatus' - -- | The response status code.-connectDirectoryResponse-    :: Int -- ^ 'cdrsResponseStatus'-    -> ConnectDirectoryResponse-connectDirectoryResponse pResponseStatus_ =-  ConnectDirectoryResponse'-    {_cdrsDirectoryId = Nothing, _cdrsResponseStatus = pResponseStatus_}----- | The identifier of the new directory.-cdrsDirectoryId :: Lens' ConnectDirectoryResponse (Maybe Text)-cdrsDirectoryId = lens _cdrsDirectoryId (\ s a -> s{_cdrsDirectoryId = a})---- | -- | The response status code.-cdrsResponseStatus :: Lens' ConnectDirectoryResponse Int-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})--instance NFData ConnectDirectoryResponse where

− gen/Network/AWS/DirectoryService/CreateAlias.hs

@@ -1,166 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateAlias--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates an alias for a directory and assigns the alias to the directory. The alias is used to construct the access URL for the directory, such as @http://<alias>.awsapps.com@ .--------- /Important:/ After an alias has been created, it cannot be deleted or reused, so this operation should only be used when absolutely necessary.----module Network.AWS.DirectoryService.CreateAlias-    (-    -- * Creating a Request-      createAlias-    , CreateAlias-    -- * Request Lenses-    , caDirectoryId-    , caAlias--    -- * Destructuring the Response-    , createAliasResponse-    , CreateAliasResponse-    -- * Response Lenses-    , carsDirectoryId-    , carsAlias-    , carsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'CreateAlias' operation.------------ /See:/ 'createAlias' smart constructor.-data CreateAlias = CreateAlias'-  { _caDirectoryId :: !Text-  , _caAlias       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateAlias' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'caDirectoryId' - The identifier of the directory for which to create the alias.------ * 'caAlias' - The requested alias. The alias must be unique amongst all aliases in AWS. This operation throws an @EntityAlreadyExistsException@ error if the alias already exists.-createAlias-    :: Text -- ^ 'caDirectoryId'-    -> Text -- ^ 'caAlias'-    -> CreateAlias-createAlias pDirectoryId_ pAlias_ =-  CreateAlias' {_caDirectoryId = pDirectoryId_, _caAlias = pAlias_}----- | The identifier of the directory for which to create the alias.-caDirectoryId :: Lens' CreateAlias Text-caDirectoryId = lens _caDirectoryId (\ s a -> s{_caDirectoryId = a})---- | The requested alias. The alias must be unique amongst all aliases in AWS. This operation throws an @EntityAlreadyExistsException@ error if the alias already exists.-caAlias :: Lens' CreateAlias Text-caAlias = lens _caAlias (\ s a -> s{_caAlias = a})--instance AWSRequest CreateAlias where-        type Rs CreateAlias = CreateAliasResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateAliasResponse' <$>-                   (x .?> "DirectoryId") <*> (x .?> "Alias") <*>-                     (pure (fromEnum s)))--instance Hashable CreateAlias where--instance NFData CreateAlias where--instance ToHeaders CreateAlias where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateAlias" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateAlias where-        toJSON CreateAlias'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _caDirectoryId),-                  Just ("Alias" .= _caAlias)])--instance ToPath CreateAlias where-        toPath = const "/"--instance ToQuery CreateAlias where-        toQuery = const mempty---- | Contains the results of the 'CreateAlias' operation.------------ /See:/ 'createAliasResponse' smart constructor.-data CreateAliasResponse = CreateAliasResponse'-  { _carsDirectoryId    :: !(Maybe Text)-  , _carsAlias          :: !(Maybe Text)-  , _carsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateAliasResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'carsDirectoryId' - The identifier of the directory.------ * 'carsAlias' - The alias for the directory.------ * 'carsResponseStatus' - -- | The response status code.-createAliasResponse-    :: Int -- ^ 'carsResponseStatus'-    -> CreateAliasResponse-createAliasResponse pResponseStatus_ =-  CreateAliasResponse'-    { _carsDirectoryId = Nothing-    , _carsAlias = Nothing-    , _carsResponseStatus = pResponseStatus_-    }----- | The identifier of the directory.-carsDirectoryId :: Lens' CreateAliasResponse (Maybe Text)-carsDirectoryId = lens _carsDirectoryId (\ s a -> s{_carsDirectoryId = a})---- | The alias for the directory.-carsAlias :: Lens' CreateAliasResponse (Maybe Text)-carsAlias = lens _carsAlias (\ s a -> s{_carsAlias = a})---- | -- | The response status code.-carsResponseStatus :: Lens' CreateAliasResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})--instance NFData CreateAliasResponse where

− gen/Network/AWS/DirectoryService/CreateComputer.hs

@@ -1,187 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateComputer--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a computer account in the specified directory, and joins the computer to the directory.-------module Network.AWS.DirectoryService.CreateComputer-    (-    -- * Creating a Request-      createComputer-    , CreateComputer-    -- * Request Lenses-    , ccComputerAttributes-    , ccOrganizationalUnitDistinguishedName-    , ccDirectoryId-    , ccComputerName-    , ccPassword--    -- * Destructuring the Response-    , createComputerResponse-    , CreateComputerResponse-    -- * Response Lenses-    , ccrsComputer-    , ccrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'CreateComputer' operation.------------ /See:/ 'createComputer' smart constructor.-data CreateComputer = CreateComputer'-  { _ccComputerAttributes                  :: !(Maybe [Attribute])-  , _ccOrganizationalUnitDistinguishedName :: !(Maybe Text)-  , _ccDirectoryId                         :: !Text-  , _ccComputerName                        :: !Text-  , _ccPassword                            :: !(Sensitive Text)-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateComputer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccComputerAttributes' - An array of 'Attribute' objects that contain any LDAP attributes to apply to the computer account.------ * 'ccOrganizationalUnitDistinguishedName' - The fully-qualified distinguished name of the organizational unit to place the computer account in.------ * 'ccDirectoryId' - The identifier of the directory in which to create the computer account.------ * 'ccComputerName' - The name of the computer account.------ * 'ccPassword' - A one-time password that is used to join the computer to the directory. You should generate a random, strong password to use for this parameter.-createComputer-    :: Text -- ^ 'ccDirectoryId'-    -> Text -- ^ 'ccComputerName'-    -> Text -- ^ 'ccPassword'-    -> CreateComputer-createComputer pDirectoryId_ pComputerName_ pPassword_ =-  CreateComputer'-    { _ccComputerAttributes = Nothing-    , _ccOrganizationalUnitDistinguishedName = Nothing-    , _ccDirectoryId = pDirectoryId_-    , _ccComputerName = pComputerName_-    , _ccPassword = _Sensitive # pPassword_-    }----- | An array of 'Attribute' objects that contain any LDAP attributes to apply to the computer account.-ccComputerAttributes :: Lens' CreateComputer [Attribute]-ccComputerAttributes = lens _ccComputerAttributes (\ s a -> s{_ccComputerAttributes = a}) . _Default . _Coerce---- | The fully-qualified distinguished name of the organizational unit to place the computer account in.-ccOrganizationalUnitDistinguishedName :: Lens' CreateComputer (Maybe Text)-ccOrganizationalUnitDistinguishedName = lens _ccOrganizationalUnitDistinguishedName (\ s a -> s{_ccOrganizationalUnitDistinguishedName = a})---- | The identifier of the directory in which to create the computer account.-ccDirectoryId :: Lens' CreateComputer Text-ccDirectoryId = lens _ccDirectoryId (\ s a -> s{_ccDirectoryId = a})---- | The name of the computer account.-ccComputerName :: Lens' CreateComputer Text-ccComputerName = lens _ccComputerName (\ s a -> s{_ccComputerName = a})---- | A one-time password that is used to join the computer to the directory. You should generate a random, strong password to use for this parameter.-ccPassword :: Lens' CreateComputer Text-ccPassword = lens _ccPassword (\ s a -> s{_ccPassword = a}) . _Sensitive--instance AWSRequest CreateComputer where-        type Rs CreateComputer = CreateComputerResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateComputerResponse' <$>-                   (x .?> "Computer") <*> (pure (fromEnum s)))--instance Hashable CreateComputer where--instance NFData CreateComputer where--instance ToHeaders CreateComputer where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateComputer" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateComputer where-        toJSON CreateComputer'{..}-          = object-              (catMaybes-                 [("ComputerAttributes" .=) <$> _ccComputerAttributes,-                  ("OrganizationalUnitDistinguishedName" .=) <$>-                    _ccOrganizationalUnitDistinguishedName,-                  Just ("DirectoryId" .= _ccDirectoryId),-                  Just ("ComputerName" .= _ccComputerName),-                  Just ("Password" .= _ccPassword)])--instance ToPath CreateComputer where-        toPath = const "/"--instance ToQuery CreateComputer where-        toQuery = const mempty---- | Contains the results for the 'CreateComputer' operation.------------ /See:/ 'createComputerResponse' smart constructor.-data CreateComputerResponse = CreateComputerResponse'-  { _ccrsComputer       :: !(Maybe Computer)-  , _ccrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateComputerResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccrsComputer' - A 'Computer' object that represents the computer account.------ * 'ccrsResponseStatus' - -- | The response status code.-createComputerResponse-    :: Int -- ^ 'ccrsResponseStatus'-    -> CreateComputerResponse-createComputerResponse pResponseStatus_ =-  CreateComputerResponse'-    {_ccrsComputer = Nothing, _ccrsResponseStatus = pResponseStatus_}----- | A 'Computer' object that represents the computer account.-ccrsComputer :: Lens' CreateComputerResponse (Maybe Computer)-ccrsComputer = lens _ccrsComputer (\ s a -> s{_ccrsComputer = a})---- | -- | The response status code.-ccrsResponseStatus :: Lens' CreateComputerResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})--instance NFData CreateComputerResponse where

− gen/Network/AWS/DirectoryService/CreateConditionalForwarder.hs

@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateConditionalForwarder--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a conditional forwarder associated with your AWS directory. Conditional forwarders are required in order to set up a trust relationship with another domain. The conditional forwarder points to the trusted domain.-------module Network.AWS.DirectoryService.CreateConditionalForwarder-    (-    -- * Creating a Request-      createConditionalForwarder-    , CreateConditionalForwarder-    -- * Request Lenses-    , ccfDirectoryId-    , ccfRemoteDomainName-    , ccfDNSIPAddrs--    -- * Destructuring the Response-    , createConditionalForwarderResponse-    , CreateConditionalForwarderResponse-    -- * Response Lenses-    , ccfrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Initiates the creation of a conditional forwarder for your AWS Directory Service for Microsoft Active Directory. Conditional forwarders are required in order to set up a trust relationship with another domain.------------ /See:/ 'createConditionalForwarder' smart constructor.-data CreateConditionalForwarder = CreateConditionalForwarder'-  { _ccfDirectoryId      :: !Text-  , _ccfRemoteDomainName :: !Text-  , _ccfDNSIPAddrs       :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateConditionalForwarder' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccfDirectoryId' - The directory ID of the AWS directory for which you are creating the conditional forwarder.------ * 'ccfRemoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship.------ * 'ccfDNSIPAddrs' - The IP addresses of the remote DNS server associated with RemoteDomainName.-createConditionalForwarder-    :: Text -- ^ 'ccfDirectoryId'-    -> Text -- ^ 'ccfRemoteDomainName'-    -> CreateConditionalForwarder-createConditionalForwarder pDirectoryId_ pRemoteDomainName_ =-  CreateConditionalForwarder'-    { _ccfDirectoryId = pDirectoryId_-    , _ccfRemoteDomainName = pRemoteDomainName_-    , _ccfDNSIPAddrs = mempty-    }----- | The directory ID of the AWS directory for which you are creating the conditional forwarder.-ccfDirectoryId :: Lens' CreateConditionalForwarder Text-ccfDirectoryId = lens _ccfDirectoryId (\ s a -> s{_ccfDirectoryId = a})---- | The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship.-ccfRemoteDomainName :: Lens' CreateConditionalForwarder Text-ccfRemoteDomainName = lens _ccfRemoteDomainName (\ s a -> s{_ccfRemoteDomainName = a})---- | The IP addresses of the remote DNS server associated with RemoteDomainName.-ccfDNSIPAddrs :: Lens' CreateConditionalForwarder [Text]-ccfDNSIPAddrs = lens _ccfDNSIPAddrs (\ s a -> s{_ccfDNSIPAddrs = a}) . _Coerce--instance AWSRequest CreateConditionalForwarder where-        type Rs CreateConditionalForwarder =-             CreateConditionalForwarderResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 CreateConditionalForwarderResponse' <$>-                   (pure (fromEnum s)))--instance Hashable CreateConditionalForwarder where--instance NFData CreateConditionalForwarder where--instance ToHeaders CreateConditionalForwarder where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateConditionalForwarder"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateConditionalForwarder where-        toJSON CreateConditionalForwarder'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _ccfDirectoryId),-                  Just ("RemoteDomainName" .= _ccfRemoteDomainName),-                  Just ("DnsIpAddrs" .= _ccfDNSIPAddrs)])--instance ToPath CreateConditionalForwarder where-        toPath = const "/"--instance ToQuery CreateConditionalForwarder where-        toQuery = const mempty---- | The result of a CreateConditinalForwarder request.------------ /See:/ 'createConditionalForwarderResponse' smart constructor.-newtype CreateConditionalForwarderResponse = CreateConditionalForwarderResponse'-  { _ccfrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateConditionalForwarderResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ccfrsResponseStatus' - -- | The response status code.-createConditionalForwarderResponse-    :: Int -- ^ 'ccfrsResponseStatus'-    -> CreateConditionalForwarderResponse-createConditionalForwarderResponse pResponseStatus_ =-  CreateConditionalForwarderResponse' {_ccfrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-ccfrsResponseStatus :: Lens' CreateConditionalForwarderResponse Int-ccfrsResponseStatus = lens _ccfrsResponseStatus (\ s a -> s{_ccfrsResponseStatus = a})--instance NFData CreateConditionalForwarderResponse-         where

− gen/Network/AWS/DirectoryService/CreateDirectory.hs

@@ -1,198 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateDirectory--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a Simple AD directory.--------- Before you call /CreateDirectory/ , ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the /CreateDirectory/ operation, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html AWS Directory Service API Permissions: Actions, Resources, and Conditions Reference> .----module Network.AWS.DirectoryService.CreateDirectory-    (-    -- * Creating a Request-      createDirectory-    , CreateDirectory-    -- * Request Lenses-    , cShortName-    , cVPCSettings-    , cDescription-    , cName-    , cPassword-    , cSize--    -- * Destructuring the Response-    , createDirectoryResponse-    , CreateDirectoryResponse-    -- * Response Lenses-    , crsDirectoryId-    , crsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'CreateDirectory' operation.------------ /See:/ 'createDirectory' smart constructor.-data CreateDirectory = CreateDirectory'-  { _cShortName   :: !(Maybe Text)-  , _cVPCSettings :: !(Maybe DirectoryVPCSettings)-  , _cDescription :: !(Maybe Text)-  , _cName        :: !Text-  , _cPassword    :: !(Sensitive Text)-  , _cSize        :: !DirectorySize-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateDirectory' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cShortName' - The short name of the directory, such as @CORP@ .------ * 'cVPCSettings' - A 'DirectoryVpcSettings' object that contains additional information for the operation.------ * 'cDescription' - A textual description for the directory.------ * 'cName' - The fully qualified name for the directory, such as @corp.example.com@ .------ * 'cPassword' - The password for the directory administrator. The directory creation process creates a directory administrator account with the username @Administrator@ and this password.------ * 'cSize' - The size of the directory.-createDirectory-    :: Text -- ^ 'cName'-    -> Text -- ^ 'cPassword'-    -> DirectorySize -- ^ 'cSize'-    -> CreateDirectory-createDirectory pName_ pPassword_ pSize_ =-  CreateDirectory'-    { _cShortName = Nothing-    , _cVPCSettings = Nothing-    , _cDescription = Nothing-    , _cName = pName_-    , _cPassword = _Sensitive # pPassword_-    , _cSize = pSize_-    }----- | The short name of the directory, such as @CORP@ .-cShortName :: Lens' CreateDirectory (Maybe Text)-cShortName = lens _cShortName (\ s a -> s{_cShortName = a})---- | A 'DirectoryVpcSettings' object that contains additional information for the operation.-cVPCSettings :: Lens' CreateDirectory (Maybe DirectoryVPCSettings)-cVPCSettings = lens _cVPCSettings (\ s a -> s{_cVPCSettings = a})---- | A textual description for the directory.-cDescription :: Lens' CreateDirectory (Maybe Text)-cDescription = lens _cDescription (\ s a -> s{_cDescription = a})---- | The fully qualified name for the directory, such as @corp.example.com@ .-cName :: Lens' CreateDirectory Text-cName = lens _cName (\ s a -> s{_cName = a})---- | The password for the directory administrator. The directory creation process creates a directory administrator account with the username @Administrator@ and this password.-cPassword :: Lens' CreateDirectory Text-cPassword = lens _cPassword (\ s a -> s{_cPassword = a}) . _Sensitive---- | The size of the directory.-cSize :: Lens' CreateDirectory DirectorySize-cSize = lens _cSize (\ s a -> s{_cSize = a})--instance AWSRequest CreateDirectory where-        type Rs CreateDirectory = CreateDirectoryResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateDirectoryResponse' <$>-                   (x .?> "DirectoryId") <*> (pure (fromEnum s)))--instance Hashable CreateDirectory where--instance NFData CreateDirectory where--instance ToHeaders CreateDirectory where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateDirectory" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateDirectory where-        toJSON CreateDirectory'{..}-          = object-              (catMaybes-                 [("ShortName" .=) <$> _cShortName,-                  ("VpcSettings" .=) <$> _cVPCSettings,-                  ("Description" .=) <$> _cDescription,-                  Just ("Name" .= _cName),-                  Just ("Password" .= _cPassword),-                  Just ("Size" .= _cSize)])--instance ToPath CreateDirectory where-        toPath = const "/"--instance ToQuery CreateDirectory where-        toQuery = const mempty---- | Contains the results of the 'CreateDirectory' operation.------------ /See:/ 'createDirectoryResponse' smart constructor.-data CreateDirectoryResponse = CreateDirectoryResponse'-  { _crsDirectoryId    :: !(Maybe Text)-  , _crsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateDirectoryResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'crsDirectoryId' - The identifier of the directory that was created.------ * 'crsResponseStatus' - -- | The response status code.-createDirectoryResponse-    :: Int -- ^ 'crsResponseStatus'-    -> CreateDirectoryResponse-createDirectoryResponse pResponseStatus_ =-  CreateDirectoryResponse'-    {_crsDirectoryId = Nothing, _crsResponseStatus = pResponseStatus_}----- | The identifier of the directory that was created.-crsDirectoryId :: Lens' CreateDirectoryResponse (Maybe Text)-crsDirectoryId = lens _crsDirectoryId (\ s a -> s{_crsDirectoryId = a})---- | -- | The response status code.-crsResponseStatus :: Lens' CreateDirectoryResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})--instance NFData CreateDirectoryResponse where

− gen/Network/AWS/DirectoryService/CreateMicrosoftAD.hs

@@ -1,198 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateMicrosoftAD--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a Microsoft AD in the AWS cloud.--------- Before you call /CreateMicrosoftAD/ , ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the /CreateMicrosoftAD/ operation, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html AWS Directory Service API Permissions: Actions, Resources, and Conditions Reference> .----module Network.AWS.DirectoryService.CreateMicrosoftAD-    (-    -- * Creating a Request-      createMicrosoftAD-    , CreateMicrosoftAD-    -- * Request Lenses-    , cmadEdition-    , cmadShortName-    , cmadDescription-    , cmadName-    , cmadPassword-    , cmadVPCSettings--    -- * Destructuring the Response-    , createMicrosoftADResponse-    , CreateMicrosoftADResponse-    -- * Response Lenses-    , cmadrsDirectoryId-    , cmadrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Creates a Microsoft AD in the AWS cloud.------------ /See:/ 'createMicrosoftAD' smart constructor.-data CreateMicrosoftAD = CreateMicrosoftAD'-  { _cmadEdition     :: !(Maybe DirectoryEdition)-  , _cmadShortName   :: !(Maybe Text)-  , _cmadDescription :: !(Maybe Text)-  , _cmadName        :: !Text-  , _cmadPassword    :: !(Sensitive Text)-  , _cmadVPCSettings :: !DirectoryVPCSettings-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateMicrosoftAD' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cmadEdition' - AWS Microsoft AD is available in two editions: Standard and Enterprise. Enterprise is the default.------ * 'cmadShortName' - The NetBIOS name for your domain. A short identifier for your domain, such as @CORP@ . If you don't specify a NetBIOS name, it will default to the first part of your directory DNS. For example, @CORP@ for the directory DNS @corp.example.com@ .------ * 'cmadDescription' - A textual description for the directory. This label will appear on the AWS console @Directory Details@ page after the directory is created.------ * 'cmadName' - The fully qualified domain name for the directory, such as @corp.example.com@ . This name will resolve inside your VPC only. It does not need to be publicly resolvable.------ * 'cmadPassword' - The password for the default administrative user named @Admin@ .------ * 'cmadVPCSettings' - Contains VPC information for the 'CreateDirectory' or 'CreateMicrosoftAD' operation.-createMicrosoftAD-    :: Text -- ^ 'cmadName'-    -> Text -- ^ 'cmadPassword'-    -> DirectoryVPCSettings -- ^ 'cmadVPCSettings'-    -> CreateMicrosoftAD-createMicrosoftAD pName_ pPassword_ pVPCSettings_ =-  CreateMicrosoftAD'-    { _cmadEdition = Nothing-    , _cmadShortName = Nothing-    , _cmadDescription = Nothing-    , _cmadName = pName_-    , _cmadPassword = _Sensitive # pPassword_-    , _cmadVPCSettings = pVPCSettings_-    }----- | AWS Microsoft AD is available in two editions: Standard and Enterprise. Enterprise is the default.-cmadEdition :: Lens' CreateMicrosoftAD (Maybe DirectoryEdition)-cmadEdition = lens _cmadEdition (\ s a -> s{_cmadEdition = a})---- | The NetBIOS name for your domain. A short identifier for your domain, such as @CORP@ . If you don't specify a NetBIOS name, it will default to the first part of your directory DNS. For example, @CORP@ for the directory DNS @corp.example.com@ .-cmadShortName :: Lens' CreateMicrosoftAD (Maybe Text)-cmadShortName = lens _cmadShortName (\ s a -> s{_cmadShortName = a})---- | A textual description for the directory. This label will appear on the AWS console @Directory Details@ page after the directory is created.-cmadDescription :: Lens' CreateMicrosoftAD (Maybe Text)-cmadDescription = lens _cmadDescription (\ s a -> s{_cmadDescription = a})---- | The fully qualified domain name for the directory, such as @corp.example.com@ . This name will resolve inside your VPC only. It does not need to be publicly resolvable.-cmadName :: Lens' CreateMicrosoftAD Text-cmadName = lens _cmadName (\ s a -> s{_cmadName = a})---- | The password for the default administrative user named @Admin@ .-cmadPassword :: Lens' CreateMicrosoftAD Text-cmadPassword = lens _cmadPassword (\ s a -> s{_cmadPassword = a}) . _Sensitive---- | Contains VPC information for the 'CreateDirectory' or 'CreateMicrosoftAD' operation.-cmadVPCSettings :: Lens' CreateMicrosoftAD DirectoryVPCSettings-cmadVPCSettings = lens _cmadVPCSettings (\ s a -> s{_cmadVPCSettings = a})--instance AWSRequest CreateMicrosoftAD where-        type Rs CreateMicrosoftAD = CreateMicrosoftADResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateMicrosoftADResponse' <$>-                   (x .?> "DirectoryId") <*> (pure (fromEnum s)))--instance Hashable CreateMicrosoftAD where--instance NFData CreateMicrosoftAD where--instance ToHeaders CreateMicrosoftAD where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateMicrosoftAD" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateMicrosoftAD where-        toJSON CreateMicrosoftAD'{..}-          = object-              (catMaybes-                 [("Edition" .=) <$> _cmadEdition,-                  ("ShortName" .=) <$> _cmadShortName,-                  ("Description" .=) <$> _cmadDescription,-                  Just ("Name" .= _cmadName),-                  Just ("Password" .= _cmadPassword),-                  Just ("VpcSettings" .= _cmadVPCSettings)])--instance ToPath CreateMicrosoftAD where-        toPath = const "/"--instance ToQuery CreateMicrosoftAD where-        toQuery = const mempty---- | Result of a CreateMicrosoftAD request.------------ /See:/ 'createMicrosoftADResponse' smart constructor.-data CreateMicrosoftADResponse = CreateMicrosoftADResponse'-  { _cmadrsDirectoryId    :: !(Maybe Text)-  , _cmadrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateMicrosoftADResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cmadrsDirectoryId' - The identifier of the directory that was created.------ * 'cmadrsResponseStatus' - -- | The response status code.-createMicrosoftADResponse-    :: Int -- ^ 'cmadrsResponseStatus'-    -> CreateMicrosoftADResponse-createMicrosoftADResponse pResponseStatus_ =-  CreateMicrosoftADResponse'-    {_cmadrsDirectoryId = Nothing, _cmadrsResponseStatus = pResponseStatus_}----- | The identifier of the directory that was created.-cmadrsDirectoryId :: Lens' CreateMicrosoftADResponse (Maybe Text)-cmadrsDirectoryId = lens _cmadrsDirectoryId (\ s a -> s{_cmadrsDirectoryId = a})---- | -- | The response status code.-cmadrsResponseStatus :: Lens' CreateMicrosoftADResponse Int-cmadrsResponseStatus = lens _cmadrsResponseStatus (\ s a -> s{_cmadrsResponseStatus = a})--instance NFData CreateMicrosoftADResponse where

− gen/Network/AWS/DirectoryService/CreateSnapshot.hs

@@ -1,151 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateSnapshot--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a snapshot of a Simple AD or Microsoft AD directory in the AWS cloud.-------module Network.AWS.DirectoryService.CreateSnapshot-    (-    -- * Creating a Request-      createSnapshot-    , CreateSnapshot-    -- * Request Lenses-    , csName-    , csDirectoryId--    -- * Destructuring the Response-    , createSnapshotResponse-    , CreateSnapshotResponse-    -- * Response Lenses-    , csrsSnapshotId-    , csrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'CreateSnapshot' operation.------------ /See:/ 'createSnapshot' smart constructor.-data CreateSnapshot = CreateSnapshot'-  { _csName        :: !(Maybe Text)-  , _csDirectoryId :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csName' - The descriptive name to apply to the snapshot.------ * 'csDirectoryId' - The identifier of the directory of which to take a snapshot.-createSnapshot-    :: Text -- ^ 'csDirectoryId'-    -> CreateSnapshot-createSnapshot pDirectoryId_ =-  CreateSnapshot' {_csName = Nothing, _csDirectoryId = pDirectoryId_}----- | The descriptive name to apply to the snapshot.-csName :: Lens' CreateSnapshot (Maybe Text)-csName = lens _csName (\ s a -> s{_csName = a})---- | The identifier of the directory of which to take a snapshot.-csDirectoryId :: Lens' CreateSnapshot Text-csDirectoryId = lens _csDirectoryId (\ s a -> s{_csDirectoryId = a})--instance AWSRequest CreateSnapshot where-        type Rs CreateSnapshot = CreateSnapshotResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateSnapshotResponse' <$>-                   (x .?> "SnapshotId") <*> (pure (fromEnum s)))--instance Hashable CreateSnapshot where--instance NFData CreateSnapshot where--instance ToHeaders CreateSnapshot where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateSnapshot" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateSnapshot where-        toJSON CreateSnapshot'{..}-          = object-              (catMaybes-                 [("Name" .=) <$> _csName,-                  Just ("DirectoryId" .= _csDirectoryId)])--instance ToPath CreateSnapshot where-        toPath = const "/"--instance ToQuery CreateSnapshot where-        toQuery = const mempty---- | Contains the results of the 'CreateSnapshot' operation.------------ /See:/ 'createSnapshotResponse' smart constructor.-data CreateSnapshotResponse = CreateSnapshotResponse'-  { _csrsSnapshotId     :: !(Maybe Text)-  , _csrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'csrsSnapshotId' - The identifier of the snapshot that was created.------ * 'csrsResponseStatus' - -- | The response status code.-createSnapshotResponse-    :: Int -- ^ 'csrsResponseStatus'-    -> CreateSnapshotResponse-createSnapshotResponse pResponseStatus_ =-  CreateSnapshotResponse'-    {_csrsSnapshotId = Nothing, _csrsResponseStatus = pResponseStatus_}----- | The identifier of the snapshot that was created.-csrsSnapshotId :: Lens' CreateSnapshotResponse (Maybe Text)-csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a})---- | -- | The response status code.-csrsResponseStatus :: Lens' CreateSnapshotResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})--instance NFData CreateSnapshotResponse where

− gen/Network/AWS/DirectoryService/CreateTrust.hs

@@ -1,202 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.CreateTrust--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ AWS Directory Service for Microsoft Active Directory allows you to configure trust relationships. For example, you can establish a trust between your Microsoft AD in the AWS cloud, and your existing on-premises Microsoft Active Directory. This would allow you to provide users and groups access to resources in either domain, with a single set of credentials.--------- This action initiates the creation of the AWS side of a trust relationship between a Microsoft AD in the AWS cloud and an external domain.----module Network.AWS.DirectoryService.CreateTrust-    (-    -- * Creating a Request-      createTrust-    , CreateTrust-    -- * Request Lenses-    , ctConditionalForwarderIPAddrs-    , ctTrustType-    , ctDirectoryId-    , ctRemoteDomainName-    , ctTrustPassword-    , ctTrustDirection--    -- * Destructuring the Response-    , createTrustResponse-    , CreateTrustResponse-    -- * Response Lenses-    , ctrsTrustId-    , ctrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | AWS Directory Service for Microsoft Active Directory allows you to configure trust relationships. For example, you can establish a trust between your Microsoft AD in the AWS cloud, and your existing on-premises Microsoft Active Directory. This would allow you to provide users and groups access to resources in either domain, with a single set of credentials.--------- This action initiates the creation of the AWS side of a trust relationship between a Microsoft AD in the AWS cloud and an external domain.--------- /See:/ 'createTrust' smart constructor.-data CreateTrust = CreateTrust'-  { _ctConditionalForwarderIPAddrs :: !(Maybe [Text])-  , _ctTrustType                   :: !(Maybe TrustType)-  , _ctDirectoryId                 :: !Text-  , _ctRemoteDomainName            :: !Text-  , _ctTrustPassword               :: !(Sensitive Text)-  , _ctTrustDirection              :: !TrustDirection-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateTrust' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctConditionalForwarderIPAddrs' - The IP addresses of the remote DNS server associated with RemoteDomainName.------ * 'ctTrustType' - The trust relationship type.------ * 'ctDirectoryId' - The Directory ID of the Microsoft AD in the AWS cloud for which to establish the trust relationship.------ * 'ctRemoteDomainName' - The Fully Qualified Domain Name (FQDN) of the external domain for which to create the trust relationship.------ * 'ctTrustPassword' - The trust password. The must be the same password that was used when creating the trust relationship on the external domain.------ * 'ctTrustDirection' - The direction of the trust relationship.-createTrust-    :: Text -- ^ 'ctDirectoryId'-    -> Text -- ^ 'ctRemoteDomainName'-    -> Text -- ^ 'ctTrustPassword'-    -> TrustDirection -- ^ 'ctTrustDirection'-    -> CreateTrust-createTrust pDirectoryId_ pRemoteDomainName_ pTrustPassword_ pTrustDirection_ =-  CreateTrust'-    { _ctConditionalForwarderIPAddrs = Nothing-    , _ctTrustType = Nothing-    , _ctDirectoryId = pDirectoryId_-    , _ctRemoteDomainName = pRemoteDomainName_-    , _ctTrustPassword = _Sensitive # pTrustPassword_-    , _ctTrustDirection = pTrustDirection_-    }----- | The IP addresses of the remote DNS server associated with RemoteDomainName.-ctConditionalForwarderIPAddrs :: Lens' CreateTrust [Text]-ctConditionalForwarderIPAddrs = lens _ctConditionalForwarderIPAddrs (\ s a -> s{_ctConditionalForwarderIPAddrs = a}) . _Default . _Coerce---- | The trust relationship type.-ctTrustType :: Lens' CreateTrust (Maybe TrustType)-ctTrustType = lens _ctTrustType (\ s a -> s{_ctTrustType = a})---- | The Directory ID of the Microsoft AD in the AWS cloud for which to establish the trust relationship.-ctDirectoryId :: Lens' CreateTrust Text-ctDirectoryId = lens _ctDirectoryId (\ s a -> s{_ctDirectoryId = a})---- | The Fully Qualified Domain Name (FQDN) of the external domain for which to create the trust relationship.-ctRemoteDomainName :: Lens' CreateTrust Text-ctRemoteDomainName = lens _ctRemoteDomainName (\ s a -> s{_ctRemoteDomainName = a})---- | The trust password. The must be the same password that was used when creating the trust relationship on the external domain.-ctTrustPassword :: Lens' CreateTrust Text-ctTrustPassword = lens _ctTrustPassword (\ s a -> s{_ctTrustPassword = a}) . _Sensitive---- | The direction of the trust relationship.-ctTrustDirection :: Lens' CreateTrust TrustDirection-ctTrustDirection = lens _ctTrustDirection (\ s a -> s{_ctTrustDirection = a})--instance AWSRequest CreateTrust where-        type Rs CreateTrust = CreateTrustResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 CreateTrustResponse' <$>-                   (x .?> "TrustId") <*> (pure (fromEnum s)))--instance Hashable CreateTrust where--instance NFData CreateTrust where--instance ToHeaders CreateTrust where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.CreateTrust" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON CreateTrust where-        toJSON CreateTrust'{..}-          = object-              (catMaybes-                 [("ConditionalForwarderIpAddrs" .=) <$>-                    _ctConditionalForwarderIPAddrs,-                  ("TrustType" .=) <$> _ctTrustType,-                  Just ("DirectoryId" .= _ctDirectoryId),-                  Just ("RemoteDomainName" .= _ctRemoteDomainName),-                  Just ("TrustPassword" .= _ctTrustPassword),-                  Just ("TrustDirection" .= _ctTrustDirection)])--instance ToPath CreateTrust where-        toPath = const "/"--instance ToQuery CreateTrust where-        toQuery = const mempty---- | The result of a CreateTrust request.------------ /See:/ 'createTrustResponse' smart constructor.-data CreateTrustResponse = CreateTrustResponse'-  { _ctrsTrustId        :: !(Maybe Text)-  , _ctrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'CreateTrustResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ctrsTrustId' - A unique identifier for the trust relationship that was created.------ * 'ctrsResponseStatus' - -- | The response status code.-createTrustResponse-    :: Int -- ^ 'ctrsResponseStatus'-    -> CreateTrustResponse-createTrustResponse pResponseStatus_ =-  CreateTrustResponse'-    {_ctrsTrustId = Nothing, _ctrsResponseStatus = pResponseStatus_}----- | A unique identifier for the trust relationship that was created.-ctrsTrustId :: Lens' CreateTrustResponse (Maybe Text)-ctrsTrustId = lens _ctrsTrustId (\ s a -> s{_ctrsTrustId = a})---- | -- | The response status code.-ctrsResponseStatus :: Lens' CreateTrustResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})--instance NFData CreateTrustResponse where

− gen/Network/AWS/DirectoryService/DeleteConditionalForwarder.hs

@@ -1,146 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DeleteConditionalForwarder--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a conditional forwarder that has been set up for your AWS directory.-------module Network.AWS.DirectoryService.DeleteConditionalForwarder-    (-    -- * Creating a Request-      deleteConditionalForwarder-    , DeleteConditionalForwarder-    -- * Request Lenses-    , delDirectoryId-    , delRemoteDomainName--    -- * Destructuring the Response-    , deleteConditionalForwarderResponse-    , DeleteConditionalForwarderResponse-    -- * Response Lenses-    , drsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Deletes a conditional forwarder.------------ /See:/ 'deleteConditionalForwarder' smart constructor.-data DeleteConditionalForwarder = DeleteConditionalForwarder'-  { _delDirectoryId      :: !Text-  , _delRemoteDomainName :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteConditionalForwarder' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'delDirectoryId' - The directory ID for which you are deleting the conditional forwarder.------ * 'delRemoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which you are deleting the conditional forwarder.-deleteConditionalForwarder-    :: Text -- ^ 'delDirectoryId'-    -> Text -- ^ 'delRemoteDomainName'-    -> DeleteConditionalForwarder-deleteConditionalForwarder pDirectoryId_ pRemoteDomainName_ =-  DeleteConditionalForwarder'-    {_delDirectoryId = pDirectoryId_, _delRemoteDomainName = pRemoteDomainName_}----- | The directory ID for which you are deleting the conditional forwarder.-delDirectoryId :: Lens' DeleteConditionalForwarder Text-delDirectoryId = lens _delDirectoryId (\ s a -> s{_delDirectoryId = a})---- | The fully qualified domain name (FQDN) of the remote domain with which you are deleting the conditional forwarder.-delRemoteDomainName :: Lens' DeleteConditionalForwarder Text-delRemoteDomainName = lens _delRemoteDomainName (\ s a -> s{_delRemoteDomainName = a})--instance AWSRequest DeleteConditionalForwarder where-        type Rs DeleteConditionalForwarder =-             DeleteConditionalForwarderResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 DeleteConditionalForwarderResponse' <$>-                   (pure (fromEnum s)))--instance Hashable DeleteConditionalForwarder where--instance NFData DeleteConditionalForwarder where--instance ToHeaders DeleteConditionalForwarder where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DeleteConditionalForwarder"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteConditionalForwarder where-        toJSON DeleteConditionalForwarder'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _delDirectoryId),-                  Just ("RemoteDomainName" .= _delRemoteDomainName)])--instance ToPath DeleteConditionalForwarder where-        toPath = const "/"--instance ToQuery DeleteConditionalForwarder where-        toQuery = const mempty---- | The result of a DeleteConditionalForwarder request.------------ /See:/ 'deleteConditionalForwarderResponse' smart constructor.-newtype DeleteConditionalForwarderResponse = DeleteConditionalForwarderResponse'-  { _drsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteConditionalForwarderResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drsResponseStatus' - -- | The response status code.-deleteConditionalForwarderResponse-    :: Int -- ^ 'drsResponseStatus'-    -> DeleteConditionalForwarderResponse-deleteConditionalForwarderResponse pResponseStatus_ =-  DeleteConditionalForwarderResponse' {_drsResponseStatus = pResponseStatus_}----- | -- | The response status code.-drsResponseStatus :: Lens' DeleteConditionalForwarderResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})--instance NFData DeleteConditionalForwarderResponse-         where

− gen/Network/AWS/DirectoryService/DeleteDirectory.hs

@@ -1,143 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DeleteDirectory--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes an AWS Directory Service directory.--------- Before you call /DeleteDirectory/ , ensure that all of the required permissions have been explicitly granted through a policy. For details about what permissions are required to run the /DeleteDirectory/ operation, see <http://docs.aws.amazon.com/directoryservice/latest/admin-guide/UsingWithDS_IAM_ResourcePermissions.html AWS Directory Service API Permissions: Actions, Resources, and Conditions Reference> .----module Network.AWS.DirectoryService.DeleteDirectory-    (-    -- * Creating a Request-      deleteDirectory-    , DeleteDirectory-    -- * Request Lenses-    , dddDirectoryId--    -- * Destructuring the Response-    , deleteDirectoryResponse-    , DeleteDirectoryResponse-    -- * Response Lenses-    , delrsDirectoryId-    , delrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DeleteDirectory' operation.------------ /See:/ 'deleteDirectory' smart constructor.-newtype DeleteDirectory = DeleteDirectory'-  { _dddDirectoryId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteDirectory' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dddDirectoryId' - The identifier of the directory to delete.-deleteDirectory-    :: Text -- ^ 'dddDirectoryId'-    -> DeleteDirectory-deleteDirectory pDirectoryId_ =-  DeleteDirectory' {_dddDirectoryId = pDirectoryId_}----- | The identifier of the directory to delete.-dddDirectoryId :: Lens' DeleteDirectory Text-dddDirectoryId = lens _dddDirectoryId (\ s a -> s{_dddDirectoryId = a})--instance AWSRequest DeleteDirectory where-        type Rs DeleteDirectory = DeleteDirectoryResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DeleteDirectoryResponse' <$>-                   (x .?> "DirectoryId") <*> (pure (fromEnum s)))--instance Hashable DeleteDirectory where--instance NFData DeleteDirectory where--instance ToHeaders DeleteDirectory where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DeleteDirectory" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteDirectory where-        toJSON DeleteDirectory'{..}-          = object-              (catMaybes [Just ("DirectoryId" .= _dddDirectoryId)])--instance ToPath DeleteDirectory where-        toPath = const "/"--instance ToQuery DeleteDirectory where-        toQuery = const mempty---- | Contains the results of the 'DeleteDirectory' operation.------------ /See:/ 'deleteDirectoryResponse' smart constructor.-data DeleteDirectoryResponse = DeleteDirectoryResponse'-  { _delrsDirectoryId    :: !(Maybe Text)-  , _delrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteDirectoryResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'delrsDirectoryId' - The directory identifier.------ * 'delrsResponseStatus' - -- | The response status code.-deleteDirectoryResponse-    :: Int -- ^ 'delrsResponseStatus'-    -> DeleteDirectoryResponse-deleteDirectoryResponse pResponseStatus_ =-  DeleteDirectoryResponse'-    {_delrsDirectoryId = Nothing, _delrsResponseStatus = pResponseStatus_}----- | The directory identifier.-delrsDirectoryId :: Lens' DeleteDirectoryResponse (Maybe Text)-delrsDirectoryId = lens _delrsDirectoryId (\ s a -> s{_delrsDirectoryId = a})---- | -- | The response status code.-delrsResponseStatus :: Lens' DeleteDirectoryResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})--instance NFData DeleteDirectoryResponse where

− gen/Network/AWS/DirectoryService/DeleteSnapshot.hs

@@ -1,140 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DeleteSnapshot--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes a directory snapshot.-------module Network.AWS.DirectoryService.DeleteSnapshot-    (-    -- * Creating a Request-      deleteSnapshot-    , DeleteSnapshot-    -- * Request Lenses-    , dsSnapshotId--    -- * Destructuring the Response-    , deleteSnapshotResponse-    , DeleteSnapshotResponse-    -- * Response Lenses-    , dsrsSnapshotId-    , dsrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DeleteSnapshot' operation.------------ /See:/ 'deleteSnapshot' smart constructor.-newtype DeleteSnapshot = DeleteSnapshot'-  { _dsSnapshotId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsSnapshotId' - The identifier of the directory snapshot to be deleted.-deleteSnapshot-    :: Text -- ^ 'dsSnapshotId'-    -> DeleteSnapshot-deleteSnapshot pSnapshotId_ = DeleteSnapshot' {_dsSnapshotId = pSnapshotId_}----- | The identifier of the directory snapshot to be deleted.-dsSnapshotId :: Lens' DeleteSnapshot Text-dsSnapshotId = lens _dsSnapshotId (\ s a -> s{_dsSnapshotId = a})--instance AWSRequest DeleteSnapshot where-        type Rs DeleteSnapshot = DeleteSnapshotResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DeleteSnapshotResponse' <$>-                   (x .?> "SnapshotId") <*> (pure (fromEnum s)))--instance Hashable DeleteSnapshot where--instance NFData DeleteSnapshot where--instance ToHeaders DeleteSnapshot where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DeleteSnapshot" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteSnapshot where-        toJSON DeleteSnapshot'{..}-          = object-              (catMaybes [Just ("SnapshotId" .= _dsSnapshotId)])--instance ToPath DeleteSnapshot where-        toPath = const "/"--instance ToQuery DeleteSnapshot where-        toQuery = const mempty---- | Contains the results of the 'DeleteSnapshot' operation.------------ /See:/ 'deleteSnapshotResponse' smart constructor.-data DeleteSnapshotResponse = DeleteSnapshotResponse'-  { _dsrsSnapshotId     :: !(Maybe Text)-  , _dsrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsrsSnapshotId' - The identifier of the directory snapshot that was deleted.------ * 'dsrsResponseStatus' - -- | The response status code.-deleteSnapshotResponse-    :: Int -- ^ 'dsrsResponseStatus'-    -> DeleteSnapshotResponse-deleteSnapshotResponse pResponseStatus_ =-  DeleteSnapshotResponse'-    {_dsrsSnapshotId = Nothing, _dsrsResponseStatus = pResponseStatus_}----- | The identifier of the directory snapshot that was deleted.-dsrsSnapshotId :: Lens' DeleteSnapshotResponse (Maybe Text)-dsrsSnapshotId = lens _dsrsSnapshotId (\ s a -> s{_dsrsSnapshotId = a})---- | -- | The response status code.-dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})--instance NFData DeleteSnapshotResponse where

− gen/Network/AWS/DirectoryService/DeleteTrust.hs

@@ -1,153 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DeleteTrust--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Deletes an existing trust relationship between your Microsoft AD in the AWS cloud and an external domain.-------module Network.AWS.DirectoryService.DeleteTrust-    (-    -- * Creating a Request-      deleteTrust-    , DeleteTrust-    -- * Request Lenses-    , dtDeleteAssociatedConditionalForwarder-    , dtTrustId--    -- * Destructuring the Response-    , deleteTrustResponse-    , DeleteTrustResponse-    -- * Response Lenses-    , dttrsTrustId-    , dttrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Deletes the local side of an existing trust relationship between the Microsoft AD in the AWS cloud and the external domain.------------ /See:/ 'deleteTrust' smart constructor.-data DeleteTrust = DeleteTrust'-  { _dtDeleteAssociatedConditionalForwarder :: !(Maybe Bool)-  , _dtTrustId                              :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteTrust' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtDeleteAssociatedConditionalForwarder' - Delete a conditional forwarder as part of a DeleteTrustRequest.------ * 'dtTrustId' - The Trust ID of the trust relationship to be deleted.-deleteTrust-    :: Text -- ^ 'dtTrustId'-    -> DeleteTrust-deleteTrust pTrustId_ =-  DeleteTrust'-    {_dtDeleteAssociatedConditionalForwarder = Nothing, _dtTrustId = pTrustId_}----- | Delete a conditional forwarder as part of a DeleteTrustRequest.-dtDeleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)-dtDeleteAssociatedConditionalForwarder = lens _dtDeleteAssociatedConditionalForwarder (\ s a -> s{_dtDeleteAssociatedConditionalForwarder = a})---- | The Trust ID of the trust relationship to be deleted.-dtTrustId :: Lens' DeleteTrust Text-dtTrustId = lens _dtTrustId (\ s a -> s{_dtTrustId = a})--instance AWSRequest DeleteTrust where-        type Rs DeleteTrust = DeleteTrustResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DeleteTrustResponse' <$>-                   (x .?> "TrustId") <*> (pure (fromEnum s)))--instance Hashable DeleteTrust where--instance NFData DeleteTrust where--instance ToHeaders DeleteTrust where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DeleteTrust" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeleteTrust where-        toJSON DeleteTrust'{..}-          = object-              (catMaybes-                 [("DeleteAssociatedConditionalForwarder" .=) <$>-                    _dtDeleteAssociatedConditionalForwarder,-                  Just ("TrustId" .= _dtTrustId)])--instance ToPath DeleteTrust where-        toPath = const "/"--instance ToQuery DeleteTrust where-        toQuery = const mempty---- | The result of a DeleteTrust request.------------ /See:/ 'deleteTrustResponse' smart constructor.-data DeleteTrustResponse = DeleteTrustResponse'-  { _dttrsTrustId        :: !(Maybe Text)-  , _dttrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeleteTrustResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dttrsTrustId' - The Trust ID of the trust relationship that was deleted.------ * 'dttrsResponseStatus' - -- | The response status code.-deleteTrustResponse-    :: Int -- ^ 'dttrsResponseStatus'-    -> DeleteTrustResponse-deleteTrustResponse pResponseStatus_ =-  DeleteTrustResponse'-    {_dttrsTrustId = Nothing, _dttrsResponseStatus = pResponseStatus_}----- | The Trust ID of the trust relationship that was deleted.-dttrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)-dttrsTrustId = lens _dttrsTrustId (\ s a -> s{_dttrsTrustId = a})---- | -- | The response status code.-dttrsResponseStatus :: Lens' DeleteTrustResponse Int-dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a})--instance NFData DeleteTrustResponse where

− gen/Network/AWS/DirectoryService/DeregisterEventTopic.hs

@@ -1,145 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DeregisterEventTopic--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Removes the specified directory as a publisher to the specified SNS topic.-------module Network.AWS.DirectoryService.DeregisterEventTopic-    (-    -- * Creating a Request-      deregisterEventTopic-    , DeregisterEventTopic-    -- * Request Lenses-    , detDirectoryId-    , detTopicName--    -- * Destructuring the Response-    , deregisterEventTopicResponse-    , DeregisterEventTopicResponse-    -- * Response Lenses-    , derrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Removes the specified directory as a publisher to the specified SNS topic.------------ /See:/ 'deregisterEventTopic' smart constructor.-data DeregisterEventTopic = DeregisterEventTopic'-  { _detDirectoryId :: !Text-  , _detTopicName   :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeregisterEventTopic' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'detDirectoryId' - The Directory ID to remove as a publisher. This directory will no longer send messages to the specified SNS topic.------ * 'detTopicName' - The name of the SNS topic from which to remove the directory as a publisher.-deregisterEventTopic-    :: Text -- ^ 'detDirectoryId'-    -> Text -- ^ 'detTopicName'-    -> DeregisterEventTopic-deregisterEventTopic pDirectoryId_ pTopicName_ =-  DeregisterEventTopic'-    {_detDirectoryId = pDirectoryId_, _detTopicName = pTopicName_}----- | The Directory ID to remove as a publisher. This directory will no longer send messages to the specified SNS topic.-detDirectoryId :: Lens' DeregisterEventTopic Text-detDirectoryId = lens _detDirectoryId (\ s a -> s{_detDirectoryId = a})---- | The name of the SNS topic from which to remove the directory as a publisher.-detTopicName :: Lens' DeregisterEventTopic Text-detTopicName = lens _detTopicName (\ s a -> s{_detTopicName = a})--instance AWSRequest DeregisterEventTopic where-        type Rs DeregisterEventTopic =-             DeregisterEventTopicResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 DeregisterEventTopicResponse' <$>-                   (pure (fromEnum s)))--instance Hashable DeregisterEventTopic where--instance NFData DeregisterEventTopic where--instance ToHeaders DeregisterEventTopic where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DeregisterEventTopic" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DeregisterEventTopic where-        toJSON DeregisterEventTopic'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _detDirectoryId),-                  Just ("TopicName" .= _detTopicName)])--instance ToPath DeregisterEventTopic where-        toPath = const "/"--instance ToQuery DeregisterEventTopic where-        toQuery = const mempty---- | The result of a DeregisterEventTopic request.------------ /See:/ 'deregisterEventTopicResponse' smart constructor.-newtype DeregisterEventTopicResponse = DeregisterEventTopicResponse'-  { _derrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DeregisterEventTopicResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'derrsResponseStatus' - -- | The response status code.-deregisterEventTopicResponse-    :: Int -- ^ 'derrsResponseStatus'-    -> DeregisterEventTopicResponse-deregisterEventTopicResponse pResponseStatus_ =-  DeregisterEventTopicResponse' {_derrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-derrsResponseStatus :: Lens' DeregisterEventTopicResponse Int-derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a})--instance NFData DeregisterEventTopicResponse where

− gen/Network/AWS/DirectoryService/DescribeConditionalForwarders.hs

@@ -1,161 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeConditionalForwarders--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains information about the conditional forwarders for this account.--------- If no input parameters are provided for RemoteDomainNames, this request describes all conditional forwarders for the specified directory ID.----module Network.AWS.DirectoryService.DescribeConditionalForwarders-    (-    -- * Creating a Request-      describeConditionalForwarders-    , DescribeConditionalForwarders-    -- * Request Lenses-    , dcfRemoteDomainNames-    , dcfDirectoryId--    -- * Destructuring the Response-    , describeConditionalForwardersResponse-    , DescribeConditionalForwardersResponse-    -- * Response Lenses-    , dcfrsConditionalForwarders-    , dcfrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Describes a conditional forwarder.------------ /See:/ 'describeConditionalForwarders' smart constructor.-data DescribeConditionalForwarders = DescribeConditionalForwarders'-  { _dcfRemoteDomainNames :: !(Maybe [Text])-  , _dcfDirectoryId       :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeConditionalForwarders' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcfRemoteDomainNames' - The fully qualified domain names (FQDN) of the remote domains for which to get the list of associated conditional forwarders. If this member is null, all conditional forwarders are returned.------ * 'dcfDirectoryId' - The directory ID for which to get the list of associated conditional forwarders.-describeConditionalForwarders-    :: Text -- ^ 'dcfDirectoryId'-    -> DescribeConditionalForwarders-describeConditionalForwarders pDirectoryId_ =-  DescribeConditionalForwarders'-    {_dcfRemoteDomainNames = Nothing, _dcfDirectoryId = pDirectoryId_}----- | The fully qualified domain names (FQDN) of the remote domains for which to get the list of associated conditional forwarders. If this member is null, all conditional forwarders are returned.-dcfRemoteDomainNames :: Lens' DescribeConditionalForwarders [Text]-dcfRemoteDomainNames = lens _dcfRemoteDomainNames (\ s a -> s{_dcfRemoteDomainNames = a}) . _Default . _Coerce---- | The directory ID for which to get the list of associated conditional forwarders.-dcfDirectoryId :: Lens' DescribeConditionalForwarders Text-dcfDirectoryId = lens _dcfDirectoryId (\ s a -> s{_dcfDirectoryId = a})--instance AWSRequest DescribeConditionalForwarders-         where-        type Rs DescribeConditionalForwarders =-             DescribeConditionalForwardersResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeConditionalForwardersResponse' <$>-                   (x .?> "ConditionalForwarders" .!@ mempty) <*>-                     (pure (fromEnum s)))--instance Hashable DescribeConditionalForwarders where--instance NFData DescribeConditionalForwarders where--instance ToHeaders DescribeConditionalForwarders-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeConditionalForwarders"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeConditionalForwarders where-        toJSON DescribeConditionalForwarders'{..}-          = object-              (catMaybes-                 [("RemoteDomainNames" .=) <$> _dcfRemoteDomainNames,-                  Just ("DirectoryId" .= _dcfDirectoryId)])--instance ToPath DescribeConditionalForwarders where-        toPath = const "/"--instance ToQuery DescribeConditionalForwarders where-        toQuery = const mempty---- | The result of a DescribeConditionalForwarder request.------------ /See:/ 'describeConditionalForwardersResponse' smart constructor.-data DescribeConditionalForwardersResponse = DescribeConditionalForwardersResponse'-  { _dcfrsConditionalForwarders :: !(Maybe [ConditionalForwarder])-  , _dcfrsResponseStatus        :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeConditionalForwardersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcfrsConditionalForwarders' - The list of conditional forwarders that have been created.------ * 'dcfrsResponseStatus' - -- | The response status code.-describeConditionalForwardersResponse-    :: Int -- ^ 'dcfrsResponseStatus'-    -> DescribeConditionalForwardersResponse-describeConditionalForwardersResponse pResponseStatus_ =-  DescribeConditionalForwardersResponse'-    { _dcfrsConditionalForwarders = Nothing-    , _dcfrsResponseStatus = pResponseStatus_-    }----- | The list of conditional forwarders that have been created.-dcfrsConditionalForwarders :: Lens' DescribeConditionalForwardersResponse [ConditionalForwarder]-dcfrsConditionalForwarders = lens _dcfrsConditionalForwarders (\ s a -> s{_dcfrsConditionalForwarders = a}) . _Default . _Coerce---- | -- | The response status code.-dcfrsResponseStatus :: Lens' DescribeConditionalForwardersResponse Int-dcfrsResponseStatus = lens _dcfrsResponseStatus (\ s a -> s{_dcfrsResponseStatus = a})--instance NFData DescribeConditionalForwardersResponse-         where

− gen/Network/AWS/DirectoryService/DescribeDirectories.hs

@@ -1,180 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeDirectories--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains information about the directories that belong to this account.--------- You can retrieve information about specific directories by passing the directory identifiers in the /DirectoryIds/ parameter. Otherwise, all directories that belong to the current account are returned.------ This operation supports pagination with the use of the /NextToken/ request and response parameters. If more results are available, the /DescribeDirectoriesResult.NextToken/ member contains a token that you pass in the next call to 'DescribeDirectories' to retrieve the next set of items.------ You can also specify a maximum number of return results with the /Limit/ parameter.----module Network.AWS.DirectoryService.DescribeDirectories-    (-    -- * Creating a Request-      describeDirectories-    , DescribeDirectories-    -- * Request Lenses-    , ddNextToken-    , ddDirectoryIds-    , ddLimit--    -- * Destructuring the Response-    , describeDirectoriesResponse-    , DescribeDirectoriesResponse-    -- * Response Lenses-    , ddrsDirectoryDescriptions-    , ddrsNextToken-    , ddrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DescribeDirectories' operation.------------ /See:/ 'describeDirectories' smart constructor.-data DescribeDirectories = DescribeDirectories'-  { _ddNextToken    :: !(Maybe Text)-  , _ddDirectoryIds :: !(Maybe [Text])-  , _ddLimit        :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDirectories' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddNextToken' - The /DescribeDirectoriesResult.NextToken/ value from a previous call to 'DescribeDirectories' . Pass null if this is the first call.------ * 'ddDirectoryIds' - A list of identifiers of the directories for which to obtain the information. If this member is null, all directories that belong to the current account are returned. An empty list results in an @InvalidParameterException@ being thrown.------ * 'ddLimit' - The maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation.-describeDirectories-    :: DescribeDirectories-describeDirectories =-  DescribeDirectories'-    {_ddNextToken = Nothing, _ddDirectoryIds = Nothing, _ddLimit = Nothing}----- | The /DescribeDirectoriesResult.NextToken/ value from a previous call to 'DescribeDirectories' . Pass null if this is the first call.-ddNextToken :: Lens' DescribeDirectories (Maybe Text)-ddNextToken = lens _ddNextToken (\ s a -> s{_ddNextToken = a})---- | A list of identifiers of the directories for which to obtain the information. If this member is null, all directories that belong to the current account are returned. An empty list results in an @InvalidParameterException@ being thrown.-ddDirectoryIds :: Lens' DescribeDirectories [Text]-ddDirectoryIds = lens _ddDirectoryIds (\ s a -> s{_ddDirectoryIds = a}) . _Default . _Coerce---- | The maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation.-ddLimit :: Lens' DescribeDirectories (Maybe Natural)-ddLimit = lens _ddLimit (\ s a -> s{_ddLimit = a}) . mapping _Nat--instance AWSRequest DescribeDirectories where-        type Rs DescribeDirectories =-             DescribeDirectoriesResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeDirectoriesResponse' <$>-                   (x .?> "DirectoryDescriptions" .!@ mempty) <*>-                     (x .?> "NextToken")-                     <*> (pure (fromEnum s)))--instance Hashable DescribeDirectories where--instance NFData DescribeDirectories where--instance ToHeaders DescribeDirectories where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeDirectories" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeDirectories where-        toJSON DescribeDirectories'{..}-          = object-              (catMaybes-                 [("NextToken" .=) <$> _ddNextToken,-                  ("DirectoryIds" .=) <$> _ddDirectoryIds,-                  ("Limit" .=) <$> _ddLimit])--instance ToPath DescribeDirectories where-        toPath = const "/"--instance ToQuery DescribeDirectories where-        toQuery = const mempty---- | Contains the results of the 'DescribeDirectories' operation.------------ /See:/ 'describeDirectoriesResponse' smart constructor.-data DescribeDirectoriesResponse = DescribeDirectoriesResponse'-  { _ddrsDirectoryDescriptions :: !(Maybe [DirectoryDescription])-  , _ddrsNextToken             :: !(Maybe Text)-  , _ddrsResponseStatus        :: !Int-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDirectoriesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddrsDirectoryDescriptions' - The list of 'DirectoryDescription' objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.------ * 'ddrsNextToken' - If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'DescribeDirectories' to retrieve the next set of items.------ * 'ddrsResponseStatus' - -- | The response status code.-describeDirectoriesResponse-    :: Int -- ^ 'ddrsResponseStatus'-    -> DescribeDirectoriesResponse-describeDirectoriesResponse pResponseStatus_ =-  DescribeDirectoriesResponse'-    { _ddrsDirectoryDescriptions = Nothing-    , _ddrsNextToken = Nothing-    , _ddrsResponseStatus = pResponseStatus_-    }----- | The list of 'DirectoryDescription' objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.-ddrsDirectoryDescriptions :: Lens' DescribeDirectoriesResponse [DirectoryDescription]-ddrsDirectoryDescriptions = lens _ddrsDirectoryDescriptions (\ s a -> s{_ddrsDirectoryDescriptions = a}) . _Default . _Coerce---- | If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'DescribeDirectories' to retrieve the next set of items.-ddrsNextToken :: Lens' DescribeDirectoriesResponse (Maybe Text)-ddrsNextToken = lens _ddrsNextToken (\ s a -> s{_ddrsNextToken = a})---- | -- | The response status code.-ddrsResponseStatus :: Lens' DescribeDirectoriesResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})--instance NFData DescribeDirectoriesResponse where

− gen/Network/AWS/DirectoryService/DescribeDomainControllers.hs

@@ -1,192 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeDomainControllers--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Provides information about any domain controllers in your directory.------------ This operation returns paginated results.-module Network.AWS.DirectoryService.DescribeDomainControllers-    (-    -- * Creating a Request-      describeDomainControllers-    , DescribeDomainControllers-    -- * Request Lenses-    , ddcNextToken-    , ddcDomainControllerIds-    , ddcLimit-    , ddcDirectoryId--    -- * Destructuring the Response-    , describeDomainControllersResponse-    , DescribeDomainControllersResponse-    -- * Response Lenses-    , ddcrsNextToken-    , ddcrsDomainControllers-    , ddcrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Pager-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'describeDomainControllers' smart constructor.-data DescribeDomainControllers = DescribeDomainControllers'-  { _ddcNextToken           :: !(Maybe Text)-  , _ddcDomainControllerIds :: !(Maybe [Text])-  , _ddcLimit               :: !(Maybe Nat)-  , _ddcDirectoryId         :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDomainControllers' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddcNextToken' - The /DescribeDomainControllers.NextToken/ value from a previous call to 'DescribeDomainControllers' . Pass null if this is the first call.------ * 'ddcDomainControllerIds' - A list of identifiers for the domain controllers whose information will be provided.------ * 'ddcLimit' - The maximum number of items to return.------ * 'ddcDirectoryId' - Identifier of the directory for which to retrieve the domain controller information.-describeDomainControllers-    :: Text -- ^ 'ddcDirectoryId'-    -> DescribeDomainControllers-describeDomainControllers pDirectoryId_ =-  DescribeDomainControllers'-    { _ddcNextToken = Nothing-    , _ddcDomainControllerIds = Nothing-    , _ddcLimit = Nothing-    , _ddcDirectoryId = pDirectoryId_-    }----- | The /DescribeDomainControllers.NextToken/ value from a previous call to 'DescribeDomainControllers' . Pass null if this is the first call.-ddcNextToken :: Lens' DescribeDomainControllers (Maybe Text)-ddcNextToken = lens _ddcNextToken (\ s a -> s{_ddcNextToken = a})---- | A list of identifiers for the domain controllers whose information will be provided.-ddcDomainControllerIds :: Lens' DescribeDomainControllers [Text]-ddcDomainControllerIds = lens _ddcDomainControllerIds (\ s a -> s{_ddcDomainControllerIds = a}) . _Default . _Coerce---- | The maximum number of items to return.-ddcLimit :: Lens' DescribeDomainControllers (Maybe Natural)-ddcLimit = lens _ddcLimit (\ s a -> s{_ddcLimit = a}) . mapping _Nat---- | Identifier of the directory for which to retrieve the domain controller information.-ddcDirectoryId :: Lens' DescribeDomainControllers Text-ddcDirectoryId = lens _ddcDirectoryId (\ s a -> s{_ddcDirectoryId = a})--instance AWSPager DescribeDomainControllers where-        page rq rs-          | stop (rs ^. ddcrsNextToken) = Nothing-          | stop (rs ^. ddcrsDomainControllers) = Nothing-          | otherwise =-            Just $ rq & ddcNextToken .~ rs ^. ddcrsNextToken--instance AWSRequest DescribeDomainControllers where-        type Rs DescribeDomainControllers =-             DescribeDomainControllersResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeDomainControllersResponse' <$>-                   (x .?> "NextToken") <*>-                     (x .?> "DomainControllers" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable DescribeDomainControllers where--instance NFData DescribeDomainControllers where--instance ToHeaders DescribeDomainControllers where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeDomainControllers"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeDomainControllers where-        toJSON DescribeDomainControllers'{..}-          = object-              (catMaybes-                 [("NextToken" .=) <$> _ddcNextToken,-                  ("DomainControllerIds" .=) <$>-                    _ddcDomainControllerIds,-                  ("Limit" .=) <$> _ddcLimit,-                  Just ("DirectoryId" .= _ddcDirectoryId)])--instance ToPath DescribeDomainControllers where-        toPath = const "/"--instance ToQuery DescribeDomainControllers where-        toQuery = const mempty---- | /See:/ 'describeDomainControllersResponse' smart constructor.-data DescribeDomainControllersResponse = DescribeDomainControllersResponse'-  { _ddcrsNextToken         :: !(Maybe Text)-  , _ddcrsDomainControllers :: !(Maybe [DomainController])-  , _ddcrsResponseStatus    :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeDomainControllersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddcrsNextToken' - If not null, more results are available. Pass this value for the @NextToken@ parameter in a subsequent call to 'DescribeDomainControllers' retrieve the next set of items.------ * 'ddcrsDomainControllers' - List of the 'DomainController' objects that were retrieved.------ * 'ddcrsResponseStatus' - -- | The response status code.-describeDomainControllersResponse-    :: Int -- ^ 'ddcrsResponseStatus'-    -> DescribeDomainControllersResponse-describeDomainControllersResponse pResponseStatus_ =-  DescribeDomainControllersResponse'-    { _ddcrsNextToken = Nothing-    , _ddcrsDomainControllers = Nothing-    , _ddcrsResponseStatus = pResponseStatus_-    }----- | If not null, more results are available. Pass this value for the @NextToken@ parameter in a subsequent call to 'DescribeDomainControllers' retrieve the next set of items.-ddcrsNextToken :: Lens' DescribeDomainControllersResponse (Maybe Text)-ddcrsNextToken = lens _ddcrsNextToken (\ s a -> s{_ddcrsNextToken = a})---- | List of the 'DomainController' objects that were retrieved.-ddcrsDomainControllers :: Lens' DescribeDomainControllersResponse [DomainController]-ddcrsDomainControllers = lens _ddcrsDomainControllers (\ s a -> s{_ddcrsDomainControllers = a}) . _Default . _Coerce---- | -- | The response status code.-ddcrsResponseStatus :: Lens' DescribeDomainControllersResponse Int-ddcrsResponseStatus = lens _ddcrsResponseStatus (\ s a -> s{_ddcrsResponseStatus = a})--instance NFData DescribeDomainControllersResponse-         where

− gen/Network/AWS/DirectoryService/DescribeEventTopics.hs

@@ -1,154 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeEventTopics--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains information about which SNS topics receive status messages from the specified directory.--------- If no input parameters are provided, such as DirectoryId or TopicName, this request describes all of the associations in the account.----module Network.AWS.DirectoryService.DescribeEventTopics-    (-    -- * Creating a Request-      describeEventTopics-    , DescribeEventTopics-    -- * Request Lenses-    , dDirectoryId-    , dTopicNames--    -- * Destructuring the Response-    , describeEventTopicsResponse-    , DescribeEventTopicsResponse-    -- * Response Lenses-    , detrsEventTopics-    , detrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Describes event topics.------------ /See:/ 'describeEventTopics' smart constructor.-data DescribeEventTopics = DescribeEventTopics'-  { _dDirectoryId :: !(Maybe Text)-  , _dTopicNames  :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventTopics' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dDirectoryId' - The Directory ID for which to get the list of associated SNS topics. If this member is null, associations for all Directory IDs are returned.------ * 'dTopicNames' - A list of SNS topic names for which to obtain the information. If this member is null, all associations for the specified Directory ID are returned. An empty list results in an @InvalidParameterException@ being thrown.-describeEventTopics-    :: DescribeEventTopics-describeEventTopics =-  DescribeEventTopics' {_dDirectoryId = Nothing, _dTopicNames = Nothing}----- | The Directory ID for which to get the list of associated SNS topics. If this member is null, associations for all Directory IDs are returned.-dDirectoryId :: Lens' DescribeEventTopics (Maybe Text)-dDirectoryId = lens _dDirectoryId (\ s a -> s{_dDirectoryId = a})---- | A list of SNS topic names for which to obtain the information. If this member is null, all associations for the specified Directory ID are returned. An empty list results in an @InvalidParameterException@ being thrown.-dTopicNames :: Lens' DescribeEventTopics [Text]-dTopicNames = lens _dTopicNames (\ s a -> s{_dTopicNames = a}) . _Default . _Coerce--instance AWSRequest DescribeEventTopics where-        type Rs DescribeEventTopics =-             DescribeEventTopicsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeEventTopicsResponse' <$>-                   (x .?> "EventTopics" .!@ mempty) <*>-                     (pure (fromEnum s)))--instance Hashable DescribeEventTopics where--instance NFData DescribeEventTopics where--instance ToHeaders DescribeEventTopics where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeEventTopics" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeEventTopics where-        toJSON DescribeEventTopics'{..}-          = object-              (catMaybes-                 [("DirectoryId" .=) <$> _dDirectoryId,-                  ("TopicNames" .=) <$> _dTopicNames])--instance ToPath DescribeEventTopics where-        toPath = const "/"--instance ToQuery DescribeEventTopics where-        toQuery = const mempty---- | The result of a DescribeEventTopic request.------------ /See:/ 'describeEventTopicsResponse' smart constructor.-data DescribeEventTopicsResponse = DescribeEventTopicsResponse'-  { _detrsEventTopics    :: !(Maybe [EventTopic])-  , _detrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeEventTopicsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'detrsEventTopics' - A list of SNS topic names that receive status messages from the specified Directory ID.------ * 'detrsResponseStatus' - -- | The response status code.-describeEventTopicsResponse-    :: Int -- ^ 'detrsResponseStatus'-    -> DescribeEventTopicsResponse-describeEventTopicsResponse pResponseStatus_ =-  DescribeEventTopicsResponse'-    {_detrsEventTopics = Nothing, _detrsResponseStatus = pResponseStatus_}----- | A list of SNS topic names that receive status messages from the specified Directory ID.-detrsEventTopics :: Lens' DescribeEventTopicsResponse [EventTopic]-detrsEventTopics = lens _detrsEventTopics (\ s a -> s{_detrsEventTopics = a}) . _Default . _Coerce---- | -- | The response status code.-detrsResponseStatus :: Lens' DescribeEventTopicsResponse Int-detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})--instance NFData DescribeEventTopicsResponse where

− gen/Network/AWS/DirectoryService/DescribeSnapshots.hs

@@ -1,190 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeSnapshots--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains information about the directory snapshots that belong to this account.--------- This operation supports pagination with the use of the /NextToken/ request and response parameters. If more results are available, the /DescribeSnapshots.NextToken/ member contains a token that you pass in the next call to 'DescribeSnapshots' to retrieve the next set of items.------ You can also specify a maximum number of return results with the /Limit/ parameter.----module Network.AWS.DirectoryService.DescribeSnapshots-    (-    -- * Creating a Request-      describeSnapshots-    , DescribeSnapshots-    -- * Request Lenses-    , dsDirectoryId-    , dsNextToken-    , dsSnapshotIds-    , dsLimit--    -- * Destructuring the Response-    , describeSnapshotsResponse-    , DescribeSnapshotsResponse-    -- * Response Lenses-    , dssrsNextToken-    , dssrsSnapshots-    , dssrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DescribeSnapshots' operation.------------ /See:/ 'describeSnapshots' smart constructor.-data DescribeSnapshots = DescribeSnapshots'-  { _dsDirectoryId :: !(Maybe Text)-  , _dsNextToken   :: !(Maybe Text)-  , _dsSnapshotIds :: !(Maybe [Text])-  , _dsLimit       :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeSnapshots' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dsDirectoryId' - The identifier of the directory for which to retrieve snapshot information.------ * 'dsNextToken' - The /DescribeSnapshotsResult.NextToken/ value from a previous call to 'DescribeSnapshots' . Pass null if this is the first call.------ * 'dsSnapshotIds' - A list of identifiers of the snapshots to obtain the information for. If this member is null or empty, all snapshots are returned using the /Limit/ and /NextToken/ members.------ * 'dsLimit' - The maximum number of objects to return.-describeSnapshots-    :: DescribeSnapshots-describeSnapshots =-  DescribeSnapshots'-    { _dsDirectoryId = Nothing-    , _dsNextToken = Nothing-    , _dsSnapshotIds = Nothing-    , _dsLimit = Nothing-    }----- | The identifier of the directory for which to retrieve snapshot information.-dsDirectoryId :: Lens' DescribeSnapshots (Maybe Text)-dsDirectoryId = lens _dsDirectoryId (\ s a -> s{_dsDirectoryId = a})---- | The /DescribeSnapshotsResult.NextToken/ value from a previous call to 'DescribeSnapshots' . Pass null if this is the first call.-dsNextToken :: Lens' DescribeSnapshots (Maybe Text)-dsNextToken = lens _dsNextToken (\ s a -> s{_dsNextToken = a})---- | A list of identifiers of the snapshots to obtain the information for. If this member is null or empty, all snapshots are returned using the /Limit/ and /NextToken/ members.-dsSnapshotIds :: Lens' DescribeSnapshots [Text]-dsSnapshotIds = lens _dsSnapshotIds (\ s a -> s{_dsSnapshotIds = a}) . _Default . _Coerce---- | The maximum number of objects to return.-dsLimit :: Lens' DescribeSnapshots (Maybe Natural)-dsLimit = lens _dsLimit (\ s a -> s{_dsLimit = a}) . mapping _Nat--instance AWSRequest DescribeSnapshots where-        type Rs DescribeSnapshots = DescribeSnapshotsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeSnapshotsResponse' <$>-                   (x .?> "NextToken") <*>-                     (x .?> "Snapshots" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable DescribeSnapshots where--instance NFData DescribeSnapshots where--instance ToHeaders DescribeSnapshots where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeSnapshots" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeSnapshots where-        toJSON DescribeSnapshots'{..}-          = object-              (catMaybes-                 [("DirectoryId" .=) <$> _dsDirectoryId,-                  ("NextToken" .=) <$> _dsNextToken,-                  ("SnapshotIds" .=) <$> _dsSnapshotIds,-                  ("Limit" .=) <$> _dsLimit])--instance ToPath DescribeSnapshots where-        toPath = const "/"--instance ToQuery DescribeSnapshots where-        toQuery = const mempty---- | Contains the results of the 'DescribeSnapshots' operation.------------ /See:/ 'describeSnapshotsResponse' smart constructor.-data DescribeSnapshotsResponse = DescribeSnapshotsResponse'-  { _dssrsNextToken      :: !(Maybe Text)-  , _dssrsSnapshots      :: !(Maybe [Snapshot])-  , _dssrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeSnapshotsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dssrsNextToken' - If not null, more results are available. Pass this value in the /NextToken/ member of a subsequent call to 'DescribeSnapshots' .------ * 'dssrsSnapshots' - The list of 'Snapshot' objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.------ * 'dssrsResponseStatus' - -- | The response status code.-describeSnapshotsResponse-    :: Int -- ^ 'dssrsResponseStatus'-    -> DescribeSnapshotsResponse-describeSnapshotsResponse pResponseStatus_ =-  DescribeSnapshotsResponse'-    { _dssrsNextToken = Nothing-    , _dssrsSnapshots = Nothing-    , _dssrsResponseStatus = pResponseStatus_-    }----- | If not null, more results are available. Pass this value in the /NextToken/ member of a subsequent call to 'DescribeSnapshots' .-dssrsNextToken :: Lens' DescribeSnapshotsResponse (Maybe Text)-dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a})---- | The list of 'Snapshot' objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.-dssrsSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot]-dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce---- | -- | The response status code.-dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})--instance NFData DescribeSnapshotsResponse where

− gen/Network/AWS/DirectoryService/DescribeTrusts.hs

@@ -1,187 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DescribeTrusts--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains information about the trust relationships for this account.--------- If no input parameters are provided, such as DirectoryId or TrustIds, this request describes all the trust relationships belonging to the account.----module Network.AWS.DirectoryService.DescribeTrusts-    (-    -- * Creating a Request-      describeTrusts-    , DescribeTrusts-    -- * Request Lenses-    , dtDirectoryId-    , dtNextToken-    , dtTrustIds-    , dtLimit--    -- * Destructuring the Response-    , describeTrustsResponse-    , DescribeTrustsResponse-    -- * Response Lenses-    , dtrsNextToken-    , dtrsTrusts-    , dtrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Describes the trust relationships for a particular Microsoft AD in the AWS cloud. If no input parameters are are provided, such as directory ID or trust ID, this request describes all the trust relationships.------------ /See:/ 'describeTrusts' smart constructor.-data DescribeTrusts = DescribeTrusts'-  { _dtDirectoryId :: !(Maybe Text)-  , _dtNextToken   :: !(Maybe Text)-  , _dtTrustIds    :: !(Maybe [Text])-  , _dtLimit       :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTrusts' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtDirectoryId' - The Directory ID of the AWS directory that is a part of the requested trust relationship.------ * 'dtNextToken' - The /DescribeTrustsResult.NextToken/ value from a previous call to 'DescribeTrusts' . Pass null if this is the first call.------ * 'dtTrustIds' - A list of identifiers of the trust relationships for which to obtain the information. If this member is null, all trust relationships that belong to the current account are returned. An empty list results in an @InvalidParameterException@ being thrown.------ * 'dtLimit' - The maximum number of objects to return.-describeTrusts-    :: DescribeTrusts-describeTrusts =-  DescribeTrusts'-    { _dtDirectoryId = Nothing-    , _dtNextToken = Nothing-    , _dtTrustIds = Nothing-    , _dtLimit = Nothing-    }----- | The Directory ID of the AWS directory that is a part of the requested trust relationship.-dtDirectoryId :: Lens' DescribeTrusts (Maybe Text)-dtDirectoryId = lens _dtDirectoryId (\ s a -> s{_dtDirectoryId = a})---- | The /DescribeTrustsResult.NextToken/ value from a previous call to 'DescribeTrusts' . Pass null if this is the first call.-dtNextToken :: Lens' DescribeTrusts (Maybe Text)-dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a})---- | A list of identifiers of the trust relationships for which to obtain the information. If this member is null, all trust relationships that belong to the current account are returned. An empty list results in an @InvalidParameterException@ being thrown.-dtTrustIds :: Lens' DescribeTrusts [Text]-dtTrustIds = lens _dtTrustIds (\ s a -> s{_dtTrustIds = a}) . _Default . _Coerce---- | The maximum number of objects to return.-dtLimit :: Lens' DescribeTrusts (Maybe Natural)-dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat--instance AWSRequest DescribeTrusts where-        type Rs DescribeTrusts = DescribeTrustsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 DescribeTrustsResponse' <$>-                   (x .?> "NextToken") <*> (x .?> "Trusts" .!@ mempty)-                     <*> (pure (fromEnum s)))--instance Hashable DescribeTrusts where--instance NFData DescribeTrusts where--instance ToHeaders DescribeTrusts where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DescribeTrusts" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeTrusts where-        toJSON DescribeTrusts'{..}-          = object-              (catMaybes-                 [("DirectoryId" .=) <$> _dtDirectoryId,-                  ("NextToken" .=) <$> _dtNextToken,-                  ("TrustIds" .=) <$> _dtTrustIds,-                  ("Limit" .=) <$> _dtLimit])--instance ToPath DescribeTrusts where-        toPath = const "/"--instance ToQuery DescribeTrusts where-        toQuery = const mempty---- | The result of a DescribeTrust request.------------ /See:/ 'describeTrustsResponse' smart constructor.-data DescribeTrustsResponse = DescribeTrustsResponse'-  { _dtrsNextToken      :: !(Maybe Text)-  , _dtrsTrusts         :: !(Maybe [Trust])-  , _dtrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DescribeTrustsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dtrsNextToken' - If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'DescribeTrusts' to retrieve the next set of items.------ * 'dtrsTrusts' - The list of Trust objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.------ * 'dtrsResponseStatus' - -- | The response status code.-describeTrustsResponse-    :: Int -- ^ 'dtrsResponseStatus'-    -> DescribeTrustsResponse-describeTrustsResponse pResponseStatus_ =-  DescribeTrustsResponse'-    { _dtrsNextToken = Nothing-    , _dtrsTrusts = Nothing-    , _dtrsResponseStatus = pResponseStatus_-    }----- | If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'DescribeTrusts' to retrieve the next set of items.-dtrsNextToken :: Lens' DescribeTrustsResponse (Maybe Text)-dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a})---- | The list of Trust objects that were retrieved. It is possible that this list contains less than the number of items specified in the /Limit/ member of the request. This occurs if there are less than the requested number of items left to retrieve, or if the limitations of the operation have been exceeded.-dtrsTrusts :: Lens' DescribeTrustsResponse [Trust]-dtrsTrusts = lens _dtrsTrusts (\ s a -> s{_dtrsTrusts = a}) . _Default . _Coerce---- | -- | The response status code.-dtrsResponseStatus :: Lens' DescribeTrustsResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})--instance NFData DescribeTrustsResponse where

− gen/Network/AWS/DirectoryService/DisableRadius.hs

@@ -1,130 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DisableRadius--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Disables multi-factor authentication (MFA) with the Remote Authentication Dial In User Service (RADIUS) server for an AD Connector directory.-------module Network.AWS.DirectoryService.DisableRadius-    (-    -- * Creating a Request-      disableRadius-    , DisableRadius-    -- * Request Lenses-    , drDirectoryId--    -- * Destructuring the Response-    , disableRadiusResponse-    , DisableRadiusResponse-    -- * Response Lenses-    , drrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DisableRadius' operation.------------ /See:/ 'disableRadius' smart constructor.-newtype DisableRadius = DisableRadius'-  { _drDirectoryId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableRadius' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drDirectoryId' - The identifier of the directory for which to disable MFA.-disableRadius-    :: Text -- ^ 'drDirectoryId'-    -> DisableRadius-disableRadius pDirectoryId_ = DisableRadius' {_drDirectoryId = pDirectoryId_}----- | The identifier of the directory for which to disable MFA.-drDirectoryId :: Lens' DisableRadius Text-drDirectoryId = lens _drDirectoryId (\ s a -> s{_drDirectoryId = a})--instance AWSRequest DisableRadius where-        type Rs DisableRadius = DisableRadiusResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 DisableRadiusResponse' <$> (pure (fromEnum s)))--instance Hashable DisableRadius where--instance NFData DisableRadius where--instance ToHeaders DisableRadius where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DisableRadius" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DisableRadius where-        toJSON DisableRadius'{..}-          = object-              (catMaybes [Just ("DirectoryId" .= _drDirectoryId)])--instance ToPath DisableRadius where-        toPath = const "/"--instance ToQuery DisableRadius where-        toQuery = const mempty---- | Contains the results of the 'DisableRadius' operation.------------ /See:/ 'disableRadiusResponse' smart constructor.-newtype DisableRadiusResponse = DisableRadiusResponse'-  { _drrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableRadiusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'drrsResponseStatus' - -- | The response status code.-disableRadiusResponse-    :: Int -- ^ 'drrsResponseStatus'-    -> DisableRadiusResponse-disableRadiusResponse pResponseStatus_ =-  DisableRadiusResponse' {_drrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-drrsResponseStatus :: Lens' DisableRadiusResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})--instance NFData DisableRadiusResponse where

− gen/Network/AWS/DirectoryService/DisableSSO.hs

@@ -1,154 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.DisableSSO--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Disables single-sign on for a directory.-------module Network.AWS.DirectoryService.DisableSSO-    (-    -- * Creating a Request-      disableSSO-    , DisableSSO-    -- * Request Lenses-    , dssoUserName-    , dssoPassword-    , dssoDirectoryId--    -- * Destructuring the Response-    , disableSSOResponse-    , DisableSSOResponse-    -- * Response Lenses-    , dssorsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'DisableSso' operation.------------ /See:/ 'disableSSO' smart constructor.-data DisableSSO = DisableSSO'-  { _dssoUserName    :: !(Maybe Text)-  , _dssoPassword    :: !(Maybe (Sensitive Text))-  , _dssoDirectoryId :: !Text-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableSSO' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dssoUserName' - The username of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. This account must have privileges to remove a service principal name. If the AD Connector service account does not have privileges to remove a service principal name, you can specify an alternate account with the /UserName/ and /Password/ parameters. These credentials are only used to disable single sign-on and are not stored by the service. The AD Connector service account is not changed.------ * 'dssoPassword' - The password of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. For more information, see the /UserName/ parameter.------ * 'dssoDirectoryId' - The identifier of the directory for which to disable single-sign on.-disableSSO-    :: Text -- ^ 'dssoDirectoryId'-    -> DisableSSO-disableSSO pDirectoryId_ =-  DisableSSO'-    { _dssoUserName = Nothing-    , _dssoPassword = Nothing-    , _dssoDirectoryId = pDirectoryId_-    }----- | The username of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. This account must have privileges to remove a service principal name. If the AD Connector service account does not have privileges to remove a service principal name, you can specify an alternate account with the /UserName/ and /Password/ parameters. These credentials are only used to disable single sign-on and are not stored by the service. The AD Connector service account is not changed.-dssoUserName :: Lens' DisableSSO (Maybe Text)-dssoUserName = lens _dssoUserName (\ s a -> s{_dssoUserName = a})---- | The password of an alternate account to use to disable single-sign on. This is only used for AD Connector directories. For more information, see the /UserName/ parameter.-dssoPassword :: Lens' DisableSSO (Maybe Text)-dssoPassword = lens _dssoPassword (\ s a -> s{_dssoPassword = a}) . mapping _Sensitive---- | The identifier of the directory for which to disable single-sign on.-dssoDirectoryId :: Lens' DisableSSO Text-dssoDirectoryId = lens _dssoDirectoryId (\ s a -> s{_dssoDirectoryId = a})--instance AWSRequest DisableSSO where-        type Rs DisableSSO = DisableSSOResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 DisableSSOResponse' <$> (pure (fromEnum s)))--instance Hashable DisableSSO where--instance NFData DisableSSO where--instance ToHeaders DisableSSO where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.DisableSso" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DisableSSO where-        toJSON DisableSSO'{..}-          = object-              (catMaybes-                 [("UserName" .=) <$> _dssoUserName,-                  ("Password" .=) <$> _dssoPassword,-                  Just ("DirectoryId" .= _dssoDirectoryId)])--instance ToPath DisableSSO where-        toPath = const "/"--instance ToQuery DisableSSO where-        toQuery = const mempty---- | Contains the results of the 'DisableSso' operation.------------ /See:/ 'disableSSOResponse' smart constructor.-newtype DisableSSOResponse = DisableSSOResponse'-  { _dssorsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DisableSSOResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dssorsResponseStatus' - -- | The response status code.-disableSSOResponse-    :: Int -- ^ 'dssorsResponseStatus'-    -> DisableSSOResponse-disableSSOResponse pResponseStatus_ =-  DisableSSOResponse' {_dssorsResponseStatus = pResponseStatus_}----- | -- | The response status code.-dssorsResponseStatus :: Lens' DisableSSOResponse Int-dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a})--instance NFData DisableSSOResponse where

− gen/Network/AWS/DirectoryService/EnableRadius.hs

@@ -1,143 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.EnableRadius--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Enables multi-factor authentication (MFA) with the Remote Authentication Dial In User Service (RADIUS) server for an AD Connector directory.-------module Network.AWS.DirectoryService.EnableRadius-    (-    -- * Creating a Request-      enableRadius-    , EnableRadius-    -- * Request Lenses-    , erDirectoryId-    , erRadiusSettings--    -- * Destructuring the Response-    , enableRadiusResponse-    , EnableRadiusResponse-    -- * Response Lenses-    , errsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'EnableRadius' operation.------------ /See:/ 'enableRadius' smart constructor.-data EnableRadius = EnableRadius'-  { _erDirectoryId    :: !Text-  , _erRadiusSettings :: !RadiusSettings-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableRadius' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'erDirectoryId' - The identifier of the directory for which to enable MFA.------ * 'erRadiusSettings' - A 'RadiusSettings' object that contains information about the RADIUS server.-enableRadius-    :: Text -- ^ 'erDirectoryId'-    -> RadiusSettings -- ^ 'erRadiusSettings'-    -> EnableRadius-enableRadius pDirectoryId_ pRadiusSettings_ =-  EnableRadius'-    {_erDirectoryId = pDirectoryId_, _erRadiusSettings = pRadiusSettings_}----- | The identifier of the directory for which to enable MFA.-erDirectoryId :: Lens' EnableRadius Text-erDirectoryId = lens _erDirectoryId (\ s a -> s{_erDirectoryId = a})---- | A 'RadiusSettings' object that contains information about the RADIUS server.-erRadiusSettings :: Lens' EnableRadius RadiusSettings-erRadiusSettings = lens _erRadiusSettings (\ s a -> s{_erRadiusSettings = a})--instance AWSRequest EnableRadius where-        type Rs EnableRadius = EnableRadiusResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 EnableRadiusResponse' <$> (pure (fromEnum s)))--instance Hashable EnableRadius where--instance NFData EnableRadius where--instance ToHeaders EnableRadius where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.EnableRadius" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON EnableRadius where-        toJSON EnableRadius'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _erDirectoryId),-                  Just ("RadiusSettings" .= _erRadiusSettings)])--instance ToPath EnableRadius where-        toPath = const "/"--instance ToQuery EnableRadius where-        toQuery = const mempty---- | Contains the results of the 'EnableRadius' operation.------------ /See:/ 'enableRadiusResponse' smart constructor.-newtype EnableRadiusResponse = EnableRadiusResponse'-  { _errsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableRadiusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'errsResponseStatus' - -- | The response status code.-enableRadiusResponse-    :: Int -- ^ 'errsResponseStatus'-    -> EnableRadiusResponse-enableRadiusResponse pResponseStatus_ =-  EnableRadiusResponse' {_errsResponseStatus = pResponseStatus_}----- | -- | The response status code.-errsResponseStatus :: Lens' EnableRadiusResponse Int-errsResponseStatus = lens _errsResponseStatus (\ s a -> s{_errsResponseStatus = a})--instance NFData EnableRadiusResponse where

− gen/Network/AWS/DirectoryService/EnableSSO.hs

@@ -1,154 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.EnableSSO--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Enables single sign-on for a directory.-------module Network.AWS.DirectoryService.EnableSSO-    (-    -- * Creating a Request-      enableSSO-    , EnableSSO-    -- * Request Lenses-    , esUserName-    , esPassword-    , esDirectoryId--    -- * Destructuring the Response-    , enableSSOResponse-    , EnableSSOResponse-    -- * Response Lenses-    , esrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'EnableSso' operation.------------ /See:/ 'enableSSO' smart constructor.-data EnableSSO = EnableSSO'-  { _esUserName    :: !(Maybe Text)-  , _esPassword    :: !(Maybe (Sensitive Text))-  , _esDirectoryId :: !Text-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableSSO' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esUserName' - The username of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. This account must have privileges to add a service principal name. If the AD Connector service account does not have privileges to add a service principal name, you can specify an alternate account with the /UserName/ and /Password/ parameters. These credentials are only used to enable single sign-on and are not stored by the service. The AD Connector service account is not changed.------ * 'esPassword' - The password of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. For more information, see the /UserName/ parameter.------ * 'esDirectoryId' - The identifier of the directory for which to enable single-sign on.-enableSSO-    :: Text -- ^ 'esDirectoryId'-    -> EnableSSO-enableSSO pDirectoryId_ =-  EnableSSO'-    { _esUserName = Nothing-    , _esPassword = Nothing-    , _esDirectoryId = pDirectoryId_-    }----- | The username of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. This account must have privileges to add a service principal name. If the AD Connector service account does not have privileges to add a service principal name, you can specify an alternate account with the /UserName/ and /Password/ parameters. These credentials are only used to enable single sign-on and are not stored by the service. The AD Connector service account is not changed.-esUserName :: Lens' EnableSSO (Maybe Text)-esUserName = lens _esUserName (\ s a -> s{_esUserName = a})---- | The password of an alternate account to use to enable single-sign on. This is only used for AD Connector directories. For more information, see the /UserName/ parameter.-esPassword :: Lens' EnableSSO (Maybe Text)-esPassword = lens _esPassword (\ s a -> s{_esPassword = a}) . mapping _Sensitive---- | The identifier of the directory for which to enable single-sign on.-esDirectoryId :: Lens' EnableSSO Text-esDirectoryId = lens _esDirectoryId (\ s a -> s{_esDirectoryId = a})--instance AWSRequest EnableSSO where-        type Rs EnableSSO = EnableSSOResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 EnableSSOResponse' <$> (pure (fromEnum s)))--instance Hashable EnableSSO where--instance NFData EnableSSO where--instance ToHeaders EnableSSO where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.EnableSso" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON EnableSSO where-        toJSON EnableSSO'{..}-          = object-              (catMaybes-                 [("UserName" .=) <$> _esUserName,-                  ("Password" .=) <$> _esPassword,-                  Just ("DirectoryId" .= _esDirectoryId)])--instance ToPath EnableSSO where-        toPath = const "/"--instance ToQuery EnableSSO where-        toQuery = const mempty---- | Contains the results of the 'EnableSso' operation.------------ /See:/ 'enableSSOResponse' smart constructor.-newtype EnableSSOResponse = EnableSSOResponse'-  { _esrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EnableSSOResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'esrsResponseStatus' - -- | The response status code.-enableSSOResponse-    :: Int -- ^ 'esrsResponseStatus'-    -> EnableSSOResponse-enableSSOResponse pResponseStatus_ =-  EnableSSOResponse' {_esrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-esrsResponseStatus :: Lens' EnableSSOResponse Int-esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a})--instance NFData EnableSSOResponse where

− gen/Network/AWS/DirectoryService/GetDirectoryLimits.hs

@@ -1,129 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.GetDirectoryLimits--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains directory limit information for the current region.-------module Network.AWS.DirectoryService.GetDirectoryLimits-    (-    -- * Creating a Request-      getDirectoryLimits-    , GetDirectoryLimits--    -- * Destructuring the Response-    , getDirectoryLimitsResponse-    , GetDirectoryLimitsResponse-    -- * Response Lenses-    , gdlrsDirectoryLimits-    , gdlrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'GetDirectoryLimits' operation.------------ /See:/ 'getDirectoryLimits' smart constructor.-data GetDirectoryLimits =-  GetDirectoryLimits'-  deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDirectoryLimits' with the minimum fields required to make a request.----getDirectoryLimits-    :: GetDirectoryLimits-getDirectoryLimits = GetDirectoryLimits'---instance AWSRequest GetDirectoryLimits where-        type Rs GetDirectoryLimits =-             GetDirectoryLimitsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 GetDirectoryLimitsResponse' <$>-                   (x .?> "DirectoryLimits") <*> (pure (fromEnum s)))--instance Hashable GetDirectoryLimits where--instance NFData GetDirectoryLimits where--instance ToHeaders GetDirectoryLimits where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.GetDirectoryLimits" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetDirectoryLimits where-        toJSON = const (Object mempty)--instance ToPath GetDirectoryLimits where-        toPath = const "/"--instance ToQuery GetDirectoryLimits where-        toQuery = const mempty---- | Contains the results of the 'GetDirectoryLimits' operation.------------ /See:/ 'getDirectoryLimitsResponse' smart constructor.-data GetDirectoryLimitsResponse = GetDirectoryLimitsResponse'-  { _gdlrsDirectoryLimits :: !(Maybe DirectoryLimits)-  , _gdlrsResponseStatus  :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetDirectoryLimitsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gdlrsDirectoryLimits' - A 'DirectoryLimits' object that contains the directory limits for the current region.------ * 'gdlrsResponseStatus' - -- | The response status code.-getDirectoryLimitsResponse-    :: Int -- ^ 'gdlrsResponseStatus'-    -> GetDirectoryLimitsResponse-getDirectoryLimitsResponse pResponseStatus_ =-  GetDirectoryLimitsResponse'-    {_gdlrsDirectoryLimits = Nothing, _gdlrsResponseStatus = pResponseStatus_}----- | A 'DirectoryLimits' object that contains the directory limits for the current region.-gdlrsDirectoryLimits :: Lens' GetDirectoryLimitsResponse (Maybe DirectoryLimits)-gdlrsDirectoryLimits = lens _gdlrsDirectoryLimits (\ s a -> s{_gdlrsDirectoryLimits = a})---- | -- | The response status code.-gdlrsResponseStatus :: Lens' GetDirectoryLimitsResponse Int-gdlrsResponseStatus = lens _gdlrsResponseStatus (\ s a -> s{_gdlrsResponseStatus = a})--instance NFData GetDirectoryLimitsResponse where

− gen/Network/AWS/DirectoryService/GetSnapshotLimits.hs

@@ -1,141 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.GetSnapshotLimits--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Obtains the manual snapshot limits for a directory.-------module Network.AWS.DirectoryService.GetSnapshotLimits-    (-    -- * Creating a Request-      getSnapshotLimits-    , GetSnapshotLimits-    -- * Request Lenses-    , gslDirectoryId--    -- * Destructuring the Response-    , getSnapshotLimitsResponse-    , GetSnapshotLimitsResponse-    -- * Response Lenses-    , gslrsSnapshotLimits-    , gslrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'GetSnapshotLimits' operation.------------ /See:/ 'getSnapshotLimits' smart constructor.-newtype GetSnapshotLimits = GetSnapshotLimits'-  { _gslDirectoryId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetSnapshotLimits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gslDirectoryId' - Contains the identifier of the directory to obtain the limits for.-getSnapshotLimits-    :: Text -- ^ 'gslDirectoryId'-    -> GetSnapshotLimits-getSnapshotLimits pDirectoryId_ =-  GetSnapshotLimits' {_gslDirectoryId = pDirectoryId_}----- | Contains the identifier of the directory to obtain the limits for.-gslDirectoryId :: Lens' GetSnapshotLimits Text-gslDirectoryId = lens _gslDirectoryId (\ s a -> s{_gslDirectoryId = a})--instance AWSRequest GetSnapshotLimits where-        type Rs GetSnapshotLimits = GetSnapshotLimitsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 GetSnapshotLimitsResponse' <$>-                   (x .?> "SnapshotLimits") <*> (pure (fromEnum s)))--instance Hashable GetSnapshotLimits where--instance NFData GetSnapshotLimits where--instance ToHeaders GetSnapshotLimits where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.GetSnapshotLimits" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON GetSnapshotLimits where-        toJSON GetSnapshotLimits'{..}-          = object-              (catMaybes [Just ("DirectoryId" .= _gslDirectoryId)])--instance ToPath GetSnapshotLimits where-        toPath = const "/"--instance ToQuery GetSnapshotLimits where-        toQuery = const mempty---- | Contains the results of the 'GetSnapshotLimits' operation.------------ /See:/ 'getSnapshotLimitsResponse' smart constructor.-data GetSnapshotLimitsResponse = GetSnapshotLimitsResponse'-  { _gslrsSnapshotLimits :: !(Maybe SnapshotLimits)-  , _gslrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'GetSnapshotLimitsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'gslrsSnapshotLimits' - A 'SnapshotLimits' object that contains the manual snapshot limits for the specified directory.------ * 'gslrsResponseStatus' - -- | The response status code.-getSnapshotLimitsResponse-    :: Int -- ^ 'gslrsResponseStatus'-    -> GetSnapshotLimitsResponse-getSnapshotLimitsResponse pResponseStatus_ =-  GetSnapshotLimitsResponse'-    {_gslrsSnapshotLimits = Nothing, _gslrsResponseStatus = pResponseStatus_}----- | A 'SnapshotLimits' object that contains the manual snapshot limits for the specified directory.-gslrsSnapshotLimits :: Lens' GetSnapshotLimitsResponse (Maybe SnapshotLimits)-gslrsSnapshotLimits = lens _gslrsSnapshotLimits (\ s a -> s{_gslrsSnapshotLimits = a})---- | -- | The response status code.-gslrsResponseStatus :: Lens' GetSnapshotLimitsResponse Int-gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a})--instance NFData GetSnapshotLimitsResponse where

− gen/Network/AWS/DirectoryService/ListIPRoutes.hs

@@ -1,169 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.ListIPRoutes--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists the address blocks that you have added to a directory.-------module Network.AWS.DirectoryService.ListIPRoutes-    (-    -- * Creating a Request-      listIPRoutes-    , ListIPRoutes-    -- * Request Lenses-    , lirNextToken-    , lirLimit-    , lirDirectoryId--    -- * Destructuring the Response-    , listIPRoutesResponse-    , ListIPRoutesResponse-    -- * Response Lenses-    , lirrsIPRoutesInfo-    , lirrsNextToken-    , lirrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'listIPRoutes' smart constructor.-data ListIPRoutes = ListIPRoutes'-  { _lirNextToken   :: !(Maybe Text)-  , _lirLimit       :: !(Maybe Nat)-  , _lirDirectoryId :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListIPRoutes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lirNextToken' - The /ListIpRoutes.NextToken/ value from a previous call to 'ListIpRoutes' . Pass null if this is the first call.------ * 'lirLimit' - Maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation.------ * 'lirDirectoryId' - Identifier (ID) of the directory for which you want to retrieve the IP addresses.-listIPRoutes-    :: Text -- ^ 'lirDirectoryId'-    -> ListIPRoutes-listIPRoutes pDirectoryId_ =-  ListIPRoutes'-    { _lirNextToken = Nothing-    , _lirLimit = Nothing-    , _lirDirectoryId = pDirectoryId_-    }----- | The /ListIpRoutes.NextToken/ value from a previous call to 'ListIpRoutes' . Pass null if this is the first call.-lirNextToken :: Lens' ListIPRoutes (Maybe Text)-lirNextToken = lens _lirNextToken (\ s a -> s{_lirNextToken = a})---- | Maximum number of items to return. If this value is zero, the maximum number of items is specified by the limitations of the operation.-lirLimit :: Lens' ListIPRoutes (Maybe Natural)-lirLimit = lens _lirLimit (\ s a -> s{_lirLimit = a}) . mapping _Nat---- | Identifier (ID) of the directory for which you want to retrieve the IP addresses.-lirDirectoryId :: Lens' ListIPRoutes Text-lirDirectoryId = lens _lirDirectoryId (\ s a -> s{_lirDirectoryId = a})--instance AWSRequest ListIPRoutes where-        type Rs ListIPRoutes = ListIPRoutesResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 ListIPRoutesResponse' <$>-                   (x .?> "IpRoutesInfo" .!@ mempty) <*>-                     (x .?> "NextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListIPRoutes where--instance NFData ListIPRoutes where--instance ToHeaders ListIPRoutes where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.ListIpRoutes" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListIPRoutes where-        toJSON ListIPRoutes'{..}-          = object-              (catMaybes-                 [("NextToken" .=) <$> _lirNextToken,-                  ("Limit" .=) <$> _lirLimit,-                  Just ("DirectoryId" .= _lirDirectoryId)])--instance ToPath ListIPRoutes where-        toPath = const "/"--instance ToQuery ListIPRoutes where-        toQuery = const mempty---- | /See:/ 'listIPRoutesResponse' smart constructor.-data ListIPRoutesResponse = ListIPRoutesResponse'-  { _lirrsIPRoutesInfo   :: !(Maybe [IPRouteInfo])-  , _lirrsNextToken      :: !(Maybe Text)-  , _lirrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListIPRoutesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lirrsIPRoutesInfo' - A list of 'IpRoute' s.------ * 'lirrsNextToken' - If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'ListIpRoutes' to retrieve the next set of items.------ * 'lirrsResponseStatus' - -- | The response status code.-listIPRoutesResponse-    :: Int -- ^ 'lirrsResponseStatus'-    -> ListIPRoutesResponse-listIPRoutesResponse pResponseStatus_ =-  ListIPRoutesResponse'-    { _lirrsIPRoutesInfo = Nothing-    , _lirrsNextToken = Nothing-    , _lirrsResponseStatus = pResponseStatus_-    }----- | A list of 'IpRoute' s.-lirrsIPRoutesInfo :: Lens' ListIPRoutesResponse [IPRouteInfo]-lirrsIPRoutesInfo = lens _lirrsIPRoutesInfo (\ s a -> s{_lirrsIPRoutesInfo = a}) . _Default . _Coerce---- | If not null, more results are available. Pass this value for the /NextToken/ parameter in a subsequent call to 'ListIpRoutes' to retrieve the next set of items.-lirrsNextToken :: Lens' ListIPRoutesResponse (Maybe Text)-lirrsNextToken = lens _lirrsNextToken (\ s a -> s{_lirrsNextToken = a})---- | -- | The response status code.-lirrsResponseStatus :: Lens' ListIPRoutesResponse Int-lirrsResponseStatus = lens _lirrsResponseStatus (\ s a -> s{_lirrsResponseStatus = a})--instance NFData ListIPRoutesResponse where

− gen/Network/AWS/DirectoryService/ListSchemaExtensions.hs

@@ -1,170 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.ListSchemaExtensions--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists all schema extensions applied to a Microsoft AD Directory.-------module Network.AWS.DirectoryService.ListSchemaExtensions-    (-    -- * Creating a Request-      listSchemaExtensions-    , ListSchemaExtensions-    -- * Request Lenses-    , lseNextToken-    , lseLimit-    , lseDirectoryId--    -- * Destructuring the Response-    , listSchemaExtensionsResponse-    , ListSchemaExtensionsResponse-    -- * Response Lenses-    , lsersSchemaExtensionsInfo-    , lsersNextToken-    , lsersResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'listSchemaExtensions' smart constructor.-data ListSchemaExtensions = ListSchemaExtensions'-  { _lseNextToken   :: !(Maybe Text)-  , _lseLimit       :: !(Maybe Nat)-  , _lseDirectoryId :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSchemaExtensions' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lseNextToken' - The @ListSchemaExtensions.NextToken@ value from a previous call to @ListSchemaExtensions@ . Pass null if this is the first call.------ * 'lseLimit' - The maximum number of items to return.------ * 'lseDirectoryId' - The identifier of the directory from which to retrieve the schema extension information.-listSchemaExtensions-    :: Text -- ^ 'lseDirectoryId'-    -> ListSchemaExtensions-listSchemaExtensions pDirectoryId_ =-  ListSchemaExtensions'-    { _lseNextToken = Nothing-    , _lseLimit = Nothing-    , _lseDirectoryId = pDirectoryId_-    }----- | The @ListSchemaExtensions.NextToken@ value from a previous call to @ListSchemaExtensions@ . Pass null if this is the first call.-lseNextToken :: Lens' ListSchemaExtensions (Maybe Text)-lseNextToken = lens _lseNextToken (\ s a -> s{_lseNextToken = a})---- | The maximum number of items to return.-lseLimit :: Lens' ListSchemaExtensions (Maybe Natural)-lseLimit = lens _lseLimit (\ s a -> s{_lseLimit = a}) . mapping _Nat---- | The identifier of the directory from which to retrieve the schema extension information.-lseDirectoryId :: Lens' ListSchemaExtensions Text-lseDirectoryId = lens _lseDirectoryId (\ s a -> s{_lseDirectoryId = a})--instance AWSRequest ListSchemaExtensions where-        type Rs ListSchemaExtensions =-             ListSchemaExtensionsResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 ListSchemaExtensionsResponse' <$>-                   (x .?> "SchemaExtensionsInfo" .!@ mempty) <*>-                     (x .?> "NextToken")-                     <*> (pure (fromEnum s)))--instance Hashable ListSchemaExtensions where--instance NFData ListSchemaExtensions where--instance ToHeaders ListSchemaExtensions where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.ListSchemaExtensions" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListSchemaExtensions where-        toJSON ListSchemaExtensions'{..}-          = object-              (catMaybes-                 [("NextToken" .=) <$> _lseNextToken,-                  ("Limit" .=) <$> _lseLimit,-                  Just ("DirectoryId" .= _lseDirectoryId)])--instance ToPath ListSchemaExtensions where-        toPath = const "/"--instance ToQuery ListSchemaExtensions where-        toQuery = const mempty---- | /See:/ 'listSchemaExtensionsResponse' smart constructor.-data ListSchemaExtensionsResponse = ListSchemaExtensionsResponse'-  { _lsersSchemaExtensionsInfo :: !(Maybe [SchemaExtensionInfo])-  , _lsersNextToken            :: !(Maybe Text)-  , _lsersResponseStatus       :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListSchemaExtensionsResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lsersSchemaExtensionsInfo' - Information about the schema extensions applied to the directory.------ * 'lsersNextToken' - If not null, more results are available. Pass this value for the @NextToken@ parameter in a subsequent call to @ListSchemaExtensions@ to retrieve the next set of items.------ * 'lsersResponseStatus' - -- | The response status code.-listSchemaExtensionsResponse-    :: Int -- ^ 'lsersResponseStatus'-    -> ListSchemaExtensionsResponse-listSchemaExtensionsResponse pResponseStatus_ =-  ListSchemaExtensionsResponse'-    { _lsersSchemaExtensionsInfo = Nothing-    , _lsersNextToken = Nothing-    , _lsersResponseStatus = pResponseStatus_-    }----- | Information about the schema extensions applied to the directory.-lsersSchemaExtensionsInfo :: Lens' ListSchemaExtensionsResponse [SchemaExtensionInfo]-lsersSchemaExtensionsInfo = lens _lsersSchemaExtensionsInfo (\ s a -> s{_lsersSchemaExtensionsInfo = a}) . _Default . _Coerce---- | If not null, more results are available. Pass this value for the @NextToken@ parameter in a subsequent call to @ListSchemaExtensions@ to retrieve the next set of items.-lsersNextToken :: Lens' ListSchemaExtensionsResponse (Maybe Text)-lsersNextToken = lens _lsersNextToken (\ s a -> s{_lsersNextToken = a})---- | -- | The response status code.-lsersResponseStatus :: Lens' ListSchemaExtensionsResponse Int-lsersResponseStatus = lens _lsersResponseStatus (\ s a -> s{_lsersResponseStatus = a})--instance NFData ListSchemaExtensionsResponse where

− gen/Network/AWS/DirectoryService/ListTagsForResource.hs

@@ -1,169 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.ListTagsForResource--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Lists all tags on a directory.-------module Network.AWS.DirectoryService.ListTagsForResource-    (-    -- * Creating a Request-      listTagsForResource-    , ListTagsForResource-    -- * Request Lenses-    , ltfrNextToken-    , ltfrLimit-    , ltfrResourceId--    -- * Destructuring the Response-    , listTagsForResourceResponse-    , ListTagsForResourceResponse-    -- * Response Lenses-    , ltfrrsNextToken-    , ltfrrsTags-    , ltfrrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'listTagsForResource' smart constructor.-data ListTagsForResource = ListTagsForResource'-  { _ltfrNextToken  :: !(Maybe Text)-  , _ltfrLimit      :: !(Maybe Nat)-  , _ltfrResourceId :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltfrNextToken' - Reserved for future use.------ * 'ltfrLimit' - Reserved for future use.------ * 'ltfrResourceId' - Identifier (ID) of the directory for which you want to retrieve tags.-listTagsForResource-    :: Text -- ^ 'ltfrResourceId'-    -> ListTagsForResource-listTagsForResource pResourceId_ =-  ListTagsForResource'-    { _ltfrNextToken = Nothing-    , _ltfrLimit = Nothing-    , _ltfrResourceId = pResourceId_-    }----- | Reserved for future use.-ltfrNextToken :: Lens' ListTagsForResource (Maybe Text)-ltfrNextToken = lens _ltfrNextToken (\ s a -> s{_ltfrNextToken = a})---- | Reserved for future use.-ltfrLimit :: Lens' ListTagsForResource (Maybe Natural)-ltfrLimit = lens _ltfrLimit (\ s a -> s{_ltfrLimit = a}) . mapping _Nat---- | Identifier (ID) of the directory for which you want to retrieve tags.-ltfrResourceId :: Lens' ListTagsForResource Text-ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a})--instance AWSRequest ListTagsForResource where-        type Rs ListTagsForResource =-             ListTagsForResourceResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 ListTagsForResourceResponse' <$>-                   (x .?> "NextToken") <*> (x .?> "Tags" .!@ mempty) <*>-                     (pure (fromEnum s)))--instance Hashable ListTagsForResource where--instance NFData ListTagsForResource where--instance ToHeaders ListTagsForResource where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.ListTagsForResource" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON ListTagsForResource where-        toJSON ListTagsForResource'{..}-          = object-              (catMaybes-                 [("NextToken" .=) <$> _ltfrNextToken,-                  ("Limit" .=) <$> _ltfrLimit,-                  Just ("ResourceId" .= _ltfrResourceId)])--instance ToPath ListTagsForResource where-        toPath = const "/"--instance ToQuery ListTagsForResource where-        toQuery = const mempty---- | /See:/ 'listTagsForResourceResponse' smart constructor.-data ListTagsForResourceResponse = ListTagsForResourceResponse'-  { _ltfrrsNextToken      :: !(Maybe Text)-  , _ltfrrsTags           :: !(Maybe [Tag])-  , _ltfrrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ltfrrsNextToken' - Reserved for future use.------ * 'ltfrrsTags' - List of tags returned by the ListTagsForResource operation.------ * 'ltfrrsResponseStatus' - -- | The response status code.-listTagsForResourceResponse-    :: Int -- ^ 'ltfrrsResponseStatus'-    -> ListTagsForResourceResponse-listTagsForResourceResponse pResponseStatus_ =-  ListTagsForResourceResponse'-    { _ltfrrsNextToken = Nothing-    , _ltfrrsTags = Nothing-    , _ltfrrsResponseStatus = pResponseStatus_-    }----- | Reserved for future use.-ltfrrsNextToken :: Lens' ListTagsForResourceResponse (Maybe Text)-ltfrrsNextToken = lens _ltfrrsNextToken (\ s a -> s{_ltfrrsNextToken = a})---- | List of tags returned by the ListTagsForResource operation.-ltfrrsTags :: Lens' ListTagsForResourceResponse [Tag]-ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Default . _Coerce---- | -- | The response status code.-ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})--instance NFData ListTagsForResourceResponse where

− gen/Network/AWS/DirectoryService/RegisterEventTopic.hs

@@ -1,144 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.RegisterEventTopic--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Associates a directory with an SNS topic. This establishes the directory as a publisher to the specified SNS topic. You can then receive email or text (SMS) messages when the status of your directory changes. You get notified if your directory goes from an Active status to an Impaired or Inoperable status. You also receive a notification when the directory returns to an Active status.-------module Network.AWS.DirectoryService.RegisterEventTopic-    (-    -- * Creating a Request-      registerEventTopic-    , RegisterEventTopic-    -- * Request Lenses-    , retDirectoryId-    , retTopicName--    -- * Destructuring the Response-    , registerEventTopicResponse-    , RegisterEventTopicResponse-    -- * Response Lenses-    , retrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Registers a new event topic.------------ /See:/ 'registerEventTopic' smart constructor.-data RegisterEventTopic = RegisterEventTopic'-  { _retDirectoryId :: !Text-  , _retTopicName   :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RegisterEventTopic' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'retDirectoryId' - The Directory ID that will publish status messages to the SNS topic.------ * 'retTopicName' - The SNS topic name to which the directory will publish status messages. This SNS topic must be in the same region as the specified Directory ID.-registerEventTopic-    :: Text -- ^ 'retDirectoryId'-    -> Text -- ^ 'retTopicName'-    -> RegisterEventTopic-registerEventTopic pDirectoryId_ pTopicName_ =-  RegisterEventTopic'-    {_retDirectoryId = pDirectoryId_, _retTopicName = pTopicName_}----- | The Directory ID that will publish status messages to the SNS topic.-retDirectoryId :: Lens' RegisterEventTopic Text-retDirectoryId = lens _retDirectoryId (\ s a -> s{_retDirectoryId = a})---- | The SNS topic name to which the directory will publish status messages. This SNS topic must be in the same region as the specified Directory ID.-retTopicName :: Lens' RegisterEventTopic Text-retTopicName = lens _retTopicName (\ s a -> s{_retTopicName = a})--instance AWSRequest RegisterEventTopic where-        type Rs RegisterEventTopic =-             RegisterEventTopicResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 RegisterEventTopicResponse' <$> (pure (fromEnum s)))--instance Hashable RegisterEventTopic where--instance NFData RegisterEventTopic where--instance ToHeaders RegisterEventTopic where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.RegisterEventTopic" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON RegisterEventTopic where-        toJSON RegisterEventTopic'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _retDirectoryId),-                  Just ("TopicName" .= _retTopicName)])--instance ToPath RegisterEventTopic where-        toPath = const "/"--instance ToQuery RegisterEventTopic where-        toQuery = const mempty---- | The result of a RegisterEventTopic request.------------ /See:/ 'registerEventTopicResponse' smart constructor.-newtype RegisterEventTopicResponse = RegisterEventTopicResponse'-  { _retrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RegisterEventTopicResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'retrsResponseStatus' - -- | The response status code.-registerEventTopicResponse-    :: Int -- ^ 'retrsResponseStatus'-    -> RegisterEventTopicResponse-registerEventTopicResponse pResponseStatus_ =-  RegisterEventTopicResponse' {_retrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-retrsResponseStatus :: Lens' RegisterEventTopicResponse Int-retrsResponseStatus = lens _retrsResponseStatus (\ s a -> s{_retrsResponseStatus = a})--instance NFData RegisterEventTopicResponse where

− gen/Network/AWS/DirectoryService/RemoveIPRoutes.hs

@@ -1,133 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.RemoveIPRoutes--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Removes IP address blocks from a directory.-------module Network.AWS.DirectoryService.RemoveIPRoutes-    (-    -- * Creating a Request-      removeIPRoutes-    , RemoveIPRoutes-    -- * Request Lenses-    , rirDirectoryId-    , rirCidrIPs--    -- * Destructuring the Response-    , removeIPRoutesResponse-    , RemoveIPRoutesResponse-    -- * Response Lenses-    , rirrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'removeIPRoutes' smart constructor.-data RemoveIPRoutes = RemoveIPRoutes'-  { _rirDirectoryId :: !Text-  , _rirCidrIPs     :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RemoveIPRoutes' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rirDirectoryId' - Identifier (ID) of the directory from which you want to remove the IP addresses.------ * 'rirCidrIPs' - IP address blocks that you want to remove.-removeIPRoutes-    :: Text -- ^ 'rirDirectoryId'-    -> RemoveIPRoutes-removeIPRoutes pDirectoryId_ =-  RemoveIPRoutes' {_rirDirectoryId = pDirectoryId_, _rirCidrIPs = mempty}----- | Identifier (ID) of the directory from which you want to remove the IP addresses.-rirDirectoryId :: Lens' RemoveIPRoutes Text-rirDirectoryId = lens _rirDirectoryId (\ s a -> s{_rirDirectoryId = a})---- | IP address blocks that you want to remove.-rirCidrIPs :: Lens' RemoveIPRoutes [Text]-rirCidrIPs = lens _rirCidrIPs (\ s a -> s{_rirCidrIPs = a}) . _Coerce--instance AWSRequest RemoveIPRoutes where-        type Rs RemoveIPRoutes = RemoveIPRoutesResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 RemoveIPRoutesResponse' <$> (pure (fromEnum s)))--instance Hashable RemoveIPRoutes where--instance NFData RemoveIPRoutes where--instance ToHeaders RemoveIPRoutes where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.RemoveIpRoutes" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON RemoveIPRoutes where-        toJSON RemoveIPRoutes'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _rirDirectoryId),-                  Just ("CidrIps" .= _rirCidrIPs)])--instance ToPath RemoveIPRoutes where-        toPath = const "/"--instance ToQuery RemoveIPRoutes where-        toQuery = const mempty---- | /See:/ 'removeIPRoutesResponse' smart constructor.-newtype RemoveIPRoutesResponse = RemoveIPRoutesResponse'-  { _rirrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RemoveIPRoutesResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rirrsResponseStatus' - -- | The response status code.-removeIPRoutesResponse-    :: Int -- ^ 'rirrsResponseStatus'-    -> RemoveIPRoutesResponse-removeIPRoutesResponse pResponseStatus_ =-  RemoveIPRoutesResponse' {_rirrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-rirrsResponseStatus :: Lens' RemoveIPRoutesResponse Int-rirrsResponseStatus = lens _rirrsResponseStatus (\ s a -> s{_rirrsResponseStatus = a})--instance NFData RemoveIPRoutesResponse where

− gen/Network/AWS/DirectoryService/RemoveTagsFromResource.hs

@@ -1,136 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.RemoveTagsFromResource--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Removes tags from a directory.-------module Network.AWS.DirectoryService.RemoveTagsFromResource-    (-    -- * Creating a Request-      removeTagsFromResource-    , RemoveTagsFromResource-    -- * Request Lenses-    , rtfrResourceId-    , rtfrTagKeys--    -- * Destructuring the Response-    , removeTagsFromResourceResponse-    , RemoveTagsFromResourceResponse-    -- * Response Lenses-    , rtfrrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'removeTagsFromResource' smart constructor.-data RemoveTagsFromResource = RemoveTagsFromResource'-  { _rtfrResourceId :: !Text-  , _rtfrTagKeys    :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RemoveTagsFromResource' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtfrResourceId' - Identifier (ID) of the directory from which to remove the tag.------ * 'rtfrTagKeys' - The tag key (name) of the tag to be removed.-removeTagsFromResource-    :: Text -- ^ 'rtfrResourceId'-    -> RemoveTagsFromResource-removeTagsFromResource pResourceId_ =-  RemoveTagsFromResource'-    {_rtfrResourceId = pResourceId_, _rtfrTagKeys = mempty}----- | Identifier (ID) of the directory from which to remove the tag.-rtfrResourceId :: Lens' RemoveTagsFromResource Text-rtfrResourceId = lens _rtfrResourceId (\ s a -> s{_rtfrResourceId = a})---- | The tag key (name) of the tag to be removed.-rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]-rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce--instance AWSRequest RemoveTagsFromResource where-        type Rs RemoveTagsFromResource =-             RemoveTagsFromResourceResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 RemoveTagsFromResourceResponse' <$>-                   (pure (fromEnum s)))--instance Hashable RemoveTagsFromResource where--instance NFData RemoveTagsFromResource where--instance ToHeaders RemoveTagsFromResource where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.RemoveTagsFromResource"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON RemoveTagsFromResource where-        toJSON RemoveTagsFromResource'{..}-          = object-              (catMaybes-                 [Just ("ResourceId" .= _rtfrResourceId),-                  Just ("TagKeys" .= _rtfrTagKeys)])--instance ToPath RemoveTagsFromResource where-        toPath = const "/"--instance ToQuery RemoveTagsFromResource where-        toQuery = const mempty---- | /See:/ 'removeTagsFromResourceResponse' smart constructor.-newtype RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'-  { _rtfrrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RemoveTagsFromResourceResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtfrrsResponseStatus' - -- | The response status code.-removeTagsFromResourceResponse-    :: Int -- ^ 'rtfrrsResponseStatus'-    -> RemoveTagsFromResourceResponse-removeTagsFromResourceResponse pResponseStatus_ =-  RemoveTagsFromResourceResponse' {_rtfrrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a})--instance NFData RemoveTagsFromResourceResponse where

− gen/Network/AWS/DirectoryService/RestoreFromSnapshot.hs

@@ -1,136 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.RestoreFromSnapshot--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Restores a directory using an existing directory snapshot.--------- When you restore a directory from a snapshot, any changes made to the directory after the snapshot date are overwritten.------ This action returns as soon as the restore operation is initiated. You can monitor the progress of the restore operation by calling the 'DescribeDirectories' operation with the directory identifier. When the __DirectoryDescription.Stage__ value changes to @Active@ , the restore operation is complete.----module Network.AWS.DirectoryService.RestoreFromSnapshot-    (-    -- * Creating a Request-      restoreFromSnapshot-    , RestoreFromSnapshot-    -- * Request Lenses-    , rfsSnapshotId--    -- * Destructuring the Response-    , restoreFromSnapshotResponse-    , RestoreFromSnapshotResponse-    -- * Response Lenses-    , rfsrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | An object representing the inputs for the 'RestoreFromSnapshot' operation.------------ /See:/ 'restoreFromSnapshot' smart constructor.-newtype RestoreFromSnapshot = RestoreFromSnapshot'-  { _rfsSnapshotId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreFromSnapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfsSnapshotId' - The identifier of the snapshot to restore from.-restoreFromSnapshot-    :: Text -- ^ 'rfsSnapshotId'-    -> RestoreFromSnapshot-restoreFromSnapshot pSnapshotId_ =-  RestoreFromSnapshot' {_rfsSnapshotId = pSnapshotId_}----- | The identifier of the snapshot to restore from.-rfsSnapshotId :: Lens' RestoreFromSnapshot Text-rfsSnapshotId = lens _rfsSnapshotId (\ s a -> s{_rfsSnapshotId = a})--instance AWSRequest RestoreFromSnapshot where-        type Rs RestoreFromSnapshot =-             RestoreFromSnapshotResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 RestoreFromSnapshotResponse' <$> (pure (fromEnum s)))--instance Hashable RestoreFromSnapshot where--instance NFData RestoreFromSnapshot where--instance ToHeaders RestoreFromSnapshot where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.RestoreFromSnapshot" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON RestoreFromSnapshot where-        toJSON RestoreFromSnapshot'{..}-          = object-              (catMaybes [Just ("SnapshotId" .= _rfsSnapshotId)])--instance ToPath RestoreFromSnapshot where-        toPath = const "/"--instance ToQuery RestoreFromSnapshot where-        toQuery = const mempty---- | Contains the results of the 'RestoreFromSnapshot' operation.------------ /See:/ 'restoreFromSnapshotResponse' smart constructor.-newtype RestoreFromSnapshotResponse = RestoreFromSnapshotResponse'-  { _rfsrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'RestoreFromSnapshotResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfsrsResponseStatus' - -- | The response status code.-restoreFromSnapshotResponse-    :: Int -- ^ 'rfsrsResponseStatus'-    -> RestoreFromSnapshotResponse-restoreFromSnapshotResponse pResponseStatus_ =-  RestoreFromSnapshotResponse' {_rfsrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-rfsrsResponseStatus :: Lens' RestoreFromSnapshotResponse Int-rfsrsResponseStatus = lens _rfsrsResponseStatus (\ s a -> s{_rfsrsResponseStatus = a})--instance NFData RestoreFromSnapshotResponse where

− gen/Network/AWS/DirectoryService/StartSchemaExtension.hs

@@ -1,173 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.StartSchemaExtension--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Applies a schema extension to a Microsoft AD directory.-------module Network.AWS.DirectoryService.StartSchemaExtension-    (-    -- * Creating a Request-      startSchemaExtension-    , StartSchemaExtension-    -- * Request Lenses-    , sseDirectoryId-    , sseCreateSnapshotBeforeSchemaExtension-    , sseLdifContent-    , sseDescription--    -- * Destructuring the Response-    , startSchemaExtensionResponse-    , StartSchemaExtensionResponse-    -- * Response Lenses-    , ssersSchemaExtensionId-    , ssersResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'startSchemaExtension' smart constructor.-data StartSchemaExtension = StartSchemaExtension'-  { _sseDirectoryId                         :: !Text-  , _sseCreateSnapshotBeforeSchemaExtension :: !Bool-  , _sseLdifContent                         :: !Text-  , _sseDescription                         :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StartSchemaExtension' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sseDirectoryId' - The identifier of the directory for which the schema extension will be applied to.------ * 'sseCreateSnapshotBeforeSchemaExtension' - If true, creates a snapshot of the directory before applying the schema extension.------ * 'sseLdifContent' - The LDIF file represented as a string. To construct the LdifContent string, precede each line as it would be formatted in an ldif file with \n. See the example request below for more details. The file size can be no larger than 1MB.------ * 'sseDescription' - A description of the schema extension.-startSchemaExtension-    :: Text -- ^ 'sseDirectoryId'-    -> Bool -- ^ 'sseCreateSnapshotBeforeSchemaExtension'-    -> Text -- ^ 'sseLdifContent'-    -> Text -- ^ 'sseDescription'-    -> StartSchemaExtension-startSchemaExtension pDirectoryId_ pCreateSnapshotBeforeSchemaExtension_ pLdifContent_ pDescription_ =-  StartSchemaExtension'-    { _sseDirectoryId = pDirectoryId_-    , _sseCreateSnapshotBeforeSchemaExtension =-        pCreateSnapshotBeforeSchemaExtension_-    , _sseLdifContent = pLdifContent_-    , _sseDescription = pDescription_-    }----- | The identifier of the directory for which the schema extension will be applied to.-sseDirectoryId :: Lens' StartSchemaExtension Text-sseDirectoryId = lens _sseDirectoryId (\ s a -> s{_sseDirectoryId = a})---- | If true, creates a snapshot of the directory before applying the schema extension.-sseCreateSnapshotBeforeSchemaExtension :: Lens' StartSchemaExtension Bool-sseCreateSnapshotBeforeSchemaExtension = lens _sseCreateSnapshotBeforeSchemaExtension (\ s a -> s{_sseCreateSnapshotBeforeSchemaExtension = a})---- | The LDIF file represented as a string. To construct the LdifContent string, precede each line as it would be formatted in an ldif file with \n. See the example request below for more details. The file size can be no larger than 1MB.-sseLdifContent :: Lens' StartSchemaExtension Text-sseLdifContent = lens _sseLdifContent (\ s a -> s{_sseLdifContent = a})---- | A description of the schema extension.-sseDescription :: Lens' StartSchemaExtension Text-sseDescription = lens _sseDescription (\ s a -> s{_sseDescription = a})--instance AWSRequest StartSchemaExtension where-        type Rs StartSchemaExtension =-             StartSchemaExtensionResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 StartSchemaExtensionResponse' <$>-                   (x .?> "SchemaExtensionId") <*> (pure (fromEnum s)))--instance Hashable StartSchemaExtension where--instance NFData StartSchemaExtension where--instance ToHeaders StartSchemaExtension where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.StartSchemaExtension" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON StartSchemaExtension where-        toJSON StartSchemaExtension'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _sseDirectoryId),-                  Just-                    ("CreateSnapshotBeforeSchemaExtension" .=-                       _sseCreateSnapshotBeforeSchemaExtension),-                  Just ("LdifContent" .= _sseLdifContent),-                  Just ("Description" .= _sseDescription)])--instance ToPath StartSchemaExtension where-        toPath = const "/"--instance ToQuery StartSchemaExtension where-        toQuery = const mempty---- | /See:/ 'startSchemaExtensionResponse' smart constructor.-data StartSchemaExtensionResponse = StartSchemaExtensionResponse'-  { _ssersSchemaExtensionId :: !(Maybe Text)-  , _ssersResponseStatus    :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'StartSchemaExtensionResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ssersSchemaExtensionId' - The identifier of the schema extension that will be applied.------ * 'ssersResponseStatus' - -- | The response status code.-startSchemaExtensionResponse-    :: Int -- ^ 'ssersResponseStatus'-    -> StartSchemaExtensionResponse-startSchemaExtensionResponse pResponseStatus_ =-  StartSchemaExtensionResponse'-    {_ssersSchemaExtensionId = Nothing, _ssersResponseStatus = pResponseStatus_}----- | The identifier of the schema extension that will be applied.-ssersSchemaExtensionId :: Lens' StartSchemaExtensionResponse (Maybe Text)-ssersSchemaExtensionId = lens _ssersSchemaExtensionId (\ s a -> s{_ssersSchemaExtensionId = a})---- | -- | The response status code.-ssersResponseStatus :: Lens' StartSchemaExtensionResponse Int-ssersResponseStatus = lens _ssersResponseStatus (\ s a -> s{_ssersResponseStatus = a})--instance NFData StartSchemaExtensionResponse where

− gen/Network/AWS/DirectoryService/Types.hs

@@ -1,433 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.Types--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.DirectoryService.Types-    (-    -- * Service Configuration-      directoryService--    -- * Errors-    , _DirectoryUnavailableException-    , _AuthenticationFailedException-    , _InvalidParameterException-    , _UnsupportedOperationException-    , _EntityAlreadyExistsException-    , _DirectoryLimitExceededException-    , _IPRouteLimitExceededException-    , _EntityDoesNotExistException-    , _InsufficientPermissionsException-    , _InvalidNextTokenException-    , _ServiceException-    , _SnapshotLimitExceededException-    , _DomainControllerLimitExceededException-    , _TagLimitExceededException-    , _ClientException--    -- * DirectoryEdition-    , DirectoryEdition (..)--    -- * DirectorySize-    , DirectorySize (..)--    -- * DirectoryStage-    , DirectoryStage (..)--    -- * DirectoryType-    , DirectoryType (..)--    -- * DomainControllerStatus-    , DomainControllerStatus (..)--    -- * IPRouteStatusMsg-    , IPRouteStatusMsg (..)--    -- * RadiusAuthenticationProtocol-    , RadiusAuthenticationProtocol (..)--    -- * RadiusStatus-    , RadiusStatus (..)--    -- * ReplicationScope-    , ReplicationScope (..)--    -- * SchemaExtensionStatus-    , SchemaExtensionStatus (..)--    -- * SnapshotStatus-    , SnapshotStatus (..)--    -- * SnapshotType-    , SnapshotType (..)--    -- * TopicStatus-    , TopicStatus (..)--    -- * TrustDirection-    , TrustDirection (..)--    -- * TrustState-    , TrustState (..)--    -- * TrustType-    , TrustType (..)--    -- * Attribute-    , Attribute-    , attribute-    , aValue-    , aName--    -- * Computer-    , Computer-    , computer-    , cComputerId-    , cComputerAttributes-    , cComputerName--    -- * ConditionalForwarder-    , ConditionalForwarder-    , conditionalForwarder-    , cfDNSIPAddrs-    , cfRemoteDomainName-    , cfReplicationScope--    -- * DirectoryConnectSettings-    , DirectoryConnectSettings-    , directoryConnectSettings-    , dcsVPCId-    , dcsSubnetIds-    , dcsCustomerDNSIPs-    , dcsCustomerUserName--    -- * DirectoryConnectSettingsDescription-    , DirectoryConnectSettingsDescription-    , directoryConnectSettingsDescription-    , dcsdCustomerUserName-    , dcsdSubnetIds-    , dcsdVPCId-    , dcsdSecurityGroupId-    , dcsdConnectIPs-    , dcsdAvailabilityZones--    -- * DirectoryDescription-    , DirectoryDescription-    , directoryDescription-    , ddEdition-    , ddRadiusStatus-    , ddStage-    , ddDirectoryId-    , ddAccessURL-    , ddShortName-    , ddSize-    , ddDesiredNumberOfDomainControllers-    , ddRadiusSettings-    , ddLaunchTime-    , ddAlias-    , ddName-    , ddStageLastUpdatedDateTime-    , ddSSOEnabled-    , ddDNSIPAddrs-    , ddVPCSettings-    , ddType-    , ddStageReason-    , ddConnectSettings-    , ddDescription--    -- * DirectoryLimits-    , DirectoryLimits-    , directoryLimits-    , dlConnectedDirectoriesCurrentCount-    , dlCloudOnlyMicrosoftADLimitReached-    , dlConnectedDirectoriesLimit-    , dlConnectedDirectoriesLimitReached-    , dlCloudOnlyMicrosoftADLimit-    , dlCloudOnlyDirectoriesLimit-    , dlCloudOnlyDirectoriesCurrentCount-    , dlCloudOnlyDirectoriesLimitReached-    , dlCloudOnlyMicrosoftADCurrentCount--    -- * DirectoryVPCSettings-    , DirectoryVPCSettings-    , directoryVPCSettings-    , dvsVPCId-    , dvsSubnetIds--    -- * DirectoryVPCSettingsDescription-    , DirectoryVPCSettingsDescription-    , directoryVPCSettingsDescription-    , dvsdSubnetIds-    , dvsdVPCId-    , dvsdSecurityGroupId-    , dvsdAvailabilityZones--    -- * DomainController-    , DomainController-    , domainController-    , dcStatus-    , dcDirectoryId-    , dcVPCId-    , dcLaunchTime-    , dcSubnetId-    , dcAvailabilityZone-    , dcStatusLastUpdatedDateTime-    , dcStatusReason-    , dcDNSIPAddr-    , dcDomainControllerId--    -- * EventTopic-    , EventTopic-    , eventTopic-    , etStatus-    , etDirectoryId-    , etTopicName-    , etTopicARN-    , etCreatedDateTime--    -- * IPRoute-    , IPRoute-    , ipRoute-    , irCidrIP-    , irDescription--    -- * IPRouteInfo-    , IPRouteInfo-    , ipRouteInfo-    , iriDirectoryId-    , iriIPRouteStatusReason-    , iriAddedDateTime-    , iriCidrIP-    , iriIPRouteStatusMsg-    , iriDescription--    -- * RadiusSettings-    , RadiusSettings-    , radiusSettings-    , rsDisplayLabel-    , rsRadiusRetries-    , rsAuthenticationProtocol-    , rsRadiusServers-    , rsUseSameUsername-    , rsSharedSecret-    , rsRadiusTimeout-    , rsRadiusPort--    -- * SchemaExtensionInfo-    , SchemaExtensionInfo-    , schemaExtensionInfo-    , seiDirectoryId-    , seiSchemaExtensionId-    , seiSchemaExtensionStatusReason-    , seiSchemaExtensionStatus-    , seiDescription-    , seiEndDateTime-    , seiStartDateTime--    -- * Snapshot-    , Snapshot-    , snapshot-    , sStatus-    , sDirectoryId-    , sStartTime-    , sName-    , sType-    , sSnapshotId--    -- * SnapshotLimits-    , SnapshotLimits-    , snapshotLimits-    , slManualSnapshotsLimitReached-    , slManualSnapshotsCurrentCount-    , slManualSnapshotsLimit--    -- * Tag-    , Tag-    , tag-    , tagKey-    , tagValue--    -- * Trust-    , Trust-    , trust-    , tDirectoryId-    , tTrustState-    , tLastUpdatedDateTime-    , tTrustDirection-    , tStateLastUpdatedDateTime-    , tTrustType-    , tTrustStateReason-    , tRemoteDomainName-    , tTrustId-    , tCreatedDateTime-    ) where--import Network.AWS.DirectoryService.Types.Product-import Network.AWS.DirectoryService.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4---- | API version @2015-04-16@ of the Amazon Directory Service SDK configuration.-directoryService :: Service-directoryService =-  Service-    { _svcAbbrev = "DirectoryService"-    , _svcSigner = v4-    , _svcPrefix = "ds"-    , _svcVersion = "2015-04-16"-    , _svcEndpoint = defaultEndpoint directoryService-    , _svcTimeout = Just 70-    , _svcCheck = statusSuccess-    , _svcError = parseJSONError "DirectoryService"-    , _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----- | The specified directory is unavailable or could not be found.-------_DirectoryUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError-_DirectoryUnavailableException =-  _MatchServiceError directoryService "DirectoryUnavailableException"----- | An authentication error occurred.-------_AuthenticationFailedException :: AsError a => Getting (First ServiceError) a ServiceError-_AuthenticationFailedException =-  _MatchServiceError directoryService "AuthenticationFailedException"----- | One or more parameters are not valid.-------_InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidParameterException =-  _MatchServiceError directoryService "InvalidParameterException"----- | The operation is not supported.-------_UnsupportedOperationException :: AsError a => Getting (First ServiceError) a ServiceError-_UnsupportedOperationException =-  _MatchServiceError directoryService "UnsupportedOperationException"----- | The specified entity already exists.-------_EntityAlreadyExistsException :: AsError a => Getting (First ServiceError) a ServiceError-_EntityAlreadyExistsException =-  _MatchServiceError directoryService "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 =-  _MatchServiceError directoryService "DirectoryLimitExceededException"----- | The maximum allowed number of IP addresses was exceeded. The default limit is 100 IP address blocks.-------_IPRouteLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_IPRouteLimitExceededException =-  _MatchServiceError directoryService "IpRouteLimitExceededException"----- | The specified entity could not be found.-------_EntityDoesNotExistException :: AsError a => Getting (First ServiceError) a ServiceError-_EntityDoesNotExistException =-  _MatchServiceError directoryService "EntityDoesNotExistException"----- | The account does not have sufficient permission to perform the operation.-------_InsufficientPermissionsException :: AsError a => Getting (First ServiceError) a ServiceError-_InsufficientPermissionsException =-  _MatchServiceError directoryService "InsufficientPermissionsException"----- | The /NextToken/ value is not valid.-------_InvalidNextTokenException :: AsError a => Getting (First ServiceError) a ServiceError-_InvalidNextTokenException =-  _MatchServiceError directoryService "InvalidNextTokenException"----- | An exception has occurred in AWS Directory Service.-------_ServiceException :: AsError a => Getting (First ServiceError) a ServiceError-_ServiceException = _MatchServiceError directoryService "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 =-  _MatchServiceError directoryService "SnapshotLimitExceededException"----- | The maximum allowed number of domain controllers per directory was exceeded. The default limit per directory is 20 domain controllers.-------_DomainControllerLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_DomainControllerLimitExceededException =-  _MatchServiceError directoryService "DomainControllerLimitExceededException"----- | The maximum allowed number of tags was exceeded.-------_TagLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError-_TagLimitExceededException =-  _MatchServiceError directoryService "TagLimitExceededException"----- | A client exception has occurred.-------_ClientException :: AsError a => Getting (First ServiceError) a ServiceError-_ClientException = _MatchServiceError directoryService "ClientException"-

− gen/Network/AWS/DirectoryService/Types/Product.hs

@@ -1,1587 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.Types.Product--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.DirectoryService.Types.Product where--import Network.AWS.DirectoryService.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude---- | Represents a named directory attribute.------------ /See:/ 'attribute' smart constructor.-data Attribute = Attribute'-  { _aValue :: !(Maybe Text)-  , _aName  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Attribute' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'aValue' - The value of the attribute.------ * 'aName' - The name of the attribute.-attribute-    :: Attribute-attribute = Attribute' {_aValue = Nothing, _aName = Nothing}----- | The value of the attribute.-aValue :: Lens' Attribute (Maybe Text)-aValue = lens _aValue (\ s a -> s{_aValue = a})---- | The name of the attribute.-aName :: Lens' Attribute (Maybe Text)-aName = lens _aName (\ s a -> s{_aName = a})--instance FromJSON Attribute where-        parseJSON-          = withObject "Attribute"-              (\ x ->-                 Attribute' <$> (x .:? "Value") <*> (x .:? "Name"))--instance Hashable Attribute where--instance NFData Attribute where--instance ToJSON Attribute where-        toJSON Attribute'{..}-          = object-              (catMaybes-                 [("Value" .=) <$> _aValue, ("Name" .=) <$> _aName])---- | Contains information about a computer account in a directory.------------ /See:/ 'computer' smart constructor.-data Computer = Computer'-  { _cComputerId         :: !(Maybe Text)-  , _cComputerAttributes :: !(Maybe [Attribute])-  , _cComputerName       :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Computer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cComputerId' - The identifier of the computer.------ * 'cComputerAttributes' - An array of 'Attribute' objects containing the LDAP attributes that belong to the computer account.------ * 'cComputerName' - The computer name.-computer-    :: Computer-computer =-  Computer'-    { _cComputerId = Nothing-    , _cComputerAttributes = Nothing-    , _cComputerName = Nothing-    }----- | The identifier of the computer.-cComputerId :: Lens' Computer (Maybe Text)-cComputerId = lens _cComputerId (\ s a -> s{_cComputerId = a})---- | An array of 'Attribute' objects containing the LDAP attributes that belong to the computer account.-cComputerAttributes :: Lens' Computer [Attribute]-cComputerAttributes = lens _cComputerAttributes (\ s a -> s{_cComputerAttributes = a}) . _Default . _Coerce---- | The computer name.-cComputerName :: Lens' Computer (Maybe Text)-cComputerName = lens _cComputerName (\ s a -> s{_cComputerName = a})--instance FromJSON Computer where-        parseJSON-          = withObject "Computer"-              (\ x ->-                 Computer' <$>-                   (x .:? "ComputerId") <*>-                     (x .:? "ComputerAttributes" .!= mempty)-                     <*> (x .:? "ComputerName"))--instance Hashable Computer where--instance NFData Computer where---- | Points to a remote domain with which you are setting up a trust relationship. Conditional forwarders are required in order to set up a trust relationship with another domain.------------ /See:/ 'conditionalForwarder' smart constructor.-data ConditionalForwarder = ConditionalForwarder'-  { _cfDNSIPAddrs       :: !(Maybe [Text])-  , _cfRemoteDomainName :: !(Maybe Text)-  , _cfReplicationScope :: !(Maybe ReplicationScope)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'ConditionalForwarder' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cfDNSIPAddrs' - The IP addresses of the remote DNS server associated with RemoteDomainName. This is the IP address of the DNS server that your conditional forwarder points to.------ * 'cfRemoteDomainName' - The fully qualified domain name (FQDN) of the remote domains pointed to by the conditional forwarder.------ * 'cfReplicationScope' - The replication scope of the conditional forwarder. The only allowed value is @Domain@ , which will replicate the conditional forwarder to all of the domain controllers for your AWS directory.-conditionalForwarder-    :: ConditionalForwarder-conditionalForwarder =-  ConditionalForwarder'-    { _cfDNSIPAddrs = Nothing-    , _cfRemoteDomainName = Nothing-    , _cfReplicationScope = Nothing-    }----- | The IP addresses of the remote DNS server associated with RemoteDomainName. This is the IP address of the DNS server that your conditional forwarder points to.-cfDNSIPAddrs :: Lens' ConditionalForwarder [Text]-cfDNSIPAddrs = lens _cfDNSIPAddrs (\ s a -> s{_cfDNSIPAddrs = a}) . _Default . _Coerce---- | The fully qualified domain name (FQDN) of the remote domains pointed to by the conditional forwarder.-cfRemoteDomainName :: Lens' ConditionalForwarder (Maybe Text)-cfRemoteDomainName = lens _cfRemoteDomainName (\ s a -> s{_cfRemoteDomainName = a})---- | The replication scope of the conditional forwarder. The only allowed value is @Domain@ , which will replicate the conditional forwarder to all of the domain controllers for your AWS directory.-cfReplicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)-cfReplicationScope = lens _cfReplicationScope (\ s a -> s{_cfReplicationScope = a})--instance FromJSON ConditionalForwarder where-        parseJSON-          = withObject "ConditionalForwarder"-              (\ x ->-                 ConditionalForwarder' <$>-                   (x .:? "DnsIpAddrs" .!= mempty) <*>-                     (x .:? "RemoteDomainName")-                     <*> (x .:? "ReplicationScope"))--instance Hashable ConditionalForwarder where--instance NFData ConditionalForwarder where---- | Contains information for the 'ConnectDirectory' operation when an AD Connector directory is being created.------------ /See:/ 'directoryConnectSettings' smart constructor.-data DirectoryConnectSettings = DirectoryConnectSettings'-  { _dcsVPCId            :: !Text-  , _dcsSubnetIds        :: ![Text]-  , _dcsCustomerDNSIPs   :: ![Text]-  , _dcsCustomerUserName :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryConnectSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsVPCId' - The identifier of the VPC in which the AD Connector is created.------ * 'dcsSubnetIds' - A list of subnet identifiers in the VPC in which the AD Connector is created.------ * 'dcsCustomerDNSIPs' - A list of one or more IP addresses of DNS servers or domain controllers in the on-premises directory.------ * 'dcsCustomerUserName' - The username of an account in the on-premises directory that is used to connect to the directory. This account must have the following privileges:     * Read users and groups     * Create computer objects     * Join computers to the domain-directoryConnectSettings-    :: Text -- ^ 'dcsVPCId'-    -> Text -- ^ 'dcsCustomerUserName'-    -> DirectoryConnectSettings-directoryConnectSettings pVPCId_ pCustomerUserName_ =-  DirectoryConnectSettings'-    { _dcsVPCId = pVPCId_-    , _dcsSubnetIds = mempty-    , _dcsCustomerDNSIPs = mempty-    , _dcsCustomerUserName = pCustomerUserName_-    }----- | The identifier of the VPC in which the AD Connector is created.-dcsVPCId :: Lens' DirectoryConnectSettings Text-dcsVPCId = lens _dcsVPCId (\ s a -> s{_dcsVPCId = a})---- | A list of subnet identifiers in the VPC in which the AD Connector is created.-dcsSubnetIds :: Lens' DirectoryConnectSettings [Text]-dcsSubnetIds = lens _dcsSubnetIds (\ s a -> s{_dcsSubnetIds = a}) . _Coerce---- | A list of one or more IP addresses of DNS servers or domain controllers in the on-premises directory.-dcsCustomerDNSIPs :: Lens' DirectoryConnectSettings [Text]-dcsCustomerDNSIPs = lens _dcsCustomerDNSIPs (\ s a -> s{_dcsCustomerDNSIPs = a}) . _Coerce---- | The username of an account in the on-premises directory that is used to connect to the directory. This account must have the following privileges:     * Read users and groups     * Create computer objects     * Join computers to the domain-dcsCustomerUserName :: Lens' DirectoryConnectSettings Text-dcsCustomerUserName = lens _dcsCustomerUserName (\ s a -> s{_dcsCustomerUserName = a})--instance Hashable DirectoryConnectSettings where--instance NFData DirectoryConnectSettings where--instance ToJSON DirectoryConnectSettings where-        toJSON DirectoryConnectSettings'{..}-          = object-              (catMaybes-                 [Just ("VpcId" .= _dcsVPCId),-                  Just ("SubnetIds" .= _dcsSubnetIds),-                  Just ("CustomerDnsIps" .= _dcsCustomerDNSIPs),-                  Just ("CustomerUserName" .= _dcsCustomerUserName)])---- | Contains information about an AD Connector directory.------------ /See:/ 'directoryConnectSettingsDescription' smart constructor.-data DirectoryConnectSettingsDescription = DirectoryConnectSettingsDescription'-  { _dcsdCustomerUserName  :: !(Maybe Text)-  , _dcsdSubnetIds         :: !(Maybe [Text])-  , _dcsdVPCId             :: !(Maybe Text)-  , _dcsdSecurityGroupId   :: !(Maybe Text)-  , _dcsdConnectIPs        :: !(Maybe [Text])-  , _dcsdAvailabilityZones :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryConnectSettingsDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcsdCustomerUserName' - The username of the service account in the on-premises directory.------ * 'dcsdSubnetIds' - A list of subnet identifiers in the VPC that the AD connector is in.------ * 'dcsdVPCId' - The identifier of the VPC that the AD Connector is in.------ * 'dcsdSecurityGroupId' - The security group identifier for the AD Connector directory.------ * 'dcsdConnectIPs' - The IP addresses of the AD Connector servers.------ * 'dcsdAvailabilityZones' - A list of the Availability Zones that the directory is in.-directoryConnectSettingsDescription-    :: DirectoryConnectSettingsDescription-directoryConnectSettingsDescription =-  DirectoryConnectSettingsDescription'-    { _dcsdCustomerUserName = Nothing-    , _dcsdSubnetIds = Nothing-    , _dcsdVPCId = Nothing-    , _dcsdSecurityGroupId = Nothing-    , _dcsdConnectIPs = Nothing-    , _dcsdAvailabilityZones = Nothing-    }----- | The username of the service account in the on-premises directory.-dcsdCustomerUserName :: Lens' DirectoryConnectSettingsDescription (Maybe Text)-dcsdCustomerUserName = lens _dcsdCustomerUserName (\ s a -> s{_dcsdCustomerUserName = a})---- | A list of subnet identifiers in the VPC that the AD connector is in.-dcsdSubnetIds :: Lens' DirectoryConnectSettingsDescription [Text]-dcsdSubnetIds = lens _dcsdSubnetIds (\ s a -> s{_dcsdSubnetIds = a}) . _Default . _Coerce---- | The identifier of the VPC that the AD Connector is in.-dcsdVPCId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)-dcsdVPCId = lens _dcsdVPCId (\ s a -> s{_dcsdVPCId = a})---- | The security group identifier for the AD Connector directory.-dcsdSecurityGroupId :: Lens' DirectoryConnectSettingsDescription (Maybe Text)-dcsdSecurityGroupId = lens _dcsdSecurityGroupId (\ s a -> s{_dcsdSecurityGroupId = a})---- | The IP addresses of the AD Connector servers.-dcsdConnectIPs :: Lens' DirectoryConnectSettingsDescription [Text]-dcsdConnectIPs = lens _dcsdConnectIPs (\ s a -> s{_dcsdConnectIPs = a}) . _Default . _Coerce---- | A list of the Availability Zones that the directory is in.-dcsdAvailabilityZones :: Lens' DirectoryConnectSettingsDescription [Text]-dcsdAvailabilityZones = lens _dcsdAvailabilityZones (\ s a -> s{_dcsdAvailabilityZones = a}) . _Default . _Coerce--instance FromJSON DirectoryConnectSettingsDescription-         where-        parseJSON-          = withObject "DirectoryConnectSettingsDescription"-              (\ x ->-                 DirectoryConnectSettingsDescription' <$>-                   (x .:? "CustomerUserName") <*>-                     (x .:? "SubnetIds" .!= mempty)-                     <*> (x .:? "VpcId")-                     <*> (x .:? "SecurityGroupId")-                     <*> (x .:? "ConnectIps" .!= mempty)-                     <*> (x .:? "AvailabilityZones" .!= mempty))--instance Hashable DirectoryConnectSettingsDescription-         where--instance NFData DirectoryConnectSettingsDescription-         where---- | Contains information about an AWS Directory Service directory.------------ /See:/ 'directoryDescription' smart constructor.-data DirectoryDescription = DirectoryDescription'-  { _ddEdition :: !(Maybe DirectoryEdition)-  , _ddRadiusStatus :: !(Maybe RadiusStatus)-  , _ddStage :: !(Maybe DirectoryStage)-  , _ddDirectoryId :: !(Maybe Text)-  , _ddAccessURL :: !(Maybe Text)-  , _ddShortName :: !(Maybe Text)-  , _ddSize :: !(Maybe DirectorySize)-  , _ddDesiredNumberOfDomainControllers :: !(Maybe Nat)-  , _ddRadiusSettings :: !(Maybe RadiusSettings)-  , _ddLaunchTime :: !(Maybe POSIX)-  , _ddAlias :: !(Maybe Text)-  , _ddName :: !(Maybe Text)-  , _ddStageLastUpdatedDateTime :: !(Maybe POSIX)-  , _ddSSOEnabled :: !(Maybe Bool)-  , _ddDNSIPAddrs :: !(Maybe [Text])-  , _ddVPCSettings :: !(Maybe DirectoryVPCSettingsDescription)-  , _ddType :: !(Maybe DirectoryType)-  , _ddStageReason :: !(Maybe Text)-  , _ddConnectSettings :: !(Maybe DirectoryConnectSettingsDescription)-  , _ddDescription :: !(Maybe Text)-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ddEdition' - The edition associated with this directory.------ * 'ddRadiusStatus' - The status of the RADIUS MFA server connection.------ * 'ddStage' - The current stage of the directory.------ * 'ddDirectoryId' - The directory identifier.------ * 'ddAccessURL' - The access URL for the directory, such as @http://<alias>.awsapps.com@ . If no alias has been created for the directory, @<alias>@ is the directory identifier, such as @d-XXXXXXXXXX@ .------ * 'ddShortName' - The short name of the directory.------ * 'ddSize' - The directory size.------ * 'ddDesiredNumberOfDomainControllers' - The desired number of domain controllers in the directory if the directory is Microsoft AD.------ * 'ddRadiusSettings' - A 'RadiusSettings' object that contains information about the RADIUS server configured for this directory.------ * 'ddLaunchTime' - Specifies when the directory was created.------ * 'ddAlias' - The alias for the directory. If no alias has been created for the directory, the alias is the directory identifier, such as @d-XXXXXXXXXX@ .------ * 'ddName' - The fully-qualified name of the directory.------ * 'ddStageLastUpdatedDateTime' - The date and time that the stage was last updated.------ * 'ddSSOEnabled' - Indicates if single-sign on is enabled for the directory. For more information, see 'EnableSso' and 'DisableSso' .------ * 'ddDNSIPAddrs' - The IP addresses of the DNS servers for the directory. For a Simple AD or Microsoft AD directory, these are the IP addresses of the Simple AD or Microsoft AD directory servers. For an AD Connector directory, these are the IP addresses of the DNS servers or domain controllers in the on-premises directory to which the AD Connector is connected.------ * 'ddVPCSettings' - A 'DirectoryVpcSettingsDescription' object that contains additional information about a directory. This member is only present if the directory is a Simple AD or Managed AD directory.------ * 'ddType' - The directory size.------ * 'ddStageReason' - Additional information about the directory stage.------ * 'ddConnectSettings' - A 'DirectoryConnectSettingsDescription' object that contains additional information about an AD Connector directory. This member is only present if the directory is an AD Connector directory.------ * 'ddDescription' - The textual description for the directory.-directoryDescription-    :: DirectoryDescription-directoryDescription =-  DirectoryDescription'-    { _ddEdition = Nothing-    , _ddRadiusStatus = Nothing-    , _ddStage = Nothing-    , _ddDirectoryId = Nothing-    , _ddAccessURL = Nothing-    , _ddShortName = Nothing-    , _ddSize = Nothing-    , _ddDesiredNumberOfDomainControllers = Nothing-    , _ddRadiusSettings = Nothing-    , _ddLaunchTime = Nothing-    , _ddAlias = Nothing-    , _ddName = Nothing-    , _ddStageLastUpdatedDateTime = Nothing-    , _ddSSOEnabled = Nothing-    , _ddDNSIPAddrs = Nothing-    , _ddVPCSettings = Nothing-    , _ddType = Nothing-    , _ddStageReason = Nothing-    , _ddConnectSettings = Nothing-    , _ddDescription = Nothing-    }----- | The edition associated with this directory.-ddEdition :: Lens' DirectoryDescription (Maybe DirectoryEdition)-ddEdition = lens _ddEdition (\ s a -> s{_ddEdition = a})---- | The status of the RADIUS MFA server connection.-ddRadiusStatus :: Lens' DirectoryDescription (Maybe RadiusStatus)-ddRadiusStatus = lens _ddRadiusStatus (\ s a -> s{_ddRadiusStatus = a})---- | The current stage of the directory.-ddStage :: Lens' DirectoryDescription (Maybe DirectoryStage)-ddStage = lens _ddStage (\ s a -> s{_ddStage = a})---- | The directory identifier.-ddDirectoryId :: Lens' DirectoryDescription (Maybe Text)-ddDirectoryId = lens _ddDirectoryId (\ s a -> s{_ddDirectoryId = a})---- | The access URL for the directory, such as @http://<alias>.awsapps.com@ . If no alias has been created for the directory, @<alias>@ is the directory identifier, such as @d-XXXXXXXXXX@ .-ddAccessURL :: Lens' DirectoryDescription (Maybe Text)-ddAccessURL = lens _ddAccessURL (\ s a -> s{_ddAccessURL = a})---- | The short name of the directory.-ddShortName :: Lens' DirectoryDescription (Maybe Text)-ddShortName = lens _ddShortName (\ s a -> s{_ddShortName = a})---- | The directory size.-ddSize :: Lens' DirectoryDescription (Maybe DirectorySize)-ddSize = lens _ddSize (\ s a -> s{_ddSize = a})---- | The desired number of domain controllers in the directory if the directory is Microsoft AD.-ddDesiredNumberOfDomainControllers :: Lens' DirectoryDescription (Maybe Natural)-ddDesiredNumberOfDomainControllers = lens _ddDesiredNumberOfDomainControllers (\ s a -> s{_ddDesiredNumberOfDomainControllers = a}) . mapping _Nat---- | A 'RadiusSettings' object that contains information about the RADIUS server configured for this directory.-ddRadiusSettings :: Lens' DirectoryDescription (Maybe RadiusSettings)-ddRadiusSettings = lens _ddRadiusSettings (\ s a -> s{_ddRadiusSettings = a})---- | Specifies when the directory was created.-ddLaunchTime :: Lens' DirectoryDescription (Maybe UTCTime)-ddLaunchTime = lens _ddLaunchTime (\ s a -> s{_ddLaunchTime = a}) . mapping _Time---- | The alias for the directory. If no alias has been created for the directory, the alias is the directory identifier, such as @d-XXXXXXXXXX@ .-ddAlias :: Lens' DirectoryDescription (Maybe Text)-ddAlias = lens _ddAlias (\ s a -> s{_ddAlias = a})---- | The fully-qualified name of the directory.-ddName :: Lens' DirectoryDescription (Maybe Text)-ddName = lens _ddName (\ s a -> s{_ddName = a})---- | The date and time that the stage was last updated.-ddStageLastUpdatedDateTime :: Lens' DirectoryDescription (Maybe UTCTime)-ddStageLastUpdatedDateTime = lens _ddStageLastUpdatedDateTime (\ s a -> s{_ddStageLastUpdatedDateTime = a}) . mapping _Time---- | Indicates if single-sign on is enabled for the directory. For more information, see 'EnableSso' and 'DisableSso' .-ddSSOEnabled :: Lens' DirectoryDescription (Maybe Bool)-ddSSOEnabled = lens _ddSSOEnabled (\ s a -> s{_ddSSOEnabled = a})---- | The IP addresses of the DNS servers for the directory. For a Simple AD or Microsoft AD directory, these are the IP addresses of the Simple AD or Microsoft AD directory servers. For an AD Connector directory, these are the IP addresses of the DNS servers or domain controllers in the on-premises directory to which the AD Connector is connected.-ddDNSIPAddrs :: Lens' DirectoryDescription [Text]-ddDNSIPAddrs = lens _ddDNSIPAddrs (\ s a -> s{_ddDNSIPAddrs = a}) . _Default . _Coerce---- | A 'DirectoryVpcSettingsDescription' object that contains additional information about a directory. This member is only present if the directory is a Simple AD or Managed AD directory.-ddVPCSettings :: Lens' DirectoryDescription (Maybe DirectoryVPCSettingsDescription)-ddVPCSettings = lens _ddVPCSettings (\ s a -> s{_ddVPCSettings = a})---- | The directory size.-ddType :: Lens' DirectoryDescription (Maybe DirectoryType)-ddType = lens _ddType (\ s a -> s{_ddType = a})---- | Additional information about the directory stage.-ddStageReason :: Lens' DirectoryDescription (Maybe Text)-ddStageReason = lens _ddStageReason (\ s a -> s{_ddStageReason = a})---- | A 'DirectoryConnectSettingsDescription' object that contains additional information about an AD Connector directory. This member is only present if the directory is an AD Connector directory.-ddConnectSettings :: Lens' DirectoryDescription (Maybe DirectoryConnectSettingsDescription)-ddConnectSettings = lens _ddConnectSettings (\ s a -> s{_ddConnectSettings = a})---- | The textual description for the directory.-ddDescription :: Lens' DirectoryDescription (Maybe Text)-ddDescription = lens _ddDescription (\ s a -> s{_ddDescription = a})--instance FromJSON DirectoryDescription where-        parseJSON-          = withObject "DirectoryDescription"-              (\ x ->-                 DirectoryDescription' <$>-                   (x .:? "Edition") <*> (x .:? "RadiusStatus") <*>-                     (x .:? "Stage")-                     <*> (x .:? "DirectoryId")-                     <*> (x .:? "AccessUrl")-                     <*> (x .:? "ShortName")-                     <*> (x .:? "Size")-                     <*> (x .:? "DesiredNumberOfDomainControllers")-                     <*> (x .:? "RadiusSettings")-                     <*> (x .:? "LaunchTime")-                     <*> (x .:? "Alias")-                     <*> (x .:? "Name")-                     <*> (x .:? "StageLastUpdatedDateTime")-                     <*> (x .:? "SsoEnabled")-                     <*> (x .:? "DnsIpAddrs" .!= mempty)-                     <*> (x .:? "VpcSettings")-                     <*> (x .:? "Type")-                     <*> (x .:? "StageReason")-                     <*> (x .:? "ConnectSettings")-                     <*> (x .:? "Description"))--instance Hashable DirectoryDescription where--instance NFData DirectoryDescription where---- | Contains directory limit information for a region.------------ /See:/ 'directoryLimits' smart constructor.-data DirectoryLimits = DirectoryLimits'-  { _dlConnectedDirectoriesCurrentCount :: !(Maybe Nat)-  , _dlCloudOnlyMicrosoftADLimitReached :: !(Maybe Bool)-  , _dlConnectedDirectoriesLimit        :: !(Maybe Nat)-  , _dlConnectedDirectoriesLimitReached :: !(Maybe Bool)-  , _dlCloudOnlyMicrosoftADLimit        :: !(Maybe Nat)-  , _dlCloudOnlyDirectoriesLimit        :: !(Maybe Nat)-  , _dlCloudOnlyDirectoriesCurrentCount :: !(Maybe Nat)-  , _dlCloudOnlyDirectoriesLimitReached :: !(Maybe Bool)-  , _dlCloudOnlyMicrosoftADCurrentCount :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryLimits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dlConnectedDirectoriesCurrentCount' - The current number of connected directories in the region.------ * 'dlCloudOnlyMicrosoftADLimitReached' - Indicates if the Microsoft AD directory limit has been reached.------ * 'dlConnectedDirectoriesLimit' - The maximum number of connected directories allowed in the region.------ * 'dlConnectedDirectoriesLimitReached' - Indicates if the connected directory limit has been reached.------ * 'dlCloudOnlyMicrosoftADLimit' - The maximum number of Microsoft AD directories allowed in the region.------ * 'dlCloudOnlyDirectoriesLimit' - The maximum number of cloud directories allowed in the region.------ * 'dlCloudOnlyDirectoriesCurrentCount' - The current number of cloud directories in the region.------ * 'dlCloudOnlyDirectoriesLimitReached' - Indicates if the cloud directory limit has been reached.------ * 'dlCloudOnlyMicrosoftADCurrentCount' - The current number of Microsoft AD directories in the region.-directoryLimits-    :: DirectoryLimits-directoryLimits =-  DirectoryLimits'-    { _dlConnectedDirectoriesCurrentCount = Nothing-    , _dlCloudOnlyMicrosoftADLimitReached = Nothing-    , _dlConnectedDirectoriesLimit = Nothing-    , _dlConnectedDirectoriesLimitReached = Nothing-    , _dlCloudOnlyMicrosoftADLimit = Nothing-    , _dlCloudOnlyDirectoriesLimit = Nothing-    , _dlCloudOnlyDirectoriesCurrentCount = Nothing-    , _dlCloudOnlyDirectoriesLimitReached = Nothing-    , _dlCloudOnlyMicrosoftADCurrentCount = Nothing-    }----- | The current number of connected directories in the region.-dlConnectedDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)-dlConnectedDirectoriesCurrentCount = lens _dlConnectedDirectoriesCurrentCount (\ s a -> s{_dlConnectedDirectoriesCurrentCount = a}) . mapping _Nat---- | Indicates if the Microsoft AD directory limit has been reached.-dlCloudOnlyMicrosoftADLimitReached :: Lens' DirectoryLimits (Maybe Bool)-dlCloudOnlyMicrosoftADLimitReached = lens _dlCloudOnlyMicrosoftADLimitReached (\ s a -> s{_dlCloudOnlyMicrosoftADLimitReached = a})---- | The maximum number of connected directories allowed in the region.-dlConnectedDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)-dlConnectedDirectoriesLimit = lens _dlConnectedDirectoriesLimit (\ s a -> s{_dlConnectedDirectoriesLimit = a}) . mapping _Nat---- | Indicates if the connected directory limit has been reached.-dlConnectedDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)-dlConnectedDirectoriesLimitReached = lens _dlConnectedDirectoriesLimitReached (\ s a -> s{_dlConnectedDirectoriesLimitReached = a})---- | The maximum number of Microsoft AD directories allowed in the region.-dlCloudOnlyMicrosoftADLimit :: Lens' DirectoryLimits (Maybe Natural)-dlCloudOnlyMicrosoftADLimit = lens _dlCloudOnlyMicrosoftADLimit (\ s a -> s{_dlCloudOnlyMicrosoftADLimit = a}) . mapping _Nat---- | The maximum number of cloud directories allowed in the region.-dlCloudOnlyDirectoriesLimit :: Lens' DirectoryLimits (Maybe Natural)-dlCloudOnlyDirectoriesLimit = lens _dlCloudOnlyDirectoriesLimit (\ s a -> s{_dlCloudOnlyDirectoriesLimit = a}) . mapping _Nat---- | The current number of cloud directories in the region.-dlCloudOnlyDirectoriesCurrentCount :: Lens' DirectoryLimits (Maybe Natural)-dlCloudOnlyDirectoriesCurrentCount = lens _dlCloudOnlyDirectoriesCurrentCount (\ s a -> s{_dlCloudOnlyDirectoriesCurrentCount = a}) . mapping _Nat---- | Indicates if the cloud directory limit has been reached.-dlCloudOnlyDirectoriesLimitReached :: Lens' DirectoryLimits (Maybe Bool)-dlCloudOnlyDirectoriesLimitReached = lens _dlCloudOnlyDirectoriesLimitReached (\ s a -> s{_dlCloudOnlyDirectoriesLimitReached = a})---- | The current number of Microsoft AD directories in the region.-dlCloudOnlyMicrosoftADCurrentCount :: Lens' DirectoryLimits (Maybe Natural)-dlCloudOnlyMicrosoftADCurrentCount = lens _dlCloudOnlyMicrosoftADCurrentCount (\ s a -> s{_dlCloudOnlyMicrosoftADCurrentCount = a}) . mapping _Nat--instance FromJSON DirectoryLimits where-        parseJSON-          = withObject "DirectoryLimits"-              (\ x ->-                 DirectoryLimits' <$>-                   (x .:? "ConnectedDirectoriesCurrentCount") <*>-                     (x .:? "CloudOnlyMicrosoftADLimitReached")-                     <*> (x .:? "ConnectedDirectoriesLimit")-                     <*> (x .:? "ConnectedDirectoriesLimitReached")-                     <*> (x .:? "CloudOnlyMicrosoftADLimit")-                     <*> (x .:? "CloudOnlyDirectoriesLimit")-                     <*> (x .:? "CloudOnlyDirectoriesCurrentCount")-                     <*> (x .:? "CloudOnlyDirectoriesLimitReached")-                     <*> (x .:? "CloudOnlyMicrosoftADCurrentCount"))--instance Hashable DirectoryLimits where--instance NFData DirectoryLimits where---- | Contains VPC information for the 'CreateDirectory' or 'CreateMicrosoftAD' operation.------------ /See:/ 'directoryVPCSettings' smart constructor.-data DirectoryVPCSettings = DirectoryVPCSettings'-  { _dvsVPCId     :: !Text-  , _dvsSubnetIds :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryVPCSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dvsVPCId' - The identifier of the VPC in which to create the directory.------ * 'dvsSubnetIds' - The identifiers of the subnets for the directory servers. The two subnets must be in different Availability Zones. AWS Directory Service creates a directory server and a DNS server in each of these subnets.-directoryVPCSettings-    :: Text -- ^ 'dvsVPCId'-    -> DirectoryVPCSettings-directoryVPCSettings pVPCId_ =-  DirectoryVPCSettings' {_dvsVPCId = pVPCId_, _dvsSubnetIds = mempty}----- | The identifier of the VPC in which to create the directory.-dvsVPCId :: Lens' DirectoryVPCSettings Text-dvsVPCId = lens _dvsVPCId (\ s a -> s{_dvsVPCId = a})---- | The identifiers of the subnets for the directory servers. The two subnets must be in different Availability Zones. AWS Directory Service creates a directory server and a DNS server in each of these subnets.-dvsSubnetIds :: Lens' DirectoryVPCSettings [Text]-dvsSubnetIds = lens _dvsSubnetIds (\ s a -> s{_dvsSubnetIds = a}) . _Coerce--instance Hashable DirectoryVPCSettings where--instance NFData DirectoryVPCSettings where--instance ToJSON DirectoryVPCSettings where-        toJSON DirectoryVPCSettings'{..}-          = object-              (catMaybes-                 [Just ("VpcId" .= _dvsVPCId),-                  Just ("SubnetIds" .= _dvsSubnetIds)])---- | Contains information about the directory.------------ /See:/ 'directoryVPCSettingsDescription' smart constructor.-data DirectoryVPCSettingsDescription = DirectoryVPCSettingsDescription'-  { _dvsdSubnetIds         :: !(Maybe [Text])-  , _dvsdVPCId             :: !(Maybe Text)-  , _dvsdSecurityGroupId   :: !(Maybe Text)-  , _dvsdAvailabilityZones :: !(Maybe [Text])-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DirectoryVPCSettingsDescription' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dvsdSubnetIds' - The identifiers of the subnets for the directory servers.------ * 'dvsdVPCId' - The identifier of the VPC that the directory is in.------ * 'dvsdSecurityGroupId' - The domain controller security group identifier for the directory.------ * 'dvsdAvailabilityZones' - The list of Availability Zones that the directory is in.-directoryVPCSettingsDescription-    :: DirectoryVPCSettingsDescription-directoryVPCSettingsDescription =-  DirectoryVPCSettingsDescription'-    { _dvsdSubnetIds = Nothing-    , _dvsdVPCId = Nothing-    , _dvsdSecurityGroupId = Nothing-    , _dvsdAvailabilityZones = Nothing-    }----- | The identifiers of the subnets for the directory servers.-dvsdSubnetIds :: Lens' DirectoryVPCSettingsDescription [Text]-dvsdSubnetIds = lens _dvsdSubnetIds (\ s a -> s{_dvsdSubnetIds = a}) . _Default . _Coerce---- | The identifier of the VPC that the directory is in.-dvsdVPCId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)-dvsdVPCId = lens _dvsdVPCId (\ s a -> s{_dvsdVPCId = a})---- | The domain controller security group identifier for the directory.-dvsdSecurityGroupId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)-dvsdSecurityGroupId = lens _dvsdSecurityGroupId (\ s a -> s{_dvsdSecurityGroupId = a})---- | The list of Availability Zones that the directory is in.-dvsdAvailabilityZones :: Lens' DirectoryVPCSettingsDescription [Text]-dvsdAvailabilityZones = lens _dvsdAvailabilityZones (\ s a -> s{_dvsdAvailabilityZones = a}) . _Default . _Coerce--instance FromJSON DirectoryVPCSettingsDescription-         where-        parseJSON-          = withObject "DirectoryVPCSettingsDescription"-              (\ x ->-                 DirectoryVPCSettingsDescription' <$>-                   (x .:? "SubnetIds" .!= mempty) <*> (x .:? "VpcId")-                     <*> (x .:? "SecurityGroupId")-                     <*> (x .:? "AvailabilityZones" .!= mempty))--instance Hashable DirectoryVPCSettingsDescription-         where--instance NFData DirectoryVPCSettingsDescription where---- | Contains information about the domain controllers for a specified directory.------------ /See:/ 'domainController' smart constructor.-data DomainController = DomainController'-  { _dcStatus                    :: !(Maybe DomainControllerStatus)-  , _dcDirectoryId               :: !(Maybe Text)-  , _dcVPCId                     :: !(Maybe Text)-  , _dcLaunchTime                :: !(Maybe POSIX)-  , _dcSubnetId                  :: !(Maybe Text)-  , _dcAvailabilityZone          :: !(Maybe Text)-  , _dcStatusLastUpdatedDateTime :: !(Maybe POSIX)-  , _dcStatusReason              :: !(Maybe Text)-  , _dcDNSIPAddr                 :: !(Maybe Text)-  , _dcDomainControllerId        :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'DomainController' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcStatus' - The status of the domain controller.------ * 'dcDirectoryId' - Identifier of the directory where the domain controller resides.------ * 'dcVPCId' - The identifier of the VPC that contains the domain controller.------ * 'dcLaunchTime' - Specifies when the domain controller was created.------ * 'dcSubnetId' - Identifier of the subnet in the VPC that contains the domain controller.------ * 'dcAvailabilityZone' - The Availability Zone where the domain controller is located.------ * 'dcStatusLastUpdatedDateTime' - The date and time that the status was last updated.------ * 'dcStatusReason' - A description of the domain controller state.------ * 'dcDNSIPAddr' - The IP address of the domain controller.------ * 'dcDomainControllerId' - Identifies a specific domain controller in the directory.-domainController-    :: DomainController-domainController =-  DomainController'-    { _dcStatus = Nothing-    , _dcDirectoryId = Nothing-    , _dcVPCId = Nothing-    , _dcLaunchTime = Nothing-    , _dcSubnetId = Nothing-    , _dcAvailabilityZone = Nothing-    , _dcStatusLastUpdatedDateTime = Nothing-    , _dcStatusReason = Nothing-    , _dcDNSIPAddr = Nothing-    , _dcDomainControllerId = Nothing-    }----- | The status of the domain controller.-dcStatus :: Lens' DomainController (Maybe DomainControllerStatus)-dcStatus = lens _dcStatus (\ s a -> s{_dcStatus = a})---- | Identifier of the directory where the domain controller resides.-dcDirectoryId :: Lens' DomainController (Maybe Text)-dcDirectoryId = lens _dcDirectoryId (\ s a -> s{_dcDirectoryId = a})---- | The identifier of the VPC that contains the domain controller.-dcVPCId :: Lens' DomainController (Maybe Text)-dcVPCId = lens _dcVPCId (\ s a -> s{_dcVPCId = a})---- | Specifies when the domain controller was created.-dcLaunchTime :: Lens' DomainController (Maybe UTCTime)-dcLaunchTime = lens _dcLaunchTime (\ s a -> s{_dcLaunchTime = a}) . mapping _Time---- | Identifier of the subnet in the VPC that contains the domain controller.-dcSubnetId :: Lens' DomainController (Maybe Text)-dcSubnetId = lens _dcSubnetId (\ s a -> s{_dcSubnetId = a})---- | The Availability Zone where the domain controller is located.-dcAvailabilityZone :: Lens' DomainController (Maybe Text)-dcAvailabilityZone = lens _dcAvailabilityZone (\ s a -> s{_dcAvailabilityZone = a})---- | The date and time that the status was last updated.-dcStatusLastUpdatedDateTime :: Lens' DomainController (Maybe UTCTime)-dcStatusLastUpdatedDateTime = lens _dcStatusLastUpdatedDateTime (\ s a -> s{_dcStatusLastUpdatedDateTime = a}) . mapping _Time---- | A description of the domain controller state.-dcStatusReason :: Lens' DomainController (Maybe Text)-dcStatusReason = lens _dcStatusReason (\ s a -> s{_dcStatusReason = a})---- | The IP address of the domain controller.-dcDNSIPAddr :: Lens' DomainController (Maybe Text)-dcDNSIPAddr = lens _dcDNSIPAddr (\ s a -> s{_dcDNSIPAddr = a})---- | Identifies a specific domain controller in the directory.-dcDomainControllerId :: Lens' DomainController (Maybe Text)-dcDomainControllerId = lens _dcDomainControllerId (\ s a -> s{_dcDomainControllerId = a})--instance FromJSON DomainController where-        parseJSON-          = withObject "DomainController"-              (\ x ->-                 DomainController' <$>-                   (x .:? "Status") <*> (x .:? "DirectoryId") <*>-                     (x .:? "VpcId")-                     <*> (x .:? "LaunchTime")-                     <*> (x .:? "SubnetId")-                     <*> (x .:? "AvailabilityZone")-                     <*> (x .:? "StatusLastUpdatedDateTime")-                     <*> (x .:? "StatusReason")-                     <*> (x .:? "DnsIpAddr")-                     <*> (x .:? "DomainControllerId"))--instance Hashable DomainController where--instance NFData DomainController where---- | Information about SNS topic and AWS Directory Service directory associations.------------ /See:/ 'eventTopic' smart constructor.-data EventTopic = EventTopic'-  { _etStatus          :: !(Maybe TopicStatus)-  , _etDirectoryId     :: !(Maybe Text)-  , _etTopicName       :: !(Maybe Text)-  , _etTopicARN        :: !(Maybe Text)-  , _etCreatedDateTime :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'EventTopic' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'etStatus' - The topic registration status.------ * 'etDirectoryId' - The Directory ID of an AWS Directory Service directory that will publish status messages to an SNS topic.------ * 'etTopicName' - The name of an AWS SNS topic the receives status messages from the directory.------ * 'etTopicARN' - The SNS topic ARN (Amazon Resource Name).------ * 'etCreatedDateTime' - The date and time of when you associated your directory with the SNS topic.-eventTopic-    :: EventTopic-eventTopic =-  EventTopic'-    { _etStatus = Nothing-    , _etDirectoryId = Nothing-    , _etTopicName = Nothing-    , _etTopicARN = Nothing-    , _etCreatedDateTime = Nothing-    }----- | The topic registration status.-etStatus :: Lens' EventTopic (Maybe TopicStatus)-etStatus = lens _etStatus (\ s a -> s{_etStatus = a})---- | The Directory ID of an AWS Directory Service directory that will publish status messages to an SNS topic.-etDirectoryId :: Lens' EventTopic (Maybe Text)-etDirectoryId = lens _etDirectoryId (\ s a -> s{_etDirectoryId = a})---- | The name of an AWS SNS topic the receives status messages from the directory.-etTopicName :: Lens' EventTopic (Maybe Text)-etTopicName = lens _etTopicName (\ s a -> s{_etTopicName = a})---- | The SNS topic ARN (Amazon Resource Name).-etTopicARN :: Lens' EventTopic (Maybe Text)-etTopicARN = lens _etTopicARN (\ s a -> s{_etTopicARN = a})---- | The date and time of when you associated your directory with the SNS topic.-etCreatedDateTime :: Lens' EventTopic (Maybe UTCTime)-etCreatedDateTime = lens _etCreatedDateTime (\ s a -> s{_etCreatedDateTime = a}) . mapping _Time--instance FromJSON EventTopic where-        parseJSON-          = withObject "EventTopic"-              (\ x ->-                 EventTopic' <$>-                   (x .:? "Status") <*> (x .:? "DirectoryId") <*>-                     (x .:? "TopicName")-                     <*> (x .:? "TopicArn")-                     <*> (x .:? "CreatedDateTime"))--instance Hashable EventTopic where--instance NFData EventTopic where---- | IP address block. This is often the address block of the DNS server used for your on-premises domain.------------ /See:/ 'ipRoute' smart constructor.-data IPRoute = IPRoute'-  { _irCidrIP      :: !(Maybe Text)-  , _irDescription :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'IPRoute' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'irCidrIP' - IP address block using CIDR format, for example 10.0.0.0/24. This is often the address block of the DNS server used for your on-premises domain. For a single IP address use a CIDR address block with /32. For example 10.0.0.0/32.------ * 'irDescription' - Description of the address block.-ipRoute-    :: IPRoute-ipRoute = IPRoute' {_irCidrIP = Nothing, _irDescription = Nothing}----- | IP address block using CIDR format, for example 10.0.0.0/24. This is often the address block of the DNS server used for your on-premises domain. For a single IP address use a CIDR address block with /32. For example 10.0.0.0/32.-irCidrIP :: Lens' IPRoute (Maybe Text)-irCidrIP = lens _irCidrIP (\ s a -> s{_irCidrIP = a})---- | Description of the address block.-irDescription :: Lens' IPRoute (Maybe Text)-irDescription = lens _irDescription (\ s a -> s{_irDescription = a})--instance Hashable IPRoute where--instance NFData IPRoute where--instance ToJSON IPRoute where-        toJSON IPRoute'{..}-          = object-              (catMaybes-                 [("CidrIp" .=) <$> _irCidrIP,-                  ("Description" .=) <$> _irDescription])---- | Information about one or more IP address blocks.------------ /See:/ 'ipRouteInfo' smart constructor.-data IPRouteInfo = IPRouteInfo'-  { _iriDirectoryId         :: !(Maybe Text)-  , _iriIPRouteStatusReason :: !(Maybe Text)-  , _iriAddedDateTime       :: !(Maybe POSIX)-  , _iriCidrIP              :: !(Maybe Text)-  , _iriIPRouteStatusMsg    :: !(Maybe IPRouteStatusMsg)-  , _iriDescription         :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'IPRouteInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iriDirectoryId' - Identifier (ID) of the directory associated with the IP addresses.------ * 'iriIPRouteStatusReason' - The reason for the IpRouteStatusMsg.------ * 'iriAddedDateTime' - The date and time the address block was added to the directory.------ * 'iriCidrIP' - IP address block in the 'IpRoute' .------ * 'iriIPRouteStatusMsg' - The status of the IP address block.------ * 'iriDescription' - Description of the 'IpRouteInfo' .-ipRouteInfo-    :: IPRouteInfo-ipRouteInfo =-  IPRouteInfo'-    { _iriDirectoryId = Nothing-    , _iriIPRouteStatusReason = Nothing-    , _iriAddedDateTime = Nothing-    , _iriCidrIP = Nothing-    , _iriIPRouteStatusMsg = Nothing-    , _iriDescription = Nothing-    }----- | Identifier (ID) of the directory associated with the IP addresses.-iriDirectoryId :: Lens' IPRouteInfo (Maybe Text)-iriDirectoryId = lens _iriDirectoryId (\ s a -> s{_iriDirectoryId = a})---- | The reason for the IpRouteStatusMsg.-iriIPRouteStatusReason :: Lens' IPRouteInfo (Maybe Text)-iriIPRouteStatusReason = lens _iriIPRouteStatusReason (\ s a -> s{_iriIPRouteStatusReason = a})---- | The date and time the address block was added to the directory.-iriAddedDateTime :: Lens' IPRouteInfo (Maybe UTCTime)-iriAddedDateTime = lens _iriAddedDateTime (\ s a -> s{_iriAddedDateTime = a}) . mapping _Time---- | IP address block in the 'IpRoute' .-iriCidrIP :: Lens' IPRouteInfo (Maybe Text)-iriCidrIP = lens _iriCidrIP (\ s a -> s{_iriCidrIP = a})---- | The status of the IP address block.-iriIPRouteStatusMsg :: Lens' IPRouteInfo (Maybe IPRouteStatusMsg)-iriIPRouteStatusMsg = lens _iriIPRouteStatusMsg (\ s a -> s{_iriIPRouteStatusMsg = a})---- | Description of the 'IpRouteInfo' .-iriDescription :: Lens' IPRouteInfo (Maybe Text)-iriDescription = lens _iriDescription (\ s a -> s{_iriDescription = a})--instance FromJSON IPRouteInfo where-        parseJSON-          = withObject "IPRouteInfo"-              (\ x ->-                 IPRouteInfo' <$>-                   (x .:? "DirectoryId") <*>-                     (x .:? "IpRouteStatusReason")-                     <*> (x .:? "AddedDateTime")-                     <*> (x .:? "CidrIp")-                     <*> (x .:? "IpRouteStatusMsg")-                     <*> (x .:? "Description"))--instance Hashable IPRouteInfo where--instance NFData IPRouteInfo where---- | Contains information about a Remote Authentication Dial In User Service (RADIUS) server.------------ /See:/ 'radiusSettings' smart constructor.-data RadiusSettings = RadiusSettings'-  { _rsDisplayLabel           :: !(Maybe Text)-  , _rsRadiusRetries          :: !(Maybe Nat)-  , _rsAuthenticationProtocol :: !(Maybe RadiusAuthenticationProtocol)-  , _rsRadiusServers          :: !(Maybe [Text])-  , _rsUseSameUsername        :: !(Maybe Bool)-  , _rsSharedSecret           :: !(Maybe (Sensitive Text))-  , _rsRadiusTimeout          :: !(Maybe Nat)-  , _rsRadiusPort             :: !(Maybe Nat)-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'RadiusSettings' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rsDisplayLabel' - Not currently used.------ * 'rsRadiusRetries' - The maximum number of times that communication with the RADIUS server is attempted.------ * 'rsAuthenticationProtocol' - The protocol specified for your RADIUS endpoints.------ * 'rsRadiusServers' - An array of strings that contains the IP addresses of the RADIUS server endpoints, or the IP addresses of your RADIUS server load balancer.------ * 'rsUseSameUsername' - Not currently used.------ * 'rsSharedSecret' - Not currently used.------ * 'rsRadiusTimeout' - The amount of time, in seconds, to wait for the RADIUS server to respond.------ * 'rsRadiusPort' - The port that your RADIUS server is using for communications. Your on-premises network must allow inbound traffic over this port from the AWS Directory Service servers.-radiusSettings-    :: RadiusSettings-radiusSettings =-  RadiusSettings'-    { _rsDisplayLabel = Nothing-    , _rsRadiusRetries = Nothing-    , _rsAuthenticationProtocol = Nothing-    , _rsRadiusServers = Nothing-    , _rsUseSameUsername = Nothing-    , _rsSharedSecret = Nothing-    , _rsRadiusTimeout = Nothing-    , _rsRadiusPort = Nothing-    }----- | Not currently used.-rsDisplayLabel :: Lens' RadiusSettings (Maybe Text)-rsDisplayLabel = lens _rsDisplayLabel (\ s a -> s{_rsDisplayLabel = a})---- | The maximum number of times that communication with the RADIUS server is attempted.-rsRadiusRetries :: Lens' RadiusSettings (Maybe Natural)-rsRadiusRetries = lens _rsRadiusRetries (\ s a -> s{_rsRadiusRetries = a}) . mapping _Nat---- | The protocol specified for your RADIUS endpoints.-rsAuthenticationProtocol :: Lens' RadiusSettings (Maybe RadiusAuthenticationProtocol)-rsAuthenticationProtocol = lens _rsAuthenticationProtocol (\ s a -> s{_rsAuthenticationProtocol = a})---- | An array of strings that contains the IP addresses of the RADIUS server endpoints, or the IP addresses of your RADIUS server load balancer.-rsRadiusServers :: Lens' RadiusSettings [Text]-rsRadiusServers = lens _rsRadiusServers (\ s a -> s{_rsRadiusServers = a}) . _Default . _Coerce---- | Not currently used.-rsUseSameUsername :: Lens' RadiusSettings (Maybe Bool)-rsUseSameUsername = lens _rsUseSameUsername (\ s a -> s{_rsUseSameUsername = a})---- | Not currently used.-rsSharedSecret :: Lens' RadiusSettings (Maybe Text)-rsSharedSecret = lens _rsSharedSecret (\ s a -> s{_rsSharedSecret = a}) . mapping _Sensitive---- | The amount of time, in seconds, to wait for the RADIUS server to respond.-rsRadiusTimeout :: Lens' RadiusSettings (Maybe Natural)-rsRadiusTimeout = lens _rsRadiusTimeout (\ s a -> s{_rsRadiusTimeout = a}) . mapping _Nat---- | The port that your RADIUS server is using for communications. Your on-premises network must allow inbound traffic over this port from the AWS Directory Service servers.-rsRadiusPort :: Lens' RadiusSettings (Maybe Natural)-rsRadiusPort = lens _rsRadiusPort (\ s a -> s{_rsRadiusPort = a}) . mapping _Nat--instance FromJSON RadiusSettings where-        parseJSON-          = withObject "RadiusSettings"-              (\ x ->-                 RadiusSettings' <$>-                   (x .:? "DisplayLabel") <*> (x .:? "RadiusRetries")-                     <*> (x .:? "AuthenticationProtocol")-                     <*> (x .:? "RadiusServers" .!= mempty)-                     <*> (x .:? "UseSameUsername")-                     <*> (x .:? "SharedSecret")-                     <*> (x .:? "RadiusTimeout")-                     <*> (x .:? "RadiusPort"))--instance Hashable RadiusSettings where--instance NFData RadiusSettings where--instance ToJSON RadiusSettings where-        toJSON RadiusSettings'{..}-          = object-              (catMaybes-                 [("DisplayLabel" .=) <$> _rsDisplayLabel,-                  ("RadiusRetries" .=) <$> _rsRadiusRetries,-                  ("AuthenticationProtocol" .=) <$>-                    _rsAuthenticationProtocol,-                  ("RadiusServers" .=) <$> _rsRadiusServers,-                  ("UseSameUsername" .=) <$> _rsUseSameUsername,-                  ("SharedSecret" .=) <$> _rsSharedSecret,-                  ("RadiusTimeout" .=) <$> _rsRadiusTimeout,-                  ("RadiusPort" .=) <$> _rsRadiusPort])---- | Information about a schema extension.------------ /See:/ 'schemaExtensionInfo' smart constructor.-data SchemaExtensionInfo = SchemaExtensionInfo'-  { _seiDirectoryId                 :: !(Maybe Text)-  , _seiSchemaExtensionId           :: !(Maybe Text)-  , _seiSchemaExtensionStatusReason :: !(Maybe Text)-  , _seiSchemaExtensionStatus       :: !(Maybe SchemaExtensionStatus)-  , _seiDescription                 :: !(Maybe Text)-  , _seiEndDateTime                 :: !(Maybe POSIX)-  , _seiStartDateTime               :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SchemaExtensionInfo' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'seiDirectoryId' - The identifier of the directory to which the schema extension is applied.------ * 'seiSchemaExtensionId' - The identifier of the schema extension.------ * 'seiSchemaExtensionStatusReason' - The reason for the @SchemaExtensionStatus@ .------ * 'seiSchemaExtensionStatus' - The current status of the schema extension.------ * 'seiDescription' - A description of the schema extension.------ * 'seiEndDateTime' - The date and time that the schema extension was completed.------ * 'seiStartDateTime' - The date and time that the schema extension started being applied to the directory.-schemaExtensionInfo-    :: SchemaExtensionInfo-schemaExtensionInfo =-  SchemaExtensionInfo'-    { _seiDirectoryId = Nothing-    , _seiSchemaExtensionId = Nothing-    , _seiSchemaExtensionStatusReason = Nothing-    , _seiSchemaExtensionStatus = Nothing-    , _seiDescription = Nothing-    , _seiEndDateTime = Nothing-    , _seiStartDateTime = Nothing-    }----- | The identifier of the directory to which the schema extension is applied.-seiDirectoryId :: Lens' SchemaExtensionInfo (Maybe Text)-seiDirectoryId = lens _seiDirectoryId (\ s a -> s{_seiDirectoryId = a})---- | The identifier of the schema extension.-seiSchemaExtensionId :: Lens' SchemaExtensionInfo (Maybe Text)-seiSchemaExtensionId = lens _seiSchemaExtensionId (\ s a -> s{_seiSchemaExtensionId = a})---- | The reason for the @SchemaExtensionStatus@ .-seiSchemaExtensionStatusReason :: Lens' SchemaExtensionInfo (Maybe Text)-seiSchemaExtensionStatusReason = lens _seiSchemaExtensionStatusReason (\ s a -> s{_seiSchemaExtensionStatusReason = a})---- | The current status of the schema extension.-seiSchemaExtensionStatus :: Lens' SchemaExtensionInfo (Maybe SchemaExtensionStatus)-seiSchemaExtensionStatus = lens _seiSchemaExtensionStatus (\ s a -> s{_seiSchemaExtensionStatus = a})---- | A description of the schema extension.-seiDescription :: Lens' SchemaExtensionInfo (Maybe Text)-seiDescription = lens _seiDescription (\ s a -> s{_seiDescription = a})---- | The date and time that the schema extension was completed.-seiEndDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)-seiEndDateTime = lens _seiEndDateTime (\ s a -> s{_seiEndDateTime = a}) . mapping _Time---- | The date and time that the schema extension started being applied to the directory.-seiStartDateTime :: Lens' SchemaExtensionInfo (Maybe UTCTime)-seiStartDateTime = lens _seiStartDateTime (\ s a -> s{_seiStartDateTime = a}) . mapping _Time--instance FromJSON SchemaExtensionInfo where-        parseJSON-          = withObject "SchemaExtensionInfo"-              (\ x ->-                 SchemaExtensionInfo' <$>-                   (x .:? "DirectoryId") <*> (x .:? "SchemaExtensionId")-                     <*> (x .:? "SchemaExtensionStatusReason")-                     <*> (x .:? "SchemaExtensionStatus")-                     <*> (x .:? "Description")-                     <*> (x .:? "EndDateTime")-                     <*> (x .:? "StartDateTime"))--instance Hashable SchemaExtensionInfo where--instance NFData SchemaExtensionInfo where---- | Describes a directory snapshot.------------ /See:/ 'snapshot' smart constructor.-data Snapshot = Snapshot'-  { _sStatus      :: !(Maybe SnapshotStatus)-  , _sDirectoryId :: !(Maybe Text)-  , _sStartTime   :: !(Maybe POSIX)-  , _sName        :: !(Maybe Text)-  , _sType        :: !(Maybe SnapshotType)-  , _sSnapshotId  :: !(Maybe Text)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Snapshot' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'sStatus' - The snapshot status.------ * 'sDirectoryId' - The directory identifier.------ * 'sStartTime' - The date and time that the snapshot was taken.------ * 'sName' - The descriptive name of the snapshot.------ * 'sType' - The snapshot type.------ * 'sSnapshotId' - The snapshot identifier.-snapshot-    :: Snapshot-snapshot =-  Snapshot'-    { _sStatus = Nothing-    , _sDirectoryId = Nothing-    , _sStartTime = Nothing-    , _sName = Nothing-    , _sType = Nothing-    , _sSnapshotId = Nothing-    }----- | The snapshot status.-sStatus :: Lens' Snapshot (Maybe SnapshotStatus)-sStatus = lens _sStatus (\ s a -> s{_sStatus = a})---- | The directory identifier.-sDirectoryId :: Lens' Snapshot (Maybe Text)-sDirectoryId = lens _sDirectoryId (\ s a -> s{_sDirectoryId = a})---- | The date and time that the snapshot was taken.-sStartTime :: Lens' Snapshot (Maybe UTCTime)-sStartTime = lens _sStartTime (\ s a -> s{_sStartTime = a}) . mapping _Time---- | The descriptive name of the snapshot.-sName :: Lens' Snapshot (Maybe Text)-sName = lens _sName (\ s a -> s{_sName = a})---- | The snapshot type.-sType :: Lens' Snapshot (Maybe SnapshotType)-sType = lens _sType (\ s a -> s{_sType = a})---- | The snapshot identifier.-sSnapshotId :: Lens' Snapshot (Maybe Text)-sSnapshotId = lens _sSnapshotId (\ s a -> s{_sSnapshotId = a})--instance FromJSON Snapshot where-        parseJSON-          = withObject "Snapshot"-              (\ x ->-                 Snapshot' <$>-                   (x .:? "Status") <*> (x .:? "DirectoryId") <*>-                     (x .:? "StartTime")-                     <*> (x .:? "Name")-                     <*> (x .:? "Type")-                     <*> (x .:? "SnapshotId"))--instance Hashable Snapshot where--instance NFData Snapshot where---- | Contains manual snapshot limit information for a directory.------------ /See:/ 'snapshotLimits' smart constructor.-data SnapshotLimits = SnapshotLimits'-  { _slManualSnapshotsLimitReached :: !(Maybe Bool)-  , _slManualSnapshotsCurrentCount :: !(Maybe Nat)-  , _slManualSnapshotsLimit        :: !(Maybe Nat)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'SnapshotLimits' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'slManualSnapshotsLimitReached' - Indicates if the manual snapshot limit has been reached.------ * 'slManualSnapshotsCurrentCount' - The current number of manual snapshots of the directory.------ * 'slManualSnapshotsLimit' - The maximum number of manual snapshots allowed.-snapshotLimits-    :: SnapshotLimits-snapshotLimits =-  SnapshotLimits'-    { _slManualSnapshotsLimitReached = Nothing-    , _slManualSnapshotsCurrentCount = Nothing-    , _slManualSnapshotsLimit = Nothing-    }----- | Indicates if the manual snapshot limit has been reached.-slManualSnapshotsLimitReached :: Lens' SnapshotLimits (Maybe Bool)-slManualSnapshotsLimitReached = lens _slManualSnapshotsLimitReached (\ s a -> s{_slManualSnapshotsLimitReached = a})---- | The current number of manual snapshots of the directory.-slManualSnapshotsCurrentCount :: Lens' SnapshotLimits (Maybe Natural)-slManualSnapshotsCurrentCount = lens _slManualSnapshotsCurrentCount (\ s a -> s{_slManualSnapshotsCurrentCount = a}) . mapping _Nat---- | The maximum number of manual snapshots allowed.-slManualSnapshotsLimit :: Lens' SnapshotLimits (Maybe Natural)-slManualSnapshotsLimit = lens _slManualSnapshotsLimit (\ s a -> s{_slManualSnapshotsLimit = a}) . mapping _Nat--instance FromJSON SnapshotLimits where-        parseJSON-          = withObject "SnapshotLimits"-              (\ x ->-                 SnapshotLimits' <$>-                   (x .:? "ManualSnapshotsLimitReached") <*>-                     (x .:? "ManualSnapshotsCurrentCount")-                     <*> (x .:? "ManualSnapshotsLimit"))--instance Hashable SnapshotLimits where--instance NFData SnapshotLimits where---- | Metadata assigned to a directory consisting of a key-value pair.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'-  { _tagKey   :: !Text-  , _tagValue :: !Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagKey' - Required name of the tag. The string value can be Unicode characters and cannot be prefixed with "aws:". The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").------ * 'tagValue' - The optional value of the tag. The string value can be Unicode characters. The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tag-    :: Text -- ^ 'tagKey'-    -> Text -- ^ 'tagValue'-    -> Tag-tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_}----- | Required name of the tag. The string value can be Unicode characters and cannot be prefixed with "aws:". The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a})---- | The optional value of the tag. The string value can be Unicode characters. The string can contain only the set of Unicode letters, digits, white-space, '_', '.', '/', '=', '+', '-' (Java regex: "^([\\p{L}\\p{Z}\\p{N}_.:/=+\\-]*)$").-tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a})--instance FromJSON Tag where-        parseJSON-          = withObject "Tag"-              (\ x -> Tag' <$> (x .: "Key") <*> (x .: "Value"))--instance Hashable Tag where--instance NFData Tag where--instance ToJSON Tag where-        toJSON Tag'{..}-          = object-              (catMaybes-                 [Just ("Key" .= _tagKey),-                  Just ("Value" .= _tagValue)])---- | Describes a trust relationship between an Microsoft AD in the AWS cloud and an external domain.------------ /See:/ 'trust' smart constructor.-data Trust = Trust'-  { _tDirectoryId              :: !(Maybe Text)-  , _tTrustState               :: !(Maybe TrustState)-  , _tLastUpdatedDateTime      :: !(Maybe POSIX)-  , _tTrustDirection           :: !(Maybe TrustDirection)-  , _tStateLastUpdatedDateTime :: !(Maybe POSIX)-  , _tTrustType                :: !(Maybe TrustType)-  , _tTrustStateReason         :: !(Maybe Text)-  , _tRemoteDomainName         :: !(Maybe Text)-  , _tTrustId                  :: !(Maybe Text)-  , _tCreatedDateTime          :: !(Maybe POSIX)-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'Trust' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tDirectoryId' - The Directory ID of the AWS directory involved in the trust relationship.------ * 'tTrustState' - The trust relationship state.------ * 'tLastUpdatedDateTime' - The date and time that the trust relationship was last updated.------ * 'tTrustDirection' - The trust relationship direction.------ * 'tStateLastUpdatedDateTime' - The date and time that the TrustState was last updated.------ * 'tTrustType' - The trust relationship type.------ * 'tTrustStateReason' - The reason for the TrustState.------ * 'tRemoteDomainName' - The Fully Qualified Domain Name (FQDN) of the external domain involved in the trust relationship.------ * 'tTrustId' - The unique ID of the trust relationship.------ * 'tCreatedDateTime' - The date and time that the trust relationship was created.-trust-    :: Trust-trust =-  Trust'-    { _tDirectoryId = Nothing-    , _tTrustState = Nothing-    , _tLastUpdatedDateTime = Nothing-    , _tTrustDirection = Nothing-    , _tStateLastUpdatedDateTime = Nothing-    , _tTrustType = Nothing-    , _tTrustStateReason = Nothing-    , _tRemoteDomainName = Nothing-    , _tTrustId = Nothing-    , _tCreatedDateTime = Nothing-    }----- | The Directory ID of the AWS directory involved in the trust relationship.-tDirectoryId :: Lens' Trust (Maybe Text)-tDirectoryId = lens _tDirectoryId (\ s a -> s{_tDirectoryId = a})---- | The trust relationship state.-tTrustState :: Lens' Trust (Maybe TrustState)-tTrustState = lens _tTrustState (\ s a -> s{_tTrustState = a})---- | The date and time that the trust relationship was last updated.-tLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)-tLastUpdatedDateTime = lens _tLastUpdatedDateTime (\ s a -> s{_tLastUpdatedDateTime = a}) . mapping _Time---- | The trust relationship direction.-tTrustDirection :: Lens' Trust (Maybe TrustDirection)-tTrustDirection = lens _tTrustDirection (\ s a -> s{_tTrustDirection = a})---- | The date and time that the TrustState was last updated.-tStateLastUpdatedDateTime :: Lens' Trust (Maybe UTCTime)-tStateLastUpdatedDateTime = lens _tStateLastUpdatedDateTime (\ s a -> s{_tStateLastUpdatedDateTime = a}) . mapping _Time---- | The trust relationship type.-tTrustType :: Lens' Trust (Maybe TrustType)-tTrustType = lens _tTrustType (\ s a -> s{_tTrustType = a})---- | The reason for the TrustState.-tTrustStateReason :: Lens' Trust (Maybe Text)-tTrustStateReason = lens _tTrustStateReason (\ s a -> s{_tTrustStateReason = a})---- | The Fully Qualified Domain Name (FQDN) of the external domain involved in the trust relationship.-tRemoteDomainName :: Lens' Trust (Maybe Text)-tRemoteDomainName = lens _tRemoteDomainName (\ s a -> s{_tRemoteDomainName = a})---- | The unique ID of the trust relationship.-tTrustId :: Lens' Trust (Maybe Text)-tTrustId = lens _tTrustId (\ s a -> s{_tTrustId = a})---- | The date and time that the trust relationship was created.-tCreatedDateTime :: Lens' Trust (Maybe UTCTime)-tCreatedDateTime = lens _tCreatedDateTime (\ s a -> s{_tCreatedDateTime = a}) . mapping _Time--instance FromJSON Trust where-        parseJSON-          = withObject "Trust"-              (\ x ->-                 Trust' <$>-                   (x .:? "DirectoryId") <*> (x .:? "TrustState") <*>-                     (x .:? "LastUpdatedDateTime")-                     <*> (x .:? "TrustDirection")-                     <*> (x .:? "StateLastUpdatedDateTime")-                     <*> (x .:? "TrustType")-                     <*> (x .:? "TrustStateReason")-                     <*> (x .:? "RemoteDomainName")-                     <*> (x .:? "TrustId")-                     <*> (x .:? "CreatedDateTime"))--instance Hashable Trust where--instance NFData Trust where

− gen/Network/AWS/DirectoryService/Types/Sum.hs

@@ -1,578 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE LambdaCase         #-}-{-# LANGUAGE OverloadedStrings  #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.Types.Sum--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.DirectoryService.Types.Sum where--import Network.AWS.Prelude--data DirectoryEdition-  = Enterprise-  | Standard-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DirectoryEdition where-    parser = takeLowerText >>= \case-        "enterprise" -> pure Enterprise-        "standard" -> pure Standard-        e -> fromTextError $ "Failure parsing DirectoryEdition from value: '" <> e-           <> "'. Accepted values: enterprise, standard"--instance ToText DirectoryEdition where-    toText = \case-        Enterprise -> "Enterprise"-        Standard -> "Standard"--instance Hashable     DirectoryEdition-instance NFData       DirectoryEdition-instance ToByteString DirectoryEdition-instance ToQuery      DirectoryEdition-instance ToHeader     DirectoryEdition--instance ToJSON DirectoryEdition where-    toJSON = toJSONText--instance FromJSON DirectoryEdition where-    parseJSON = parseJSONText "DirectoryEdition"--data DirectorySize-  = Large-  | Small-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DirectorySize where-    parser = takeLowerText >>= \case-        "large" -> pure Large-        "small" -> pure Small-        e -> fromTextError $ "Failure parsing DirectorySize from value: '" <> e-           <> "'. Accepted values: large, small"--instance ToText DirectorySize where-    toText = \case-        Large -> "Large"-        Small -> "Small"--instance Hashable     DirectorySize-instance NFData       DirectorySize-instance ToByteString DirectorySize-instance ToQuery      DirectorySize-instance ToHeader     DirectorySize--instance ToJSON DirectorySize where-    toJSON = toJSONText--instance FromJSON DirectorySize where-    parseJSON = parseJSONText "DirectorySize"--data DirectoryStage-  = DSActive-  | DSCreated-  | DSCreating-  | DSDeleted-  | DSDeleting-  | DSFailed-  | DSImpaired-  | DSInoperable-  | DSRequested-  | DSRestoreFailed-  | DSRestoring-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DirectoryStage where-    parser = takeLowerText >>= \case-        "active" -> pure DSActive-        "created" -> pure DSCreated-        "creating" -> pure DSCreating-        "deleted" -> pure DSDeleted-        "deleting" -> pure DSDeleting-        "failed" -> pure DSFailed-        "impaired" -> pure DSImpaired-        "inoperable" -> pure DSInoperable-        "requested" -> pure DSRequested-        "restorefailed" -> pure DSRestoreFailed-        "restoring" -> pure DSRestoring-        e -> fromTextError $ "Failure parsing DirectoryStage from value: '" <> e-           <> "'. Accepted values: active, created, creating, deleted, deleting, failed, impaired, inoperable, requested, restorefailed, restoring"--instance ToText DirectoryStage where-    toText = \case-        DSActive -> "Active"-        DSCreated -> "Created"-        DSCreating -> "Creating"-        DSDeleted -> "Deleted"-        DSDeleting -> "Deleting"-        DSFailed -> "Failed"-        DSImpaired -> "Impaired"-        DSInoperable -> "Inoperable"-        DSRequested -> "Requested"-        DSRestoreFailed -> "RestoreFailed"-        DSRestoring -> "Restoring"--instance Hashable     DirectoryStage-instance NFData       DirectoryStage-instance ToByteString DirectoryStage-instance ToQuery      DirectoryStage-instance ToHeader     DirectoryStage--instance FromJSON DirectoryStage where-    parseJSON = parseJSONText "DirectoryStage"--data DirectoryType-  = ADConnector-  | MicrosoftAD-  | SimpleAD-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DirectoryType where-    parser = takeLowerText >>= \case-        "adconnector" -> pure ADConnector-        "microsoftad" -> pure MicrosoftAD-        "simplead" -> pure SimpleAD-        e -> fromTextError $ "Failure parsing DirectoryType from value: '" <> e-           <> "'. Accepted values: adconnector, microsoftad, simplead"--instance ToText DirectoryType where-    toText = \case-        ADConnector -> "ADConnector"-        MicrosoftAD -> "MicrosoftAD"-        SimpleAD -> "SimpleAD"--instance Hashable     DirectoryType-instance NFData       DirectoryType-instance ToByteString DirectoryType-instance ToQuery      DirectoryType-instance ToHeader     DirectoryType--instance FromJSON DirectoryType where-    parseJSON = parseJSONText "DirectoryType"--data DomainControllerStatus-  = Active-  | Creating-  | Deleted-  | Deleting-  | Failed-  | Impaired-  | Restoring-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText DomainControllerStatus where-    parser = takeLowerText >>= \case-        "active" -> pure Active-        "creating" -> pure Creating-        "deleted" -> pure Deleted-        "deleting" -> pure Deleting-        "failed" -> pure Failed-        "impaired" -> pure Impaired-        "restoring" -> pure Restoring-        e -> fromTextError $ "Failure parsing DomainControllerStatus from value: '" <> e-           <> "'. Accepted values: active, creating, deleted, deleting, failed, impaired, restoring"--instance ToText DomainControllerStatus where-    toText = \case-        Active -> "Active"-        Creating -> "Creating"-        Deleted -> "Deleted"-        Deleting -> "Deleting"-        Failed -> "Failed"-        Impaired -> "Impaired"-        Restoring -> "Restoring"--instance Hashable     DomainControllerStatus-instance NFData       DomainControllerStatus-instance ToByteString DomainControllerStatus-instance ToQuery      DomainControllerStatus-instance ToHeader     DomainControllerStatus--instance FromJSON DomainControllerStatus where-    parseJSON = parseJSONText "DomainControllerStatus"--data IPRouteStatusMsg-  = AddFailed-  | Added-  | Adding-  | RemoveFailed-  | Removed-  | Removing-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText IPRouteStatusMsg where-    parser = takeLowerText >>= \case-        "addfailed" -> pure AddFailed-        "added" -> pure Added-        "adding" -> pure Adding-        "removefailed" -> pure RemoveFailed-        "removed" -> pure Removed-        "removing" -> pure Removing-        e -> fromTextError $ "Failure parsing IPRouteStatusMsg from value: '" <> e-           <> "'. Accepted values: addfailed, added, adding, removefailed, removed, removing"--instance ToText IPRouteStatusMsg where-    toText = \case-        AddFailed -> "AddFailed"-        Added -> "Added"-        Adding -> "Adding"-        RemoveFailed -> "RemoveFailed"-        Removed -> "Removed"-        Removing -> "Removing"--instance Hashable     IPRouteStatusMsg-instance NFData       IPRouteStatusMsg-instance ToByteString IPRouteStatusMsg-instance ToQuery      IPRouteStatusMsg-instance ToHeader     IPRouteStatusMsg--instance FromJSON IPRouteStatusMsg where-    parseJSON = parseJSONText "IPRouteStatusMsg"--data RadiusAuthenticationProtocol-  = Chap-  | MsCHAPV1-  | MsCHAPV2-  | Pap-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText RadiusAuthenticationProtocol where-    parser = takeLowerText >>= \case-        "chap" -> pure Chap-        "ms-chapv1" -> pure MsCHAPV1-        "ms-chapv2" -> pure MsCHAPV2-        "pap" -> pure Pap-        e -> fromTextError $ "Failure parsing RadiusAuthenticationProtocol from value: '" <> e-           <> "'. Accepted values: chap, ms-chapv1, ms-chapv2, pap"--instance ToText RadiusAuthenticationProtocol where-    toText = \case-        Chap -> "CHAP"-        MsCHAPV1 -> "MS-CHAPv1"-        MsCHAPV2 -> "MS-CHAPv2"-        Pap -> "PAP"--instance Hashable     RadiusAuthenticationProtocol-instance NFData       RadiusAuthenticationProtocol-instance ToByteString RadiusAuthenticationProtocol-instance ToQuery      RadiusAuthenticationProtocol-instance ToHeader     RadiusAuthenticationProtocol--instance ToJSON RadiusAuthenticationProtocol where-    toJSON = toJSONText--instance FromJSON RadiusAuthenticationProtocol where-    parseJSON = parseJSONText "RadiusAuthenticationProtocol"--data RadiusStatus-  = RSCompleted-  | RSCreating-  | RSFailed-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText RadiusStatus where-    parser = takeLowerText >>= \case-        "completed" -> pure RSCompleted-        "creating" -> pure RSCreating-        "failed" -> pure RSFailed-        e -> fromTextError $ "Failure parsing RadiusStatus from value: '" <> e-           <> "'. Accepted values: completed, creating, failed"--instance ToText RadiusStatus where-    toText = \case-        RSCompleted -> "Completed"-        RSCreating -> "Creating"-        RSFailed -> "Failed"--instance Hashable     RadiusStatus-instance NFData       RadiusStatus-instance ToByteString RadiusStatus-instance ToQuery      RadiusStatus-instance ToHeader     RadiusStatus--instance FromJSON RadiusStatus where-    parseJSON = parseJSONText "RadiusStatus"--data ReplicationScope =-  Domain-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText ReplicationScope where-    parser = takeLowerText >>= \case-        "domain" -> pure Domain-        e -> fromTextError $ "Failure parsing ReplicationScope from value: '" <> e-           <> "'. Accepted values: domain"--instance ToText ReplicationScope where-    toText = \case-        Domain -> "Domain"--instance Hashable     ReplicationScope-instance NFData       ReplicationScope-instance ToByteString ReplicationScope-instance ToQuery      ReplicationScope-instance ToHeader     ReplicationScope--instance FromJSON ReplicationScope where-    parseJSON = parseJSONText "ReplicationScope"--data SchemaExtensionStatus-  = SESCancelInProgress-  | SESCancelled-  | SESCompleted-  | SESCreatingSnapshot-  | SESFailed-  | SESInitializing-  | SESReplicating-  | SESRollbackInProgress-  | SESUpdatingSchema-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SchemaExtensionStatus where-    parser = takeLowerText >>= \case-        "cancelinprogress" -> pure SESCancelInProgress-        "cancelled" -> pure SESCancelled-        "completed" -> pure SESCompleted-        "creatingsnapshot" -> pure SESCreatingSnapshot-        "failed" -> pure SESFailed-        "initializing" -> pure SESInitializing-        "replicating" -> pure SESReplicating-        "rollbackinprogress" -> pure SESRollbackInProgress-        "updatingschema" -> pure SESUpdatingSchema-        e -> fromTextError $ "Failure parsing SchemaExtensionStatus from value: '" <> e-           <> "'. Accepted values: cancelinprogress, cancelled, completed, creatingsnapshot, failed, initializing, replicating, rollbackinprogress, updatingschema"--instance ToText SchemaExtensionStatus where-    toText = \case-        SESCancelInProgress -> "CancelInProgress"-        SESCancelled -> "Cancelled"-        SESCompleted -> "Completed"-        SESCreatingSnapshot -> "CreatingSnapshot"-        SESFailed -> "Failed"-        SESInitializing -> "Initializing"-        SESReplicating -> "Replicating"-        SESRollbackInProgress -> "RollbackInProgress"-        SESUpdatingSchema -> "UpdatingSchema"--instance Hashable     SchemaExtensionStatus-instance NFData       SchemaExtensionStatus-instance ToByteString SchemaExtensionStatus-instance ToQuery      SchemaExtensionStatus-instance ToHeader     SchemaExtensionStatus--instance FromJSON SchemaExtensionStatus where-    parseJSON = parseJSONText "SchemaExtensionStatus"--data SnapshotStatus-  = SSCompleted-  | SSCreating-  | SSFailed-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SnapshotStatus where-    parser = takeLowerText >>= \case-        "completed" -> pure SSCompleted-        "creating" -> pure SSCreating-        "failed" -> pure SSFailed-        e -> fromTextError $ "Failure parsing SnapshotStatus from value: '" <> e-           <> "'. Accepted values: completed, creating, failed"--instance ToText SnapshotStatus where-    toText = \case-        SSCompleted -> "Completed"-        SSCreating -> "Creating"-        SSFailed -> "Failed"--instance Hashable     SnapshotStatus-instance NFData       SnapshotStatus-instance ToByteString SnapshotStatus-instance ToQuery      SnapshotStatus-instance ToHeader     SnapshotStatus--instance FromJSON SnapshotStatus where-    parseJSON = parseJSONText "SnapshotStatus"--data SnapshotType-  = Auto-  | Manual-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText SnapshotType where-    parser = takeLowerText >>= \case-        "auto" -> pure Auto-        "manual" -> pure Manual-        e -> fromTextError $ "Failure parsing SnapshotType from value: '" <> e-           <> "'. Accepted values: auto, manual"--instance ToText SnapshotType where-    toText = \case-        Auto -> "Auto"-        Manual -> "Manual"--instance Hashable     SnapshotType-instance NFData       SnapshotType-instance ToByteString SnapshotType-instance ToQuery      SnapshotType-instance ToHeader     SnapshotType--instance FromJSON SnapshotType where-    parseJSON = parseJSONText "SnapshotType"--data TopicStatus-  = TDeleted-  | TFailed-  | TRegistered-  | TTopicNotFound-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TopicStatus where-    parser = takeLowerText >>= \case-        "deleted" -> pure TDeleted-        "failed" -> pure TFailed-        "registered" -> pure TRegistered-        "topic not found" -> pure TTopicNotFound-        e -> fromTextError $ "Failure parsing TopicStatus from value: '" <> e-           <> "'. Accepted values: deleted, failed, registered, topic not found"--instance ToText TopicStatus where-    toText = \case-        TDeleted -> "Deleted"-        TFailed -> "Failed"-        TRegistered -> "Registered"-        TTopicNotFound -> "Topic not found"--instance Hashable     TopicStatus-instance NFData       TopicStatus-instance ToByteString TopicStatus-instance ToQuery      TopicStatus-instance ToHeader     TopicStatus--instance FromJSON TopicStatus where-    parseJSON = parseJSONText "TopicStatus"--data TrustDirection-  = OneWayIncoming-  | OneWayOutgoing-  | TwoWay-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TrustDirection where-    parser = takeLowerText >>= \case-        "one-way: incoming" -> pure OneWayIncoming-        "one-way: outgoing" -> pure OneWayOutgoing-        "two-way" -> pure TwoWay-        e -> fromTextError $ "Failure parsing TrustDirection from value: '" <> e-           <> "'. Accepted values: one-way: incoming, one-way: outgoing, two-way"--instance ToText TrustDirection where-    toText = \case-        OneWayIncoming -> "One-Way: Incoming"-        OneWayOutgoing -> "One-Way: Outgoing"-        TwoWay -> "Two-Way"--instance Hashable     TrustDirection-instance NFData       TrustDirection-instance ToByteString TrustDirection-instance ToQuery      TrustDirection-instance ToHeader     TrustDirection--instance ToJSON TrustDirection where-    toJSON = toJSONText--instance FromJSON TrustDirection where-    parseJSON = parseJSONText "TrustDirection"--data TrustState-  = TSCreated-  | TSCreating-  | TSDeleted-  | TSDeleting-  | TSFailed-  | TSVerified-  | TSVerifyFailed-  | TSVerifying-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TrustState where-    parser = takeLowerText >>= \case-        "created" -> pure TSCreated-        "creating" -> pure TSCreating-        "deleted" -> pure TSDeleted-        "deleting" -> pure TSDeleting-        "failed" -> pure TSFailed-        "verified" -> pure TSVerified-        "verifyfailed" -> pure TSVerifyFailed-        "verifying" -> pure TSVerifying-        e -> fromTextError $ "Failure parsing TrustState from value: '" <> e-           <> "'. Accepted values: created, creating, deleted, deleting, failed, verified, verifyfailed, verifying"--instance ToText TrustState where-    toText = \case-        TSCreated -> "Created"-        TSCreating -> "Creating"-        TSDeleted -> "Deleted"-        TSDeleting -> "Deleting"-        TSFailed -> "Failed"-        TSVerified -> "Verified"-        TSVerifyFailed -> "VerifyFailed"-        TSVerifying -> "Verifying"--instance Hashable     TrustState-instance NFData       TrustState-instance ToByteString TrustState-instance ToQuery      TrustState-instance ToHeader     TrustState--instance FromJSON TrustState where-    parseJSON = parseJSONText "TrustState"--data TrustType =-  Forest-  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)---instance FromText TrustType where-    parser = takeLowerText >>= \case-        "forest" -> pure Forest-        e -> fromTextError $ "Failure parsing TrustType from value: '" <> e-           <> "'. Accepted values: forest"--instance ToText TrustType where-    toText = \case-        Forest -> "Forest"--instance Hashable     TrustType-instance NFData       TrustType-instance ToByteString TrustType-instance ToQuery      TrustType-instance ToHeader     TrustType--instance ToJSON TrustType where-    toJSON = toJSONText--instance FromJSON TrustType where-    parseJSON = parseJSONText "TrustType"

− gen/Network/AWS/DirectoryService/UpdateConditionalForwarder.hs

@@ -1,158 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.UpdateConditionalForwarder--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates a conditional forwarder that has been set up for your AWS directory.-------module Network.AWS.DirectoryService.UpdateConditionalForwarder-    (-    -- * Creating a Request-      updateConditionalForwarder-    , UpdateConditionalForwarder-    -- * Request Lenses-    , ucfDirectoryId-    , ucfRemoteDomainName-    , ucfDNSIPAddrs--    -- * Destructuring the Response-    , updateConditionalForwarderResponse-    , UpdateConditionalForwarderResponse-    -- * Response Lenses-    , ucfrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Updates a conditional forwarder.------------ /See:/ 'updateConditionalForwarder' smart constructor.-data UpdateConditionalForwarder = UpdateConditionalForwarder'-  { _ucfDirectoryId      :: !Text-  , _ucfRemoteDomainName :: !Text-  , _ucfDNSIPAddrs       :: ![Text]-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateConditionalForwarder' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucfDirectoryId' - The directory ID of the AWS directory for which to update the conditional forwarder.------ * 'ucfRemoteDomainName' - The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship.------ * 'ucfDNSIPAddrs' - The updated IP addresses of the remote DNS server associated with the conditional forwarder.-updateConditionalForwarder-    :: Text -- ^ 'ucfDirectoryId'-    -> Text -- ^ 'ucfRemoteDomainName'-    -> UpdateConditionalForwarder-updateConditionalForwarder pDirectoryId_ pRemoteDomainName_ =-  UpdateConditionalForwarder'-    { _ucfDirectoryId = pDirectoryId_-    , _ucfRemoteDomainName = pRemoteDomainName_-    , _ucfDNSIPAddrs = mempty-    }----- | The directory ID of the AWS directory for which to update the conditional forwarder.-ucfDirectoryId :: Lens' UpdateConditionalForwarder Text-ucfDirectoryId = lens _ucfDirectoryId (\ s a -> s{_ucfDirectoryId = a})---- | The fully qualified domain name (FQDN) of the remote domain with which you will set up a trust relationship.-ucfRemoteDomainName :: Lens' UpdateConditionalForwarder Text-ucfRemoteDomainName = lens _ucfRemoteDomainName (\ s a -> s{_ucfRemoteDomainName = a})---- | The updated IP addresses of the remote DNS server associated with the conditional forwarder.-ucfDNSIPAddrs :: Lens' UpdateConditionalForwarder [Text]-ucfDNSIPAddrs = lens _ucfDNSIPAddrs (\ s a -> s{_ucfDNSIPAddrs = a}) . _Coerce--instance AWSRequest UpdateConditionalForwarder where-        type Rs UpdateConditionalForwarder =-             UpdateConditionalForwarderResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 UpdateConditionalForwarderResponse' <$>-                   (pure (fromEnum s)))--instance Hashable UpdateConditionalForwarder where--instance NFData UpdateConditionalForwarder where--instance ToHeaders UpdateConditionalForwarder where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.UpdateConditionalForwarder"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateConditionalForwarder where-        toJSON UpdateConditionalForwarder'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _ucfDirectoryId),-                  Just ("RemoteDomainName" .= _ucfRemoteDomainName),-                  Just ("DnsIpAddrs" .= _ucfDNSIPAddrs)])--instance ToPath UpdateConditionalForwarder where-        toPath = const "/"--instance ToQuery UpdateConditionalForwarder where-        toQuery = const mempty---- | The result of an UpdateConditionalForwarder request.------------ /See:/ 'updateConditionalForwarderResponse' smart constructor.-newtype UpdateConditionalForwarderResponse = UpdateConditionalForwarderResponse'-  { _ucfrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateConditionalForwarderResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'ucfrsResponseStatus' - -- | The response status code.-updateConditionalForwarderResponse-    :: Int -- ^ 'ucfrsResponseStatus'-    -> UpdateConditionalForwarderResponse-updateConditionalForwarderResponse pResponseStatus_ =-  UpdateConditionalForwarderResponse' {_ucfrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-ucfrsResponseStatus :: Lens' UpdateConditionalForwarderResponse Int-ucfrsResponseStatus = lens _ucfrsResponseStatus (\ s a -> s{_ucfrsResponseStatus = a})--instance NFData UpdateConditionalForwarderResponse-         where

− gen/Network/AWS/DirectoryService/UpdateNumberOfDomainControllers.hs

@@ -1,146 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.UpdateNumberOfDomainControllers--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Adds or removes domain controllers to or from the directory. Based on the difference between current value and new value (provided through this API call), domain controllers will be added or removed. It may take up to 45 minutes for any new domain controllers to become fully active once the requested number of domain controllers is updated. During this time, you cannot make another update request.-------module Network.AWS.DirectoryService.UpdateNumberOfDomainControllers-    (-    -- * Creating a Request-      updateNumberOfDomainControllers-    , UpdateNumberOfDomainControllers-    -- * Request Lenses-    , unodcDirectoryId-    , unodcDesiredNumber--    -- * Destructuring the Response-    , updateNumberOfDomainControllersResponse-    , UpdateNumberOfDomainControllersResponse-    -- * Response Lenses-    , unodcrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | /See:/ 'updateNumberOfDomainControllers' smart constructor.-data UpdateNumberOfDomainControllers = UpdateNumberOfDomainControllers'-  { _unodcDirectoryId   :: !Text-  , _unodcDesiredNumber :: !Nat-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateNumberOfDomainControllers' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'unodcDirectoryId' - Identifier of the directory to which the domain controllers will be added or removed.------ * 'unodcDesiredNumber' - The number of domain controllers desired in the directory.-updateNumberOfDomainControllers-    :: Text -- ^ 'unodcDirectoryId'-    -> Natural -- ^ 'unodcDesiredNumber'-    -> UpdateNumberOfDomainControllers-updateNumberOfDomainControllers pDirectoryId_ pDesiredNumber_ =-  UpdateNumberOfDomainControllers'-    { _unodcDirectoryId = pDirectoryId_-    , _unodcDesiredNumber = _Nat # pDesiredNumber_-    }----- | Identifier of the directory to which the domain controllers will be added or removed.-unodcDirectoryId :: Lens' UpdateNumberOfDomainControllers Text-unodcDirectoryId = lens _unodcDirectoryId (\ s a -> s{_unodcDirectoryId = a})---- | The number of domain controllers desired in the directory.-unodcDesiredNumber :: Lens' UpdateNumberOfDomainControllers Natural-unodcDesiredNumber = lens _unodcDesiredNumber (\ s a -> s{_unodcDesiredNumber = a}) . _Nat--instance AWSRequest UpdateNumberOfDomainControllers-         where-        type Rs UpdateNumberOfDomainControllers =-             UpdateNumberOfDomainControllersResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 UpdateNumberOfDomainControllersResponse' <$>-                   (pure (fromEnum s)))--instance Hashable UpdateNumberOfDomainControllers-         where--instance NFData UpdateNumberOfDomainControllers where--instance ToHeaders UpdateNumberOfDomainControllers-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.UpdateNumberOfDomainControllers"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateNumberOfDomainControllers where-        toJSON UpdateNumberOfDomainControllers'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _unodcDirectoryId),-                  Just ("DesiredNumber" .= _unodcDesiredNumber)])--instance ToPath UpdateNumberOfDomainControllers where-        toPath = const "/"--instance ToQuery UpdateNumberOfDomainControllers-         where-        toQuery = const mempty---- | /See:/ 'updateNumberOfDomainControllersResponse' smart constructor.-newtype UpdateNumberOfDomainControllersResponse = UpdateNumberOfDomainControllersResponse'-  { _unodcrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateNumberOfDomainControllersResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'unodcrsResponseStatus' - -- | The response status code.-updateNumberOfDomainControllersResponse-    :: Int -- ^ 'unodcrsResponseStatus'-    -> UpdateNumberOfDomainControllersResponse-updateNumberOfDomainControllersResponse pResponseStatus_ =-  UpdateNumberOfDomainControllersResponse'-    {_unodcrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-unodcrsResponseStatus :: Lens' UpdateNumberOfDomainControllersResponse Int-unodcrsResponseStatus = lens _unodcrsResponseStatus (\ s a -> s{_unodcrsResponseStatus = a})--instance NFData-           UpdateNumberOfDomainControllersResponse-         where

− gen/Network/AWS/DirectoryService/UpdateRadius.hs

@@ -1,143 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.UpdateRadius--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Updates the Remote Authentication Dial In User Service (RADIUS) server information for an AD Connector directory.-------module Network.AWS.DirectoryService.UpdateRadius-    (-    -- * Creating a Request-      updateRadius-    , UpdateRadius-    -- * Request Lenses-    , urDirectoryId-    , urRadiusSettings--    -- * Destructuring the Response-    , updateRadiusResponse-    , UpdateRadiusResponse-    -- * Response Lenses-    , urrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Contains the inputs for the 'UpdateRadius' operation.------------ /See:/ 'updateRadius' smart constructor.-data UpdateRadius = UpdateRadius'-  { _urDirectoryId    :: !Text-  , _urRadiusSettings :: !RadiusSettings-  } deriving (Eq, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateRadius' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'urDirectoryId' - The identifier of the directory for which to update the RADIUS server information.------ * 'urRadiusSettings' - A 'RadiusSettings' object that contains information about the RADIUS server.-updateRadius-    :: Text -- ^ 'urDirectoryId'-    -> RadiusSettings -- ^ 'urRadiusSettings'-    -> UpdateRadius-updateRadius pDirectoryId_ pRadiusSettings_ =-  UpdateRadius'-    {_urDirectoryId = pDirectoryId_, _urRadiusSettings = pRadiusSettings_}----- | The identifier of the directory for which to update the RADIUS server information.-urDirectoryId :: Lens' UpdateRadius Text-urDirectoryId = lens _urDirectoryId (\ s a -> s{_urDirectoryId = a})---- | A 'RadiusSettings' object that contains information about the RADIUS server.-urRadiusSettings :: Lens' UpdateRadius RadiusSettings-urRadiusSettings = lens _urRadiusSettings (\ s a -> s{_urRadiusSettings = a})--instance AWSRequest UpdateRadius where-        type Rs UpdateRadius = UpdateRadiusResponse-        request = postJSON directoryService-        response-          = receiveEmpty-              (\ s h x ->-                 UpdateRadiusResponse' <$> (pure (fromEnum s)))--instance Hashable UpdateRadius where--instance NFData UpdateRadius where--instance ToHeaders UpdateRadius where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.UpdateRadius" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON UpdateRadius where-        toJSON UpdateRadius'{..}-          = object-              (catMaybes-                 [Just ("DirectoryId" .= _urDirectoryId),-                  Just ("RadiusSettings" .= _urRadiusSettings)])--instance ToPath UpdateRadius where-        toPath = const "/"--instance ToQuery UpdateRadius where-        toQuery = const mempty---- | Contains the results of the 'UpdateRadius' operation.------------ /See:/ 'updateRadiusResponse' smart constructor.-newtype UpdateRadiusResponse = UpdateRadiusResponse'-  { _urrsResponseStatus :: Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'UpdateRadiusResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'urrsResponseStatus' - -- | The response status code.-updateRadiusResponse-    :: Int -- ^ 'urrsResponseStatus'-    -> UpdateRadiusResponse-updateRadiusResponse pResponseStatus_ =-  UpdateRadiusResponse' {_urrsResponseStatus = pResponseStatus_}----- | -- | The response status code.-urrsResponseStatus :: Lens' UpdateRadiusResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})--instance NFData UpdateRadiusResponse where

− gen/Network/AWS/DirectoryService/VerifyTrust.hs

@@ -1,141 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.VerifyTrust--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ AWS Directory Service for Microsoft Active Directory allows you to configure and verify trust relationships.--------- This action verifies a trust relationship between your Microsoft AD in the AWS cloud and an external domain.----module Network.AWS.DirectoryService.VerifyTrust-    (-    -- * Creating a Request-      verifyTrust-    , VerifyTrust-    -- * Request Lenses-    , vtTrustId--    -- * Destructuring the Response-    , verifyTrustResponse-    , VerifyTrustResponse-    -- * Response Lenses-    , vtrsTrustId-    , vtrsResponseStatus-    ) where--import Network.AWS.DirectoryService.Types-import Network.AWS.DirectoryService.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response---- | Initiates the verification of an existing trust relationship between a Microsoft AD in the AWS cloud and an external domain.------------ /See:/ 'verifyTrust' smart constructor.-newtype VerifyTrust = VerifyTrust'-  { _vtTrustId :: Text-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VerifyTrust' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vtTrustId' - The unique Trust ID of the trust relationship to verify.-verifyTrust-    :: Text -- ^ 'vtTrustId'-    -> VerifyTrust-verifyTrust pTrustId_ = VerifyTrust' {_vtTrustId = pTrustId_}----- | The unique Trust ID of the trust relationship to verify.-vtTrustId :: Lens' VerifyTrust Text-vtTrustId = lens _vtTrustId (\ s a -> s{_vtTrustId = a})--instance AWSRequest VerifyTrust where-        type Rs VerifyTrust = VerifyTrustResponse-        request = postJSON directoryService-        response-          = receiveJSON-              (\ s h x ->-                 VerifyTrustResponse' <$>-                   (x .?> "TrustId") <*> (pure (fromEnum s)))--instance Hashable VerifyTrust where--instance NFData VerifyTrust where--instance ToHeaders VerifyTrust where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("DirectoryService_20150416.VerifyTrust" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON VerifyTrust where-        toJSON VerifyTrust'{..}-          = object (catMaybes [Just ("TrustId" .= _vtTrustId)])--instance ToPath VerifyTrust where-        toPath = const "/"--instance ToQuery VerifyTrust where-        toQuery = const mempty---- | Result of a VerifyTrust request.------------ /See:/ 'verifyTrustResponse' smart constructor.-data VerifyTrustResponse = VerifyTrustResponse'-  { _vtrsTrustId        :: !(Maybe Text)-  , _vtrsResponseStatus :: !Int-  } deriving (Eq, Read, Show, Data, Typeable, Generic)----- | Creates a value of 'VerifyTrustResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vtrsTrustId' - The unique Trust ID of the trust relationship that was verified.------ * 'vtrsResponseStatus' - -- | The response status code.-verifyTrustResponse-    :: Int -- ^ 'vtrsResponseStatus'-    -> VerifyTrustResponse-verifyTrustResponse pResponseStatus_ =-  VerifyTrustResponse'-    {_vtrsTrustId = Nothing, _vtrsResponseStatus = pResponseStatus_}----- | The unique Trust ID of the trust relationship that was verified.-vtrsTrustId :: Lens' VerifyTrustResponse (Maybe Text)-vtrsTrustId = lens _vtrsTrustId (\ s a -> s{_vtrsTrustId = a})---- | -- | The response status code.-vtrsResponseStatus :: Lens' VerifyTrustResponse Int-vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a})--instance NFData VerifyTrustResponse where

− gen/Network/AWS/DirectoryService/Waiters.hs

@@ -1,21 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectoryService.Waiters--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.DirectoryService.Waiters where--import Network.AWS.DirectoryService.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter

test/Main.hs view

@@ -2,20 +2,22 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2018 Brendan Hay+-- Copyright   : (c) 2013-2023 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Maintainer  : Brendan Hay -- Stability   : auto-generated -- Portability : non-portable (GHC extensions)--- module Main (main) where +import Test.Amazonka.DirectoryService+import Test.Amazonka.DirectoryService.Internal import Test.Tasty-import Test.AWS.DirectoryService-import Test.AWS.DirectoryService.Internal  main :: IO ()-main = defaultMain $ testGroup "DirectoryService"-    [ testGroup "tests"    tests-    , testGroup "fixtures" fixtures-    ]+main =+  defaultMain $+    testGroup+      "DirectoryService"+      [ testGroup "tests" tests,+        testGroup "fixtures" fixtures+      ]

− test/Test/AWS/DirectoryService.hs

@@ -1,26 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}---- Module      : Test.AWS.DirectoryService--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.DirectoryService-    ( tests-    , fixtures-    ) where--import           Network.AWS.DirectoryService-import           Test.AWS.Gen.DirectoryService-import           Test.Tasty--tests :: [TestTree]-tests = []--fixtures :: [TestTree]-fixtures = []

− test/Test/AWS/DirectoryService/Internal.hs

@@ -1,16 +0,0 @@-{-# LANGUAGE OverloadedStrings #-}-{-# OPTIONS_GHC -fno-warn-unused-imports #-}---- Module      : Test.AWS.DirectoryService.Internal--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental--- Portability : non-portable (GHC extensions)--module Test.AWS.DirectoryService.Internal where--import Test.AWS.Prelude

− test/Test/AWS/Gen/DirectoryService.hs

@@ -1,759 +0,0 @@-{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-orphans        #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Test.AWS.Gen.DirectoryService--- Copyright   : (c) 2013-2018 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Test.AWS.Gen.DirectoryService where--import Data.Proxy-import Network.AWS.DirectoryService-import Test.AWS.DirectoryService.Internal-import Test.AWS.Fixture-import Test.AWS.Prelude-import Test.Tasty---- Auto-generated: the actual test selection needs to be manually placed into--- the top-level so that real test data can be incrementally added.------ This commented snippet is what the entire set should look like:---- fixtures :: TestTree--- fixtures =---     [ testGroup "request"---         [ requestUpdateNumberOfDomainControllers $---             updateNumberOfDomainControllers------         , requestDescribeConditionalForwarders $---             describeConditionalForwarders------         , requestGetSnapshotLimits $---             getSnapshotLimits------         , requestRegisterEventTopic $---             registerEventTopic------         , requestConnectDirectory $---             connectDirectory------         , requestCreateAlias $---             createAlias------         , requestDescribeDirectories $---             describeDirectories------         , requestAddIPRoutes $---             addIPRoutes------         , requestListTagsForResource $---             listTagsForResource------         , requestDescribeTrusts $---             describeTrusts------         , requestDeleteTrust $---             deleteTrust------         , requestCreateMicrosoftAD $---             createMicrosoftAD------         , requestDeregisterEventTopic $---             deregisterEventTopic------         , requestCreateDirectory $---             createDirectory------         , requestRemoveTagsFromResource $---             removeTagsFromResource------         , requestDescribeEventTopics $---             describeEventTopics------         , requestUpdateConditionalForwarder $---             updateConditionalForwarder------         , requestDeleteConditionalForwarder $---             deleteConditionalForwarder------         , requestEnableSSO $---             enableSSO------         , requestCancelSchemaExtension $---             cancelSchemaExtension------         , requestEnableRadius $---             enableRadius------         , requestListIPRoutes $---             listIPRoutes------         , requestAddTagsToResource $---             addTagsToResource------         , requestListSchemaExtensions $---             listSchemaExtensions------         , requestDisableRadius $---             disableRadius------         , requestRestoreFromSnapshot $---             restoreFromSnapshot------         , requestDescribeDomainControllers $---             describeDomainControllers------         , requestDescribeSnapshots $---             describeSnapshots------         , requestRemoveIPRoutes $---             removeIPRoutes------         , requestDeleteSnapshot $---             deleteSnapshot------         , requestStartSchemaExtension $---             startSchemaExtension------         , requestCreateTrust $---             createTrust------         , requestDeleteDirectory $---             deleteDirectory------         , requestCreateSnapshot $---             createSnapshot------         , requestCreateComputer $---             createComputer------         , requestDisableSSO $---             disableSSO------         , requestVerifyTrust $---             verifyTrust------         , requestCreateConditionalForwarder $---             createConditionalForwarder------         , requestGetDirectoryLimits $---             getDirectoryLimits------         , requestUpdateRadius $---             updateRadius------           ]----     , testGroup "response"---         [ responseUpdateNumberOfDomainControllers $---             updateNumberOfDomainControllersResponse------         , responseDescribeConditionalForwarders $---             describeConditionalForwardersResponse------         , responseGetSnapshotLimits $---             getSnapshotLimitsResponse------         , responseRegisterEventTopic $---             registerEventTopicResponse------         , responseConnectDirectory $---             connectDirectoryResponse------         , responseCreateAlias $---             createAliasResponse------         , responseDescribeDirectories $---             describeDirectoriesResponse------         , responseAddIPRoutes $---             addIPRoutesResponse------         , responseListTagsForResource $---             listTagsForResourceResponse------         , responseDescribeTrusts $---             describeTrustsResponse------         , responseDeleteTrust $---             deleteTrustResponse------         , responseCreateMicrosoftAD $---             createMicrosoftADResponse------         , responseDeregisterEventTopic $---             deregisterEventTopicResponse------         , responseCreateDirectory $---             createDirectoryResponse------         , responseRemoveTagsFromResource $---             removeTagsFromResourceResponse------         , responseDescribeEventTopics $---             describeEventTopicsResponse------         , responseUpdateConditionalForwarder $---             updateConditionalForwarderResponse------         , responseDeleteConditionalForwarder $---             deleteConditionalForwarderResponse------         , responseEnableSSO $---             enableSSOResponse------         , responseCancelSchemaExtension $---             cancelSchemaExtensionResponse------         , responseEnableRadius $---             enableRadiusResponse------         , responseListIPRoutes $---             listIPRoutesResponse------         , responseAddTagsToResource $---             addTagsToResourceResponse------         , responseListSchemaExtensions $---             listSchemaExtensionsResponse------         , responseDisableRadius $---             disableRadiusResponse------         , responseRestoreFromSnapshot $---             restoreFromSnapshotResponse------         , responseDescribeDomainControllers $---             describeDomainControllersResponse------         , responseDescribeSnapshots $---             describeSnapshotsResponse------         , responseRemoveIPRoutes $---             removeIPRoutesResponse------         , responseDeleteSnapshot $---             deleteSnapshotResponse------         , responseStartSchemaExtension $---             startSchemaExtensionResponse------         , responseCreateTrust $---             createTrustResponse------         , responseDeleteDirectory $---             deleteDirectoryResponse------         , responseCreateSnapshot $---             createSnapshotResponse------         , responseCreateComputer $---             createComputerResponse------         , responseDisableSSO $---             disableSSOResponse------         , responseVerifyTrust $---             verifyTrustResponse------         , responseCreateConditionalForwarder $---             createConditionalForwarderResponse------         , responseGetDirectoryLimits $---             getDirectoryLimitsResponse------         , responseUpdateRadius $---             updateRadiusResponse------           ]---     ]---- Requests--requestUpdateNumberOfDomainControllers :: UpdateNumberOfDomainControllers -> TestTree-requestUpdateNumberOfDomainControllers = req-    "UpdateNumberOfDomainControllers"-    "fixture/UpdateNumberOfDomainControllers.yaml"--requestDescribeConditionalForwarders :: DescribeConditionalForwarders -> TestTree-requestDescribeConditionalForwarders = req-    "DescribeConditionalForwarders"-    "fixture/DescribeConditionalForwarders.yaml"--requestGetSnapshotLimits :: GetSnapshotLimits -> TestTree-requestGetSnapshotLimits = req-    "GetSnapshotLimits"-    "fixture/GetSnapshotLimits.yaml"--requestRegisterEventTopic :: RegisterEventTopic -> TestTree-requestRegisterEventTopic = req-    "RegisterEventTopic"-    "fixture/RegisterEventTopic.yaml"--requestConnectDirectory :: ConnectDirectory -> TestTree-requestConnectDirectory = req-    "ConnectDirectory"-    "fixture/ConnectDirectory.yaml"--requestCreateAlias :: CreateAlias -> TestTree-requestCreateAlias = req-    "CreateAlias"-    "fixture/CreateAlias.yaml"--requestDescribeDirectories :: DescribeDirectories -> TestTree-requestDescribeDirectories = req-    "DescribeDirectories"-    "fixture/DescribeDirectories.yaml"--requestAddIPRoutes :: AddIPRoutes -> TestTree-requestAddIPRoutes = req-    "AddIPRoutes"-    "fixture/AddIPRoutes.yaml"--requestListTagsForResource :: ListTagsForResource -> TestTree-requestListTagsForResource = req-    "ListTagsForResource"-    "fixture/ListTagsForResource.yaml"--requestDescribeTrusts :: DescribeTrusts -> TestTree-requestDescribeTrusts = req-    "DescribeTrusts"-    "fixture/DescribeTrusts.yaml"--requestDeleteTrust :: DeleteTrust -> TestTree-requestDeleteTrust = req-    "DeleteTrust"-    "fixture/DeleteTrust.yaml"--requestCreateMicrosoftAD :: CreateMicrosoftAD -> TestTree-requestCreateMicrosoftAD = req-    "CreateMicrosoftAD"-    "fixture/CreateMicrosoftAD.yaml"--requestDeregisterEventTopic :: DeregisterEventTopic -> TestTree-requestDeregisterEventTopic = req-    "DeregisterEventTopic"-    "fixture/DeregisterEventTopic.yaml"--requestCreateDirectory :: CreateDirectory -> TestTree-requestCreateDirectory = req-    "CreateDirectory"-    "fixture/CreateDirectory.yaml"--requestRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree-requestRemoveTagsFromResource = req-    "RemoveTagsFromResource"-    "fixture/RemoveTagsFromResource.yaml"--requestDescribeEventTopics :: DescribeEventTopics -> TestTree-requestDescribeEventTopics = req-    "DescribeEventTopics"-    "fixture/DescribeEventTopics.yaml"--requestUpdateConditionalForwarder :: UpdateConditionalForwarder -> TestTree-requestUpdateConditionalForwarder = req-    "UpdateConditionalForwarder"-    "fixture/UpdateConditionalForwarder.yaml"--requestDeleteConditionalForwarder :: DeleteConditionalForwarder -> TestTree-requestDeleteConditionalForwarder = req-    "DeleteConditionalForwarder"-    "fixture/DeleteConditionalForwarder.yaml"--requestEnableSSO :: EnableSSO -> TestTree-requestEnableSSO = req-    "EnableSSO"-    "fixture/EnableSSO.yaml"--requestCancelSchemaExtension :: CancelSchemaExtension -> TestTree-requestCancelSchemaExtension = req-    "CancelSchemaExtension"-    "fixture/CancelSchemaExtension.yaml"--requestEnableRadius :: EnableRadius -> TestTree-requestEnableRadius = req-    "EnableRadius"-    "fixture/EnableRadius.yaml"--requestListIPRoutes :: ListIPRoutes -> TestTree-requestListIPRoutes = req-    "ListIPRoutes"-    "fixture/ListIPRoutes.yaml"--requestAddTagsToResource :: AddTagsToResource -> TestTree-requestAddTagsToResource = req-    "AddTagsToResource"-    "fixture/AddTagsToResource.yaml"--requestListSchemaExtensions :: ListSchemaExtensions -> TestTree-requestListSchemaExtensions = req-    "ListSchemaExtensions"-    "fixture/ListSchemaExtensions.yaml"--requestDisableRadius :: DisableRadius -> TestTree-requestDisableRadius = req-    "DisableRadius"-    "fixture/DisableRadius.yaml"--requestRestoreFromSnapshot :: RestoreFromSnapshot -> TestTree-requestRestoreFromSnapshot = req-    "RestoreFromSnapshot"-    "fixture/RestoreFromSnapshot.yaml"--requestDescribeDomainControllers :: DescribeDomainControllers -> TestTree-requestDescribeDomainControllers = req-    "DescribeDomainControllers"-    "fixture/DescribeDomainControllers.yaml"--requestDescribeSnapshots :: DescribeSnapshots -> TestTree-requestDescribeSnapshots = req-    "DescribeSnapshots"-    "fixture/DescribeSnapshots.yaml"--requestRemoveIPRoutes :: RemoveIPRoutes -> TestTree-requestRemoveIPRoutes = req-    "RemoveIPRoutes"-    "fixture/RemoveIPRoutes.yaml"--requestDeleteSnapshot :: DeleteSnapshot -> TestTree-requestDeleteSnapshot = req-    "DeleteSnapshot"-    "fixture/DeleteSnapshot.yaml"--requestStartSchemaExtension :: StartSchemaExtension -> TestTree-requestStartSchemaExtension = req-    "StartSchemaExtension"-    "fixture/StartSchemaExtension.yaml"--requestCreateTrust :: CreateTrust -> TestTree-requestCreateTrust = req-    "CreateTrust"-    "fixture/CreateTrust.yaml"--requestDeleteDirectory :: DeleteDirectory -> TestTree-requestDeleteDirectory = req-    "DeleteDirectory"-    "fixture/DeleteDirectory.yaml"--requestCreateSnapshot :: CreateSnapshot -> TestTree-requestCreateSnapshot = req-    "CreateSnapshot"-    "fixture/CreateSnapshot.yaml"--requestCreateComputer :: CreateComputer -> TestTree-requestCreateComputer = req-    "CreateComputer"-    "fixture/CreateComputer.yaml"--requestDisableSSO :: DisableSSO -> TestTree-requestDisableSSO = req-    "DisableSSO"-    "fixture/DisableSSO.yaml"--requestVerifyTrust :: VerifyTrust -> TestTree-requestVerifyTrust = req-    "VerifyTrust"-    "fixture/VerifyTrust.yaml"--requestCreateConditionalForwarder :: CreateConditionalForwarder -> TestTree-requestCreateConditionalForwarder = req-    "CreateConditionalForwarder"-    "fixture/CreateConditionalForwarder.yaml"--requestGetDirectoryLimits :: GetDirectoryLimits -> TestTree-requestGetDirectoryLimits = req-    "GetDirectoryLimits"-    "fixture/GetDirectoryLimits.yaml"--requestUpdateRadius :: UpdateRadius -> TestTree-requestUpdateRadius = req-    "UpdateRadius"-    "fixture/UpdateRadius.yaml"---- Responses--responseUpdateNumberOfDomainControllers :: UpdateNumberOfDomainControllersResponse -> TestTree-responseUpdateNumberOfDomainControllers = res-    "UpdateNumberOfDomainControllersResponse"-    "fixture/UpdateNumberOfDomainControllersResponse.proto"-    directoryService-    (Proxy :: Proxy UpdateNumberOfDomainControllers)--responseDescribeConditionalForwarders :: DescribeConditionalForwardersResponse -> TestTree-responseDescribeConditionalForwarders = res-    "DescribeConditionalForwardersResponse"-    "fixture/DescribeConditionalForwardersResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeConditionalForwarders)--responseGetSnapshotLimits :: GetSnapshotLimitsResponse -> TestTree-responseGetSnapshotLimits = res-    "GetSnapshotLimitsResponse"-    "fixture/GetSnapshotLimitsResponse.proto"-    directoryService-    (Proxy :: Proxy GetSnapshotLimits)--responseRegisterEventTopic :: RegisterEventTopicResponse -> TestTree-responseRegisterEventTopic = res-    "RegisterEventTopicResponse"-    "fixture/RegisterEventTopicResponse.proto"-    directoryService-    (Proxy :: Proxy RegisterEventTopic)--responseConnectDirectory :: ConnectDirectoryResponse -> TestTree-responseConnectDirectory = res-    "ConnectDirectoryResponse"-    "fixture/ConnectDirectoryResponse.proto"-    directoryService-    (Proxy :: Proxy ConnectDirectory)--responseCreateAlias :: CreateAliasResponse -> TestTree-responseCreateAlias = res-    "CreateAliasResponse"-    "fixture/CreateAliasResponse.proto"-    directoryService-    (Proxy :: Proxy CreateAlias)--responseDescribeDirectories :: DescribeDirectoriesResponse -> TestTree-responseDescribeDirectories = res-    "DescribeDirectoriesResponse"-    "fixture/DescribeDirectoriesResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeDirectories)--responseAddIPRoutes :: AddIPRoutesResponse -> TestTree-responseAddIPRoutes = res-    "AddIPRoutesResponse"-    "fixture/AddIPRoutesResponse.proto"-    directoryService-    (Proxy :: Proxy AddIPRoutes)--responseListTagsForResource :: ListTagsForResourceResponse -> TestTree-responseListTagsForResource = res-    "ListTagsForResourceResponse"-    "fixture/ListTagsForResourceResponse.proto"-    directoryService-    (Proxy :: Proxy ListTagsForResource)--responseDescribeTrusts :: DescribeTrustsResponse -> TestTree-responseDescribeTrusts = res-    "DescribeTrustsResponse"-    "fixture/DescribeTrustsResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeTrusts)--responseDeleteTrust :: DeleteTrustResponse -> TestTree-responseDeleteTrust = res-    "DeleteTrustResponse"-    "fixture/DeleteTrustResponse.proto"-    directoryService-    (Proxy :: Proxy DeleteTrust)--responseCreateMicrosoftAD :: CreateMicrosoftADResponse -> TestTree-responseCreateMicrosoftAD = res-    "CreateMicrosoftADResponse"-    "fixture/CreateMicrosoftADResponse.proto"-    directoryService-    (Proxy :: Proxy CreateMicrosoftAD)--responseDeregisterEventTopic :: DeregisterEventTopicResponse -> TestTree-responseDeregisterEventTopic = res-    "DeregisterEventTopicResponse"-    "fixture/DeregisterEventTopicResponse.proto"-    directoryService-    (Proxy :: Proxy DeregisterEventTopic)--responseCreateDirectory :: CreateDirectoryResponse -> TestTree-responseCreateDirectory = res-    "CreateDirectoryResponse"-    "fixture/CreateDirectoryResponse.proto"-    directoryService-    (Proxy :: Proxy CreateDirectory)--responseRemoveTagsFromResource :: RemoveTagsFromResourceResponse -> TestTree-responseRemoveTagsFromResource = res-    "RemoveTagsFromResourceResponse"-    "fixture/RemoveTagsFromResourceResponse.proto"-    directoryService-    (Proxy :: Proxy RemoveTagsFromResource)--responseDescribeEventTopics :: DescribeEventTopicsResponse -> TestTree-responseDescribeEventTopics = res-    "DescribeEventTopicsResponse"-    "fixture/DescribeEventTopicsResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeEventTopics)--responseUpdateConditionalForwarder :: UpdateConditionalForwarderResponse -> TestTree-responseUpdateConditionalForwarder = res-    "UpdateConditionalForwarderResponse"-    "fixture/UpdateConditionalForwarderResponse.proto"-    directoryService-    (Proxy :: Proxy UpdateConditionalForwarder)--responseDeleteConditionalForwarder :: DeleteConditionalForwarderResponse -> TestTree-responseDeleteConditionalForwarder = res-    "DeleteConditionalForwarderResponse"-    "fixture/DeleteConditionalForwarderResponse.proto"-    directoryService-    (Proxy :: Proxy DeleteConditionalForwarder)--responseEnableSSO :: EnableSSOResponse -> TestTree-responseEnableSSO = res-    "EnableSSOResponse"-    "fixture/EnableSSOResponse.proto"-    directoryService-    (Proxy :: Proxy EnableSSO)--responseCancelSchemaExtension :: CancelSchemaExtensionResponse -> TestTree-responseCancelSchemaExtension = res-    "CancelSchemaExtensionResponse"-    "fixture/CancelSchemaExtensionResponse.proto"-    directoryService-    (Proxy :: Proxy CancelSchemaExtension)--responseEnableRadius :: EnableRadiusResponse -> TestTree-responseEnableRadius = res-    "EnableRadiusResponse"-    "fixture/EnableRadiusResponse.proto"-    directoryService-    (Proxy :: Proxy EnableRadius)--responseListIPRoutes :: ListIPRoutesResponse -> TestTree-responseListIPRoutes = res-    "ListIPRoutesResponse"-    "fixture/ListIPRoutesResponse.proto"-    directoryService-    (Proxy :: Proxy ListIPRoutes)--responseAddTagsToResource :: AddTagsToResourceResponse -> TestTree-responseAddTagsToResource = res-    "AddTagsToResourceResponse"-    "fixture/AddTagsToResourceResponse.proto"-    directoryService-    (Proxy :: Proxy AddTagsToResource)--responseListSchemaExtensions :: ListSchemaExtensionsResponse -> TestTree-responseListSchemaExtensions = res-    "ListSchemaExtensionsResponse"-    "fixture/ListSchemaExtensionsResponse.proto"-    directoryService-    (Proxy :: Proxy ListSchemaExtensions)--responseDisableRadius :: DisableRadiusResponse -> TestTree-responseDisableRadius = res-    "DisableRadiusResponse"-    "fixture/DisableRadiusResponse.proto"-    directoryService-    (Proxy :: Proxy DisableRadius)--responseRestoreFromSnapshot :: RestoreFromSnapshotResponse -> TestTree-responseRestoreFromSnapshot = res-    "RestoreFromSnapshotResponse"-    "fixture/RestoreFromSnapshotResponse.proto"-    directoryService-    (Proxy :: Proxy RestoreFromSnapshot)--responseDescribeDomainControllers :: DescribeDomainControllersResponse -> TestTree-responseDescribeDomainControllers = res-    "DescribeDomainControllersResponse"-    "fixture/DescribeDomainControllersResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeDomainControllers)--responseDescribeSnapshots :: DescribeSnapshotsResponse -> TestTree-responseDescribeSnapshots = res-    "DescribeSnapshotsResponse"-    "fixture/DescribeSnapshotsResponse.proto"-    directoryService-    (Proxy :: Proxy DescribeSnapshots)--responseRemoveIPRoutes :: RemoveIPRoutesResponse -> TestTree-responseRemoveIPRoutes = res-    "RemoveIPRoutesResponse"-    "fixture/RemoveIPRoutesResponse.proto"-    directoryService-    (Proxy :: Proxy RemoveIPRoutes)--responseDeleteSnapshot :: DeleteSnapshotResponse -> TestTree-responseDeleteSnapshot = res-    "DeleteSnapshotResponse"-    "fixture/DeleteSnapshotResponse.proto"-    directoryService-    (Proxy :: Proxy DeleteSnapshot)--responseStartSchemaExtension :: StartSchemaExtensionResponse -> TestTree-responseStartSchemaExtension = res-    "StartSchemaExtensionResponse"-    "fixture/StartSchemaExtensionResponse.proto"-    directoryService-    (Proxy :: Proxy StartSchemaExtension)--responseCreateTrust :: CreateTrustResponse -> TestTree-responseCreateTrust = res-    "CreateTrustResponse"-    "fixture/CreateTrustResponse.proto"-    directoryService-    (Proxy :: Proxy CreateTrust)--responseDeleteDirectory :: DeleteDirectoryResponse -> TestTree-responseDeleteDirectory = res-    "DeleteDirectoryResponse"-    "fixture/DeleteDirectoryResponse.proto"-    directoryService-    (Proxy :: Proxy DeleteDirectory)--responseCreateSnapshot :: CreateSnapshotResponse -> TestTree-responseCreateSnapshot = res-    "CreateSnapshotResponse"-    "fixture/CreateSnapshotResponse.proto"-    directoryService-    (Proxy :: Proxy CreateSnapshot)--responseCreateComputer :: CreateComputerResponse -> TestTree-responseCreateComputer = res-    "CreateComputerResponse"-    "fixture/CreateComputerResponse.proto"-    directoryService-    (Proxy :: Proxy CreateComputer)--responseDisableSSO :: DisableSSOResponse -> TestTree-responseDisableSSO = res-    "DisableSSOResponse"-    "fixture/DisableSSOResponse.proto"-    directoryService-    (Proxy :: Proxy DisableSSO)--responseVerifyTrust :: VerifyTrustResponse -> TestTree-responseVerifyTrust = res-    "VerifyTrustResponse"-    "fixture/VerifyTrustResponse.proto"-    directoryService-    (Proxy :: Proxy VerifyTrust)--responseCreateConditionalForwarder :: CreateConditionalForwarderResponse -> TestTree-responseCreateConditionalForwarder = res-    "CreateConditionalForwarderResponse"-    "fixture/CreateConditionalForwarderResponse.proto"-    directoryService-    (Proxy :: Proxy CreateConditionalForwarder)--responseGetDirectoryLimits :: GetDirectoryLimitsResponse -> TestTree-responseGetDirectoryLimits = res-    "GetDirectoryLimitsResponse"-    "fixture/GetDirectoryLimitsResponse.proto"-    directoryService-    (Proxy :: Proxy GetDirectoryLimits)--responseUpdateRadius :: UpdateRadiusResponse -> TestTree-responseUpdateRadius = res-    "UpdateRadiusResponse"-    "fixture/UpdateRadiusResponse.proto"-    directoryService-    (Proxy :: Proxy UpdateRadius)

+ test/Test/Amazonka/DirectoryService.hs view

@@ -0,0 +1,20 @@+-- |+-- Module      : Test.Amazonka.DirectoryService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.DirectoryService+  ( tests,+    fixtures,+  )+where++import Test.Tasty (TestTree)++tests :: [TestTree]+tests = []++fixtures :: [TestTree]+fixtures = []

+ test/Test/Amazonka/DirectoryService/Internal.hs view

@@ -0,0 +1,8 @@+-- |+-- Module      : Test.Amazonka.DirectoryService.Internal+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.DirectoryService.Internal where

+ test/Test/Amazonka/Gen/DirectoryService.hs view

@@ -0,0 +1,1378 @@+{-# OPTIONS_GHC -fno-warn-orphans #-}+{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Test.Amazonka.Gen.DirectoryService+-- Copyright   : (c) 2013-2023 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+module Test.Amazonka.Gen.DirectoryService where++import Amazonka.DirectoryService+import qualified Data.Proxy as Proxy+import Test.Amazonka.DirectoryService.Internal+import Test.Amazonka.Fixture+import Test.Amazonka.Prelude+import Test.Tasty++-- Auto-generated: the actual test selection needs to be manually placed into+-- the top-level so that real test data can be incrementally added.+--+-- This commented snippet is what the entire set should look like:++-- fixtures :: TestTree+-- fixtures =+--     [ testGroup "request"+--         [ requestAcceptSharedDirectory $+--             newAcceptSharedDirectory+--+--         , requestAddIpRoutes $+--             newAddIpRoutes+--+--         , requestAddRegion $+--             newAddRegion+--+--         , requestAddTagsToResource $+--             newAddTagsToResource+--+--         , requestCancelSchemaExtension $+--             newCancelSchemaExtension+--+--         , requestConnectDirectory $+--             newConnectDirectory+--+--         , requestCreateAlias $+--             newCreateAlias+--+--         , requestCreateComputer $+--             newCreateComputer+--+--         , requestCreateConditionalForwarder $+--             newCreateConditionalForwarder+--+--         , requestCreateDirectory $+--             newCreateDirectory+--+--         , requestCreateLogSubscription $+--             newCreateLogSubscription+--+--         , requestCreateMicrosoftAD $+--             newCreateMicrosoftAD+--+--         , requestCreateSnapshot $+--             newCreateSnapshot+--+--         , requestCreateTrust $+--             newCreateTrust+--+--         , requestDeleteConditionalForwarder $+--             newDeleteConditionalForwarder+--+--         , requestDeleteDirectory $+--             newDeleteDirectory+--+--         , requestDeleteLogSubscription $+--             newDeleteLogSubscription+--+--         , requestDeleteSnapshot $+--             newDeleteSnapshot+--+--         , requestDeleteTrust $+--             newDeleteTrust+--+--         , requestDeregisterCertificate $+--             newDeregisterCertificate+--+--         , requestDeregisterEventTopic $+--             newDeregisterEventTopic+--+--         , requestDescribeCertificate $+--             newDescribeCertificate+--+--         , requestDescribeClientAuthenticationSettings $+--             newDescribeClientAuthenticationSettings+--+--         , requestDescribeConditionalForwarders $+--             newDescribeConditionalForwarders+--+--         , requestDescribeDirectories $+--             newDescribeDirectories+--+--         , requestDescribeDomainControllers $+--             newDescribeDomainControllers+--+--         , requestDescribeEventTopics $+--             newDescribeEventTopics+--+--         , requestDescribeLDAPSSettings $+--             newDescribeLDAPSSettings+--+--         , requestDescribeRegions $+--             newDescribeRegions+--+--         , requestDescribeSettings $+--             newDescribeSettings+--+--         , requestDescribeSharedDirectories $+--             newDescribeSharedDirectories+--+--         , requestDescribeSnapshots $+--             newDescribeSnapshots+--+--         , requestDescribeTrusts $+--             newDescribeTrusts+--+--         , requestDescribeUpdateDirectory $+--             newDescribeUpdateDirectory+--+--         , requestDisableClientAuthentication $+--             newDisableClientAuthentication+--+--         , requestDisableLDAPS $+--             newDisableLDAPS+--+--         , requestDisableRadius $+--             newDisableRadius+--+--         , requestDisableSso $+--             newDisableSso+--+--         , requestEnableClientAuthentication $+--             newEnableClientAuthentication+--+--         , requestEnableLDAPS $+--             newEnableLDAPS+--+--         , requestEnableRadius $+--             newEnableRadius+--+--         , requestEnableSso $+--             newEnableSso+--+--         , requestGetDirectoryLimits $+--             newGetDirectoryLimits+--+--         , requestGetSnapshotLimits $+--             newGetSnapshotLimits+--+--         , requestListCertificates $+--             newListCertificates+--+--         , requestListIpRoutes $+--             newListIpRoutes+--+--         , requestListLogSubscriptions $+--             newListLogSubscriptions+--+--         , requestListSchemaExtensions $+--             newListSchemaExtensions+--+--         , requestListTagsForResource $+--             newListTagsForResource+--+--         , requestRegisterCertificate $+--             newRegisterCertificate+--+--         , requestRegisterEventTopic $+--             newRegisterEventTopic+--+--         , requestRejectSharedDirectory $+--             newRejectSharedDirectory+--+--         , requestRemoveIpRoutes $+--             newRemoveIpRoutes+--+--         , requestRemoveRegion $+--             newRemoveRegion+--+--         , requestRemoveTagsFromResource $+--             newRemoveTagsFromResource+--+--         , requestResetUserPassword $+--             newResetUserPassword+--+--         , requestRestoreFromSnapshot $+--             newRestoreFromSnapshot+--+--         , requestShareDirectory $+--             newShareDirectory+--+--         , requestStartSchemaExtension $+--             newStartSchemaExtension+--+--         , requestUnshareDirectory $+--             newUnshareDirectory+--+--         , requestUpdateConditionalForwarder $+--             newUpdateConditionalForwarder+--+--         , requestUpdateDirectorySetup $+--             newUpdateDirectorySetup+--+--         , requestUpdateNumberOfDomainControllers $+--             newUpdateNumberOfDomainControllers+--+--         , requestUpdateRadius $+--             newUpdateRadius+--+--         , requestUpdateSettings $+--             newUpdateSettings+--+--         , requestUpdateTrust $+--             newUpdateTrust+--+--         , requestVerifyTrust $+--             newVerifyTrust+--+--           ]++--     , testGroup "response"+--         [ responseAcceptSharedDirectory $+--             newAcceptSharedDirectoryResponse+--+--         , responseAddIpRoutes $+--             newAddIpRoutesResponse+--+--         , responseAddRegion $+--             newAddRegionResponse+--+--         , responseAddTagsToResource $+--             newAddTagsToResourceResponse+--+--         , responseCancelSchemaExtension $+--             newCancelSchemaExtensionResponse+--+--         , responseConnectDirectory $+--             newConnectDirectoryResponse+--+--         , responseCreateAlias $+--             newCreateAliasResponse+--+--         , responseCreateComputer $+--             newCreateComputerResponse+--+--         , responseCreateConditionalForwarder $+--             newCreateConditionalForwarderResponse+--+--         , responseCreateDirectory $+--             newCreateDirectoryResponse+--+--         , responseCreateLogSubscription $+--             newCreateLogSubscriptionResponse+--+--         , responseCreateMicrosoftAD $+--             newCreateMicrosoftADResponse+--+--         , responseCreateSnapshot $+--             newCreateSnapshotResponse+--+--         , responseCreateTrust $+--             newCreateTrustResponse+--+--         , responseDeleteConditionalForwarder $+--             newDeleteConditionalForwarderResponse+--+--         , responseDeleteDirectory $+--             newDeleteDirectoryResponse+--+--         , responseDeleteLogSubscription $+--             newDeleteLogSubscriptionResponse+--+--         , responseDeleteSnapshot $+--             newDeleteSnapshotResponse+--+--         , responseDeleteTrust $+--             newDeleteTrustResponse+--+--         , responseDeregisterCertificate $+--             newDeregisterCertificateResponse+--+--         , responseDeregisterEventTopic $+--             newDeregisterEventTopicResponse+--+--         , responseDescribeCertificate $+--             newDescribeCertificateResponse+--+--         , responseDescribeClientAuthenticationSettings $+--             newDescribeClientAuthenticationSettingsResponse+--+--         , responseDescribeConditionalForwarders $+--             newDescribeConditionalForwardersResponse+--+--         , responseDescribeDirectories $+--             newDescribeDirectoriesResponse+--+--         , responseDescribeDomainControllers $+--             newDescribeDomainControllersResponse+--+--         , responseDescribeEventTopics $+--             newDescribeEventTopicsResponse+--+--         , responseDescribeLDAPSSettings $+--             newDescribeLDAPSSettingsResponse+--+--         , responseDescribeRegions $+--             newDescribeRegionsResponse+--+--         , responseDescribeSettings $+--             newDescribeSettingsResponse+--+--         , responseDescribeSharedDirectories $+--             newDescribeSharedDirectoriesResponse+--+--         , responseDescribeSnapshots $+--             newDescribeSnapshotsResponse+--+--         , responseDescribeTrusts $+--             newDescribeTrustsResponse+--+--         , responseDescribeUpdateDirectory $+--             newDescribeUpdateDirectoryResponse+--+--         , responseDisableClientAuthentication $+--             newDisableClientAuthenticationResponse+--+--         , responseDisableLDAPS $+--             newDisableLDAPSResponse+--+--         , responseDisableRadius $+--             newDisableRadiusResponse+--+--         , responseDisableSso $+--             newDisableSsoResponse+--+--         , responseEnableClientAuthentication $+--             newEnableClientAuthenticationResponse+--+--         , responseEnableLDAPS $+--             newEnableLDAPSResponse+--+--         , responseEnableRadius $+--             newEnableRadiusResponse+--+--         , responseEnableSso $+--             newEnableSsoResponse+--+--         , responseGetDirectoryLimits $+--             newGetDirectoryLimitsResponse+--+--         , responseGetSnapshotLimits $+--             newGetSnapshotLimitsResponse+--+--         , responseListCertificates $+--             newListCertificatesResponse+--+--         , responseListIpRoutes $+--             newListIpRoutesResponse+--+--         , responseListLogSubscriptions $+--             newListLogSubscriptionsResponse+--+--         , responseListSchemaExtensions $+--             newListSchemaExtensionsResponse+--+--         , responseListTagsForResource $+--             newListTagsForResourceResponse+--+--         , responseRegisterCertificate $+--             newRegisterCertificateResponse+--+--         , responseRegisterEventTopic $+--             newRegisterEventTopicResponse+--+--         , responseRejectSharedDirectory $+--             newRejectSharedDirectoryResponse+--+--         , responseRemoveIpRoutes $+--             newRemoveIpRoutesResponse+--+--         , responseRemoveRegion $+--             newRemoveRegionResponse+--+--         , responseRemoveTagsFromResource $+--             newRemoveTagsFromResourceResponse+--+--         , responseResetUserPassword $+--             newResetUserPasswordResponse+--+--         , responseRestoreFromSnapshot $+--             newRestoreFromSnapshotResponse+--+--         , responseShareDirectory $+--             newShareDirectoryResponse+--+--         , responseStartSchemaExtension $+--             newStartSchemaExtensionResponse+--+--         , responseUnshareDirectory $+--             newUnshareDirectoryResponse+--+--         , responseUpdateConditionalForwarder $+--             newUpdateConditionalForwarderResponse+--+--         , responseUpdateDirectorySetup $+--             newUpdateDirectorySetupResponse+--+--         , responseUpdateNumberOfDomainControllers $+--             newUpdateNumberOfDomainControllersResponse+--+--         , responseUpdateRadius $+--             newUpdateRadiusResponse+--+--         , responseUpdateSettings $+--             newUpdateSettingsResponse+--+--         , responseUpdateTrust $+--             newUpdateTrustResponse+--+--         , responseVerifyTrust $+--             newVerifyTrustResponse+--+--           ]+--     ]++-- Requests++requestAcceptSharedDirectory :: AcceptSharedDirectory -> TestTree+requestAcceptSharedDirectory =+  req+    "AcceptSharedDirectory"+    "fixture/AcceptSharedDirectory.yaml"++requestAddIpRoutes :: AddIpRoutes -> TestTree+requestAddIpRoutes =+  req+    "AddIpRoutes"+    "fixture/AddIpRoutes.yaml"++requestAddRegion :: AddRegion -> TestTree+requestAddRegion =+  req+    "AddRegion"+    "fixture/AddRegion.yaml"++requestAddTagsToResource :: AddTagsToResource -> TestTree+requestAddTagsToResource =+  req+    "AddTagsToResource"+    "fixture/AddTagsToResource.yaml"++requestCancelSchemaExtension :: CancelSchemaExtension -> TestTree+requestCancelSchemaExtension =+  req+    "CancelSchemaExtension"+    "fixture/CancelSchemaExtension.yaml"++requestConnectDirectory :: ConnectDirectory -> TestTree+requestConnectDirectory =+  req+    "ConnectDirectory"+    "fixture/ConnectDirectory.yaml"++requestCreateAlias :: CreateAlias -> TestTree+requestCreateAlias =+  req+    "CreateAlias"+    "fixture/CreateAlias.yaml"++requestCreateComputer :: CreateComputer -> TestTree+requestCreateComputer =+  req+    "CreateComputer"+    "fixture/CreateComputer.yaml"++requestCreateConditionalForwarder :: CreateConditionalForwarder -> TestTree+requestCreateConditionalForwarder =+  req+    "CreateConditionalForwarder"+    "fixture/CreateConditionalForwarder.yaml"++requestCreateDirectory :: CreateDirectory -> TestTree+requestCreateDirectory =+  req+    "CreateDirectory"+    "fixture/CreateDirectory.yaml"++requestCreateLogSubscription :: CreateLogSubscription -> TestTree+requestCreateLogSubscription =+  req+    "CreateLogSubscription"+    "fixture/CreateLogSubscription.yaml"++requestCreateMicrosoftAD :: CreateMicrosoftAD -> TestTree+requestCreateMicrosoftAD =+  req+    "CreateMicrosoftAD"+    "fixture/CreateMicrosoftAD.yaml"++requestCreateSnapshot :: CreateSnapshot -> TestTree+requestCreateSnapshot =+  req+    "CreateSnapshot"+    "fixture/CreateSnapshot.yaml"++requestCreateTrust :: CreateTrust -> TestTree+requestCreateTrust =+  req+    "CreateTrust"+    "fixture/CreateTrust.yaml"++requestDeleteConditionalForwarder :: DeleteConditionalForwarder -> TestTree+requestDeleteConditionalForwarder =+  req+    "DeleteConditionalForwarder"+    "fixture/DeleteConditionalForwarder.yaml"++requestDeleteDirectory :: DeleteDirectory -> TestTree+requestDeleteDirectory =+  req+    "DeleteDirectory"+    "fixture/DeleteDirectory.yaml"++requestDeleteLogSubscription :: DeleteLogSubscription -> TestTree+requestDeleteLogSubscription =+  req+    "DeleteLogSubscription"+    "fixture/DeleteLogSubscription.yaml"++requestDeleteSnapshot :: DeleteSnapshot -> TestTree+requestDeleteSnapshot =+  req+    "DeleteSnapshot"+    "fixture/DeleteSnapshot.yaml"++requestDeleteTrust :: DeleteTrust -> TestTree+requestDeleteTrust =+  req+    "DeleteTrust"+    "fixture/DeleteTrust.yaml"++requestDeregisterCertificate :: DeregisterCertificate -> TestTree+requestDeregisterCertificate =+  req+    "DeregisterCertificate"+    "fixture/DeregisterCertificate.yaml"++requestDeregisterEventTopic :: DeregisterEventTopic -> TestTree+requestDeregisterEventTopic =+  req+    "DeregisterEventTopic"+    "fixture/DeregisterEventTopic.yaml"++requestDescribeCertificate :: DescribeCertificate -> TestTree+requestDescribeCertificate =+  req+    "DescribeCertificate"+    "fixture/DescribeCertificate.yaml"++requestDescribeClientAuthenticationSettings :: DescribeClientAuthenticationSettings -> TestTree+requestDescribeClientAuthenticationSettings =+  req+    "DescribeClientAuthenticationSettings"+    "fixture/DescribeClientAuthenticationSettings.yaml"++requestDescribeConditionalForwarders :: DescribeConditionalForwarders -> TestTree+requestDescribeConditionalForwarders =+  req+    "DescribeConditionalForwarders"+    "fixture/DescribeConditionalForwarders.yaml"++requestDescribeDirectories :: DescribeDirectories -> TestTree+requestDescribeDirectories =+  req+    "DescribeDirectories"+    "fixture/DescribeDirectories.yaml"++requestDescribeDomainControllers :: DescribeDomainControllers -> TestTree+requestDescribeDomainControllers =+  req+    "DescribeDomainControllers"+    "fixture/DescribeDomainControllers.yaml"++requestDescribeEventTopics :: DescribeEventTopics -> TestTree+requestDescribeEventTopics =+  req+    "DescribeEventTopics"+    "fixture/DescribeEventTopics.yaml"++requestDescribeLDAPSSettings :: DescribeLDAPSSettings -> TestTree+requestDescribeLDAPSSettings =+  req+    "DescribeLDAPSSettings"+    "fixture/DescribeLDAPSSettings.yaml"++requestDescribeRegions :: DescribeRegions -> TestTree+requestDescribeRegions =+  req+    "DescribeRegions"+    "fixture/DescribeRegions.yaml"++requestDescribeSettings :: DescribeSettings -> TestTree+requestDescribeSettings =+  req+    "DescribeSettings"+    "fixture/DescribeSettings.yaml"++requestDescribeSharedDirectories :: DescribeSharedDirectories -> TestTree+requestDescribeSharedDirectories =+  req+    "DescribeSharedDirectories"+    "fixture/DescribeSharedDirectories.yaml"++requestDescribeSnapshots :: DescribeSnapshots -> TestTree+requestDescribeSnapshots =+  req+    "DescribeSnapshots"+    "fixture/DescribeSnapshots.yaml"++requestDescribeTrusts :: DescribeTrusts -> TestTree+requestDescribeTrusts =+  req+    "DescribeTrusts"+    "fixture/DescribeTrusts.yaml"++requestDescribeUpdateDirectory :: DescribeUpdateDirectory -> TestTree+requestDescribeUpdateDirectory =+  req+    "DescribeUpdateDirectory"+    "fixture/DescribeUpdateDirectory.yaml"++requestDisableClientAuthentication :: DisableClientAuthentication -> TestTree+requestDisableClientAuthentication =+  req+    "DisableClientAuthentication"+    "fixture/DisableClientAuthentication.yaml"++requestDisableLDAPS :: DisableLDAPS -> TestTree+requestDisableLDAPS =+  req+    "DisableLDAPS"+    "fixture/DisableLDAPS.yaml"++requestDisableRadius :: DisableRadius -> TestTree+requestDisableRadius =+  req+    "DisableRadius"+    "fixture/DisableRadius.yaml"++requestDisableSso :: DisableSso -> TestTree+requestDisableSso =+  req+    "DisableSso"+    "fixture/DisableSso.yaml"++requestEnableClientAuthentication :: EnableClientAuthentication -> TestTree+requestEnableClientAuthentication =+  req+    "EnableClientAuthentication"+    "fixture/EnableClientAuthentication.yaml"++requestEnableLDAPS :: EnableLDAPS -> TestTree+requestEnableLDAPS =+  req+    "EnableLDAPS"+    "fixture/EnableLDAPS.yaml"++requestEnableRadius :: EnableRadius -> TestTree+requestEnableRadius =+  req+    "EnableRadius"+    "fixture/EnableRadius.yaml"++requestEnableSso :: EnableSso -> TestTree+requestEnableSso =+  req+    "EnableSso"+    "fixture/EnableSso.yaml"++requestGetDirectoryLimits :: GetDirectoryLimits -> TestTree+requestGetDirectoryLimits =+  req+    "GetDirectoryLimits"+    "fixture/GetDirectoryLimits.yaml"++requestGetSnapshotLimits :: GetSnapshotLimits -> TestTree+requestGetSnapshotLimits =+  req+    "GetSnapshotLimits"+    "fixture/GetSnapshotLimits.yaml"++requestListCertificates :: ListCertificates -> TestTree+requestListCertificates =+  req+    "ListCertificates"+    "fixture/ListCertificates.yaml"++requestListIpRoutes :: ListIpRoutes -> TestTree+requestListIpRoutes =+  req+    "ListIpRoutes"+    "fixture/ListIpRoutes.yaml"++requestListLogSubscriptions :: ListLogSubscriptions -> TestTree+requestListLogSubscriptions =+  req+    "ListLogSubscriptions"+    "fixture/ListLogSubscriptions.yaml"++requestListSchemaExtensions :: ListSchemaExtensions -> TestTree+requestListSchemaExtensions =+  req+    "ListSchemaExtensions"+    "fixture/ListSchemaExtensions.yaml"++requestListTagsForResource :: ListTagsForResource -> TestTree+requestListTagsForResource =+  req+    "ListTagsForResource"+    "fixture/ListTagsForResource.yaml"++requestRegisterCertificate :: RegisterCertificate -> TestTree+requestRegisterCertificate =+  req+    "RegisterCertificate"+    "fixture/RegisterCertificate.yaml"++requestRegisterEventTopic :: RegisterEventTopic -> TestTree+requestRegisterEventTopic =+  req+    "RegisterEventTopic"+    "fixture/RegisterEventTopic.yaml"++requestRejectSharedDirectory :: RejectSharedDirectory -> TestTree+requestRejectSharedDirectory =+  req+    "RejectSharedDirectory"+    "fixture/RejectSharedDirectory.yaml"++requestRemoveIpRoutes :: RemoveIpRoutes -> TestTree+requestRemoveIpRoutes =+  req+    "RemoveIpRoutes"+    "fixture/RemoveIpRoutes.yaml"++requestRemoveRegion :: RemoveRegion -> TestTree+requestRemoveRegion =+  req+    "RemoveRegion"+    "fixture/RemoveRegion.yaml"++requestRemoveTagsFromResource :: RemoveTagsFromResource -> TestTree+requestRemoveTagsFromResource =+  req+    "RemoveTagsFromResource"+    "fixture/RemoveTagsFromResource.yaml"++requestResetUserPassword :: ResetUserPassword -> TestTree+requestResetUserPassword =+  req+    "ResetUserPassword"+    "fixture/ResetUserPassword.yaml"++requestRestoreFromSnapshot :: RestoreFromSnapshot -> TestTree+requestRestoreFromSnapshot =+  req+    "RestoreFromSnapshot"+    "fixture/RestoreFromSnapshot.yaml"++requestShareDirectory :: ShareDirectory -> TestTree+requestShareDirectory =+  req+    "ShareDirectory"+    "fixture/ShareDirectory.yaml"++requestStartSchemaExtension :: StartSchemaExtension -> TestTree+requestStartSchemaExtension =+  req+    "StartSchemaExtension"+    "fixture/StartSchemaExtension.yaml"++requestUnshareDirectory :: UnshareDirectory -> TestTree+requestUnshareDirectory =+  req+    "UnshareDirectory"+    "fixture/UnshareDirectory.yaml"++requestUpdateConditionalForwarder :: UpdateConditionalForwarder -> TestTree+requestUpdateConditionalForwarder =+  req+    "UpdateConditionalForwarder"+    "fixture/UpdateConditionalForwarder.yaml"++requestUpdateDirectorySetup :: UpdateDirectorySetup -> TestTree+requestUpdateDirectorySetup =+  req+    "UpdateDirectorySetup"+    "fixture/UpdateDirectorySetup.yaml"++requestUpdateNumberOfDomainControllers :: UpdateNumberOfDomainControllers -> TestTree+requestUpdateNumberOfDomainControllers =+  req+    "UpdateNumberOfDomainControllers"+    "fixture/UpdateNumberOfDomainControllers.yaml"++requestUpdateRadius :: UpdateRadius -> TestTree+requestUpdateRadius =+  req+    "UpdateRadius"+    "fixture/UpdateRadius.yaml"++requestUpdateSettings :: UpdateSettings -> TestTree+requestUpdateSettings =+  req+    "UpdateSettings"+    "fixture/UpdateSettings.yaml"++requestUpdateTrust :: UpdateTrust -> TestTree+requestUpdateTrust =+  req+    "UpdateTrust"+    "fixture/UpdateTrust.yaml"++requestVerifyTrust :: VerifyTrust -> TestTree+requestVerifyTrust =+  req+    "VerifyTrust"+    "fixture/VerifyTrust.yaml"++-- Responses++responseAcceptSharedDirectory :: AcceptSharedDirectoryResponse -> TestTree+responseAcceptSharedDirectory =+  res+    "AcceptSharedDirectoryResponse"+    "fixture/AcceptSharedDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AcceptSharedDirectory)++responseAddIpRoutes :: AddIpRoutesResponse -> TestTree+responseAddIpRoutes =+  res+    "AddIpRoutesResponse"+    "fixture/AddIpRoutesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AddIpRoutes)++responseAddRegion :: AddRegionResponse -> TestTree+responseAddRegion =+  res+    "AddRegionResponse"+    "fixture/AddRegionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AddRegion)++responseAddTagsToResource :: AddTagsToResourceResponse -> TestTree+responseAddTagsToResource =+  res+    "AddTagsToResourceResponse"+    "fixture/AddTagsToResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy AddTagsToResource)++responseCancelSchemaExtension :: CancelSchemaExtensionResponse -> TestTree+responseCancelSchemaExtension =+  res+    "CancelSchemaExtensionResponse"+    "fixture/CancelSchemaExtensionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CancelSchemaExtension)++responseConnectDirectory :: ConnectDirectoryResponse -> TestTree+responseConnectDirectory =+  res+    "ConnectDirectoryResponse"+    "fixture/ConnectDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ConnectDirectory)++responseCreateAlias :: CreateAliasResponse -> TestTree+responseCreateAlias =+  res+    "CreateAliasResponse"+    "fixture/CreateAliasResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateAlias)++responseCreateComputer :: CreateComputerResponse -> TestTree+responseCreateComputer =+  res+    "CreateComputerResponse"+    "fixture/CreateComputerResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateComputer)++responseCreateConditionalForwarder :: CreateConditionalForwarderResponse -> TestTree+responseCreateConditionalForwarder =+  res+    "CreateConditionalForwarderResponse"+    "fixture/CreateConditionalForwarderResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateConditionalForwarder)++responseCreateDirectory :: CreateDirectoryResponse -> TestTree+responseCreateDirectory =+  res+    "CreateDirectoryResponse"+    "fixture/CreateDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateDirectory)++responseCreateLogSubscription :: CreateLogSubscriptionResponse -> TestTree+responseCreateLogSubscription =+  res+    "CreateLogSubscriptionResponse"+    "fixture/CreateLogSubscriptionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateLogSubscription)++responseCreateMicrosoftAD :: CreateMicrosoftADResponse -> TestTree+responseCreateMicrosoftAD =+  res+    "CreateMicrosoftADResponse"+    "fixture/CreateMicrosoftADResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateMicrosoftAD)++responseCreateSnapshot :: CreateSnapshotResponse -> TestTree+responseCreateSnapshot =+  res+    "CreateSnapshotResponse"+    "fixture/CreateSnapshotResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateSnapshot)++responseCreateTrust :: CreateTrustResponse -> TestTree+responseCreateTrust =+  res+    "CreateTrustResponse"+    "fixture/CreateTrustResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy CreateTrust)++responseDeleteConditionalForwarder :: DeleteConditionalForwarderResponse -> TestTree+responseDeleteConditionalForwarder =+  res+    "DeleteConditionalForwarderResponse"+    "fixture/DeleteConditionalForwarderResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteConditionalForwarder)++responseDeleteDirectory :: DeleteDirectoryResponse -> TestTree+responseDeleteDirectory =+  res+    "DeleteDirectoryResponse"+    "fixture/DeleteDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteDirectory)++responseDeleteLogSubscription :: DeleteLogSubscriptionResponse -> TestTree+responseDeleteLogSubscription =+  res+    "DeleteLogSubscriptionResponse"+    "fixture/DeleteLogSubscriptionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteLogSubscription)++responseDeleteSnapshot :: DeleteSnapshotResponse -> TestTree+responseDeleteSnapshot =+  res+    "DeleteSnapshotResponse"+    "fixture/DeleteSnapshotResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteSnapshot)++responseDeleteTrust :: DeleteTrustResponse -> TestTree+responseDeleteTrust =+  res+    "DeleteTrustResponse"+    "fixture/DeleteTrustResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeleteTrust)++responseDeregisterCertificate :: DeregisterCertificateResponse -> TestTree+responseDeregisterCertificate =+  res+    "DeregisterCertificateResponse"+    "fixture/DeregisterCertificateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeregisterCertificate)++responseDeregisterEventTopic :: DeregisterEventTopicResponse -> TestTree+responseDeregisterEventTopic =+  res+    "DeregisterEventTopicResponse"+    "fixture/DeregisterEventTopicResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DeregisterEventTopic)++responseDescribeCertificate :: DescribeCertificateResponse -> TestTree+responseDescribeCertificate =+  res+    "DescribeCertificateResponse"+    "fixture/DescribeCertificateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeCertificate)++responseDescribeClientAuthenticationSettings :: DescribeClientAuthenticationSettingsResponse -> TestTree+responseDescribeClientAuthenticationSettings =+  res+    "DescribeClientAuthenticationSettingsResponse"+    "fixture/DescribeClientAuthenticationSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeClientAuthenticationSettings)++responseDescribeConditionalForwarders :: DescribeConditionalForwardersResponse -> TestTree+responseDescribeConditionalForwarders =+  res+    "DescribeConditionalForwardersResponse"+    "fixture/DescribeConditionalForwardersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeConditionalForwarders)++responseDescribeDirectories :: DescribeDirectoriesResponse -> TestTree+responseDescribeDirectories =+  res+    "DescribeDirectoriesResponse"+    "fixture/DescribeDirectoriesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeDirectories)++responseDescribeDomainControllers :: DescribeDomainControllersResponse -> TestTree+responseDescribeDomainControllers =+  res+    "DescribeDomainControllersResponse"+    "fixture/DescribeDomainControllersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeDomainControllers)++responseDescribeEventTopics :: DescribeEventTopicsResponse -> TestTree+responseDescribeEventTopics =+  res+    "DescribeEventTopicsResponse"+    "fixture/DescribeEventTopicsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeEventTopics)++responseDescribeLDAPSSettings :: DescribeLDAPSSettingsResponse -> TestTree+responseDescribeLDAPSSettings =+  res+    "DescribeLDAPSSettingsResponse"+    "fixture/DescribeLDAPSSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeLDAPSSettings)++responseDescribeRegions :: DescribeRegionsResponse -> TestTree+responseDescribeRegions =+  res+    "DescribeRegionsResponse"+    "fixture/DescribeRegionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeRegions)++responseDescribeSettings :: DescribeSettingsResponse -> TestTree+responseDescribeSettings =+  res+    "DescribeSettingsResponse"+    "fixture/DescribeSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeSettings)++responseDescribeSharedDirectories :: DescribeSharedDirectoriesResponse -> TestTree+responseDescribeSharedDirectories =+  res+    "DescribeSharedDirectoriesResponse"+    "fixture/DescribeSharedDirectoriesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeSharedDirectories)++responseDescribeSnapshots :: DescribeSnapshotsResponse -> TestTree+responseDescribeSnapshots =+  res+    "DescribeSnapshotsResponse"+    "fixture/DescribeSnapshotsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeSnapshots)++responseDescribeTrusts :: DescribeTrustsResponse -> TestTree+responseDescribeTrusts =+  res+    "DescribeTrustsResponse"+    "fixture/DescribeTrustsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeTrusts)++responseDescribeUpdateDirectory :: DescribeUpdateDirectoryResponse -> TestTree+responseDescribeUpdateDirectory =+  res+    "DescribeUpdateDirectoryResponse"+    "fixture/DescribeUpdateDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DescribeUpdateDirectory)++responseDisableClientAuthentication :: DisableClientAuthenticationResponse -> TestTree+responseDisableClientAuthentication =+  res+    "DisableClientAuthenticationResponse"+    "fixture/DisableClientAuthenticationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DisableClientAuthentication)++responseDisableLDAPS :: DisableLDAPSResponse -> TestTree+responseDisableLDAPS =+  res+    "DisableLDAPSResponse"+    "fixture/DisableLDAPSResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DisableLDAPS)++responseDisableRadius :: DisableRadiusResponse -> TestTree+responseDisableRadius =+  res+    "DisableRadiusResponse"+    "fixture/DisableRadiusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DisableRadius)++responseDisableSso :: DisableSsoResponse -> TestTree+responseDisableSso =+  res+    "DisableSsoResponse"+    "fixture/DisableSsoResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy DisableSso)++responseEnableClientAuthentication :: EnableClientAuthenticationResponse -> TestTree+responseEnableClientAuthentication =+  res+    "EnableClientAuthenticationResponse"+    "fixture/EnableClientAuthenticationResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy EnableClientAuthentication)++responseEnableLDAPS :: EnableLDAPSResponse -> TestTree+responseEnableLDAPS =+  res+    "EnableLDAPSResponse"+    "fixture/EnableLDAPSResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy EnableLDAPS)++responseEnableRadius :: EnableRadiusResponse -> TestTree+responseEnableRadius =+  res+    "EnableRadiusResponse"+    "fixture/EnableRadiusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy EnableRadius)++responseEnableSso :: EnableSsoResponse -> TestTree+responseEnableSso =+  res+    "EnableSsoResponse"+    "fixture/EnableSsoResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy EnableSso)++responseGetDirectoryLimits :: GetDirectoryLimitsResponse -> TestTree+responseGetDirectoryLimits =+  res+    "GetDirectoryLimitsResponse"+    "fixture/GetDirectoryLimitsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetDirectoryLimits)++responseGetSnapshotLimits :: GetSnapshotLimitsResponse -> TestTree+responseGetSnapshotLimits =+  res+    "GetSnapshotLimitsResponse"+    "fixture/GetSnapshotLimitsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy GetSnapshotLimits)++responseListCertificates :: ListCertificatesResponse -> TestTree+responseListCertificates =+  res+    "ListCertificatesResponse"+    "fixture/ListCertificatesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListCertificates)++responseListIpRoutes :: ListIpRoutesResponse -> TestTree+responseListIpRoutes =+  res+    "ListIpRoutesResponse"+    "fixture/ListIpRoutesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListIpRoutes)++responseListLogSubscriptions :: ListLogSubscriptionsResponse -> TestTree+responseListLogSubscriptions =+  res+    "ListLogSubscriptionsResponse"+    "fixture/ListLogSubscriptionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListLogSubscriptions)++responseListSchemaExtensions :: ListSchemaExtensionsResponse -> TestTree+responseListSchemaExtensions =+  res+    "ListSchemaExtensionsResponse"+    "fixture/ListSchemaExtensionsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListSchemaExtensions)++responseListTagsForResource :: ListTagsForResourceResponse -> TestTree+responseListTagsForResource =+  res+    "ListTagsForResourceResponse"+    "fixture/ListTagsForResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ListTagsForResource)++responseRegisterCertificate :: RegisterCertificateResponse -> TestTree+responseRegisterCertificate =+  res+    "RegisterCertificateResponse"+    "fixture/RegisterCertificateResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RegisterCertificate)++responseRegisterEventTopic :: RegisterEventTopicResponse -> TestTree+responseRegisterEventTopic =+  res+    "RegisterEventTopicResponse"+    "fixture/RegisterEventTopicResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RegisterEventTopic)++responseRejectSharedDirectory :: RejectSharedDirectoryResponse -> TestTree+responseRejectSharedDirectory =+  res+    "RejectSharedDirectoryResponse"+    "fixture/RejectSharedDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RejectSharedDirectory)++responseRemoveIpRoutes :: RemoveIpRoutesResponse -> TestTree+responseRemoveIpRoutes =+  res+    "RemoveIpRoutesResponse"+    "fixture/RemoveIpRoutesResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RemoveIpRoutes)++responseRemoveRegion :: RemoveRegionResponse -> TestTree+responseRemoveRegion =+  res+    "RemoveRegionResponse"+    "fixture/RemoveRegionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RemoveRegion)++responseRemoveTagsFromResource :: RemoveTagsFromResourceResponse -> TestTree+responseRemoveTagsFromResource =+  res+    "RemoveTagsFromResourceResponse"+    "fixture/RemoveTagsFromResourceResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RemoveTagsFromResource)++responseResetUserPassword :: ResetUserPasswordResponse -> TestTree+responseResetUserPassword =+  res+    "ResetUserPasswordResponse"+    "fixture/ResetUserPasswordResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ResetUserPassword)++responseRestoreFromSnapshot :: RestoreFromSnapshotResponse -> TestTree+responseRestoreFromSnapshot =+  res+    "RestoreFromSnapshotResponse"+    "fixture/RestoreFromSnapshotResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy RestoreFromSnapshot)++responseShareDirectory :: ShareDirectoryResponse -> TestTree+responseShareDirectory =+  res+    "ShareDirectoryResponse"+    "fixture/ShareDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy ShareDirectory)++responseStartSchemaExtension :: StartSchemaExtensionResponse -> TestTree+responseStartSchemaExtension =+  res+    "StartSchemaExtensionResponse"+    "fixture/StartSchemaExtensionResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy StartSchemaExtension)++responseUnshareDirectory :: UnshareDirectoryResponse -> TestTree+responseUnshareDirectory =+  res+    "UnshareDirectoryResponse"+    "fixture/UnshareDirectoryResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UnshareDirectory)++responseUpdateConditionalForwarder :: UpdateConditionalForwarderResponse -> TestTree+responseUpdateConditionalForwarder =+  res+    "UpdateConditionalForwarderResponse"+    "fixture/UpdateConditionalForwarderResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateConditionalForwarder)++responseUpdateDirectorySetup :: UpdateDirectorySetupResponse -> TestTree+responseUpdateDirectorySetup =+  res+    "UpdateDirectorySetupResponse"+    "fixture/UpdateDirectorySetupResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateDirectorySetup)++responseUpdateNumberOfDomainControllers :: UpdateNumberOfDomainControllersResponse -> TestTree+responseUpdateNumberOfDomainControllers =+  res+    "UpdateNumberOfDomainControllersResponse"+    "fixture/UpdateNumberOfDomainControllersResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateNumberOfDomainControllers)++responseUpdateRadius :: UpdateRadiusResponse -> TestTree+responseUpdateRadius =+  res+    "UpdateRadiusResponse"+    "fixture/UpdateRadiusResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateRadius)++responseUpdateSettings :: UpdateSettingsResponse -> TestTree+responseUpdateSettings =+  res+    "UpdateSettingsResponse"+    "fixture/UpdateSettingsResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateSettings)++responseUpdateTrust :: UpdateTrustResponse -> TestTree+responseUpdateTrust =+  res+    "UpdateTrustResponse"+    "fixture/UpdateTrustResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy UpdateTrust)++responseVerifyTrust :: VerifyTrustResponse -> TestTree+responseVerifyTrust =+  res+    "VerifyTrustResponse"+    "fixture/VerifyTrustResponse.proto"+    defaultService+    (Proxy.Proxy :: Proxy.Proxy VerifyTrust)