amazonka-ds 1.4.2 → 1.4.3

raw patch · 33 files changed

+310/−520 lines, 33 filesdep ~amazonka-coredep ~amazonka-dsdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +2/−4
• amazonka-ds.cabal +6/−8
• gen/Network/AWS/DirectoryService.hs +1/−3
• gen/Network/AWS/DirectoryService/ConnectDirectory.hs +2/−4
• gen/Network/AWS/DirectoryService/CreateAlias.hs +3/−8
• gen/Network/AWS/DirectoryService/CreateComputer.hs +4/−8
• gen/Network/AWS/DirectoryService/CreateConditionalForwarder.hs +5/−13
• gen/Network/AWS/DirectoryService/CreateDirectory.hs +2/−5
• gen/Network/AWS/DirectoryService/CreateMicrosoftAD.hs +3/−9
• gen/Network/AWS/DirectoryService/CreateSnapshot.hs +1/−2
• gen/Network/AWS/DirectoryService/CreateTrust.hs +7/−24
• gen/Network/AWS/DirectoryService/DeleteConditionalForwarder.hs +2/−4
• gen/Network/AWS/DirectoryService/DeleteTrust.hs +2/−4
• gen/Network/AWS/DirectoryService/DeregisterEventTopic.hs +4/−8
• gen/Network/AWS/DirectoryService/DescribeConditionalForwarders.hs +3/−7
• gen/Network/AWS/DirectoryService/DescribeDirectories.hs +8/−25
• gen/Network/AWS/DirectoryService/DescribeEventTopics.hs +5/−11
• gen/Network/AWS/DirectoryService/DescribeSnapshots.hs +8/−21
• gen/Network/AWS/DirectoryService/DescribeTrusts.hs +7/−20
• gen/Network/AWS/DirectoryService/DisableRadius.hs +1/−3
• gen/Network/AWS/DirectoryService/DisableSSO.hs +3/−11
• gen/Network/AWS/DirectoryService/EnableRadius.hs +2/−4
• gen/Network/AWS/DirectoryService/EnableSSO.hs +3/−11
• gen/Network/AWS/DirectoryService/GetDirectoryLimits.hs +1/−2
• gen/Network/AWS/DirectoryService/GetSnapshotLimits.hs +1/−2
• gen/Network/AWS/DirectoryService/RegisterEventTopic.hs +2/−8
• gen/Network/AWS/DirectoryService/RestoreFromSnapshot.hs +3/−9
• gen/Network/AWS/DirectoryService/Types.hs +3/−8
• gen/Network/AWS/DirectoryService/Types/Product.hs +32/−80
• gen/Network/AWS/DirectoryService/UpdateConditionalForwarder.hs +4/−8
• gen/Network/AWS/DirectoryService/UpdateRadius.hs +3/−6
• gen/Network/AWS/DirectoryService/VerifyTrust.hs +3/−6
• test/Test/AWS/Gen/DirectoryService.hs +174/−174

@@ -8,16 +8,14 @@  ## Version -`1.4.2`+`1.4.3`   ## Description  AWS Directory Service -This is the /AWS Directory Service API Reference/. This guide provides-detailed information about AWS Directory Service operations, data types,-parameters, and errors.+This is the /AWS Directory Service API Reference/. This guide provides detailed information about AWS Directory Service operations, data types, parameters, and errors.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-ds) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-ds-version:               1.4.2+version:               1.4.3 synopsis:              Amazon Directory Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -15,9 +15,7 @@ description:     AWS Directory Service -    This is the /AWS Directory Service API Reference/. This guide provides-    detailed information about AWS Directory Service operations, data types,-    parameters, and errors.+    This is the /AWS Directory Service API Reference/. This guide provides detailed information about AWS Directory Service operations, data types, parameters, and errors.     .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides@@ -82,7 +80,7 @@         , Network.AWS.DirectoryService.Types.Sum      build-depends:-          amazonka-core == 1.4.2.*+          amazonka-core == 1.4.3.*         , base          >= 4.7     && < 5  test-suite amazonka-ds-test@@ -102,9 +100,9 @@         , Test.AWS.DirectoryService.Internal      build-depends:-          amazonka-core == 1.4.2.*-        , amazonka-test == 1.4.2.*-        , amazonka-ds == 1.4.2.*+          amazonka-core == 1.4.3.*+        , amazonka-test == 1.4.3.*+        , amazonka-ds == 1.4.3.*         , base         , bytestring         , tasty

@@ -13,9 +13,7 @@ -- -- AWS Directory Service ----- This is the /AWS Directory Service API Reference/. This guide provides--- detailed information about AWS Directory Service operations, data types,--- parameters, and errors.+-- This is the /AWS Directory Service API Reference/. This guide provides detailed information about AWS Directory Service operations, data types, parameters, and errors. module Network.AWS.DirectoryService     (     -- * Service Configuration

@@ -98,8 +98,7 @@ 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'.+-- | 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}); @@ -111,8 +110,7 @@ cdSize :: Lens' ConnectDirectory DirectorySize cdSize = lens _cdSize (\ s a -> s{_cdSize = a}); --- | A < DirectoryConnectSettings> object that contains additional--- information for the operation.+-- | A < DirectoryConnectSettings> object that contains additional information for the operation. cdConnectSettings :: Lens' ConnectDirectory DirectoryConnectSettings cdConnectSettings = lens _cdConnectSettings (\ s a -> s{_cdConnectSettings = a}); 

@@ -18,12 +18,9 @@ -- 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'.+-- 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.+-- 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@@ -80,9 +77,7 @@  -- | The requested alias. ----- The alias must be unique amongst all aliases in AWS. This operation--- throws an 'EntityAlreadyExistsException' error if the alias already--- exists.+-- 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}); 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a computer account in the specified directory, and joins the--- computer to the directory.+-- Creates a computer account in the specified directory, and joins the computer to the directory. module Network.AWS.DirectoryService.CreateComputer     (     -- * Creating a Request@@ -85,13 +84,11 @@     , _ccPassword = _Sensitive # pPassword_     } --- | An array of < Attribute> objects that contain any LDAP attributes to--- apply to the computer account.+-- | 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.+-- | 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}); @@ -103,8 +100,7 @@ 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.+-- | 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; 

@@ -18,10 +18,7 @@ -- 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.+-- 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@@ -46,9 +43,7 @@ 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.+-- | 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'@@ -77,18 +72,15 @@     , _ccfDNSIPAddrs = mempty     } --- | The directory ID of the AWS directory for which you are creating the--- conditional forwarder.+-- | 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.+-- | 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.+-- | The IP addresses of the remote DNS server associated with RemoteDomainName. ccfDNSIPAddrs :: Lens' CreateConditionalForwarder [Text] ccfDNSIPAddrs = lens _ccfDNSIPAddrs (\ s a -> s{_ccfDNSIPAddrs = a}) . _Coerce; 

@@ -93,8 +93,7 @@ cShortName :: Lens' CreateDirectory (Maybe Text) cShortName = lens _cShortName (\ s a -> s{_cShortName = a}); --- | A < DirectoryVpcSettings> object that contains additional information--- for the operation.+-- | A < DirectoryVpcSettings> object that contains additional information for the operation. cVPCSettings :: Lens' CreateDirectory (Maybe DirectoryVPCSettings) cVPCSettings = lens _cVPCSettings (\ s a -> s{_cVPCSettings = a}); @@ -106,9 +105,7 @@ 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.+-- | 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; 

@@ -84,21 +84,15 @@     , _cmadVPCSettings = pVPCSettings_     } --- | 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'.+-- | 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.+-- | 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.+-- | 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}); 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a snapshot of a Simple AD or Microsoft AD directory in the AWS--- cloud.+-- Creates a snapshot of a Simple AD or Microsoft AD directory in the AWS cloud. -- -- You cannot take snapshots of AD Connector directories. module Network.AWS.DirectoryService.CreateSnapshot

@@ -18,16 +18,9 @@ -- 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.+-- 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.+-- 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@@ -56,16 +49,9 @@ 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.+-- | 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.+-- 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'@@ -116,18 +102,15 @@ 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.+-- | 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.+-- | 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.+-- | 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; 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a conditional forwarder that has been set up for your AWS--- directory.+-- Deletes a conditional forwarder that has been set up for your AWS directory. module Network.AWS.DirectoryService.DeleteConditionalForwarder     (     -- * Creating a Request@@ -70,8 +69,7 @@ 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.+-- | 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}); 

@@ -18,8 +18,7 @@ -- 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.+-- 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@@ -44,8 +43,7 @@ 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.+-- | 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'

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes the specified directory as a publisher to the specified SNS--- topic.+-- Removes the specified directory as a publisher to the specified SNS topic. module Network.AWS.DirectoryService.DeregisterEventTopic     (     -- * Creating a Request@@ -43,8 +42,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- | Removes the specified directory as a publisher to the specified SNS--- topic.+-- | Removes the specified directory as a publisher to the specified SNS topic. -- -- /See:/ 'deregisterEventTopic' smart constructor. data DeregisterEventTopic = DeregisterEventTopic'@@ -69,13 +67,11 @@     , _detTopicName = pTopicName_     } --- | The Directory ID to remove as a publisher. This directory will no longer--- send messages to the specified SNS topic.+-- | 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.+-- | 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}); 

@@ -20,8 +20,7 @@ -- -- 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.+-- 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@@ -68,14 +67,11 @@     , _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.+-- | 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.+-- | 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}); 

@@ -20,18 +20,11 @@ -- -- 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.+-- 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.+-- 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.+-- You can also specify a maximum number of return results with the /Limit/ parameter. module Network.AWS.DirectoryService.DescribeDirectories     (     -- * Creating a Request@@ -85,22 +78,17 @@     , _ddLimit = Nothing     } --- | The /DescribeDirectoriesResult.NextToken/ value from a previous call to--- < DescribeDirectories>. Pass null if this is the first call.+-- | 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.+-- | 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.+-- | 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; @@ -174,16 +162,11 @@  -- | 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.+-- 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.+-- | 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}); 

@@ -18,11 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Obtains information about which SNS topics receive status messages from--- the specified directory.+-- 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.+-- 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@@ -68,14 +66,11 @@     , _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.+-- | 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.+-- | 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]@@ -141,8 +136,7 @@     , _detrsResponseStatus = pResponseStatus_     } --- | A list of SNS topic names that receive status messages from the--- specified Directory ID.+-- | 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; 

@@ -18,16 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Obtains information about the directory snapshots that belong to this--- account.+-- 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.+-- 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.+-- You can also specify a maximum number of return results with the /Limit/ parameter. module Network.AWS.DirectoryService.DescribeSnapshots     (     -- * Creating a Request@@ -86,19 +81,15 @@     , _dsLimit = Nothing     } --- | The identifier of the directory for which to retrieve snapshot--- information.+-- | 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.+-- | 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.+-- | 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; @@ -174,17 +165,13 @@     , _dssrsResponseStatus = pResponseStatus_     } --- | If not null, more results are available. Pass this value in the--- /NextToken/ member of a subsequent call to < DescribeSnapshots>.+-- | 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.+-- 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; 

@@ -20,9 +20,7 @@ -- -- 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.+-- 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@@ -50,9 +48,7 @@ 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.+-- | 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'@@ -83,19 +79,15 @@     , _dtLimit = Nothing     } --- | The Directory ID of the AWS directory that is a part of the requested--- trust relationship.+-- | 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.+-- | 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.+-- | 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]@@ -170,18 +162,13 @@     , _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.+-- | 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.+-- 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; 

@@ -18,9 +18,7 @@ -- 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.+-- 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

@@ -71,21 +71,13 @@     , _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.+-- | 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.+-- 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.+-- | 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; 

@@ -18,8 +18,7 @@ -- 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.+-- 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@@ -72,8 +71,7 @@ erDirectoryId :: Lens' EnableRadius Text erDirectoryId = lens _erDirectoryId (\ s a -> s{_erDirectoryId = a}); --- | A < RadiusSettings> object that contains information about the RADIUS--- server.+-- | A < RadiusSettings> object that contains information about the RADIUS server. erRadiusSettings :: Lens' EnableRadius RadiusSettings erRadiusSettings = lens _erRadiusSettings (\ s a -> s{_erRadiusSettings = a}); 

@@ -71,21 +71,13 @@     , _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.+-- | 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.+-- 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.+-- | 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; 

@@ -110,8 +110,7 @@     , _gdlrsResponseStatus = pResponseStatus_     } --- | A < DirectoryLimits> object that contains the directory limits for the--- current region.+-- | 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}); 

@@ -124,8 +124,7 @@     , _gslrsResponseStatus = pResponseStatus_     } --- | A < SnapshotLimits> object that contains the manual snapshot limits for--- the specified directory.+-- | 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}); 

@@ -18,12 +18,7 @@ -- 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.+-- 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@@ -74,8 +69,7 @@ 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.+-- | 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}); 

@@ -20,14 +20,9 @@ -- -- 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.+-- 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.+-- 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@@ -50,8 +45,7 @@ import           Network.AWS.Request import           Network.AWS.Response --- | An object representing the inputs for the < RestoreFromSnapshot>--- operation.+-- | An object representing the inputs for the < RestoreFromSnapshot> operation. -- -- /See:/ 'restoreFromSnapshot' smart constructor. newtype RestoreFromSnapshot = RestoreFromSnapshot'

@@ -270,9 +270,7 @@ _EntityAlreadyExistsException =     _ServiceError . hasCode "EntityAlreadyExistsException" --- | The maximum number of directories in the region has been reached. You--- can use the < GetDirectoryLimits> operation to determine your directory--- limits in the region.+-- | The maximum number of directories in the region has been reached. You can use the < GetDirectoryLimits> operation to determine your directory limits in the region. _DirectoryLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _DirectoryLimitExceededException =     _ServiceError . hasCode "DirectoryLimitExceededException"@@ -282,8 +280,7 @@ _EntityDoesNotExistException =     _ServiceError . hasCode "EntityDoesNotExistException" --- | The account does not have sufficient permission to perform the--- operation.+-- | The account does not have sufficient permission to perform the operation. _InsufficientPermissionsException :: AsError a => Getting (First ServiceError) a ServiceError _InsufficientPermissionsException =     _ServiceError . hasCode "InsufficientPermissionsException"@@ -297,9 +294,7 @@ _ServiceException :: AsError a => Getting (First ServiceError) a ServiceError _ServiceException = _ServiceError . hasCode "ServiceException" --- | The maximum number of manual snapshots for the directory has been--- reached. You can use the < GetSnapshotLimits> operation to determine the--- snapshot limits for a directory.+-- | The maximum number of manual snapshots for the directory has been reached. You can use the < GetSnapshotLimits> operation to determine the snapshot limits for a directory. _SnapshotLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _SnapshotLimitExceededException =     _ServiceError . hasCode "SnapshotLimitExceededException"

@@ -99,8 +99,7 @@ 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.+-- | 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; @@ -121,9 +120,7 @@  instance NFData Computer --- | 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.+-- | 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'@@ -150,20 +147,15 @@     , _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.+-- | 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.+-- | 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.+-- | 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}); @@ -180,8 +172,7 @@  instance NFData ConditionalForwarder --- | Contains information for the < ConnectDirectory> operation when an AD--- Connector directory is being created.+-- | Contains information for the < ConnectDirectory> operation when an AD Connector directory is being created. -- -- /See:/ 'directoryConnectSettings' smart constructor. data DirectoryConnectSettings = DirectoryConnectSettings'@@ -218,19 +209,15 @@ 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.+-- | 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.+-- | 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:+-- | 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@@ -430,10 +417,7 @@ ddDirectoryId :: Lens' DirectoryDescription (Maybe Text) ddDirectoryId = lens _ddDirectoryId (\ s a -> s{_ddDirectoryId = a}); --- | The access URL for the directory, such as--- 'http:\/\/&#x3C;alias&#x3E;.awsapps.com'. If no alias has been created--- for the directory, '&#x3C;alias&#x3E;' is the directory identifier, such--- as 'd-XXXXXXXXXX'.+-- | The access URL for the directory, such as 'http:\/\/&#x3C;alias&#x3E;.awsapps.com'. If no alias has been created for the directory, '&#x3C;alias&#x3E;' is the directory identifier, such as 'd-XXXXXXXXXX'. ddAccessURL :: Lens' DirectoryDescription (Maybe Text) ddAccessURL = lens _ddAccessURL (\ s a -> s{_ddAccessURL = a}); @@ -445,8 +429,7 @@ ddSize :: Lens' DirectoryDescription (Maybe DirectorySize) ddSize = lens _ddSize (\ s a -> s{_ddSize = a}); --- | A < RadiusSettings> object that contains information about the RADIUS--- server configured for this directory.+-- | 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}); @@ -454,9 +437,7 @@ 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'.+-- | 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}); @@ -468,22 +449,15 @@ 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>.+-- | 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.+-- | 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.+-- | 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}); @@ -495,9 +469,7 @@ 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.+-- | 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}); @@ -638,8 +610,7 @@  instance NFData DirectoryLimits --- | Contains VPC information for the < CreateDirectory> or--- < CreateMicrosoftAD> operation.+-- | Contains VPC information for the < CreateDirectory> or < CreateMicrosoftAD> operation. -- -- /See:/ 'directoryVPCSettings' smart constructor. data DirectoryVPCSettings = DirectoryVPCSettings'@@ -667,9 +638,7 @@ 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.+-- | 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; @@ -723,10 +692,7 @@ dvsdVPCId :: Lens' DirectoryVPCSettingsDescription (Maybe Text) dvsdVPCId = lens _dvsdVPCId (\ s a -> s{_dvsdVPCId = a}); --- | The security group identifier for the directory. If the directory was--- created before 8\/1\/2014, this is the identifier of the directory--- members security group that was created when the directory was created.--- If the directory was created after this date, this value is null.+-- | The security group identifier for the directory. If the directory was created before 8\/1\/2014, this is the identifier of the directory members security group that was created when the directory was created. If the directory was created after this date, this value is null. dvsdSecurityGroupId :: Lens' DirectoryVPCSettingsDescription (Maybe Text) dvsdSecurityGroupId = lens _dvsdSecurityGroupId (\ s a -> s{_dvsdSecurityGroupId = a}); @@ -748,8 +714,7 @@  instance NFData DirectoryVPCSettingsDescription --- | Information about SNS topic and AWS Directory Service directory--- associations.+-- | Information about SNS topic and AWS Directory Service directory associations. -- -- /See:/ 'eventTopic' smart constructor. data EventTopic = EventTopic'@@ -788,13 +753,11 @@ 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.+-- | 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.+-- | 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}); @@ -802,8 +765,7 @@ 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.+-- | 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; @@ -821,8 +783,7 @@  instance NFData EventTopic --- | Contains information about a Remote Authentication Dial In User Service--- (RADIUS) server.+-- | Contains information about a Remote Authentication Dial In User Service (RADIUS) server. -- -- /See:/ 'radiusSettings' smart constructor. data RadiusSettings = RadiusSettings'@@ -873,8 +834,7 @@ 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.+-- | 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; @@ -882,8 +842,7 @@ 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.+-- | 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; @@ -891,19 +850,15 @@ rsUseSameUsername :: Lens' RadiusSettings (Maybe Bool) rsUseSameUsername = lens _rsUseSameUsername (\ s a -> s{_rsUseSameUsername = a}); --- | The shared secret code that was specified when your RADIUS endpoints--- were created.+-- | The shared secret code that was specified when your RADIUS endpoints were created. 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.+-- | 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.+-- | 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; @@ -1068,8 +1023,7 @@  instance NFData SnapshotLimits --- | Describes a trust relationship between an Microsoft AD in the AWS cloud--- and an external domain.+-- | Describes a trust relationship between an Microsoft AD in the AWS cloud and an external domain. -- -- /See:/ 'trust' smart constructor. data Trust = Trust'@@ -1124,8 +1078,7 @@     , _tCreatedDateTime = Nothing     } --- | The Directory ID of the AWS directory involved in the trust--- relationship.+-- | 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}); @@ -1153,8 +1106,7 @@ 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.+-- | 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}); 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates a conditional forwarder that has been set up for your AWS--- directory.+-- Updates a conditional forwarder that has been set up for your AWS directory. module Network.AWS.DirectoryService.UpdateConditionalForwarder     (     -- * Creating a Request@@ -71,18 +70,15 @@     , _ucfDNSIPAddrs = mempty     } --- | The directory ID of the AWS directory for which to update the--- conditional forwarder.+-- | 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.+-- | 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.+-- | 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; 

@@ -18,8 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates the Remote Authentication Dial In User Service (RADIUS) server--- information for an AD Connector directory.+-- Updates the Remote Authentication Dial In User Service (RADIUS) server information for an AD Connector directory. module Network.AWS.DirectoryService.UpdateRadius     (     -- * Creating a Request@@ -68,13 +67,11 @@     , _urRadiusSettings = pRadiusSettings_     } --- | The identifier of the directory for which to update the RADIUS server--- information.+-- | 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.+-- | A < RadiusSettings> object that contains information about the RADIUS server. urRadiusSettings :: Lens' UpdateRadius RadiusSettings urRadiusSettings = lens _urRadiusSettings (\ s a -> s{_urRadiusSettings = a}); 

@@ -18,11 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- AWS Directory Service for Microsoft Active Directory allows you to--- configure and verify trust relationships.+-- 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.+-- 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@@ -46,8 +44,7 @@ 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.+-- | 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'

@@ -28,181 +28,181 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testDescribeConditionalForwarders $+--         [ requestDescribeConditionalForwarders $ --             describeConditionalForwarders -----         , testGetSnapshotLimits $+--         , requestGetSnapshotLimits $ --             getSnapshotLimits -----         , testRegisterEventTopic $+--         , requestRegisterEventTopic $ --             registerEventTopic -----         , testConnectDirectory $+--         , requestConnectDirectory $ --             connectDirectory -----         , testCreateAlias $+--         , requestCreateAlias $ --             createAlias -----         , testDescribeDirectories $+--         , requestDescribeDirectories $ --             describeDirectories -----         , testDescribeTrusts $+--         , requestDescribeTrusts $ --             describeTrusts -----         , testDeleteTrust $+--         , requestDeleteTrust $ --             deleteTrust -----         , testCreateMicrosoftAD $+--         , requestCreateMicrosoftAD $ --             createMicrosoftAD -----         , testDeregisterEventTopic $+--         , requestDeregisterEventTopic $ --             deregisterEventTopic -----         , testCreateDirectory $+--         , requestCreateDirectory $ --             createDirectory -----         , testDescribeEventTopics $+--         , requestDescribeEventTopics $ --             describeEventTopics -----         , testUpdateConditionalForwarder $+--         , requestUpdateConditionalForwarder $ --             updateConditionalForwarder -----         , testDeleteConditionalForwarder $+--         , requestDeleteConditionalForwarder $ --             deleteConditionalForwarder -----         , testEnableSSO $+--         , requestEnableSSO $ --             enableSSO -----         , testEnableRadius $+--         , requestEnableRadius $ --             enableRadius -----         , testDisableRadius $+--         , requestDisableRadius $ --             disableRadius -----         , testRestoreFromSnapshot $+--         , requestRestoreFromSnapshot $ --             restoreFromSnapshot -----         , testDescribeSnapshots $+--         , requestDescribeSnapshots $ --             describeSnapshots -----         , testDeleteSnapshot $+--         , requestDeleteSnapshot $ --             deleteSnapshot -----         , testCreateTrust $+--         , requestCreateTrust $ --             createTrust -----         , testDeleteDirectory $+--         , requestDeleteDirectory $ --             deleteDirectory -----         , testCreateSnapshot $+--         , requestCreateSnapshot $ --             createSnapshot -----         , testCreateComputer $+--         , requestCreateComputer $ --             createComputer -----         , testDisableSSO $+--         , requestDisableSSO $ --             disableSSO -----         , testVerifyTrust $+--         , requestVerifyTrust $ --             verifyTrust -----         , testCreateConditionalForwarder $+--         , requestCreateConditionalForwarder $ --             createConditionalForwarder -----         , testGetDirectoryLimits $+--         , requestGetDirectoryLimits $ --             getDirectoryLimits -----         , testUpdateRadius $+--         , requestUpdateRadius $ --             updateRadius -- --           ]  --     , testGroup "response"---         [ testDescribeConditionalForwardersResponse $+--         [ responseDescribeConditionalForwarders $ --             describeConditionalForwardersResponse -----         , testGetSnapshotLimitsResponse $+--         , responseGetSnapshotLimits $ --             getSnapshotLimitsResponse -----         , testRegisterEventTopicResponse $+--         , responseRegisterEventTopic $ --             registerEventTopicResponse -----         , testConnectDirectoryResponse $+--         , responseConnectDirectory $ --             connectDirectoryResponse -----         , testCreateAliasResponse $+--         , responseCreateAlias $ --             createAliasResponse -----         , testDescribeDirectoriesResponse $+--         , responseDescribeDirectories $ --             describeDirectoriesResponse -----         , testDescribeTrustsResponse $+--         , responseDescribeTrusts $ --             describeTrustsResponse -----         , testDeleteTrustResponse $+--         , responseDeleteTrust $ --             deleteTrustResponse -----         , testCreateMicrosoftADResponse $+--         , responseCreateMicrosoftAD $ --             createMicrosoftADResponse -----         , testDeregisterEventTopicResponse $+--         , responseDeregisterEventTopic $ --             deregisterEventTopicResponse -----         , testCreateDirectoryResponse $+--         , responseCreateDirectory $ --             createDirectoryResponse -----         , testDescribeEventTopicsResponse $+--         , responseDescribeEventTopics $ --             describeEventTopicsResponse -----         , testUpdateConditionalForwarderResponse $+--         , responseUpdateConditionalForwarder $ --             updateConditionalForwarderResponse -----         , testDeleteConditionalForwarderResponse $+--         , responseDeleteConditionalForwarder $ --             deleteConditionalForwarderResponse -----         , testEnableSSOResponse $+--         , responseEnableSSO $ --             enableSSOResponse -----         , testEnableRadiusResponse $+--         , responseEnableRadius $ --             enableRadiusResponse -----         , testDisableRadiusResponse $+--         , responseDisableRadius $ --             disableRadiusResponse -----         , testRestoreFromSnapshotResponse $+--         , responseRestoreFromSnapshot $ --             restoreFromSnapshotResponse -----         , testDescribeSnapshotsResponse $+--         , responseDescribeSnapshots $ --             describeSnapshotsResponse -----         , testDeleteSnapshotResponse $+--         , responseDeleteSnapshot $ --             deleteSnapshotResponse -----         , testCreateTrustResponse $+--         , responseCreateTrust $ --             createTrustResponse -----         , testDeleteDirectoryResponse $+--         , responseDeleteDirectory $ --             deleteDirectoryResponse -----         , testCreateSnapshotResponse $+--         , responseCreateSnapshot $ --             createSnapshotResponse -----         , testCreateComputerResponse $+--         , responseCreateComputer $ --             createComputerResponse -----         , testDisableSSOResponse $+--         , responseDisableSSO $ --             disableSSOResponse -----         , testVerifyTrustResponse $+--         , responseVerifyTrust $ --             verifyTrustResponse -----         , testCreateConditionalForwarderResponse $+--         , responseCreateConditionalForwarder $ --             createConditionalForwarderResponse -----         , testGetDirectoryLimitsResponse $+--         , responseGetDirectoryLimits $ --             getDirectoryLimitsResponse -----         , testUpdateRadiusResponse $+--         , responseUpdateRadius $ --             updateRadiusResponse -- --           ]@@ -210,351 +210,351 @@  -- Requests -testDescribeConditionalForwarders :: DescribeConditionalForwarders -> TestTree-testDescribeConditionalForwarders = req+requestDescribeConditionalForwarders :: DescribeConditionalForwarders -> TestTree+requestDescribeConditionalForwarders = req     "DescribeConditionalForwarders"     "fixture/DescribeConditionalForwarders.yaml" -testGetSnapshotLimits :: GetSnapshotLimits -> TestTree-testGetSnapshotLimits = req+requestGetSnapshotLimits :: GetSnapshotLimits -> TestTree+requestGetSnapshotLimits = req     "GetSnapshotLimits"     "fixture/GetSnapshotLimits.yaml" -testRegisterEventTopic :: RegisterEventTopic -> TestTree-testRegisterEventTopic = req+requestRegisterEventTopic :: RegisterEventTopic -> TestTree+requestRegisterEventTopic = req     "RegisterEventTopic"     "fixture/RegisterEventTopic.yaml" -testConnectDirectory :: ConnectDirectory -> TestTree-testConnectDirectory = req+requestConnectDirectory :: ConnectDirectory -> TestTree+requestConnectDirectory = req     "ConnectDirectory"     "fixture/ConnectDirectory.yaml" -testCreateAlias :: CreateAlias -> TestTree-testCreateAlias = req+requestCreateAlias :: CreateAlias -> TestTree+requestCreateAlias = req     "CreateAlias"     "fixture/CreateAlias.yaml" -testDescribeDirectories :: DescribeDirectories -> TestTree-testDescribeDirectories = req+requestDescribeDirectories :: DescribeDirectories -> TestTree+requestDescribeDirectories = req     "DescribeDirectories"     "fixture/DescribeDirectories.yaml" -testDescribeTrusts :: DescribeTrusts -> TestTree-testDescribeTrusts = req+requestDescribeTrusts :: DescribeTrusts -> TestTree+requestDescribeTrusts = req     "DescribeTrusts"     "fixture/DescribeTrusts.yaml" -testDeleteTrust :: DeleteTrust -> TestTree-testDeleteTrust = req+requestDeleteTrust :: DeleteTrust -> TestTree+requestDeleteTrust = req     "DeleteTrust"     "fixture/DeleteTrust.yaml" -testCreateMicrosoftAD :: CreateMicrosoftAD -> TestTree-testCreateMicrosoftAD = req+requestCreateMicrosoftAD :: CreateMicrosoftAD -> TestTree+requestCreateMicrosoftAD = req     "CreateMicrosoftAD"     "fixture/CreateMicrosoftAD.yaml" -testDeregisterEventTopic :: DeregisterEventTopic -> TestTree-testDeregisterEventTopic = req+requestDeregisterEventTopic :: DeregisterEventTopic -> TestTree+requestDeregisterEventTopic = req     "DeregisterEventTopic"     "fixture/DeregisterEventTopic.yaml" -testCreateDirectory :: CreateDirectory -> TestTree-testCreateDirectory = req+requestCreateDirectory :: CreateDirectory -> TestTree+requestCreateDirectory = req     "CreateDirectory"     "fixture/CreateDirectory.yaml" -testDescribeEventTopics :: DescribeEventTopics -> TestTree-testDescribeEventTopics = req+requestDescribeEventTopics :: DescribeEventTopics -> TestTree+requestDescribeEventTopics = req     "DescribeEventTopics"     "fixture/DescribeEventTopics.yaml" -testUpdateConditionalForwarder :: UpdateConditionalForwarder -> TestTree-testUpdateConditionalForwarder = req+requestUpdateConditionalForwarder :: UpdateConditionalForwarder -> TestTree+requestUpdateConditionalForwarder = req     "UpdateConditionalForwarder"     "fixture/UpdateConditionalForwarder.yaml" -testDeleteConditionalForwarder :: DeleteConditionalForwarder -> TestTree-testDeleteConditionalForwarder = req+requestDeleteConditionalForwarder :: DeleteConditionalForwarder -> TestTree+requestDeleteConditionalForwarder = req     "DeleteConditionalForwarder"     "fixture/DeleteConditionalForwarder.yaml" -testEnableSSO :: EnableSSO -> TestTree-testEnableSSO = req+requestEnableSSO :: EnableSSO -> TestTree+requestEnableSSO = req     "EnableSSO"     "fixture/EnableSSO.yaml" -testEnableRadius :: EnableRadius -> TestTree-testEnableRadius = req+requestEnableRadius :: EnableRadius -> TestTree+requestEnableRadius = req     "EnableRadius"     "fixture/EnableRadius.yaml" -testDisableRadius :: DisableRadius -> TestTree-testDisableRadius = req+requestDisableRadius :: DisableRadius -> TestTree+requestDisableRadius = req     "DisableRadius"     "fixture/DisableRadius.yaml" -testRestoreFromSnapshot :: RestoreFromSnapshot -> TestTree-testRestoreFromSnapshot = req+requestRestoreFromSnapshot :: RestoreFromSnapshot -> TestTree+requestRestoreFromSnapshot = req     "RestoreFromSnapshot"     "fixture/RestoreFromSnapshot.yaml" -testDescribeSnapshots :: DescribeSnapshots -> TestTree-testDescribeSnapshots = req+requestDescribeSnapshots :: DescribeSnapshots -> TestTree+requestDescribeSnapshots = req     "DescribeSnapshots"     "fixture/DescribeSnapshots.yaml" -testDeleteSnapshot :: DeleteSnapshot -> TestTree-testDeleteSnapshot = req+requestDeleteSnapshot :: DeleteSnapshot -> TestTree+requestDeleteSnapshot = req     "DeleteSnapshot"     "fixture/DeleteSnapshot.yaml" -testCreateTrust :: CreateTrust -> TestTree-testCreateTrust = req+requestCreateTrust :: CreateTrust -> TestTree+requestCreateTrust = req     "CreateTrust"     "fixture/CreateTrust.yaml" -testDeleteDirectory :: DeleteDirectory -> TestTree-testDeleteDirectory = req+requestDeleteDirectory :: DeleteDirectory -> TestTree+requestDeleteDirectory = req     "DeleteDirectory"     "fixture/DeleteDirectory.yaml" -testCreateSnapshot :: CreateSnapshot -> TestTree-testCreateSnapshot = req+requestCreateSnapshot :: CreateSnapshot -> TestTree+requestCreateSnapshot = req     "CreateSnapshot"     "fixture/CreateSnapshot.yaml" -testCreateComputer :: CreateComputer -> TestTree-testCreateComputer = req+requestCreateComputer :: CreateComputer -> TestTree+requestCreateComputer = req     "CreateComputer"     "fixture/CreateComputer.yaml" -testDisableSSO :: DisableSSO -> TestTree-testDisableSSO = req+requestDisableSSO :: DisableSSO -> TestTree+requestDisableSSO = req     "DisableSSO"     "fixture/DisableSSO.yaml" -testVerifyTrust :: VerifyTrust -> TestTree-testVerifyTrust = req+requestVerifyTrust :: VerifyTrust -> TestTree+requestVerifyTrust = req     "VerifyTrust"     "fixture/VerifyTrust.yaml" -testCreateConditionalForwarder :: CreateConditionalForwarder -> TestTree-testCreateConditionalForwarder = req+requestCreateConditionalForwarder :: CreateConditionalForwarder -> TestTree+requestCreateConditionalForwarder = req     "CreateConditionalForwarder"     "fixture/CreateConditionalForwarder.yaml" -testGetDirectoryLimits :: GetDirectoryLimits -> TestTree-testGetDirectoryLimits = req+requestGetDirectoryLimits :: GetDirectoryLimits -> TestTree+requestGetDirectoryLimits = req     "GetDirectoryLimits"     "fixture/GetDirectoryLimits.yaml" -testUpdateRadius :: UpdateRadius -> TestTree-testUpdateRadius = req+requestUpdateRadius :: UpdateRadius -> TestTree+requestUpdateRadius = req     "UpdateRadius"     "fixture/UpdateRadius.yaml"  -- Responses -testDescribeConditionalForwardersResponse :: DescribeConditionalForwardersResponse -> TestTree-testDescribeConditionalForwardersResponse = res+responseDescribeConditionalForwarders :: DescribeConditionalForwardersResponse -> TestTree+responseDescribeConditionalForwarders = res     "DescribeConditionalForwardersResponse"     "fixture/DescribeConditionalForwardersResponse.proto"     directoryService     (Proxy :: Proxy DescribeConditionalForwarders) -testGetSnapshotLimitsResponse :: GetSnapshotLimitsResponse -> TestTree-testGetSnapshotLimitsResponse = res+responseGetSnapshotLimits :: GetSnapshotLimitsResponse -> TestTree+responseGetSnapshotLimits = res     "GetSnapshotLimitsResponse"     "fixture/GetSnapshotLimitsResponse.proto"     directoryService     (Proxy :: Proxy GetSnapshotLimits) -testRegisterEventTopicResponse :: RegisterEventTopicResponse -> TestTree-testRegisterEventTopicResponse = res+responseRegisterEventTopic :: RegisterEventTopicResponse -> TestTree+responseRegisterEventTopic = res     "RegisterEventTopicResponse"     "fixture/RegisterEventTopicResponse.proto"     directoryService     (Proxy :: Proxy RegisterEventTopic) -testConnectDirectoryResponse :: ConnectDirectoryResponse -> TestTree-testConnectDirectoryResponse = res+responseConnectDirectory :: ConnectDirectoryResponse -> TestTree+responseConnectDirectory = res     "ConnectDirectoryResponse"     "fixture/ConnectDirectoryResponse.proto"     directoryService     (Proxy :: Proxy ConnectDirectory) -testCreateAliasResponse :: CreateAliasResponse -> TestTree-testCreateAliasResponse = res+responseCreateAlias :: CreateAliasResponse -> TestTree+responseCreateAlias = res     "CreateAliasResponse"     "fixture/CreateAliasResponse.proto"     directoryService     (Proxy :: Proxy CreateAlias) -testDescribeDirectoriesResponse :: DescribeDirectoriesResponse -> TestTree-testDescribeDirectoriesResponse = res+responseDescribeDirectories :: DescribeDirectoriesResponse -> TestTree+responseDescribeDirectories = res     "DescribeDirectoriesResponse"     "fixture/DescribeDirectoriesResponse.proto"     directoryService     (Proxy :: Proxy DescribeDirectories) -testDescribeTrustsResponse :: DescribeTrustsResponse -> TestTree-testDescribeTrustsResponse = res+responseDescribeTrusts :: DescribeTrustsResponse -> TestTree+responseDescribeTrusts = res     "DescribeTrustsResponse"     "fixture/DescribeTrustsResponse.proto"     directoryService     (Proxy :: Proxy DescribeTrusts) -testDeleteTrustResponse :: DeleteTrustResponse -> TestTree-testDeleteTrustResponse = res+responseDeleteTrust :: DeleteTrustResponse -> TestTree+responseDeleteTrust = res     "DeleteTrustResponse"     "fixture/DeleteTrustResponse.proto"     directoryService     (Proxy :: Proxy DeleteTrust) -testCreateMicrosoftADResponse :: CreateMicrosoftADResponse -> TestTree-testCreateMicrosoftADResponse = res+responseCreateMicrosoftAD :: CreateMicrosoftADResponse -> TestTree+responseCreateMicrosoftAD = res     "CreateMicrosoftADResponse"     "fixture/CreateMicrosoftADResponse.proto"     directoryService     (Proxy :: Proxy CreateMicrosoftAD) -testDeregisterEventTopicResponse :: DeregisterEventTopicResponse -> TestTree-testDeregisterEventTopicResponse = res+responseDeregisterEventTopic :: DeregisterEventTopicResponse -> TestTree+responseDeregisterEventTopic = res     "DeregisterEventTopicResponse"     "fixture/DeregisterEventTopicResponse.proto"     directoryService     (Proxy :: Proxy DeregisterEventTopic) -testCreateDirectoryResponse :: CreateDirectoryResponse -> TestTree-testCreateDirectoryResponse = res+responseCreateDirectory :: CreateDirectoryResponse -> TestTree+responseCreateDirectory = res     "CreateDirectoryResponse"     "fixture/CreateDirectoryResponse.proto"     directoryService     (Proxy :: Proxy CreateDirectory) -testDescribeEventTopicsResponse :: DescribeEventTopicsResponse -> TestTree-testDescribeEventTopicsResponse = res+responseDescribeEventTopics :: DescribeEventTopicsResponse -> TestTree+responseDescribeEventTopics = res     "DescribeEventTopicsResponse"     "fixture/DescribeEventTopicsResponse.proto"     directoryService     (Proxy :: Proxy DescribeEventTopics) -testUpdateConditionalForwarderResponse :: UpdateConditionalForwarderResponse -> TestTree-testUpdateConditionalForwarderResponse = res+responseUpdateConditionalForwarder :: UpdateConditionalForwarderResponse -> TestTree+responseUpdateConditionalForwarder = res     "UpdateConditionalForwarderResponse"     "fixture/UpdateConditionalForwarderResponse.proto"     directoryService     (Proxy :: Proxy UpdateConditionalForwarder) -testDeleteConditionalForwarderResponse :: DeleteConditionalForwarderResponse -> TestTree-testDeleteConditionalForwarderResponse = res+responseDeleteConditionalForwarder :: DeleteConditionalForwarderResponse -> TestTree+responseDeleteConditionalForwarder = res     "DeleteConditionalForwarderResponse"     "fixture/DeleteConditionalForwarderResponse.proto"     directoryService     (Proxy :: Proxy DeleteConditionalForwarder) -testEnableSSOResponse :: EnableSSOResponse -> TestTree-testEnableSSOResponse = res+responseEnableSSO :: EnableSSOResponse -> TestTree+responseEnableSSO = res     "EnableSSOResponse"     "fixture/EnableSSOResponse.proto"     directoryService     (Proxy :: Proxy EnableSSO) -testEnableRadiusResponse :: EnableRadiusResponse -> TestTree-testEnableRadiusResponse = res+responseEnableRadius :: EnableRadiusResponse -> TestTree+responseEnableRadius = res     "EnableRadiusResponse"     "fixture/EnableRadiusResponse.proto"     directoryService     (Proxy :: Proxy EnableRadius) -testDisableRadiusResponse :: DisableRadiusResponse -> TestTree-testDisableRadiusResponse = res+responseDisableRadius :: DisableRadiusResponse -> TestTree+responseDisableRadius = res     "DisableRadiusResponse"     "fixture/DisableRadiusResponse.proto"     directoryService     (Proxy :: Proxy DisableRadius) -testRestoreFromSnapshotResponse :: RestoreFromSnapshotResponse -> TestTree-testRestoreFromSnapshotResponse = res+responseRestoreFromSnapshot :: RestoreFromSnapshotResponse -> TestTree+responseRestoreFromSnapshot = res     "RestoreFromSnapshotResponse"     "fixture/RestoreFromSnapshotResponse.proto"     directoryService     (Proxy :: Proxy RestoreFromSnapshot) -testDescribeSnapshotsResponse :: DescribeSnapshotsResponse -> TestTree-testDescribeSnapshotsResponse = res+responseDescribeSnapshots :: DescribeSnapshotsResponse -> TestTree+responseDescribeSnapshots = res     "DescribeSnapshotsResponse"     "fixture/DescribeSnapshotsResponse.proto"     directoryService     (Proxy :: Proxy DescribeSnapshots) -testDeleteSnapshotResponse :: DeleteSnapshotResponse -> TestTree-testDeleteSnapshotResponse = res+responseDeleteSnapshot :: DeleteSnapshotResponse -> TestTree+responseDeleteSnapshot = res     "DeleteSnapshotResponse"     "fixture/DeleteSnapshotResponse.proto"     directoryService     (Proxy :: Proxy DeleteSnapshot) -testCreateTrustResponse :: CreateTrustResponse -> TestTree-testCreateTrustResponse = res+responseCreateTrust :: CreateTrustResponse -> TestTree+responseCreateTrust = res     "CreateTrustResponse"     "fixture/CreateTrustResponse.proto"     directoryService     (Proxy :: Proxy CreateTrust) -testDeleteDirectoryResponse :: DeleteDirectoryResponse -> TestTree-testDeleteDirectoryResponse = res+responseDeleteDirectory :: DeleteDirectoryResponse -> TestTree+responseDeleteDirectory = res     "DeleteDirectoryResponse"     "fixture/DeleteDirectoryResponse.proto"     directoryService     (Proxy :: Proxy DeleteDirectory) -testCreateSnapshotResponse :: CreateSnapshotResponse -> TestTree-testCreateSnapshotResponse = res+responseCreateSnapshot :: CreateSnapshotResponse -> TestTree+responseCreateSnapshot = res     "CreateSnapshotResponse"     "fixture/CreateSnapshotResponse.proto"     directoryService     (Proxy :: Proxy CreateSnapshot) -testCreateComputerResponse :: CreateComputerResponse -> TestTree-testCreateComputerResponse = res+responseCreateComputer :: CreateComputerResponse -> TestTree+responseCreateComputer = res     "CreateComputerResponse"     "fixture/CreateComputerResponse.proto"     directoryService     (Proxy :: Proxy CreateComputer) -testDisableSSOResponse :: DisableSSOResponse -> TestTree-testDisableSSOResponse = res+responseDisableSSO :: DisableSSOResponse -> TestTree+responseDisableSSO = res     "DisableSSOResponse"     "fixture/DisableSSOResponse.proto"     directoryService     (Proxy :: Proxy DisableSSO) -testVerifyTrustResponse :: VerifyTrustResponse -> TestTree-testVerifyTrustResponse = res+responseVerifyTrust :: VerifyTrustResponse -> TestTree+responseVerifyTrust = res     "VerifyTrustResponse"     "fixture/VerifyTrustResponse.proto"     directoryService     (Proxy :: Proxy VerifyTrust) -testCreateConditionalForwarderResponse :: CreateConditionalForwarderResponse -> TestTree-testCreateConditionalForwarderResponse = res+responseCreateConditionalForwarder :: CreateConditionalForwarderResponse -> TestTree+responseCreateConditionalForwarder = res     "CreateConditionalForwarderResponse"     "fixture/CreateConditionalForwarderResponse.proto"     directoryService     (Proxy :: Proxy CreateConditionalForwarder) -testGetDirectoryLimitsResponse :: GetDirectoryLimitsResponse -> TestTree-testGetDirectoryLimitsResponse = res+responseGetDirectoryLimits :: GetDirectoryLimitsResponse -> TestTree+responseGetDirectoryLimits = res     "GetDirectoryLimitsResponse"     "fixture/GetDirectoryLimitsResponse.proto"     directoryService     (Proxy :: Proxy GetDirectoryLimits) -testUpdateRadiusResponse :: UpdateRadiusResponse -> TestTree-testUpdateRadiusResponse = res+responseUpdateRadius :: UpdateRadiusResponse -> TestTree+responseUpdateRadius = res     "UpdateRadiusResponse"     "fixture/UpdateRadiusResponse.proto"     directoryService