amazonka-directconnect 1.4.5 → 1.5.0

raw patch · 89 files changed

+6069/−2583 lines, 89 filesdep ~amazonka-coredep ~amazonka-directconnectdep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-directconnect.cabal +34/−15
• fixture/AllocateHostedConnection.yaml +10/−0
• fixture/AllocateHostedConnectionResponse.proto +0/−0
• fixture/AssociateConnectionWithLag.yaml +10/−0
• fixture/AssociateConnectionWithLagResponse.proto +0/−0
• fixture/AssociateHostedConnection.yaml +10/−0
• fixture/AssociateHostedConnectionResponse.proto +0/−0
• fixture/AssociateVirtualInterface.yaml +10/−0
• fixture/AssociateVirtualInterfaceResponse.proto +0/−0
• fixture/CreateDirectConnectGateway.yaml +10/−0
• fixture/CreateDirectConnectGatewayAssociation.yaml +10/−0
• fixture/CreateDirectConnectGatewayAssociationResponse.proto +0/−0
• fixture/CreateDirectConnectGatewayResponse.proto +0/−0
• fixture/CreateLag.yaml +10/−0
• fixture/CreateLagResponse.proto +0/−0
• fixture/DeleteDirectConnectGateway.yaml +10/−0
• fixture/DeleteDirectConnectGatewayAssociation.yaml +10/−0
• fixture/DeleteDirectConnectGatewayAssociationResponse.proto +0/−0
• fixture/DeleteDirectConnectGatewayResponse.proto +0/−0
• fixture/DeleteLag.yaml +10/−0
• fixture/DeleteLagResponse.proto +0/−0
• fixture/DescribeDirectConnectGatewayAssociations.yaml +10/−0
• fixture/DescribeDirectConnectGatewayAssociationsResponse.proto +0/−0
• fixture/DescribeDirectConnectGatewayAttachments.yaml +10/−0
• fixture/DescribeDirectConnectGatewayAttachmentsResponse.proto +0/−0
• fixture/DescribeDirectConnectGateways.yaml +10/−0
• fixture/DescribeDirectConnectGatewaysResponse.proto +0/−0
• fixture/DescribeHostedConnections.yaml +10/−0
• fixture/DescribeHostedConnectionsResponse.proto +0/−0
• fixture/DescribeLags.yaml +10/−0
• fixture/DescribeLagsResponse.proto +0/−0
• fixture/DescribeLoa.yaml +10/−0
• fixture/DescribeLoaResponse.proto +0/−0
• fixture/DisassociateConnectionFromLag.yaml +10/−0
• fixture/DisassociateConnectionFromLagResponse.proto +0/−0
• fixture/UpdateLag.yaml +10/−0
• fixture/UpdateLagResponse.proto +0/−0
• gen/Network/AWS/DirectConnect.hs +161/−46
• gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs +0/−161
• gen/Network/AWS/DirectConnect/AllocateHostedConnection.hs +160/−0
• gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs +26/−22
• gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs +24/−18
• gen/Network/AWS/DirectConnect/AssociateConnectionWithLag.hs +127/−0
• gen/Network/AWS/DirectConnect/AssociateHostedConnection.hs +126/−0
• gen/Network/AWS/DirectConnect/AssociateVirtualInterface.hs +137/−0
• gen/Network/AWS/DirectConnect/ConfirmConnection.hs +23/−23
• gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs +53/−37
• gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs +23/−22
• gen/Network/AWS/DirectConnect/CreateBGPPeer.hs +24/−25
• gen/Network/AWS/DirectConnect/CreateConnection.hs +38/−20
• gen/Network/AWS/DirectConnect/CreateDirectConnectGateway.hs +161/−0
• gen/Network/AWS/DirectConnect/CreateDirectConnectGatewayAssociation.hs +174/−0
• gen/Network/AWS/DirectConnect/CreateInterconnect.hs +36/−20
• gen/Network/AWS/DirectConnect/CreateLag.hs +166/−0
• gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs +21/−17
• gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs +21/−17
• gen/Network/AWS/DirectConnect/DeleteBGPPeer.hs +29/−27
• gen/Network/AWS/DirectConnect/DeleteConnection.hs +17/−15
• gen/Network/AWS/DirectConnect/DeleteDirectConnectGateway.hs +150/−0
• gen/Network/AWS/DirectConnect/DeleteDirectConnectGatewayAssociation.hs +174/−0
• gen/Network/AWS/DirectConnect/DeleteInterconnect.hs +23/−23
• gen/Network/AWS/DirectConnect/DeleteLag.hs +108/−0
• gen/Network/AWS/DirectConnect/DeleteVirtualInterface.hs +31/−29
• gen/Network/AWS/DirectConnect/DescribeConnectionLoa.hs +0/−165
• gen/Network/AWS/DirectConnect/DescribeConnections.hs +15/−16
• gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs +0/−107
• gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAssociations.hs +204/−0
• gen/Network/AWS/DirectConnect/DescribeDirectConnectGatewayAttachments.hs +205/−0
• gen/Network/AWS/DirectConnect/DescribeDirectConnectGateways.hs +181/−0
• gen/Network/AWS/DirectConnect/DescribeHostedConnections.hs +101/−0
• gen/Network/AWS/DirectConnect/DescribeInterconnectLoa.hs +0/−165
• gen/Network/AWS/DirectConnect/DescribeInterconnects.hs +23/−24
• gen/Network/AWS/DirectConnect/DescribeLags.hs +139/−0
• gen/Network/AWS/DirectConnect/DescribeLoa.hs +177/−0
• gen/Network/AWS/DirectConnect/DescribeLocations.hs +32/−30
• gen/Network/AWS/DirectConnect/DescribeTags.hs +23/−24
• gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs +22/−20
• gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs +26/−27
• gen/Network/AWS/DirectConnect/DisassociateConnectionFromLag.hs +127/−0
• gen/Network/AWS/DirectConnect/TagResource.hs +22/−23
• gen/Network/AWS/DirectConnect/Types.hs +101/−35
• gen/Network/AWS/DirectConnect/Types/Product.hs +1689/−1267
• gen/Network/AWS/DirectConnect/Types/Sum.hs +245/−44
• gen/Network/AWS/DirectConnect/UntagResource.hs +22/−23
• gen/Network/AWS/DirectConnect/UpdateLag.hs +140/−0
• gen/Network/AWS/DirectConnect/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/DirectConnect.hs +319/−67

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

@@ -1,13 +1,13 @@ name:                  amazonka-directconnect-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Direct Connect SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,44 +29,63 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-directconnect  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.DirectConnect-        , Network.AWS.DirectConnect.AllocateConnectionOnInterconnect+        , Network.AWS.DirectConnect.AllocateHostedConnection         , Network.AWS.DirectConnect.AllocatePrivateVirtualInterface         , Network.AWS.DirectConnect.AllocatePublicVirtualInterface+        , Network.AWS.DirectConnect.AssociateConnectionWithLag+        , Network.AWS.DirectConnect.AssociateHostedConnection+        , Network.AWS.DirectConnect.AssociateVirtualInterface         , Network.AWS.DirectConnect.ConfirmConnection         , Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface         , Network.AWS.DirectConnect.ConfirmPublicVirtualInterface         , Network.AWS.DirectConnect.CreateBGPPeer         , Network.AWS.DirectConnect.CreateConnection+        , Network.AWS.DirectConnect.CreateDirectConnectGateway+        , Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation         , Network.AWS.DirectConnect.CreateInterconnect+        , Network.AWS.DirectConnect.CreateLag         , Network.AWS.DirectConnect.CreatePrivateVirtualInterface         , Network.AWS.DirectConnect.CreatePublicVirtualInterface         , Network.AWS.DirectConnect.DeleteBGPPeer         , Network.AWS.DirectConnect.DeleteConnection+        , Network.AWS.DirectConnect.DeleteDirectConnectGateway+        , Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation         , Network.AWS.DirectConnect.DeleteInterconnect+        , Network.AWS.DirectConnect.DeleteLag         , Network.AWS.DirectConnect.DeleteVirtualInterface-        , Network.AWS.DirectConnect.DescribeConnectionLoa         , Network.AWS.DirectConnect.DescribeConnections-        , Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect-        , Network.AWS.DirectConnect.DescribeInterconnectLoa+        , Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations+        , Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments+        , Network.AWS.DirectConnect.DescribeDirectConnectGateways+        , Network.AWS.DirectConnect.DescribeHostedConnections         , Network.AWS.DirectConnect.DescribeInterconnects+        , Network.AWS.DirectConnect.DescribeLags+        , Network.AWS.DirectConnect.DescribeLoa         , Network.AWS.DirectConnect.DescribeLocations         , Network.AWS.DirectConnect.DescribeTags         , Network.AWS.DirectConnect.DescribeVirtualGateways         , Network.AWS.DirectConnect.DescribeVirtualInterfaces+        , Network.AWS.DirectConnect.DisassociateConnectionFromLag         , Network.AWS.DirectConnect.TagResource         , Network.AWS.DirectConnect.Types         , Network.AWS.DirectConnect.UntagResource+        , Network.AWS.DirectConnect.UpdateLag         , Network.AWS.DirectConnect.Waiters      other-modules:@@ -74,7 +93,7 @@         , Network.AWS.DirectConnect.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-directconnect-test@@ -94,9 +113,9 @@         , Test.AWS.DirectConnect.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-directconnect == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-directconnect         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/directconnect/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  directconnect.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.DirectConnect--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,84 +40,126 @@     -- * Operations     -- $operations +    -- ** DescribeDirectConnectGatewayAssociations+    , module Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations+     -- ** DescribeInterconnects     , module Network.AWS.DirectConnect.DescribeInterconnects      -- ** DescribeTags     , module Network.AWS.DirectConnect.DescribeTags +    -- ** DescribeLoa+    , module Network.AWS.DirectConnect.DescribeLoa+     -- ** DeleteConnection     , module Network.AWS.DirectConnect.DeleteConnection +    -- ** AssociateConnectionWithLag+    , module Network.AWS.DirectConnect.AssociateConnectionWithLag+     -- ** CreateConnection     , module Network.AWS.DirectConnect.CreateConnection +    -- ** DescribeDirectConnectGateways+    , module Network.AWS.DirectConnect.DescribeDirectConnectGateways++    -- ** AssociateVirtualInterface+    , module Network.AWS.DirectConnect.AssociateVirtualInterface+     -- ** DescribeConnections     , module Network.AWS.DirectConnect.DescribeConnections -    -- ** DescribeConnectionsOnInterconnect-    , module Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect-     -- ** DeleteInterconnect     , module Network.AWS.DirectConnect.DeleteInterconnect      -- ** ConfirmPrivateVirtualInterface     , module Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface +    -- ** DeleteDirectConnectGatewayAssociation+    , module Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation+     -- ** DescribeLocations     , module Network.AWS.DirectConnect.DescribeLocations +    -- ** CreateDirectConnectGatewayAssociation+    , module Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation+     -- ** CreatePublicVirtualInterface     , module Network.AWS.DirectConnect.CreatePublicVirtualInterface      -- ** AllocatePrivateVirtualInterface     , module Network.AWS.DirectConnect.AllocatePrivateVirtualInterface +    -- ** DescribeLags+    , module Network.AWS.DirectConnect.DescribeLags+     -- ** ConfirmConnection     , module Network.AWS.DirectConnect.ConfirmConnection +    -- ** DescribeDirectConnectGatewayAttachments+    , module Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments+     -- ** ConfirmPublicVirtualInterface     , module Network.AWS.DirectConnect.ConfirmPublicVirtualInterface      -- ** DescribeVirtualGateways     , module Network.AWS.DirectConnect.DescribeVirtualGateways +    -- ** CreateDirectConnectGateway+    , module Network.AWS.DirectConnect.CreateDirectConnectGateway++    -- ** DeleteDirectConnectGateway+    , module Network.AWS.DirectConnect.DeleteDirectConnectGateway+     -- ** DescribeVirtualInterfaces     , module Network.AWS.DirectConnect.DescribeVirtualInterfaces +    -- ** AllocateHostedConnection+    , module Network.AWS.DirectConnect.AllocateHostedConnection+     -- ** DeleteVirtualInterface     , module Network.AWS.DirectConnect.DeleteVirtualInterface -    -- ** DescribeInterconnectLoa-    , module Network.AWS.DirectConnect.DescribeInterconnectLoa-     -- ** CreatePrivateVirtualInterface     , module Network.AWS.DirectConnect.CreatePrivateVirtualInterface      -- ** AllocatePublicVirtualInterface     , module Network.AWS.DirectConnect.AllocatePublicVirtualInterface -    -- ** AllocateConnectionOnInterconnect-    , module Network.AWS.DirectConnect.AllocateConnectionOnInterconnect+    -- ** DisassociateConnectionFromLag+    , module Network.AWS.DirectConnect.DisassociateConnectionFromLag      -- ** TagResource     , module Network.AWS.DirectConnect.TagResource +    -- ** DeleteLag+    , module Network.AWS.DirectConnect.DeleteLag++    -- ** UpdateLag+    , module Network.AWS.DirectConnect.UpdateLag+     -- ** UntagResource     , module Network.AWS.DirectConnect.UntagResource      -- ** CreateBGPPeer     , module Network.AWS.DirectConnect.CreateBGPPeer +    -- ** AssociateHostedConnection+    , module Network.AWS.DirectConnect.AssociateHostedConnection+     -- ** CreateInterconnect     , module Network.AWS.DirectConnect.CreateInterconnect      -- ** DeleteBGPPeer     , module Network.AWS.DirectConnect.DeleteBGPPeer -    -- ** DescribeConnectionLoa-    , module Network.AWS.DirectConnect.DescribeConnectionLoa+    -- ** CreateLag+    , module Network.AWS.DirectConnect.CreateLag +    -- ** DescribeHostedConnections+    , module Network.AWS.DirectConnect.DescribeHostedConnections+     -- * Types      -- ** AddressFamily@@ -132,9 +174,21 @@     -- ** ConnectionState     , ConnectionState (..) +    -- ** DirectConnectGatewayAssociationState+    , DirectConnectGatewayAssociationState (..)++    -- ** DirectConnectGatewayAttachmentState+    , DirectConnectGatewayAttachmentState (..)++    -- ** DirectConnectGatewayState+    , DirectConnectGatewayState (..)+     -- ** InterconnectState     , InterconnectState (..) +    -- ** LagState+    , LagState (..)+     -- ** LoaContentType     , LoaContentType (..) @@ -155,8 +209,10 @@     -- ** Connection     , Connection     , connection+    , cLagId     , cVlan     , cLocation+    , cAwsDevice     , cConnectionId     , cLoaIssueTime     , cPartnerName@@ -171,22 +227,64 @@     , connections     , cConnections +    -- ** DirectConnectGateway+    , DirectConnectGateway+    , directConnectGateway+    , dcgDirectConnectGatewayId+    , dcgStateChangeError+    , dcgAmazonSideASN+    , dcgDirectConnectGatewayName+    , dcgDirectConnectGatewayState+    , dcgOwnerAccount++    -- ** DirectConnectGatewayAssociation+    , DirectConnectGatewayAssociation+    , directConnectGatewayAssociation+    , dcgaVirtualGatewayId+    , dcgaDirectConnectGatewayId+    , dcgaVirtualGatewayOwnerAccount+    , dcgaStateChangeError+    , dcgaVirtualGatewayRegion+    , dcgaAssociationState++    -- ** DirectConnectGatewayAttachment+    , DirectConnectGatewayAttachment+    , directConnectGatewayAttachment+    , dDirectConnectGatewayId+    , dAttachmentState+    , dStateChangeError+    , dVirtualInterfaceRegion+    , dVirtualInterfaceOwnerAccount+    , dVirtualInterfaceId+     -- ** Interconnect     , Interconnect     , interconnect+    , iLagId     , iInterconnectId     , iLocation     , iInterconnectName+    , iAwsDevice     , iLoaIssueTime     , iBandwidth     , iInterconnectState     , iRegion -    -- ** Loa-    , Loa-    , loa-    , loaLoaContent-    , loaLoaContentType+    -- ** Lag+    , Lag+    , lag+    , lagLagId+    , lagConnectionsBandwidth+    , lagMinimumLinks+    , lagLagName+    , lagLocation+    , lagConnections+    , lagAwsDevice+    , lagAllowsHostedConnections+    , lagNumberOfConnections+    , lagLagState+    , lagOwnerAccount+    , lagRegion      -- ** Location     , Location@@ -206,14 +304,15 @@     -- ** NewPrivateVirtualInterface     , NewPrivateVirtualInterface     , newPrivateVirtualInterface+    , nVirtualGatewayId     , nCustomerAddress     , nAmazonAddress     , nAddressFamily+    , nDirectConnectGatewayId     , nAuthKey     , nVirtualInterfaceName     , nVlan     , nAsn-    , nVirtualGatewayId      -- ** NewPrivateVirtualInterfaceAllocation     , NewPrivateVirtualInterfaceAllocation@@ -286,6 +385,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -295,34 +396,48 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.AllocateConnectionOnInterconnect-import           Network.AWS.DirectConnect.AllocatePrivateVirtualInterface-import           Network.AWS.DirectConnect.AllocatePublicVirtualInterface-import           Network.AWS.DirectConnect.ConfirmConnection-import           Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface-import           Network.AWS.DirectConnect.ConfirmPublicVirtualInterface-import           Network.AWS.DirectConnect.CreateBGPPeer-import           Network.AWS.DirectConnect.CreateConnection-import           Network.AWS.DirectConnect.CreateInterconnect-import           Network.AWS.DirectConnect.CreatePrivateVirtualInterface-import           Network.AWS.DirectConnect.CreatePublicVirtualInterface-import           Network.AWS.DirectConnect.DeleteBGPPeer-import           Network.AWS.DirectConnect.DeleteConnection-import           Network.AWS.DirectConnect.DeleteInterconnect-import           Network.AWS.DirectConnect.DeleteVirtualInterface-import           Network.AWS.DirectConnect.DescribeConnectionLoa-import           Network.AWS.DirectConnect.DescribeConnections-import           Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect-import           Network.AWS.DirectConnect.DescribeInterconnectLoa-import           Network.AWS.DirectConnect.DescribeInterconnects-import           Network.AWS.DirectConnect.DescribeLocations-import           Network.AWS.DirectConnect.DescribeTags-import           Network.AWS.DirectConnect.DescribeVirtualGateways-import           Network.AWS.DirectConnect.DescribeVirtualInterfaces-import           Network.AWS.DirectConnect.TagResource-import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.UntagResource-import           Network.AWS.DirectConnect.Waiters+import Network.AWS.DirectConnect.AllocateHostedConnection+import Network.AWS.DirectConnect.AllocatePrivateVirtualInterface+import Network.AWS.DirectConnect.AllocatePublicVirtualInterface+import Network.AWS.DirectConnect.AssociateConnectionWithLag+import Network.AWS.DirectConnect.AssociateHostedConnection+import Network.AWS.DirectConnect.AssociateVirtualInterface+import Network.AWS.DirectConnect.ConfirmConnection+import Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface+import Network.AWS.DirectConnect.ConfirmPublicVirtualInterface+import Network.AWS.DirectConnect.CreateBGPPeer+import Network.AWS.DirectConnect.CreateConnection+import Network.AWS.DirectConnect.CreateDirectConnectGateway+import Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation+import Network.AWS.DirectConnect.CreateInterconnect+import Network.AWS.DirectConnect.CreateLag+import Network.AWS.DirectConnect.CreatePrivateVirtualInterface+import Network.AWS.DirectConnect.CreatePublicVirtualInterface+import Network.AWS.DirectConnect.DeleteBGPPeer+import Network.AWS.DirectConnect.DeleteConnection+import Network.AWS.DirectConnect.DeleteDirectConnectGateway+import Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation+import Network.AWS.DirectConnect.DeleteInterconnect+import Network.AWS.DirectConnect.DeleteLag+import Network.AWS.DirectConnect.DeleteVirtualInterface+import Network.AWS.DirectConnect.DescribeConnections+import Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations+import Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments+import Network.AWS.DirectConnect.DescribeDirectConnectGateways+import Network.AWS.DirectConnect.DescribeHostedConnections+import Network.AWS.DirectConnect.DescribeInterconnects+import Network.AWS.DirectConnect.DescribeLags+import Network.AWS.DirectConnect.DescribeLoa+import Network.AWS.DirectConnect.DescribeLocations+import Network.AWS.DirectConnect.DescribeTags+import Network.AWS.DirectConnect.DescribeVirtualGateways+import Network.AWS.DirectConnect.DescribeVirtualInterfaces+import Network.AWS.DirectConnect.DisassociateConnectionFromLag+import Network.AWS.DirectConnect.TagResource+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.UntagResource+import Network.AWS.DirectConnect.UpdateLag+import Network.AWS.DirectConnect.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -1,161 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectConnect.AllocateConnectionOnInterconnect--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Creates a hosted connection on an interconnect.--------- Allocates a VLAN number and a specified amount of bandwidth for use by a hosted connection on the given interconnect.----module Network.AWS.DirectConnect.AllocateConnectionOnInterconnect-    (-    -- * Creating a Request-      allocateConnectionOnInterconnect-    , AllocateConnectionOnInterconnect-    -- * Request Lenses-    , acoiBandwidth-    , acoiConnectionName-    , acoiOwnerAccount-    , acoiInterconnectId-    , acoiVlan--    -- * Destructuring the Response-    , connection-    , Connection-    -- * Response Lenses-    , cVlan-    , cLocation-    , cConnectionId-    , cLoaIssueTime-    , cPartnerName-    , cConnectionName-    , cBandwidth-    , cOwnerAccount-    , cRegion-    , cConnectionState-    ) where--import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | Container for the parameters to the AllocateConnectionOnInterconnect operation.------------ /See:/ 'allocateConnectionOnInterconnect' smart constructor.-data AllocateConnectionOnInterconnect = AllocateConnectionOnInterconnect'-    { _acoiBandwidth      :: !Text-    , _acoiConnectionName :: !Text-    , _acoiOwnerAccount   :: !Text-    , _acoiInterconnectId :: !Text-    , _acoiVlan           :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'AllocateConnectionOnInterconnect' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'acoiBandwidth' - Bandwidth of the connection. Example: "/500Mbps/ " Default: None Values: 50M, 100M, 200M, 300M, 400M, or 500M------ * 'acoiConnectionName' - Name of the provisioned connection. Example: "/500M Connection to AWS/ " Default: None------ * 'acoiOwnerAccount' - Numeric account Id of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None------ * 'acoiInterconnectId' - ID of the interconnect on which the connection will be provisioned. Example: dxcon-456abc78 Default: None------ * 'acoiVlan' - The dedicated VLAN provisioned to the connection. Example: 101 Default: None-allocateConnectionOnInterconnect-    :: Text -- ^ 'acoiBandwidth'-    -> Text -- ^ 'acoiConnectionName'-    -> Text -- ^ 'acoiOwnerAccount'-    -> Text -- ^ 'acoiInterconnectId'-    -> Int -- ^ 'acoiVlan'-    -> AllocateConnectionOnInterconnect-allocateConnectionOnInterconnect pBandwidth_ pConnectionName_ pOwnerAccount_ pInterconnectId_ pVlan_ =-    AllocateConnectionOnInterconnect'-    { _acoiBandwidth = pBandwidth_-    , _acoiConnectionName = pConnectionName_-    , _acoiOwnerAccount = pOwnerAccount_-    , _acoiInterconnectId = pInterconnectId_-    , _acoiVlan = pVlan_-    }---- | Bandwidth of the connection. Example: "/500Mbps/ " Default: None Values: 50M, 100M, 200M, 300M, 400M, or 500M-acoiBandwidth :: Lens' AllocateConnectionOnInterconnect Text-acoiBandwidth = lens _acoiBandwidth (\ s a -> s{_acoiBandwidth = a});---- | Name of the provisioned connection. Example: "/500M Connection to AWS/ " Default: None-acoiConnectionName :: Lens' AllocateConnectionOnInterconnect Text-acoiConnectionName = lens _acoiConnectionName (\ s a -> s{_acoiConnectionName = a});---- | Numeric account Id of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None-acoiOwnerAccount :: Lens' AllocateConnectionOnInterconnect Text-acoiOwnerAccount = lens _acoiOwnerAccount (\ s a -> s{_acoiOwnerAccount = a});---- | ID of the interconnect on which the connection will be provisioned. Example: dxcon-456abc78 Default: None-acoiInterconnectId :: Lens' AllocateConnectionOnInterconnect Text-acoiInterconnectId = lens _acoiInterconnectId (\ s a -> s{_acoiInterconnectId = a});---- | The dedicated VLAN provisioned to the connection. Example: 101 Default: None-acoiVlan :: Lens' AllocateConnectionOnInterconnect Int-acoiVlan = lens _acoiVlan (\ s a -> s{_acoiVlan = a});--instance AWSRequest AllocateConnectionOnInterconnect-         where-        type Rs AllocateConnectionOnInterconnect = Connection-        request = postJSON directConnect-        response = receiveJSON (\ s h x -> eitherParseJSON x)--instance Hashable AllocateConnectionOnInterconnect--instance NFData AllocateConnectionOnInterconnect--instance ToHeaders AllocateConnectionOnInterconnect-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("OvertureService.AllocateConnectionOnInterconnect"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON AllocateConnectionOnInterconnect-         where-        toJSON AllocateConnectionOnInterconnect'{..}-          = object-              (catMaybes-                 [Just ("bandwidth" .= _acoiBandwidth),-                  Just ("connectionName" .= _acoiConnectionName),-                  Just ("ownerAccount" .= _acoiOwnerAccount),-                  Just ("interconnectId" .= _acoiInterconnectId),-                  Just ("vlan" .= _acoiVlan)])--instance ToPath AllocateConnectionOnInterconnect-         where-        toPath = const "/"--instance ToQuery AllocateConnectionOnInterconnect-         where-        toQuery = const mempty

@@ -0,0 +1,160 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.AllocateHostedConnection+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a hosted connection on an interconnect or a link aggregation group (LAG).+--+--+-- Allocates a VLAN number and a specified amount of bandwidth for use by a hosted connection on the given interconnect or LAG.+--+module Network.AWS.DirectConnect.AllocateHostedConnection+    (+    -- * Creating a Request+      allocateHostedConnection+    , AllocateHostedConnection+    -- * Request Lenses+    , ahcConnectionId+    , ahcOwnerAccount+    , ahcBandwidth+    , ahcConnectionName+    , ahcVlan++    -- * Destructuring the Response+    , connection+    , Connection+    -- * Response Lenses+    , cLagId+    , cVlan+    , cLocation+    , cAwsDevice+    , cConnectionId+    , cLoaIssueTime+    , cPartnerName+    , cConnectionName+    , cBandwidth+    , cOwnerAccount+    , cRegion+    , cConnectionState+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to theHostedConnection operation.+--+--+--+-- /See:/ 'allocateHostedConnection' smart constructor.+data AllocateHostedConnection = AllocateHostedConnection'+  { _ahcConnectionId   :: !Text+  , _ahcOwnerAccount   :: !Text+  , _ahcBandwidth      :: !Text+  , _ahcConnectionName :: !Text+  , _ahcVlan           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AllocateHostedConnection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ahcConnectionId' - The ID of the interconnect or LAG on which the connection will be provisioned. Example: dxcon-456abc78 or dxlag-abc123 Default: None+--+-- * 'ahcOwnerAccount' - The numeric account ID of the customer for whom the connection will be provisioned. Example: 123443215678 Default: None+--+-- * 'ahcBandwidth' - The bandwidth of the connection. Example: @500Mbps@  Default: None Values: 50Mbps, 100Mbps, 200Mbps, 300Mbps, 400Mbps, or 500Mbps+--+-- * 'ahcConnectionName' - The name of the provisioned connection. Example: "@500M Connection to AWS@ " Default: None+--+-- * 'ahcVlan' - The dedicated VLAN provisioned to the hosted connection. Example: 101 Default: None+allocateHostedConnection+    :: Text -- ^ 'ahcConnectionId'+    -> Text -- ^ 'ahcOwnerAccount'+    -> Text -- ^ 'ahcBandwidth'+    -> Text -- ^ 'ahcConnectionName'+    -> Int -- ^ 'ahcVlan'+    -> AllocateHostedConnection+allocateHostedConnection pConnectionId_ pOwnerAccount_ pBandwidth_ pConnectionName_ pVlan_ =+  AllocateHostedConnection'+  { _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});++-- | 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});++-- | 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});++-- | 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});++-- | The dedicated VLAN provisioned to the hosted connection. Example: 101 Default: None+ahcVlan :: Lens' AllocateHostedConnection Int+ahcVlan = lens _ahcVlan (\ s a -> s{_ahcVlan = a});++instance AWSRequest AllocateHostedConnection where+        type Rs AllocateHostedConnection = Connection+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable AllocateHostedConnection where++instance NFData AllocateHostedConnection where++instance ToHeaders AllocateHostedConnection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.AllocateHostedConnection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AllocateHostedConnection where+        toJSON AllocateHostedConnection'{..}+          = object+              (catMaybes+                 [Just ("connectionId" .= _ahcConnectionId),+                  Just ("ownerAccount" .= _ahcOwnerAccount),+                  Just ("bandwidth" .= _ahcBandwidth),+                  Just ("connectionName" .= _ahcConnectionName),+                  Just ("vlan" .= _ahcVlan)])++instance ToPath AllocateHostedConnection where+        toPath = const "/"++instance ToQuery AllocateHostedConnection where+        toQuery = const mempty

@@ -12,18 +12,16 @@  -- | -- Module      : Network.AWS.DirectConnect.AllocatePrivateVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Provisions a private virtual interface to be owned by a different customer.+-- Provisions a private virtual interface to be owned by another AWS customer. -- ----- The owner of a connection calls this function to provision a private virtual interface which will be owned by another AWS customer.------ Virtual interfaces created using this function must be confirmed by the virtual interface owner by calling ConfirmPrivateVirtualInterface. Until this step has been completed, the virtual interface will be in 'Confirming' state, and will not be available for handling traffic.+-- Virtual interfaces created using this action must be confirmed by the virtual interface owner by using the 'ConfirmPrivateVirtualInterface' action. Until then, the virtual interface will be in 'Confirming' state, and will not be available for handling traffic. -- module Network.AWS.DirectConnect.AllocatePrivateVirtualInterface     (@@ -49,6 +47,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -58,12 +58,12 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the AllocatePrivateVirtualInterface operation. --@@ -71,11 +71,12 @@ -- -- /See:/ 'allocatePrivateVirtualInterface' smart constructor. data AllocatePrivateVirtualInterface = AllocatePrivateVirtualInterface'-    { _apviConnectionId                         :: !Text-    , _apviOwnerAccount                         :: !Text-    , _apviNewPrivateVirtualInterfaceAllocation :: !NewPrivateVirtualInterfaceAllocation-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _apviConnectionId :: !Text+  , _apviOwnerAccount :: !Text+  , _apviNewPrivateVirtualInterfaceAllocation :: !NewPrivateVirtualInterfaceAllocation+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AllocatePrivateVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -91,12 +92,14 @@     -> NewPrivateVirtualInterfaceAllocation -- ^ 'apviNewPrivateVirtualInterfaceAllocation'     -> AllocatePrivateVirtualInterface allocatePrivateVirtualInterface pConnectionId_ pOwnerAccount_ pNewPrivateVirtualInterfaceAllocation_ =-    AllocatePrivateVirtualInterface'-    { _apviConnectionId = pConnectionId_-    , _apviOwnerAccount = pOwnerAccount_-    , _apviNewPrivateVirtualInterfaceAllocation = pNewPrivateVirtualInterfaceAllocation_-    }+  AllocatePrivateVirtualInterface'+  { _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});@@ -117,8 +120,9 @@         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance Hashable AllocatePrivateVirtualInterface+         where -instance NFData AllocatePrivateVirtualInterface+instance NFData AllocatePrivateVirtualInterface where  instance ToHeaders AllocatePrivateVirtualInterface          where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.AllocatePublicVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -51,6 +51,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -60,12 +62,12 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the AllocatePublicVirtualInterface operation. --@@ -73,11 +75,12 @@ -- -- /See:/ 'allocatePublicVirtualInterface' smart constructor. data AllocatePublicVirtualInterface = AllocatePublicVirtualInterface'-    { _aConnectionId                        :: !Text-    , _aOwnerAccount                        :: !Text-    , _aNewPublicVirtualInterfaceAllocation :: !NewPublicVirtualInterfaceAllocation-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aConnectionId :: !Text+  , _aOwnerAccount :: !Text+  , _aNewPublicVirtualInterfaceAllocation :: !NewPublicVirtualInterfaceAllocation+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AllocatePublicVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,12 +96,14 @@     -> NewPublicVirtualInterfaceAllocation -- ^ 'aNewPublicVirtualInterfaceAllocation'     -> AllocatePublicVirtualInterface allocatePublicVirtualInterface pConnectionId_ pOwnerAccount_ pNewPublicVirtualInterfaceAllocation_ =-    AllocatePublicVirtualInterface'-    { _aConnectionId = pConnectionId_-    , _aOwnerAccount = pOwnerAccount_-    , _aNewPublicVirtualInterfaceAllocation = pNewPublicVirtualInterfaceAllocation_-    }+  AllocatePublicVirtualInterface'+  { _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});@@ -119,8 +124,9 @@         response = receiveJSON (\ s h x -> eitherParseJSON x)  instance Hashable AllocatePublicVirtualInterface+         where -instance NFData AllocatePublicVirtualInterface+instance NFData AllocatePublicVirtualInterface where  instance ToHeaders AllocatePublicVirtualInterface          where

@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.AssociateConnectionWithLag+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates an existing connection with a link aggregation group (LAG). The connection is interrupted and re-established as a member of the LAG (connectivity to AWS will be interrupted). The connection must be hosted on the same AWS Direct Connect endpoint as the LAG, and its bandwidth must match the bandwidth for the LAG. You can reassociate a connection that's currently associated with a different LAG; however, if removing the connection will cause the original LAG to fall below its setting for minimum number of operational connections, the request fails.+--+--+-- Any virtual interfaces that are directly associated with the connection are automatically re-associated with the LAG. If the connection was originally associated with a different LAG, the virtual interfaces remain associated with the original LAG.+--+-- For interconnects, any hosted connections are automatically re-associated with the LAG. If the interconnect was originally associated with a different LAG, the hosted connections remain associated with the original LAG.+--+module Network.AWS.DirectConnect.AssociateConnectionWithLag+    (+    -- * Creating a Request+      associateConnectionWithLag+    , AssociateConnectionWithLag+    -- * Request Lenses+    , acwlConnectionId+    , acwlLagId++    -- * Destructuring the Response+    , connection+    , Connection+    -- * Response Lenses+    , cLagId+    , cVlan+    , cLocation+    , cAwsDevice+    , cConnectionId+    , cLoaIssueTime+    , cPartnerName+    , cConnectionName+    , cBandwidth+    , cOwnerAccount+    , cRegion+    , cConnectionState+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the AssociateConnectionWithLag operation.+--+--+--+-- /See:/ 'associateConnectionWithLag' smart constructor.+data AssociateConnectionWithLag = AssociateConnectionWithLag'+  { _acwlConnectionId :: !Text+  , _acwlLagId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateConnectionWithLag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'acwlConnectionId' - The ID of the connection. Example: dxcon-abc123 Default: None+--+-- * 'acwlLagId' - The ID of the LAG with which to associate the connection. Example: dxlag-abc123 Default: None+associateConnectionWithLag+    :: Text -- ^ 'acwlConnectionId'+    -> Text -- ^ 'acwlLagId'+    -> AssociateConnectionWithLag+associateConnectionWithLag pConnectionId_ pLagId_ =+  AssociateConnectionWithLag'+  {_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});++-- | 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});++instance AWSRequest AssociateConnectionWithLag where+        type Rs AssociateConnectionWithLag = Connection+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable AssociateConnectionWithLag where++instance NFData AssociateConnectionWithLag where++instance ToHeaders AssociateConnectionWithLag where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.AssociateConnectionWithLag" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateConnectionWithLag where+        toJSON AssociateConnectionWithLag'{..}+          = object+              (catMaybes+                 [Just ("connectionId" .= _acwlConnectionId),+                  Just ("lagId" .= _acwlLagId)])++instance ToPath AssociateConnectionWithLag where+        toPath = const "/"++instance ToQuery AssociateConnectionWithLag where+        toQuery = const mempty

@@ -0,0 +1,126 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.AssociateHostedConnection+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a hosted connection and its virtual interfaces with a link aggregation group (LAG) or interconnect. If the target interconnect or LAG has an existing hosted connection with a conflicting VLAN number or IP address, the operation fails. This action temporarily interrupts the hosted connection's connectivity to AWS as it is being migrated.+--+--+module Network.AWS.DirectConnect.AssociateHostedConnection+    (+    -- * Creating a Request+      associateHostedConnection+    , AssociateHostedConnection+    -- * Request Lenses+    , assConnectionId+    , assParentConnectionId++    -- * Destructuring the Response+    , connection+    , Connection+    -- * Response Lenses+    , cLagId+    , cVlan+    , cLocation+    , cAwsDevice+    , cConnectionId+    , cLoaIssueTime+    , cPartnerName+    , cConnectionName+    , cBandwidth+    , cOwnerAccount+    , cRegion+    , cConnectionState+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the AssociateHostedConnection operation.+--+--+--+-- /See:/ 'associateHostedConnection' smart constructor.+data AssociateHostedConnection = AssociateHostedConnection'+  { _assConnectionId       :: !Text+  , _assParentConnectionId :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateHostedConnection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'assConnectionId' - The ID of the hosted connection. Example: dxcon-abc123 Default: None+--+-- * 'assParentConnectionId' - The ID of the interconnect or the LAG. Example: dxcon-abc123 or dxlag-abc123 Default: None+associateHostedConnection+    :: Text -- ^ 'assConnectionId'+    -> Text -- ^ 'assParentConnectionId'+    -> AssociateHostedConnection+associateHostedConnection pConnectionId_ pParentConnectionId_ =+  AssociateHostedConnection'+  { _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});++-- | 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});++instance AWSRequest AssociateHostedConnection where+        type Rs AssociateHostedConnection = Connection+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable AssociateHostedConnection where++instance NFData AssociateHostedConnection where++instance ToHeaders AssociateHostedConnection where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.AssociateHostedConnection" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateHostedConnection where+        toJSON AssociateHostedConnection'{..}+          = object+              (catMaybes+                 [Just ("connectionId" .= _assConnectionId),+                  Just+                    ("parentConnectionId" .= _assParentConnectionId)])++instance ToPath AssociateHostedConnection where+        toPath = const "/"++instance ToQuery AssociateHostedConnection where+        toQuery = const mempty

@@ -0,0 +1,137 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.AssociateVirtualInterface+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Associates a virtual interface with a specified link aggregation group (LAG) or connection. Connectivity to AWS is temporarily interrupted as the virtual interface is being migrated. If the target connection or LAG has an associated virtual interface with a conflicting VLAN number or a conflicting IP address, the operation fails.+--+--+-- Virtual interfaces associated with a hosted connection cannot be associated with a LAG; hosted connections must be migrated along with their virtual interfaces using 'AssociateHostedConnection' .+--+-- In order to reassociate a virtual interface to a new connection or LAG, the requester must own either the virtual interface itself or the connection to which the virtual interface is currently associated. Additionally, the requester must own the connection or LAG to which the virtual interface will be newly associated.+--+module Network.AWS.DirectConnect.AssociateVirtualInterface+    (+    -- * Creating a Request+      associateVirtualInterface+    , AssociateVirtualInterface+    -- * Request Lenses+    , aviVirtualInterfaceId+    , aviConnectionId++    -- * Destructuring the Response+    , virtualInterface+    , VirtualInterface+    -- * Response Lenses+    , viBgpPeers+    , viVirtualGatewayId+    , viRouteFilterPrefixes+    , viCustomerAddress+    , viVlan+    , viLocation+    , viAmazonAddress+    , viAddressFamily+    , viVirtualInterfaceState+    , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN+    , viVirtualInterfaceType+    , viAsn+    , viAuthKey+    , viCustomerRouterConfig+    , viOwnerAccount+    , viVirtualInterfaceName+    , viVirtualInterfaceId+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the AssociateVirtualInterface operation.+--+--+--+-- /See:/ 'associateVirtualInterface' smart constructor.+data AssociateVirtualInterface = AssociateVirtualInterface'+  { _aviVirtualInterfaceId :: !Text+  , _aviConnectionId       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'AssociateVirtualInterface' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'aviVirtualInterfaceId' - The ID of the virtual interface. Example: dxvif-123dfg56 Default: None+--+-- * 'aviConnectionId' - The ID of the LAG or connection with which to associate the virtual interface. Example: dxlag-abc123 or dxcon-abc123 Default: None+associateVirtualInterface+    :: Text -- ^ 'aviVirtualInterfaceId'+    -> Text -- ^ 'aviConnectionId'+    -> AssociateVirtualInterface+associateVirtualInterface pVirtualInterfaceId_ pConnectionId_ =+  AssociateVirtualInterface'+  { _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});++-- | 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});++instance AWSRequest AssociateVirtualInterface where+        type Rs AssociateVirtualInterface = VirtualInterface+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable AssociateVirtualInterface where++instance NFData AssociateVirtualInterface where++instance ToHeaders AssociateVirtualInterface where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.AssociateVirtualInterface" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON AssociateVirtualInterface where+        toJSON AssociateVirtualInterface'{..}+          = object+              (catMaybes+                 [Just+                    ("virtualInterfaceId" .= _aviVirtualInterfaceId),+                  Just ("connectionId" .= _aviConnectionId)])++instance ToPath AssociateVirtualInterface where+        toPath = const "/"++instance ToQuery AssociateVirtualInterface where+        toQuery = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.ConfirmConnection--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , ccrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the ConfirmConnection operation. --@@ -52,9 +52,10 @@ -- -- /See:/ 'confirmConnection' smart constructor. newtype ConfirmConnection = ConfirmConnection'-    { _ccConnectionId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccConnectionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmConnection' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@     :: Text -- ^ 'ccConnectionId'     -> ConfirmConnection confirmConnection pConnectionId_ =-    ConfirmConnection'-    { _ccConnectionId = pConnectionId_-    }+  ConfirmConnection' {_ccConnectionId = pConnectionId_} + -- | Undocumented member. ccConnectionId :: Lens' ConfirmConnection Text ccConnectionId = lens _ccConnectionId (\ s a -> s{_ccConnectionId = a});@@ -81,9 +81,9 @@                  ConfirmConnectionResponse' <$>                    (x .?> "connectionState") <*> (pure (fromEnum s))) -instance Hashable ConfirmConnection+instance Hashable ConfirmConnection where -instance NFData ConfirmConnection+instance NFData ConfirmConnection where  instance ToHeaders ConfirmConnection where         toHeaders@@ -112,10 +112,11 @@ -- -- /See:/ 'confirmConnectionResponse' smart constructor. data ConfirmConnectionResponse = ConfirmConnectionResponse'-    { _ccrsConnectionState :: !(Maybe ConnectionState)-    , _ccrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccrsConnectionState :: !(Maybe ConnectionState)+  , _ccrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmConnectionResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +128,10 @@     :: Int -- ^ 'ccrsResponseStatus'     -> ConfirmConnectionResponse confirmConnectionResponse pResponseStatus_ =-    ConfirmConnectionResponse'-    { _ccrsConnectionState = Nothing-    , _ccrsResponseStatus = pResponseStatus_-    }+  ConfirmConnectionResponse'+  {_ccrsConnectionState = Nothing, _ccrsResponseStatus = pResponseStatus_} + -- | Undocumented member. ccrsConnectionState :: Lens' ConfirmConnectionResponse (Maybe ConnectionState) ccrsConnectionState = lens _ccrsConnectionState (\ s a -> s{_ccrsConnectionState = a});@@ -140,4 +140,4 @@ ccrsResponseStatus :: Lens' ConfirmConnectionResponse Int ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a}); -instance NFData ConfirmConnectionResponse+instance NFData ConfirmConnectionResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Accept ownership of a private virtual interface created by another customer. -- ----- After the virtual interface owner calls this function, the virtual interface will be created and attached to the given virtual private gateway, and will be available for handling traffic.+-- After the virtual interface owner calls this function, the virtual interface will be created and attached to the given virtual private gateway or direct connect gateway, and will be available for handling traffic. -- module Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface     (@@ -29,8 +29,9 @@       confirmPrivateVirtualInterface     , ConfirmPrivateVirtualInterface     -- * Request Lenses-    , cpviVirtualInterfaceId     , cpviVirtualGatewayId+    , cpviDirectConnectGatewayId+    , cpviVirtualInterfaceId      -- * Destructuring the Response     , confirmPrivateVirtualInterfaceResponse@@ -40,12 +41,12 @@     , cpvirsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the ConfirmPrivateVirtualInterface operation. --@@ -53,35 +54,44 @@ -- -- /See:/ 'confirmPrivateVirtualInterface' smart constructor. data ConfirmPrivateVirtualInterface = ConfirmPrivateVirtualInterface'-    { _cpviVirtualInterfaceId :: !Text-    , _cpviVirtualGatewayId   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpviVirtualGatewayId       :: !(Maybe Text)+  , _cpviDirectConnectGatewayId :: !(Maybe Text)+  , _cpviVirtualInterfaceId     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmPrivateVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cpviVirtualInterfaceId' - Undocumented member.--- -- * 'cpviVirtualGatewayId' - ID of the virtual private gateway that will be attached to the virtual interface. A virtual private gateway can be managed via the Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action. Default: None+--+-- * 'cpviDirectConnectGatewayId' - 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+--+-- * 'cpviVirtualInterfaceId' - Undocumented member. confirmPrivateVirtualInterface     :: Text -- ^ 'cpviVirtualInterfaceId'-    -> Text -- ^ 'cpviVirtualGatewayId'     -> ConfirmPrivateVirtualInterface-confirmPrivateVirtualInterface pVirtualInterfaceId_ pVirtualGatewayId_ =-    ConfirmPrivateVirtualInterface'-    { _cpviVirtualInterfaceId = pVirtualInterfaceId_-    , _cpviVirtualGatewayId = pVirtualGatewayId_-    }+confirmPrivateVirtualInterface pVirtualInterfaceId_ =+  ConfirmPrivateVirtualInterface'+  { _cpviVirtualGatewayId = Nothing+  , _cpviDirectConnectGatewayId = Nothing+  , _cpviVirtualInterfaceId = pVirtualInterfaceId_+  } --- | Undocumented member.-cpviVirtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text-cpviVirtualInterfaceId = lens _cpviVirtualInterfaceId (\ s a -> s{_cpviVirtualInterfaceId = a});  -- | ID of the virtual private gateway that will be attached to the virtual interface. A virtual private gateway can be managed via the Amazon Virtual Private Cloud (VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html EC2 CreateVpnGateway> action. Default: None-cpviVirtualGatewayId :: Lens' ConfirmPrivateVirtualInterface Text+cpviVirtualGatewayId :: Lens' ConfirmPrivateVirtualInterface (Maybe Text) 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});++-- | Undocumented member.+cpviVirtualInterfaceId :: Lens' ConfirmPrivateVirtualInterface Text+cpviVirtualInterfaceId = lens _cpviVirtualInterfaceId (\ s a -> s{_cpviVirtualInterfaceId = a});+ instance AWSRequest ConfirmPrivateVirtualInterface          where         type Rs ConfirmPrivateVirtualInterface =@@ -95,8 +105,9 @@                      (pure (fromEnum s)))  instance Hashable ConfirmPrivateVirtualInterface+         where -instance NFData ConfirmPrivateVirtualInterface+instance NFData ConfirmPrivateVirtualInterface where  instance ToHeaders ConfirmPrivateVirtualInterface          where@@ -113,9 +124,11 @@         toJSON ConfirmPrivateVirtualInterface'{..}           = object               (catMaybes-                 [Just-                    ("virtualInterfaceId" .= _cpviVirtualInterfaceId),-                  Just ("virtualGatewayId" .= _cpviVirtualGatewayId)])+                 [("virtualGatewayId" .=) <$> _cpviVirtualGatewayId,+                  ("directConnectGatewayId" .=) <$>+                    _cpviDirectConnectGatewayId,+                  Just+                    ("virtualInterfaceId" .= _cpviVirtualInterfaceId)])  instance ToPath ConfirmPrivateVirtualInterface where         toPath = const "/"@@ -129,10 +142,11 @@ -- -- /See:/ 'confirmPrivateVirtualInterfaceResponse' smart constructor. data ConfirmPrivateVirtualInterfaceResponse = ConfirmPrivateVirtualInterfaceResponse'-    { _cpvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)-    , _cpvirsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)+  , _cpvirsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmPrivateVirtualInterfaceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -144,11 +158,12 @@     :: Int -- ^ 'cpvirsResponseStatus'     -> ConfirmPrivateVirtualInterfaceResponse confirmPrivateVirtualInterfaceResponse pResponseStatus_ =-    ConfirmPrivateVirtualInterfaceResponse'-    { _cpvirsVirtualInterfaceState = Nothing-    , _cpvirsResponseStatus = pResponseStatus_-    }+  ConfirmPrivateVirtualInterfaceResponse'+  { _cpvirsVirtualInterfaceState = Nothing+  , _cpvirsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. cpvirsVirtualInterfaceState :: Lens' ConfirmPrivateVirtualInterfaceResponse (Maybe VirtualInterfaceState) cpvirsVirtualInterfaceState = lens _cpvirsVirtualInterfaceState (\ s a -> s{_cpvirsVirtualInterfaceState = a});@@ -158,4 +173,5 @@ cpvirsResponseStatus = lens _cpvirsResponseStatus (\ s a -> s{_cpvirsResponseStatus = a});  instance NFData-         ConfirmPrivateVirtualInterfaceResponse+           ConfirmPrivateVirtualInterfaceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.ConfirmPublicVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , crsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the ConfirmPublicVirtualInterface operation. --@@ -52,9 +52,10 @@ -- -- /See:/ 'confirmPublicVirtualInterface' smart constructor. newtype ConfirmPublicVirtualInterface = ConfirmPublicVirtualInterface'-    { _cVirtualInterfaceId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cVirtualInterfaceId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmPublicVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@     :: Text -- ^ 'cVirtualInterfaceId'     -> ConfirmPublicVirtualInterface confirmPublicVirtualInterface pVirtualInterfaceId_ =-    ConfirmPublicVirtualInterface'-    { _cVirtualInterfaceId = pVirtualInterfaceId_-    }+  ConfirmPublicVirtualInterface' {_cVirtualInterfaceId = pVirtualInterfaceId_} + -- | Undocumented member. cVirtualInterfaceId :: Lens' ConfirmPublicVirtualInterface Text cVirtualInterfaceId = lens _cVirtualInterfaceId (\ s a -> s{_cVirtualInterfaceId = a});@@ -84,9 +84,9 @@                    (x .?> "virtualInterfaceState") <*>                      (pure (fromEnum s))) -instance Hashable ConfirmPublicVirtualInterface+instance Hashable ConfirmPublicVirtualInterface where -instance NFData ConfirmPublicVirtualInterface+instance NFData ConfirmPublicVirtualInterface where  instance ToHeaders ConfirmPublicVirtualInterface          where@@ -118,10 +118,11 @@ -- -- /See:/ 'confirmPublicVirtualInterfaceResponse' smart constructor. data ConfirmPublicVirtualInterfaceResponse = ConfirmPublicVirtualInterfaceResponse'-    { _crsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)-    , _crsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)+  , _crsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfirmPublicVirtualInterfaceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,11 +134,10 @@     :: Int -- ^ 'crsResponseStatus'     -> ConfirmPublicVirtualInterfaceResponse confirmPublicVirtualInterfaceResponse pResponseStatus_ =-    ConfirmPublicVirtualInterfaceResponse'-    { _crsVirtualInterfaceState = Nothing-    , _crsResponseStatus = pResponseStatus_-    }+  ConfirmPublicVirtualInterfaceResponse'+  {_crsVirtualInterfaceState = Nothing, _crsResponseStatus = pResponseStatus_} + -- | Undocumented member. crsVirtualInterfaceState :: Lens' ConfirmPublicVirtualInterfaceResponse (Maybe VirtualInterfaceState) crsVirtualInterfaceState = lens _crsVirtualInterfaceState (\ s a -> s{_crsVirtualInterfaceState = a});@@ -147,3 +147,4 @@ crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});  instance NFData ConfirmPublicVirtualInterfaceResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.CreateBGPPeer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,12 +44,12 @@     , cbprsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the CreateBGPPeer operation. --@@ -57,10 +57,11 @@ -- -- /See:/ 'createBGPPeer' smart constructor. data CreateBGPPeer = CreateBGPPeer'-    { _cbpNewBGPPeer         :: !(Maybe NewBGPPeer)-    , _cbpVirtualInterfaceId :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbpNewBGPPeer         :: !(Maybe NewBGPPeer)+  , _cbpVirtualInterfaceId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBGPPeer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,11 +72,9 @@ createBGPPeer     :: CreateBGPPeer createBGPPeer =-    CreateBGPPeer'-    { _cbpNewBGPPeer = Nothing-    , _cbpVirtualInterfaceId = Nothing-    }+  CreateBGPPeer' {_cbpNewBGPPeer = Nothing, _cbpVirtualInterfaceId = Nothing} + -- | Detailed information for the BGP peer to be created. Default: None cbpNewBGPPeer :: Lens' CreateBGPPeer (Maybe NewBGPPeer) cbpNewBGPPeer = lens _cbpNewBGPPeer (\ s a -> s{_cbpNewBGPPeer = a});@@ -93,9 +92,9 @@                  CreateBGPPeerResponse' <$>                    (x .?> "virtualInterface") <*> (pure (fromEnum s))) -instance Hashable CreateBGPPeer+instance Hashable CreateBGPPeer where -instance NFData CreateBGPPeer+instance NFData CreateBGPPeer where  instance ToHeaders CreateBGPPeer where         toHeaders@@ -126,10 +125,11 @@ -- -- /See:/ 'createBGPPeerResponse' smart constructor. data CreateBGPPeerResponse = CreateBGPPeerResponse'-    { _cbprsVirtualInterface :: !(Maybe VirtualInterface)-    , _cbprsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cbprsVirtualInterface :: !(Maybe VirtualInterface)+  , _cbprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateBGPPeerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -141,11 +141,10 @@     :: Int -- ^ 'cbprsResponseStatus'     -> CreateBGPPeerResponse createBGPPeerResponse pResponseStatus_ =-    CreateBGPPeerResponse'-    { _cbprsVirtualInterface = Nothing-    , _cbprsResponseStatus = pResponseStatus_-    }+  CreateBGPPeerResponse'+  {_cbprsVirtualInterface = Nothing, _cbprsResponseStatus = pResponseStatus_} + -- | Undocumented member. cbprsVirtualInterface :: Lens' CreateBGPPeerResponse (Maybe VirtualInterface) cbprsVirtualInterface = lens _cbprsVirtualInterface (\ s a -> s{_cbprsVirtualInterface = a});@@ -154,4 +153,4 @@ cbprsResponseStatus :: Lens' CreateBGPPeerResponse Int cbprsResponseStatus = lens _cbprsResponseStatus (\ s a -> s{_cbprsResponseStatus = a}); -instance NFData CreateBGPPeerResponse+instance NFData CreateBGPPeerResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.CreateConnection--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,12 +23,17 @@ -- -- A connection links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. An AWS Direct Connect location provides access to Amazon Web Services in the region it is associated with. You can establish connections with AWS Direct Connect locations in multiple regions, but a connection in one region does not provide connectivity to other regions. --+-- To find the locations for your region, use 'DescribeLocations' .+--+-- You can automatically add the new connection to a link aggregation group (LAG) by specifying a LAG ID in the request. This ensures that the new connection is allocated on the same AWS Direct Connect endpoint that hosts the specified LAG. If there are no available ports on the endpoint, the request fails and no connection will be created.+-- module Network.AWS.DirectConnect.CreateConnection     (     -- * Creating a Request       createConnection     , CreateConnection     -- * Request Lenses+    , ccLagId     , ccLocation     , ccBandwidth     , ccConnectionName@@ -37,8 +42,10 @@     , connection     , Connection     -- * Response Lenses+    , cLagId     , cVlan     , cLocation+    , cAwsDevice     , cConnectionId     , cLoaIssueTime     , cPartnerName@@ -49,12 +56,12 @@     , cConnectionState     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the CreateConnection operation. --@@ -62,15 +69,19 @@ -- -- /See:/ 'createConnection' smart constructor. data CreateConnection = CreateConnection'-    { _ccLocation       :: !Text-    , _ccBandwidth      :: !Text-    , _ccConnectionName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccLagId          :: !(Maybe Text)+  , _ccLocation       :: !Text+  , _ccBandwidth      :: !Text+  , _ccConnectionName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateConnection' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ccLagId' - Undocumented member.+-- -- * 'ccLocation' - Undocumented member. -- -- * 'ccBandwidth' - Undocumented member.@@ -82,13 +93,19 @@     -> Text -- ^ 'ccConnectionName'     -> CreateConnection createConnection pLocation_ pBandwidth_ pConnectionName_ =-    CreateConnection'-    { _ccLocation = pLocation_-    , _ccBandwidth = pBandwidth_-    , _ccConnectionName = pConnectionName_-    }+  CreateConnection'+  { _ccLagId = Nothing+  , _ccLocation = pLocation_+  , _ccBandwidth = pBandwidth_+  , _ccConnectionName = pConnectionName_+  } + -- | Undocumented member.+ccLagId :: Lens' CreateConnection (Maybe Text)+ccLagId = lens _ccLagId (\ s a -> s{_ccLagId = a});++-- | Undocumented member. ccLocation :: Lens' CreateConnection Text ccLocation = lens _ccLocation (\ s a -> s{_ccLocation = a}); @@ -105,9 +122,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CreateConnection+instance Hashable CreateConnection where -instance NFData CreateConnection+instance NFData CreateConnection where  instance ToHeaders CreateConnection where         toHeaders@@ -122,7 +139,8 @@         toJSON CreateConnection'{..}           = object               (catMaybes-                 [Just ("location" .= _ccLocation),+                 [("lagId" .=) <$> _ccLagId,+                  Just ("location" .= _ccLocation),                   Just ("bandwidth" .= _ccBandwidth),                   Just ("connectionName" .= _ccConnectionName)]) 

@@ -0,0 +1,161 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.CreateDirectConnectGateway+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new direct connect gateway. A direct connect gateway is an intermediate object that enables you to connect a set of virtual interfaces and virtual private gateways. direct connect gateways are global and visible in any AWS region after they are created. The virtual interfaces and virtual private gateways that are connected through a direct connect gateway can be in different regions. This enables you to connect to a VPC in any region, regardless of the region in which the virtual interfaces are located, and pass traffic between them.+--+--+module Network.AWS.DirectConnect.CreateDirectConnectGateway+    (+    -- * Creating a Request+      createDirectConnectGateway+    , CreateDirectConnectGateway+    -- * Request Lenses+    , cdcgAmazonSideASN+    , cdcgDirectConnectGatewayName++    -- * Destructuring the Response+    , createDirectConnectGatewayResponse+    , CreateDirectConnectGatewayResponse+    -- * Response Lenses+    , cdcgrsDirectConnectGateway+    , cdcgrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the CreateDirectConnectGateway operation.+--+--+--+-- /See:/ 'createDirectConnectGateway' smart constructor.+data CreateDirectConnectGateway = CreateDirectConnectGateway'+  { _cdcgAmazonSideASN            :: !(Maybe Integer)+  , _cdcgDirectConnectGatewayName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectConnectGateway' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcgAmazonSideASN' - 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+--+-- * 'cdcgDirectConnectGatewayName' - The name of the direct connect gateway. Example: "My direct connect gateway" Default: None+createDirectConnectGateway+    :: Text -- ^ 'cdcgDirectConnectGatewayName'+    -> CreateDirectConnectGateway+createDirectConnectGateway pDirectConnectGatewayName_ =+  CreateDirectConnectGateway'+  { _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});++-- | 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});++instance AWSRequest CreateDirectConnectGateway where+        type Rs CreateDirectConnectGateway =+             CreateDirectConnectGatewayResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 CreateDirectConnectGatewayResponse' <$>+                   (x .?> "directConnectGateway") <*>+                     (pure (fromEnum s)))++instance Hashable CreateDirectConnectGateway where++instance NFData CreateDirectConnectGateway where++instance ToHeaders CreateDirectConnectGateway where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.CreateDirectConnectGateway" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDirectConnectGateway where+        toJSON CreateDirectConnectGateway'{..}+          = object+              (catMaybes+                 [("amazonSideAsn" .=) <$> _cdcgAmazonSideASN,+                  Just+                    ("directConnectGatewayName" .=+                       _cdcgDirectConnectGatewayName)])++instance ToPath CreateDirectConnectGateway where+        toPath = const "/"++instance ToQuery CreateDirectConnectGateway where+        toQuery = const mempty++-- | Container for the response from the CreateDirectConnectGateway API call+--+--+--+-- /See:/ 'createDirectConnectGatewayResponse' smart constructor.+data CreateDirectConnectGatewayResponse = CreateDirectConnectGatewayResponse'+  { _cdcgrsDirectConnectGateway :: !(Maybe DirectConnectGateway)+  , _cdcgrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectConnectGatewayResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcgrsDirectConnectGateway' - The direct connect gateway to be created.+--+-- * 'cdcgrsResponseStatus' - -- | The response status code.+createDirectConnectGatewayResponse+    :: Int -- ^ 'cdcgrsResponseStatus'+    -> CreateDirectConnectGatewayResponse+createDirectConnectGatewayResponse pResponseStatus_ =+  CreateDirectConnectGatewayResponse'+  { _cdcgrsDirectConnectGateway = Nothing+  , _cdcgrsResponseStatus = pResponseStatus_+  }+++-- | The direct connect gateway to be created.+cdcgrsDirectConnectGateway :: Lens' CreateDirectConnectGatewayResponse (Maybe DirectConnectGateway)+cdcgrsDirectConnectGateway = lens _cdcgrsDirectConnectGateway (\ s a -> s{_cdcgrsDirectConnectGateway = a});++-- | -- | The response status code.+cdcgrsResponseStatus :: Lens' CreateDirectConnectGatewayResponse Int+cdcgrsResponseStatus = lens _cdcgrsResponseStatus (\ s a -> s{_cdcgrsResponseStatus = a});++instance NFData CreateDirectConnectGatewayResponse+         where

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates an association between a direct connect gateway and a virtual private gateway (VGW). The VGW must be attached to a VPC and must not be associated with another direct connect gateway.+--+--+module Network.AWS.DirectConnect.CreateDirectConnectGatewayAssociation+    (+    -- * Creating a Request+      createDirectConnectGatewayAssociation+    , CreateDirectConnectGatewayAssociation+    -- * Request Lenses+    , cdcgaDirectConnectGatewayId+    , cdcgaVirtualGatewayId++    -- * Destructuring the Response+    , createDirectConnectGatewayAssociationResponse+    , CreateDirectConnectGatewayAssociationResponse+    -- * Response Lenses+    , cdcgarsDirectConnectGatewayAssociation+    , cdcgarsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the CreateDirectConnectGatewayAssociation operation.+--+--+--+-- /See:/ 'createDirectConnectGatewayAssociation' smart constructor.+data CreateDirectConnectGatewayAssociation = CreateDirectConnectGatewayAssociation'+  { _cdcgaDirectConnectGatewayId :: !Text+  , _cdcgaVirtualGatewayId       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectConnectGatewayAssociation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcgaDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+--+-- * 'cdcgaVirtualGatewayId' - The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None+createDirectConnectGatewayAssociation+    :: Text -- ^ 'cdcgaDirectConnectGatewayId'+    -> Text -- ^ 'cdcgaVirtualGatewayId'+    -> CreateDirectConnectGatewayAssociation+createDirectConnectGatewayAssociation pDirectConnectGatewayId_ pVirtualGatewayId_ =+  CreateDirectConnectGatewayAssociation'+  { _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});++-- | The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None+cdcgaVirtualGatewayId :: Lens' CreateDirectConnectGatewayAssociation Text+cdcgaVirtualGatewayId = lens _cdcgaVirtualGatewayId (\ s a -> s{_cdcgaVirtualGatewayId = a});++instance AWSRequest+           CreateDirectConnectGatewayAssociation+         where+        type Rs CreateDirectConnectGatewayAssociation =+             CreateDirectConnectGatewayAssociationResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 CreateDirectConnectGatewayAssociationResponse' <$>+                   (x .?> "directConnectGatewayAssociation") <*>+                     (pure (fromEnum s)))++instance Hashable+           CreateDirectConnectGatewayAssociation+         where++instance NFData CreateDirectConnectGatewayAssociation+         where++instance ToHeaders+           CreateDirectConnectGatewayAssociation+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.CreateDirectConnectGatewayAssociation"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateDirectConnectGatewayAssociation+         where+        toJSON CreateDirectConnectGatewayAssociation'{..}+          = object+              (catMaybes+                 [Just+                    ("directConnectGatewayId" .=+                       _cdcgaDirectConnectGatewayId),+                  Just ("virtualGatewayId" .= _cdcgaVirtualGatewayId)])++instance ToPath CreateDirectConnectGatewayAssociation+         where+        toPath = const "/"++instance ToQuery+           CreateDirectConnectGatewayAssociation+         where+        toQuery = const mempty++-- | Container for the response from the CreateDirectConnectGatewayAssociation API call+--+--+--+-- /See:/ 'createDirectConnectGatewayAssociationResponse' smart constructor.+data CreateDirectConnectGatewayAssociationResponse = CreateDirectConnectGatewayAssociationResponse'+  { _cdcgarsDirectConnectGatewayAssociation :: !(Maybe DirectConnectGatewayAssociation)+  , _cdcgarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateDirectConnectGatewayAssociationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cdcgarsDirectConnectGatewayAssociation' - The direct connect gateway association to be created.+--+-- * 'cdcgarsResponseStatus' - -- | The response status code.+createDirectConnectGatewayAssociationResponse+    :: Int -- ^ 'cdcgarsResponseStatus'+    -> CreateDirectConnectGatewayAssociationResponse+createDirectConnectGatewayAssociationResponse pResponseStatus_ =+  CreateDirectConnectGatewayAssociationResponse'+  { _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});++-- | -- | The response status code.+cdcgarsResponseStatus :: Lens' CreateDirectConnectGatewayAssociationResponse Int+cdcgarsResponseStatus = lens _cdcgarsResponseStatus (\ s a -> s{_cdcgarsResponseStatus = a});++instance NFData+           CreateDirectConnectGatewayAssociationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.CreateInterconnect--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,6 +23,8 @@ -- -- An interconnect is a connection which is capable of hosting other connections. The AWS Direct Connect partner can use an interconnect to provide sub-1Gbps AWS Direct Connect service to tier 2 customers who do not have their own connections. Like a standard connection, an interconnect links the AWS Direct Connect partner's network to an AWS Direct Connect location over a standard 1 Gbps or 10 Gbps Ethernet fiber-optic cable. One end is connected to the partner's router, the other to an AWS Direct Connect router. --+-- You can automatically add the new interconnect to a link aggregation group (LAG) by specifying a LAG ID in the request. This ensures that the new interconnect is allocated on the same AWS Direct Connect endpoint that hosts the specified LAG. If there are no available ports on the endpoint, the request fails and no interconnect will be created.+-- -- For each end customer, the AWS Direct Connect partner provisions a connection on their interconnect by calling AllocateConnectionOnInterconnect. The end customer can then connect to AWS resources by creating a virtual interface on their connection, using the VLAN assigned to them by the AWS Direct Connect partner. -- module Network.AWS.DirectConnect.CreateInterconnect@@ -31,6 +33,7 @@       createInterconnect     , CreateInterconnect     -- * Request Lenses+    , ciLagId     , ciInterconnectName     , ciBandwidth     , ciLocation@@ -39,21 +42,23 @@     , interconnect     , Interconnect     -- * Response Lenses+    , iLagId     , iInterconnectId     , iLocation     , iInterconnectName+    , iAwsDevice     , iLoaIssueTime     , iBandwidth     , iInterconnectState     , iRegion     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the CreateInterconnect operation. --@@ -61,15 +66,19 @@ -- -- /See:/ 'createInterconnect' smart constructor. data CreateInterconnect = CreateInterconnect'-    { _ciInterconnectName :: !Text-    , _ciBandwidth        :: !Text-    , _ciLocation         :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ciLagId            :: !(Maybe Text)+  , _ciInterconnectName :: !Text+  , _ciBandwidth        :: !Text+  , _ciLocation         :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateInterconnect' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ciLagId' - Undocumented member.+-- -- * 'ciInterconnectName' - The name of the interconnect. Example: "/1G Interconnect to AWS/ " Default: None -- -- * 'ciBandwidth' - The port bandwidth Example: 1Gbps Default: None Available values: 1Gbps,10Gbps@@ -81,12 +90,18 @@     -> Text -- ^ 'ciLocation'     -> CreateInterconnect createInterconnect pInterconnectName_ pBandwidth_ pLocation_ =-    CreateInterconnect'-    { _ciInterconnectName = pInterconnectName_-    , _ciBandwidth = pBandwidth_-    , _ciLocation = pLocation_-    }+  CreateInterconnect'+  { _ciLagId = Nothing+  , _ciInterconnectName = pInterconnectName_+  , _ciBandwidth = pBandwidth_+  , _ciLocation = pLocation_+  } ++-- | Undocumented member.+ciLagId :: Lens' CreateInterconnect (Maybe Text)+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});@@ -104,9 +119,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CreateInterconnect+instance Hashable CreateInterconnect where -instance NFData CreateInterconnect+instance NFData CreateInterconnect where  instance ToHeaders CreateInterconnect where         toHeaders@@ -121,7 +136,8 @@         toJSON CreateInterconnect'{..}           = object               (catMaybes-                 [Just ("interconnectName" .= _ciInterconnectName),+                 [("lagId" .=) <$> _ciLagId,+                  Just ("interconnectName" .= _ciInterconnectName),                   Just ("bandwidth" .= _ciBandwidth),                   Just ("location" .= _ciLocation)]) 

@@ -0,0 +1,166 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.CreateLag+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a new link aggregation group (LAG) with the specified number of bundled physical connections between the customer network and a specific AWS Direct Connect location. A LAG is a logical interface that uses the Link Aggregation Control Protocol (LACP) to aggregate multiple 1 gigabit or 10 gigabit interfaces, allowing you to treat them as a single interface.+--+--+-- All connections in a LAG must use the same bandwidth (for example, 10 Gbps), and must terminate at the same AWS Direct Connect endpoint.+--+-- You can have up to 10 connections per LAG. Regardless of this limit, if you request more connections for the LAG than AWS Direct Connect can allocate on a single endpoint, no LAG is created.+--+-- You can specify an existing physical connection or interconnect to include in the LAG (which counts towards the total number of connections). Doing so interrupts the current physical connection or hosted connections, and re-establishes them as a member of the LAG. The LAG will be created on the same AWS Direct Connect endpoint to which the connection terminates. Any virtual interfaces associated with the connection are automatically disassociated and re-associated with the LAG. The connection ID does not change.+--+-- If the AWS account used to create a LAG is a registered AWS Direct Connect partner, the LAG is automatically enabled to host sub-connections. For a LAG owned by a partner, any associated virtual interfaces cannot be directly configured.+--+module Network.AWS.DirectConnect.CreateLag+    (+    -- * Creating a Request+      createLag+    , CreateLag+    -- * Request Lenses+    , clConnectionId+    , clNumberOfConnections+    , clLocation+    , clConnectionsBandwidth+    , clLagName++    -- * Destructuring the Response+    , lag+    , Lag+    -- * Response Lenses+    , lagLagId+    , lagConnectionsBandwidth+    , lagMinimumLinks+    , lagLagName+    , lagLocation+    , lagConnections+    , lagAwsDevice+    , lagAllowsHostedConnections+    , lagNumberOfConnections+    , lagLagState+    , lagOwnerAccount+    , lagRegion+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the CreateLag operation.+--+--+--+-- /See:/ 'createLag' smart constructor.+data CreateLag = CreateLag'+  { _clConnectionId         :: !(Maybe Text)+  , _clNumberOfConnections  :: !Int+  , _clLocation             :: !Text+  , _clConnectionsBandwidth :: !Text+  , _clLagName              :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateLag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'clConnectionId' - The ID of an existing connection to migrate to the LAG. Default: None+--+-- * 'clNumberOfConnections' - The number of physical connections initially provisioned and bundled by the LAG. Default: None+--+-- * 'clLocation' - The AWS Direct Connect location in which the LAG should be allocated. Example: EqSV5 Default: None+--+-- * 'clConnectionsBandwidth' - The bandwidth of the individual physical connections bundled by the LAG. Default: None Available values: 1Gbps, 10Gbps+--+-- * 'clLagName' - The name of the LAG. Example: "@3x10G LAG to AWS@ " Default: None+createLag+    :: Int -- ^ 'clNumberOfConnections'+    -> Text -- ^ 'clLocation'+    -> Text -- ^ 'clConnectionsBandwidth'+    -> Text -- ^ 'clLagName'+    -> CreateLag+createLag pNumberOfConnections_ pLocation_ pConnectionsBandwidth_ pLagName_ =+  CreateLag'+  { _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});++-- | 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});++-- | 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});++-- | 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});++-- | The name of the LAG. Example: "@3x10G LAG to AWS@ " Default: None+clLagName :: Lens' CreateLag Text+clLagName = lens _clLagName (\ s a -> s{_clLagName = a});++instance AWSRequest CreateLag where+        type Rs CreateLag = Lag+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable CreateLag where++instance NFData CreateLag where++instance ToHeaders CreateLag where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.CreateLag" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateLag where+        toJSON CreateLag'{..}+          = object+              (catMaybes+                 [("connectionId" .=) <$> _clConnectionId,+                  Just+                    ("numberOfConnections" .= _clNumberOfConnections),+                  Just ("location" .= _clLocation),+                  Just+                    ("connectionsBandwidth" .= _clConnectionsBandwidth),+                  Just ("lagName" .= _clLagName)])++instance ToPath CreateLag where+        toPath = const "/"++instance ToQuery CreateLag where+        toQuery = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.CreatePrivateVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -44,6 +44,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -53,12 +55,12 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the CreatePrivateVirtualInterface operation. --@@ -66,10 +68,11 @@ -- -- /See:/ 'createPrivateVirtualInterface' smart constructor. data CreatePrivateVirtualInterface = CreatePrivateVirtualInterface'-    { _creConnectionId               :: !Text-    , _creNewPrivateVirtualInterface :: !NewPrivateVirtualInterface-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _creConnectionId               :: !Text+  , _creNewPrivateVirtualInterface :: !NewPrivateVirtualInterface+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePrivateVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,11 +85,12 @@     -> NewPrivateVirtualInterface -- ^ 'creNewPrivateVirtualInterface'     -> CreatePrivateVirtualInterface createPrivateVirtualInterface pConnectionId_ pNewPrivateVirtualInterface_ =-    CreatePrivateVirtualInterface'-    { _creConnectionId = pConnectionId_-    , _creNewPrivateVirtualInterface = pNewPrivateVirtualInterface_-    }+  CreatePrivateVirtualInterface'+  { _creConnectionId = pConnectionId_+  , _creNewPrivateVirtualInterface = pNewPrivateVirtualInterface_+  } + -- | Undocumented member. creConnectionId :: Lens' CreatePrivateVirtualInterface Text creConnectionId = lens _creConnectionId (\ s a -> s{_creConnectionId = a});@@ -102,9 +106,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CreatePrivateVirtualInterface+instance Hashable CreatePrivateVirtualInterface where -instance NFData CreatePrivateVirtualInterface+instance NFData CreatePrivateVirtualInterface where  instance ToHeaders CreatePrivateVirtualInterface          where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.CreatePublicVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -46,6 +46,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -55,12 +57,12 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the CreatePublicVirtualInterface operation. --@@ -68,10 +70,11 @@ -- -- /See:/ 'createPublicVirtualInterface' smart constructor. data CreatePublicVirtualInterface = CreatePublicVirtualInterface'-    { _cpviConnectionId              :: !Text-    , _cpviNewPublicVirtualInterface :: !NewPublicVirtualInterface-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _cpviConnectionId              :: !Text+  , _cpviNewPublicVirtualInterface :: !NewPublicVirtualInterface+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreatePublicVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,11 +87,12 @@     -> NewPublicVirtualInterface -- ^ 'cpviNewPublicVirtualInterface'     -> CreatePublicVirtualInterface createPublicVirtualInterface pConnectionId_ pNewPublicVirtualInterface_ =-    CreatePublicVirtualInterface'-    { _cpviConnectionId = pConnectionId_-    , _cpviNewPublicVirtualInterface = pNewPublicVirtualInterface_-    }+  CreatePublicVirtualInterface'+  { _cpviConnectionId = pConnectionId_+  , _cpviNewPublicVirtualInterface = pNewPublicVirtualInterface_+  } + -- | Undocumented member. cpviConnectionId :: Lens' CreatePublicVirtualInterface Text cpviConnectionId = lens _cpviConnectionId (\ s a -> s{_cpviConnectionId = a});@@ -104,9 +108,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable CreatePublicVirtualInterface+instance Hashable CreatePublicVirtualInterface where -instance NFData CreatePublicVirtualInterface+instance NFData CreatePublicVirtualInterface where  instance ToHeaders CreatePublicVirtualInterface where         toHeaders

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DeleteBGPPeer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , dbprsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DeleteBGPPeer operation. --@@ -52,11 +52,12 @@ -- -- /See:/ 'deleteBGPPeer' smart constructor. data DeleteBGPPeer = DeleteBGPPeer'-    { _dbpCustomerAddress    :: !(Maybe Text)-    , _dbpAsn                :: !(Maybe Int)-    , _dbpVirtualInterfaceId :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbpCustomerAddress    :: !(Maybe Text)+  , _dbpAsn                :: !(Maybe Int)+  , _dbpVirtualInterfaceId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBGPPeer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,12 +70,13 @@ deleteBGPPeer     :: DeleteBGPPeer deleteBGPPeer =-    DeleteBGPPeer'-    { _dbpCustomerAddress = Nothing-    , _dbpAsn = Nothing-    , _dbpVirtualInterfaceId = Nothing-    }+  DeleteBGPPeer'+  { _dbpCustomerAddress = Nothing+  , _dbpAsn = Nothing+  , _dbpVirtualInterfaceId = Nothing+  } + -- | Undocumented member. dbpCustomerAddress :: Lens' DeleteBGPPeer (Maybe Text) dbpCustomerAddress = lens _dbpCustomerAddress (\ s a -> s{_dbpCustomerAddress = a});@@ -96,9 +98,9 @@                  DeleteBGPPeerResponse' <$>                    (x .?> "virtualInterface") <*> (pure (fromEnum s))) -instance Hashable DeleteBGPPeer+instance Hashable DeleteBGPPeer where -instance NFData DeleteBGPPeer+instance NFData DeleteBGPPeer where  instance ToHeaders DeleteBGPPeer where         toHeaders@@ -130,10 +132,11 @@ -- -- /See:/ 'deleteBGPPeerResponse' smart constructor. data DeleteBGPPeerResponse = DeleteBGPPeerResponse'-    { _dbprsVirtualInterface :: !(Maybe VirtualInterface)-    , _dbprsResponseStatus   :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbprsVirtualInterface :: !(Maybe VirtualInterface)+  , _dbprsResponseStatus   :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBGPPeerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,11 +148,10 @@     :: Int -- ^ 'dbprsResponseStatus'     -> DeleteBGPPeerResponse deleteBGPPeerResponse pResponseStatus_ =-    DeleteBGPPeerResponse'-    { _dbprsVirtualInterface = Nothing-    , _dbprsResponseStatus = pResponseStatus_-    }+  DeleteBGPPeerResponse'+  {_dbprsVirtualInterface = Nothing, _dbprsResponseStatus = pResponseStatus_} + -- | Undocumented member. dbprsVirtualInterface :: Lens' DeleteBGPPeerResponse (Maybe VirtualInterface) dbprsVirtualInterface = lens _dbprsVirtualInterface (\ s a -> s{_dbprsVirtualInterface = a});@@ -158,4 +160,4 @@ dbprsResponseStatus :: Lens' DeleteBGPPeerResponse Int dbprsResponseStatus = lens _dbprsResponseStatus (\ s a -> s{_dbprsResponseStatus = a}); -instance NFData DeleteBGPPeerResponse+instance NFData DeleteBGPPeerResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DeleteConnection--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -35,8 +35,10 @@     , connection     , Connection     -- * Response Lenses+    , cLagId     , cVlan     , cLocation+    , cAwsDevice     , cConnectionId     , cLoaIssueTime     , cPartnerName@@ -47,12 +49,12 @@     , cConnectionState     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DeleteConnection operation. --@@ -60,9 +62,10 @@ -- -- /See:/ 'deleteConnection' smart constructor. newtype DeleteConnection = DeleteConnection'-    { _dcConnectionId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcConnectionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteConnection' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +75,9 @@     :: Text -- ^ 'dcConnectionId'     -> DeleteConnection deleteConnection pConnectionId_ =-    DeleteConnection'-    { _dcConnectionId = pConnectionId_-    }+  DeleteConnection' {_dcConnectionId = pConnectionId_} + -- | Undocumented member. dcConnectionId :: Lens' DeleteConnection Text dcConnectionId = lens _dcConnectionId (\ s a -> s{_dcConnectionId = a});@@ -85,9 +87,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable DeleteConnection+instance Hashable DeleteConnection where -instance NFData DeleteConnection+instance NFData DeleteConnection where  instance ToHeaders DeleteConnection where         toHeaders

@@ -0,0 +1,150 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DeleteDirectConnectGateway+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a direct connect gateway. You must first delete all virtual interfaces that are attached to the direct connect gateway and disassociate all virtual private gateways that are associated with the direct connect gateway.+--+--+module Network.AWS.DirectConnect.DeleteDirectConnectGateway+    (+    -- * Creating a Request+      deleteDirectConnectGateway+    , DeleteDirectConnectGateway+    -- * Request Lenses+    , ddcgdDirectConnectGatewayId++    -- * Destructuring the Response+    , deleteDirectConnectGatewayResponse+    , DeleteDirectConnectGatewayResponse+    -- * Response Lenses+    , ddcgdrsDirectConnectGateway+    , ddcgdrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DeleteDirectConnectGateway operation.+--+--+--+-- /See:/ 'deleteDirectConnectGateway' smart constructor.+newtype DeleteDirectConnectGateway = DeleteDirectConnectGateway'+  { _ddcgdDirectConnectGatewayId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectConnectGateway' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgdDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+deleteDirectConnectGateway+    :: Text -- ^ 'ddcgdDirectConnectGatewayId'+    -> DeleteDirectConnectGateway+deleteDirectConnectGateway pDirectConnectGatewayId_ =+  DeleteDirectConnectGateway'+  {_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});++instance AWSRequest DeleteDirectConnectGateway where+        type Rs DeleteDirectConnectGateway =+             DeleteDirectConnectGatewayResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDirectConnectGatewayResponse' <$>+                   (x .?> "directConnectGateway") <*>+                     (pure (fromEnum s)))++instance Hashable DeleteDirectConnectGateway where++instance NFData DeleteDirectConnectGateway where++instance ToHeaders DeleteDirectConnectGateway where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DeleteDirectConnectGateway" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteDirectConnectGateway where+        toJSON DeleteDirectConnectGateway'{..}+          = object+              (catMaybes+                 [Just+                    ("directConnectGatewayId" .=+                       _ddcgdDirectConnectGatewayId)])++instance ToPath DeleteDirectConnectGateway where+        toPath = const "/"++instance ToQuery DeleteDirectConnectGateway where+        toQuery = const mempty++-- | Container for the response from the DeleteDirectConnectGateway API call+--+--+--+-- /See:/ 'deleteDirectConnectGatewayResponse' smart constructor.+data DeleteDirectConnectGatewayResponse = DeleteDirectConnectGatewayResponse'+  { _ddcgdrsDirectConnectGateway :: !(Maybe DirectConnectGateway)+  , _ddcgdrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectConnectGatewayResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgdrsDirectConnectGateway' - The direct connect gateway to be deleted.+--+-- * 'ddcgdrsResponseStatus' - -- | The response status code.+deleteDirectConnectGatewayResponse+    :: Int -- ^ 'ddcgdrsResponseStatus'+    -> DeleteDirectConnectGatewayResponse+deleteDirectConnectGatewayResponse pResponseStatus_ =+  DeleteDirectConnectGatewayResponse'+  { _ddcgdrsDirectConnectGateway = Nothing+  , _ddcgdrsResponseStatus = pResponseStatus_+  }+++-- | The direct connect gateway to be deleted.+ddcgdrsDirectConnectGateway :: Lens' DeleteDirectConnectGatewayResponse (Maybe DirectConnectGateway)+ddcgdrsDirectConnectGateway = lens _ddcgdrsDirectConnectGateway (\ s a -> s{_ddcgdrsDirectConnectGateway = a});++-- | -- | The response status code.+ddcgdrsResponseStatus :: Lens' DeleteDirectConnectGatewayResponse Int+ddcgdrsResponseStatus = lens _ddcgdrsResponseStatus (\ s a -> s{_ddcgdrsResponseStatus = a});++instance NFData DeleteDirectConnectGatewayResponse+         where

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes the association between a direct connect gateway and a virtual private gateway.+--+--+module Network.AWS.DirectConnect.DeleteDirectConnectGatewayAssociation+    (+    -- * Creating a Request+      deleteDirectConnectGatewayAssociation+    , DeleteDirectConnectGatewayAssociation+    -- * Request Lenses+    , delDirectConnectGatewayId+    , delVirtualGatewayId++    -- * Destructuring the Response+    , deleteDirectConnectGatewayAssociationResponse+    , DeleteDirectConnectGatewayAssociationResponse+    -- * Response Lenses+    , delrsDirectConnectGatewayAssociation+    , delrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DeleteDirectConnectGatewayAssociation operation.+--+--+--+-- /See:/ 'deleteDirectConnectGatewayAssociation' smart constructor.+data DeleteDirectConnectGatewayAssociation = DeleteDirectConnectGatewayAssociation'+  { _delDirectConnectGatewayId :: !Text+  , _delVirtualGatewayId       :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectConnectGatewayAssociation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+--+-- * 'delVirtualGatewayId' - The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None+deleteDirectConnectGatewayAssociation+    :: Text -- ^ 'delDirectConnectGatewayId'+    -> Text -- ^ 'delVirtualGatewayId'+    -> DeleteDirectConnectGatewayAssociation+deleteDirectConnectGatewayAssociation pDirectConnectGatewayId_ pVirtualGatewayId_ =+  DeleteDirectConnectGatewayAssociation'+  { _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});++-- | The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None+delVirtualGatewayId :: Lens' DeleteDirectConnectGatewayAssociation Text+delVirtualGatewayId = lens _delVirtualGatewayId (\ s a -> s{_delVirtualGatewayId = a});++instance AWSRequest+           DeleteDirectConnectGatewayAssociation+         where+        type Rs DeleteDirectConnectGatewayAssociation =+             DeleteDirectConnectGatewayAssociationResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DeleteDirectConnectGatewayAssociationResponse' <$>+                   (x .?> "directConnectGatewayAssociation") <*>+                     (pure (fromEnum s)))++instance Hashable+           DeleteDirectConnectGatewayAssociation+         where++instance NFData DeleteDirectConnectGatewayAssociation+         where++instance ToHeaders+           DeleteDirectConnectGatewayAssociation+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DeleteDirectConnectGatewayAssociation"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteDirectConnectGatewayAssociation+         where+        toJSON DeleteDirectConnectGatewayAssociation'{..}+          = object+              (catMaybes+                 [Just+                    ("directConnectGatewayId" .=+                       _delDirectConnectGatewayId),+                  Just ("virtualGatewayId" .= _delVirtualGatewayId)])++instance ToPath DeleteDirectConnectGatewayAssociation+         where+        toPath = const "/"++instance ToQuery+           DeleteDirectConnectGatewayAssociation+         where+        toQuery = const mempty++-- | Container for the response from the DeleteDirectConnectGatewayAssociation API call+--+--+--+-- /See:/ 'deleteDirectConnectGatewayAssociationResponse' smart constructor.+data DeleteDirectConnectGatewayAssociationResponse = DeleteDirectConnectGatewayAssociationResponse'+  { _delrsDirectConnectGatewayAssociation :: !(Maybe DirectConnectGatewayAssociation)+  , _delrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteDirectConnectGatewayAssociationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'delrsDirectConnectGatewayAssociation' - The direct connect gateway association to be deleted.+--+-- * 'delrsResponseStatus' - -- | The response status code.+deleteDirectConnectGatewayAssociationResponse+    :: Int -- ^ 'delrsResponseStatus'+    -> DeleteDirectConnectGatewayAssociationResponse+deleteDirectConnectGatewayAssociationResponse pResponseStatus_ =+  DeleteDirectConnectGatewayAssociationResponse'+  { _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});++-- | -- | The response status code.+delrsResponseStatus :: Lens' DeleteDirectConnectGatewayAssociationResponse Int+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});++instance NFData+           DeleteDirectConnectGatewayAssociationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DeleteInterconnect--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , drsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DeleteInterconnect operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'deleteInterconnect' smart constructor. newtype DeleteInterconnect = DeleteInterconnect'-    { _dInterconnectId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dInterconnectId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteInterconnect' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'dInterconnectId'     -> DeleteInterconnect deleteInterconnect pInterconnectId_ =-    DeleteInterconnect'-    { _dInterconnectId = pInterconnectId_-    }+  DeleteInterconnect' {_dInterconnectId = pInterconnectId_} + -- | Undocumented member. dInterconnectId :: Lens' DeleteInterconnect Text dInterconnectId = lens _dInterconnectId (\ s a -> s{_dInterconnectId = a});@@ -80,9 +80,9 @@                  DeleteInterconnectResponse' <$>                    (x .?> "interconnectState") <*> (pure (fromEnum s))) -instance Hashable DeleteInterconnect+instance Hashable DeleteInterconnect where -instance NFData DeleteInterconnect+instance NFData DeleteInterconnect where  instance ToHeaders DeleteInterconnect where         toHeaders@@ -111,10 +111,11 @@ -- -- /See:/ 'deleteInterconnectResponse' smart constructor. data DeleteInterconnectResponse = DeleteInterconnectResponse'-    { _drsInterconnectState :: !(Maybe InterconnectState)-    , _drsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsInterconnectState :: !(Maybe InterconnectState)+  , _drsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteInterconnectResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,11 +127,10 @@     :: Int -- ^ 'drsResponseStatus'     -> DeleteInterconnectResponse deleteInterconnectResponse pResponseStatus_ =-    DeleteInterconnectResponse'-    { _drsInterconnectState = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DeleteInterconnectResponse'+  {_drsInterconnectState = Nothing, _drsResponseStatus = pResponseStatus_} + -- | Undocumented member. drsInterconnectState :: Lens' DeleteInterconnectResponse (Maybe InterconnectState) drsInterconnectState = lens _drsInterconnectState (\ s a -> s{_drsInterconnectState = a});@@ -139,4 +139,4 @@ drsResponseStatus :: Lens' DeleteInterconnectResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteInterconnectResponse+instance NFData DeleteInterconnectResponse where

@@ -0,0 +1,108 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DeleteLag+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a link aggregation group (LAG). You cannot delete a LAG if it has active virtual interfaces or hosted connections.+--+--+module Network.AWS.DirectConnect.DeleteLag+    (+    -- * Creating a Request+      deleteLag+    , DeleteLag+    -- * Request Lenses+    , dLagId++    -- * Destructuring the Response+    , lag+    , Lag+    -- * Response Lenses+    , lagLagId+    , lagConnectionsBandwidth+    , lagMinimumLinks+    , lagLagName+    , lagLocation+    , lagConnections+    , lagAwsDevice+    , lagAllowsHostedConnections+    , lagNumberOfConnections+    , lagLagState+    , lagOwnerAccount+    , lagRegion+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DeleteLag operation.+--+--+--+-- /See:/ 'deleteLag' smart constructor.+newtype DeleteLag = DeleteLag'+  { _dLagId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteLag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dLagId' - The ID of the LAG to delete. Example: dxlag-abc123 Default: None+deleteLag+    :: Text -- ^ 'dLagId'+    -> DeleteLag+deleteLag pLagId_ = DeleteLag' {_dLagId = pLagId_}+++-- | The ID of the LAG to delete. Example: dxlag-abc123 Default: None+dLagId :: Lens' DeleteLag Text+dLagId = lens _dLagId (\ s a -> s{_dLagId = a});++instance AWSRequest DeleteLag where+        type Rs DeleteLag = Lag+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable DeleteLag where++instance NFData DeleteLag where++instance ToHeaders DeleteLag where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DeleteLag" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteLag where+        toJSON DeleteLag'{..}+          = object (catMaybes [Just ("lagId" .= _dLagId)])++instance ToPath DeleteLag where+        toPath = const "/"++instance ToQuery DeleteLag where+        toQuery = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DeleteVirtualInterface--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -27,7 +27,7 @@       deleteVirtualInterface     , DeleteVirtualInterface     -- * Request Lenses-    , dVirtualInterfaceId+    , delVirtualInterfaceId      -- * Destructuring the Response     , deleteVirtualInterfaceResponse@@ -37,12 +37,12 @@     , dvirsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DeleteVirtualInterface operation. --@@ -50,25 +50,25 @@ -- -- /See:/ 'deleteVirtualInterface' smart constructor. newtype DeleteVirtualInterface = DeleteVirtualInterface'-    { _dVirtualInterfaceId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delVirtualInterfaceId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVirtualInterface' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dVirtualInterfaceId' - Undocumented member.+-- * 'delVirtualInterfaceId' - Undocumented member. deleteVirtualInterface-    :: Text -- ^ 'dVirtualInterfaceId'+    :: Text -- ^ 'delVirtualInterfaceId'     -> DeleteVirtualInterface deleteVirtualInterface pVirtualInterfaceId_ =-    DeleteVirtualInterface'-    { _dVirtualInterfaceId = pVirtualInterfaceId_-    }+  DeleteVirtualInterface' {_delVirtualInterfaceId = pVirtualInterfaceId_} + -- | Undocumented member.-dVirtualInterfaceId :: Lens' DeleteVirtualInterface Text-dVirtualInterfaceId = lens _dVirtualInterfaceId (\ s a -> s{_dVirtualInterfaceId = a});+delVirtualInterfaceId :: Lens' DeleteVirtualInterface Text+delVirtualInterfaceId = lens _delVirtualInterfaceId (\ s a -> s{_delVirtualInterfaceId = a});  instance AWSRequest DeleteVirtualInterface where         type Rs DeleteVirtualInterface =@@ -81,9 +81,9 @@                    (x .?> "virtualInterfaceState") <*>                      (pure (fromEnum s))) -instance Hashable DeleteVirtualInterface+instance Hashable DeleteVirtualInterface where -instance NFData DeleteVirtualInterface+instance NFData DeleteVirtualInterface where  instance ToHeaders DeleteVirtualInterface where         toHeaders@@ -100,7 +100,7 @@           = object               (catMaybes                  [Just-                    ("virtualInterfaceId" .= _dVirtualInterfaceId)])+                    ("virtualInterfaceId" .= _delVirtualInterfaceId)])  instance ToPath DeleteVirtualInterface where         toPath = const "/"@@ -114,10 +114,11 @@ -- -- /See:/ 'deleteVirtualInterfaceResponse' smart constructor. data DeleteVirtualInterfaceResponse = DeleteVirtualInterfaceResponse'-    { _dvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)-    , _dvirsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvirsVirtualInterfaceState :: !(Maybe VirtualInterfaceState)+  , _dvirsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVirtualInterfaceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +130,12 @@     :: Int -- ^ 'dvirsResponseStatus'     -> DeleteVirtualInterfaceResponse deleteVirtualInterfaceResponse pResponseStatus_ =-    DeleteVirtualInterfaceResponse'-    { _dvirsVirtualInterfaceState = Nothing-    , _dvirsResponseStatus = pResponseStatus_-    }+  DeleteVirtualInterfaceResponse'+  { _dvirsVirtualInterfaceState = Nothing+  , _dvirsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dvirsVirtualInterfaceState :: Lens' DeleteVirtualInterfaceResponse (Maybe VirtualInterfaceState) dvirsVirtualInterfaceState = lens _dvirsVirtualInterfaceState (\ s a -> s{_dvirsVirtualInterfaceState = a});@@ -142,4 +144,4 @@ dvirsResponseStatus :: Lens' DeleteVirtualInterfaceResponse Int dvirsResponseStatus = lens _dvirsResponseStatus (\ s a -> s{_dvirsResponseStatus = a}); -instance NFData DeleteVirtualInterfaceResponse+instance NFData DeleteVirtualInterfaceResponse where

@@ -1,165 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectConnect.DescribeConnectionLoa--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Returns the LOA-CFA for a Connection.--------- The Letter of Authorization - Connecting Facility Assignment (LOA-CFA) is a document that your APN partner or service provider uses when establishing your cross connect to AWS at the colocation facility. For more information, see <http://docs.aws.amazon.com/directconnect/latest/UserGuide/Colocation.html Requesting Cross Connects at AWS Direct Connect Locations> in the AWS Direct Connect user guide.----module Network.AWS.DirectConnect.DescribeConnectionLoa-    (-    -- * Creating a Request-      describeConnectionLoa-    , DescribeConnectionLoa-    -- * Request Lenses-    , dclLoaContentType-    , dclProviderName-    , dclConnectionId--    -- * Destructuring the Response-    , describeConnectionLoaResponse-    , DescribeConnectionLoaResponse-    -- * Response Lenses-    , dclrsLoa-    , dclrsResponseStatus-    ) where--import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | Container for the parameters to the DescribeConnectionLoa operation.------------ /See:/ 'describeConnectionLoa' smart constructor.-data DescribeConnectionLoa = DescribeConnectionLoa'-    { _dclLoaContentType :: !(Maybe LoaContentType)-    , _dclProviderName   :: !(Maybe Text)-    , _dclConnectionId   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeConnectionLoa' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dclLoaContentType' - Undocumented member.------ * 'dclProviderName' - The name of the APN partner or service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None------ * 'dclConnectionId' - Undocumented member.-describeConnectionLoa-    :: Text -- ^ 'dclConnectionId'-    -> DescribeConnectionLoa-describeConnectionLoa pConnectionId_ =-    DescribeConnectionLoa'-    { _dclLoaContentType = Nothing-    , _dclProviderName = Nothing-    , _dclConnectionId = pConnectionId_-    }---- | Undocumented member.-dclLoaContentType :: Lens' DescribeConnectionLoa (Maybe LoaContentType)-dclLoaContentType = lens _dclLoaContentType (\ s a -> s{_dclLoaContentType = a});---- | The name of the APN partner or service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None-dclProviderName :: Lens' DescribeConnectionLoa (Maybe Text)-dclProviderName = lens _dclProviderName (\ s a -> s{_dclProviderName = a});---- | Undocumented member.-dclConnectionId :: Lens' DescribeConnectionLoa Text-dclConnectionId = lens _dclConnectionId (\ s a -> s{_dclConnectionId = a});--instance AWSRequest DescribeConnectionLoa where-        type Rs DescribeConnectionLoa =-             DescribeConnectionLoaResponse-        request = postJSON directConnect-        response-          = receiveJSON-              (\ s h x ->-                 DescribeConnectionLoaResponse' <$>-                   (x .?> "loa") <*> (pure (fromEnum s)))--instance Hashable DescribeConnectionLoa--instance NFData DescribeConnectionLoa--instance ToHeaders DescribeConnectionLoa where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("OvertureService.DescribeConnectionLoa" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeConnectionLoa where-        toJSON DescribeConnectionLoa'{..}-          = object-              (catMaybes-                 [("loaContentType" .=) <$> _dclLoaContentType,-                  ("providerName" .=) <$> _dclProviderName,-                  Just ("connectionId" .= _dclConnectionId)])--instance ToPath DescribeConnectionLoa where-        toPath = const "/"--instance ToQuery DescribeConnectionLoa where-        toQuery = const mempty---- | The response received when DescribeConnectionLoa is called.------------ /See:/ 'describeConnectionLoaResponse' smart constructor.-data DescribeConnectionLoaResponse = DescribeConnectionLoaResponse'-    { _dclrsLoa            :: !(Maybe Loa)-    , _dclrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeConnectionLoaResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dclrsLoa' - Undocumented member.------ * 'dclrsResponseStatus' - -- | The response status code.-describeConnectionLoaResponse-    :: Int -- ^ 'dclrsResponseStatus'-    -> DescribeConnectionLoaResponse-describeConnectionLoaResponse pResponseStatus_ =-    DescribeConnectionLoaResponse'-    { _dclrsLoa = Nothing-    , _dclrsResponseStatus = pResponseStatus_-    }---- | Undocumented member.-dclrsLoa :: Lens' DescribeConnectionLoaResponse (Maybe Loa)-dclrsLoa = lens _dclrsLoa (\ s a -> s{_dclrsLoa = a});---- | -- | The response status code.-dclrsResponseStatus :: Lens' DescribeConnectionLoaResponse Int-dclrsResponseStatus = lens _dclrsResponseStatus (\ s a -> s{_dclrsResponseStatus = a});--instance NFData DescribeConnectionLoaResponse

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeConnections--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , cConnections     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DescribeConnections operation. --@@ -51,9 +51,10 @@ -- -- /See:/ 'describeConnections' smart constructor. newtype DescribeConnections = DescribeConnections'-    { _dConnectionId :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dConnectionId :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeConnections' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@ -- * 'dConnectionId' - Undocumented member. describeConnections     :: DescribeConnections-describeConnections =-    DescribeConnections'-    { _dConnectionId = Nothing-    }+describeConnections = DescribeConnections' {_dConnectionId = Nothing} + -- | Undocumented member. dConnectionId :: Lens' DescribeConnections (Maybe Text) dConnectionId = lens _dConnectionId (\ s a -> s{_dConnectionId = a});@@ -75,9 +74,9 @@         request = postJSON directConnect         response = receiveJSON (\ s h x -> eitherParseJSON x) -instance Hashable DescribeConnections+instance Hashable DescribeConnections where -instance NFData DescribeConnections+instance NFData DescribeConnections where  instance ToHeaders DescribeConnections where         toHeaders

@@ -1,107 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Return a list of connections that have been provisioned on the given interconnect.-------module Network.AWS.DirectConnect.DescribeConnectionsOnInterconnect-    (-    -- * Creating a Request-      describeConnectionsOnInterconnect-    , DescribeConnectionsOnInterconnect-    -- * Request Lenses-    , dcoiInterconnectId--    -- * Destructuring the Response-    , connections-    , Connections-    -- * Response Lenses-    , cConnections-    ) where--import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | Container for the parameters to the DescribeConnectionsOnInterconnect operation.------------ /See:/ 'describeConnectionsOnInterconnect' smart constructor.-newtype DescribeConnectionsOnInterconnect = DescribeConnectionsOnInterconnect'-    { _dcoiInterconnectId :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeConnectionsOnInterconnect' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dcoiInterconnectId' - ID of the interconnect on which a list of connection is provisioned. Example: dxcon-abc123 Default: None-describeConnectionsOnInterconnect-    :: Text -- ^ 'dcoiInterconnectId'-    -> DescribeConnectionsOnInterconnect-describeConnectionsOnInterconnect pInterconnectId_ =-    DescribeConnectionsOnInterconnect'-    { _dcoiInterconnectId = pInterconnectId_-    }---- | ID of the interconnect on which a list of connection is provisioned. Example: dxcon-abc123 Default: None-dcoiInterconnectId :: Lens' DescribeConnectionsOnInterconnect Text-dcoiInterconnectId = lens _dcoiInterconnectId (\ s a -> s{_dcoiInterconnectId = a});--instance AWSRequest DescribeConnectionsOnInterconnect-         where-        type Rs DescribeConnectionsOnInterconnect =-             Connections-        request = postJSON directConnect-        response = receiveJSON (\ s h x -> eitherParseJSON x)--instance Hashable DescribeConnectionsOnInterconnect--instance NFData DescribeConnectionsOnInterconnect--instance ToHeaders DescribeConnectionsOnInterconnect-         where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("OvertureService.DescribeConnectionsOnInterconnect"-                       :: ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeConnectionsOnInterconnect-         where-        toJSON DescribeConnectionsOnInterconnect'{..}-          = object-              (catMaybes-                 [Just ("interconnectId" .= _dcoiInterconnectId)])--instance ToPath DescribeConnectionsOnInterconnect-         where-        toPath = const "/"--instance ToQuery DescribeConnectionsOnInterconnect-         where-        toQuery = const mempty

@@ -0,0 +1,204 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of all direct connect gateway and virtual private gateway (VGW) associations. Either a direct connect gateway ID or a VGW ID must be provided in the request. If a direct connect gateway ID is provided, the response returns all VGWs associated with the direct connect gateway. If a VGW ID is provided, the response returns all direct connect gateways associated with the VGW. If both are provided, the response only returns the association that matches both the direct connect gateway and the VGW.+--+--+module Network.AWS.DirectConnect.DescribeDirectConnectGatewayAssociations+    (+    -- * Creating a Request+      describeDirectConnectGatewayAssociations+    , DescribeDirectConnectGatewayAssociations+    -- * Request Lenses+    , ddcgaVirtualGatewayId+    , ddcgaDirectConnectGatewayId+    , ddcgaNextToken+    , ddcgaMaxResults++    -- * Destructuring the Response+    , describeDirectConnectGatewayAssociationsResponse+    , DescribeDirectConnectGatewayAssociationsResponse+    -- * Response Lenses+    , ddcgarsNextToken+    , ddcgarsDirectConnectGatewayAssociations+    , ddcgarsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeDirectConnectGatewayAssociations operation.+--+--+--+-- /See:/ 'describeDirectConnectGatewayAssociations' smart constructor.+data DescribeDirectConnectGatewayAssociations = DescribeDirectConnectGatewayAssociations'+  { _ddcgaVirtualGatewayId       :: !(Maybe Text)+  , _ddcgaDirectConnectGatewayId :: !(Maybe Text)+  , _ddcgaNextToken              :: !(Maybe Text)+  , _ddcgaMaxResults             :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGatewayAssociations' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgaVirtualGatewayId' - The ID of the virtual private gateway. Example: "vgw-abc123ef" Default: None+--+-- * 'ddcgaDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+--+-- * 'ddcgaNextToken' - The token provided in the previous describe result to retrieve the next page of the result. Default: None+--+-- * 'ddcgaMaxResults' - The maximum number of direct connect gateway associations to return per page. Example: 15 Default: None+describeDirectConnectGatewayAssociations+    :: DescribeDirectConnectGatewayAssociations+describeDirectConnectGatewayAssociations =+  DescribeDirectConnectGatewayAssociations'+  { _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});++-- | 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});++-- | 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});++-- | 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});++instance AWSRequest+           DescribeDirectConnectGatewayAssociations+         where+        type Rs DescribeDirectConnectGatewayAssociations =+             DescribeDirectConnectGatewayAssociationsResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDirectConnectGatewayAssociationsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "directConnectGatewayAssociations" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeDirectConnectGatewayAssociations+         where++instance NFData+           DescribeDirectConnectGatewayAssociations+         where++instance ToHeaders+           DescribeDirectConnectGatewayAssociations+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeDirectConnectGatewayAssociations"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON+           DescribeDirectConnectGatewayAssociations+         where+        toJSON DescribeDirectConnectGatewayAssociations'{..}+          = object+              (catMaybes+                 [("virtualGatewayId" .=) <$> _ddcgaVirtualGatewayId,+                  ("directConnectGatewayId" .=) <$>+                    _ddcgaDirectConnectGatewayId,+                  ("nextToken" .=) <$> _ddcgaNextToken,+                  ("maxResults" .=) <$> _ddcgaMaxResults])++instance ToPath+           DescribeDirectConnectGatewayAssociations+         where+        toPath = const "/"++instance ToQuery+           DescribeDirectConnectGatewayAssociations+         where+        toQuery = const mempty++-- | Container for the response from the DescribeDirectConnectGatewayAssociations API call+--+--+--+-- /See:/ 'describeDirectConnectGatewayAssociationsResponse' smart constructor.+data DescribeDirectConnectGatewayAssociationsResponse = DescribeDirectConnectGatewayAssociationsResponse'+  { _ddcgarsNextToken :: !(Maybe Text)+  , _ddcgarsDirectConnectGatewayAssociations :: !(Maybe [DirectConnectGatewayAssociation])+  , _ddcgarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGatewayAssociationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgarsNextToken' - Undocumented member.+--+-- * 'ddcgarsDirectConnectGatewayAssociations' - Information about the direct connect gateway associations.+--+-- * 'ddcgarsResponseStatus' - -- | The response status code.+describeDirectConnectGatewayAssociationsResponse+    :: Int -- ^ 'ddcgarsResponseStatus'+    -> DescribeDirectConnectGatewayAssociationsResponse+describeDirectConnectGatewayAssociationsResponse pResponseStatus_ =+  DescribeDirectConnectGatewayAssociationsResponse'+  { _ddcgarsNextToken = Nothing+  , _ddcgarsDirectConnectGatewayAssociations = Nothing+  , _ddcgarsResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+ddcgarsNextToken :: Lens' DescribeDirectConnectGatewayAssociationsResponse (Maybe Text)+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;++-- | -- | The response status code.+ddcgarsResponseStatus :: Lens' DescribeDirectConnectGatewayAssociationsResponse Int+ddcgarsResponseStatus = lens _ddcgarsResponseStatus (\ s a -> s{_ddcgarsResponseStatus = a});++instance NFData+           DescribeDirectConnectGatewayAssociationsResponse+         where

@@ -0,0 +1,205 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of all direct connect gateway and virtual interface (VIF) attachments. Either a direct connect gateway ID or a VIF ID must be provided in the request. If a direct connect gateway ID is provided, the response returns all VIFs attached to the direct connect gateway. If a VIF ID is provided, the response returns all direct connect gateways attached to the VIF. If both are provided, the response only returns the attachment that matches both the direct connect gateway and the VIF.+--+--+module Network.AWS.DirectConnect.DescribeDirectConnectGatewayAttachments+    (+    -- * Creating a Request+      describeDirectConnectGatewayAttachments+    , DescribeDirectConnectGatewayAttachments+    -- * Request Lenses+    , ddcgasDirectConnectGatewayId+    , ddcgasNextToken+    , ddcgasMaxResults+    , ddcgasVirtualInterfaceId++    -- * Destructuring the Response+    , describeDirectConnectGatewayAttachmentsResponse+    , DescribeDirectConnectGatewayAttachmentsResponse+    -- * Response Lenses+    , ddcgasrsNextToken+    , ddcgasrsDirectConnectGatewayAttachments+    , ddcgasrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeDirectConnectGatewayAttachments operation.+--+--+--+-- /See:/ 'describeDirectConnectGatewayAttachments' smart constructor.+data DescribeDirectConnectGatewayAttachments = DescribeDirectConnectGatewayAttachments'+  { _ddcgasDirectConnectGatewayId :: !(Maybe Text)+  , _ddcgasNextToken              :: !(Maybe Text)+  , _ddcgasMaxResults             :: !(Maybe Int)+  , _ddcgasVirtualInterfaceId     :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGatewayAttachments' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgasDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+--+-- * 'ddcgasNextToken' - The token provided in the previous describe result to retrieve the next page of the result. Default: None+--+-- * 'ddcgasMaxResults' - The maximum number of direct connect gateway attachments to return per page. Example: 15 Default: None+--+-- * 'ddcgasVirtualInterfaceId' - The ID of the virtual interface. Example: "dxvif-abc123ef" Default: None+describeDirectConnectGatewayAttachments+    :: DescribeDirectConnectGatewayAttachments+describeDirectConnectGatewayAttachments =+  DescribeDirectConnectGatewayAttachments'+  { _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});++-- | 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});++-- | 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});++-- | The ID of the virtual interface. Example: "dxvif-abc123ef" Default: None+ddcgasVirtualInterfaceId :: Lens' DescribeDirectConnectGatewayAttachments (Maybe Text)+ddcgasVirtualInterfaceId = lens _ddcgasVirtualInterfaceId (\ s a -> s{_ddcgasVirtualInterfaceId = a});++instance AWSRequest+           DescribeDirectConnectGatewayAttachments+         where+        type Rs DescribeDirectConnectGatewayAttachments =+             DescribeDirectConnectGatewayAttachmentsResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDirectConnectGatewayAttachmentsResponse' <$>+                   (x .?> "nextToken") <*>+                     (x .?> "directConnectGatewayAttachments" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable+           DescribeDirectConnectGatewayAttachments+         where++instance NFData+           DescribeDirectConnectGatewayAttachments+         where++instance ToHeaders+           DescribeDirectConnectGatewayAttachments+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeDirectConnectGatewayAttachments"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON+           DescribeDirectConnectGatewayAttachments+         where+        toJSON DescribeDirectConnectGatewayAttachments'{..}+          = object+              (catMaybes+                 [("directConnectGatewayId" .=) <$>+                    _ddcgasDirectConnectGatewayId,+                  ("nextToken" .=) <$> _ddcgasNextToken,+                  ("maxResults" .=) <$> _ddcgasMaxResults,+                  ("virtualInterfaceId" .=) <$>+                    _ddcgasVirtualInterfaceId])++instance ToPath+           DescribeDirectConnectGatewayAttachments+         where+        toPath = const "/"++instance ToQuery+           DescribeDirectConnectGatewayAttachments+         where+        toQuery = const mempty++-- | Container for the response from the DescribeDirectConnectGatewayAttachments API call+--+--+--+-- /See:/ 'describeDirectConnectGatewayAttachmentsResponse' smart constructor.+data DescribeDirectConnectGatewayAttachmentsResponse = DescribeDirectConnectGatewayAttachmentsResponse'+  { _ddcgasrsNextToken :: !(Maybe Text)+  , _ddcgasrsDirectConnectGatewayAttachments :: !(Maybe [DirectConnectGatewayAttachment])+  , _ddcgasrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGatewayAttachmentsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgasrsNextToken' - Undocumented member.+--+-- * 'ddcgasrsDirectConnectGatewayAttachments' - Information about the direct connect gateway attachments.+--+-- * 'ddcgasrsResponseStatus' - -- | The response status code.+describeDirectConnectGatewayAttachmentsResponse+    :: Int -- ^ 'ddcgasrsResponseStatus'+    -> DescribeDirectConnectGatewayAttachmentsResponse+describeDirectConnectGatewayAttachmentsResponse pResponseStatus_ =+  DescribeDirectConnectGatewayAttachmentsResponse'+  { _ddcgasrsNextToken = Nothing+  , _ddcgasrsDirectConnectGatewayAttachments = Nothing+  , _ddcgasrsResponseStatus = pResponseStatus_+  }+++-- | Undocumented member.+ddcgasrsNextToken :: Lens' DescribeDirectConnectGatewayAttachmentsResponse (Maybe Text)+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;++-- | -- | The response status code.+ddcgasrsResponseStatus :: Lens' DescribeDirectConnectGatewayAttachmentsResponse Int+ddcgasrsResponseStatus = lens _ddcgasrsResponseStatus (\ s a -> s{_ddcgasrsResponseStatus = a});++instance NFData+           DescribeDirectConnectGatewayAttachmentsResponse+         where

@@ -0,0 +1,181 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeDirectConnectGateways+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of direct connect gateways in your account. Deleted direct connect gateways are not returned. You can provide a direct connect gateway ID in the request to return information about the specific direct connect gateway only. Otherwise, if a direct connect gateway ID is not provided, information about all of your direct connect gateways is returned.+--+--+module Network.AWS.DirectConnect.DescribeDirectConnectGateways+    (+    -- * Creating a Request+      describeDirectConnectGateways+    , DescribeDirectConnectGateways+    -- * Request Lenses+    , ddcgDirectConnectGatewayId+    , ddcgNextToken+    , ddcgMaxResults++    -- * Destructuring the Response+    , describeDirectConnectGatewaysResponse+    , DescribeDirectConnectGatewaysResponse+    -- * Response Lenses+    , ddcgrsDirectConnectGateways+    , ddcgrsNextToken+    , ddcgrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeDirectConnectGateways operation.+--+--+--+-- /See:/ 'describeDirectConnectGateways' smart constructor.+data DescribeDirectConnectGateways = DescribeDirectConnectGateways'+  { _ddcgDirectConnectGatewayId :: !(Maybe Text)+  , _ddcgNextToken              :: !(Maybe Text)+  , _ddcgMaxResults             :: !(Maybe Int)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGateways' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgDirectConnectGatewayId' - The ID of the direct connect gateway. Example: "abcd1234-dcba-5678-be23-cdef9876ab45" Default: None+--+-- * 'ddcgNextToken' - The token provided in the previous describe result to retrieve the next page of the result. Default: None+--+-- * 'ddcgMaxResults' - The maximum number of direct connect gateways to return per page. Example: 15 Default: None+describeDirectConnectGateways+    :: DescribeDirectConnectGateways+describeDirectConnectGateways =+  DescribeDirectConnectGateways'+  { _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});++-- | 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});++-- | 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});++instance AWSRequest DescribeDirectConnectGateways+         where+        type Rs DescribeDirectConnectGateways =+             DescribeDirectConnectGatewaysResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeDirectConnectGatewaysResponse' <$>+                   (x .?> "directConnectGateways" .!@ mempty) <*>+                     (x .?> "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeDirectConnectGateways where++instance NFData DescribeDirectConnectGateways where++instance ToHeaders DescribeDirectConnectGateways+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeDirectConnectGateways" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeDirectConnectGateways where+        toJSON DescribeDirectConnectGateways'{..}+          = object+              (catMaybes+                 [("directConnectGatewayId" .=) <$>+                    _ddcgDirectConnectGatewayId,+                  ("nextToken" .=) <$> _ddcgNextToken,+                  ("maxResults" .=) <$> _ddcgMaxResults])++instance ToPath DescribeDirectConnectGateways where+        toPath = const "/"++instance ToQuery DescribeDirectConnectGateways where+        toQuery = const mempty++-- | Container for the response from the DescribeDirectConnectGateways API call+--+--+--+-- /See:/ 'describeDirectConnectGatewaysResponse' smart constructor.+data DescribeDirectConnectGatewaysResponse = DescribeDirectConnectGatewaysResponse'+  { _ddcgrsDirectConnectGateways :: !(Maybe [DirectConnectGateway])+  , _ddcgrsNextToken             :: !(Maybe Text)+  , _ddcgrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeDirectConnectGatewaysResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ddcgrsDirectConnectGateways' - Information about the direct connect gateways.+--+-- * 'ddcgrsNextToken' - Undocumented member.+--+-- * 'ddcgrsResponseStatus' - -- | The response status code.+describeDirectConnectGatewaysResponse+    :: Int -- ^ 'ddcgrsResponseStatus'+    -> DescribeDirectConnectGatewaysResponse+describeDirectConnectGatewaysResponse pResponseStatus_ =+  DescribeDirectConnectGatewaysResponse'+  { _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;++-- | Undocumented member.+ddcgrsNextToken :: Lens' DescribeDirectConnectGatewaysResponse (Maybe Text)+ddcgrsNextToken = lens _ddcgrsNextToken (\ s a -> s{_ddcgrsNextToken = a});++-- | -- | The response status code.+ddcgrsResponseStatus :: Lens' DescribeDirectConnectGatewaysResponse Int+ddcgrsResponseStatus = lens _ddcgrsResponseStatus (\ s a -> s{_ddcgrsResponseStatus = a});++instance NFData DescribeDirectConnectGatewaysResponse+         where

@@ -0,0 +1,101 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeHostedConnections+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns a list of hosted connections that have been provisioned on the given interconnect or link aggregation group (LAG).+--+--+module Network.AWS.DirectConnect.DescribeHostedConnections+    (+    -- * Creating a Request+      describeHostedConnections+    , DescribeHostedConnections+    -- * Request Lenses+    , dhcConnectionId++    -- * Destructuring the Response+    , connections+    , Connections+    -- * Response Lenses+    , cConnections+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeHostedConnections operation.+--+--+--+-- /See:/ 'describeHostedConnections' smart constructor.+newtype DescribeHostedConnections = DescribeHostedConnections'+  { _dhcConnectionId :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeHostedConnections' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhcConnectionId' - The ID of the interconnect or LAG on which the hosted connections are provisioned. Example: dxcon-abc123 or dxlag-abc123 Default: None+describeHostedConnections+    :: Text -- ^ 'dhcConnectionId'+    -> DescribeHostedConnections+describeHostedConnections pConnectionId_ =+  DescribeHostedConnections' {_dhcConnectionId = pConnectionId_}+++-- | 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});++instance AWSRequest DescribeHostedConnections where+        type Rs DescribeHostedConnections = Connections+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable DescribeHostedConnections where++instance NFData DescribeHostedConnections where++instance ToHeaders DescribeHostedConnections where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeHostedConnections" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeHostedConnections where+        toJSON DescribeHostedConnections'{..}+          = object+              (catMaybes+                 [Just ("connectionId" .= _dhcConnectionId)])++instance ToPath DescribeHostedConnections where+        toPath = const "/"++instance ToQuery DescribeHostedConnections where+        toQuery = const mempty

@@ -1,165 +0,0 @@-{-# LANGUAGE DeriveDataTypeable #-}-{-# LANGUAGE DeriveGeneric      #-}-{-# LANGUAGE OverloadedStrings  #-}-{-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}--{-# OPTIONS_GHC -fno-warn-unused-imports #-}-{-# OPTIONS_GHC -fno-warn-unused-binds   #-}-{-# OPTIONS_GHC -fno-warn-unused-matches #-}---- Derived from AWS service descriptions, licensed under Apache 2.0.---- |--- Module      : Network.AWS.DirectConnect.DescribeInterconnectLoa--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)------ Returns the LOA-CFA for an Interconnect.--------- The Letter of Authorization - Connecting Facility Assignment (LOA-CFA) is a document that is used when establishing your cross connect to AWS at the colocation facility. For more information, see <http://docs.aws.amazon.com/directconnect/latest/UserGuide/Colocation.html Requesting Cross Connects at AWS Direct Connect Locations> in the AWS Direct Connect user guide.----module Network.AWS.DirectConnect.DescribeInterconnectLoa-    (-    -- * Creating a Request-      describeInterconnectLoa-    , DescribeInterconnectLoa-    -- * Request Lenses-    , dilLoaContentType-    , dilProviderName-    , dilInterconnectId--    -- * Destructuring the Response-    , describeInterconnectLoaResponse-    , DescribeInterconnectLoaResponse-    -- * Response Lenses-    , dilrsLoa-    , dilrsResponseStatus-    ) where--import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response---- | Container for the parameters to the DescribeInterconnectLoa operation.------------ /See:/ 'describeInterconnectLoa' smart constructor.-data DescribeInterconnectLoa = DescribeInterconnectLoa'-    { _dilLoaContentType :: !(Maybe LoaContentType)-    , _dilProviderName   :: !(Maybe Text)-    , _dilInterconnectId :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeInterconnectLoa' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dilLoaContentType' - Undocumented member.------ * 'dilProviderName' - The name of the service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None------ * 'dilInterconnectId' - Undocumented member.-describeInterconnectLoa-    :: Text -- ^ 'dilInterconnectId'-    -> DescribeInterconnectLoa-describeInterconnectLoa pInterconnectId_ =-    DescribeInterconnectLoa'-    { _dilLoaContentType = Nothing-    , _dilProviderName = Nothing-    , _dilInterconnectId = pInterconnectId_-    }---- | Undocumented member.-dilLoaContentType :: Lens' DescribeInterconnectLoa (Maybe LoaContentType)-dilLoaContentType = lens _dilLoaContentType (\ s a -> s{_dilLoaContentType = a});---- | The name of the service provider who establishes connectivity on your behalf. If you supply this parameter, the LOA-CFA lists the provider name alongside your company name as the requester of the cross connect. Default: None-dilProviderName :: Lens' DescribeInterconnectLoa (Maybe Text)-dilProviderName = lens _dilProviderName (\ s a -> s{_dilProviderName = a});---- | Undocumented member.-dilInterconnectId :: Lens' DescribeInterconnectLoa Text-dilInterconnectId = lens _dilInterconnectId (\ s a -> s{_dilInterconnectId = a});--instance AWSRequest DescribeInterconnectLoa where-        type Rs DescribeInterconnectLoa =-             DescribeInterconnectLoaResponse-        request = postJSON directConnect-        response-          = receiveJSON-              (\ s h x ->-                 DescribeInterconnectLoaResponse' <$>-                   (x .?> "loa") <*> (pure (fromEnum s)))--instance Hashable DescribeInterconnectLoa--instance NFData DescribeInterconnectLoa--instance ToHeaders DescribeInterconnectLoa where-        toHeaders-          = const-              (mconcat-                 ["X-Amz-Target" =#-                    ("OvertureService.DescribeInterconnectLoa" ::-                       ByteString),-                  "Content-Type" =#-                    ("application/x-amz-json-1.1" :: ByteString)])--instance ToJSON DescribeInterconnectLoa where-        toJSON DescribeInterconnectLoa'{..}-          = object-              (catMaybes-                 [("loaContentType" .=) <$> _dilLoaContentType,-                  ("providerName" .=) <$> _dilProviderName,-                  Just ("interconnectId" .= _dilInterconnectId)])--instance ToPath DescribeInterconnectLoa where-        toPath = const "/"--instance ToQuery DescribeInterconnectLoa where-        toQuery = const mempty---- | The response received when DescribeInterconnectLoa is called.------------ /See:/ 'describeInterconnectLoaResponse' smart constructor.-data DescribeInterconnectLoaResponse = DescribeInterconnectLoaResponse'-    { _dilrsLoa            :: !(Maybe Loa)-    , _dilrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'DescribeInterconnectLoaResponse' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'dilrsLoa' - Undocumented member.------ * 'dilrsResponseStatus' - -- | The response status code.-describeInterconnectLoaResponse-    :: Int -- ^ 'dilrsResponseStatus'-    -> DescribeInterconnectLoaResponse-describeInterconnectLoaResponse pResponseStatus_ =-    DescribeInterconnectLoaResponse'-    { _dilrsLoa = Nothing-    , _dilrsResponseStatus = pResponseStatus_-    }---- | Undocumented member.-dilrsLoa :: Lens' DescribeInterconnectLoaResponse (Maybe Loa)-dilrsLoa = lens _dilrsLoa (\ s a -> s{_dilrsLoa = a});---- | -- | The response status code.-dilrsResponseStatus :: Lens' DescribeInterconnectLoaResponse Int-dilrsResponseStatus = lens _dilrsResponseStatus (\ s a -> s{_dilrsResponseStatus = a});--instance NFData DescribeInterconnectLoaResponse

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeInterconnects--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , dirsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DescribeInterconnects operation. --@@ -52,9 +52,10 @@ -- -- /See:/ 'describeInterconnects' smart constructor. newtype DescribeInterconnects = DescribeInterconnects'-    { _diInterconnectId :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _diInterconnectId :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInterconnects' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,9 @@ -- * 'diInterconnectId' - Undocumented member. describeInterconnects     :: DescribeInterconnects-describeInterconnects =-    DescribeInterconnects'-    { _diInterconnectId = Nothing-    }+describeInterconnects = DescribeInterconnects' {_diInterconnectId = Nothing} + -- | Undocumented member. diInterconnectId :: Lens' DescribeInterconnects (Maybe Text) diInterconnectId = lens _diInterconnectId (\ s a -> s{_diInterconnectId = a});@@ -82,9 +81,9 @@                    (x .?> "interconnects" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeInterconnects+instance Hashable DescribeInterconnects where -instance NFData DescribeInterconnects+instance NFData DescribeInterconnects where  instance ToHeaders DescribeInterconnects where         toHeaders@@ -114,10 +113,11 @@ -- -- /See:/ 'describeInterconnectsResponse' smart constructor. data DescribeInterconnectsResponse = DescribeInterconnectsResponse'-    { _dirsInterconnects  :: !(Maybe [Interconnect])-    , _dirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dirsInterconnects  :: !(Maybe [Interconnect])+  , _dirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInterconnectsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +129,10 @@     :: Int -- ^ 'dirsResponseStatus'     -> DescribeInterconnectsResponse describeInterconnectsResponse pResponseStatus_ =-    DescribeInterconnectsResponse'-    { _dirsInterconnects = Nothing-    , _dirsResponseStatus = pResponseStatus_-    }+  DescribeInterconnectsResponse'+  {_dirsInterconnects = Nothing, _dirsResponseStatus = pResponseStatus_} + -- | A list of interconnects. dirsInterconnects :: Lens' DescribeInterconnectsResponse [Interconnect] dirsInterconnects = lens _dirsInterconnects (\ s a -> s{_dirsInterconnects = a}) . _Default . _Coerce;@@ -142,4 +141,4 @@ dirsResponseStatus :: Lens' DescribeInterconnectsResponse Int dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); -instance NFData DescribeInterconnectsResponse+instance NFData DescribeInterconnectsResponse where

@@ -0,0 +1,139 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeLags+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the link aggregation groups (LAGs) in your account.+--+--+-- If a LAG ID is provided, only information about the specified LAG is returned.+--+module Network.AWS.DirectConnect.DescribeLags+    (+    -- * Creating a Request+      describeLags+    , DescribeLags+    -- * Request Lenses+    , dlLagId++    -- * Destructuring the Response+    , describeLagsResponse+    , DescribeLagsResponse+    -- * Response Lenses+    , desrsLags+    , desrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeLags operation.+--+--+--+-- /See:/ 'describeLags' smart constructor.+newtype DescribeLags = DescribeLags'+  { _dlLagId :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeLags' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlLagId' - The ID of the LAG. Example: dxlag-abc123 Default: None+describeLags+    :: DescribeLags+describeLags = DescribeLags' {_dlLagId = Nothing}+++-- | The ID of the LAG. Example: dxlag-abc123 Default: None+dlLagId :: Lens' DescribeLags (Maybe Text)+dlLagId = lens _dlLagId (\ s a -> s{_dlLagId = a});++instance AWSRequest DescribeLags where+        type Rs DescribeLags = DescribeLagsResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeLagsResponse' <$>+                   (x .?> "lags" .!@ mempty) <*> (pure (fromEnum s)))++instance Hashable DescribeLags where++instance NFData DescribeLags where++instance ToHeaders DescribeLags where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeLags" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeLags where+        toJSON DescribeLags'{..}+          = object (catMaybes [("lagId" .=) <$> _dlLagId])++instance ToPath DescribeLags where+        toPath = const "/"++instance ToQuery DescribeLags where+        toQuery = const mempty++-- | A structure containing a list of LAGs.+--+--+--+-- /See:/ 'describeLagsResponse' smart constructor.+data DescribeLagsResponse = DescribeLagsResponse'+  { _desrsLags           :: !(Maybe [Lag])+  , _desrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeLagsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'desrsLags' - A list of LAGs.+--+-- * 'desrsResponseStatus' - -- | The response status code.+describeLagsResponse+    :: Int -- ^ 'desrsResponseStatus'+    -> DescribeLagsResponse+describeLagsResponse pResponseStatus_ =+  DescribeLagsResponse'+  {_desrsLags = Nothing, _desrsResponseStatus = pResponseStatus_}+++-- | A list of LAGs.+desrsLags :: Lens' DescribeLagsResponse [Lag]+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});++instance NFData DescribeLagsResponse where

@@ -0,0 +1,177 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DescribeLoa+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Returns the LOA-CFA for a connection, interconnect, or link aggregation group (LAG).+--+--+-- The Letter of Authorization - Connecting Facility Assignment (LOA-CFA) is a document that is used when establishing your cross connect to AWS at the colocation facility. For more information, see <http://docs.aws.amazon.com/directconnect/latest/UserGuide/Colocation.html Requesting Cross Connects at AWS Direct Connect Locations> in the AWS Direct Connect user guide.+--+module Network.AWS.DirectConnect.DescribeLoa+    (+    -- * Creating a Request+      describeLoa+    , DescribeLoa+    -- * Request Lenses+    , dlLoaContentType+    , dlProviderName+    , dlConnectionId++    -- * Destructuring the Response+    , describeLoaResponse+    , DescribeLoaResponse+    -- * Response Lenses+    , dlrsLoaContent+    , dlrsLoaContentType+    , dlrsResponseStatus+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DescribeLoa operation.+--+--+--+-- /See:/ 'describeLoa' smart constructor.+data DescribeLoa = DescribeLoa'+  { _dlLoaContentType :: !(Maybe LoaContentType)+  , _dlProviderName   :: !(Maybe Text)+  , _dlConnectionId   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeLoa' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlLoaContentType' - A standard media type indicating the content type of the LOA-CFA document. Currently, the only supported value is "application/pdf". Default: application/pdf+--+-- * 'dlProviderName' - 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+--+-- * 'dlConnectionId' - The ID of a connection, LAG, or interconnect for which to get the LOA-CFA information. Example: dxcon-abc123 or dxlag-abc123 Default: None+describeLoa+    :: Text -- ^ 'dlConnectionId'+    -> DescribeLoa+describeLoa pConnectionId_ =+  DescribeLoa'+  { _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});++-- | 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});++-- | 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});++instance AWSRequest DescribeLoa where+        type Rs DescribeLoa = DescribeLoaResponse+        request = postJSON directConnect+        response+          = receiveJSON+              (\ s h x ->+                 DescribeLoaResponse' <$>+                   (x .?> "loaContent") <*> (x .?> "loaContentType") <*>+                     (pure (fromEnum s)))++instance Hashable DescribeLoa where++instance NFData DescribeLoa where++instance ToHeaders DescribeLoa where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DescribeLoa" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeLoa where+        toJSON DescribeLoa'{..}+          = object+              (catMaybes+                 [("loaContentType" .=) <$> _dlLoaContentType,+                  ("providerName" .=) <$> _dlProviderName,+                  Just ("connectionId" .= _dlConnectionId)])++instance ToPath DescribeLoa where+        toPath = const "/"++instance ToQuery DescribeLoa where+        toQuery = const mempty++-- | A structure containing the Letter of Authorization - Connecting Facility Assignment (LOA-CFA) for a connection.+--+--+--+-- /See:/ 'describeLoaResponse' smart constructor.+data DescribeLoaResponse = DescribeLoaResponse'+  { _dlrsLoaContent     :: !(Maybe Base64)+  , _dlrsLoaContentType :: !(Maybe LoaContentType)+  , _dlrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeLoaResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dlrsLoaContent' - 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.+--+-- * 'dlrsLoaContentType' - Undocumented member.+--+-- * 'dlrsResponseStatus' - -- | The response status code.+describeLoaResponse+    :: Int -- ^ 'dlrsResponseStatus'+    -> DescribeLoaResponse+describeLoaResponse pResponseStatus_ =+  DescribeLoaResponse'+  { _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;++-- | Undocumented member.+dlrsLoaContentType :: Lens' DescribeLoaResponse (Maybe LoaContentType)+dlrsLoaContentType = lens _dlrsLoaContentType (\ s a -> s{_dlrsLoaContentType = a});++-- | -- | The response status code.+dlrsResponseStatus :: Lens' DescribeLoaResponse Int+dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});++instance NFData DescribeLoaResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeLocations--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the list of AWS Direct Connect locations in the current AWS region. These are the locations that may be selected when calling CreateConnection or CreateInterconnect.+-- Returns the list of AWS Direct Connect locations in the current AWS region. These are the locations that may be selected when calling 'CreateConnection' or 'CreateInterconnect' . -- -- module Network.AWS.DirectConnect.DescribeLocations@@ -31,28 +31,30 @@     , describeLocationsResponse     , DescribeLocationsResponse     -- * Response Lenses-    , dlrsLocations-    , dlrsResponseStatus+    , dlsrsLocations+    , dlsrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeLocations' smart constructor. data DescribeLocations =-    DescribeLocations'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeLocations'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLocations' with the minimum fields required to make a request. -- describeLocations     :: DescribeLocations describeLocations = DescribeLocations' + instance AWSRequest DescribeLocations where         type Rs DescribeLocations = DescribeLocationsResponse         request = postJSON directConnect@@ -63,9 +65,9 @@                    (x .?> "locations" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeLocations+instance Hashable DescribeLocations where -instance NFData DescribeLocations+instance NFData DescribeLocations where  instance ToHeaders DescribeLocations where         toHeaders@@ -91,32 +93,32 @@ -- -- /See:/ 'describeLocationsResponse' smart constructor. data DescribeLocationsResponse = DescribeLocationsResponse'-    { _dlrsLocations      :: !(Maybe [Location])-    , _dlrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dlsrsLocations      :: !(Maybe [Location])+  , _dlsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLocationsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dlrsLocations' - A list of colocation hubs where network providers have equipment. Most regions have multiple locations available.+-- * 'dlsrsLocations' - A list of colocation hubs where network providers have equipment. Most regions have multiple locations available. ----- * 'dlrsResponseStatus' - -- | The response status code.+-- * 'dlsrsResponseStatus' - -- | The response status code. describeLocationsResponse-    :: Int -- ^ 'dlrsResponseStatus'+    :: Int -- ^ 'dlsrsResponseStatus'     -> DescribeLocationsResponse describeLocationsResponse pResponseStatus_ =-    DescribeLocationsResponse'-    { _dlrsLocations = Nothing-    , _dlrsResponseStatus = pResponseStatus_-    }+  DescribeLocationsResponse'+  {_dlsrsLocations = Nothing, _dlsrsResponseStatus = pResponseStatus_} + -- | A list of colocation hubs where network providers have equipment. Most regions have multiple locations available.-dlrsLocations :: Lens' DescribeLocationsResponse [Location]-dlrsLocations = lens _dlrsLocations (\ s a -> s{_dlrsLocations = a}) . _Default . _Coerce;+dlsrsLocations :: Lens' DescribeLocationsResponse [Location]+dlsrsLocations = lens _dlsrsLocations (\ s a -> s{_dlsrsLocations = a}) . _Default . _Coerce;  -- | -- | The response status code.-dlrsResponseStatus :: Lens' DescribeLocationsResponse Int-dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});+dlsrsResponseStatus :: Lens' DescribeLocationsResponse Int+dlsrsResponseStatus = lens _dlsrsResponseStatus (\ s a -> s{_dlsrsResponseStatus = a}); -instance NFData DescribeLocationsResponse+instance NFData DescribeLocationsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeTags--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , dtrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DescribeTags operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeTags' smart constructor. newtype DescribeTags = DescribeTags'-    { _dtResourceARNs :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtResourceARNs :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,11 +61,9 @@ -- * 'dtResourceARNs' - The Amazon Resource Names (ARNs) of the Direct Connect resources. describeTags     :: DescribeTags-describeTags =-    DescribeTags'-    { _dtResourceARNs = mempty-    }+describeTags = DescribeTags' {_dtResourceARNs = mempty} + -- | The Amazon Resource Names (ARNs) of the Direct Connect resources. dtResourceARNs :: Lens' DescribeTags [Text] dtResourceARNs = lens _dtResourceARNs (\ s a -> s{_dtResourceARNs = a}) . _Coerce;@@ -79,9 +78,9 @@                    (x .?> "resourceTags" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeTags+instance Hashable DescribeTags where -instance NFData DescribeTags+instance NFData DescribeTags where  instance ToHeaders DescribeTags where         toHeaders@@ -110,10 +109,11 @@ -- -- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'-    { _dtrsResourceTags   :: !(Maybe [ResourceTag])-    , _dtrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtrsResourceTags   :: !(Maybe [ResourceTag])+  , _dtrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +125,10 @@     :: Int -- ^ 'dtrsResponseStatus'     -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =-    DescribeTagsResponse'-    { _dtrsResourceTags = Nothing-    , _dtrsResponseStatus = pResponseStatus_-    }+  DescribeTagsResponse'+  {_dtrsResourceTags = Nothing, _dtrsResponseStatus = pResponseStatus_} + -- | Information about the tags. dtrsResourceTags :: Lens' DescribeTagsResponse [ResourceTag] dtrsResourceTags = lens _dtrsResourceTags (\ s a -> s{_dtrsResourceTags = a}) . _Default . _Coerce;@@ -138,4 +137,4 @@ dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DescribeTagsResponse+instance NFData DescribeTagsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeVirtualGateways--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,24 +37,26 @@     , dvgrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | /See:/ 'describeVirtualGateways' smart constructor. data DescribeVirtualGateways =-    DescribeVirtualGateways'-    deriving (Eq,Read,Show,Data,Typeable,Generic)+  DescribeVirtualGateways'+  deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVirtualGateways' with the minimum fields required to make a request. -- describeVirtualGateways     :: DescribeVirtualGateways describeVirtualGateways = DescribeVirtualGateways' + instance AWSRequest DescribeVirtualGateways where         type Rs DescribeVirtualGateways =              DescribeVirtualGatewaysResponse@@ -66,9 +68,9 @@                    (x .?> "virtualGateways" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeVirtualGateways+instance Hashable DescribeVirtualGateways where -instance NFData DescribeVirtualGateways+instance NFData DescribeVirtualGateways where  instance ToHeaders DescribeVirtualGateways where         toHeaders@@ -95,10 +97,11 @@ -- -- /See:/ 'describeVirtualGatewaysResponse' smart constructor. data DescribeVirtualGatewaysResponse = DescribeVirtualGatewaysResponse'-    { _dvgrsVirtualGateways :: !(Maybe [VirtualGateway])-    , _dvgrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvgrsVirtualGateways :: !(Maybe [VirtualGateway])+  , _dvgrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVirtualGatewaysResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -110,11 +113,10 @@     :: Int -- ^ 'dvgrsResponseStatus'     -> DescribeVirtualGatewaysResponse describeVirtualGatewaysResponse pResponseStatus_ =-    DescribeVirtualGatewaysResponse'-    { _dvgrsVirtualGateways = Nothing-    , _dvgrsResponseStatus = pResponseStatus_-    }+  DescribeVirtualGatewaysResponse'+  {_dvgrsVirtualGateways = Nothing, _dvgrsResponseStatus = pResponseStatus_} + -- | A list of virtual private gateways. dvgrsVirtualGateways :: Lens' DescribeVirtualGatewaysResponse [VirtualGateway] dvgrsVirtualGateways = lens _dvgrsVirtualGateways (\ s a -> s{_dvgrsVirtualGateways = a}) . _Default . _Coerce;@@ -123,4 +125,4 @@ dvgrsResponseStatus :: Lens' DescribeVirtualGatewaysResponse Int dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a}); -instance NFData DescribeVirtualGatewaysResponse+instance NFData DescribeVirtualGatewaysResponse where

@@ -12,19 +12,17 @@  -- | -- Module      : Network.AWS.DirectConnect.DescribeVirtualInterfaces--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Displays all virtual interfaces for an AWS account. Virtual interfaces deleted fewer than 15 minutes before DescribeVirtualInterfaces is called are also returned. If a connection ID is included then only virtual interfaces associated with this connection will be returned. If a virtual interface ID is included then only a single virtual interface will be returned.+-- Displays all virtual interfaces for an AWS account. Virtual interfaces deleted fewer than 15 minutes before you make the request are also returned. If you specify a connection ID, only the virtual interfaces associated with the connection are returned. If you specify a virtual interface ID, then only a single virtual interface is returned. -- -- -- A virtual interface (VLAN) transmits the traffic between the AWS Direct Connect location and the customer. ----- If a connection ID is provided, only virtual interfaces provisioned on the specified connection will be returned. If a virtual interface ID is provided, only this particular virtual interface will be returned.--- module Network.AWS.DirectConnect.DescribeVirtualInterfaces     (     -- * Creating a Request@@ -42,12 +40,12 @@     , dvisrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the DescribeVirtualInterfaces operation. --@@ -55,10 +53,11 @@ -- -- /See:/ 'describeVirtualInterfaces' smart constructor. data DescribeVirtualInterfaces = DescribeVirtualInterfaces'-    { _dviConnectionId       :: !(Maybe Text)-    , _dviVirtualInterfaceId :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dviConnectionId       :: !(Maybe Text)+  , _dviVirtualInterfaceId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVirtualInterfaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +68,10 @@ describeVirtualInterfaces     :: DescribeVirtualInterfaces describeVirtualInterfaces =-    DescribeVirtualInterfaces'-    { _dviConnectionId = Nothing-    , _dviVirtualInterfaceId = Nothing-    }+  DescribeVirtualInterfaces'+  {_dviConnectionId = Nothing, _dviVirtualInterfaceId = Nothing} + -- | Undocumented member. dviConnectionId :: Lens' DescribeVirtualInterfaces (Maybe Text) dviConnectionId = lens _dviConnectionId (\ s a -> s{_dviConnectionId = a});@@ -93,9 +91,9 @@                    (x .?> "virtualInterfaces" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeVirtualInterfaces+instance Hashable DescribeVirtualInterfaces where -instance NFData DescribeVirtualInterfaces+instance NFData DescribeVirtualInterfaces where  instance ToHeaders DescribeVirtualInterfaces where         toHeaders@@ -127,10 +125,11 @@ -- -- /See:/ 'describeVirtualInterfacesResponse' smart constructor. data DescribeVirtualInterfacesResponse = DescribeVirtualInterfacesResponse'-    { _dvisrsVirtualInterfaces :: !(Maybe [VirtualInterface])-    , _dvisrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvisrsVirtualInterfaces :: !(Maybe [VirtualInterface])+  , _dvisrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVirtualInterfacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,11 +141,10 @@     :: Int -- ^ 'dvisrsResponseStatus'     -> DescribeVirtualInterfacesResponse describeVirtualInterfacesResponse pResponseStatus_ =-    DescribeVirtualInterfacesResponse'-    { _dvisrsVirtualInterfaces = Nothing-    , _dvisrsResponseStatus = pResponseStatus_-    }+  DescribeVirtualInterfacesResponse'+  {_dvisrsVirtualInterfaces = Nothing, _dvisrsResponseStatus = pResponseStatus_} + -- | A list of virtual interfaces. dvisrsVirtualInterfaces :: Lens' DescribeVirtualInterfacesResponse [VirtualInterface] dvisrsVirtualInterfaces = lens _dvisrsVirtualInterfaces (\ s a -> s{_dvisrsVirtualInterfaces = a}) . _Default . _Coerce;@@ -156,3 +154,4 @@ dvisrsResponseStatus = lens _dvisrsResponseStatus (\ s a -> s{_dvisrsResponseStatus = a});  instance NFData DescribeVirtualInterfacesResponse+         where

@@ -0,0 +1,127 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.DirectConnect.DisassociateConnectionFromLag+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Disassociates a connection from a link aggregation group (LAG). The connection is interrupted and re-established as a standalone connection (the connection is not deleted; to delete the connection, use the 'DeleteConnection' request). If the LAG has associated virtual interfaces or hosted connections, they remain associated with the LAG. A disassociated connection owned by an AWS Direct Connect partner is automatically converted to an interconnect.+--+--+-- If disassociating the connection will cause the LAG to fall below its setting for minimum number of operational connections, the request fails, except when it's the last member of the LAG. If all connections are disassociated, the LAG continues to exist as an empty LAG with no physical connections.+--+module Network.AWS.DirectConnect.DisassociateConnectionFromLag+    (+    -- * Creating a Request+      disassociateConnectionFromLag+    , DisassociateConnectionFromLag+    -- * Request Lenses+    , dcflConnectionId+    , dcflLagId++    -- * Destructuring the Response+    , connection+    , Connection+    -- * Response Lenses+    , cLagId+    , cVlan+    , cLocation+    , cAwsDevice+    , cConnectionId+    , cLoaIssueTime+    , cPartnerName+    , cConnectionName+    , cBandwidth+    , cOwnerAccount+    , cRegion+    , cConnectionState+    ) where++import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response++-- | Container for the parameters to the DisassociateConnectionFromLag operation.+--+--+--+-- /See:/ 'disassociateConnectionFromLag' smart constructor.+data DisassociateConnectionFromLag = DisassociateConnectionFromLag'+  { _dcflConnectionId :: !Text+  , _dcflLagId        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DisassociateConnectionFromLag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcflConnectionId' - The ID of the connection to disassociate from the LAG. Example: dxcon-abc123 Default: None+--+-- * 'dcflLagId' - The ID of the LAG. Example: dxlag-abc123 Default: None+disassociateConnectionFromLag+    :: Text -- ^ 'dcflConnectionId'+    -> Text -- ^ 'dcflLagId'+    -> DisassociateConnectionFromLag+disassociateConnectionFromLag pConnectionId_ pLagId_ =+  DisassociateConnectionFromLag'+  {_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});++-- | The ID of the LAG. Example: dxlag-abc123 Default: None+dcflLagId :: Lens' DisassociateConnectionFromLag Text+dcflLagId = lens _dcflLagId (\ s a -> s{_dcflLagId = a});++instance AWSRequest DisassociateConnectionFromLag+         where+        type Rs DisassociateConnectionFromLag = Connection+        request = postJSON directConnect+        response = receiveJSON (\ s h x -> eitherParseJSON x)++instance Hashable DisassociateConnectionFromLag where++instance NFData DisassociateConnectionFromLag where++instance ToHeaders DisassociateConnectionFromLag+         where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("OvertureService.DisassociateConnectionFromLag" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DisassociateConnectionFromLag where+        toJSON DisassociateConnectionFromLag'{..}+          = object+              (catMaybes+                 [Just ("connectionId" .= _dcflConnectionId),+                  Just ("lagId" .= _dcflLagId)])++instance ToPath DisassociateConnectionFromLag where+        toPath = const "/"++instance ToQuery DisassociateConnectionFromLag where+        toQuery = const mempty

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.DirectConnect.TagResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , trrsResponseStatus     ) where -import           Network.AWS.DirectConnect.Types-import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response+import Network.AWS.DirectConnect.Types+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response  -- | Container for the parameters to the TagResource operation. --@@ -52,10 +52,11 @@ -- -- /See:/ 'tagResource' smart constructor. data TagResource = TagResource'-    { _trResourceARN :: !Text-    , _trTags        :: !(List1 Tag)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _trResourceARN :: !Text+  , _trTags        :: !(List1 Tag)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TagResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@     -> NonEmpty Tag -- ^ 'trTags'     -> TagResource tagResource pResourceARN_ pTags_ =-    TagResource'-    { _trResourceARN = pResourceARN_-    , _trTags = _List1 # pTags_-    }+  TagResource' {_trResourceARN = pResourceARN_, _trTags = _List1 # pTags_} + -- | The Amazon Resource Name (ARN) of the Direct Connect resource. Example: arn:aws:directconnect:us-east-1:123456789012:dxcon/dxcon-fg5678gh trResourceARN :: Lens' TagResource Text trResourceARN = lens _trResourceARN (\ s a -> s{_trResourceARN = a});@@ -89,9 +88,9 @@               (\ s h x ->                  TagResourceResponse' <$> (pure (fromEnum s))) -instance Hashable TagResource+instance Hashable TagResource where -instance NFData TagResource+instance NFData TagResource where  instance ToHeaders TagResource where         toHeaders@@ -121,9 +120,10 @@ -- -- /See:/ 'tagResourceResponse' smart constructor. newtype TagResourceResponse = TagResourceResponse'-    { _trrsResponseStatus :: Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _trrsResponseStatus :: Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TagResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -133,12 +133,11 @@     :: Int -- ^ 'trrsResponseStatus'     -> TagResourceResponse tagResourceResponse pResponseStatus_ =-    TagResourceResponse'-    { _trrsResponseStatus = pResponseStatus_-    }+  TagResourceResponse' {_trrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. trrsResponseStatus :: Lens' TagResourceResponse Int trrsResponseStatus = lens _trrsResponseStatus (\ s a -> s{_trrsResponseStatus = a}); -instance NFData TagResourceResponse+instance NFData TagResourceResponse where

@@ -4,9 +4,9 @@  -- | -- Module      : Network.AWS.DirectConnect.Types--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -33,9 +33,21 @@     -- * ConnectionState     , ConnectionState (..) +    -- * DirectConnectGatewayAssociationState+    , DirectConnectGatewayAssociationState (..)++    -- * DirectConnectGatewayAttachmentState+    , DirectConnectGatewayAttachmentState (..)++    -- * DirectConnectGatewayState+    , DirectConnectGatewayState (..)+     -- * InterconnectState     , InterconnectState (..) +    -- * LagState+    , LagState (..)+     -- * LoaContentType     , LoaContentType (..) @@ -56,8 +68,10 @@     -- * Connection     , Connection     , connection+    , cLagId     , cVlan     , cLocation+    , cAwsDevice     , cConnectionId     , cLoaIssueTime     , cPartnerName@@ -72,22 +86,64 @@     , connections     , cConnections +    -- * DirectConnectGateway+    , DirectConnectGateway+    , directConnectGateway+    , dcgDirectConnectGatewayId+    , dcgStateChangeError+    , dcgAmazonSideASN+    , dcgDirectConnectGatewayName+    , dcgDirectConnectGatewayState+    , dcgOwnerAccount++    -- * DirectConnectGatewayAssociation+    , DirectConnectGatewayAssociation+    , directConnectGatewayAssociation+    , dcgaVirtualGatewayId+    , dcgaDirectConnectGatewayId+    , dcgaVirtualGatewayOwnerAccount+    , dcgaStateChangeError+    , dcgaVirtualGatewayRegion+    , dcgaAssociationState++    -- * DirectConnectGatewayAttachment+    , DirectConnectGatewayAttachment+    , directConnectGatewayAttachment+    , dDirectConnectGatewayId+    , dAttachmentState+    , dStateChangeError+    , dVirtualInterfaceRegion+    , dVirtualInterfaceOwnerAccount+    , dVirtualInterfaceId+     -- * Interconnect     , Interconnect     , interconnect+    , iLagId     , iInterconnectId     , iLocation     , iInterconnectName+    , iAwsDevice     , iLoaIssueTime     , iBandwidth     , iInterconnectState     , iRegion -    -- * Loa-    , Loa-    , loa-    , loaLoaContent-    , loaLoaContentType+    -- * Lag+    , Lag+    , lag+    , lagLagId+    , lagConnectionsBandwidth+    , lagMinimumLinks+    , lagLagName+    , lagLocation+    , lagConnections+    , lagAwsDevice+    , lagAllowsHostedConnections+    , lagNumberOfConnections+    , lagLagState+    , lagOwnerAccount+    , lagRegion      -- * Location     , Location@@ -107,14 +163,15 @@     -- * NewPrivateVirtualInterface     , NewPrivateVirtualInterface     , newPrivateVirtualInterface+    , nVirtualGatewayId     , nCustomerAddress     , nAmazonAddress     , nAddressFamily+    , nDirectConnectGatewayId     , nAuthKey     , nVirtualInterfaceName     , nVlan     , nAsn-    , nVirtualGatewayId      -- * NewPrivateVirtualInterfaceAllocation     , NewPrivateVirtualInterfaceAllocation@@ -187,6 +244,8 @@     , viAddressFamily     , viVirtualInterfaceState     , viConnectionId+    , viDirectConnectGatewayId+    , viAmazonSideASN     , viVirtualInterfaceType     , viAsn     , viAuthKey@@ -196,38 +255,40 @@     , viVirtualInterfaceId     ) where -import           Network.AWS.DirectConnect.Types.Product-import           Network.AWS.DirectConnect.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Sign.V4+import Network.AWS.DirectConnect.Types.Product+import Network.AWS.DirectConnect.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4  -- | API version @2012-10-25@ of the Amazon Direct Connect SDK configuration. 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-    }+  Service+  { _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-        }+      Exponential+      { _retryBase = 5.0e-2+      , _retryGrowth = 2+      , _retryAttempts = 5+      , _retryCheck = check+      }     check e+      | has (hasCode "ThrottledException" . hasStatus 400) e =+        Just "throttled_exception"       | has (hasStatus 429) e = Just "too_many_requests"       | has (hasCode "ThrottlingException" . hasStatus 400) e =-          Just "throttling_exception"+        Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"       | has (hasStatus 502) e = Just "bad_gateway"@@ -236,29 +297,34 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing + -- | The API was called with invalid parameters. The error message will contain additional details about the cause. -- -- _DirectConnectClientException :: AsError a => Getting (First ServiceError) a ServiceError _DirectConnectClientException =-    _ServiceError . hasCode "DirectConnectClientException"+  _MatchServiceError directConnect "DirectConnectClientException" + -- | A tag key was specified more than once. -- -- _DuplicateTagKeysException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicateTagKeysException =-    _ServiceError . hasCode "DuplicateTagKeysException"+  _MatchServiceError directConnect "DuplicateTagKeysException" + -- | You have reached the limit on the number of tags that can be assigned to a Direct Connect resource. -- -- _TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError-_TooManyTagsException = _ServiceError . hasCode "TooManyTagsException"+_TooManyTagsException = _MatchServiceError directConnect "TooManyTagsException" + -- | A server-side error occurred during the API call. The error message will contain additional details about the cause. -- -- _DirectConnectServerException :: AsError a => Getting (First ServiceError) a ServiceError _DirectConnectServerException =-    _ServiceError . hasCode "DirectConnectServerException"+  _MatchServiceError directConnect "DirectConnectServerException"+

@@ -9,1270 +9,1692 @@  -- | -- Module      : Network.AWS.DirectConnect.Types.Product--- Copyright   : (c) 2013-2016 Brendan Hay--- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : auto-generated--- Portability : non-portable (GHC extensions)----module Network.AWS.DirectConnect.Types.Product where--import           Network.AWS.DirectConnect.Types.Sum-import           Network.AWS.Lens-import           Network.AWS.Prelude---- | A structure containing information about a BGP peer.------------ /See:/ 'bgpPeer' smart constructor.-data BGPPeer = BGPPeer'-    { _bpCustomerAddress :: !(Maybe Text)-    , _bpAmazonAddress   :: !(Maybe Text)-    , _bpAddressFamily   :: !(Maybe AddressFamily)-    , _bpBgpStatus       :: !(Maybe BGPStatus)-    , _bpAsn             :: !(Maybe Int)-    , _bpAuthKey         :: !(Maybe Text)-    , _bpBgpPeerState    :: !(Maybe BGPPeerState)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'BGPPeer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'bpCustomerAddress' - Undocumented member.------ * 'bpAmazonAddress' - Undocumented member.------ * 'bpAddressFamily' - Undocumented member.------ * 'bpBgpStatus' - Undocumented member.------ * 'bpAsn' - Undocumented member.------ * 'bpAuthKey' - Undocumented member.------ * 'bpBgpPeerState' - Undocumented member.-bgpPeer-    :: BGPPeer-bgpPeer =-    BGPPeer'-    { _bpCustomerAddress = Nothing-    , _bpAmazonAddress = Nothing-    , _bpAddressFamily = Nothing-    , _bpBgpStatus = Nothing-    , _bpAsn = Nothing-    , _bpAuthKey = Nothing-    , _bpBgpPeerState = Nothing-    }---- | Undocumented member.-bpCustomerAddress :: Lens' BGPPeer (Maybe Text)-bpCustomerAddress = lens _bpCustomerAddress (\ s a -> s{_bpCustomerAddress = a});---- | Undocumented member.-bpAmazonAddress :: Lens' BGPPeer (Maybe Text)-bpAmazonAddress = lens _bpAmazonAddress (\ s a -> s{_bpAmazonAddress = a});---- | Undocumented member.-bpAddressFamily :: Lens' BGPPeer (Maybe AddressFamily)-bpAddressFamily = lens _bpAddressFamily (\ s a -> s{_bpAddressFamily = a});---- | Undocumented member.-bpBgpStatus :: Lens' BGPPeer (Maybe BGPStatus)-bpBgpStatus = lens _bpBgpStatus (\ s a -> s{_bpBgpStatus = a});---- | Undocumented member.-bpAsn :: Lens' BGPPeer (Maybe Int)-bpAsn = lens _bpAsn (\ s a -> s{_bpAsn = a});---- | Undocumented member.-bpAuthKey :: Lens' BGPPeer (Maybe Text)-bpAuthKey = lens _bpAuthKey (\ s a -> s{_bpAuthKey = a});---- | Undocumented member.-bpBgpPeerState :: Lens' BGPPeer (Maybe BGPPeerState)-bpBgpPeerState = lens _bpBgpPeerState (\ s a -> s{_bpBgpPeerState = a});--instance FromJSON BGPPeer where-        parseJSON-          = withObject "BGPPeer"-              (\ x ->-                 BGPPeer' <$>-                   (x .:? "customerAddress") <*> (x .:? "amazonAddress")-                     <*> (x .:? "addressFamily")-                     <*> (x .:? "bgpStatus")-                     <*> (x .:? "asn")-                     <*> (x .:? "authKey")-                     <*> (x .:? "bgpPeerState"))--instance Hashable BGPPeer--instance NFData BGPPeer---- | A connection represents the physical network connection between the AWS Direct Connect location and the customer.------------ /See:/ 'connection' smart constructor.-data Connection = Connection'-    { _cVlan            :: !(Maybe Int)-    , _cLocation        :: !(Maybe Text)-    , _cConnectionId    :: !(Maybe Text)-    , _cLoaIssueTime    :: !(Maybe POSIX)-    , _cPartnerName     :: !(Maybe Text)-    , _cConnectionName  :: !(Maybe Text)-    , _cBandwidth       :: !(Maybe Text)-    , _cOwnerAccount    :: !(Maybe Text)-    , _cRegion          :: !(Maybe Text)-    , _cConnectionState :: !(Maybe ConnectionState)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Connection' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cVlan' - Undocumented member.------ * 'cLocation' - Undocumented member.------ * 'cConnectionId' - Undocumented member.------ * 'cLoaIssueTime' - The time of the most recent call to DescribeConnectionLoa for this Connection.------ * 'cPartnerName' - The name of the AWS Direct Connect service provider associated with the connection.------ * 'cConnectionName' - Undocumented member.------ * 'cBandwidth' - Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None------ * 'cOwnerAccount' - The AWS account that will own the new connection.------ * 'cRegion' - Undocumented member.------ * 'cConnectionState' - Undocumented member.-connection-    :: Connection-connection =-    Connection'-    { _cVlan = Nothing-    , _cLocation = Nothing-    , _cConnectionId = Nothing-    , _cLoaIssueTime = Nothing-    , _cPartnerName = Nothing-    , _cConnectionName = Nothing-    , _cBandwidth = Nothing-    , _cOwnerAccount = Nothing-    , _cRegion = Nothing-    , _cConnectionState = Nothing-    }---- | Undocumented member.-cVlan :: Lens' Connection (Maybe Int)-cVlan = lens _cVlan (\ s a -> s{_cVlan = a});---- | Undocumented member.-cLocation :: Lens' Connection (Maybe Text)-cLocation = lens _cLocation (\ s a -> s{_cLocation = a});---- | Undocumented member.-cConnectionId :: Lens' Connection (Maybe Text)-cConnectionId = lens _cConnectionId (\ s a -> s{_cConnectionId = a});---- | The time of the most recent call to DescribeConnectionLoa for this Connection.-cLoaIssueTime :: Lens' Connection (Maybe UTCTime)-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});---- | Undocumented member.-cConnectionName :: Lens' Connection (Maybe Text)-cConnectionName = lens _cConnectionName (\ s a -> s{_cConnectionName = a});---- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None-cBandwidth :: Lens' Connection (Maybe Text)-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});---- | Undocumented member.-cRegion :: Lens' Connection (Maybe Text)-cRegion = lens _cRegion (\ s a -> s{_cRegion = a});---- | Undocumented member.-cConnectionState :: Lens' Connection (Maybe ConnectionState)-cConnectionState = lens _cConnectionState (\ s a -> s{_cConnectionState = a});--instance FromJSON Connection where-        parseJSON-          = withObject "Connection"-              (\ x ->-                 Connection' <$>-                   (x .:? "vlan") <*> (x .:? "location") <*>-                     (x .:? "connectionId")-                     <*> (x .:? "loaIssueTime")-                     <*> (x .:? "partnerName")-                     <*> (x .:? "connectionName")-                     <*> (x .:? "bandwidth")-                     <*> (x .:? "ownerAccount")-                     <*> (x .:? "region")-                     <*> (x .:? "connectionState"))--instance Hashable Connection--instance NFData Connection---- | A structure containing a list of connections.------------ /See:/ 'connections' smart constructor.-newtype Connections = Connections'-    { _cConnections :: Maybe [Connection]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Connections' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'cConnections' - A list of connections.-connections-    :: Connections-connections =-    Connections'-    { _cConnections = Nothing-    }---- | A list of connections.-cConnections :: Lens' Connections [Connection]-cConnections = lens _cConnections (\ s a -> s{_cConnections = a}) . _Default . _Coerce;--instance FromJSON Connections where-        parseJSON-          = withObject "Connections"-              (\ x ->-                 Connections' <$> (x .:? "connections" .!= mempty))--instance Hashable Connections--instance NFData Connections---- | An interconnect is a connection that can host other connections.--------- Like a standard AWS Direct Connect connection, an interconnect represents the physical connection between an AWS Direct Connect partner's network and a specific Direct Connect location. An AWS Direct Connect partner who owns an interconnect can provision hosted connections on the interconnect for their end customers, thereby providing the end customers with connectivity to AWS services.------ The resources of the interconnect, including bandwidth and VLAN numbers, are shared by all of the hosted connections on the interconnect, and the owner of the interconnect determines how these resources are assigned.--------- /See:/ 'interconnect' smart constructor.-data Interconnect = Interconnect'-    { _iInterconnectId    :: !(Maybe Text)-    , _iLocation          :: !(Maybe Text)-    , _iInterconnectName  :: !(Maybe Text)-    , _iLoaIssueTime      :: !(Maybe POSIX)-    , _iBandwidth         :: !(Maybe Text)-    , _iInterconnectState :: !(Maybe InterconnectState)-    , _iRegion            :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Interconnect' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'iInterconnectId' - Undocumented member.------ * 'iLocation' - Undocumented member.------ * 'iInterconnectName' - Undocumented member.------ * 'iLoaIssueTime' - The time of the most recent call to DescribeInterconnectLoa for this Interconnect.------ * 'iBandwidth' - Undocumented member.------ * 'iInterconnectState' - Undocumented member.------ * 'iRegion' - Undocumented member.-interconnect-    :: Interconnect-interconnect =-    Interconnect'-    { _iInterconnectId = Nothing-    , _iLocation = Nothing-    , _iInterconnectName = Nothing-    , _iLoaIssueTime = Nothing-    , _iBandwidth = Nothing-    , _iInterconnectState = Nothing-    , _iRegion = Nothing-    }---- | Undocumented member.-iInterconnectId :: Lens' Interconnect (Maybe Text)-iInterconnectId = lens _iInterconnectId (\ s a -> s{_iInterconnectId = a});---- | Undocumented member.-iLocation :: Lens' Interconnect (Maybe Text)-iLocation = lens _iLocation (\ s a -> s{_iLocation = a});---- | Undocumented member.-iInterconnectName :: Lens' Interconnect (Maybe Text)-iInterconnectName = lens _iInterconnectName (\ s a -> s{_iInterconnectName = 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;---- | Undocumented member.-iBandwidth :: Lens' Interconnect (Maybe Text)-iBandwidth = lens _iBandwidth (\ s a -> s{_iBandwidth = a});---- | Undocumented member.-iInterconnectState :: Lens' Interconnect (Maybe InterconnectState)-iInterconnectState = lens _iInterconnectState (\ s a -> s{_iInterconnectState = a});---- | Undocumented member.-iRegion :: Lens' Interconnect (Maybe Text)-iRegion = lens _iRegion (\ s a -> s{_iRegion = a});--instance FromJSON Interconnect where-        parseJSON-          = withObject "Interconnect"-              (\ x ->-                 Interconnect' <$>-                   (x .:? "interconnectId") <*> (x .:? "location") <*>-                     (x .:? "interconnectName")-                     <*> (x .:? "loaIssueTime")-                     <*> (x .:? "bandwidth")-                     <*> (x .:? "interconnectState")-                     <*> (x .:? "region"))--instance Hashable Interconnect--instance NFData Interconnect---- | A structure containing the Letter of Authorization - Connecting Facility Assignment (LOA-CFA) for a connection.------------ /See:/ 'loa' smart constructor.-data Loa = Loa'-    { _loaLoaContent     :: !(Maybe Base64)-    , _loaLoaContentType :: !(Maybe LoaContentType)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Loa' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'loaLoaContent' - Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.------ * 'loaLoaContentType' - Undocumented member.-loa-    :: Loa-loa =-    Loa'-    { _loaLoaContent = Nothing-    , _loaLoaContentType = Nothing-    }---- | Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data.-loaLoaContent :: Lens' Loa (Maybe ByteString)-loaLoaContent = lens _loaLoaContent (\ s a -> s{_loaLoaContent = a}) . mapping _Base64;---- | Undocumented member.-loaLoaContentType :: Lens' Loa (Maybe LoaContentType)-loaLoaContentType = lens _loaLoaContentType (\ s a -> s{_loaLoaContentType = a});--instance FromJSON Loa where-        parseJSON-          = withObject "Loa"-              (\ x ->-                 Loa' <$>-                   (x .:? "loaContent") <*> (x .:? "loaContentType"))--instance Hashable Loa--instance NFData Loa---- | An AWS Direct Connect location where connections and interconnects can be requested.------------ /See:/ 'location' smart constructor.-data Location = Location'-    { _lLocationName :: !(Maybe Text)-    , _lLocationCode :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Location' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'lLocationName' - The name of the AWS Direct Connect location. The name includes the colocation partner name and the physical site of the lit building.------ * 'lLocationCode' - The code used to indicate the AWS Direct Connect location.-location-    :: Location-location =-    Location'-    { _lLocationName = Nothing-    , _lLocationCode = Nothing-    }---- | 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});---- | The code used to indicate the AWS Direct Connect location.-lLocationCode :: Lens' Location (Maybe Text)-lLocationCode = lens _lLocationCode (\ s a -> s{_lLocationCode = a});--instance FromJSON Location where-        parseJSON-          = withObject "Location"-              (\ x ->-                 Location' <$>-                   (x .:? "locationName") <*> (x .:? "locationCode"))--instance Hashable Location--instance NFData Location---- | A structure containing information about a new BGP peer.------------ /See:/ 'newBGPPeer' smart constructor.-data NewBGPPeer = NewBGPPeer'-    { _nbpCustomerAddress :: !(Maybe Text)-    , _nbpAmazonAddress   :: !(Maybe Text)-    , _nbpAddressFamily   :: !(Maybe AddressFamily)-    , _nbpAsn             :: !(Maybe Int)-    , _nbpAuthKey         :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'NewBGPPeer' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nbpCustomerAddress' - Undocumented member.------ * 'nbpAmazonAddress' - Undocumented member.------ * 'nbpAddressFamily' - Undocumented member.------ * 'nbpAsn' - Undocumented member.------ * 'nbpAuthKey' - Undocumented member.-newBGPPeer-    :: NewBGPPeer-newBGPPeer =-    NewBGPPeer'-    { _nbpCustomerAddress = Nothing-    , _nbpAmazonAddress = Nothing-    , _nbpAddressFamily = Nothing-    , _nbpAsn = Nothing-    , _nbpAuthKey = Nothing-    }---- | Undocumented member.-nbpCustomerAddress :: Lens' NewBGPPeer (Maybe Text)-nbpCustomerAddress = lens _nbpCustomerAddress (\ s a -> s{_nbpCustomerAddress = a});---- | Undocumented member.-nbpAmazonAddress :: Lens' NewBGPPeer (Maybe Text)-nbpAmazonAddress = lens _nbpAmazonAddress (\ s a -> s{_nbpAmazonAddress = a});---- | Undocumented member.-nbpAddressFamily :: Lens' NewBGPPeer (Maybe AddressFamily)-nbpAddressFamily = lens _nbpAddressFamily (\ s a -> s{_nbpAddressFamily = a});---- | Undocumented member.-nbpAsn :: Lens' NewBGPPeer (Maybe Int)-nbpAsn = lens _nbpAsn (\ s a -> s{_nbpAsn = a});---- | Undocumented member.-nbpAuthKey :: Lens' NewBGPPeer (Maybe Text)-nbpAuthKey = lens _nbpAuthKey (\ s a -> s{_nbpAuthKey = a});--instance Hashable NewBGPPeer--instance NFData NewBGPPeer--instance ToJSON NewBGPPeer where-        toJSON NewBGPPeer'{..}-          = object-              (catMaybes-                 [("customerAddress" .=) <$> _nbpCustomerAddress,-                  ("amazonAddress" .=) <$> _nbpAmazonAddress,-                  ("addressFamily" .=) <$> _nbpAddressFamily,-                  ("asn" .=) <$> _nbpAsn,-                  ("authKey" .=) <$> _nbpAuthKey])---- | A structure containing information about a new private virtual interface.------------ /See:/ 'newPrivateVirtualInterface' smart constructor.-data NewPrivateVirtualInterface = NewPrivateVirtualInterface'-    { _nCustomerAddress      :: !(Maybe Text)-    , _nAmazonAddress        :: !(Maybe Text)-    , _nAddressFamily        :: !(Maybe AddressFamily)-    , _nAuthKey              :: !(Maybe Text)-    , _nVirtualInterfaceName :: !Text-    , _nVlan                 :: !Int-    , _nAsn                  :: !Int-    , _nVirtualGatewayId     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'NewPrivateVirtualInterface' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'nCustomerAddress' - Undocumented member.------ * 'nAmazonAddress' - Undocumented member.------ * 'nAddressFamily' - Undocumented member.------ * 'nAuthKey' - Undocumented member.------ * 'nVirtualInterfaceName' - Undocumented member.------ * 'nVlan' - Undocumented member.------ * 'nAsn' - Undocumented member.------ * 'nVirtualGatewayId' - Undocumented member.-newPrivateVirtualInterface-    :: Text -- ^ 'nVirtualInterfaceName'-    -> Int -- ^ 'nVlan'-    -> Int -- ^ 'nAsn'-    -> Text -- ^ 'nVirtualGatewayId'-    -> NewPrivateVirtualInterface-newPrivateVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ pVirtualGatewayId_ =-    NewPrivateVirtualInterface'-    { _nCustomerAddress = Nothing-    , _nAmazonAddress = Nothing-    , _nAddressFamily = Nothing-    , _nAuthKey = Nothing-    , _nVirtualInterfaceName = pVirtualInterfaceName_-    , _nVlan = pVlan_-    , _nAsn = pAsn_-    , _nVirtualGatewayId = pVirtualGatewayId_-    }---- | Undocumented member.-nCustomerAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)-nCustomerAddress = lens _nCustomerAddress (\ s a -> s{_nCustomerAddress = a});---- | Undocumented member.-nAmazonAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)-nAmazonAddress = lens _nAmazonAddress (\ s a -> s{_nAmazonAddress = a});---- | Undocumented member.-nAddressFamily :: Lens' NewPrivateVirtualInterface (Maybe AddressFamily)-nAddressFamily = lens _nAddressFamily (\ s a -> s{_nAddressFamily = a});---- | Undocumented member.-nAuthKey :: Lens' NewPrivateVirtualInterface (Maybe Text)-nAuthKey = lens _nAuthKey (\ s a -> s{_nAuthKey = a});---- | Undocumented member.-nVirtualInterfaceName :: Lens' NewPrivateVirtualInterface Text-nVirtualInterfaceName = lens _nVirtualInterfaceName (\ s a -> s{_nVirtualInterfaceName = a});---- | Undocumented member.-nVlan :: Lens' NewPrivateVirtualInterface Int-nVlan = lens _nVlan (\ s a -> s{_nVlan = a});---- | Undocumented member.-nAsn :: Lens' NewPrivateVirtualInterface Int-nAsn = lens _nAsn (\ s a -> s{_nAsn = a});---- | Undocumented member.-nVirtualGatewayId :: Lens' NewPrivateVirtualInterface Text-nVirtualGatewayId = lens _nVirtualGatewayId (\ s a -> s{_nVirtualGatewayId = a});--instance Hashable NewPrivateVirtualInterface--instance NFData NewPrivateVirtualInterface--instance ToJSON NewPrivateVirtualInterface where-        toJSON NewPrivateVirtualInterface'{..}-          = object-              (catMaybes-                 [("customerAddress" .=) <$> _nCustomerAddress,-                  ("amazonAddress" .=) <$> _nAmazonAddress,-                  ("addressFamily" .=) <$> _nAddressFamily,-                  ("authKey" .=) <$> _nAuthKey,-                  Just-                    ("virtualInterfaceName" .= _nVirtualInterfaceName),-                  Just ("vlan" .= _nVlan), Just ("asn" .= _nAsn),-                  Just ("virtualGatewayId" .= _nVirtualGatewayId)])---- | A structure containing information about a private virtual interface that will be provisioned on a connection.------------ /See:/ 'newPrivateVirtualInterfaceAllocation' smart constructor.-data NewPrivateVirtualInterfaceAllocation = NewPrivateVirtualInterfaceAllocation'-    { _npviaCustomerAddress      :: !(Maybe Text)-    , _npviaAmazonAddress        :: !(Maybe Text)-    , _npviaAddressFamily        :: !(Maybe AddressFamily)-    , _npviaAuthKey              :: !(Maybe Text)-    , _npviaVirtualInterfaceName :: !Text-    , _npviaVlan                 :: !Int-    , _npviaAsn                  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'NewPrivateVirtualInterfaceAllocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'npviaCustomerAddress' - Undocumented member.------ * 'npviaAmazonAddress' - Undocumented member.------ * 'npviaAddressFamily' - Undocumented member.------ * 'npviaAuthKey' - Undocumented member.------ * 'npviaVirtualInterfaceName' - Undocumented member.------ * 'npviaVlan' - Undocumented member.------ * 'npviaAsn' - Undocumented member.-newPrivateVirtualInterfaceAllocation-    :: Text -- ^ 'npviaVirtualInterfaceName'-    -> Int -- ^ 'npviaVlan'-    -> Int -- ^ 'npviaAsn'-    -> NewPrivateVirtualInterfaceAllocation-newPrivateVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ =-    NewPrivateVirtualInterfaceAllocation'-    { _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});---- | Undocumented member.-npviaAmazonAddress :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)-npviaAmazonAddress = lens _npviaAmazonAddress (\ s a -> s{_npviaAmazonAddress = a});---- | Undocumented member.-npviaAddressFamily :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe AddressFamily)-npviaAddressFamily = lens _npviaAddressFamily (\ s a -> s{_npviaAddressFamily = a});---- | Undocumented member.-npviaAuthKey :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)-npviaAuthKey = lens _npviaAuthKey (\ s a -> s{_npviaAuthKey = a});---- | Undocumented member.-npviaVirtualInterfaceName :: Lens' NewPrivateVirtualInterfaceAllocation Text-npviaVirtualInterfaceName = lens _npviaVirtualInterfaceName (\ s a -> s{_npviaVirtualInterfaceName = a});---- | Undocumented member.-npviaVlan :: Lens' NewPrivateVirtualInterfaceAllocation Int-npviaVlan = lens _npviaVlan (\ s a -> s{_npviaVlan = a});---- | Undocumented member.-npviaAsn :: Lens' NewPrivateVirtualInterfaceAllocation Int-npviaAsn = lens _npviaAsn (\ s a -> s{_npviaAsn = a});--instance Hashable-         NewPrivateVirtualInterfaceAllocation--instance NFData NewPrivateVirtualInterfaceAllocation--instance ToJSON NewPrivateVirtualInterfaceAllocation-         where-        toJSON NewPrivateVirtualInterfaceAllocation'{..}-          = object-              (catMaybes-                 [("customerAddress" .=) <$> _npviaCustomerAddress,-                  ("amazonAddress" .=) <$> _npviaAmazonAddress,-                  ("addressFamily" .=) <$> _npviaAddressFamily,-                  ("authKey" .=) <$> _npviaAuthKey,-                  Just-                    ("virtualInterfaceName" .=-                       _npviaVirtualInterfaceName),-                  Just ("vlan" .= _npviaVlan),-                  Just ("asn" .= _npviaAsn)])---- | A structure containing information about a new public virtual interface.------------ /See:/ 'newPublicVirtualInterface' smart constructor.-data NewPublicVirtualInterface = NewPublicVirtualInterface'-    { _npviRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])-    , _npviCustomerAddress      :: !(Maybe Text)-    , _npviAmazonAddress        :: !(Maybe Text)-    , _npviAddressFamily        :: !(Maybe AddressFamily)-    , _npviAuthKey              :: !(Maybe Text)-    , _npviVirtualInterfaceName :: !Text-    , _npviVlan                 :: !Int-    , _npviAsn                  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'NewPublicVirtualInterface' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'npviRouteFilterPrefixes' - Undocumented member.------ * 'npviCustomerAddress' - Undocumented member.------ * 'npviAmazonAddress' - Undocumented member.------ * 'npviAddressFamily' - Undocumented member.------ * 'npviAuthKey' - Undocumented member.------ * 'npviVirtualInterfaceName' - Undocumented member.------ * 'npviVlan' - Undocumented member.------ * 'npviAsn' - Undocumented member.-newPublicVirtualInterface-    :: Text -- ^ 'npviVirtualInterfaceName'-    -> Int -- ^ 'npviVlan'-    -> Int -- ^ 'npviAsn'-    -> NewPublicVirtualInterface-newPublicVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ =-    NewPublicVirtualInterface'-    { _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;---- | Undocumented member.-npviCustomerAddress :: Lens' NewPublicVirtualInterface (Maybe Text)-npviCustomerAddress = lens _npviCustomerAddress (\ s a -> s{_npviCustomerAddress = a});---- | Undocumented member.-npviAmazonAddress :: Lens' NewPublicVirtualInterface (Maybe Text)-npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a});---- | Undocumented member.-npviAddressFamily :: Lens' NewPublicVirtualInterface (Maybe AddressFamily)-npviAddressFamily = lens _npviAddressFamily (\ s a -> s{_npviAddressFamily = a});---- | Undocumented member.-npviAuthKey :: Lens' NewPublicVirtualInterface (Maybe Text)-npviAuthKey = lens _npviAuthKey (\ s a -> s{_npviAuthKey = a});---- | Undocumented member.-npviVirtualInterfaceName :: Lens' NewPublicVirtualInterface Text-npviVirtualInterfaceName = lens _npviVirtualInterfaceName (\ s a -> s{_npviVirtualInterfaceName = a});---- | Undocumented member.-npviVlan :: Lens' NewPublicVirtualInterface Int-npviVlan = lens _npviVlan (\ s a -> s{_npviVlan = a});---- | Undocumented member.-npviAsn :: Lens' NewPublicVirtualInterface Int-npviAsn = lens _npviAsn (\ s a -> s{_npviAsn = a});--instance Hashable NewPublicVirtualInterface--instance NFData NewPublicVirtualInterface--instance ToJSON NewPublicVirtualInterface where-        toJSON NewPublicVirtualInterface'{..}-          = object-              (catMaybes-                 [("routeFilterPrefixes" .=) <$>-                    _npviRouteFilterPrefixes,-                  ("customerAddress" .=) <$> _npviCustomerAddress,-                  ("amazonAddress" .=) <$> _npviAmazonAddress,-                  ("addressFamily" .=) <$> _npviAddressFamily,-                  ("authKey" .=) <$> _npviAuthKey,-                  Just-                    ("virtualInterfaceName" .=-                       _npviVirtualInterfaceName),-                  Just ("vlan" .= _npviVlan),-                  Just ("asn" .= _npviAsn)])---- | A structure containing information about a public virtual interface that will be provisioned on a connection.------------ /See:/ 'newPublicVirtualInterfaceAllocation' smart constructor.-data NewPublicVirtualInterfaceAllocation = NewPublicVirtualInterfaceAllocation'-    { _newRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])-    , _newCustomerAddress      :: !(Maybe Text)-    , _newAmazonAddress        :: !(Maybe Text)-    , _newAddressFamily        :: !(Maybe AddressFamily)-    , _newAuthKey              :: !(Maybe Text)-    , _newVirtualInterfaceName :: !Text-    , _newVlan                 :: !Int-    , _newAsn                  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'NewPublicVirtualInterfaceAllocation' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'newRouteFilterPrefixes' - Undocumented member.------ * 'newCustomerAddress' - Undocumented member.------ * 'newAmazonAddress' - Undocumented member.------ * 'newAddressFamily' - Undocumented member.------ * 'newAuthKey' - Undocumented member.------ * 'newVirtualInterfaceName' - Undocumented member.------ * 'newVlan' - Undocumented member.------ * 'newAsn' - Undocumented member.-newPublicVirtualInterfaceAllocation-    :: Text -- ^ 'newVirtualInterfaceName'-    -> Int -- ^ 'newVlan'-    -> Int -- ^ 'newAsn'-    -> NewPublicVirtualInterfaceAllocation-newPublicVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ =-    NewPublicVirtualInterfaceAllocation'-    { _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;---- | Undocumented member.-newCustomerAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)-newCustomerAddress = lens _newCustomerAddress (\ s a -> s{_newCustomerAddress = a});---- | Undocumented member.-newAmazonAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)-newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a});---- | Undocumented member.-newAddressFamily :: Lens' NewPublicVirtualInterfaceAllocation (Maybe AddressFamily)-newAddressFamily = lens _newAddressFamily (\ s a -> s{_newAddressFamily = a});---- | Undocumented member.-newAuthKey :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)-newAuthKey = lens _newAuthKey (\ s a -> s{_newAuthKey = a});---- | Undocumented member.-newVirtualInterfaceName :: Lens' NewPublicVirtualInterfaceAllocation Text-newVirtualInterfaceName = lens _newVirtualInterfaceName (\ s a -> s{_newVirtualInterfaceName = a});---- | Undocumented member.-newVlan :: Lens' NewPublicVirtualInterfaceAllocation Int-newVlan = lens _newVlan (\ s a -> s{_newVlan = a});---- | Undocumented member.-newAsn :: Lens' NewPublicVirtualInterfaceAllocation Int-newAsn = lens _newAsn (\ s a -> s{_newAsn = a});--instance Hashable NewPublicVirtualInterfaceAllocation--instance NFData NewPublicVirtualInterfaceAllocation--instance ToJSON NewPublicVirtualInterfaceAllocation-         where-        toJSON NewPublicVirtualInterfaceAllocation'{..}-          = object-              (catMaybes-                 [("routeFilterPrefixes" .=) <$>-                    _newRouteFilterPrefixes,-                  ("customerAddress" .=) <$> _newCustomerAddress,-                  ("amazonAddress" .=) <$> _newAmazonAddress,-                  ("addressFamily" .=) <$> _newAddressFamily,-                  ("authKey" .=) <$> _newAuthKey,-                  Just-                    ("virtualInterfaceName" .= _newVirtualInterfaceName),-                  Just ("vlan" .= _newVlan), Just ("asn" .= _newAsn)])---- | The tags associated with a Direct Connect resource.------------ /See:/ 'resourceTag' smart constructor.-data ResourceTag = ResourceTag'-    { _rtResourceARN :: !(Maybe Text)-    , _rtTags        :: !(Maybe (List1 Tag))-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'ResourceTag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rtResourceARN' - The Amazon Resource Name (ARN) of the Direct Connect resource.------ * 'rtTags' - The tags.-resourceTag-    :: ResourceTag-resourceTag =-    ResourceTag'-    { _rtResourceARN = Nothing-    , _rtTags = Nothing-    }---- | The Amazon Resource Name (ARN) of the Direct Connect resource.-rtResourceARN :: Lens' ResourceTag (Maybe Text)-rtResourceARN = lens _rtResourceARN (\ s a -> s{_rtResourceARN = a});---- | The tags.-rtTags :: Lens' ResourceTag (Maybe (NonEmpty Tag))-rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . mapping _List1;--instance FromJSON ResourceTag where-        parseJSON-          = withObject "ResourceTag"-              (\ x ->-                 ResourceTag' <$>-                   (x .:? "resourceArn") <*> (x .:? "tags"))--instance Hashable ResourceTag--instance NFData ResourceTag---- | A route filter prefix that the customer can advertise through Border Gateway Protocol (BGP) over a public virtual interface.------------ /See:/ 'routeFilterPrefix' smart constructor.-newtype RouteFilterPrefix = RouteFilterPrefix'-    { _rfpCidr :: Maybe Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'RouteFilterPrefix' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'rfpCidr' - CIDR notation for the advertised route. Multiple routes are separated by commas. IPv6 CIDRs must be at least a /64 or shorter Example: 10.10.10.0/24,10.10.11.0/24,2001:db8::/64-routeFilterPrefix-    :: RouteFilterPrefix-routeFilterPrefix =-    RouteFilterPrefix'-    { _rfpCidr = Nothing-    }---- | 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});--instance FromJSON RouteFilterPrefix where-        parseJSON-          = withObject "RouteFilterPrefix"-              (\ x -> RouteFilterPrefix' <$> (x .:? "cidr"))--instance Hashable RouteFilterPrefix--instance NFData RouteFilterPrefix--instance ToJSON RouteFilterPrefix where-        toJSON RouteFilterPrefix'{..}-          = object (catMaybes [("cidr" .=) <$> _rfpCidr])---- | Information about a tag.------------ /See:/ 'tag' smart constructor.-data Tag = Tag'-    { _tagValue :: !(Maybe Text)-    , _tagKey   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'Tag' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'tagValue' - The value of the tag.------ * 'tagKey' - The key of the tag.-tag-    :: Text -- ^ 'tagKey'-    -> Tag-tag pKey_ =-    Tag'-    { _tagValue = Nothing-    , _tagKey = pKey_-    }---- | The value of the tag.-tagValue :: Lens' Tag (Maybe Text)-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});---- | The key of the tag.-tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});--instance FromJSON Tag where-        parseJSON-          = withObject "Tag"-              (\ x -> Tag' <$> (x .:? "value") <*> (x .: "key"))--instance Hashable Tag--instance NFData Tag--instance ToJSON Tag where-        toJSON Tag'{..}-          = object-              (catMaybes-                 [("value" .=) <$> _tagValue,-                  Just ("key" .= _tagKey)])---- | You can create one or more AWS Direct Connect private virtual interfaces linking to your virtual private gateway.--------- Virtual private gateways can be managed using the Amazon Virtual Private Cloud (Amazon VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html Amazon EC2 CreateVpnGateway action> .--------- /See:/ 'virtualGateway' smart constructor.-data VirtualGateway = VirtualGateway'-    { _vgVirtualGatewayId    :: !(Maybe Text)-    , _vgVirtualGatewayState :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VirtualGateway' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'vgVirtualGatewayId' - Undocumented member.------ * 'vgVirtualGatewayState' - Undocumented member.-virtualGateway-    :: VirtualGateway-virtualGateway =-    VirtualGateway'-    { _vgVirtualGatewayId = Nothing-    , _vgVirtualGatewayState = Nothing-    }---- | Undocumented member.-vgVirtualGatewayId :: Lens' VirtualGateway (Maybe Text)-vgVirtualGatewayId = lens _vgVirtualGatewayId (\ s a -> s{_vgVirtualGatewayId = a});---- | Undocumented member.-vgVirtualGatewayState :: Lens' VirtualGateway (Maybe Text)-vgVirtualGatewayState = lens _vgVirtualGatewayState (\ s a -> s{_vgVirtualGatewayState = a});--instance FromJSON VirtualGateway where-        parseJSON-          = withObject "VirtualGateway"-              (\ x ->-                 VirtualGateway' <$>-                   (x .:? "virtualGatewayId") <*>-                     (x .:? "virtualGatewayState"))--instance Hashable VirtualGateway--instance NFData VirtualGateway---- | A virtual interface (VLAN) transmits the traffic between the AWS Direct Connect location and the customer.------------ /See:/ 'virtualInterface' smart constructor.-data VirtualInterface = VirtualInterface'-    { _viBgpPeers              :: !(Maybe [BGPPeer])-    , _viVirtualGatewayId      :: !(Maybe Text)-    , _viRouteFilterPrefixes   :: !(Maybe [RouteFilterPrefix])-    , _viCustomerAddress       :: !(Maybe Text)-    , _viVlan                  :: !(Maybe Int)-    , _viLocation              :: !(Maybe Text)-    , _viAmazonAddress         :: !(Maybe Text)-    , _viAddressFamily         :: !(Maybe AddressFamily)-    , _viVirtualInterfaceState :: !(Maybe VirtualInterfaceState)-    , _viConnectionId          :: !(Maybe Text)-    , _viVirtualInterfaceType  :: !(Maybe Text)-    , _viAsn                   :: !(Maybe Int)-    , _viAuthKey               :: !(Maybe Text)-    , _viCustomerRouterConfig  :: !(Maybe Text)-    , _viOwnerAccount          :: !(Maybe Text)-    , _viVirtualInterfaceName  :: !(Maybe Text)-    , _viVirtualInterfaceId    :: !(Maybe Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)---- | Creates a value of 'VirtualInterface' with the minimum fields required to make a request.------ Use one of the following lenses to modify other fields as desired:------ * 'viBgpPeers' - Undocumented member.------ * 'viVirtualGatewayId' - Undocumented member.------ * 'viRouteFilterPrefixes' - Undocumented member.------ * 'viCustomerAddress' - Undocumented member.------ * 'viVlan' - Undocumented member.------ * 'viLocation' - Undocumented member.------ * 'viAmazonAddress' - Undocumented member.------ * 'viAddressFamily' - Undocumented member.------ * 'viVirtualInterfaceState' - Undocumented member.------ * 'viConnectionId' - Undocumented member.------ * 'viVirtualInterfaceType' - Undocumented member.------ * 'viAsn' - Undocumented member.------ * 'viAuthKey' - Undocumented member.------ * 'viCustomerRouterConfig' - Information for generating the customer router configuration.------ * 'viOwnerAccount' - The AWS account that will own the new virtual interface.------ * 'viVirtualInterfaceName' - Undocumented member.------ * 'viVirtualInterfaceId' - Undocumented member.-virtualInterface-    :: VirtualInterface-virtualInterface =-    VirtualInterface'-    { _viBgpPeers = Nothing-    , _viVirtualGatewayId = Nothing-    , _viRouteFilterPrefixes = Nothing-    , _viCustomerAddress = Nothing-    , _viVlan = Nothing-    , _viLocation = Nothing-    , _viAmazonAddress = Nothing-    , _viAddressFamily = Nothing-    , _viVirtualInterfaceState = Nothing-    , _viConnectionId = 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;---- | Undocumented member.-viVirtualGatewayId :: Lens' VirtualInterface (Maybe Text)-viVirtualGatewayId = lens _viVirtualGatewayId (\ s a -> s{_viVirtualGatewayId = a});---- | Undocumented member.-viRouteFilterPrefixes :: Lens' VirtualInterface [RouteFilterPrefix]-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});---- | Undocumented member.-viVlan :: Lens' VirtualInterface (Maybe Int)-viVlan = lens _viVlan (\ s a -> s{_viVlan = a});---- | Undocumented member.-viLocation :: Lens' VirtualInterface (Maybe Text)-viLocation = lens _viLocation (\ s a -> s{_viLocation = a});---- | Undocumented member.-viAmazonAddress :: Lens' VirtualInterface (Maybe Text)-viAmazonAddress = lens _viAmazonAddress (\ s a -> s{_viAmazonAddress = a});---- | Undocumented member.-viAddressFamily :: Lens' VirtualInterface (Maybe AddressFamily)-viAddressFamily = lens _viAddressFamily (\ s a -> s{_viAddressFamily = a});---- | Undocumented member.-viVirtualInterfaceState :: Lens' VirtualInterface (Maybe VirtualInterfaceState)-viVirtualInterfaceState = lens _viVirtualInterfaceState (\ s a -> s{_viVirtualInterfaceState = a});---- | Undocumented member.-viConnectionId :: Lens' VirtualInterface (Maybe Text)-viConnectionId = lens _viConnectionId (\ s a -> s{_viConnectionId = a});---- | Undocumented member.-viVirtualInterfaceType :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceType = lens _viVirtualInterfaceType (\ s a -> s{_viVirtualInterfaceType = a});---- | Undocumented member.-viAsn :: Lens' VirtualInterface (Maybe Int)-viAsn = lens _viAsn (\ s a -> s{_viAsn = a});---- | Undocumented member.-viAuthKey :: Lens' VirtualInterface (Maybe Text)-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});---- | The AWS account that will own the new virtual interface.-viOwnerAccount :: Lens' VirtualInterface (Maybe Text)-viOwnerAccount = lens _viOwnerAccount (\ s a -> s{_viOwnerAccount = a});---- | Undocumented member.-viVirtualInterfaceName :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceName = lens _viVirtualInterfaceName (\ s a -> s{_viVirtualInterfaceName = a});---- | Undocumented member.-viVirtualInterfaceId :: Lens' VirtualInterface (Maybe Text)-viVirtualInterfaceId = lens _viVirtualInterfaceId (\ s a -> s{_viVirtualInterfaceId = a});--instance FromJSON VirtualInterface where-        parseJSON-          = withObject "VirtualInterface"-              (\ x ->-                 VirtualInterface' <$>-                   (x .:? "bgpPeers" .!= mempty) <*>-                     (x .:? "virtualGatewayId")-                     <*> (x .:? "routeFilterPrefixes" .!= mempty)-                     <*> (x .:? "customerAddress")-                     <*> (x .:? "vlan")-                     <*> (x .:? "location")-                     <*> (x .:? "amazonAddress")-                     <*> (x .:? "addressFamily")-                     <*> (x .:? "virtualInterfaceState")-                     <*> (x .:? "connectionId")-                     <*> (x .:? "virtualInterfaceType")-                     <*> (x .:? "asn")-                     <*> (x .:? "authKey")-                     <*> (x .:? "customerRouterConfig")-                     <*> (x .:? "ownerAccount")-                     <*> (x .:? "virtualInterfaceName")-                     <*> (x .:? "virtualInterfaceId"))--instance Hashable VirtualInterface--instance NFData VirtualInterface+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+module Network.AWS.DirectConnect.Types.Product where++import Network.AWS.DirectConnect.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude++-- | A structure containing information about a BGP peer.+--+--+--+-- /See:/ 'bgpPeer' smart constructor.+data BGPPeer = BGPPeer'+  { _bpCustomerAddress :: !(Maybe Text)+  , _bpAmazonAddress   :: !(Maybe Text)+  , _bpAddressFamily   :: !(Maybe AddressFamily)+  , _bpBgpStatus       :: !(Maybe BGPStatus)+  , _bpAsn             :: !(Maybe Int)+  , _bpAuthKey         :: !(Maybe Text)+  , _bpBgpPeerState    :: !(Maybe BGPPeerState)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'BGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'bpCustomerAddress' - Undocumented member.+--+-- * 'bpAmazonAddress' - Undocumented member.+--+-- * 'bpAddressFamily' - Undocumented member.+--+-- * 'bpBgpStatus' - Undocumented member.+--+-- * 'bpAsn' - Undocumented member.+--+-- * 'bpAuthKey' - Undocumented member.+--+-- * 'bpBgpPeerState' - Undocumented member.+bgpPeer+    :: BGPPeer+bgpPeer =+  BGPPeer'+  { _bpCustomerAddress = Nothing+  , _bpAmazonAddress = Nothing+  , _bpAddressFamily = Nothing+  , _bpBgpStatus = Nothing+  , _bpAsn = Nothing+  , _bpAuthKey = Nothing+  , _bpBgpPeerState = Nothing+  }+++-- | Undocumented member.+bpCustomerAddress :: Lens' BGPPeer (Maybe Text)+bpCustomerAddress = lens _bpCustomerAddress (\ s a -> s{_bpCustomerAddress = a});++-- | Undocumented member.+bpAmazonAddress :: Lens' BGPPeer (Maybe Text)+bpAmazonAddress = lens _bpAmazonAddress (\ s a -> s{_bpAmazonAddress = a});++-- | Undocumented member.+bpAddressFamily :: Lens' BGPPeer (Maybe AddressFamily)+bpAddressFamily = lens _bpAddressFamily (\ s a -> s{_bpAddressFamily = a});++-- | Undocumented member.+bpBgpStatus :: Lens' BGPPeer (Maybe BGPStatus)+bpBgpStatus = lens _bpBgpStatus (\ s a -> s{_bpBgpStatus = a});++-- | Undocumented member.+bpAsn :: Lens' BGPPeer (Maybe Int)+bpAsn = lens _bpAsn (\ s a -> s{_bpAsn = a});++-- | Undocumented member.+bpAuthKey :: Lens' BGPPeer (Maybe Text)+bpAuthKey = lens _bpAuthKey (\ s a -> s{_bpAuthKey = a});++-- | Undocumented member.+bpBgpPeerState :: Lens' BGPPeer (Maybe BGPPeerState)+bpBgpPeerState = lens _bpBgpPeerState (\ s a -> s{_bpBgpPeerState = a});++instance FromJSON BGPPeer where+        parseJSON+          = withObject "BGPPeer"+              (\ x ->+                 BGPPeer' <$>+                   (x .:? "customerAddress") <*> (x .:? "amazonAddress")+                     <*> (x .:? "addressFamily")+                     <*> (x .:? "bgpStatus")+                     <*> (x .:? "asn")+                     <*> (x .:? "authKey")+                     <*> (x .:? "bgpPeerState"))++instance Hashable BGPPeer where++instance NFData BGPPeer where++-- | A connection represents the physical network connection between the AWS Direct Connect location and the customer.+--+--+--+-- /See:/ 'connection' smart constructor.+data Connection = Connection'+  { _cLagId           :: !(Maybe Text)+  , _cVlan            :: !(Maybe Int)+  , _cLocation        :: !(Maybe Text)+  , _cAwsDevice       :: !(Maybe Text)+  , _cConnectionId    :: !(Maybe Text)+  , _cLoaIssueTime    :: !(Maybe POSIX)+  , _cPartnerName     :: !(Maybe Text)+  , _cConnectionName  :: !(Maybe Text)+  , _cBandwidth       :: !(Maybe Text)+  , _cOwnerAccount    :: !(Maybe Text)+  , _cRegion          :: !(Maybe Text)+  , _cConnectionState :: !(Maybe ConnectionState)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Connection' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cLagId' - Undocumented member.+--+-- * 'cVlan' - Undocumented member.+--+-- * 'cLocation' - Undocumented member.+--+-- * 'cAwsDevice' - The Direct Connection endpoint which the physical connection terminates on.+--+-- * 'cConnectionId' - Undocumented member.+--+-- * 'cLoaIssueTime' - The time of the most recent call to 'DescribeLoa' for this connection.+--+-- * 'cPartnerName' - The name of the AWS Direct Connect service provider associated with the connection.+--+-- * 'cConnectionName' - Undocumented member.+--+-- * 'cBandwidth' - Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None+--+-- * 'cOwnerAccount' - The AWS account that will own the new connection.+--+-- * 'cRegion' - Undocumented member.+--+-- * 'cConnectionState' - Undocumented member.+connection+    :: 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+  }+++-- | Undocumented member.+cLagId :: Lens' Connection (Maybe Text)+cLagId = lens _cLagId (\ s a -> s{_cLagId = a});++-- | Undocumented member.+cVlan :: Lens' Connection (Maybe Int)+cVlan = lens _cVlan (\ s a -> s{_cVlan = a});++-- | Undocumented member.+cLocation :: Lens' Connection (Maybe Text)+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});++-- | Undocumented member.+cConnectionId :: Lens' Connection (Maybe Text)+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;++-- | 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});++-- | Undocumented member.+cConnectionName :: Lens' Connection (Maybe Text)+cConnectionName = lens _cConnectionName (\ s a -> s{_cConnectionName = a});++-- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) Default: None+cBandwidth :: Lens' Connection (Maybe Text)+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});++-- | Undocumented member.+cRegion :: Lens' Connection (Maybe Text)+cRegion = lens _cRegion (\ s a -> s{_cRegion = a});++-- | Undocumented member.+cConnectionState :: Lens' Connection (Maybe ConnectionState)+cConnectionState = lens _cConnectionState (\ s a -> s{_cConnectionState = a});++instance FromJSON Connection where+        parseJSON+          = withObject "Connection"+              (\ x ->+                 Connection' <$>+                   (x .:? "lagId") <*> (x .:? "vlan") <*>+                     (x .:? "location")+                     <*> (x .:? "awsDevice")+                     <*> (x .:? "connectionId")+                     <*> (x .:? "loaIssueTime")+                     <*> (x .:? "partnerName")+                     <*> (x .:? "connectionName")+                     <*> (x .:? "bandwidth")+                     <*> (x .:? "ownerAccount")+                     <*> (x .:? "region")+                     <*> (x .:? "connectionState"))++instance Hashable Connection where++instance NFData Connection where++-- | A structure containing a list of connections.+--+--+--+-- /See:/ 'connections' smart constructor.+newtype Connections = Connections'+  { _cConnections :: Maybe [Connection]+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Connections' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cConnections' - A list of connections.+connections+    :: Connections+connections = Connections' {_cConnections = Nothing}+++-- | A list of connections.+cConnections :: Lens' Connections [Connection]+cConnections = lens _cConnections (\ s a -> s{_cConnections = a}) . _Default . _Coerce;++instance FromJSON Connections where+        parseJSON+          = withObject "Connections"+              (\ x ->+                 Connections' <$> (x .:? "connections" .!= mempty))++instance Hashable Connections where++instance NFData Connections where++-- | A direct connect gateway is an intermediate object that enables you to connect virtual interfaces and virtual private gateways.+--+--+--+-- /See:/ 'directConnectGateway' smart constructor.+data DirectConnectGateway = DirectConnectGateway'+  { _dcgDirectConnectGatewayId    :: !(Maybe Text)+  , _dcgStateChangeError          :: !(Maybe Text)+  , _dcgAmazonSideASN             :: !(Maybe Integer)+  , _dcgDirectConnectGatewayName  :: !(Maybe Text)+  , _dcgDirectConnectGatewayState :: !(Maybe DirectConnectGatewayState)+  , _dcgOwnerAccount              :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DirectConnectGateway' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcgDirectConnectGatewayId' - Undocumented member.+--+-- * 'dcgStateChangeError' - Undocumented member.+--+-- * 'dcgAmazonSideASN' - The autonomous system number (ASN) for the Amazon side of the connection.+--+-- * 'dcgDirectConnectGatewayName' - Undocumented member.+--+-- * 'dcgDirectConnectGatewayState' - Undocumented member.+--+-- * 'dcgOwnerAccount' - The AWS account ID of the owner of the direct connect gateway.+directConnectGateway+    :: DirectConnectGateway+directConnectGateway =+  DirectConnectGateway'+  { _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});++-- | Undocumented member.+dcgStateChangeError :: Lens' DirectConnectGateway (Maybe Text)+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});++-- | Undocumented member.+dcgDirectConnectGatewayName :: Lens' DirectConnectGateway (Maybe Text)+dcgDirectConnectGatewayName = lens _dcgDirectConnectGatewayName (\ s a -> s{_dcgDirectConnectGatewayName = a});++-- | Undocumented member.+dcgDirectConnectGatewayState :: Lens' DirectConnectGateway (Maybe DirectConnectGatewayState)+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});++instance FromJSON DirectConnectGateway where+        parseJSON+          = withObject "DirectConnectGateway"+              (\ x ->+                 DirectConnectGateway' <$>+                   (x .:? "directConnectGatewayId") <*>+                     (x .:? "stateChangeError")+                     <*> (x .:? "amazonSideAsn")+                     <*> (x .:? "directConnectGatewayName")+                     <*> (x .:? "directConnectGatewayState")+                     <*> (x .:? "ownerAccount"))++instance Hashable DirectConnectGateway where++instance NFData DirectConnectGateway where++-- | The association between a direct connect gateway and virtual private gateway.+--+--+--+-- /See:/ 'directConnectGatewayAssociation' smart constructor.+data DirectConnectGatewayAssociation = DirectConnectGatewayAssociation'+  { _dcgaVirtualGatewayId :: !(Maybe Text)+  , _dcgaDirectConnectGatewayId :: !(Maybe Text)+  , _dcgaVirtualGatewayOwnerAccount :: !(Maybe Text)+  , _dcgaStateChangeError :: !(Maybe Text)+  , _dcgaVirtualGatewayRegion :: !(Maybe Text)+  , _dcgaAssociationState :: !(Maybe DirectConnectGatewayAssociationState)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DirectConnectGatewayAssociation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dcgaVirtualGatewayId' - Undocumented member.+--+-- * 'dcgaDirectConnectGatewayId' - Undocumented member.+--+-- * 'dcgaVirtualGatewayOwnerAccount' - The AWS account ID of the owner of the virtual private gateway.+--+-- * 'dcgaStateChangeError' - Undocumented member.+--+-- * 'dcgaVirtualGatewayRegion' - Undocumented member.+--+-- * 'dcgaAssociationState' - Undocumented member.+directConnectGatewayAssociation+    :: DirectConnectGatewayAssociation+directConnectGatewayAssociation =+  DirectConnectGatewayAssociation'+  { _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});++-- | Undocumented member.+dcgaDirectConnectGatewayId :: Lens' DirectConnectGatewayAssociation (Maybe Text)+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});++-- | Undocumented member.+dcgaStateChangeError :: Lens' DirectConnectGatewayAssociation (Maybe Text)+dcgaStateChangeError = lens _dcgaStateChangeError (\ s a -> s{_dcgaStateChangeError = a});++-- | Undocumented member.+dcgaVirtualGatewayRegion :: Lens' DirectConnectGatewayAssociation (Maybe Text)+dcgaVirtualGatewayRegion = lens _dcgaVirtualGatewayRegion (\ s a -> s{_dcgaVirtualGatewayRegion = a});++-- | Undocumented member.+dcgaAssociationState :: Lens' DirectConnectGatewayAssociation (Maybe DirectConnectGatewayAssociationState)+dcgaAssociationState = lens _dcgaAssociationState (\ s a -> s{_dcgaAssociationState = a});++instance FromJSON DirectConnectGatewayAssociation+         where+        parseJSON+          = withObject "DirectConnectGatewayAssociation"+              (\ x ->+                 DirectConnectGatewayAssociation' <$>+                   (x .:? "virtualGatewayId") <*>+                     (x .:? "directConnectGatewayId")+                     <*> (x .:? "virtualGatewayOwnerAccount")+                     <*> (x .:? "stateChangeError")+                     <*> (x .:? "virtualGatewayRegion")+                     <*> (x .:? "associationState"))++instance Hashable DirectConnectGatewayAssociation+         where++instance NFData DirectConnectGatewayAssociation where++-- | The association between a direct connect gateway and virtual interface.+--+--+--+-- /See:/ 'directConnectGatewayAttachment' smart constructor.+data DirectConnectGatewayAttachment = DirectConnectGatewayAttachment'+  { _dDirectConnectGatewayId :: !(Maybe Text)+  , _dAttachmentState :: !(Maybe DirectConnectGatewayAttachmentState)+  , _dStateChangeError :: !(Maybe Text)+  , _dVirtualInterfaceRegion :: !(Maybe Text)+  , _dVirtualInterfaceOwnerAccount :: !(Maybe Text)+  , _dVirtualInterfaceId :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DirectConnectGatewayAttachment' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dDirectConnectGatewayId' - Undocumented member.+--+-- * 'dAttachmentState' - Undocumented member.+--+-- * 'dStateChangeError' - Undocumented member.+--+-- * 'dVirtualInterfaceRegion' - Undocumented member.+--+-- * 'dVirtualInterfaceOwnerAccount' - The AWS account ID of the owner of the virtual interface.+--+-- * 'dVirtualInterfaceId' - Undocumented member.+directConnectGatewayAttachment+    :: DirectConnectGatewayAttachment+directConnectGatewayAttachment =+  DirectConnectGatewayAttachment'+  { _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});++-- | Undocumented member.+dAttachmentState :: Lens' DirectConnectGatewayAttachment (Maybe DirectConnectGatewayAttachmentState)+dAttachmentState = lens _dAttachmentState (\ s a -> s{_dAttachmentState = a});++-- | Undocumented member.+dStateChangeError :: Lens' DirectConnectGatewayAttachment (Maybe Text)+dStateChangeError = lens _dStateChangeError (\ s a -> s{_dStateChangeError = a});++-- | Undocumented member.+dVirtualInterfaceRegion :: Lens' DirectConnectGatewayAttachment (Maybe Text)+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});++-- | Undocumented member.+dVirtualInterfaceId :: Lens' DirectConnectGatewayAttachment (Maybe Text)+dVirtualInterfaceId = lens _dVirtualInterfaceId (\ s a -> s{_dVirtualInterfaceId = a});++instance FromJSON DirectConnectGatewayAttachment+         where+        parseJSON+          = withObject "DirectConnectGatewayAttachment"+              (\ x ->+                 DirectConnectGatewayAttachment' <$>+                   (x .:? "directConnectGatewayId") <*>+                     (x .:? "attachmentState")+                     <*> (x .:? "stateChangeError")+                     <*> (x .:? "virtualInterfaceRegion")+                     <*> (x .:? "virtualInterfaceOwnerAccount")+                     <*> (x .:? "virtualInterfaceId"))++instance Hashable DirectConnectGatewayAttachment+         where++instance NFData DirectConnectGatewayAttachment where++-- | An interconnect is a connection that can host other connections.+--+--+-- Like a standard AWS Direct Connect connection, an interconnect represents the physical connection between an AWS Direct Connect partner's network and a specific Direct Connect location. An AWS Direct Connect partner who owns an interconnect can provision hosted connections on the interconnect for their end customers, thereby providing the end customers with connectivity to AWS services.+--+-- The resources of the interconnect, including bandwidth and VLAN numbers, are shared by all of the hosted connections on the interconnect, and the owner of the interconnect determines how these resources are assigned.+--+--+-- /See:/ 'interconnect' smart constructor.+data Interconnect = Interconnect'+  { _iLagId             :: !(Maybe Text)+  , _iInterconnectId    :: !(Maybe Text)+  , _iLocation          :: !(Maybe Text)+  , _iInterconnectName  :: !(Maybe Text)+  , _iAwsDevice         :: !(Maybe Text)+  , _iLoaIssueTime      :: !(Maybe POSIX)+  , _iBandwidth         :: !(Maybe Text)+  , _iInterconnectState :: !(Maybe InterconnectState)+  , _iRegion            :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Interconnect' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'iLagId' - Undocumented member.+--+-- * 'iInterconnectId' - Undocumented member.+--+-- * 'iLocation' - Undocumented member.+--+-- * 'iInterconnectName' - Undocumented member.+--+-- * 'iAwsDevice' - The Direct Connection endpoint which the physical connection terminates on.+--+-- * 'iLoaIssueTime' - The time of the most recent call to DescribeInterconnectLoa for this Interconnect.+--+-- * 'iBandwidth' - Undocumented member.+--+-- * 'iInterconnectState' - Undocumented member.+--+-- * 'iRegion' - Undocumented member.+interconnect+    :: Interconnect+interconnect =+  Interconnect'+  { _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});++-- | Undocumented member.+iInterconnectId :: Lens' Interconnect (Maybe Text)+iInterconnectId = lens _iInterconnectId (\ s a -> s{_iInterconnectId = a});++-- | Undocumented member.+iLocation :: Lens' Interconnect (Maybe Text)+iLocation = lens _iLocation (\ s a -> s{_iLocation = a});++-- | Undocumented member.+iInterconnectName :: Lens' Interconnect (Maybe Text)+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});++-- | 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;++-- | Undocumented member.+iBandwidth :: Lens' Interconnect (Maybe Text)+iBandwidth = lens _iBandwidth (\ s a -> s{_iBandwidth = a});++-- | Undocumented member.+iInterconnectState :: Lens' Interconnect (Maybe InterconnectState)+iInterconnectState = lens _iInterconnectState (\ s a -> s{_iInterconnectState = a});++-- | Undocumented member.+iRegion :: Lens' Interconnect (Maybe Text)+iRegion = lens _iRegion (\ s a -> s{_iRegion = a});++instance FromJSON Interconnect where+        parseJSON+          = withObject "Interconnect"+              (\ x ->+                 Interconnect' <$>+                   (x .:? "lagId") <*> (x .:? "interconnectId") <*>+                     (x .:? "location")+                     <*> (x .:? "interconnectName")+                     <*> (x .:? "awsDevice")+                     <*> (x .:? "loaIssueTime")+                     <*> (x .:? "bandwidth")+                     <*> (x .:? "interconnectState")+                     <*> (x .:? "region"))++instance Hashable Interconnect where++instance NFData Interconnect where++-- | Describes a link aggregation group (LAG). A LAG is a connection that uses the Link Aggregation Control Protocol (LACP) to logically aggregate a bundle of physical connections. Like an interconnect, it can host other connections. All connections in a LAG must terminate on the same physical AWS Direct Connect endpoint, and must be the same bandwidth.+--+--+--+-- /See:/ 'lag' smart constructor.+data Lag = Lag'+  { _lagLagId                   :: !(Maybe Text)+  , _lagConnectionsBandwidth    :: !(Maybe Text)+  , _lagMinimumLinks            :: !(Maybe Int)+  , _lagLagName                 :: !(Maybe Text)+  , _lagLocation                :: !(Maybe Text)+  , _lagConnections             :: !(Maybe [Connection])+  , _lagAwsDevice               :: !(Maybe Text)+  , _lagAllowsHostedConnections :: !(Maybe Bool)+  , _lagNumberOfConnections     :: !(Maybe Int)+  , _lagLagState                :: !(Maybe LagState)+  , _lagOwnerAccount            :: !(Maybe Text)+  , _lagRegion                  :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Lag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lagLagId' - Undocumented member.+--+-- * 'lagConnectionsBandwidth' - The individual bandwidth of the physical connections bundled by the LAG. Available values: 1Gbps, 10Gbps+--+-- * 'lagMinimumLinks' - 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.+--+-- * 'lagLagName' - The name of the LAG.+--+-- * 'lagLocation' - Undocumented member.+--+-- * 'lagConnections' - A list of connections bundled by this LAG.+--+-- * 'lagAwsDevice' - The AWS Direct Connection endpoint that hosts the LAG.+--+-- * 'lagAllowsHostedConnections' - Indicates whether the LAG can host other connections.+--+-- * 'lagNumberOfConnections' - The number of physical connections bundled by the LAG, up to a maximum of 10.+--+-- * 'lagLagState' - Undocumented member.+--+-- * 'lagOwnerAccount' - The owner of the LAG.+--+-- * 'lagRegion' - Undocumented member.+lag+    :: 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+  }+++-- | Undocumented member.+lagLagId :: Lens' Lag (Maybe Text)+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});++-- | 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});++-- | The name of the LAG.+lagLagName :: Lens' Lag (Maybe Text)+lagLagName = lens _lagLagName (\ s a -> s{_lagLagName = a});++-- | Undocumented member.+lagLocation :: Lens' Lag (Maybe Text)+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;++-- | The AWS Direct Connection endpoint that hosts the LAG.+lagAwsDevice :: Lens' Lag (Maybe Text)+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});++-- | 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});++-- | Undocumented member.+lagLagState :: Lens' Lag (Maybe LagState)+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});++-- | Undocumented member.+lagRegion :: Lens' Lag (Maybe Text)+lagRegion = lens _lagRegion (\ s a -> s{_lagRegion = a});++instance FromJSON Lag where+        parseJSON+          = withObject "Lag"+              (\ x ->+                 Lag' <$>+                   (x .:? "lagId") <*> (x .:? "connectionsBandwidth")+                     <*> (x .:? "minimumLinks")+                     <*> (x .:? "lagName")+                     <*> (x .:? "location")+                     <*> (x .:? "connections" .!= mempty)+                     <*> (x .:? "awsDevice")+                     <*> (x .:? "allowsHostedConnections")+                     <*> (x .:? "numberOfConnections")+                     <*> (x .:? "lagState")+                     <*> (x .:? "ownerAccount")+                     <*> (x .:? "region"))++instance Hashable Lag where++instance NFData Lag where++-- | An AWS Direct Connect location where connections and interconnects can be requested.+--+--+--+-- /See:/ 'location' smart constructor.+data Location = Location'+  { _lLocationName :: !(Maybe Text)+  , _lLocationCode :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Location' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lLocationName' - The name of the AWS Direct Connect location. The name includes the colocation partner name and the physical site of the lit building.+--+-- * 'lLocationCode' - The code used to indicate the AWS Direct Connect location.+location+    :: Location+location = Location' {_lLocationName = Nothing, _lLocationCode = Nothing}+++-- | 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});++-- | The code used to indicate the AWS Direct Connect location.+lLocationCode :: Lens' Location (Maybe Text)+lLocationCode = lens _lLocationCode (\ s a -> s{_lLocationCode = a});++instance FromJSON Location where+        parseJSON+          = withObject "Location"+              (\ x ->+                 Location' <$>+                   (x .:? "locationName") <*> (x .:? "locationCode"))++instance Hashable Location where++instance NFData Location where++-- | A structure containing information about a new BGP peer.+--+--+--+-- /See:/ 'newBGPPeer' smart constructor.+data NewBGPPeer = NewBGPPeer'+  { _nbpCustomerAddress :: !(Maybe Text)+  , _nbpAmazonAddress   :: !(Maybe Text)+  , _nbpAddressFamily   :: !(Maybe AddressFamily)+  , _nbpAsn             :: !(Maybe Int)+  , _nbpAuthKey         :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NewBGPPeer' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nbpCustomerAddress' - Undocumented member.+--+-- * 'nbpAmazonAddress' - Undocumented member.+--+-- * 'nbpAddressFamily' - Undocumented member.+--+-- * 'nbpAsn' - Undocumented member.+--+-- * 'nbpAuthKey' - Undocumented member.+newBGPPeer+    :: NewBGPPeer+newBGPPeer =+  NewBGPPeer'+  { _nbpCustomerAddress = Nothing+  , _nbpAmazonAddress = Nothing+  , _nbpAddressFamily = Nothing+  , _nbpAsn = Nothing+  , _nbpAuthKey = Nothing+  }+++-- | Undocumented member.+nbpCustomerAddress :: Lens' NewBGPPeer (Maybe Text)+nbpCustomerAddress = lens _nbpCustomerAddress (\ s a -> s{_nbpCustomerAddress = a});++-- | Undocumented member.+nbpAmazonAddress :: Lens' NewBGPPeer (Maybe Text)+nbpAmazonAddress = lens _nbpAmazonAddress (\ s a -> s{_nbpAmazonAddress = a});++-- | Undocumented member.+nbpAddressFamily :: Lens' NewBGPPeer (Maybe AddressFamily)+nbpAddressFamily = lens _nbpAddressFamily (\ s a -> s{_nbpAddressFamily = a});++-- | Undocumented member.+nbpAsn :: Lens' NewBGPPeer (Maybe Int)+nbpAsn = lens _nbpAsn (\ s a -> s{_nbpAsn = a});++-- | Undocumented member.+nbpAuthKey :: Lens' NewBGPPeer (Maybe Text)+nbpAuthKey = lens _nbpAuthKey (\ s a -> s{_nbpAuthKey = a});++instance Hashable NewBGPPeer where++instance NFData NewBGPPeer where++instance ToJSON NewBGPPeer where+        toJSON NewBGPPeer'{..}+          = object+              (catMaybes+                 [("customerAddress" .=) <$> _nbpCustomerAddress,+                  ("amazonAddress" .=) <$> _nbpAmazonAddress,+                  ("addressFamily" .=) <$> _nbpAddressFamily,+                  ("asn" .=) <$> _nbpAsn,+                  ("authKey" .=) <$> _nbpAuthKey])++-- | A structure containing information about a new private virtual interface.+--+--+--+-- /See:/ 'newPrivateVirtualInterface' smart constructor.+data NewPrivateVirtualInterface = NewPrivateVirtualInterface'+  { _nVirtualGatewayId       :: !(Maybe Text)+  , _nCustomerAddress        :: !(Maybe Text)+  , _nAmazonAddress          :: !(Maybe Text)+  , _nAddressFamily          :: !(Maybe AddressFamily)+  , _nDirectConnectGatewayId :: !(Maybe Text)+  , _nAuthKey                :: !(Maybe Text)+  , _nVirtualInterfaceName   :: !Text+  , _nVlan                   :: !Int+  , _nAsn                    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NewPrivateVirtualInterface' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nVirtualGatewayId' - Undocumented member.+--+-- * 'nCustomerAddress' - Undocumented member.+--+-- * 'nAmazonAddress' - Undocumented member.+--+-- * 'nAddressFamily' - Undocumented member.+--+-- * 'nDirectConnectGatewayId' - Undocumented member.+--+-- * 'nAuthKey' - Undocumented member.+--+-- * 'nVirtualInterfaceName' - Undocumented member.+--+-- * 'nVlan' - Undocumented member.+--+-- * 'nAsn' - Undocumented member.+newPrivateVirtualInterface+    :: Text -- ^ 'nVirtualInterfaceName'+    -> Int -- ^ 'nVlan'+    -> Int -- ^ 'nAsn'+    -> NewPrivateVirtualInterface+newPrivateVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ =+  NewPrivateVirtualInterface'+  { _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});++-- | Undocumented member.+nCustomerAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)+nCustomerAddress = lens _nCustomerAddress (\ s a -> s{_nCustomerAddress = a});++-- | Undocumented member.+nAmazonAddress :: Lens' NewPrivateVirtualInterface (Maybe Text)+nAmazonAddress = lens _nAmazonAddress (\ s a -> s{_nAmazonAddress = a});++-- | Undocumented member.+nAddressFamily :: Lens' NewPrivateVirtualInterface (Maybe AddressFamily)+nAddressFamily = lens _nAddressFamily (\ s a -> s{_nAddressFamily = a});++-- | Undocumented member.+nDirectConnectGatewayId :: Lens' NewPrivateVirtualInterface (Maybe Text)+nDirectConnectGatewayId = lens _nDirectConnectGatewayId (\ s a -> s{_nDirectConnectGatewayId = a});++-- | Undocumented member.+nAuthKey :: Lens' NewPrivateVirtualInterface (Maybe Text)+nAuthKey = lens _nAuthKey (\ s a -> s{_nAuthKey = a});++-- | Undocumented member.+nVirtualInterfaceName :: Lens' NewPrivateVirtualInterface Text+nVirtualInterfaceName = lens _nVirtualInterfaceName (\ s a -> s{_nVirtualInterfaceName = a});++-- | Undocumented member.+nVlan :: Lens' NewPrivateVirtualInterface Int+nVlan = lens _nVlan (\ s a -> s{_nVlan = a});++-- | Undocumented member.+nAsn :: Lens' NewPrivateVirtualInterface Int+nAsn = lens _nAsn (\ s a -> s{_nAsn = a});++instance Hashable NewPrivateVirtualInterface where++instance NFData NewPrivateVirtualInterface where++instance ToJSON NewPrivateVirtualInterface where+        toJSON NewPrivateVirtualInterface'{..}+          = object+              (catMaybes+                 [("virtualGatewayId" .=) <$> _nVirtualGatewayId,+                  ("customerAddress" .=) <$> _nCustomerAddress,+                  ("amazonAddress" .=) <$> _nAmazonAddress,+                  ("addressFamily" .=) <$> _nAddressFamily,+                  ("directConnectGatewayId" .=) <$>+                    _nDirectConnectGatewayId,+                  ("authKey" .=) <$> _nAuthKey,+                  Just+                    ("virtualInterfaceName" .= _nVirtualInterfaceName),+                  Just ("vlan" .= _nVlan), Just ("asn" .= _nAsn)])++-- | A structure containing information about a private virtual interface that will be provisioned on a connection.+--+--+--+-- /See:/ 'newPrivateVirtualInterfaceAllocation' smart constructor.+data NewPrivateVirtualInterfaceAllocation = NewPrivateVirtualInterfaceAllocation'+  { _npviaCustomerAddress      :: !(Maybe Text)+  , _npviaAmazonAddress        :: !(Maybe Text)+  , _npviaAddressFamily        :: !(Maybe AddressFamily)+  , _npviaAuthKey              :: !(Maybe Text)+  , _npviaVirtualInterfaceName :: !Text+  , _npviaVlan                 :: !Int+  , _npviaAsn                  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NewPrivateVirtualInterfaceAllocation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'npviaCustomerAddress' - Undocumented member.+--+-- * 'npviaAmazonAddress' - Undocumented member.+--+-- * 'npviaAddressFamily' - Undocumented member.+--+-- * 'npviaAuthKey' - Undocumented member.+--+-- * 'npviaVirtualInterfaceName' - Undocumented member.+--+-- * 'npviaVlan' - Undocumented member.+--+-- * 'npviaAsn' - Undocumented member.+newPrivateVirtualInterfaceAllocation+    :: Text -- ^ 'npviaVirtualInterfaceName'+    -> Int -- ^ 'npviaVlan'+    -> Int -- ^ 'npviaAsn'+    -> NewPrivateVirtualInterfaceAllocation+newPrivateVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ =+  NewPrivateVirtualInterfaceAllocation'+  { _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});++-- | Undocumented member.+npviaAmazonAddress :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)+npviaAmazonAddress = lens _npviaAmazonAddress (\ s a -> s{_npviaAmazonAddress = a});++-- | Undocumented member.+npviaAddressFamily :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe AddressFamily)+npviaAddressFamily = lens _npviaAddressFamily (\ s a -> s{_npviaAddressFamily = a});++-- | Undocumented member.+npviaAuthKey :: Lens' NewPrivateVirtualInterfaceAllocation (Maybe Text)+npviaAuthKey = lens _npviaAuthKey (\ s a -> s{_npviaAuthKey = a});++-- | Undocumented member.+npviaVirtualInterfaceName :: Lens' NewPrivateVirtualInterfaceAllocation Text+npviaVirtualInterfaceName = lens _npviaVirtualInterfaceName (\ s a -> s{_npviaVirtualInterfaceName = a});++-- | Undocumented member.+npviaVlan :: Lens' NewPrivateVirtualInterfaceAllocation Int+npviaVlan = lens _npviaVlan (\ s a -> s{_npviaVlan = a});++-- | Undocumented member.+npviaAsn :: Lens' NewPrivateVirtualInterfaceAllocation Int+npviaAsn = lens _npviaAsn (\ s a -> s{_npviaAsn = a});++instance Hashable+           NewPrivateVirtualInterfaceAllocation+         where++instance NFData NewPrivateVirtualInterfaceAllocation+         where++instance ToJSON NewPrivateVirtualInterfaceAllocation+         where+        toJSON NewPrivateVirtualInterfaceAllocation'{..}+          = object+              (catMaybes+                 [("customerAddress" .=) <$> _npviaCustomerAddress,+                  ("amazonAddress" .=) <$> _npviaAmazonAddress,+                  ("addressFamily" .=) <$> _npviaAddressFamily,+                  ("authKey" .=) <$> _npviaAuthKey,+                  Just+                    ("virtualInterfaceName" .=+                       _npviaVirtualInterfaceName),+                  Just ("vlan" .= _npviaVlan),+                  Just ("asn" .= _npviaAsn)])++-- | A structure containing information about a new public virtual interface.+--+--+--+-- /See:/ 'newPublicVirtualInterface' smart constructor.+data NewPublicVirtualInterface = NewPublicVirtualInterface'+  { _npviRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])+  , _npviCustomerAddress      :: !(Maybe Text)+  , _npviAmazonAddress        :: !(Maybe Text)+  , _npviAddressFamily        :: !(Maybe AddressFamily)+  , _npviAuthKey              :: !(Maybe Text)+  , _npviVirtualInterfaceName :: !Text+  , _npviVlan                 :: !Int+  , _npviAsn                  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NewPublicVirtualInterface' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'npviRouteFilterPrefixes' - Undocumented member.+--+-- * 'npviCustomerAddress' - Undocumented member.+--+-- * 'npviAmazonAddress' - Undocumented member.+--+-- * 'npviAddressFamily' - Undocumented member.+--+-- * 'npviAuthKey' - Undocumented member.+--+-- * 'npviVirtualInterfaceName' - Undocumented member.+--+-- * 'npviVlan' - Undocumented member.+--+-- * 'npviAsn' - Undocumented member.+newPublicVirtualInterface+    :: Text -- ^ 'npviVirtualInterfaceName'+    -> Int -- ^ 'npviVlan'+    -> Int -- ^ 'npviAsn'+    -> NewPublicVirtualInterface+newPublicVirtualInterface pVirtualInterfaceName_ pVlan_ pAsn_ =+  NewPublicVirtualInterface'+  { _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;++-- | Undocumented member.+npviCustomerAddress :: Lens' NewPublicVirtualInterface (Maybe Text)+npviCustomerAddress = lens _npviCustomerAddress (\ s a -> s{_npviCustomerAddress = a});++-- | Undocumented member.+npviAmazonAddress :: Lens' NewPublicVirtualInterface (Maybe Text)+npviAmazonAddress = lens _npviAmazonAddress (\ s a -> s{_npviAmazonAddress = a});++-- | Undocumented member.+npviAddressFamily :: Lens' NewPublicVirtualInterface (Maybe AddressFamily)+npviAddressFamily = lens _npviAddressFamily (\ s a -> s{_npviAddressFamily = a});++-- | Undocumented member.+npviAuthKey :: Lens' NewPublicVirtualInterface (Maybe Text)+npviAuthKey = lens _npviAuthKey (\ s a -> s{_npviAuthKey = a});++-- | Undocumented member.+npviVirtualInterfaceName :: Lens' NewPublicVirtualInterface Text+npviVirtualInterfaceName = lens _npviVirtualInterfaceName (\ s a -> s{_npviVirtualInterfaceName = a});++-- | Undocumented member.+npviVlan :: Lens' NewPublicVirtualInterface Int+npviVlan = lens _npviVlan (\ s a -> s{_npviVlan = a});++-- | Undocumented member.+npviAsn :: Lens' NewPublicVirtualInterface Int+npviAsn = lens _npviAsn (\ s a -> s{_npviAsn = a});++instance Hashable NewPublicVirtualInterface where++instance NFData NewPublicVirtualInterface where++instance ToJSON NewPublicVirtualInterface where+        toJSON NewPublicVirtualInterface'{..}+          = object+              (catMaybes+                 [("routeFilterPrefixes" .=) <$>+                    _npviRouteFilterPrefixes,+                  ("customerAddress" .=) <$> _npviCustomerAddress,+                  ("amazonAddress" .=) <$> _npviAmazonAddress,+                  ("addressFamily" .=) <$> _npviAddressFamily,+                  ("authKey" .=) <$> _npviAuthKey,+                  Just+                    ("virtualInterfaceName" .=+                       _npviVirtualInterfaceName),+                  Just ("vlan" .= _npviVlan),+                  Just ("asn" .= _npviAsn)])++-- | A structure containing information about a public virtual interface that will be provisioned on a connection.+--+--+--+-- /See:/ 'newPublicVirtualInterfaceAllocation' smart constructor.+data NewPublicVirtualInterfaceAllocation = NewPublicVirtualInterfaceAllocation'+  { _newRouteFilterPrefixes  :: !(Maybe [RouteFilterPrefix])+  , _newCustomerAddress      :: !(Maybe Text)+  , _newAmazonAddress        :: !(Maybe Text)+  , _newAddressFamily        :: !(Maybe AddressFamily)+  , _newAuthKey              :: !(Maybe Text)+  , _newVirtualInterfaceName :: !Text+  , _newVlan                 :: !Int+  , _newAsn                  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NewPublicVirtualInterfaceAllocation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'newRouteFilterPrefixes' - Undocumented member.+--+-- * 'newCustomerAddress' - Undocumented member.+--+-- * 'newAmazonAddress' - Undocumented member.+--+-- * 'newAddressFamily' - Undocumented member.+--+-- * 'newAuthKey' - Undocumented member.+--+-- * 'newVirtualInterfaceName' - Undocumented member.+--+-- * 'newVlan' - Undocumented member.+--+-- * 'newAsn' - Undocumented member.+newPublicVirtualInterfaceAllocation+    :: Text -- ^ 'newVirtualInterfaceName'+    -> Int -- ^ 'newVlan'+    -> Int -- ^ 'newAsn'+    -> NewPublicVirtualInterfaceAllocation+newPublicVirtualInterfaceAllocation pVirtualInterfaceName_ pVlan_ pAsn_ =+  NewPublicVirtualInterfaceAllocation'+  { _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;++-- | Undocumented member.+newCustomerAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)+newCustomerAddress = lens _newCustomerAddress (\ s a -> s{_newCustomerAddress = a});++-- | Undocumented member.+newAmazonAddress :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)+newAmazonAddress = lens _newAmazonAddress (\ s a -> s{_newAmazonAddress = a});++-- | Undocumented member.+newAddressFamily :: Lens' NewPublicVirtualInterfaceAllocation (Maybe AddressFamily)+newAddressFamily = lens _newAddressFamily (\ s a -> s{_newAddressFamily = a});++-- | Undocumented member.+newAuthKey :: Lens' NewPublicVirtualInterfaceAllocation (Maybe Text)+newAuthKey = lens _newAuthKey (\ s a -> s{_newAuthKey = a});++-- | Undocumented member.+newVirtualInterfaceName :: Lens' NewPublicVirtualInterfaceAllocation Text+newVirtualInterfaceName = lens _newVirtualInterfaceName (\ s a -> s{_newVirtualInterfaceName = a});++-- | Undocumented member.+newVlan :: Lens' NewPublicVirtualInterfaceAllocation Int+newVlan = lens _newVlan (\ s a -> s{_newVlan = a});++-- | Undocumented member.+newAsn :: Lens' NewPublicVirtualInterfaceAllocation Int+newAsn = lens _newAsn (\ s a -> s{_newAsn = a});++instance Hashable NewPublicVirtualInterfaceAllocation+         where++instance NFData NewPublicVirtualInterfaceAllocation+         where++instance ToJSON NewPublicVirtualInterfaceAllocation+         where+        toJSON NewPublicVirtualInterfaceAllocation'{..}+          = object+              (catMaybes+                 [("routeFilterPrefixes" .=) <$>+                    _newRouteFilterPrefixes,+                  ("customerAddress" .=) <$> _newCustomerAddress,+                  ("amazonAddress" .=) <$> _newAmazonAddress,+                  ("addressFamily" .=) <$> _newAddressFamily,+                  ("authKey" .=) <$> _newAuthKey,+                  Just+                    ("virtualInterfaceName" .= _newVirtualInterfaceName),+                  Just ("vlan" .= _newVlan), Just ("asn" .= _newAsn)])++-- | The tags associated with a Direct Connect resource.+--+--+--+-- /See:/ 'resourceTag' smart constructor.+data ResourceTag = ResourceTag'+  { _rtResourceARN :: !(Maybe Text)+  , _rtTags        :: !(Maybe (List1 Tag))+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ResourceTag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rtResourceARN' - The Amazon Resource Name (ARN) of the Direct Connect resource.+--+-- * 'rtTags' - The tags.+resourceTag+    :: ResourceTag+resourceTag = ResourceTag' {_rtResourceARN = Nothing, _rtTags = Nothing}+++-- | The Amazon Resource Name (ARN) of the Direct Connect resource.+rtResourceARN :: Lens' ResourceTag (Maybe Text)+rtResourceARN = lens _rtResourceARN (\ s a -> s{_rtResourceARN = a});++-- | The tags.+rtTags :: Lens' ResourceTag (Maybe (NonEmpty Tag))+rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . mapping _List1;++instance FromJSON ResourceTag where+        parseJSON+          = withObject "ResourceTag"+              (\ x ->+                 ResourceTag' <$>+                   (x .:? "resourceArn") <*> (x .:? "tags"))++instance Hashable ResourceTag where++instance NFData ResourceTag where++-- | A route filter prefix that the customer can advertise through Border Gateway Protocol (BGP) over a public virtual interface.+--+--+--+-- /See:/ 'routeFilterPrefix' smart constructor.+newtype RouteFilterPrefix = RouteFilterPrefix'+  { _rfpCidr :: Maybe Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RouteFilterPrefix' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rfpCidr' - CIDR notation for the advertised route. Multiple routes are separated by commas. IPv6 CIDRs must be at least a /64 or shorter Example: 10.10.10.0/24,10.10.11.0/24,2001:db8::/64+routeFilterPrefix+    :: RouteFilterPrefix+routeFilterPrefix = RouteFilterPrefix' {_rfpCidr = Nothing}+++-- | 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});++instance FromJSON RouteFilterPrefix where+        parseJSON+          = withObject "RouteFilterPrefix"+              (\ x -> RouteFilterPrefix' <$> (x .:? "cidr"))++instance Hashable RouteFilterPrefix where++instance NFData RouteFilterPrefix where++instance ToJSON RouteFilterPrefix where+        toJSON RouteFilterPrefix'{..}+          = object (catMaybes [("cidr" .=) <$> _rfpCidr])++-- | Information about a tag.+--+--+--+-- /See:/ 'tag' smart constructor.+data Tag = Tag'+  { _tagValue :: !(Maybe Text)+  , _tagKey   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'Tag' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tagValue' - The value of the tag.+--+-- * 'tagKey' - The key of the tag.+tag+    :: Text -- ^ 'tagKey'+    -> Tag+tag pKey_ = Tag' {_tagValue = Nothing, _tagKey = pKey_}+++-- | The value of the tag.+tagValue :: Lens' Tag (Maybe Text)+tagValue = lens _tagValue (\ s a -> s{_tagValue = a});++-- | The key of the tag.+tagKey :: Lens' Tag Text+tagKey = lens _tagKey (\ s a -> s{_tagKey = a});++instance FromJSON Tag where+        parseJSON+          = withObject "Tag"+              (\ x -> Tag' <$> (x .:? "value") <*> (x .: "key"))++instance Hashable Tag where++instance NFData Tag where++instance ToJSON Tag where+        toJSON Tag'{..}+          = object+              (catMaybes+                 [("value" .=) <$> _tagValue,+                  Just ("key" .= _tagKey)])++-- | You can create one or more AWS Direct Connect private virtual interfaces linking to your virtual private gateway.+--+--+-- Virtual private gateways can be managed using the Amazon Virtual Private Cloud (Amazon VPC) console or the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpnGateway.html Amazon EC2 CreateVpnGateway action> .+--+--+-- /See:/ 'virtualGateway' smart constructor.+data VirtualGateway = VirtualGateway'+  { _vgVirtualGatewayId    :: !(Maybe Text)+  , _vgVirtualGatewayState :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VirtualGateway' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'vgVirtualGatewayId' - Undocumented member.+--+-- * 'vgVirtualGatewayState' - Undocumented member.+virtualGateway+    :: VirtualGateway+virtualGateway =+  VirtualGateway'+  {_vgVirtualGatewayId = Nothing, _vgVirtualGatewayState = Nothing}+++-- | Undocumented member.+vgVirtualGatewayId :: Lens' VirtualGateway (Maybe Text)+vgVirtualGatewayId = lens _vgVirtualGatewayId (\ s a -> s{_vgVirtualGatewayId = a});++-- | Undocumented member.+vgVirtualGatewayState :: Lens' VirtualGateway (Maybe Text)+vgVirtualGatewayState = lens _vgVirtualGatewayState (\ s a -> s{_vgVirtualGatewayState = a});++instance FromJSON VirtualGateway where+        parseJSON+          = withObject "VirtualGateway"+              (\ x ->+                 VirtualGateway' <$>+                   (x .:? "virtualGatewayId") <*>+                     (x .:? "virtualGatewayState"))++instance Hashable VirtualGateway where++instance NFData VirtualGateway where++-- | A virtual interface (VLAN) transmits the traffic between the AWS Direct Connect location and the customer.+--+--+--+-- /See:/ 'virtualInterface' smart constructor.+data VirtualInterface = VirtualInterface'+  { _viBgpPeers               :: !(Maybe [BGPPeer])+  , _viVirtualGatewayId       :: !(Maybe Text)+  , _viRouteFilterPrefixes    :: !(Maybe [RouteFilterPrefix])+  , _viCustomerAddress        :: !(Maybe Text)+  , _viVlan                   :: !(Maybe Int)+  , _viLocation               :: !(Maybe Text)+  , _viAmazonAddress          :: !(Maybe Text)+  , _viAddressFamily          :: !(Maybe AddressFamily)+  , _viVirtualInterfaceState  :: !(Maybe VirtualInterfaceState)+  , _viConnectionId           :: !(Maybe Text)+  , _viDirectConnectGatewayId :: !(Maybe Text)+  , _viAmazonSideASN          :: !(Maybe Integer)+  , _viVirtualInterfaceType   :: !(Maybe Text)+  , _viAsn                    :: !(Maybe Int)+  , _viAuthKey                :: !(Maybe Text)+  , _viCustomerRouterConfig   :: !(Maybe Text)+  , _viOwnerAccount           :: !(Maybe Text)+  , _viVirtualInterfaceName   :: !(Maybe Text)+  , _viVirtualInterfaceId     :: !(Maybe Text)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'VirtualInterface' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'viBgpPeers' - Undocumented member.+--+-- * 'viVirtualGatewayId' - Undocumented member.+--+-- * 'viRouteFilterPrefixes' - Undocumented member.+--+-- * 'viCustomerAddress' - Undocumented member.+--+-- * 'viVlan' - Undocumented member.+--+-- * 'viLocation' - Undocumented member.+--+-- * 'viAmazonAddress' - Undocumented member.+--+-- * 'viAddressFamily' - Undocumented member.+--+-- * 'viVirtualInterfaceState' - Undocumented member.+--+-- * 'viConnectionId' - Undocumented member.+--+-- * 'viDirectConnectGatewayId' - Undocumented member.+--+-- * 'viAmazonSideASN' - The autonomous system number (ASN) for the Amazon side of the connection.+--+-- * 'viVirtualInterfaceType' - Undocumented member.+--+-- * 'viAsn' - Undocumented member.+--+-- * 'viAuthKey' - Undocumented member.+--+-- * 'viCustomerRouterConfig' - Information for generating the customer router configuration.+--+-- * 'viOwnerAccount' - The AWS account that will own the new virtual interface.+--+-- * 'viVirtualInterfaceName' - Undocumented member.+--+-- * 'viVirtualInterfaceId' - Undocumented member.+virtualInterface+    :: 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+  }+++-- | Undocumented member.+viBgpPeers :: Lens' VirtualInterface [BGPPeer]+viBgpPeers = lens _viBgpPeers (\ s a -> s{_viBgpPeers = a}) . _Default . _Coerce;++-- | Undocumented member.+viVirtualGatewayId :: Lens' VirtualInterface (Maybe Text)+viVirtualGatewayId = lens _viVirtualGatewayId (\ s a -> s{_viVirtualGatewayId = a});++-- | Undocumented member.+viRouteFilterPrefixes :: Lens' VirtualInterface [RouteFilterPrefix]+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});++-- | Undocumented member.+viVlan :: Lens' VirtualInterface (Maybe Int)+viVlan = lens _viVlan (\ s a -> s{_viVlan = a});++-- | Undocumented member.+viLocation :: Lens' VirtualInterface (Maybe Text)+viLocation = lens _viLocation (\ s a -> s{_viLocation = a});++-- | Undocumented member.+viAmazonAddress :: Lens' VirtualInterface (Maybe Text)+viAmazonAddress = lens _viAmazonAddress (\ s a -> s{_viAmazonAddress = a});++-- | Undocumented member.+viAddressFamily :: Lens' VirtualInterface (Maybe AddressFamily)+viAddressFamily = lens _viAddressFamily (\ s a -> s{_viAddressFamily = a});++-- | Undocumented member.+viVirtualInterfaceState :: Lens' VirtualInterface (Maybe VirtualInterfaceState)+viVirtualInterfaceState = lens _viVirtualInterfaceState (\ s a -> s{_viVirtualInterfaceState = a});++-- | Undocumented member.+viConnectionId :: Lens' VirtualInterface (Maybe Text)+viConnectionId = lens _viConnectionId (\ s a -> s{_viConnectionId = a});++-- | Undocumented member.+viDirectConnectGatewayId :: Lens' VirtualInterface (Maybe Text)+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});++-- | Undocumented member.+viVirtualInterfaceType :: Lens' VirtualInterface (Maybe Text)+viVirtualInterfaceType = lens _viVirtualInterfaceType (\ s a -> s{_viVirtualInterfaceType = a});++-- | Undocumented member.+viAsn :: Lens' VirtualInterface (Maybe Int)+viAsn = lens _viAsn (\ s a -> s{_viAsn = a});++-- | Undocumented member.+viAuthKey :: Lens' VirtualInterface (Maybe Text)+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});++-- | The AWS account that will own the new virtual interface.+viOwnerAccount :: Lens' VirtualInterface (Maybe Text)+viOwnerAccount = lens _viOwnerAccount (\ s a -> s{_viOwnerAccount = a});++-- | Undocumented member.+viVirtualInterfaceName :: Lens' VirtualInterface (Maybe Text)+viVirtualInterfaceName = lens _viVirtualInterfaceName (\ s a -> s{_viVirtualInterfaceName = a});++-- | Undocumented member.+viVirtualInterfaceId :: Lens' VirtualInterface (Maybe Text)+viVirtualInterfaceId = lens _viVirtualInterfaceId (\ s a -> s{_viVirtualInterfaceId = a});++instance FromJSON VirtualInterface where+        parseJSON+          = withObject "VirtualInterface"+              (\ x ->+                 VirtualInterface' <$>+                   (x .:? "bgpPeers" .!= mempty) <*>+                     (x .:? "virtualGatewayId")+                     <*> (x .:? "routeFilterPrefixes" .!= mempty)+                     <*> (x .:? "customerAddress")+                     <*> (x .:? "vlan")+                     <*> (x .:? "location")+                     <*> (x .:? "amazonAddress")+                     <*> (x .:? "addressFamily")+                     <*> (x .:? "virtualInterfaceState")+                     <*> (x .:? "connectionId")+                     <*> (x .:? "directConnectGatewayId")+                     <*> (x .:? "amazonSideAsn")+                     <*> (x .:? "virtualInterfaceType")+                     <*> (x .:? "asn")+                     <*> (x .:? "authKey")+                     <*> (x .:? "customerRouterConfig")+                     <*> (x .:? "ownerAccount")+                     <*> (x .:? "virtualInterfaceName")+                     <*> (x .:? "virtualInterfaceId"))++instance Hashable VirtualInterface where++instance NFData VirtualInterface where