diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,16 +8,14 @@
 
 ## Version
 
-`1.4.2`
+`1.4.3`
 
 
 ## Description
 
 Amazon WorkSpaces Service
 
-This is the /Amazon WorkSpaces API Reference/. This guide provides
-detailed information about Amazon WorkSpaces operations, data types,
-parameters, and errors.
+This is the /Amazon WorkSpaces API Reference/. This guide provides detailed information about Amazon WorkSpaces operations, data types, parameters, and errors.
 
 Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-workspaces)
 and the [AWS API Reference](https://aws.amazon.com/documentation/).
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.2
+version:               1.4.3
 synopsis:              Amazon WorkSpaces SDK.
 homepage:              https://github.com/brendanhay/amazonka
 bug-reports:           https://github.com/brendanhay/amazonka/issues
@@ -15,9 +15,7 @@
 description:
     Amazon WorkSpaces Service
 
-    This is the /Amazon WorkSpaces API Reference/. This guide provides
-    detailed information about Amazon WorkSpaces operations, data types,
-    parameters, and errors.
+    This is the /Amazon WorkSpaces API Reference/. This guide provides detailed information about Amazon WorkSpaces operations, data types, parameters, and errors.
     .
     The types from this library are intended to be used with
     <http://hackage.haskell.org/package/amazonka amazonka>, which provides
@@ -60,7 +58,7 @@
         , Network.AWS.WorkSpaces.Types.Sum
 
     build-depends:
-          amazonka-core == 1.4.2.*
+          amazonka-core == 1.4.3.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-workspaces-test
@@ -80,9 +78,9 @@
         , Test.AWS.WorkSpaces.Internal
 
     build-depends:
-          amazonka-core == 1.4.2.*
-        , amazonka-test == 1.4.2.*
-        , amazonka-workspaces == 1.4.2.*
+          amazonka-core == 1.4.3.*
+        , amazonka-test == 1.4.3.*
+        , amazonka-workspaces == 1.4.3.*
         , base
         , bytestring
         , tasty
diff --git a/gen/Network/AWS/WorkSpaces.hs b/gen/Network/AWS/WorkSpaces.hs
--- a/gen/Network/AWS/WorkSpaces.hs
+++ b/gen/Network/AWS/WorkSpaces.hs
@@ -13,9 +13,7 @@
 --
 -- Amazon WorkSpaces Service
 --
--- This is the /Amazon WorkSpaces API Reference/. This guide provides
--- detailed information about Amazon WorkSpaces operations, data types,
--- parameters, and errors.
+-- This is the /Amazon WorkSpaces API Reference/. This guide provides detailed information about Amazon WorkSpaces operations, data types, parameters, and errors.
 module Network.AWS.WorkSpaces
     (
     -- * Service Configuration
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
@@ -20,8 +20,7 @@
 --
 -- Creates one or more WorkSpaces.
 --
--- This operation is asynchronous and returns before the WorkSpaces are
--- created.
+-- This operation is asynchronous and returns before the WorkSpaces are created.
 module Network.AWS.WorkSpaces.CreateWorkspaces
     (
     -- * Creating a Request
@@ -133,17 +132,13 @@
     , _cwrsResponseStatus = pResponseStatus_
     }
 
--- | An array of structures that represent the WorkSpaces that could not be
--- created.
+-- | An array of structures that represent the WorkSpaces that could not be created.
 cwrsFailedRequests :: Lens' CreateWorkspacesResponse [FailedCreateWorkspaceRequest]
 cwrsFailedRequests = lens _cwrsFailedRequests (\ s a -> s{_cwrsFailedRequests = a}) . _Default . _Coerce;
 
 -- | An array of structures that represent the WorkSpaces that were created.
 --
--- Because this operation is asynchronous, the identifier in 'WorkspaceId'
--- is not immediately available. If you immediately call
--- < DescribeWorkspaces> with this identifier, no information will be
--- returned.
+-- Because this operation is asynchronous, the identifier in 'WorkspaceId' is not immediately available. If you immediately call < DescribeWorkspaces> with this identifier, no information will be returned.
 cwrsPendingRequests :: Lens' CreateWorkspacesResponse [Workspace]
 cwrsPendingRequests = lens _cwrsPendingRequests (\ s a -> s{_cwrsPendingRequests = a}) . _Default . _Coerce;
 
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
@@ -18,16 +18,11 @@
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Obtains information about the WorkSpace bundles that are available to
--- your account in the specified region.
+-- Obtains information about the WorkSpace bundles that are available to your account in the specified region.
 --
--- You can filter the results with either the 'BundleIds' parameter, or the
--- 'Owner' parameter, but not both.
+-- You can filter the results with either the 'BundleIds' parameter, or the 'Owner' parameter, but not both.
 --
--- This operation supports pagination with the use of the 'NextToken'
--- request and response parameters. If more results are available, the
--- 'NextToken' response member contains a token that you pass in the next
--- call to this operation to retrieve the next set of items.
+-- This operation supports pagination with the use of the 'NextToken' request and response parameters. If more results are available, the 'NextToken' response member contains a token that you pass in the next call to this operation to retrieve the next set of items.
 module Network.AWS.WorkSpaces.DescribeWorkspaceBundles
     (
     -- * Creating a Request
@@ -81,25 +76,20 @@
     , _dwbNextToken = Nothing
     }
 
--- | An array of strings that contains the identifiers of the bundles to
--- retrieve. This parameter cannot be combined with any other filter
--- parameter.
+-- | An array of strings that contains the identifiers of the bundles to retrieve. This parameter cannot be combined with any other filter parameter.
 dwbBundleIds :: Lens' DescribeWorkspaceBundles (Maybe (NonEmpty Text))
 dwbBundleIds = lens _dwbBundleIds (\ s a -> s{_dwbBundleIds = a}) . mapping _List1;
 
--- | The owner of the bundles to retrieve. This parameter cannot be combined
--- with any other filter parameter.
+-- | The owner of the bundles to retrieve. This parameter cannot be combined with any other filter parameter.
 --
 -- This contains one of the following values:
 --
--- -   null - Retrieves the bundles that belong to the account making the
---     call.
+-- -   null - Retrieves the bundles that belong to the account making the call.
 -- -   'AMAZON' - Retrieves the bundles that are provided by AWS.
 dwbOwner :: Lens' DescribeWorkspaceBundles (Maybe Text)
 dwbOwner = lens _dwbOwner (\ s a -> s{_dwbOwner = a});
 
--- | The 'NextToken' value from a previous call to this operation. Pass null
--- if this is the first call.
+-- | The 'NextToken' value from a previous call to this operation. Pass null if this is the first call.
 dwbNextToken :: Lens' DescribeWorkspaceBundles (Maybe Text)
 dwbNextToken = lens _dwbNextToken (\ s a -> s{_dwbNextToken = a});
 
@@ -174,10 +164,7 @@
 dwbrsBundles :: Lens' DescribeWorkspaceBundlesResponse [WorkspaceBundle]
 dwbrsBundles = lens _dwbrsBundles (\ s a -> s{_dwbrsBundles = a}) . _Default . _Coerce;
 
--- | If not null, more results are available. Pass this value for the
--- 'NextToken' parameter in a subsequent call to this operation to retrieve
--- the next set of items. This token is valid for one day and must be used
--- within that timeframe.
+-- | If not null, more results are available. Pass this value for the 'NextToken' parameter in a subsequent call to this operation to retrieve the next set of items. This token is valid for one day and must be used within that timeframe.
 dwbrsNextToken :: Lens' DescribeWorkspaceBundlesResponse (Maybe Text)
 dwbrsNextToken = lens _dwbrsNextToken (\ s a -> s{_dwbrsNextToken = a});
 
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
@@ -18,14 +18,9 @@
 -- Stability   : auto-generated
 -- Portability : non-portable (GHC extensions)
 --
--- Retrieves information about the AWS Directory Service directories in the
--- region that are registered with Amazon WorkSpaces and are available to
--- your account.
+-- Retrieves information about the AWS Directory Service directories in the region that are registered with Amazon WorkSpaces and are available to your account.
 --
--- This operation supports pagination with the use of the 'NextToken'
--- request and response parameters. If more results are available, the
--- 'NextToken' response member contains a token that you pass in the next
--- call to this operation to retrieve the next set of items.
+-- This operation supports pagination with the use of the 'NextToken' request and response parameters. If more results are available, the 'NextToken' response member contains a token that you pass in the next call to this operation to retrieve the next set of items.
 module Network.AWS.WorkSpaces.DescribeWorkspaceDirectories
     (
     -- * Creating a Request
@@ -74,13 +69,11 @@
     , _dwdDirectoryIds = Nothing
     }
 
--- | The 'NextToken' value from a previous call to this operation. Pass null
--- if this is the first call.
+-- | The 'NextToken' value from a previous call to this operation. Pass null if this is the first call.
 dwdNextToken :: Lens' DescribeWorkspaceDirectories (Maybe Text)
 dwdNextToken = lens _dwdNextToken (\ s a -> s{_dwdNextToken = a});
 
--- | An array of strings that contains the directory identifiers to retrieve
--- information for. If this member is null, all directories are retrieved.
+-- | An array of strings that contains the directory identifiers to retrieve information for. If this member is null, all directories are retrieved.
 dwdDirectoryIds :: Lens' DescribeWorkspaceDirectories (Maybe (NonEmpty Text))
 dwdDirectoryIds = lens _dwdDirectoryIds (\ s a -> s{_dwdDirectoryIds = a}) . mapping _List1;
 
@@ -156,10 +149,7 @@
 dwdrsDirectories :: Lens' DescribeWorkspaceDirectoriesResponse [WorkspaceDirectory]
 dwdrsDirectories = lens _dwdrsDirectories (\ s a -> s{_dwdrsDirectories = a}) . _Default . _Coerce;
 
--- | If not null, more results are available. Pass this value for the
--- 'NextToken' parameter in a subsequent call to this operation to retrieve
--- the next set of items. This token is valid for one day and must be used
--- within that timeframe.
+-- | If not null, more results are available. Pass this value for the 'NextToken' parameter in a subsequent call to this operation to retrieve the next set of items. This token is valid for one day and must be used within that timeframe.
 dwdrsNextToken :: Lens' DescribeWorkspaceDirectoriesResponse (Maybe Text)
 dwdrsNextToken = lens _dwdrsNextToken (\ s a -> s{_dwdrsNextToken = a});
 
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
@@ -20,13 +20,9 @@
 --
 -- Obtains information about the specified WorkSpaces.
 --
--- Only one of the filter parameters, such as 'BundleId', 'DirectoryId', or
--- 'WorkspaceIds', can be specified at a time.
+-- Only one of the filter parameters, such as 'BundleId', 'DirectoryId', or 'WorkspaceIds', can be specified at a time.
 --
--- This operation supports pagination with the use of the 'NextToken'
--- request and response parameters. If more results are available, the
--- 'NextToken' response member contains a token that you pass in the next
--- call to this operation to retrieve the next set of items.
+-- This operation supports pagination with the use of the 'NextToken' request and response parameters. If more results are available, the 'NextToken' response member contains a token that you pass in the next call to this operation to retrieve the next set of items.
 module Network.AWS.WorkSpaces.DescribeWorkspaces
     (
     -- * Creating a Request
@@ -95,37 +91,25 @@
     , _dwLimit = Nothing
     }
 
--- | Specifies the directory identifier to which to limit the WorkSpaces.
--- Optionally, you can specify a specific directory user with the
--- 'UserName' parameter. This parameter cannot be combined with any other
--- filter parameter.
+-- | Specifies the directory identifier to which to limit the WorkSpaces. Optionally, you can specify a specific directory user with the 'UserName' parameter. This parameter cannot be combined with any other filter parameter.
 dwDirectoryId :: Lens' DescribeWorkspaces (Maybe Text)
 dwDirectoryId = lens _dwDirectoryId (\ s a -> s{_dwDirectoryId = a});
 
--- | An array of strings that contain the identifiers of the WorkSpaces for
--- which to retrieve information. This parameter cannot be combined with
--- any other filter parameter.
+-- | An array of strings that contain the identifiers of the WorkSpaces for which to retrieve information. This parameter cannot be combined with any other filter parameter.
 --
--- Because the < CreateWorkspaces> operation is asynchronous, the
--- identifier returned by < CreateWorkspaces> is not immediately available.
--- If you immediately call < DescribeWorkspaces> with this identifier, no
--- information will be returned.
+-- Because the < CreateWorkspaces> operation is asynchronous, the identifier returned by < CreateWorkspaces> is not immediately available. If you immediately call < DescribeWorkspaces> with this identifier, no information will be returned.
 dwWorkspaceIds :: Lens' DescribeWorkspaces (Maybe (NonEmpty Text))
 dwWorkspaceIds = lens _dwWorkspaceIds (\ s a -> s{_dwWorkspaceIds = a}) . mapping _List1;
 
--- | Used with the 'DirectoryId' parameter to specify the directory user for
--- which to obtain the WorkSpace.
+-- | Used with the 'DirectoryId' parameter to specify the directory user for which to obtain the WorkSpace.
 dwUserName :: Lens' DescribeWorkspaces (Maybe Text)
 dwUserName = lens _dwUserName (\ s a -> s{_dwUserName = a});
 
--- | The identifier of a bundle to obtain the WorkSpaces for. All WorkSpaces
--- that are created from this bundle will be retrieved. This parameter
--- cannot be combined with any other filter parameter.
+-- | The identifier of a bundle to obtain the WorkSpaces for. All WorkSpaces that are created from this bundle will be retrieved. This parameter cannot be combined with any other filter parameter.
 dwBundleId :: Lens' DescribeWorkspaces (Maybe Text)
 dwBundleId = lens _dwBundleId (\ s a -> s{_dwBundleId = a});
 
--- | The 'NextToken' value from a previous call to this operation. Pass null
--- if this is the first call.
+-- | The 'NextToken' value from a previous call to this operation. Pass null if this is the first call.
 dwNextToken :: Lens' DescribeWorkspaces (Maybe Text)
 dwNextToken = lens _dwNextToken (\ s a -> s{_dwNextToken = a});
 
@@ -204,18 +188,13 @@
     , _dwrsResponseStatus = pResponseStatus_
     }
 
--- | If not null, more results are available. Pass this value for the
--- 'NextToken' parameter in a subsequent call to this operation to retrieve
--- the next set of items. This token is valid for one day and must be used
--- within that timeframe.
+-- | If not null, more results are available. Pass this value for the 'NextToken' parameter in a subsequent call to this operation to retrieve the next set of items. This token is valid for one day and must be used within that timeframe.
 dwrsNextToken :: Lens' DescribeWorkspacesResponse (Maybe Text)
 dwrsNextToken = lens _dwrsNextToken (\ s a -> s{_dwrsNextToken = a});
 
--- | An array of structures that contain the information about the
--- WorkSpaces.
+-- | An array of structures that contain the information about the WorkSpaces.
 --
--- Because the < CreateWorkspaces> operation is asynchronous, some of this
--- information may be incomplete for a newly-created WorkSpace.
+-- Because the < CreateWorkspaces> operation is asynchronous, some of this information may be incomplete for a newly-created WorkSpace.
 dwrsWorkspaces :: Lens' DescribeWorkspacesResponse [Workspace]
 dwrsWorkspaces = lens _dwrsWorkspaces (\ s a -> s{_dwrsWorkspaces = a}) . _Default . _Coerce;
 
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
@@ -20,11 +20,9 @@
 --
 -- Reboots the specified WorkSpaces.
 --
--- To be able to reboot a WorkSpace, the WorkSpace must have a __State__ of
--- 'AVAILABLE', 'IMPAIRED', or 'INOPERABLE'.
+-- To be able to reboot a WorkSpace, the WorkSpace must have a __State__ of 'AVAILABLE', 'IMPAIRED', or 'INOPERABLE'.
 --
--- This operation is asynchronous and will return before the WorkSpaces
--- have rebooted.
+-- This operation is asynchronous and will return before the WorkSpaces have rebooted.
 module Network.AWS.WorkSpaces.RebootWorkspaces
     (
     -- * Creating a Request
@@ -133,8 +131,7 @@
     , _rrsResponseStatus = pResponseStatus_
     }
 
--- | An array of structures that represent any WorkSpaces that could not be
--- rebooted.
+-- | An array of structures that represent any WorkSpaces that could not be rebooted.
 rrsFailedRequests :: Lens' RebootWorkspacesResponse [FailedWorkspaceChangeRequest]
 rrsFailedRequests = lens _rrsFailedRequests (\ s a -> s{_rrsFailedRequests = a}) . _Default . _Coerce;
 
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
@@ -20,25 +20,14 @@
 --
 -- Rebuilds the specified WorkSpaces.
 --
--- Rebuilding a WorkSpace is a potentially destructive action that can
--- result in the loss of data. Rebuilding a WorkSpace causes the following
--- to occur:
+-- Rebuilding a WorkSpace is a potentially destructive action that can result in the loss of data. Rebuilding a WorkSpace causes the following to occur:
 --
--- -   The system is restored to the image of the bundle that the WorkSpace
---     is created from. Any applications that have been installed, or
---     system settings that have been made since the WorkSpace was created
---     will be lost.
--- -   The data drive (D drive) is re-created from the last automatic
---     snapshot taken of the data drive. The current contents of the data
---     drive are overwritten. Automatic snapshots of the data drive are
---     taken every 12 hours, so the snapshot can be as much as 12 hours
---     old.
+-- -   The system is restored to the image of the bundle that the WorkSpace is created from. Any applications that have been installed, or system settings that have been made since the WorkSpace was created will be lost.
+-- -   The data drive (D drive) is re-created from the last automatic snapshot taken of the data drive. The current contents of the data drive are overwritten. Automatic snapshots of the data drive are taken every 12 hours, so the snapshot can be as much as 12 hours old.
 --
--- To be able to rebuild a WorkSpace, the WorkSpace must have a __State__
--- of 'AVAILABLE' or 'ERROR'.
+-- To be able to rebuild a WorkSpace, the WorkSpace must have a __State__ of 'AVAILABLE' or 'ERROR'.
 --
--- This operation is asynchronous and will return before the WorkSpaces
--- have been completely rebuilt.
+-- This operation is asynchronous and will return before the WorkSpaces have been completely rebuilt.
 module Network.AWS.WorkSpaces.RebuildWorkspaces
     (
     -- * Creating a Request
@@ -148,8 +137,7 @@
     , _rwrsResponseStatus = pResponseStatus_
     }
 
--- | An array of structures that represent any WorkSpaces that could not be
--- rebuilt.
+-- | An array of structures that represent any WorkSpaces that could not be rebuilt.
 rwrsFailedRequests :: Lens' RebuildWorkspacesResponse [FailedWorkspaceChangeRequest]
 rwrsFailedRequests = lens _rwrsFailedRequests (\ s a -> s{_rwrsFailedRequests = a}) . _Default . _Coerce;
 
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
@@ -20,15 +20,11 @@
 --
 -- Terminates the specified WorkSpaces.
 --
--- Terminating a WorkSpace is a permanent action and cannot be undone. The
--- user\'s data is not maintained and will be destroyed. If you need to
--- archive any user data, contact Amazon Web Services before terminating
--- the WorkSpace.
+-- Terminating a WorkSpace is a permanent action and cannot be undone. The user\'s data is not maintained and will be destroyed. If you need to archive any user data, contact Amazon Web Services before terminating the WorkSpace.
 --
 -- You can terminate a WorkSpace that is in any state except 'SUSPENDED'.
 --
--- This operation is asynchronous and will return before the WorkSpaces
--- have been completely terminated.
+-- This operation is asynchronous and will return before the WorkSpaces have been completely terminated.
 module Network.AWS.WorkSpaces.TerminateWorkspaces
     (
     -- * Creating a Request
@@ -139,8 +135,7 @@
     , _twrsResponseStatus = pResponseStatus_
     }
 
--- | An array of structures that represent any WorkSpaces that could not be
--- terminated.
+-- | An array of structures that represent any WorkSpaces that could not be terminated.
 twrsFailedRequests :: Lens' TerminateWorkspacesResponse [FailedWorkspaceChangeRequest]
 twrsFailedRequests = lens _twrsFailedRequests (\ s a -> s{_twrsFailedRequests = a}) . _Default . _Coerce;
 
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
@@ -88,8 +88,7 @@
     , _dwcpDefaultOu = Nothing
     }
 
--- | The identifier of any custom security groups that are applied to the
--- WorkSpaces when they are created.
+-- | The identifier of any custom security groups that are applied to the WorkSpaces when they are created.
 dwcpCustomSecurityGroupId :: Lens' DefaultWorkspaceCreationProperties (Maybe Text)
 dwcpCustomSecurityGroupId = lens _dwcpCustomSecurityGroupId (\ s a -> s{_dwcpCustomSecurityGroupId = a});
 
@@ -101,13 +100,11 @@
 dwcpEnableWorkDocs :: Lens' DefaultWorkspaceCreationProperties (Maybe Bool)
 dwcpEnableWorkDocs = lens _dwcpEnableWorkDocs (\ s a -> s{_dwcpEnableWorkDocs = a});
 
--- | A public IP address will be attached to all WorkSpaces that are created
--- or rebuilt.
+-- | A public IP address will be attached to all WorkSpaces that are created or rebuilt.
 dwcpEnableInternetAccess :: Lens' DefaultWorkspaceCreationProperties (Maybe Bool)
 dwcpEnableInternetAccess = lens _dwcpEnableInternetAccess (\ s a -> s{_dwcpEnableInternetAccess = a});
 
--- | The organizational unit (OU) in the directory that the WorkSpace machine
--- accounts are placed in.
+-- | The organizational unit (OU) in the directory that the WorkSpace machine accounts are placed in.
 dwcpDefaultOu :: Lens' DefaultWorkspaceCreationProperties (Maybe Text)
 dwcpDefaultOu = lens _dwcpDefaultOu (\ s a -> s{_dwcpDefaultOu = a});
 
@@ -154,8 +151,7 @@
     , _fcwrErrorMessage = Nothing
     }
 
--- | A < WorkspaceRequest> object that contains the information about the
--- WorkSpace that could not be created.
+-- | A < WorkspaceRequest> object that contains the information about the WorkSpace that could not be created.
 fcwrWorkspaceRequest :: Lens' FailedCreateWorkspaceRequest (Maybe WorkspaceRequest)
 fcwrWorkspaceRequest = lens _fcwrWorkspaceRequest (\ s a -> s{_fcwrWorkspaceRequest = a});
 
@@ -179,9 +175,7 @@
 
 instance NFData FailedCreateWorkspaceRequest
 
--- | Contains information about a WorkSpace that could not be rebooted
--- (< RebootWorkspaces>), rebuilt (< RebuildWorkspaces>), or terminated
--- (< TerminateWorkspaces>).
+-- | Contains information about a WorkSpace that could not be rebooted (< RebootWorkspaces>), rebuilt (< RebuildWorkspaces>), or terminated (< TerminateWorkspaces>).
 --
 -- /See:/ 'failedWorkspaceChangeRequest' smart constructor.
 data FailedWorkspaceChangeRequest = FailedWorkspaceChangeRequest'
@@ -232,8 +226,7 @@
 
 instance NFData FailedWorkspaceChangeRequest
 
--- | Contains information used with the < RebootWorkspaces> operation to
--- reboot a WorkSpace.
+-- | Contains information used with the < RebootWorkspaces> operation to reboot a WorkSpace.
 --
 -- /See:/ 'rebootRequest' smart constructor.
 newtype RebootRequest = RebootRequest'
@@ -266,8 +259,7 @@
           = object
               (catMaybes [Just ("WorkspaceId" .= _rWorkspaceId)])
 
--- | Contains information used with the < RebuildWorkspaces> operation to
--- rebuild a WorkSpace.
+-- | Contains information used with the < RebuildWorkspaces> operation to rebuild a WorkSpace.
 --
 -- /See:/ 'rebuildRequest' smart constructor.
 newtype RebuildRequest = RebuildRequest'
@@ -300,8 +292,7 @@
           = object
               (catMaybes [Just ("WorkspaceId" .= _rrWorkspaceId)])
 
--- | Contains information used with the < TerminateWorkspaces> operation to
--- terminate a WorkSpace.
+-- | Contains information used with the < TerminateWorkspaces> operation to terminate a WorkSpace.
 --
 -- /See:/ 'terminateRequest' smart constructor.
 newtype TerminateRequest = TerminateRequest'
@@ -433,8 +424,7 @@
     , _wErrorMessage = Nothing
     }
 
--- | The identifier of the AWS Directory Service directory that the WorkSpace
--- belongs to.
+-- | The identifier of the AWS Directory Service directory that the WorkSpace belongs to.
 wDirectoryId :: Lens' Workspace (Maybe Text)
 wDirectoryId = lens _wDirectoryId (\ s a -> s{_wDirectoryId = a});
 
@@ -458,8 +448,7 @@
 wBundleId :: Lens' Workspace (Maybe Text)
 wBundleId = lens _wBundleId (\ s a -> s{_wBundleId = a});
 
--- | Specifies whether the data stored on the root volume, or C: drive, is
--- encrypted.
+-- | Specifies whether the data stored on the root volume, or C: drive, is encrypted.
 wRootVolumeEncryptionEnabled :: Lens' Workspace (Maybe Bool)
 wRootVolumeEncryptionEnabled = lens _wRootVolumeEncryptionEnabled (\ s a -> s{_wRootVolumeEncryptionEnabled = a});
 
@@ -479,13 +468,11 @@
 wWorkspaceId :: Lens' Workspace (Maybe Text)
 wWorkspaceId = lens _wWorkspaceId (\ s a -> s{_wWorkspaceId = a});
 
--- | Specifies whether the data stored on the user volume, or D: drive, is
--- encrypted.
+-- | Specifies whether the data stored on the user volume, or D: drive, is encrypted.
 wUserVolumeEncryptionEnabled :: Lens' Workspace (Maybe Bool)
 wUserVolumeEncryptionEnabled = lens _wUserVolumeEncryptionEnabled (\ s a -> s{_wUserVolumeEncryptionEnabled = a});
 
--- | If the WorkSpace could not be created, this contains a textual error
--- message that describes the failure.
+-- | If the WorkSpace could not be created, this contains a textual error message that describes the failure.
 wErrorMessage :: Lens' Workspace (Maybe Text)
 wErrorMessage = lens _wErrorMessage (\ s a -> s{_wErrorMessage = a});
 
@@ -554,8 +541,7 @@
 wbBundleId :: Lens' WorkspaceBundle (Maybe Text)
 wbBundleId = lens _wbBundleId (\ s a -> s{_wbBundleId = a});
 
--- | The owner of the bundle. This contains the owner\'s account identifier,
--- or 'AMAZON' if the bundle is provided by AWS.
+-- | The owner of the bundle. This contains the owner\'s account identifier, or 'AMAZON' if the bundle is provided by AWS.
 wbOwner :: Lens' WorkspaceBundle (Maybe Text)
 wbOwner = lens _wbOwner (\ s a -> s{_wbOwner = a});
 
@@ -567,8 +553,7 @@
 wbComputeType :: Lens' WorkspaceBundle (Maybe ComputeType)
 wbComputeType = lens _wbComputeType (\ s a -> s{_wbComputeType = a});
 
--- | A < UserStorage> object that specifies the amount of user storage that
--- the bundle contains.
+-- | A < UserStorage> object that specifies the amount of user storage that the bundle contains.
 wbUserStorage :: Lens' WorkspaceBundle (Maybe UserStorage)
 wbUserStorage = lens _wbUserStorage (\ s a -> s{_wbUserStorage = a});
 
@@ -591,8 +576,7 @@
 
 instance NFData WorkspaceBundle
 
--- | Contains information about an AWS Directory Service directory for use
--- with Amazon WorkSpaces.
+-- | Contains information about an AWS Directory Service directory for use with Amazon WorkSpaces.
 --
 -- /See:/ 'workspaceDirectory' smart constructor.
 data WorkspaceDirectory = WorkspaceDirectory'
@@ -655,15 +639,11 @@
     , _wdDirectoryName = Nothing
     }
 
--- | The registration code for the directory. This is the code that users
--- enter in their Amazon WorkSpaces client application to connect to the
--- directory.
+-- | The registration code for the directory. This is the code that users enter in their Amazon WorkSpaces client application to connect to the directory.
 wdRegistrationCode :: Lens' WorkspaceDirectory (Maybe Text)
 wdRegistrationCode = lens _wdRegistrationCode (\ s a -> s{_wdRegistrationCode = a});
 
--- | The identifier of the IAM role. This is the role that allows Amazon
--- WorkSpaces to make calls to other services, such as Amazon EC2, on your
--- behalf.
+-- | The identifier of the IAM role. This is the role that allows Amazon WorkSpaces to make calls to other services, such as Amazon EC2, on your behalf.
 wdIAMRoleId :: Lens' WorkspaceDirectory (Maybe Text)
 wdIAMRoleId = lens _wdIAMRoleId (\ s a -> s{_wdIAMRoleId = a});
 
@@ -679,8 +659,7 @@
 wdCustomerUserName :: Lens' WorkspaceDirectory (Maybe Text)
 wdCustomerUserName = lens _wdCustomerUserName (\ s a -> s{_wdCustomerUserName = a});
 
--- | An array of strings that contains the identifiers of the subnets used
--- with the directory.
+-- | An array of strings that contains the identifiers of the subnets used with the directory.
 wdSubnetIds :: Lens' WorkspaceDirectory [Text]
 wdSubnetIds = lens _wdSubnetIds (\ s a -> s{_wdSubnetIds = a}) . _Default . _Coerce;
 
@@ -696,13 +675,11 @@
 wdDirectoryType :: Lens' WorkspaceDirectory (Maybe WorkspaceDirectoryType)
 wdDirectoryType = lens _wdDirectoryType (\ s a -> s{_wdDirectoryType = a});
 
--- | A structure that specifies the default creation properties for all
--- WorkSpaces in the directory.
+-- | A structure that specifies the default creation properties for all WorkSpaces in the directory.
 wdWorkspaceCreationProperties :: Lens' WorkspaceDirectory (Maybe DefaultWorkspaceCreationProperties)
 wdWorkspaceCreationProperties = lens _wdWorkspaceCreationProperties (\ s a -> s{_wdWorkspaceCreationProperties = a});
 
--- | An array of strings that contains the IP addresses of the DNS servers
--- for the directory.
+-- | An array of strings that contains the IP addresses of the DNS servers for the directory.
 wdDNSIPAddresses :: Lens' WorkspaceDirectory [Text]
 wdDNSIPAddresses = lens _wdDNSIPAddresses (\ s a -> s{_wdDNSIPAddresses = a}) . _Default . _Coerce;
 
@@ -773,8 +750,7 @@
     , _wrBundleId = pBundleId_
     }
 
--- | Specifies whether the data stored on the root volume, or C: drive, is
--- encrypted.
+-- | Specifies whether the data stored on the root volume, or C: drive, is encrypted.
 wrRootVolumeEncryptionEnabled :: Lens' WorkspaceRequest (Maybe Bool)
 wrRootVolumeEncryptionEnabled = lens _wrRootVolumeEncryptionEnabled (\ s a -> s{_wrRootVolumeEncryptionEnabled = a});
 
@@ -782,26 +758,19 @@
 wrVolumeEncryptionKey :: Lens' WorkspaceRequest (Maybe Text)
 wrVolumeEncryptionKey = lens _wrVolumeEncryptionKey (\ s a -> s{_wrVolumeEncryptionKey = a});
 
--- | Specifies whether the data stored on the user volume, or D: drive, is
--- encrypted.
+-- | Specifies whether the data stored on the user volume, or D: drive, is encrypted.
 wrUserVolumeEncryptionEnabled :: Lens' WorkspaceRequest (Maybe Bool)
 wrUserVolumeEncryptionEnabled = lens _wrUserVolumeEncryptionEnabled (\ s a -> s{_wrUserVolumeEncryptionEnabled = a});
 
--- | The identifier of the AWS Directory Service directory to create the
--- WorkSpace in. You can use the < DescribeWorkspaceDirectories> operation
--- to obtain a list of the directories that are available.
+-- | The identifier of the AWS Directory Service directory to create the WorkSpace in. You can use the < DescribeWorkspaceDirectories> operation to obtain a list of the directories that are available.
 wrDirectoryId :: Lens' WorkspaceRequest Text
 wrDirectoryId = lens _wrDirectoryId (\ s a -> s{_wrDirectoryId = a});
 
--- | The username that the WorkSpace is assigned to. This username must exist
--- in the AWS Directory Service directory specified by the 'DirectoryId'
--- member.
+-- | The username that the WorkSpace is assigned to. This username must exist in the AWS Directory Service directory specified by the 'DirectoryId' member.
 wrUserName :: Lens' WorkspaceRequest Text
 wrUserName = lens _wrUserName (\ s a -> s{_wrUserName = a});
 
--- | The identifier of the bundle to create the WorkSpace from. You can use
--- the < DescribeWorkspaceBundles> operation to obtain a list of the
--- bundles that are available.
+-- | The identifier of the bundle to create the WorkSpace from. You can use the < DescribeWorkspaceBundles> operation to obtain a list of the bundles that are available.
 wrBundleId :: Lens' WorkspaceRequest Text
 wrBundleId = lens _wrBundleId (\ s a -> s{_wrBundleId = a});
 
diff --git a/test/Test/AWS/Gen/WorkSpaces.hs b/test/Test/AWS/Gen/WorkSpaces.hs
--- a/test/Test/AWS/Gen/WorkSpaces.hs
+++ b/test/Test/AWS/Gen/WorkSpaces.hs
@@ -28,49 +28,49 @@
 -- fixtures :: TestTree
 -- fixtures =
 --     [ testGroup "request"
---         [ testDescribeWorkspaceDirectories $
+--         [ requestDescribeWorkspaceDirectories $
 --             describeWorkspaceDirectories
 --
---         , testDescribeWorkspaceBundles $
+--         , requestDescribeWorkspaceBundles $
 --             describeWorkspaceBundles
 --
---         , testRebuildWorkspaces $
+--         , requestRebuildWorkspaces $
 --             rebuildWorkspaces
 --
---         , testRebootWorkspaces $
+--         , requestRebootWorkspaces $
 --             rebootWorkspaces
 --
---         , testTerminateWorkspaces $
+--         , requestTerminateWorkspaces $
 --             terminateWorkspaces
 --
---         , testCreateWorkspaces $
+--         , requestCreateWorkspaces $
 --             createWorkspaces
 --
---         , testDescribeWorkspaces $
+--         , requestDescribeWorkspaces $
 --             describeWorkspaces
 --
 --           ]
 
 --     , testGroup "response"
---         [ testDescribeWorkspaceDirectoriesResponse $
+--         [ responseDescribeWorkspaceDirectories $
 --             describeWorkspaceDirectoriesResponse
 --
---         , testDescribeWorkspaceBundlesResponse $
+--         , responseDescribeWorkspaceBundles $
 --             describeWorkspaceBundlesResponse
 --
---         , testRebuildWorkspacesResponse $
+--         , responseRebuildWorkspaces $
 --             rebuildWorkspacesResponse
 --
---         , testRebootWorkspacesResponse $
+--         , responseRebootWorkspaces $
 --             rebootWorkspacesResponse
 --
---         , testTerminateWorkspacesResponse $
+--         , responseTerminateWorkspaces $
 --             terminateWorkspacesResponse
 --
---         , testCreateWorkspacesResponse $
+--         , responseCreateWorkspaces $
 --             createWorkspacesResponse
 --
---         , testDescribeWorkspacesResponse $
+--         , responseDescribeWorkspaces $
 --             describeWorkspacesResponse
 --
 --           ]
@@ -78,87 +78,87 @@
 
 -- Requests
 
-testDescribeWorkspaceDirectories :: DescribeWorkspaceDirectories -> TestTree
-testDescribeWorkspaceDirectories = req
+requestDescribeWorkspaceDirectories :: DescribeWorkspaceDirectories -> TestTree
+requestDescribeWorkspaceDirectories = req
     "DescribeWorkspaceDirectories"
     "fixture/DescribeWorkspaceDirectories.yaml"
 
-testDescribeWorkspaceBundles :: DescribeWorkspaceBundles -> TestTree
-testDescribeWorkspaceBundles = req
+requestDescribeWorkspaceBundles :: DescribeWorkspaceBundles -> TestTree
+requestDescribeWorkspaceBundles = req
     "DescribeWorkspaceBundles"
     "fixture/DescribeWorkspaceBundles.yaml"
 
-testRebuildWorkspaces :: RebuildWorkspaces -> TestTree
-testRebuildWorkspaces = req
+requestRebuildWorkspaces :: RebuildWorkspaces -> TestTree
+requestRebuildWorkspaces = req
     "RebuildWorkspaces"
     "fixture/RebuildWorkspaces.yaml"
 
-testRebootWorkspaces :: RebootWorkspaces -> TestTree
-testRebootWorkspaces = req
+requestRebootWorkspaces :: RebootWorkspaces -> TestTree
+requestRebootWorkspaces = req
     "RebootWorkspaces"
     "fixture/RebootWorkspaces.yaml"
 
-testTerminateWorkspaces :: TerminateWorkspaces -> TestTree
-testTerminateWorkspaces = req
+requestTerminateWorkspaces :: TerminateWorkspaces -> TestTree
+requestTerminateWorkspaces = req
     "TerminateWorkspaces"
     "fixture/TerminateWorkspaces.yaml"
 
-testCreateWorkspaces :: CreateWorkspaces -> TestTree
-testCreateWorkspaces = req
+requestCreateWorkspaces :: CreateWorkspaces -> TestTree
+requestCreateWorkspaces = req
     "CreateWorkspaces"
     "fixture/CreateWorkspaces.yaml"
 
-testDescribeWorkspaces :: DescribeWorkspaces -> TestTree
-testDescribeWorkspaces = req
+requestDescribeWorkspaces :: DescribeWorkspaces -> TestTree
+requestDescribeWorkspaces = req
     "DescribeWorkspaces"
     "fixture/DescribeWorkspaces.yaml"
 
 -- Responses
 
-testDescribeWorkspaceDirectoriesResponse :: DescribeWorkspaceDirectoriesResponse -> TestTree
-testDescribeWorkspaceDirectoriesResponse = res
+responseDescribeWorkspaceDirectories :: DescribeWorkspaceDirectoriesResponse -> TestTree
+responseDescribeWorkspaceDirectories = res
     "DescribeWorkspaceDirectoriesResponse"
     "fixture/DescribeWorkspaceDirectoriesResponse.proto"
     workSpaces
     (Proxy :: Proxy DescribeWorkspaceDirectories)
 
-testDescribeWorkspaceBundlesResponse :: DescribeWorkspaceBundlesResponse -> TestTree
-testDescribeWorkspaceBundlesResponse = res
+responseDescribeWorkspaceBundles :: DescribeWorkspaceBundlesResponse -> TestTree
+responseDescribeWorkspaceBundles = res
     "DescribeWorkspaceBundlesResponse"
     "fixture/DescribeWorkspaceBundlesResponse.proto"
     workSpaces
     (Proxy :: Proxy DescribeWorkspaceBundles)
 
-testRebuildWorkspacesResponse :: RebuildWorkspacesResponse -> TestTree
-testRebuildWorkspacesResponse = res
+responseRebuildWorkspaces :: RebuildWorkspacesResponse -> TestTree
+responseRebuildWorkspaces = res
     "RebuildWorkspacesResponse"
     "fixture/RebuildWorkspacesResponse.proto"
     workSpaces
     (Proxy :: Proxy RebuildWorkspaces)
 
-testRebootWorkspacesResponse :: RebootWorkspacesResponse -> TestTree
-testRebootWorkspacesResponse = res
+responseRebootWorkspaces :: RebootWorkspacesResponse -> TestTree
+responseRebootWorkspaces = res
     "RebootWorkspacesResponse"
     "fixture/RebootWorkspacesResponse.proto"
     workSpaces
     (Proxy :: Proxy RebootWorkspaces)
 
-testTerminateWorkspacesResponse :: TerminateWorkspacesResponse -> TestTree
-testTerminateWorkspacesResponse = res
+responseTerminateWorkspaces :: TerminateWorkspacesResponse -> TestTree
+responseTerminateWorkspaces = res
     "TerminateWorkspacesResponse"
     "fixture/TerminateWorkspacesResponse.proto"
     workSpaces
     (Proxy :: Proxy TerminateWorkspaces)
 
-testCreateWorkspacesResponse :: CreateWorkspacesResponse -> TestTree
-testCreateWorkspacesResponse = res
+responseCreateWorkspaces :: CreateWorkspacesResponse -> TestTree
+responseCreateWorkspaces = res
     "CreateWorkspacesResponse"
     "fixture/CreateWorkspacesResponse.proto"
     workSpaces
     (Proxy :: Proxy CreateWorkspaces)
 
-testDescribeWorkspacesResponse :: DescribeWorkspacesResponse -> TestTree
-testDescribeWorkspacesResponse = res
+responseDescribeWorkspaces :: DescribeWorkspacesResponse -> TestTree
+responseDescribeWorkspaces = res
     "DescribeWorkspacesResponse"
     "fixture/DescribeWorkspacesResponse.proto"
     workSpaces