amazonka-workspaces 1.2.0.2 → 1.3.0

raw patch · 12 files changed

+113/−113 lines, 12 filesdep ~amazonka-coredep ~amazonka-testdep ~amazonka-workspacesPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test, amazonka-workspaces

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-workspaces.cabal +5/−5
• gen/Network/AWS/WorkSpaces.hs +6/−6
• gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs +8/−8
• gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs +10/−10
• gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs +10/−10
• gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs +10/−10
• gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs +8/−8
• gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs +8/−8
• gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs +8/−8
• gen/Network/AWS/WorkSpaces/Types.hs +9/−9
• gen/Network/AWS/WorkSpaces/Types/Product.hs +30/−30

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -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

@@ -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

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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});

@@ -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

@@ -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"))