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