amazonka-directconnect 1.5.0 → 1.6.0
raw patch · 51 files changed
+588/−584 lines, 51 filesdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-directconnect.cabal +5/−5
- gen/Network/AWS/DirectConnect.hs +1/−1
- gen/Network/AWS/DirectConnect/AllocateHostedConnection.hs +12/−12
- gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs +9/−9
- gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs +9/−9
- gen/Network/AWS/DirectConnect/AssociateConnectionWithLag.hs +4/−4
- gen/Network/AWS/DirectConnect/AssociateHostedConnection.hs +6/−6
- gen/Network/AWS/DirectConnect/AssociateVirtualInterface.hs +6/−6
- gen/Network/AWS/DirectConnect/ConfirmConnection.hs +5/−5
- gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs +13/−13
- gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs +5/−5
- gen/Network/AWS/DirectConnect/CreateBGPPeer.hs +6/−6
- gen/Network/AWS/DirectConnect/CreateConnection.hs +10/−10
- gen/Network/AWS/DirectConnect/CreateDirectConnectGateway.hs +11/−11
- gen/Network/AWS/DirectConnect/CreateDirectConnectGatewayAssociation.hs +11/−11
- gen/Network/AWS/DirectConnect/CreateInterconnect.hs +10/−10
- gen/Network/AWS/DirectConnect/CreateLag.hs +12/−12
- gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs +6/−6
- gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs +6/−6
- gen/Network/AWS/DirectConnect/DeleteBGPPeer.hs +11/−11
- gen/Network/AWS/DirectConnect/DeleteConnection.hs +2/−2
- gen/Network/AWS/DirectConnect/DeleteDirectConnectGateway.hs +8/−8
- gen/Network/AWS/DirectConnect/DeleteDirectConnectGatewayAssociation.hs +11/−11
- gen/Network/AWS/DirectConnect/DeleteInterconnect.hs +5/−5
- gen/Network/AWS/DirectConnect/DeleteLag.hs +2/−2
- gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs +7/−7
- gen/Network/AWS/DirectConnect/DescribeConnections.hs +2/−2
- gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAssociations.hs +17/−17
- gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAttachments.hs +17/−17
- gen/Network/AWS/DirectConnect/DescribeDirectConnectGateways.hs +15/−15
- gen/Network/AWS/DirectConnect/DescribeHostedConnections.hs +2/−2
- gen/Network/AWS/DirectConnect/DescribeInterconnects.hs +5/−5
- gen/Network/AWS/DirectConnect/DescribeLags.hs +5/−5
- gen/Network/AWS/DirectConnect/DescribeLoa.hs +15/−15
- gen/Network/AWS/DirectConnect/DescribeLocations.hs +4/−4
- gen/Network/AWS/DirectConnect/DescribeTags.hs +5/−5
- gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs +4/−4
- gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs +9/−7
- gen/Network/AWS/DirectConnect/DisassociateConnectionFromLag.hs +4/−4
- gen/Network/AWS/DirectConnect/TagResource.hs +4/−4
- gen/Network/AWS/DirectConnect/Types.hs +18/−16
- gen/Network/AWS/DirectConnect/Types/Product.hs +253/−253
- gen/Network/AWS/DirectConnect/Types/Sum.hs +1/−1
- gen/Network/AWS/DirectConnect/UntagResource.hs +4/−4
- gen/Network/AWS/DirectConnect/UpdateLag.hs +5/−5
- gen/Network/AWS/DirectConnect/Waiters.hs +1/−1
- test/Main.hs +1/−1
- test/Test/AWS/DirectConnect.hs +1/−1
- test/Test/AWS/DirectConnect/Internal.hs +1/−1
- test/Test/AWS/Gen/DirectConnect.hs +1/−1
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.5.0`+`1.6.0` ## Description
amazonka-directconnect.cabal view
@@ -1,5 +1,5 @@ name: amazonka-directconnect-version: 1.5.0+version: 1.6.0 synopsis: Amazon Direct Connect SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright: Copyright (c) 2013-2017 Brendan Hay+copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -93,7 +93,7 @@ , Network.AWS.DirectConnect.Types.Sum build-depends:- amazonka-core == 1.5.0.*+ amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-directconnect-test@@ -113,8 +113,8 @@ , Test.AWS.DirectConnect.Internal build-depends:- amazonka-core == 1.5.0.*- , amazonka-test == 1.5.0.*+ amazonka-core == 1.6.0.*+ , amazonka-test == 1.6.0.* , amazonka-directconnect , base , bytestring
gen/Network/AWS/DirectConnect.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.DirectConnect--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/DirectConnect/AllocateHostedConnection.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AllocateHostedConnection--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -96,33 +96,33 @@ -> AllocateHostedConnection allocateHostedConnection pConnectionId_ pOwnerAccount_ pBandwidth_ pConnectionName_ pVlan_ = AllocateHostedConnection'- { _ahcConnectionId = pConnectionId_- , _ahcOwnerAccount = pOwnerAccount_- , _ahcBandwidth = pBandwidth_- , _ahcConnectionName = pConnectionName_- , _ahcVlan = pVlan_- }+ { _ahcConnectionId = pConnectionId_+ , _ahcOwnerAccount = pOwnerAccount_+ , _ahcBandwidth = pBandwidth_+ , _ahcConnectionName = pConnectionName_+ , _ahcVlan = pVlan_+ } -- | The ID of the interconnect or LAG on which the connection will be provisioned. Example: dxcon-456abc78 or dxlag-abc123 Default: None ahcConnectionId :: Lens' AllocateHostedConnection Text-ahcConnectionId = lens _ahcConnectionId (\ s a -> s{_ahcConnectionId = a});+ahcConnectionId = lens _ahcConnectionId (\ s a -> s{_ahcConnectionId = a}) -- | The numeric account ID of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None ahcOwnerAccount :: Lens' AllocateHostedConnection Text-ahcOwnerAccount = lens _ahcOwnerAccount (\ s a -> s{_ahcOwnerAccount = a});+ahcOwnerAccount = lens _ahcOwnerAccount (\ s a -> s{_ahcOwnerAccount = a}) -- | The bandwidth of the connection. Example: @500Mbps@ Default: None Values: 50Mbps, 100Mbps, 200Mbps, 300Mbps, 400Mbps, or 500Mbps ahcBandwidth :: Lens' AllocateHostedConnection Text-ahcBandwidth = lens _ahcBandwidth (\ s a -> s{_ahcBandwidth = a});+ahcBandwidth = lens _ahcBandwidth (\ s a -> s{_ahcBandwidth = a}) -- | The name of the provisioned connection. Example: "@500M Connection to AWS@ " Default: None ahcConnectionName :: Lens' AllocateHostedConnection Text-ahcConnectionName = lens _ahcConnectionName (\ s a -> s{_ahcConnectionName = a});+ahcConnectionName = lens _ahcConnectionName (\ s a -> s{_ahcConnectionName = a}) -- | The dedicated VLAN provisioned to the hosted connection. Example: 101 Default: None ahcVlan :: Lens' AllocateHostedConnection Int-ahcVlan = lens _ahcVlan (\ s a -> s{_ahcVlan = a});+ahcVlan = lens _ahcVlan (\ s a -> s{_ahcVlan = a}) instance AWSRequest AllocateHostedConnection where type Rs AllocateHostedConnection = Connection
gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AllocatePrivateVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -93,24 +93,24 @@ -> AllocatePrivateVirtualInterface allocatePrivateVirtualInterface pConnectionId_ pOwnerAccount_ pNewPrivateVirtualInterfaceAllocation_ = AllocatePrivateVirtualInterface'- { _apviConnectionId = pConnectionId_- , _apviOwnerAccount = pOwnerAccount_- , _apviNewPrivateVirtualInterfaceAllocation =- pNewPrivateVirtualInterfaceAllocation_- }+ { _apviConnectionId = pConnectionId_+ , _apviOwnerAccount = pOwnerAccount_+ , _apviNewPrivateVirtualInterfaceAllocation =+ pNewPrivateVirtualInterfaceAllocation_+ } -- | 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});+apviConnectionId = lens _apviConnectionId (\ s a -> s{_apviConnectionId = a}) -- | 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});+apviOwnerAccount = lens _apviOwnerAccount (\ s a -> s{_apviOwnerAccount = a}) -- | Detailed information for the private virtual interface to be provisioned. Default: None apviNewPrivateVirtualInterfaceAllocation :: Lens' AllocatePrivateVirtualInterface NewPrivateVirtualInterfaceAllocation-apviNewPrivateVirtualInterfaceAllocation = lens _apviNewPrivateVirtualInterfaceAllocation (\ s a -> s{_apviNewPrivateVirtualInterfaceAllocation = a});+apviNewPrivateVirtualInterfaceAllocation = lens _apviNewPrivateVirtualInterfaceAllocation (\ s a -> s{_apviNewPrivateVirtualInterfaceAllocation = a}) instance AWSRequest AllocatePrivateVirtualInterface where
gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AllocatePublicVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -97,24 +97,24 @@ -> AllocatePublicVirtualInterface allocatePublicVirtualInterface pConnectionId_ pOwnerAccount_ pNewPublicVirtualInterfaceAllocation_ = AllocatePublicVirtualInterface'- { _aConnectionId = pConnectionId_- , _aOwnerAccount = pOwnerAccount_- , _aNewPublicVirtualInterfaceAllocation =- pNewPublicVirtualInterfaceAllocation_- }+ { _aConnectionId = pConnectionId_+ , _aOwnerAccount = pOwnerAccount_+ , _aNewPublicVirtualInterfaceAllocation =+ pNewPublicVirtualInterfaceAllocation_+ } -- | 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});+aConnectionId = lens _aConnectionId (\ s a -> s{_aConnectionId = a}) -- | 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});+aOwnerAccount = lens _aOwnerAccount (\ s a -> s{_aOwnerAccount = a}) -- | Detailed information for the public virtual interface to be provisioned. Default: None aNewPublicVirtualInterfaceAllocation :: Lens' AllocatePublicVirtualInterface NewPublicVirtualInterfaceAllocation-aNewPublicVirtualInterfaceAllocation = lens _aNewPublicVirtualInterfaceAllocation (\ s a -> s{_aNewPublicVirtualInterfaceAllocation = a});+aNewPublicVirtualInterfaceAllocation = lens _aNewPublicVirtualInterfaceAllocation (\ s a -> s{_aNewPublicVirtualInterfaceAllocation = a}) instance AWSRequest AllocatePublicVirtualInterface where
gen/Network/AWS/DirectConnect/AssociateConnectionWithLag.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AssociateConnectionWithLag--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -83,16 +83,16 @@ -> AssociateConnectionWithLag associateConnectionWithLag pConnectionId_ pLagId_ = AssociateConnectionWithLag'- {_acwlConnectionId = pConnectionId_, _acwlLagId = pLagId_}+ {_acwlConnectionId = pConnectionId_, _acwlLagId = pLagId_} -- | The ID of the connection. Example: dxcon-abc123 Default: None acwlConnectionId :: Lens' AssociateConnectionWithLag Text-acwlConnectionId = lens _acwlConnectionId (\ s a -> s{_acwlConnectionId = a});+acwlConnectionId = lens _acwlConnectionId (\ s a -> s{_acwlConnectionId = a}) -- | The ID of the LAG with which to associate the connection. Example: dxlag-abc123 Default: None acwlLagId :: Lens' AssociateConnectionWithLag Text-acwlLagId = lens _acwlLagId (\ s a -> s{_acwlLagId = a});+acwlLagId = lens _acwlLagId (\ s a -> s{_acwlLagId = a}) instance AWSRequest AssociateConnectionWithLag where type Rs AssociateConnectionWithLag = Connection
gen/Network/AWS/DirectConnect/AssociateHostedConnection.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AssociateHostedConnection--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -79,18 +79,18 @@ -> AssociateHostedConnection associateHostedConnection pConnectionId_ pParentConnectionId_ = AssociateHostedConnection'- { _assConnectionId = pConnectionId_- , _assParentConnectionId = pParentConnectionId_- }+ { _assConnectionId = pConnectionId_+ , _assParentConnectionId = pParentConnectionId_+ } -- | The ID of the hosted connection. Example: dxcon-abc123 Default: None assConnectionId :: Lens' AssociateHostedConnection Text-assConnectionId = lens _assConnectionId (\ s a -> s{_assConnectionId = a});+assConnectionId = lens _assConnectionId (\ s a -> s{_assConnectionId = a}) -- | The ID of the interconnect or the LAG. Example: dxcon-abc123 or dxlag-abc123 Default: None assParentConnectionId :: Lens' AssociateHostedConnection Text-assParentConnectionId = lens _assParentConnectionId (\ s a -> s{_assParentConnectionId = a});+assParentConnectionId = lens _assParentConnectionId (\ s a -> s{_assParentConnectionId = a}) instance AWSRequest AssociateHostedConnection where type Rs AssociateHostedConnection = Connection
gen/Network/AWS/DirectConnect/AssociateVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.AssociateVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -90,18 +90,18 @@ -> AssociateVirtualInterface associateVirtualInterface pVirtualInterfaceId_ pConnectionId_ = AssociateVirtualInterface'- { _aviVirtualInterfaceId = pVirtualInterfaceId_- , _aviConnectionId = pConnectionId_- }+ { _aviVirtualInterfaceId = pVirtualInterfaceId_+ , _aviConnectionId = pConnectionId_+ } -- | The ID of the virtual interface. Example: dxvif-123dfg56 Default: None aviVirtualInterfaceId :: Lens' AssociateVirtualInterface Text-aviVirtualInterfaceId = lens _aviVirtualInterfaceId (\ s a -> s{_aviVirtualInterfaceId = a});+aviVirtualInterfaceId = lens _aviVirtualInterfaceId (\ s a -> s{_aviVirtualInterfaceId = a}) -- | The ID of the LAG or connection with which to associate the virtual interface. Example: dxlag-abc123 or dxcon-abc123 Default: None aviConnectionId :: Lens' AssociateVirtualInterface Text-aviConnectionId = lens _aviConnectionId (\ s a -> s{_aviConnectionId = a});+aviConnectionId = lens _aviConnectionId (\ s a -> s{_aviConnectionId = a}) instance AWSRequest AssociateVirtualInterface where type Rs AssociateVirtualInterface = VirtualInterface
gen/Network/AWS/DirectConnect/ConfirmConnection.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.ConfirmConnection--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- | Undocumented member. ccConnectionId :: Lens' ConfirmConnection Text-ccConnectionId = lens _ccConnectionId (\ s a -> s{_ccConnectionId = a});+ccConnectionId = lens _ccConnectionId (\ s a -> s{_ccConnectionId = a}) instance AWSRequest ConfirmConnection where type Rs ConfirmConnection = ConfirmConnectionResponse@@ -129,15 +129,15 @@ -> ConfirmConnectionResponse confirmConnectionResponse pResponseStatus_ = ConfirmConnectionResponse'- {_ccrsConnectionState = Nothing, _ccrsResponseStatus = pResponseStatus_}+ {_ccrsConnectionState = Nothing, _ccrsResponseStatus = pResponseStatus_} -- | Undocumented member. ccrsConnectionState :: Lens' ConfirmConnectionResponse (Maybe ConnectionState)-ccrsConnectionState = lens _ccrsConnectionState (\ s a -> s{_ccrsConnectionState = a});+ccrsConnectionState = lens _ccrsConnectionState (\ s a -> s{_ccrsConnectionState = a}) -- | -- | The response status code. ccrsResponseStatus :: Lens' ConfirmConnectionResponse Int-ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});+ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}) instance NFData ConfirmConnectionResponse where
gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -74,23 +74,23 @@ -> ConfirmPrivateVirtualInterface confirmPrivateVirtualInterface pVirtualInterfaceId_ = ConfirmPrivateVirtualInterface'- { _cpviVirtualGatewayId = Nothing- , _cpviDirectConnectGatewayId = Nothing- , _cpviVirtualInterfaceId = pVirtualInterfaceId_- }+ { _cpviVirtualGatewayId = Nothing+ , _cpviDirectConnectGatewayId = Nothing+ , _cpviVirtualInterfaceId = pVirtualInterfaceId_+ } -- | 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 (Maybe Text)-cpviVirtualGatewayId = lens _cpviVirtualGatewayId (\ s a -> s{_cpviVirtualGatewayId = a});+cpviVirtualGatewayId = lens _cpviVirtualGatewayId (\ s a -> s{_cpviVirtualGatewayId = a}) -- | ID of the direct connect gateway that will be attached to the virtual interface. A direct connect gateway can be managed via the AWS Direct Connect console or the 'CreateDirectConnectGateway' action. Default: None cpviDirectConnectGatewayId :: Lens' ConfirmPrivateVirtualInterface (Maybe Text)-cpviDirectConnectGatewayId = lens _cpviDirectConnectGatewayId (\ s a -> s{_cpviDirectConnectGatewayId = a});+cpviDirectConnectGatewayId = lens _cpviDirectConnectGatewayId (\ s a -> s{_cpviDirectConnectGatewayId = a}) -- | Undocumented member. cpviVirtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text-cpviVirtualInterfaceId = lens _cpviVirtualInterfaceId (\ s a -> s{_cpviVirtualInterfaceId = a});+cpviVirtualInterfaceId = lens _cpviVirtualInterfaceId (\ s a -> s{_cpviVirtualInterfaceId = a}) instance AWSRequest ConfirmPrivateVirtualInterface where@@ -159,18 +159,18 @@ -> ConfirmPrivateVirtualInterfaceResponse confirmPrivateVirtualInterfaceResponse pResponseStatus_ = ConfirmPrivateVirtualInterfaceResponse'- { _cpvirsVirtualInterfaceState = Nothing- , _cpvirsResponseStatus = pResponseStatus_- }+ { _cpvirsVirtualInterfaceState = Nothing+ , _cpvirsResponseStatus = pResponseStatus_+ } -- | Undocumented member. cpvirsVirtualInterfaceState :: Lens' ConfirmPrivateVirtualInterfaceResponse (Maybe VirtualInterfaceState)-cpvirsVirtualInterfaceState = lens _cpvirsVirtualInterfaceState (\ s a -> s{_cpvirsVirtualInterfaceState = a});+cpvirsVirtualInterfaceState = lens _cpvirsVirtualInterfaceState (\ s a -> s{_cpvirsVirtualInterfaceState = a}) -- | -- | The response status code. cpvirsResponseStatus :: Lens' ConfirmPrivateVirtualInterfaceResponse Int-cpvirsResponseStatus = lens _cpvirsResponseStatus (\ s a -> s{_cpvirsResponseStatus = a});+cpvirsResponseStatus = lens _cpvirsResponseStatus (\ s a -> s{_cpvirsResponseStatus = a}) instance NFData ConfirmPrivateVirtualInterfaceResponse
gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.ConfirmPublicVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -70,7 +70,7 @@ -- | Undocumented member. cVirtualInterfaceId :: Lens' ConfirmPublicVirtualInterface Text-cVirtualInterfaceId = lens _cVirtualInterfaceId (\ s a -> s{_cVirtualInterfaceId = a});+cVirtualInterfaceId = lens _cVirtualInterfaceId (\ s a -> s{_cVirtualInterfaceId = a}) instance AWSRequest ConfirmPublicVirtualInterface where@@ -135,16 +135,16 @@ -> ConfirmPublicVirtualInterfaceResponse confirmPublicVirtualInterfaceResponse pResponseStatus_ = ConfirmPublicVirtualInterfaceResponse'- {_crsVirtualInterfaceState = Nothing, _crsResponseStatus = pResponseStatus_}+ {_crsVirtualInterfaceState = Nothing, _crsResponseStatus = pResponseStatus_} -- | Undocumented member. crsVirtualInterfaceState :: Lens' ConfirmPublicVirtualInterfaceResponse (Maybe VirtualInterfaceState)-crsVirtualInterfaceState = lens _crsVirtualInterfaceState (\ s a -> s{_crsVirtualInterfaceState = a});+crsVirtualInterfaceState = lens _crsVirtualInterfaceState (\ s a -> s{_crsVirtualInterfaceState = a}) -- | -- | The response status code. crsResponseStatus :: Lens' ConfirmPublicVirtualInterfaceResponse Int-crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}) instance NFData ConfirmPublicVirtualInterfaceResponse where
gen/Network/AWS/DirectConnect/CreateBGPPeer.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateBGPPeer--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -77,11 +77,11 @@ -- | Detailed information for the BGP peer to be created. Default: None cbpNewBGPPeer :: Lens' CreateBGPPeer (Maybe NewBGPPeer)-cbpNewBGPPeer = lens _cbpNewBGPPeer (\ s a -> s{_cbpNewBGPPeer = a});+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});+cbpVirtualInterfaceId = lens _cbpVirtualInterfaceId (\ s a -> s{_cbpVirtualInterfaceId = a}) instance AWSRequest CreateBGPPeer where type Rs CreateBGPPeer = CreateBGPPeerResponse@@ -142,15 +142,15 @@ -> CreateBGPPeerResponse createBGPPeerResponse pResponseStatus_ = CreateBGPPeerResponse'- {_cbprsVirtualInterface = Nothing, _cbprsResponseStatus = pResponseStatus_}+ {_cbprsVirtualInterface = Nothing, _cbprsResponseStatus = pResponseStatus_} -- | Undocumented member. cbprsVirtualInterface :: Lens' CreateBGPPeerResponse (Maybe VirtualInterface)-cbprsVirtualInterface = lens _cbprsVirtualInterface (\ s a -> s{_cbprsVirtualInterface = a});+cbprsVirtualInterface = lens _cbprsVirtualInterface (\ s a -> s{_cbprsVirtualInterface = a}) -- | -- | The response status code. cbprsResponseStatus :: Lens' CreateBGPPeerResponse Int-cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a});+cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a}) instance NFData CreateBGPPeerResponse where
gen/Network/AWS/DirectConnect/CreateConnection.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateConnection--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -94,28 +94,28 @@ -> CreateConnection createConnection pLocation_ pBandwidth_ pConnectionName_ = CreateConnection'- { _ccLagId = Nothing- , _ccLocation = pLocation_- , _ccBandwidth = pBandwidth_- , _ccConnectionName = pConnectionName_- }+ { _ccLagId = Nothing+ , _ccLocation = pLocation_+ , _ccBandwidth = pBandwidth_+ , _ccConnectionName = pConnectionName_+ } -- | Undocumented member. ccLagId :: Lens' CreateConnection (Maybe Text)-ccLagId = lens _ccLagId (\ s a -> s{_ccLagId = a});+ccLagId = lens _ccLagId (\ s a -> s{_ccLagId = a}) -- | Undocumented member. ccLocation :: Lens' CreateConnection Text-ccLocation = lens _ccLocation (\ s a -> s{_ccLocation = a});+ccLocation = lens _ccLocation (\ s a -> s{_ccLocation = a}) -- | Undocumented member. ccBandwidth :: Lens' CreateConnection Text-ccBandwidth = lens _ccBandwidth (\ s a -> s{_ccBandwidth = a});+ccBandwidth = lens _ccBandwidth (\ s a -> s{_ccBandwidth = a}) -- | Undocumented member. ccConnectionName :: Lens' CreateConnection Text-ccConnectionName = lens _ccConnectionName (\ s a -> s{_ccConnectionName = a});+ccConnectionName = lens _ccConnectionName (\ s a -> s{_ccConnectionName = a}) instance AWSRequest CreateConnection where type Rs CreateConnection = Connection
gen/Network/AWS/DirectConnect/CreateDirectConnectGateway.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateDirectConnectGateway--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,18 +68,18 @@ -> CreateDirectConnectGateway createDirectConnectGateway pDirectConnectGatewayName_ = CreateDirectConnectGateway'- { _cdcgAmazonSideASN = Nothing- , _cdcgDirectConnectGatewayName = pDirectConnectGatewayName_- }+ { _cdcgAmazonSideASN = Nothing+ , _cdcgDirectConnectGatewayName = pDirectConnectGatewayName_+ } -- | The autonomous system number (ASN) for Border Gateway Protocol (BGP) to be configured on the Amazon side of the connection. The ASN must be in the private range of 64,512 to 65,534 or 4,200,000,000 to 4,294,967,294 Example: 65200 Default: 64512 cdcgAmazonSideASN :: Lens' CreateDirectConnectGateway (Maybe Integer)-cdcgAmazonSideASN = lens _cdcgAmazonSideASN (\ s a -> s{_cdcgAmazonSideASN = a});+cdcgAmazonSideASN = lens _cdcgAmazonSideASN (\ s a -> s{_cdcgAmazonSideASN = a}) -- | The name of the direct connect gateway. Example: "My direct connect gateway" Default: None cdcgDirectConnectGatewayName :: Lens' CreateDirectConnectGateway Text-cdcgDirectConnectGatewayName = lens _cdcgDirectConnectGatewayName (\ s a -> s{_cdcgDirectConnectGatewayName = a});+cdcgDirectConnectGatewayName = lens _cdcgDirectConnectGatewayName (\ s a -> s{_cdcgDirectConnectGatewayName = a}) instance AWSRequest CreateDirectConnectGateway where type Rs CreateDirectConnectGateway =@@ -144,18 +144,18 @@ -> CreateDirectConnectGatewayResponse createDirectConnectGatewayResponse pResponseStatus_ = CreateDirectConnectGatewayResponse'- { _cdcgrsDirectConnectGateway = Nothing- , _cdcgrsResponseStatus = pResponseStatus_- }+ { _cdcgrsDirectConnectGateway = Nothing+ , _cdcgrsResponseStatus = pResponseStatus_+ } -- | The direct connect gateway to be created. cdcgrsDirectConnectGateway :: Lens' CreateDirectConnectGatewayResponse (Maybe DirectConnectGateway)-cdcgrsDirectConnectGateway = lens _cdcgrsDirectConnectGateway (\ s a -> s{_cdcgrsDirectConnectGateway = a});+cdcgrsDirectConnectGateway = lens _cdcgrsDirectConnectGateway (\ s a -> s{_cdcgrsDirectConnectGateway = a}) -- | -- | The response status code. cdcgrsResponseStatus :: Lens' CreateDirectConnectGatewayResponse Int-cdcgrsResponseStatus = lens _cdcgrsResponseStatus (\ s a -> s{_cdcgrsResponseStatus = a});+cdcgrsResponseStatus = lens _cdcgrsResponseStatus (\ s a -> s{_cdcgrsResponseStatus = a}) instance NFData CreateDirectConnectGatewayResponse where
gen/Network/AWS/DirectConnect/CreateDirectConnectGatewayAssociation.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,18 +69,18 @@ -> CreateDirectConnectGatewayAssociation createDirectConnectGatewayAssociation pDirectConnectGatewayId_ pVirtualGatewayId_ = CreateDirectConnectGatewayAssociation'- { _cdcgaDirectConnectGatewayId = pDirectConnectGatewayId_- , _cdcgaVirtualGatewayId = pVirtualGatewayId_- }+ { _cdcgaDirectConnectGatewayId = pDirectConnectGatewayId_+ , _cdcgaVirtualGatewayId = pVirtualGatewayId_+ } -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None cdcgaDirectConnectGatewayId :: Lens' CreateDirectConnectGatewayAssociation Text-cdcgaDirectConnectGatewayId = lens _cdcgaDirectConnectGatewayId (\ s a -> s{_cdcgaDirectConnectGatewayId = a});+cdcgaDirectConnectGatewayId = lens _cdcgaDirectConnectGatewayId (\ s a -> s{_cdcgaDirectConnectGatewayId = a}) -- | The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None cdcgaVirtualGatewayId :: Lens' CreateDirectConnectGatewayAssociation Text-cdcgaVirtualGatewayId = lens _cdcgaVirtualGatewayId (\ s a -> s{_cdcgaVirtualGatewayId = a});+cdcgaVirtualGatewayId = lens _cdcgaVirtualGatewayId (\ s a -> s{_cdcgaVirtualGatewayId = a}) instance AWSRequest CreateDirectConnectGatewayAssociation@@ -156,18 +156,18 @@ -> CreateDirectConnectGatewayAssociationResponse createDirectConnectGatewayAssociationResponse pResponseStatus_ = CreateDirectConnectGatewayAssociationResponse'- { _cdcgarsDirectConnectGatewayAssociation = Nothing- , _cdcgarsResponseStatus = pResponseStatus_- }+ { _cdcgarsDirectConnectGatewayAssociation = Nothing+ , _cdcgarsResponseStatus = pResponseStatus_+ } -- | The direct connect gateway association to be created. cdcgarsDirectConnectGatewayAssociation :: Lens' CreateDirectConnectGatewayAssociationResponse (Maybe DirectConnectGatewayAssociation)-cdcgarsDirectConnectGatewayAssociation = lens _cdcgarsDirectConnectGatewayAssociation (\ s a -> s{_cdcgarsDirectConnectGatewayAssociation = a});+cdcgarsDirectConnectGatewayAssociation = lens _cdcgarsDirectConnectGatewayAssociation (\ s a -> s{_cdcgarsDirectConnectGatewayAssociation = a}) -- | -- | The response status code. cdcgarsResponseStatus :: Lens' CreateDirectConnectGatewayAssociationResponse Int-cdcgarsResponseStatus = lens _cdcgarsResponseStatus (\ s a -> s{_cdcgarsResponseStatus = a});+cdcgarsResponseStatus = lens _cdcgarsResponseStatus (\ s a -> s{_cdcgarsResponseStatus = a}) instance NFData CreateDirectConnectGatewayAssociationResponse
gen/Network/AWS/DirectConnect/CreateInterconnect.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateInterconnect--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -91,28 +91,28 @@ -> CreateInterconnect createInterconnect pInterconnectName_ pBandwidth_ pLocation_ = CreateInterconnect'- { _ciLagId = Nothing- , _ciInterconnectName = pInterconnectName_- , _ciBandwidth = pBandwidth_- , _ciLocation = pLocation_- }+ { _ciLagId = Nothing+ , _ciInterconnectName = pInterconnectName_+ , _ciBandwidth = pBandwidth_+ , _ciLocation = pLocation_+ } -- | Undocumented member. ciLagId :: Lens' CreateInterconnect (Maybe Text)-ciLagId = lens _ciLagId (\ s a -> s{_ciLagId = a});+ciLagId = lens _ciLagId (\ s a -> s{_ciLagId = a}) -- | The name of the interconnect. Example: "/1G Interconnect to AWS/ " Default: None ciInterconnectName :: Lens' CreateInterconnect Text-ciInterconnectName = lens _ciInterconnectName (\ s a -> s{_ciInterconnectName = a});+ciInterconnectName = lens _ciInterconnectName (\ s a -> s{_ciInterconnectName = a}) -- | The port bandwidth Example: 1Gbps Default: None Available values: 1Gbps,10Gbps ciBandwidth :: Lens' CreateInterconnect Text-ciBandwidth = lens _ciBandwidth (\ s a -> s{_ciBandwidth = a});+ciBandwidth = lens _ciBandwidth (\ s a -> s{_ciBandwidth = a}) -- | Where the interconnect is located Example: EqSV5 Default: None ciLocation :: Lens' CreateInterconnect Text-ciLocation = lens _ciLocation (\ s a -> s{_ciLocation = a});+ciLocation = lens _ciLocation (\ s a -> s{_ciLocation = a}) instance AWSRequest CreateInterconnect where type Rs CreateInterconnect = Interconnect
gen/Network/AWS/DirectConnect/CreateLag.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreateLag--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -101,33 +101,33 @@ -> CreateLag createLag pNumberOfConnections_ pLocation_ pConnectionsBandwidth_ pLagName_ = CreateLag'- { _clConnectionId = Nothing- , _clNumberOfConnections = pNumberOfConnections_- , _clLocation = pLocation_- , _clConnectionsBandwidth = pConnectionsBandwidth_- , _clLagName = pLagName_- }+ { _clConnectionId = Nothing+ , _clNumberOfConnections = pNumberOfConnections_+ , _clLocation = pLocation_+ , _clConnectionsBandwidth = pConnectionsBandwidth_+ , _clLagName = pLagName_+ } -- | The ID of an existing connection to migrate to the LAG. Default: None clConnectionId :: Lens' CreateLag (Maybe Text)-clConnectionId = lens _clConnectionId (\ s a -> s{_clConnectionId = a});+clConnectionId = lens _clConnectionId (\ s a -> s{_clConnectionId = a}) -- | The number of physical connections initially provisioned and bundled by the LAG. Default: None clNumberOfConnections :: Lens' CreateLag Int-clNumberOfConnections = lens _clNumberOfConnections (\ s a -> s{_clNumberOfConnections = a});+clNumberOfConnections = lens _clNumberOfConnections (\ s a -> s{_clNumberOfConnections = a}) -- | The AWS Direct Connect location in which the LAG should be allocated. Example: EqSV5 Default: None clLocation :: Lens' CreateLag Text-clLocation = lens _clLocation (\ s a -> s{_clLocation = a});+clLocation = lens _clLocation (\ s a -> s{_clLocation = a}) -- | The bandwidth of the individual physical connections bundled by the LAG. Default: None Available values: 1Gbps, 10Gbps clConnectionsBandwidth :: Lens' CreateLag Text-clConnectionsBandwidth = lens _clConnectionsBandwidth (\ s a -> s{_clConnectionsBandwidth = a});+clConnectionsBandwidth = lens _clConnectionsBandwidth (\ s a -> s{_clConnectionsBandwidth = a}) -- | The name of the LAG. Example: "@3x10G LAG to AWS@ " Default: None clLagName :: Lens' CreateLag Text-clLagName = lens _clLagName (\ s a -> s{_clLagName = a});+clLagName = lens _clLagName (\ s a -> s{_clLagName = a}) instance AWSRequest CreateLag where type Rs CreateLag = Lag
gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreatePrivateVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -86,18 +86,18 @@ -> CreatePrivateVirtualInterface createPrivateVirtualInterface pConnectionId_ pNewPrivateVirtualInterface_ = CreatePrivateVirtualInterface'- { _creConnectionId = pConnectionId_- , _creNewPrivateVirtualInterface = pNewPrivateVirtualInterface_- }+ { _creConnectionId = pConnectionId_+ , _creNewPrivateVirtualInterface = pNewPrivateVirtualInterface_+ } -- | Undocumented member. creConnectionId :: Lens' CreatePrivateVirtualInterface Text-creConnectionId = lens _creConnectionId (\ s a -> s{_creConnectionId = a});+creConnectionId = lens _creConnectionId (\ s a -> s{_creConnectionId = a}) -- | Detailed information for the private virtual interface to be created. Default: None creNewPrivateVirtualInterface :: Lens' CreatePrivateVirtualInterface NewPrivateVirtualInterface-creNewPrivateVirtualInterface = lens _creNewPrivateVirtualInterface (\ s a -> s{_creNewPrivateVirtualInterface = a});+creNewPrivateVirtualInterface = lens _creNewPrivateVirtualInterface (\ s a -> s{_creNewPrivateVirtualInterface = a}) instance AWSRequest CreatePrivateVirtualInterface where
gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.CreatePublicVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -88,18 +88,18 @@ -> CreatePublicVirtualInterface createPublicVirtualInterface pConnectionId_ pNewPublicVirtualInterface_ = CreatePublicVirtualInterface'- { _cpviConnectionId = pConnectionId_- , _cpviNewPublicVirtualInterface = pNewPublicVirtualInterface_- }+ { _cpviConnectionId = pConnectionId_+ , _cpviNewPublicVirtualInterface = pNewPublicVirtualInterface_+ } -- | Undocumented member. cpviConnectionId :: Lens' CreatePublicVirtualInterface Text-cpviConnectionId = lens _cpviConnectionId (\ s a -> s{_cpviConnectionId = a});+cpviConnectionId = lens _cpviConnectionId (\ s a -> s{_cpviConnectionId = a}) -- | Detailed information for the public virtual interface to be created. Default: None cpviNewPublicVirtualInterface :: Lens' CreatePublicVirtualInterface NewPublicVirtualInterface-cpviNewPublicVirtualInterface = lens _cpviNewPublicVirtualInterface (\ s a -> s{_cpviNewPublicVirtualInterface = a});+cpviNewPublicVirtualInterface = lens _cpviNewPublicVirtualInterface (\ s a -> s{_cpviNewPublicVirtualInterface = a}) instance AWSRequest CreatePublicVirtualInterface where
gen/Network/AWS/DirectConnect/DeleteBGPPeer.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteBGPPeer--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,23 +71,23 @@ :: DeleteBGPPeer deleteBGPPeer = DeleteBGPPeer'- { _dbpCustomerAddress = Nothing- , _dbpAsn = Nothing- , _dbpVirtualInterfaceId = Nothing- }+ { _dbpCustomerAddress = Nothing+ , _dbpAsn = Nothing+ , _dbpVirtualInterfaceId = Nothing+ } -- | Undocumented member. dbpCustomerAddress :: Lens' DeleteBGPPeer (Maybe Text)-dbpCustomerAddress = lens _dbpCustomerAddress (\ s a -> s{_dbpCustomerAddress = a});+dbpCustomerAddress = lens _dbpCustomerAddress (\ s a -> s{_dbpCustomerAddress = a}) -- | Undocumented member. dbpAsn :: Lens' DeleteBGPPeer (Maybe Int)-dbpAsn = lens _dbpAsn (\ s a -> s{_dbpAsn = a});+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});+dbpVirtualInterfaceId = lens _dbpVirtualInterfaceId (\ s a -> s{_dbpVirtualInterfaceId = a}) instance AWSRequest DeleteBGPPeer where type Rs DeleteBGPPeer = DeleteBGPPeerResponse@@ -149,15 +149,15 @@ -> DeleteBGPPeerResponse deleteBGPPeerResponse pResponseStatus_ = DeleteBGPPeerResponse'- {_dbprsVirtualInterface = Nothing, _dbprsResponseStatus = pResponseStatus_}+ {_dbprsVirtualInterface = Nothing, _dbprsResponseStatus = pResponseStatus_} -- | Undocumented member. dbprsVirtualInterface :: Lens' DeleteBGPPeerResponse (Maybe VirtualInterface)-dbprsVirtualInterface = lens _dbprsVirtualInterface (\ s a -> s{_dbprsVirtualInterface = a});+dbprsVirtualInterface = lens _dbprsVirtualInterface (\ s a -> s{_dbprsVirtualInterface = a}) -- | -- | The response status code. dbprsResponseStatus :: Lens' DeleteBGPPeerResponse Int-dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a});+dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a}) instance NFData DeleteBGPPeerResponse where
gen/Network/AWS/DirectConnect/DeleteConnection.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteConnection--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -80,7 +80,7 @@ -- | Undocumented member. dcConnectionId :: Lens' DeleteConnection Text-dcConnectionId = lens _dcConnectionId (\ s a -> s{_dcConnectionId = a});+dcConnectionId = lens _dcConnectionId (\ s a -> s{_dcConnectionId = a}) instance AWSRequest DeleteConnection where type Rs DeleteConnection = Connection
gen/Network/AWS/DirectConnect/DeleteDirectConnectGateway.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteDirectConnectGateway--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -64,12 +64,12 @@ -> DeleteDirectConnectGateway deleteDirectConnectGateway pDirectConnectGatewayId_ = DeleteDirectConnectGateway'- {_ddcgdDirectConnectGatewayId = pDirectConnectGatewayId_}+ {_ddcgdDirectConnectGatewayId = pDirectConnectGatewayId_} -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None ddcgdDirectConnectGatewayId :: Lens' DeleteDirectConnectGateway Text-ddcgdDirectConnectGatewayId = lens _ddcgdDirectConnectGatewayId (\ s a -> s{_ddcgdDirectConnectGatewayId = a});+ddcgdDirectConnectGatewayId = lens _ddcgdDirectConnectGatewayId (\ s a -> s{_ddcgdDirectConnectGatewayId = a}) instance AWSRequest DeleteDirectConnectGateway where type Rs DeleteDirectConnectGateway =@@ -133,18 +133,18 @@ -> DeleteDirectConnectGatewayResponse deleteDirectConnectGatewayResponse pResponseStatus_ = DeleteDirectConnectGatewayResponse'- { _ddcgdrsDirectConnectGateway = Nothing- , _ddcgdrsResponseStatus = pResponseStatus_- }+ { _ddcgdrsDirectConnectGateway = Nothing+ , _ddcgdrsResponseStatus = pResponseStatus_+ } -- | The direct connect gateway to be deleted. ddcgdrsDirectConnectGateway :: Lens' DeleteDirectConnectGatewayResponse (Maybe DirectConnectGateway)-ddcgdrsDirectConnectGateway = lens _ddcgdrsDirectConnectGateway (\ s a -> s{_ddcgdrsDirectConnectGateway = a});+ddcgdrsDirectConnectGateway = lens _ddcgdrsDirectConnectGateway (\ s a -> s{_ddcgdrsDirectConnectGateway = a}) -- | -- | The response status code. ddcgdrsResponseStatus :: Lens' DeleteDirectConnectGatewayResponse Int-ddcgdrsResponseStatus = lens _ddcgdrsResponseStatus (\ s a -> s{_ddcgdrsResponseStatus = a});+ddcgdrsResponseStatus = lens _ddcgdrsResponseStatus (\ s a -> s{_ddcgdrsResponseStatus = a}) instance NFData DeleteDirectConnectGatewayResponse where
gen/Network/AWS/DirectConnect/DeleteDirectConnectGatewayAssociation.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,18 +69,18 @@ -> DeleteDirectConnectGatewayAssociation deleteDirectConnectGatewayAssociation pDirectConnectGatewayId_ pVirtualGatewayId_ = DeleteDirectConnectGatewayAssociation'- { _delDirectConnectGatewayId = pDirectConnectGatewayId_- , _delVirtualGatewayId = pVirtualGatewayId_- }+ { _delDirectConnectGatewayId = pDirectConnectGatewayId_+ , _delVirtualGatewayId = pVirtualGatewayId_+ } -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None delDirectConnectGatewayId :: Lens' DeleteDirectConnectGatewayAssociation Text-delDirectConnectGatewayId = lens _delDirectConnectGatewayId (\ s a -> s{_delDirectConnectGatewayId = a});+delDirectConnectGatewayId = lens _delDirectConnectGatewayId (\ s a -> s{_delDirectConnectGatewayId = a}) -- | The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None delVirtualGatewayId :: Lens' DeleteDirectConnectGatewayAssociation Text-delVirtualGatewayId = lens _delVirtualGatewayId (\ s a -> s{_delVirtualGatewayId = a});+delVirtualGatewayId = lens _delVirtualGatewayId (\ s a -> s{_delVirtualGatewayId = a}) instance AWSRequest DeleteDirectConnectGatewayAssociation@@ -156,18 +156,18 @@ -> DeleteDirectConnectGatewayAssociationResponse deleteDirectConnectGatewayAssociationResponse pResponseStatus_ = DeleteDirectConnectGatewayAssociationResponse'- { _delrsDirectConnectGatewayAssociation = Nothing- , _delrsResponseStatus = pResponseStatus_- }+ { _delrsDirectConnectGatewayAssociation = Nothing+ , _delrsResponseStatus = pResponseStatus_+ } -- | The direct connect gateway association to be deleted. delrsDirectConnectGatewayAssociation :: Lens' DeleteDirectConnectGatewayAssociationResponse (Maybe DirectConnectGatewayAssociation)-delrsDirectConnectGatewayAssociation = lens _delrsDirectConnectGatewayAssociation (\ s a -> s{_delrsDirectConnectGatewayAssociation = a});+delrsDirectConnectGatewayAssociation = lens _delrsDirectConnectGatewayAssociation (\ s a -> s{_delrsDirectConnectGatewayAssociation = a}) -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteDirectConnectGatewayAssociationResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}) instance NFData DeleteDirectConnectGatewayAssociationResponse
gen/Network/AWS/DirectConnect/DeleteInterconnect.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteInterconnect--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | Undocumented member. dInterconnectId :: Lens' DeleteInterconnect Text-dInterconnectId = lens _dInterconnectId (\ s a -> s{_dInterconnectId = a});+dInterconnectId = lens _dInterconnectId (\ s a -> s{_dInterconnectId = a}) instance AWSRequest DeleteInterconnect where type Rs DeleteInterconnect =@@ -128,15 +128,15 @@ -> DeleteInterconnectResponse deleteInterconnectResponse pResponseStatus_ = DeleteInterconnectResponse'- {_drsInterconnectState = Nothing, _drsResponseStatus = pResponseStatus_}+ {_drsInterconnectState = Nothing, _drsResponseStatus = pResponseStatus_} -- | Undocumented member. drsInterconnectState :: Lens' DeleteInterconnectResponse (Maybe InterconnectState)-drsInterconnectState = lens _drsInterconnectState (\ s a -> s{_drsInterconnectState = a});+drsInterconnectState = lens _drsInterconnectState (\ s a -> s{_drsInterconnectState = a}) -- | -- | The response status code. drsResponseStatus :: Lens' DeleteInterconnectResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}) instance NFData DeleteInterconnectResponse where
gen/Network/AWS/DirectConnect/DeleteLag.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteLag--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -77,7 +77,7 @@ -- | The ID of the LAG to delete. Example: dxlag-abc123 Default: None dLagId :: Lens' DeleteLag Text-dLagId = lens _dLagId (\ s a -> s{_dLagId = a});+dLagId = lens _dLagId (\ s a -> s{_dLagId = a}) instance AWSRequest DeleteLag where type Rs DeleteLag = Lag
gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DeleteVirtualInterface--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | Undocumented member. delVirtualInterfaceId :: Lens' DeleteVirtualInterface Text-delVirtualInterfaceId = lens _delVirtualInterfaceId (\ s a -> s{_delVirtualInterfaceId = a});+delVirtualInterfaceId = lens _delVirtualInterfaceId (\ s a -> s{_delVirtualInterfaceId = a}) instance AWSRequest DeleteVirtualInterface where type Rs DeleteVirtualInterface =@@ -131,17 +131,17 @@ -> DeleteVirtualInterfaceResponse deleteVirtualInterfaceResponse pResponseStatus_ = DeleteVirtualInterfaceResponse'- { _dvirsVirtualInterfaceState = Nothing- , _dvirsResponseStatus = pResponseStatus_- }+ { _dvirsVirtualInterfaceState = Nothing+ , _dvirsResponseStatus = pResponseStatus_+ } -- | Undocumented member. dvirsVirtualInterfaceState :: Lens' DeleteVirtualInterfaceResponse (Maybe VirtualInterfaceState)-dvirsVirtualInterfaceState = lens _dvirsVirtualInterfaceState (\ s a -> s{_dvirsVirtualInterfaceState = a});+dvirsVirtualInterfaceState = lens _dvirsVirtualInterfaceState (\ s a -> s{_dvirsVirtualInterfaceState = a}) -- | -- | The response status code. dvirsResponseStatus :: Lens' DeleteVirtualInterfaceResponse Int-dvirsResponseStatus = lens _dvirsResponseStatus (\ s a -> s{_dvirsResponseStatus = a});+dvirsResponseStatus = lens _dvirsResponseStatus (\ s a -> s{_dvirsResponseStatus = a}) instance NFData DeleteVirtualInterfaceResponse where
gen/Network/AWS/DirectConnect/DescribeConnections.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeConnections--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | Undocumented member. dConnectionId :: Lens' DescribeConnections (Maybe Text)-dConnectionId = lens _dConnectionId (\ s a -> s{_dConnectionId = a});+dConnectionId = lens _dConnectionId (\ s a -> s{_dConnectionId = a}) instance AWSRequest DescribeConnections where type Rs DescribeConnections = Connections
gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAssociations.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -76,28 +76,28 @@ :: DescribeDirectConnectGatewayAssociations describeDirectConnectGatewayAssociations = DescribeDirectConnectGatewayAssociations'- { _ddcgaVirtualGatewayId = Nothing- , _ddcgaDirectConnectGatewayId = Nothing- , _ddcgaNextToken = Nothing- , _ddcgaMaxResults = Nothing- }+ { _ddcgaVirtualGatewayId = Nothing+ , _ddcgaDirectConnectGatewayId = Nothing+ , _ddcgaNextToken = Nothing+ , _ddcgaMaxResults = Nothing+ } -- | The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None ddcgaVirtualGatewayId :: Lens' DescribeDirectConnectGatewayAssociations (Maybe Text)-ddcgaVirtualGatewayId = lens _ddcgaVirtualGatewayId (\ s a -> s{_ddcgaVirtualGatewayId = a});+ddcgaVirtualGatewayId = lens _ddcgaVirtualGatewayId (\ s a -> s{_ddcgaVirtualGatewayId = a}) -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None ddcgaDirectConnectGatewayId :: Lens' DescribeDirectConnectGatewayAssociations (Maybe Text)-ddcgaDirectConnectGatewayId = lens _ddcgaDirectConnectGatewayId (\ s a -> s{_ddcgaDirectConnectGatewayId = a});+ddcgaDirectConnectGatewayId = lens _ddcgaDirectConnectGatewayId (\ s a -> s{_ddcgaDirectConnectGatewayId = a}) -- | The token provided in the previous describe result to retrieve the next page of the result. Default: None ddcgaNextToken :: Lens' DescribeDirectConnectGatewayAssociations (Maybe Text)-ddcgaNextToken = lens _ddcgaNextToken (\ s a -> s{_ddcgaNextToken = a});+ddcgaNextToken = lens _ddcgaNextToken (\ s a -> s{_ddcgaNextToken = a}) -- | The maximum number of direct connect gateway associations to return per page. Example: 15 Default: None ddcgaMaxResults :: Lens' DescribeDirectConnectGatewayAssociations (Maybe Int)-ddcgaMaxResults = lens _ddcgaMaxResults (\ s a -> s{_ddcgaMaxResults = a});+ddcgaMaxResults = lens _ddcgaMaxResults (\ s a -> s{_ddcgaMaxResults = a}) instance AWSRequest DescribeDirectConnectGatewayAssociations@@ -181,23 +181,23 @@ -> DescribeDirectConnectGatewayAssociationsResponse describeDirectConnectGatewayAssociationsResponse pResponseStatus_ = DescribeDirectConnectGatewayAssociationsResponse'- { _ddcgarsNextToken = Nothing- , _ddcgarsDirectConnectGatewayAssociations = Nothing- , _ddcgarsResponseStatus = pResponseStatus_- }+ { _ddcgarsNextToken = Nothing+ , _ddcgarsDirectConnectGatewayAssociations = Nothing+ , _ddcgarsResponseStatus = pResponseStatus_+ } -- | Undocumented member. ddcgarsNextToken :: Lens' DescribeDirectConnectGatewayAssociationsResponse (Maybe Text)-ddcgarsNextToken = lens _ddcgarsNextToken (\ s a -> s{_ddcgarsNextToken = a});+ddcgarsNextToken = lens _ddcgarsNextToken (\ s a -> s{_ddcgarsNextToken = a}) -- | Information about the direct connect gateway associations. ddcgarsDirectConnectGatewayAssociations :: Lens' DescribeDirectConnectGatewayAssociationsResponse [DirectConnectGatewayAssociation]-ddcgarsDirectConnectGatewayAssociations = lens _ddcgarsDirectConnectGatewayAssociations (\ s a -> s{_ddcgarsDirectConnectGatewayAssociations = a}) . _Default . _Coerce;+ddcgarsDirectConnectGatewayAssociations = lens _ddcgarsDirectConnectGatewayAssociations (\ s a -> s{_ddcgarsDirectConnectGatewayAssociations = a}) . _Default . _Coerce -- | -- | The response status code. ddcgarsResponseStatus :: Lens' DescribeDirectConnectGatewayAssociationsResponse Int-ddcgarsResponseStatus = lens _ddcgarsResponseStatus (\ s a -> s{_ddcgarsResponseStatus = a});+ddcgarsResponseStatus = lens _ddcgarsResponseStatus (\ s a -> s{_ddcgarsResponseStatus = a}) instance NFData DescribeDirectConnectGatewayAssociationsResponse
gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAttachments.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -76,28 +76,28 @@ :: DescribeDirectConnectGatewayAttachments describeDirectConnectGatewayAttachments = DescribeDirectConnectGatewayAttachments'- { _ddcgasDirectConnectGatewayId = Nothing- , _ddcgasNextToken = Nothing- , _ddcgasMaxResults = Nothing- , _ddcgasVirtualInterfaceId = Nothing- }+ { _ddcgasDirectConnectGatewayId = Nothing+ , _ddcgasNextToken = Nothing+ , _ddcgasMaxResults = Nothing+ , _ddcgasVirtualInterfaceId = Nothing+ } -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None ddcgasDirectConnectGatewayId :: Lens' DescribeDirectConnectGatewayAttachments (Maybe Text)-ddcgasDirectConnectGatewayId = lens _ddcgasDirectConnectGatewayId (\ s a -> s{_ddcgasDirectConnectGatewayId = a});+ddcgasDirectConnectGatewayId = lens _ddcgasDirectConnectGatewayId (\ s a -> s{_ddcgasDirectConnectGatewayId = a}) -- | The token provided in the previous describe result to retrieve the next page of the result. Default: None ddcgasNextToken :: Lens' DescribeDirectConnectGatewayAttachments (Maybe Text)-ddcgasNextToken = lens _ddcgasNextToken (\ s a -> s{_ddcgasNextToken = a});+ddcgasNextToken = lens _ddcgasNextToken (\ s a -> s{_ddcgasNextToken = a}) -- | The maximum number of direct connect gateway attachments to return per page. Example: 15 Default: None ddcgasMaxResults :: Lens' DescribeDirectConnectGatewayAttachments (Maybe Int)-ddcgasMaxResults = lens _ddcgasMaxResults (\ s a -> s{_ddcgasMaxResults = a});+ddcgasMaxResults = lens _ddcgasMaxResults (\ s a -> s{_ddcgasMaxResults = a}) -- | The ID of the virtual interface. Example: "dxvif-abc123ef" Default: None ddcgasVirtualInterfaceId :: Lens' DescribeDirectConnectGatewayAttachments (Maybe Text)-ddcgasVirtualInterfaceId = lens _ddcgasVirtualInterfaceId (\ s a -> s{_ddcgasVirtualInterfaceId = a});+ddcgasVirtualInterfaceId = lens _ddcgasVirtualInterfaceId (\ s a -> s{_ddcgasVirtualInterfaceId = a}) instance AWSRequest DescribeDirectConnectGatewayAttachments@@ -182,23 +182,23 @@ -> DescribeDirectConnectGatewayAttachmentsResponse describeDirectConnectGatewayAttachmentsResponse pResponseStatus_ = DescribeDirectConnectGatewayAttachmentsResponse'- { _ddcgasrsNextToken = Nothing- , _ddcgasrsDirectConnectGatewayAttachments = Nothing- , _ddcgasrsResponseStatus = pResponseStatus_- }+ { _ddcgasrsNextToken = Nothing+ , _ddcgasrsDirectConnectGatewayAttachments = Nothing+ , _ddcgasrsResponseStatus = pResponseStatus_+ } -- | Undocumented member. ddcgasrsNextToken :: Lens' DescribeDirectConnectGatewayAttachmentsResponse (Maybe Text)-ddcgasrsNextToken = lens _ddcgasrsNextToken (\ s a -> s{_ddcgasrsNextToken = a});+ddcgasrsNextToken = lens _ddcgasrsNextToken (\ s a -> s{_ddcgasrsNextToken = a}) -- | Information about the direct connect gateway attachments. ddcgasrsDirectConnectGatewayAttachments :: Lens' DescribeDirectConnectGatewayAttachmentsResponse [DirectConnectGatewayAttachment]-ddcgasrsDirectConnectGatewayAttachments = lens _ddcgasrsDirectConnectGatewayAttachments (\ s a -> s{_ddcgasrsDirectConnectGatewayAttachments = a}) . _Default . _Coerce;+ddcgasrsDirectConnectGatewayAttachments = lens _ddcgasrsDirectConnectGatewayAttachments (\ s a -> s{_ddcgasrsDirectConnectGatewayAttachments = a}) . _Default . _Coerce -- | -- | The response status code. ddcgasrsResponseStatus :: Lens' DescribeDirectConnectGatewayAttachmentsResponse Int-ddcgasrsResponseStatus = lens _ddcgasrsResponseStatus (\ s a -> s{_ddcgasrsResponseStatus = a});+ddcgasrsResponseStatus = lens _ddcgasrsResponseStatus (\ s a -> s{_ddcgasrsResponseStatus = a}) instance NFData DescribeDirectConnectGatewayAttachmentsResponse
gen/Network/AWS/DirectConnect/DescribeDirectConnectGateways.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeDirectConnectGateways--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -72,23 +72,23 @@ :: DescribeDirectConnectGateways describeDirectConnectGateways = DescribeDirectConnectGateways'- { _ddcgDirectConnectGatewayId = Nothing- , _ddcgNextToken = Nothing- , _ddcgMaxResults = Nothing- }+ { _ddcgDirectConnectGatewayId = Nothing+ , _ddcgNextToken = Nothing+ , _ddcgMaxResults = Nothing+ } -- | The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None ddcgDirectConnectGatewayId :: Lens' DescribeDirectConnectGateways (Maybe Text)-ddcgDirectConnectGatewayId = lens _ddcgDirectConnectGatewayId (\ s a -> s{_ddcgDirectConnectGatewayId = a});+ddcgDirectConnectGatewayId = lens _ddcgDirectConnectGatewayId (\ s a -> s{_ddcgDirectConnectGatewayId = a}) -- | The token provided in the previous describe result to retrieve the next page of the result. Default: None ddcgNextToken :: Lens' DescribeDirectConnectGateways (Maybe Text)-ddcgNextToken = lens _ddcgNextToken (\ s a -> s{_ddcgNextToken = a});+ddcgNextToken = lens _ddcgNextToken (\ s a -> s{_ddcgNextToken = a}) -- | The maximum number of direct connect gateways to return per page. Example: 15 Default: None ddcgMaxResults :: Lens' DescribeDirectConnectGateways (Maybe Int)-ddcgMaxResults = lens _ddcgMaxResults (\ s a -> s{_ddcgMaxResults = a});+ddcgMaxResults = lens _ddcgMaxResults (\ s a -> s{_ddcgMaxResults = a}) instance AWSRequest DescribeDirectConnectGateways where@@ -159,23 +159,23 @@ -> DescribeDirectConnectGatewaysResponse describeDirectConnectGatewaysResponse pResponseStatus_ = DescribeDirectConnectGatewaysResponse'- { _ddcgrsDirectConnectGateways = Nothing- , _ddcgrsNextToken = Nothing- , _ddcgrsResponseStatus = pResponseStatus_- }+ { _ddcgrsDirectConnectGateways = Nothing+ , _ddcgrsNextToken = Nothing+ , _ddcgrsResponseStatus = pResponseStatus_+ } -- | Information about the direct connect gateways. ddcgrsDirectConnectGateways :: Lens' DescribeDirectConnectGatewaysResponse [DirectConnectGateway]-ddcgrsDirectConnectGateways = lens _ddcgrsDirectConnectGateways (\ s a -> s{_ddcgrsDirectConnectGateways = a}) . _Default . _Coerce;+ddcgrsDirectConnectGateways = lens _ddcgrsDirectConnectGateways (\ s a -> s{_ddcgrsDirectConnectGateways = a}) . _Default . _Coerce -- | Undocumented member. ddcgrsNextToken :: Lens' DescribeDirectConnectGatewaysResponse (Maybe Text)-ddcgrsNextToken = lens _ddcgrsNextToken (\ s a -> s{_ddcgrsNextToken = a});+ddcgrsNextToken = lens _ddcgrsNextToken (\ s a -> s{_ddcgrsNextToken = a}) -- | -- | The response status code. ddcgrsResponseStatus :: Lens' DescribeDirectConnectGatewaysResponse Int-ddcgrsResponseStatus = lens _ddcgrsResponseStatus (\ s a -> s{_ddcgrsResponseStatus = a});+ddcgrsResponseStatus = lens _ddcgrsResponseStatus (\ s a -> s{_ddcgrsResponseStatus = a}) instance NFData DescribeDirectConnectGatewaysResponse where
gen/Network/AWS/DirectConnect/DescribeHostedConnections.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeHostedConnections--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -67,7 +67,7 @@ -- | The ID of the interconnect or LAG on which the hosted connections are provisioned. Example: dxcon-abc123 or dxlag-abc123 Default: None dhcConnectionId :: Lens' DescribeHostedConnections Text-dhcConnectionId = lens _dhcConnectionId (\ s a -> s{_dhcConnectionId = a});+dhcConnectionId = lens _dhcConnectionId (\ s a -> s{_dhcConnectionId = a}) instance AWSRequest DescribeHostedConnections where type Rs DescribeHostedConnections = Connections
gen/Network/AWS/DirectConnect/DescribeInterconnects.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeInterconnects--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | Undocumented member. diInterconnectId :: Lens' DescribeInterconnects (Maybe Text)-diInterconnectId = lens _diInterconnectId (\ s a -> s{_diInterconnectId = a});+diInterconnectId = lens _diInterconnectId (\ s a -> s{_diInterconnectId = a}) instance AWSRequest DescribeInterconnects where type Rs DescribeInterconnects =@@ -130,15 +130,15 @@ -> DescribeInterconnectsResponse describeInterconnectsResponse pResponseStatus_ = DescribeInterconnectsResponse'- {_dirsInterconnects = Nothing, _dirsResponseStatus = pResponseStatus_}+ {_dirsInterconnects = Nothing, _dirsResponseStatus = pResponseStatus_} -- | A list of interconnects. dirsInterconnects :: Lens' DescribeInterconnectsResponse [Interconnect]-dirsInterconnects = lens _dirsInterconnects (\ s a -> s{_dirsInterconnects = a}) . _Default . _Coerce;+dirsInterconnects = lens _dirsInterconnects (\ s a -> s{_dirsInterconnects = a}) . _Default . _Coerce -- | -- | The response status code. dirsResponseStatus :: Lens' DescribeInterconnectsResponse Int-dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}) instance NFData DescribeInterconnectsResponse where
gen/Network/AWS/DirectConnect/DescribeLags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeLags--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -68,7 +68,7 @@ -- | The ID of the LAG. Example: dxlag-abc123 Default: None dlLagId :: Lens' DescribeLags (Maybe Text)-dlLagId = lens _dlLagId (\ s a -> s{_dlLagId = a});+dlLagId = lens _dlLagId (\ s a -> s{_dlLagId = a}) instance AWSRequest DescribeLags where type Rs DescribeLags = DescribeLagsResponse@@ -125,15 +125,15 @@ -> DescribeLagsResponse describeLagsResponse pResponseStatus_ = DescribeLagsResponse'- {_desrsLags = Nothing, _desrsResponseStatus = pResponseStatus_}+ {_desrsLags = Nothing, _desrsResponseStatus = pResponseStatus_} -- | A list of LAGs. desrsLags :: Lens' DescribeLagsResponse [Lag]-desrsLags = lens _desrsLags (\ s a -> s{_desrsLags = a}) . _Default . _Coerce;+desrsLags = lens _desrsLags (\ s a -> s{_desrsLags = a}) . _Default . _Coerce -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeLagsResponse Int-desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}) instance NFData DescribeLagsResponse where
gen/Network/AWS/DirectConnect/DescribeLoa.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeLoa--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -75,23 +75,23 @@ -> DescribeLoa describeLoa pConnectionId_ = DescribeLoa'- { _dlLoaContentType = Nothing- , _dlProviderName = Nothing- , _dlConnectionId = pConnectionId_- }+ { _dlLoaContentType = Nothing+ , _dlProviderName = Nothing+ , _dlConnectionId = pConnectionId_+ } -- | A standard media type indicating the content type of the LOA-CFA document. Currently, the only supported value is "application/pdf". Default: application/pdf dlLoaContentType :: Lens' DescribeLoa (Maybe LoaContentType)-dlLoaContentType = lens _dlLoaContentType (\ s a -> s{_dlLoaContentType = a});+dlLoaContentType = lens _dlLoaContentType (\ s a -> s{_dlLoaContentType = 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 dlProviderName :: Lens' DescribeLoa (Maybe Text)-dlProviderName = lens _dlProviderName (\ s a -> s{_dlProviderName = a});+dlProviderName = lens _dlProviderName (\ s a -> s{_dlProviderName = a}) -- | The ID of a connection, LAG, or interconnect for which to get the LOA-CFA information. Example: dxcon-abc123 or dxlag-abc123 Default: None dlConnectionId :: Lens' DescribeLoa Text-dlConnectionId = lens _dlConnectionId (\ s a -> s{_dlConnectionId = a});+dlConnectionId = lens _dlConnectionId (\ s a -> s{_dlConnectionId = a}) instance AWSRequest DescribeLoa where type Rs DescribeLoa = DescribeLoaResponse@@ -156,22 +156,22 @@ -> DescribeLoaResponse describeLoaResponse pResponseStatus_ = DescribeLoaResponse'- { _dlrsLoaContent = Nothing- , _dlrsLoaContentType = Nothing- , _dlrsResponseStatus = pResponseStatus_- }+ { _dlrsLoaContent = Nothing+ , _dlrsLoaContentType = Nothing+ , _dlrsResponseStatus = pResponseStatus_+ } -- | 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. dlrsLoaContent :: Lens' DescribeLoaResponse (Maybe ByteString)-dlrsLoaContent = lens _dlrsLoaContent (\ s a -> s{_dlrsLoaContent = a}) . mapping _Base64;+dlrsLoaContent = lens _dlrsLoaContent (\ s a -> s{_dlrsLoaContent = a}) . mapping _Base64 -- | Undocumented member. dlrsLoaContentType :: Lens' DescribeLoaResponse (Maybe LoaContentType)-dlrsLoaContentType = lens _dlrsLoaContentType (\ s a -> s{_dlrsLoaContentType = a});+dlrsLoaContentType = lens _dlrsLoaContentType (\ s a -> s{_dlrsLoaContentType = a}) -- | -- | The response status code. dlrsResponseStatus :: Lens' DescribeLoaResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a}) instance NFData DescribeLoaResponse where
gen/Network/AWS/DirectConnect/DescribeLocations.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeLocations--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -110,15 +110,15 @@ -> DescribeLocationsResponse describeLocationsResponse pResponseStatus_ = DescribeLocationsResponse'- {_dlsrsLocations = Nothing, _dlsrsResponseStatus = pResponseStatus_}+ {_dlsrsLocations = Nothing, _dlsrsResponseStatus = pResponseStatus_} -- | A list of colocation hubs where network providers have equipment. Most regions have multiple locations available. dlsrsLocations :: Lens' DescribeLocationsResponse [Location]-dlsrsLocations = lens _dlsrsLocations (\ s a -> s{_dlsrsLocations = a}) . _Default . _Coerce;+dlsrsLocations = lens _dlsrsLocations (\ s a -> s{_dlsrsLocations = a}) . _Default . _Coerce -- | -- | The response status code. dlsrsResponseStatus :: Lens' DescribeLocationsResponse Int-dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a});+dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a}) instance NFData DescribeLocationsResponse where
gen/Network/AWS/DirectConnect/DescribeTags.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeTags--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -66,7 +66,7 @@ -- | The Amazon Resource Names (ARNs) of the Direct Connect resources. dtResourceARNs :: Lens' DescribeTags [Text]-dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce;+dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce instance AWSRequest DescribeTags where type Rs DescribeTags = DescribeTagsResponse@@ -126,15 +126,15 @@ -> DescribeTagsResponse describeTagsResponse pResponseStatus_ = DescribeTagsResponse'- {_dtrsResourceTags = Nothing, _dtrsResponseStatus = pResponseStatus_}+ {_dtrsResourceTags = Nothing, _dtrsResponseStatus = pResponseStatus_} -- | Information about the tags. dtrsResourceTags :: Lens' DescribeTagsResponse [ResourceTag]-dtrsResourceTags = lens _dtrsResourceTags (\ s a -> s{_dtrsResourceTags = a}) . _Default . _Coerce;+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});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}) instance NFData DescribeTagsResponse where
gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeVirtualGateways--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -114,15 +114,15 @@ -> DescribeVirtualGatewaysResponse describeVirtualGatewaysResponse pResponseStatus_ = DescribeVirtualGatewaysResponse'- {_dvgrsVirtualGateways = Nothing, _dvgrsResponseStatus = pResponseStatus_}+ {_dvgrsVirtualGateways = Nothing, _dvgrsResponseStatus = pResponseStatus_} -- | A list of virtual private gateways. dvgrsVirtualGateways :: Lens' DescribeVirtualGatewaysResponse [VirtualGateway]-dvgrsVirtualGateways = lens _dvgrsVirtualGateways (\ s a -> s{_dvgrsVirtualGateways = a}) . _Default . _Coerce;+dvgrsVirtualGateways = lens _dvgrsVirtualGateways (\ s a -> s{_dvgrsVirtualGateways = a}) . _Default . _Coerce -- | -- | The response status code. dvgrsResponseStatus :: Lens' DescribeVirtualGatewaysResponse Int-dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a});+dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a}) instance NFData DescribeVirtualGatewaysResponse where
gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DescribeVirtualInterfaces--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -69,16 +69,16 @@ :: DescribeVirtualInterfaces describeVirtualInterfaces = DescribeVirtualInterfaces'- {_dviConnectionId = Nothing, _dviVirtualInterfaceId = Nothing}+ {_dviConnectionId = Nothing, _dviVirtualInterfaceId = Nothing} -- | Undocumented member. dviConnectionId :: Lens' DescribeVirtualInterfaces (Maybe Text)-dviConnectionId = lens _dviConnectionId (\ s a -> s{_dviConnectionId = a});+dviConnectionId = lens _dviConnectionId (\ s a -> s{_dviConnectionId = a}) -- | Undocumented member. dviVirtualInterfaceId :: Lens' DescribeVirtualInterfaces (Maybe Text)-dviVirtualInterfaceId = lens _dviVirtualInterfaceId (\ s a -> s{_dviVirtualInterfaceId = a});+dviVirtualInterfaceId = lens _dviVirtualInterfaceId (\ s a -> s{_dviVirtualInterfaceId = a}) instance AWSRequest DescribeVirtualInterfaces where type Rs DescribeVirtualInterfaces =@@ -142,16 +142,18 @@ -> DescribeVirtualInterfacesResponse describeVirtualInterfacesResponse pResponseStatus_ = DescribeVirtualInterfacesResponse'- {_dvisrsVirtualInterfaces = Nothing, _dvisrsResponseStatus = pResponseStatus_}+ { _dvisrsVirtualInterfaces = Nothing+ , _dvisrsResponseStatus = pResponseStatus_+ } -- | A list of virtual interfaces. dvisrsVirtualInterfaces :: Lens' DescribeVirtualInterfacesResponse [VirtualInterface]-dvisrsVirtualInterfaces = lens _dvisrsVirtualInterfaces (\ s a -> s{_dvisrsVirtualInterfaces = a}) . _Default . _Coerce;+dvisrsVirtualInterfaces = lens _dvisrsVirtualInterfaces (\ s a -> s{_dvisrsVirtualInterfaces = a}) . _Default . _Coerce -- | -- | The response status code. dvisrsResponseStatus :: Lens' DescribeVirtualInterfacesResponse Int-dvisrsResponseStatus = lens _dvisrsResponseStatus (\ s a -> s{_dvisrsResponseStatus = a});+dvisrsResponseStatus = lens _dvisrsResponseStatus (\ s a -> s{_dvisrsResponseStatus = a}) instance NFData DescribeVirtualInterfacesResponse where
gen/Network/AWS/DirectConnect/DisassociateConnectionFromLag.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.DisassociateConnectionFromLag--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -81,16 +81,16 @@ -> DisassociateConnectionFromLag disassociateConnectionFromLag pConnectionId_ pLagId_ = DisassociateConnectionFromLag'- {_dcflConnectionId = pConnectionId_, _dcflLagId = pLagId_}+ {_dcflConnectionId = pConnectionId_, _dcflLagId = pLagId_} -- | The ID of the connection to disassociate from the LAG. Example: dxcon-abc123 Default: None dcflConnectionId :: Lens' DisassociateConnectionFromLag Text-dcflConnectionId = lens _dcflConnectionId (\ s a -> s{_dcflConnectionId = a});+dcflConnectionId = lens _dcflConnectionId (\ s a -> s{_dcflConnectionId = a}) -- | The ID of the LAG. Example: dxlag-abc123 Default: None dcflLagId :: Lens' DisassociateConnectionFromLag Text-dcflLagId = lens _dcflLagId (\ s a -> s{_dcflLagId = a});+dcflLagId = lens _dcflLagId (\ s a -> s{_dcflLagId = a}) instance AWSRequest DisassociateConnectionFromLag where
gen/Network/AWS/DirectConnect/TagResource.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.TagResource--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -74,11 +74,11 @@ -- | 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});+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;+trTags = lens _trTags (\ s a -> s{_trTags = a}) . _List1 instance AWSRequest TagResource where type Rs TagResource = TagResourceResponse@@ -138,6 +138,6 @@ -- | -- | The response status code. trrsResponseStatus :: Lens' TagResourceResponse Int-trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a});+trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a}) instance NFData TagResourceResponse where
gen/Network/AWS/DirectConnect/Types.hs view
@@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.DirectConnect.Types--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -265,24 +265,24 @@ directConnect :: Service directConnect = Service- { _svcAbbrev = "DirectConnect"- , _svcSigner = v4- , _svcPrefix = "directconnect"- , _svcVersion = "2012-10-25"- , _svcEndpoint = defaultEndpoint directConnect- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "DirectConnect"- , _svcRetry = retry- }+ { _svcAbbrev = "DirectConnect"+ , _svcSigner = v4+ , _svcPrefix = "directconnect"+ , _svcVersion = "2012-10-25"+ , _svcEndpoint = defaultEndpoint directConnect+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "DirectConnect"+ , _svcRetry = retry+ } where retry = Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception"@@ -291,6 +291,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout"+ | has (hasCode "RequestThrottledException" . hasStatus 400) e =+ Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/DirectConnect/Types/Product.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.DirectConnect.Types.Product--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -58,43 +58,43 @@ :: BGPPeer bgpPeer = BGPPeer'- { _bpCustomerAddress = Nothing- , _bpAmazonAddress = Nothing- , _bpAddressFamily = Nothing- , _bpBgpStatus = Nothing- , _bpAsn = Nothing- , _bpAuthKey = Nothing- , _bpBgpPeerState = Nothing- }+ { _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});+bpCustomerAddress = lens _bpCustomerAddress (\ s a -> s{_bpCustomerAddress = a}) -- | Undocumented member. bpAmazonAddress :: Lens' BGPPeer (Maybe Text)-bpAmazonAddress = lens _bpAmazonAddress (\ s a -> s{_bpAmazonAddress = a});+bpAmazonAddress = lens _bpAmazonAddress (\ s a -> s{_bpAmazonAddress = a}) -- | Undocumented member. bpAddressFamily :: Lens' BGPPeer (Maybe AddressFamily)-bpAddressFamily = lens _bpAddressFamily (\ s a -> s{_bpAddressFamily = a});+bpAddressFamily = lens _bpAddressFamily (\ s a -> s{_bpAddressFamily = a}) -- | Undocumented member. bpBgpStatus :: Lens' BGPPeer (Maybe BGPStatus)-bpBgpStatus = lens _bpBgpStatus (\ s a -> s{_bpBgpStatus = a});+bpBgpStatus = lens _bpBgpStatus (\ s a -> s{_bpBgpStatus = a}) -- | Undocumented member. bpAsn :: Lens' BGPPeer (Maybe Int)-bpAsn = lens _bpAsn (\ s a -> s{_bpAsn = a});+bpAsn = lens _bpAsn (\ s a -> s{_bpAsn = a}) -- | Undocumented member. bpAuthKey :: Lens' BGPPeer (Maybe Text)-bpAuthKey = lens _bpAuthKey (\ s a -> s{_bpAuthKey = a});+bpAuthKey = lens _bpAuthKey (\ s a -> s{_bpAuthKey = a}) -- | Undocumented member. bpBgpPeerState :: Lens' BGPPeer (Maybe BGPPeerState)-bpBgpPeerState = lens _bpBgpPeerState (\ s a -> s{_bpBgpPeerState = a});+bpBgpPeerState = lens _bpBgpPeerState (\ s a -> s{_bpBgpPeerState = a}) instance FromJSON BGPPeer where parseJSON@@ -164,68 +164,68 @@ :: Connection connection = Connection'- { _cLagId = Nothing- , _cVlan = Nothing- , _cLocation = Nothing- , _cAwsDevice = Nothing- , _cConnectionId = Nothing- , _cLoaIssueTime = Nothing- , _cPartnerName = Nothing- , _cConnectionName = Nothing- , _cBandwidth = Nothing- , _cOwnerAccount = Nothing- , _cRegion = Nothing- , _cConnectionState = Nothing- }+ { _cLagId = Nothing+ , _cVlan = Nothing+ , _cLocation = Nothing+ , _cAwsDevice = Nothing+ , _cConnectionId = Nothing+ , _cLoaIssueTime = Nothing+ , _cPartnerName = Nothing+ , _cConnectionName = Nothing+ , _cBandwidth = Nothing+ , _cOwnerAccount = Nothing+ , _cRegion = Nothing+ , _cConnectionState = Nothing+ } -- | Undocumented member. cLagId :: Lens' Connection (Maybe Text)-cLagId = lens _cLagId (\ s a -> s{_cLagId = a});+cLagId = lens _cLagId (\ s a -> s{_cLagId = a}) -- | Undocumented member. cVlan :: Lens' Connection (Maybe Int)-cVlan = lens _cVlan (\ s a -> s{_cVlan = a});+cVlan = lens _cVlan (\ s a -> s{_cVlan = a}) -- | Undocumented member. cLocation :: Lens' Connection (Maybe Text)-cLocation = lens _cLocation (\ s a -> s{_cLocation = a});+cLocation = lens _cLocation (\ s a -> s{_cLocation = a}) -- | The Direct Connection endpoint which the physical connection terminates on. cAwsDevice :: Lens' Connection (Maybe Text)-cAwsDevice = lens _cAwsDevice (\ s a -> s{_cAwsDevice = a});+cAwsDevice = lens _cAwsDevice (\ s a -> s{_cAwsDevice = a}) -- | Undocumented member. cConnectionId :: Lens' Connection (Maybe Text)-cConnectionId = lens _cConnectionId (\ s a -> s{_cConnectionId = a});+cConnectionId = lens _cConnectionId (\ s a -> s{_cConnectionId = a}) -- | The time of the most recent call to 'DescribeLoa' for this connection. cLoaIssueTime :: Lens' Connection (Maybe UTCTime)-cLoaIssueTime = lens _cLoaIssueTime (\ s a -> s{_cLoaIssueTime = a}) . mapping _Time;+cLoaIssueTime = lens _cLoaIssueTime (\ s a -> s{_cLoaIssueTime = a}) . mapping _Time -- | The name of the AWS Direct Connect service provider associated with the connection. cPartnerName :: Lens' Connection (Maybe Text)-cPartnerName = lens _cPartnerName (\ s a -> s{_cPartnerName = a});+cPartnerName = lens _cPartnerName (\ s a -> s{_cPartnerName = a}) -- | Undocumented member. cConnectionName :: Lens' Connection (Maybe Text)-cConnectionName = lens _cConnectionName (\ s a -> s{_cConnectionName = a});+cConnectionName = lens _cConnectionName (\ s a -> s{_cConnectionName = a}) -- | 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});+cBandwidth = lens _cBandwidth (\ s a -> s{_cBandwidth = a}) -- | The AWS account that will own the new connection. cOwnerAccount :: Lens' Connection (Maybe Text)-cOwnerAccount = lens _cOwnerAccount (\ s a -> s{_cOwnerAccount = a});+cOwnerAccount = lens _cOwnerAccount (\ s a -> s{_cOwnerAccount = a}) -- | Undocumented member. cRegion :: Lens' Connection (Maybe Text)-cRegion = lens _cRegion (\ s a -> s{_cRegion = a});+cRegion = lens _cRegion (\ s a -> s{_cRegion = a}) -- | Undocumented member. cConnectionState :: Lens' Connection (Maybe ConnectionState)-cConnectionState = lens _cConnectionState (\ s a -> s{_cConnectionState = a});+cConnectionState = lens _cConnectionState (\ s a -> s{_cConnectionState = a}) instance FromJSON Connection where parseJSON@@ -270,7 +270,7 @@ -- | A list of connections. cConnections :: Lens' Connections [Connection]-cConnections = lens _cConnections (\ s a -> s{_cConnections = a}) . _Default . _Coerce;+cConnections = lens _cConnections (\ s a -> s{_cConnections = a}) . _Default . _Coerce instance FromJSON Connections where parseJSON@@ -316,38 +316,38 @@ :: DirectConnectGateway directConnectGateway = DirectConnectGateway'- { _dcgDirectConnectGatewayId = Nothing- , _dcgStateChangeError = Nothing- , _dcgAmazonSideASN = Nothing- , _dcgDirectConnectGatewayName = Nothing- , _dcgDirectConnectGatewayState = Nothing- , _dcgOwnerAccount = Nothing- }+ { _dcgDirectConnectGatewayId = Nothing+ , _dcgStateChangeError = Nothing+ , _dcgAmazonSideASN = Nothing+ , _dcgDirectConnectGatewayName = Nothing+ , _dcgDirectConnectGatewayState = Nothing+ , _dcgOwnerAccount = Nothing+ } -- | Undocumented member. dcgDirectConnectGatewayId :: Lens' DirectConnectGateway (Maybe Text)-dcgDirectConnectGatewayId = lens _dcgDirectConnectGatewayId (\ s a -> s{_dcgDirectConnectGatewayId = a});+dcgDirectConnectGatewayId = lens _dcgDirectConnectGatewayId (\ s a -> s{_dcgDirectConnectGatewayId = a}) -- | Undocumented member. dcgStateChangeError :: Lens' DirectConnectGateway (Maybe Text)-dcgStateChangeError = lens _dcgStateChangeError (\ s a -> s{_dcgStateChangeError = a});+dcgStateChangeError = lens _dcgStateChangeError (\ s a -> s{_dcgStateChangeError = a}) -- | The autonomous system number (ASN) for the Amazon side of the connection. dcgAmazonSideASN :: Lens' DirectConnectGateway (Maybe Integer)-dcgAmazonSideASN = lens _dcgAmazonSideASN (\ s a -> s{_dcgAmazonSideASN = a});+dcgAmazonSideASN = lens _dcgAmazonSideASN (\ s a -> s{_dcgAmazonSideASN = a}) -- | Undocumented member. dcgDirectConnectGatewayName :: Lens' DirectConnectGateway (Maybe Text)-dcgDirectConnectGatewayName = lens _dcgDirectConnectGatewayName (\ s a -> s{_dcgDirectConnectGatewayName = a});+dcgDirectConnectGatewayName = lens _dcgDirectConnectGatewayName (\ s a -> s{_dcgDirectConnectGatewayName = a}) -- | Undocumented member. dcgDirectConnectGatewayState :: Lens' DirectConnectGateway (Maybe DirectConnectGatewayState)-dcgDirectConnectGatewayState = lens _dcgDirectConnectGatewayState (\ s a -> s{_dcgDirectConnectGatewayState = a});+dcgDirectConnectGatewayState = lens _dcgDirectConnectGatewayState (\ s a -> s{_dcgDirectConnectGatewayState = a}) -- | The AWS account ID of the owner of the direct connect gateway. dcgOwnerAccount :: Lens' DirectConnectGateway (Maybe Text)-dcgOwnerAccount = lens _dcgOwnerAccount (\ s a -> s{_dcgOwnerAccount = a});+dcgOwnerAccount = lens _dcgOwnerAccount (\ s a -> s{_dcgOwnerAccount = a}) instance FromJSON DirectConnectGateway where parseJSON@@ -399,38 +399,38 @@ :: DirectConnectGatewayAssociation directConnectGatewayAssociation = DirectConnectGatewayAssociation'- { _dcgaVirtualGatewayId = Nothing- , _dcgaDirectConnectGatewayId = Nothing- , _dcgaVirtualGatewayOwnerAccount = Nothing- , _dcgaStateChangeError = Nothing- , _dcgaVirtualGatewayRegion = Nothing- , _dcgaAssociationState = Nothing- }+ { _dcgaVirtualGatewayId = Nothing+ , _dcgaDirectConnectGatewayId = Nothing+ , _dcgaVirtualGatewayOwnerAccount = Nothing+ , _dcgaStateChangeError = Nothing+ , _dcgaVirtualGatewayRegion = Nothing+ , _dcgaAssociationState = Nothing+ } -- | Undocumented member. dcgaVirtualGatewayId :: Lens' DirectConnectGatewayAssociation (Maybe Text)-dcgaVirtualGatewayId = lens _dcgaVirtualGatewayId (\ s a -> s{_dcgaVirtualGatewayId = a});+dcgaVirtualGatewayId = lens _dcgaVirtualGatewayId (\ s a -> s{_dcgaVirtualGatewayId = a}) -- | Undocumented member. dcgaDirectConnectGatewayId :: Lens' DirectConnectGatewayAssociation (Maybe Text)-dcgaDirectConnectGatewayId = lens _dcgaDirectConnectGatewayId (\ s a -> s{_dcgaDirectConnectGatewayId = a});+dcgaDirectConnectGatewayId = lens _dcgaDirectConnectGatewayId (\ s a -> s{_dcgaDirectConnectGatewayId = a}) -- | The AWS account ID of the owner of the virtual private gateway. dcgaVirtualGatewayOwnerAccount :: Lens' DirectConnectGatewayAssociation (Maybe Text)-dcgaVirtualGatewayOwnerAccount = lens _dcgaVirtualGatewayOwnerAccount (\ s a -> s{_dcgaVirtualGatewayOwnerAccount = a});+dcgaVirtualGatewayOwnerAccount = lens _dcgaVirtualGatewayOwnerAccount (\ s a -> s{_dcgaVirtualGatewayOwnerAccount = a}) -- | Undocumented member. dcgaStateChangeError :: Lens' DirectConnectGatewayAssociation (Maybe Text)-dcgaStateChangeError = lens _dcgaStateChangeError (\ s a -> s{_dcgaStateChangeError = a});+dcgaStateChangeError = lens _dcgaStateChangeError (\ s a -> s{_dcgaStateChangeError = a}) -- | Undocumented member. dcgaVirtualGatewayRegion :: Lens' DirectConnectGatewayAssociation (Maybe Text)-dcgaVirtualGatewayRegion = lens _dcgaVirtualGatewayRegion (\ s a -> s{_dcgaVirtualGatewayRegion = a});+dcgaVirtualGatewayRegion = lens _dcgaVirtualGatewayRegion (\ s a -> s{_dcgaVirtualGatewayRegion = a}) -- | Undocumented member. dcgaAssociationState :: Lens' DirectConnectGatewayAssociation (Maybe DirectConnectGatewayAssociationState)-dcgaAssociationState = lens _dcgaAssociationState (\ s a -> s{_dcgaAssociationState = a});+dcgaAssociationState = lens _dcgaAssociationState (\ s a -> s{_dcgaAssociationState = a}) instance FromJSON DirectConnectGatewayAssociation where@@ -484,38 +484,38 @@ :: DirectConnectGatewayAttachment directConnectGatewayAttachment = DirectConnectGatewayAttachment'- { _dDirectConnectGatewayId = Nothing- , _dAttachmentState = Nothing- , _dStateChangeError = Nothing- , _dVirtualInterfaceRegion = Nothing- , _dVirtualInterfaceOwnerAccount = Nothing- , _dVirtualInterfaceId = Nothing- }+ { _dDirectConnectGatewayId = Nothing+ , _dAttachmentState = Nothing+ , _dStateChangeError = Nothing+ , _dVirtualInterfaceRegion = Nothing+ , _dVirtualInterfaceOwnerAccount = Nothing+ , _dVirtualInterfaceId = Nothing+ } -- | Undocumented member. dDirectConnectGatewayId :: Lens' DirectConnectGatewayAttachment (Maybe Text)-dDirectConnectGatewayId = lens _dDirectConnectGatewayId (\ s a -> s{_dDirectConnectGatewayId = a});+dDirectConnectGatewayId = lens _dDirectConnectGatewayId (\ s a -> s{_dDirectConnectGatewayId = a}) -- | Undocumented member. dAttachmentState :: Lens' DirectConnectGatewayAttachment (Maybe DirectConnectGatewayAttachmentState)-dAttachmentState = lens _dAttachmentState (\ s a -> s{_dAttachmentState = a});+dAttachmentState = lens _dAttachmentState (\ s a -> s{_dAttachmentState = a}) -- | Undocumented member. dStateChangeError :: Lens' DirectConnectGatewayAttachment (Maybe Text)-dStateChangeError = lens _dStateChangeError (\ s a -> s{_dStateChangeError = a});+dStateChangeError = lens _dStateChangeError (\ s a -> s{_dStateChangeError = a}) -- | Undocumented member. dVirtualInterfaceRegion :: Lens' DirectConnectGatewayAttachment (Maybe Text)-dVirtualInterfaceRegion = lens _dVirtualInterfaceRegion (\ s a -> s{_dVirtualInterfaceRegion = a});+dVirtualInterfaceRegion = lens _dVirtualInterfaceRegion (\ s a -> s{_dVirtualInterfaceRegion = a}) -- | The AWS account ID of the owner of the virtual interface. dVirtualInterfaceOwnerAccount :: Lens' DirectConnectGatewayAttachment (Maybe Text)-dVirtualInterfaceOwnerAccount = lens _dVirtualInterfaceOwnerAccount (\ s a -> s{_dVirtualInterfaceOwnerAccount = a});+dVirtualInterfaceOwnerAccount = lens _dVirtualInterfaceOwnerAccount (\ s a -> s{_dVirtualInterfaceOwnerAccount = a}) -- | Undocumented member. dVirtualInterfaceId :: Lens' DirectConnectGatewayAttachment (Maybe Text)-dVirtualInterfaceId = lens _dVirtualInterfaceId (\ s a -> s{_dVirtualInterfaceId = a});+dVirtualInterfaceId = lens _dVirtualInterfaceId (\ s a -> s{_dVirtualInterfaceId = a}) instance FromJSON DirectConnectGatewayAttachment where@@ -582,53 +582,53 @@ :: Interconnect interconnect = Interconnect'- { _iLagId = Nothing- , _iInterconnectId = Nothing- , _iLocation = Nothing- , _iInterconnectName = Nothing- , _iAwsDevice = Nothing- , _iLoaIssueTime = Nothing- , _iBandwidth = Nothing- , _iInterconnectState = Nothing- , _iRegion = Nothing- }+ { _iLagId = Nothing+ , _iInterconnectId = Nothing+ , _iLocation = Nothing+ , _iInterconnectName = Nothing+ , _iAwsDevice = Nothing+ , _iLoaIssueTime = Nothing+ , _iBandwidth = Nothing+ , _iInterconnectState = Nothing+ , _iRegion = Nothing+ } -- | Undocumented member. iLagId :: Lens' Interconnect (Maybe Text)-iLagId = lens _iLagId (\ s a -> s{_iLagId = a});+iLagId = lens _iLagId (\ s a -> s{_iLagId = a}) -- | Undocumented member. iInterconnectId :: Lens' Interconnect (Maybe Text)-iInterconnectId = lens _iInterconnectId (\ s a -> s{_iInterconnectId = a});+iInterconnectId = lens _iInterconnectId (\ s a -> s{_iInterconnectId = a}) -- | Undocumented member. iLocation :: Lens' Interconnect (Maybe Text)-iLocation = lens _iLocation (\ s a -> s{_iLocation = a});+iLocation = lens _iLocation (\ s a -> s{_iLocation = a}) -- | Undocumented member. iInterconnectName :: Lens' Interconnect (Maybe Text)-iInterconnectName = lens _iInterconnectName (\ s a -> s{_iInterconnectName = a});+iInterconnectName = lens _iInterconnectName (\ s a -> s{_iInterconnectName = a}) -- | The Direct Connection endpoint which the physical connection terminates on. iAwsDevice :: Lens' Interconnect (Maybe Text)-iAwsDevice = lens _iAwsDevice (\ s a -> s{_iAwsDevice = a});+iAwsDevice = lens _iAwsDevice (\ s a -> s{_iAwsDevice = a}) -- | The time of the most recent call to DescribeInterconnectLoa for this Interconnect. iLoaIssueTime :: Lens' Interconnect (Maybe UTCTime)-iLoaIssueTime = lens _iLoaIssueTime (\ s a -> s{_iLoaIssueTime = a}) . mapping _Time;+iLoaIssueTime = lens _iLoaIssueTime (\ s a -> s{_iLoaIssueTime = a}) . mapping _Time -- | Undocumented member. iBandwidth :: Lens' Interconnect (Maybe Text)-iBandwidth = lens _iBandwidth (\ s a -> s{_iBandwidth = a});+iBandwidth = lens _iBandwidth (\ s a -> s{_iBandwidth = a}) -- | Undocumented member. iInterconnectState :: Lens' Interconnect (Maybe InterconnectState)-iInterconnectState = lens _iInterconnectState (\ s a -> s{_iInterconnectState = a});+iInterconnectState = lens _iInterconnectState (\ s a -> s{_iInterconnectState = a}) -- | Undocumented member. iRegion :: Lens' Interconnect (Maybe Text)-iRegion = lens _iRegion (\ s a -> s{_iRegion = a});+iRegion = lens _iRegion (\ s a -> s{_iRegion = a}) instance FromJSON Interconnect where parseJSON@@ -700,68 +700,68 @@ :: Lag lag = Lag'- { _lagLagId = Nothing- , _lagConnectionsBandwidth = Nothing- , _lagMinimumLinks = Nothing- , _lagLagName = Nothing- , _lagLocation = Nothing- , _lagConnections = Nothing- , _lagAwsDevice = Nothing- , _lagAllowsHostedConnections = Nothing- , _lagNumberOfConnections = Nothing- , _lagLagState = Nothing- , _lagOwnerAccount = Nothing- , _lagRegion = Nothing- }+ { _lagLagId = Nothing+ , _lagConnectionsBandwidth = Nothing+ , _lagMinimumLinks = Nothing+ , _lagLagName = Nothing+ , _lagLocation = Nothing+ , _lagConnections = Nothing+ , _lagAwsDevice = Nothing+ , _lagAllowsHostedConnections = Nothing+ , _lagNumberOfConnections = Nothing+ , _lagLagState = Nothing+ , _lagOwnerAccount = Nothing+ , _lagRegion = Nothing+ } -- | Undocumented member. lagLagId :: Lens' Lag (Maybe Text)-lagLagId = lens _lagLagId (\ s a -> s{_lagLagId = a});+lagLagId = lens _lagLagId (\ s a -> s{_lagLagId = a}) -- | The individual bandwidth of the physical connections bundled by the LAG. Available values: 1Gbps, 10Gbps lagConnectionsBandwidth :: Lens' Lag (Maybe Text)-lagConnectionsBandwidth = lens _lagConnectionsBandwidth (\ s a -> s{_lagConnectionsBandwidth = a});+lagConnectionsBandwidth = lens _lagConnectionsBandwidth (\ s a -> s{_lagConnectionsBandwidth = a}) -- | The minimum number of physical connections that must be operational for the LAG itself to be operational. If the number of operational connections drops below this setting, the LAG state changes to @down@ . This value can help to ensure that a LAG is not overutilized if a significant number of its bundled connections go down. lagMinimumLinks :: Lens' Lag (Maybe Int)-lagMinimumLinks = lens _lagMinimumLinks (\ s a -> s{_lagMinimumLinks = a});+lagMinimumLinks = lens _lagMinimumLinks (\ s a -> s{_lagMinimumLinks = a}) -- | The name of the LAG. lagLagName :: Lens' Lag (Maybe Text)-lagLagName = lens _lagLagName (\ s a -> s{_lagLagName = a});+lagLagName = lens _lagLagName (\ s a -> s{_lagLagName = a}) -- | Undocumented member. lagLocation :: Lens' Lag (Maybe Text)-lagLocation = lens _lagLocation (\ s a -> s{_lagLocation = a});+lagLocation = lens _lagLocation (\ s a -> s{_lagLocation = a}) -- | A list of connections bundled by this LAG. lagConnections :: Lens' Lag [Connection]-lagConnections = lens _lagConnections (\ s a -> s{_lagConnections = a}) . _Default . _Coerce;+lagConnections = lens _lagConnections (\ s a -> s{_lagConnections = a}) . _Default . _Coerce -- | The AWS Direct Connection endpoint that hosts the LAG. lagAwsDevice :: Lens' Lag (Maybe Text)-lagAwsDevice = lens _lagAwsDevice (\ s a -> s{_lagAwsDevice = a});+lagAwsDevice = lens _lagAwsDevice (\ s a -> s{_lagAwsDevice = a}) -- | Indicates whether the LAG can host other connections. lagAllowsHostedConnections :: Lens' Lag (Maybe Bool)-lagAllowsHostedConnections = lens _lagAllowsHostedConnections (\ s a -> s{_lagAllowsHostedConnections = a});+lagAllowsHostedConnections = lens _lagAllowsHostedConnections (\ s a -> s{_lagAllowsHostedConnections = a}) -- | The number of physical connections bundled by the LAG, up to a maximum of 10. lagNumberOfConnections :: Lens' Lag (Maybe Int)-lagNumberOfConnections = lens _lagNumberOfConnections (\ s a -> s{_lagNumberOfConnections = a});+lagNumberOfConnections = lens _lagNumberOfConnections (\ s a -> s{_lagNumberOfConnections = a}) -- | Undocumented member. lagLagState :: Lens' Lag (Maybe LagState)-lagLagState = lens _lagLagState (\ s a -> s{_lagLagState = a});+lagLagState = lens _lagLagState (\ s a -> s{_lagLagState = a}) -- | The owner of the LAG. lagOwnerAccount :: Lens' Lag (Maybe Text)-lagOwnerAccount = lens _lagOwnerAccount (\ s a -> s{_lagOwnerAccount = a});+lagOwnerAccount = lens _lagOwnerAccount (\ s a -> s{_lagOwnerAccount = a}) -- | Undocumented member. lagRegion :: Lens' Lag (Maybe Text)-lagRegion = lens _lagRegion (\ s a -> s{_lagRegion = a});+lagRegion = lens _lagRegion (\ s a -> s{_lagRegion = a}) instance FromJSON Lag where parseJSON@@ -809,11 +809,11 @@ -- | The name of the AWS Direct Connect location. The name includes the colocation partner name and the physical site of the lit building. lLocationName :: Lens' Location (Maybe Text)-lLocationName = lens _lLocationName (\ s a -> s{_lLocationName = a});+lLocationName = lens _lLocationName (\ s a -> s{_lLocationName = a}) -- | The code used to indicate the AWS Direct Connect location. lLocationCode :: Lens' Location (Maybe Text)-lLocationCode = lens _lLocationCode (\ s a -> s{_lLocationCode = a});+lLocationCode = lens _lLocationCode (\ s a -> s{_lLocationCode = a}) instance FromJSON Location where parseJSON@@ -857,33 +857,33 @@ :: NewBGPPeer newBGPPeer = NewBGPPeer'- { _nbpCustomerAddress = Nothing- , _nbpAmazonAddress = Nothing- , _nbpAddressFamily = Nothing- , _nbpAsn = Nothing- , _nbpAuthKey = Nothing- }+ { _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});+nbpCustomerAddress = lens _nbpCustomerAddress (\ s a -> s{_nbpCustomerAddress = a}) -- | Undocumented member. nbpAmazonAddress :: Lens' NewBGPPeer (Maybe Text)-nbpAmazonAddress = lens _nbpAmazonAddress (\ s a -> s{_nbpAmazonAddress = a});+nbpAmazonAddress = lens _nbpAmazonAddress (\ s a -> s{_nbpAmazonAddress = a}) -- | Undocumented member. nbpAddressFamily :: Lens' NewBGPPeer (Maybe AddressFamily)-nbpAddressFamily = lens _nbpAddressFamily (\ s a -> s{_nbpAddressFamily = a});+nbpAddressFamily = lens _nbpAddressFamily (\ s a -> s{_nbpAddressFamily = a}) -- | Undocumented member. nbpAsn :: Lens' NewBGPPeer (Maybe Int)-nbpAsn = lens _nbpAsn (\ s a -> s{_nbpAsn = a});+nbpAsn = lens _nbpAsn (\ s a -> s{_nbpAsn = a}) -- | Undocumented member. nbpAuthKey :: Lens' NewBGPPeer (Maybe Text)-nbpAuthKey = lens _nbpAuthKey (\ s a -> s{_nbpAuthKey = a});+nbpAuthKey = lens _nbpAuthKey (\ s a -> s{_nbpAuthKey = a}) instance Hashable NewBGPPeer where @@ -945,53 +945,53 @@ -> NewPrivateVirtualInterface newPrivateVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ = NewPrivateVirtualInterface'- { _nVirtualGatewayId = Nothing- , _nCustomerAddress = Nothing- , _nAmazonAddress = Nothing- , _nAddressFamily = Nothing- , _nDirectConnectGatewayId = Nothing- , _nAuthKey = Nothing- , _nVirtualInterfaceName = pVirtualInterfaceName_- , _nVlan = pVlan_- , _nAsn = pAsn_- }+ { _nVirtualGatewayId = Nothing+ , _nCustomerAddress = Nothing+ , _nAmazonAddress = Nothing+ , _nAddressFamily = Nothing+ , _nDirectConnectGatewayId = Nothing+ , _nAuthKey = Nothing+ , _nVirtualInterfaceName = pVirtualInterfaceName_+ , _nVlan = pVlan_+ , _nAsn = pAsn_+ } -- | Undocumented member. nVirtualGatewayId :: Lens' NewPrivateVirtualInterface (Maybe Text)-nVirtualGatewayId = lens _nVirtualGatewayId (\ s a -> s{_nVirtualGatewayId = a});+nVirtualGatewayId = lens _nVirtualGatewayId (\ s a -> s{_nVirtualGatewayId = a}) -- | Undocumented member. nCustomerAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)-nCustomerAddress = lens _nCustomerAddress (\ s a -> s{_nCustomerAddress = a});+nCustomerAddress = lens _nCustomerAddress (\ s a -> s{_nCustomerAddress = a}) -- | Undocumented member. nAmazonAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)-nAmazonAddress = lens _nAmazonAddress (\ s a -> s{_nAmazonAddress = a});+nAmazonAddress = lens _nAmazonAddress (\ s a -> s{_nAmazonAddress = a}) -- | Undocumented member. nAddressFamily :: Lens' NewPrivateVirtualInterface (Maybe AddressFamily)-nAddressFamily = lens _nAddressFamily (\ s a -> s{_nAddressFamily = a});+nAddressFamily = lens _nAddressFamily (\ s a -> s{_nAddressFamily = a}) -- | Undocumented member. nDirectConnectGatewayId :: Lens' NewPrivateVirtualInterface (Maybe Text)-nDirectConnectGatewayId = lens _nDirectConnectGatewayId (\ s a -> s{_nDirectConnectGatewayId = a});+nDirectConnectGatewayId = lens _nDirectConnectGatewayId (\ s a -> s{_nDirectConnectGatewayId = a}) -- | Undocumented member. nAuthKey :: Lens' NewPrivateVirtualInterface (Maybe Text)-nAuthKey = lens _nAuthKey (\ s a -> s{_nAuthKey = a});+nAuthKey = lens _nAuthKey (\ s a -> s{_nAuthKey = a}) -- | Undocumented member. nVirtualInterfaceName :: Lens' NewPrivateVirtualInterface Text-nVirtualInterfaceName = lens _nVirtualInterfaceName (\ s a -> s{_nVirtualInterfaceName = a});+nVirtualInterfaceName = lens _nVirtualInterfaceName (\ s a -> s{_nVirtualInterfaceName = a}) -- | Undocumented member. nVlan :: Lens' NewPrivateVirtualInterface Int-nVlan = lens _nVlan (\ s a -> s{_nVlan = a});+nVlan = lens _nVlan (\ s a -> s{_nVlan = a}) -- | Undocumented member. nAsn :: Lens' NewPrivateVirtualInterface Int-nAsn = lens _nAsn (\ s a -> s{_nAsn = a});+nAsn = lens _nAsn (\ s a -> s{_nAsn = a}) instance Hashable NewPrivateVirtualInterface where @@ -1052,43 +1052,43 @@ -> NewPrivateVirtualInterfaceAllocation newPrivateVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ = NewPrivateVirtualInterfaceAllocation'- { _npviaCustomerAddress = Nothing- , _npviaAmazonAddress = Nothing- , _npviaAddressFamily = Nothing- , _npviaAuthKey = Nothing- , _npviaVirtualInterfaceName = pVirtualInterfaceName_- , _npviaVlan = pVlan_- , _npviaAsn = pAsn_- }+ { _npviaCustomerAddress = Nothing+ , _npviaAmazonAddress = Nothing+ , _npviaAddressFamily = Nothing+ , _npviaAuthKey = Nothing+ , _npviaVirtualInterfaceName = pVirtualInterfaceName_+ , _npviaVlan = pVlan_+ , _npviaAsn = pAsn_+ } -- | Undocumented member. npviaCustomerAddress :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)-npviaCustomerAddress = lens _npviaCustomerAddress (\ s a -> s{_npviaCustomerAddress = a});+npviaCustomerAddress = lens _npviaCustomerAddress (\ s a -> s{_npviaCustomerAddress = a}) -- | Undocumented member. npviaAmazonAddress :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)-npviaAmazonAddress = lens _npviaAmazonAddress (\ s a -> s{_npviaAmazonAddress = a});+npviaAmazonAddress = lens _npviaAmazonAddress (\ s a -> s{_npviaAmazonAddress = a}) -- | Undocumented member. npviaAddressFamily :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe AddressFamily)-npviaAddressFamily = lens _npviaAddressFamily (\ s a -> s{_npviaAddressFamily = a});+npviaAddressFamily = lens _npviaAddressFamily (\ s a -> s{_npviaAddressFamily = a}) -- | Undocumented member. npviaAuthKey :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)-npviaAuthKey = lens _npviaAuthKey (\ s a -> s{_npviaAuthKey = a});+npviaAuthKey = lens _npviaAuthKey (\ s a -> s{_npviaAuthKey = a}) -- | Undocumented member. npviaVirtualInterfaceName :: Lens' NewPrivateVirtualInterfaceAllocation Text-npviaVirtualInterfaceName = lens _npviaVirtualInterfaceName (\ s a -> s{_npviaVirtualInterfaceName = a});+npviaVirtualInterfaceName = lens _npviaVirtualInterfaceName (\ s a -> s{_npviaVirtualInterfaceName = a}) -- | Undocumented member. npviaVlan :: Lens' NewPrivateVirtualInterfaceAllocation Int-npviaVlan = lens _npviaVlan (\ s a -> s{_npviaVlan = a});+npviaVlan = lens _npviaVlan (\ s a -> s{_npviaVlan = a}) -- | Undocumented member. npviaAsn :: Lens' NewPrivateVirtualInterfaceAllocation Int-npviaAsn = lens _npviaAsn (\ s a -> s{_npviaAsn = a});+npviaAsn = lens _npviaAsn (\ s a -> s{_npviaAsn = a}) instance Hashable NewPrivateVirtualInterfaceAllocation@@ -1155,48 +1155,48 @@ -> NewPublicVirtualInterface newPublicVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ = NewPublicVirtualInterface'- { _npviRouteFilterPrefixes = Nothing- , _npviCustomerAddress = Nothing- , _npviAmazonAddress = Nothing- , _npviAddressFamily = Nothing- , _npviAuthKey = Nothing- , _npviVirtualInterfaceName = pVirtualInterfaceName_- , _npviVlan = pVlan_- , _npviAsn = pAsn_- }+ { _npviRouteFilterPrefixes = Nothing+ , _npviCustomerAddress = Nothing+ , _npviAmazonAddress = Nothing+ , _npviAddressFamily = Nothing+ , _npviAuthKey = Nothing+ , _npviVirtualInterfaceName = pVirtualInterfaceName_+ , _npviVlan = pVlan_+ , _npviAsn = pAsn_+ } -- | Undocumented member. npviRouteFilterPrefixes :: Lens' NewPublicVirtualInterface [RouteFilterPrefix]-npviRouteFilterPrefixes = lens _npviRouteFilterPrefixes (\ s a -> s{_npviRouteFilterPrefixes = a}) . _Default . _Coerce;+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});+npviCustomerAddress = lens _npviCustomerAddress (\ s a -> s{_npviCustomerAddress = a}) -- | Undocumented member. npviAmazonAddress :: Lens' NewPublicVirtualInterface (Maybe Text)-npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a});+npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a}) -- | Undocumented member. npviAddressFamily :: Lens' NewPublicVirtualInterface (Maybe AddressFamily)-npviAddressFamily = lens _npviAddressFamily (\ s a -> s{_npviAddressFamily = a});+npviAddressFamily = lens _npviAddressFamily (\ s a -> s{_npviAddressFamily = a}) -- | Undocumented member. npviAuthKey :: Lens' NewPublicVirtualInterface (Maybe Text)-npviAuthKey = lens _npviAuthKey (\ s a -> s{_npviAuthKey = a});+npviAuthKey = lens _npviAuthKey (\ s a -> s{_npviAuthKey = a}) -- | Undocumented member. npviVirtualInterfaceName :: Lens' NewPublicVirtualInterface Text-npviVirtualInterfaceName = lens _npviVirtualInterfaceName (\ s a -> s{_npviVirtualInterfaceName = a});+npviVirtualInterfaceName = lens _npviVirtualInterfaceName (\ s a -> s{_npviVirtualInterfaceName = a}) -- | Undocumented member. npviVlan :: Lens' NewPublicVirtualInterface Int-npviVlan = lens _npviVlan (\ s a -> s{_npviVlan = a});+npviVlan = lens _npviVlan (\ s a -> s{_npviVlan = a}) -- | Undocumented member. npviAsn :: Lens' NewPublicVirtualInterface Int-npviAsn = lens _npviAsn (\ s a -> s{_npviAsn = a});+npviAsn = lens _npviAsn (\ s a -> s{_npviAsn = a}) instance Hashable NewPublicVirtualInterface where @@ -1261,48 +1261,48 @@ -> NewPublicVirtualInterfaceAllocation newPublicVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ = NewPublicVirtualInterfaceAllocation'- { _newRouteFilterPrefixes = Nothing- , _newCustomerAddress = Nothing- , _newAmazonAddress = Nothing- , _newAddressFamily = Nothing- , _newAuthKey = Nothing- , _newVirtualInterfaceName = pVirtualInterfaceName_- , _newVlan = pVlan_- , _newAsn = pAsn_- }+ { _newRouteFilterPrefixes = Nothing+ , _newCustomerAddress = Nothing+ , _newAmazonAddress = Nothing+ , _newAddressFamily = Nothing+ , _newAuthKey = Nothing+ , _newVirtualInterfaceName = pVirtualInterfaceName_+ , _newVlan = pVlan_+ , _newAsn = pAsn_+ } -- | Undocumented member. newRouteFilterPrefixes :: Lens' NewPublicVirtualInterfaceAllocation [RouteFilterPrefix]-newRouteFilterPrefixes = lens _newRouteFilterPrefixes (\ s a -> s{_newRouteFilterPrefixes = a}) . _Default . _Coerce;+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});+newCustomerAddress = lens _newCustomerAddress (\ s a -> s{_newCustomerAddress = a}) -- | Undocumented member. newAmazonAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)-newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a});+newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a}) -- | Undocumented member. newAddressFamily :: Lens' NewPublicVirtualInterfaceAllocation (Maybe AddressFamily)-newAddressFamily = lens _newAddressFamily (\ s a -> s{_newAddressFamily = a});+newAddressFamily = lens _newAddressFamily (\ s a -> s{_newAddressFamily = a}) -- | Undocumented member. newAuthKey :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)-newAuthKey = lens _newAuthKey (\ s a -> s{_newAuthKey = a});+newAuthKey = lens _newAuthKey (\ s a -> s{_newAuthKey = a}) -- | Undocumented member. newVirtualInterfaceName :: Lens' NewPublicVirtualInterfaceAllocation Text-newVirtualInterfaceName = lens _newVirtualInterfaceName (\ s a -> s{_newVirtualInterfaceName = a});+newVirtualInterfaceName = lens _newVirtualInterfaceName (\ s a -> s{_newVirtualInterfaceName = a}) -- | Undocumented member. newVlan :: Lens' NewPublicVirtualInterfaceAllocation Int-newVlan = lens _newVlan (\ s a -> s{_newVlan = a});+newVlan = lens _newVlan (\ s a -> s{_newVlan = a}) -- | Undocumented member. newAsn :: Lens' NewPublicVirtualInterfaceAllocation Int-newAsn = lens _newAsn (\ s a -> s{_newAsn = a});+newAsn = lens _newAsn (\ s a -> s{_newAsn = a}) instance Hashable NewPublicVirtualInterfaceAllocation where@@ -1350,11 +1350,11 @@ -- | The Amazon Resource Name (ARN) of the Direct Connect resource. rtResourceARN :: Lens' ResourceTag (Maybe Text)-rtResourceARN = lens _rtResourceARN (\ s a -> s{_rtResourceARN = a});+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;+rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . mapping _List1 instance FromJSON ResourceTag where parseJSON@@ -1389,7 +1389,7 @@ -- | 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});+rfpCidr = lens _rfpCidr (\ s a -> s{_rfpCidr = a}) instance FromJSON RouteFilterPrefix where parseJSON@@ -1430,11 +1430,11 @@ -- | The value of the tag. tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+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});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) instance FromJSON Tag where parseJSON@@ -1476,16 +1476,16 @@ :: VirtualGateway virtualGateway = VirtualGateway'- {_vgVirtualGatewayId = Nothing, _vgVirtualGatewayState = Nothing}+ {_vgVirtualGatewayId = Nothing, _vgVirtualGatewayState = Nothing} -- | Undocumented member. vgVirtualGatewayId :: Lens' VirtualGateway (Maybe Text)-vgVirtualGatewayId = lens _vgVirtualGatewayId (\ s a -> s{_vgVirtualGatewayId = a});+vgVirtualGatewayId = lens _vgVirtualGatewayId (\ s a -> s{_vgVirtualGatewayId = a}) -- | Undocumented member. vgVirtualGatewayState :: Lens' VirtualGateway (Maybe Text)-vgVirtualGatewayState = lens _vgVirtualGatewayState (\ s a -> s{_vgVirtualGatewayState = a});+vgVirtualGatewayState = lens _vgVirtualGatewayState (\ s a -> s{_vgVirtualGatewayState = a}) instance FromJSON VirtualGateway where parseJSON@@ -1572,103 +1572,103 @@ :: VirtualInterface virtualInterface = VirtualInterface'- { _viBgpPeers = Nothing- , _viVirtualGatewayId = Nothing- , _viRouteFilterPrefixes = Nothing- , _viCustomerAddress = Nothing- , _viVlan = Nothing- , _viLocation = Nothing- , _viAmazonAddress = Nothing- , _viAddressFamily = Nothing- , _viVirtualInterfaceState = Nothing- , _viConnectionId = Nothing- , _viDirectConnectGatewayId = Nothing- , _viAmazonSideASN = Nothing- , _viVirtualInterfaceType = Nothing- , _viAsn = Nothing- , _viAuthKey = Nothing- , _viCustomerRouterConfig = Nothing- , _viOwnerAccount = Nothing- , _viVirtualInterfaceName = Nothing- , _viVirtualInterfaceId = Nothing- }+ { _viBgpPeers = Nothing+ , _viVirtualGatewayId = Nothing+ , _viRouteFilterPrefixes = Nothing+ , _viCustomerAddress = Nothing+ , _viVlan = Nothing+ , _viLocation = Nothing+ , _viAmazonAddress = Nothing+ , _viAddressFamily = Nothing+ , _viVirtualInterfaceState = Nothing+ , _viConnectionId = Nothing+ , _viDirectConnectGatewayId = Nothing+ , _viAmazonSideASN = Nothing+ , _viVirtualInterfaceType = Nothing+ , _viAsn = Nothing+ , _viAuthKey = Nothing+ , _viCustomerRouterConfig = Nothing+ , _viOwnerAccount = Nothing+ , _viVirtualInterfaceName = Nothing+ , _viVirtualInterfaceId = Nothing+ } -- | Undocumented member. viBgpPeers :: Lens' VirtualInterface [BGPPeer]-viBgpPeers = lens _viBgpPeers (\ s a -> s{_viBgpPeers = a}) . _Default . _Coerce;+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});+viVirtualGatewayId = lens _viVirtualGatewayId (\ s a -> s{_viVirtualGatewayId = a}) -- | Undocumented member. viRouteFilterPrefixes :: Lens' VirtualInterface [RouteFilterPrefix]-viRouteFilterPrefixes = lens _viRouteFilterPrefixes (\ s a -> s{_viRouteFilterPrefixes = a}) . _Default . _Coerce;+viRouteFilterPrefixes = lens _viRouteFilterPrefixes (\ s a -> s{_viRouteFilterPrefixes = a}) . _Default . _Coerce -- | Undocumented member. viCustomerAddress :: Lens' VirtualInterface (Maybe Text)-viCustomerAddress = lens _viCustomerAddress (\ s a -> s{_viCustomerAddress = a});+viCustomerAddress = lens _viCustomerAddress (\ s a -> s{_viCustomerAddress = a}) -- | Undocumented member. viVlan :: Lens' VirtualInterface (Maybe Int)-viVlan = lens _viVlan (\ s a -> s{_viVlan = a});+viVlan = lens _viVlan (\ s a -> s{_viVlan = a}) -- | Undocumented member. viLocation :: Lens' VirtualInterface (Maybe Text)-viLocation = lens _viLocation (\ s a -> s{_viLocation = a});+viLocation = lens _viLocation (\ s a -> s{_viLocation = a}) -- | Undocumented member. viAmazonAddress :: Lens' VirtualInterface (Maybe Text)-viAmazonAddress = lens _viAmazonAddress (\ s a -> s{_viAmazonAddress = a});+viAmazonAddress = lens _viAmazonAddress (\ s a -> s{_viAmazonAddress = a}) -- | Undocumented member. viAddressFamily :: Lens' VirtualInterface (Maybe AddressFamily)-viAddressFamily = lens _viAddressFamily (\ s a -> s{_viAddressFamily = a});+viAddressFamily = lens _viAddressFamily (\ s a -> s{_viAddressFamily = a}) -- | Undocumented member. viVirtualInterfaceState :: Lens' VirtualInterface (Maybe VirtualInterfaceState)-viVirtualInterfaceState = lens _viVirtualInterfaceState (\ s a -> s{_viVirtualInterfaceState = a});+viVirtualInterfaceState = lens _viVirtualInterfaceState (\ s a -> s{_viVirtualInterfaceState = a}) -- | Undocumented member. viConnectionId :: Lens' VirtualInterface (Maybe Text)-viConnectionId = lens _viConnectionId (\ s a -> s{_viConnectionId = a});+viConnectionId = lens _viConnectionId (\ s a -> s{_viConnectionId = a}) -- | Undocumented member. viDirectConnectGatewayId :: Lens' VirtualInterface (Maybe Text)-viDirectConnectGatewayId = lens _viDirectConnectGatewayId (\ s a -> s{_viDirectConnectGatewayId = a});+viDirectConnectGatewayId = lens _viDirectConnectGatewayId (\ s a -> s{_viDirectConnectGatewayId = a}) -- | The autonomous system number (ASN) for the Amazon side of the connection. viAmazonSideASN :: Lens' VirtualInterface (Maybe Integer)-viAmazonSideASN = lens _viAmazonSideASN (\ s a -> s{_viAmazonSideASN = a});+viAmazonSideASN = lens _viAmazonSideASN (\ s a -> s{_viAmazonSideASN = a}) -- | Undocumented member. viVirtualInterfaceType :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceType = lens _viVirtualInterfaceType (\ s a -> s{_viVirtualInterfaceType = a});+viVirtualInterfaceType = lens _viVirtualInterfaceType (\ s a -> s{_viVirtualInterfaceType = a}) -- | Undocumented member. viAsn :: Lens' VirtualInterface (Maybe Int)-viAsn = lens _viAsn (\ s a -> s{_viAsn = a});+viAsn = lens _viAsn (\ s a -> s{_viAsn = a}) -- | Undocumented member. viAuthKey :: Lens' VirtualInterface (Maybe Text)-viAuthKey = lens _viAuthKey (\ s a -> s{_viAuthKey = a});+viAuthKey = lens _viAuthKey (\ s a -> s{_viAuthKey = a}) -- | Information for generating the customer router configuration. viCustomerRouterConfig :: Lens' VirtualInterface (Maybe Text)-viCustomerRouterConfig = lens _viCustomerRouterConfig (\ s a -> s{_viCustomerRouterConfig = a});+viCustomerRouterConfig = lens _viCustomerRouterConfig (\ s a -> s{_viCustomerRouterConfig = a}) -- | The AWS account that will own the new virtual interface. viOwnerAccount :: Lens' VirtualInterface (Maybe Text)-viOwnerAccount = lens _viOwnerAccount (\ s a -> s{_viOwnerAccount = a});+viOwnerAccount = lens _viOwnerAccount (\ s a -> s{_viOwnerAccount = a}) -- | Undocumented member. viVirtualInterfaceName :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceName = lens _viVirtualInterfaceName (\ s a -> s{_viVirtualInterfaceName = a});+viVirtualInterfaceName = lens _viVirtualInterfaceName (\ s a -> s{_viVirtualInterfaceName = a}) -- | Undocumented member. viVirtualInterfaceId :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceId = lens _viVirtualInterfaceId (\ s a -> s{_viVirtualInterfaceId = a});+viVirtualInterfaceId = lens _viVirtualInterfaceId (\ s a -> s{_viVirtualInterfaceId = a}) instance FromJSON VirtualInterface where parseJSON
gen/Network/AWS/DirectConnect/Types/Sum.hs view
@@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.DirectConnect.Types.Sum--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
gen/Network/AWS/DirectConnect/UntagResource.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.UntagResource--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -71,11 +71,11 @@ -- | The Amazon Resource Name (ARN) of the Direct Connect resource. urResourceARN :: Lens' UntagResource Text-urResourceARN = lens _urResourceARN (\ s a -> s{_urResourceARN = a});+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;+urTagKeys = lens _urTagKeys (\ s a -> s{_urTagKeys = a}) . _Coerce instance AWSRequest UntagResource where type Rs UntagResource = UntagResourceResponse@@ -135,6 +135,6 @@ -- | -- | The response status code. urrsResponseStatus :: Lens' UntagResourceResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a}) instance NFData UntagResourceResponse where
gen/Network/AWS/DirectConnect/UpdateLag.hs view
@@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.DirectConnect.UpdateLag--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated@@ -92,20 +92,20 @@ -> UpdateLag updateLag pLagId_ = UpdateLag'- {_ulMinimumLinks = Nothing, _ulLagName = Nothing, _ulLagId = pLagId_}+ {_ulMinimumLinks = Nothing, _ulLagName = Nothing, _ulLagId = pLagId_} -- | The minimum number of physical connections that must be operational for the LAG itself to be operational. Default: None ulMinimumLinks :: Lens' UpdateLag (Maybe Int)-ulMinimumLinks = lens _ulMinimumLinks (\ s a -> s{_ulMinimumLinks = a});+ulMinimumLinks = lens _ulMinimumLinks (\ s a -> s{_ulMinimumLinks = a}) -- | The name for the LAG. Example: "@3x10G LAG to AWS@ " Default: None ulLagName :: Lens' UpdateLag (Maybe Text)-ulLagName = lens _ulLagName (\ s a -> s{_ulLagName = a});+ulLagName = lens _ulLagName (\ s a -> s{_ulLagName = a}) -- | The ID of the LAG to update. Example: dxlag-abc123 Default: None ulLagId :: Lens' UpdateLag Text-ulLagId = lens _ulLagId (\ s a -> s{_ulLagId = a});+ulLagId = lens _ulLagId (\ s a -> s{_ulLagId = a}) instance AWSRequest UpdateLag where type Rs UpdateLag = Lag
gen/Network/AWS/DirectConnect/Waiters.hs view
@@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.DirectConnect.Waiters--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@ -- | -- Module : Main--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated
test/Test/AWS/DirectConnect.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-} -- Module : Test.AWS.DirectConnect--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/DirectConnect/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.DirectConnect.Internal--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/DirectConnect.hs view
@@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.DirectConnect--- Copyright : (c) 2013-2017 Brendan Hay+-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated