diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.1.0` +`1.2.0` ## Description diff --git a/amazonka-cognito-sync.cabal b/amazonka-cognito-sync.cabal --- a/amazonka-cognito-sync.cabal +++ b/amazonka-cognito-sync.cabal @@ -1,5 +1,5 @@ name: amazonka-cognito-sync -version: 1.1.0 +version: 1.2.0 synopsis: Amazon Cognito Sync SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -89,7 +89,7 @@ , Network.AWS.CognitoSync.Types.Sum build-depends: - amazonka-core == 1.1.0.* + amazonka-core == 1.2.0.* , base >= 4.7 && < 5 test-suite amazonka-cognito-sync-test @@ -108,9 +108,9 @@ , Test.AWS.CognitoSync.Internal build-depends: - amazonka-core == 1.1.0 - , amazonka-test == 1.1.0 - , amazonka-cognito-sync == 1.1.0 + amazonka-core == 1.2.0 + , amazonka-test == 1.2.0 + , amazonka-cognito-sync == 1.2.0 , base , bytestring , lens diff --git a/gen/Network/AWS/CognitoSync.hs b/gen/Network/AWS/CognitoSync.hs --- a/gen/Network/AWS/CognitoSync.hs +++ b/gen/Network/AWS/CognitoSync.hs @@ -39,8 +39,8 @@ -- /See:/ module Network.AWS.CognitoSync ( - -- * Service - CognitoSync + -- * Service Configuration + cognitoSync -- * Errors -- $errors diff --git a/gen/Network/AWS/CognitoSync/BulkPublish.hs b/gen/Network/AWS/CognitoSync/BulkPublish.hs --- a/gen/Network/AWS/CognitoSync/BulkPublish.hs +++ b/gen/Network/AWS/CognitoSync/BulkPublish.hs @@ -78,9 +78,8 @@ bpIdentityPoolId = lens _bpIdentityPoolId (\ s a -> s{_bpIdentityPoolId = a}); instance AWSRequest BulkPublish where - type Sv BulkPublish = CognitoSync type Rs BulkPublish = BulkPublishResponse - request = postJSON + request = postJSON cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/DeleteDataset.hs b/gen/Network/AWS/CognitoSync/DeleteDataset.hs --- a/gen/Network/AWS/CognitoSync/DeleteDataset.hs +++ b/gen/Network/AWS/CognitoSync/DeleteDataset.hs @@ -99,9 +99,8 @@ delDatasetName = lens _delDatasetName (\ s a -> s{_delDatasetName = a}); instance AWSRequest DeleteDataset where - type Sv DeleteDataset = CognitoSync type Rs DeleteDataset = DeleteDatasetResponse - request = delete + request = delete cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/DescribeDataset.hs b/gen/Network/AWS/CognitoSync/DescribeDataset.hs --- a/gen/Network/AWS/CognitoSync/DescribeDataset.hs +++ b/gen/Network/AWS/CognitoSync/DescribeDataset.hs @@ -101,9 +101,8 @@ ddDatasetName = lens _ddDatasetName (\ s a -> s{_ddDatasetName = a}); instance AWSRequest DescribeDataset where - type Sv DescribeDataset = CognitoSync type Rs DescribeDataset = DescribeDatasetResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs --- a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs +++ b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs @@ -75,10 +75,9 @@ dipuIdentityPoolId = lens _dipuIdentityPoolId (\ s a -> s{_dipuIdentityPoolId = a}); instance AWSRequest DescribeIdentityPoolUsage where - type Sv DescribeIdentityPoolUsage = CognitoSync type Rs DescribeIdentityPoolUsage = DescribeIdentityPoolUsageResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs --- a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs +++ b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs @@ -86,10 +86,9 @@ diuIdentityId = lens _diuIdentityId (\ s a -> s{_diuIdentityId = a}); instance AWSRequest DescribeIdentityUsage where - type Sv DescribeIdentityUsage = CognitoSync type Rs DescribeIdentityUsage = DescribeIdentityUsageResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs --- a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs +++ b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs @@ -78,10 +78,9 @@ gbpdIdentityPoolId = lens _gbpdIdentityPoolId (\ s a -> s{_gbpdIdentityPoolId = a}); instance AWSRequest GetBulkPublishDetails where - type Sv GetBulkPublishDetails = CognitoSync type Rs GetBulkPublishDetails = GetBulkPublishDetailsResponse - request = postJSON + request = postJSON cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs --- a/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs +++ b/gen/Network/AWS/CognitoSync/GetCognitoEvents.hs @@ -73,9 +73,8 @@ gceIdentityPoolId = lens _gceIdentityPoolId (\ s a -> s{_gceIdentityPoolId = a}); instance AWSRequest GetCognitoEvents where - type Sv GetCognitoEvents = CognitoSync type Rs GetCognitoEvents = GetCognitoEventsResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs --- a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs +++ b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs @@ -77,10 +77,9 @@ instance AWSRequest GetIdentityPoolConfiguration where - type Sv GetIdentityPoolConfiguration = CognitoSync type Rs GetIdentityPoolConfiguration = GetIdentityPoolConfigurationResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/ListDatasets.hs b/gen/Network/AWS/CognitoSync/ListDatasets.hs --- a/gen/Network/AWS/CognitoSync/ListDatasets.hs +++ b/gen/Network/AWS/CognitoSync/ListDatasets.hs @@ -108,9 +108,8 @@ ldIdentityPoolId = lens _ldIdentityPoolId (\ s a -> s{_ldIdentityPoolId = a}); instance AWSRequest ListDatasets where - type Sv ListDatasets = CognitoSync type Rs ListDatasets = ListDatasetsResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs --- a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs +++ b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs @@ -83,10 +83,9 @@ lipuMaxResults = lens _lipuMaxResults (\ s a -> s{_lipuMaxResults = a}); instance AWSRequest ListIdentityPoolUsage where - type Sv ListIdentityPoolUsage = CognitoSync type Rs ListIdentityPoolUsage = ListIdentityPoolUsageResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/ListRecords.hs b/gen/Network/AWS/CognitoSync/ListRecords.hs --- a/gen/Network/AWS/CognitoSync/ListRecords.hs +++ b/gen/Network/AWS/CognitoSync/ListRecords.hs @@ -144,9 +144,8 @@ lrDatasetName = lens _lrDatasetName (\ s a -> s{_lrDatasetName = a}); instance AWSRequest ListRecords where - type Sv ListRecords = CognitoSync type Rs ListRecords = ListRecordsResponse - request = get + request = get cognitoSync response = receiveJSON (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs --- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs +++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs @@ -103,9 +103,8 @@ rdToken = lens _rdToken (\ s a -> s{_rdToken = a}); instance AWSRequest RegisterDevice where - type Sv RegisterDevice = CognitoSync type Rs RegisterDevice = RegisterDeviceResponse - request = postJSON + request = postJSON cognitoSync response = receiveJSON (\ s h x -> @@ -122,7 +121,9 @@ instance ToJSON RegisterDevice where toJSON RegisterDevice'{..} = object - ["Platform" .= _rdPlatform, "Token" .= _rdToken] + (catMaybes + [Just ("Platform" .= _rdPlatform), + Just ("Token" .= _rdToken)]) instance ToPath RegisterDevice where toPath RegisterDevice'{..} diff --git a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs --- a/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs +++ b/gen/Network/AWS/CognitoSync/SetCognitoEvents.hs @@ -83,9 +83,8 @@ sceEvents = lens _sceEvents (\ s a -> s{_sceEvents = a}) . _Map; instance AWSRequest SetCognitoEvents where - type Sv SetCognitoEvents = CognitoSync type Rs SetCognitoEvents = SetCognitoEventsResponse - request = postJSON + request = postJSON cognitoSync response = receiveNull SetCognitoEventsResponse' instance ToHeaders SetCognitoEvents where @@ -97,7 +96,7 @@ instance ToJSON SetCognitoEvents where toJSON SetCognitoEvents'{..} - = object ["Events" .= _sceEvents] + = object (catMaybes [Just ("Events" .= _sceEvents)]) instance ToPath SetCognitoEvents where toPath SetCognitoEvents'{..} diff --git a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs --- a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs +++ b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs @@ -95,10 +95,9 @@ instance AWSRequest SetIdentityPoolConfiguration where - type Sv SetIdentityPoolConfiguration = CognitoSync type Rs SetIdentityPoolConfiguration = SetIdentityPoolConfigurationResponse - request = postJSON + request = postJSON cognitoSync response = receiveJSON (\ s h x -> @@ -117,8 +116,9 @@ instance ToJSON SetIdentityPoolConfiguration where toJSON SetIdentityPoolConfiguration'{..} = object - ["CognitoStreams" .= _sipcCognitoStreams, - "PushSync" .= _sipcPushSync] + (catMaybes + [("CognitoStreams" .=) <$> _sipcCognitoStreams, + ("PushSync" .=) <$> _sipcPushSync]) instance ToPath SetIdentityPoolConfiguration where toPath SetIdentityPoolConfiguration'{..} diff --git a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs --- a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs +++ b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs @@ -103,10 +103,9 @@ stdDeviceId = lens _stdDeviceId (\ s a -> s{_stdDeviceId = a}); instance AWSRequest SubscribeToDataset where - type Sv SubscribeToDataset = CognitoSync type Rs SubscribeToDataset = SubscribeToDatasetResponse - request = postJSON + request = postJSON cognitoSync response = receiveEmpty (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs --- a/gen/Network/AWS/CognitoSync/Types.hs +++ b/gen/Network/AWS/CognitoSync/Types.hs @@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-} -{-# LANGUAGE TypeFamilies #-} -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.CognitoSync.Types ( - -- * Service - CognitoSync + -- * Service Configuration + cognitoSync -- * Errors , _InvalidParameterException @@ -109,39 +108,36 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | Version @2014-06-30@ of the Amazon Cognito Sync SDK. -data CognitoSync - -instance AWSService CognitoSync where - type Sg CognitoSync = V4 - service = const svc - where - svc = - Service - { _svcAbbrev = "CognitoSync" - , _svcPrefix = "cognito-sync" - , _svcVersion = "2014-06-30" - , _svcEndpoint = defaultEndpoint svc - , _svcTimeout = Just 70 - , _svcStatus = statusSuccess - , _svcError = parseJSONError - , _svcRetry = retry - } - retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } - check e - | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" - | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" - | has (hasStatus 503) e = Just "service_unavailable" - | has (hasStatus 500) e = Just "general_server_error" - | has (hasStatus 509) e = Just "limit_exceeded" - | otherwise = Nothing +-- | API version '2014-06-30' of the Amazon Cognito Sync SDK configuration. +cognitoSync :: Service +cognitoSync = + Service + { _svcAbbrev = "CognitoSync" + , _svcSigner = v4 + , _svcPrefix = "cognito-sync" + , _svcVersion = "2014-06-30" + , _svcEndpoint = defaultEndpoint cognitoSync + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseJSONError + , _svcRetry = retry + } + where + retry = + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } + check e + | has (hasCode "ThrottlingException" . hasStatus 400) e = + Just "throttling_exception" + | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 503) e = Just "service_unavailable" + | has (hasStatus 500) e = Just "general_server_error" + | has (hasStatus 509) e = Just "limit_exceeded" + | otherwise = Nothing -- | Thrown when a request parameter does not comply with the associated -- constraints. diff --git a/gen/Network/AWS/CognitoSync/Types/Product.hs b/gen/Network/AWS/CognitoSync/Types/Product.hs --- a/gen/Network/AWS/CognitoSync/Types/Product.hs +++ b/gen/Network/AWS/CognitoSync/Types/Product.hs @@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} -{-# LANGUAGE TypeFamilies #-} {-# OPTIONS_GHC -fno-warn-unused-imports #-} @@ -79,9 +78,10 @@ instance ToJSON CognitoStreams where toJSON CognitoStreams'{..} = object - ["StreamingStatus" .= _csStreamingStatus, - "StreamName" .= _csStreamName, - "RoleArn" .= _csRoleARN] + (catMaybes + [("StreamingStatus" .=) <$> _csStreamingStatus, + ("StreamName" .=) <$> _csStreamName, + ("RoleArn" .=) <$> _csRoleARN]) -- | 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 @@ -345,8 +345,9 @@ instance ToJSON PushSync where toJSON PushSync'{..} = object - ["ApplicationArns" .= _psApplicationARNs, - "RoleArn" .= _psRoleARN] + (catMaybes + [("ApplicationArns" .=) <$> _psApplicationARNs, + ("RoleArn" .=) <$> _psRoleARN]) -- | The basic data structure of a dataset. -- @@ -483,7 +484,9 @@ instance ToJSON RecordPatch where toJSON RecordPatch'{..} = object - ["DeviceLastModifiedDate" .= - _rpDeviceLastModifiedDate, - "Value" .= _rpValue, "Op" .= _rpOp, "Key" .= _rpKey, - "SyncCount" .= _rpSyncCount] + (catMaybes + [("DeviceLastModifiedDate" .=) <$> + _rpDeviceLastModifiedDate, + ("Value" .=) <$> _rpValue, Just ("Op" .= _rpOp), + Just ("Key" .= _rpKey), + Just ("SyncCount" .= _rpSyncCount)]) diff --git a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs --- a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs +++ b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs @@ -103,10 +103,9 @@ ufdDeviceId = lens _ufdDeviceId (\ s a -> s{_ufdDeviceId = a}); instance AWSRequest UnsubscribeFromDataset where - type Sv UnsubscribeFromDataset = CognitoSync type Rs UnsubscribeFromDataset = UnsubscribeFromDatasetResponse - request = delete + request = delete cognitoSync response = receiveEmpty (\ s h x -> diff --git a/gen/Network/AWS/CognitoSync/UpdateRecords.hs b/gen/Network/AWS/CognitoSync/UpdateRecords.hs --- a/gen/Network/AWS/CognitoSync/UpdateRecords.hs +++ b/gen/Network/AWS/CognitoSync/UpdateRecords.hs @@ -151,9 +151,8 @@ urSyncSessionToken = lens _urSyncSessionToken (\ s a -> s{_urSyncSessionToken = a}); instance AWSRequest UpdateRecords where - type Sv UpdateRecords = CognitoSync type Rs UpdateRecords = UpdateRecordsResponse - request = postJSON + request = postJSON cognitoSync response = receiveJSON (\ s h x -> @@ -170,9 +169,10 @@ instance ToJSON UpdateRecords where toJSON UpdateRecords'{..} = object - ["RecordPatches" .= _urRecordPatches, - "DeviceId" .= _urDeviceId, - "SyncSessionToken" .= _urSyncSessionToken] + (catMaybes + [("RecordPatches" .=) <$> _urRecordPatches, + ("DeviceId" .=) <$> _urDeviceId, + Just ("SyncSessionToken" .= _urSyncSessionToken)]) instance ToPath UpdateRecords where toPath UpdateRecords'{..} diff --git a/test/Test/AWS/Gen/CognitoSync.hs b/test/Test/AWS/Gen/CognitoSync.hs --- a/test/Test/AWS/Gen/CognitoSync.hs +++ b/test/Test/AWS/Gen/CognitoSync.hs @@ -229,100 +229,117 @@ testDescribeDatasetResponse = res "DescribeDatasetResponse" "fixture/DescribeDatasetResponse" + cognitoSync (Proxy :: Proxy DescribeDataset) testDescribeIdentityPoolUsageResponse :: DescribeIdentityPoolUsageResponse -> TestTree testDescribeIdentityPoolUsageResponse = res "DescribeIdentityPoolUsageResponse" "fixture/DescribeIdentityPoolUsageResponse" + cognitoSync (Proxy :: Proxy DescribeIdentityPoolUsage) testSetCognitoEventsResponse :: SetCognitoEventsResponse -> TestTree testSetCognitoEventsResponse = res "SetCognitoEventsResponse" "fixture/SetCognitoEventsResponse" + cognitoSync (Proxy :: Proxy SetCognitoEvents) testListIdentityPoolUsageResponse :: ListIdentityPoolUsageResponse -> TestTree testListIdentityPoolUsageResponse = res "ListIdentityPoolUsageResponse" "fixture/ListIdentityPoolUsageResponse" + cognitoSync (Proxy :: Proxy ListIdentityPoolUsage) testGetBulkPublishDetailsResponse :: GetBulkPublishDetailsResponse -> TestTree testGetBulkPublishDetailsResponse = res "GetBulkPublishDetailsResponse" "fixture/GetBulkPublishDetailsResponse" + cognitoSync (Proxy :: Proxy GetBulkPublishDetails) testSetIdentityPoolConfigurationResponse :: SetIdentityPoolConfigurationResponse -> TestTree testSetIdentityPoolConfigurationResponse = res "SetIdentityPoolConfigurationResponse" "fixture/SetIdentityPoolConfigurationResponse" + cognitoSync (Proxy :: Proxy SetIdentityPoolConfiguration) testDeleteDatasetResponse :: DeleteDatasetResponse -> TestTree testDeleteDatasetResponse = res "DeleteDatasetResponse" "fixture/DeleteDatasetResponse" + cognitoSync (Proxy :: Proxy DeleteDataset) testDescribeIdentityUsageResponse :: DescribeIdentityUsageResponse -> TestTree testDescribeIdentityUsageResponse = res "DescribeIdentityUsageResponse" "fixture/DescribeIdentityUsageResponse" + cognitoSync (Proxy :: Proxy DescribeIdentityUsage) testGetCognitoEventsResponse :: GetCognitoEventsResponse -> TestTree testGetCognitoEventsResponse = res "GetCognitoEventsResponse" "fixture/GetCognitoEventsResponse" + cognitoSync (Proxy :: Proxy GetCognitoEvents) testRegisterDeviceResponse :: RegisterDeviceResponse -> TestTree testRegisterDeviceResponse = res "RegisterDeviceResponse" "fixture/RegisterDeviceResponse" + cognitoSync (Proxy :: Proxy RegisterDevice) testSubscribeToDatasetResponse :: SubscribeToDatasetResponse -> TestTree testSubscribeToDatasetResponse = res "SubscribeToDatasetResponse" "fixture/SubscribeToDatasetResponse" + cognitoSync (Proxy :: Proxy SubscribeToDataset) testGetIdentityPoolConfigurationResponse :: GetIdentityPoolConfigurationResponse -> TestTree testGetIdentityPoolConfigurationResponse = res "GetIdentityPoolConfigurationResponse" "fixture/GetIdentityPoolConfigurationResponse" + cognitoSync (Proxy :: Proxy GetIdentityPoolConfiguration) testListRecordsResponse :: ListRecordsResponse -> TestTree testListRecordsResponse = res "ListRecordsResponse" "fixture/ListRecordsResponse" + cognitoSync (Proxy :: Proxy ListRecords) testUnsubscribeFromDatasetResponse :: UnsubscribeFromDatasetResponse -> TestTree testUnsubscribeFromDatasetResponse = res "UnsubscribeFromDatasetResponse" "fixture/UnsubscribeFromDatasetResponse" + cognitoSync (Proxy :: Proxy UnsubscribeFromDataset) testUpdateRecordsResponse :: UpdateRecordsResponse -> TestTree testUpdateRecordsResponse = res "UpdateRecordsResponse" "fixture/UpdateRecordsResponse" + cognitoSync (Proxy :: Proxy UpdateRecords) testListDatasetsResponse :: ListDatasetsResponse -> TestTree testListDatasetsResponse = res "ListDatasetsResponse" "fixture/ListDatasetsResponse" + cognitoSync (Proxy :: Proxy ListDatasets) testBulkPublishResponse :: BulkPublishResponse -> TestTree testBulkPublishResponse = res "BulkPublishResponse" "fixture/BulkPublishResponse" + cognitoSync (Proxy :: Proxy BulkPublish)