amazonka-cognito-sync 1.4.5 → 1.5.0
raw patch · 26 files changed
+759/−694 lines, 26 filesdep ~amazonka-cognito-syncdep ~amazonka-coredep ~amazonka-testPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: amazonka-cognito-sync, amazonka-core, amazonka-test
API changes (from Hackage documentation)
Files
- README.md +1/−1
- amazonka-cognito-sync.cabal +16/−11
- gen/Network/AWS/CognitoSync.hs +21/−21
- gen/Network/AWS/CognitoSync/BulkPublish.hs +23/−23
- gen/Network/AWS/CognitoSync/DeleteDataset.hs +29/−27
- gen/Network/AWS/CognitoSync/DescribeDataset.hs +29/−27
- gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs +23/−22
- gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs +25/−25
- gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs +33/−31
- gen/Network/AWS/CognitoSync/GetCognitoEvents.hs +23/−23
- gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs +29/−26
- gen/Network/AWS/CognitoSync/ListDatasets.hs +37/−33
- gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs +32/−31
- gen/Network/AWS/CognitoSync/ListRecords.hs +55/−51
- gen/Network/AWS/CognitoSync/RegisterDevice.hs +31/−29
- gen/Network/AWS/CognitoSync/SetCognitoEvents.hs +21/−20
- gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs +35/−30
- gen/Network/AWS/CognitoSync/SubscribeToDataset.hs +29/−27
- gen/Network/AWS/CognitoSync/Types.hs +54/−38
- gen/Network/AWS/CognitoSync/Types/Product.hs +112/−105
- gen/Network/AWS/CognitoSync/Types/Sum.hs +23/−19
- gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs +29/−27
- gen/Network/AWS/CognitoSync/UpdateRecords.hs +37/−35
- gen/Network/AWS/CognitoSync/Waiters.hs +6/−6
- test/Main.hs +2/−2
- test/Test/AWS/Gen/CognitoSync.hs +4/−4
README.md view
@@ -8,7 +8,7 @@ ## Version -`1.4.5`+`1.5.0` ## Description
amazonka-cognito-sync.cabal view
@@ -1,13 +1,13 @@ name: amazonka-cognito-sync-version: 1.4.5+version: 1.5.0 synopsis: Amazon Cognito Sync 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-cognito-sync 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.CognitoSync@@ -65,7 +70,7 @@ , Network.AWS.CognitoSync.Types.Sum build-depends:- amazonka-core == 1.4.5.*+ amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-cognito-sync-test@@ -85,9 +90,9 @@ , Test.AWS.CognitoSync.Internal build-depends:- amazonka-core == 1.4.5.*- , amazonka-test == 1.4.5.*- , amazonka-cognito-sync == 1.4.5.*+ amazonka-core == 1.5.0.*+ , amazonka-test == 1.5.0.*+ , amazonka-cognito-sync , base , bytestring , tasty
gen/Network/AWS/CognitoSync.hs view
@@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.CognitoSync--- 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) --@@ -198,25 +198,25 @@ , rpSyncCount ) where -import Network.AWS.CognitoSync.BulkPublish-import Network.AWS.CognitoSync.DeleteDataset-import Network.AWS.CognitoSync.DescribeDataset-import Network.AWS.CognitoSync.DescribeIdentityPoolUsage-import Network.AWS.CognitoSync.DescribeIdentityUsage-import Network.AWS.CognitoSync.GetBulkPublishDetails-import Network.AWS.CognitoSync.GetCognitoEvents-import Network.AWS.CognitoSync.GetIdentityPoolConfiguration-import Network.AWS.CognitoSync.ListDatasets-import Network.AWS.CognitoSync.ListIdentityPoolUsage-import Network.AWS.CognitoSync.ListRecords-import Network.AWS.CognitoSync.RegisterDevice-import Network.AWS.CognitoSync.SetCognitoEvents-import Network.AWS.CognitoSync.SetIdentityPoolConfiguration-import Network.AWS.CognitoSync.SubscribeToDataset-import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.UnsubscribeFromDataset-import Network.AWS.CognitoSync.UpdateRecords-import Network.AWS.CognitoSync.Waiters+import Network.AWS.CognitoSync.BulkPublish+import Network.AWS.CognitoSync.DeleteDataset+import Network.AWS.CognitoSync.DescribeDataset+import Network.AWS.CognitoSync.DescribeIdentityPoolUsage+import Network.AWS.CognitoSync.DescribeIdentityUsage+import Network.AWS.CognitoSync.GetBulkPublishDetails+import Network.AWS.CognitoSync.GetCognitoEvents+import Network.AWS.CognitoSync.GetIdentityPoolConfiguration+import Network.AWS.CognitoSync.ListDatasets+import Network.AWS.CognitoSync.ListIdentityPoolUsage+import Network.AWS.CognitoSync.ListRecords+import Network.AWS.CognitoSync.RegisterDevice+import Network.AWS.CognitoSync.SetCognitoEvents+import Network.AWS.CognitoSync.SetIdentityPoolConfiguration+import Network.AWS.CognitoSync.SubscribeToDataset+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.UnsubscribeFromDataset+import Network.AWS.CognitoSync.UpdateRecords+import Network.AWS.CognitoSync.Waiters {- $errors Error matchers are designed for use with the functions provided by
gen/Network/AWS/CognitoSync/BulkPublish.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.BulkPublish--- 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,20 +39,21 @@ , bprsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the BulkPublish operation. -- -- /See:/ 'bulkPublish' smart constructor. newtype BulkPublish = BulkPublish'- { _bpIdentityPoolId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _bpIdentityPoolId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BulkPublish' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'bpIdentityPoolId' -> BulkPublish bulkPublish pIdentityPoolId_ =- BulkPublish'- { _bpIdentityPoolId = pIdentityPoolId_- }+ BulkPublish' {_bpIdentityPoolId = pIdentityPoolId_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. bpIdentityPoolId :: Lens' BulkPublish Text bpIdentityPoolId = lens _bpIdentityPoolId (\ s a -> s{_bpIdentityPoolId = a});@@ -79,9 +79,9 @@ BulkPublishResponse' <$> (x .?> "IdentityPoolId") <*> (pure (fromEnum s))) -instance Hashable BulkPublish+instance Hashable BulkPublish where -instance NFData BulkPublish+instance NFData BulkPublish where instance ToHeaders BulkPublish where toHeaders@@ -106,10 +106,11 @@ -- -- /See:/ 'bulkPublishResponse' smart constructor. data BulkPublishResponse = BulkPublishResponse'- { _bprsIdentityPoolId :: !(Maybe Text)- , _bprsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _bprsIdentityPoolId :: !(Maybe Text)+ , _bprsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BulkPublishResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -121,11 +122,10 @@ :: Int -- ^ 'bprsResponseStatus' -> BulkPublishResponse bulkPublishResponse pResponseStatus_ =- BulkPublishResponse'- { _bprsIdentityPoolId = Nothing- , _bprsResponseStatus = pResponseStatus_- }+ BulkPublishResponse'+ {_bprsIdentityPoolId = Nothing, _bprsResponseStatus = pResponseStatus_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. bprsIdentityPoolId :: Lens' BulkPublishResponse (Maybe Text) bprsIdentityPoolId = lens _bprsIdentityPoolId (\ s a -> s{_bprsIdentityPoolId = a});@@ -134,4 +134,4 @@ bprsResponseStatus :: Lens' BulkPublishResponse Int bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a}); -instance NFData BulkPublishResponse+instance NFData BulkPublishResponse where
gen/Network/AWS/CognitoSync/DeleteDataset.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.DeleteDataset--- 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,22 +41,23 @@ , drsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to delete the specific dataset. -- -- /See:/ 'deleteDataset' smart constructor. data DeleteDataset = DeleteDataset'- { _delIdentityPoolId :: !Text- , _delIdentityId :: !Text- , _delDatasetName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _delIdentityPoolId :: !Text+ , _delIdentityId :: !Text+ , _delDatasetName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDataset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@ -> Text -- ^ 'delDatasetName' -> DeleteDataset deleteDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =- DeleteDataset'- { _delIdentityPoolId = pIdentityPoolId_- , _delIdentityId = pIdentityId_- , _delDatasetName = pDatasetName_- }+ DeleteDataset'+ { _delIdentityPoolId = pIdentityPoolId_+ , _delIdentityId = pIdentityId_+ , _delDatasetName = pDatasetName_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. delIdentityPoolId :: Lens' DeleteDataset Text delIdentityPoolId = lens _delIdentityPoolId (\ s a -> s{_delIdentityPoolId = a});@@ -99,9 +101,9 @@ DeleteDatasetResponse' <$> (x .?> "Dataset") <*> (pure (fromEnum s))) -instance Hashable DeleteDataset+instance Hashable DeleteDataset where -instance NFData DeleteDataset+instance NFData DeleteDataset where instance ToHeaders DeleteDataset where toHeaders@@ -124,10 +126,11 @@ -- -- /See:/ 'deleteDatasetResponse' smart constructor. data DeleteDatasetResponse = DeleteDatasetResponse'- { _drsDataset :: !(Maybe Dataset)- , _drsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _drsDataset :: !(Maybe Dataset)+ , _drsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteDatasetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +142,10 @@ :: Int -- ^ 'drsResponseStatus' -> DeleteDatasetResponse deleteDatasetResponse pResponseStatus_ =- DeleteDatasetResponse'- { _drsDataset = Nothing- , _drsResponseStatus = pResponseStatus_- }+ DeleteDatasetResponse'+ {_drsDataset = Nothing, _drsResponseStatus = pResponseStatus_} + -- | A collection of data for an identity pool. An identity pool can have multiple datasets. A dataset is per identity and can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs. drsDataset :: Lens' DeleteDatasetResponse (Maybe Dataset) drsDataset = lens _drsDataset (\ s a -> s{_drsDataset = a});@@ -152,4 +154,4 @@ drsResponseStatus :: Lens' DeleteDatasetResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteDatasetResponse+instance NFData DeleteDatasetResponse where
gen/Network/AWS/CognitoSync/DescribeDataset.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.DescribeDataset--- 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,22 +41,23 @@ , ddrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for meta data about a dataset (creation date, number of records, size) by owner and dataset name. -- -- /See:/ 'describeDataset' smart constructor. data DescribeDataset = DescribeDataset'- { _ddIdentityPoolId :: !Text- , _ddIdentityId :: !Text- , _ddDatasetName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ddIdentityPoolId :: !Text+ , _ddIdentityId :: !Text+ , _ddDatasetName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDataset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@ -> Text -- ^ 'ddDatasetName' -> DescribeDataset describeDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =- DescribeDataset'- { _ddIdentityPoolId = pIdentityPoolId_- , _ddIdentityId = pIdentityId_- , _ddDatasetName = pDatasetName_- }+ DescribeDataset'+ { _ddIdentityPoolId = pIdentityPoolId_+ , _ddIdentityId = pIdentityId_+ , _ddDatasetName = pDatasetName_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. ddIdentityPoolId :: Lens' DescribeDataset Text ddIdentityPoolId = lens _ddIdentityPoolId (\ s a -> s{_ddIdentityPoolId = a});@@ -99,9 +101,9 @@ DescribeDatasetResponse' <$> (x .?> "Dataset") <*> (pure (fromEnum s))) -instance Hashable DescribeDataset+instance Hashable DescribeDataset where -instance NFData DescribeDataset+instance NFData DescribeDataset where instance ToHeaders DescribeDataset where toHeaders@@ -124,10 +126,11 @@ -- -- /See:/ 'describeDatasetResponse' smart constructor. data DescribeDatasetResponse = DescribeDatasetResponse'- { _ddrsDataset :: !(Maybe Dataset)- , _ddrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ddrsDataset :: !(Maybe Dataset)+ , _ddrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeDatasetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,11 +142,10 @@ :: Int -- ^ 'ddrsResponseStatus' -> DescribeDatasetResponse describeDatasetResponse pResponseStatus_ =- DescribeDatasetResponse'- { _ddrsDataset = Nothing- , _ddrsResponseStatus = pResponseStatus_- }+ DescribeDatasetResponse'+ {_ddrsDataset = Nothing, _ddrsResponseStatus = pResponseStatus_} + -- | Meta data for a collection of data for an identity. An identity can have multiple datasets. A dataset can be general or associated with a particular entity in an application (like a saved game). Datasets are automatically created if they don't exist. Data is synced by dataset, and a dataset can hold up to 1MB of key-value pairs. ddrsDataset :: Lens' DescribeDatasetResponse (Maybe Dataset) ddrsDataset = lens _ddrsDataset (\ s a -> s{_ddrsDataset = a});@@ -152,4 +154,4 @@ ddrsResponseStatus :: Lens' DescribeDatasetResponse Int ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a}); -instance NFData DescribeDatasetResponse+instance NFData DescribeDatasetResponse where
gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.DescribeIdentityPoolUsage--- 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,20 +39,21 @@ , dipursResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for usage information about the identity pool. -- -- /See:/ 'describeIdentityPoolUsage' smart constructor. newtype DescribeIdentityPoolUsage = DescribeIdentityPoolUsage'- { _dipuIdentityPoolId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dipuIdentityPoolId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIdentityPoolUsage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@ :: Text -- ^ 'dipuIdentityPoolId' -> DescribeIdentityPoolUsage describeIdentityPoolUsage pIdentityPoolId_ =- DescribeIdentityPoolUsage'- { _dipuIdentityPoolId = pIdentityPoolId_- }+ DescribeIdentityPoolUsage' {_dipuIdentityPoolId = pIdentityPoolId_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. dipuIdentityPoolId :: Lens' DescribeIdentityPoolUsage Text dipuIdentityPoolId = lens _dipuIdentityPoolId (\ s a -> s{_dipuIdentityPoolId = a});@@ -80,9 +80,9 @@ DescribeIdentityPoolUsageResponse' <$> (x .?> "IdentityPoolUsage") <*> (pure (fromEnum s))) -instance Hashable DescribeIdentityPoolUsage+instance Hashable DescribeIdentityPoolUsage where -instance NFData DescribeIdentityPoolUsage+instance NFData DescribeIdentityPoolUsage where instance ToHeaders DescribeIdentityPoolUsage where toHeaders@@ -103,10 +103,11 @@ -- -- /See:/ 'describeIdentityPoolUsageResponse' smart constructor. data DescribeIdentityPoolUsageResponse = DescribeIdentityPoolUsageResponse'- { _dipursIdentityPoolUsage :: !(Maybe IdentityPoolUsage)- , _dipursResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dipursIdentityPoolUsage :: !(Maybe IdentityPoolUsage)+ , _dipursResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIdentityPoolUsageResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -118,11 +119,10 @@ :: Int -- ^ 'dipursResponseStatus' -> DescribeIdentityPoolUsageResponse describeIdentityPoolUsageResponse pResponseStatus_ =- DescribeIdentityPoolUsageResponse'- { _dipursIdentityPoolUsage = Nothing- , _dipursResponseStatus = pResponseStatus_- }+ DescribeIdentityPoolUsageResponse'+ {_dipursIdentityPoolUsage = Nothing, _dipursResponseStatus = pResponseStatus_} + -- | Information about the usage of the identity pool. dipursIdentityPoolUsage :: Lens' DescribeIdentityPoolUsageResponse (Maybe IdentityPoolUsage) dipursIdentityPoolUsage = lens _dipursIdentityPoolUsage (\ s a -> s{_dipursIdentityPoolUsage = a});@@ -132,3 +132,4 @@ dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a}); instance NFData DescribeIdentityPoolUsageResponse+ where
gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.DescribeIdentityUsage--- 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) --@@ -40,21 +40,22 @@ , diursResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for information about the usage of an identity pool. -- -- /See:/ 'describeIdentityUsage' smart constructor. data DescribeIdentityUsage = DescribeIdentityUsage'- { _diuIdentityPoolId :: !Text- , _diuIdentityId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _diuIdentityPoolId :: !Text+ , _diuIdentityId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIdentityUsage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,10 @@ -> Text -- ^ 'diuIdentityId' -> DescribeIdentityUsage describeIdentityUsage pIdentityPoolId_ pIdentityId_ =- DescribeIdentityUsage'- { _diuIdentityPoolId = pIdentityPoolId_- , _diuIdentityId = pIdentityId_- }+ DescribeIdentityUsage'+ {_diuIdentityPoolId = pIdentityPoolId_, _diuIdentityId = pIdentityId_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. diuIdentityPoolId :: Lens' DescribeIdentityUsage Text diuIdentityPoolId = lens _diuIdentityPoolId (\ s a -> s{_diuIdentityPoolId = a});@@ -90,9 +90,9 @@ DescribeIdentityUsageResponse' <$> (x .?> "IdentityUsage") <*> (pure (fromEnum s))) -instance Hashable DescribeIdentityUsage+instance Hashable DescribeIdentityUsage where -instance NFData DescribeIdentityUsage+instance NFData DescribeIdentityUsage where instance ToHeaders DescribeIdentityUsage where toHeaders@@ -114,10 +114,11 @@ -- -- /See:/ 'describeIdentityUsageResponse' smart constructor. data DescribeIdentityUsageResponse = DescribeIdentityUsageResponse'- { _diursIdentityUsage :: !(Maybe IdentityUsage)- , _diursResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _diursIdentityUsage :: !(Maybe IdentityUsage)+ , _diursResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeIdentityUsageResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +130,10 @@ :: Int -- ^ 'diursResponseStatus' -> DescribeIdentityUsageResponse describeIdentityUsageResponse pResponseStatus_ =- DescribeIdentityUsageResponse'- { _diursIdentityUsage = Nothing- , _diursResponseStatus = pResponseStatus_- }+ DescribeIdentityUsageResponse'+ {_diursIdentityUsage = Nothing, _diursResponseStatus = pResponseStatus_} + -- | Usage information for the identity. diursIdentityUsage :: Lens' DescribeIdentityUsageResponse (Maybe IdentityUsage) diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a});@@ -142,4 +142,4 @@ diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a}); -instance NFData DescribeIdentityUsageResponse+instance NFData DescribeIdentityUsageResponse where
gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.GetBulkPublishDetails--- 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) --@@ -43,20 +43,21 @@ , gbpdrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the GetBulkPublishDetails operation. -- -- /See:/ 'getBulkPublishDetails' smart constructor. newtype GetBulkPublishDetails = GetBulkPublishDetails'- { _gbpdIdentityPoolId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gbpdIdentityPoolId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBulkPublishDetails' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@ :: Text -- ^ 'gbpdIdentityPoolId' -> GetBulkPublishDetails getBulkPublishDetails pIdentityPoolId_ =- GetBulkPublishDetails'- { _gbpdIdentityPoolId = pIdentityPoolId_- }+ GetBulkPublishDetails' {_gbpdIdentityPoolId = pIdentityPoolId_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. GUID generation is unique within a region. gbpdIdentityPoolId :: Lens' GetBulkPublishDetails Text gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a});@@ -89,9 +89,9 @@ <*> (x .?> "BulkPublishStatus") <*> (pure (fromEnum s))) -instance Hashable GetBulkPublishDetails+instance Hashable GetBulkPublishDetails where -instance NFData GetBulkPublishDetails+instance NFData GetBulkPublishDetails where instance ToHeaders GetBulkPublishDetails where toHeaders@@ -116,14 +116,15 @@ -- -- /See:/ 'getBulkPublishDetailsResponse' smart constructor. data GetBulkPublishDetailsResponse = GetBulkPublishDetailsResponse'- { _gbpdrsBulkPublishStartTime :: !(Maybe POSIX)- , _gbpdrsIdentityPoolId :: !(Maybe Text)- , _gbpdrsBulkPublishCompleteTime :: !(Maybe POSIX)- , _gbpdrsFailureMessage :: !(Maybe Text)- , _gbpdrsBulkPublishStatus :: !(Maybe BulkPublishStatus)- , _gbpdrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gbpdrsBulkPublishStartTime :: !(Maybe POSIX)+ , _gbpdrsIdentityPoolId :: !(Maybe Text)+ , _gbpdrsBulkPublishCompleteTime :: !(Maybe POSIX)+ , _gbpdrsFailureMessage :: !(Maybe Text)+ , _gbpdrsBulkPublishStatus :: !(Maybe BulkPublishStatus)+ , _gbpdrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetBulkPublishDetailsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,15 +144,16 @@ :: Int -- ^ 'gbpdrsResponseStatus' -> GetBulkPublishDetailsResponse getBulkPublishDetailsResponse pResponseStatus_ =- GetBulkPublishDetailsResponse'- { _gbpdrsBulkPublishStartTime = Nothing- , _gbpdrsIdentityPoolId = Nothing- , _gbpdrsBulkPublishCompleteTime = Nothing- , _gbpdrsFailureMessage = Nothing- , _gbpdrsBulkPublishStatus = Nothing- , _gbpdrsResponseStatus = pResponseStatus_- }+ GetBulkPublishDetailsResponse'+ { _gbpdrsBulkPublishStartTime = Nothing+ , _gbpdrsIdentityPoolId = Nothing+ , _gbpdrsBulkPublishCompleteTime = Nothing+ , _gbpdrsFailureMessage = Nothing+ , _gbpdrsBulkPublishStatus = Nothing+ , _gbpdrsResponseStatus = pResponseStatus_+ } + -- | The date/time at which the last bulk publish was initiated. gbpdrsBulkPublishStartTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime) gbpdrsBulkPublishStartTime = lens _gbpdrsBulkPublishStartTime (\ s a -> s{_gbpdrsBulkPublishStartTime = a}) . mapping _Time;@@ -176,4 +178,4 @@ gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a}); -instance NFData GetBulkPublishDetailsResponse+instance NFData GetBulkPublishDetailsResponse where
gen/Network/AWS/CognitoSync/GetCognitoEvents.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.GetCognitoEvents--- 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 @@ , gcersResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for a list of the configured Cognito Events --@@ -52,9 +52,10 @@ -- -- /See:/ 'getCognitoEvents' smart constructor. newtype GetCognitoEvents = GetCognitoEvents'- { _gceIdentityPoolId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gceIdentityPoolId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCognitoEvents' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,10 +65,9 @@ :: Text -- ^ 'gceIdentityPoolId' -> GetCognitoEvents getCognitoEvents pIdentityPoolId_ =- GetCognitoEvents'- { _gceIdentityPoolId = pIdentityPoolId_- }+ GetCognitoEvents' {_gceIdentityPoolId = pIdentityPoolId_} + -- | The Cognito Identity Pool ID for the request gceIdentityPoolId :: Lens' GetCognitoEvents Text gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a});@@ -81,9 +81,9 @@ GetCognitoEventsResponse' <$> (x .?> "Events" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable GetCognitoEvents+instance Hashable GetCognitoEvents where -instance NFData GetCognitoEvents+instance NFData GetCognitoEvents where instance ToHeaders GetCognitoEvents where toHeaders@@ -107,10 +107,11 @@ -- -- /See:/ 'getCognitoEventsResponse' smart constructor. data GetCognitoEventsResponse = GetCognitoEventsResponse'- { _gcersEvents :: !(Maybe (Map Text Text))- , _gcersResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gcersEvents :: !(Maybe (Map Text Text))+ , _gcersResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetCognitoEventsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -122,11 +123,10 @@ :: Int -- ^ 'gcersResponseStatus' -> GetCognitoEventsResponse getCognitoEventsResponse pResponseStatus_ =- GetCognitoEventsResponse'- { _gcersEvents = Nothing- , _gcersResponseStatus = pResponseStatus_- }+ GetCognitoEventsResponse'+ {_gcersEvents = Nothing, _gcersResponseStatus = pResponseStatus_} + -- | The Cognito Events returned from the GetCognitoEvents request gcersEvents :: Lens' GetCognitoEventsResponse (HashMap Text Text) gcersEvents = lens _gcersEvents (\ s a -> s{_gcersEvents = a}) . _Default . _Map;@@ -135,4 +135,4 @@ gcersResponseStatus :: Lens' GetCognitoEventsResponse Int gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a}); -instance NFData GetCognitoEventsResponse+instance NFData GetCognitoEventsResponse where
gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.GetIdentityPoolConfiguration--- 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 @@ , gipcrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the GetIdentityPoolConfiguration operation. --@@ -54,9 +54,10 @@ -- -- /See:/ 'getIdentityPoolConfiguration' smart constructor. newtype GetIdentityPoolConfiguration = GetIdentityPoolConfiguration'- { _gipcIdentityPoolId :: Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gipcIdentityPoolId :: Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityPoolConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@ :: Text -- ^ 'gipcIdentityPoolId' -> GetIdentityPoolConfiguration getIdentityPoolConfiguration pIdentityPoolId_ =- GetIdentityPoolConfiguration'- { _gipcIdentityPoolId = pIdentityPoolId_- }+ GetIdentityPoolConfiguration' {_gipcIdentityPoolId = pIdentityPoolId_} + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. This is the ID of the pool for which to return a configuration. gipcIdentityPoolId :: Lens' GetIdentityPoolConfiguration Text gipcIdentityPoolId = lens _gipcIdentityPoolId (\ s a -> s{_gipcIdentityPoolId = a});@@ -87,9 +87,9 @@ <*> (x .?> "PushSync") <*> (pure (fromEnum s))) -instance Hashable GetIdentityPoolConfiguration+instance Hashable GetIdentityPoolConfiguration where -instance NFData GetIdentityPoolConfiguration+instance NFData GetIdentityPoolConfiguration where instance ToHeaders GetIdentityPoolConfiguration where toHeaders@@ -113,12 +113,13 @@ -- -- /See:/ 'getIdentityPoolConfigurationResponse' smart constructor. data GetIdentityPoolConfigurationResponse = GetIdentityPoolConfigurationResponse'- { _gipcrsIdentityPoolId :: !(Maybe Text)- , _gipcrsCognitoStreams :: !(Maybe CognitoStreams)- , _gipcrsPushSync :: !(Maybe PushSync)- , _gipcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _gipcrsIdentityPoolId :: !(Maybe Text)+ , _gipcrsCognitoStreams :: !(Maybe CognitoStreams)+ , _gipcrsPushSync :: !(Maybe PushSync)+ , _gipcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'GetIdentityPoolConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,13 +135,14 @@ :: Int -- ^ 'gipcrsResponseStatus' -> GetIdentityPoolConfigurationResponse getIdentityPoolConfigurationResponse pResponseStatus_ =- GetIdentityPoolConfigurationResponse'- { _gipcrsIdentityPoolId = Nothing- , _gipcrsCognitoStreams = Nothing- , _gipcrsPushSync = Nothing- , _gipcrsResponseStatus = pResponseStatus_- }+ GetIdentityPoolConfigurationResponse'+ { _gipcrsIdentityPoolId = Nothing+ , _gipcrsCognitoStreams = Nothing+ , _gipcrsPushSync = Nothing+ , _gipcrsResponseStatus = pResponseStatus_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. gipcrsIdentityPoolId :: Lens' GetIdentityPoolConfigurationResponse (Maybe Text) gipcrsIdentityPoolId = lens _gipcrsIdentityPoolId (\ s a -> s{_gipcrsIdentityPoolId = a});@@ -158,3 +160,4 @@ gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a}); instance NFData GetIdentityPoolConfigurationResponse+ where
gen/Network/AWS/CognitoSync/ListDatasets.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.ListDatasets--- 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) --@@ -44,23 +44,24 @@ , ldrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | Request for a list of datasets for an identity. -- -- /See:/ 'listDatasets' smart constructor. data ListDatasets = ListDatasets'- { _ldNextToken :: !(Maybe Text)- , _ldMaxResults :: !(Maybe Int)- , _ldIdentityId :: !Text- , _ldIdentityPoolId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ldNextToken :: !(Maybe Text)+ , _ldMaxResults :: !(Maybe Int)+ , _ldIdentityId :: !Text+ , _ldIdentityPoolId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDatasets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,13 +78,14 @@ -> Text -- ^ 'ldIdentityPoolId' -> ListDatasets listDatasets pIdentityId_ pIdentityPoolId_ =- ListDatasets'- { _ldNextToken = Nothing- , _ldMaxResults = Nothing- , _ldIdentityId = pIdentityId_- , _ldIdentityPoolId = pIdentityPoolId_- }+ ListDatasets'+ { _ldNextToken = Nothing+ , _ldMaxResults = Nothing+ , _ldIdentityId = pIdentityId_+ , _ldIdentityPoolId = pIdentityPoolId_+ } + -- | A pagination token for obtaining the next page of results. ldNextToken :: Lens' ListDatasets (Maybe Text) ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a});@@ -111,9 +113,9 @@ (x .?> "Datasets" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable ListDatasets+instance Hashable ListDatasets where -instance NFData ListDatasets+instance NFData ListDatasets where instance ToHeaders ListDatasets where toHeaders@@ -138,12 +140,13 @@ -- -- /See:/ 'listDatasetsResponse' smart constructor. data ListDatasetsResponse = ListDatasetsResponse'- { _ldrsCount :: !(Maybe Int)- , _ldrsNextToken :: !(Maybe Text)- , _ldrsDatasets :: !(Maybe [Dataset])- , _ldrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ldrsCount :: !(Maybe Int)+ , _ldrsNextToken :: !(Maybe Text)+ , _ldrsDatasets :: !(Maybe [Dataset])+ , _ldrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListDatasetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -159,13 +162,14 @@ :: Int -- ^ 'ldrsResponseStatus' -> ListDatasetsResponse listDatasetsResponse pResponseStatus_ =- ListDatasetsResponse'- { _ldrsCount = Nothing- , _ldrsNextToken = Nothing- , _ldrsDatasets = Nothing- , _ldrsResponseStatus = pResponseStatus_- }+ ListDatasetsResponse'+ { _ldrsCount = Nothing+ , _ldrsNextToken = Nothing+ , _ldrsDatasets = Nothing+ , _ldrsResponseStatus = pResponseStatus_+ } + -- | Number of datasets returned. ldrsCount :: Lens' ListDatasetsResponse (Maybe Int) ldrsCount = lens _ldrsCount (\ s a -> s{_ldrsCount = a});@@ -182,4 +186,4 @@ ldrsResponseStatus :: Lens' ListDatasetsResponse Int ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a}); -instance NFData ListDatasetsResponse+instance NFData ListDatasetsResponse where
gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.ListIdentityPoolUsage--- 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) --@@ -43,21 +43,22 @@ , lipursResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for usage information on an identity pool. -- -- /See:/ 'listIdentityPoolUsage' smart constructor. data ListIdentityPoolUsage = ListIdentityPoolUsage'- { _lipuNextToken :: !(Maybe Text)- , _lipuMaxResults :: !(Maybe Int)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lipuNextToken :: !(Maybe Text)+ , _lipuMaxResults :: !(Maybe Int)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentityPoolUsage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -68,11 +69,9 @@ listIdentityPoolUsage :: ListIdentityPoolUsage listIdentityPoolUsage =- ListIdentityPoolUsage'- { _lipuNextToken = Nothing- , _lipuMaxResults = Nothing- }+ ListIdentityPoolUsage' {_lipuNextToken = Nothing, _lipuMaxResults = Nothing} + -- | A pagination token for obtaining the next page of results. lipuNextToken :: Lens' ListIdentityPoolUsage (Maybe Text) lipuNextToken = lens _lipuNextToken (\ s a -> s{_lipuNextToken = a});@@ -95,9 +94,9 @@ <*> (x .?> "MaxResults") <*> (pure (fromEnum s))) -instance Hashable ListIdentityPoolUsage+instance Hashable ListIdentityPoolUsage where -instance NFData ListIdentityPoolUsage+instance NFData ListIdentityPoolUsage where instance ToHeaders ListIdentityPoolUsage where toHeaders@@ -119,13 +118,14 @@ -- -- /See:/ 'listIdentityPoolUsageResponse' smart constructor. data ListIdentityPoolUsageResponse = ListIdentityPoolUsageResponse'- { _lipursIdentityPoolUsages :: !(Maybe [IdentityPoolUsage])- , _lipursCount :: !(Maybe Int)- , _lipursNextToken :: !(Maybe Text)- , _lipursMaxResults :: !(Maybe Int)- , _lipursResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lipursIdentityPoolUsages :: !(Maybe [IdentityPoolUsage])+ , _lipursCount :: !(Maybe Int)+ , _lipursNextToken :: !(Maybe Text)+ , _lipursMaxResults :: !(Maybe Int)+ , _lipursResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListIdentityPoolUsageResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,14 +143,15 @@ :: Int -- ^ 'lipursResponseStatus' -> ListIdentityPoolUsageResponse listIdentityPoolUsageResponse pResponseStatus_ =- ListIdentityPoolUsageResponse'- { _lipursIdentityPoolUsages = Nothing- , _lipursCount = Nothing- , _lipursNextToken = Nothing- , _lipursMaxResults = Nothing- , _lipursResponseStatus = pResponseStatus_- }+ ListIdentityPoolUsageResponse'+ { _lipursIdentityPoolUsages = Nothing+ , _lipursCount = Nothing+ , _lipursNextToken = Nothing+ , _lipursMaxResults = Nothing+ , _lipursResponseStatus = pResponseStatus_+ } + -- | Usage information for the identity pools. lipursIdentityPoolUsages :: Lens' ListIdentityPoolUsageResponse [IdentityPoolUsage] lipursIdentityPoolUsages = lens _lipursIdentityPoolUsages (\ s a -> s{_lipursIdentityPoolUsages = a}) . _Default . _Coerce;@@ -171,4 +172,4 @@ lipursResponseStatus :: Lens' ListIdentityPoolUsageResponse Int lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a}); -instance NFData ListIdentityPoolUsageResponse+instance NFData ListIdentityPoolUsageResponse where
gen/Network/AWS/CognitoSync/ListRecords.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.ListRecords--- 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) --@@ -53,26 +53,27 @@ , lrrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request for a list of records. -- -- /See:/ 'listRecords' smart constructor. data ListRecords = ListRecords'- { _lrLastSyncCount :: !(Maybe Integer)- , _lrNextToken :: !(Maybe Text)- , _lrSyncSessionToken :: !(Maybe Text)- , _lrMaxResults :: !(Maybe Int)- , _lrIdentityPoolId :: !Text- , _lrIdentityId :: !Text- , _lrDatasetName :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lrLastSyncCount :: !(Maybe Integer)+ , _lrNextToken :: !(Maybe Text)+ , _lrSyncSessionToken :: !(Maybe Text)+ , _lrMaxResults :: !(Maybe Int)+ , _lrIdentityPoolId :: !Text+ , _lrIdentityId :: !Text+ , _lrDatasetName :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRecords' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -96,16 +97,17 @@ -> Text -- ^ 'lrDatasetName' -> ListRecords listRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ =- ListRecords'- { _lrLastSyncCount = Nothing- , _lrNextToken = Nothing- , _lrSyncSessionToken = Nothing- , _lrMaxResults = Nothing- , _lrIdentityPoolId = pIdentityPoolId_- , _lrIdentityId = pIdentityId_- , _lrDatasetName = pDatasetName_- }+ ListRecords'+ { _lrLastSyncCount = Nothing+ , _lrNextToken = Nothing+ , _lrSyncSessionToken = Nothing+ , _lrMaxResults = Nothing+ , _lrIdentityPoolId = pIdentityPoolId_+ , _lrIdentityId = pIdentityId_+ , _lrDatasetName = pDatasetName_+ } + -- | The last server sync count for this record. lrLastSyncCount :: Lens' ListRecords (Maybe Integer) lrLastSyncCount = lens _lrLastSyncCount (\ s a -> s{_lrLastSyncCount = a});@@ -152,9 +154,9 @@ <*> (x .?> "DatasetSyncCount") <*> (pure (fromEnum s))) -instance Hashable ListRecords+instance Hashable ListRecords where -instance NFData ListRecords+instance NFData ListRecords where instance ToHeaders ListRecords where toHeaders@@ -182,18 +184,19 @@ -- -- /See:/ 'listRecordsResponse' smart constructor. data ListRecordsResponse = ListRecordsResponse'- { _lrrsDatasetDeletedAfterRequestedSyncCount :: !(Maybe Bool)- , _lrrsDatasetExists :: !(Maybe Bool)- , _lrrsCount :: !(Maybe Int)- , _lrrsRecords :: !(Maybe [Record])- , _lrrsNextToken :: !(Maybe Text)- , _lrrsMergedDatasetNames :: !(Maybe [Text])- , _lrrsSyncSessionToken :: !(Maybe Text)- , _lrrsLastModifiedBy :: !(Maybe Text)- , _lrrsDatasetSyncCount :: !(Maybe Integer)- , _lrrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _lrrsDatasetDeletedAfterRequestedSyncCount :: !(Maybe Bool)+ , _lrrsDatasetExists :: !(Maybe Bool)+ , _lrrsCount :: !(Maybe Int)+ , _lrrsRecords :: !(Maybe [Record])+ , _lrrsNextToken :: !(Maybe Text)+ , _lrrsMergedDatasetNames :: !(Maybe [Text])+ , _lrrsSyncSessionToken :: !(Maybe Text)+ , _lrrsLastModifiedBy :: !(Maybe Text)+ , _lrrsDatasetSyncCount :: !(Maybe Integer)+ , _lrrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListRecordsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -221,19 +224,20 @@ :: Int -- ^ 'lrrsResponseStatus' -> ListRecordsResponse listRecordsResponse pResponseStatus_ =- ListRecordsResponse'- { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing- , _lrrsDatasetExists = Nothing- , _lrrsCount = Nothing- , _lrrsRecords = Nothing- , _lrrsNextToken = Nothing- , _lrrsMergedDatasetNames = Nothing- , _lrrsSyncSessionToken = Nothing- , _lrrsLastModifiedBy = Nothing- , _lrrsDatasetSyncCount = Nothing- , _lrrsResponseStatus = pResponseStatus_- }+ ListRecordsResponse'+ { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing+ , _lrrsDatasetExists = Nothing+ , _lrrsCount = Nothing+ , _lrrsRecords = Nothing+ , _lrrsNextToken = Nothing+ , _lrrsMergedDatasetNames = Nothing+ , _lrrsSyncSessionToken = Nothing+ , _lrrsLastModifiedBy = Nothing+ , _lrrsDatasetSyncCount = Nothing+ , _lrrsResponseStatus = pResponseStatus_+ } + -- | A boolean value specifying whether to delete the dataset locally. lrrsDatasetDeletedAfterRequestedSyncCount :: Lens' ListRecordsResponse (Maybe Bool) lrrsDatasetDeletedAfterRequestedSyncCount = lens _lrrsDatasetDeletedAfterRequestedSyncCount (\ s a -> s{_lrrsDatasetDeletedAfterRequestedSyncCount = a});@@ -274,4 +278,4 @@ lrrsResponseStatus :: Lens' ListRecordsResponse Int lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a}); -instance NFData ListRecordsResponse+instance NFData ListRecordsResponse where
gen/Network/AWS/CognitoSync/RegisterDevice.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.RegisterDevice--- 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) --@@ -42,12 +42,12 @@ , rdrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to RegisterDevice. --@@ -55,12 +55,13 @@ -- -- /See:/ 'registerDevice' smart constructor. data RegisterDevice = RegisterDevice'- { _rdIdentityPoolId :: !Text- , _rdIdentityId :: !Text- , _rdPlatform :: !Platform- , _rdToken :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdIdentityPoolId :: !Text+ , _rdIdentityId :: !Text+ , _rdPlatform :: !Platform+ , _rdToken :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDevice' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -79,13 +80,14 @@ -> Text -- ^ 'rdToken' -> RegisterDevice registerDevice pIdentityPoolId_ pIdentityId_ pPlatform_ pToken_ =- RegisterDevice'- { _rdIdentityPoolId = pIdentityPoolId_- , _rdIdentityId = pIdentityId_- , _rdPlatform = pPlatform_- , _rdToken = pToken_- }+ RegisterDevice'+ { _rdIdentityPoolId = pIdentityPoolId_+ , _rdIdentityId = pIdentityId_+ , _rdPlatform = pPlatform_+ , _rdToken = pToken_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. Here, the ID of the pool that the identity belongs to. rdIdentityPoolId :: Lens' RegisterDevice Text rdIdentityPoolId = lens _rdIdentityPoolId (\ s a -> s{_rdIdentityPoolId = a});@@ -111,9 +113,9 @@ RegisterDeviceResponse' <$> (x .?> "DeviceId") <*> (pure (fromEnum s))) -instance Hashable RegisterDevice+instance Hashable RegisterDevice where -instance NFData RegisterDevice+instance NFData RegisterDevice where instance ToHeaders RegisterDevice where toHeaders@@ -144,10 +146,11 @@ -- -- /See:/ 'registerDeviceResponse' smart constructor. data RegisterDeviceResponse = RegisterDeviceResponse'- { _rdrsDeviceId :: !(Maybe Text)- , _rdrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rdrsDeviceId :: !(Maybe Text)+ , _rdrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterDeviceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -159,11 +162,10 @@ :: Int -- ^ 'rdrsResponseStatus' -> RegisterDeviceResponse registerDeviceResponse pResponseStatus_ =- RegisterDeviceResponse'- { _rdrsDeviceId = Nothing- , _rdrsResponseStatus = pResponseStatus_- }+ RegisterDeviceResponse'+ {_rdrsDeviceId = Nothing, _rdrsResponseStatus = pResponseStatus_} + -- | The unique ID generated for this device by Cognito. rdrsDeviceId :: Lens' RegisterDeviceResponse (Maybe Text) rdrsDeviceId = lens _rdrsDeviceId (\ s a -> s{_rdrsDeviceId = a});@@ -172,4 +174,4 @@ rdrsResponseStatus :: Lens' RegisterDeviceResponse Int rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a}); -instance NFData RegisterDeviceResponse+instance NFData RegisterDeviceResponse where
gen/Network/AWS/CognitoSync/SetCognitoEvents.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.SetCognitoEvents--- 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 @@ , SetCognitoEventsResponse ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to configure Cognito Events" --@@ -50,10 +50,11 @@ -- -- /See:/ 'setCognitoEvents' smart constructor. data SetCognitoEvents = SetCognitoEvents'- { _sceIdentityPoolId :: !Text- , _sceEvents :: !(Map Text Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sceIdentityPoolId :: !Text+ , _sceEvents :: !(Map Text Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetCognitoEvents' 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 -- ^ 'sceIdentityPoolId' -> SetCognitoEvents setCognitoEvents pIdentityPoolId_ =- SetCognitoEvents'- { _sceIdentityPoolId = pIdentityPoolId_- , _sceEvents = mempty- }+ SetCognitoEvents' {_sceIdentityPoolId = pIdentityPoolId_, _sceEvents = mempty} + -- | The Cognito Identity Pool to use when configuring Cognito Events sceIdentityPoolId :: Lens' SetCognitoEvents Text sceIdentityPoolId = lens _sceIdentityPoolId (\ s a -> s{_sceIdentityPoolId = a});@@ -83,9 +82,9 @@ request = postJSON cognitoSync response = receiveNull SetCognitoEventsResponse' -instance Hashable SetCognitoEvents+instance Hashable SetCognitoEvents where -instance NFData SetCognitoEvents+instance NFData SetCognitoEvents where instance ToHeaders SetCognitoEvents where toHeaders@@ -109,13 +108,15 @@ -- | /See:/ 'setCognitoEventsResponse' smart constructor. data SetCognitoEventsResponse =- SetCognitoEventsResponse'- deriving (Eq,Read,Show,Data,Typeable,Generic)+ SetCognitoEventsResponse'+ deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetCognitoEventsResponse' with the minimum fields required to make a request. -- setCognitoEventsResponse :: SetCognitoEventsResponse setCognitoEventsResponse = SetCognitoEventsResponse' -instance NFData SetCognitoEventsResponse++instance NFData SetCognitoEventsResponse where
gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.SetIdentityPoolConfiguration--- 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) --@@ -43,12 +43,12 @@ , sipcrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | The input for the SetIdentityPoolConfiguration operation. --@@ -56,11 +56,12 @@ -- -- /See:/ 'setIdentityPoolConfiguration' smart constructor. data SetIdentityPoolConfiguration = SetIdentityPoolConfiguration'- { _sipcCognitoStreams :: !(Maybe CognitoStreams)- , _sipcPushSync :: !(Maybe PushSync)- , _sipcIdentityPoolId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sipcCognitoStreams :: !(Maybe CognitoStreams)+ , _sipcPushSync :: !(Maybe PushSync)+ , _sipcIdentityPoolId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityPoolConfiguration' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,12 +75,13 @@ :: Text -- ^ 'sipcIdentityPoolId' -> SetIdentityPoolConfiguration setIdentityPoolConfiguration pIdentityPoolId_ =- SetIdentityPoolConfiguration'- { _sipcCognitoStreams = Nothing- , _sipcPushSync = Nothing- , _sipcIdentityPoolId = pIdentityPoolId_- }+ SetIdentityPoolConfiguration'+ { _sipcCognitoStreams = Nothing+ , _sipcPushSync = Nothing+ , _sipcIdentityPoolId = pIdentityPoolId_+ } + -- | Options to apply to this identity pool for Amazon Cognito streams. sipcCognitoStreams :: Lens' SetIdentityPoolConfiguration (Maybe CognitoStreams) sipcCognitoStreams = lens _sipcCognitoStreams (\ s a -> s{_sipcCognitoStreams = a});@@ -105,9 +107,9 @@ <*> (x .?> "PushSync") <*> (pure (fromEnum s))) -instance Hashable SetIdentityPoolConfiguration+instance Hashable SetIdentityPoolConfiguration where -instance NFData SetIdentityPoolConfiguration+instance NFData SetIdentityPoolConfiguration where instance ToHeaders SetIdentityPoolConfiguration where toHeaders@@ -138,12 +140,13 @@ -- -- /See:/ 'setIdentityPoolConfigurationResponse' smart constructor. data SetIdentityPoolConfigurationResponse = SetIdentityPoolConfigurationResponse'- { _sipcrsIdentityPoolId :: !(Maybe Text)- , _sipcrsCognitoStreams :: !(Maybe CognitoStreams)- , _sipcrsPushSync :: !(Maybe PushSync)- , _sipcrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _sipcrsIdentityPoolId :: !(Maybe Text)+ , _sipcrsCognitoStreams :: !(Maybe CognitoStreams)+ , _sipcrsPushSync :: !(Maybe PushSync)+ , _sipcrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetIdentityPoolConfigurationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -159,13 +162,14 @@ :: Int -- ^ 'sipcrsResponseStatus' -> SetIdentityPoolConfigurationResponse setIdentityPoolConfigurationResponse pResponseStatus_ =- SetIdentityPoolConfigurationResponse'- { _sipcrsIdentityPoolId = Nothing- , _sipcrsCognitoStreams = Nothing- , _sipcrsPushSync = Nothing- , _sipcrsResponseStatus = pResponseStatus_- }+ SetIdentityPoolConfigurationResponse'+ { _sipcrsIdentityPoolId = Nothing+ , _sipcrsCognitoStreams = Nothing+ , _sipcrsPushSync = Nothing+ , _sipcrsResponseStatus = pResponseStatus_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. sipcrsIdentityPoolId :: Lens' SetIdentityPoolConfigurationResponse (Maybe Text) sipcrsIdentityPoolId = lens _sipcrsIdentityPoolId (\ s a -> s{_sipcrsIdentityPoolId = a});@@ -183,3 +187,4 @@ sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a}); instance NFData SetIdentityPoolConfigurationResponse+ where
gen/Network/AWS/CognitoSync/SubscribeToDataset.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.SubscribeToDataset--- 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 @@ , stdrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to SubscribeToDatasetRequest. --@@ -54,12 +54,13 @@ -- -- /See:/ 'subscribeToDataset' smart constructor. data SubscribeToDataset = SubscribeToDataset'- { _stdIdentityPoolId :: !Text- , _stdIdentityId :: !Text- , _stdDatasetName :: !Text- , _stdDeviceId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _stdIdentityPoolId :: !Text+ , _stdIdentityId :: !Text+ , _stdDatasetName :: !Text+ , _stdDeviceId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscribeToDataset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,13 +79,14 @@ -> Text -- ^ 'stdDeviceId' -> SubscribeToDataset subscribeToDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =- SubscribeToDataset'- { _stdIdentityPoolId = pIdentityPoolId_- , _stdIdentityId = pIdentityId_- , _stdDatasetName = pDatasetName_- , _stdDeviceId = pDeviceId_- }+ SubscribeToDataset'+ { _stdIdentityPoolId = pIdentityPoolId_+ , _stdIdentityId = pIdentityId_+ , _stdDatasetName = pDatasetName_+ , _stdDeviceId = pDeviceId_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which the identity belongs. stdIdentityPoolId :: Lens' SubscribeToDataset Text stdIdentityPoolId = lens _stdIdentityPoolId (\ s a -> s{_stdIdentityPoolId = a});@@ -110,9 +112,9 @@ (\ s h x -> SubscribeToDatasetResponse' <$> (pure (fromEnum s))) -instance Hashable SubscribeToDataset+instance Hashable SubscribeToDataset where -instance NFData SubscribeToDataset+instance NFData SubscribeToDataset where instance ToHeaders SubscribeToDataset where toHeaders@@ -141,9 +143,10 @@ -- -- /See:/ 'subscribeToDatasetResponse' smart constructor. newtype SubscribeToDatasetResponse = SubscribeToDatasetResponse'- { _stdrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _stdrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SubscribeToDatasetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,12 +156,11 @@ :: Int -- ^ 'stdrsResponseStatus' -> SubscribeToDatasetResponse subscribeToDatasetResponse pResponseStatus_ =- SubscribeToDatasetResponse'- { _stdrsResponseStatus = pResponseStatus_- }+ SubscribeToDatasetResponse' {_stdrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. stdrsResponseStatus :: Lens' SubscribeToDatasetResponse Int stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a}); -instance NFData SubscribeToDatasetResponse+instance NFData SubscribeToDatasetResponse where
gen/Network/AWS/CognitoSync/Types.hs view
@@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.CognitoSync.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) --@@ -103,38 +103,40 @@ , rpSyncCount ) where -import Network.AWS.CognitoSync.Types.Product-import Network.AWS.CognitoSync.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Sign.V4+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.CognitoSync.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Sign.V4 -- | API version @2014-06-30@ of the Amazon Cognito Sync SDK configuration. cognitoSync :: Service cognitoSync =- Service- { _svcAbbrev = "CognitoSync"- , _svcSigner = v4- , _svcPrefix = "cognito-sync"- , _svcVersion = "2014-06-30"- , _svcEndpoint = defaultEndpoint cognitoSync- , _svcTimeout = Just 70- , _svcCheck = statusSuccess- , _svcError = parseJSONError "CognitoSync"- , _svcRetry = retry- }+ Service+ { _svcAbbrev = "CognitoSync"+ , _svcSigner = v4+ , _svcPrefix = "cognito-sync"+ , _svcVersion = "2014-06-30"+ , _svcEndpoint = defaultEndpoint cognitoSync+ , _svcTimeout = Just 70+ , _svcCheck = statusSuccess+ , _svcError = parseJSONError "CognitoSync"+ , _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"@@ -143,73 +145,87 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | Thrown when a request parameter does not comply with the associated constraints. _InvalidParameterException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidParameterException =- _ServiceError . hasStatus 400 . hasCode "InvalidParameter"+ _MatchServiceError cognitoSync "InvalidParameter" . hasStatus 400 + -- | Thrown when a user is not authorized to access the requested resource. _NotAuthorizedException :: AsError a => Getting (First ServiceError) a ServiceError _NotAuthorizedException =- _ServiceError . hasStatus 403 . hasCode "NotAuthorizedError"+ _MatchServiceError cognitoSync "NotAuthorizedError" . hasStatus 403 + -- | Indicates an internal service error. _InternalErrorException :: AsError a => Getting (First ServiceError) a ServiceError _InternalErrorException =- _ServiceError . hasStatus 500 . hasCode "InternalError"+ _MatchServiceError cognitoSync "InternalError" . hasStatus 500 + -- | Prism for InvalidConfigurationException' errors. _InvalidConfigurationException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidConfigurationException =- _ServiceError . hasStatus 400 . hasCode "InvalidConfiguration"+ _MatchServiceError cognitoSync "InvalidConfiguration" . hasStatus 400 + -- | An exception thrown when there is an IN_PROGRESS bulk publish operation for the given identity pool. _DuplicateRequestException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicateRequestException =- _ServiceError . hasStatus 400 . hasCode "DuplicateRequest"+ _MatchServiceError cognitoSync "DuplicateRequest" . hasStatus 400 + -- | AWS Lambda throttled your account, please contact AWS Support -- -- _LambdaThrottledException :: AsError a => Getting (First ServiceError) a ServiceError _LambdaThrottledException =- _ServiceError . hasStatus 429 . hasCode "LambdaThrottled"+ _MatchServiceError cognitoSync "LambdaThrottled" . hasStatus 429 + -- | An exception thrown when a bulk publish operation is requested less than 24 hours after a previous bulk publish operation completed successfully. _AlreadyStreamedException :: AsError a => Getting (First ServiceError) a ServiceError _AlreadyStreamedException =- _ServiceError . hasStatus 400 . hasCode "AlreadyStreamed"+ _MatchServiceError cognitoSync "AlreadyStreamed" . hasStatus 400 + -- | The AWS Lambda function returned invalid output or an exception. -- -- _InvalidLambdaFunctionOutputException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidLambdaFunctionOutputException =- _ServiceError . hasStatus 400 . hasCode "InvalidLambdaFunctionOutput"+ _MatchServiceError cognitoSync "InvalidLambdaFunctionOutput" . hasStatus 400 + -- | Thrown if the request is throttled. _TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyRequestsException =- _ServiceError . hasStatus 429 . hasCode "TooManyRequests"+ _MatchServiceError cognitoSync "TooManyRequests" . hasStatus 429 + -- | Thrown if there are parallel requests to modify a resource. -- -- _ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError _ConcurrentModificationException =- _ServiceError . hasStatus 400 . hasCode "ConcurrentModification"+ _MatchServiceError cognitoSync "ConcurrentModification" . hasStatus 400 + -- | Thrown if an update can't be applied because the resource was changed by another call and this would result in a conflict. _ResourceConflictException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceConflictException =- _ServiceError . hasStatus 409 . hasCode "ResourceConflict"+ _MatchServiceError cognitoSync "ResourceConflict" . hasStatus 409 + -- | Thrown if the resource doesn't exist. _ResourceNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ResourceNotFoundException =- _ServiceError . hasStatus 404 . hasCode "ResourceNotFound"+ _MatchServiceError cognitoSync "ResourceNotFound" . hasStatus 404 + -- | Thrown when the limit on the number of objects or operations has been exceeded. _LimitExceededException :: AsError a => Getting (First ServiceError) a ServiceError _LimitExceededException =- _ServiceError . hasStatus 400 . hasCode "LimitExceeded"+ _MatchServiceError cognitoSync "LimitExceeded" . hasStatus 400+
gen/Network/AWS/CognitoSync/Types/Product.hs view
@@ -9,27 +9,28 @@ -- | -- Module : Network.AWS.CognitoSync.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.CognitoSync.Types.Product where -import Network.AWS.CognitoSync.Types.Sum-import Network.AWS.Lens-import Network.AWS.Prelude+import Network.AWS.CognitoSync.Types.Sum+import Network.AWS.Lens+import Network.AWS.Prelude -- | Configuration options for configure Cognito streams. -- -- /See:/ 'cognitoStreams' smart constructor. data CognitoStreams = CognitoStreams'- { _csStreamingStatus :: !(Maybe StreamingStatus)- , _csStreamName :: !(Maybe Text)- , _csRoleARN :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _csStreamingStatus :: !(Maybe StreamingStatus)+ , _csStreamName :: !(Maybe Text)+ , _csRoleARN :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CognitoStreams' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -42,12 +43,10 @@ cognitoStreams :: CognitoStreams cognitoStreams =- CognitoStreams'- { _csStreamingStatus = Nothing- , _csStreamName = Nothing- , _csRoleARN = Nothing- }+ CognitoStreams'+ {_csStreamingStatus = Nothing, _csStreamName = Nothing, _csRoleARN = Nothing} + -- | Status of the Cognito streams. Valid values are: ENABLED - Streaming of updates to identity pool is enabled. DISABLED - Streaming of updates to identity pool is disabled. Bulk publish will also fail if StreamingStatus is DISABLED. csStreamingStatus :: Lens' CognitoStreams (Maybe StreamingStatus) csStreamingStatus = lens _csStreamingStatus (\ s a -> s{_csStreamingStatus = a});@@ -68,9 +67,9 @@ (x .:? "StreamingStatus") <*> (x .:? "StreamName") <*> (x .:? "RoleArn")) -instance Hashable CognitoStreams+instance Hashable CognitoStreams where -instance NFData CognitoStreams+instance NFData CognitoStreams where instance ToJSON CognitoStreams where toJSON CognitoStreams'{..}@@ -84,15 +83,16 @@ -- -- /See:/ 'dataset' smart constructor. data Dataset = Dataset'- { _dLastModifiedDate :: !(Maybe POSIX)- , _dNumRecords :: !(Maybe Integer)- , _dDataStorage :: !(Maybe Integer)- , _dDatasetName :: !(Maybe Text)- , _dCreationDate :: !(Maybe POSIX)- , _dLastModifiedBy :: !(Maybe Text)- , _dIdentityId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _dLastModifiedDate :: !(Maybe POSIX)+ , _dNumRecords :: !(Maybe Integer)+ , _dDataStorage :: !(Maybe Integer)+ , _dDatasetName :: !(Maybe Text)+ , _dCreationDate :: !(Maybe POSIX)+ , _dLastModifiedBy :: !(Maybe Text)+ , _dIdentityId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Dataset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -113,16 +113,17 @@ dataset :: Dataset dataset =- Dataset'- { _dLastModifiedDate = Nothing- , _dNumRecords = Nothing- , _dDataStorage = Nothing- , _dDatasetName = Nothing- , _dCreationDate = Nothing- , _dLastModifiedBy = Nothing- , _dIdentityId = Nothing- }+ Dataset'+ { _dLastModifiedDate = Nothing+ , _dNumRecords = Nothing+ , _dDataStorage = Nothing+ , _dDatasetName = Nothing+ , _dCreationDate = Nothing+ , _dLastModifiedBy = Nothing+ , _dIdentityId = Nothing+ } + -- | Date when the dataset was last modified. dLastModifiedDate :: Lens' Dataset (Maybe UTCTime) dLastModifiedDate = lens _dLastModifiedDate (\ s a -> s{_dLastModifiedDate = a}) . mapping _Time;@@ -163,20 +164,21 @@ <*> (x .:? "LastModifiedBy") <*> (x .:? "IdentityId")) -instance Hashable Dataset+instance Hashable Dataset where -instance NFData Dataset+instance NFData Dataset where -- | Usage information for the identity pool. -- -- /See:/ 'identityPoolUsage' smart constructor. data IdentityPoolUsage = IdentityPoolUsage'- { _ipuLastModifiedDate :: !(Maybe POSIX)- , _ipuIdentityPoolId :: !(Maybe Text)- , _ipuDataStorage :: !(Maybe Integer)- , _ipuSyncSessionsCount :: !(Maybe Integer)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ipuLastModifiedDate :: !(Maybe POSIX)+ , _ipuIdentityPoolId :: !(Maybe Text)+ , _ipuDataStorage :: !(Maybe Integer)+ , _ipuSyncSessionsCount :: !(Maybe Integer)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IdentityPoolUsage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -191,13 +193,14 @@ identityPoolUsage :: IdentityPoolUsage identityPoolUsage =- IdentityPoolUsage'- { _ipuLastModifiedDate = Nothing- , _ipuIdentityPoolId = Nothing- , _ipuDataStorage = Nothing- , _ipuSyncSessionsCount = Nothing- }+ IdentityPoolUsage'+ { _ipuLastModifiedDate = Nothing+ , _ipuIdentityPoolId = Nothing+ , _ipuDataStorage = Nothing+ , _ipuSyncSessionsCount = Nothing+ } + -- | Date on which the identity pool was last modified. ipuLastModifiedDate :: Lens' IdentityPoolUsage (Maybe UTCTime) ipuLastModifiedDate = lens _ipuLastModifiedDate (\ s a -> s{_ipuLastModifiedDate = a}) . mapping _Time;@@ -224,21 +227,22 @@ <*> (x .:? "DataStorage") <*> (x .:? "SyncSessionsCount")) -instance Hashable IdentityPoolUsage+instance Hashable IdentityPoolUsage where -instance NFData IdentityPoolUsage+instance NFData IdentityPoolUsage where -- | Usage information for the identity. -- -- /See:/ 'identityUsage' smart constructor. data IdentityUsage = IdentityUsage'- { _iuLastModifiedDate :: !(Maybe POSIX)- , _iuIdentityPoolId :: !(Maybe Text)- , _iuDatasetCount :: !(Maybe Int)- , _iuDataStorage :: !(Maybe Integer)- , _iuIdentityId :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _iuLastModifiedDate :: !(Maybe POSIX)+ , _iuIdentityPoolId :: !(Maybe Text)+ , _iuDatasetCount :: !(Maybe Int)+ , _iuDataStorage :: !(Maybe Integer)+ , _iuIdentityId :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'IdentityUsage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -255,14 +259,15 @@ identityUsage :: IdentityUsage identityUsage =- IdentityUsage'- { _iuLastModifiedDate = Nothing- , _iuIdentityPoolId = Nothing- , _iuDatasetCount = Nothing- , _iuDataStorage = Nothing- , _iuIdentityId = Nothing- }+ IdentityUsage'+ { _iuLastModifiedDate = Nothing+ , _iuIdentityPoolId = Nothing+ , _iuDatasetCount = Nothing+ , _iuDataStorage = Nothing+ , _iuIdentityId = Nothing+ } + -- | Date on which the identity was last modified. iuLastModifiedDate :: Lens' IdentityUsage (Maybe UTCTime) iuLastModifiedDate = lens _iuLastModifiedDate (\ s a -> s{_iuLastModifiedDate = a}) . mapping _Time;@@ -294,9 +299,9 @@ <*> (x .:? "DataStorage") <*> (x .:? "IdentityId")) -instance Hashable IdentityUsage+instance Hashable IdentityUsage where -instance NFData IdentityUsage+instance NFData IdentityUsage where -- | Configuration options to be applied to the identity pool. --@@ -304,10 +309,11 @@ -- -- /See:/ 'pushSync' smart constructor. data PushSync = PushSync'- { _psApplicationARNs :: !(Maybe [Text])- , _psRoleARN :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _psApplicationARNs :: !(Maybe [Text])+ , _psRoleARN :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PushSync' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -317,12 +323,9 @@ -- * 'psRoleARN' - A role configured to allow Cognito to call SNS on behalf of the developer. pushSync :: PushSync-pushSync =- PushSync'- { _psApplicationARNs = Nothing- , _psRoleARN = Nothing- }+pushSync = PushSync' {_psApplicationARNs = Nothing, _psRoleARN = Nothing} + -- | List of SNS platform application ARNs that could be used by clients. psApplicationARNs :: Lens' PushSync [Text] psApplicationARNs = lens _psApplicationARNs (\ s a -> s{_psApplicationARNs = a}) . _Default . _Coerce;@@ -339,9 +342,9 @@ (x .:? "ApplicationArns" .!= mempty) <*> (x .:? "RoleArn")) -instance Hashable PushSync+instance Hashable PushSync where -instance NFData PushSync+instance NFData PushSync where instance ToJSON PushSync where toJSON PushSync'{..}@@ -354,14 +357,15 @@ -- -- /See:/ 'record' smart constructor. data Record = Record'- { _rSyncCount :: !(Maybe Integer)- , _rDeviceLastModifiedDate :: !(Maybe POSIX)- , _rLastModifiedDate :: !(Maybe POSIX)- , _rValue :: !(Maybe Text)- , _rKey :: !(Maybe Text)- , _rLastModifiedBy :: !(Maybe Text)- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rSyncCount :: !(Maybe Integer)+ , _rDeviceLastModifiedDate :: !(Maybe POSIX)+ , _rLastModifiedDate :: !(Maybe POSIX)+ , _rValue :: !(Maybe Text)+ , _rKey :: !(Maybe Text)+ , _rLastModifiedBy :: !(Maybe Text)+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Record' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -380,15 +384,16 @@ record :: Record record =- Record'- { _rSyncCount = Nothing- , _rDeviceLastModifiedDate = Nothing- , _rLastModifiedDate = Nothing- , _rValue = Nothing- , _rKey = Nothing- , _rLastModifiedBy = Nothing- }+ Record'+ { _rSyncCount = Nothing+ , _rDeviceLastModifiedDate = Nothing+ , _rLastModifiedDate = Nothing+ , _rValue = Nothing+ , _rKey = Nothing+ , _rLastModifiedBy = Nothing+ } + -- | The server sync count for this record. rSyncCount :: Lens' Record (Maybe Integer) rSyncCount = lens _rSyncCount (\ s a -> s{_rSyncCount = a});@@ -425,21 +430,22 @@ <*> (x .:? "Key") <*> (x .:? "LastModifiedBy")) -instance Hashable Record+instance Hashable Record where -instance NFData Record+instance NFData Record where -- | An update operation for a record. -- -- /See:/ 'recordPatch' smart constructor. data RecordPatch = RecordPatch'- { _rpDeviceLastModifiedDate :: !(Maybe POSIX)- , _rpValue :: !(Maybe Text)- , _rpOp :: !Operation- , _rpKey :: !Text- , _rpSyncCount :: !Integer- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _rpDeviceLastModifiedDate :: !(Maybe POSIX)+ , _rpValue :: !(Maybe Text)+ , _rpOp :: !Operation+ , _rpKey :: !Text+ , _rpSyncCount :: !Integer+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RecordPatch' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -459,14 +465,15 @@ -> Integer -- ^ 'rpSyncCount' -> RecordPatch recordPatch pOp_ pKey_ pSyncCount_ =- RecordPatch'- { _rpDeviceLastModifiedDate = Nothing- , _rpValue = Nothing- , _rpOp = pOp_- , _rpKey = pKey_- , _rpSyncCount = pSyncCount_- }+ RecordPatch'+ { _rpDeviceLastModifiedDate = Nothing+ , _rpValue = Nothing+ , _rpOp = pOp_+ , _rpKey = pKey_+ , _rpSyncCount = pSyncCount_+ } + -- | The last modified date of the client device. rpDeviceLastModifiedDate :: Lens' RecordPatch (Maybe UTCTime) rpDeviceLastModifiedDate = lens _rpDeviceLastModifiedDate (\ s a -> s{_rpDeviceLastModifiedDate = a}) . mapping _Time;@@ -487,9 +494,9 @@ rpSyncCount :: Lens' RecordPatch Integer rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a}); -instance Hashable RecordPatch+instance Hashable RecordPatch where -instance NFData RecordPatch+instance NFData RecordPatch where instance ToJSON RecordPatch where toJSON RecordPatch'{..}
gen/Network/AWS/CognitoSync/Types/Sum.hs view
@@ -9,23 +9,24 @@ -- | -- Module : Network.AWS.CognitoSync.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.CognitoSync.Types.Sum where -import Network.AWS.Prelude+import Network.AWS.Prelude data BulkPublishStatus- = Failed- | InProgress- | NotStarted- | Succeeded- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Failed+ | InProgress+ | NotStarted+ | Succeeded+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText BulkPublishStatus where parser = takeLowerText >>= \case "failed" -> pure Failed@@ -52,10 +53,11 @@ parseJSON = parseJSONText "BulkPublishStatus" data Operation- = Remove- | Replace- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Remove+ | Replace+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Operation where parser = takeLowerText >>= \case "remove" -> pure Remove@@ -78,12 +80,13 @@ toJSON = toJSONText data Platform- = ADM- | APNS- | APNSSandbox- | GCM- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = ADM+ | APNS+ | APNSSandbox+ | GCM+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + instance FromText Platform where parser = takeLowerText >>= \case "adm" -> pure ADM@@ -110,9 +113,10 @@ toJSON = toJSONText data StreamingStatus- = Disabled- | Enabled- deriving (Eq,Ord,Read,Show,Enum,Bounded,Data,Typeable,Generic)+ = Disabled+ | Enabled+ deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+ instance FromText StreamingStatus where parser = takeLowerText >>= \case
gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.UnsubscribeFromDataset--- 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 @@ , ufdrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to UnsubscribeFromDataset. --@@ -54,12 +54,13 @@ -- -- /See:/ 'unsubscribeFromDataset' smart constructor. data UnsubscribeFromDataset = UnsubscribeFromDataset'- { _ufdIdentityPoolId :: !Text- , _ufdIdentityId :: !Text- , _ufdDatasetName :: !Text- , _ufdDeviceId :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ufdIdentityPoolId :: !Text+ , _ufdIdentityId :: !Text+ , _ufdDatasetName :: !Text+ , _ufdDeviceId :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnsubscribeFromDataset' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,13 +79,14 @@ -> Text -- ^ 'ufdDeviceId' -> UnsubscribeFromDataset unsubscribeFromDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =- UnsubscribeFromDataset'- { _ufdIdentityPoolId = pIdentityPoolId_- , _ufdIdentityId = pIdentityId_- , _ufdDatasetName = pDatasetName_- , _ufdDeviceId = pDeviceId_- }+ UnsubscribeFromDataset'+ { _ufdIdentityPoolId = pIdentityPoolId_+ , _ufdIdentityId = pIdentityId_+ , _ufdDatasetName = pDatasetName_+ , _ufdDeviceId = pDeviceId_+ } + -- | A name-spaced GUID (for example, us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. The ID of the pool to which this identity belongs. ufdIdentityPoolId :: Lens' UnsubscribeFromDataset Text ufdIdentityPoolId = lens _ufdIdentityPoolId (\ s a -> s{_ufdIdentityPoolId = a});@@ -111,9 +113,9 @@ UnsubscribeFromDatasetResponse' <$> (pure (fromEnum s))) -instance Hashable UnsubscribeFromDataset+instance Hashable UnsubscribeFromDataset where -instance NFData UnsubscribeFromDataset+instance NFData UnsubscribeFromDataset where instance ToHeaders UnsubscribeFromDataset where toHeaders@@ -139,9 +141,10 @@ -- -- /See:/ 'unsubscribeFromDatasetResponse' smart constructor. newtype UnsubscribeFromDatasetResponse = UnsubscribeFromDatasetResponse'- { _ufdrsResponseStatus :: Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _ufdrsResponseStatus :: Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UnsubscribeFromDatasetResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -151,12 +154,11 @@ :: Int -- ^ 'ufdrsResponseStatus' -> UnsubscribeFromDatasetResponse unsubscribeFromDatasetResponse pResponseStatus_ =- UnsubscribeFromDatasetResponse'- { _ufdrsResponseStatus = pResponseStatus_- }+ UnsubscribeFromDatasetResponse' {_ufdrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. ufdrsResponseStatus :: Lens' UnsubscribeFromDatasetResponse Int ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a}); -instance NFData UnsubscribeFromDatasetResponse+instance NFData UnsubscribeFromDatasetResponse where
gen/Network/AWS/CognitoSync/UpdateRecords.hs view
@@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.CognitoSync.UpdateRecords--- 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) --@@ -49,26 +49,27 @@ , urrsResponseStatus ) where -import Network.AWS.CognitoSync.Types-import Network.AWS.CognitoSync.Types.Product-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Request-import Network.AWS.Response+import Network.AWS.CognitoSync.Types+import Network.AWS.CognitoSync.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response -- | A request to post updates to records or add and delete records for a dataset and user. -- -- /See:/ 'updateRecords' smart constructor. data UpdateRecords = UpdateRecords'- { _urRecordPatches :: !(Maybe [RecordPatch])- , _urDeviceId :: !(Maybe Text)- , _urClientContext :: !(Maybe Text)- , _urIdentityPoolId :: !Text- , _urIdentityId :: !Text- , _urDatasetName :: !Text- , _urSyncSessionToken :: !Text- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _urRecordPatches :: !(Maybe [RecordPatch])+ , _urDeviceId :: !(Maybe Text)+ , _urClientContext :: !(Maybe Text)+ , _urIdentityPoolId :: !Text+ , _urIdentityId :: !Text+ , _urDatasetName :: !Text+ , _urSyncSessionToken :: !Text+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateRecords' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,16 +94,17 @@ -> Text -- ^ 'urSyncSessionToken' -> UpdateRecords updateRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ pSyncSessionToken_ =- UpdateRecords'- { _urRecordPatches = Nothing- , _urDeviceId = Nothing- , _urClientContext = Nothing- , _urIdentityPoolId = pIdentityPoolId_- , _urIdentityId = pIdentityId_- , _urDatasetName = pDatasetName_- , _urSyncSessionToken = pSyncSessionToken_- }+ UpdateRecords'+ { _urRecordPatches = Nothing+ , _urDeviceId = Nothing+ , _urClientContext = Nothing+ , _urIdentityPoolId = pIdentityPoolId_+ , _urIdentityId = pIdentityId_+ , _urDatasetName = pDatasetName_+ , _urSyncSessionToken = pSyncSessionToken_+ } + -- | A list of patch operations. urRecordPatches :: Lens' UpdateRecords [RecordPatch] urRecordPatches = lens _urRecordPatches (\ s a -> s{_urRecordPatches = a}) . _Default . _Coerce;@@ -140,9 +142,9 @@ UpdateRecordsResponse' <$> (x .?> "Records" .!@ mempty) <*> (pure (fromEnum s))) -instance Hashable UpdateRecords+instance Hashable UpdateRecords where -instance NFData UpdateRecords+instance NFData UpdateRecords where instance ToHeaders UpdateRecords where toHeaders UpdateRecords'{..}@@ -173,10 +175,11 @@ -- -- /See:/ 'updateRecordsResponse' smart constructor. data UpdateRecordsResponse = UpdateRecordsResponse'- { _urrsRecords :: !(Maybe [Record])- , _urrsResponseStatus :: !Int- } deriving (Eq,Read,Show,Data,Typeable,Generic)+ { _urrsRecords :: !(Maybe [Record])+ , _urrsResponseStatus :: !Int+ } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'UpdateRecordsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -188,11 +191,10 @@ :: Int -- ^ 'urrsResponseStatus' -> UpdateRecordsResponse updateRecordsResponse pResponseStatus_ =- UpdateRecordsResponse'- { _urrsRecords = Nothing- , _urrsResponseStatus = pResponseStatus_- }+ UpdateRecordsResponse'+ {_urrsRecords = Nothing, _urrsResponseStatus = pResponseStatus_} + -- | A list of records that have been updated. urrsRecords :: Lens' UpdateRecordsResponse [Record] urrsRecords = lens _urrsRecords (\ s a -> s{_urrsRecords = a}) . _Default . _Coerce;@@ -201,4 +203,4 @@ urrsResponseStatus :: Lens' UpdateRecordsResponse Int urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a}); -instance NFData UpdateRecordsResponse+instance NFData UpdateRecordsResponse where
gen/Network/AWS/CognitoSync/Waiters.hs view
@@ -7,15 +7,15 @@ -- | -- Module : Network.AWS.CognitoSync.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.CognitoSync.Waiters where -import Network.AWS.CognitoSync.Types-import Network.AWS.Lens-import Network.AWS.Prelude-import Network.AWS.Waiter+import Network.AWS.CognitoSync.Types+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Waiter
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/CognitoSync.hs view
@@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.CognitoSync--- 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.CognitoSync where import Data.Proxy+import Network.AWS.CognitoSync+import Test.AWS.CognitoSync.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty-import Network.AWS.CognitoSync-import Test.AWS.CognitoSync.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added.