diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-cognito-sync.cabal b/amazonka-cognito-sync.cabal --- a/amazonka-cognito-sync.cabal +++ b/amazonka-cognito-sync.cabal @@ -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 -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +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 diff --git a/gen/Network/AWS/CognitoSync.hs b/gen/Network/AWS/CognitoSync.hs --- a/gen/Network/AWS/CognitoSync.hs +++ b/gen/Network/AWS/CognitoSync.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/BulkPublish.hs b/gen/Network/AWS/CognitoSync/BulkPublish.hs --- a/gen/Network/AWS/CognitoSync/BulkPublish.hs +++ b/gen/Network/AWS/CognitoSync/BulkPublish.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/DeleteDataset.hs b/gen/Network/AWS/CognitoSync/DeleteDataset.hs --- a/gen/Network/AWS/CognitoSync/DeleteDataset.hs +++ b/gen/Network/AWS/CognitoSync/DeleteDataset.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/DescribeDataset.hs b/gen/Network/AWS/CognitoSync/DescribeDataset.hs --- a/gen/Network/AWS/CognitoSync/DescribeDataset.hs +++ b/gen/Network/AWS/CognitoSync/DescribeDataset.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs --- a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs +++ b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs --- a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs +++ b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs --- a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs +++ b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs --- a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs +++ b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs --- a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs +++ b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/ListDatasets.hs b/gen/Network/AWS/CognitoSync/ListDatasets.hs --- a/gen/Network/AWS/CognitoSync/ListDatasets.hs +++ b/gen/Network/AWS/CognitoSync/ListDatasets.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs --- a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs +++ b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/ListRecords.hs b/gen/Network/AWS/CognitoSync/ListRecords.hs --- a/gen/Network/AWS/CognitoSync/ListRecords.hs +++ b/gen/Network/AWS/CognitoSync/ListRecords.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs --- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs +++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs --- a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs +++ b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs --- a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs +++ b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs --- a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs +++ b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs --- a/gen/Network/AWS/CognitoSync/Types.hs +++ b/gen/Network/AWS/CognitoSync/Types.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 + diff --git a/gen/Network/AWS/CognitoSync/Types/Product.hs b/gen/Network/AWS/CognitoSync/Types/Product.hs --- a/gen/Network/AWS/CognitoSync/Types/Product.hs +++ b/gen/Network/AWS/CognitoSync/Types/Product.hs @@ -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 +-- Maintainer : Brendan Hay -- 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'{..} diff --git a/gen/Network/AWS/CognitoSync/Types/Sum.hs b/gen/Network/AWS/CognitoSync/Types/Sum.hs --- a/gen/Network/AWS/CognitoSync/Types/Sum.hs +++ b/gen/Network/AWS/CognitoSync/Types/Sum.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs --- a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs +++ b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/UpdateRecords.hs b/gen/Network/AWS/CognitoSync/UpdateRecords.hs --- a/gen/Network/AWS/CognitoSync/UpdateRecords.hs +++ b/gen/Network/AWS/CognitoSync/UpdateRecords.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/gen/Network/AWS/CognitoSync/Waiters.hs b/gen/Network/AWS/CognitoSync/Waiters.hs --- a/gen/Network/AWS/CognitoSync/Waiters.hs +++ b/gen/Network/AWS/CognitoSync/Waiters.hs @@ -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 +-- Maintainer : Brendan Hay -- 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 diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -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 +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/CognitoSync.hs b/test/Test/AWS/Gen/CognitoSync.hs --- a/test/Test/AWS/Gen/CognitoSync.hs +++ b/test/Test/AWS/Gen/CognitoSync.hs @@ -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 +-- Maintainer : Brendan Hay -- 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.