amazonka-workspaces 1.4.4 → 1.4.5

raw patch · 19 files changed

+328/−232 lines, 19 filesdep ~amazonka-coredep ~amazonka-testdep ~amazonka-workspacesPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +9/−8
• amazonka-workspaces.cabal +10/−13
• gen/Network/AWS/WorkSpaces.hs +2/−1
• gen/Network/AWS/WorkSpaces/CreateTags.hs +12/−6
• gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs +13/−11
• gen/Network/AWS/WorkSpaces/DeleteTags.hs +12/−6
• gen/Network/AWS/WorkSpaces/DescribeTags.hs +12/−6
• gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs +20/−21
• gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs +17/−11
• gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs +26/−24
• gen/Network/AWS/WorkSpaces/DescribeWorkspacesConnectionStatus.hs +8/−6
• gen/Network/AWS/WorkSpaces/ModifyWorkspaceProperties.hs +6/−4
• gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs +12/−8
• gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs +16/−10
• gen/Network/AWS/WorkSpaces/StartWorkspaces.hs +6/−4
• gen/Network/AWS/WorkSpaces/StopWorkspaces.hs +6/−4
• gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs +13/−9
• gen/Network/AWS/WorkSpaces/Types.hs +16/−2
• gen/Network/AWS/WorkSpaces/Types/Product.hs +112/−78

@@ -8,26 +8,27 @@  ## Version -`1.4.4`+`1.4.5`   ## Description -Amazon WorkSpaces Service--This reference provides detailed information about the Amazon WorkSpaces operations.- Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-workspaces) and the [AWS API Reference](https://aws.amazon.com/documentation/).  The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),-which provides mechanisms for specifying AuthN/AuthZ information and sending requests.+which provides mechanisms for specifying AuthN/AuthZ information, sending requests,+and receiving responses. -Use of lenses is required for constructing and manipulating types.-This is due to the amount of nesting of AWS types and transparency regarding+Lenses are used for constructing and manipulating types,+due to the depth of nesting of AWS types and transparency regarding de/serialisation into more palatable Haskell values. The provided lenses should be compatible with any of the major lens libraries [lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).++See [Network.AWS.WorkSpaces](http://hackage.haskell.org/package/amazonka-workspaces/docs/Network-AWS-WorkSpaces.html)+or [the AWS documentation](https://aws.amazon.com/documentation/) to get started.+  ## Contribute 

@@ -1,5 +1,5 @@ name:                  amazonka-workspaces-version:               1.4.4+version:               1.4.5 synopsis:              Amazon WorkSpaces SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -13,22 +13,19 @@ cabal-version:         >= 1.10 extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:-    Amazon WorkSpaces Service--    This reference provides detailed information about the Amazon WorkSpaces operations.-    .     The types from this library are intended to be used with     <http://hackage.haskell.org/package/amazonka amazonka>, which provides-    mechanisms for specifying AuthN/AuthZ information and sending requests.+    mechanisms for specifying AuthN/AuthZ information, sending requests,+    and receiving responses.     .-    Use of lenses is required for constructing and manipulating types.-    This is due to the amount of nesting of AWS types and transparency regarding+    Lenses are used for constructing and manipulating types,+    due to the depth of nesting of AWS types and transparency regarding     de/serialisation into more palatable Haskell values.     The provided lenses should be compatible with any of the major lens libraries     such as <http://hackage.haskell.org/package/lens lens> or     <http://hackage.haskell.org/package/lens-family-core lens-family-core>.     .-    See "Network.AWS.WorkSpaces" or <https://aws.amazon.com/documentation/ the AWS Documentation>+    See "Network.AWS.WorkSpaces" or <https://aws.amazon.com/documentation/ the AWS documentation>     to get started.  source-repository head@@ -65,7 +62,7 @@         , Network.AWS.WorkSpaces.Types.Sum      build-depends:-          amazonka-core == 1.4.4.*+          amazonka-core == 1.4.5.*         , base          >= 4.7     && < 5  test-suite amazonka-workspaces-test@@ -85,9 +82,9 @@         , Test.AWS.WorkSpaces.Internal      build-depends:-          amazonka-core == 1.4.4.*-        , amazonka-test == 1.4.4.*-        , amazonka-workspaces == 1.4.4.*+          amazonka-core == 1.4.5.*+        , amazonka-test == 1.4.5.*+        , amazonka-workspaces == 1.4.5.*         , base         , bytestring         , tasty

@@ -11,9 +11,10 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Amazon WorkSpaces Service+-- __Amazon WorkSpaces Service__ -- -- This reference provides detailed information about the Amazon WorkSpaces operations.+-- module Network.AWS.WorkSpaces     (     -- * Service Configuration

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Creates tags for a WorkSpace.+--+-- module Network.AWS.WorkSpaces.CreateTags     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | The request of the < CreateTags> operation.+-- | The request of the 'CreateTags' operation. --+--+-- -- /See:/ 'createTags' smart constructor. data CreateTags = CreateTags'     { _ctResourceId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctResourceId'+-- * 'ctResourceId' - The resource ID of the request. ----- * 'ctTags'+-- * 'ctTags' - The tags of the request. createTags     :: Text -- ^ 'ctResourceId'     -> CreateTags@@ -108,8 +112,10 @@ instance ToQuery CreateTags where         toQuery = const mempty --- | The result of the < CreateTags> operation.+-- | The result of the 'CreateTags' operation. --+--+-- -- /See:/ 'createTagsResponse' smart constructor. newtype CreateTagsResponse = CreateTagsResponse'     { _ctrsResponseStatus :: Int@@ -119,7 +125,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctrsResponseStatus'+-- * 'ctrsResponseStatus' - -- | The response status code. createTagsResponse     :: Int -- ^ 'ctrsResponseStatus'     -> CreateTagsResponse@@ -128,7 +134,7 @@     { _ctrsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTagsResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); 

@@ -20,7 +20,7 @@ -- -- Creates one or more WorkSpaces. ----- This operation is asynchronous and returns before the WorkSpaces are created.+-- module Network.AWS.WorkSpaces.CreateWorkspaces     (     -- * Creating a Request@@ -45,8 +45,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < CreateWorkspaces> operation.+-- | Contains the inputs for the 'CreateWorkspaces' operation. --+--+-- -- /See:/ 'createWorkspaces' smart constructor. newtype CreateWorkspaces = CreateWorkspaces'     { _cwWorkspaces :: List1 WorkspaceRequest@@ -56,7 +58,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cwWorkspaces'+-- * 'cwWorkspaces' - An array of structures that specify the WorkSpaces to create. createWorkspaces     :: NonEmpty WorkspaceRequest -- ^ 'cwWorkspaces'     -> CreateWorkspaces@@ -104,8 +106,10 @@ instance ToQuery CreateWorkspaces where         toQuery = const mempty --- | Contains the result of the < CreateWorkspaces> operation.+-- | Contains the result of the 'CreateWorkspaces' operation. --+--+-- -- /See:/ 'createWorkspacesResponse' smart constructor. data CreateWorkspacesResponse = CreateWorkspacesResponse'     { _cwrsFailedRequests  :: !(Maybe [FailedCreateWorkspaceRequest])@@ -117,11 +121,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cwrsFailedRequests'+-- * 'cwrsFailedRequests' - An array of structures that represent the WorkSpaces that could not be created. ----- * 'cwrsPendingRequests'+-- * 'cwrsPendingRequests' - 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. ----- * 'cwrsResponseStatus'+-- * 'cwrsResponseStatus' - -- | The response status code. createWorkspacesResponse     :: Int -- ^ 'cwrsResponseStatus'     -> CreateWorkspacesResponse@@ -136,13 +140,11 @@ 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.+-- | 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. cwrsPendingRequests :: Lens' CreateWorkspacesResponse [Workspace] cwrsPendingRequests = lens _cwrsPendingRequests (\ s a -> s{_cwrsPendingRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. cwrsResponseStatus :: Lens' CreateWorkspacesResponse Int cwrsResponseStatus = lens _cwrsResponseStatus (\ s a -> s{_cwrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Deletes tags from a WorkSpace.+--+-- module Network.AWS.WorkSpaces.DeleteTags     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | The request of the < DeleteTags> operation.+-- | The request of the 'DeleteTags' operation. --+--+-- -- /See:/ 'deleteTags' smart constructor. data DeleteTags = DeleteTags'     { _dResourceId :: !Text@@ -54,9 +58,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dResourceId'+-- * 'dResourceId' - The resource ID of the request. ----- * 'dTagKeys'+-- * 'dTagKeys' - The tag keys of the request. deleteTags     :: Text -- ^ 'dResourceId'     -> DeleteTags@@ -108,8 +112,10 @@ instance ToQuery DeleteTags where         toQuery = const mempty --- | The result of the < DeleteTags> operation.+-- | The result of the 'DeleteTags' operation. --+--+-- -- /See:/ 'deleteTagsResponse' smart constructor. newtype DeleteTagsResponse = DeleteTagsResponse'     { _drsResponseStatus :: Int@@ -119,7 +125,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'drsResponseStatus'+-- * 'drsResponseStatus' - -- | The response status code. deleteTagsResponse     :: Int -- ^ 'drsResponseStatus'     -> DeleteTagsResponse@@ -128,7 +134,7 @@     { _drsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. drsResponseStatus :: Lens' DeleteTagsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes tags for a WorkSpace.+--+-- module Network.AWS.WorkSpaces.DescribeTags     (     -- * Creating a Request@@ -42,8 +44,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | The request of the < DescribeTags> operation.+-- | The request of the 'DescribeTags' operation. --+--+-- -- /See:/ 'describeTags' smart constructor. newtype DescribeTags = DescribeTags'     { _dtResourceId :: Text@@ -53,7 +57,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtResourceId'+-- * 'dtResourceId' - The resource ID of the request. describeTags     :: Text -- ^ 'dtResourceId'     -> DescribeTags@@ -99,8 +103,10 @@ instance ToQuery DescribeTags where         toQuery = const mempty --- | The result of the < DescribeTags> operation.+-- | The result of the 'DescribeTags' operation. --+--+-- -- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'     { _dtrsTagList        :: !(Maybe [Tag])@@ -111,9 +117,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dtrsTagList'+-- * 'dtrsTagList' - The list of tags. ----- * 'dtrsResponseStatus'+-- * 'dtrsResponseStatus' - -- | The response status code. describeTagsResponse     :: Int -- ^ 'dtrsResponseStatus'     -> DescribeTagsResponse@@ -127,7 +133,7 @@ dtrsTagList :: Lens' DescribeTagsResponse [Tag] dtrsTagList = lens _dtrsTagList (\ s a -> s{_dtrsTagList = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); 

@@ -20,9 +20,11 @@ -- -- 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. ----- 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.+-- 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.+-- module Network.AWS.WorkSpaces.DescribeWorkspaceBundles     (     -- * Creating a Request@@ -49,8 +51,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < DescribeWorkspaceBundles> operation.+-- | Contains the inputs for the 'DescribeWorkspaceBundles' operation. --+--+-- -- /See:/ 'describeWorkspaceBundles' smart constructor. data DescribeWorkspaceBundles = DescribeWorkspaceBundles'     { _dwbBundleIds :: !(Maybe (List1 Text))@@ -62,11 +66,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwbBundleIds'+-- * 'dwbBundleIds' - An array of strings that contains the identifiers of the bundles to retrieve. This parameter cannot be combined with any other filter parameter. ----- * 'dwbOwner'+-- * 'dwbOwner' - 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.     * @AMAZON@ - Retrieves the bundles that are provided by AWS. ----- * 'dwbNextToken'+-- * 'dwbNextToken' - The @NextToken@ value from a previous call to this operation. Pass null if this is the first call. describeWorkspaceBundles     :: DescribeWorkspaceBundles describeWorkspaceBundles =@@ -80,18 +84,11 @@ 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.------ This contains one of the following values:------ -   null- Retrieves the bundles that belong to the account making the call.------ -   'AMAZON'- Retrieves the bundles that are provided by AWS.---+-- | 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.     * @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}); @@ -134,8 +131,10 @@ instance ToQuery DescribeWorkspaceBundles where         toQuery = const mempty --- | Contains the results of the < DescribeWorkspaceBundles> operation.+-- | Contains the results of the 'DescribeWorkspaceBundles' operation. --+--+-- -- /See:/ 'describeWorkspaceBundlesResponse' smart constructor. data DescribeWorkspaceBundlesResponse = DescribeWorkspaceBundlesResponse'     { _dwbrsBundles        :: !(Maybe [WorkspaceBundle])@@ -147,11 +146,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwbrsBundles'+-- * 'dwbrsBundles' - An array of structures that contain information about the bundles. ----- * 'dwbrsNextToken'+-- * 'dwbrsNextToken' - 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 time frame. ----- * 'dwbrsResponseStatus'+-- * 'dwbrsResponseStatus' - -- | The response status code. describeWorkspaceBundlesResponse     :: Int -- ^ 'dwbrsResponseStatus'     -> DescribeWorkspaceBundlesResponse@@ -166,11 +165,11 @@ 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 time frame.+-- | 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 time frame. dwbrsNextToken :: Lens' DescribeWorkspaceBundlesResponse (Maybe Text) dwbrsNextToken = lens _dwbrsNextToken (\ s a -> s{_dwbrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. dwbrsResponseStatus :: Lens' DescribeWorkspaceBundlesResponse Int dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = a}); 

@@ -20,7 +20,9 @@ -- -- 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@@ -46,8 +48,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < DescribeWorkspaceDirectories> operation.+-- | Contains the inputs for the 'DescribeWorkspaceDirectories' operation. --+--+-- -- /See:/ 'describeWorkspaceDirectories' smart constructor. data DescribeWorkspaceDirectories = DescribeWorkspaceDirectories'     { _dwdNextToken    :: !(Maybe Text)@@ -58,9 +62,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwdNextToken'+-- * 'dwdNextToken' - The @NextToken@ value from a previous call to this operation. Pass null if this is the first call. ----- * 'dwdDirectoryIds'+-- * 'dwdDirectoryIds' - An array of strings that contains the directory identifiers to retrieve information for. If this member is null, all directories are retrieved. describeWorkspaceDirectories     :: DescribeWorkspaceDirectories describeWorkspaceDirectories =@@ -69,7 +73,7 @@     , _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}); @@ -117,8 +121,10 @@ instance ToQuery DescribeWorkspaceDirectories where         toQuery = const mempty --- | Contains the results of the < DescribeWorkspaceDirectories> operation.+-- | Contains the results of the 'DescribeWorkspaceDirectories' operation. --+--+-- -- /See:/ 'describeWorkspaceDirectoriesResponse' smart constructor. data DescribeWorkspaceDirectoriesResponse = DescribeWorkspaceDirectoriesResponse'     { _dwdrsDirectories    :: !(Maybe [WorkspaceDirectory])@@ -130,11 +136,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwdrsDirectories'+-- * 'dwdrsDirectories' - An array of structures that contain information about the directories. ----- * 'dwdrsNextToken'+-- * 'dwdrsNextToken' - 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 time frame. ----- * 'dwdrsResponseStatus'+-- * 'dwdrsResponseStatus' - -- | The response status code. describeWorkspaceDirectoriesResponse     :: Int -- ^ 'dwdrsResponseStatus'     -> DescribeWorkspaceDirectoriesResponse@@ -149,11 +155,11 @@ 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 time frame.+-- | 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 time frame. dwdrsNextToken :: Lens' DescribeWorkspaceDirectoriesResponse (Maybe Text) dwdrsNextToken = lens _dwdrsNextToken (\ s a -> s{_dwdrsNextToken = a}); --- | The response status code.+-- | -- | The response status code. dwdrsResponseStatus :: Lens' DescribeWorkspaceDirectoriesResponse Int dwdrsResponseStatus = lens _dwdrsResponseStatus (\ s a -> s{_dwdrsResponseStatus = a}); 

@@ -20,9 +20,11 @@ -- -- Obtains information about the specified WorkSpaces. ----- 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.+-- 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.+-- module Network.AWS.WorkSpaces.DescribeWorkspaces     (     -- * Creating a Request@@ -52,8 +54,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < DescribeWorkspaces> operation.+-- | Contains the inputs for the 'DescribeWorkspaces' operation. --+--+-- -- /See:/ 'describeWorkspaces' smart constructor. data DescribeWorkspaces = DescribeWorkspaces'     { _dwDirectoryId  :: !(Maybe Text)@@ -68,17 +72,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwDirectoryId'+-- * 'dwDirectoryId' - 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. ----- * 'dwWorkspaceIds'+-- * 'dwWorkspaceIds' - 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 it returns is not immediately available. If you immediately call 'DescribeWorkspaces' with this identifier, no information is returned. ----- * 'dwUserName'+-- * 'dwUserName' - Used with the @DirectoryId@ parameter to specify the directory user for whom to obtain the WorkSpace. ----- * 'dwBundleId'+-- * 'dwBundleId' - 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. ----- * 'dwNextToken'+-- * 'dwNextToken' - The @NextToken@ value from a previous call to this operation. Pass null if this is the first call. ----- * 'dwLimit'+-- * 'dwLimit' - The maximum number of items to return. describeWorkspaces     :: DescribeWorkspaces describeWorkspaces =@@ -91,17 +95,15 @@     , _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.------ Because the < CreateWorkspaces> operation is asynchronous, the identifier it returns is not immediately available. If you immediately call < DescribeWorkspaces> with this identifier, no information is returned.+-- | 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 it returns is not immediately available. If you immediately call 'DescribeWorkspaces' with this identifier, no information is 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 whom to obtain the WorkSpace.+-- | Used with the @DirectoryId@ parameter to specify the directory user for whom to obtain the WorkSpace. dwUserName :: Lens' DescribeWorkspaces (Maybe Text) dwUserName = lens _dwUserName (\ s a -> s{_dwUserName = a}); @@ -109,7 +111,7 @@ 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}); @@ -160,8 +162,10 @@ instance ToQuery DescribeWorkspaces where         toQuery = const mempty --- | Contains the results for the < DescribeWorkspaces> operation.+-- | Contains the results for the 'DescribeWorkspaces' operation. --+--+-- -- /See:/ 'describeWorkspacesResponse' smart constructor. data DescribeWorkspacesResponse = DescribeWorkspacesResponse'     { _dwrsNextToken      :: !(Maybe Text)@@ -173,11 +177,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwrsNextToken'+-- * 'dwrsNextToken' - 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 time frame. ----- * 'dwrsWorkspaces'+-- * 'dwrsWorkspaces' - 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. ----- * 'dwrsResponseStatus'+-- * 'dwrsResponseStatus' - -- | The response status code. describeWorkspacesResponse     :: Int -- ^ 'dwrsResponseStatus'     -> DescribeWorkspacesResponse@@ -188,17 +192,15 @@     , _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 time frame.+-- | 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 time frame. dwrsNextToken :: Lens' DescribeWorkspacesResponse (Maybe Text) dwrsNextToken = lens _dwrsNextToken (\ s a -> s{_dwrsNextToken = a}); --- | 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.+-- | 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. dwrsWorkspaces :: Lens' DescribeWorkspacesResponse [Workspace] dwrsWorkspaces = lens _dwrsWorkspaces (\ s a -> s{_dwrsWorkspaces = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dwrsResponseStatus :: Lens' DescribeWorkspacesResponse Int dwrsResponseStatus = lens _dwrsResponseStatus (\ s a -> s{_dwrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes the connection status of a specified WorkSpace.+--+-- module Network.AWS.WorkSpaces.DescribeWorkspacesConnectionStatus     (     -- * Creating a Request@@ -54,9 +56,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwcsWorkspaceIds'+-- * 'dwcsWorkspaceIds' - An array of strings that contain the identifiers of the WorkSpaces. ----- * 'dwcsNextToken'+-- * 'dwcsNextToken' - The next token of the request. describeWorkspacesConnectionStatus     :: DescribeWorkspacesConnectionStatus describeWorkspacesConnectionStatus =@@ -128,11 +130,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwcsrsNextToken'+-- * 'dwcsrsNextToken' - The next token of the result. ----- * 'dwcsrsWorkspacesConnectionStatus'+-- * 'dwcsrsWorkspacesConnectionStatus' - The connection status of the WorkSpace. ----- * 'dwcsrsResponseStatus'+-- * 'dwcsrsResponseStatus' - -- | The response status code. describeWorkspacesConnectionStatusResponse     :: Int -- ^ 'dwcsrsResponseStatus'     -> DescribeWorkspacesConnectionStatusResponse@@ -151,7 +153,7 @@ dwcsrsWorkspacesConnectionStatus :: Lens' DescribeWorkspacesConnectionStatusResponse [WorkspaceConnectionStatus] dwcsrsWorkspacesConnectionStatus = lens _dwcsrsWorkspacesConnectionStatus (\ s a -> s{_dwcsrsWorkspacesConnectionStatus = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. dwcsrsResponseStatus :: Lens' DescribeWorkspacesConnectionStatusResponse Int dwcsrsResponseStatus = lens _dwcsrsResponseStatus (\ s a -> s{_dwcsrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Modifies the WorkSpace properties, including the RunningMode and AutoStop time.+--+-- module Network.AWS.WorkSpaces.ModifyWorkspaceProperties     (     -- * Creating a Request@@ -52,9 +54,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mwpWorkspaceId'+-- * 'mwpWorkspaceId' - The ID of the WorkSpace. ----- * 'mwpWorkspaceProperties'+-- * 'mwpWorkspaceProperties' - The WorkSpace properties of the request. modifyWorkspaceProperties     :: Text -- ^ 'mwpWorkspaceId'     -> WorkspaceProperties -- ^ 'mwpWorkspaceProperties'@@ -120,7 +122,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'mwprsResponseStatus'+-- * 'mwprsResponseStatus' - -- | The response status code. modifyWorkspacePropertiesResponse     :: Int -- ^ 'mwprsResponseStatus'     -> ModifyWorkspacePropertiesResponse@@ -129,7 +131,7 @@     { _mwprsResponseStatus = pResponseStatus_     } --- | The response status code.+-- | -- | The response status code. mwprsResponseStatus :: Lens' ModifyWorkspacePropertiesResponse Int mwprsResponseStatus = lens _mwprsResponseStatus (\ s a -> s{_mwprsResponseStatus = a}); 

@@ -20,9 +20,9 @@ -- -- Reboots the specified WorkSpaces. ----- To be able to reboot a WorkSpace, the WorkSpace must have a __State__ of 'AVAILABLE', 'IMPAIRED', or 'INOPERABLE'. ----- This operation is asynchronous and returns before the WorkSpaces have rebooted.+-- To be able to reboot a WorkSpace, the WorkSpace must have a __State__ of @AVAILABLE@ , @IMPAIRED@ , or @INOPERABLE@ .+-- module Network.AWS.WorkSpaces.RebootWorkspaces     (     -- * Creating a Request@@ -46,8 +46,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < RebootWorkspaces> operation.+-- | Contains the inputs for the 'RebootWorkspaces' operation. --+--+-- -- /See:/ 'rebootWorkspaces' smart constructor. newtype RebootWorkspaces = RebootWorkspaces'     { _rwRebootWorkspaceRequests :: List1 RebootRequest@@ -57,7 +59,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rwRebootWorkspaceRequests'+-- * 'rwRebootWorkspaceRequests' - An array of structures that specify the WorkSpaces to reboot. rebootWorkspaces     :: NonEmpty RebootRequest -- ^ 'rwRebootWorkspaceRequests'     -> RebootWorkspaces@@ -107,8 +109,10 @@ instance ToQuery RebootWorkspaces where         toQuery = const mempty --- | Contains the results of the < RebootWorkspaces> operation.+-- | Contains the results of the 'RebootWorkspaces' operation. --+--+-- -- /See:/ 'rebootWorkspacesResponse' smart constructor. data RebootWorkspacesResponse = RebootWorkspacesResponse'     { _rrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])@@ -119,9 +123,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrsFailedRequests'+-- * 'rrsFailedRequests' - An array of structures representing any WorkSpaces that could not be rebooted. ----- * 'rrsResponseStatus'+-- * 'rrsResponseStatus' - -- | The response status code. rebootWorkspacesResponse     :: Int -- ^ 'rrsResponseStatus'     -> RebootWorkspacesResponse@@ -135,7 +139,7 @@ rrsFailedRequests :: Lens' RebootWorkspacesResponse [FailedWorkspaceChangeRequest] rrsFailedRequests = lens _rrsFailedRequests (\ s a -> s{_rrsFailedRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. rrsResponseStatus :: Lens' RebootWorkspacesResponse Int rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}); 

@@ -20,15 +20,17 @@ -- -- 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: ----- -   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 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 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'. ----- This operation is asynchronous and returns before the WorkSpaces have been completely rebuilt.+--+-- To be able to rebuild a WorkSpace, the WorkSpace must have a __State__ of @AVAILABLE@ or @ERROR@ .+-- module Network.AWS.WorkSpaces.RebuildWorkspaces     (     -- * Creating a Request@@ -52,8 +54,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < RebuildWorkspaces> operation.+-- | Contains the inputs for the 'RebuildWorkspaces' operation. --+--+-- -- /See:/ 'rebuildWorkspaces' smart constructor. newtype RebuildWorkspaces = RebuildWorkspaces'     { _rwRebuildWorkspaceRequests :: List1 RebuildRequest@@ -63,7 +67,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rwRebuildWorkspaceRequests'+-- * 'rwRebuildWorkspaceRequests' - An array of structures that specify the WorkSpaces to rebuild. rebuildWorkspaces     :: NonEmpty RebuildRequest -- ^ 'rwRebuildWorkspaceRequests'     -> RebuildWorkspaces@@ -114,8 +118,10 @@ instance ToQuery RebuildWorkspaces where         toQuery = const mempty --- | Contains the results of the < RebuildWorkspaces> operation.+-- | Contains the results of the 'RebuildWorkspaces' operation. --+--+-- -- /See:/ 'rebuildWorkspacesResponse' smart constructor. data RebuildWorkspacesResponse = RebuildWorkspacesResponse'     { _rwrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])@@ -126,9 +132,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rwrsFailedRequests'+-- * 'rwrsFailedRequests' - An array of structures representing any WorkSpaces that could not be rebuilt. ----- * 'rwrsResponseStatus'+-- * 'rwrsResponseStatus' - -- | The response status code. rebuildWorkspacesResponse     :: Int -- ^ 'rwrsResponseStatus'     -> RebuildWorkspacesResponse@@ -142,7 +148,7 @@ rwrsFailedRequests :: Lens' RebuildWorkspacesResponse [FailedWorkspaceChangeRequest] rwrsFailedRequests = lens _rwrsFailedRequests (\ s a -> s{_rwrsFailedRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. rwrsResponseStatus :: Lens' RebuildWorkspacesResponse Int rwrsResponseStatus = lens _rwrsResponseStatus (\ s a -> s{_rwrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Starts the specified WorkSpaces. The API only works with WorkSpaces that have RunningMode configured as AutoStop and the State set to “STOPPED.”+--+-- module Network.AWS.WorkSpaces.StartWorkspaces     (     -- * Creating a Request@@ -51,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'swStartWorkspaceRequests'+-- * 'swStartWorkspaceRequests' - The requests. startWorkspaces     :: NonEmpty StartRequest -- ^ 'swStartWorkspaceRequests'     -> StartWorkspaces@@ -111,9 +113,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'swrsFailedRequests'+-- * 'swrsFailedRequests' - The failed requests. ----- * 'swrsResponseStatus'+-- * 'swrsResponseStatus' - -- | The response status code. startWorkspacesResponse     :: Int -- ^ 'swrsResponseStatus'     -> StartWorkspacesResponse@@ -127,7 +129,7 @@ swrsFailedRequests :: Lens' StartWorkspacesResponse [FailedWorkspaceChangeRequest] swrsFailedRequests = lens _swrsFailedRequests (\ s a -> s{_swrsFailedRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. swrsResponseStatus :: Lens' StartWorkspacesResponse Int swrsResponseStatus = lens _swrsResponseStatus (\ s a -> s{_swrsResponseStatus = a}); 

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Stops the specified WorkSpaces. The API only works with WorkSpaces that have RunningMode configured as AutoStop and the State set to AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR.+--+-- module Network.AWS.WorkSpaces.StopWorkspaces     (     -- * Creating a Request@@ -51,7 +53,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'swStopWorkspaceRequests'+-- * 'swStopWorkspaceRequests' - The requests. stopWorkspaces     :: NonEmpty StopRequest -- ^ 'swStopWorkspaceRequests'     -> StopWorkspaces@@ -111,9 +113,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srsFailedRequests'+-- * 'srsFailedRequests' - The failed requests. ----- * 'srsResponseStatus'+-- * 'srsResponseStatus' - -- | The response status code. stopWorkspacesResponse     :: Int -- ^ 'srsResponseStatus'     -> StopWorkspacesResponse@@ -127,7 +129,7 @@ srsFailedRequests :: Lens' StopWorkspacesResponse [FailedWorkspaceChangeRequest] srsFailedRequests = lens _srsFailedRequests (\ s a -> s{_srsFailedRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. srsResponseStatus :: Lens' StopWorkspacesResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); 

@@ -20,11 +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. ----- You can terminate a WorkSpace that is in any state except 'SUSPENDED'.+-- 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. ----- This operation is asynchronous and returns before the WorkSpaces have been completely terminated.+-- You can terminate a WorkSpace that is in any state except @SUSPENDED@ .+-- module Network.AWS.WorkSpaces.TerminateWorkspaces     (     -- * Creating a Request@@ -48,8 +48,10 @@ import           Network.AWS.WorkSpaces.Types import           Network.AWS.WorkSpaces.Types.Product --- | Contains the inputs for the < TerminateWorkspaces> operation.+-- | Contains the inputs for the 'TerminateWorkspaces' operation. --+--+-- -- /See:/ 'terminateWorkspaces' smart constructor. newtype TerminateWorkspaces = TerminateWorkspaces'     { _twTerminateWorkspaceRequests :: List1 TerminateRequest@@ -59,7 +61,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'twTerminateWorkspaceRequests'+-- * 'twTerminateWorkspaceRequests' - An array of structures that specify the WorkSpaces to terminate. terminateWorkspaces     :: NonEmpty TerminateRequest -- ^ 'twTerminateWorkspaceRequests'     -> TerminateWorkspaces@@ -111,8 +113,10 @@ instance ToQuery TerminateWorkspaces where         toQuery = const mempty --- | Contains the results of the < TerminateWorkspaces> operation.+-- | Contains the results of the 'TerminateWorkspaces' operation. --+--+-- -- /See:/ 'terminateWorkspacesResponse' smart constructor. data TerminateWorkspacesResponse = TerminateWorkspacesResponse'     { _twrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])@@ -123,9 +127,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'twrsFailedRequests'+-- * 'twrsFailedRequests' - An array of structures representing any WorkSpaces that could not be terminated. ----- * 'twrsResponseStatus'+-- * 'twrsResponseStatus' - -- | The response status code. terminateWorkspacesResponse     :: Int -- ^ 'twrsResponseStatus'     -> TerminateWorkspacesResponse@@ -139,7 +143,7 @@ twrsFailedRequests :: Lens' TerminateWorkspacesResponse [FailedWorkspaceChangeRequest] twrsFailedRequests = lens _twrsFailedRequests (\ s a -> s{_twrsFailedRequests = a}) . _Default . _Coerce; --- | The response status code.+-- | -- | The response status code. twrsResponseStatus :: Lens' TerminateWorkspacesResponse Int twrsResponseStatus = lens _twrsResponseStatus (\ s a -> s{_twrsResponseStatus = a}); 

@@ -184,7 +184,7 @@ import           Network.AWS.WorkSpaces.Types.Product import           Network.AWS.WorkSpaces.Types.Sum --- | API version '2015-04-08' of the Amazon WorkSpaces SDK configuration.+-- | API version @2015-04-08@ of the Amazon WorkSpaces SDK configuration. workSpaces :: Service workSpaces =     Service@@ -223,36 +223,50 @@ _AccessDeniedException = _ServiceError . hasCode "AccessDeniedException"  -- | 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"  -- | The properties of this WorkSpace are currently being modified. Try again in a moment.+--+-- _OperationInProgressException :: AsError a => Getting (First ServiceError) a ServiceError _OperationInProgressException =     _ServiceError . hasCode "OperationInProgressException"  -- | Your resource limits have been exceeded.+--+-- _ResourceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceLimitExceededException =     _ServiceError . hasCode "ResourceLimitExceededException"  -- | The specified WorkSpace has an invalid state for this operation.+--+-- _InvalidResourceStateException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidResourceStateException =     _ServiceError . hasCode "InvalidResourceStateException" --- | The WorkSpace does not have the supported configuration for this operation. For more information, see the <http://docs.aws.amazon.com/workspaces/latest/adminguide Amazon WorkSpaces Administration Guide>.+-- | The WorkSpace does not have the supported configuration for this operation. For more information, see the <http://docs.aws.amazon.com/workspaces/latest/adminguide Amazon WorkSpaces Administration Guide> .+--+-- _UnsupportedWorkspaceConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedWorkspaceConfigurationException =     _ServiceError . hasCode "UnsupportedWorkspaceConfigurationException"  -- | The resource could not be found.+--+-- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =     _ServiceError . hasCode "ResourceNotFoundException"

@@ -23,6 +23,8 @@  -- | Contains information about the compute type of a WorkSpace bundle. --+--+-- -- /See:/ 'computeType' smart constructor. newtype ComputeType = ComputeType'     { _ctName :: Maybe Compute@@ -32,7 +34,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ctName'+-- * 'ctName' - The name of the compute type for the bundle. computeType     :: ComputeType computeType =@@ -55,6 +57,8 @@  -- | Contains default WorkSpace creation information. --+--+-- -- /See:/ 'defaultWorkspaceCreationProperties' smart constructor. data DefaultWorkspaceCreationProperties = DefaultWorkspaceCreationProperties'     { _dwcpCustomSecurityGroupId           :: !(Maybe Text)@@ -68,15 +72,15 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dwcpCustomSecurityGroupId'+-- * 'dwcpCustomSecurityGroupId' - The identifier of any custom security groups that are applied to the WorkSpaces when they are created. ----- * 'dwcpUserEnabledAsLocalAdministrator'+-- * 'dwcpUserEnabledAsLocalAdministrator' - The WorkSpace user is an administrator on the WorkSpace. ----- * 'dwcpEnableWorkDocs'+-- * 'dwcpEnableWorkDocs' - Specifies if the directory is enabled for Amazon WorkDocs. ----- * 'dwcpEnableInternetAccess'+-- * 'dwcpEnableInternetAccess' - A public IP address will be attached to all WorkSpaces that are created or rebuilt. ----- * 'dwcpDefaultOu'+-- * 'dwcpDefaultOu' - The organizational unit (OU) in the directory that the WorkSpace machine accounts are placed in. defaultWorkspaceCreationProperties     :: DefaultWorkspaceCreationProperties defaultWorkspaceCreationProperties =@@ -126,6 +130,8 @@  -- | Contains information about a WorkSpace that could not be created. --+--+-- -- /See:/ 'failedCreateWorkspaceRequest' smart constructor. data FailedCreateWorkspaceRequest = FailedCreateWorkspaceRequest'     { _fcwrWorkspaceRequest :: !(Maybe WorkspaceRequest)@@ -137,11 +143,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fcwrWorkspaceRequest'+-- * 'fcwrWorkspaceRequest' - A 'FailedCreateWorkspaceRequest$WorkspaceRequest' object that contains the information about the WorkSpace that could not be created. ----- * 'fcwrErrorCode'+-- * 'fcwrErrorCode' - The error code. ----- * 'fcwrErrorMessage'+-- * 'fcwrErrorMessage' - The textual error message. failedCreateWorkspaceRequest     :: FailedCreateWorkspaceRequest failedCreateWorkspaceRequest =@@ -151,7 +157,7 @@     , _fcwrErrorMessage = Nothing     } --- | A < FailedCreateWorkspaceRequest>WorkspaceRequest> object that contains the information about the WorkSpace that could not be created.+-- | A 'FailedCreateWorkspaceRequest$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}); @@ -175,8 +181,10 @@  instance NFData FailedCreateWorkspaceRequest --- | Contains information about a WorkSpace that could not be rebooted (< RebootWorkspaces>), rebuilt (< RebuildWorkspaces>), terminated (< TerminateWorkspaces>), started (< StartWorkspaces>), or stopped (< StopWorkspaces>).+-- | Contains information about a WorkSpace that could not be rebooted ('RebootWorkspaces' ), rebuilt ('RebuildWorkspaces' ), terminated ('TerminateWorkspaces' ), started ('StartWorkspaces' ), or stopped ('StopWorkspaces' ). --+--+-- -- /See:/ 'failedWorkspaceChangeRequest' smart constructor. data FailedWorkspaceChangeRequest = FailedWorkspaceChangeRequest'     { _fwcrErrorCode    :: !(Maybe Text)@@ -188,11 +196,11 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'fwcrErrorCode'+-- * 'fwcrErrorCode' - The error code. ----- * 'fwcrWorkspaceId'+-- * 'fwcrWorkspaceId' - The identifier of the WorkSpace. ----- * 'fwcrErrorMessage'+-- * 'fwcrErrorMessage' - The textual error message. failedWorkspaceChangeRequest     :: FailedWorkspaceChangeRequest failedWorkspaceChangeRequest =@@ -226,8 +234,10 @@  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'     { _rWorkspaceId :: Text@@ -237,7 +247,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rWorkspaceId'+-- * 'rWorkspaceId' - The identifier of the WorkSpace to reboot. rebootRequest     :: Text -- ^ 'rWorkspaceId'     -> RebootRequest@@ -259,8 +269,10 @@           = 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'     { _rrWorkspaceId :: Text@@ -270,7 +282,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rrWorkspaceId'+-- * 'rrWorkspaceId' - The identifier of the WorkSpace to rebuild. rebuildRequest     :: Text -- ^ 'rrWorkspaceId'     -> RebuildRequest@@ -294,6 +306,8 @@  -- | Describes the start request. --+--+-- -- /See:/ 'startRequest' smart constructor. newtype StartRequest = StartRequest'     { _sWorkspaceId :: Maybe Text@@ -303,7 +317,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'sWorkspaceId'+-- * 'sWorkspaceId' - The ID of the WorkSpace. startRequest     :: StartRequest startRequest =@@ -326,6 +340,8 @@  -- | Describes the stop request. --+--+-- -- /See:/ 'stopRequest' smart constructor. newtype StopRequest = StopRequest'     { _srWorkspaceId :: Maybe Text@@ -335,7 +351,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'srWorkspaceId'+-- * 'srWorkspaceId' - The ID of the WorkSpace. stopRequest     :: StopRequest stopRequest =@@ -358,6 +374,8 @@  -- | Describes the tag of the WorkSpace. --+--+-- -- /See:/ 'tag' smart constructor. data Tag = Tag'     { _tagValue :: !(Maybe Text)@@ -368,9 +386,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'tagValue'+-- * 'tagValue' - The value of the tag. ----- * 'tagKey'+-- * 'tagKey' - The key of the tag. tag     :: Text -- ^ 'tagKey'     -> Tag@@ -404,8 +422,10 @@                  [("Value" .=) <$> _tagValue,                   Just ("Key" .= _tagKey)]) --- | 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'     { _trWorkspaceId :: Text@@ -415,7 +435,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'trWorkspaceId'+-- * 'trWorkspaceId' - The identifier of the WorkSpace to terminate. terminateRequest     :: Text -- ^ 'trWorkspaceId'     -> TerminateRequest@@ -439,6 +459,8 @@  -- | Contains information about the user storage for a WorkSpace bundle. --+--+-- -- /See:/ 'userStorage' smart constructor. newtype UserStorage = UserStorage'     { _usCapacity :: Maybe Text@@ -448,7 +470,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'usCapacity'+-- * 'usCapacity' - The amount of user storage for the bundle. userStorage     :: UserStorage userStorage =@@ -471,6 +493,8 @@  -- | Contains information about a WorkSpace. --+--+-- -- /See:/ 'workspace' smart constructor. data Workspace = Workspace'     { _wDirectoryId                 :: !(Maybe Text)@@ -493,33 +517,33 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wDirectoryId'+-- * 'wDirectoryId' - The identifier of the AWS Directory Service directory that the WorkSpace belongs to. ----- * 'wState'+-- * 'wState' - The operational state of the WorkSpace. ----- * 'wIPAddress'+-- * 'wIPAddress' - The IP address of the WorkSpace. ----- * 'wUserName'+-- * 'wUserName' - The user that the WorkSpace is assigned to. ----- * 'wSubnetId'+-- * 'wSubnetId' - The identifier of the subnet that the WorkSpace is in. ----- * 'wBundleId'+-- * 'wBundleId' - The identifier of the bundle that the WorkSpace was created from. ----- * 'wWorkspaceProperties'+-- * 'wWorkspaceProperties' - Undocumented member. ----- * 'wRootVolumeEncryptionEnabled'+-- * 'wRootVolumeEncryptionEnabled' - Specifies whether the data stored on the root volume, or C: drive, is encrypted. ----- * 'wErrorCode'+-- * 'wErrorCode' - If the WorkSpace could not be created, this contains the error code. ----- * 'wVolumeEncryptionKey'+-- * 'wVolumeEncryptionKey' - The KMS key used to encrypt data stored on your WorkSpace. ----- * 'wComputerName'+-- * 'wComputerName' - The name of the WorkSpace as seen by the operating system. ----- * 'wWorkspaceId'+-- * 'wWorkspaceId' - The identifier of the WorkSpace. ----- * 'wUserVolumeEncryptionEnabled'+-- * 'wUserVolumeEncryptionEnabled' - Specifies whether the data stored on the user volume, or D: drive, is encrypted. ----- * 'wErrorMessage'+-- * 'wErrorMessage' - If the WorkSpace could not be created, this contains a textual error message that describes the failure. workspace     :: Workspace workspace =@@ -621,6 +645,8 @@  -- | Contains information about a WorkSpace bundle. --+--+-- -- /See:/ 'workspaceBundle' smart constructor. data WorkspaceBundle = WorkspaceBundle'     { _wbBundleId    :: !(Maybe Text)@@ -635,17 +661,17 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wbBundleId'+-- * 'wbBundleId' - The bundle identifier. ----- * 'wbOwner'+-- * 'wbOwner' - The owner of the bundle. This contains the owner's account identifier, or @AMAZON@ if the bundle is provided by AWS. ----- * 'wbName'+-- * 'wbName' - The name of the bundle. ----- * 'wbComputeType'+-- * 'wbComputeType' - A 'ComputeType' object that specifies the compute type for the bundle. ----- * 'wbUserStorage'+-- * 'wbUserStorage' - A 'UserStorage' object that specifies the amount of user storage that the bundle contains. ----- * 'wbDescription'+-- * 'wbDescription' - The bundle description. workspaceBundle     :: WorkspaceBundle workspaceBundle =@@ -662,7 +688,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}); @@ -670,11 +696,11 @@ wbName :: Lens' WorkspaceBundle (Maybe Text) wbName = lens _wbName (\ s a -> s{_wbName = a}); --- | A < ComputeType> object that specifies the compute type for the bundle.+-- | A 'ComputeType' object that specifies the compute type for the bundle. 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}); @@ -699,6 +725,8 @@  -- | Describes the connection status of a WorkSpace. --+--+-- -- /See:/ 'workspaceConnectionStatus' smart constructor. data WorkspaceConnectionStatus = WorkspaceConnectionStatus'     { _wcsLastKnownUserConnectionTimestamp :: !(Maybe POSIX)@@ -711,13 +739,13 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wcsLastKnownUserConnectionTimestamp'+-- * 'wcsLastKnownUserConnectionTimestamp' - The timestamp of the last known user connection. ----- * 'wcsConnectionStateCheckTimestamp'+-- * 'wcsConnectionStateCheckTimestamp' - The timestamp of the connection state check. ----- * 'wcsWorkspaceId'+-- * 'wcsWorkspaceId' - The ID of the WorkSpace. ----- * 'wcsConnectionState'+-- * 'wcsConnectionState' - The connection state of the WorkSpace. Returns UNKOWN if the WorkSpace is in a Stopped state. workspaceConnectionStatus     :: WorkspaceConnectionStatus workspaceConnectionStatus =@@ -760,6 +788,8 @@  -- | Contains information about an AWS Directory Service directory for use with Amazon WorkSpaces. --+--+-- -- /See:/ 'workspaceDirectory' smart constructor. data WorkspaceDirectory = WorkspaceDirectory'     { _wdRegistrationCode            :: !(Maybe Text)@@ -780,29 +810,29 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wdRegistrationCode'+-- * 'wdRegistrationCode' - The registration code for the directory. This is the code that users enter in their Amazon WorkSpaces client application to connect to the directory. ----- * 'wdIAMRoleId'+-- * 'wdIAMRoleId' - 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. ----- * 'wdDirectoryId'+-- * 'wdDirectoryId' - The directory identifier. ----- * 'wdState'+-- * 'wdState' - The state of the directory's registration with Amazon WorkSpaces ----- * 'wdCustomerUserName'+-- * 'wdCustomerUserName' - The user name for the service account. ----- * 'wdSubnetIds'+-- * 'wdSubnetIds' - An array of strings that contains the identifiers of the subnets used with the directory. ----- * 'wdAlias'+-- * 'wdAlias' - The directory alias. ----- * 'wdWorkspaceSecurityGroupId'+-- * 'wdWorkspaceSecurityGroupId' - The identifier of the security group that is assigned to new WorkSpaces. ----- * 'wdDirectoryType'+-- * 'wdDirectoryType' - The directory type. ----- * 'wdWorkspaceCreationProperties'+-- * 'wdWorkspaceCreationProperties' - A structure that specifies the default creation properties for all WorkSpaces in the directory. ----- * 'wdDNSIPAddresses'+-- * 'wdDNSIPAddresses' - An array of strings that contains the IP addresses of the DNS servers for the directory. ----- * 'wdDirectoryName'+-- * 'wdDirectoryName' - The name of the directory. workspaceDirectory     :: WorkspaceDirectory workspaceDirectory =@@ -833,7 +863,7 @@ wdDirectoryId :: Lens' WorkspaceDirectory (Maybe Text) wdDirectoryId = lens _wdDirectoryId (\ s a -> s{_wdDirectoryId = a}); --- | The state of the directory\'s registration with Amazon WorkSpaces+-- | The state of the directory's registration with Amazon WorkSpaces wdState :: Lens' WorkspaceDirectory (Maybe WorkspaceDirectoryState) wdState = lens _wdState (\ s a -> s{_wdState = a}); @@ -892,6 +922,8 @@  -- | Describes the properties of a WorkSpace. --+--+-- -- /See:/ 'workspaceProperties' smart constructor. data WorkspaceProperties = WorkspaceProperties'     { _wpRunningMode                         :: !(Maybe RunningMode)@@ -902,9 +934,9 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wpRunningMode'+-- * 'wpRunningMode' - The running mode of the WorkSpace. AlwaysOn WorkSpaces are billed monthly. AutoStop WorkSpaces are billed by the hour and stopped when no longer being used in order to save on costs. ----- * 'wpRunningModeAutoStopTimeoutInMinutes'+-- * 'wpRunningModeAutoStopTimeoutInMinutes' - The time after a user logs off when WorkSpaces are automatically stopped. Configured in 60 minute intervals. workspaceProperties     :: WorkspaceProperties workspaceProperties =@@ -943,6 +975,8 @@  -- | Contains information about a WorkSpace creation request. --+--+-- -- /See:/ 'workspaceRequest' smart constructor. data WorkspaceRequest = WorkspaceRequest'     { _wrWorkspaceProperties         :: !(Maybe WorkspaceProperties)@@ -959,21 +993,21 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'wrWorkspaceProperties'+-- * 'wrWorkspaceProperties' - Undocumented member. ----- * 'wrRootVolumeEncryptionEnabled'+-- * 'wrRootVolumeEncryptionEnabled' - Specifies whether the data stored on the root volume, or C: drive, is encrypted. ----- * 'wrVolumeEncryptionKey'+-- * 'wrVolumeEncryptionKey' - The KMS key used to encrypt data stored on your WorkSpace. ----- * 'wrUserVolumeEncryptionEnabled'+-- * 'wrUserVolumeEncryptionEnabled' - Specifies whether the data stored on the user volume, or D: drive, is encrypted. ----- * 'wrTags'+-- * 'wrTags' - The tags of the WorkSpace request. ----- * 'wrDirectoryId'+-- * 'wrDirectoryId' - 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. ----- * 'wrUserName'+-- * 'wrUserName' - The username that the WorkSpace is assigned to. This username must exist in the AWS Directory Service directory specified by the @DirectoryId@ member. ----- * 'wrBundleId'+-- * 'wrBundleId' - 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. workspaceRequest     :: Text -- ^ 'wrDirectoryId'     -> Text -- ^ 'wrUserName'@@ -1011,15 +1045,15 @@ wrTags :: Lens' WorkspaceRequest [Tag] wrTags = lens _wrTags (\ s a -> s{_wrTags = a}) . _Default . _Coerce; --- | 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});