diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,12 @@ ## Description -AWS Direct Connect links your internal network to an AWS Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end of the cable is connected to your router, the other to an AWS Direct Connect router. With this connection in place, you can create virtual interfaces directly to the AWS cloud and Amazon Virtual Private Cloud, bypassing Internet service providers in your network path. + AWS Direct Connect links your internal network to an AWS Direct Connect + location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. + One end of the cable is connected to your router, the other to an AWS Direct + Connect router. With this connection in place, you can create virtual + interfaces directly to the AWS cloud and Amazon Virtual Private Cloud, + bypassing Internet service providers in your network path. Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-directconnect) and [AWS API Reference](http://docs.aws.amazon.com/directconnect/latest/APIReference/Welcome.html). diff --git a/amazonka-directconnect.cabal b/amazonka-directconnect.cabal --- a/amazonka-directconnect.cabal +++ b/amazonka-directconnect.cabal @@ -1,5 +1,5 @@ name: amazonka-directconnect -version: 0.0.1 +version: 0.0.2 synopsis: Amazon Direct Connect SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -14,12 +14,11 @@ description: AWS Direct Connect links your internal network to an AWS Direct Connect - location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic - cable. One end of the cable is connected to your router, the other to - an AWS Direct Connect router. With this connection in place, you can - create virtual interfaces directly to the AWS cloud and Amazon Virtual - Private Cloud, bypassing Internet service providers in your network - path. + location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. + One end of the cable is connected to your router, the other to an AWS Direct + Connect router. With this connection in place, you can create virtual + interfaces directly to the AWS cloud and Amazon Virtual Private Cloud, + bypassing Internet service providers in your network path. . /See:/ . @@ -62,5 +61,5 @@ other-modules: build-depends: - amazonka-core == 0.0.1.* + amazonka-core == 0.0.2.* , base >= 4.7 && < 5 diff --git a/gen/Network/AWS/DirectConnect.hs b/gen/Network/AWS/DirectConnect.hs --- a/gen/Network/AWS/DirectConnect.hs +++ b/gen/Network/AWS/DirectConnect.hs @@ -9,11 +9,11 @@ -- Portability : non-portable (GHC extensions) -- | AWS Direct Connect links your internal network to an AWS Direct Connect --- location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic --- cable. One end of the cable is connected to your router, the other to an --- AWS Direct Connect router. With this connection in place, you can create --- virtual interfaces directly to the AWS cloud and Amazon Virtual Private --- Cloud, bypassing Internet service providers in your network path. +-- location over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. +-- One end of the cable is connected to your router, the other to an AWS Direct +-- Connect router. With this connection in place, you can create virtual +-- interfaces directly to the AWS cloud and Amazon Virtual Private Cloud, +-- bypassing Internet service providers in your network path. module Network.AWS.DirectConnect ( module Network.AWS.DirectConnect.AllocateConnectionOnInterconnect , module Network.AWS.DirectConnect.AllocatePrivateVirtualInterface diff --git a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs --- a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs +++ b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs @@ -20,10 +20,11 @@ -- Stability : experimental -- 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. +-- | 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 ( @@ -95,29 +96,46 @@ , _acoiVlan = p5 } --- | Bandwidth of the connection. Example: "500Mbps" Default: None. +-- | Bandwidth of the connection. +-- +-- Example: "/500Mbps/" +-- +-- Default: None acoiBandwidth :: Lens' AllocateConnectionOnInterconnect Text acoiBandwidth = lens _acoiBandwidth (\s a -> s { _acoiBandwidth = a }) --- | Name of the provisioned connection. Example: "500M Connection to AWS" --- Default: None. +-- | Name of the provisioned connection. +-- +-- Example: "/500M Connection to AWS/" +-- +-- Default: None acoiConnectionName :: Lens' AllocateConnectionOnInterconnect Text acoiConnectionName = lens _acoiConnectionName (\s a -> s { _acoiConnectionName = a }) -- | ID of the interconnect on which the connection will be provisioned. --- Example: dxcon-456abc78 Default: None. +-- +-- Example: dxcon-456abc78 +-- +-- Default: None acoiInterconnectId :: Lens' AllocateConnectionOnInterconnect Text acoiInterconnectId = lens _acoiInterconnectId (\s a -> s { _acoiInterconnectId = a }) -- | Numeric account Id of the customer for whom the connection will be --- provisioned. Example: 123443215678 Default: None. +-- provisioned. +-- +-- Example: 123443215678 +-- +-- Default: None acoiOwnerAccount :: Lens' AllocateConnectionOnInterconnect Text acoiOwnerAccount = lens _acoiOwnerAccount (\s a -> s { _acoiOwnerAccount = a }) --- | The dedicated VLAN provisioned to the connection. Example: 101 Default: --- None. +-- | The dedicated VLAN provisioned to the connection. +-- +-- Example: 101 +-- +-- Default: None acoiVlan :: Lens' AllocateConnectionOnInterconnect Int acoiVlan = lens _acoiVlan (\s a -> s { _acoiVlan = a }) @@ -168,8 +186,11 @@ , _acoirPartnerName = Nothing } --- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or --- 500Mbps (for hosted connections) Default: None. +-- | Bandwidth of the connection. +-- +-- Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) +-- +-- Default: None acoirBandwidth :: Lens' AllocateConnectionOnInterconnectResponse (Maybe Text) acoirBandwidth = lens _acoirBandwidth (\s a -> s { _acoirBandwidth = a }) diff --git a/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/AllocatePrivateVirtualInterface.hs @@ -21,11 +21,13 @@ -- Portability : non-portable (GHC extensions) -- | Provisions a private virtual interface to be owned by a different customer. --- The owner of a connection calls this function to provision a private --- virtual interface which will be owned by another AWS customer. Virtual --- interfaces created using this function must be confirmed by the virtual --- interface owner by calling ConfirmPrivateVirtualInterface. Until this step --- has been completed, the virtual interface will be in 'Confirming' state, +-- +-- 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. -- -- @@ -94,19 +96,22 @@ } -- | The connection ID on which the private virtual interface is provisioned. --- Default: None. +-- +-- Default: None apviConnectionId :: Lens' AllocatePrivateVirtualInterface Text apviConnectionId = lens _apviConnectionId (\s a -> s { _apviConnectionId = a }) -- | Detailed information for the private virtual interface to be provisioned. --- Default: None. +-- +-- Default: None apviNewPrivateVirtualInterfaceAllocation :: Lens' AllocatePrivateVirtualInterface NewPrivateVirtualInterfaceAllocation apviNewPrivateVirtualInterfaceAllocation = lens _apviNewPrivateVirtualInterfaceAllocation (\s a -> s { _apviNewPrivateVirtualInterfaceAllocation = a }) --- | The AWS account that will own the new private virtual interface. Default: --- None. +-- | The AWS account that will own the new private virtual interface. +-- +-- Default: None apviOwnerAccount :: Lens' AllocatePrivateVirtualInterface Text apviOwnerAccount = lens _apviOwnerAccount (\s a -> s { _apviOwnerAccount = a }) diff --git a/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/AllocatePublicVirtualInterface.hs @@ -21,13 +21,15 @@ -- Portability : non-portable (GHC extensions) -- | Provisions a public virtual interface to be owned by a different customer. +-- -- The owner of a connection calls this function to provision a public virtual --- interface which will be owned by another AWS customer. Virtual interfaces --- created using this function must be confirmed by the virtual interface --- owner by calling ConfirmPublicVirtualInterface. Until this step has been --- completed, the virtual interface will be in 'Confirming' state, and will --- not be available for handling traffic. +-- interface which will be owned by another AWS customer. -- +-- Virtual interfaces created using this function must be confirmed by the +-- virtual interface owner by calling ConfirmPublicVirtualInterface. Until this +-- step has been completed, the virtual interface will be in 'Confirming' state, +-- and will not be available for handling traffic. +-- -- module Network.AWS.DirectConnect.AllocatePublicVirtualInterface ( @@ -94,20 +96,23 @@ } -- | The connection ID on which the public virtual interface is provisioned. --- Default: None. +-- +-- Default: None apvi1ConnectionId :: Lens' AllocatePublicVirtualInterface Text apvi1ConnectionId = lens _apvi1ConnectionId (\s a -> s { _apvi1ConnectionId = a }) -- | Detailed information for the public virtual interface to be provisioned. --- Default: None. +-- +-- Default: None apvi1NewPublicVirtualInterfaceAllocation :: Lens' AllocatePublicVirtualInterface NewPublicVirtualInterfaceAllocation apvi1NewPublicVirtualInterfaceAllocation = lens _apvi1NewPublicVirtualInterfaceAllocation (\s a -> s { _apvi1NewPublicVirtualInterfaceAllocation = a }) --- | The AWS account that will own the new public virtual interface. Default: --- None. +-- | The AWS account that will own the new public virtual interface. +-- +-- Default: None apvi1OwnerAccount :: Lens' AllocatePublicVirtualInterface Text apvi1OwnerAccount = lens _apvi1OwnerAccount (\s a -> s { _apvi1OwnerAccount = a }) diff --git a/gen/Network/AWS/DirectConnect/ConfirmConnection.hs b/gen/Network/AWS/DirectConnect/ConfirmConnection.hs --- a/gen/Network/AWS/DirectConnect/ConfirmConnection.hs +++ b/gen/Network/AWS/DirectConnect/ConfirmConnection.hs @@ -20,9 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Confirm the creation of a hosted connection on an interconnect. Upon --- creation, the hosted connection is initially in the 'Ordering' state, and --- will remain in this state until the owner calls ConfirmConnection to +-- | Confirm the creation of a hosted connection on an interconnect. +-- +-- Upon creation, the hosted connection is initially in the 'Ordering' state, +-- and will remain in this state until the owner calls ConfirmConnection to -- confirm creation of the hosted connection. -- -- diff --git a/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/ConfirmPrivateVirtualInterface.hs @@ -20,11 +20,12 @@ -- Stability : experimental -- 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. +-- | Accept ownership of a private virtual interface created by another customer. -- +-- After the virtual interface owner calls this function, the virtual interface +-- will be created and attached to the given virtual private gateway, and will +-- be available for handling traffic. +-- -- module Network.AWS.DirectConnect.ConfirmPrivateVirtualInterface ( @@ -71,9 +72,12 @@ } -- | 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 EC2 CreateVpnGateway action. --- Default: None. +-- interface. +-- +-- A virtual private gateway can be managed via the Amazon Virtual Private +-- Cloud (VPC) console or the action. +-- +-- Default: None cpviVirtualGatewayId :: Lens' ConfirmPrivateVirtualInterface Text cpviVirtualGatewayId = lens _cpviVirtualGatewayId (\s a -> s { _cpviVirtualGatewayId = a }) diff --git a/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/ConfirmPublicVirtualInterface.hs @@ -21,8 +21,9 @@ -- Portability : non-portable (GHC extensions) -- | Accept ownership of a public virtual interface created by another customer. --- After the virtual interface owner calls this function, the specified --- virtual interface will be created and made available for handling traffic. +-- +-- After the virtual interface owner calls this function, the specified virtual +-- interface will be created and made available for handling traffic. -- -- module Network.AWS.DirectConnect.ConfirmPublicVirtualInterface diff --git a/gen/Network/AWS/DirectConnect/CreateConnection.hs b/gen/Network/AWS/DirectConnect/CreateConnection.hs --- a/gen/Network/AWS/DirectConnect/CreateConnection.hs +++ b/gen/Network/AWS/DirectConnect/CreateConnection.hs @@ -21,15 +21,16 @@ -- Portability : non-portable (GHC extensions) -- | Creates a new connection between the customer network and a specific AWS --- Direct Connect location. A connection links your internal network to an AWS --- Direct Connect location over a standard 1 gigabit or 10 gigabit Ethernet --- fiber-optic cable. One end of the cable is connected to your router, the --- other to an AWS Direct Connect router. An AWS Direct Connect location --- provides access to Amazon Web Services in the region it is associated with. --- You can establish connections with AWS Direct Connect locations in multiple --- regions, but a connection in one region does not provide connectivity to --- other regions. +-- Direct Connect location. -- +-- A connection links your internal network to an AWS Direct Connect location +-- over a standard 1 gigabit or 10 gigabit Ethernet fiber-optic cable. One end +-- of the cable is connected to your router, the other to an AWS Direct Connect +-- router. An AWS Direct Connect location provides access to Amazon Web Services +-- in the region it is associated with. You can establish connections with AWS +-- Direct Connect locations in multiple regions, but a connection in one region +-- does not provide connectivity to other regions. +-- -- module Network.AWS.DirectConnect.CreateConnection ( @@ -145,8 +146,11 @@ , _ccrPartnerName = Nothing } --- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or --- 500Mbps (for hosted connections) Default: None. +-- | Bandwidth of the connection. +-- +-- Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) +-- +-- Default: None ccrBandwidth :: Lens' CreateConnectionResponse (Maybe Text) ccrBandwidth = lens _ccrBandwidth (\s a -> s { _ccrBandwidth = a }) diff --git a/gen/Network/AWS/DirectConnect/CreateInterconnect.hs b/gen/Network/AWS/DirectConnect/CreateInterconnect.hs --- a/gen/Network/AWS/DirectConnect/CreateInterconnect.hs +++ b/gen/Network/AWS/DirectConnect/CreateInterconnect.hs @@ -20,20 +20,23 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a new interconnect between a AWS Direct Connect partner's network --- and a specific AWS Direct Connect location. An interconnect is a connection --- which is capable of hosting other connections. The AWS Direct Connect --- partner can use an interconnect to provide sub-1Gbps AWS Direct Connect --- service to tier 2 customers who do not have their own connections. Like a --- standard connection, an interconnect links the AWS Direct Connect partner's --- network to an AWS Direct Connect location over a standard 1 Gbps or 10 Gbps --- Ethernet fiber-optic cable. One end is connected to the partner's router, --- the other to an AWS Direct Connect router. 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. +-- | Creates a new interconnect between a AWS Direct Connect partner's network and +-- a specific AWS Direct Connect location. -- +-- An interconnect is a connection which is capable of hosting other +-- connections. The AWS Direct Connect partner can use an interconnect to +-- provide sub-1Gbps AWS Direct Connect service to tier 2 customers who do not +-- have their own connections. Like a standard connection, an interconnect links +-- the AWS Direct Connect partner's network to an AWS Direct Connect location +-- over a standard 1 Gbps or 10 Gbps Ethernet fiber-optic cable. One end is +-- connected to the partner's router, the other to an AWS Direct Connect router. +-- +-- 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 ( @@ -90,18 +93,30 @@ , _ciLocation = p3 } --- | The port bandwidth Example: 1Gbps Default: None Available values: --- 1Gbps,10Gbps. +-- | The port bandwidth +-- +-- Example: 1Gbps +-- +-- Default: None +-- +-- Available values: 1Gbps,10Gbps ciBandwidth :: Lens' CreateInterconnect Text ciBandwidth = lens _ciBandwidth (\s a -> s { _ciBandwidth = a }) --- | The name of the interconnect. Example: "1G Interconnect to AWS" Default: --- None. +-- | The name of the interconnect. +-- +-- Example: "/1G Interconnect to AWS/" +-- +-- Default: None ciInterconnectName :: Lens' CreateInterconnect Text ciInterconnectName = lens _ciInterconnectName (\s a -> s { _ciInterconnectName = a }) --- | Where the interconnect is located Example: EqSV5 Default: None. +-- | Where the interconnect is located +-- +-- Example: EqSV5 +-- +-- Default: None ciLocation :: Lens' CreateInterconnect Text ciLocation = lens _ciLocation (\s a -> s { _ciLocation = a }) diff --git a/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs b/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/CreatePrivateVirtualInterface.hs @@ -20,9 +20,9 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a new private virtual interface. A virtual interface is the VLAN --- that transports AWS Direct Connect traffic. A private virtual interface --- supports sending traffic to a single virtual private cloud (VPC). +-- | Creates a new private virtual interface. A virtual interface is the VLAN that +-- transports AWS Direct Connect traffic. A private virtual interface supports +-- sending traffic to a single virtual private cloud (VPC). -- -- module Network.AWS.DirectConnect.CreatePrivateVirtualInterface @@ -88,7 +88,8 @@ lens _cpvi1ConnectionId (\s a -> s { _cpvi1ConnectionId = a }) -- | Detailed information for the private virtual interface to be created. --- Default: None. +-- +-- Default: None cpvi1NewPrivateVirtualInterface :: Lens' CreatePrivateVirtualInterface NewPrivateVirtualInterface cpvi1NewPrivateVirtualInterface = lens _cpvi1NewPrivateVirtualInterface diff --git a/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs b/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs --- a/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs +++ b/gen/Network/AWS/DirectConnect/CreatePublicVirtualInterface.hs @@ -20,10 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Creates a new public virtual interface. A virtual interface is the VLAN --- that transports AWS Direct Connect traffic. A public virtual interface --- supports sending traffic to public services of AWS such as Amazon Simple --- Storage Service (Amazon S3). +-- | Creates a new public virtual interface. A virtual interface is the VLAN that +-- transports AWS Direct Connect traffic. A public virtual interface supports +-- sending traffic to public services of AWS such as Amazon Simple Storage +-- Service (Amazon S3). -- -- module Network.AWS.DirectConnect.CreatePublicVirtualInterface @@ -88,7 +88,8 @@ cpviConnectionId = lens _cpviConnectionId (\s a -> s { _cpviConnectionId = a }) -- | Detailed information for the public virtual interface to be created. --- Default: None. +-- +-- Default: None cpviNewPublicVirtualInterface :: Lens' CreatePublicVirtualInterface NewPublicVirtualInterface cpviNewPublicVirtualInterface = lens _cpviNewPublicVirtualInterface diff --git a/gen/Network/AWS/DirectConnect/DeleteConnection.hs b/gen/Network/AWS/DirectConnect/DeleteConnection.hs --- a/gen/Network/AWS/DirectConnect/DeleteConnection.hs +++ b/gen/Network/AWS/DirectConnect/DeleteConnection.hs @@ -20,11 +20,13 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Deletes the connection. Deleting a connection only stops the AWS Direct --- Connect port hour and data transfer charges. You need to cancel separately --- with the providers any services or charges for cross-connects or network --- circuits that connect you to the AWS Direct Connect location. +-- | Deletes the connection. -- +-- Deleting a connection only stops the AWS Direct Connect port hour and data +-- transfer charges. You need to cancel separately with the providers any +-- services or charges for cross-connects or network circuits that connect you +-- to the AWS Direct Connect location. +-- -- module Network.AWS.DirectConnect.DeleteConnection ( @@ -122,8 +124,11 @@ , _dcrPartnerName = Nothing } --- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or --- 500Mbps (for hosted connections) Default: None. +-- | Bandwidth of the connection. +-- +-- Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) +-- +-- Default: None dcrBandwidth :: Lens' DeleteConnectionResponse (Maybe Text) dcrBandwidth = lens _dcrBandwidth (\s a -> s { _dcrBandwidth = a }) diff --git a/gen/Network/AWS/DirectConnect/DescribeConnections.hs b/gen/Network/AWS/DirectConnect/DescribeConnections.hs --- a/gen/Network/AWS/DirectConnect/DescribeConnections.hs +++ b/gen/Network/AWS/DirectConnect/DescribeConnections.hs @@ -20,8 +20,10 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Displays all connections in this region. If a connection ID is provided, --- the call returns only that particular connection. +-- | Displays all connections in this region. +-- +-- If a connection ID is provided, the call returns only that particular +-- connection. -- -- module Network.AWS.DirectConnect.DescribeConnections diff --git a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs --- a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs +++ b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs @@ -63,7 +63,10 @@ } -- | ID of the interconnect on which a list of connection is provisioned. --- Example: dxcon-abc123 Default: None. +-- +-- Example: dxcon-abc123 +-- +-- Default: None dcoiInterconnectId :: Lens' DescribeConnectionsOnInterconnect Text dcoiInterconnectId = lens _dcoiInterconnectId (\s a -> s { _dcoiInterconnectId = a }) diff --git a/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs b/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs --- a/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs +++ b/gen/Network/AWS/DirectConnect/DescribeInterconnects.hs @@ -20,8 +20,9 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Returns a list of interconnects owned by the AWS account. If an --- interconnect ID is provided, it will only return this particular +-- | Returns a list of interconnects owned by the AWS account. +-- +-- If an interconnect ID is provided, it will only return this particular -- interconnect. -- -- diff --git a/gen/Network/AWS/DirectConnect/DescribeLocations.hs b/gen/Network/AWS/DirectConnect/DescribeLocations.hs --- a/gen/Network/AWS/DirectConnect/DescribeLocations.hs +++ b/gen/Network/AWS/DirectConnect/DescribeLocations.hs @@ -21,8 +21,8 @@ -- Portability : non-portable (GHC extensions) -- | Returns the list of AWS Direct Connect locations in the current AWS region. --- These are the locations that may be selected when calling CreateConnection --- or CreateInterconnect. +-- These are the locations that may be selected when calling CreateConnection or +-- CreateInterconnect. -- -- module Network.AWS.DirectConnect.DescribeLocations diff --git a/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs b/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs --- a/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs +++ b/gen/Network/AWS/DirectConnect/DescribeVirtualGateways.hs @@ -20,11 +20,11 @@ -- Stability : experimental -- Portability : non-portable (GHC extensions) --- | Returns a list of virtual private gateways owned by the AWS account. You --- can create one or more AWS Direct Connect private virtual interfaces +-- | Returns a list of virtual private gateways owned by the AWS account. +-- +-- You can create one or more AWS Direct Connect private virtual interfaces -- linking to a virtual private gateway. A virtual private gateway can be --- managed via Amazon Virtual Private Cloud (VPC) console or the EC2 --- CreateVpnGateway action. +-- managed via Amazon Virtual Private Cloud (VPC) console or the action. -- -- module Network.AWS.DirectConnect.DescribeVirtualGateways diff --git a/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs b/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs --- a/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs +++ b/gen/Network/AWS/DirectConnect/DescribeVirtualInterfaces.hs @@ -21,15 +21,17 @@ -- 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. 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. +-- deleted fewer than 15 minutes before DescribeVirtualInterfaces is called are +-- also returned. If a connection ID is included then only virtual interfaces +-- associated with this connection will be returned. If a virtual interface ID +-- is included then only a single virtual interface will be returned. +-- +-- A virtual interface (VLAN) transmits the traffic between the AWS Direct +-- Connect location and the customer. +-- +-- If a connection ID is provided, only virtual interfaces provisioned on the +-- specified connection will be returned. If a virtual interface ID is provided, +-- only this particular virtual interface will be returned. -- -- module Network.AWS.DirectConnect.DescribeVirtualInterfaces diff --git a/gen/Network/AWS/DirectConnect/Types.hs b/gen/Network/AWS/DirectConnect/Types.hs --- a/gen/Network/AWS/DirectConnect/Types.hs +++ b/gen/Network/AWS/DirectConnect/Types.hs @@ -354,8 +354,8 @@ lLocationCode :: Lens' Location (Maybe Text) lLocationCode = lens _lLocationCode (\s a -> s { _lLocationCode = a }) --- | The name of the AWS Direct Connect location. The name includes the --- colocation partner name and the physical site of the lit building. +-- | 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 }) @@ -496,13 +496,16 @@ instance Hashable VirtualInterfaceState instance FromText VirtualInterfaceState where - parser = match "available" Available - <|> match "confirming" Confirming - <|> match "deleted" Deleted - <|> match "deleting" Deleting - <|> match "pending" Pending - <|> match "rejected" Rejected - <|> match "verifying" Verifying + parser = takeText >>= \case + "available" -> pure Available + "confirming" -> pure Confirming + "deleted" -> pure Deleted + "deleting" -> pure Deleting + "pending" -> pure Pending + "rejected" -> pure Rejected + "verifying" -> pure Verifying + e -> fail $ + "Failure parsing VirtualInterfaceState from " ++ show e instance ToText VirtualInterfaceState where toText = \case @@ -571,8 +574,11 @@ , _cPartnerName = Nothing } --- | Bandwidth of the connection. Example: 1Gbps (for regular connections), or --- 500Mbps (for hosted connections) Default: None. +-- | Bandwidth of the connection. +-- +-- Example: 1Gbps (for regular connections), or 500Mbps (for hosted connections) +-- +-- Default: None cBandwidth :: Lens' Connection (Maybe Text) cBandwidth = lens _cBandwidth (\s a -> s { _cBandwidth = a }) @@ -803,12 +809,15 @@ instance Hashable InterconnectState instance FromText InterconnectState where - parser = match "available" ISAvailable - <|> match "deleted" ISDeleted - <|> match "deleting" ISDeleting - <|> match "down" ISDown - <|> match "pending" ISPending - <|> match "requested" ISRequested + parser = takeText >>= \case + "available" -> pure ISAvailable + "deleted" -> pure ISDeleted + "deleting" -> pure ISDeleting + "down" -> pure ISDown + "pending" -> pure ISPending + "requested" -> pure ISRequested + e -> fail $ + "Failure parsing InterconnectState from " ++ show e instance ToText InterconnectState where toText = \case @@ -1026,14 +1035,17 @@ instance Hashable ConnectionState instance FromText ConnectionState where - parser = match "available" CSAvailable - <|> match "deleted" CSDeleted - <|> match "deleting" CSDeleting - <|> match "down" CSDown - <|> match "ordering" CSOrdering - <|> match "pending" CSPending - <|> match "rejected" CSRejected - <|> match "requested" CSRequested + parser = takeText >>= \case + "available" -> pure CSAvailable + "deleted" -> pure CSDeleted + "deleting" -> pure CSDeleting + "down" -> pure CSDown + "ordering" -> pure CSOrdering + "pending" -> pure CSPending + "rejected" -> pure CSRejected + "requested" -> pure CSRequested + e -> fail $ + "Failure parsing ConnectionState from " ++ show e instance ToText ConnectionState where toText = \case @@ -1110,7 +1122,9 @@ } -- | CIDR notation for the advertised route. Multiple routes are separated by --- commas. Example: 10.10.10.0/24,10.10.11.0/24. +-- commas. +-- +-- Example: 10.10.10.0/24,10.10.11.0/24 rfpCidr :: Lens' RouteFilterPrefix (Maybe Text) rfpCidr = lens _rfpCidr (\s a -> s { _rfpCidr = a })