amazonka-workspaces 1.4.5 → 1.5.0
raw patch · 23 files changed
+781/−696 lines, 23 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)
+ Network.AWS.WorkSpaces.DescribeWorkspaceBundles: instance Network.AWS.Pager.AWSPager Network.AWS.WorkSpaces.DescribeWorkspaceBundles.DescribeWorkspaceBundles
+ Network.AWS.WorkSpaces.DescribeWorkspaceDirectories: instance Network.AWS.Pager.AWSPager Network.AWS.WorkSpaces.DescribeWorkspaceDirectories.DescribeWorkspaceDirectories
+ Network.AWS.WorkSpaces.DescribeWorkspaces: instance Network.AWS.Pager.AWSPager Network.AWS.WorkSpaces.DescribeWorkspaces.DescribeWorkspaces
Files
- README.md +1/−1
- amazonka-workspaces.cabal +16/−11
- gen/Network/AWS/WorkSpaces.hs +21/−21
- gen/Network/AWS/WorkSpaces/CreateTags.hs +22/−23
- gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs +27/−25
- gen/Network/AWS/WorkSpaces/DeleteTags.hs +22/−23
- gen/Network/AWS/WorkSpaces/DescribeTags.hs +23/−24
- gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs +40/−28
- gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs +39/−26
- gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs +49/−35
- gen/Network/AWS/WorkSpaces/DescribeWorkspacesConnectionStatus.hs +32/−26
- gen/Network/AWS/WorkSpaces/ModifyWorkspaceProperties.hs +26/−23
- gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs +24/−23
- gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs +24/−23
- gen/Network/AWS/WorkSpaces/StartWorkspaces.hs +25/−24
- gen/Network/AWS/WorkSpaces/StopWorkspaces.hs +24/−24
- gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs +24/−23
- gen/Network/AWS/WorkSpaces/Types.hs +49/−36
- gen/Network/AWS/WorkSpaces/Types/Product.hs +237/−227
- gen/Network/AWS/WorkSpaces/Types/Sum.hs +44/−38
- gen/Network/AWS/WorkSpaces/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/WorkSpaces.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-workspaces.cabal view
@@ -1,13 +1,13 @@ name: amazonka-workspaces-version: 1.4.5+version: 1.5.0 synopsis: Amazon WorkSpaces SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues-license: OtherLicense+license: MPL-2.0 license-file: LICENSE author: Brendan Hay-maintainer: Brendan Hay <brendan.g.hay@gmail.com>-copyright: Copyright (c) 2013-2016 Brendan Hay+maintainer: Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10@@ -29,14 +29,19 @@ to get started. source-repository head- type: git- location: git://github.com/brendanhay/amazonka.git+ type: git+ location: git://github.com/brendanhay/amazonka.git+ subdir: amazonka-workspaces library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall+ ghc-options:+ -Wall+ -fwarn-incomplete-uni-patterns+ -fwarn-incomplete-record-updates+ -funbox-strict-fields exposed-modules: Network.AWS.WorkSpaces@@ -62,7 +67,7 @@ , Network.AWS.WorkSpaces.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-workspaces-test@@ -82,9 +87,9 @@ , Test.AWS.WorkSpaces.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-workspaces == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-workspaces , base , bytestring , tasty
gen/Network/AWS/WorkSpaces.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.WorkSpaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -59,10 +59,10 @@ -- ** DescribeTags , module Network.AWS.WorkSpaces.DescribeTags - -- ** DescribeWorkspaceDirectories+ -- ** DescribeWorkspaceDirectories (Paginated) , module Network.AWS.WorkSpaces.DescribeWorkspaceDirectories - -- ** DescribeWorkspaceBundles+ -- ** DescribeWorkspaceBundles (Paginated) , module Network.AWS.WorkSpaces.DescribeWorkspaceBundles -- ** RebuildWorkspaces@@ -89,7 +89,7 @@ -- ** CreateWorkspaces , module Network.AWS.WorkSpaces.CreateWorkspaces - -- ** DescribeWorkspaces+ -- ** DescribeWorkspaces (Paginated) , module Network.AWS.WorkSpaces.DescribeWorkspaces -- ** StartWorkspaces@@ -250,22 +250,22 @@ , wrBundleId ) where -import Network.AWS.WorkSpaces.CreateTags-import Network.AWS.WorkSpaces.CreateWorkspaces-import Network.AWS.WorkSpaces.DeleteTags-import Network.AWS.WorkSpaces.DescribeTags-import Network.AWS.WorkSpaces.DescribeWorkspaceBundles-import Network.AWS.WorkSpaces.DescribeWorkspaceDirectories-import Network.AWS.WorkSpaces.DescribeWorkspaces-import Network.AWS.WorkSpaces.DescribeWorkspacesConnectionStatus-import Network.AWS.WorkSpaces.ModifyWorkspaceProperties-import Network.AWS.WorkSpaces.RebootWorkspaces-import Network.AWS.WorkSpaces.RebuildWorkspaces-import Network.AWS.WorkSpaces.StartWorkspaces-import Network.AWS.WorkSpaces.StopWorkspaces-import Network.AWS.WorkSpaces.TerminateWorkspaces-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Waiters+import Network.AWS.WorkSpaces.CreateTags+import Network.AWS.WorkSpaces.CreateWorkspaces+import Network.AWS.WorkSpaces.DeleteTags+import Network.AWS.WorkSpaces.DescribeTags+import Network.AWS.WorkSpaces.DescribeWorkspaceBundles+import Network.AWS.WorkSpaces.DescribeWorkspaceDirectories+import Network.AWS.WorkSpaces.DescribeWorkspaces+import Network.AWS.WorkSpaces.DescribeWorkspacesConnectionStatus+import Network.AWS.WorkSpaces.ModifyWorkspaceProperties+import Network.AWS.WorkSpaces.RebootWorkspaces+import Network.AWS.WorkSpaces.RebuildWorkspaces+import Network.AWS.WorkSpaces.StartWorkspaces+import Network.AWS.WorkSpaces.StopWorkspaces+import Network.AWS.WorkSpaces.TerminateWorkspaces+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/WorkSpaces/CreateTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.CreateTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , ctrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | The request of the 'CreateTags' operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'createTags' smart constructor. data CreateTags = CreateTags'- { _ctResourceId :: !Text- , _ctTags :: ![Tag]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctResourceId :: !Text+ , _ctTags :: ![Tag]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ :: Text -- ^ 'ctResourceId' -> CreateTags createTags pResourceId_ =- CreateTags'- { _ctResourceId = pResourceId_- , _ctTags = mempty- }+ CreateTags' {_ctResourceId = pResourceId_, _ctTags = mempty} + -- | The resource ID of the request. ctResourceId :: Lens' CreateTags Text ctResourceId = lens _ctResourceId (\ s a -> s{_ctResourceId = a});@@ -86,9 +85,9 @@ (\ s h x -> CreateTagsResponse' <$> (pure (fromEnum s))) -instance Hashable CreateTags+instance Hashable CreateTags where -instance NFData CreateTags+instance NFData CreateTags where instance ToHeaders CreateTags where toHeaders@@ -118,9 +117,10 @@ -- -- /See:/ 'createTagsResponse' smart constructor. newtype CreateTagsResponse = CreateTagsResponse'- { _ctrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +130,11 @@ :: Int -- ^ 'ctrsResponseStatus' -> CreateTagsResponse createTagsResponse pResponseStatus_ =- CreateTagsResponse'- { _ctrsResponseStatus = pResponseStatus_- }+ CreateTagsResponse' {_ctrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTagsResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); -instance NFData CreateTagsResponse+instance NFData CreateTagsResponse where
gen/Network/AWS/WorkSpaces/CreateWorkspaces.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.CreateWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@ , cwrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'CreateWorkspaces' operation. --@@ -51,9 +51,10 @@ -- -- /See:/ 'createWorkspaces' smart constructor. newtype CreateWorkspaces = CreateWorkspaces'- { _cwWorkspaces :: List1 WorkspaceRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cwWorkspaces :: List1 WorkspaceRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@ :: NonEmpty WorkspaceRequest -- ^ 'cwWorkspaces' -> CreateWorkspaces createWorkspaces pWorkspaces_ =- CreateWorkspaces'- { _cwWorkspaces = _List1 # pWorkspaces_- }+ CreateWorkspaces' {_cwWorkspaces = _List1 # pWorkspaces_} + -- | An array of structures that specify the WorkSpaces to create. cwWorkspaces :: Lens' CreateWorkspaces (NonEmpty WorkspaceRequest) cwWorkspaces = lens _cwWorkspaces (\ s a -> s{_cwWorkspaces = a}) . _List1;@@ -82,9 +82,9 @@ (x .?> "PendingRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable CreateWorkspaces+instance Hashable CreateWorkspaces where -instance NFData CreateWorkspaces+instance NFData CreateWorkspaces where instance ToHeaders CreateWorkspaces where toHeaders@@ -112,11 +112,12 @@ -- -- /See:/ 'createWorkspacesResponse' smart constructor. data CreateWorkspacesResponse = CreateWorkspacesResponse'- { _cwrsFailedRequests :: !(Maybe [FailedCreateWorkspaceRequest])- , _cwrsPendingRequests :: !(Maybe [Workspace])- , _cwrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _cwrsFailedRequests :: !(Maybe [FailedCreateWorkspaceRequest])+ , _cwrsPendingRequests :: !(Maybe [Workspace])+ , _cwrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +131,13 @@ :: Int -- ^ 'cwrsResponseStatus' -> CreateWorkspacesResponse createWorkspacesResponse pResponseStatus_ =- CreateWorkspacesResponse'- { _cwrsFailedRequests = Nothing- , _cwrsPendingRequests = Nothing- , _cwrsResponseStatus = pResponseStatus_- }+ CreateWorkspacesResponse'+ { _cwrsFailedRequests = Nothing+ , _cwrsPendingRequests = Nothing+ , _cwrsResponseStatus = pResponseStatus_+ } + -- | An array of structures that represent the WorkSpaces that could not be created. cwrsFailedRequests :: Lens' CreateWorkspacesResponse [FailedCreateWorkspaceRequest] cwrsFailedRequests = lens _cwrsFailedRequests (\ s a -> s{_cwrsFailedRequests = a}) . _Default . _Coerce;@@ -148,4 +150,4 @@ cwrsResponseStatus :: Lens' CreateWorkspacesResponse Int cwrsResponseStatus = lens _cwrsResponseStatus (\ s a -> s{_cwrsResponseStatus = a}); -instance NFData CreateWorkspacesResponse+instance NFData CreateWorkspacesResponse where
gen/Network/AWS/WorkSpaces/DeleteTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DeleteTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , drsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | The request of the 'DeleteTags' operation. --@@ -50,10 +50,11 @@ -- -- /See:/ 'deleteTags' smart constructor. data DeleteTags = DeleteTags'- { _dResourceId :: !Text- , _dTagKeys :: ![Text]- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dResourceId :: !Text+ , _dTagKeys :: ![Text]+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ :: Text -- ^ 'dResourceId' -> DeleteTags deleteTags pResourceId_ =- DeleteTags'- { _dResourceId = pResourceId_- , _dTagKeys = mempty- }+ DeleteTags' {_dResourceId = pResourceId_, _dTagKeys = mempty} + -- | The resource ID of the request. dResourceId :: Lens' DeleteTags Text dResourceId = lens _dResourceId (\ s a -> s{_dResourceId = a});@@ -86,9 +85,9 @@ (\ s h x -> DeleteTagsResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteTags+instance Hashable DeleteTags where -instance NFData DeleteTags+instance NFData DeleteTags where instance ToHeaders DeleteTags where toHeaders@@ -118,9 +117,10 @@ -- -- /See:/ 'deleteTagsResponse' smart constructor. newtype DeleteTagsResponse = DeleteTagsResponse'- { _drsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,12 +130,11 @@ :: Int -- ^ 'drsResponseStatus' -> DeleteTagsResponse deleteTagsResponse pResponseStatus_ =- DeleteTagsResponse'- { _drsResponseStatus = pResponseStatus_- }+ DeleteTagsResponse' {_drsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsResponseStatus :: Lens' DeleteTagsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteTagsResponse+instance NFData DeleteTagsResponse where
gen/Network/AWS/WorkSpaces/DescribeTags.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DescribeTags--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@ , dtrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | The request of the 'DescribeTags' operation. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeTags' smart constructor. newtype DescribeTags = DescribeTags'- { _dtResourceId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtResourceId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@ describeTags :: Text -- ^ 'dtResourceId' -> DescribeTags-describeTags pResourceId_ =- DescribeTags'- { _dtResourceId = pResourceId_- }+describeTags pResourceId_ = DescribeTags' {_dtResourceId = pResourceId_} + -- | The resource ID of the request. dtResourceId :: Lens' DescribeTags Text dtResourceId = lens _dtResourceId (\ s a -> s{_dtResourceId = a});@@ -79,9 +78,9 @@ DescribeTagsResponse' <$> (x .?> "TagList" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeTags+instance Hashable DescribeTags where -instance NFData DescribeTags+instance NFData DescribeTags where instance ToHeaders DescribeTags where toHeaders@@ -109,10 +108,11 @@ -- -- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'- { _dtrsTagList :: !(Maybe [Tag])- , _dtrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dtrsTagList :: !(Maybe [Tag])+ , _dtrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -124,11 +124,10 @@ :: Int -- ^ 'dtrsResponseStatus' -> DescribeTagsResponse describeTagsResponse pResponseStatus_ =- DescribeTagsResponse'- { _dtrsTagList = Nothing- , _dtrsResponseStatus = pResponseStatus_- }+ DescribeTagsResponse'+ {_dtrsTagList = Nothing, _dtrsResponseStatus = pResponseStatus_} + -- | The list of tags. dtrsTagList :: Lens' DescribeTagsResponse [Tag] dtrsTagList = lens _dtrsTagList (\ s a -> s{_dtrsTagList = a}) . _Default . _Coerce;@@ -137,4 +136,4 @@ dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DescribeTagsResponse+instance NFData DescribeTagsResponse where
gen/Network/AWS/WorkSpaces/DescribeWorkspaceBundles.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DescribeWorkspaceBundles--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,6 +25,8 @@ -- -- 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 returns paginated results. module Network.AWS.WorkSpaces.DescribeWorkspaceBundles ( -- * Creating a Request@@ -44,12 +46,13 @@ , dwbrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'DescribeWorkspaceBundles' operation. --@@ -57,11 +60,12 @@ -- -- /See:/ 'describeWorkspaceBundles' smart constructor. data DescribeWorkspaceBundles = DescribeWorkspaceBundles'- { _dwbBundleIds :: !(Maybe (List1 Text))- , _dwbOwner :: !(Maybe Text)- , _dwbNextToken :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwbBundleIds :: !(Maybe (List1 Text))+ , _dwbOwner :: !(Maybe Text)+ , _dwbNextToken :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkspaceBundles' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,12 +78,10 @@ describeWorkspaceBundles :: DescribeWorkspaceBundles describeWorkspaceBundles =- DescribeWorkspaceBundles'- { _dwbBundleIds = Nothing- , _dwbOwner = Nothing- , _dwbNextToken = Nothing- }+ DescribeWorkspaceBundles'+ {_dwbBundleIds = Nothing, _dwbOwner = Nothing, _dwbNextToken = Nothing} + -- | An array of strings that contains the identifiers of the bundles to retrieve. This parameter cannot be combined with any other filter parameter. dwbBundleIds :: Lens' DescribeWorkspaceBundles (Maybe (NonEmpty Text)) dwbBundleIds = lens _dwbBundleIds (\ s a -> s{_dwbBundleIds = a}) . mapping _List1;@@ -92,6 +94,13 @@ dwbNextToken :: Lens' DescribeWorkspaceBundles (Maybe Text) dwbNextToken = lens _dwbNextToken (\ s a -> s{_dwbNextToken = a}); +instance AWSPager DescribeWorkspaceBundles where+ page rq rs+ | stop (rs ^. dwbrsNextToken) = Nothing+ | stop (rs ^. dwbrsBundles) = Nothing+ | otherwise =+ Just $ rq & dwbNextToken .~ rs ^. dwbrsNextToken+ instance AWSRequest DescribeWorkspaceBundles where type Rs DescribeWorkspaceBundles = DescribeWorkspaceBundlesResponse@@ -103,9 +112,9 @@ (x .?> "Bundles" .!@ mempty) <*> (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeWorkspaceBundles+instance Hashable DescribeWorkspaceBundles where -instance NFData DescribeWorkspaceBundles+instance NFData DescribeWorkspaceBundles where instance ToHeaders DescribeWorkspaceBundles where toHeaders@@ -137,11 +146,12 @@ -- -- /See:/ 'describeWorkspaceBundlesResponse' smart constructor. data DescribeWorkspaceBundlesResponse = DescribeWorkspaceBundlesResponse'- { _dwbrsBundles :: !(Maybe [WorkspaceBundle])- , _dwbrsNextToken :: !(Maybe Text)- , _dwbrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +165,13 @@ :: Int -- ^ 'dwbrsResponseStatus' -> DescribeWorkspaceBundlesResponse describeWorkspaceBundlesResponse pResponseStatus_ =- DescribeWorkspaceBundlesResponse'- { _dwbrsBundles = Nothing- , _dwbrsNextToken = Nothing- , _dwbrsResponseStatus = pResponseStatus_- }+ DescribeWorkspaceBundlesResponse'+ { _dwbrsBundles = Nothing+ , _dwbrsNextToken = Nothing+ , _dwbrsResponseStatus = pResponseStatus_+ } + -- | An array of structures that contain information about the bundles. dwbrsBundles :: Lens' DescribeWorkspaceBundlesResponse [WorkspaceBundle] dwbrsBundles = lens _dwbrsBundles (\ s a -> s{_dwbrsBundles = a}) . _Default . _Coerce;@@ -174,3 +185,4 @@ dwbrsResponseStatus = lens _dwbrsResponseStatus (\ s a -> s{_dwbrsResponseStatus = a}); instance NFData DescribeWorkspaceBundlesResponse+ where
gen/Network/AWS/WorkSpaces/DescribeWorkspaceDirectories.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DescribeWorkspaceDirectories--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -23,6 +23,8 @@ -- -- 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 returns paginated results. module Network.AWS.WorkSpaces.DescribeWorkspaceDirectories ( -- * Creating a Request@@ -41,12 +43,13 @@ , dwdrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'DescribeWorkspaceDirectories' operation. --@@ -54,10 +57,11 @@ -- -- /See:/ 'describeWorkspaceDirectories' smart constructor. data DescribeWorkspaceDirectories = DescribeWorkspaceDirectories'- { _dwdNextToken :: !(Maybe Text)- , _dwdDirectoryIds :: !(Maybe (List1 Text))- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwdNextToken :: !(Maybe Text)+ , _dwdDirectoryIds :: !(Maybe (List1 Text))+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkspaceDirectories' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +72,10 @@ describeWorkspaceDirectories :: DescribeWorkspaceDirectories describeWorkspaceDirectories =- DescribeWorkspaceDirectories'- { _dwdNextToken = Nothing- , _dwdDirectoryIds = Nothing- }+ DescribeWorkspaceDirectories'+ {_dwdNextToken = Nothing, _dwdDirectoryIds = Nothing} + -- | 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});@@ -81,6 +84,13 @@ dwdDirectoryIds :: Lens' DescribeWorkspaceDirectories (Maybe (NonEmpty Text)) dwdDirectoryIds = lens _dwdDirectoryIds (\ s a -> s{_dwdDirectoryIds = a}) . mapping _List1; +instance AWSPager DescribeWorkspaceDirectories where+ page rq rs+ | stop (rs ^. dwdrsNextToken) = Nothing+ | stop (rs ^. dwdrsDirectories) = Nothing+ | otherwise =+ Just $ rq & dwdNextToken .~ rs ^. dwdrsNextToken+ instance AWSRequest DescribeWorkspaceDirectories where type Rs DescribeWorkspaceDirectories =@@ -94,9 +104,9 @@ (x .?> "NextToken") <*> (pure (fromEnum s))) -instance Hashable DescribeWorkspaceDirectories+instance Hashable DescribeWorkspaceDirectories where -instance NFData DescribeWorkspaceDirectories+instance NFData DescribeWorkspaceDirectories where instance ToHeaders DescribeWorkspaceDirectories where toHeaders@@ -127,11 +137,12 @@ -- -- /See:/ 'describeWorkspaceDirectoriesResponse' smart constructor. data DescribeWorkspaceDirectoriesResponse = DescribeWorkspaceDirectoriesResponse'- { _dwdrsDirectories :: !(Maybe [WorkspaceDirectory])- , _dwdrsNextToken :: !(Maybe Text)- , _dwdrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -145,12 +156,13 @@ :: Int -- ^ 'dwdrsResponseStatus' -> DescribeWorkspaceDirectoriesResponse describeWorkspaceDirectoriesResponse pResponseStatus_ =- DescribeWorkspaceDirectoriesResponse'- { _dwdrsDirectories = Nothing- , _dwdrsNextToken = Nothing- , _dwdrsResponseStatus = pResponseStatus_- }+ DescribeWorkspaceDirectoriesResponse'+ { _dwdrsDirectories = Nothing+ , _dwdrsNextToken = Nothing+ , _dwdrsResponseStatus = pResponseStatus_+ } + -- | An array of structures that contain information about the directories. dwdrsDirectories :: Lens' DescribeWorkspaceDirectoriesResponse [WorkspaceDirectory] dwdrsDirectories = lens _dwdrsDirectories (\ s a -> s{_dwdrsDirectories = a}) . _Default . _Coerce;@@ -164,3 +176,4 @@ dwdrsResponseStatus = lens _dwdrsResponseStatus (\ s a -> s{_dwdrsResponseStatus = a}); instance NFData DescribeWorkspaceDirectoriesResponse+ where
gen/Network/AWS/WorkSpaces/DescribeWorkspaces.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DescribeWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -25,6 +25,8 @@ -- -- 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 returns paginated results. module Network.AWS.WorkSpaces.DescribeWorkspaces ( -- * Creating a Request@@ -47,12 +49,13 @@ , dwrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'DescribeWorkspaces' operation. --@@ -60,14 +63,15 @@ -- -- /See:/ 'describeWorkspaces' smart constructor. data DescribeWorkspaces = DescribeWorkspaces'- { _dwDirectoryId :: !(Maybe Text)- , _dwWorkspaceIds :: !(Maybe (List1 Text))- , _dwUserName :: !(Maybe Text)- , _dwBundleId :: !(Maybe Text)- , _dwNextToken :: !(Maybe Text)- , _dwLimit :: !(Maybe Nat)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwDirectoryId :: !(Maybe Text)+ , _dwWorkspaceIds :: !(Maybe (List1 Text))+ , _dwUserName :: !(Maybe Text)+ , _dwBundleId :: !(Maybe Text)+ , _dwNextToken :: !(Maybe Text)+ , _dwLimit :: !(Maybe Nat)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -86,15 +90,16 @@ describeWorkspaces :: DescribeWorkspaces describeWorkspaces =- DescribeWorkspaces'- { _dwDirectoryId = Nothing- , _dwWorkspaceIds = Nothing- , _dwUserName = Nothing- , _dwBundleId = Nothing- , _dwNextToken = Nothing- , _dwLimit = Nothing- }+ DescribeWorkspaces'+ { _dwDirectoryId = Nothing+ , _dwWorkspaceIds = Nothing+ , _dwUserName = Nothing+ , _dwBundleId = Nothing+ , _dwNextToken = Nothing+ , _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. dwDirectoryId :: Lens' DescribeWorkspaces (Maybe Text) dwDirectoryId = lens _dwDirectoryId (\ s a -> s{_dwDirectoryId = a});@@ -119,6 +124,13 @@ dwLimit :: Lens' DescribeWorkspaces (Maybe Natural) dwLimit = lens _dwLimit (\ s a -> s{_dwLimit = a}) . mapping _Nat; +instance AWSPager DescribeWorkspaces where+ page rq rs+ | stop (rs ^. dwrsNextToken) = Nothing+ | stop (rs ^. dwrsWorkspaces) = Nothing+ | otherwise =+ Just $ rq & dwNextToken .~ rs ^. dwrsNextToken+ instance AWSRequest DescribeWorkspaces where type Rs DescribeWorkspaces = DescribeWorkspacesResponse@@ -131,9 +143,9 @@ (x .?> "Workspaces" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable DescribeWorkspaces+instance Hashable DescribeWorkspaces where -instance NFData DescribeWorkspaces+instance NFData DescribeWorkspaces where instance ToHeaders DescribeWorkspaces where toHeaders@@ -168,11 +180,12 @@ -- -- /See:/ 'describeWorkspacesResponse' smart constructor. data DescribeWorkspacesResponse = DescribeWorkspacesResponse'- { _dwrsNextToken :: !(Maybe Text)- , _dwrsWorkspaces :: !(Maybe [Workspace])- , _dwrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _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. -- -- Use one of the following lenses to modify other fields as desired:@@ -186,12 +199,13 @@ :: Int -- ^ 'dwrsResponseStatus' -> DescribeWorkspacesResponse describeWorkspacesResponse pResponseStatus_ =- DescribeWorkspacesResponse'- { _dwrsNextToken = Nothing- , _dwrsWorkspaces = Nothing- , _dwrsResponseStatus = pResponseStatus_- }+ DescribeWorkspacesResponse'+ { _dwrsNextToken = Nothing+ , _dwrsWorkspaces = Nothing+ , _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. dwrsNextToken :: Lens' DescribeWorkspacesResponse (Maybe Text) dwrsNextToken = lens _dwrsNextToken (\ s a -> s{_dwrsNextToken = a});@@ -204,4 +218,4 @@ dwrsResponseStatus :: Lens' DescribeWorkspacesResponse Int dwrsResponseStatus = lens _dwrsResponseStatus (\ s a -> s{_dwrsResponseStatus = a}); -instance NFData DescribeWorkspacesResponse+instance NFData DescribeWorkspacesResponse where
gen/Network/AWS/WorkSpaces/DescribeWorkspacesConnectionStatus.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.DescribeWorkspacesConnectionStatus--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,19 +39,20 @@ , dwcsrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | /See:/ 'describeWorkspacesConnectionStatus' smart constructor. data DescribeWorkspacesConnectionStatus = DescribeWorkspacesConnectionStatus'- { _dwcsWorkspaceIds :: !(Maybe (List1 Text))- , _dwcsNextToken :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwcsWorkspaceIds :: !(Maybe (List1 Text))+ , _dwcsNextToken :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkspacesConnectionStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,10 @@ describeWorkspacesConnectionStatus :: DescribeWorkspacesConnectionStatus describeWorkspacesConnectionStatus =- DescribeWorkspacesConnectionStatus'- { _dwcsWorkspaceIds = Nothing- , _dwcsNextToken = Nothing- }+ DescribeWorkspacesConnectionStatus'+ {_dwcsWorkspaceIds = Nothing, _dwcsNextToken = Nothing} + -- | An array of strings that contain the identifiers of the WorkSpaces. dwcsWorkspaceIds :: Lens' DescribeWorkspacesConnectionStatus (Maybe (NonEmpty Text)) dwcsWorkspaceIds = lens _dwcsWorkspaceIds (\ s a -> s{_dwcsWorkspaceIds = a}) . mapping _List1;@@ -76,7 +76,8 @@ dwcsNextToken = lens _dwcsNextToken (\ s a -> s{_dwcsNextToken = a}); instance AWSRequest- DescribeWorkspacesConnectionStatus where+ DescribeWorkspacesConnectionStatus+ where type Rs DescribeWorkspacesConnectionStatus = DescribeWorkspacesConnectionStatusResponse request = postJSON workSpaces@@ -89,8 +90,10 @@ <*> (pure (fromEnum s))) instance Hashable DescribeWorkspacesConnectionStatus+ where instance NFData DescribeWorkspacesConnectionStatus+ where instance ToHeaders DescribeWorkspacesConnectionStatus where@@ -121,11 +124,12 @@ -- | /See:/ 'describeWorkspacesConnectionStatusResponse' smart constructor. data DescribeWorkspacesConnectionStatusResponse = DescribeWorkspacesConnectionStatusResponse'- { _dwcsrsNextToken :: !(Maybe Text)- , _dwcsrsWorkspacesConnectionStatus :: !(Maybe [WorkspaceConnectionStatus])- , _dwcsrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwcsrsNextToken :: !(Maybe Text)+ , _dwcsrsWorkspacesConnectionStatus :: !(Maybe [WorkspaceConnectionStatus])+ , _dwcsrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkspacesConnectionStatusResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,12 +143,13 @@ :: Int -- ^ 'dwcsrsResponseStatus' -> DescribeWorkspacesConnectionStatusResponse describeWorkspacesConnectionStatusResponse pResponseStatus_ =- DescribeWorkspacesConnectionStatusResponse'- { _dwcsrsNextToken = Nothing- , _dwcsrsWorkspacesConnectionStatus = Nothing- , _dwcsrsResponseStatus = pResponseStatus_- }+ DescribeWorkspacesConnectionStatusResponse'+ { _dwcsrsNextToken = Nothing+ , _dwcsrsWorkspacesConnectionStatus = Nothing+ , _dwcsrsResponseStatus = pResponseStatus_+ } + -- | The next token of the result. dwcsrsNextToken :: Lens' DescribeWorkspacesConnectionStatusResponse (Maybe Text) dwcsrsNextToken = lens _dwcsrsNextToken (\ s a -> s{_dwcsrsNextToken = a});@@ -158,4 +163,5 @@ dwcsrsResponseStatus = lens _dwcsrsResponseStatus (\ s a -> s{_dwcsrsResponseStatus = a}); instance NFData- DescribeWorkspacesConnectionStatusResponse+ DescribeWorkspacesConnectionStatusResponse+ where
gen/Network/AWS/WorkSpaces/ModifyWorkspaceProperties.hs view
@@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.WorkSpaces.ModifyWorkspaceProperties--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) ----- Modifies the WorkSpace properties, including the RunningMode and AutoStop time.+-- Modifies the WorkSpace properties, including the running mode and AutoStop time. -- -- module Network.AWS.WorkSpaces.ModifyWorkspaceProperties@@ -37,19 +37,20 @@ , mwprsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | /See:/ 'modifyWorkspaceProperties' smart constructor. data ModifyWorkspaceProperties = ModifyWorkspaceProperties'- { _mwpWorkspaceId :: !Text- , _mwpWorkspaceProperties :: !WorkspaceProperties- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _mwpWorkspaceId :: !Text+ , _mwpWorkspaceProperties :: !WorkspaceProperties+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyWorkspaceProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,11 +63,12 @@ -> WorkspaceProperties -- ^ 'mwpWorkspaceProperties' -> ModifyWorkspaceProperties modifyWorkspaceProperties pWorkspaceId_ pWorkspaceProperties_ =- ModifyWorkspaceProperties'- { _mwpWorkspaceId = pWorkspaceId_- , _mwpWorkspaceProperties = pWorkspaceProperties_- }+ ModifyWorkspaceProperties'+ { _mwpWorkspaceId = pWorkspaceId_+ , _mwpWorkspaceProperties = pWorkspaceProperties_+ } + -- | The ID of the WorkSpace. mwpWorkspaceId :: Lens' ModifyWorkspaceProperties Text mwpWorkspaceId = lens _mwpWorkspaceId (\ s a -> s{_mwpWorkspaceId = a});@@ -85,9 +87,9 @@ ModifyWorkspacePropertiesResponse' <$> (pure (fromEnum s))) -instance Hashable ModifyWorkspaceProperties+instance Hashable ModifyWorkspaceProperties where -instance NFData ModifyWorkspaceProperties+instance NFData ModifyWorkspaceProperties where instance ToHeaders ModifyWorkspaceProperties where toHeaders@@ -115,9 +117,10 @@ -- | /See:/ 'modifyWorkspacePropertiesResponse' smart constructor. newtype ModifyWorkspacePropertiesResponse = ModifyWorkspacePropertiesResponse'- { _mwprsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _mwprsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyWorkspacePropertiesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,12 +130,12 @@ :: Int -- ^ 'mwprsResponseStatus' -> ModifyWorkspacePropertiesResponse modifyWorkspacePropertiesResponse pResponseStatus_ =- ModifyWorkspacePropertiesResponse'- { _mwprsResponseStatus = pResponseStatus_- }+ ModifyWorkspacePropertiesResponse' {_mwprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. mwprsResponseStatus :: Lens' ModifyWorkspacePropertiesResponse Int mwprsResponseStatus = lens _mwprsResponseStatus (\ s a -> s{_mwprsResponseStatus = a}); instance NFData ModifyWorkspacePropertiesResponse+ where
gen/Network/AWS/WorkSpaces/RebootWorkspaces.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.RebootWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@ , rrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'RebootWorkspaces' operation. --@@ -52,9 +52,10 @@ -- -- /See:/ 'rebootWorkspaces' smart constructor. newtype RebootWorkspaces = RebootWorkspaces'- { _rwRebootWorkspaceRequests :: List1 RebootRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rwRebootWorkspaceRequests :: List1 RebootRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebootWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,10 @@ :: NonEmpty RebootRequest -- ^ 'rwRebootWorkspaceRequests' -> RebootWorkspaces rebootWorkspaces pRebootWorkspaceRequests_ =- RebootWorkspaces'- { _rwRebootWorkspaceRequests = _List1 # pRebootWorkspaceRequests_- }+ RebootWorkspaces'+ {_rwRebootWorkspaceRequests = _List1 # pRebootWorkspaceRequests_} + -- | An array of structures that specify the WorkSpaces to reboot. rwRebootWorkspaceRequests :: Lens' RebootWorkspaces (NonEmpty RebootRequest) rwRebootWorkspaceRequests = lens _rwRebootWorkspaceRequests (\ s a -> s{_rwRebootWorkspaceRequests = a}) . _List1;@@ -82,9 +83,9 @@ (x .?> "FailedRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable RebootWorkspaces+instance Hashable RebootWorkspaces where -instance NFData RebootWorkspaces+instance NFData RebootWorkspaces where instance ToHeaders RebootWorkspaces where toHeaders@@ -115,10 +116,11 @@ -- -- /See:/ 'rebootWorkspacesResponse' smart constructor. data RebootWorkspacesResponse = RebootWorkspacesResponse'- { _rrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])- , _rrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])+ , _rrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebootWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +132,10 @@ :: Int -- ^ 'rrsResponseStatus' -> RebootWorkspacesResponse rebootWorkspacesResponse pResponseStatus_ =- RebootWorkspacesResponse'- { _rrsFailedRequests = Nothing- , _rrsResponseStatus = pResponseStatus_- }+ RebootWorkspacesResponse'+ {_rrsFailedRequests = Nothing, _rrsResponseStatus = pResponseStatus_} + -- | An array of structures representing any WorkSpaces that could not be rebooted. rrsFailedRequests :: Lens' RebootWorkspacesResponse [FailedWorkspaceChangeRequest] rrsFailedRequests = lens _rrsFailedRequests (\ s a -> s{_rrsFailedRequests = a}) . _Default . _Coerce;@@ -143,4 +144,4 @@ rrsResponseStatus :: Lens' RebootWorkspacesResponse Int rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}); -instance NFData RebootWorkspacesResponse+instance NFData RebootWorkspacesResponse where
gen/Network/AWS/WorkSpaces/RebuildWorkspaces.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.RebuildWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -47,12 +47,12 @@ , rwrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'RebuildWorkspaces' operation. --@@ -60,9 +60,10 @@ -- -- /See:/ 'rebuildWorkspaces' smart constructor. newtype RebuildWorkspaces = RebuildWorkspaces'- { _rwRebuildWorkspaceRequests :: List1 RebuildRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rwRebuildWorkspaceRequests :: List1 RebuildRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebuildWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,10 +73,10 @@ :: NonEmpty RebuildRequest -- ^ 'rwRebuildWorkspaceRequests' -> RebuildWorkspaces rebuildWorkspaces pRebuildWorkspaceRequests_ =- RebuildWorkspaces'- { _rwRebuildWorkspaceRequests = _List1 # pRebuildWorkspaceRequests_- }+ RebuildWorkspaces'+ {_rwRebuildWorkspaceRequests = _List1 # pRebuildWorkspaceRequests_} + -- | An array of structures that specify the WorkSpaces to rebuild. rwRebuildWorkspaceRequests :: Lens' RebuildWorkspaces (NonEmpty RebuildRequest) rwRebuildWorkspaceRequests = lens _rwRebuildWorkspaceRequests (\ s a -> s{_rwRebuildWorkspaceRequests = a}) . _List1;@@ -90,9 +91,9 @@ (x .?> "FailedRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable RebuildWorkspaces+instance Hashable RebuildWorkspaces where -instance NFData RebuildWorkspaces+instance NFData RebuildWorkspaces where instance ToHeaders RebuildWorkspaces where toHeaders@@ -124,10 +125,11 @@ -- -- /See:/ 'rebuildWorkspacesResponse' smart constructor. data RebuildWorkspacesResponse = RebuildWorkspacesResponse'- { _rwrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])- , _rwrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rwrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])+ , _rwrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebuildWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +141,10 @@ :: Int -- ^ 'rwrsResponseStatus' -> RebuildWorkspacesResponse rebuildWorkspacesResponse pResponseStatus_ =- RebuildWorkspacesResponse'- { _rwrsFailedRequests = Nothing- , _rwrsResponseStatus = pResponseStatus_- }+ RebuildWorkspacesResponse'+ {_rwrsFailedRequests = Nothing, _rwrsResponseStatus = pResponseStatus_} + -- | An array of structures representing any WorkSpaces that could not be rebuilt. rwrsFailedRequests :: Lens' RebuildWorkspacesResponse [FailedWorkspaceChangeRequest] rwrsFailedRequests = lens _rwrsFailedRequests (\ s a -> s{_rwrsFailedRequests = a}) . _Default . _Coerce;@@ -152,4 +153,4 @@ rwrsResponseStatus :: Lens' RebuildWorkspacesResponse Int rwrsResponseStatus = lens _rwrsResponseStatus (\ s a -> s{_rwrsResponseStatus = a}); -instance NFData RebuildWorkspacesResponse+instance NFData RebuildWorkspacesResponse where
gen/Network/AWS/WorkSpaces/StartWorkspaces.hs view
@@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.WorkSpaces.StartWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- 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.”+-- Starts the specified WorkSpaces. The WorkSpaces must have a running mode of AutoStop and a state of STOPPED. -- -- module Network.AWS.WorkSpaces.StartWorkspaces@@ -37,18 +37,19 @@ , swrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | /See:/ 'startWorkspaces' smart constructor. newtype StartWorkspaces = StartWorkspaces'- { _swStartWorkspaceRequests :: List1 StartRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _swStartWorkspaceRequests :: List1 StartRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,10 +59,10 @@ :: NonEmpty StartRequest -- ^ 'swStartWorkspaceRequests' -> StartWorkspaces startWorkspaces pStartWorkspaceRequests_ =- StartWorkspaces'- { _swStartWorkspaceRequests = _List1 # pStartWorkspaceRequests_- }+ StartWorkspaces'+ {_swStartWorkspaceRequests = _List1 # pStartWorkspaceRequests_} + -- | The requests. swStartWorkspaceRequests :: Lens' StartWorkspaces (NonEmpty StartRequest) swStartWorkspaceRequests = lens _swStartWorkspaceRequests (\ s a -> s{_swStartWorkspaceRequests = a}) . _List1;@@ -76,9 +77,9 @@ (x .?> "FailedRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable StartWorkspaces+instance Hashable StartWorkspaces where -instance NFData StartWorkspaces+instance NFData StartWorkspaces where instance ToHeaders StartWorkspaces where toHeaders@@ -105,10 +106,11 @@ -- | /See:/ 'startWorkspacesResponse' smart constructor. data StartWorkspacesResponse = StartWorkspacesResponse'- { _swrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])- , _swrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _swrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])+ , _swrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,11 +122,10 @@ :: Int -- ^ 'swrsResponseStatus' -> StartWorkspacesResponse startWorkspacesResponse pResponseStatus_ =- StartWorkspacesResponse'- { _swrsFailedRequests = Nothing- , _swrsResponseStatus = pResponseStatus_- }+ StartWorkspacesResponse'+ {_swrsFailedRequests = Nothing, _swrsResponseStatus = pResponseStatus_} + -- | The failed requests. swrsFailedRequests :: Lens' StartWorkspacesResponse [FailedWorkspaceChangeRequest] swrsFailedRequests = lens _swrsFailedRequests (\ s a -> s{_swrsFailedRequests = a}) . _Default . _Coerce;@@ -133,4 +134,4 @@ swrsResponseStatus :: Lens' StartWorkspacesResponse Int swrsResponseStatus = lens _swrsResponseStatus (\ s a -> s{_swrsResponseStatus = a}); -instance NFData StartWorkspacesResponse+instance NFData StartWorkspacesResponse where
gen/Network/AWS/WorkSpaces/StopWorkspaces.hs view
@@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.WorkSpaces.StopWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- 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.+-- Stops the specified WorkSpaces. The WorkSpaces must have a running mode of AutoStop and a state of AVAILABLE, IMPAIRED, UNHEALTHY, or ERROR. -- -- module Network.AWS.WorkSpaces.StopWorkspaces@@ -37,18 +37,19 @@ , srsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | /See:/ 'stopWorkspaces' smart constructor. newtype StopWorkspaces = StopWorkspaces'- { _swStopWorkspaceRequests :: List1 StopRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _swStopWorkspaceRequests :: List1 StopRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -58,10 +59,9 @@ :: NonEmpty StopRequest -- ^ 'swStopWorkspaceRequests' -> StopWorkspaces stopWorkspaces pStopWorkspaceRequests_ =- StopWorkspaces'- { _swStopWorkspaceRequests = _List1 # pStopWorkspaceRequests_- }+ StopWorkspaces' {_swStopWorkspaceRequests = _List1 # pStopWorkspaceRequests_} + -- | The requests. swStopWorkspaceRequests :: Lens' StopWorkspaces (NonEmpty StopRequest) swStopWorkspaceRequests = lens _swStopWorkspaceRequests (\ s a -> s{_swStopWorkspaceRequests = a}) . _List1;@@ -76,9 +76,9 @@ (x .?> "FailedRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable StopWorkspaces+instance Hashable StopWorkspaces where -instance NFData StopWorkspaces+instance NFData StopWorkspaces where instance ToHeaders StopWorkspaces where toHeaders@@ -105,10 +105,11 @@ -- | /See:/ 'stopWorkspacesResponse' smart constructor. data StopWorkspacesResponse = StopWorkspacesResponse'- { _srsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])- , _srsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _srsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])+ , _srsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,11 +121,10 @@ :: Int -- ^ 'srsResponseStatus' -> StopWorkspacesResponse stopWorkspacesResponse pResponseStatus_ =- StopWorkspacesResponse'- { _srsFailedRequests = Nothing- , _srsResponseStatus = pResponseStatus_- }+ StopWorkspacesResponse'+ {_srsFailedRequests = Nothing, _srsResponseStatus = pResponseStatus_} + -- | The failed requests. srsFailedRequests :: Lens' StopWorkspacesResponse [FailedWorkspaceChangeRequest] srsFailedRequests = lens _srsFailedRequests (\ s a -> s{_srsFailedRequests = a}) . _Default . _Coerce;@@ -133,4 +133,4 @@ srsResponseStatus :: Lens' StopWorkspacesResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); -instance NFData StopWorkspacesResponse+instance NFData StopWorkspacesResponse where
gen/Network/AWS/WorkSpaces/TerminateWorkspaces.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.WorkSpaces.TerminateWorkspaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@ , twrsResponseStatus ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response-import Network.AWS.WorkSpaces.Types-import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.WorkSpaces.Types+import Network.AWS.WorkSpaces.Types.Product -- | Contains the inputs for the 'TerminateWorkspaces' operation. --@@ -54,9 +54,10 @@ -- -- /See:/ 'terminateWorkspaces' smart constructor. newtype TerminateWorkspaces = TerminateWorkspaces'- { _twTerminateWorkspaceRequests :: List1 TerminateRequest- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _twTerminateWorkspaceRequests :: List1 TerminateRequest+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateWorkspaces' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,10 @@ :: NonEmpty TerminateRequest -- ^ 'twTerminateWorkspaceRequests' -> TerminateWorkspaces terminateWorkspaces pTerminateWorkspaceRequests_ =- TerminateWorkspaces'- { _twTerminateWorkspaceRequests = _List1 # pTerminateWorkspaceRequests_- }+ TerminateWorkspaces'+ {_twTerminateWorkspaceRequests = _List1 # pTerminateWorkspaceRequests_} + -- | An array of structures that specify the WorkSpaces to terminate. twTerminateWorkspaceRequests :: Lens' TerminateWorkspaces (NonEmpty TerminateRequest) twTerminateWorkspaceRequests = lens _twTerminateWorkspaceRequests (\ s a -> s{_twTerminateWorkspaceRequests = a}) . _List1;@@ -85,9 +86,9 @@ (x .?> "FailedRequests" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable TerminateWorkspaces+instance Hashable TerminateWorkspaces where -instance NFData TerminateWorkspaces+instance NFData TerminateWorkspaces where instance ToHeaders TerminateWorkspaces where toHeaders@@ -119,10 +120,11 @@ -- -- /See:/ 'terminateWorkspacesResponse' smart constructor. data TerminateWorkspacesResponse = TerminateWorkspacesResponse'- { _twrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])- , _twrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _twrsFailedRequests :: !(Maybe [FailedWorkspaceChangeRequest])+ , _twrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateWorkspacesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +136,10 @@ :: Int -- ^ 'twrsResponseStatus' -> TerminateWorkspacesResponse terminateWorkspacesResponse pResponseStatus_ =- TerminateWorkspacesResponse'- { _twrsFailedRequests = Nothing- , _twrsResponseStatus = pResponseStatus_- }+ TerminateWorkspacesResponse'+ {_twrsFailedRequests = Nothing, _twrsResponseStatus = pResponseStatus_} + -- | An array of structures representing any WorkSpaces that could not be terminated. twrsFailedRequests :: Lens' TerminateWorkspacesResponse [FailedWorkspaceChangeRequest] twrsFailedRequests = lens _twrsFailedRequests (\ s a -> s{_twrsFailedRequests = a}) . _Default . _Coerce;@@ -147,4 +148,4 @@ twrsResponseStatus :: Lens' TerminateWorkspacesResponse Int twrsResponseStatus = lens _twrsResponseStatus (\ s a -> s{_twrsResponseStatus = a}); -instance NFData TerminateWorkspacesResponse+instance NFData TerminateWorkspacesResponse where
gen/Network/AWS/WorkSpaces/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.WorkSpaces.Types--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --@@ -178,38 +178,40 @@ , wrBundleId ) where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4-import Network.AWS.WorkSpaces.Types.Product-import Network.AWS.WorkSpaces.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4+import Network.AWS.WorkSpaces.Types.Product+import Network.AWS.WorkSpaces.Types.Sum -- | API version @2015-04-08@ of the Amazon WorkSpaces SDK configuration. workSpaces :: Service workSpaces =- Service- { _svcAbbrev = "WorkSpaces"- , _svcSigner = v4- , _svcPrefix = "workspaces"- , _svcVersion = "2015-04-08"- , _svcEndpoint = defaultEndpoint workSpaces- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "WorkSpaces"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "WorkSpaces"+ , _svcSigner = v4+ , _svcPrefix = "workspaces"+ , _svcVersion = "2015-04-08"+ , _svcEndpoint = defaultEndpoint workSpaces+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "WorkSpaces"+ , _svcRetry = retry+ } where retry =- Exponential- { _retryBase = 5.0e-2- , _retryGrowth = 2- , _retryAttempts = 5- , _retryCheck = check- }+ Exponential+ { _retryBase = 5.0e-2+ , _retryGrowth = 2+ , _retryAttempts = 5+ , _retryCheck = check+ } check e+ | has (hasCode "ThrottledException" . hasStatus 400) e =+ Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e =- Just "throttling_exception"+ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway"@@ -218,55 +220,66 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing --- | Prism for AccessDeniedException' errors.++-- | The user is not authorized to access a resource.+--+-- _AccessDeniedException :: AsError a => Getting (First ServiceError) a ServiceError-_AccessDeniedException = _ServiceError . hasCode "AccessDeniedException"+_AccessDeniedException = _MatchServiceError workSpaces "AccessDeniedException" + -- | The specified resource is not available. -- -- _ResourceUnavailableException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceUnavailableException =- _ServiceError . hasCode "ResourceUnavailableException"+ _MatchServiceError workSpaces "ResourceUnavailableException" + -- | One or more parameter values are not valid. -- -- _InvalidParameterValuesException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterValuesException =- _ServiceError . hasCode "InvalidParameterValuesException"+ _MatchServiceError workSpaces "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"+ _MatchServiceError workSpaces "OperationInProgressException" + -- | Your resource limits have been exceeded. -- -- _ResourceLimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceLimitExceededException =- _ServiceError . hasCode "ResourceLimitExceededException"+ _MatchServiceError workSpaces "ResourceLimitExceededException" --- | The specified WorkSpace has an invalid state for this operation.++-- | The state of the WorkSpace is not valid for this operation. -- -- _InvalidResourceStateException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidResourceStateException =- _ServiceError . hasCode "InvalidResourceStateException"+ _MatchServiceError workSpaces "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 configuration of this WorkSpace is not supported 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"+ _MatchServiceError workSpaces "UnsupportedWorkspaceConfigurationException" + -- | The resource could not be found. -- -- _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =- _ServiceError . hasCode "ResourceNotFoundException"+ _MatchServiceError workSpaces "ResourceNotFoundException"+
gen/Network/AWS/WorkSpaces/Types/Product.hs view
@@ -9,17 +9,17 @@ -- | -- Module : Network.AWS.WorkSpaces.Types.Product--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.WorkSpaces.Types.Product where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.WorkSpaces.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.WorkSpaces.Types.Sum -- | Contains information about the compute type of a WorkSpace bundle. --@@ -27,9 +27,10 @@ -- -- /See:/ 'computeType' smart constructor. newtype ComputeType = ComputeType'- { _ctName :: Maybe Compute- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ctName :: Maybe Compute+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ComputeType' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -37,11 +38,9 @@ -- * 'ctName' - The name of the compute type for the bundle. computeType :: ComputeType-computeType =- ComputeType'- { _ctName = Nothing- }+computeType = ComputeType' {_ctName = Nothing} + -- | The name of the compute type for the bundle. ctName :: Lens' ComputeType (Maybe Compute) ctName = lens _ctName (\ s a -> s{_ctName = a});@@ -51,9 +50,9 @@ = withObject "ComputeType" (\ x -> ComputeType' <$> (x .:? "Name")) -instance Hashable ComputeType+instance Hashable ComputeType where -instance NFData ComputeType+instance NFData ComputeType where -- | Contains default WorkSpace creation information. --@@ -61,13 +60,14 @@ -- -- /See:/ 'defaultWorkspaceCreationProperties' smart constructor. data DefaultWorkspaceCreationProperties = DefaultWorkspaceCreationProperties'- { _dwcpCustomSecurityGroupId :: !(Maybe Text)- , _dwcpUserEnabledAsLocalAdministrator :: !(Maybe Bool)- , _dwcpEnableWorkDocs :: !(Maybe Bool)- , _dwcpEnableInternetAccess :: !(Maybe Bool)- , _dwcpDefaultOu :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dwcpCustomSecurityGroupId :: !(Maybe Text)+ , _dwcpUserEnabledAsLocalAdministrator :: !(Maybe Bool)+ , _dwcpEnableWorkDocs :: !(Maybe Bool)+ , _dwcpEnableInternetAccess :: !(Maybe Bool)+ , _dwcpDefaultOu :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DefaultWorkspaceCreationProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -84,14 +84,15 @@ defaultWorkspaceCreationProperties :: DefaultWorkspaceCreationProperties defaultWorkspaceCreationProperties =- DefaultWorkspaceCreationProperties'- { _dwcpCustomSecurityGroupId = Nothing- , _dwcpUserEnabledAsLocalAdministrator = Nothing- , _dwcpEnableWorkDocs = Nothing- , _dwcpEnableInternetAccess = Nothing- , _dwcpDefaultOu = Nothing- }+ DefaultWorkspaceCreationProperties'+ { _dwcpCustomSecurityGroupId = Nothing+ , _dwcpUserEnabledAsLocalAdministrator = Nothing+ , _dwcpEnableWorkDocs = Nothing+ , _dwcpEnableInternetAccess = Nothing+ , _dwcpDefaultOu = Nothing+ } + -- | The identifier of any custom security groups that are applied to the WorkSpaces when they are created. dwcpCustomSecurityGroupId :: Lens' DefaultWorkspaceCreationProperties (Maybe Text) dwcpCustomSecurityGroupId = lens _dwcpCustomSecurityGroupId (\ s a -> s{_dwcpCustomSecurityGroupId = a});@@ -125,8 +126,10 @@ <*> (x .:? "DefaultOu")) instance Hashable DefaultWorkspaceCreationProperties+ where instance NFData DefaultWorkspaceCreationProperties+ where -- | Contains information about a WorkSpace that could not be created. --@@ -134,11 +137,12 @@ -- -- /See:/ 'failedCreateWorkspaceRequest' smart constructor. data FailedCreateWorkspaceRequest = FailedCreateWorkspaceRequest'- { _fcwrWorkspaceRequest :: !(Maybe WorkspaceRequest)- , _fcwrErrorCode :: !(Maybe Text)- , _fcwrErrorMessage :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _fcwrWorkspaceRequest :: !(Maybe WorkspaceRequest)+ , _fcwrErrorCode :: !(Maybe Text)+ , _fcwrErrorMessage :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FailedCreateWorkspaceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -151,12 +155,13 @@ failedCreateWorkspaceRequest :: FailedCreateWorkspaceRequest failedCreateWorkspaceRequest =- FailedCreateWorkspaceRequest'- { _fcwrWorkspaceRequest = Nothing- , _fcwrErrorCode = Nothing- , _fcwrErrorMessage = Nothing- }+ FailedCreateWorkspaceRequest'+ { _fcwrWorkspaceRequest = Nothing+ , _fcwrErrorCode = Nothing+ , _fcwrErrorMessage = Nothing+ } + -- | 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});@@ -177,9 +182,9 @@ (x .:? "WorkspaceRequest") <*> (x .:? "ErrorCode") <*> (x .:? "ErrorMessage")) -instance Hashable FailedCreateWorkspaceRequest+instance Hashable FailedCreateWorkspaceRequest where -instance NFData FailedCreateWorkspaceRequest+instance NFData FailedCreateWorkspaceRequest where -- | Contains information about a WorkSpace that could not be rebooted ('RebootWorkspaces' ), rebuilt ('RebuildWorkspaces' ), terminated ('TerminateWorkspaces' ), started ('StartWorkspaces' ), or stopped ('StopWorkspaces' ). --@@ -187,11 +192,12 @@ -- -- /See:/ 'failedWorkspaceChangeRequest' smart constructor. data FailedWorkspaceChangeRequest = FailedWorkspaceChangeRequest'- { _fwcrErrorCode :: !(Maybe Text)- , _fwcrWorkspaceId :: !(Maybe Text)- , _fwcrErrorMessage :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _fwcrErrorCode :: !(Maybe Text)+ , _fwcrWorkspaceId :: !(Maybe Text)+ , _fwcrErrorMessage :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'FailedWorkspaceChangeRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -204,12 +210,13 @@ failedWorkspaceChangeRequest :: FailedWorkspaceChangeRequest failedWorkspaceChangeRequest =- FailedWorkspaceChangeRequest'- { _fwcrErrorCode = Nothing- , _fwcrWorkspaceId = Nothing- , _fwcrErrorMessage = Nothing- }+ FailedWorkspaceChangeRequest'+ { _fwcrErrorCode = Nothing+ , _fwcrWorkspaceId = Nothing+ , _fwcrErrorMessage = Nothing+ } + -- | The error code. fwcrErrorCode :: Lens' FailedWorkspaceChangeRequest (Maybe Text) fwcrErrorCode = lens _fwcrErrorCode (\ s a -> s{_fwcrErrorCode = a});@@ -230,9 +237,9 @@ (x .:? "ErrorCode") <*> (x .:? "WorkspaceId") <*> (x .:? "ErrorMessage")) -instance Hashable FailedWorkspaceChangeRequest+instance Hashable FailedWorkspaceChangeRequest where -instance NFData FailedWorkspaceChangeRequest+instance NFData FailedWorkspaceChangeRequest where -- | Contains information used with the 'RebootWorkspaces' operation to reboot a WorkSpace. --@@ -240,9 +247,10 @@ -- -- /See:/ 'rebootRequest' smart constructor. newtype RebootRequest = RebootRequest'- { _rWorkspaceId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rWorkspaceId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebootRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -251,18 +259,16 @@ rebootRequest :: Text -- ^ 'rWorkspaceId' -> RebootRequest-rebootRequest pWorkspaceId_ =- RebootRequest'- { _rWorkspaceId = pWorkspaceId_- }+rebootRequest pWorkspaceId_ = RebootRequest' {_rWorkspaceId = pWorkspaceId_} + -- | The identifier of the WorkSpace to reboot. rWorkspaceId :: Lens' RebootRequest Text rWorkspaceId = lens _rWorkspaceId (\ s a -> s{_rWorkspaceId = a}); -instance Hashable RebootRequest+instance Hashable RebootRequest where -instance NFData RebootRequest+instance NFData RebootRequest where instance ToJSON RebootRequest where toJSON RebootRequest'{..}@@ -275,9 +281,10 @@ -- -- /See:/ 'rebuildRequest' smart constructor. newtype RebuildRequest = RebuildRequest'- { _rrWorkspaceId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rrWorkspaceId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RebuildRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -286,18 +293,16 @@ rebuildRequest :: Text -- ^ 'rrWorkspaceId' -> RebuildRequest-rebuildRequest pWorkspaceId_ =- RebuildRequest'- { _rrWorkspaceId = pWorkspaceId_- }+rebuildRequest pWorkspaceId_ = RebuildRequest' {_rrWorkspaceId = pWorkspaceId_} + -- | The identifier of the WorkSpace to rebuild. rrWorkspaceId :: Lens' RebuildRequest Text rrWorkspaceId = lens _rrWorkspaceId (\ s a -> s{_rrWorkspaceId = a}); -instance Hashable RebuildRequest+instance Hashable RebuildRequest where -instance NFData RebuildRequest+instance NFData RebuildRequest where instance ToJSON RebuildRequest where toJSON RebuildRequest'{..}@@ -310,9 +315,10 @@ -- -- /See:/ 'startRequest' smart constructor. newtype StartRequest = StartRequest'- { _sWorkspaceId :: Maybe Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sWorkspaceId :: Maybe Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StartRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -320,18 +326,16 @@ -- * 'sWorkspaceId' - The ID of the WorkSpace. startRequest :: StartRequest-startRequest =- StartRequest'- { _sWorkspaceId = Nothing- }+startRequest = StartRequest' {_sWorkspaceId = Nothing} + -- | The ID of the WorkSpace. sWorkspaceId :: Lens' StartRequest (Maybe Text) sWorkspaceId = lens _sWorkspaceId (\ s a -> s{_sWorkspaceId = a}); -instance Hashable StartRequest+instance Hashable StartRequest where -instance NFData StartRequest+instance NFData StartRequest where instance ToJSON StartRequest where toJSON StartRequest'{..}@@ -344,9 +348,10 @@ -- -- /See:/ 'stopRequest' smart constructor. newtype StopRequest = StopRequest'- { _srWorkspaceId :: Maybe Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _srWorkspaceId :: Maybe Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'StopRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -354,18 +359,16 @@ -- * 'srWorkspaceId' - The ID of the WorkSpace. stopRequest :: StopRequest-stopRequest =- StopRequest'- { _srWorkspaceId = Nothing- }+stopRequest = StopRequest' {_srWorkspaceId = Nothing} + -- | The ID of the WorkSpace. srWorkspaceId :: Lens' StopRequest (Maybe Text) srWorkspaceId = lens _srWorkspaceId (\ s a -> s{_srWorkspaceId = a}); -instance Hashable StopRequest+instance Hashable StopRequest where -instance NFData StopRequest+instance NFData StopRequest where instance ToJSON StopRequest where toJSON StopRequest'{..}@@ -378,10 +381,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag'- { _tagValue :: !(Maybe Text)- , _tagKey :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _tagValue :: !(Maybe Text)+ , _tagKey :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -392,12 +396,9 @@ tag :: Text -- ^ 'tagKey' -> Tag-tag pKey_ =- Tag'- { _tagValue = Nothing- , _tagKey = pKey_- }+tag pKey_ = Tag' {_tagValue = Nothing, _tagKey = pKey_} + -- | The value of the tag. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a});@@ -411,9 +412,9 @@ = withObject "Tag" (\ x -> Tag' <$> (x .:? "Value") <*> (x .: "Key")) -instance Hashable Tag+instance Hashable Tag where -instance NFData Tag+instance NFData Tag where instance ToJSON Tag where toJSON Tag'{..}@@ -428,9 +429,10 @@ -- -- /See:/ 'terminateRequest' smart constructor. newtype TerminateRequest = TerminateRequest'- { _trWorkspaceId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _trWorkspaceId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TerminateRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -440,17 +442,16 @@ :: Text -- ^ 'trWorkspaceId' -> TerminateRequest terminateRequest pWorkspaceId_ =- TerminateRequest'- { _trWorkspaceId = pWorkspaceId_- }+ TerminateRequest' {_trWorkspaceId = pWorkspaceId_} + -- | The identifier of the WorkSpace to terminate. trWorkspaceId :: Lens' TerminateRequest Text trWorkspaceId = lens _trWorkspaceId (\ s a -> s{_trWorkspaceId = a}); -instance Hashable TerminateRequest+instance Hashable TerminateRequest where -instance NFData TerminateRequest+instance NFData TerminateRequest where instance ToJSON TerminateRequest where toJSON TerminateRequest'{..}@@ -463,9 +464,10 @@ -- -- /See:/ 'userStorage' smart constructor. newtype UserStorage = UserStorage'- { _usCapacity :: Maybe Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _usCapacity :: Maybe Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UserStorage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -473,11 +475,9 @@ -- * 'usCapacity' - The amount of user storage for the bundle. userStorage :: UserStorage-userStorage =- UserStorage'- { _usCapacity = Nothing- }+userStorage = UserStorage' {_usCapacity = Nothing} + -- | The amount of user storage for the bundle. usCapacity :: Lens' UserStorage (Maybe Text) usCapacity = lens _usCapacity (\ s a -> s{_usCapacity = a});@@ -487,9 +487,9 @@ = withObject "UserStorage" (\ x -> UserStorage' <$> (x .:? "Capacity")) -instance Hashable UserStorage+instance Hashable UserStorage where -instance NFData UserStorage+instance NFData UserStorage where -- | Contains information about a WorkSpace. --@@ -497,22 +497,23 @@ -- -- /See:/ 'workspace' smart constructor. data Workspace = Workspace'- { _wDirectoryId :: !(Maybe Text)- , _wState :: !(Maybe WorkspaceState)- , _wIPAddress :: !(Maybe Text)- , _wUserName :: !(Maybe Text)- , _wSubnetId :: !(Maybe Text)- , _wBundleId :: !(Maybe Text)- , _wWorkspaceProperties :: !(Maybe WorkspaceProperties)- , _wRootVolumeEncryptionEnabled :: !(Maybe Bool)- , _wErrorCode :: !(Maybe Text)- , _wVolumeEncryptionKey :: !(Maybe Text)- , _wComputerName :: !(Maybe Text)- , _wWorkspaceId :: !(Maybe Text)- , _wUserVolumeEncryptionEnabled :: !(Maybe Bool)- , _wErrorMessage :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wDirectoryId :: !(Maybe Text)+ , _wState :: !(Maybe WorkspaceState)+ , _wIPAddress :: !(Maybe Text)+ , _wUserName :: !(Maybe Text)+ , _wSubnetId :: !(Maybe Text)+ , _wBundleId :: !(Maybe Text)+ , _wWorkspaceProperties :: !(Maybe WorkspaceProperties)+ , _wRootVolumeEncryptionEnabled :: !(Maybe Bool)+ , _wErrorCode :: !(Maybe Text)+ , _wVolumeEncryptionKey :: !(Maybe Text)+ , _wComputerName :: !(Maybe Text)+ , _wWorkspaceId :: !(Maybe Text)+ , _wUserVolumeEncryptionEnabled :: !(Maybe Bool)+ , _wErrorMessage :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Workspace' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -547,23 +548,24 @@ workspace :: Workspace workspace =- Workspace'- { _wDirectoryId = Nothing- , _wState = Nothing- , _wIPAddress = Nothing- , _wUserName = Nothing- , _wSubnetId = Nothing- , _wBundleId = Nothing- , _wWorkspaceProperties = Nothing- , _wRootVolumeEncryptionEnabled = Nothing- , _wErrorCode = Nothing- , _wVolumeEncryptionKey = Nothing- , _wComputerName = Nothing- , _wWorkspaceId = Nothing- , _wUserVolumeEncryptionEnabled = Nothing- , _wErrorMessage = Nothing- }+ Workspace'+ { _wDirectoryId = Nothing+ , _wState = Nothing+ , _wIPAddress = Nothing+ , _wUserName = Nothing+ , _wSubnetId = Nothing+ , _wBundleId = Nothing+ , _wWorkspaceProperties = Nothing+ , _wRootVolumeEncryptionEnabled = Nothing+ , _wErrorCode = Nothing+ , _wVolumeEncryptionKey = Nothing+ , _wComputerName = Nothing+ , _wWorkspaceId = Nothing+ , _wUserVolumeEncryptionEnabled = Nothing+ , _wErrorMessage = Nothing+ } + -- | The identifier of the AWS Directory Service directory that the WorkSpace belongs to. wDirectoryId :: Lens' Workspace (Maybe Text) wDirectoryId = lens _wDirectoryId (\ s a -> s{_wDirectoryId = a});@@ -639,9 +641,9 @@ <*> (x .:? "UserVolumeEncryptionEnabled") <*> (x .:? "ErrorMessage")) -instance Hashable Workspace+instance Hashable Workspace where -instance NFData Workspace+instance NFData Workspace where -- | Contains information about a WorkSpace bundle. --@@ -649,14 +651,15 @@ -- -- /See:/ 'workspaceBundle' smart constructor. data WorkspaceBundle = WorkspaceBundle'- { _wbBundleId :: !(Maybe Text)- , _wbOwner :: !(Maybe Text)- , _wbName :: !(Maybe Text)- , _wbComputeType :: !(Maybe ComputeType)- , _wbUserStorage :: !(Maybe UserStorage)- , _wbDescription :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wbBundleId :: !(Maybe Text)+ , _wbOwner :: !(Maybe Text)+ , _wbName :: !(Maybe Text)+ , _wbComputeType :: !(Maybe ComputeType)+ , _wbUserStorage :: !(Maybe UserStorage)+ , _wbDescription :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'WorkspaceBundle' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -675,15 +678,16 @@ workspaceBundle :: WorkspaceBundle workspaceBundle =- WorkspaceBundle'- { _wbBundleId = Nothing- , _wbOwner = Nothing- , _wbName = Nothing- , _wbComputeType = Nothing- , _wbUserStorage = Nothing- , _wbDescription = Nothing- }+ WorkspaceBundle'+ { _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});@@ -719,9 +723,9 @@ <*> (x .:? "UserStorage") <*> (x .:? "Description")) -instance Hashable WorkspaceBundle+instance Hashable WorkspaceBundle where -instance NFData WorkspaceBundle+instance NFData WorkspaceBundle where -- | Describes the connection status of a WorkSpace. --@@ -729,12 +733,13 @@ -- -- /See:/ 'workspaceConnectionStatus' smart constructor. data WorkspaceConnectionStatus = WorkspaceConnectionStatus'- { _wcsLastKnownUserConnectionTimestamp :: !(Maybe POSIX)- , _wcsConnectionStateCheckTimestamp :: !(Maybe POSIX)- , _wcsWorkspaceId :: !(Maybe Text)- , _wcsConnectionState :: !(Maybe ConnectionState)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wcsLastKnownUserConnectionTimestamp :: !(Maybe POSIX)+ , _wcsConnectionStateCheckTimestamp :: !(Maybe POSIX)+ , _wcsWorkspaceId :: !(Maybe Text)+ , _wcsConnectionState :: !(Maybe ConnectionState)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'WorkspaceConnectionStatus' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -749,13 +754,14 @@ workspaceConnectionStatus :: WorkspaceConnectionStatus workspaceConnectionStatus =- WorkspaceConnectionStatus'- { _wcsLastKnownUserConnectionTimestamp = Nothing- , _wcsConnectionStateCheckTimestamp = Nothing- , _wcsWorkspaceId = Nothing- , _wcsConnectionState = Nothing- }+ WorkspaceConnectionStatus'+ { _wcsLastKnownUserConnectionTimestamp = Nothing+ , _wcsConnectionStateCheckTimestamp = Nothing+ , _wcsWorkspaceId = Nothing+ , _wcsConnectionState = Nothing+ } + -- | The timestamp of the last known user connection. wcsLastKnownUserConnectionTimestamp :: Lens' WorkspaceConnectionStatus (Maybe UTCTime) wcsLastKnownUserConnectionTimestamp = lens _wcsLastKnownUserConnectionTimestamp (\ s a -> s{_wcsLastKnownUserConnectionTimestamp = a}) . mapping _Time;@@ -782,9 +788,9 @@ <*> (x .:? "WorkspaceId") <*> (x .:? "ConnectionState")) -instance Hashable WorkspaceConnectionStatus+instance Hashable WorkspaceConnectionStatus where -instance NFData WorkspaceConnectionStatus+instance NFData WorkspaceConnectionStatus where -- | Contains information about an AWS Directory Service directory for use with Amazon WorkSpaces. --@@ -792,20 +798,21 @@ -- -- /See:/ 'workspaceDirectory' smart constructor. data WorkspaceDirectory = WorkspaceDirectory'- { _wdRegistrationCode :: !(Maybe Text)- , _wdIAMRoleId :: !(Maybe Text)- , _wdDirectoryId :: !(Maybe Text)- , _wdState :: !(Maybe WorkspaceDirectoryState)- , _wdCustomerUserName :: !(Maybe Text)- , _wdSubnetIds :: !(Maybe [Text])- , _wdAlias :: !(Maybe Text)- , _wdWorkspaceSecurityGroupId :: !(Maybe Text)- , _wdDirectoryType :: !(Maybe WorkspaceDirectoryType)- , _wdWorkspaceCreationProperties :: !(Maybe DefaultWorkspaceCreationProperties)- , _wdDNSIPAddresses :: !(Maybe [Text])- , _wdDirectoryName :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wdRegistrationCode :: !(Maybe Text)+ , _wdIAMRoleId :: !(Maybe Text)+ , _wdDirectoryId :: !(Maybe Text)+ , _wdState :: !(Maybe WorkspaceDirectoryState)+ , _wdCustomerUserName :: !(Maybe Text)+ , _wdSubnetIds :: !(Maybe [Text])+ , _wdAlias :: !(Maybe Text)+ , _wdWorkspaceSecurityGroupId :: !(Maybe Text)+ , _wdDirectoryType :: !(Maybe WorkspaceDirectoryType)+ , _wdWorkspaceCreationProperties :: !(Maybe DefaultWorkspaceCreationProperties)+ , _wdDNSIPAddresses :: !(Maybe [Text])+ , _wdDirectoryName :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'WorkspaceDirectory' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -836,21 +843,22 @@ workspaceDirectory :: WorkspaceDirectory workspaceDirectory =- WorkspaceDirectory'- { _wdRegistrationCode = Nothing- , _wdIAMRoleId = Nothing- , _wdDirectoryId = Nothing- , _wdState = Nothing- , _wdCustomerUserName = Nothing- , _wdSubnetIds = Nothing- , _wdAlias = Nothing- , _wdWorkspaceSecurityGroupId = Nothing- , _wdDirectoryType = Nothing- , _wdWorkspaceCreationProperties = Nothing- , _wdDNSIPAddresses = Nothing- , _wdDirectoryName = Nothing- }+ WorkspaceDirectory'+ { _wdRegistrationCode = Nothing+ , _wdIAMRoleId = Nothing+ , _wdDirectoryId = Nothing+ , _wdState = Nothing+ , _wdCustomerUserName = Nothing+ , _wdSubnetIds = Nothing+ , _wdAlias = Nothing+ , _wdWorkspaceSecurityGroupId = Nothing+ , _wdDirectoryType = Nothing+ , _wdWorkspaceCreationProperties = Nothing+ , _wdDNSIPAddresses = Nothing+ , _wdDirectoryName = Nothing+ } + -- | The registration code for the directory. This is the code that users enter in their Amazon WorkSpaces client application to connect to the directory. wdRegistrationCode :: Lens' WorkspaceDirectory (Maybe Text) wdRegistrationCode = lens _wdRegistrationCode (\ s a -> s{_wdRegistrationCode = a});@@ -916,9 +924,9 @@ <*> (x .:? "DnsIpAddresses" .!= mempty) <*> (x .:? "DirectoryName")) -instance Hashable WorkspaceDirectory+instance Hashable WorkspaceDirectory where -instance NFData WorkspaceDirectory+instance NFData WorkspaceDirectory where -- | Describes the properties of a WorkSpace. --@@ -926,10 +934,11 @@ -- -- /See:/ 'workspaceProperties' smart constructor. data WorkspaceProperties = WorkspaceProperties'- { _wpRunningMode :: !(Maybe RunningMode)- , _wpRunningModeAutoStopTimeoutInMinutes :: !(Maybe Int)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wpRunningMode :: !(Maybe RunningMode)+ , _wpRunningModeAutoStopTimeoutInMinutes :: !(Maybe Int)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'WorkspaceProperties' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -940,11 +949,10 @@ workspaceProperties :: WorkspaceProperties workspaceProperties =- WorkspaceProperties'- { _wpRunningMode = Nothing- , _wpRunningModeAutoStopTimeoutInMinutes = Nothing- }+ WorkspaceProperties'+ {_wpRunningMode = Nothing, _wpRunningModeAutoStopTimeoutInMinutes = Nothing} + -- | 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. wpRunningMode :: Lens' WorkspaceProperties (Maybe RunningMode) wpRunningMode = lens _wpRunningMode (\ s a -> s{_wpRunningMode = a});@@ -961,9 +969,9 @@ (x .:? "RunningMode") <*> (x .:? "RunningModeAutoStopTimeoutInMinutes")) -instance Hashable WorkspaceProperties+instance Hashable WorkspaceProperties where -instance NFData WorkspaceProperties+instance NFData WorkspaceProperties where instance ToJSON WorkspaceProperties where toJSON WorkspaceProperties'{..}@@ -979,16 +987,17 @@ -- -- /See:/ 'workspaceRequest' smart constructor. data WorkspaceRequest = WorkspaceRequest'- { _wrWorkspaceProperties :: !(Maybe WorkspaceProperties)- , _wrRootVolumeEncryptionEnabled :: !(Maybe Bool)- , _wrVolumeEncryptionKey :: !(Maybe Text)- , _wrUserVolumeEncryptionEnabled :: !(Maybe Bool)- , _wrTags :: !(Maybe [Tag])- , _wrDirectoryId :: !Text- , _wrUserName :: !Text- , _wrBundleId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _wrWorkspaceProperties :: !(Maybe WorkspaceProperties)+ , _wrRootVolumeEncryptionEnabled :: !(Maybe Bool)+ , _wrVolumeEncryptionKey :: !(Maybe Text)+ , _wrUserVolumeEncryptionEnabled :: !(Maybe Bool)+ , _wrTags :: !(Maybe [Tag])+ , _wrDirectoryId :: !Text+ , _wrUserName :: !Text+ , _wrBundleId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'WorkspaceRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -1014,17 +1023,18 @@ -> Text -- ^ 'wrBundleId' -> WorkspaceRequest workspaceRequest pDirectoryId_ pUserName_ pBundleId_ =- WorkspaceRequest'- { _wrWorkspaceProperties = Nothing- , _wrRootVolumeEncryptionEnabled = Nothing- , _wrVolumeEncryptionKey = Nothing- , _wrUserVolumeEncryptionEnabled = Nothing- , _wrTags = Nothing- , _wrDirectoryId = pDirectoryId_- , _wrUserName = pUserName_- , _wrBundleId = pBundleId_- }+ WorkspaceRequest'+ { _wrWorkspaceProperties = Nothing+ , _wrRootVolumeEncryptionEnabled = Nothing+ , _wrVolumeEncryptionKey = Nothing+ , _wrUserVolumeEncryptionEnabled = Nothing+ , _wrTags = Nothing+ , _wrDirectoryId = pDirectoryId_+ , _wrUserName = pUserName_+ , _wrBundleId = pBundleId_+ } + -- | Undocumented member. wrWorkspaceProperties :: Lens' WorkspaceRequest (Maybe WorkspaceProperties) wrWorkspaceProperties = lens _wrWorkspaceProperties (\ s a -> s{_wrWorkspaceProperties = a});@@ -1071,9 +1081,9 @@ <*> (x .: "UserName") <*> (x .: "BundleId")) -instance Hashable WorkspaceRequest+instance Hashable WorkspaceRequest where -instance NFData WorkspaceRequest+instance NFData WorkspaceRequest where instance ToJSON WorkspaceRequest where toJSON WorkspaceRequest'{..}
gen/Network/AWS/WorkSpaces/Types/Sum.hs view
@@ -9,22 +9,23 @@ -- | -- Module : Network.AWS.WorkSpaces.Types.Sum--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.WorkSpaces.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude data Compute- = Performance- | Standard- | Value- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Performance+ | Standard+ | Value+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Compute where parser = takeLowerText >>= \case "performance" -> pure Performance@@ -49,11 +50,12 @@ parseJSON = parseJSONText "Compute" data ConnectionState- = Connected- | Disconnected- | Unknown- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Connected+ | Disconnected+ | Unknown+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText ConnectionState where parser = takeLowerText >>= \case "connected" -> pure Connected@@ -78,10 +80,11 @@ parseJSON = parseJSONText "ConnectionState" data RunningMode- = AlwaysOn- | AutoStop- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = AlwaysOn+ | AutoStop+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText RunningMode where parser = takeLowerText >>= \case "always_on" -> pure AlwaysOn@@ -107,13 +110,14 @@ parseJSON = parseJSONText "RunningMode" data WorkspaceDirectoryState- = Deregistered- | Deregistering- | Error'- | Registered- | Registering- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Deregistered+ | Deregistering+ | Error'+ | Registered+ | Registering+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText WorkspaceDirectoryState where parser = takeLowerText >>= \case "deregistered" -> pure Deregistered@@ -142,10 +146,11 @@ parseJSON = parseJSONText "WorkspaceDirectoryState" data WorkspaceDirectoryType- = AdConnector- | SimpleAd- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = AdConnector+ | SimpleAd+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText WorkspaceDirectoryType where parser = takeLowerText >>= \case "ad_connector" -> pure AdConnector@@ -168,21 +173,22 @@ parseJSON = parseJSONText "WorkspaceDirectoryType" data WorkspaceState- = WSAvailable- | WSError'- | WSImpaired- | WSMaintenance- | WSPending- | WSRebooting- | WSRebuilding- | WSStarting- | WSStopped- | WSStopping- | WSSuspended- | WSTerminated- | WSTerminating- | WSUnhealthy- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = WSAvailable+ | WSError'+ | WSImpaired+ | WSMaintenance+ | WSPending+ | WSRebooting+ | WSRebuilding+ | WSStarting+ | WSStopped+ | WSStopping+ | WSSuspended+ | WSTerminated+ | WSTerminating+ | WSUnhealthy+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText WorkspaceState where parser = takeLowerText >>= \case
gen/Network/AWS/WorkSpaces/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.WorkSpaces.Waiters--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.WorkSpaces.Waiters where -import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter-import Network.AWS.WorkSpaces.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter+import Network.AWS.WorkSpaces.Types
test/Main.hs view
@@ -2,9 +2,9 @@ -- | -- Module : Main--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) --
test/Test/AWS/Gen/WorkSpaces.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.WorkSpaces--- Copyright : (c) 2013-2016 Brendan Hay+-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0.--- Maintainer : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.WorkSpaces where import Data.Proxy+import Network.AWS.WorkSpaces import Test.AWS.Fixture import Test.AWS.Prelude-import Test.Tasty-import Network.AWS.WorkSpaces import Test.AWS.WorkSpaces.Internal+import Test.Tasty -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.