packages feed

amazonka-cognito-sync 1.5.0 → 1.6.0

raw patch · 28 files changed

+316/−309 lines, 28 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

README.md view
@@ -8,7 +8,7 @@  ## Version -`1.5.0`+`1.6.0`   ## Description
amazonka-cognito-sync.cabal view
@@ -1,5 +1,5 @@ name:                  amazonka-cognito-sync-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Cognito Sync SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -70,7 +70,7 @@         , Network.AWS.CognitoSync.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-sync-test@@ -90,8 +90,8 @@         , Test.AWS.CognitoSync.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-cognito-sync         , base         , bytestring
gen/Network/AWS/CognitoSync.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.CognitoSync--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CognitoSync/BulkPublish.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.BulkPublish--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | 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});+bpIdentityPoolId = lens _bpIdentityPoolId (\ s a -> s{_bpIdentityPoolId = a})  instance AWSRequest BulkPublish where         type Rs BulkPublish = BulkPublishResponse@@ -123,15 +123,15 @@     -> BulkPublishResponse bulkPublishResponse pResponseStatus_ =   BulkPublishResponse'-  {_bprsIdentityPoolId = Nothing, _bprsResponseStatus = pResponseStatus_}+    {_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});+bprsIdentityPoolId = lens _bprsIdentityPoolId (\ s a -> s{_bprsIdentityPoolId = a})  -- | -- | The response status code. bprsResponseStatus :: Lens' BulkPublishResponse Int-bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a});+bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a})  instance NFData BulkPublishResponse where
gen/Network/AWS/CognitoSync/DeleteDataset.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.DeleteDataset--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> DeleteDataset deleteDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =   DeleteDataset'-  { _delIdentityPoolId = pIdentityPoolId_-  , _delIdentityId = pIdentityId_-  , _delDatasetName = pDatasetName_-  }+    { _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});+delIdentityPoolId = lens _delIdentityPoolId (\ s a -> s{_delIdentityPoolId = a})  -- | 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. delIdentityId :: Lens' DeleteDataset Text-delIdentityId = lens _delIdentityId (\ s a -> s{_delIdentityId = a});+delIdentityId = lens _delIdentityId (\ s a -> s{_delIdentityId = a})  -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot). delDatasetName :: Lens' DeleteDataset Text-delDatasetName = lens _delDatasetName (\ s a -> s{_delDatasetName = a});+delDatasetName = lens _delDatasetName (\ s a -> s{_delDatasetName = a})  instance AWSRequest DeleteDataset where         type Rs DeleteDataset = DeleteDatasetResponse@@ -143,15 +143,15 @@     -> DeleteDatasetResponse deleteDatasetResponse pResponseStatus_ =   DeleteDatasetResponse'-  {_drsDataset = Nothing, _drsResponseStatus = pResponseStatus_}+    {_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});+drsDataset = lens _drsDataset (\ s a -> s{_drsDataset = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteDatasetResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteDatasetResponse where
gen/Network/AWS/CognitoSync/DescribeDataset.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.DescribeDataset--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,23 +74,23 @@     -> DescribeDataset describeDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ =   DescribeDataset'-  { _ddIdentityPoolId = pIdentityPoolId_-  , _ddIdentityId = pIdentityId_-  , _ddDatasetName = pDatasetName_-  }+    { _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});+ddIdentityPoolId = lens _ddIdentityPoolId (\ s a -> s{_ddIdentityPoolId = a})  -- | 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. ddIdentityId :: Lens' DescribeDataset Text-ddIdentityId = lens _ddIdentityId (\ s a -> s{_ddIdentityId = a});+ddIdentityId = lens _ddIdentityId (\ s a -> s{_ddIdentityId = a})  -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot). ddDatasetName :: Lens' DescribeDataset Text-ddDatasetName = lens _ddDatasetName (\ s a -> s{_ddDatasetName = a});+ddDatasetName = lens _ddDatasetName (\ s a -> s{_ddDatasetName = a})  instance AWSRequest DescribeDataset where         type Rs DescribeDataset = DescribeDatasetResponse@@ -143,15 +143,15 @@     -> DescribeDatasetResponse describeDatasetResponse pResponseStatus_ =   DescribeDatasetResponse'-  {_ddrsDataset = Nothing, _ddrsResponseStatus = pResponseStatus_}+    {_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});+ddrsDataset = lens _ddrsDataset (\ s a -> s{_ddrsDataset = a})  -- | -- | The response status code. ddrsResponseStatus :: Lens' DescribeDatasetResponse Int-ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a})  instance NFData DescribeDatasetResponse where
gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.DescribeIdentityPoolUsage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | 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});+dipuIdentityPoolId = lens _dipuIdentityPoolId (\ s a -> s{_dipuIdentityPoolId = a})  instance AWSRequest DescribeIdentityPoolUsage where         type Rs DescribeIdentityPoolUsage =@@ -120,16 +120,18 @@     -> DescribeIdentityPoolUsageResponse describeIdentityPoolUsageResponse pResponseStatus_ =   DescribeIdentityPoolUsageResponse'-  {_dipursIdentityPoolUsage = Nothing, _dipursResponseStatus = pResponseStatus_}+    { _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});+dipursIdentityPoolUsage = lens _dipursIdentityPoolUsage (\ s a -> s{_dipursIdentityPoolUsage = a})  -- | -- | The response status code. dipursResponseStatus :: Lens' DescribeIdentityPoolUsageResponse Int-dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a});+dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a})  instance NFData DescribeIdentityPoolUsageResponse          where
gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.DescribeIdentityUsage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,16 +69,16 @@     -> DescribeIdentityUsage describeIdentityUsage pIdentityPoolId_ pIdentityId_ =   DescribeIdentityUsage'-  {_diuIdentityPoolId = pIdentityPoolId_, _diuIdentityId = pIdentityId_}+    {_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});+diuIdentityPoolId = lens _diuIdentityPoolId (\ s a -> s{_diuIdentityPoolId = a})  -- | 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. diuIdentityId :: Lens' DescribeIdentityUsage Text-diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a});+diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a})  instance AWSRequest DescribeIdentityUsage where         type Rs DescribeIdentityUsage =@@ -131,15 +131,15 @@     -> DescribeIdentityUsageResponse describeIdentityUsageResponse pResponseStatus_ =   DescribeIdentityUsageResponse'-  {_diursIdentityUsage = Nothing, _diursResponseStatus = pResponseStatus_}+    {_diursIdentityUsage = Nothing, _diursResponseStatus = pResponseStatus_}   -- | Usage information for the identity. diursIdentityUsage :: Lens' DescribeIdentityUsageResponse (Maybe IdentityUsage)-diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a});+diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a})  -- | -- | The response status code. diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int-diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a});+diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a})  instance NFData DescribeIdentityUsageResponse where
gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.GetBulkPublishDetails--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | 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});+gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a})  instance AWSRequest GetBulkPublishDetails where         type Rs GetBulkPublishDetails =@@ -145,37 +145,37 @@     -> GetBulkPublishDetailsResponse getBulkPublishDetailsResponse pResponseStatus_ =   GetBulkPublishDetailsResponse'-  { _gbpdrsBulkPublishStartTime = Nothing-  , _gbpdrsIdentityPoolId = Nothing-  , _gbpdrsBulkPublishCompleteTime = Nothing-  , _gbpdrsFailureMessage = Nothing-  , _gbpdrsBulkPublishStatus = Nothing-  , _gbpdrsResponseStatus = pResponseStatus_-  }+    { _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;+gbpdrsBulkPublishStartTime = lens _gbpdrsBulkPublishStartTime (\ s a -> s{_gbpdrsBulkPublishStartTime = a}) . mapping _Time  -- | 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. gbpdrsIdentityPoolId :: Lens' GetBulkPublishDetailsResponse (Maybe Text)-gbpdrsIdentityPoolId = lens _gbpdrsIdentityPoolId (\ s a -> s{_gbpdrsIdentityPoolId = a});+gbpdrsIdentityPoolId = lens _gbpdrsIdentityPoolId (\ s a -> s{_gbpdrsIdentityPoolId = a})  -- | If BulkPublishStatus is SUCCEEDED, the time the last bulk publish operation completed. gbpdrsBulkPublishCompleteTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime)-gbpdrsBulkPublishCompleteTime = lens _gbpdrsBulkPublishCompleteTime (\ s a -> s{_gbpdrsBulkPublishCompleteTime = a}) . mapping _Time;+gbpdrsBulkPublishCompleteTime = lens _gbpdrsBulkPublishCompleteTime (\ s a -> s{_gbpdrsBulkPublishCompleteTime = a}) . mapping _Time  -- | If BulkPublishStatus is FAILED this field will contain the error message that caused the bulk publish to fail. gbpdrsFailureMessage :: Lens' GetBulkPublishDetailsResponse (Maybe Text)-gbpdrsFailureMessage = lens _gbpdrsFailureMessage (\ s a -> s{_gbpdrsFailureMessage = a});+gbpdrsFailureMessage = lens _gbpdrsFailureMessage (\ s a -> s{_gbpdrsFailureMessage = a})  -- | Status of the last bulk publish operation, valid values are: NOT_STARTED - No bulk publish has been requested for this identity pool IN_PROGRESS - Data is being published to the configured stream SUCCEEDED - All data for the identity pool has been published to the configured stream FAILED - Some portion of the data has failed to publish, check FailureMessage for the cause. gbpdrsBulkPublishStatus :: Lens' GetBulkPublishDetailsResponse (Maybe BulkPublishStatus)-gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a});+gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a})  -- | -- | The response status code. gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int-gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a});+gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a})  instance NFData GetBulkPublishDetailsResponse where
gen/Network/AWS/CognitoSync/GetCognitoEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.GetCognitoEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | The Cognito Identity Pool ID for the request gceIdentityPoolId :: Lens' GetCognitoEvents Text-gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a});+gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a})  instance AWSRequest GetCognitoEvents where         type Rs GetCognitoEvents = GetCognitoEventsResponse@@ -124,15 +124,15 @@     -> GetCognitoEventsResponse getCognitoEventsResponse pResponseStatus_ =   GetCognitoEventsResponse'-  {_gcersEvents = Nothing, _gcersResponseStatus = pResponseStatus_}+    {_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;+gcersEvents = lens _gcersEvents (\ s a -> s{_gcersEvents = a}) . _Default . _Map  -- | -- | The response status code. gcersResponseStatus :: Lens' GetCognitoEventsResponse Int-gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a});+gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a})  instance NFData GetCognitoEventsResponse where
gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.GetIdentityPoolConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | 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});+gipcIdentityPoolId = lens _gipcIdentityPoolId (\ s a -> s{_gipcIdentityPoolId = a})  instance AWSRequest GetIdentityPoolConfiguration          where@@ -136,28 +136,28 @@     -> GetIdentityPoolConfigurationResponse getIdentityPoolConfigurationResponse pResponseStatus_ =   GetIdentityPoolConfigurationResponse'-  { _gipcrsIdentityPoolId = Nothing-  , _gipcrsCognitoStreams = Nothing-  , _gipcrsPushSync = Nothing-  , _gipcrsResponseStatus = pResponseStatus_-  }+    { _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});+gipcrsIdentityPoolId = lens _gipcrsIdentityPoolId (\ s a -> s{_gipcrsIdentityPoolId = a})  -- | Options to apply to this identity pool for Amazon Cognito streams. gipcrsCognitoStreams :: Lens' GetIdentityPoolConfigurationResponse (Maybe CognitoStreams)-gipcrsCognitoStreams = lens _gipcrsCognitoStreams (\ s a -> s{_gipcrsCognitoStreams = a});+gipcrsCognitoStreams = lens _gipcrsCognitoStreams (\ s a -> s{_gipcrsCognitoStreams = a})  -- | Options to apply to this identity pool for push synchronization. gipcrsPushSync :: Lens' GetIdentityPoolConfigurationResponse (Maybe PushSync)-gipcrsPushSync = lens _gipcrsPushSync (\ s a -> s{_gipcrsPushSync = a});+gipcrsPushSync = lens _gipcrsPushSync (\ s a -> s{_gipcrsPushSync = a})  -- | -- | The response status code. gipcrsResponseStatus :: Lens' GetIdentityPoolConfigurationResponse Int-gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a});+gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a})  instance NFData GetIdentityPoolConfigurationResponse          where
gen/Network/AWS/CognitoSync/ListDatasets.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.ListDatasets--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -79,28 +79,28 @@     -> ListDatasets listDatasets pIdentityId_ pIdentityPoolId_ =   ListDatasets'-  { _ldNextToken = Nothing-  , _ldMaxResults = Nothing-  , _ldIdentityId = pIdentityId_-  , _ldIdentityPoolId = pIdentityPoolId_-  }+    { _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});+ldNextToken = lens _ldNextToken (\ s a -> s{_ldNextToken = a})  -- | The maximum number of results to be returned. ldMaxResults :: Lens' ListDatasets (Maybe Int)-ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a});+ldMaxResults = lens _ldMaxResults (\ s a -> s{_ldMaxResults = a})  -- | 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. ldIdentityId :: Lens' ListDatasets Text-ldIdentityId = lens _ldIdentityId (\ s a -> s{_ldIdentityId = a});+ldIdentityId = lens _ldIdentityId (\ s a -> s{_ldIdentityId = a})  -- | 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. ldIdentityPoolId :: Lens' ListDatasets Text-ldIdentityPoolId = lens _ldIdentityPoolId (\ s a -> s{_ldIdentityPoolId = a});+ldIdentityPoolId = lens _ldIdentityPoolId (\ s a -> s{_ldIdentityPoolId = a})  instance AWSRequest ListDatasets where         type Rs ListDatasets = ListDatasetsResponse@@ -163,27 +163,27 @@     -> ListDatasetsResponse listDatasetsResponse pResponseStatus_ =   ListDatasetsResponse'-  { _ldrsCount = Nothing-  , _ldrsNextToken = Nothing-  , _ldrsDatasets = Nothing-  , _ldrsResponseStatus = pResponseStatus_-  }+    { _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});+ldrsCount = lens _ldrsCount (\ s a -> s{_ldrsCount = a})  -- | A pagination token for obtaining the next page of results. ldrsNextToken :: Lens' ListDatasetsResponse (Maybe Text)-ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a});+ldrsNextToken = lens _ldrsNextToken (\ s a -> s{_ldrsNextToken = a})  -- | A set of datasets. ldrsDatasets :: Lens' ListDatasetsResponse [Dataset]-ldrsDatasets = lens _ldrsDatasets (\ s a -> s{_ldrsDatasets = a}) . _Default . _Coerce;+ldrsDatasets = lens _ldrsDatasets (\ s a -> s{_ldrsDatasets = a}) . _Default . _Coerce  -- | -- | The response status code. ldrsResponseStatus :: Lens' ListDatasetsResponse Int-ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a})  instance NFData ListDatasetsResponse where
gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.ListIdentityPoolUsage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -74,11 +74,11 @@  -- | A pagination token for obtaining the next page of results. lipuNextToken :: Lens' ListIdentityPoolUsage (Maybe Text)-lipuNextToken = lens _lipuNextToken (\ s a -> s{_lipuNextToken = a});+lipuNextToken = lens _lipuNextToken (\ s a -> s{_lipuNextToken = a})  -- | The maximum number of results to be returned. lipuMaxResults :: Lens' ListIdentityPoolUsage (Maybe Int)-lipuMaxResults = lens _lipuMaxResults (\ s a -> s{_lipuMaxResults = a});+lipuMaxResults = lens _lipuMaxResults (\ s a -> s{_lipuMaxResults = a})  instance AWSRequest ListIdentityPoolUsage where         type Rs ListIdentityPoolUsage =@@ -144,32 +144,32 @@     -> ListIdentityPoolUsageResponse listIdentityPoolUsageResponse pResponseStatus_ =   ListIdentityPoolUsageResponse'-  { _lipursIdentityPoolUsages = Nothing-  , _lipursCount = Nothing-  , _lipursNextToken = Nothing-  , _lipursMaxResults = Nothing-  , _lipursResponseStatus = pResponseStatus_-  }+    { _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;+lipursIdentityPoolUsages = lens _lipursIdentityPoolUsages (\ s a -> s{_lipursIdentityPoolUsages = a}) . _Default . _Coerce  -- | Total number of identities for the identity pool. lipursCount :: Lens' ListIdentityPoolUsageResponse (Maybe Int)-lipursCount = lens _lipursCount (\ s a -> s{_lipursCount = a});+lipursCount = lens _lipursCount (\ s a -> s{_lipursCount = a})  -- | A pagination token for obtaining the next page of results. lipursNextToken :: Lens' ListIdentityPoolUsageResponse (Maybe Text)-lipursNextToken = lens _lipursNextToken (\ s a -> s{_lipursNextToken = a});+lipursNextToken = lens _lipursNextToken (\ s a -> s{_lipursNextToken = a})  -- | The maximum number of results to be returned. lipursMaxResults :: Lens' ListIdentityPoolUsageResponse (Maybe Int)-lipursMaxResults = lens _lipursMaxResults (\ s a -> s{_lipursMaxResults = a});+lipursMaxResults = lens _lipursMaxResults (\ s a -> s{_lipursMaxResults = a})  -- | -- | The response status code. lipursResponseStatus :: Lens' ListIdentityPoolUsageResponse Int-lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a});+lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a})  instance NFData ListIdentityPoolUsageResponse where
gen/Network/AWS/CognitoSync/ListRecords.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.ListRecords--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -98,43 +98,43 @@     -> ListRecords listRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ =   ListRecords'-  { _lrLastSyncCount = Nothing-  , _lrNextToken = Nothing-  , _lrSyncSessionToken = Nothing-  , _lrMaxResults = Nothing-  , _lrIdentityPoolId = pIdentityPoolId_-  , _lrIdentityId = pIdentityId_-  , _lrDatasetName = pDatasetName_-  }+    { _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});+lrLastSyncCount = lens _lrLastSyncCount (\ s a -> s{_lrLastSyncCount = a})  -- | A pagination token for obtaining the next page of results. lrNextToken :: Lens' ListRecords (Maybe Text)-lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a});+lrNextToken = lens _lrNextToken (\ s a -> s{_lrNextToken = a})  -- | A token containing a session ID, identity ID, and expiration. lrSyncSessionToken :: Lens' ListRecords (Maybe Text)-lrSyncSessionToken = lens _lrSyncSessionToken (\ s a -> s{_lrSyncSessionToken = a});+lrSyncSessionToken = lens _lrSyncSessionToken (\ s a -> s{_lrSyncSessionToken = a})  -- | The maximum number of results to be returned. lrMaxResults :: Lens' ListRecords (Maybe Int)-lrMaxResults = lens _lrMaxResults (\ s a -> s{_lrMaxResults = a});+lrMaxResults = lens _lrMaxResults (\ s a -> s{_lrMaxResults = a})  -- | 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. lrIdentityPoolId :: Lens' ListRecords Text-lrIdentityPoolId = lens _lrIdentityPoolId (\ s a -> s{_lrIdentityPoolId = a});+lrIdentityPoolId = lens _lrIdentityPoolId (\ s a -> s{_lrIdentityPoolId = a})  -- | 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. lrIdentityId :: Lens' ListRecords Text-lrIdentityId = lens _lrIdentityId (\ s a -> s{_lrIdentityId = a});+lrIdentityId = lens _lrIdentityId (\ s a -> s{_lrIdentityId = a})  -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot). lrDatasetName :: Lens' ListRecords Text-lrDatasetName = lens _lrDatasetName (\ s a -> s{_lrDatasetName = a});+lrDatasetName = lens _lrDatasetName (\ s a -> s{_lrDatasetName = a})  instance AWSRequest ListRecords where         type Rs ListRecords = ListRecordsResponse@@ -225,57 +225,57 @@     -> ListRecordsResponse listRecordsResponse pResponseStatus_ =   ListRecordsResponse'-  { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing-  , _lrrsDatasetExists = Nothing-  , _lrrsCount = Nothing-  , _lrrsRecords = Nothing-  , _lrrsNextToken = Nothing-  , _lrrsMergedDatasetNames = Nothing-  , _lrrsSyncSessionToken = Nothing-  , _lrrsLastModifiedBy = Nothing-  , _lrrsDatasetSyncCount = Nothing-  , _lrrsResponseStatus = pResponseStatus_-  }+    { _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});+lrrsDatasetDeletedAfterRequestedSyncCount = lens _lrrsDatasetDeletedAfterRequestedSyncCount (\ s a -> s{_lrrsDatasetDeletedAfterRequestedSyncCount = a})  -- | Indicates whether the dataset exists. lrrsDatasetExists :: Lens' ListRecordsResponse (Maybe Bool)-lrrsDatasetExists = lens _lrrsDatasetExists (\ s a -> s{_lrrsDatasetExists = a});+lrrsDatasetExists = lens _lrrsDatasetExists (\ s a -> s{_lrrsDatasetExists = a})  -- | Total number of records. lrrsCount :: Lens' ListRecordsResponse (Maybe Int)-lrrsCount = lens _lrrsCount (\ s a -> s{_lrrsCount = a});+lrrsCount = lens _lrrsCount (\ s a -> s{_lrrsCount = a})  -- | A list of all records. lrrsRecords :: Lens' ListRecordsResponse [Record]-lrrsRecords = lens _lrrsRecords (\ s a -> s{_lrrsRecords = a}) . _Default . _Coerce;+lrrsRecords = lens _lrrsRecords (\ s a -> s{_lrrsRecords = a}) . _Default . _Coerce  -- | A pagination token for obtaining the next page of results. lrrsNextToken :: Lens' ListRecordsResponse (Maybe Text)-lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a});+lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a})  -- | Names of merged datasets. lrrsMergedDatasetNames :: Lens' ListRecordsResponse [Text]-lrrsMergedDatasetNames = lens _lrrsMergedDatasetNames (\ s a -> s{_lrrsMergedDatasetNames = a}) . _Default . _Coerce;+lrrsMergedDatasetNames = lens _lrrsMergedDatasetNames (\ s a -> s{_lrrsMergedDatasetNames = a}) . _Default . _Coerce  -- | A token containing a session ID, identity ID, and expiration. lrrsSyncSessionToken :: Lens' ListRecordsResponse (Maybe Text)-lrrsSyncSessionToken = lens _lrrsSyncSessionToken (\ s a -> s{_lrrsSyncSessionToken = a});+lrrsSyncSessionToken = lens _lrrsSyncSessionToken (\ s a -> s{_lrrsSyncSessionToken = a})  -- | The user/device that made the last change to this record. lrrsLastModifiedBy :: Lens' ListRecordsResponse (Maybe Text)-lrrsLastModifiedBy = lens _lrrsLastModifiedBy (\ s a -> s{_lrrsLastModifiedBy = a});+lrrsLastModifiedBy = lens _lrrsLastModifiedBy (\ s a -> s{_lrrsLastModifiedBy = a})  -- | Server sync count for this dataset. lrrsDatasetSyncCount :: Lens' ListRecordsResponse (Maybe Integer)-lrrsDatasetSyncCount = lens _lrrsDatasetSyncCount (\ s a -> s{_lrrsDatasetSyncCount = a});+lrrsDatasetSyncCount = lens _lrrsDatasetSyncCount (\ s a -> s{_lrrsDatasetSyncCount = a})  -- | -- | The response status code. lrrsResponseStatus :: Lens' ListRecordsResponse Int-lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a})  instance NFData ListRecordsResponse where
gen/Network/AWS/CognitoSync/RegisterDevice.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.RegisterDevice--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -81,28 +81,28 @@     -> RegisterDevice registerDevice pIdentityPoolId_ pIdentityId_ pPlatform_ pToken_ =   RegisterDevice'-  { _rdIdentityPoolId = pIdentityPoolId_-  , _rdIdentityId = pIdentityId_-  , _rdPlatform = pPlatform_-  , _rdToken = pToken_-  }+    { _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});+rdIdentityPoolId = lens _rdIdentityPoolId (\ s a -> s{_rdIdentityPoolId = a})  -- | The unique ID for this identity. rdIdentityId :: Lens' RegisterDevice Text-rdIdentityId = lens _rdIdentityId (\ s a -> s{_rdIdentityId = a});+rdIdentityId = lens _rdIdentityId (\ s a -> s{_rdIdentityId = a})  -- | The SNS platform type (e.g. GCM, SDM, APNS, APNS_SANDBOX). rdPlatform :: Lens' RegisterDevice Platform-rdPlatform = lens _rdPlatform (\ s a -> s{_rdPlatform = a});+rdPlatform = lens _rdPlatform (\ s a -> s{_rdPlatform = a})  -- | The push token. rdToken :: Lens' RegisterDevice Text-rdToken = lens _rdToken (\ s a -> s{_rdToken = a});+rdToken = lens _rdToken (\ s a -> s{_rdToken = a})  instance AWSRequest RegisterDevice where         type Rs RegisterDevice = RegisterDeviceResponse@@ -163,15 +163,15 @@     -> RegisterDeviceResponse registerDeviceResponse pResponseStatus_ =   RegisterDeviceResponse'-  {_rdrsDeviceId = Nothing, _rdrsResponseStatus = pResponseStatus_}+    {_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});+rdrsDeviceId = lens _rdrsDeviceId (\ s a -> s{_rdrsDeviceId = a})  -- | -- | The response status code. rdrsResponseStatus :: Lens' RegisterDeviceResponse Int-rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a});+rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a})  instance NFData RegisterDeviceResponse where
gen/Network/AWS/CognitoSync/SetCognitoEvents.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.SetCognitoEvents--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -71,11 +71,11 @@  -- | The Cognito Identity Pool to use when configuring Cognito Events sceIdentityPoolId :: Lens' SetCognitoEvents Text-sceIdentityPoolId = lens _sceIdentityPoolId (\ s a -> s{_sceIdentityPoolId = a});+sceIdentityPoolId = lens _sceIdentityPoolId (\ s a -> s{_sceIdentityPoolId = a})  -- | The events to configure sceEvents :: Lens' SetCognitoEvents (HashMap Text Text)-sceEvents = lens _sceEvents (\ s a -> s{_sceEvents = a}) . _Map;+sceEvents = lens _sceEvents (\ s a -> s{_sceEvents = a}) . _Map  instance AWSRequest SetCognitoEvents where         type Rs SetCognitoEvents = SetCognitoEventsResponse
gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.SetIdentityPoolConfiguration--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,23 +76,23 @@     -> SetIdentityPoolConfiguration setIdentityPoolConfiguration pIdentityPoolId_ =   SetIdentityPoolConfiguration'-  { _sipcCognitoStreams = Nothing-  , _sipcPushSync = Nothing-  , _sipcIdentityPoolId = pIdentityPoolId_-  }+    { _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});+sipcCognitoStreams = lens _sipcCognitoStreams (\ s a -> s{_sipcCognitoStreams = a})  -- | Options to apply to this identity pool for push synchronization. sipcPushSync :: Lens' SetIdentityPoolConfiguration (Maybe PushSync)-sipcPushSync = lens _sipcPushSync (\ s a -> s{_sipcPushSync = a});+sipcPushSync = lens _sipcPushSync (\ s a -> s{_sipcPushSync = a})  -- | 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 to modify. sipcIdentityPoolId :: Lens' SetIdentityPoolConfiguration Text-sipcIdentityPoolId = lens _sipcIdentityPoolId (\ s a -> s{_sipcIdentityPoolId = a});+sipcIdentityPoolId = lens _sipcIdentityPoolId (\ s a -> s{_sipcIdentityPoolId = a})  instance AWSRequest SetIdentityPoolConfiguration          where@@ -163,28 +163,28 @@     -> SetIdentityPoolConfigurationResponse setIdentityPoolConfigurationResponse pResponseStatus_ =   SetIdentityPoolConfigurationResponse'-  { _sipcrsIdentityPoolId = Nothing-  , _sipcrsCognitoStreams = Nothing-  , _sipcrsPushSync = Nothing-  , _sipcrsResponseStatus = pResponseStatus_-  }+    { _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});+sipcrsIdentityPoolId = lens _sipcrsIdentityPoolId (\ s a -> s{_sipcrsIdentityPoolId = a})  -- | Options to apply to this identity pool for Amazon Cognito streams. sipcrsCognitoStreams :: Lens' SetIdentityPoolConfigurationResponse (Maybe CognitoStreams)-sipcrsCognitoStreams = lens _sipcrsCognitoStreams (\ s a -> s{_sipcrsCognitoStreams = a});+sipcrsCognitoStreams = lens _sipcrsCognitoStreams (\ s a -> s{_sipcrsCognitoStreams = a})  -- | Options to apply to this identity pool for push synchronization. sipcrsPushSync :: Lens' SetIdentityPoolConfigurationResponse (Maybe PushSync)-sipcrsPushSync = lens _sipcrsPushSync (\ s a -> s{_sipcrsPushSync = a});+sipcrsPushSync = lens _sipcrsPushSync (\ s a -> s{_sipcrsPushSync = a})  -- | -- | The response status code. sipcrsResponseStatus :: Lens' SetIdentityPoolConfigurationResponse Int-sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a});+sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a})  instance NFData SetIdentityPoolConfigurationResponse          where
gen/Network/AWS/CognitoSync/SubscribeToDataset.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.SubscribeToDataset--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,28 +80,28 @@     -> SubscribeToDataset subscribeToDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =   SubscribeToDataset'-  { _stdIdentityPoolId = pIdentityPoolId_-  , _stdIdentityId = pIdentityId_-  , _stdDatasetName = pDatasetName_-  , _stdDeviceId = pDeviceId_-  }+    { _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});+stdIdentityPoolId = lens _stdIdentityPoolId (\ s a -> s{_stdIdentityPoolId = a})  -- | Unique ID for this identity. stdIdentityId :: Lens' SubscribeToDataset Text-stdIdentityId = lens _stdIdentityId (\ s a -> s{_stdIdentityId = a});+stdIdentityId = lens _stdIdentityId (\ s a -> s{_stdIdentityId = a})  -- | The name of the dataset to subcribe to. stdDatasetName :: Lens' SubscribeToDataset Text-stdDatasetName = lens _stdDatasetName (\ s a -> s{_stdDatasetName = a});+stdDatasetName = lens _stdDatasetName (\ s a -> s{_stdDatasetName = a})  -- | The unique ID generated for this device by Cognito. stdDeviceId :: Lens' SubscribeToDataset Text-stdDeviceId = lens _stdDeviceId (\ s a -> s{_stdDeviceId = a});+stdDeviceId = lens _stdDeviceId (\ s a -> s{_stdDeviceId = a})  instance AWSRequest SubscribeToDataset where         type Rs SubscribeToDataset =@@ -161,6 +161,6 @@  -- | -- | The response status code. stdrsResponseStatus :: Lens' SubscribeToDatasetResponse Int-stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a});+stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a})  instance NFData SubscribeToDatasetResponse where
gen/Network/AWS/CognitoSync/Types.hs view
@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.CognitoSync.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -113,24 +113,24 @@ 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-  }+    { _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-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -139,6 +139,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"
gen/Network/AWS/CognitoSync/Types/Product.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CognitoSync.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -44,20 +44,23 @@     :: CognitoStreams cognitoStreams =   CognitoStreams'-  {_csStreamingStatus = Nothing, _csStreamName = Nothing, _csRoleARN = Nothing}+    { _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});+csStreamingStatus = lens _csStreamingStatus (\ s a -> s{_csStreamingStatus = a})  -- | The name of the Cognito stream to receive updates. This stream must be in the developers account and in the same region as the identity pool. csStreamName :: Lens' CognitoStreams (Maybe Text)-csStreamName = lens _csStreamName (\ s a -> s{_csStreamName = a});+csStreamName = lens _csStreamName (\ s a -> s{_csStreamName = a})  -- | The ARN of the role Amazon Cognito can assume in order to publish to the stream. This role must grant access to Amazon Cognito (cognito-sync) to invoke PutRecord on your Cognito stream. csRoleARN :: Lens' CognitoStreams (Maybe Text)-csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a});+csRoleARN = lens _csRoleARN (\ s a -> s{_csRoleARN = a})  instance FromJSON CognitoStreams where         parseJSON@@ -114,43 +117,43 @@     :: Dataset dataset =   Dataset'-  { _dLastModifiedDate = Nothing-  , _dNumRecords = Nothing-  , _dDataStorage = Nothing-  , _dDatasetName = Nothing-  , _dCreationDate = Nothing-  , _dLastModifiedBy = Nothing-  , _dIdentityId = Nothing-  }+    { _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;+dLastModifiedDate = lens _dLastModifiedDate (\ s a -> s{_dLastModifiedDate = a}) . mapping _Time  -- | Number of records in this dataset. dNumRecords :: Lens' Dataset (Maybe Integer)-dNumRecords = lens _dNumRecords (\ s a -> s{_dNumRecords = a});+dNumRecords = lens _dNumRecords (\ s a -> s{_dNumRecords = a})  -- | Total size in bytes of the records in this dataset. dDataStorage :: Lens' Dataset (Maybe Integer)-dDataStorage = lens _dDataStorage (\ s a -> s{_dDataStorage = a});+dDataStorage = lens _dDataStorage (\ s a -> s{_dDataStorage = a})  -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot). dDatasetName :: Lens' Dataset (Maybe Text)-dDatasetName = lens _dDatasetName (\ s a -> s{_dDatasetName = a});+dDatasetName = lens _dDatasetName (\ s a -> s{_dDatasetName = a})  -- | Date on which the dataset was created. dCreationDate :: Lens' Dataset (Maybe UTCTime)-dCreationDate = lens _dCreationDate (\ s a -> s{_dCreationDate = a}) . mapping _Time;+dCreationDate = lens _dCreationDate (\ s a -> s{_dCreationDate = a}) . mapping _Time  -- | The device that made the last change to this dataset. dLastModifiedBy :: Lens' Dataset (Maybe Text)-dLastModifiedBy = lens _dLastModifiedBy (\ s a -> s{_dLastModifiedBy = a});+dLastModifiedBy = lens _dLastModifiedBy (\ s a -> s{_dLastModifiedBy = a})  -- | 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. dIdentityId :: Lens' Dataset (Maybe Text)-dIdentityId = lens _dIdentityId (\ s a -> s{_dIdentityId = a});+dIdentityId = lens _dIdentityId (\ s a -> s{_dIdentityId = a})  instance FromJSON Dataset where         parseJSON@@ -194,28 +197,28 @@     :: IdentityPoolUsage identityPoolUsage =   IdentityPoolUsage'-  { _ipuLastModifiedDate = Nothing-  , _ipuIdentityPoolId = Nothing-  , _ipuDataStorage = Nothing-  , _ipuSyncSessionsCount = Nothing-  }+    { _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;+ipuLastModifiedDate = lens _ipuLastModifiedDate (\ s a -> s{_ipuLastModifiedDate = a}) . mapping _Time  -- | 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. ipuIdentityPoolId :: Lens' IdentityPoolUsage (Maybe Text)-ipuIdentityPoolId = lens _ipuIdentityPoolId (\ s a -> s{_ipuIdentityPoolId = a});+ipuIdentityPoolId = lens _ipuIdentityPoolId (\ s a -> s{_ipuIdentityPoolId = a})  -- | Data storage information for the identity pool. ipuDataStorage :: Lens' IdentityPoolUsage (Maybe Integer)-ipuDataStorage = lens _ipuDataStorage (\ s a -> s{_ipuDataStorage = a});+ipuDataStorage = lens _ipuDataStorage (\ s a -> s{_ipuDataStorage = a})  -- | Number of sync sessions for the identity pool. ipuSyncSessionsCount :: Lens' IdentityPoolUsage (Maybe Integer)-ipuSyncSessionsCount = lens _ipuSyncSessionsCount (\ s a -> s{_ipuSyncSessionsCount = a});+ipuSyncSessionsCount = lens _ipuSyncSessionsCount (\ s a -> s{_ipuSyncSessionsCount = a})  instance FromJSON IdentityPoolUsage where         parseJSON@@ -260,33 +263,33 @@     :: IdentityUsage identityUsage =   IdentityUsage'-  { _iuLastModifiedDate = Nothing-  , _iuIdentityPoolId = Nothing-  , _iuDatasetCount = Nothing-  , _iuDataStorage = Nothing-  , _iuIdentityId = Nothing-  }+    { _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;+iuLastModifiedDate = lens _iuLastModifiedDate (\ s a -> s{_iuLastModifiedDate = a}) . mapping _Time  -- | 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. iuIdentityPoolId :: Lens' IdentityUsage (Maybe Text)-iuIdentityPoolId = lens _iuIdentityPoolId (\ s a -> s{_iuIdentityPoolId = a});+iuIdentityPoolId = lens _iuIdentityPoolId (\ s a -> s{_iuIdentityPoolId = a})  -- | Number of datasets for the identity. iuDatasetCount :: Lens' IdentityUsage (Maybe Int)-iuDatasetCount = lens _iuDatasetCount (\ s a -> s{_iuDatasetCount = a});+iuDatasetCount = lens _iuDatasetCount (\ s a -> s{_iuDatasetCount = a})  -- | Total data storage for this identity. iuDataStorage :: Lens' IdentityUsage (Maybe Integer)-iuDataStorage = lens _iuDataStorage (\ s a -> s{_iuDataStorage = a});+iuDataStorage = lens _iuDataStorage (\ s a -> s{_iuDataStorage = a})  -- | 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. iuIdentityId :: Lens' IdentityUsage (Maybe Text)-iuIdentityId = lens _iuIdentityId (\ s a -> s{_iuIdentityId = a});+iuIdentityId = lens _iuIdentityId (\ s a -> s{_iuIdentityId = a})  instance FromJSON IdentityUsage where         parseJSON@@ -328,11 +331,11 @@  -- | 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;+psApplicationARNs = lens _psApplicationARNs (\ s a -> s{_psApplicationARNs = a}) . _Default . _Coerce  -- | A role configured to allow Cognito to call SNS on behalf of the developer. psRoleARN :: Lens' PushSync (Maybe Text)-psRoleARN = lens _psRoleARN (\ s a -> s{_psRoleARN = a});+psRoleARN = lens _psRoleARN (\ s a -> s{_psRoleARN = a})  instance FromJSON PushSync where         parseJSON@@ -385,38 +388,38 @@     :: Record record =   Record'-  { _rSyncCount = Nothing-  , _rDeviceLastModifiedDate = Nothing-  , _rLastModifiedDate = Nothing-  , _rValue = Nothing-  , _rKey = Nothing-  , _rLastModifiedBy = Nothing-  }+    { _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});+rSyncCount = lens _rSyncCount (\ s a -> s{_rSyncCount = a})  -- | The last modified date of the client device. rDeviceLastModifiedDate :: Lens' Record (Maybe UTCTime)-rDeviceLastModifiedDate = lens _rDeviceLastModifiedDate (\ s a -> s{_rDeviceLastModifiedDate = a}) . mapping _Time;+rDeviceLastModifiedDate = lens _rDeviceLastModifiedDate (\ s a -> s{_rDeviceLastModifiedDate = a}) . mapping _Time  -- | The date on which the record was last modified. rLastModifiedDate :: Lens' Record (Maybe UTCTime)-rLastModifiedDate = lens _rLastModifiedDate (\ s a -> s{_rLastModifiedDate = a}) . mapping _Time;+rLastModifiedDate = lens _rLastModifiedDate (\ s a -> s{_rLastModifiedDate = a}) . mapping _Time  -- | The value for the record. rValue :: Lens' Record (Maybe Text)-rValue = lens _rValue (\ s a -> s{_rValue = a});+rValue = lens _rValue (\ s a -> s{_rValue = a})  -- | The key for the record. rKey :: Lens' Record (Maybe Text)-rKey = lens _rKey (\ s a -> s{_rKey = a});+rKey = lens _rKey (\ s a -> s{_rKey = a})  -- | The user/device that made the last change to this record. rLastModifiedBy :: Lens' Record (Maybe Text)-rLastModifiedBy = lens _rLastModifiedBy (\ s a -> s{_rLastModifiedBy = a});+rLastModifiedBy = lens _rLastModifiedBy (\ s a -> s{_rLastModifiedBy = a})  instance FromJSON Record where         parseJSON@@ -466,33 +469,33 @@     -> RecordPatch recordPatch pOp_ pKey_ pSyncCount_ =   RecordPatch'-  { _rpDeviceLastModifiedDate = Nothing-  , _rpValue = Nothing-  , _rpOp = pOp_-  , _rpKey = pKey_-  , _rpSyncCount = pSyncCount_-  }+    { _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;+rpDeviceLastModifiedDate = lens _rpDeviceLastModifiedDate (\ s a -> s{_rpDeviceLastModifiedDate = a}) . mapping _Time  -- | The value associated with the record patch. rpValue :: Lens' RecordPatch (Maybe Text)-rpValue = lens _rpValue (\ s a -> s{_rpValue = a});+rpValue = lens _rpValue (\ s a -> s{_rpValue = a})  -- | An operation, either replace or remove. rpOp :: Lens' RecordPatch Operation-rpOp = lens _rpOp (\ s a -> s{_rpOp = a});+rpOp = lens _rpOp (\ s a -> s{_rpOp = a})  -- | The key associated with the record patch. rpKey :: Lens' RecordPatch Text-rpKey = lens _rpKey (\ s a -> s{_rpKey = a});+rpKey = lens _rpKey (\ s a -> s{_rpKey = a})  -- | Last known server sync count for this record. Set to 0 if unknown. rpSyncCount :: Lens' RecordPatch Integer-rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a});+rpSyncCount = lens _rpSyncCount (\ s a -> s{_rpSyncCount = a})  instance Hashable RecordPatch where
gen/Network/AWS/CognitoSync/Types/Sum.hs view
@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.CognitoSync.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.UnsubscribeFromDataset--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -80,28 +80,28 @@     -> UnsubscribeFromDataset unsubscribeFromDataset pIdentityPoolId_ pIdentityId_ pDatasetName_ pDeviceId_ =   UnsubscribeFromDataset'-  { _ufdIdentityPoolId = pIdentityPoolId_-  , _ufdIdentityId = pIdentityId_-  , _ufdDatasetName = pDatasetName_-  , _ufdDeviceId = pDeviceId_-  }+    { _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});+ufdIdentityPoolId = lens _ufdIdentityPoolId (\ s a -> s{_ufdIdentityPoolId = a})  -- | Unique ID for this identity. ufdIdentityId :: Lens' UnsubscribeFromDataset Text-ufdIdentityId = lens _ufdIdentityId (\ s a -> s{_ufdIdentityId = a});+ufdIdentityId = lens _ufdIdentityId (\ s a -> s{_ufdIdentityId = a})  -- | The name of the dataset from which to unsubcribe. ufdDatasetName :: Lens' UnsubscribeFromDataset Text-ufdDatasetName = lens _ufdDatasetName (\ s a -> s{_ufdDatasetName = a});+ufdDatasetName = lens _ufdDatasetName (\ s a -> s{_ufdDatasetName = a})  -- | The unique ID generated for this device by Cognito. ufdDeviceId :: Lens' UnsubscribeFromDataset Text-ufdDeviceId = lens _ufdDeviceId (\ s a -> s{_ufdDeviceId = a});+ufdDeviceId = lens _ufdDeviceId (\ s a -> s{_ufdDeviceId = a})  instance AWSRequest UnsubscribeFromDataset where         type Rs UnsubscribeFromDataset =@@ -159,6 +159,6 @@  -- | -- | The response status code. ufdrsResponseStatus :: Lens' UnsubscribeFromDatasetResponse Int-ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a});+ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a})  instance NFData UnsubscribeFromDatasetResponse where
gen/Network/AWS/CognitoSync/UpdateRecords.hs view
@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.CognitoSync.UpdateRecords--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -95,43 +95,43 @@     -> UpdateRecords updateRecords pIdentityPoolId_ pIdentityId_ pDatasetName_ pSyncSessionToken_ =   UpdateRecords'-  { _urRecordPatches = Nothing-  , _urDeviceId = Nothing-  , _urClientContext = Nothing-  , _urIdentityPoolId = pIdentityPoolId_-  , _urIdentityId = pIdentityId_-  , _urDatasetName = pDatasetName_-  , _urSyncSessionToken = pSyncSessionToken_-  }+    { _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;+urRecordPatches = lens _urRecordPatches (\ s a -> s{_urRecordPatches = a}) . _Default . _Coerce  -- | The unique ID generated for this device by Cognito. urDeviceId :: Lens' UpdateRecords (Maybe Text)-urDeviceId = lens _urDeviceId (\ s a -> s{_urDeviceId = a});+urDeviceId = lens _urDeviceId (\ s a -> s{_urDeviceId = a})  -- | Intended to supply a device ID that will populate the lastModifiedBy field referenced in other methods. The ClientContext field is not yet implemented. urClientContext :: Lens' UpdateRecords (Maybe Text)-urClientContext = lens _urClientContext (\ s a -> s{_urClientContext = a});+urClientContext = lens _urClientContext (\ s a -> s{_urClientContext = a})  -- | 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. urIdentityPoolId :: Lens' UpdateRecords Text-urIdentityPoolId = lens _urIdentityPoolId (\ s a -> s{_urIdentityPoolId = a});+urIdentityPoolId = lens _urIdentityPoolId (\ s a -> s{_urIdentityPoolId = a})  -- | 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. urIdentityId :: Lens' UpdateRecords Text-urIdentityId = lens _urIdentityId (\ s a -> s{_urIdentityId = a});+urIdentityId = lens _urIdentityId (\ s a -> s{_urIdentityId = a})  -- | A string of up to 128 characters. Allowed characters are a-z, A-Z, 0-9, '_' (underscore), '-' (dash), and '.' (dot). urDatasetName :: Lens' UpdateRecords Text-urDatasetName = lens _urDatasetName (\ s a -> s{_urDatasetName = a});+urDatasetName = lens _urDatasetName (\ s a -> s{_urDatasetName = a})  -- | The SyncSessionToken returned by a previous call to ListRecords for this dataset and identity. urSyncSessionToken :: Lens' UpdateRecords Text-urSyncSessionToken = lens _urSyncSessionToken (\ s a -> s{_urSyncSessionToken = a});+urSyncSessionToken = lens _urSyncSessionToken (\ s a -> s{_urSyncSessionToken = a})  instance AWSRequest UpdateRecords where         type Rs UpdateRecords = UpdateRecordsResponse@@ -192,15 +192,15 @@     -> UpdateRecordsResponse updateRecordsResponse pResponseStatus_ =   UpdateRecordsResponse'-  {_urrsRecords = Nothing, _urrsResponseStatus = pResponseStatus_}+    {_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;+urrsRecords = lens _urrsRecords (\ s a -> s{_urrsRecords = a}) . _Default . _Coerce  -- | -- | The response status code. urrsResponseStatus :: Lens' UpdateRecordsResponse Int-urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a})  instance NFData UpdateRecordsResponse where
gen/Network/AWS/CognitoSync/Waiters.hs view
@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.CognitoSync.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Main.hs view
@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated
test/Test/AWS/CognitoSync.hs view
@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.CognitoSync--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/CognitoSync/Internal.hs view
@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.CognitoSync.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : This Source Code Form is subject to the terms of --               the Mozilla Public License, v. 2.0. --               A copy of the MPL can be found in the LICENSE file or
test/Test/AWS/Gen/CognitoSync.hs view
@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.CognitoSync--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated