amazonka-cognito-sync 1.1.0 → 1.2.0

raw patch · 23 files changed

+98/−95 lines, 23 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 +2/−2
• gen/Network/AWS/CognitoSync/BulkPublish.hs +1/−2
• gen/Network/AWS/CognitoSync/DeleteDataset.hs +1/−2
• gen/Network/AWS/CognitoSync/DescribeDataset.hs +1/−2
• gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs +1/−2
• gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs +1/−2
• gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs +1/−2
• gen/Network/AWS/CognitoSync/GetCognitoEvents.hs +1/−2
• gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs +1/−2
• gen/Network/AWS/CognitoSync/ListDatasets.hs +1/−2
• gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs +1/−2
• gen/Network/AWS/CognitoSync/ListRecords.hs +1/−2
• gen/Network/AWS/CognitoSync/RegisterDevice.hs +4/−3
• gen/Network/AWS/CognitoSync/SetCognitoEvents.hs +2/−3
• gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs +4/−4
• gen/Network/AWS/CognitoSync/SubscribeToDataset.hs +1/−2
• gen/Network/AWS/CognitoSync/Types.hs +32/−36
• gen/Network/AWS/CognitoSync/Types/Product.hs +13/−10
• gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs +1/−2
• gen/Network/AWS/CognitoSync/UpdateRecords.hs +5/−5
• test/Test/AWS/Gen/CognitoSync.hs +17/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -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

@@ -39,8 +39,8 @@ -- /See:/ <http://docs.aws.amazon.com/cognitosync/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.CognitoSync     (-    -- * Service-      CognitoSync+    -- * Service Configuration+      cognitoSync      -- * Errors     -- $errors

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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 ->

@@ -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'{..}

@@ -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'{..}

@@ -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'{..}

@@ -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 ->

@@ -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.

@@ -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)])

@@ -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 ->

@@ -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'{..}

@@ -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)