amazonka-ds 1.4.0 → 1.4.1

raw patch · 44 files changed

+1014/−53 lines, 44 filesdep ~amazonka-coredep ~amazonka-dsdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ds.cabal +9/−5
• fixture/CreateConditionalForwarder.yaml +0/−0
• fixture/CreateConditionalForwarderResponse.proto +0/−0
• fixture/DeleteConditionalForwarder.yaml +0/−0
• fixture/DeleteConditionalForwarderResponse.proto +0/−0
• fixture/DescribeConditionalForwarders.yaml +0/−0
• fixture/DescribeConditionalForwardersResponse.proto +0/−0
• fixture/UpdateConditionalForwarder.yaml +0/−0
• fixture/UpdateConditionalForwarderResponse.proto +0/−0
• gen/Network/AWS/DirectoryService.hs +27/−0
• gen/Network/AWS/DirectoryService/ConnectDirectory.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateAlias.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateComputer.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateConditionalForwarder.hs +155/−0
• gen/Network/AWS/DirectoryService/CreateDirectory.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateMicrosoftAD.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateSnapshot.hs +4/−0
• gen/Network/AWS/DirectoryService/CreateTrust.hs +22/−7
• gen/Network/AWS/DirectoryService/DeleteConditionalForwarder.hs +137/−0
• gen/Network/AWS/DirectoryService/DeleteDirectory.hs +25/−21
• gen/Network/AWS/DirectoryService/DeleteSnapshot.hs +4/−0
• gen/Network/AWS/DirectoryService/DeleteTrust.hs +34/−17
• gen/Network/AWS/DirectoryService/DeregisterEventTopic.hs +4/−0
• gen/Network/AWS/DirectoryService/DescribeConditionalForwarders.hs +152/−0
• gen/Network/AWS/DirectoryService/DescribeDirectories.hs +4/−0
• gen/Network/AWS/DirectoryService/DescribeEventTopics.hs +4/−0
• gen/Network/AWS/DirectoryService/DescribeSnapshots.hs +4/−0
• gen/Network/AWS/DirectoryService/DescribeTrusts.hs +4/−0
• gen/Network/AWS/DirectoryService/DisableRadius.hs +4/−0
• gen/Network/AWS/DirectoryService/DisableSSO.hs +4/−0
• gen/Network/AWS/DirectoryService/EnableRadius.hs +4/−0
• gen/Network/AWS/DirectoryService/EnableSSO.hs +4/−0
• gen/Network/AWS/DirectoryService/GetDirectoryLimits.hs +4/−0
• gen/Network/AWS/DirectoryService/GetSnapshotLimits.hs +4/−0
• gen/Network/AWS/DirectoryService/RegisterEventTopic.hs +4/−0
• gen/Network/AWS/DirectoryService/RestoreFromSnapshot.hs +4/−0
• gen/Network/AWS/DirectoryService/Types.hs +13/−0
• gen/Network/AWS/DirectoryService/Types/Product.hs +94/−0
• gen/Network/AWS/DirectoryService/Types/Sum.hs +34/−0
• gen/Network/AWS/DirectoryService/UpdateConditionalForwarder.hs +149/−0
• gen/Network/AWS/DirectoryService/UpdateRadius.hs +4/−0
• gen/Network/AWS/DirectoryService/VerifyTrust.hs +4/−0
• test/Test/AWS/Gen/DirectoryService.hs +74/−2

@@ -8,7 +8,7 @@  ## Version -`1.4.0`+`1.4.1`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ds-version:               1.4.0+version:               1.4.1 synopsis:              Amazon Directory Service SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -48,14 +48,17 @@         , Network.AWS.DirectoryService.ConnectDirectory         , Network.AWS.DirectoryService.CreateAlias         , Network.AWS.DirectoryService.CreateComputer+        , Network.AWS.DirectoryService.CreateConditionalForwarder         , Network.AWS.DirectoryService.CreateDirectory         , Network.AWS.DirectoryService.CreateMicrosoftAD         , Network.AWS.DirectoryService.CreateSnapshot         , Network.AWS.DirectoryService.CreateTrust+        , Network.AWS.DirectoryService.DeleteConditionalForwarder         , Network.AWS.DirectoryService.DeleteDirectory         , Network.AWS.DirectoryService.DeleteSnapshot         , Network.AWS.DirectoryService.DeleteTrust         , Network.AWS.DirectoryService.DeregisterEventTopic+        , Network.AWS.DirectoryService.DescribeConditionalForwarders         , Network.AWS.DirectoryService.DescribeDirectories         , Network.AWS.DirectoryService.DescribeEventTopics         , Network.AWS.DirectoryService.DescribeSnapshots@@ -69,6 +72,7 @@         , Network.AWS.DirectoryService.RegisterEventTopic         , Network.AWS.DirectoryService.RestoreFromSnapshot         , Network.AWS.DirectoryService.Types+        , Network.AWS.DirectoryService.UpdateConditionalForwarder         , Network.AWS.DirectoryService.UpdateRadius         , Network.AWS.DirectoryService.VerifyTrust         , Network.AWS.DirectoryService.Waiters@@ -78,7 +82,7 @@         , Network.AWS.DirectoryService.Types.Sum      build-depends:-          amazonka-core == 1.4.0.*+          amazonka-core == 1.4.1.*         , base          >= 4.7     && < 5  test-suite amazonka-ds-test@@ -98,9 +102,9 @@         , Test.AWS.DirectoryService.Internal      build-depends:-          amazonka-core == 1.4.0.*-        , amazonka-test == 1.4.0.*-        , amazonka-ds == 1.4.0.*+          amazonka-core == 1.4.1.*+        , amazonka-test == 1.4.1.*+        , amazonka-ds == 1.4.1.*         , base         , bytestring         , tasty

@@ -66,6 +66,9 @@     -- * Operations     -- $operations +    -- ** DescribeConditionalForwarders+    , module Network.AWS.DirectoryService.DescribeConditionalForwarders+     -- ** GetSnapshotLimits     , module Network.AWS.DirectoryService.GetSnapshotLimits @@ -99,6 +102,12 @@     -- ** DescribeEventTopics     , module Network.AWS.DirectoryService.DescribeEventTopics +    -- ** UpdateConditionalForwarder+    , module Network.AWS.DirectoryService.UpdateConditionalForwarder++    -- ** DeleteConditionalForwarder+    , module Network.AWS.DirectoryService.DeleteConditionalForwarder+     -- ** EnableSSO     , module Network.AWS.DirectoryService.EnableSSO @@ -135,6 +144,9 @@     -- ** VerifyTrust     , module Network.AWS.DirectoryService.VerifyTrust +    -- ** CreateConditionalForwarder+    , module Network.AWS.DirectoryService.CreateConditionalForwarder+     -- ** GetDirectoryLimits     , module Network.AWS.DirectoryService.GetDirectoryLimits @@ -158,6 +170,9 @@     -- ** RadiusStatus     , RadiusStatus (..) +    -- ** ReplicationScope+    , ReplicationScope (..)+     -- ** SnapshotStatus     , SnapshotStatus (..) @@ -189,6 +204,13 @@     , cComputerAttributes     , cComputerName +    -- ** ConditionalForwarder+    , ConditionalForwarder+    , conditionalForwarder+    , cfDNSIPAddrs+    , cfRemoteDomainName+    , cfReplicationScope+     -- ** DirectoryConnectSettings     , DirectoryConnectSettings     , directoryConnectSettings@@ -303,6 +325,7 @@     , tTrustDirection     , tStateLastUpdatedDateTime     , tTrustType+    , tTrustStateReason     , tRemoteDomainName     , tTrustId     , tCreatedDateTime@@ -311,14 +334,17 @@ import           Network.AWS.DirectoryService.ConnectDirectory import           Network.AWS.DirectoryService.CreateAlias import           Network.AWS.DirectoryService.CreateComputer+import           Network.AWS.DirectoryService.CreateConditionalForwarder import           Network.AWS.DirectoryService.CreateDirectory import           Network.AWS.DirectoryService.CreateMicrosoftAD import           Network.AWS.DirectoryService.CreateSnapshot import           Network.AWS.DirectoryService.CreateTrust+import           Network.AWS.DirectoryService.DeleteConditionalForwarder import           Network.AWS.DirectoryService.DeleteDirectory import           Network.AWS.DirectoryService.DeleteSnapshot import           Network.AWS.DirectoryService.DeleteTrust import           Network.AWS.DirectoryService.DeregisterEventTopic+import           Network.AWS.DirectoryService.DescribeConditionalForwarders import           Network.AWS.DirectoryService.DescribeDirectories import           Network.AWS.DirectoryService.DescribeEventTopics import           Network.AWS.DirectoryService.DescribeSnapshots@@ -332,6 +358,7 @@ import           Network.AWS.DirectoryService.RegisterEventTopic import           Network.AWS.DirectoryService.RestoreFromSnapshot import           Network.AWS.DirectoryService.Types+import           Network.AWS.DirectoryService.UpdateConditionalForwarder import           Network.AWS.DirectoryService.UpdateRadius import           Network.AWS.DirectoryService.VerifyTrust import           Network.AWS.DirectoryService.Waiters

@@ -127,6 +127,8 @@  instance Hashable ConnectDirectory +instance NFData ConnectDirectory+ instance ToHeaders ConnectDirectory where         toHeaders           = const@@ -185,3 +187,5 @@ -- | The response status code. cdrsResponseStatus :: Lens' ConnectDirectoryResponse Int cdrsResponseStatus = lens _cdrsResponseStatus (\ s a -> s{_cdrsResponseStatus = a});++instance NFData ConnectDirectoryResponse

@@ -98,6 +98,8 @@  instance Hashable CreateAlias +instance NFData CreateAlias+ instance ToHeaders CreateAlias where         toHeaders           = const@@ -160,3 +162,5 @@ -- | The response status code. carsResponseStatus :: Lens' CreateAliasResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});++instance NFData CreateAliasResponse

@@ -119,6 +119,8 @@  instance Hashable CreateComputer +instance NFData CreateComputer+ instance ToHeaders CreateComputer where         toHeaders           = const@@ -177,3 +179,5 @@ -- | The response status code. ccrsResponseStatus :: Lens' CreateComputerResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});++instance NFData CreateComputerResponse

@@ -0,0 +1,155 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectoryService.CreateConditionalForwarder+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a conditional forwarder associated with your AWS directory.+-- Conditional forwarders are required in order to set up a trust+-- relationship with another domain. The conditional forwarder points to+-- the trusted domain.+module Network.AWS.DirectoryService.CreateConditionalForwarder+    (+    -- * Creating a Request+      createConditionalForwarder+    , CreateConditionalForwarder+    -- * Request Lenses+    , ccfDirectoryId+    , ccfRemoteDomainName+    , ccfDNSIPAddrs++    -- * Destructuring the Response+    , createConditionalForwarderResponse+    , CreateConditionalForwarderResponse+    -- * Response Lenses+    , ccfrsResponseStatus+    ) where++import           Network.AWS.DirectoryService.Types+import           Network.AWS.DirectoryService.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Initiates the creation of a conditional forwarder for your AWS Directory+-- Service for Microsoft Active Directory. Conditional forwarders are+-- required in order to set up a trust relationship with another domain.+--+-- /See:/ 'createConditionalForwarder' smart constructor.+data CreateConditionalForwarder = CreateConditionalForwarder'+    { _ccfDirectoryId      :: !Text+    , _ccfRemoteDomainName :: !Text+    , _ccfDNSIPAddrs       :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConditionalForwarder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccfDirectoryId'+--+-- * 'ccfRemoteDomainName'+--+-- * 'ccfDNSIPAddrs'+createConditionalForwarder+    :: Text -- ^ 'ccfDirectoryId'+    -> Text -- ^ 'ccfRemoteDomainName'+    -> CreateConditionalForwarder+createConditionalForwarder pDirectoryId_ pRemoteDomainName_ =+    CreateConditionalForwarder'+    { _ccfDirectoryId = pDirectoryId_+    , _ccfRemoteDomainName = pRemoteDomainName_+    , _ccfDNSIPAddrs = mempty+    }++-- | The directory ID of the AWS directory for which you are creating the+-- conditional forwarder.+ccfDirectoryId :: Lens' CreateConditionalForwarder Text+ccfDirectoryId = lens _ccfDirectoryId (\ s a -> s{_ccfDirectoryId = a});++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+ccfRemoteDomainName :: Lens' CreateConditionalForwarder Text+ccfRemoteDomainName = lens _ccfRemoteDomainName (\ s a -> s{_ccfRemoteDomainName = a});++-- | The IP addresses of the remote DNS server associated with+-- RemoteDomainName.+ccfDNSIPAddrs :: Lens' CreateConditionalForwarder [Text]+ccfDNSIPAddrs = lens _ccfDNSIPAddrs (\ s a -> s{_ccfDNSIPAddrs = a}) . _Coerce;++instance AWSRequest CreateConditionalForwarder where+        type Rs CreateConditionalForwarder =+             CreateConditionalForwarderResponse+        request = postJSON directoryService+        response+          = receiveEmpty+              (\ s h x ->+                 CreateConditionalForwarderResponse' <$>+                   (pure (fromEnum s)))++instance Hashable CreateConditionalForwarder++instance NFData CreateConditionalForwarder++instance ToHeaders CreateConditionalForwarder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DirectoryService_20150416.CreateConditionalForwarder"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateConditionalForwarder where+        toJSON CreateConditionalForwarder'{..}+          = object+              (catMaybes+                 [Just ("DirectoryId" .= _ccfDirectoryId),+                  Just ("RemoteDomainName" .= _ccfRemoteDomainName),+                  Just ("DnsIpAddrs" .= _ccfDNSIPAddrs)])++instance ToPath CreateConditionalForwarder where+        toPath = const "/"++instance ToQuery CreateConditionalForwarder where+        toQuery = const mempty++-- | /See:/ 'createConditionalForwarderResponse' smart constructor.+newtype CreateConditionalForwarderResponse = CreateConditionalForwarderResponse'+    { _ccfrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateConditionalForwarderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ccfrsResponseStatus'+createConditionalForwarderResponse+    :: Int -- ^ 'ccfrsResponseStatus'+    -> CreateConditionalForwarderResponse+createConditionalForwarderResponse pResponseStatus_ =+    CreateConditionalForwarderResponse'+    { _ccfrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+ccfrsResponseStatus :: Lens' CreateConditionalForwarderResponse Int+ccfrsResponseStatus = lens _ccfrsResponseStatus (\ s a -> s{_ccfrsResponseStatus = a});++instance NFData CreateConditionalForwarderResponse

@@ -127,6 +127,8 @@  instance Hashable CreateDirectory +instance NFData CreateDirectory+ instance ToHeaders CreateDirectory where         toHeaders           = const@@ -185,3 +187,5 @@ -- | The response status code. crsResponseStatus :: Lens' CreateDirectoryResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});++instance NFData CreateDirectoryResponse

@@ -121,6 +121,8 @@  instance Hashable CreateMicrosoftAD +instance NFData CreateMicrosoftAD+ instance ToHeaders CreateMicrosoftAD where         toHeaders           = const@@ -176,3 +178,5 @@ -- | The response status code. cmadrsResponseStatus :: Lens' CreateMicrosoftADResponse Int cmadrsResponseStatus = lens _cmadrsResponseStatus (\ s a -> s{_cmadrsResponseStatus = a});++instance NFData CreateMicrosoftADResponse

@@ -89,6 +89,8 @@  instance Hashable CreateSnapshot +instance NFData CreateSnapshot+ instance ToHeaders CreateSnapshot where         toHeaders           = const@@ -143,3 +145,5 @@ -- | The response status code. csrsResponseStatus :: Lens' CreateSnapshotResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});++instance NFData CreateSnapshotResponse

@@ -34,6 +34,7 @@       createTrust     , CreateTrust     -- * Request Lenses+    , ctConditionalForwarderIPAddrs     , ctTrustType     , ctDirectoryId     , ctRemoteDomainName@@ -68,17 +69,20 @@ -- -- /See:/ 'createTrust' smart constructor. data CreateTrust = CreateTrust'-    { _ctTrustType        :: !(Maybe TrustType)-    , _ctDirectoryId      :: !Text-    , _ctRemoteDomainName :: !Text-    , _ctTrustPassword    :: !(Sensitive Text)-    , _ctTrustDirection   :: !TrustDirection+    { _ctConditionalForwarderIPAddrs :: !(Maybe [Text])+    , _ctTrustType                   :: !(Maybe TrustType)+    , _ctDirectoryId                 :: !Text+    , _ctRemoteDomainName            :: !Text+    , _ctTrustPassword               :: !(Sensitive Text)+    , _ctTrustDirection              :: !TrustDirection     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateTrust' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ctConditionalForwarderIPAddrs'+-- -- * 'ctTrustType' -- -- * 'ctDirectoryId'@@ -96,13 +100,18 @@     -> CreateTrust createTrust pDirectoryId_ pRemoteDomainName_ pTrustPassword_ pTrustDirection_ =     CreateTrust'-    { _ctTrustType = Nothing+    { _ctConditionalForwarderIPAddrs = Nothing+    , _ctTrustType = Nothing     , _ctDirectoryId = pDirectoryId_     , _ctRemoteDomainName = pRemoteDomainName_     , _ctTrustPassword = _Sensitive # pTrustPassword_     , _ctTrustDirection = pTrustDirection_     } +-- | Undocumented member.+ctConditionalForwarderIPAddrs :: Lens' CreateTrust [Text]+ctConditionalForwarderIPAddrs = lens _ctConditionalForwarderIPAddrs (\ s a -> s{_ctConditionalForwarderIPAddrs = a}) . _Default . _Coerce;+ -- | The trust relationship type. ctTrustType :: Lens' CreateTrust (Maybe TrustType) ctTrustType = lens _ctTrustType (\ s a -> s{_ctTrustType = a});@@ -137,6 +146,8 @@  instance Hashable CreateTrust +instance NFData CreateTrust+ instance ToHeaders CreateTrust where         toHeaders           = const@@ -151,7 +162,9 @@         toJSON CreateTrust'{..}           = object               (catMaybes-                 [("TrustType" .=) <$> _ctTrustType,+                 [("ConditionalForwarderIpAddrs" .=) <$>+                    _ctConditionalForwarderIPAddrs,+                  ("TrustType" .=) <$> _ctTrustType,                   Just ("DirectoryId" .= _ctDirectoryId),                   Just ("RemoteDomainName" .= _ctRemoteDomainName),                   Just ("TrustPassword" .= _ctTrustPassword),@@ -192,3 +205,5 @@ -- | The response status code. ctrsResponseStatus :: Lens' CreateTrustResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});++instance NFData CreateTrustResponse

@@ -0,0 +1,137 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectoryService.DeleteConditionalForwarder+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a conditional forwarder that has been set up for your AWS+-- directory.+module Network.AWS.DirectoryService.DeleteConditionalForwarder+    (+    -- * Creating a Request+      deleteConditionalForwarder+    , DeleteConditionalForwarder+    -- * Request Lenses+    , delDirectoryId+    , delRemoteDomainName++    -- * Destructuring the Response+    , deleteConditionalForwarderResponse+    , DeleteConditionalForwarderResponse+    -- * Response Lenses+    , drsResponseStatus+    ) where++import           Network.AWS.DirectoryService.Types+import           Network.AWS.DirectoryService.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'deleteConditionalForwarder' smart constructor.+data DeleteConditionalForwarder = DeleteConditionalForwarder'+    { _delDirectoryId      :: !Text+    , _delRemoteDomainName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteConditionalForwarder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delDirectoryId'+--+-- * 'delRemoteDomainName'+deleteConditionalForwarder+    :: Text -- ^ 'delDirectoryId'+    -> Text -- ^ 'delRemoteDomainName'+    -> DeleteConditionalForwarder+deleteConditionalForwarder pDirectoryId_ pRemoteDomainName_ =+    DeleteConditionalForwarder'+    { _delDirectoryId = pDirectoryId_+    , _delRemoteDomainName = pRemoteDomainName_+    }++-- | The directory ID for which you are deleting the conditional forwarder.+delDirectoryId :: Lens' DeleteConditionalForwarder Text+delDirectoryId = lens _delDirectoryId (\ s a -> s{_delDirectoryId = a});++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you are deleting the conditional forwarder.+delRemoteDomainName :: Lens' DeleteConditionalForwarder Text+delRemoteDomainName = lens _delRemoteDomainName (\ s a -> s{_delRemoteDomainName = a});++instance AWSRequest DeleteConditionalForwarder where+        type Rs DeleteConditionalForwarder =+             DeleteConditionalForwarderResponse+        request = postJSON directoryService+        response+          = receiveEmpty+              (\ s h x ->+                 DeleteConditionalForwarderResponse' <$>+                   (pure (fromEnum s)))++instance Hashable DeleteConditionalForwarder++instance NFData DeleteConditionalForwarder++instance ToHeaders DeleteConditionalForwarder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DirectoryService_20150416.DeleteConditionalForwarder"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteConditionalForwarder where+        toJSON DeleteConditionalForwarder'{..}+          = object+              (catMaybes+                 [Just ("DirectoryId" .= _delDirectoryId),+                  Just ("RemoteDomainName" .= _delRemoteDomainName)])++instance ToPath DeleteConditionalForwarder where+        toPath = const "/"++instance ToQuery DeleteConditionalForwarder where+        toQuery = const mempty++-- | /See:/ 'deleteConditionalForwarderResponse' smart constructor.+newtype DeleteConditionalForwarderResponse = DeleteConditionalForwarderResponse'+    { _drsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteConditionalForwarderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'drsResponseStatus'+deleteConditionalForwarderResponse+    :: Int -- ^ 'drsResponseStatus'+    -> DeleteConditionalForwarderResponse+deleteConditionalForwarderResponse pResponseStatus_ =+    DeleteConditionalForwarderResponse'+    { _drsResponseStatus = pResponseStatus_+    }++-- | The response status code.+drsResponseStatus :: Lens' DeleteConditionalForwarderResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});++instance NFData DeleteConditionalForwarderResponse

@@ -25,14 +25,14 @@       deleteDirectory     , DeleteDirectory     -- * Request Lenses-    , delDirectoryId+    , dddDirectoryId      -- * Destructuring the Response     , deleteDirectoryResponse     , DeleteDirectoryResponse     -- * Response Lenses-    , drsDirectoryId-    , drsResponseStatus+    , delrsDirectoryId+    , delrsResponseStatus     ) where  import           Network.AWS.DirectoryService.Types@@ -46,25 +46,25 @@ -- -- /See:/ 'deleteDirectory' smart constructor. newtype DeleteDirectory = DeleteDirectory'-    { _delDirectoryId :: Text+    { _dddDirectoryId :: Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteDirectory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delDirectoryId'+-- * 'dddDirectoryId' deleteDirectory-    :: Text -- ^ 'delDirectoryId'+    :: Text -- ^ 'dddDirectoryId'     -> DeleteDirectory deleteDirectory pDirectoryId_ =     DeleteDirectory'-    { _delDirectoryId = pDirectoryId_+    { _dddDirectoryId = pDirectoryId_     }  -- | The identifier of the directory to delete.-delDirectoryId :: Lens' DeleteDirectory Text-delDirectoryId = lens _delDirectoryId (\ s a -> s{_delDirectoryId = a});+dddDirectoryId :: Lens' DeleteDirectory Text+dddDirectoryId = lens _dddDirectoryId (\ s a -> s{_dddDirectoryId = a});  instance AWSRequest DeleteDirectory where         type Rs DeleteDirectory = DeleteDirectoryResponse@@ -77,6 +77,8 @@  instance Hashable DeleteDirectory +instance NFData DeleteDirectory+ instance ToHeaders DeleteDirectory where         toHeaders           = const@@ -90,7 +92,7 @@ instance ToJSON DeleteDirectory where         toJSON DeleteDirectory'{..}           = object-              (catMaybes [Just ("DirectoryId" .= _delDirectoryId)])+              (catMaybes [Just ("DirectoryId" .= _dddDirectoryId)])  instance ToPath DeleteDirectory where         toPath = const "/"@@ -102,30 +104,32 @@ -- -- /See:/ 'deleteDirectoryResponse' smart constructor. data DeleteDirectoryResponse = DeleteDirectoryResponse'-    { _drsDirectoryId    :: !(Maybe Text)-    , _drsResponseStatus :: !Int+    { _delrsDirectoryId    :: !(Maybe Text)+    , _delrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteDirectoryResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsDirectoryId'+-- * 'delrsDirectoryId' ----- * 'drsResponseStatus'+-- * 'delrsResponseStatus' deleteDirectoryResponse-    :: Int -- ^ 'drsResponseStatus'+    :: Int -- ^ 'delrsResponseStatus'     -> DeleteDirectoryResponse deleteDirectoryResponse pResponseStatus_ =     DeleteDirectoryResponse'-    { _drsDirectoryId = Nothing-    , _drsResponseStatus = pResponseStatus_+    { _delrsDirectoryId = Nothing+    , _delrsResponseStatus = pResponseStatus_     }  -- | The directory identifier.-drsDirectoryId :: Lens' DeleteDirectoryResponse (Maybe Text)-drsDirectoryId = lens _drsDirectoryId (\ s a -> s{_drsDirectoryId = a});+delrsDirectoryId :: Lens' DeleteDirectoryResponse (Maybe Text)+delrsDirectoryId = lens _delrsDirectoryId (\ s a -> s{_delrsDirectoryId = a});  -- | The response status code.-drsResponseStatus :: Lens' DeleteDirectoryResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+delrsResponseStatus :: Lens' DeleteDirectoryResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});++instance NFData DeleteDirectoryResponse

@@ -77,6 +77,8 @@  instance Hashable DeleteSnapshot +instance NFData DeleteSnapshot+ instance ToHeaders DeleteSnapshot where         toHeaders           = const@@ -129,3 +131,5 @@ -- | The response status code. dsrsResponseStatus :: Lens' DeleteSnapshotResponse Int dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});++instance NFData DeleteSnapshotResponse

@@ -26,14 +26,15 @@       deleteTrust     , DeleteTrust     -- * Request Lenses+    , dtDeleteAssociatedConditionalForwarder     , dtTrustId      -- * Destructuring the Response     , deleteTrustResponse     , DeleteTrustResponse     -- * Response Lenses-    , delrsTrustId-    , delrsResponseStatus+    , dttrsTrustId+    , dttrsResponseStatus     ) where  import           Network.AWS.DirectoryService.Types@@ -47,23 +48,31 @@ -- Microsoft AD in the AWS cloud and the external domain. -- -- /See:/ 'deleteTrust' smart constructor.-newtype DeleteTrust = DeleteTrust'-    { _dtTrustId :: Text+data DeleteTrust = DeleteTrust'+    { _dtDeleteAssociatedConditionalForwarder :: !(Maybe Bool)+    , _dtTrustId                              :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteTrust' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'dtDeleteAssociatedConditionalForwarder'+-- -- * 'dtTrustId' deleteTrust     :: Text -- ^ 'dtTrustId'     -> DeleteTrust deleteTrust pTrustId_ =     DeleteTrust'-    { _dtTrustId = pTrustId_+    { _dtDeleteAssociatedConditionalForwarder = Nothing+    , _dtTrustId = pTrustId_     } +-- | Undocumented member.+dtDeleteAssociatedConditionalForwarder :: Lens' DeleteTrust (Maybe Bool)+dtDeleteAssociatedConditionalForwarder = lens _dtDeleteAssociatedConditionalForwarder (\ s a -> s{_dtDeleteAssociatedConditionalForwarder = a});+ -- | The Trust ID of the trust relationship to be deleted. dtTrustId :: Lens' DeleteTrust Text dtTrustId = lens _dtTrustId (\ s a -> s{_dtTrustId = a});@@ -79,6 +88,8 @@  instance Hashable DeleteTrust +instance NFData DeleteTrust+ instance ToHeaders DeleteTrust where         toHeaders           = const@@ -91,7 +102,11 @@  instance ToJSON DeleteTrust where         toJSON DeleteTrust'{..}-          = object (catMaybes [Just ("TrustId" .= _dtTrustId)])+          = object+              (catMaybes+                 [("DeleteAssociatedConditionalForwarder" .=) <$>+                    _dtDeleteAssociatedConditionalForwarder,+                  Just ("TrustId" .= _dtTrustId)])  instance ToPath DeleteTrust where         toPath = const "/"@@ -101,30 +116,32 @@  -- | /See:/ 'deleteTrustResponse' smart constructor. data DeleteTrustResponse = DeleteTrustResponse'-    { _delrsTrustId        :: !(Maybe Text)-    , _delrsResponseStatus :: !Int+    { _dttrsTrustId        :: !(Maybe Text)+    , _dttrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteTrustResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'delrsTrustId'+-- * 'dttrsTrustId' ----- * 'delrsResponseStatus'+-- * 'dttrsResponseStatus' deleteTrustResponse-    :: Int -- ^ 'delrsResponseStatus'+    :: Int -- ^ 'dttrsResponseStatus'     -> DeleteTrustResponse deleteTrustResponse pResponseStatus_ =     DeleteTrustResponse'-    { _delrsTrustId = Nothing-    , _delrsResponseStatus = pResponseStatus_+    { _dttrsTrustId = Nothing+    , _dttrsResponseStatus = pResponseStatus_     }  -- | The Trust ID of the trust relationship that was deleted.-delrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)-delrsTrustId = lens _delrsTrustId (\ s a -> s{_delrsTrustId = a});+dttrsTrustId :: Lens' DeleteTrustResponse (Maybe Text)+dttrsTrustId = lens _dttrsTrustId (\ s a -> s{_dttrsTrustId = a});  -- | The response status code.-delrsResponseStatus :: Lens' DeleteTrustResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+dttrsResponseStatus :: Lens' DeleteTrustResponse Int+dttrsResponseStatus = lens _dttrsResponseStatus (\ s a -> s{_dttrsResponseStatus = a});++instance NFData DeleteTrustResponse

@@ -91,6 +91,8 @@  instance Hashable DeregisterEventTopic +instance NFData DeregisterEventTopic+ instance ToHeaders DeregisterEventTopic where         toHeaders           = const@@ -135,3 +137,5 @@ -- | The response status code. derrsResponseStatus :: Lens' DeregisterEventTopicResponse Int derrsResponseStatus = lens _derrsResponseStatus (\ s a -> s{_derrsResponseStatus = a});++instance NFData DeregisterEventTopicResponse

@@ -0,0 +1,152 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectoryService.DescribeConditionalForwarders+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Obtains information about the conditional forwarders for this account.+--+-- If no input parameters are provided for RemoteDomainNames, this request+-- describes all conditional forwarders for the specified directory ID.+module Network.AWS.DirectoryService.DescribeConditionalForwarders+    (+    -- * Creating a Request+      describeConditionalForwarders+    , DescribeConditionalForwarders+    -- * Request Lenses+    , dcfRemoteDomainNames+    , dcfDirectoryId++    -- * Destructuring the Response+    , describeConditionalForwardersResponse+    , DescribeConditionalForwardersResponse+    -- * Response Lenses+    , dcfrsConditionalForwarders+    , dcfrsResponseStatus+    ) where++import           Network.AWS.DirectoryService.Types+import           Network.AWS.DirectoryService.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeConditionalForwarders' smart constructor.+data DescribeConditionalForwarders = DescribeConditionalForwarders'+    { _dcfRemoteDomainNames :: !(Maybe [Text])+    , _dcfDirectoryId       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConditionalForwarders' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcfRemoteDomainNames'+--+-- * 'dcfDirectoryId'+describeConditionalForwarders+    :: Text -- ^ 'dcfDirectoryId'+    -> DescribeConditionalForwarders+describeConditionalForwarders pDirectoryId_ =+    DescribeConditionalForwarders'+    { _dcfRemoteDomainNames = Nothing+    , _dcfDirectoryId = pDirectoryId_+    }++-- | The fully qualified domain names (FQDN) of the remote domains for which+-- to get the list of associated conditional forwarders. If this member is+-- null, all conditional forwarders are returned.+dcfRemoteDomainNames :: Lens' DescribeConditionalForwarders [Text]+dcfRemoteDomainNames = lens _dcfRemoteDomainNames (\ s a -> s{_dcfRemoteDomainNames = a}) . _Default . _Coerce;++-- | The directory ID for which to get the list of associated conditional+-- forwarders.+dcfDirectoryId :: Lens' DescribeConditionalForwarders Text+dcfDirectoryId = lens _dcfDirectoryId (\ s a -> s{_dcfDirectoryId = a});++instance AWSRequest DescribeConditionalForwarders+         where+        type Rs DescribeConditionalForwarders =+             DescribeConditionalForwardersResponse+        request = postJSON directoryService+        response+          = receiveJSON+              (\ s h x ->+                 DescribeConditionalForwardersResponse' <$>+                   (x .?> "ConditionalForwarders" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeConditionalForwarders++instance NFData DescribeConditionalForwarders++instance ToHeaders DescribeConditionalForwarders+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DirectoryService_20150416.DescribeConditionalForwarders"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeConditionalForwarders where+        toJSON DescribeConditionalForwarders'{..}+          = object+              (catMaybes+                 [("RemoteDomainNames" .=) <$> _dcfRemoteDomainNames,+                  Just ("DirectoryId" .= _dcfDirectoryId)])++instance ToPath DescribeConditionalForwarders where+        toPath = const "/"++instance ToQuery DescribeConditionalForwarders where+        toQuery = const mempty++-- | /See:/ 'describeConditionalForwardersResponse' smart constructor.+data DescribeConditionalForwardersResponse = DescribeConditionalForwardersResponse'+    { _dcfrsConditionalForwarders :: !(Maybe [ConditionalForwarder])+    , _dcfrsResponseStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeConditionalForwardersResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcfrsConditionalForwarders'+--+-- * 'dcfrsResponseStatus'+describeConditionalForwardersResponse+    :: Int -- ^ 'dcfrsResponseStatus'+    -> DescribeConditionalForwardersResponse+describeConditionalForwardersResponse pResponseStatus_ =+    DescribeConditionalForwardersResponse'+    { _dcfrsConditionalForwarders = Nothing+    , _dcfrsResponseStatus = pResponseStatus_+    }++-- | The list of conditional forwarders that have been created.+dcfrsConditionalForwarders :: Lens' DescribeConditionalForwardersResponse [ConditionalForwarder]+dcfrsConditionalForwarders = lens _dcfrsConditionalForwarders (\ s a -> s{_dcfrsConditionalForwarders = a}) . _Default . _Coerce;++-- | The response status code.+dcfrsResponseStatus :: Lens' DescribeConditionalForwardersResponse Int+dcfrsResponseStatus = lens _dcfrsResponseStatus (\ s a -> s{_dcfrsResponseStatus = a});++instance NFData DescribeConditionalForwardersResponse

@@ -118,6 +118,8 @@  instance Hashable DescribeDirectories +instance NFData DescribeDirectories+ instance ToHeaders DescribeDirectories where         toHeaders           = const@@ -188,3 +190,5 @@ -- | The response status code. ddrsResponseStatus :: Lens' DescribeDirectoriesResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});++instance NFData DescribeDirectoriesResponse

@@ -94,6 +94,8 @@  instance Hashable DescribeEventTopics +instance NFData DescribeEventTopics+ instance ToHeaders DescribeEventTopics where         toHeaders           = const@@ -147,3 +149,5 @@ -- | The response status code. detrsResponseStatus :: Lens' DescribeEventTopicsResponse Int detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});++instance NFData DescribeEventTopicsResponse

@@ -119,6 +119,8 @@  instance Hashable DescribeSnapshots +instance NFData DescribeSnapshots+ instance ToHeaders DescribeSnapshots where         toHeaders           = const@@ -189,3 +191,5 @@ -- | The response status code. dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});++instance NFData DescribeSnapshotsResponse

@@ -117,6 +117,8 @@  instance Hashable DescribeTrusts +instance NFData DescribeTrusts+ instance ToHeaders DescribeTrusts where         toHeaders           = const@@ -186,3 +188,5 @@ -- | The response status code. dtrsResponseStatus :: Lens' DescribeTrustsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});++instance NFData DescribeTrustsResponse

@@ -77,6 +77,8 @@  instance Hashable DisableRadius +instance NFData DisableRadius+ instance ToHeaders DisableRadius where         toHeaders           = const@@ -121,3 +123,5 @@ -- | The response status code. drrsResponseStatus :: Lens' DisableRadiusResponse Int drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});++instance NFData DisableRadiusResponse

@@ -103,6 +103,8 @@  instance Hashable DisableSSO +instance NFData DisableSSO+ instance ToHeaders DisableSSO where         toHeaders           = const@@ -150,3 +152,5 @@ -- | The response status code. dssorsResponseStatus :: Lens' DisableSSOResponse Int dssorsResponseStatus = lens _dssorsResponseStatus (\ s a -> s{_dssorsResponseStatus = a});++instance NFData DisableSSOResponse

@@ -87,6 +87,8 @@  instance Hashable EnableRadius +instance NFData EnableRadius+ instance ToHeaders EnableRadius where         toHeaders           = const@@ -133,3 +135,5 @@ -- | The response status code. errsResponseStatus :: Lens' EnableRadiusResponse Int errsResponseStatus = lens _errsResponseStatus (\ s a -> s{_errsResponseStatus = a});++instance NFData EnableRadiusResponse

@@ -103,6 +103,8 @@  instance Hashable EnableSSO +instance NFData EnableSSO+ instance ToHeaders EnableSSO where         toHeaders           = const@@ -150,3 +152,5 @@ -- | The response status code. esrsResponseStatus :: Lens' EnableSSOResponse Int esrsResponseStatus = lens _esrsResponseStatus (\ s a -> s{_esrsResponseStatus = a});++instance NFData EnableSSOResponse

@@ -65,6 +65,8 @@  instance Hashable GetDirectoryLimits +instance NFData GetDirectoryLimits+ instance ToHeaders GetDirectoryLimits where         toHeaders           = const@@ -116,3 +118,5 @@ -- | The response status code. gdlrsResponseStatus :: Lens' GetDirectoryLimitsResponse Int gdlrsResponseStatus = lens _gdlrsResponseStatus (\ s a -> s{_gdlrsResponseStatus = a});++instance NFData GetDirectoryLimitsResponse

@@ -77,6 +77,8 @@  instance Hashable GetSnapshotLimits +instance NFData GetSnapshotLimits+ instance ToHeaders GetSnapshotLimits where         toHeaders           = const@@ -130,3 +132,5 @@ -- | The response status code. gslrsResponseStatus :: Lens' GetSnapshotLimitsResponse Int gslrsResponseStatus = lens _gslrsResponseStatus (\ s a -> s{_gslrsResponseStatus = a});++instance NFData GetSnapshotLimitsResponse

@@ -90,6 +90,8 @@  instance Hashable RegisterEventTopic +instance NFData RegisterEventTopic+ instance ToHeaders RegisterEventTopic where         toHeaders           = const@@ -134,3 +136,5 @@ -- | The response status code. retrsResponseStatus :: Lens' RegisterEventTopicResponse Int retrsResponseStatus = lens _retrsResponseStatus (\ s a -> s{_retrsResponseStatus = a});++instance NFData RegisterEventTopicResponse

@@ -86,6 +86,8 @@  instance Hashable RestoreFromSnapshot +instance NFData RestoreFromSnapshot+ instance ToHeaders RestoreFromSnapshot where         toHeaders           = const@@ -130,3 +132,5 @@ -- | The response status code. rfsrsResponseStatus :: Lens' RestoreFromSnapshotResponse Int rfsrsResponseStatus = lens _rfsrsResponseStatus (\ s a -> s{_rfsrsResponseStatus = a});++instance NFData RestoreFromSnapshotResponse

@@ -44,6 +44,9 @@     -- * RadiusStatus     , RadiusStatus (..) +    -- * ReplicationScope+    , ReplicationScope (..)+     -- * SnapshotStatus     , SnapshotStatus (..) @@ -75,6 +78,13 @@     , cComputerAttributes     , cComputerName +    -- * ConditionalForwarder+    , ConditionalForwarder+    , conditionalForwarder+    , cfDNSIPAddrs+    , cfRemoteDomainName+    , cfReplicationScope+     -- * DirectoryConnectSettings     , DirectoryConnectSettings     , directoryConnectSettings@@ -189,6 +199,7 @@     , tTrustDirection     , tStateLastUpdatedDateTime     , tTrustType+    , tTrustStateReason     , tRemoteDomainName     , tTrustId     , tCreatedDateTime@@ -227,6 +238,8 @@       | has (hasCode "ThrottlingException" . hasStatus 400) e =           Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"       | has (hasStatus 509) e = Just "limit_exceeded"

@@ -60,6 +60,8 @@  instance Hashable Attribute +instance NFData Attribute+ instance ToJSON Attribute where         toJSON Attribute'{..}           = object@@ -117,6 +119,67 @@  instance Hashable Computer +instance NFData Computer++-- | Points to a remote domain with which you are setting up a trust+-- relationship. Conditional forwarders are required in order to set up a+-- trust relationship with another domain.+--+-- /See:/ 'conditionalForwarder' smart constructor.+data ConditionalForwarder = ConditionalForwarder'+    { _cfDNSIPAddrs       :: !(Maybe [Text])+    , _cfRemoteDomainName :: !(Maybe Text)+    , _cfReplicationScope :: !(Maybe ReplicationScope)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ConditionalForwarder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cfDNSIPAddrs'+--+-- * 'cfRemoteDomainName'+--+-- * 'cfReplicationScope'+conditionalForwarder+    :: ConditionalForwarder+conditionalForwarder =+    ConditionalForwarder'+    { _cfDNSIPAddrs = Nothing+    , _cfRemoteDomainName = Nothing+    , _cfReplicationScope = Nothing+    }++-- | The IP addresses of the remote DNS server associated with+-- RemoteDomainName. This is the IP address of the DNS server that your+-- conditional forwarder points to.+cfDNSIPAddrs :: Lens' ConditionalForwarder [Text]+cfDNSIPAddrs = lens _cfDNSIPAddrs (\ s a -> s{_cfDNSIPAddrs = a}) . _Default . _Coerce;++-- | The fully qualified domain name (FQDN) of the remote domains pointed to+-- by the conditional forwarder.+cfRemoteDomainName :: Lens' ConditionalForwarder (Maybe Text)+cfRemoteDomainName = lens _cfRemoteDomainName (\ s a -> s{_cfRemoteDomainName = a});++-- | The replication scope of the conditional forwarder. The only allowed+-- value is 'Domain', which will replicate the conditional forwarder to all+-- of the domain controllers for your AWS directory.+cfReplicationScope :: Lens' ConditionalForwarder (Maybe ReplicationScope)+cfReplicationScope = lens _cfReplicationScope (\ s a -> s{_cfReplicationScope = a});++instance FromJSON ConditionalForwarder where+        parseJSON+          = withObject "ConditionalForwarder"+              (\ x ->+                 ConditionalForwarder' <$>+                   (x .:? "DnsIpAddrs" .!= mempty) <*>+                     (x .:? "RemoteDomainName")+                     <*> (x .:? "ReplicationScope"))++instance Hashable ConditionalForwarder++instance NFData ConditionalForwarder+ -- | Contains information for the < ConnectDirectory> operation when an AD -- Connector directory is being created. --@@ -177,6 +240,8 @@  instance Hashable DirectoryConnectSettings +instance NFData DirectoryConnectSettings+ instance ToJSON DirectoryConnectSettings where         toJSON DirectoryConnectSettings'{..}           = object@@ -264,6 +329,8 @@  instance Hashable DirectoryConnectSettingsDescription +instance NFData DirectoryConnectSettingsDescription+ -- | Contains information about an AWS Directory Service directory. -- -- /See:/ 'directoryDescription' smart constructor.@@ -463,6 +530,8 @@  instance Hashable DirectoryDescription +instance NFData DirectoryDescription+ -- | Contains directory limit information for a region. -- -- /See:/ 'directoryLimits' smart constructor.@@ -567,6 +636,8 @@  instance Hashable DirectoryLimits +instance NFData DirectoryLimits+ -- | Contains VPC information for the < CreateDirectory> or -- < CreateMicrosoftAD> operation. --@@ -604,6 +675,8 @@  instance Hashable DirectoryVPCSettings +instance NFData DirectoryVPCSettings+ instance ToJSON DirectoryVPCSettings where         toJSON DirectoryVPCSettings'{..}           = object@@ -673,6 +746,8 @@  instance Hashable DirectoryVPCSettingsDescription +instance NFData DirectoryVPCSettingsDescription+ -- | Information about SNS topic and AWS Directory Service directory -- associations. --@@ -744,6 +819,8 @@  instance Hashable EventTopic +instance NFData EventTopic+ -- | Contains information about a Remote Authentication Dial In User Service -- (RADIUS) server. --@@ -845,6 +922,8 @@  instance Hashable RadiusSettings +instance NFData RadiusSettings+ instance ToJSON RadiusSettings where         toJSON RadiusSettings'{..}           = object@@ -935,6 +1014,8 @@  instance Hashable Snapshot +instance NFData Snapshot+ -- | Contains manual snapshot limit information for a directory. -- -- /See:/ 'snapshotLimits' smart constructor.@@ -985,6 +1066,8 @@  instance Hashable SnapshotLimits +instance NFData SnapshotLimits+ -- | Describes a trust relationship between an Microsoft AD in the AWS cloud -- and an external domain. --@@ -996,6 +1079,7 @@     , _tTrustDirection           :: !(Maybe TrustDirection)     , _tStateLastUpdatedDateTime :: !(Maybe POSIX)     , _tTrustType                :: !(Maybe TrustType)+    , _tTrustStateReason         :: !(Maybe Text)     , _tRemoteDomainName         :: !(Maybe Text)     , _tTrustId                  :: !(Maybe Text)     , _tCreatedDateTime          :: !(Maybe POSIX)@@ -1017,6 +1101,8 @@ -- -- * 'tTrustType' --+-- * 'tTrustStateReason'+-- -- * 'tRemoteDomainName' -- -- * 'tTrustId'@@ -1032,6 +1118,7 @@     , _tTrustDirection = Nothing     , _tStateLastUpdatedDateTime = Nothing     , _tTrustType = Nothing+    , _tTrustStateReason = Nothing     , _tRemoteDomainName = Nothing     , _tTrustId = Nothing     , _tCreatedDateTime = Nothing@@ -1062,6 +1149,10 @@ tTrustType :: Lens' Trust (Maybe TrustType) tTrustType = lens _tTrustType (\ s a -> s{_tTrustType = a}); +-- | The reason for the TrustState.+tTrustStateReason :: Lens' Trust (Maybe Text)+tTrustStateReason = lens _tTrustStateReason (\ s a -> s{_tTrustStateReason = a});+ -- | The Fully Qualified Domain Name (FQDN) of the external domain involved -- in the trust relationship. tRemoteDomainName :: Lens' Trust (Maybe Text)@@ -1085,8 +1176,11 @@                      <*> (x .:? "TrustDirection")                      <*> (x .:? "StateLastUpdatedDateTime")                      <*> (x .:? "TrustType")+                     <*> (x .:? "TrustStateReason")                      <*> (x .:? "RemoteDomainName")                      <*> (x .:? "TrustId")                      <*> (x .:? "CreatedDateTime"))  instance Hashable Trust++instance NFData Trust

@@ -37,6 +37,7 @@         Small -> "Small"  instance Hashable     DirectorySize+instance NFData       DirectorySize instance ToByteString DirectorySize instance ToQuery      DirectorySize instance ToHeader     DirectorySize@@ -92,6 +93,7 @@         DSRestoring -> "Restoring"  instance Hashable     DirectoryStage+instance NFData       DirectoryStage instance ToByteString DirectoryStage instance ToQuery      DirectoryStage instance ToHeader     DirectoryStage@@ -120,6 +122,7 @@         SimpleAD -> "SimpleAD"  instance Hashable     DirectoryType+instance NFData       DirectoryType instance ToByteString DirectoryType instance ToQuery      DirectoryType instance ToHeader     DirectoryType@@ -151,6 +154,7 @@         Pap -> "PAP"  instance Hashable     RadiusAuthenticationProtocol+instance NFData       RadiusAuthenticationProtocol instance ToByteString RadiusAuthenticationProtocol instance ToQuery      RadiusAuthenticationProtocol instance ToHeader     RadiusAuthenticationProtocol@@ -182,6 +186,7 @@         Failed -> "Failed"  instance Hashable     RadiusStatus+instance NFData       RadiusStatus instance ToByteString RadiusStatus instance ToQuery      RadiusStatus instance ToHeader     RadiusStatus@@ -189,6 +194,29 @@ instance FromJSON RadiusStatus where     parseJSON = parseJSONText "RadiusStatus" +data ReplicationScope =+    Domain+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText ReplicationScope where+    parser = takeLowerText >>= \case+        "domain" -> pure Domain+        e -> fromTextError $ "Failure parsing ReplicationScope from value: '" <> e+           <> "'. Accepted values: Domain"++instance ToText ReplicationScope where+    toText = \case+        Domain -> "Domain"++instance Hashable     ReplicationScope+instance NFData       ReplicationScope+instance ToByteString ReplicationScope+instance ToQuery      ReplicationScope+instance ToHeader     ReplicationScope++instance FromJSON ReplicationScope where+    parseJSON = parseJSONText "ReplicationScope"+ data SnapshotStatus     = SSCompleted     | SSCreating@@ -210,6 +238,7 @@         SSFailed -> "Failed"  instance Hashable     SnapshotStatus+instance NFData       SnapshotStatus instance ToByteString SnapshotStatus instance ToQuery      SnapshotStatus instance ToHeader     SnapshotStatus@@ -235,6 +264,7 @@         Manual -> "Manual"  instance Hashable     SnapshotType+instance NFData       SnapshotType instance ToByteString SnapshotType instance ToQuery      SnapshotType instance ToHeader     SnapshotType@@ -266,6 +296,7 @@         TTopicNotFound -> "Topic not found"  instance Hashable     TopicStatus+instance NFData       TopicStatus instance ToByteString TopicStatus instance ToQuery      TopicStatus instance ToHeader     TopicStatus@@ -294,6 +325,7 @@         TwoWay -> "Two-Way"  instance Hashable     TrustDirection+instance NFData       TrustDirection instance ToByteString TrustDirection instance ToQuery      TrustDirection instance ToHeader     TrustDirection@@ -340,6 +372,7 @@         TSVerifying -> "Verifying"  instance Hashable     TrustState+instance NFData       TrustState instance ToByteString TrustState instance ToQuery      TrustState instance ToHeader     TrustState@@ -362,6 +395,7 @@         Forest -> "Forest"  instance Hashable     TrustType+instance NFData       TrustType instance ToByteString TrustType instance ToQuery      TrustType instance ToHeader     TrustType

@@ -0,0 +1,149 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectoryService.UpdateConditionalForwarder+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Updates a conditional forwarder that has been set up for your AWS+-- directory.+module Network.AWS.DirectoryService.UpdateConditionalForwarder+    (+    -- * Creating a Request+      updateConditionalForwarder+    , UpdateConditionalForwarder+    -- * Request Lenses+    , ucfDirectoryId+    , ucfRemoteDomainName+    , ucfDNSIPAddrs++    -- * Destructuring the Response+    , updateConditionalForwarderResponse+    , UpdateConditionalForwarderResponse+    -- * Response Lenses+    , ucfrsResponseStatus+    ) where++import           Network.AWS.DirectoryService.Types+import           Network.AWS.DirectoryService.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'updateConditionalForwarder' smart constructor.+data UpdateConditionalForwarder = UpdateConditionalForwarder'+    { _ucfDirectoryId      :: !Text+    , _ucfRemoteDomainName :: !Text+    , _ucfDNSIPAddrs       :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateConditionalForwarder' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ucfDirectoryId'+--+-- * 'ucfRemoteDomainName'+--+-- * 'ucfDNSIPAddrs'+updateConditionalForwarder+    :: Text -- ^ 'ucfDirectoryId'+    -> Text -- ^ 'ucfRemoteDomainName'+    -> UpdateConditionalForwarder+updateConditionalForwarder pDirectoryId_ pRemoteDomainName_ =+    UpdateConditionalForwarder'+    { _ucfDirectoryId = pDirectoryId_+    , _ucfRemoteDomainName = pRemoteDomainName_+    , _ucfDNSIPAddrs = mempty+    }++-- | The directory ID of the AWS directory for which to update the+-- conditional forwarder.+ucfDirectoryId :: Lens' UpdateConditionalForwarder Text+ucfDirectoryId = lens _ucfDirectoryId (\ s a -> s{_ucfDirectoryId = a});++-- | The fully qualified domain name (FQDN) of the remote domain with which+-- you will set up a trust relationship.+ucfRemoteDomainName :: Lens' UpdateConditionalForwarder Text+ucfRemoteDomainName = lens _ucfRemoteDomainName (\ s a -> s{_ucfRemoteDomainName = a});++-- | The updated IP addresses of the remote DNS server associated with the+-- conditional forwarder.+ucfDNSIPAddrs :: Lens' UpdateConditionalForwarder [Text]+ucfDNSIPAddrs = lens _ucfDNSIPAddrs (\ s a -> s{_ucfDNSIPAddrs = a}) . _Coerce;++instance AWSRequest UpdateConditionalForwarder where+        type Rs UpdateConditionalForwarder =+             UpdateConditionalForwarderResponse+        request = postJSON directoryService+        response+          = receiveEmpty+              (\ s h x ->+                 UpdateConditionalForwarderResponse' <$>+                   (pure (fromEnum s)))++instance Hashable UpdateConditionalForwarder++instance NFData UpdateConditionalForwarder++instance ToHeaders UpdateConditionalForwarder where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("DirectoryService_20150416.UpdateConditionalForwarder"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UpdateConditionalForwarder where+        toJSON UpdateConditionalForwarder'{..}+          = object+              (catMaybes+                 [Just ("DirectoryId" .= _ucfDirectoryId),+                  Just ("RemoteDomainName" .= _ucfRemoteDomainName),+                  Just ("DnsIpAddrs" .= _ucfDNSIPAddrs)])++instance ToPath UpdateConditionalForwarder where+        toPath = const "/"++instance ToQuery UpdateConditionalForwarder where+        toQuery = const mempty++-- | /See:/ 'updateConditionalForwarderResponse' smart constructor.+newtype UpdateConditionalForwarderResponse = UpdateConditionalForwarderResponse'+    { _ucfrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UpdateConditionalForwarderResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ucfrsResponseStatus'+updateConditionalForwarderResponse+    :: Int -- ^ 'ucfrsResponseStatus'+    -> UpdateConditionalForwarderResponse+updateConditionalForwarderResponse pResponseStatus_ =+    UpdateConditionalForwarderResponse'+    { _ucfrsResponseStatus = pResponseStatus_+    }++-- | The response status code.+ucfrsResponseStatus :: Lens' UpdateConditionalForwarderResponse Int+ucfrsResponseStatus = lens _ucfrsResponseStatus (\ s a -> s{_ucfrsResponseStatus = a});++instance NFData UpdateConditionalForwarderResponse

@@ -88,6 +88,8 @@  instance Hashable UpdateRadius +instance NFData UpdateRadius+ instance ToHeaders UpdateRadius where         toHeaders           = const@@ -134,3 +136,5 @@ -- | The response status code. urrsResponseStatus :: Lens' UpdateRadiusResponse Int urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});++instance NFData UpdateRadiusResponse

@@ -82,6 +82,8 @@  instance Hashable VerifyTrust +instance NFData VerifyTrust+ instance ToHeaders VerifyTrust where         toHeaders           = const@@ -131,3 +133,5 @@ -- | The response status code. vtrsResponseStatus :: Lens' VerifyTrustResponse Int vtrsResponseStatus = lens _vtrsResponseStatus (\ s a -> s{_vtrsResponseStatus = a});++instance NFData VerifyTrustResponse

@@ -28,7 +28,10 @@ -- fixtures :: TestTree -- fixtures = --     [ testGroup "request"---         [ testGetSnapshotLimits $+--         [ testDescribeConditionalForwarders $+--             describeConditionalForwarders+--+--         , testGetSnapshotLimits $ --             getSnapshotLimits -- --         , testRegisterEventTopic $@@ -61,6 +64,12 @@ --         , testDescribeEventTopics $ --             describeEventTopics --+--         , testUpdateConditionalForwarder $+--             updateConditionalForwarder+--+--         , testDeleteConditionalForwarder $+--             deleteConditionalForwarder+-- --         , testEnableSSO $ --             enableSSO --@@ -97,6 +106,9 @@ --         , testVerifyTrust $ --             verifyTrust --+--         , testCreateConditionalForwarder $+--             createConditionalForwarder+-- --         , testGetDirectoryLimits $ --             getDirectoryLimits --@@ -106,7 +118,10 @@ --           ]  --     , testGroup "response"---         [ testGetSnapshotLimitsResponse $+--         [ testDescribeConditionalForwardersResponse $+--             describeConditionalForwardersResponse+--+--         , testGetSnapshotLimitsResponse $ --             getSnapshotLimitsResponse -- --         , testRegisterEventTopicResponse $@@ -139,6 +154,12 @@ --         , testDescribeEventTopicsResponse $ --             describeEventTopicsResponse --+--         , testUpdateConditionalForwarderResponse $+--             updateConditionalForwarderResponse+--+--         , testDeleteConditionalForwarderResponse $+--             deleteConditionalForwarderResponse+-- --         , testEnableSSOResponse $ --             enableSSOResponse --@@ -175,6 +196,9 @@ --         , testVerifyTrustResponse $ --             verifyTrustResponse --+--         , testCreateConditionalForwarderResponse $+--             createConditionalForwarderResponse+-- --         , testGetDirectoryLimitsResponse $ --             getDirectoryLimitsResponse --@@ -186,6 +210,11 @@  -- Requests +testDescribeConditionalForwarders :: DescribeConditionalForwarders -> TestTree+testDescribeConditionalForwarders = req+    "DescribeConditionalForwarders"+    "fixture/DescribeConditionalForwarders.yaml"+ testGetSnapshotLimits :: GetSnapshotLimits -> TestTree testGetSnapshotLimits = req     "GetSnapshotLimits"@@ -241,6 +270,16 @@     "DescribeEventTopics"     "fixture/DescribeEventTopics.yaml" +testUpdateConditionalForwarder :: UpdateConditionalForwarder -> TestTree+testUpdateConditionalForwarder = req+    "UpdateConditionalForwarder"+    "fixture/UpdateConditionalForwarder.yaml"++testDeleteConditionalForwarder :: DeleteConditionalForwarder -> TestTree+testDeleteConditionalForwarder = req+    "DeleteConditionalForwarder"+    "fixture/DeleteConditionalForwarder.yaml"+ testEnableSSO :: EnableSSO -> TestTree testEnableSSO = req     "EnableSSO"@@ -301,6 +340,11 @@     "VerifyTrust"     "fixture/VerifyTrust.yaml" +testCreateConditionalForwarder :: CreateConditionalForwarder -> TestTree+testCreateConditionalForwarder = req+    "CreateConditionalForwarder"+    "fixture/CreateConditionalForwarder.yaml"+ testGetDirectoryLimits :: GetDirectoryLimits -> TestTree testGetDirectoryLimits = req     "GetDirectoryLimits"@@ -313,6 +357,13 @@  -- Responses +testDescribeConditionalForwardersResponse :: DescribeConditionalForwardersResponse -> TestTree+testDescribeConditionalForwardersResponse = res+    "DescribeConditionalForwardersResponse"+    "fixture/DescribeConditionalForwardersResponse.proto"+    directoryService+    (Proxy :: Proxy DescribeConditionalForwarders)+ testGetSnapshotLimitsResponse :: GetSnapshotLimitsResponse -> TestTree testGetSnapshotLimitsResponse = res     "GetSnapshotLimitsResponse"@@ -390,6 +441,20 @@     directoryService     (Proxy :: Proxy DescribeEventTopics) +testUpdateConditionalForwarderResponse :: UpdateConditionalForwarderResponse -> TestTree+testUpdateConditionalForwarderResponse = res+    "UpdateConditionalForwarderResponse"+    "fixture/UpdateConditionalForwarderResponse.proto"+    directoryService+    (Proxy :: Proxy UpdateConditionalForwarder)++testDeleteConditionalForwarderResponse :: DeleteConditionalForwarderResponse -> TestTree+testDeleteConditionalForwarderResponse = res+    "DeleteConditionalForwarderResponse"+    "fixture/DeleteConditionalForwarderResponse.proto"+    directoryService+    (Proxy :: Proxy DeleteConditionalForwarder)+ testEnableSSOResponse :: EnableSSOResponse -> TestTree testEnableSSOResponse = res     "EnableSSOResponse"@@ -473,6 +538,13 @@     "fixture/VerifyTrustResponse.proto"     directoryService     (Proxy :: Proxy VerifyTrust)++testCreateConditionalForwarderResponse :: CreateConditionalForwarderResponse -> TestTree+testCreateConditionalForwarderResponse = res+    "CreateConditionalForwarderResponse"+    "fixture/CreateConditionalForwarderResponse.proto"+    directoryService+    (Proxy :: Proxy CreateConditionalForwarder)  testGetDirectoryLimitsResponse :: GetDirectoryLimitsResponse -> TestTree testGetDirectoryLimitsResponse = res