diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.4.0`
+`1.4.1`
 
 
 ## 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.4.0
+version:               1.4.1
 synopsis:              Amazon Direct Connect SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -80,7 +80,7 @@
         , Network.AWS.DirectConnect.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-directconnect-test
@@ -100,9 +100,9 @@
         , Test.AWS.DirectConnect.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-directconnect == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-directconnect == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/AllocateConnectionOnInterconnect.hs
@@ -146,6 +146,8 @@
 
 instance Hashable AllocateConnectionOnInterconnect
 
+instance NFData AllocateConnectionOnInterconnect
+
 instance ToHeaders AllocateConnectionOnInterconnect
          where
         toHeaders
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
@@ -125,6 +125,8 @@
 
 instance Hashable AllocatePrivateVirtualInterface
 
+instance NFData AllocatePrivateVirtualInterface
+
 instance ToHeaders AllocatePrivateVirtualInterface
          where
         toHeaders
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
@@ -124,6 +124,8 @@
 
 instance Hashable AllocatePublicVirtualInterface
 
+instance NFData AllocatePublicVirtualInterface
+
 instance ToHeaders AllocatePublicVirtualInterface
          where
         toHeaders
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
@@ -81,6 +81,8 @@
 
 instance Hashable ConfirmConnection
 
+instance NFData ConfirmConnection
+
 instance ToHeaders ConfirmConnection where
         toHeaders
           = const
@@ -133,3 +135,5 @@
 -- | The response status code.
 ccrsResponseStatus :: Lens' ConfirmConnectionResponse Int
 ccrsResponseStatus = lens _ccrsResponseStatus (\ s a -> s{_ccrsResponseStatus = a});
+
+instance NFData ConfirmConnectionResponse
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
@@ -104,6 +104,8 @@
 
 instance Hashable ConfirmPrivateVirtualInterface
 
+instance NFData ConfirmPrivateVirtualInterface
+
 instance ToHeaders ConfirmPrivateVirtualInterface
          where
         toHeaders
@@ -160,3 +162,6 @@
 -- | The response status code.
 cpvirsResponseStatus :: Lens' ConfirmPrivateVirtualInterfaceResponse Int
 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
@@ -86,6 +86,8 @@
 
 instance Hashable ConfirmPublicVirtualInterface
 
+instance NFData ConfirmPublicVirtualInterface
+
 instance ToHeaders ConfirmPublicVirtualInterface
          where
         toHeaders
@@ -141,3 +143,5 @@
 -- | The response status code.
 crsResponseStatus :: Lens' ConfirmPublicVirtualInterfaceResponse Int
 crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});
+
+instance NFData ConfirmPublicVirtualInterfaceResponse
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
@@ -110,6 +110,8 @@
 
 instance Hashable CreateConnection
 
+instance NFData CreateConnection
+
 instance ToHeaders CreateConnection where
         toHeaders
           = const
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
@@ -127,6 +127,8 @@
 
 instance Hashable CreateInterconnect
 
+instance NFData CreateInterconnect
+
 instance ToHeaders CreateInterconnect where
         toHeaders
           = const
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
@@ -103,6 +103,8 @@
 
 instance Hashable CreatePrivateVirtualInterface
 
+instance NFData CreatePrivateVirtualInterface
+
 instance ToHeaders CreatePrivateVirtualInterface
          where
         toHeaders
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
@@ -104,6 +104,8 @@
 
 instance Hashable CreatePublicVirtualInterface
 
+instance NFData CreatePublicVirtualInterface
+
 instance ToHeaders CreatePublicVirtualInterface where
         toHeaders
           = const
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
@@ -85,6 +85,8 @@
 
 instance Hashable DeleteConnection
 
+instance NFData DeleteConnection
+
 instance ToHeaders DeleteConnection where
         toHeaders
           = const
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
@@ -78,6 +78,8 @@
 
 instance Hashable DeleteInterconnect
 
+instance NFData DeleteInterconnect
+
 instance ToHeaders DeleteInterconnect where
         toHeaders
           = const
@@ -130,3 +132,5 @@
 -- | The response status code.
 drsResponseStatus :: Lens' DeleteInterconnectResponse Int
 drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});
+
+instance NFData DeleteInterconnectResponse
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
@@ -79,6 +79,8 @@
 
 instance Hashable DeleteVirtualInterface
 
+instance NFData DeleteVirtualInterface
+
 instance ToHeaders DeleteVirtualInterface where
         toHeaders
           = const
@@ -133,3 +135,5 @@
 -- | The response status code.
 dvirsResponseStatus :: Lens' DeleteVirtualInterfaceResponse Int
 dvirsResponseStatus = lens _dvirsResponseStatus (\ s a -> s{_dvirsResponseStatus = a});
+
+instance NFData DeleteVirtualInterfaceResponse
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
@@ -74,6 +74,8 @@
 
 instance Hashable DescribeConnections
 
+instance NFData DescribeConnections
+
 instance ToHeaders DescribeConnections where
         toHeaders
           = const
diff --git a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
--- a/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
+++ b/gen/Network/AWS/DirectConnect/DescribeConnectionsOnInterconnect.hs
@@ -80,6 +80,8 @@
 
 instance Hashable DescribeConnectionsOnInterconnect
 
+instance NFData DescribeConnectionsOnInterconnect
+
 instance ToHeaders DescribeConnectionsOnInterconnect
          where
         toHeaders
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
@@ -81,6 +81,8 @@
 
 instance Hashable DescribeInterconnects
 
+instance NFData DescribeInterconnects
+
 instance ToHeaders DescribeInterconnects where
         toHeaders
           = const
@@ -134,3 +136,5 @@
 -- | The response status code.
 dirsResponseStatus :: Lens' DescribeInterconnectsResponse Int
 dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});
+
+instance NFData DescribeInterconnectsResponse
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
@@ -65,6 +65,8 @@
 
 instance Hashable DescribeLocations
 
+instance NFData DescribeLocations
+
 instance ToHeaders DescribeLocations where
         toHeaders
           = const
@@ -119,3 +121,5 @@
 -- | The response status code.
 dlrsResponseStatus :: Lens' DescribeLocationsResponse Int
 dlrsResponseStatus = lens _dlrsResponseStatus (\ s a -> s{_dlrsResponseStatus = a});
+
+instance NFData DescribeLocationsResponse
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
@@ -70,6 +70,8 @@
 
 instance Hashable DescribeVirtualGateways
 
+instance NFData DescribeVirtualGateways
+
 instance ToHeaders DescribeVirtualGateways where
         toHeaders
           = const
@@ -120,3 +122,5 @@
 -- | The response status code.
 dvgrsResponseStatus :: Lens' DescribeVirtualGatewaysResponse Int
 dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a});
+
+instance NFData DescribeVirtualGatewaysResponse
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
@@ -99,6 +99,8 @@
 
 instance Hashable DescribeVirtualInterfaces
 
+instance NFData DescribeVirtualInterfaces
+
 instance ToHeaders DescribeVirtualInterfaces where
         toHeaders
           = const
@@ -154,3 +156,5 @@
 -- | The response status code.
 dvisrsResponseStatus :: Lens' DescribeVirtualInterfacesResponse Int
 dvisrsResponseStatus = lens _dvisrsResponseStatus (\ s a -> s{_dvisrsResponseStatus = a});
+
+instance NFData DescribeVirtualInterfacesResponse
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
@@ -169,6 +169,8 @@
       | has (hasCode "ThrottlingException" . hasStatus 400) e =
           Just "throttling_exception"
       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"
+      | has (hasStatus 504) e = Just "gateway_timeout"
+      | has (hasStatus 502) e = Just "bad_gateway"
       | has (hasStatus 503) e = Just "service_unavailable"
       | has (hasStatus 500) e = Just "general_server_error"
       | has (hasStatus 509) e = Just "limit_exceeded"
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
@@ -130,6 +130,8 @@
 
 instance Hashable Connection
 
+instance NFData Connection
+
 -- | A structure containing a list of connections.
 --
 -- /See:/ 'connections' smart constructor.
@@ -161,6 +163,8 @@
 
 instance Hashable Connections
 
+instance NFData Connections
+
 -- | An interconnect is a connection that can host other connections.
 --
 -- Like a standard AWS Direct Connect connection, an interconnect
@@ -248,6 +252,8 @@
 
 instance Hashable Interconnect
 
+instance NFData Interconnect
+
 -- | An AWS Direct Connect location where connections and interconnects can
 -- be requested.
 --
@@ -290,6 +296,8 @@
 
 instance Hashable Location
 
+instance NFData Location
+
 -- | A structure containing information about a new private virtual
 -- interface.
 --
@@ -368,6 +376,8 @@
 
 instance Hashable NewPrivateVirtualInterface
 
+instance NFData NewPrivateVirtualInterface
+
 instance ToJSON NewPrivateVirtualInterface where
         toJSON NewPrivateVirtualInterface'{..}
           = object
@@ -450,6 +460,8 @@
 instance Hashable
          NewPrivateVirtualInterfaceAllocation
 
+instance NFData NewPrivateVirtualInterfaceAllocation
+
 instance ToJSON NewPrivateVirtualInterfaceAllocation
          where
         toJSON NewPrivateVirtualInterfaceAllocation'{..}
@@ -542,6 +554,8 @@
 
 instance Hashable NewPublicVirtualInterface
 
+instance NFData NewPublicVirtualInterface
+
 instance ToJSON NewPublicVirtualInterface where
         toJSON NewPublicVirtualInterface'{..}
           = object
@@ -635,6 +649,8 @@
 
 instance Hashable NewPublicVirtualInterfaceAllocation
 
+instance NFData NewPublicVirtualInterfaceAllocation
+
 instance ToJSON NewPublicVirtualInterfaceAllocation
          where
         toJSON NewPublicVirtualInterfaceAllocation'{..}
@@ -683,6 +699,8 @@
 
 instance Hashable RouteFilterPrefix
 
+instance NFData RouteFilterPrefix
+
 instance ToJSON RouteFilterPrefix where
         toJSON RouteFilterPrefix'{..}
           = object (catMaybes [("cidr" .=) <$> _rfpCidr])
@@ -733,6 +751,8 @@
 
 instance Hashable VirtualGateway
 
+instance NFData VirtualGateway
+
 -- | A virtual interface (VLAN) transmits the traffic between the AWS Direct
 -- Connect location and the customer.
 --
@@ -891,3 +911,5 @@
                      <*> (x .:? "virtualInterfaceId"))
 
 instance Hashable VirtualInterface
+
+instance NFData VirtualInterface
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
@@ -73,6 +73,7 @@
         CSRequested -> "requested"
 
 instance Hashable     ConnectionState
+instance NFData       ConnectionState
 instance ToByteString ConnectionState
 instance ToQuery      ConnectionState
 instance ToHeader     ConnectionState
@@ -122,6 +123,7 @@
         ISRequested -> "requested"
 
 instance Hashable     InterconnectState
+instance NFData       InterconnectState
 instance ToByteString InterconnectState
 instance ToQuery      InterconnectState
 instance ToHeader     InterconnectState
@@ -185,6 +187,7 @@
         Verifying -> "verifying"
 
 instance Hashable     VirtualInterfaceState
+instance NFData       VirtualInterfaceState
 instance ToByteString VirtualInterfaceState
 instance ToQuery      VirtualInterfaceState
 instance ToHeader     VirtualInterfaceState