diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -8,7 +8,7 @@
 
 ## Version
 
-`1.2.0.2`
+`1.3.0`
 
 
 ## 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.2.0.2
+version:               1.3.0
 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.2.0.*
+          amazonka-core == 1.3.0.*
         , base          >= 4.7     && < 5
 
 test-suite amazonka-workspaces-test
@@ -80,9 +80,9 @@
         , Test.AWS.WorkSpaces.Internal
 
     build-depends:
-          amazonka-core == 1.2.0.*
-        , amazonka-test == 1.2.0.*
-        , amazonka-workspaces == 1.2.0.*
+          amazonka-core == 1.3.0.*
+        , amazonka-test == 1.3.0.*
+        , amazonka-workspaces == 1.3.0.*
         , base
         , bytestring
         , lens
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
@@ -26,12 +26,12 @@
     -- * Errors
     -- $errors
 
-    -- ** InvalidParameterValuesException
-    , _InvalidParameterValuesException
-
     -- ** ResourceUnavailableException
     , _ResourceUnavailableException
 
+    -- ** InvalidParameterValuesException
+    , _InvalidParameterValuesException
+
     -- ** ResourceLimitExceededException
     , _ResourceLimitExceededException
 
@@ -128,8 +128,8 @@
     , Workspace
     , workspace
     , wDirectoryId
-    , wIPAddress
     , wState
+    , wIPAddress
     , wUserName
     , wSubnetId
     , wBundleId
@@ -140,8 +140,8 @@
     -- ** WorkspaceBundle
     , WorkspaceBundle
     , workspaceBundle
-    , wbOwner
     , wbBundleId
+    , wbOwner
     , wbName
     , wbComputeType
     , wbUserStorage
@@ -157,8 +157,8 @@
     , wdCustomerUserName
     , wdSubnetIds
     , wdAlias
-    , wdDirectoryType
     , wdWorkspaceSecurityGroupId
+    , wdDirectoryType
     , wdWorkspaceCreationProperties
     , wdDNSIPAddresses
     , wdDirectoryName
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
@@ -38,7 +38,7 @@
     -- * Response Lenses
     , cwrsFailedRequests
     , cwrsPendingRequests
-    , cwrsStatus
+    , cwrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -108,7 +108,7 @@
 data CreateWorkspacesResponse = CreateWorkspacesResponse'
     { _cwrsFailedRequests  :: !(Maybe [FailedCreateWorkspaceRequest])
     , _cwrsPendingRequests :: !(Maybe [Workspace])
-    , _cwrsStatus          :: !Int
+    , _cwrsResponseStatus  :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'CreateWorkspacesResponse' with the minimum fields required to make a request.
@@ -119,15 +119,15 @@
 --
 -- * 'cwrsPendingRequests'
 --
--- * 'cwrsStatus'
+-- * 'cwrsResponseStatus'
 createWorkspacesResponse
-    :: Int -- ^ 'cwrsStatus'
+    :: Int -- ^ 'cwrsResponseStatus'
     -> CreateWorkspacesResponse
-createWorkspacesResponse pStatus_ =
+createWorkspacesResponse pResponseStatus_ =
     CreateWorkspacesResponse'
     { _cwrsFailedRequests = Nothing
     , _cwrsPendingRequests = Nothing
-    , _cwrsStatus = pStatus_
+    , _cwrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that represent the WorkSpaces that could not be
@@ -144,5 +144,5 @@
 cwrsPendingRequests = lens _cwrsPendingRequests (\ s a -> s{_cwrsPendingRequests = a}) . _Default . _Coerce;
 
 -- | The response status code.
-cwrsStatus :: Lens' CreateWorkspacesResponse Int
-cwrsStatus = lens _cwrsStatus (\ s a -> s{_cwrsStatus = a});
+cwrsResponseStatus :: Lens' CreateWorkspacesResponse Int
+cwrsResponseStatus = lens _cwrsResponseStatus (\ s a -> s{_cwrsResponseStatus = a});
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
@@ -46,7 +46,7 @@
     -- * Response Lenses
     , dwbrsBundles
     , dwbrsNextToken
-    , dwbrsStatus
+    , dwbrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -143,9 +143,9 @@
 --
 -- /See:/ 'describeWorkspaceBundlesResponse' smart constructor.
 data DescribeWorkspaceBundlesResponse = DescribeWorkspaceBundlesResponse'
-    { _dwbrsBundles   :: !(Maybe [WorkspaceBundle])
-    , _dwbrsNextToken :: !(Maybe Text)
-    , _dwbrsStatus    :: !Int
+    { _dwbrsBundles        :: !(Maybe [WorkspaceBundle])
+    , _dwbrsNextToken      :: !(Maybe Text)
+    , _dwbrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeWorkspaceBundlesResponse' with the minimum fields required to make a request.
@@ -156,15 +156,15 @@
 --
 -- * 'dwbrsNextToken'
 --
--- * 'dwbrsStatus'
+-- * 'dwbrsResponseStatus'
 describeWorkspaceBundlesResponse
-    :: Int -- ^ 'dwbrsStatus'
+    :: Int -- ^ 'dwbrsResponseStatus'
     -> DescribeWorkspaceBundlesResponse
-describeWorkspaceBundlesResponse pStatus_ =
+describeWorkspaceBundlesResponse pResponseStatus_ =
     DescribeWorkspaceBundlesResponse'
     { _dwbrsBundles = Nothing
     , _dwbrsNextToken = Nothing
-    , _dwbrsStatus = pStatus_
+    , _dwbrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that contain information about the bundles.
@@ -179,5 +179,5 @@
 dwbrsNextToken = lens _dwbrsNextToken (\ s a -> s{_dwbrsNextToken = a});
 
 -- | The response status code.
-dwbrsStatus :: Lens' DescribeWorkspaceBundlesResponse Int
-dwbrsStatus = lens _dwbrsStatus (\ s a -> s{_dwbrsStatus = a});
+dwbrsResponseStatus :: Lens' DescribeWorkspaceBundlesResponse Int
+dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = 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
@@ -43,7 +43,7 @@
     -- * Response Lenses
     , dwdrsDirectories
     , dwdrsNextToken
-    , dwdrsStatus
+    , dwdrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -125,9 +125,9 @@
 --
 -- /See:/ 'describeWorkspaceDirectoriesResponse' smart constructor.
 data DescribeWorkspaceDirectoriesResponse = DescribeWorkspaceDirectoriesResponse'
-    { _dwdrsDirectories :: !(Maybe [WorkspaceDirectory])
-    , _dwdrsNextToken   :: !(Maybe Text)
-    , _dwdrsStatus      :: !Int
+    { _dwdrsDirectories    :: !(Maybe [WorkspaceDirectory])
+    , _dwdrsNextToken      :: !(Maybe Text)
+    , _dwdrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeWorkspaceDirectoriesResponse' with the minimum fields required to make a request.
@@ -138,15 +138,15 @@
 --
 -- * 'dwdrsNextToken'
 --
--- * 'dwdrsStatus'
+-- * 'dwdrsResponseStatus'
 describeWorkspaceDirectoriesResponse
-    :: Int -- ^ 'dwdrsStatus'
+    :: Int -- ^ 'dwdrsResponseStatus'
     -> DescribeWorkspaceDirectoriesResponse
-describeWorkspaceDirectoriesResponse pStatus_ =
+describeWorkspaceDirectoriesResponse pResponseStatus_ =
     DescribeWorkspaceDirectoriesResponse'
     { _dwdrsDirectories = Nothing
     , _dwdrsNextToken = Nothing
-    , _dwdrsStatus = pStatus_
+    , _dwdrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that contain information about the directories.
@@ -161,5 +161,5 @@
 dwdrsNextToken = lens _dwdrsNextToken (\ s a -> s{_dwdrsNextToken = a});
 
 -- | The response status code.
-dwdrsStatus :: Lens' DescribeWorkspaceDirectoriesResponse Int
-dwdrsStatus = lens _dwdrsStatus (\ s a -> s{_dwdrsStatus = a});
+dwdrsResponseStatus :: Lens' DescribeWorkspaceDirectoriesResponse Int
+dwdrsResponseStatus = lens _dwdrsResponseStatus (\ s a -> s{_dwdrsResponseStatus = 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
@@ -48,7 +48,7 @@
     -- * Response Lenses
     , dwrsNextToken
     , dwrsWorkspaces
-    , dwrsStatus
+    , dwrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -177,9 +177,9 @@
 --
 -- /See:/ 'describeWorkspacesResponse' smart constructor.
 data DescribeWorkspacesResponse = DescribeWorkspacesResponse'
-    { _dwrsNextToken  :: !(Maybe Text)
-    , _dwrsWorkspaces :: !(Maybe [Workspace])
-    , _dwrsStatus     :: !Int
+    { _dwrsNextToken      :: !(Maybe Text)
+    , _dwrsWorkspaces     :: !(Maybe [Workspace])
+    , _dwrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'DescribeWorkspacesResponse' with the minimum fields required to make a request.
@@ -190,15 +190,15 @@
 --
 -- * 'dwrsWorkspaces'
 --
--- * 'dwrsStatus'
+-- * 'dwrsResponseStatus'
 describeWorkspacesResponse
-    :: Int -- ^ 'dwrsStatus'
+    :: Int -- ^ 'dwrsResponseStatus'
     -> DescribeWorkspacesResponse
-describeWorkspacesResponse pStatus_ =
+describeWorkspacesResponse pResponseStatus_ =
     DescribeWorkspacesResponse'
     { _dwrsNextToken = Nothing
     , _dwrsWorkspaces = Nothing
-    , _dwrsStatus = pStatus_
+    , _dwrsResponseStatus = pResponseStatus_
     }
 
 -- | If not null, more results are available. Pass this value for the
@@ -217,5 +217,5 @@
 dwrsWorkspaces = lens _dwrsWorkspaces (\ s a -> s{_dwrsWorkspaces = a}) . _Default . _Coerce;
 
 -- | The response status code.
-dwrsStatus :: Lens' DescribeWorkspacesResponse Int
-dwrsStatus = lens _dwrsStatus (\ s a -> s{_dwrsStatus = a});
+dwrsResponseStatus :: Lens' DescribeWorkspacesResponse Int
+dwrsResponseStatus = lens _dwrsResponseStatus (\ s a -> s{_dwrsResponseStatus = a});
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
@@ -40,7 +40,7 @@
     , RebootWorkspacesResponse
     -- * Response Lenses
     , rrsFailedRequests
-    , rrsStatus
+    , rrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -111,7 +111,7 @@
 -- /See:/ 'rebootWorkspacesResponse' smart constructor.
 data RebootWorkspacesResponse = RebootWorkspacesResponse'
     { _rrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])
-    , _rrsStatus         :: !Int
+    , _rrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'RebootWorkspacesResponse' with the minimum fields required to make a request.
@@ -120,14 +120,14 @@
 --
 -- * 'rrsFailedRequests'
 --
--- * 'rrsStatus'
+-- * 'rrsResponseStatus'
 rebootWorkspacesResponse
-    :: Int -- ^ 'rrsStatus'
+    :: Int -- ^ 'rrsResponseStatus'
     -> RebootWorkspacesResponse
-rebootWorkspacesResponse pStatus_ =
+rebootWorkspacesResponse pResponseStatus_ =
     RebootWorkspacesResponse'
     { _rrsFailedRequests = Nothing
-    , _rrsStatus = pStatus_
+    , _rrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that represent any WorkSpaces that could not be
@@ -136,5 +136,5 @@
 rrsFailedRequests = lens _rrsFailedRequests (\ s a -> s{_rrsFailedRequests = a}) . _Default . _Coerce;
 
 -- | The response status code.
-rrsStatus :: Lens' RebootWorkspacesResponse Int
-rrsStatus = lens _rrsStatus (\ s a -> s{_rrsStatus = a});
+rrsResponseStatus :: Lens' RebootWorkspacesResponse Int
+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});
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
@@ -54,7 +54,7 @@
     , RebuildWorkspacesResponse
     -- * Response Lenses
     , rwrsFailedRequests
-    , rwrsStatus
+    , rwrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -126,7 +126,7 @@
 -- /See:/ 'rebuildWorkspacesResponse' smart constructor.
 data RebuildWorkspacesResponse = RebuildWorkspacesResponse'
     { _rwrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])
-    , _rwrsStatus         :: !Int
+    , _rwrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'RebuildWorkspacesResponse' with the minimum fields required to make a request.
@@ -135,14 +135,14 @@
 --
 -- * 'rwrsFailedRequests'
 --
--- * 'rwrsStatus'
+-- * 'rwrsResponseStatus'
 rebuildWorkspacesResponse
-    :: Int -- ^ 'rwrsStatus'
+    :: Int -- ^ 'rwrsResponseStatus'
     -> RebuildWorkspacesResponse
-rebuildWorkspacesResponse pStatus_ =
+rebuildWorkspacesResponse pResponseStatus_ =
     RebuildWorkspacesResponse'
     { _rwrsFailedRequests = Nothing
-    , _rwrsStatus = pStatus_
+    , _rwrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that represent any WorkSpaces that could not be
@@ -151,5 +151,5 @@
 rwrsFailedRequests = lens _rwrsFailedRequests (\ s a -> s{_rwrsFailedRequests = a}) . _Default . _Coerce;
 
 -- | The response status code.
-rwrsStatus :: Lens' RebuildWorkspacesResponse Int
-rwrsStatus = lens _rwrsStatus (\ s a -> s{_rwrsStatus = a});
+rwrsResponseStatus :: Lens' RebuildWorkspacesResponse Int
+rwrsResponseStatus = lens _rwrsResponseStatus (\ s a -> s{_rwrsResponseStatus = a});
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
@@ -44,7 +44,7 @@
     , TerminateWorkspacesResponse
     -- * Response Lenses
     , twrsFailedRequests
-    , twrsStatus
+    , twrsResponseStatus
     ) where
 
 import           Network.AWS.Prelude
@@ -117,7 +117,7 @@
 -- /See:/ 'terminateWorkspacesResponse' smart constructor.
 data TerminateWorkspacesResponse = TerminateWorkspacesResponse'
     { _twrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])
-    , _twrsStatus         :: !Int
+    , _twrsResponseStatus :: !Int
     } deriving (Eq,Read,Show,Data,Typeable,Generic)
 
 -- | Creates a value of 'TerminateWorkspacesResponse' with the minimum fields required to make a request.
@@ -126,14 +126,14 @@
 --
 -- * 'twrsFailedRequests'
 --
--- * 'twrsStatus'
+-- * 'twrsResponseStatus'
 terminateWorkspacesResponse
-    :: Int -- ^ 'twrsStatus'
+    :: Int -- ^ 'twrsResponseStatus'
     -> TerminateWorkspacesResponse
-terminateWorkspacesResponse pStatus_ =
+terminateWorkspacesResponse pResponseStatus_ =
     TerminateWorkspacesResponse'
     { _twrsFailedRequests = Nothing
-    , _twrsStatus = pStatus_
+    , _twrsResponseStatus = pResponseStatus_
     }
 
 -- | An array of structures that represent any WorkSpaces that could not be
@@ -142,5 +142,5 @@
 twrsFailedRequests = lens _twrsFailedRequests (\ s a -> s{_twrsFailedRequests = a}) . _Default . _Coerce;
 
 -- | The response status code.
-twrsStatus :: Lens' TerminateWorkspacesResponse Int
-twrsStatus = lens _twrsStatus (\ s a -> s{_twrsStatus = a});
+twrsResponseStatus :: Lens' TerminateWorkspacesResponse Int
+twrsResponseStatus = lens _twrsResponseStatus (\ s a -> s{_twrsResponseStatus = a});
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
@@ -16,8 +16,8 @@
       workSpaces
 
     -- * Errors
-    , _InvalidParameterValuesException
     , _ResourceUnavailableException
+    , _InvalidParameterValuesException
     , _ResourceLimitExceededException
 
     -- * Compute
@@ -84,8 +84,8 @@
     , Workspace
     , workspace
     , wDirectoryId
-    , wIPAddress
     , wState
+    , wIPAddress
     , wUserName
     , wSubnetId
     , wBundleId
@@ -96,8 +96,8 @@
     -- * WorkspaceBundle
     , WorkspaceBundle
     , workspaceBundle
-    , wbOwner
     , wbBundleId
+    , wbOwner
     , wbName
     , wbComputeType
     , wbUserStorage
@@ -113,8 +113,8 @@
     , wdCustomerUserName
     , wdSubnetIds
     , wdAlias
-    , wdDirectoryType
     , wdWorkspaceSecurityGroupId
+    , wdDirectoryType
     , wdWorkspaceCreationProperties
     , wdDNSIPAddresses
     , wdDirectoryName
@@ -163,15 +163,15 @@
       | has (hasStatus 509) e = Just "limit_exceeded"
       | otherwise = Nothing
 
--- | One or more parameter values are not valid.
-_InvalidParameterValuesException :: AsError a => Getting (First ServiceError) a ServiceError
-_InvalidParameterValuesException =
-    _ServiceError . hasCode "InvalidParameterValuesException"
-
 -- | The specified resource is not available.
 _ResourceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError
 _ResourceUnavailableException =
     _ServiceError . hasCode "ResourceUnavailableException"
+
+-- | One or more parameter values are not valid.
+_InvalidParameterValuesException :: AsError a => Getting (First ServiceError) a ServiceError
+_InvalidParameterValuesException =
+    _ServiceError . hasCode "InvalidParameterValuesException"
 
 -- | Your resource limits have been exceeded.
 _ResourceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError
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
@@ -338,8 +338,8 @@
 -- /See:/ 'workspace' smart constructor.
 data Workspace = Workspace'
     { _wDirectoryId  :: !(Maybe Text)
-    , _wIPAddress    :: !(Maybe Text)
     , _wState        :: !(Maybe WorkspaceState)
+    , _wIPAddress    :: !(Maybe Text)
     , _wUserName     :: !(Maybe Text)
     , _wSubnetId     :: !(Maybe Text)
     , _wBundleId     :: !(Maybe Text)
@@ -354,10 +354,10 @@
 --
 -- * 'wDirectoryId'
 --
--- * 'wIPAddress'
---
 -- * 'wState'
 --
+-- * 'wIPAddress'
+--
 -- * 'wUserName'
 --
 -- * 'wSubnetId'
@@ -374,8 +374,8 @@
 workspace =
     Workspace'
     { _wDirectoryId = Nothing
-    , _wIPAddress = Nothing
     , _wState = Nothing
+    , _wIPAddress = Nothing
     , _wUserName = Nothing
     , _wSubnetId = Nothing
     , _wBundleId = Nothing
@@ -389,14 +389,14 @@
 wDirectoryId :: Lens' Workspace (Maybe Text)
 wDirectoryId = lens _wDirectoryId (\ s a -> s{_wDirectoryId = a});
 
--- | The IP address of the WorkSpace.
-wIPAddress :: Lens' Workspace (Maybe Text)
-wIPAddress = lens _wIPAddress (\ s a -> s{_wIPAddress = a});
-
 -- | The operational state of the WorkSpace.
 wState :: Lens' Workspace (Maybe WorkspaceState)
 wState = lens _wState (\ s a -> s{_wState = a});
 
+-- | The IP address of the WorkSpace.
+wIPAddress :: Lens' Workspace (Maybe Text)
+wIPAddress = lens _wIPAddress (\ s a -> s{_wIPAddress = a});
+
 -- | The user that the WorkSpace is assigned to.
 wUserName :: Lens' Workspace (Maybe Text)
 wUserName = lens _wUserName (\ s a -> s{_wUserName = a});
@@ -427,8 +427,8 @@
           = withObject "Workspace"
               (\ x ->
                  Workspace' <$>
-                   (x .:? "DirectoryId") <*> (x .:? "IpAddress") <*>
-                     (x .:? "State")
+                   (x .:? "DirectoryId") <*> (x .:? "State") <*>
+                     (x .:? "IpAddress")
                      <*> (x .:? "UserName")
                      <*> (x .:? "SubnetId")
                      <*> (x .:? "BundleId")
@@ -440,8 +440,8 @@
 --
 -- /See:/ 'workspaceBundle' smart constructor.
 data WorkspaceBundle = WorkspaceBundle'
-    { _wbOwner       :: !(Maybe Text)
-    , _wbBundleId    :: !(Maybe Text)
+    { _wbBundleId    :: !(Maybe Text)
+    , _wbOwner       :: !(Maybe Text)
     , _wbName        :: !(Maybe Text)
     , _wbComputeType :: !(Maybe ComputeType)
     , _wbUserStorage :: !(Maybe UserStorage)
@@ -452,10 +452,10 @@
 --
 -- Use one of the following lenses to modify other fields as desired:
 --
--- * 'wbOwner'
---
 -- * 'wbBundleId'
 --
+-- * 'wbOwner'
+--
 -- * 'wbName'
 --
 -- * 'wbComputeType'
@@ -467,23 +467,23 @@
     :: WorkspaceBundle
 workspaceBundle =
     WorkspaceBundle'
-    { _wbOwner = Nothing
-    , _wbBundleId = Nothing
+    { _wbBundleId = Nothing
+    , _wbOwner = Nothing
     , _wbName = Nothing
     , _wbComputeType = Nothing
     , _wbUserStorage = Nothing
     , _wbDescription = Nothing
     }
 
+-- | The bundle identifier.
+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.
 wbOwner :: Lens' WorkspaceBundle (Maybe Text)
 wbOwner = lens _wbOwner (\ s a -> s{_wbOwner = a});
 
--- | The bundle identifier.
-wbBundleId :: Lens' WorkspaceBundle (Maybe Text)
-wbBundleId = lens _wbBundleId (\ s a -> s{_wbBundleId = a});
-
 -- | The name of the bundle.
 wbName :: Lens' WorkspaceBundle (Maybe Text)
 wbName = lens _wbName (\ s a -> s{_wbName = a});
@@ -506,7 +506,7 @@
           = withObject "WorkspaceBundle"
               (\ x ->
                  WorkspaceBundle' <$>
-                   (x .:? "Owner") <*> (x .:? "BundleId") <*>
+                   (x .:? "BundleId") <*> (x .:? "Owner") <*>
                      (x .:? "Name")
                      <*> (x .:? "ComputeType")
                      <*> (x .:? "UserStorage")
@@ -524,8 +524,8 @@
     , _wdCustomerUserName            :: !(Maybe Text)
     , _wdSubnetIds                   :: !(Maybe [Text])
     , _wdAlias                       :: !(Maybe Text)
-    , _wdDirectoryType               :: !(Maybe WorkspaceDirectoryType)
     , _wdWorkspaceSecurityGroupId    :: !(Maybe Text)
+    , _wdDirectoryType               :: !(Maybe WorkspaceDirectoryType)
     , _wdWorkspaceCreationProperties :: !(Maybe DefaultWorkspaceCreationProperties)
     , _wdDNSIPAddresses              :: !(Maybe [Text])
     , _wdDirectoryName               :: !(Maybe Text)
@@ -549,10 +549,10 @@
 --
 -- * 'wdAlias'
 --
--- * 'wdDirectoryType'
---
 -- * 'wdWorkspaceSecurityGroupId'
 --
+-- * 'wdDirectoryType'
+--
 -- * 'wdWorkspaceCreationProperties'
 --
 -- * 'wdDNSIPAddresses'
@@ -569,8 +569,8 @@
     , _wdCustomerUserName = Nothing
     , _wdSubnetIds = Nothing
     , _wdAlias = Nothing
-    , _wdDirectoryType = Nothing
     , _wdWorkspaceSecurityGroupId = Nothing
+    , _wdDirectoryType = Nothing
     , _wdWorkspaceCreationProperties = Nothing
     , _wdDNSIPAddresses = Nothing
     , _wdDirectoryName = Nothing
@@ -609,14 +609,14 @@
 wdAlias :: Lens' WorkspaceDirectory (Maybe Text)
 wdAlias = lens _wdAlias (\ s a -> s{_wdAlias = a});
 
--- | The directory type.
-wdDirectoryType :: Lens' WorkspaceDirectory (Maybe WorkspaceDirectoryType)
-wdDirectoryType = lens _wdDirectoryType (\ s a -> s{_wdDirectoryType = a});
-
 -- | The identifier of the security group that is assigned to new WorkSpaces.
 wdWorkspaceSecurityGroupId :: Lens' WorkspaceDirectory (Maybe Text)
 wdWorkspaceSecurityGroupId = lens _wdWorkspaceSecurityGroupId (\ s a -> s{_wdWorkspaceSecurityGroupId = a});
 
+-- | The directory type.
+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.
 wdWorkspaceCreationProperties :: Lens' WorkspaceDirectory (Maybe DefaultWorkspaceCreationProperties)
@@ -642,8 +642,8 @@
                      <*> (x .:? "CustomerUserName")
                      <*> (x .:? "SubnetIds" .!= mempty)
                      <*> (x .:? "Alias")
-                     <*> (x .:? "DirectoryType")
                      <*> (x .:? "WorkspaceSecurityGroupId")
+                     <*> (x .:? "DirectoryType")
                      <*> (x .:? "WorkspaceCreationProperties")
                      <*> (x .:? "DnsIpAddresses" .!= mempty)
                      <*> (x .:? "DirectoryName"))