amazonka-cognito-sync 1.2.0.2 → 1.3.0

raw patch · 22 files changed

+232/−231 lines, 22 filesdep ~amazonka-cognito-syncdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-cognito-sync, amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-cognito-sync.cabal +5/−5
• gen/Network/AWS/CognitoSync.hs +12/−12
• gen/Network/AWS/CognitoSync/BulkPublish.hs +8/−8
• gen/Network/AWS/CognitoSync/DeleteDataset.hs +9/−9
• gen/Network/AWS/CognitoSync/DescribeDataset.hs +9/−9
• gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs +8/−8
• gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs +9/−9
• gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs +8/−8
• gen/Network/AWS/CognitoSync/GetCognitoEvents.hs +9/−9
• gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs +8/−8
• gen/Network/AWS/CognitoSync/ListDatasets.hs +11/−11
• gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs +8/−8
• gen/Network/AWS/CognitoSync/ListRecords.hs +18/−18
• gen/Network/AWS/CognitoSync/RegisterDevice.hs +9/−9
• gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs +8/−8
• gen/Network/AWS/CognitoSync/SubscribeToDataset.hs +8/−8
• gen/Network/AWS/CognitoSync/Types.hs +7/−7
• gen/Network/AWS/CognitoSync/Types/Product.hs +11/−10
• gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs +8/−8
• gen/Network/AWS/CognitoSync/UpdateRecords.hs +9/−9
• test/Test/AWS/Gen/CognitoSync.hs +49/−49

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-cognito-sync-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Cognito Sync SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -89,7 +89,7 @@         , Network.AWS.CognitoSync.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-cognito-sync-test@@ -109,9 +109,9 @@         , Test.AWS.CognitoSync.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-cognito-sync == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-cognito-sync == 1.3.0.*         , base         , bytestring         , lens

@@ -69,12 +69,12 @@     -- ** InvalidLambdaFunctionOutputException     , _InvalidLambdaFunctionOutputException -    -- ** ConcurrentModificationException-    , _ConcurrentModificationException-     -- ** TooManyRequestsException     , _TooManyRequestsException +    -- ** ConcurrentModificationException+    , _ConcurrentModificationException+     -- ** ResourceConflictException     , _ResourceConflictException @@ -93,30 +93,30 @@     -- ** DescribeDataset     , module Network.AWS.CognitoSync.DescribeDataset -    -- ** DescribeIdentityPoolUsage-    , module Network.AWS.CognitoSync.DescribeIdentityPoolUsage-     -- ** SetCognitoEvents     , module Network.AWS.CognitoSync.SetCognitoEvents -    -- ** ListIdentityPoolUsage-    , module Network.AWS.CognitoSync.ListIdentityPoolUsage+    -- ** DescribeIdentityPoolUsage+    , module Network.AWS.CognitoSync.DescribeIdentityPoolUsage      -- ** GetBulkPublishDetails     , module Network.AWS.CognitoSync.GetBulkPublishDetails +    -- ** ListIdentityPoolUsage+    , module Network.AWS.CognitoSync.ListIdentityPoolUsage+     -- ** SetIdentityPoolConfiguration     , module Network.AWS.CognitoSync.SetIdentityPoolConfiguration      -- ** DeleteDataset     , module Network.AWS.CognitoSync.DeleteDataset -    -- ** DescribeIdentityUsage-    , module Network.AWS.CognitoSync.DescribeIdentityUsage-     -- ** GetCognitoEvents     , module Network.AWS.CognitoSync.GetCognitoEvents +    -- ** DescribeIdentityUsage+    , module Network.AWS.CognitoSync.DescribeIdentityUsage+     -- ** RegisterDevice     , module Network.AWS.CognitoSync.RegisterDevice @@ -200,8 +200,8 @@     , Record     , record     , rSyncCount-    , rLastModifiedDate     , rDeviceLastModifiedDate+    , rLastModifiedDate     , rValue     , rKey     , rLastModifiedBy

@@ -42,7 +42,7 @@     , BulkPublishResponse     -- * Response Lenses     , bprsIdentityPoolId-    , bprsStatus+    , bprsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -110,7 +110,7 @@ -- /See:/ 'bulkPublishResponse' smart constructor. data BulkPublishResponse = BulkPublishResponse'     { _bprsIdentityPoolId :: !(Maybe Text)-    , _bprsStatus         :: !Int+    , _bprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BulkPublishResponse' with the minimum fields required to make a request.@@ -119,14 +119,14 @@ -- -- * 'bprsIdentityPoolId' ----- * 'bprsStatus'+-- * 'bprsResponseStatus' bulkPublishResponse-    :: Int -- ^ 'bprsStatus'+    :: Int -- ^ 'bprsResponseStatus'     -> BulkPublishResponse-bulkPublishResponse pStatus_ =+bulkPublishResponse pResponseStatus_ =     BulkPublishResponse'     { _bprsIdentityPoolId = Nothing-    , _bprsStatus = pStatus_+    , _bprsResponseStatus = pResponseStatus_     }  -- | A name-spaced GUID (for example,@@ -136,5 +136,5 @@ bprsIdentityPoolId = lens _bprsIdentityPoolId (\ s a -> s{_bprsIdentityPoolId = a});  -- | The response status code.-bprsStatus :: Lens' BulkPublishResponse Int-bprsStatus = lens _bprsStatus (\ s a -> s{_bprsStatus = a});+bprsResponseStatus :: Lens' BulkPublishResponse Int+bprsResponseStatus = lens _bprsResponseStatus (\ s a -> s{_bprsResponseStatus = a});

@@ -42,7 +42,7 @@     , DeleteDatasetResponse     -- * Response Lenses     , drsDataset-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -128,8 +128,8 @@ -- -- /See:/ 'deleteDatasetResponse' smart constructor. data DeleteDatasetResponse = DeleteDatasetResponse'-    { _drsDataset :: !(Maybe Dataset)-    , _drsStatus  :: !Int+    { _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.@@ -138,14 +138,14 @@ -- -- * 'drsDataset' ----- * 'drsStatus'+-- * 'drsResponseStatus' deleteDatasetResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DeleteDatasetResponse-deleteDatasetResponse pStatus_ =+deleteDatasetResponse pResponseStatus_ =     DeleteDatasetResponse'     { _drsDataset = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | A collection of data for an identity pool. An identity pool can have@@ -157,5 +157,5 @@ drsDataset = lens _drsDataset (\ s a -> s{_drsDataset = a});  -- | The response status code.-drsStatus :: Lens' DeleteDatasetResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DeleteDatasetResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -43,7 +43,7 @@     , DescribeDatasetResponse     -- * Response Lenses     , ddrsDataset-    , ddrsStatus+    , ddrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -130,8 +130,8 @@ -- -- /See:/ 'describeDatasetResponse' smart constructor. data DescribeDatasetResponse = DescribeDatasetResponse'-    { _ddrsDataset :: !(Maybe Dataset)-    , _ddrsStatus  :: !Int+    { _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.@@ -140,14 +140,14 @@ -- -- * 'ddrsDataset' ----- * 'ddrsStatus'+-- * 'ddrsResponseStatus' describeDatasetResponse-    :: Int -- ^ 'ddrsStatus'+    :: Int -- ^ 'ddrsResponseStatus'     -> DescribeDatasetResponse-describeDatasetResponse pStatus_ =+describeDatasetResponse pResponseStatus_ =     DescribeDatasetResponse'     { _ddrsDataset = Nothing-    , _ddrsStatus = pStatus_+    , _ddrsResponseStatus = pResponseStatus_     }  -- | Meta data for a collection of data for an identity. An identity can have@@ -159,5 +159,5 @@ ddrsDataset = lens _ddrsDataset (\ s a -> s{_ddrsDataset = a});  -- | The response status code.-ddrsStatus :: Lens' DescribeDatasetResponse Int-ddrsStatus = lens _ddrsStatus (\ s a -> s{_ddrsStatus = a});+ddrsResponseStatus :: Lens' DescribeDatasetResponse Int+ddrsResponseStatus = lens _ddrsResponseStatus (\ s a -> s{_ddrsResponseStatus = a});

@@ -39,7 +39,7 @@     , DescribeIdentityPoolUsageResponse     -- * Response Lenses     , dipursIdentityPoolUsage-    , dipursStatus+    , dipursResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -104,7 +104,7 @@ -- /See:/ 'describeIdentityPoolUsageResponse' smart constructor. data DescribeIdentityPoolUsageResponse = DescribeIdentityPoolUsageResponse'     { _dipursIdentityPoolUsage :: !(Maybe IdentityPoolUsage)-    , _dipursStatus            :: !Int+    , _dipursResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeIdentityPoolUsageResponse' with the minimum fields required to make a request.@@ -113,14 +113,14 @@ -- -- * 'dipursIdentityPoolUsage' ----- * 'dipursStatus'+-- * 'dipursResponseStatus' describeIdentityPoolUsageResponse-    :: Int -- ^ 'dipursStatus'+    :: Int -- ^ 'dipursResponseStatus'     -> DescribeIdentityPoolUsageResponse-describeIdentityPoolUsageResponse pStatus_ =+describeIdentityPoolUsageResponse pResponseStatus_ =     DescribeIdentityPoolUsageResponse'     { _dipursIdentityPoolUsage = Nothing-    , _dipursStatus = pStatus_+    , _dipursResponseStatus = pResponseStatus_     }  -- | Information about the usage of the identity pool.@@ -128,5 +128,5 @@ dipursIdentityPoolUsage = lens _dipursIdentityPoolUsage (\ s a -> s{_dipursIdentityPoolUsage = a});  -- | The response status code.-dipursStatus :: Lens' DescribeIdentityPoolUsageResponse Int-dipursStatus = lens _dipursStatus (\ s a -> s{_dipursStatus = a});+dipursResponseStatus :: Lens' DescribeIdentityPoolUsageResponse Int+dipursResponseStatus = lens _dipursResponseStatus (\ s a -> s{_dipursResponseStatus = a});

@@ -39,7 +39,7 @@     , DescribeIdentityUsageResponse     -- * Response Lenses     , diursIdentityUsage-    , diursStatus+    , diursResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -115,8 +115,8 @@ -- -- /See:/ 'describeIdentityUsageResponse' smart constructor. data DescribeIdentityUsageResponse = DescribeIdentityUsageResponse'-    { _diursIdentityUsage :: !(Maybe IdentityUsage)-    , _diursStatus        :: !Int+    { _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.@@ -125,14 +125,14 @@ -- -- * 'diursIdentityUsage' ----- * 'diursStatus'+-- * 'diursResponseStatus' describeIdentityUsageResponse-    :: Int -- ^ 'diursStatus'+    :: Int -- ^ 'diursResponseStatus'     -> DescribeIdentityUsageResponse-describeIdentityUsageResponse pStatus_ =+describeIdentityUsageResponse pResponseStatus_ =     DescribeIdentityUsageResponse'     { _diursIdentityUsage = Nothing-    , _diursStatus = pStatus_+    , _diursResponseStatus = pResponseStatus_     }  -- | Usage information for the identity.@@ -140,5 +140,5 @@ diursIdentityUsage = lens _diursIdentityUsage (\ s a -> s{_diursIdentityUsage = a});  -- | The response status code.-diursStatus :: Lens' DescribeIdentityUsageResponse Int-diursStatus = lens _diursStatus (\ s a -> s{_diursStatus = a});+diursResponseStatus :: Lens' DescribeIdentityUsageResponse Int+diursResponseStatus = lens _diursResponseStatus (\ s a -> s{_diursResponseStatus = a});

@@ -42,7 +42,7 @@     , gbpdrsBulkPublishCompleteTime     , gbpdrsFailureMessage     , gbpdrsBulkPublishStatus-    , gbpdrsStatus+    , gbpdrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -120,7 +120,7 @@     , _gbpdrsBulkPublishCompleteTime :: !(Maybe POSIX)     , _gbpdrsFailureMessage          :: !(Maybe Text)     , _gbpdrsBulkPublishStatus       :: !(Maybe BulkPublishStatus)-    , _gbpdrsStatus                  :: !Int+    , _gbpdrsResponseStatus          :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetBulkPublishDetailsResponse' with the minimum fields required to make a request.@@ -137,18 +137,18 @@ -- -- * 'gbpdrsBulkPublishStatus' ----- * 'gbpdrsStatus'+-- * 'gbpdrsResponseStatus' getBulkPublishDetailsResponse-    :: Int -- ^ 'gbpdrsStatus'+    :: Int -- ^ 'gbpdrsResponseStatus'     -> GetBulkPublishDetailsResponse-getBulkPublishDetailsResponse pStatus_ =+getBulkPublishDetailsResponse pResponseStatus_ =     GetBulkPublishDetailsResponse'     { _gbpdrsBulkPublishStartTime = Nothing     , _gbpdrsIdentityPoolId = Nothing     , _gbpdrsBulkPublishCompleteTime = Nothing     , _gbpdrsFailureMessage = Nothing     , _gbpdrsBulkPublishStatus = Nothing-    , _gbpdrsStatus = pStatus_+    , _gbpdrsResponseStatus = pResponseStatus_     }  -- | The date\/time at which the last bulk publish was initiated.@@ -186,5 +186,5 @@ gbpdrsBulkPublishStatus = lens _gbpdrsBulkPublishStatus (\ s a -> s{_gbpdrsBulkPublishStatus = a});  -- | The response status code.-gbpdrsStatus :: Lens' GetBulkPublishDetailsResponse Int-gbpdrsStatus = lens _gbpdrsStatus (\ s a -> s{_gbpdrsStatus = a});+gbpdrsResponseStatus :: Lens' GetBulkPublishDetailsResponse Int+gbpdrsResponseStatus = lens _gbpdrsResponseStatus (\ s a -> s{_gbpdrsResponseStatus = a});

@@ -39,7 +39,7 @@     , GetCognitoEventsResponse     -- * Response Lenses     , gcersEvents-    , gcersStatus+    , gcersResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -101,8 +101,8 @@ -- -- /See:/ 'getCognitoEventsResponse' smart constructor. data GetCognitoEventsResponse = GetCognitoEventsResponse'-    { _gcersEvents :: !(Maybe (Map Text Text))-    , _gcersStatus :: !Int+    { _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.@@ -111,14 +111,14 @@ -- -- * 'gcersEvents' ----- * 'gcersStatus'+-- * 'gcersResponseStatus' getCognitoEventsResponse-    :: Int -- ^ 'gcersStatus'+    :: Int -- ^ 'gcersResponseStatus'     -> GetCognitoEventsResponse-getCognitoEventsResponse pStatus_ =+getCognitoEventsResponse pResponseStatus_ =     GetCognitoEventsResponse'     { _gcersEvents = Nothing-    , _gcersStatus = pStatus_+    , _gcersResponseStatus = pResponseStatus_     }  -- | The Cognito Events returned from the GetCognitoEvents request@@ -126,5 +126,5 @@ gcersEvents = lens _gcersEvents (\ s a -> s{_gcersEvents = a}) . _Default . _Map;  -- | The response status code.-gcersStatus :: Lens' GetCognitoEventsResponse Int-gcersStatus = lens _gcersStatus (\ s a -> s{_gcersStatus = a});+gcersResponseStatus :: Lens' GetCognitoEventsResponse Int+gcersResponseStatus = lens _gcersResponseStatus (\ s a -> s{_gcersResponseStatus = a});

@@ -40,7 +40,7 @@     , gipcrsIdentityPoolId     , gipcrsCognitoStreams     , gipcrsPushSync-    , gipcrsStatus+    , gipcrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -111,7 +111,7 @@     { _gipcrsIdentityPoolId :: !(Maybe Text)     , _gipcrsCognitoStreams :: !(Maybe CognitoStreams)     , _gipcrsPushSync       :: !(Maybe PushSync)-    , _gipcrsStatus         :: !Int+    , _gipcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'GetIdentityPoolConfigurationResponse' with the minimum fields required to make a request.@@ -124,16 +124,16 @@ -- -- * 'gipcrsPushSync' ----- * 'gipcrsStatus'+-- * 'gipcrsResponseStatus' getIdentityPoolConfigurationResponse-    :: Int -- ^ 'gipcrsStatus'+    :: Int -- ^ 'gipcrsResponseStatus'     -> GetIdentityPoolConfigurationResponse-getIdentityPoolConfigurationResponse pStatus_ =+getIdentityPoolConfigurationResponse pResponseStatus_ =     GetIdentityPoolConfigurationResponse'     { _gipcrsIdentityPoolId = Nothing     , _gipcrsCognitoStreams = Nothing     , _gipcrsPushSync = Nothing-    , _gipcrsStatus = pStatus_+    , _gipcrsResponseStatus = pResponseStatus_     }  -- | A name-spaced GUID (for example,@@ -151,5 +151,5 @@ gipcrsPushSync = lens _gipcrsPushSync (\ s a -> s{_gipcrsPushSync = a});  -- | The response status code.-gipcrsStatus :: Lens' GetIdentityPoolConfigurationResponse Int-gipcrsStatus = lens _gipcrsStatus (\ s a -> s{_gipcrsStatus = a});+gipcrsResponseStatus :: Lens' GetIdentityPoolConfigurationResponse Int+gipcrsResponseStatus = lens _gipcrsResponseStatus (\ s a -> s{_gipcrsResponseStatus = a});

@@ -45,7 +45,7 @@     , ldrsCount     , ldrsNextToken     , ldrsDatasets-    , ldrsStatus+    , ldrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -141,10 +141,10 @@ -- -- /See:/ 'listDatasetsResponse' smart constructor. data ListDatasetsResponse = ListDatasetsResponse'-    { _ldrsCount     :: !(Maybe Int)-    , _ldrsNextToken :: !(Maybe Text)-    , _ldrsDatasets  :: !(Maybe [Dataset])-    , _ldrsStatus    :: !Int+    { _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.@@ -157,16 +157,16 @@ -- -- * 'ldrsDatasets' ----- * 'ldrsStatus'+-- * 'ldrsResponseStatus' listDatasetsResponse-    :: Int -- ^ 'ldrsStatus'+    :: Int -- ^ 'ldrsResponseStatus'     -> ListDatasetsResponse-listDatasetsResponse pStatus_ =+listDatasetsResponse pResponseStatus_ =     ListDatasetsResponse'     { _ldrsCount = Nothing     , _ldrsNextToken = Nothing     , _ldrsDatasets = Nothing-    , _ldrsStatus = pStatus_+    , _ldrsResponseStatus = pResponseStatus_     }  -- | Number of datasets returned.@@ -182,5 +182,5 @@ ldrsDatasets = lens _ldrsDatasets (\ s a -> s{_ldrsDatasets = a}) . _Default . _Coerce;  -- | The response status code.-ldrsStatus :: Lens' ListDatasetsResponse Int-ldrsStatus = lens _ldrsStatus (\ s a -> s{_ldrsStatus = a});+ldrsResponseStatus :: Lens' ListDatasetsResponse Int+ldrsResponseStatus = lens _ldrsResponseStatus (\ s a -> s{_ldrsResponseStatus = a});

@@ -42,7 +42,7 @@     , lipursCount     , lipursNextToken     , lipursMaxResults-    , lipursStatus+    , lipursResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -120,7 +120,7 @@     , _lipursCount              :: !(Maybe Int)     , _lipursNextToken          :: !(Maybe Text)     , _lipursMaxResults         :: !(Maybe Int)-    , _lipursStatus             :: !Int+    , _lipursResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListIdentityPoolUsageResponse' with the minimum fields required to make a request.@@ -135,17 +135,17 @@ -- -- * 'lipursMaxResults' ----- * 'lipursStatus'+-- * 'lipursResponseStatus' listIdentityPoolUsageResponse-    :: Int -- ^ 'lipursStatus'+    :: Int -- ^ 'lipursResponseStatus'     -> ListIdentityPoolUsageResponse-listIdentityPoolUsageResponse pStatus_ =+listIdentityPoolUsageResponse pResponseStatus_ =     ListIdentityPoolUsageResponse'     { _lipursIdentityPoolUsages = Nothing     , _lipursCount = Nothing     , _lipursNextToken = Nothing     , _lipursMaxResults = Nothing-    , _lipursStatus = pStatus_+    , _lipursResponseStatus = pResponseStatus_     }  -- | Usage information for the identity pools.@@ -165,5 +165,5 @@ lipursMaxResults = lens _lipursMaxResults (\ s a -> s{_lipursMaxResults = a});  -- | The response status code.-lipursStatus :: Lens' ListIdentityPoolUsageResponse Int-lipursStatus = lens _lipursStatus (\ s a -> s{_lipursStatus = a});+lipursResponseStatus :: Lens' ListIdentityPoolUsageResponse Int+lipursResponseStatus = lens _lipursResponseStatus (\ s a -> s{_lipursResponseStatus = a});

@@ -51,11 +51,11 @@     , lrrsCount     , lrrsRecords     , lrrsNextToken-    , lrrsSyncSessionToken     , lrrsMergedDatasetNames+    , lrrsSyncSessionToken     , lrrsLastModifiedBy     , lrrsDatasetSyncCount-    , lrrsStatus+    , lrrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -155,8 +155,8 @@                      <*> (x .?> "Count")                      <*> (x .?> "Records" .!@ mempty)                      <*> (x .?> "NextToken")-                     <*> (x .?> "SyncSessionToken")                      <*> (x .?> "MergedDatasetNames" .!@ mempty)+                     <*> (x .?> "SyncSessionToken")                      <*> (x .?> "LastModifiedBy")                      <*> (x .?> "DatasetSyncCount")                      <*> (pure (fromEnum s)))@@ -192,11 +192,11 @@     , _lrrsCount                                 :: !(Maybe Int)     , _lrrsRecords                               :: !(Maybe [Record])     , _lrrsNextToken                             :: !(Maybe Text)-    , _lrrsSyncSessionToken                      :: !(Maybe Text)     , _lrrsMergedDatasetNames                    :: !(Maybe [Text])+    , _lrrsSyncSessionToken                      :: !(Maybe Text)     , _lrrsLastModifiedBy                        :: !(Maybe Text)     , _lrrsDatasetSyncCount                      :: !(Maybe Integer)-    , _lrrsStatus                                :: !Int+    , _lrrsResponseStatus                        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListRecordsResponse' with the minimum fields required to make a request.@@ -213,30 +213,30 @@ -- -- * 'lrrsNextToken' ----- * 'lrrsSyncSessionToken'--- -- * 'lrrsMergedDatasetNames' --+-- * 'lrrsSyncSessionToken'+-- -- * 'lrrsLastModifiedBy' -- -- * 'lrrsDatasetSyncCount' ----- * 'lrrsStatus'+-- * 'lrrsResponseStatus' listRecordsResponse-    :: Int -- ^ 'lrrsStatus'+    :: Int -- ^ 'lrrsResponseStatus'     -> ListRecordsResponse-listRecordsResponse pStatus_ =+listRecordsResponse pResponseStatus_ =     ListRecordsResponse'     { _lrrsDatasetDeletedAfterRequestedSyncCount = Nothing     , _lrrsDatasetExists = Nothing     , _lrrsCount = Nothing     , _lrrsRecords = Nothing     , _lrrsNextToken = Nothing-    , _lrrsSyncSessionToken = Nothing     , _lrrsMergedDatasetNames = Nothing+    , _lrrsSyncSessionToken = Nothing     , _lrrsLastModifiedBy = Nothing     , _lrrsDatasetSyncCount = Nothing-    , _lrrsStatus = pStatus_+    , _lrrsResponseStatus = pResponseStatus_     }  -- | A boolean value specifying whether to delete the dataset locally.@@ -259,14 +259,14 @@ lrrsNextToken :: Lens' ListRecordsResponse (Maybe Text) lrrsNextToken = lens _lrrsNextToken (\ s a -> s{_lrrsNextToken = a}); --- | A token containing a session ID, identity ID, and expiration.-lrrsSyncSessionToken :: Lens' ListRecordsResponse (Maybe Text)-lrrsSyncSessionToken = lens _lrrsSyncSessionToken (\ s a -> s{_lrrsSyncSessionToken = a});- -- | Names of merged datasets. lrrsMergedDatasetNames :: Lens' ListRecordsResponse [Text] 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});+ -- | The user\/device that made the last change to this record. lrrsLastModifiedBy :: Lens' ListRecordsResponse (Maybe Text) lrrsLastModifiedBy = lens _lrrsLastModifiedBy (\ s a -> s{_lrrsLastModifiedBy = a});@@ -276,5 +276,5 @@ lrrsDatasetSyncCount = lens _lrrsDatasetSyncCount (\ s a -> s{_lrrsDatasetSyncCount = a});  -- | The response status code.-lrrsStatus :: Lens' ListRecordsResponse Int-lrrsStatus = lens _lrrsStatus (\ s a -> s{_lrrsStatus = a});+lrrsResponseStatus :: Lens' ListRecordsResponse Int+lrrsResponseStatus = lens _lrrsResponseStatus (\ s a -> s{_lrrsResponseStatus = a});

@@ -40,7 +40,7 @@     , RegisterDeviceResponse     -- * Response Lenses     , rdrsDeviceId-    , rdrsStatus+    , rdrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -138,8 +138,8 @@ -- -- /See:/ 'registerDeviceResponse' smart constructor. data RegisterDeviceResponse = RegisterDeviceResponse'-    { _rdrsDeviceId :: !(Maybe Text)-    , _rdrsStatus   :: !Int+    { _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.@@ -148,14 +148,14 @@ -- -- * 'rdrsDeviceId' ----- * 'rdrsStatus'+-- * 'rdrsResponseStatus' registerDeviceResponse-    :: Int -- ^ 'rdrsStatus'+    :: Int -- ^ 'rdrsResponseStatus'     -> RegisterDeviceResponse-registerDeviceResponse pStatus_ =+registerDeviceResponse pResponseStatus_ =     RegisterDeviceResponse'     { _rdrsDeviceId = Nothing-    , _rdrsStatus = pStatus_+    , _rdrsResponseStatus = pResponseStatus_     }  -- | The unique ID generated for this device by Cognito.@@ -163,5 +163,5 @@ rdrsDeviceId = lens _rdrsDeviceId (\ s a -> s{_rdrsDeviceId = a});  -- | The response status code.-rdrsStatus :: Lens' RegisterDeviceResponse Int-rdrsStatus = lens _rdrsStatus (\ s a -> s{_rdrsStatus = a});+rdrsResponseStatus :: Lens' RegisterDeviceResponse Int+rdrsResponseStatus = lens _rdrsResponseStatus (\ s a -> s{_rdrsResponseStatus = a});

@@ -42,7 +42,7 @@     , sipcrsIdentityPoolId     , sipcrsCognitoStreams     , sipcrsPushSync-    , sipcrsStatus+    , sipcrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -136,7 +136,7 @@     { _sipcrsIdentityPoolId :: !(Maybe Text)     , _sipcrsCognitoStreams :: !(Maybe CognitoStreams)     , _sipcrsPushSync       :: !(Maybe PushSync)-    , _sipcrsStatus         :: !Int+    , _sipcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'SetIdentityPoolConfigurationResponse' with the minimum fields required to make a request.@@ -149,16 +149,16 @@ -- -- * 'sipcrsPushSync' ----- * 'sipcrsStatus'+-- * 'sipcrsResponseStatus' setIdentityPoolConfigurationResponse-    :: Int -- ^ 'sipcrsStatus'+    :: Int -- ^ 'sipcrsResponseStatus'     -> SetIdentityPoolConfigurationResponse-setIdentityPoolConfigurationResponse pStatus_ =+setIdentityPoolConfigurationResponse pResponseStatus_ =     SetIdentityPoolConfigurationResponse'     { _sipcrsIdentityPoolId = Nothing     , _sipcrsCognitoStreams = Nothing     , _sipcrsPushSync = Nothing-    , _sipcrsStatus = pStatus_+    , _sipcrsResponseStatus = pResponseStatus_     }  -- | A name-spaced GUID (for example,@@ -176,5 +176,5 @@ sipcrsPushSync = lens _sipcrsPushSync (\ s a -> s{_sipcrsPushSync = a});  -- | The response status code.-sipcrsStatus :: Lens' SetIdentityPoolConfigurationResponse Int-sipcrsStatus = lens _sipcrsStatus (\ s a -> s{_sipcrsStatus = a});+sipcrsResponseStatus :: Lens' SetIdentityPoolConfigurationResponse Int+sipcrsResponseStatus = lens _sipcrsResponseStatus (\ s a -> s{_sipcrsResponseStatus = a});

@@ -40,7 +40,7 @@     , subscribeToDatasetResponse     , SubscribeToDatasetResponse     -- * Response Lenses-    , stdrsStatus+    , stdrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -136,22 +136,22 @@ -- -- /See:/ 'subscribeToDatasetResponse' smart constructor. newtype SubscribeToDatasetResponse = SubscribeToDatasetResponse'-    { _stdrsStatus :: Int+    { _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: ----- * 'stdrsStatus'+-- * 'stdrsResponseStatus' subscribeToDatasetResponse-    :: Int -- ^ 'stdrsStatus'+    :: Int -- ^ 'stdrsResponseStatus'     -> SubscribeToDatasetResponse-subscribeToDatasetResponse pStatus_ =+subscribeToDatasetResponse pResponseStatus_ =     SubscribeToDatasetResponse'-    { _stdrsStatus = pStatus_+    { _stdrsResponseStatus = pResponseStatus_     }  -- | The response status code.-stdrsStatus :: Lens' SubscribeToDatasetResponse Int-stdrsStatus = lens _stdrsStatus (\ s a -> s{_stdrsStatus = a});+stdrsResponseStatus :: Lens' SubscribeToDatasetResponse Int+stdrsResponseStatus = lens _stdrsResponseStatus (\ s a -> s{_stdrsResponseStatus = a});

@@ -24,8 +24,8 @@     , _LambdaThrottledException     , _AlreadyStreamedException     , _InvalidLambdaFunctionOutputException-    , _ConcurrentModificationException     , _TooManyRequestsException+    , _ConcurrentModificationException     , _ResourceConflictException     , _ResourceNotFoundException     , _LimitExceededException@@ -87,8 +87,8 @@     , Record     , record     , rSyncCount-    , rLastModifiedDate     , rDeviceLastModifiedDate+    , rLastModifiedDate     , rValue     , rKey     , rLastModifiedBy@@ -182,15 +182,15 @@ _InvalidLambdaFunctionOutputException =     _ServiceError . hasStatus 400 . hasCode "InvalidLambdaFunctionOutput" --- | Thrown if there are parallel requests to modify a resource.-_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError-_ConcurrentModificationException =-    _ServiceError . hasStatus 400 . hasCode "ConcurrentModification"- -- | Thrown if the request is throttled. _TooManyRequestsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyRequestsException =     _ServiceError . hasStatus 429 . hasCode "TooManyRequests"++-- | Thrown if there are parallel requests to modify a resource.+_ConcurrentModificationException :: AsError a => Getting (First ServiceError) a ServiceError+_ConcurrentModificationException =+    _ServiceError . hasStatus 400 . hasCode "ConcurrentModification"  -- | Thrown if an update can\'t be applied because the resource was changed -- by another call and this would result in a conflict.

@@ -354,8 +354,8 @@ -- /See:/ 'record' smart constructor. data Record = Record'     { _rSyncCount              :: !(Maybe Integer)-    , _rLastModifiedDate       :: !(Maybe POSIX)     , _rDeviceLastModifiedDate :: !(Maybe POSIX)+    , _rLastModifiedDate       :: !(Maybe POSIX)     , _rValue                  :: !(Maybe Text)     , _rKey                    :: !(Maybe Text)     , _rLastModifiedBy         :: !(Maybe Text)@@ -367,10 +367,10 @@ -- -- * 'rSyncCount' ----- * 'rLastModifiedDate'--- -- * 'rDeviceLastModifiedDate' --+-- * 'rLastModifiedDate'+-- -- * 'rValue' -- -- * 'rKey'@@ -381,8 +381,8 @@ record =     Record'     { _rSyncCount = Nothing-    , _rLastModifiedDate = Nothing     , _rDeviceLastModifiedDate = Nothing+    , _rLastModifiedDate = Nothing     , _rValue = Nothing     , _rKey = Nothing     , _rLastModifiedBy = Nothing@@ -392,14 +392,14 @@ rSyncCount :: Lens' Record (Maybe Integer) rSyncCount = lens _rSyncCount (\ s a -> s{_rSyncCount = a}); --- | The date on which the record was last modified.-rLastModifiedDate :: Lens' Record (Maybe UTCTime)-rLastModifiedDate = lens _rLastModifiedDate (\ s a -> s{_rLastModifiedDate = a}) . mapping _Time;- -- | The last modified date of the client device. rDeviceLastModifiedDate :: Lens' Record (Maybe UTCTime) 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;+ -- | The value for the record. rValue :: Lens' Record (Maybe Text) rValue = lens _rValue (\ s a -> s{_rValue = a});@@ -417,8 +417,9 @@           = withObject "Record"               (\ x ->                  Record' <$>-                   (x .:? "SyncCount") <*> (x .:? "LastModifiedDate")-                     <*> (x .:? "DeviceLastModifiedDate")+                   (x .:? "SyncCount") <*>+                     (x .:? "DeviceLastModifiedDate")+                     <*> (x .:? "LastModifiedDate")                      <*> (x .:? "Value")                      <*> (x .:? "Key")                      <*> (x .:? "LastModifiedBy"))

@@ -40,7 +40,7 @@     , unsubscribeFromDatasetResponse     , UnsubscribeFromDatasetResponse     -- * Response Lenses-    , ufdrsStatus+    , ufdrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -134,22 +134,22 @@ -- -- /See:/ 'unsubscribeFromDatasetResponse' smart constructor. newtype UnsubscribeFromDatasetResponse = UnsubscribeFromDatasetResponse'-    { _ufdrsStatus :: Int+    { _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: ----- * 'ufdrsStatus'+-- * 'ufdrsResponseStatus' unsubscribeFromDatasetResponse-    :: Int -- ^ 'ufdrsStatus'+    :: Int -- ^ 'ufdrsResponseStatus'     -> UnsubscribeFromDatasetResponse-unsubscribeFromDatasetResponse pStatus_ =+unsubscribeFromDatasetResponse pResponseStatus_ =     UnsubscribeFromDatasetResponse'-    { _ufdrsStatus = pStatus_+    { _ufdrsResponseStatus = pResponseStatus_     }  -- | The response status code.-ufdrsStatus :: Lens' UnsubscribeFromDatasetResponse Int-ufdrsStatus = lens _ufdrsStatus (\ s a -> s{_ufdrsStatus = a});+ufdrsResponseStatus :: Lens' UnsubscribeFromDatasetResponse Int+ufdrsResponseStatus = lens _ufdrsResponseStatus (\ s a -> s{_ufdrsResponseStatus = a});

@@ -57,7 +57,7 @@     , UpdateRecordsResponse     -- * Response Lenses     , urrsRecords-    , urrsStatus+    , urrsResponseStatus     ) where  import           Network.AWS.CognitoSync.Types@@ -188,8 +188,8 @@ -- -- /See:/ 'updateRecordsResponse' smart constructor. data UpdateRecordsResponse = UpdateRecordsResponse'-    { _urrsRecords :: !(Maybe [Record])-    , _urrsStatus  :: !Int+    { _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.@@ -198,14 +198,14 @@ -- -- * 'urrsRecords' ----- * 'urrsStatus'+-- * 'urrsResponseStatus' updateRecordsResponse-    :: Int -- ^ 'urrsStatus'+    :: Int -- ^ 'urrsResponseStatus'     -> UpdateRecordsResponse-updateRecordsResponse pStatus_ =+updateRecordsResponse pResponseStatus_ =     UpdateRecordsResponse'     { _urrsRecords = Nothing-    , _urrsStatus = pStatus_+    , _urrsResponseStatus = pResponseStatus_     }  -- | A list of records that have been updated.@@ -213,5 +213,5 @@ urrsRecords = lens _urrsRecords (\ s a -> s{_urrsRecords = a}) . _Default . _Coerce;  -- | The response status code.-urrsStatus :: Lens' UpdateRecordsResponse Int-urrsStatus = lens _urrsStatus (\ s a -> s{_urrsStatus = a});+urrsResponseStatus :: Lens' UpdateRecordsResponse Int+urrsResponseStatus = lens _urrsResponseStatus (\ s a -> s{_urrsResponseStatus = a});

@@ -31,30 +31,30 @@ --         [ testDescribeDataset $ --             describeDataset -----         , testDescribeIdentityPoolUsage $---             describeIdentityPoolUsage--- --         , testSetCognitoEvents $ --             setCognitoEvents -----         , testListIdentityPoolUsage $---             listIdentityPoolUsage+--         , testDescribeIdentityPoolUsage $+--             describeIdentityPoolUsage -- --         , testGetBulkPublishDetails $ --             getBulkPublishDetails --+--         , testListIdentityPoolUsage $+--             listIdentityPoolUsage+-- --         , testSetIdentityPoolConfiguration $ --             setIdentityPoolConfiguration -- --         , testDeleteDataset $ --             deleteDataset -----         , testDescribeIdentityUsage $---             describeIdentityUsage--- --         , testGetCognitoEvents $ --             getCognitoEvents --+--         , testDescribeIdentityUsage $+--             describeIdentityUsage+-- --         , testRegisterDevice $ --             registerDevice --@@ -85,30 +85,30 @@ --         [ testDescribeDatasetResponse $ --             describeDatasetResponse -----         , testDescribeIdentityPoolUsageResponse $---             describeIdentityPoolUsageResponse--- --         , testSetCognitoEventsResponse $ --             setCognitoEventsResponse -----         , testListIdentityPoolUsageResponse $---             listIdentityPoolUsageResponse+--         , testDescribeIdentityPoolUsageResponse $+--             describeIdentityPoolUsageResponse -- --         , testGetBulkPublishDetailsResponse $ --             getBulkPublishDetailsResponse --+--         , testListIdentityPoolUsageResponse $+--             listIdentityPoolUsageResponse+-- --         , testSetIdentityPoolConfigurationResponse $ --             setIdentityPoolConfigurationResponse -- --         , testDeleteDatasetResponse $ --             deleteDatasetResponse -----         , testDescribeIdentityUsageResponse $---             describeIdentityUsageResponse--- --         , testGetCognitoEventsResponse $ --             getCognitoEventsResponse --+--         , testDescribeIdentityUsageResponse $+--             describeIdentityUsageResponse+-- --         , testRegisterDeviceResponse $ --             registerDeviceResponse --@@ -143,26 +143,26 @@     "DescribeDataset"     "fixture/DescribeDataset.yaml" -testDescribeIdentityPoolUsage :: DescribeIdentityPoolUsage -> TestTree-testDescribeIdentityPoolUsage = req-    "DescribeIdentityPoolUsage"-    "fixture/DescribeIdentityPoolUsage.yaml"- testSetCognitoEvents :: SetCognitoEvents -> TestTree testSetCognitoEvents = req     "SetCognitoEvents"     "fixture/SetCognitoEvents.yaml" -testListIdentityPoolUsage :: ListIdentityPoolUsage -> TestTree-testListIdentityPoolUsage = req-    "ListIdentityPoolUsage"-    "fixture/ListIdentityPoolUsage.yaml"+testDescribeIdentityPoolUsage :: DescribeIdentityPoolUsage -> TestTree+testDescribeIdentityPoolUsage = req+    "DescribeIdentityPoolUsage"+    "fixture/DescribeIdentityPoolUsage.yaml"  testGetBulkPublishDetails :: GetBulkPublishDetails -> TestTree testGetBulkPublishDetails = req     "GetBulkPublishDetails"     "fixture/GetBulkPublishDetails.yaml" +testListIdentityPoolUsage :: ListIdentityPoolUsage -> TestTree+testListIdentityPoolUsage = req+    "ListIdentityPoolUsage"+    "fixture/ListIdentityPoolUsage.yaml"+ testSetIdentityPoolConfiguration :: SetIdentityPoolConfiguration -> TestTree testSetIdentityPoolConfiguration = req     "SetIdentityPoolConfiguration"@@ -173,16 +173,16 @@     "DeleteDataset"     "fixture/DeleteDataset.yaml" -testDescribeIdentityUsage :: DescribeIdentityUsage -> TestTree-testDescribeIdentityUsage = req-    "DescribeIdentityUsage"-    "fixture/DescribeIdentityUsage.yaml"- testGetCognitoEvents :: GetCognitoEvents -> TestTree testGetCognitoEvents = req     "GetCognitoEvents"     "fixture/GetCognitoEvents.yaml" +testDescribeIdentityUsage :: DescribeIdentityUsage -> TestTree+testDescribeIdentityUsage = req+    "DescribeIdentityUsage"+    "fixture/DescribeIdentityUsage.yaml"+ testRegisterDevice :: RegisterDevice -> TestTree testRegisterDevice = req     "RegisterDevice"@@ -232,13 +232,6 @@     cognitoSync     (Proxy :: Proxy DescribeDataset) -testDescribeIdentityPoolUsageResponse :: DescribeIdentityPoolUsageResponse -> TestTree-testDescribeIdentityPoolUsageResponse = res-    "DescribeIdentityPoolUsageResponse"-    "fixture/DescribeIdentityPoolUsageResponse.proto"-    cognitoSync-    (Proxy :: Proxy DescribeIdentityPoolUsage)- testSetCognitoEventsResponse :: SetCognitoEventsResponse -> TestTree testSetCognitoEventsResponse = res     "SetCognitoEventsResponse"@@ -246,12 +239,12 @@     cognitoSync     (Proxy :: Proxy SetCognitoEvents) -testListIdentityPoolUsageResponse :: ListIdentityPoolUsageResponse -> TestTree-testListIdentityPoolUsageResponse = res-    "ListIdentityPoolUsageResponse"-    "fixture/ListIdentityPoolUsageResponse.proto"+testDescribeIdentityPoolUsageResponse :: DescribeIdentityPoolUsageResponse -> TestTree+testDescribeIdentityPoolUsageResponse = res+    "DescribeIdentityPoolUsageResponse"+    "fixture/DescribeIdentityPoolUsageResponse.proto"     cognitoSync-    (Proxy :: Proxy ListIdentityPoolUsage)+    (Proxy :: Proxy DescribeIdentityPoolUsage)  testGetBulkPublishDetailsResponse :: GetBulkPublishDetailsResponse -> TestTree testGetBulkPublishDetailsResponse = res@@ -260,6 +253,13 @@     cognitoSync     (Proxy :: Proxy GetBulkPublishDetails) +testListIdentityPoolUsageResponse :: ListIdentityPoolUsageResponse -> TestTree+testListIdentityPoolUsageResponse = res+    "ListIdentityPoolUsageResponse"+    "fixture/ListIdentityPoolUsageResponse.proto"+    cognitoSync+    (Proxy :: Proxy ListIdentityPoolUsage)+ testSetIdentityPoolConfigurationResponse :: SetIdentityPoolConfigurationResponse -> TestTree testSetIdentityPoolConfigurationResponse = res     "SetIdentityPoolConfigurationResponse"@@ -274,19 +274,19 @@     cognitoSync     (Proxy :: Proxy DeleteDataset) -testDescribeIdentityUsageResponse :: DescribeIdentityUsageResponse -> TestTree-testDescribeIdentityUsageResponse = res-    "DescribeIdentityUsageResponse"-    "fixture/DescribeIdentityUsageResponse.proto"-    cognitoSync-    (Proxy :: Proxy DescribeIdentityUsage)- testGetCognitoEventsResponse :: GetCognitoEventsResponse -> TestTree testGetCognitoEventsResponse = res     "GetCognitoEventsResponse"     "fixture/GetCognitoEventsResponse.proto"     cognitoSync     (Proxy :: Proxy GetCognitoEvents)++testDescribeIdentityUsageResponse :: DescribeIdentityUsageResponse -> TestTree+testDescribeIdentityUsageResponse = res+    "DescribeIdentityUsageResponse"+    "fixture/DescribeIdentityUsageResponse.proto"+    cognitoSync+    (Proxy :: Proxy DescribeIdentityUsage)  testRegisterDeviceResponse :: RegisterDeviceResponse -> TestTree testRegisterDeviceResponse = res