amazonka-directconnect 1.4.4 → 1.4.5

raw patch · 43 files changed

+1864/−389 lines, 43 filesdep ~amazonka-coredep ~amazonka-directconnectdep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−6
• amazonka-directconnect.cabal +15/−11
• fixture/CreateBGPPeer.yaml +0/−0
• fixture/CreateBGPPeerResponse.proto +0/−0
• fixture/DeleteBGPPeer.yaml +0/−0
• fixture/DeleteBGPPeerResponse.proto +0/−0
• fixture/DescribeTags.yaml +0/−0
• fixture/DescribeTagsResponse.proto +0/−0
• fixture/TagResource.yaml +0/−0
• fixture/TagResourceResponse.proto +0/−0
• fixture/UntagResource.yaml +0/−0
• fixture/UntagResourceResponse.proto +0/−0
• gen/Network/AWS/DirectConnect.hs +81/−6
• gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs +13/−33
• gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs +13/−13
• gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs +15/−13
• gen/Network/AWS/DirectConnect/ConfirmConnection.hs +11/−5
• gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs +12/−10
• gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs +10/−4
• gen/Network/AWS/DirectConnect/CreateBGPPeer.hs +157/−0
• gen/Network/AWS/DirectConnect/CreateConnection.hs +7/−3
• gen/Network/AWS/DirectConnect/CreateInterconnect.hs +11/−23
• gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs +9/−5
• gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs +11/−5
• gen/Network/AWS/DirectConnect/DeleteBGPPeer.hs +161/−0
• gen/Network/AWS/DirectConnect/DeleteConnection.hs +5/−1
• gen/Network/AWS/DirectConnect/DeleteInterconnect.hs +9/−5
• gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs +10/−4
• gen/Network/AWS/DirectConnect/DescribeConnectionLoa.hs +13/−9
• gen/Network/AWS/DirectConnect/DescribeConnections.hs +5/−1
• gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs +5/−7
• gen/Network/AWS/DirectConnect/DescribeInterconnectLoa.hs +13/−9
• gen/Network/AWS/DirectConnect/DescribeInterconnects.hs +10/−4
• gen/Network/AWS/DirectConnect/DescribeLocations.hs +7/−3
• gen/Network/AWS/DirectConnect/DescribeTags.hs +141/−0
• gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs +7/−3
• gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs +11/−5
• gen/Network/AWS/DirectConnect/TagResource.hs +144/−0
• gen/Network/AWS/DirectConnect/Types.hs +73/−7
• gen/Network/AWS/DirectConnect/Types/Product.hs +463/−146
• gen/Network/AWS/DirectConnect/Types/Sum.hs +182/−48
• gen/Network/AWS/DirectConnect/UntagResource.hs +141/−0
• test/Test/AWS/Gen/DirectConnect.hs +90/−0

@@ -8,24 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -AWS Direct Connect links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. With this connection in place, you can create virtual interfaces directly to the AWS cloud (for example, to Amazon Elastic Compute Cloud (Amazon EC2) and Amazon Simple Storage Service (Amazon S3)) and to Amazon Virtual Private Cloud (Amazon VPC), bypassing Internet service providers in your network path. An AWS Direct Connect location provides access to AWS in the region it is associated with, as well as access to other US regions. For example, you can provision a single connection to any AWS Direct Connect location in the US and use it to access public AWS services in all US Regions and AWS GovCloud (US).- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-directconnect) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.DirectConnect](http://hackage.haskell.org/package/amazonka-directconnect/docs/Network-AWS-DirectConnect.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-directconnect-version:               1.4.4+version:               1.4.5 synopsis:              Amazon Direct Connect SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,20 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    AWS Direct Connect links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. With this connection in place, you can create virtual interfaces directly to the AWS cloud (for example, to Amazon Elastic Compute Cloud (Amazon EC2) and Amazon Simple Storage Service (Amazon S3)) and to Amazon Virtual Private Cloud (Amazon VPC), bypassing Internet service providers in your network path. An AWS Direct Connect location provides access to AWS in the region it is associated with, as well as access to other US regions. For example, you can provision a single connection to any AWS Direct Connect location in the US and use it to access public AWS services in all US Regions and AWS GovCloud (US).-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.DirectConnect" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.DirectConnect" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -47,10 +46,12 @@         , Network.AWS.DirectConnect.ConfirmConnection         , Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface         , Network.AWS.DirectConnect.ConfirmPublicVirtualInterface+        , Network.AWS.DirectConnect.CreateBGPPeer         , Network.AWS.DirectConnect.CreateConnection         , Network.AWS.DirectConnect.CreateInterconnect         , Network.AWS.DirectConnect.CreatePrivateVirtualInterface         , Network.AWS.DirectConnect.CreatePublicVirtualInterface+        , Network.AWS.DirectConnect.DeleteBGPPeer         , Network.AWS.DirectConnect.DeleteConnection         , Network.AWS.DirectConnect.DeleteInterconnect         , Network.AWS.DirectConnect.DeleteVirtualInterface@@ -60,9 +61,12 @@         , Network.AWS.DirectConnect.DescribeInterconnectLoa         , Network.AWS.DirectConnect.DescribeInterconnects         , Network.AWS.DirectConnect.DescribeLocations+        , Network.AWS.DirectConnect.DescribeTags         , Network.AWS.DirectConnect.DescribeVirtualGateways         , Network.AWS.DirectConnect.DescribeVirtualInterfaces+        , Network.AWS.DirectConnect.TagResource         , Network.AWS.DirectConnect.Types+        , Network.AWS.DirectConnect.UntagResource         , Network.AWS.DirectConnect.Waiters      other-modules:@@ -70,7 +74,7 @@         , Network.AWS.DirectConnect.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-directconnect-test@@ -90,9 +94,9 @@         , Test.AWS.DirectConnect.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-directconnect == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-directconnect == 1.4.5.*         , base         , bytestring         , tasty

@@ -12,6 +12,8 @@ -- Portability : non-portable (GHC extensions) -- -- AWS Direct Connect links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. With this connection in place, you can create virtual interfaces directly to the AWS cloud (for example, to Amazon Elastic Compute Cloud (Amazon EC2) and Amazon Simple Storage Service (Amazon S3)) and to Amazon Virtual Private Cloud (Amazon VPC), bypassing Internet service providers in your network path. An AWS Direct Connect location provides access to AWS in the region it is associated with, as well as access to other US regions. For example, you can provision a single connection to any AWS Direct Connect location in the US and use it to access public AWS services in all US Regions and AWS GovCloud (US).+--+-- module Network.AWS.DirectConnect     (     -- * Service Configuration@@ -23,6 +25,12 @@     -- ** DirectConnectClientException     , _DirectConnectClientException +    -- ** DuplicateTagKeysException+    , _DuplicateTagKeysException++    -- ** TooManyTagsException+    , _TooManyTagsException+     -- ** DirectConnectServerException     , _DirectConnectServerException @@ -35,6 +43,9 @@     -- ** DescribeInterconnects     , module Network.AWS.DirectConnect.DescribeInterconnects +    -- ** DescribeTags+    , module Network.AWS.DirectConnect.DescribeTags+     -- ** DeleteConnection     , module Network.AWS.DirectConnect.DeleteConnection @@ -89,14 +100,35 @@     -- ** AllocateConnectionOnInterconnect     , module Network.AWS.DirectConnect.AllocateConnectionOnInterconnect +    -- ** TagResource+    , module Network.AWS.DirectConnect.TagResource++    -- ** UntagResource+    , module Network.AWS.DirectConnect.UntagResource++    -- ** CreateBGPPeer+    , module Network.AWS.DirectConnect.CreateBGPPeer+     -- ** CreateInterconnect     , module Network.AWS.DirectConnect.CreateInterconnect +    -- ** DeleteBGPPeer+    , module Network.AWS.DirectConnect.DeleteBGPPeer+     -- ** DescribeConnectionLoa     , module Network.AWS.DirectConnect.DescribeConnectionLoa      -- * Types +    -- ** AddressFamily+    , AddressFamily (..)++    -- ** BGPPeerState+    , BGPPeerState (..)++    -- ** BGPStatus+    , BGPStatus (..)+     -- ** ConnectionState     , ConnectionState (..) @@ -109,6 +141,17 @@     -- ** VirtualInterfaceState     , VirtualInterfaceState (..) +    -- ** BGPPeer+    , BGPPeer+    , bgpPeer+    , bpCustomerAddress+    , bpAmazonAddress+    , bpAddressFamily+    , bpBgpStatus+    , bpAsn+    , bpAuthKey+    , bpBgpPeerState+     -- ** Connection     , Connection     , connection@@ -151,11 +194,21 @@     , lLocationName     , lLocationCode +    -- ** NewBGPPeer+    , NewBGPPeer+    , newBGPPeer+    , nbpCustomerAddress+    , nbpAmazonAddress+    , nbpAddressFamily+    , nbpAsn+    , nbpAuthKey+     -- ** NewPrivateVirtualInterface     , NewPrivateVirtualInterface     , newPrivateVirtualInterface     , nCustomerAddress     , nAmazonAddress+    , nAddressFamily     , nAuthKey     , nVirtualInterfaceName     , nVlan@@ -167,6 +220,7 @@     , newPrivateVirtualInterfaceAllocation     , npviaCustomerAddress     , npviaAmazonAddress+    , npviaAddressFamily     , npviaAuthKey     , npviaVirtualInterfaceName     , npviaVlan@@ -175,30 +229,44 @@     -- ** NewPublicVirtualInterface     , NewPublicVirtualInterface     , newPublicVirtualInterface+    , npviRouteFilterPrefixes+    , npviCustomerAddress+    , npviAmazonAddress+    , npviAddressFamily     , npviAuthKey     , npviVirtualInterfaceName     , npviVlan     , npviAsn-    , npviAmazonAddress-    , npviCustomerAddress-    , npviRouteFilterPrefixes      -- ** NewPublicVirtualInterfaceAllocation     , NewPublicVirtualInterfaceAllocation     , newPublicVirtualInterfaceAllocation+    , newRouteFilterPrefixes+    , newCustomerAddress+    , newAmazonAddress+    , newAddressFamily     , newAuthKey     , newVirtualInterfaceName     , newVlan     , newAsn-    , newAmazonAddress-    , newCustomerAddress-    , newRouteFilterPrefixes +    -- ** ResourceTag+    , ResourceTag+    , resourceTag+    , rtResourceARN+    , rtTags+     -- ** RouteFilterPrefix     , RouteFilterPrefix     , routeFilterPrefix     , rfpCidr +    -- ** Tag+    , Tag+    , tag+    , tagValue+    , tagKey+     -- ** VirtualGateway     , VirtualGateway     , virtualGateway@@ -208,12 +276,14 @@     -- ** VirtualInterface     , VirtualInterface     , virtualInterface+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -231,10 +301,12 @@ import           Network.AWS.DirectConnect.ConfirmConnection import           Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface import           Network.AWS.DirectConnect.ConfirmPublicVirtualInterface+import           Network.AWS.DirectConnect.CreateBGPPeer import           Network.AWS.DirectConnect.CreateConnection import           Network.AWS.DirectConnect.CreateInterconnect import           Network.AWS.DirectConnect.CreatePrivateVirtualInterface import           Network.AWS.DirectConnect.CreatePublicVirtualInterface+import           Network.AWS.DirectConnect.DeleteBGPPeer import           Network.AWS.DirectConnect.DeleteConnection import           Network.AWS.DirectConnect.DeleteInterconnect import           Network.AWS.DirectConnect.DeleteVirtualInterface@@ -244,9 +316,12 @@ import           Network.AWS.DirectConnect.DescribeInterconnectLoa import           Network.AWS.DirectConnect.DescribeInterconnects import           Network.AWS.DirectConnect.DescribeLocations+import           Network.AWS.DirectConnect.DescribeTags import           Network.AWS.DirectConnect.DescribeVirtualGateways import           Network.AWS.DirectConnect.DescribeVirtualInterfaces+import           Network.AWS.DirectConnect.TagResource import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.UntagResource import           Network.AWS.DirectConnect.Waiters  {- $errors

@@ -20,9 +20,9 @@ -- -- Creates a hosted connection on an interconnect. --+-- -- Allocates a VLAN number and a specified amount of bandwidth for use by a hosted connection on the given interconnect. ----- This is intended for use by AWS Direct Connect partners only. module Network.AWS.DirectConnect.AllocateConnectionOnInterconnect     (     -- * Creating a Request@@ -60,6 +60,8 @@  -- | Container for the parameters to the AllocateConnectionOnInterconnect operation. --+--+-- -- /See:/ 'allocateConnectionOnInterconnect' smart constructor. data AllocateConnectionOnInterconnect = AllocateConnectionOnInterconnect'     { _acoiBandwidth      :: !Text@@ -73,15 +75,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'acoiBandwidth'+-- * 'acoiBandwidth' - Bandwidth of the connection. Example: "/500Mbps/ " Default: None Values: 50M, 100M, 200M, 300M, 400M, or 500M ----- * 'acoiConnectionName'+-- * 'acoiConnectionName' - Name of the provisioned connection. Example: "/500M Connection to AWS/ " Default: None ----- * 'acoiOwnerAccount'+-- * 'acoiOwnerAccount' - Numeric account Id of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None ----- * 'acoiInterconnectId'+-- * 'acoiInterconnectId' - ID of the interconnect on which the connection will be provisioned. Example: dxcon-456abc78 Default: None ----- * 'acoiVlan'+-- * 'acoiVlan' - The dedicated VLAN provisioned to the connection. Example: 101 Default: None allocateConnectionOnInterconnect     :: Text -- ^ 'acoiBandwidth'     -> Text -- ^ 'acoiConnectionName'@@ -98,45 +100,23 @@     , _acoiVlan = pVlan_     } --- | Bandwidth of the connection.------ Example: \"/500Mbps/\"------ Default: None------ Values: 50M, 100M, 200M, 300M, 400M, or 500M+-- | Bandwidth of the connection. Example: "/500Mbps/ " Default: None Values: 50M, 100M, 200M, 300M, 400M, or 500M acoiBandwidth :: Lens' AllocateConnectionOnInterconnect Text acoiBandwidth = lens _acoiBandwidth (\ s a -> s{_acoiBandwidth = a}); --- | Name of the provisioned connection.------ Example: \"/500M Connection to AWS/\"------ Default: None+-- | Name of the provisioned connection. Example: "/500M Connection to AWS/ " Default: None acoiConnectionName :: Lens' AllocateConnectionOnInterconnect Text acoiConnectionName = lens _acoiConnectionName (\ s a -> s{_acoiConnectionName = a}); --- | Numeric account Id of the customer for whom the connection will be provisioned.------ Example: 123443215678------ Default: None+-- | Numeric account Id of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None acoiOwnerAccount :: Lens' AllocateConnectionOnInterconnect Text acoiOwnerAccount = lens _acoiOwnerAccount (\ s a -> s{_acoiOwnerAccount = a}); --- | ID of the interconnect on which the connection will be provisioned.------ Example: dxcon-456abc78------ Default: None+-- | ID of the interconnect on which the connection will be provisioned. Example: dxcon-456abc78 Default: None acoiInterconnectId :: Lens' AllocateConnectionOnInterconnect Text acoiInterconnectId = lens _acoiInterconnectId (\ s a -> s{_acoiInterconnectId = a}); --- | The dedicated VLAN provisioned to the connection.------ Example: 101------ Default: None+-- | The dedicated VLAN provisioned to the connection. Example: 101 Default: None acoiVlan :: Lens' AllocateConnectionOnInterconnect Int acoiVlan = lens _acoiVlan (\ s a -> s{_acoiVlan = a}); 

@@ -20,9 +20,11 @@ -- -- Provisions a private virtual interface to be owned by a different customer. --+-- -- The owner of a connection calls this function to provision a private virtual interface which will be owned by another AWS customer. ----- Virtual interfaces created using this function must be confirmed by the virtual interface owner by calling ConfirmPrivateVirtualInterface. Until this step has been completed, the virtual interface will be in \'Confirming\' state, and will not be available for handling traffic.+-- Virtual interfaces created using this function must be confirmed by the virtual interface owner by calling ConfirmPrivateVirtualInterface. Until this step has been completed, the virtual interface will be in 'Confirming' state, and will not be available for handling traffic.+-- module Network.AWS.DirectConnect.AllocatePrivateVirtualInterface     (     -- * Creating a Request@@ -37,12 +39,14 @@     , virtualInterface     , VirtualInterface     -- * Response Lenses+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -63,6 +67,8 @@  -- | Container for the parameters to the AllocatePrivateVirtualInterface operation. --+--+-- -- /See:/ 'allocatePrivateVirtualInterface' smart constructor. data AllocatePrivateVirtualInterface = AllocatePrivateVirtualInterface'     { _apviConnectionId                         :: !Text@@ -74,11 +80,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'apviConnectionId'+-- * 'apviConnectionId' - The connection ID on which the private virtual interface is provisioned. Default: None ----- * 'apviOwnerAccount'+-- * 'apviOwnerAccount' - The AWS account that will own the new private virtual interface. Default: None ----- * 'apviNewPrivateVirtualInterfaceAllocation'+-- * 'apviNewPrivateVirtualInterfaceAllocation' - Detailed information for the private virtual interface to be provisioned. Default: None allocatePrivateVirtualInterface     :: Text -- ^ 'apviConnectionId'     -> Text -- ^ 'apviOwnerAccount'@@ -91,21 +97,15 @@     , _apviNewPrivateVirtualInterfaceAllocation = pNewPrivateVirtualInterfaceAllocation_     } --- | The connection ID on which the private virtual interface is provisioned.------ Default: None+-- | The connection ID on which the private virtual interface is provisioned. Default: None apviConnectionId :: Lens' AllocatePrivateVirtualInterface Text apviConnectionId = lens _apviConnectionId (\ s a -> s{_apviConnectionId = a}); --- | The AWS account that will own the new private virtual interface.------ Default: None+-- | The AWS account that will own the new private virtual interface. Default: None apviOwnerAccount :: Lens' AllocatePrivateVirtualInterface Text apviOwnerAccount = lens _apviOwnerAccount (\ s a -> s{_apviOwnerAccount = a}); --- | Detailed information for the private virtual interface to be provisioned.------ Default: None+-- | Detailed information for the private virtual interface to be provisioned. Default: None apviNewPrivateVirtualInterfaceAllocation :: Lens' AllocatePrivateVirtualInterface NewPrivateVirtualInterfaceAllocation apviNewPrivateVirtualInterfaceAllocation = lens _apviNewPrivateVirtualInterfaceAllocation (\ s a -> s{_apviNewPrivateVirtualInterfaceAllocation = a}); 

@@ -20,9 +20,13 @@ -- -- Provisions a public virtual interface to be owned by a different customer. --+-- -- The owner of a connection calls this function to provision a public virtual interface which will be owned by another AWS customer. ----- Virtual interfaces created using this function must be confirmed by the virtual interface owner by calling ConfirmPublicVirtualInterface. Until this step has been completed, the virtual interface will be in \'Confirming\' state, and will not be available for handling traffic.+-- Virtual interfaces created using this function must be confirmed by the virtual interface owner by calling ConfirmPublicVirtualInterface. Until this step has been completed, the virtual interface will be in 'Confirming' state, and will not be available for handling traffic.+--+-- When creating an IPv6 public virtual interface (addressFamily is 'ipv6'), the customer and amazon address fields should be left blank to use auto-assigned IPv6 space. Custom IPv6 Addresses are currently not supported.+-- module Network.AWS.DirectConnect.AllocatePublicVirtualInterface     (     -- * Creating a Request@@ -37,12 +41,14 @@     , virtualInterface     , VirtualInterface     -- * Response Lenses+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -63,6 +69,8 @@  -- | Container for the parameters to the AllocatePublicVirtualInterface operation. --+--+-- -- /See:/ 'allocatePublicVirtualInterface' smart constructor. data AllocatePublicVirtualInterface = AllocatePublicVirtualInterface'     { _aConnectionId                        :: !Text@@ -74,11 +82,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'aConnectionId'+-- * 'aConnectionId' - The connection ID on which the public virtual interface is provisioned. Default: None ----- * 'aOwnerAccount'+-- * 'aOwnerAccount' - The AWS account that will own the new public virtual interface. Default: None ----- * 'aNewPublicVirtualInterfaceAllocation'+-- * 'aNewPublicVirtualInterfaceAllocation' - Detailed information for the public virtual interface to be provisioned. Default: None allocatePublicVirtualInterface     :: Text -- ^ 'aConnectionId'     -> Text -- ^ 'aOwnerAccount'@@ -91,21 +99,15 @@     , _aNewPublicVirtualInterfaceAllocation = pNewPublicVirtualInterfaceAllocation_     } --- | The connection ID on which the public virtual interface is provisioned.------ Default: None+-- | The connection ID on which the public virtual interface is provisioned. Default: None aConnectionId :: Lens' AllocatePublicVirtualInterface Text aConnectionId = lens _aConnectionId (\ s a -> s{_aConnectionId = a}); --- | The AWS account that will own the new public virtual interface.------ Default: None+-- | The AWS account that will own the new public virtual interface. Default: None aOwnerAccount :: Lens' AllocatePublicVirtualInterface Text aOwnerAccount = lens _aOwnerAccount (\ s a -> s{_aOwnerAccount = a}); --- | Detailed information for the public virtual interface to be provisioned.------ Default: None+-- | Detailed information for the public virtual interface to be provisioned. Default: None aNewPublicVirtualInterfaceAllocation :: Lens' AllocatePublicVirtualInterface NewPublicVirtualInterfaceAllocation aNewPublicVirtualInterfaceAllocation = lens _aNewPublicVirtualInterfaceAllocation (\ s a -> s{_aNewPublicVirtualInterfaceAllocation = a}); 

@@ -20,7 +20,9 @@ -- -- Confirm the creation of a hosted connection on an interconnect. ----- Upon creation, the hosted connection is initially in the \'Ordering\' state, and will remain in this state until the owner calls ConfirmConnection to confirm creation of the hosted connection.+--+-- Upon creation, the hosted connection is initially in the 'Ordering' state, and will remain in this state until the owner calls ConfirmConnection to confirm creation of the hosted connection.+-- module Network.AWS.DirectConnect.ConfirmConnection     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Container for the parameters to the ConfirmConnection operation. --+--+-- -- /See:/ 'confirmConnection' smart constructor. newtype ConfirmConnection = ConfirmConnection'     { _ccConnectionId :: Text@@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccConnectionId'+-- * 'ccConnectionId' - Undocumented member. confirmConnection     :: Text -- ^ 'ccConnectionId'     -> ConfirmConnection@@ -104,6 +108,8 @@  -- | The response received when ConfirmConnection is called. --+--+-- -- /See:/ 'confirmConnectionResponse' smart constructor. data ConfirmConnectionResponse = ConfirmConnectionResponse'     { _ccrsConnectionState :: !(Maybe ConnectionState)@@ -114,9 +120,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccrsConnectionState'+-- * 'ccrsConnectionState' - Undocumented member. ----- * 'ccrsResponseStatus'+-- * 'ccrsResponseStatus' - -- | The response status code. confirmConnectionResponse     :: Int -- ^ 'ccrsResponseStatus'     -> ConfirmConnectionResponse@@ -130,7 +136,7 @@ ccrsConnectionState :: Lens' ConfirmConnectionResponse (Maybe ConnectionState) ccrsConnectionState = lens _ccrsConnectionState (\ s a -> s{_ccrsConnectionState = a}); --- | The response status code.+-- | -- | The response status code. ccrsResponseStatus :: Lens' ConfirmConnectionResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Accept ownership of a private virtual interface created by another customer. --+-- -- After the virtual interface owner calls this function, the virtual interface will be created and attached to the given virtual private gateway, and will be available for handling traffic.+-- module Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface     (     -- * Creating a Request@@ -47,6 +49,8 @@  -- | Container for the parameters to the ConfirmPrivateVirtualInterface operation. --+--+-- -- /See:/ 'confirmPrivateVirtualInterface' smart constructor. data ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterface'     { _cpviVirtualInterfaceId :: !Text@@ -57,9 +61,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpviVirtualInterfaceId'+-- * 'cpviVirtualInterfaceId' - Undocumented member. ----- * 'cpviVirtualGatewayId'+-- * 'cpviVirtualGatewayId' - ID of the virtual private gateway that will be attached to the virtual interface. A virtual private gateway can be managed via the Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action. Default: None confirmPrivateVirtualInterface     :: Text -- ^ 'cpviVirtualInterfaceId'     -> Text -- ^ 'cpviVirtualGatewayId'@@ -74,11 +78,7 @@ cpviVirtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text cpviVirtualInterfaceId = lens _cpviVirtualInterfaceId (\ s a -> s{_cpviVirtualInterfaceId = a}); --- | ID of the virtual private gateway that will be attached to the virtual interface.------ A virtual private gateway can be managed via the Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action.------ Default: None+-- | ID of the virtual private gateway that will be attached to the virtual interface. A virtual private gateway can be managed via the Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action. Default: None cpviVirtualGatewayId :: Lens' ConfirmPrivateVirtualInterface Text cpviVirtualGatewayId = lens _cpviVirtualGatewayId (\ s a -> s{_cpviVirtualGatewayId = a}); @@ -125,6 +125,8 @@  -- | The response received when ConfirmPrivateVirtualInterface is called. --+--+-- -- /See:/ 'confirmPrivateVirtualInterfaceResponse' smart constructor. data ConfirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse'     { _cpvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)@@ -135,9 +137,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpvirsVirtualInterfaceState'+-- * 'cpvirsVirtualInterfaceState' - Undocumented member. ----- * 'cpvirsResponseStatus'+-- * 'cpvirsResponseStatus' - -- | The response status code. confirmPrivateVirtualInterfaceResponse     :: Int -- ^ 'cpvirsResponseStatus'     -> ConfirmPrivateVirtualInterfaceResponse@@ -151,7 +153,7 @@ cpvirsVirtualInterfaceState :: Lens' ConfirmPrivateVirtualInterfaceResponse (Maybe VirtualInterfaceState) cpvirsVirtualInterfaceState = lens _cpvirsVirtualInterfaceState (\ s a -> s{_cpvirsVirtualInterfaceState = a}); --- | The response status code.+-- | -- | The response status code. cpvirsResponseStatus :: Lens' ConfirmPrivateVirtualInterfaceResponse Int cpvirsResponseStatus = lens _cpvirsResponseStatus (\ s a -> s{_cpvirsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Accept ownership of a public virtual interface created by another customer. --+-- -- After the virtual interface owner calls this function, the specified virtual interface will be created and made available for handling traffic.+-- module Network.AWS.DirectConnect.ConfirmPublicVirtualInterface     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Container for the parameters to the ConfirmPublicVirtualInterface operation. --+--+-- -- /See:/ 'confirmPublicVirtualInterface' smart constructor. newtype ConfirmPublicVirtualInterface = ConfirmPublicVirtualInterface'     { _cVirtualInterfaceId :: Text@@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cVirtualInterfaceId'+-- * 'cVirtualInterfaceId' - Undocumented member. confirmPublicVirtualInterface     :: Text -- ^ 'cVirtualInterfaceId'     -> ConfirmPublicVirtualInterface@@ -110,6 +114,8 @@  -- | The response received when ConfirmPublicVirtualInterface is called. --+--+-- -- /See:/ 'confirmPublicVirtualInterfaceResponse' smart constructor. data ConfirmPublicVirtualInterfaceResponse = ConfirmPublicVirtualInterfaceResponse'     { _crsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)@@ -120,9 +126,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crsVirtualInterfaceState'+-- * 'crsVirtualInterfaceState' - Undocumented member. ----- * 'crsResponseStatus'+-- * 'crsResponseStatus' - -- | The response status code. confirmPublicVirtualInterfaceResponse     :: Int -- ^ 'crsResponseStatus'     -> ConfirmPublicVirtualInterfaceResponse@@ -136,7 +142,7 @@ crsVirtualInterfaceState :: Lens' ConfirmPublicVirtualInterfaceResponse (Maybe VirtualInterfaceState) crsVirtualInterfaceState = lens _crsVirtualInterfaceState (\ s a -> s{_crsVirtualInterfaceState = a}); --- | The response status code.+-- | -- | The response status code. crsResponseStatus :: Lens' ConfirmPublicVirtualInterfaceResponse Int crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); 

@@ -0,0 +1,157 @@+{-# 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.DirectConnect.CreateBGPPeer+-- 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 new BGP peer on a specified virtual interface. The BGP peer cannot be in the same address family (IPv4/IPv6) of an existing BGP peer on the virtual interface.+--+--+-- You must create a BGP peer for the corresponding address family in order to access AWS resources that also use that address family.+--+-- When creating a IPv6 BGP peer, the Amazon address and customer address fields must be left blank. IPv6 addresses are automatically assigned from Amazon's pool of IPv6 addresses; you cannot specify custom IPv6 addresses.+--+-- For a public virtual interface, the Autonomous System Number (ASN) must be private or already whitelisted for the virtual interface.+--+module Network.AWS.DirectConnect.CreateBGPPeer+    (+    -- * Creating a Request+      createBGPPeer+    , CreateBGPPeer+    -- * Request Lenses+    , cbpNewBGPPeer+    , cbpVirtualInterfaceId++    -- * Destructuring the Response+    , createBGPPeerResponse+    , CreateBGPPeerResponse+    -- * Response Lenses+    , cbprsVirtualInterface+    , cbprsResponseStatus+    ) where++import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Container for the parameters to the CreateBGPPeer operation.+--+--+--+-- /See:/ 'createBGPPeer' smart constructor.+data CreateBGPPeer = CreateBGPPeer'+    { _cbpNewBGPPeer         :: !(Maybe NewBGPPeer)+    , _cbpVirtualInterfaceId :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateBGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cbpNewBGPPeer' - Detailed information for the BGP peer to be created. Default: None+--+-- * 'cbpVirtualInterfaceId' - The ID of the virtual interface on which the BGP peer will be provisioned. Example: dxvif-456abc78 Default: None+createBGPPeer+    :: CreateBGPPeer+createBGPPeer =+    CreateBGPPeer'+    { _cbpNewBGPPeer = Nothing+    , _cbpVirtualInterfaceId = Nothing+    }++-- | Detailed information for the BGP peer to be created. Default: None+cbpNewBGPPeer :: Lens' CreateBGPPeer (Maybe NewBGPPeer)+cbpNewBGPPeer = lens _cbpNewBGPPeer (\ s a -> s{_cbpNewBGPPeer = a});++-- | The ID of the virtual interface on which the BGP peer will be provisioned. Example: dxvif-456abc78 Default: None+cbpVirtualInterfaceId :: Lens' CreateBGPPeer (Maybe Text)+cbpVirtualInterfaceId = lens _cbpVirtualInterfaceId (\ s a -> s{_cbpVirtualInterfaceId = a});++instance AWSRequest CreateBGPPeer where+        type Rs CreateBGPPeer = CreateBGPPeerResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 CreateBGPPeerResponse' <$>+                   (x .?> "virtualInterface") <*> (pure (fromEnum s)))++instance Hashable CreateBGPPeer++instance NFData CreateBGPPeer++instance ToHeaders CreateBGPPeer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.CreateBGPPeer" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateBGPPeer where+        toJSON CreateBGPPeer'{..}+          = object+              (catMaybes+                 [("newBGPPeer" .=) <$> _cbpNewBGPPeer,+                  ("virtualInterfaceId" .=) <$>+                    _cbpVirtualInterfaceId])++instance ToPath CreateBGPPeer where+        toPath = const "/"++instance ToQuery CreateBGPPeer where+        toQuery = const mempty++-- | The response received when CreateBGPPeer is called.+--+--+--+-- /See:/ 'createBGPPeerResponse' smart constructor.+data CreateBGPPeerResponse = CreateBGPPeerResponse'+    { _cbprsVirtualInterface :: !(Maybe VirtualInterface)+    , _cbprsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateBGPPeerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cbprsVirtualInterface' - Undocumented member.+--+-- * 'cbprsResponseStatus' - -- | The response status code.+createBGPPeerResponse+    :: Int -- ^ 'cbprsResponseStatus'+    -> CreateBGPPeerResponse+createBGPPeerResponse pResponseStatus_ =+    CreateBGPPeerResponse'+    { _cbprsVirtualInterface = Nothing+    , _cbprsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+cbprsVirtualInterface :: Lens' CreateBGPPeerResponse (Maybe VirtualInterface)+cbprsVirtualInterface = lens _cbprsVirtualInterface (\ s a -> s{_cbprsVirtualInterface = a});++-- | -- | The response status code.+cbprsResponseStatus :: Lens' CreateBGPPeerResponse Int+cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a});++instance NFData CreateBGPPeerResponse

@@ -20,7 +20,9 @@ -- -- Creates a new connection between the customer network and a specific AWS Direct Connect location. --+-- -- A connection links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. An AWS Direct Connect location provides access to Amazon Web Services in the region it is associated with. You can establish connections with AWS Direct Connect locations in multiple regions, but a connection in one region does not provide connectivity to other regions.+-- module Network.AWS.DirectConnect.CreateConnection     (     -- * Creating a Request@@ -56,6 +58,8 @@  -- | Container for the parameters to the CreateConnection operation. --+--+-- -- /See:/ 'createConnection' smart constructor. data CreateConnection = CreateConnection'     { _ccLocation       :: !Text@@ -67,11 +71,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccLocation'+-- * 'ccLocation' - Undocumented member. ----- * 'ccBandwidth'+-- * 'ccBandwidth' - Undocumented member. ----- * 'ccConnectionName'+-- * 'ccConnectionName' - Undocumented member. createConnection     :: Text -- ^ 'ccLocation'     -> Text -- ^ 'ccBandwidth'

@@ -18,13 +18,13 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a new interconnect between a AWS Direct Connect partner\'s network and a specific AWS Direct Connect location.+-- Creates a new interconnect between a AWS Direct Connect partner's network and a specific AWS Direct Connect location. ----- An interconnect is a connection which is capable of hosting other connections. The AWS Direct Connect partner can use an interconnect to provide sub-1Gbps AWS Direct Connect service to tier 2 customers who do not have their own connections. Like a standard connection, an interconnect links the AWS Direct Connect partner\'s network to an AWS Direct Connect location over a standard 1 Gbps or 10 Gbps Ethernet fiber-optic cable. One end is connected to the partner\'s router, the other to an AWS Direct Connect router. --+-- An interconnect is a connection which is capable of hosting other connections. The AWS Direct Connect partner can use an interconnect to provide sub-1Gbps AWS Direct Connect service to tier 2 customers who do not have their own connections. Like a standard connection, an interconnect links the AWS Direct Connect partner's network to an AWS Direct Connect location over a standard 1 Gbps or 10 Gbps Ethernet fiber-optic cable. One end is connected to the partner's router, the other to an AWS Direct Connect router.+-- -- For each end customer, the AWS Direct Connect partner provisions a connection on their interconnect by calling AllocateConnectionOnInterconnect. The end customer can then connect to AWS resources by creating a virtual interface on their connection, using the VLAN assigned to them by the AWS Direct Connect partner. ----- This is intended for use by AWS Direct Connect partners only. module Network.AWS.DirectConnect.CreateInterconnect     (     -- * Creating a Request@@ -57,6 +57,8 @@  -- | Container for the parameters to the CreateInterconnect operation. --+--+-- -- /See:/ 'createInterconnect' smart constructor. data CreateInterconnect = CreateInterconnect'     { _ciInterconnectName :: !Text@@ -68,11 +70,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ciInterconnectName'+-- * 'ciInterconnectName' - The name of the interconnect. Example: "/1G Interconnect to AWS/ " Default: None ----- * 'ciBandwidth'+-- * 'ciBandwidth' - The port bandwidth Example: 1Gbps Default: None Available values: 1Gbps,10Gbps ----- * 'ciLocation'+-- * 'ciLocation' - Where the interconnect is located Example: EqSV5 Default: None createInterconnect     :: Text -- ^ 'ciInterconnectName'     -> Text -- ^ 'ciBandwidth'@@ -85,29 +87,15 @@     , _ciLocation = pLocation_     } --- | The name of the interconnect.------ Example: \"/1G Interconnect to AWS/\"------ Default: None+-- | The name of the interconnect. Example: "/1G Interconnect to AWS/ " Default: None ciInterconnectName :: Lens' CreateInterconnect Text ciInterconnectName = lens _ciInterconnectName (\ s a -> s{_ciInterconnectName = a}); --- | The port bandwidth------ Example: 1Gbps------ Default: None------ Available values: 1Gbps,10Gbps+-- | The port bandwidth Example: 1Gbps Default: None Available values: 1Gbps,10Gbps ciBandwidth :: Lens' CreateInterconnect Text ciBandwidth = lens _ciBandwidth (\ s a -> s{_ciBandwidth = a}); --- | Where the interconnect is located------ Example: EqSV5------ Default: None+-- | Where the interconnect is located Example: EqSV5 Default: None ciLocation :: Lens' CreateInterconnect Text ciLocation = lens _ciLocation (\ s a -> s{_ciLocation = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a new private virtual interface. A virtual interface is the VLAN that transports AWS Direct Connect traffic. A private virtual interface supports sending traffic to a single virtual private cloud (VPC).+--+-- module Network.AWS.DirectConnect.CreatePrivateVirtualInterface     (     -- * Creating a Request@@ -32,12 +34,14 @@     , virtualInterface     , VirtualInterface     -- * Response Lenses+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -58,6 +62,8 @@  -- | Container for the parameters to the CreatePrivateVirtualInterface operation. --+--+-- -- /See:/ 'createPrivateVirtualInterface' smart constructor. data CreatePrivateVirtualInterface = CreatePrivateVirtualInterface'     { _creConnectionId               :: !Text@@ -68,9 +74,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'creConnectionId'+-- * 'creConnectionId' - Undocumented member. ----- * 'creNewPrivateVirtualInterface'+-- * 'creNewPrivateVirtualInterface' - Detailed information for the private virtual interface to be created. Default: None createPrivateVirtualInterface     :: Text -- ^ 'creConnectionId'     -> NewPrivateVirtualInterface -- ^ 'creNewPrivateVirtualInterface'@@ -85,9 +91,7 @@ creConnectionId :: Lens' CreatePrivateVirtualInterface Text creConnectionId = lens _creConnectionId (\ s a -> s{_creConnectionId = a}); --- | Detailed information for the private virtual interface to be created.------ Default: None+-- | Detailed information for the private virtual interface to be created. Default: None creNewPrivateVirtualInterface :: Lens' CreatePrivateVirtualInterface NewPrivateVirtualInterface creNewPrivateVirtualInterface = lens _creNewPrivateVirtualInterface (\ s a -> s{_creNewPrivateVirtualInterface = a}); 

@@ -19,6 +19,10 @@ -- Portability : non-portable (GHC extensions) -- -- Creates a new public virtual interface. A virtual interface is the VLAN that transports AWS Direct Connect traffic. A public virtual interface supports sending traffic to public services of AWS such as Amazon Simple Storage Service (Amazon S3).+--+--+-- When creating an IPv6 public virtual interface (addressFamily is 'ipv6'), the customer and amazon address fields should be left blank to use auto-assigned IPv6 space. Custom IPv6 Addresses are currently not supported.+-- module Network.AWS.DirectConnect.CreatePublicVirtualInterface     (     -- * Creating a Request@@ -32,12 +36,14 @@     , virtualInterface     , VirtualInterface     -- * Response Lenses+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -58,6 +64,8 @@  -- | Container for the parameters to the CreatePublicVirtualInterface operation. --+--+-- -- /See:/ 'createPublicVirtualInterface' smart constructor. data CreatePublicVirtualInterface = CreatePublicVirtualInterface'     { _cpviConnectionId              :: !Text@@ -68,9 +76,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpviConnectionId'+-- * 'cpviConnectionId' - Undocumented member. ----- * 'cpviNewPublicVirtualInterface'+-- * 'cpviNewPublicVirtualInterface' - Detailed information for the public virtual interface to be created. Default: None createPublicVirtualInterface     :: Text -- ^ 'cpviConnectionId'     -> NewPublicVirtualInterface -- ^ 'cpviNewPublicVirtualInterface'@@ -85,9 +93,7 @@ cpviConnectionId :: Lens' CreatePublicVirtualInterface Text cpviConnectionId = lens _cpviConnectionId (\ s a -> s{_cpviConnectionId = a}); --- | Detailed information for the public virtual interface to be created.------ Default: None+-- | Detailed information for the public virtual interface to be created. Default: None cpviNewPublicVirtualInterface :: Lens' CreatePublicVirtualInterface NewPublicVirtualInterface cpviNewPublicVirtualInterface = lens _cpviNewPublicVirtualInterface (\ s a -> s{_cpviNewPublicVirtualInterface = a}); 

@@ -0,0 +1,161 @@+{-# 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.DirectConnect.DeleteBGPPeer+-- 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 BGP peer on the specified virtual interface that matches the specified customer address and ASN. You cannot delete the last BGP peer from a virtual interface.+--+--+module Network.AWS.DirectConnect.DeleteBGPPeer+    (+    -- * Creating a Request+      deleteBGPPeer+    , DeleteBGPPeer+    -- * Request Lenses+    , dbpCustomerAddress+    , dbpAsn+    , dbpVirtualInterfaceId++    -- * Destructuring the Response+    , deleteBGPPeerResponse+    , DeleteBGPPeerResponse+    -- * Response Lenses+    , dbprsVirtualInterface+    , dbprsResponseStatus+    ) where++import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Container for the parameters to the DeleteBGPPeer operation.+--+--+--+-- /See:/ 'deleteBGPPeer' smart constructor.+data DeleteBGPPeer = DeleteBGPPeer'+    { _dbpCustomerAddress    :: !(Maybe Text)+    , _dbpAsn                :: !(Maybe Int)+    , _dbpVirtualInterfaceId :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteBGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbpCustomerAddress' - Undocumented member.+--+-- * 'dbpAsn' - Undocumented member.+--+-- * 'dbpVirtualInterfaceId' - The ID of the virtual interface from which the BGP peer will be deleted. Example: dxvif-456abc78 Default: None+deleteBGPPeer+    :: DeleteBGPPeer+deleteBGPPeer =+    DeleteBGPPeer'+    { _dbpCustomerAddress = Nothing+    , _dbpAsn = Nothing+    , _dbpVirtualInterfaceId = Nothing+    }++-- | Undocumented member.+dbpCustomerAddress :: Lens' DeleteBGPPeer (Maybe Text)+dbpCustomerAddress = lens _dbpCustomerAddress (\ s a -> s{_dbpCustomerAddress = a});++-- | Undocumented member.+dbpAsn :: Lens' DeleteBGPPeer (Maybe Int)+dbpAsn = lens _dbpAsn (\ s a -> s{_dbpAsn = a});++-- | The ID of the virtual interface from which the BGP peer will be deleted. Example: dxvif-456abc78 Default: None+dbpVirtualInterfaceId :: Lens' DeleteBGPPeer (Maybe Text)+dbpVirtualInterfaceId = lens _dbpVirtualInterfaceId (\ s a -> s{_dbpVirtualInterfaceId = a});++instance AWSRequest DeleteBGPPeer where+        type Rs DeleteBGPPeer = DeleteBGPPeerResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DeleteBGPPeerResponse' <$>+                   (x .?> "virtualInterface") <*> (pure (fromEnum s)))++instance Hashable DeleteBGPPeer++instance NFData DeleteBGPPeer++instance ToHeaders DeleteBGPPeer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DeleteBGPPeer" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteBGPPeer where+        toJSON DeleteBGPPeer'{..}+          = object+              (catMaybes+                 [("customerAddress" .=) <$> _dbpCustomerAddress,+                  ("asn" .=) <$> _dbpAsn,+                  ("virtualInterfaceId" .=) <$>+                    _dbpVirtualInterfaceId])++instance ToPath DeleteBGPPeer where+        toPath = const "/"++instance ToQuery DeleteBGPPeer where+        toQuery = const mempty++-- | The response received when DeleteBGPPeer is called.+--+--+--+-- /See:/ 'deleteBGPPeerResponse' smart constructor.+data DeleteBGPPeerResponse = DeleteBGPPeerResponse'+    { _dbprsVirtualInterface :: !(Maybe VirtualInterface)+    , _dbprsResponseStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteBGPPeerResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dbprsVirtualInterface' - Undocumented member.+--+-- * 'dbprsResponseStatus' - -- | The response status code.+deleteBGPPeerResponse+    :: Int -- ^ 'dbprsResponseStatus'+    -> DeleteBGPPeerResponse+deleteBGPPeerResponse pResponseStatus_ =+    DeleteBGPPeerResponse'+    { _dbprsVirtualInterface = Nothing+    , _dbprsResponseStatus = pResponseStatus_+    }++-- | Undocumented member.+dbprsVirtualInterface :: Lens' DeleteBGPPeerResponse (Maybe VirtualInterface)+dbprsVirtualInterface = lens _dbprsVirtualInterface (\ s a -> s{_dbprsVirtualInterface = a});++-- | -- | The response status code.+dbprsResponseStatus :: Lens' DeleteBGPPeerResponse Int+dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a});++instance NFData DeleteBGPPeerResponse

@@ -20,7 +20,9 @@ -- -- Deletes the connection. --+-- -- Deleting a connection only stops the AWS Direct Connect port hour and data transfer charges. You need to cancel separately with the providers any services or charges for cross-connects or network circuits that connect you to the AWS Direct Connect location.+-- module Network.AWS.DirectConnect.DeleteConnection     (     -- * Creating a Request@@ -54,6 +56,8 @@  -- | Container for the parameters to the DeleteConnection operation. --+--+-- -- /See:/ 'deleteConnection' smart constructor. newtype DeleteConnection = DeleteConnection'     { _dcConnectionId :: Text@@ -63,7 +67,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcConnectionId'+-- * 'dcConnectionId' - Undocumented member. deleteConnection     :: Text -- ^ 'dcConnectionId'     -> DeleteConnection

@@ -20,7 +20,7 @@ -- -- Deletes the specified interconnect. ----- This is intended for use by AWS Direct Connect partners only.+-- module Network.AWS.DirectConnect.DeleteInterconnect     (     -- * Creating a Request@@ -46,6 +46,8 @@  -- | Container for the parameters to the DeleteInterconnect operation. --+--+-- -- /See:/ 'deleteInterconnect' smart constructor. newtype DeleteInterconnect = DeleteInterconnect'     { _dInterconnectId :: Text@@ -55,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dInterconnectId'+-- * 'dInterconnectId' - Undocumented member. deleteInterconnect     :: Text -- ^ 'dInterconnectId'     -> DeleteInterconnect@@ -105,6 +107,8 @@  -- | The response received when DeleteInterconnect is called. --+--+-- -- /See:/ 'deleteInterconnectResponse' smart constructor. data DeleteInterconnectResponse = DeleteInterconnectResponse'     { _drsInterconnectState :: !(Maybe InterconnectState)@@ -115,9 +119,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsInterconnectState'+-- * 'drsInterconnectState' - Undocumented member. ----- * 'drsResponseStatus'+-- * 'drsResponseStatus' - -- | The response status code. deleteInterconnectResponse     :: Int -- ^ 'drsResponseStatus'     -> DeleteInterconnectResponse@@ -131,7 +135,7 @@ drsInterconnectState :: Lens' DeleteInterconnectResponse (Maybe InterconnectState) drsInterconnectState = lens _drsInterconnectState (\ s a -> s{_drsInterconnectState = a}); --- | The response status code.+-- | -- | The response status code. drsResponseStatus :: Lens' DeleteInterconnectResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes a virtual interface.+--+-- module Network.AWS.DirectConnect.DeleteVirtualInterface     (     -- * Creating a Request@@ -44,6 +46,8 @@  -- | Container for the parameters to the DeleteVirtualInterface operation. --+--+-- -- /See:/ 'deleteVirtualInterface' smart constructor. newtype DeleteVirtualInterface = DeleteVirtualInterface'     { _dVirtualInterfaceId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dVirtualInterfaceId'+-- * 'dVirtualInterfaceId' - Undocumented member. deleteVirtualInterface     :: Text -- ^ 'dVirtualInterfaceId'     -> DeleteVirtualInterface@@ -106,6 +110,8 @@  -- | The response received when DeleteVirtualInterface is called. --+--+-- -- /See:/ 'deleteVirtualInterfaceResponse' smart constructor. data DeleteVirtualInterfaceResponse = DeleteVirtualInterfaceResponse'     { _dvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)@@ -116,9 +122,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvirsVirtualInterfaceState'+-- * 'dvirsVirtualInterfaceState' - Undocumented member. ----- * 'dvirsResponseStatus'+-- * 'dvirsResponseStatus' - -- | The response status code. deleteVirtualInterfaceResponse     :: Int -- ^ 'dvirsResponseStatus'     -> DeleteVirtualInterfaceResponse@@ -132,7 +138,7 @@ dvirsVirtualInterfaceState :: Lens' DeleteVirtualInterfaceResponse (Maybe VirtualInterfaceState) dvirsVirtualInterfaceState = lens _dvirsVirtualInterfaceState (\ s a -> s{_dvirsVirtualInterfaceState = a}); --- | The response status code.+-- | -- | The response status code. dvirsResponseStatus :: Lens' DeleteVirtualInterfaceResponse Int dvirsResponseStatus = lens _dvirsResponseStatus (\ s a -> s{_dvirsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Returns the LOA-CFA for a Connection. --+-- -- The Letter of Authorization - Connecting Facility Assignment (LOA-CFA) is a document that your APN partner or service provider uses when establishing your cross connect to AWS at the colocation facility. For more information, see <http://docs.aws.amazon.com/directconnect/latest/UserGuide/Colocation.html Requesting Cross Connects at AWS Direct Connect Locations> in the AWS Direct Connect user guide.+-- module Network.AWS.DirectConnect.DescribeConnectionLoa     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | Container for the parameters to the DescribeConnectionLoa operation. --+--+-- -- /See:/ 'describeConnectionLoa' smart constructor. data DescribeConnectionLoa = DescribeConnectionLoa'     { _dclLoaContentType :: !(Maybe LoaContentType)@@ -59,11 +63,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dclLoaContentType'+-- * 'dclLoaContentType' - Undocumented member. ----- * 'dclProviderName'+-- * 'dclProviderName' - The name of the APN partner or service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None ----- * 'dclConnectionId'+-- * 'dclConnectionId' - Undocumented member. describeConnectionLoa     :: Text -- ^ 'dclConnectionId'     -> DescribeConnectionLoa@@ -78,9 +82,7 @@ dclLoaContentType :: Lens' DescribeConnectionLoa (Maybe LoaContentType) dclLoaContentType = lens _dclLoaContentType (\ s a -> s{_dclLoaContentType = a}); --- | The name of the APN partner or service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect.------ Default: None+-- | The name of the APN partner or service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None dclProviderName :: Lens' DescribeConnectionLoa (Maybe Text) dclProviderName = lens _dclProviderName (\ s a -> s{_dclProviderName = a}); @@ -128,6 +130,8 @@  -- | The response received when DescribeConnectionLoa is called. --+--+-- -- /See:/ 'describeConnectionLoaResponse' smart constructor. data DescribeConnectionLoaResponse = DescribeConnectionLoaResponse'     { _dclrsLoa            :: !(Maybe Loa)@@ -138,9 +142,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dclrsLoa'+-- * 'dclrsLoa' - Undocumented member. ----- * 'dclrsResponseStatus'+-- * 'dclrsResponseStatus' - -- | The response status code. describeConnectionLoaResponse     :: Int -- ^ 'dclrsResponseStatus'     -> DescribeConnectionLoaResponse@@ -154,7 +158,7 @@ dclrsLoa :: Lens' DescribeConnectionLoaResponse (Maybe Loa) dclrsLoa = lens _dclrsLoa (\ s a -> s{_dclrsLoa = a}); --- | The response status code.+-- | -- | The response status code. dclrsResponseStatus :: Lens' DescribeConnectionLoaResponse Int dclrsResponseStatus = lens _dclrsResponseStatus (\ s a -> s{_dclrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Displays all connections in this region. --+-- -- If a connection ID is provided, the call returns only that particular connection.+-- module Network.AWS.DirectConnect.DescribeConnections     (     -- * Creating a Request@@ -45,6 +47,8 @@  -- | Container for the parameters to the DescribeConnections operation. --+--+-- -- /See:/ 'describeConnections' smart constructor. newtype DescribeConnections = DescribeConnections'     { _dConnectionId :: Maybe Text@@ -54,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dConnectionId'+-- * 'dConnectionId' - Undocumented member. describeConnections     :: DescribeConnections describeConnections =

@@ -20,7 +20,7 @@ -- -- Return a list of connections that have been provisioned on the given interconnect. ----- This is intended for use by AWS Direct Connect partners only.+-- module Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect     (     -- * Creating a Request@@ -45,6 +45,8 @@  -- | Container for the parameters to the DescribeConnectionsOnInterconnect operation. --+--+-- -- /See:/ 'describeConnectionsOnInterconnect' smart constructor. newtype DescribeConnectionsOnInterconnect = DescribeConnectionsOnInterconnect'     { _dcoiInterconnectId :: Text@@ -54,7 +56,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dcoiInterconnectId'+-- * 'dcoiInterconnectId' - ID of the interconnect on which a list of connection is provisioned. Example: dxcon-abc123 Default: None describeConnectionsOnInterconnect     :: Text -- ^ 'dcoiInterconnectId'     -> DescribeConnectionsOnInterconnect@@ -63,11 +65,7 @@     { _dcoiInterconnectId = pInterconnectId_     } --- | ID of the interconnect on which a list of connection is provisioned.------ Example: dxcon-abc123------ Default: None+-- | ID of the interconnect on which a list of connection is provisioned. Example: dxcon-abc123 Default: None dcoiInterconnectId :: Lens' DescribeConnectionsOnInterconnect Text dcoiInterconnectId = lens _dcoiInterconnectId (\ s a -> s{_dcoiInterconnectId = a}); 

@@ -20,7 +20,9 @@ -- -- Returns the LOA-CFA for an Interconnect. --+-- -- The Letter of Authorization - Connecting Facility Assignment (LOA-CFA) is a document that is used when establishing your cross connect to AWS at the colocation facility. For more information, see <http://docs.aws.amazon.com/directconnect/latest/UserGuide/Colocation.html Requesting Cross Connects at AWS Direct Connect Locations> in the AWS Direct Connect user guide.+-- module Network.AWS.DirectConnect.DescribeInterconnectLoa     (     -- * Creating a Request@@ -48,6 +50,8 @@  -- | Container for the parameters to the DescribeInterconnectLoa operation. --+--+-- -- /See:/ 'describeInterconnectLoa' smart constructor. data DescribeInterconnectLoa = DescribeInterconnectLoa'     { _dilLoaContentType :: !(Maybe LoaContentType)@@ -59,11 +63,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dilLoaContentType'+-- * 'dilLoaContentType' - Undocumented member. ----- * 'dilProviderName'+-- * 'dilProviderName' - The name of the service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None ----- * 'dilInterconnectId'+-- * 'dilInterconnectId' - Undocumented member. describeInterconnectLoa     :: Text -- ^ 'dilInterconnectId'     -> DescribeInterconnectLoa@@ -78,9 +82,7 @@ dilLoaContentType :: Lens' DescribeInterconnectLoa (Maybe LoaContentType) dilLoaContentType = lens _dilLoaContentType (\ s a -> s{_dilLoaContentType = a}); --- | The name of the service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect.------ Default: None+-- | The name of the service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None dilProviderName :: Lens' DescribeInterconnectLoa (Maybe Text) dilProviderName = lens _dilProviderName (\ s a -> s{_dilProviderName = a}); @@ -128,6 +130,8 @@  -- | The response received when DescribeInterconnectLoa is called. --+--+-- -- /See:/ 'describeInterconnectLoaResponse' smart constructor. data DescribeInterconnectLoaResponse = DescribeInterconnectLoaResponse'     { _dilrsLoa            :: !(Maybe Loa)@@ -138,9 +142,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dilrsLoa'+-- * 'dilrsLoa' - Undocumented member. ----- * 'dilrsResponseStatus'+-- * 'dilrsResponseStatus' - -- | The response status code. describeInterconnectLoaResponse     :: Int -- ^ 'dilrsResponseStatus'     -> DescribeInterconnectLoaResponse@@ -154,7 +158,7 @@ dilrsLoa :: Lens' DescribeInterconnectLoaResponse (Maybe Loa) dilrsLoa = lens _dilrsLoa (\ s a -> s{_dilrsLoa = a}); --- | The response status code.+-- | -- | The response status code. dilrsResponseStatus :: Lens' DescribeInterconnectLoaResponse Int dilrsResponseStatus = lens _dilrsResponseStatus (\ s a -> s{_dilrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- Returns a list of interconnects owned by the AWS account. --+-- -- If an interconnect ID is provided, it will only return this particular interconnect.+-- module Network.AWS.DirectConnect.DescribeInterconnects     (     -- * Creating a Request@@ -46,6 +48,8 @@  -- | Container for the parameters to the DescribeInterconnects operation. --+--+-- -- /See:/ 'describeInterconnects' smart constructor. newtype DescribeInterconnects = DescribeInterconnects'     { _diInterconnectId :: Maybe Text@@ -55,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diInterconnectId'+-- * 'diInterconnectId' - Undocumented member. describeInterconnects     :: DescribeInterconnects describeInterconnects =@@ -106,6 +110,8 @@  -- | A structure containing a list of interconnects. --+--+-- -- /See:/ 'describeInterconnectsResponse' smart constructor. data DescribeInterconnectsResponse = DescribeInterconnectsResponse'     { _dirsInterconnects  :: !(Maybe [Interconnect])@@ -116,9 +122,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dirsInterconnects'+-- * 'dirsInterconnects' - A list of interconnects. ----- * 'dirsResponseStatus'+-- * 'dirsResponseStatus' - -- | The response status code. describeInterconnectsResponse     :: Int -- ^ 'dirsResponseStatus'     -> DescribeInterconnectsResponse@@ -132,7 +138,7 @@ dirsInterconnects :: Lens' DescribeInterconnectsResponse [Interconnect] dirsInterconnects = lens _dirsInterconnects (\ s a -> s{_dirsInterconnects = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dirsResponseStatus :: Lens' DescribeInterconnectsResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Returns the list of AWS Direct Connect locations in the current AWS region. These are the locations that may be selected when calling CreateConnection or CreateInterconnect.+--+-- module Network.AWS.DirectConnect.DescribeLocations     (     -- * Creating a Request@@ -85,6 +87,8 @@  -- | A location is a network facility where AWS Direct Connect routers are available to be connected. Generally, these are colocation hubs where many network providers have equipment, and where cross connects can be delivered. Locations include a name and facility code, and must be provided when creating a connection. --+--+-- -- /See:/ 'describeLocationsResponse' smart constructor. data DescribeLocationsResponse = DescribeLocationsResponse'     { _dlrsLocations      :: !(Maybe [Location])@@ -95,9 +99,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlrsLocations'+-- * 'dlrsLocations' - A list of colocation hubs where network providers have equipment. Most regions have multiple locations available. ----- * 'dlrsResponseStatus'+-- * 'dlrsResponseStatus' - -- | The response status code. describeLocationsResponse     :: Int -- ^ 'dlrsResponseStatus'     -> DescribeLocationsResponse@@ -111,7 +115,7 @@ dlrsLocations :: Lens' DescribeLocationsResponse [Location] dlrsLocations = lens _dlrsLocations (\ s a -> s{_dlrsLocations = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dlrsResponseStatus :: Lens' DescribeLocationsResponse Int dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a}); 

@@ -0,0 +1,141 @@+{-# 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.DirectConnect.DescribeTags+-- 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)+--+-- Describes the tags associated with the specified Direct Connect resources.+--+--+module Network.AWS.DirectConnect.DescribeTags+    (+    -- * Creating a Request+      describeTags+    , DescribeTags+    -- * Request Lenses+    , dtResourceARNs++    -- * Destructuring the Response+    , describeTagsResponse+    , DescribeTagsResponse+    -- * Response Lenses+    , dtrsResourceTags+    , dtrsResponseStatus+    ) where++import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Container for the parameters to the DescribeTags operation.+--+--+--+-- /See:/ 'describeTags' smart constructor.+newtype DescribeTags = DescribeTags'+    { _dtResourceARNs :: [Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeTags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtResourceARNs' - The Amazon Resource Names (ARNs) of the Direct Connect resources.+describeTags+    :: DescribeTags+describeTags =+    DescribeTags'+    { _dtResourceARNs = mempty+    }++-- | The Amazon Resource Names (ARNs) of the Direct Connect resources.+dtResourceARNs :: Lens' DescribeTags [Text]+dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce;++instance AWSRequest DescribeTags where+        type Rs DescribeTags = DescribeTagsResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeTagsResponse' <$>+                   (x .?> "resourceTags" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeTags++instance NFData DescribeTags++instance ToHeaders DescribeTags where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeTags" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeTags where+        toJSON DescribeTags'{..}+          = object+              (catMaybes+                 [Just ("resourceArns" .= _dtResourceARNs)])++instance ToPath DescribeTags where+        toPath = const "/"++instance ToQuery DescribeTags where+        toQuery = const mempty++-- | The response received when DescribeTags is called.+--+--+--+-- /See:/ 'describeTagsResponse' smart constructor.+data DescribeTagsResponse = DescribeTagsResponse'+    { _dtrsResourceTags   :: !(Maybe [ResourceTag])+    , _dtrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dtrsResourceTags' - Information about the tags.+--+-- * 'dtrsResponseStatus' - -- | The response status code.+describeTagsResponse+    :: Int -- ^ 'dtrsResponseStatus'+    -> DescribeTagsResponse+describeTagsResponse pResponseStatus_ =+    DescribeTagsResponse'+    { _dtrsResourceTags = Nothing+    , _dtrsResponseStatus = pResponseStatus_+    }++-- | Information about the tags.+dtrsResourceTags :: Lens' DescribeTagsResponse [ResourceTag]+dtrsResourceTags = lens _dtrsResourceTags (\ s a -> s{_dtrsResourceTags = a}) . _Default . _Coerce;++-- | -- | The response status code.+dtrsResponseStatus :: Lens' DescribeTagsResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});++instance NFData DescribeTagsResponse

@@ -20,7 +20,9 @@ -- -- Returns a list of virtual private gateways owned by the AWS account. --+-- -- You can create one or more AWS Direct Connect private virtual interfaces linking to a virtual private gateway. A virtual private gateway can be managed via Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action.+-- module Network.AWS.DirectConnect.DescribeVirtualGateways     (     -- * Creating a Request@@ -89,6 +91,8 @@  -- | A structure containing a list of virtual private gateways. --+--+-- -- /See:/ 'describeVirtualGatewaysResponse' smart constructor. data DescribeVirtualGatewaysResponse = DescribeVirtualGatewaysResponse'     { _dvgrsVirtualGateways :: !(Maybe [VirtualGateway])@@ -99,9 +103,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvgrsVirtualGateways'+-- * 'dvgrsVirtualGateways' - A list of virtual private gateways. ----- * 'dvgrsResponseStatus'+-- * 'dvgrsResponseStatus' - -- | The response status code. describeVirtualGatewaysResponse     :: Int -- ^ 'dvgrsResponseStatus'     -> DescribeVirtualGatewaysResponse@@ -115,7 +119,7 @@ dvgrsVirtualGateways :: Lens' DescribeVirtualGatewaysResponse [VirtualGateway] dvgrsVirtualGateways = lens _dvgrsVirtualGateways (\ s a -> s{_dvgrsVirtualGateways = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dvgrsResponseStatus :: Lens' DescribeVirtualGatewaysResponse Int dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a}); 

@@ -20,9 +20,11 @@ -- -- Displays all virtual interfaces for an AWS account. Virtual interfaces deleted fewer than 15 minutes before DescribeVirtualInterfaces is called are also returned. If a connection ID is included then only virtual interfaces associated with this connection will be returned. If a virtual interface ID is included then only a single virtual interface will be returned. --+-- -- A virtual interface (VLAN) transmits the traffic between the AWS Direct Connect location and the customer. -- -- If a connection ID is provided, only virtual interfaces provisioned on the specified connection will be returned. If a virtual interface ID is provided, only this particular virtual interface will be returned.+-- module Network.AWS.DirectConnect.DescribeVirtualInterfaces     (     -- * Creating a Request@@ -49,6 +51,8 @@  -- | Container for the parameters to the DescribeVirtualInterfaces operation. --+--+-- -- /See:/ 'describeVirtualInterfaces' smart constructor. data DescribeVirtualInterfaces = DescribeVirtualInterfaces'     { _dviConnectionId       :: !(Maybe Text)@@ -59,9 +63,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dviConnectionId'+-- * 'dviConnectionId' - Undocumented member. ----- * 'dviVirtualInterfaceId'+-- * 'dviVirtualInterfaceId' - Undocumented member. describeVirtualInterfaces     :: DescribeVirtualInterfaces describeVirtualInterfaces =@@ -119,6 +123,8 @@  -- | A structure containing a list of virtual interfaces. --+--+-- -- /See:/ 'describeVirtualInterfacesResponse' smart constructor. data DescribeVirtualInterfacesResponse = DescribeVirtualInterfacesResponse'     { _dvisrsVirtualInterfaces :: !(Maybe [VirtualInterface])@@ -129,9 +135,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dvisrsVirtualInterfaces'+-- * 'dvisrsVirtualInterfaces' - A list of virtual interfaces. ----- * 'dvisrsResponseStatus'+-- * 'dvisrsResponseStatus' - -- | The response status code. describeVirtualInterfacesResponse     :: Int -- ^ 'dvisrsResponseStatus'     -> DescribeVirtualInterfacesResponse@@ -145,7 +151,7 @@ dvisrsVirtualInterfaces :: Lens' DescribeVirtualInterfacesResponse [VirtualInterface] dvisrsVirtualInterfaces = lens _dvisrsVirtualInterfaces (\ s a -> s{_dvisrsVirtualInterfaces = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dvisrsResponseStatus :: Lens' DescribeVirtualInterfacesResponse Int dvisrsResponseStatus = lens _dvisrsResponseStatus (\ s a -> s{_dvisrsResponseStatus = a}); 

@@ -0,0 +1,144 @@+{-# 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.DirectConnect.TagResource+-- 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)+--+-- Adds the specified tags to the specified Direct Connect resource. Each Direct Connect resource can have a maximum of 50 tags.+--+--+-- Each tag consists of a key and an optional value. If a tag with the same key is already associated with the Direct Connect resource, this action updates its value.+--+module Network.AWS.DirectConnect.TagResource+    (+    -- * Creating a Request+      tagResource+    , TagResource+    -- * Request Lenses+    , trResourceARN+    , trTags++    -- * Destructuring the Response+    , tagResourceResponse+    , TagResourceResponse+    -- * Response Lenses+    , trrsResponseStatus+    ) where++import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Container for the parameters to the TagResource operation.+--+--+--+-- /See:/ 'tagResource' smart constructor.+data TagResource = TagResource'+    { _trResourceARN :: !Text+    , _trTags        :: !(List1 Tag)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TagResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'trResourceARN' - The Amazon Resource Name (ARN) of the Direct Connect resource. Example: arn:aws:directconnect:us-east-1:123456789012:dxcon/dxcon-fg5678gh+--+-- * 'trTags' - The list of tags to add.+tagResource+    :: Text -- ^ 'trResourceARN'+    -> NonEmpty Tag -- ^ 'trTags'+    -> TagResource+tagResource pResourceARN_ pTags_ =+    TagResource'+    { _trResourceARN = pResourceARN_+    , _trTags = _List1 # pTags_+    }++-- | The Amazon Resource Name (ARN) of the Direct Connect resource. Example: arn:aws:directconnect:us-east-1:123456789012:dxcon/dxcon-fg5678gh+trResourceARN :: Lens' TagResource Text+trResourceARN = lens _trResourceARN (\ s a -> s{_trResourceARN = a});++-- | The list of tags to add.+trTags :: Lens' TagResource (NonEmpty Tag)+trTags = lens _trTags (\ s a -> s{_trTags = a}) . _List1;++instance AWSRequest TagResource where+        type Rs TagResource = TagResourceResponse+        request = postJSON directConnect+        response+          = receiveEmpty+              (\ s h x ->+                 TagResourceResponse' <$> (pure (fromEnum s)))++instance Hashable TagResource++instance NFData TagResource++instance ToHeaders TagResource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.TagResource" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON TagResource where+        toJSON TagResource'{..}+          = object+              (catMaybes+                 [Just ("resourceArn" .= _trResourceARN),+                  Just ("tags" .= _trTags)])++instance ToPath TagResource where+        toPath = const "/"++instance ToQuery TagResource where+        toQuery = const mempty++-- | The response received when TagResource is called.+--+--+--+-- /See:/ 'tagResourceResponse' smart constructor.+newtype TagResourceResponse = TagResourceResponse'+    { _trrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TagResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'trrsResponseStatus' - -- | The response status code.+tagResourceResponse+    :: Int -- ^ 'trrsResponseStatus'+    -> TagResourceResponse+tagResourceResponse pResponseStatus_ =+    TagResourceResponse'+    { _trrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+trrsResponseStatus :: Lens' TagResourceResponse Int+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});++instance NFData TagResourceResponse

@@ -17,8 +17,19 @@      -- * Errors     , _DirectConnectClientException+    , _DuplicateTagKeysException+    , _TooManyTagsException     , _DirectConnectServerException +    -- * AddressFamily+    , AddressFamily (..)++    -- * BGPPeerState+    , BGPPeerState (..)++    -- * BGPStatus+    , BGPStatus (..)+     -- * ConnectionState     , ConnectionState (..) @@ -31,6 +42,17 @@     -- * VirtualInterfaceState     , VirtualInterfaceState (..) +    -- * BGPPeer+    , BGPPeer+    , bgpPeer+    , bpCustomerAddress+    , bpAmazonAddress+    , bpAddressFamily+    , bpBgpStatus+    , bpAsn+    , bpAuthKey+    , bpBgpPeerState+     -- * Connection     , Connection     , connection@@ -73,11 +95,21 @@     , lLocationName     , lLocationCode +    -- * NewBGPPeer+    , NewBGPPeer+    , newBGPPeer+    , nbpCustomerAddress+    , nbpAmazonAddress+    , nbpAddressFamily+    , nbpAsn+    , nbpAuthKey+     -- * NewPrivateVirtualInterface     , NewPrivateVirtualInterface     , newPrivateVirtualInterface     , nCustomerAddress     , nAmazonAddress+    , nAddressFamily     , nAuthKey     , nVirtualInterfaceName     , nVlan@@ -89,6 +121,7 @@     , newPrivateVirtualInterfaceAllocation     , npviaCustomerAddress     , npviaAmazonAddress+    , npviaAddressFamily     , npviaAuthKey     , npviaVirtualInterfaceName     , npviaVlan@@ -97,30 +130,44 @@     -- * NewPublicVirtualInterface     , NewPublicVirtualInterface     , newPublicVirtualInterface+    , npviRouteFilterPrefixes+    , npviCustomerAddress+    , npviAmazonAddress+    , npviAddressFamily     , npviAuthKey     , npviVirtualInterfaceName     , npviVlan     , npviAsn-    , npviAmazonAddress-    , npviCustomerAddress-    , npviRouteFilterPrefixes      -- * NewPublicVirtualInterfaceAllocation     , NewPublicVirtualInterfaceAllocation     , newPublicVirtualInterfaceAllocation+    , newRouteFilterPrefixes+    , newCustomerAddress+    , newAmazonAddress+    , newAddressFamily     , newAuthKey     , newVirtualInterfaceName     , newVlan     , newAsn-    , newAmazonAddress-    , newCustomerAddress-    , newRouteFilterPrefixes +    -- * ResourceTag+    , ResourceTag+    , resourceTag+    , rtResourceARN+    , rtTags+     -- * RouteFilterPrefix     , RouteFilterPrefix     , routeFilterPrefix     , rfpCidr +    -- * Tag+    , Tag+    , tag+    , tagValue+    , tagKey+     -- * VirtualGateway     , VirtualGateway     , virtualGateway@@ -130,12 +177,14 @@     -- * VirtualInterface     , VirtualInterface     , virtualInterface+    , viBgpPeers     , viVirtualGatewayId     , viRouteFilterPrefixes     , viCustomerAddress     , viVlan     , viLocation     , viAmazonAddress+    , viAddressFamily     , viVirtualInterfaceState     , viConnectionId     , viVirtualInterfaceType@@ -153,7 +202,7 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2012-10-25' of the Amazon Direct Connect SDK configuration.+-- | API version @2012-10-25@ of the Amazon Direct Connect SDK configuration. directConnect :: Service directConnect =     Service@@ -188,11 +237,28 @@       | otherwise = Nothing  -- | The API was called with invalid parameters. The error message will contain additional details about the cause.+--+-- _DirectConnectClientException :: AsError a => Getting (First ServiceError) a ServiceError _DirectConnectClientException =     _ServiceError . hasCode "DirectConnectClientException" +-- | A tag key was specified more than once.+--+--+_DuplicateTagKeysException :: AsError a => Getting (First ServiceError) a ServiceError+_DuplicateTagKeysException =+    _ServiceError . hasCode "DuplicateTagKeysException"++-- | You have reached the limit on the number of tags that can be assigned to a Direct Connect resource.+--+--+_TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError+_TooManyTagsException = _ServiceError . hasCode "TooManyTagsException"+ -- | A server-side error occurred during the API call. The error message will contain additional details about the cause.+--+-- _DirectConnectServerException :: AsError a => Getting (First ServiceError) a ServiceError _DirectConnectServerException =     _ServiceError . hasCode "DirectConnectServerException"

@@ -21,8 +21,99 @@ import           Network.AWS.Lens import           Network.AWS.Prelude +-- | A structure containing information about a BGP peer.+--+--+--+-- /See:/ 'bgpPeer' smart constructor.+data BGPPeer = BGPPeer'+    { _bpCustomerAddress :: !(Maybe Text)+    , _bpAmazonAddress   :: !(Maybe Text)+    , _bpAddressFamily   :: !(Maybe AddressFamily)+    , _bpBgpStatus       :: !(Maybe BGPStatus)+    , _bpAsn             :: !(Maybe Int)+    , _bpAuthKey         :: !(Maybe Text)+    , _bpBgpPeerState    :: !(Maybe BGPPeerState)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'BGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bpCustomerAddress' - Undocumented member.+--+-- * 'bpAmazonAddress' - Undocumented member.+--+-- * 'bpAddressFamily' - Undocumented member.+--+-- * 'bpBgpStatus' - Undocumented member.+--+-- * 'bpAsn' - Undocumented member.+--+-- * 'bpAuthKey' - Undocumented member.+--+-- * 'bpBgpPeerState' - Undocumented member.+bgpPeer+    :: BGPPeer+bgpPeer =+    BGPPeer'+    { _bpCustomerAddress = Nothing+    , _bpAmazonAddress = Nothing+    , _bpAddressFamily = Nothing+    , _bpBgpStatus = Nothing+    , _bpAsn = Nothing+    , _bpAuthKey = Nothing+    , _bpBgpPeerState = Nothing+    }++-- | Undocumented member.+bpCustomerAddress :: Lens' BGPPeer (Maybe Text)+bpCustomerAddress = lens _bpCustomerAddress (\ s a -> s{_bpCustomerAddress = a});++-- | Undocumented member.+bpAmazonAddress :: Lens' BGPPeer (Maybe Text)+bpAmazonAddress = lens _bpAmazonAddress (\ s a -> s{_bpAmazonAddress = a});++-- | Undocumented member.+bpAddressFamily :: Lens' BGPPeer (Maybe AddressFamily)+bpAddressFamily = lens _bpAddressFamily (\ s a -> s{_bpAddressFamily = a});++-- | Undocumented member.+bpBgpStatus :: Lens' BGPPeer (Maybe BGPStatus)+bpBgpStatus = lens _bpBgpStatus (\ s a -> s{_bpBgpStatus = a});++-- | Undocumented member.+bpAsn :: Lens' BGPPeer (Maybe Int)+bpAsn = lens _bpAsn (\ s a -> s{_bpAsn = a});++-- | Undocumented member.+bpAuthKey :: Lens' BGPPeer (Maybe Text)+bpAuthKey = lens _bpAuthKey (\ s a -> s{_bpAuthKey = a});++-- | Undocumented member.+bpBgpPeerState :: Lens' BGPPeer (Maybe BGPPeerState)+bpBgpPeerState = lens _bpBgpPeerState (\ s a -> s{_bpBgpPeerState = a});++instance FromJSON BGPPeer where+        parseJSON+          = withObject "BGPPeer"+              (\ x ->+                 BGPPeer' <$>+                   (x .:? "customerAddress") <*> (x .:? "amazonAddress")+                     <*> (x .:? "addressFamily")+                     <*> (x .:? "bgpStatus")+                     <*> (x .:? "asn")+                     <*> (x .:? "authKey")+                     <*> (x .:? "bgpPeerState"))++instance Hashable BGPPeer++instance NFData BGPPeer+ -- | A connection represents the physical network connection between the AWS Direct Connect location and the customer. --+--+-- -- /See:/ 'connection' smart constructor. data Connection = Connection'     { _cVlan            :: !(Maybe Int)@@ -41,25 +132,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cVlan'+-- * 'cVlan' - Undocumented member. ----- * 'cLocation'+-- * 'cLocation' - Undocumented member. ----- * 'cConnectionId'+-- * 'cConnectionId' - Undocumented member. ----- * 'cLoaIssueTime'+-- * 'cLoaIssueTime' - The time of the most recent call to DescribeConnectionLoa for this Connection. ----- * 'cPartnerName'+-- * 'cPartnerName' - The name of the AWS Direct Connect service provider associated with the connection. ----- * 'cConnectionName'+-- * 'cConnectionName' - Undocumented member. ----- * 'cBandwidth'+-- * 'cBandwidth' - Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None ----- * 'cOwnerAccount'+-- * 'cOwnerAccount' - The AWS account that will own the new connection. ----- * 'cRegion'+-- * 'cRegion' - Undocumented member. ----- * 'cConnectionState'+-- * 'cConnectionState' - Undocumented member. connection     :: Connection connection =@@ -100,11 +191,7 @@ cConnectionName :: Lens' Connection (Maybe Text) cConnectionName = lens _cConnectionName (\ s a -> s{_cConnectionName = a}); --- | Bandwidth of the connection.------ Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections)------ Default: None+-- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None cBandwidth :: Lens' Connection (Maybe Text) cBandwidth = lens _cBandwidth (\ s a -> s{_cBandwidth = a}); @@ -141,6 +228,8 @@  -- | A structure containing a list of connections. --+--+-- -- /See:/ 'connections' smart constructor. newtype Connections = Connections'     { _cConnections :: Maybe [Connection]@@ -150,7 +239,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cConnections'+-- * 'cConnections' - A list of connections. connections     :: Connections connections =@@ -174,10 +263,12 @@  -- | An interconnect is a connection that can host other connections. ----- Like a standard AWS Direct Connect connection, an interconnect represents the physical connection between an AWS Direct Connect partner\'s network and a specific Direct Connect location. An AWS Direct Connect partner who owns an interconnect can provision hosted connections on the interconnect for their end customers, thereby providing the end customers with connectivity to AWS services. --+-- Like a standard AWS Direct Connect connection, an interconnect represents the physical connection between an AWS Direct Connect partner's network and a specific Direct Connect location. An AWS Direct Connect partner who owns an interconnect can provision hosted connections on the interconnect for their end customers, thereby providing the end customers with connectivity to AWS services.+-- -- The resources of the interconnect, including bandwidth and VLAN numbers, are shared by all of the hosted connections on the interconnect, and the owner of the interconnect determines how these resources are assigned. --+-- -- /See:/ 'interconnect' smart constructor. data Interconnect = Interconnect'     { _iInterconnectId    :: !(Maybe Text)@@ -193,19 +284,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'iInterconnectId'+-- * 'iInterconnectId' - Undocumented member. ----- * 'iLocation'+-- * 'iLocation' - Undocumented member. ----- * 'iInterconnectName'+-- * 'iInterconnectName' - Undocumented member. ----- * 'iLoaIssueTime'+-- * 'iLoaIssueTime' - The time of the most recent call to DescribeInterconnectLoa for this Interconnect. ----- * 'iBandwidth'+-- * 'iBandwidth' - Undocumented member. ----- * 'iInterconnectState'+-- * 'iInterconnectState' - Undocumented member. ----- * 'iRegion'+-- * 'iRegion' - Undocumented member. interconnect     :: Interconnect interconnect =@@ -265,6 +356,8 @@  -- | A structure containing the Letter of Authorization - Connecting Facility Assignment (LOA-CFA) for a connection. --+--+-- -- /See:/ 'loa' smart constructor. data Loa = Loa'     { _loaLoaContent     :: !(Maybe Base64)@@ -275,9 +368,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'loaLoaContent'+-- * 'loaLoaContent' - Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. ----- * 'loaLoaContentType'+-- * 'loaLoaContentType' - Undocumented member. loa     :: Loa loa =@@ -286,13 +379,7 @@     , _loaLoaContentType = Nothing     } --- | Undocumented member.------ /Note:/ This 'Lens' automatically encodes and decodes Base64 data,--- despite what the AWS documentation might say.--- The underlying isomorphism will encode to Base64 representation during--- serialisation, and decode from Base64 representation during deserialisation.--- This 'Lens' accepts and returns only raw unencoded data.+-- | Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. loaLoaContent :: Lens' Loa (Maybe ByteString) loaLoaContent = lens _loaLoaContent (\ s a -> s{_loaLoaContent = a}) . mapping _Base64; @@ -313,6 +400,8 @@  -- | An AWS Direct Connect location where connections and interconnects can be requested. --+--+-- -- /See:/ 'location' smart constructor. data Location = Location'     { _lLocationName :: !(Maybe Text)@@ -323,9 +412,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'lLocationName'+-- * 'lLocationName' - The name of the AWS Direct Connect location. The name includes the colocation partner name and the physical site of the lit building. ----- * 'lLocationCode'+-- * 'lLocationCode' - The code used to indicate the AWS Direct Connect location. location     :: Location location =@@ -353,12 +442,86 @@  instance NFData Location +-- | A structure containing information about a new BGP peer.+--+--+--+-- /See:/ 'newBGPPeer' smart constructor.+data NewBGPPeer = NewBGPPeer'+    { _nbpCustomerAddress :: !(Maybe Text)+    , _nbpAmazonAddress   :: !(Maybe Text)+    , _nbpAddressFamily   :: !(Maybe AddressFamily)+    , _nbpAsn             :: !(Maybe Int)+    , _nbpAuthKey         :: !(Maybe Text)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'NewBGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nbpCustomerAddress' - Undocumented member.+--+-- * 'nbpAmazonAddress' - Undocumented member.+--+-- * 'nbpAddressFamily' - Undocumented member.+--+-- * 'nbpAsn' - Undocumented member.+--+-- * 'nbpAuthKey' - Undocumented member.+newBGPPeer+    :: NewBGPPeer+newBGPPeer =+    NewBGPPeer'+    { _nbpCustomerAddress = Nothing+    , _nbpAmazonAddress = Nothing+    , _nbpAddressFamily = Nothing+    , _nbpAsn = Nothing+    , _nbpAuthKey = Nothing+    }++-- | Undocumented member.+nbpCustomerAddress :: Lens' NewBGPPeer (Maybe Text)+nbpCustomerAddress = lens _nbpCustomerAddress (\ s a -> s{_nbpCustomerAddress = a});++-- | Undocumented member.+nbpAmazonAddress :: Lens' NewBGPPeer (Maybe Text)+nbpAmazonAddress = lens _nbpAmazonAddress (\ s a -> s{_nbpAmazonAddress = a});++-- | Undocumented member.+nbpAddressFamily :: Lens' NewBGPPeer (Maybe AddressFamily)+nbpAddressFamily = lens _nbpAddressFamily (\ s a -> s{_nbpAddressFamily = a});++-- | Undocumented member.+nbpAsn :: Lens' NewBGPPeer (Maybe Int)+nbpAsn = lens _nbpAsn (\ s a -> s{_nbpAsn = a});++-- | Undocumented member.+nbpAuthKey :: Lens' NewBGPPeer (Maybe Text)+nbpAuthKey = lens _nbpAuthKey (\ s a -> s{_nbpAuthKey = a});++instance Hashable NewBGPPeer++instance NFData NewBGPPeer++instance ToJSON NewBGPPeer where+        toJSON NewBGPPeer'{..}+          = object+              (catMaybes+                 [("customerAddress" .=) <$> _nbpCustomerAddress,+                  ("amazonAddress" .=) <$> _nbpAmazonAddress,+                  ("addressFamily" .=) <$> _nbpAddressFamily,+                  ("asn" .=) <$> _nbpAsn,+                  ("authKey" .=) <$> _nbpAuthKey])+ -- | A structure containing information about a new private virtual interface. --+--+-- -- /See:/ 'newPrivateVirtualInterface' smart constructor. data NewPrivateVirtualInterface = NewPrivateVirtualInterface'     { _nCustomerAddress      :: !(Maybe Text)     , _nAmazonAddress        :: !(Maybe Text)+    , _nAddressFamily        :: !(Maybe AddressFamily)     , _nAuthKey              :: !(Maybe Text)     , _nVirtualInterfaceName :: !Text     , _nVlan                 :: !Int@@ -370,19 +533,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'nCustomerAddress'+-- * 'nCustomerAddress' - Undocumented member. ----- * 'nAmazonAddress'+-- * 'nAmazonAddress' - Undocumented member. ----- * 'nAuthKey'+-- * 'nAddressFamily' - Undocumented member. ----- * 'nVirtualInterfaceName'+-- * 'nAuthKey' - Undocumented member. ----- * 'nVlan'+-- * 'nVirtualInterfaceName' - Undocumented member. ----- * 'nAsn'+-- * 'nVlan' - Undocumented member. ----- * 'nVirtualGatewayId'+-- * 'nAsn' - Undocumented member.+--+-- * 'nVirtualGatewayId' - Undocumented member. newPrivateVirtualInterface     :: Text -- ^ 'nVirtualInterfaceName'     -> Int -- ^ 'nVlan'@@ -393,6 +558,7 @@     NewPrivateVirtualInterface'     { _nCustomerAddress = Nothing     , _nAmazonAddress = Nothing+    , _nAddressFamily = Nothing     , _nAuthKey = Nothing     , _nVirtualInterfaceName = pVirtualInterfaceName_     , _nVlan = pVlan_@@ -409,6 +575,10 @@ nAmazonAddress = lens _nAmazonAddress (\ s a -> s{_nAmazonAddress = a});  -- | Undocumented member.+nAddressFamily :: Lens' NewPrivateVirtualInterface (Maybe AddressFamily)+nAddressFamily = lens _nAddressFamily (\ s a -> s{_nAddressFamily = a});++-- | Undocumented member. nAuthKey :: Lens' NewPrivateVirtualInterface (Maybe Text) nAuthKey = lens _nAuthKey (\ s a -> s{_nAuthKey = a}); @@ -438,6 +608,7 @@               (catMaybes                  [("customerAddress" .=) <$> _nCustomerAddress,                   ("amazonAddress" .=) <$> _nAmazonAddress,+                  ("addressFamily" .=) <$> _nAddressFamily,                   ("authKey" .=) <$> _nAuthKey,                   Just                     ("virtualInterfaceName" .= _nVirtualInterfaceName),@@ -446,10 +617,13 @@  -- | A structure containing information about a private virtual interface that will be provisioned on a connection. --+--+-- -- /See:/ 'newPrivateVirtualInterfaceAllocation' smart constructor. data NewPrivateVirtualInterfaceAllocation = NewPrivateVirtualInterfaceAllocation'     { _npviaCustomerAddress      :: !(Maybe Text)     , _npviaAmazonAddress        :: !(Maybe Text)+    , _npviaAddressFamily        :: !(Maybe AddressFamily)     , _npviaAuthKey              :: !(Maybe Text)     , _npviaVirtualInterfaceName :: !Text     , _npviaVlan                 :: !Int@@ -460,17 +634,19 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'npviaCustomerAddress'+-- * 'npviaCustomerAddress' - Undocumented member. ----- * 'npviaAmazonAddress'+-- * 'npviaAmazonAddress' - Undocumented member. ----- * 'npviaAuthKey'+-- * 'npviaAddressFamily' - Undocumented member. ----- * 'npviaVirtualInterfaceName'+-- * 'npviaAuthKey' - Undocumented member. ----- * 'npviaVlan'+-- * 'npviaVirtualInterfaceName' - Undocumented member. ----- * 'npviaAsn'+-- * 'npviaVlan' - Undocumented member.+--+-- * 'npviaAsn' - Undocumented member. newPrivateVirtualInterfaceAllocation     :: Text -- ^ 'npviaVirtualInterfaceName'     -> Int -- ^ 'npviaVlan'@@ -480,6 +656,7 @@     NewPrivateVirtualInterfaceAllocation'     { _npviaCustomerAddress = Nothing     , _npviaAmazonAddress = Nothing+    , _npviaAddressFamily = Nothing     , _npviaAuthKey = Nothing     , _npviaVirtualInterfaceName = pVirtualInterfaceName_     , _npviaVlan = pVlan_@@ -495,6 +672,10 @@ npviaAmazonAddress = lens _npviaAmazonAddress (\ s a -> s{_npviaAmazonAddress = a});  -- | Undocumented member.+npviaAddressFamily :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe AddressFamily)+npviaAddressFamily = lens _npviaAddressFamily (\ s a -> s{_npviaAddressFamily = a});++-- | Undocumented member. npviaAuthKey :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text) npviaAuthKey = lens _npviaAuthKey (\ s a -> s{_npviaAuthKey = a}); @@ -522,6 +703,7 @@               (catMaybes                  [("customerAddress" .=) <$> _npviaCustomerAddress,                   ("amazonAddress" .=) <$> _npviaAmazonAddress,+                  ("addressFamily" .=) <$> _npviaAddressFamily,                   ("authKey" .=) <$> _npviaAuthKey,                   Just                     ("virtualInterfaceName" .=@@ -531,53 +713,73 @@  -- | A structure containing information about a new public virtual interface. --+--+-- -- /See:/ 'newPublicVirtualInterface' smart constructor. data NewPublicVirtualInterface = NewPublicVirtualInterface'-    { _npviAuthKey              :: !(Maybe Text)+    { _npviRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])+    , _npviCustomerAddress      :: !(Maybe Text)+    , _npviAmazonAddress        :: !(Maybe Text)+    , _npviAddressFamily        :: !(Maybe AddressFamily)+    , _npviAuthKey              :: !(Maybe Text)     , _npviVirtualInterfaceName :: !Text     , _npviVlan                 :: !Int     , _npviAsn                  :: !Int-    , _npviAmazonAddress        :: !Text-    , _npviCustomerAddress      :: !Text-    , _npviRouteFilterPrefixes  :: ![RouteFilterPrefix]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'NewPublicVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'npviAuthKey'+-- * 'npviRouteFilterPrefixes' - Undocumented member. ----- * 'npviVirtualInterfaceName'+-- * 'npviCustomerAddress' - Undocumented member. ----- * 'npviVlan'+-- * 'npviAmazonAddress' - Undocumented member. ----- * 'npviAsn'+-- * 'npviAddressFamily' - Undocumented member. ----- * 'npviAmazonAddress'+-- * 'npviAuthKey' - Undocumented member. ----- * 'npviCustomerAddress'+-- * 'npviVirtualInterfaceName' - Undocumented member. ----- * 'npviRouteFilterPrefixes'+-- * 'npviVlan' - Undocumented member.+--+-- * 'npviAsn' - Undocumented member. newPublicVirtualInterface     :: Text -- ^ 'npviVirtualInterfaceName'     -> Int -- ^ 'npviVlan'     -> Int -- ^ 'npviAsn'-    -> Text -- ^ 'npviAmazonAddress'-    -> Text -- ^ 'npviCustomerAddress'     -> NewPublicVirtualInterface-newPublicVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ pAmazonAddress_ pCustomerAddress_ =+newPublicVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ =     NewPublicVirtualInterface'-    { _npviAuthKey = Nothing+    { _npviRouteFilterPrefixes = Nothing+    , _npviCustomerAddress = Nothing+    , _npviAmazonAddress = Nothing+    , _npviAddressFamily = Nothing+    , _npviAuthKey = Nothing     , _npviVirtualInterfaceName = pVirtualInterfaceName_     , _npviVlan = pVlan_     , _npviAsn = pAsn_-    , _npviAmazonAddress = pAmazonAddress_-    , _npviCustomerAddress = pCustomerAddress_-    , _npviRouteFilterPrefixes = mempty     }  -- | Undocumented member.+npviRouteFilterPrefixes :: Lens' NewPublicVirtualInterface [RouteFilterPrefix]+npviRouteFilterPrefixes = lens _npviRouteFilterPrefixes (\ s a -> s{_npviRouteFilterPrefixes = a}) . _Default . _Coerce;++-- | Undocumented member.+npviCustomerAddress :: Lens' NewPublicVirtualInterface (Maybe Text)+npviCustomerAddress = lens _npviCustomerAddress (\ s a -> s{_npviCustomerAddress = a});++-- | Undocumented member.+npviAmazonAddress :: Lens' NewPublicVirtualInterface (Maybe Text)+npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a});++-- | Undocumented member.+npviAddressFamily :: Lens' NewPublicVirtualInterface (Maybe AddressFamily)+npviAddressFamily = lens _npviAddressFamily (\ s a -> s{_npviAddressFamily = a});++-- | Undocumented member. npviAuthKey :: Lens' NewPublicVirtualInterface (Maybe Text) npviAuthKey = lens _npviAuthKey (\ s a -> s{_npviAuthKey = a}); @@ -593,18 +795,6 @@ npviAsn :: Lens' NewPublicVirtualInterface Int npviAsn = lens _npviAsn (\ s a -> s{_npviAsn = a}); --- | Undocumented member.-npviAmazonAddress :: Lens' NewPublicVirtualInterface Text-npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a});---- | Undocumented member.-npviCustomerAddress :: Lens' NewPublicVirtualInterface Text-npviCustomerAddress = lens _npviCustomerAddress (\ s a -> s{_npviCustomerAddress = a});---- | Undocumented member.-npviRouteFilterPrefixes :: Lens' NewPublicVirtualInterface [RouteFilterPrefix]-npviRouteFilterPrefixes = lens _npviRouteFilterPrefixes (\ s a -> s{_npviRouteFilterPrefixes = a}) . _Coerce;- instance Hashable NewPublicVirtualInterface  instance NFData NewPublicVirtualInterface@@ -613,65 +803,87 @@         toJSON NewPublicVirtualInterface'{..}           = object               (catMaybes-                 [("authKey" .=) <$> _npviAuthKey,+                 [("routeFilterPrefixes" .=) <$>+                    _npviRouteFilterPrefixes,+                  ("customerAddress" .=) <$> _npviCustomerAddress,+                  ("amazonAddress" .=) <$> _npviAmazonAddress,+                  ("addressFamily" .=) <$> _npviAddressFamily,+                  ("authKey" .=) <$> _npviAuthKey,                   Just                     ("virtualInterfaceName" .=                        _npviVirtualInterfaceName),-                  Just ("vlan" .= _npviVlan), Just ("asn" .= _npviAsn),-                  Just ("amazonAddress" .= _npviAmazonAddress),-                  Just ("customerAddress" .= _npviCustomerAddress),-                  Just-                    ("routeFilterPrefixes" .= _npviRouteFilterPrefixes)])+                  Just ("vlan" .= _npviVlan),+                  Just ("asn" .= _npviAsn)])  -- | A structure containing information about a public virtual interface that will be provisioned on a connection. --+--+-- -- /See:/ 'newPublicVirtualInterfaceAllocation' smart constructor. data NewPublicVirtualInterfaceAllocation = NewPublicVirtualInterfaceAllocation'-    { _newAuthKey              :: !(Maybe Text)+    { _newRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])+    , _newCustomerAddress      :: !(Maybe Text)+    , _newAmazonAddress        :: !(Maybe Text)+    , _newAddressFamily        :: !(Maybe AddressFamily)+    , _newAuthKey              :: !(Maybe Text)     , _newVirtualInterfaceName :: !Text     , _newVlan                 :: !Int     , _newAsn                  :: !Int-    , _newAmazonAddress        :: !Text-    , _newCustomerAddress      :: !Text-    , _newRouteFilterPrefixes  :: ![RouteFilterPrefix]     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'NewPublicVirtualInterfaceAllocation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'newAuthKey'+-- * 'newRouteFilterPrefixes' - Undocumented member. ----- * 'newVirtualInterfaceName'+-- * 'newCustomerAddress' - Undocumented member. ----- * 'newVlan'+-- * 'newAmazonAddress' - Undocumented member. ----- * 'newAsn'+-- * 'newAddressFamily' - Undocumented member. ----- * 'newAmazonAddress'+-- * 'newAuthKey' - Undocumented member. ----- * 'newCustomerAddress'+-- * 'newVirtualInterfaceName' - Undocumented member. ----- * 'newRouteFilterPrefixes'+-- * 'newVlan' - Undocumented member.+--+-- * 'newAsn' - Undocumented member. newPublicVirtualInterfaceAllocation     :: Text -- ^ 'newVirtualInterfaceName'     -> Int -- ^ 'newVlan'     -> Int -- ^ 'newAsn'-    -> Text -- ^ 'newAmazonAddress'-    -> Text -- ^ 'newCustomerAddress'     -> NewPublicVirtualInterfaceAllocation-newPublicVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ pAmazonAddress_ pCustomerAddress_ =+newPublicVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ =     NewPublicVirtualInterfaceAllocation'-    { _newAuthKey = Nothing+    { _newRouteFilterPrefixes = Nothing+    , _newCustomerAddress = Nothing+    , _newAmazonAddress = Nothing+    , _newAddressFamily = Nothing+    , _newAuthKey = Nothing     , _newVirtualInterfaceName = pVirtualInterfaceName_     , _newVlan = pVlan_     , _newAsn = pAsn_-    , _newAmazonAddress = pAmazonAddress_-    , _newCustomerAddress = pCustomerAddress_-    , _newRouteFilterPrefixes = mempty     }  -- | Undocumented member.+newRouteFilterPrefixes :: Lens' NewPublicVirtualInterfaceAllocation [RouteFilterPrefix]+newRouteFilterPrefixes = lens _newRouteFilterPrefixes (\ s a -> s{_newRouteFilterPrefixes = a}) . _Default . _Coerce;++-- | Undocumented member.+newCustomerAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)+newCustomerAddress = lens _newCustomerAddress (\ s a -> s{_newCustomerAddress = a});++-- | Undocumented member.+newAmazonAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)+newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a});++-- | Undocumented member.+newAddressFamily :: Lens' NewPublicVirtualInterfaceAllocation (Maybe AddressFamily)+newAddressFamily = lens _newAddressFamily (\ s a -> s{_newAddressFamily = a});++-- | Undocumented member. newAuthKey :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text) newAuthKey = lens _newAuthKey (\ s a -> s{_newAuthKey = a}); @@ -687,18 +899,6 @@ newAsn :: Lens' NewPublicVirtualInterfaceAllocation Int newAsn = lens _newAsn (\ s a -> s{_newAsn = a}); --- | Undocumented member.-newAmazonAddress :: Lens' NewPublicVirtualInterfaceAllocation Text-newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a});---- | Undocumented member.-newCustomerAddress :: Lens' NewPublicVirtualInterfaceAllocation Text-newCustomerAddress = lens _newCustomerAddress (\ s a -> s{_newCustomerAddress = a});---- | Undocumented member.-newRouteFilterPrefixes :: Lens' NewPublicVirtualInterfaceAllocation [RouteFilterPrefix]-newRouteFilterPrefixes = lens _newRouteFilterPrefixes (\ s a -> s{_newRouteFilterPrefixes = a}) . _Coerce;- instance Hashable NewPublicVirtualInterfaceAllocation  instance NFData NewPublicVirtualInterfaceAllocation@@ -708,17 +908,64 @@         toJSON NewPublicVirtualInterfaceAllocation'{..}           = object               (catMaybes-                 [("authKey" .=) <$> _newAuthKey,+                 [("routeFilterPrefixes" .=) <$>+                    _newRouteFilterPrefixes,+                  ("customerAddress" .=) <$> _newCustomerAddress,+                  ("amazonAddress" .=) <$> _newAmazonAddress,+                  ("addressFamily" .=) <$> _newAddressFamily,+                  ("authKey" .=) <$> _newAuthKey,                   Just                     ("virtualInterfaceName" .= _newVirtualInterfaceName),-                  Just ("vlan" .= _newVlan), Just ("asn" .= _newAsn),-                  Just ("amazonAddress" .= _newAmazonAddress),-                  Just ("customerAddress" .= _newCustomerAddress),-                  Just-                    ("routeFilterPrefixes" .= _newRouteFilterPrefixes)])+                  Just ("vlan" .= _newVlan), Just ("asn" .= _newAsn)]) +-- | The tags associated with a Direct Connect resource.+--+--+--+-- /See:/ 'resourceTag' smart constructor.+data ResourceTag = ResourceTag'+    { _rtResourceARN :: !(Maybe Text)+    , _rtTags        :: !(Maybe (List1 Tag))+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ResourceTag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtResourceARN' - The Amazon Resource Name (ARN) of the Direct Connect resource.+--+-- * 'rtTags' - The tags.+resourceTag+    :: ResourceTag+resourceTag =+    ResourceTag'+    { _rtResourceARN = Nothing+    , _rtTags = Nothing+    }++-- | The Amazon Resource Name (ARN) of the Direct Connect resource.+rtResourceARN :: Lens' ResourceTag (Maybe Text)+rtResourceARN = lens _rtResourceARN (\ s a -> s{_rtResourceARN = a});++-- | The tags.+rtTags :: Lens' ResourceTag (Maybe (NonEmpty Tag))+rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . mapping _List1;++instance FromJSON ResourceTag where+        parseJSON+          = withObject "ResourceTag"+              (\ x ->+                 ResourceTag' <$>+                   (x .:? "resourceArn") <*> (x .:? "tags"))++instance Hashable ResourceTag++instance NFData ResourceTag+ -- | A route filter prefix that the customer can advertise through Border Gateway Protocol (BGP) over a public virtual interface. --+--+-- -- /See:/ 'routeFilterPrefix' smart constructor. newtype RouteFilterPrefix = RouteFilterPrefix'     { _rfpCidr :: Maybe Text@@ -728,7 +975,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rfpCidr'+-- * 'rfpCidr' - CIDR notation for the advertised route. Multiple routes are separated by commas. IPv6 CIDRs must be at least a /64 or shorter Example: 10.10.10.0/24,10.10.11.0/24,2001:db8::/64 routeFilterPrefix     :: RouteFilterPrefix routeFilterPrefix =@@ -736,9 +983,7 @@     { _rfpCidr = Nothing     } --- | CIDR notation for the advertised route. Multiple routes are separated by commas.------ Example: 10.10.10.0\/24,10.10.11.0\/24+-- | CIDR notation for the advertised route. Multiple routes are separated by commas. IPv6 CIDRs must be at least a /64 or shorter Example: 10.10.10.0/24,10.10.11.0/24,2001:db8::/64 rfpCidr :: Lens' RouteFilterPrefix (Maybe Text) rfpCidr = lens _rfpCidr (\ s a -> s{_rfpCidr = a}); @@ -755,10 +1000,62 @@         toJSON RouteFilterPrefix'{..}           = object (catMaybes [("cidr" .=) <$> _rfpCidr]) +-- | Information about a tag.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+    { _tagValue :: !(Maybe Text)+    , _tagKey   :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - The value of the tag.+--+-- * 'tagKey' - The key of the tag.+tag+    :: Text -- ^ 'tagKey'+    -> Tag+tag pKey_ =+    Tag'+    { _tagValue = Nothing+    , _tagKey = pKey_+    }++-- | The value of the tag.+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a});++-- | The key of the tag.+tagKey :: Lens' Tag Text+tagKey = lens _tagKey (\ s a -> s{_tagKey = a});++instance FromJSON Tag where+        parseJSON+          = withObject "Tag"+              (\ x -> Tag' <$> (x .:? "value") <*> (x .: "key"))++instance Hashable Tag++instance NFData Tag++instance ToJSON Tag where+        toJSON Tag'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _tagValue,+                  Just ("key" .= _tagKey)])+ -- | You can create one or more AWS Direct Connect private virtual interfaces linking to your virtual private gateway. ----- Virtual private gateways can be managed using the Amazon Virtual Private Cloud (Amazon VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html Amazon EC2 CreateVpnGateway action>. --+-- Virtual private gateways can be managed using the Amazon Virtual Private Cloud (Amazon VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html Amazon EC2 CreateVpnGateway action> .+--+-- -- /See:/ 'virtualGateway' smart constructor. data VirtualGateway = VirtualGateway'     { _vgVirtualGatewayId    :: !(Maybe Text)@@ -769,9 +1066,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'vgVirtualGatewayId'+-- * 'vgVirtualGatewayId' - Undocumented member. ----- * 'vgVirtualGatewayState'+-- * 'vgVirtualGatewayState' - Undocumented member. virtualGateway     :: VirtualGateway virtualGateway =@@ -802,14 +1099,18 @@  -- | A virtual interface (VLAN) transmits the traffic between the AWS Direct Connect location and the customer. --+--+-- -- /See:/ 'virtualInterface' smart constructor. data VirtualInterface = VirtualInterface'-    { _viVirtualGatewayId      :: !(Maybe Text)+    { _viBgpPeers              :: !(Maybe [BGPPeer])+    , _viVirtualGatewayId      :: !(Maybe Text)     , _viRouteFilterPrefixes   :: !(Maybe [RouteFilterPrefix])     , _viCustomerAddress       :: !(Maybe Text)     , _viVlan                  :: !(Maybe Int)     , _viLocation              :: !(Maybe Text)     , _viAmazonAddress         :: !(Maybe Text)+    , _viAddressFamily         :: !(Maybe AddressFamily)     , _viVirtualInterfaceState :: !(Maybe VirtualInterfaceState)     , _viConnectionId          :: !(Maybe Text)     , _viVirtualInterfaceType  :: !(Maybe Text)@@ -825,45 +1126,51 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'viVirtualGatewayId'+-- * 'viBgpPeers' - Undocumented member. ----- * 'viRouteFilterPrefixes'+-- * 'viVirtualGatewayId' - Undocumented member. ----- * 'viCustomerAddress'+-- * 'viRouteFilterPrefixes' - Undocumented member. ----- * 'viVlan'+-- * 'viCustomerAddress' - Undocumented member. ----- * 'viLocation'+-- * 'viVlan' - Undocumented member. ----- * 'viAmazonAddress'+-- * 'viLocation' - Undocumented member. ----- * 'viVirtualInterfaceState'+-- * 'viAmazonAddress' - Undocumented member. ----- * 'viConnectionId'+-- * 'viAddressFamily' - Undocumented member. ----- * 'viVirtualInterfaceType'+-- * 'viVirtualInterfaceState' - Undocumented member. ----- * 'viAsn'+-- * 'viConnectionId' - Undocumented member. ----- * 'viAuthKey'+-- * 'viVirtualInterfaceType' - Undocumented member. ----- * 'viCustomerRouterConfig'+-- * 'viAsn' - Undocumented member. ----- * 'viOwnerAccount'+-- * 'viAuthKey' - Undocumented member. ----- * 'viVirtualInterfaceName'+-- * 'viCustomerRouterConfig' - Information for generating the customer router configuration. ----- * 'viVirtualInterfaceId'+-- * 'viOwnerAccount' - The AWS account that will own the new virtual interface.+--+-- * 'viVirtualInterfaceName' - Undocumented member.+--+-- * 'viVirtualInterfaceId' - Undocumented member. virtualInterface     :: VirtualInterface virtualInterface =     VirtualInterface'-    { _viVirtualGatewayId = Nothing+    { _viBgpPeers = Nothing+    , _viVirtualGatewayId = Nothing     , _viRouteFilterPrefixes = Nothing     , _viCustomerAddress = Nothing     , _viVlan = Nothing     , _viLocation = Nothing     , _viAmazonAddress = Nothing+    , _viAddressFamily = Nothing     , _viVirtualInterfaceState = Nothing     , _viConnectionId = Nothing     , _viVirtualInterfaceType = Nothing@@ -876,6 +1183,10 @@     }  -- | Undocumented member.+viBgpPeers :: Lens' VirtualInterface [BGPPeer]+viBgpPeers = lens _viBgpPeers (\ s a -> s{_viBgpPeers = a}) . _Default . _Coerce;++-- | Undocumented member. viVirtualGatewayId :: Lens' VirtualInterface (Maybe Text) viVirtualGatewayId = lens _viVirtualGatewayId (\ s a -> s{_viVirtualGatewayId = a}); @@ -900,6 +1211,10 @@ viAmazonAddress = lens _viAmazonAddress (\ s a -> s{_viAmazonAddress = a});  -- | Undocumented member.+viAddressFamily :: Lens' VirtualInterface (Maybe AddressFamily)+viAddressFamily = lens _viAddressFamily (\ s a -> s{_viAddressFamily = a});++-- | Undocumented member. viVirtualInterfaceState :: Lens' VirtualInterface (Maybe VirtualInterfaceState) viVirtualInterfaceState = lens _viVirtualInterfaceState (\ s a -> s{_viVirtualInterfaceState = a}); @@ -940,12 +1255,14 @@           = withObject "VirtualInterface"               (\ x ->                  VirtualInterface' <$>-                   (x .:? "virtualGatewayId") <*>-                     (x .:? "routeFilterPrefixes" .!= mempty)+                   (x .:? "bgpPeers" .!= mempty) <*>+                     (x .:? "virtualGatewayId")+                     <*> (x .:? "routeFilterPrefixes" .!= mempty)                      <*> (x .:? "customerAddress")                      <*> (x .:? "vlan")                      <*> (x .:? "location")                      <*> (x .:? "amazonAddress")+                     <*> (x .:? "addressFamily")                      <*> (x .:? "virtualInterfaceState")                      <*> (x .:? "connectionId")                      <*> (x .:? "virtualInterfaceType")

@@ -19,24 +19,150 @@  import           Network.AWS.Prelude +-- | Indicates the address family for the BGP peer.+--+--+--     * __ipv4__ : IPv4 address family+--+--     * __ipv6__ : IPv6 address family+--+--+--+data AddressFamily+    = IPV4+    | IPV6+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText AddressFamily where+    parser = takeLowerText >>= \case+        "ipv4" -> pure IPV4+        "ipv6" -> pure IPV6+        e -> fromTextError $ "Failure parsing AddressFamily from value: '" <> e+           <> "'. Accepted values: ipv4, ipv6"++instance ToText AddressFamily where+    toText = \case+        IPV4 -> "ipv4"+        IPV6 -> "ipv6"++instance Hashable     AddressFamily+instance NFData       AddressFamily+instance ToByteString AddressFamily+instance ToQuery      AddressFamily+instance ToHeader     AddressFamily++instance ToJSON AddressFamily where+    toJSON = toJSONText++instance FromJSON AddressFamily where+    parseJSON = parseJSONText "AddressFamily"++-- | The state of the BGP peer.+--+--+--     * __Verifying__ : The BGP peering addresses or ASN require validation before the BGP peer can be created. This state only applies to BGP peers on a public virtual interface.+--+--     * __Pending__ : The BGP peer has been created, and is in this state until it is ready to be established.+--+--     * __Available__ : The BGP peer can be established.+--+--     * __Deleting__ : The BGP peer is in the process of being deleted.+--+--     * __Deleted__ : The BGP peer has been deleted and cannot be established.+--+--+--+data BGPPeerState+    = Available+    | Deleted+    | Deleting+    | Pending+    | Verifying+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText BGPPeerState where+    parser = takeLowerText >>= \case+        "available" -> pure Available+        "deleted" -> pure Deleted+        "deleting" -> pure Deleting+        "pending" -> pure Pending+        "verifying" -> pure Verifying+        e -> fromTextError $ "Failure parsing BGPPeerState from value: '" <> e+           <> "'. Accepted values: available, deleted, deleting, pending, verifying"++instance ToText BGPPeerState where+    toText = \case+        Available -> "available"+        Deleted -> "deleted"+        Deleting -> "deleting"+        Pending -> "pending"+        Verifying -> "verifying"++instance Hashable     BGPPeerState+instance NFData       BGPPeerState+instance ToByteString BGPPeerState+instance ToQuery      BGPPeerState+instance ToHeader     BGPPeerState++instance FromJSON BGPPeerState where+    parseJSON = parseJSONText "BGPPeerState"++-- | The Up/Down state of the BGP peer.+--+--+--     * __Up__ : The BGP peer is established.+--+--     * __Down__ : The BGP peer is down.+--+--+--+data BGPStatus+    = Down+    | UP+    deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)++instance FromText BGPStatus where+    parser = takeLowerText >>= \case+        "down" -> pure Down+        "up" -> pure UP+        e -> fromTextError $ "Failure parsing BGPStatus from value: '" <> e+           <> "'. Accepted values: down, up"++instance ToText BGPStatus where+    toText = \case+        Down -> "down"+        UP -> "up"++instance Hashable     BGPStatus+instance NFData       BGPStatus+instance ToByteString BGPStatus+instance ToQuery      BGPStatus+instance ToHeader     BGPStatus++instance FromJSON BGPStatus where+    parseJSON = parseJSONText "BGPStatus"+ -- | State of the connection. ----- -   __Ordering__: The initial state of a hosted connection provisioned on an interconnect. The connection stays in the ordering state until the owner of the hosted connection confirms or declines the connection order. ----- -   __Requested__: The initial state of a standard connection. The connection stays in the requested state until the Letter of Authorization (LOA) is sent to the customer.+--     * __Ordering__ : The initial state of a hosted connection provisioned on an interconnect. The connection stays in the ordering state until the owner of the hosted connection confirms or declines the connection order. ----- -   __Pending__: The connection has been approved, and is being initialized.+--     * __Requested__ : The initial state of a standard connection. The connection stays in the requested state until the Letter of Authorization (LOA) is sent to the customer. ----- -   __Available__: The network link is up, and the connection is ready for use.+--     * __Pending__ : The connection has been approved, and is being initialized. ----- -   __Down__: The network link is down.+--     * __Available__ : The network link is up, and the connection is ready for use. ----- -   __Deleting__: The connection is in the process of being deleted.+--     * __Down__ : The network link is down. ----- -   __Deleted__: The connection has been deleted.+--     * __Deleting__ : The connection is in the process of being deleted. ----- -   __Rejected__: A hosted connection in the \'Ordering\' state will enter the \'Rejected\' state if it is deleted by the end customer.+--     * __Deleted__ : The connection has been deleted. --+--     * __Rejected__ : A hosted connection in the 'Ordering' state will enter the 'Rejected' state if it is deleted by the end customer.+--+--+-- data ConnectionState     = CSAvailable     | CSDeleted@@ -83,18 +209,21 @@  -- | State of the interconnect. ----- -   __Requested__: The initial state of an interconnect. The interconnect stays in the requested state until the Letter of Authorization (LOA) is sent to the customer. ----- -   __Pending__>: The interconnect has been approved, and is being initialized.+--     * __Requested__ : The initial state of an interconnect. The interconnect stays in the requested state until the Letter of Authorization (LOA) is sent to the customer. ----- -   __Available__: The network link is up, and the interconnect is ready for use.+--     * __Pending__ >: The interconnect has been approved, and is being initialized. ----- -   __Down__: The network link is down.+--     * __Available__ : The network link is up, and the interconnect is ready for use. ----- -   __Deleting__: The interconnect is in the process of being deleted.+--     * __Down__ : The network link is down. ----- -   __Deleted__: The interconnect has been deleted.+--     * __Deleting__ : The interconnect is in the process of being deleted. --+--     * __Deleted__ : The interconnect has been deleted.+--+--+-- data InterconnectState     = ISAvailable     | ISDeleted@@ -133,9 +262,11 @@ instance FromJSON InterconnectState where     parseJSON = parseJSONText "InterconnectState" --- | A standard media type indicating the content type of the LOA-CFA document. Currently, the only supported value is \"application\/pdf\".+-- | A standard media type indicating the content type of the LOA-CFA document. Currently, the only supported value is "application/pdf". ----- Default: application\/pdf+--+-- Default: application/pdf+-- data LoaContentType =     ApplicationPdf     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)@@ -164,56 +295,59 @@  -- | State of the virtual interface. ----- -   __Confirming__: The creation of the virtual interface is pending confirmation from the virtual interface owner. If the owner of the virtual interface is different from the owner of the connection on which it is provisioned, then the virtual interface will remain in this state until it is confirmed by the virtual interface owner. ----- -   __Verifying__: This state only applies to public virtual interfaces. Each public virtual interface needs validation before the virtual interface can be created.+--     * __Confirming__ : The creation of the virtual interface is pending confirmation from the virtual interface owner. If the owner of the virtual interface is different from the owner of the connection on which it is provisioned, then the virtual interface will remain in this state until it is confirmed by the virtual interface owner. ----- -   __Pending__: A virtual interface is in this state from the time that it is created until the virtual interface is ready to forward traffic.+--     * __Verifying__ : This state only applies to public virtual interfaces. Each public virtual interface needs validation before the virtual interface can be created. ----- -   __Available__: A virtual interface that is able to forward traffic.+--     * __Pending__ : A virtual interface is in this state from the time that it is created until the virtual interface is ready to forward traffic. ----- -   __Down__: A virtual interface that is BGP down.+--     * __Available__ : A virtual interface that is able to forward traffic. ----- -   __Deleting__: A virtual interface is in this state immediately after calling /DeleteVirtualInterface/ until it can no longer forward traffic.+--     * __Down__ : A virtual interface that is BGP down. ----- -   __Deleted__: A virtual interface that cannot forward traffic.+--     * __Deleting__ : A virtual interface is in this state immediately after calling /DeleteVirtualInterface/ until it can no longer forward traffic. ----- -   __Rejected__: The virtual interface owner has declined creation of the virtual interface. If a virtual interface in the \'Confirming\' state is deleted by the virtual interface owner, the virtual interface will enter the \'Rejected\' state.+--     * __Deleted__ : A virtual interface that cannot forward traffic. --+--     * __Rejected__ : The virtual interface owner has declined creation of the virtual interface. If a virtual interface in the 'Confirming' state is deleted by the virtual interface owner, the virtual interface will enter the 'Rejected' state.+--+--+-- data VirtualInterfaceState-    = Available-    | Confirming-    | Deleted-    | Deleting-    | Down-    | Pending-    | Rejected-    | Verifying+    = VISAvailable+    | VISConfirming+    | VISDeleted+    | VISDeleting+    | VISDown+    | VISPending+    | VISRejected+    | VISVerifying     deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)  instance FromText VirtualInterfaceState where     parser = takeLowerText >>= \case-        "available" -> pure Available-        "confirming" -> pure Confirming-        "deleted" -> pure Deleted-        "deleting" -> pure Deleting-        "down" -> pure Down-        "pending" -> pure Pending-        "rejected" -> pure Rejected-        "verifying" -> pure Verifying+        "available" -> pure VISAvailable+        "confirming" -> pure VISConfirming+        "deleted" -> pure VISDeleted+        "deleting" -> pure VISDeleting+        "down" -> pure VISDown+        "pending" -> pure VISPending+        "rejected" -> pure VISRejected+        "verifying" -> pure VISVerifying         e -> fromTextError $ "Failure parsing VirtualInterfaceState from value: '" <> e            <> "'. Accepted values: available, confirming, deleted, deleting, down, pending, rejected, verifying"  instance ToText VirtualInterfaceState where     toText = \case-        Available -> "available"-        Confirming -> "confirming"-        Deleted -> "deleted"-        Deleting -> "deleting"-        Down -> "down"-        Pending -> "pending"-        Rejected -> "rejected"-        Verifying -> "verifying"+        VISAvailable -> "available"+        VISConfirming -> "confirming"+        VISDeleted -> "deleted"+        VISDeleting -> "deleting"+        VISDown -> "down"+        VISPending -> "pending"+        VISRejected -> "rejected"+        VISVerifying -> "verifying"  instance Hashable     VirtualInterfaceState instance NFData       VirtualInterfaceState

@@ -0,0 +1,141 @@+{-# 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.DirectConnect.UntagResource+-- 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)+--+-- Removes one or more tags from the specified Direct Connect resource.+--+--+module Network.AWS.DirectConnect.UntagResource+    (+    -- * Creating a Request+      untagResource+    , UntagResource+    -- * Request Lenses+    , urResourceARN+    , urTagKeys++    -- * Destructuring the Response+    , untagResourceResponse+    , UntagResourceResponse+    -- * Response Lenses+    , urrsResponseStatus+    ) where++import           Network.AWS.DirectConnect.Types+import           Network.AWS.DirectConnect.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Container for the parameters to the UntagResource operation.+--+--+--+-- /See:/ 'untagResource' smart constructor.+data UntagResource = UntagResource'+    { _urResourceARN :: !Text+    , _urTagKeys     :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UntagResource' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urResourceARN' - The Amazon Resource Name (ARN) of the Direct Connect resource.+--+-- * 'urTagKeys' - The list of tag keys to remove.+untagResource+    :: Text -- ^ 'urResourceARN'+    -> UntagResource+untagResource pResourceARN_ =+    UntagResource'+    { _urResourceARN = pResourceARN_+    , _urTagKeys = mempty+    }++-- | The Amazon Resource Name (ARN) of the Direct Connect resource.+urResourceARN :: Lens' UntagResource Text+urResourceARN = lens _urResourceARN (\ s a -> s{_urResourceARN = a});++-- | The list of tag keys to remove.+urTagKeys :: Lens' UntagResource [Text]+urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce;++instance AWSRequest UntagResource where+        type Rs UntagResource = UntagResourceResponse+        request = postJSON directConnect+        response+          = receiveEmpty+              (\ s h x ->+                 UntagResourceResponse' <$> (pure (fromEnum s)))++instance Hashable UntagResource++instance NFData UntagResource++instance ToHeaders UntagResource where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.UntagResource" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON UntagResource where+        toJSON UntagResource'{..}+          = object+              (catMaybes+                 [Just ("resourceArn" .= _urResourceARN),+                  Just ("tagKeys" .= _urTagKeys)])++instance ToPath UntagResource where+        toPath = const "/"++instance ToQuery UntagResource where+        toQuery = const mempty++-- | The response received when UntagResource is called.+--+--+--+-- /See:/ 'untagResourceResponse' smart constructor.+newtype UntagResourceResponse = UntagResourceResponse'+    { _urrsResponseStatus :: Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'UntagResourceResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'urrsResponseStatus' - -- | The response status code.+untagResourceResponse+    :: Int -- ^ 'urrsResponseStatus'+    -> UntagResourceResponse+untagResourceResponse pResponseStatus_ =+    UntagResourceResponse'+    { _urrsResponseStatus = pResponseStatus_+    }++-- | -- | The response status code.+urrsResponseStatus :: Lens' UntagResourceResponse Int+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});++instance NFData UntagResourceResponse

@@ -31,6 +31,9 @@ --         [ requestDescribeInterconnects $ --             describeInterconnects --+--         , requestDescribeTags $+--             describeTags+-- --         , requestDeleteConnection $ --             deleteConnection --@@ -85,9 +88,21 @@ --         , requestAllocateConnectionOnInterconnect $ --             allocateConnectionOnInterconnect --+--         , requestTagResource $+--             tagResource+--+--         , requestUntagResource $+--             untagResource+--+--         , requestCreateBGPPeer $+--             createBGPPeer+-- --         , requestCreateInterconnect $ --             createInterconnect --+--         , requestDeleteBGPPeer $+--             deleteBGPPeer+-- --         , requestDescribeConnectionLoa $ --             describeConnectionLoa --@@ -97,6 +112,9 @@ --         [ responseDescribeInterconnects $ --             describeInterconnectsResponse --+--         , responseDescribeTags $+--             describeTagsResponse+-- --         , responseDeleteConnection $ --             connection --@@ -151,9 +169,21 @@ --         , responseAllocateConnectionOnInterconnect $ --             connection --+--         , responseTagResource $+--             tagResourceResponse+--+--         , responseUntagResource $+--             untagResourceResponse+--+--         , responseCreateBGPPeer $+--             createBGPPeerResponse+-- --         , responseCreateInterconnect $ --             interconnect --+--         , responseDeleteBGPPeer $+--             deleteBGPPeerResponse+-- --         , responseDescribeConnectionLoa $ --             describeConnectionLoaResponse --@@ -167,6 +197,11 @@     "DescribeInterconnects"     "fixture/DescribeInterconnects.yaml" +requestDescribeTags :: DescribeTags -> TestTree+requestDescribeTags = req+    "DescribeTags"+    "fixture/DescribeTags.yaml"+ requestDeleteConnection :: DeleteConnection -> TestTree requestDeleteConnection = req     "DeleteConnection"@@ -257,11 +292,31 @@     "AllocateConnectionOnInterconnect"     "fixture/AllocateConnectionOnInterconnect.yaml" +requestTagResource :: TagResource -> TestTree+requestTagResource = req+    "TagResource"+    "fixture/TagResource.yaml"++requestUntagResource :: UntagResource -> TestTree+requestUntagResource = req+    "UntagResource"+    "fixture/UntagResource.yaml"++requestCreateBGPPeer :: CreateBGPPeer -> TestTree+requestCreateBGPPeer = req+    "CreateBGPPeer"+    "fixture/CreateBGPPeer.yaml"+ requestCreateInterconnect :: CreateInterconnect -> TestTree requestCreateInterconnect = req     "CreateInterconnect"     "fixture/CreateInterconnect.yaml" +requestDeleteBGPPeer :: DeleteBGPPeer -> TestTree+requestDeleteBGPPeer = req+    "DeleteBGPPeer"+    "fixture/DeleteBGPPeer.yaml"+ requestDescribeConnectionLoa :: DescribeConnectionLoa -> TestTree requestDescribeConnectionLoa = req     "DescribeConnectionLoa"@@ -276,6 +331,13 @@     directConnect     (Proxy :: Proxy DescribeInterconnects) +responseDescribeTags :: DescribeTagsResponse -> TestTree+responseDescribeTags = res+    "DescribeTagsResponse"+    "fixture/DescribeTagsResponse.proto"+    directConnect+    (Proxy :: Proxy DescribeTags)+ responseDeleteConnection :: Connection -> TestTree responseDeleteConnection = res     "DeleteConnectionResponse"@@ -402,12 +464,40 @@     directConnect     (Proxy :: Proxy AllocateConnectionOnInterconnect) +responseTagResource :: TagResourceResponse -> TestTree+responseTagResource = res+    "TagResourceResponse"+    "fixture/TagResourceResponse.proto"+    directConnect+    (Proxy :: Proxy TagResource)++responseUntagResource :: UntagResourceResponse -> TestTree+responseUntagResource = res+    "UntagResourceResponse"+    "fixture/UntagResourceResponse.proto"+    directConnect+    (Proxy :: Proxy UntagResource)++responseCreateBGPPeer :: CreateBGPPeerResponse -> TestTree+responseCreateBGPPeer = res+    "CreateBGPPeerResponse"+    "fixture/CreateBGPPeerResponse.proto"+    directConnect+    (Proxy :: Proxy CreateBGPPeer)+ responseCreateInterconnect :: Interconnect -> TestTree responseCreateInterconnect = res     "CreateInterconnectResponse"     "fixture/CreateInterconnectResponse.proto"     directConnect     (Proxy :: Proxy CreateInterconnect)++responseDeleteBGPPeer :: DeleteBGPPeerResponse -> TestTree+responseDeleteBGPPeer = res+    "DeleteBGPPeerResponse"+    "fixture/DeleteBGPPeerResponse.proto"+    directConnect+    (Proxy :: Proxy DeleteBGPPeer)  responseDescribeConnectionLoa :: DescribeConnectionLoaResponse -> TestTree responseDescribeConnectionLoa = res