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-workspaces.cabal b/amazonka-workspaces.cabal
--- a/amazonka-workspaces.cabal
+++ b/amazonka-workspaces.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-workspaces
-version:               1.4.0
+version:               1.4.1
 synopsis:              Amazon WorkSpaces SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -60,7 +60,7 @@
         , Network.AWS.WorkSpaces.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.0.*
+          amazonka-core == 1.4.1.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-workspaces-test
@@ -80,9 +80,9 @@
         , Test.AWS.WorkSpaces.Internal
 
     build-depends:
-          amazonka-core == 1.4.0.*
-        , amazonka-test == 1.4.0.*
-        , amazonka-workspaces == 1.4.0.*
+          amazonka-core == 1.4.1.*
+        , amazonka-test == 1.4.1.*
+        , amazonka-workspaces == 1.4.1.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs b/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs
@@ -83,6 +83,8 @@
 
 instance Hashable CreateWorkspaces
 
+instance NFData CreateWorkspaces
+
 instance ToHeaders CreateWorkspaces where
         toHeaders
           = const
@@ -148,3 +150,5 @@
 -- | The response status code.
 cwrsResponseStatus :: Lens' CreateWorkspacesResponse Int
 cwrsResponseStatus = lens _cwrsResponseStatus (\ s a -> s{_cwrsResponseStatus = a});
+
+instance NFData CreateWorkspacesResponse
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs
@@ -116,6 +116,8 @@
 
 instance Hashable DescribeWorkspaceBundles
 
+instance NFData DescribeWorkspaceBundles
+
 instance ToHeaders DescribeWorkspaceBundles where
         toHeaders
           = const
@@ -182,3 +184,5 @@
 -- | The response status code.
 dwbrsResponseStatus :: Lens' DescribeWorkspaceBundlesResponse Int
 dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = a});
+
+instance NFData DescribeWorkspaceBundlesResponse
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs
@@ -99,6 +99,8 @@
 
 instance Hashable DescribeWorkspaceDirectories
 
+instance NFData DescribeWorkspaceDirectories
+
 instance ToHeaders DescribeWorkspaceDirectories where
         toHeaders
           = const
@@ -164,3 +166,5 @@
 -- | The response status code.
 dwdrsResponseStatus :: Lens' DescribeWorkspaceDirectoriesResponse Int
 dwdrsResponseStatus = lens _dwdrsResponseStatus (\ s a -> s{_dwdrsResponseStatus = a});
+
+instance NFData DescribeWorkspaceDirectoriesResponse
diff --git a/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs b/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs
@@ -147,6 +147,8 @@
 
 instance Hashable DescribeWorkspaces
 
+instance NFData DescribeWorkspaces
+
 instance ToHeaders DescribeWorkspaces where
         toHeaders
           = const
@@ -220,3 +222,5 @@
 -- | The response status code.
 dwrsResponseStatus :: Lens' DescribeWorkspacesResponse Int
 dwrsResponseStatus = lens _dwrsResponseStatus (\ s a -> s{_dwrsResponseStatus = a});
+
+instance NFData DescribeWorkspacesResponse
diff --git a/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs b/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs
@@ -84,6 +84,8 @@
 
 instance Hashable RebootWorkspaces
 
+instance NFData RebootWorkspaces
+
 instance ToHeaders RebootWorkspaces where
         toHeaders
           = const
@@ -139,3 +141,5 @@
 -- | The response status code.
 rrsResponseStatus :: Lens' RebootWorkspacesResponse Int
 rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});
+
+instance NFData RebootWorkspacesResponse
diff --git a/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs b/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs
@@ -98,6 +98,8 @@
 
 instance Hashable RebuildWorkspaces
 
+instance NFData RebuildWorkspaces
+
 instance ToHeaders RebuildWorkspaces where
         toHeaders
           = const
@@ -154,3 +156,5 @@
 -- | The response status code.
 rwrsResponseStatus :: Lens' RebuildWorkspacesResponse Int
 rwrsResponseStatus = lens _rwrsResponseStatus (\ s a -> s{_rwrsResponseStatus = a});
+
+instance NFData RebuildWorkspacesResponse
diff --git a/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs b/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
--- a/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
+++ b/gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs
@@ -89,6 +89,8 @@
 
 instance Hashable TerminateWorkspaces
 
+instance NFData TerminateWorkspaces
+
 instance ToHeaders TerminateWorkspaces where
         toHeaders
           = const
@@ -145,3 +147,5 @@
 -- | The response status code.
 twrsResponseStatus :: Lens' TerminateWorkspacesResponse Int
 twrsResponseStatus = lens _twrsResponseStatus (\ s a -> s{_twrsResponseStatus = a});
+
+instance NFData TerminateWorkspacesResponse
diff --git a/gen/Network/AWS/WorkSpaces/Types.hs b/gen/Network/AWS/WorkSpaces/Types.hs
--- a/gen/Network/AWS/WorkSpaces/Types.hs
+++ b/gen/Network/AWS/WorkSpaces/Types.hs
@@ -167,6 +167,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/WorkSpaces/Types/Product.hs b/gen/Network/AWS/WorkSpaces/Types/Product.hs
--- a/gen/Network/AWS/WorkSpaces/Types/Product.hs
+++ b/gen/Network/AWS/WorkSpaces/Types/Product.hs
@@ -51,6 +51,8 @@
 
 instance Hashable ComputeType
 
+instance NFData ComputeType
+
 -- | Contains default WorkSpace creation information.
 --
 -- /See:/ 'defaultWorkspaceCreationProperties' smart constructor.
@@ -123,6 +125,8 @@
 
 instance Hashable DefaultWorkspaceCreationProperties
 
+instance NFData DefaultWorkspaceCreationProperties
+
 -- | Contains information about a WorkSpace that could not be created.
 --
 -- /See:/ 'failedCreateWorkspaceRequest' smart constructor.
@@ -173,6 +177,8 @@
 
 instance Hashable FailedCreateWorkspaceRequest
 
+instance NFData FailedCreateWorkspaceRequest
+
 -- | Contains information about a WorkSpace that could not be rebooted
 -- (< RebootWorkspaces>), rebuilt (< RebuildWorkspaces>), or terminated
 -- (< TerminateWorkspaces>).
@@ -224,6 +230,8 @@
 
 instance Hashable FailedWorkspaceChangeRequest
 
+instance NFData FailedWorkspaceChangeRequest
+
 -- | Contains information used with the < RebootWorkspaces> operation to
 -- reboot a WorkSpace.
 --
@@ -251,6 +259,8 @@
 
 instance Hashable RebootRequest
 
+instance NFData RebootRequest
+
 instance ToJSON RebootRequest where
         toJSON RebootRequest'{..}
           = object
@@ -283,6 +293,8 @@
 
 instance Hashable RebuildRequest
 
+instance NFData RebuildRequest
+
 instance ToJSON RebuildRequest where
         toJSON RebuildRequest'{..}
           = object
@@ -315,6 +327,8 @@
 
 instance Hashable TerminateRequest
 
+instance NFData TerminateRequest
+
 instance ToJSON TerminateRequest where
         toJSON TerminateRequest'{..}
           = object
@@ -350,6 +364,8 @@
 
 instance Hashable UserStorage
 
+instance NFData UserStorage
+
 -- | Contains information about a WorkSpace.
 --
 -- /See:/ 'workspace' smart constructor.
@@ -493,6 +509,8 @@
 
 instance Hashable Workspace
 
+instance NFData Workspace
+
 -- | Contains information about a WorkSpace bundle.
 --
 -- /See:/ 'workspaceBundle' smart constructor.
@@ -571,6 +589,8 @@
 
 instance Hashable WorkspaceBundle
 
+instance NFData WorkspaceBundle
+
 -- | Contains information about an AWS Directory Service directory for use
 -- with Amazon WorkSpaces.
 --
@@ -709,6 +729,8 @@
 
 instance Hashable WorkspaceDirectory
 
+instance NFData WorkspaceDirectory
+
 -- | Contains information about a WorkSpace creation request.
 --
 -- /See:/ 'workspaceRequest' smart constructor.
@@ -796,6 +818,8 @@
                      <*> (x .: "BundleId"))
 
 instance Hashable WorkspaceRequest
+
+instance NFData WorkspaceRequest
 
 instance ToJSON WorkspaceRequest where
         toJSON WorkspaceRequest'{..}
diff --git a/gen/Network/AWS/WorkSpaces/Types/Sum.hs b/gen/Network/AWS/WorkSpaces/Types/Sum.hs
--- a/gen/Network/AWS/WorkSpaces/Types/Sum.hs
+++ b/gen/Network/AWS/WorkSpaces/Types/Sum.hs
@@ -40,6 +40,7 @@
         Value -> "VALUE"
 
 instance Hashable     Compute
+instance NFData       Compute
 instance ToByteString Compute
 instance ToQuery      Compute
 instance ToHeader     Compute
@@ -74,6 +75,7 @@
         Registering -> "REGISTERING"
 
 instance Hashable     WorkspaceDirectoryState
+instance NFData       WorkspaceDirectoryState
 instance ToByteString WorkspaceDirectoryState
 instance ToQuery      WorkspaceDirectoryState
 instance ToHeader     WorkspaceDirectoryState
@@ -99,6 +101,7 @@
         SimpleAd -> "SIMPLE_AD"
 
 instance Hashable     WorkspaceDirectoryType
+instance NFData       WorkspaceDirectoryType
 instance ToByteString WorkspaceDirectoryType
 instance ToQuery      WorkspaceDirectoryType
 instance ToHeader     WorkspaceDirectoryType
@@ -148,6 +151,7 @@
         WSUnhealthy -> "UNHEALTHY"
 
 instance Hashable     WorkspaceState
+instance NFData       WorkspaceState
 instance ToByteString WorkspaceState
 instance ToQuery      WorkspaceState
 instance ToHeader     WorkspaceState