amazonka-ds 1.5.0 → 1.6.0

raw patch · 51 files changed

+705/−631 lines, 51 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ds.cabal +5/−5
• gen/Network/AWS/DirectoryService.hs +6/−2
• gen/Network/AWS/DirectoryService/AddIPRoutes.hs +9/−9
• gen/Network/AWS/DirectoryService/AddTagsToResource.hs +4/−4
• gen/Network/AWS/DirectoryService/CancelSchemaExtension.hs +7/−5
• gen/Network/AWS/DirectoryService/ConnectDirectory.hs +17/−17
• gen/Network/AWS/DirectoryService/CreateAlias.hs +10/−10
• gen/Network/AWS/DirectoryService/CreateComputer.hs +15/−15
• gen/Network/AWS/DirectoryService/CreateConditionalForwarder.hs +9/−9
• gen/Network/AWS/DirectoryService/CreateDirectory.hs +17/−17
• gen/Network/AWS/DirectoryService/CreateMicrosoftAD.hs +27/−17
• gen/Network/AWS/DirectoryService/CreateSnapshot.hs +6/−6
• gen/Network/AWS/DirectoryService/CreateTrust.hs +17/−17
• gen/Network/AWS/DirectoryService/DeleteConditionalForwarder.hs +5/−5
• gen/Network/AWS/DirectoryService/DeleteDirectory.hs +5/−5
• gen/Network/AWS/DirectoryService/DeleteSnapshot.hs +5/−5
• gen/Network/AWS/DirectoryService/DeleteTrust.hs +7/−7
• gen/Network/AWS/DirectoryService/DeregisterEventTopic.hs +5/−5
• gen/Network/AWS/DirectoryService/DescribeConditionalForwarders.hs +9/−9
• gen/Network/AWS/DirectoryService/DescribeDirectories.hs +12/−12
• gen/Network/AWS/DirectoryService/DescribeDomainControllers.hs +27/−17
• gen/Network/AWS/DirectoryService/DescribeEventTopics.hs +6/−6
• gen/Network/AWS/DirectoryService/DescribeSnapshots.hs +17/−17
• gen/Network/AWS/DirectoryService/DescribeTrusts.hs +17/−17
• gen/Network/AWS/DirectoryService/DisableRadius.hs +3/−3
• gen/Network/AWS/DirectoryService/DisableSSO.hs +9/−9
• gen/Network/AWS/DirectoryService/EnableRadius.hs +5/−5
• gen/Network/AWS/DirectoryService/EnableSSO.hs +9/−6
• gen/Network/AWS/DirectoryService/GetDirectoryLimits.hs +4/−4
• gen/Network/AWS/DirectoryService/GetSnapshotLimits.hs +5/−5
• gen/Network/AWS/DirectoryService/ListIPRoutes.hs +15/−15
• gen/Network/AWS/DirectoryService/ListSchemaExtensions.hs +15/−15
• gen/Network/AWS/DirectoryService/ListTagsForResource.hs +15/−15
• gen/Network/AWS/DirectoryService/RegisterEventTopic.hs +5/−5
• gen/Network/AWS/DirectoryService/RemoveIPRoutes.hs +4/−4
• gen/Network/AWS/DirectoryService/RemoveTagsFromResource.hs +5/−5
• gen/Network/AWS/DirectoryService/RestoreFromSnapshot.hs +3/−3
• gen/Network/AWS/DirectoryService/StartSchemaExtension.hs +14/−14
• gen/Network/AWS/DirectoryService/Types.hs +22/−16
• gen/Network/AWS/DirectoryService/Types/Product.hs +244/−235
• gen/Network/AWS/DirectoryService/Types/Sum.hs +31/−1
• gen/Network/AWS/DirectoryService/UpdateConditionalForwarder.hs +9/−9
• gen/Network/AWS/DirectoryService/UpdateNumberOfDomainControllers.hs +8/−8
• gen/Network/AWS/DirectoryService/UpdateRadius.hs +5/−5
• gen/Network/AWS/DirectoryService/VerifyTrust.hs +5/−5
• gen/Network/AWS/DirectoryService/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/DirectoryService.hs +1/−1
• test/Test/AWS/DirectoryService/Internal.hs +1/−1
• test/Test/AWS/Gen/DirectoryService.hs +1/−1

@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ds-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Directory Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -93,7 +93,7 @@         , Network.AWS.DirectoryService.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ds-test@@ -113,8 +113,8 @@         , Test.AWS.DirectoryService.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-ds         , base         , bytestring

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.DirectoryService--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -152,7 +152,7 @@     -- ** RestoreFromSnapshot     , module Network.AWS.DirectoryService.RestoreFromSnapshot -    -- ** DescribeDomainControllers+    -- ** DescribeDomainControllers (Paginated)     , module Network.AWS.DirectoryService.DescribeDomainControllers      -- ** DescribeSnapshots@@ -196,6 +196,9 @@      -- * Types +    -- ** DirectoryEdition+    , DirectoryEdition (..)+     -- ** DirectorySize     , DirectorySize (..) @@ -282,6 +285,7 @@     -- ** DirectoryDescription     , DirectoryDescription     , directoryDescription+    , ddEdition     , ddRadiusStatus     , ddStage     , ddDirectoryId

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.AddIPRoutes--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -69,23 +69,23 @@     -> AddIPRoutes addIPRoutes pDirectoryId_ =   AddIPRoutes'-  { _airUpdateSecurityGroupForDirectoryControllers = Nothing-  , _airDirectoryId = pDirectoryId_-  , _airIPRoutes = mempty-  }+    { _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});+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});+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;+airIPRoutes = lens _airIPRoutes (\ s a -> s{_airIPRoutes = a}) . _Coerce  instance AWSRequest AddIPRoutes where         type Rs AddIPRoutes = AddIPRoutesResponse@@ -144,6 +144,6 @@  -- | -- | The response status code. airrsResponseStatus :: Lens' AddIPRoutesResponse Int-airrsResponseStatus = lens _airrsResponseStatus (\ s a -> s{_airrsResponseStatus = a});+airrsResponseStatus = lens _airrsResponseStatus (\ s a -> s{_airrsResponseStatus = a})  instance NFData AddIPRoutesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.AddTagsToResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -67,11 +67,11 @@  -- | Identifier (ID) for the directory to which to add the tag. attrResourceId :: Lens' AddTagsToResource Text-attrResourceId = lens _attrResourceId (\ s a -> s{_attrResourceId = a});+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;+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce  instance AWSRequest AddTagsToResource where         type Rs AddTagsToResource = AddTagsToResourceResponse@@ -128,6 +128,6 @@  -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})  instance NFData AddTagsToResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CancelSchemaExtension--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -64,16 +64,18 @@     -> CancelSchemaExtension cancelSchemaExtension pDirectoryId_ pSchemaExtensionId_ =   CancelSchemaExtension'-  {_cseDirectoryId = pDirectoryId_, _cseSchemaExtensionId = pSchemaExtensionId_}+    { _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});+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});+cseSchemaExtensionId = lens _cseSchemaExtensionId (\ s a -> s{_cseSchemaExtensionId = a})  instance AWSRequest CancelSchemaExtension where         type Rs CancelSchemaExtension =@@ -132,6 +134,6 @@  -- | -- | The response status code. csersResponseStatus :: Lens' CancelSchemaExtensionResponse Int-csersResponseStatus = lens _csersResponseStatus (\ s a -> s{_csersResponseStatus = a});+csersResponseStatus = lens _csersResponseStatus (\ s a -> s{_csersResponseStatus = a})  instance NFData CancelSchemaExtensionResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.ConnectDirectory--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -89,38 +89,38 @@     -> ConnectDirectory connectDirectory pName_ pPassword_ pSize_ pConnectSettings_ =   ConnectDirectory'-  { _cdShortName = Nothing-  , _cdDescription = Nothing-  , _cdName = pName_-  , _cdPassword = _Sensitive # pPassword_-  , _cdSize = pSize_-  , _cdConnectSettings = pConnectSettings_-  }+    { _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});+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});+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});+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;+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});+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});+cdConnectSettings = lens _cdConnectSettings (\ s a -> s{_cdConnectSettings = a})  instance AWSRequest ConnectDirectory where         type Rs ConnectDirectory = ConnectDirectoryResponse@@ -185,15 +185,15 @@     -> ConnectDirectoryResponse connectDirectoryResponse pResponseStatus_ =   ConnectDirectoryResponse'-  {_cdrsDirectoryId = Nothing, _cdrsResponseStatus = pResponseStatus_}+    {_cdrsDirectoryId = Nothing, _cdrsResponseStatus = pResponseStatus_}   -- | The identifier of the new directory. cdrsDirectoryId :: Lens' ConnectDirectoryResponse (Maybe Text)-cdrsDirectoryId = lens _cdrsDirectoryId (\ s a -> s{_cdrsDirectoryId = a});+cdrsDirectoryId = lens _cdrsDirectoryId (\ s a -> s{_cdrsDirectoryId = a})  -- | -- | The response status code. cdrsResponseStatus :: Lens' ConnectDirectoryResponse Int-cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});+cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a})  instance NFData ConnectDirectoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateAlias--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -76,11 +76,11 @@  -- | The identifier of the directory for which to create the alias. caDirectoryId :: Lens' CreateAlias Text-caDirectoryId = lens _caDirectoryId (\ s a -> s{_caDirectoryId = a});+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});+caAlias = lens _caAlias (\ s a -> s{_caAlias = a})  instance AWSRequest CreateAlias where         type Rs CreateAlias = CreateAliasResponse@@ -145,22 +145,22 @@     -> CreateAliasResponse createAliasResponse pResponseStatus_ =   CreateAliasResponse'-  { _carsDirectoryId = Nothing-  , _carsAlias = Nothing-  , _carsResponseStatus = pResponseStatus_-  }+    { _carsDirectoryId = Nothing+    , _carsAlias = Nothing+    , _carsResponseStatus = pResponseStatus_+    }   -- | The identifier of the directory. carsDirectoryId :: Lens' CreateAliasResponse (Maybe Text)-carsDirectoryId = lens _carsDirectoryId (\ s a -> s{_carsDirectoryId = a});+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});+carsAlias = lens _carsAlias (\ s a -> s{_carsAlias = a})  -- | -- | The response status code. carsResponseStatus :: Lens' CreateAliasResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})  instance NFData CreateAliasResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateComputer--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -82,33 +82,33 @@     -> CreateComputer createComputer pDirectoryId_ pComputerName_ pPassword_ =   CreateComputer'-  { _ccComputerAttributes = Nothing-  , _ccOrganizationalUnitDistinguishedName = Nothing-  , _ccDirectoryId = pDirectoryId_-  , _ccComputerName = pComputerName_-  , _ccPassword = _Sensitive # pPassword_-  }+    { _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;+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});+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});+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});+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;+ccPassword = lens _ccPassword (\ s a -> s{_ccPassword = a}) . _Sensitive  instance AWSRequest CreateComputer where         type Rs CreateComputer = CreateComputerResponse@@ -173,15 +173,15 @@     -> CreateComputerResponse createComputerResponse pResponseStatus_ =   CreateComputerResponse'-  {_ccrsComputer = Nothing, _ccrsResponseStatus = pResponseStatus_}+    {_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});+ccrsComputer = lens _ccrsComputer (\ s a -> s{_ccrsComputer = a})  -- | -- | The response status code. ccrsResponseStatus :: Lens' CreateComputerResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a})  instance NFData CreateComputerResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateConditionalForwarder--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -72,23 +72,23 @@     -> CreateConditionalForwarder createConditionalForwarder pDirectoryId_ pRemoteDomainName_ =   CreateConditionalForwarder'-  { _ccfDirectoryId = pDirectoryId_-  , _ccfRemoteDomainName = pRemoteDomainName_-  , _ccfDNSIPAddrs = mempty-  }+    { _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});+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});+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;+ccfDNSIPAddrs = lens _ccfDNSIPAddrs (\ s a -> s{_ccfDNSIPAddrs = a}) . _Coerce  instance AWSRequest CreateConditionalForwarder where         type Rs CreateConditionalForwarder =@@ -152,7 +152,7 @@  -- | -- | The response status code. ccfrsResponseStatus :: Lens' CreateConditionalForwarderResponse Int-ccfrsResponseStatus = lens _ccfrsResponseStatus (\ s a -> s{_ccfrsResponseStatus = a});+ccfrsResponseStatus = lens _ccfrsResponseStatus (\ s a -> s{_ccfrsResponseStatus = a})  instance NFData CreateConditionalForwarderResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateDirectory--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -88,38 +88,38 @@     -> CreateDirectory createDirectory pName_ pPassword_ pSize_ =   CreateDirectory'-  { _cShortName = Nothing-  , _cVPCSettings = Nothing-  , _cDescription = Nothing-  , _cName = pName_-  , _cPassword = _Sensitive # pPassword_-  , _cSize = pSize_-  }+    { _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});+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});+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});+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});+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;+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});+cSize = lens _cSize (\ s a -> s{_cSize = a})  instance AWSRequest CreateDirectory where         type Rs CreateDirectory = CreateDirectoryResponse@@ -184,15 +184,15 @@     -> CreateDirectoryResponse createDirectoryResponse pResponseStatus_ =   CreateDirectoryResponse'-  {_crsDirectoryId = Nothing, _crsResponseStatus = pResponseStatus_}+    {_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});+crsDirectoryId = lens _crsDirectoryId (\ s a -> s{_crsDirectoryId = a})  -- | -- | The response status code. crsResponseStatus :: Lens' CreateDirectoryResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a})  instance NFData CreateDirectoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateMicrosoftAD--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -29,6 +29,7 @@       createMicrosoftAD     , CreateMicrosoftAD     -- * Request Lenses+    , cmadEdition     , cmadShortName     , cmadDescription     , cmadName@@ -56,7 +57,8 @@ -- -- /See:/ 'createMicrosoftAD' smart constructor. data CreateMicrosoftAD = CreateMicrosoftAD'-  { _cmadShortName   :: !(Maybe Text)+  { _cmadEdition     :: !(Maybe DirectoryEdition)+  , _cmadShortName   :: !(Maybe Text)   , _cmadDescription :: !(Maybe Text)   , _cmadName        :: !Text   , _cmadPassword    :: !(Sensitive Text)@@ -68,6 +70,8 @@ -- -- 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.@@ -84,33 +88,38 @@     -> CreateMicrosoftAD createMicrosoftAD pName_ pPassword_ pVPCSettings_ =   CreateMicrosoftAD'-  { _cmadShortName = Nothing-  , _cmadDescription = Nothing-  , _cmadName = pName_-  , _cmadPassword = _Sensitive # pPassword_-  , _cmadVPCSettings = pVPCSettings_-  }+    { _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});+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});+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});+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;+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});+cmadVPCSettings = lens _cmadVPCSettings (\ s a -> s{_cmadVPCSettings = a})  instance AWSRequest CreateMicrosoftAD where         type Rs CreateMicrosoftAD = CreateMicrosoftADResponse@@ -139,7 +148,8 @@         toJSON CreateMicrosoftAD'{..}           = object               (catMaybes-                 [("ShortName" .=) <$> _cmadShortName,+                 [("Edition" .=) <$> _cmadEdition,+                  ("ShortName" .=) <$> _cmadShortName,                   ("Description" .=) <$> _cmadDescription,                   Just ("Name" .= _cmadName),                   Just ("Password" .= _cmadPassword),@@ -174,15 +184,15 @@     -> CreateMicrosoftADResponse createMicrosoftADResponse pResponseStatus_ =   CreateMicrosoftADResponse'-  {_cmadrsDirectoryId = Nothing, _cmadrsResponseStatus = pResponseStatus_}+    {_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});+cmadrsDirectoryId = lens _cmadrsDirectoryId (\ s a -> s{_cmadrsDirectoryId = a})  -- | -- | The response status code. cmadrsResponseStatus :: Lens' CreateMicrosoftADResponse Int-cmadrsResponseStatus = lens _cmadrsResponseStatus (\ s a -> s{_cmadrsResponseStatus = a});+cmadrsResponseStatus = lens _cmadrsResponseStatus (\ s a -> s{_cmadrsResponseStatus = a})  instance NFData CreateMicrosoftADResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -72,11 +72,11 @@  -- | The descriptive name to apply to the snapshot. csName :: Lens' CreateSnapshot (Maybe Text)-csName = lens _csName (\ s a -> s{_csName = a});+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});+csDirectoryId = lens _csDirectoryId (\ s a -> s{_csDirectoryId = a})  instance AWSRequest CreateSnapshot where         type Rs CreateSnapshot = CreateSnapshotResponse@@ -137,15 +137,15 @@     -> CreateSnapshotResponse createSnapshotResponse pResponseStatus_ =   CreateSnapshotResponse'-  {_csrsSnapshotId = Nothing, _csrsResponseStatus = pResponseStatus_}+    {_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});+csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a})  -- | -- | The response status code. csrsResponseStatus :: Lens' CreateSnapshotResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})  instance NFData CreateSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.CreateTrust--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -91,38 +91,38 @@     -> CreateTrust createTrust pDirectoryId_ pRemoteDomainName_ pTrustPassword_ pTrustDirection_ =   CreateTrust'-  { _ctConditionalForwarderIPAddrs = Nothing-  , _ctTrustType = Nothing-  , _ctDirectoryId = pDirectoryId_-  , _ctRemoteDomainName = pRemoteDomainName_-  , _ctTrustPassword = _Sensitive # pTrustPassword_-  , _ctTrustDirection = pTrustDirection_-  }+    { _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;+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});+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});+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});+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;+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});+ctTrustDirection = lens _ctTrustDirection (\ s a -> s{_ctTrustDirection = a})  instance AWSRequest CreateTrust where         type Rs CreateTrust = CreateTrustResponse@@ -188,15 +188,15 @@     -> CreateTrustResponse createTrustResponse pResponseStatus_ =   CreateTrustResponse'-  {_ctrsTrustId = Nothing, _ctrsResponseStatus = pResponseStatus_}+    {_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});+ctrsTrustId = lens _ctrsTrustId (\ s a -> s{_ctrsTrustId = a})  -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTrustResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})  instance NFData CreateTrustResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DeleteConditionalForwarder--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> DeleteConditionalForwarder deleteConditionalForwarder pDirectoryId_ pRemoteDomainName_ =   DeleteConditionalForwarder'-  {_delDirectoryId = pDirectoryId_, _delRemoteDomainName = pRemoteDomainName_}+    {_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});+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});+delRemoteDomainName = lens _delRemoteDomainName (\ s a -> s{_delRemoteDomainName = a})  instance AWSRequest DeleteConditionalForwarder where         type Rs DeleteConditionalForwarder =@@ -140,7 +140,7 @@  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteConditionalForwarderResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteConditionalForwarderResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DeleteDirectory--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -70,7 +70,7 @@  -- | The identifier of the directory to delete. dddDirectoryId :: Lens' DeleteDirectory Text-dddDirectoryId = lens _dddDirectoryId (\ s a -> s{_dddDirectoryId = a});+dddDirectoryId = lens _dddDirectoryId (\ s a -> s{_dddDirectoryId = a})  instance AWSRequest DeleteDirectory where         type Rs DeleteDirectory = DeleteDirectoryResponse@@ -129,15 +129,15 @@     -> DeleteDirectoryResponse deleteDirectoryResponse pResponseStatus_ =   DeleteDirectoryResponse'-  {_delrsDirectoryId = Nothing, _delrsResponseStatus = pResponseStatus_}+    {_delrsDirectoryId = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | The directory identifier. delrsDirectoryId :: Lens' DeleteDirectoryResponse (Maybe Text)-delrsDirectoryId = lens _delrsDirectoryId (\ s a -> s{_delrsDirectoryId = a});+delrsDirectoryId = lens _delrsDirectoryId (\ s a -> s{_delrsDirectoryId = a})  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteDirectoryResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteDirectoryResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DeleteSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -67,7 +67,7 @@  -- | The identifier of the directory snapshot to be deleted. dsSnapshotId :: Lens' DeleteSnapshot Text-dsSnapshotId = lens _dsSnapshotId (\ s a -> s{_dsSnapshotId = a});+dsSnapshotId = lens _dsSnapshotId (\ s a -> s{_dsSnapshotId = a})  instance AWSRequest DeleteSnapshot where         type Rs DeleteSnapshot = DeleteSnapshotResponse@@ -126,15 +126,15 @@     -> DeleteSnapshotResponse deleteSnapshotResponse pResponseStatus_ =   DeleteSnapshotResponse'-  {_dsrsSnapshotId = Nothing, _dsrsResponseStatus = pResponseStatus_}+    {_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});+dsrsSnapshotId = lens _dsrsSnapshotId (\ s a -> s{_dsrsSnapshotId = a})  -- | -- | The response status code. dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int-dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a})  instance NFData DeleteSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DeleteTrust--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> DeleteTrust deleteTrust pTrustId_ =   DeleteTrust'-  {_dtDeleteAssociatedConditionalForwarder = Nothing, _dtTrustId = pTrustId_}+    {_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});+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});+dtTrustId = lens _dtTrustId (\ s a -> s{_dtTrustId = a})  instance AWSRequest DeleteTrust where         type Rs DeleteTrust = DeleteTrustResponse@@ -139,15 +139,15 @@     -> DeleteTrustResponse deleteTrustResponse pResponseStatus_ =   DeleteTrustResponse'-  {_dttrsTrustId = Nothing, _dttrsResponseStatus = pResponseStatus_}+    {_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});+dttrsTrustId = lens _dttrsTrustId (\ s a -> s{_dttrsTrustId = a})  -- | -- | The response status code. dttrsResponseStatus :: Lens' DeleteTrustResponse Int-dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a});+dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a})  instance NFData DeleteTrustResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DeregisterEventTopic--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> DeregisterEventTopic deregisterEventTopic pDirectoryId_ pTopicName_ =   DeregisterEventTopic'-  {_detDirectoryId = pDirectoryId_, _detTopicName = pTopicName_}+    {_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});+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});+detTopicName = lens _detTopicName (\ s a -> s{_detTopicName = a})  instance AWSRequest DeregisterEventTopic where         type Rs DeregisterEventTopic =@@ -140,6 +140,6 @@  -- | -- | The response status code. derrsResponseStatus :: Lens' DeregisterEventTopicResponse Int-derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});+derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a})  instance NFData DeregisterEventTopicResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeConditionalForwarders--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -70,16 +70,16 @@     -> DescribeConditionalForwarders describeConditionalForwarders pDirectoryId_ =   DescribeConditionalForwarders'-  {_dcfRemoteDomainNames = Nothing, _dcfDirectoryId = pDirectoryId_}+    {_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;+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});+dcfDirectoryId = lens _dcfDirectoryId (\ s a -> s{_dcfDirectoryId = a})  instance AWSRequest DescribeConditionalForwarders          where@@ -144,18 +144,18 @@     -> DescribeConditionalForwardersResponse describeConditionalForwardersResponse pResponseStatus_ =   DescribeConditionalForwardersResponse'-  { _dcfrsConditionalForwarders = Nothing-  , _dcfrsResponseStatus = pResponseStatus_-  }+    { _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;+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});+dcfrsResponseStatus = lens _dcfrsResponseStatus (\ s a -> s{_dcfrsResponseStatus = a})  instance NFData DescribeConditionalForwardersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeDirectories--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -78,20 +78,20 @@     :: DescribeDirectories describeDirectories =   DescribeDirectories'-  {_ddNextToken = Nothing, _ddDirectoryIds = Nothing, _ddLimit = Nothing}+    {_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});+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;+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;+ddLimit = lens _ddLimit (\ s a -> s{_ddLimit = a}) . mapping _Nat  instance AWSRequest DescribeDirectories where         type Rs DescribeDirectories =@@ -159,22 +159,22 @@     -> DescribeDirectoriesResponse describeDirectoriesResponse pResponseStatus_ =   DescribeDirectoriesResponse'-  { _ddrsDirectoryDescriptions = Nothing-  , _ddrsNextToken = Nothing-  , _ddrsResponseStatus = pResponseStatus_-  }+    { _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;+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});+ddrsNextToken = lens _ddrsNextToken (\ s a -> s{_ddrsNextToken = a})  -- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeDirectoriesResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})  instance NFData DescribeDirectoriesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeDomainControllers--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -21,6 +21,8 @@ -- Provides information about any domain controllers in your directory. -- --+--+-- This operation returns paginated results. module Network.AWS.DirectoryService.DescribeDomainControllers     (     -- * Creating a Request@@ -44,6 +46,7 @@ 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@@ -73,29 +76,36 @@     -> DescribeDomainControllers describeDomainControllers pDirectoryId_ =   DescribeDomainControllers'-  { _ddcNextToken = Nothing-  , _ddcDomainControllerIds = Nothing-  , _ddcLimit = Nothing-  , _ddcDirectoryId = pDirectoryId_-  }+    { _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});+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;+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;+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});+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@@ -160,23 +170,23 @@     -> DescribeDomainControllersResponse describeDomainControllersResponse pResponseStatus_ =   DescribeDomainControllersResponse'-  { _ddcrsNextToken = Nothing-  , _ddcrsDomainControllers = Nothing-  , _ddcrsResponseStatus = pResponseStatus_-  }+    { _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});+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;+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});+ddcrsResponseStatus = lens _ddcrsResponseStatus (\ s a -> s{_ddcrsResponseStatus = a})  instance NFData DescribeDomainControllersResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeEventTopics--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -73,11 +73,11 @@  -- | 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});+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;+dTopicNames = lens _dTopicNames (\ s a -> s{_dTopicNames = a}) . _Default . _Coerce  instance AWSRequest DescribeEventTopics where         type Rs DescribeEventTopics =@@ -140,15 +140,15 @@     -> DescribeEventTopicsResponse describeEventTopicsResponse pResponseStatus_ =   DescribeEventTopicsResponse'-  {_detrsEventTopics = Nothing, _detrsResponseStatus = pResponseStatus_}+    {_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;+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});+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a})  instance NFData DescribeEventTopicsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeSnapshots--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -80,28 +80,28 @@     :: DescribeSnapshots describeSnapshots =   DescribeSnapshots'-  { _dsDirectoryId = Nothing-  , _dsNextToken = Nothing-  , _dsSnapshotIds = Nothing-  , _dsLimit = Nothing-  }+    { _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});+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});+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;+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;+dsLimit = lens _dsLimit (\ s a -> s{_dsLimit = a}) . mapping _Nat  instance AWSRequest DescribeSnapshots where         type Rs DescribeSnapshots = DescribeSnapshotsResponse@@ -169,22 +169,22 @@     -> DescribeSnapshotsResponse describeSnapshotsResponse pResponseStatus_ =   DescribeSnapshotsResponse'-  { _dssrsNextToken = Nothing-  , _dssrsSnapshots = Nothing-  , _dssrsResponseStatus = pResponseStatus_-  }+    { _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});+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;+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});+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})  instance NFData DescribeSnapshotsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DescribeTrusts--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -78,28 +78,28 @@     :: DescribeTrusts describeTrusts =   DescribeTrusts'-  { _dtDirectoryId = Nothing-  , _dtNextToken = Nothing-  , _dtTrustIds = Nothing-  , _dtLimit = Nothing-  }+    { _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});+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});+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;+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;+dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat  instance AWSRequest DescribeTrusts where         type Rs DescribeTrusts = DescribeTrustsResponse@@ -166,22 +166,22 @@     -> DescribeTrustsResponse describeTrustsResponse pResponseStatus_ =   DescribeTrustsResponse'-  { _dtrsNextToken = Nothing-  , _dtrsTrusts = Nothing-  , _dtrsResponseStatus = pResponseStatus_-  }+    { _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});+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;+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});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DescribeTrustsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DisableRadius--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -66,7 +66,7 @@  -- | The identifier of the directory for which to disable MFA. drDirectoryId :: Lens' DisableRadius Text-drDirectoryId = lens _drDirectoryId (\ s a -> s{_drDirectoryId = a});+drDirectoryId = lens _drDirectoryId (\ s a -> s{_drDirectoryId = a})  instance AWSRequest DisableRadius where         type Rs DisableRadius = DisableRadiusResponse@@ -125,6 +125,6 @@  -- | -- | The response status code. drrsResponseStatus :: Lens' DisableRadiusResponse Int-drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a})  instance NFData DisableRadiusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.DisableSSO--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -71,23 +71,23 @@     -> DisableSSO disableSSO pDirectoryId_ =   DisableSSO'-  { _dssoUserName = Nothing-  , _dssoPassword = Nothing-  , _dssoDirectoryId = pDirectoryId_-  }+    { _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});+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;+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});+dssoDirectoryId = lens _dssoDirectoryId (\ s a -> s{_dssoDirectoryId = a})  instance AWSRequest DisableSSO where         type Rs DisableSSO = DisableSSOResponse@@ -149,6 +149,6 @@  -- | -- | The response status code. dssorsResponseStatus :: Lens' DisableSSOResponse Int-dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a});+dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a})  instance NFData DisableSSOResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.EnableRadius--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> EnableRadius enableRadius pDirectoryId_ pRadiusSettings_ =   EnableRadius'-  {_erDirectoryId = pDirectoryId_, _erRadiusSettings = pRadiusSettings_}+    {_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});+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});+erRadiusSettings = lens _erRadiusSettings (\ s a -> s{_erRadiusSettings = a})  instance AWSRequest EnableRadius where         type Rs EnableRadius = EnableRadiusResponse@@ -138,6 +138,6 @@  -- | -- | The response status code. errsResponseStatus :: Lens' EnableRadiusResponse Int-errsResponseStatus = lens _errsResponseStatus (\ s a -> s{_errsResponseStatus = a});+errsResponseStatus = lens _errsResponseStatus (\ s a -> s{_errsResponseStatus = a})  instance NFData EnableRadiusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.EnableSSO--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -71,20 +71,23 @@     -> EnableSSO enableSSO pDirectoryId_ =   EnableSSO'-  {_esUserName = Nothing, _esPassword = Nothing, _esDirectoryId = pDirectoryId_}+    { _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});+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;+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});+esDirectoryId = lens _esDirectoryId (\ s a -> s{_esDirectoryId = a})  instance AWSRequest EnableSSO where         type Rs EnableSSO = EnableSSOResponse@@ -146,6 +149,6 @@  -- | -- | The response status code. esrsResponseStatus :: Lens' EnableSSOResponse Int-esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a});+esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a})  instance NFData EnableSSOResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.GetDirectoryLimits--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -115,15 +115,15 @@     -> GetDirectoryLimitsResponse getDirectoryLimitsResponse pResponseStatus_ =   GetDirectoryLimitsResponse'-  {_gdlrsDirectoryLimits = Nothing, _gdlrsResponseStatus = pResponseStatus_}+    {_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});+gdlrsDirectoryLimits = lens _gdlrsDirectoryLimits (\ s a -> s{_gdlrsDirectoryLimits = a})  -- | -- | The response status code. gdlrsResponseStatus :: Lens' GetDirectoryLimitsResponse Int-gdlrsResponseStatus = lens _gdlrsResponseStatus (\ s a -> s{_gdlrsResponseStatus = a});+gdlrsResponseStatus = lens _gdlrsResponseStatus (\ s a -> s{_gdlrsResponseStatus = a})  instance NFData GetDirectoryLimitsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.GetSnapshotLimits--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,7 +68,7 @@  -- | Contains the identifier of the directory to obtain the limits for. gslDirectoryId :: Lens' GetSnapshotLimits Text-gslDirectoryId = lens _gslDirectoryId (\ s a -> s{_gslDirectoryId = a});+gslDirectoryId = lens _gslDirectoryId (\ s a -> s{_gslDirectoryId = a})  instance AWSRequest GetSnapshotLimits where         type Rs GetSnapshotLimits = GetSnapshotLimitsResponse@@ -127,15 +127,15 @@     -> GetSnapshotLimitsResponse getSnapshotLimitsResponse pResponseStatus_ =   GetSnapshotLimitsResponse'-  {_gslrsSnapshotLimits = Nothing, _gslrsResponseStatus = pResponseStatus_}+    {_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});+gslrsSnapshotLimits = lens _gslrsSnapshotLimits (\ s a -> s{_gslrsSnapshotLimits = a})  -- | -- | The response status code. gslrsResponseStatus :: Lens' GetSnapshotLimitsResponse Int-gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a});+gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a})  instance NFData GetSnapshotLimitsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.ListIPRoutes--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -69,23 +69,23 @@     -> ListIPRoutes listIPRoutes pDirectoryId_ =   ListIPRoutes'-  { _lirNextToken = Nothing-  , _lirLimit = Nothing-  , _lirDirectoryId = pDirectoryId_-  }+    { _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});+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;+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});+lirDirectoryId = lens _lirDirectoryId (\ s a -> s{_lirDirectoryId = a})  instance AWSRequest ListIPRoutes where         type Rs ListIPRoutes = ListIPRoutesResponse@@ -148,22 +148,22 @@     -> ListIPRoutesResponse listIPRoutesResponse pResponseStatus_ =   ListIPRoutesResponse'-  { _lirrsIPRoutesInfo = Nothing-  , _lirrsNextToken = Nothing-  , _lirrsResponseStatus = pResponseStatus_-  }+    { _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;+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});+lirrsNextToken = lens _lirrsNextToken (\ s a -> s{_lirrsNextToken = a})  -- | -- | The response status code. lirrsResponseStatus :: Lens' ListIPRoutesResponse Int-lirrsResponseStatus = lens _lirrsResponseStatus (\ s a -> s{_lirrsResponseStatus = a});+lirrsResponseStatus = lens _lirrsResponseStatus (\ s a -> s{_lirrsResponseStatus = a})  instance NFData ListIPRoutesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.ListSchemaExtensions--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -69,23 +69,23 @@     -> ListSchemaExtensions listSchemaExtensions pDirectoryId_ =   ListSchemaExtensions'-  { _lseNextToken = Nothing-  , _lseLimit = Nothing-  , _lseDirectoryId = pDirectoryId_-  }+    { _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});+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;+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});+lseDirectoryId = lens _lseDirectoryId (\ s a -> s{_lseDirectoryId = a})  instance AWSRequest ListSchemaExtensions where         type Rs ListSchemaExtensions =@@ -149,22 +149,22 @@     -> ListSchemaExtensionsResponse listSchemaExtensionsResponse pResponseStatus_ =   ListSchemaExtensionsResponse'-  { _lsersSchemaExtensionsInfo = Nothing-  , _lsersNextToken = Nothing-  , _lsersResponseStatus = pResponseStatus_-  }+    { _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;+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});+lsersNextToken = lens _lsersNextToken (\ s a -> s{_lsersNextToken = a})  -- | -- | The response status code. lsersResponseStatus :: Lens' ListSchemaExtensionsResponse Int-lsersResponseStatus = lens _lsersResponseStatus (\ s a -> s{_lsersResponseStatus = a});+lsersResponseStatus = lens _lsersResponseStatus (\ s a -> s{_lsersResponseStatus = a})  instance NFData ListSchemaExtensionsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -69,23 +69,23 @@     -> ListTagsForResource listTagsForResource pResourceId_ =   ListTagsForResource'-  { _ltfrNextToken = Nothing-  , _ltfrLimit = Nothing-  , _ltfrResourceId = pResourceId_-  }+    { _ltfrNextToken = Nothing+    , _ltfrLimit = Nothing+    , _ltfrResourceId = pResourceId_+    }   -- | Reserved for future use. ltfrNextToken :: Lens' ListTagsForResource (Maybe Text)-ltfrNextToken = lens _ltfrNextToken (\ s a -> s{_ltfrNextToken = a});+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;+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});+ltfrResourceId = lens _ltfrResourceId (\ s a -> s{_ltfrResourceId = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -148,22 +148,22 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =   ListTagsForResourceResponse'-  { _ltfrrsNextToken = Nothing-  , _ltfrrsTags = Nothing-  , _ltfrrsResponseStatus = pResponseStatus_-  }+    { _ltfrrsNextToken = Nothing+    , _ltfrrsTags = Nothing+    , _ltfrrsResponseStatus = pResponseStatus_+    }   -- | Reserved for future use. ltfrrsNextToken :: Lens' ListTagsForResourceResponse (Maybe Text)-ltfrrsNextToken = lens _ltfrrsNextToken (\ s a -> s{_ltfrrsNextToken = a});+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;+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});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.RegisterEventTopic--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> RegisterEventTopic registerEventTopic pDirectoryId_ pTopicName_ =   RegisterEventTopic'-  {_retDirectoryId = pDirectoryId_, _retTopicName = pTopicName_}+    {_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});+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});+retTopicName = lens _retTopicName (\ s a -> s{_retTopicName = a})  instance AWSRequest RegisterEventTopic where         type Rs RegisterEventTopic =@@ -139,6 +139,6 @@  -- | -- | The response status code. retrsResponseStatus :: Lens' RegisterEventTopicResponse Int-retrsResponseStatus = lens _retrsResponseStatus (\ s a -> s{_retrsResponseStatus = a});+retrsResponseStatus = lens _retrsResponseStatus (\ s a -> s{_retrsResponseStatus = a})  instance NFData RegisterEventTopicResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.RemoveIPRoutes--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -67,11 +67,11 @@  -- | 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});+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;+rirCidrIPs = lens _rirCidrIPs (\ s a -> s{_rirCidrIPs = a}) . _Coerce  instance AWSRequest RemoveIPRoutes where         type Rs RemoveIPRoutes = RemoveIPRoutesResponse@@ -128,6 +128,6 @@  -- | -- | The response status code. rirrsResponseStatus :: Lens' RemoveIPRoutesResponse Int-rirrsResponseStatus = lens _rirrsResponseStatus (\ s a -> s{_rirrsResponseStatus = a});+rirrsResponseStatus = lens _rirrsResponseStatus (\ s a -> s{_rirrsResponseStatus = a})  instance NFData RemoveIPRoutesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.RemoveTagsFromResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -63,16 +63,16 @@     -> RemoveTagsFromResource removeTagsFromResource pResourceId_ =   RemoveTagsFromResource'-  {_rtfrResourceId = pResourceId_, _rtfrTagKeys = mempty}+    {_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});+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;+rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce  instance AWSRequest RemoveTagsFromResource where         type Rs RemoveTagsFromResource =@@ -131,6 +131,6 @@  -- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a})  instance NFData RemoveTagsFromResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.RestoreFromSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -71,7 +71,7 @@  -- | The identifier of the snapshot to restore from. rfsSnapshotId :: Lens' RestoreFromSnapshot Text-rfsSnapshotId = lens _rfsSnapshotId (\ s a -> s{_rfsSnapshotId = a});+rfsSnapshotId = lens _rfsSnapshotId (\ s a -> s{_rfsSnapshotId = a})  instance AWSRequest RestoreFromSnapshot where         type Rs RestoreFromSnapshot =@@ -131,6 +131,6 @@  -- | -- | The response status code. rfsrsResponseStatus :: Lens' RestoreFromSnapshotResponse Int-rfsrsResponseStatus = lens _rfsrsResponseStatus (\ s a -> s{_rfsrsResponseStatus = a});+rfsrsResponseStatus = lens _rfsrsResponseStatus (\ s a -> s{_rfsrsResponseStatus = a})  instance NFData RestoreFromSnapshotResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.StartSchemaExtension--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -75,29 +75,29 @@     -> StartSchemaExtension startSchemaExtension pDirectoryId_ pCreateSnapshotBeforeSchemaExtension_ pLdifContent_ pDescription_ =   StartSchemaExtension'-  { _sseDirectoryId = pDirectoryId_-  , _sseCreateSnapshotBeforeSchemaExtension =-      pCreateSnapshotBeforeSchemaExtension_-  , _sseLdifContent = pLdifContent_-  , _sseDescription = pDescription_-  }+    { _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});+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});+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});+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});+sseDescription = lens _sseDescription (\ s a -> s{_sseDescription = a})  instance AWSRequest StartSchemaExtension where         type Rs StartSchemaExtension =@@ -159,15 +159,15 @@     -> StartSchemaExtensionResponse startSchemaExtensionResponse pResponseStatus_ =   StartSchemaExtensionResponse'-  {_ssersSchemaExtensionId = Nothing, _ssersResponseStatus = pResponseStatus_}+    {_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});+ssersSchemaExtensionId = lens _ssersSchemaExtensionId (\ s a -> s{_ssersSchemaExtensionId = a})  -- | -- | The response status code. ssersResponseStatus :: Lens' StartSchemaExtensionResponse Int-ssersResponseStatus = lens _ssersResponseStatus (\ s a -> s{_ssersResponseStatus = a});+ssersResponseStatus = lens _ssersResponseStatus (\ s a -> s{_ssersResponseStatus = a})  instance NFData StartSchemaExtensionResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.DirectoryService.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -32,6 +32,9 @@     , _TagLimitExceededException     , _ClientException +    -- * DirectoryEdition+    , DirectoryEdition (..)+     -- * DirectorySize     , DirectorySize (..) @@ -118,6 +121,7 @@     -- * DirectoryDescription     , DirectoryDescription     , directoryDescription+    , ddEdition     , ddRadiusStatus     , ddStage     , ddDirectoryId@@ -275,24 +279,24 @@ 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-  }+    { _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-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -301,6 +305,8 @@         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"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DirectoryService.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -46,11 +46,11 @@  -- | The value of the attribute. aValue :: Lens' Attribute (Maybe Text)-aValue = lens _aValue (\ s a -> s{_aValue = a});+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});+aName = lens _aName (\ s a -> s{_aName = a})  instance FromJSON Attribute where         parseJSON@@ -93,23 +93,23 @@     :: Computer computer =   Computer'-  { _cComputerId = Nothing-  , _cComputerAttributes = Nothing-  , _cComputerName = Nothing-  }+    { _cComputerId = Nothing+    , _cComputerAttributes = Nothing+    , _cComputerName = Nothing+    }   -- | The identifier of the computer. cComputerId :: Lens' Computer (Maybe Text)-cComputerId = lens _cComputerId (\ s a -> s{_cComputerId = a});+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;+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});+cComputerName = lens _cComputerName (\ s a -> s{_cComputerName = a})  instance FromJSON Computer where         parseJSON@@ -149,23 +149,23 @@     :: ConditionalForwarder conditionalForwarder =   ConditionalForwarder'-  { _cfDNSIPAddrs = Nothing-  , _cfRemoteDomainName = Nothing-  , _cfReplicationScope = Nothing-  }+    { _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;+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});+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});+cfReplicationScope = lens _cfReplicationScope (\ s a -> s{_cfReplicationScope = a})  instance FromJSON ConditionalForwarder where         parseJSON@@ -210,28 +210,28 @@     -> DirectoryConnectSettings directoryConnectSettings pVPCId_ pCustomerUserName_ =   DirectoryConnectSettings'-  { _dcsVPCId = pVPCId_-  , _dcsSubnetIds = mempty-  , _dcsCustomerDNSIPs = mempty-  , _dcsCustomerUserName = pCustomerUserName_-  }+    { _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});+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;+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;+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});+dcsCustomerUserName = lens _dcsCustomerUserName (\ s a -> s{_dcsCustomerUserName = a})  instance Hashable DirectoryConnectSettings where @@ -280,38 +280,38 @@     :: DirectoryConnectSettingsDescription directoryConnectSettingsDescription =   DirectoryConnectSettingsDescription'-  { _dcsdCustomerUserName = Nothing-  , _dcsdSubnetIds = Nothing-  , _dcsdVPCId = Nothing-  , _dcsdSecurityGroupId = Nothing-  , _dcsdConnectIPs = Nothing-  , _dcsdAvailabilityZones = Nothing-  }+    { _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});+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;+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});+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});+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;+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;+dcsdAvailabilityZones = lens _dcsdAvailabilityZones (\ s a -> s{_dcsdAvailabilityZones = a}) . _Default . _Coerce  instance FromJSON DirectoryConnectSettingsDescription          where@@ -338,7 +338,8 @@ -- -- /See:/ 'directoryDescription' smart constructor. data DirectoryDescription = DirectoryDescription'-  { _ddRadiusStatus :: !(Maybe RadiusStatus)+  { _ddEdition :: !(Maybe DirectoryEdition)+  , _ddRadiusStatus :: !(Maybe RadiusStatus)   , _ddStage :: !(Maybe DirectoryStage)   , _ddDirectoryId :: !(Maybe Text)   , _ddAccessURL :: !(Maybe Text)@@ -364,6 +365,8 @@ -- -- 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.@@ -405,111 +408,117 @@     :: DirectoryDescription directoryDescription =   DirectoryDescription'-  { _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-  }+    { _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});+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});+ddStage = lens _ddStage (\ s a -> s{_ddStage = a})  -- | The directory identifier. ddDirectoryId :: Lens' DirectoryDescription (Maybe Text)-ddDirectoryId = lens _ddDirectoryId (\ s a -> s{_ddDirectoryId = a});+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});+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});+ddShortName = lens _ddShortName (\ s a -> s{_ddShortName = a})  -- | The directory size. ddSize :: Lens' DirectoryDescription (Maybe DirectorySize)-ddSize = lens _ddSize (\ s a -> s{_ddSize = a});+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;+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});+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;+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});+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});+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;+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});+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;+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});+ddVPCSettings = lens _ddVPCSettings (\ s a -> s{_ddVPCSettings = a})  -- | The directory size. ddType :: Lens' DirectoryDescription (Maybe DirectoryType)-ddType = lens _ddType (\ s a -> s{_ddType = a});+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});+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});+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});+ddDescription = lens _ddDescription (\ s a -> s{_ddDescription = a})  instance FromJSON DirectoryDescription where         parseJSON           = withObject "DirectoryDescription"               (\ x ->                  DirectoryDescription' <$>-                   (x .:? "RadiusStatus") <*> (x .:? "Stage") <*>-                     (x .:? "DirectoryId")+                   (x .:? "Edition") <*> (x .:? "RadiusStatus") <*>+                     (x .:? "Stage")+                     <*> (x .:? "DirectoryId")                      <*> (x .:? "AccessUrl")                      <*> (x .:? "ShortName")                      <*> (x .:? "Size")@@ -574,53 +583,53 @@     :: DirectoryLimits directoryLimits =   DirectoryLimits'-  { _dlConnectedDirectoriesCurrentCount = Nothing-  , _dlCloudOnlyMicrosoftADLimitReached = Nothing-  , _dlConnectedDirectoriesLimit = Nothing-  , _dlConnectedDirectoriesLimitReached = Nothing-  , _dlCloudOnlyMicrosoftADLimit = Nothing-  , _dlCloudOnlyDirectoriesLimit = Nothing-  , _dlCloudOnlyDirectoriesCurrentCount = Nothing-  , _dlCloudOnlyDirectoriesLimitReached = Nothing-  , _dlCloudOnlyMicrosoftADCurrentCount = Nothing-  }+    { _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;+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});+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;+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});+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;+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;+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;+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});+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;+dlCloudOnlyMicrosoftADCurrentCount = lens _dlCloudOnlyMicrosoftADCurrentCount (\ s a -> s{_dlCloudOnlyMicrosoftADCurrentCount = a}) . mapping _Nat  instance FromJSON DirectoryLimits where         parseJSON@@ -668,11 +677,11 @@  -- | The identifier of the VPC in which to create the directory. dvsVPCId :: Lens' DirectoryVPCSettings Text-dvsVPCId = lens _dvsVPCId (\ s a -> s{_dvsVPCId = a});+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;+dvsSubnetIds = lens _dvsSubnetIds (\ s a -> s{_dvsSubnetIds = a}) . _Coerce  instance Hashable DirectoryVPCSettings where @@ -706,35 +715,35 @@ -- -- * 'dvsdVPCId' - The identifier of the VPC that the directory is in. ----- * 'dvsdSecurityGroupId' - 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' - 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-  }+    { _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;+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});+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 domain controller security group identifier for the directory. dvsdSecurityGroupId :: Lens' DirectoryVPCSettingsDescription (Maybe Text)-dvsdSecurityGroupId = lens _dvsdSecurityGroupId (\ s a -> s{_dvsdSecurityGroupId = a});+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;+dvsdAvailabilityZones = lens _dvsdAvailabilityZones (\ s a -> s{_dvsdAvailabilityZones = a}) . _Default . _Coerce  instance FromJSON DirectoryVPCSettingsDescription          where@@ -797,58 +806,58 @@     :: DomainController domainController =   DomainController'-  { _dcStatus = Nothing-  , _dcDirectoryId = Nothing-  , _dcVPCId = Nothing-  , _dcLaunchTime = Nothing-  , _dcSubnetId = Nothing-  , _dcAvailabilityZone = Nothing-  , _dcStatusLastUpdatedDateTime = Nothing-  , _dcStatusReason = Nothing-  , _dcDNSIPAddr = Nothing-  , _dcDomainControllerId = Nothing-  }+    { _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});+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});+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});+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;+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});+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});+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;+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});+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});+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});+dcDomainControllerId = lens _dcDomainControllerId (\ s a -> s{_dcDomainControllerId = a})  instance FromJSON DomainController where         parseJSON@@ -900,33 +909,33 @@     :: EventTopic eventTopic =   EventTopic'-  { _etStatus = Nothing-  , _etDirectoryId = Nothing-  , _etTopicName = Nothing-  , _etTopicARN = Nothing-  , _etCreatedDateTime = Nothing-  }+    { _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});+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});+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});+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});+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;+etCreatedDateTime = lens _etCreatedDateTime (\ s a -> s{_etCreatedDateTime = a}) . mapping _Time  instance FromJSON EventTopic where         parseJSON@@ -967,11 +976,11 @@  -- | 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});+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});+irDescription = lens _irDescription (\ s a -> s{_irDescription = a})  instance Hashable IPRoute where @@ -1018,38 +1027,38 @@     :: IPRouteInfo ipRouteInfo =   IPRouteInfo'-  { _iriDirectoryId = Nothing-  , _iriIPRouteStatusReason = Nothing-  , _iriAddedDateTime = Nothing-  , _iriCidrIP = Nothing-  , _iriIPRouteStatusMsg = Nothing-  , _iriDescription = Nothing-  }+    { _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});+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});+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;+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});+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});+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});+iriDescription = lens _iriDescription (\ s a -> s{_iriDescription = a})  instance FromJSON IPRouteInfo where         parseJSON@@ -1107,48 +1116,48 @@     :: RadiusSettings radiusSettings =   RadiusSettings'-  { _rsDisplayLabel = Nothing-  , _rsRadiusRetries = Nothing-  , _rsAuthenticationProtocol = Nothing-  , _rsRadiusServers = Nothing-  , _rsUseSameUsername = Nothing-  , _rsSharedSecret = Nothing-  , _rsRadiusTimeout = Nothing-  , _rsRadiusPort = Nothing-  }+    { _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});+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;+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});+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;+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});+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;+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;+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;+rsRadiusPort = lens _rsRadiusPort (\ s a -> s{_rsRadiusPort = a}) . mapping _Nat  instance FromJSON RadiusSettings where         parseJSON@@ -1218,43 +1227,43 @@     :: SchemaExtensionInfo schemaExtensionInfo =   SchemaExtensionInfo'-  { _seiDirectoryId = Nothing-  , _seiSchemaExtensionId = Nothing-  , _seiSchemaExtensionStatusReason = Nothing-  , _seiSchemaExtensionStatus = Nothing-  , _seiDescription = Nothing-  , _seiEndDateTime = Nothing-  , _seiStartDateTime = Nothing-  }+    { _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});+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});+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});+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});+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});+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;+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;+seiStartDateTime = lens _seiStartDateTime (\ s a -> s{_seiStartDateTime = a}) . mapping _Time  instance FromJSON SchemaExtensionInfo where         parseJSON@@ -1306,38 +1315,38 @@     :: Snapshot snapshot =   Snapshot'-  { _sStatus = Nothing-  , _sDirectoryId = Nothing-  , _sStartTime = Nothing-  , _sName = Nothing-  , _sType = Nothing-  , _sSnapshotId = Nothing-  }+    { _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});+sStatus = lens _sStatus (\ s a -> s{_sStatus = a})  -- | The directory identifier. sDirectoryId :: Lens' Snapshot (Maybe Text)-sDirectoryId = lens _sDirectoryId (\ s a -> s{_sDirectoryId = a});+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;+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});+sName = lens _sName (\ s a -> s{_sName = a})  -- | The snapshot type. sType :: Lens' Snapshot (Maybe SnapshotType)-sType = lens _sType (\ s a -> s{_sType = a});+sType = lens _sType (\ s a -> s{_sType = a})  -- | The snapshot identifier. sSnapshotId :: Lens' Snapshot (Maybe Text)-sSnapshotId = lens _sSnapshotId (\ s a -> s{_sSnapshotId = a});+sSnapshotId = lens _sSnapshotId (\ s a -> s{_sSnapshotId = a})  instance FromJSON Snapshot where         parseJSON@@ -1379,23 +1388,23 @@     :: SnapshotLimits snapshotLimits =   SnapshotLimits'-  { _slManualSnapshotsLimitReached = Nothing-  , _slManualSnapshotsCurrentCount = Nothing-  , _slManualSnapshotsLimit = Nothing-  }+    { _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});+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;+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;+slManualSnapshotsLimit = lens _slManualSnapshotsLimit (\ s a -> s{_slManualSnapshotsLimit = a}) . mapping _Nat  instance FromJSON SnapshotLimits where         parseJSON@@ -1437,11 +1446,11 @@  -- | 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});+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});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  instance FromJSON Tag where         parseJSON@@ -1505,58 +1514,58 @@     :: Trust trust =   Trust'-  { _tDirectoryId = Nothing-  , _tTrustState = Nothing-  , _tLastUpdatedDateTime = Nothing-  , _tTrustDirection = Nothing-  , _tStateLastUpdatedDateTime = Nothing-  , _tTrustType = Nothing-  , _tTrustStateReason = Nothing-  , _tRemoteDomainName = Nothing-  , _tTrustId = Nothing-  , _tCreatedDateTime = Nothing-  }+    { _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});+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});+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;+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});+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;+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});+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});+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});+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});+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;+tCreatedDateTime = lens _tCreatedDateTime (\ s a -> s{_tCreatedDateTime = a}) . mapping _Time  instance FromJSON Trust where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.DirectoryService.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -18,6 +18,36 @@ 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

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.UpdateConditionalForwarder--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -72,23 +72,23 @@     -> UpdateConditionalForwarder updateConditionalForwarder pDirectoryId_ pRemoteDomainName_ =   UpdateConditionalForwarder'-  { _ucfDirectoryId = pDirectoryId_-  , _ucfRemoteDomainName = pRemoteDomainName_-  , _ucfDNSIPAddrs = mempty-  }+    { _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});+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});+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;+ucfDNSIPAddrs = lens _ucfDNSIPAddrs (\ s a -> s{_ucfDNSIPAddrs = a}) . _Coerce  instance AWSRequest UpdateConditionalForwarder where         type Rs UpdateConditionalForwarder =@@ -152,7 +152,7 @@  -- | -- | The response status code. ucfrsResponseStatus :: Lens' UpdateConditionalForwarderResponse Int-ucfrsResponseStatus = lens _ucfrsResponseStatus (\ s a -> s{_ucfrsResponseStatus = a});+ucfrsResponseStatus = lens _ucfrsResponseStatus (\ s a -> s{_ucfrsResponseStatus = a})  instance NFData UpdateConditionalForwarderResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.UpdateNumberOfDomainControllers--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -64,18 +64,18 @@     -> UpdateNumberOfDomainControllers updateNumberOfDomainControllers pDirectoryId_ pDesiredNumber_ =   UpdateNumberOfDomainControllers'-  { _unodcDirectoryId = pDirectoryId_-  , _unodcDesiredNumber = _Nat # pDesiredNumber_-  }+    { _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});+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;+unodcDesiredNumber = lens _unodcDesiredNumber (\ s a -> s{_unodcDesiredNumber = a}) . _Nat  instance AWSRequest UpdateNumberOfDomainControllers          where@@ -134,12 +134,12 @@     -> UpdateNumberOfDomainControllersResponse updateNumberOfDomainControllersResponse pResponseStatus_ =   UpdateNumberOfDomainControllersResponse'-  {_unodcrsResponseStatus = pResponseStatus_}+    {_unodcrsResponseStatus = pResponseStatus_}   -- | -- | The response status code. unodcrsResponseStatus :: Lens' UpdateNumberOfDomainControllersResponse Int-unodcrsResponseStatus = lens _unodcrsResponseStatus (\ s a -> s{_unodcrsResponseStatus = a});+unodcrsResponseStatus = lens _unodcrsResponseStatus (\ s a -> s{_unodcrsResponseStatus = a})  instance NFData            UpdateNumberOfDomainControllersResponse

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.UpdateRadius--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -68,16 +68,16 @@     -> UpdateRadius updateRadius pDirectoryId_ pRadiusSettings_ =   UpdateRadius'-  {_urDirectoryId = pDirectoryId_, _urRadiusSettings = pRadiusSettings_}+    {_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});+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});+urRadiusSettings = lens _urRadiusSettings (\ s a -> s{_urRadiusSettings = a})  instance AWSRequest UpdateRadius where         type Rs UpdateRadius = UpdateRadiusResponse@@ -138,6 +138,6 @@  -- | -- | The response status code. urrsResponseStatus :: Lens' UpdateRadiusResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})  instance NFData UpdateRadiusResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.DirectoryService.VerifyTrust--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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@@ -69,7 +69,7 @@  -- | The unique Trust ID of the trust relationship to verify. vtTrustId :: Lens' VerifyTrust Text-vtTrustId = lens _vtTrustId (\ s a -> s{_vtTrustId = a});+vtTrustId = lens _vtTrustId (\ s a -> s{_vtTrustId = a})  instance AWSRequest VerifyTrust where         type Rs VerifyTrust = VerifyTrustResponse@@ -127,15 +127,15 @@     -> VerifyTrustResponse verifyTrustResponse pResponseStatus_ =   VerifyTrustResponse'-  {_vtrsTrustId = Nothing, _vtrsResponseStatus = pResponseStatus_}+    {_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});+vtrsTrustId = lens _vtrsTrustId (\ s a -> s{_vtrsTrustId = a})  -- | -- | The response status code. vtrsResponseStatus :: Lens' VerifyTrustResponse Int-vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a});+vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a})  instance NFData VerifyTrustResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.DirectoryService.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.DirectoryService--- Copyright   : (c) 2013-2016 Brendan Hay+-- 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

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.DirectoryService.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- 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

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.DirectoryService--- Copyright   : (c) 2013-2017 Brendan Hay+-- 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