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: 0.3.1 +version: 0.3.2 synopsis: Amazon Cognito Sync SDK. homepage: https://github.com/brendanhay/amazonka license: OtherLicense @@ -40,10 +40,12 @@ exposed-modules: Network.AWS.CognitoSync + , Network.AWS.CognitoSync.BulkPublish , Network.AWS.CognitoSync.DeleteDataset , Network.AWS.CognitoSync.DescribeDataset , Network.AWS.CognitoSync.DescribeIdentityPoolUsage , Network.AWS.CognitoSync.DescribeIdentityUsage + , Network.AWS.CognitoSync.GetBulkPublishDetails , Network.AWS.CognitoSync.GetIdentityPoolConfiguration , Network.AWS.CognitoSync.ListDatasets , Network.AWS.CognitoSync.ListIdentityPoolUsage @@ -58,5 +60,5 @@ other-modules: build-depends: - amazonka-core == 0.3.1.* + amazonka-core == 0.3.2.* , base >= 4.7 && < 5 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 @@ -19,10 +19,12 @@ -- credentials. User data is persisted in a dataset that can store up to 1 MB of -- key-value pairs, and you can have up to 20 datasets per user identity. module Network.AWS.CognitoSync - ( module Network.AWS.CognitoSync.DeleteDataset + ( module Network.AWS.CognitoSync.BulkPublish + , module Network.AWS.CognitoSync.DeleteDataset , module Network.AWS.CognitoSync.DescribeDataset , module Network.AWS.CognitoSync.DescribeIdentityPoolUsage , module Network.AWS.CognitoSync.DescribeIdentityUsage + , module Network.AWS.CognitoSync.GetBulkPublishDetails , module Network.AWS.CognitoSync.GetIdentityPoolConfiguration , module Network.AWS.CognitoSync.ListDatasets , module Network.AWS.CognitoSync.ListIdentityPoolUsage @@ -35,10 +37,12 @@ , module Network.AWS.CognitoSync.UpdateRecords ) where +import Network.AWS.CognitoSync.BulkPublish import Network.AWS.CognitoSync.DeleteDataset import Network.AWS.CognitoSync.DescribeDataset import Network.AWS.CognitoSync.DescribeIdentityPoolUsage import Network.AWS.CognitoSync.DescribeIdentityUsage +import Network.AWS.CognitoSync.GetBulkPublishDetails import Network.AWS.CognitoSync.GetIdentityPoolConfiguration import Network.AWS.CognitoSync.ListDatasets import Network.AWS.CognitoSync.ListIdentityPoolUsage diff --git a/gen/Network/AWS/CognitoSync/BulkPublish.hs b/gen/Network/AWS/CognitoSync/BulkPublish.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/CognitoSync/BulkPublish.hs @@ -0,0 +1,121 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Module : Network.AWS.CognitoSync.BulkPublish +-- Copyright : (c) 2013-2014 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 +-- you can obtain it at http://mozilla.org/MPL/2.0/. +-- Maintainer : Brendan Hay +-- Stability : experimental +-- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | Initiates a bulk publish of all existing datasets for an Identity Pool to the +-- configured stream. Customers are limited to one successful bulk publish per +-- 24 hours. Bulk publish is an asynchronous request, customers can see the +-- status of the request via the GetBulkPublishDetails operation. +-- +-- +module Network.AWS.CognitoSync.BulkPublish + ( + -- * Request + BulkPublish + -- ** Request constructor + , bulkPublish + -- ** Request lenses + , bpIdentityPoolId + + -- * Response + , BulkPublishResponse + -- ** Response constructor + , bulkPublishResponse + -- ** Response lenses + , bprIdentityPoolId + ) where + +import Network.AWS.Prelude +import Network.AWS.Request.RestJSON +import Network.AWS.CognitoSync.Types +import qualified GHC.Exts + +newtype BulkPublish = BulkPublish + { _bpIdentityPoolId :: Text + } deriving (Eq, Ord, Read, Show, Monoid, IsString) + +-- | 'BulkPublish' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'bpIdentityPoolId' @::@ 'Text' +-- +bulkPublish :: Text -- ^ 'bpIdentityPoolId' + -> BulkPublish +bulkPublish p1 = BulkPublish + { _bpIdentityPoolId = p1 + } + +-- | 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 }) + +newtype BulkPublishResponse = BulkPublishResponse + { _bprIdentityPoolId :: Maybe Text + } deriving (Eq, Ord, Read, Show, Monoid) + +-- | 'BulkPublishResponse' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'bprIdentityPoolId' @::@ 'Maybe' 'Text' +-- +bulkPublishResponse :: BulkPublishResponse +bulkPublishResponse = BulkPublishResponse + { _bprIdentityPoolId = Nothing + } + +-- | 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. +bprIdentityPoolId :: Lens' BulkPublishResponse (Maybe Text) +bprIdentityPoolId = + lens _bprIdentityPoolId (\s a -> s { _bprIdentityPoolId = a }) + +instance ToPath BulkPublish where + toPath BulkPublish{..} = mconcat + [ "/identitypools/" + , toText _bpIdentityPoolId + , "/bulkpublish" + ] + +instance ToQuery BulkPublish where + toQuery = const mempty + +instance ToHeaders BulkPublish + +instance ToJSON BulkPublish where + toJSON = const (toJSON Empty) + +instance AWSRequest BulkPublish where + type Sv BulkPublish = CognitoSync + type Rs BulkPublish = BulkPublishResponse + + request = post + response = jsonResponse + +instance FromJSON BulkPublishResponse where + parseJSON = withObject "BulkPublishResponse" $ \o -> BulkPublishResponse + <$> o .:? "IdentityPoolId" 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 @@ -24,8 +24,11 @@ -- | Deletes the specific dataset. The dataset will be deleted permanently, and -- the action can't be undone. Datasets that this dataset was merged with will --- no longer report the merge. Any consequent operation on this dataset will --- result in a ResourceNotFoundException. +-- no longer report the merge. Any subsequent operation on this dataset will +-- result in a 'ResourceNotFoundException'. +-- +-- 'DeleteDataset' can be called with temporary user credentials provided by +-- Cognito Identity or with developer credentials. -- -- module Network.AWS.CognitoSync.DeleteDataset 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 @@ -22,12 +22,15 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Gets metadata about a dataset by identity and dataset name. The credentials --- used to make this API call need to have access to the identity data. With --- Amazon Cognito Sync, each identity has access only to its own data. You --- should use Amazon Cognito Identity service to retrieve the credentials --- necessary to make this API call. +-- | Gets meta data about a dataset by identity and dataset name. With Amazon +-- Cognito Sync, each identity has access only to its own data. Thus, the +-- credentials used to make this API call need to have access to the identity +-- data. -- +-- 'DescribeDataset' can be called with temporary user credentials provided by +-- Cognito Identity or with developer credentials. You should use Cognito +-- Identity credentials to make this API call. +-- -- module Network.AWS.CognitoSync.DescribeDataset ( @@ -111,7 +114,7 @@ { _ddrDataset = Nothing } --- | Metadata for a collection of data for an identity. An identity can have +-- | 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 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 @@ -25,6 +25,10 @@ -- | Gets usage details (for example, data storage) about a particular identity -- pool. -- +-- 'DescribeIdentityPoolUsage' can only be called with developer credentials. You +-- cannot make this API call with the temporary user credentials provided by +-- Cognito Identity. +-- -- module Network.AWS.CognitoSync.DescribeIdentityPoolUsage ( 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 @@ -25,6 +25,9 @@ -- | Gets usage information for an identity, including number of datasets and data -- usage. -- +-- 'DescribeIdentityUsage' can be called with temporary user credentials provided +-- by Cognito Identity or with developer credentials. +-- -- module Network.AWS.CognitoSync.DescribeIdentityUsage ( diff --git a/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/CognitoSync/GetBulkPublishDetails.hs @@ -0,0 +1,178 @@ +{-# LANGUAGE DataKinds #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE FlexibleInstances #-} +{-# LANGUAGE GeneralizedNewtypeDeriving #-} +{-# LANGUAGE LambdaCase #-} +{-# LANGUAGE NoImplicitPrelude #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} + +-- Module : Network.AWS.CognitoSync.GetBulkPublishDetails +-- Copyright : (c) 2013-2014 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 +-- you can obtain it at http://mozilla.org/MPL/2.0/. +-- Maintainer : Brendan Hay +-- Stability : experimental +-- Portability : non-portable (GHC extensions) +-- +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | Get the status of the last BulkPublish operation for an identity pool. +-- +-- +module Network.AWS.CognitoSync.GetBulkPublishDetails + ( + -- * Request + GetBulkPublishDetails + -- ** Request constructor + , getBulkPublishDetails + -- ** Request lenses + , gbpdIdentityPoolId + + -- * Response + , GetBulkPublishDetailsResponse + -- ** Response constructor + , getBulkPublishDetailsResponse + -- ** Response lenses + , gbpdrBulkPublishCompleteTime + , gbpdrBulkPublishStartTime + , gbpdrBulkPublishStatus + , gbpdrFailureMessage + , gbpdrIdentityPoolId + ) where + +import Network.AWS.Prelude +import Network.AWS.Request.RestJSON +import Network.AWS.CognitoSync.Types +import qualified GHC.Exts + +newtype GetBulkPublishDetails = GetBulkPublishDetails + { _gbpdIdentityPoolId :: Text + } deriving (Eq, Ord, Read, Show, Monoid, IsString) + +-- | 'GetBulkPublishDetails' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'gbpdIdentityPoolId' @::@ 'Text' +-- +getBulkPublishDetails :: Text -- ^ 'gbpdIdentityPoolId' + -> GetBulkPublishDetails +getBulkPublishDetails p1 = GetBulkPublishDetails + { _gbpdIdentityPoolId = p1 + } + +-- | 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 }) + +data GetBulkPublishDetailsResponse = GetBulkPublishDetailsResponse + { _gbpdrBulkPublishCompleteTime :: Maybe POSIX + , _gbpdrBulkPublishStartTime :: Maybe POSIX + , _gbpdrBulkPublishStatus :: Maybe BulkPublishStatus + , _gbpdrFailureMessage :: Maybe Text + , _gbpdrIdentityPoolId :: Maybe Text + } deriving (Eq, Read, Show) + +-- | 'GetBulkPublishDetailsResponse' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'gbpdrBulkPublishCompleteTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'gbpdrBulkPublishStartTime' @::@ 'Maybe' 'UTCTime' +-- +-- * 'gbpdrBulkPublishStatus' @::@ 'Maybe' 'BulkPublishStatus' +-- +-- * 'gbpdrFailureMessage' @::@ 'Maybe' 'Text' +-- +-- * 'gbpdrIdentityPoolId' @::@ 'Maybe' 'Text' +-- +getBulkPublishDetailsResponse :: GetBulkPublishDetailsResponse +getBulkPublishDetailsResponse = GetBulkPublishDetailsResponse + { _gbpdrIdentityPoolId = Nothing + , _gbpdrBulkPublishStartTime = Nothing + , _gbpdrBulkPublishCompleteTime = Nothing + , _gbpdrBulkPublishStatus = Nothing + , _gbpdrFailureMessage = Nothing + } + +-- | If 'BulkPublishStatus' is SUCCEEDED, the time the last bulk publish operation +-- completed. +gbpdrBulkPublishCompleteTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime) +gbpdrBulkPublishCompleteTime = + lens _gbpdrBulkPublishCompleteTime + (\s a -> s { _gbpdrBulkPublishCompleteTime = a }) + . mapping _Time + +-- | The date/time at which the last bulk publish was initiated. +gbpdrBulkPublishStartTime :: Lens' GetBulkPublishDetailsResponse (Maybe UTCTime) +gbpdrBulkPublishStartTime = + lens _gbpdrBulkPublishStartTime + (\s a -> s { _gbpdrBulkPublishStartTime = a }) + . mapping _Time + +-- | 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. +gbpdrBulkPublishStatus :: Lens' GetBulkPublishDetailsResponse (Maybe BulkPublishStatus) +gbpdrBulkPublishStatus = + lens _gbpdrBulkPublishStatus (\s a -> s { _gbpdrBulkPublishStatus = a }) + +-- | If BulkPublishStatus is FAILED this field will contain the error message that +-- caused the bulk publish to fail. +gbpdrFailureMessage :: Lens' GetBulkPublishDetailsResponse (Maybe Text) +gbpdrFailureMessage = + lens _gbpdrFailureMessage (\s a -> s { _gbpdrFailureMessage = 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. +gbpdrIdentityPoolId :: Lens' GetBulkPublishDetailsResponse (Maybe Text) +gbpdrIdentityPoolId = + lens _gbpdrIdentityPoolId (\s a -> s { _gbpdrIdentityPoolId = a }) + +instance ToPath GetBulkPublishDetails where + toPath GetBulkPublishDetails{..} = mconcat + [ "/identitypools/" + , toText _gbpdIdentityPoolId + , "/getBulkPublishDetails" + ] + +instance ToQuery GetBulkPublishDetails where + toQuery = const mempty + +instance ToHeaders GetBulkPublishDetails + +instance ToJSON GetBulkPublishDetails where + toJSON = const (toJSON Empty) + +instance AWSRequest GetBulkPublishDetails where + type Sv GetBulkPublishDetails = CognitoSync + type Rs GetBulkPublishDetails = GetBulkPublishDetailsResponse + + request = post + response = jsonResponse + +instance FromJSON GetBulkPublishDetailsResponse where + parseJSON = withObject "GetBulkPublishDetailsResponse" $ \o -> GetBulkPublishDetailsResponse + <$> o .:? "BulkPublishCompleteTime" + <*> o .:? "BulkPublishStartTime" + <*> o .:? "BulkPublishStatus" + <*> o .:? "FailureMessage" + <*> o .:? "IdentityPoolId" 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 @@ -39,6 +39,7 @@ -- ** Response constructor , getIdentityPoolConfigurationResponse -- ** Response lenses + , gipcrCognitoStreams , gipcrIdentityPoolId , gipcrPushSync ) where @@ -72,7 +73,8 @@ lens _gipcIdentityPoolId (\s a -> s { _gipcIdentityPoolId = a }) data GetIdentityPoolConfigurationResponse = GetIdentityPoolConfigurationResponse - { _gipcrIdentityPoolId :: Maybe Text + { _gipcrCognitoStreams :: Maybe CognitoStreams + , _gipcrIdentityPoolId :: Maybe Text , _gipcrPushSync :: Maybe PushSync } deriving (Eq, Read, Show) @@ -80,6 +82,8 @@ -- -- The fields accessible through corresponding lenses are: -- +-- * 'gipcrCognitoStreams' @::@ 'Maybe' 'CognitoStreams' +-- -- * 'gipcrIdentityPoolId' @::@ 'Maybe' 'Text' -- -- * 'gipcrPushSync' @::@ 'Maybe' 'PushSync' @@ -88,15 +92,21 @@ getIdentityPoolConfigurationResponse = GetIdentityPoolConfigurationResponse { _gipcrIdentityPoolId = Nothing , _gipcrPushSync = Nothing + , _gipcrCognitoStreams = Nothing } +-- | Options to apply to this identity pool for Amazon Cognito streams. +gipcrCognitoStreams :: Lens' GetIdentityPoolConfigurationResponse (Maybe CognitoStreams) +gipcrCognitoStreams = + lens _gipcrCognitoStreams (\s a -> s { _gipcrCognitoStreams = a }) + -- | A name-spaced GUID (for example, -- us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. gipcrIdentityPoolId :: Lens' GetIdentityPoolConfigurationResponse (Maybe Text) gipcrIdentityPoolId = lens _gipcrIdentityPoolId (\s a -> s { _gipcrIdentityPoolId = a }) --- | Configuration options applied to the identity pool. +-- | Options to apply to this identity pool for push synchronization. gipcrPushSync :: Lens' GetIdentityPoolConfigurationResponse (Maybe PushSync) gipcrPushSync = lens _gipcrPushSync (\s a -> s { _gipcrPushSync = a }) @@ -124,5 +134,6 @@ instance FromJSON GetIdentityPoolConfigurationResponse where parseJSON = withObject "GetIdentityPoolConfigurationResponse" $ \o -> GetIdentityPoolConfigurationResponse - <$> o .:? "IdentityPoolId" + <$> o .:? "CognitoStreams" + <*> o .:? "IdentityPoolId" <*> o .:? "PushSync" 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 @@ -22,10 +22,13 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Lists datasets for an identity. The credentials used to make this API call --- need to have access to the identity data. With Amazon Cognito Sync, each --- identity has access only to its own data. You should use Amazon Cognito --- Identity service to retrieve the credentials necessary to make this API call. +-- | Lists datasets for an identity. With Amazon Cognito Sync, each identity has +-- access only to its own data. Thus, the credentials used to make this API call +-- need to have access to the identity data. +-- +-- 'ListDatasets' can be called with temporary user credentials provided by +-- Cognito Identity or with developer credentials. You should use the Cognito +-- Identity credentials to make this API call. -- -- module Network.AWS.CognitoSync.ListDatasets 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 @@ -24,6 +24,10 @@ -- | Gets a list of identity pools registered with Cognito. -- +-- 'ListIdentityPoolUsage' can only be called with developer credentials. You +-- cannot make this API call with the temporary user credentials provided by +-- Cognito Identity. +-- -- module Network.AWS.CognitoSync.ListIdentityPoolUsage ( 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 @@ -23,10 +23,13 @@ -- Derived from AWS service descriptions, licensed under Apache 2.0. -- | Gets paginated records, optionally changed after a particular sync count for --- a dataset and identity. The credentials used to make this API call need to --- have access to the identity data. With Amazon Cognito Sync, each identity has --- access only to its own data. You should use Amazon Cognito Identity service --- to retrieve the credentials necessary to make this API call. +-- a dataset and identity. With Amazon Cognito Sync, each identity has access +-- only to its own data. Thus, the credentials used to make this API call need +-- to have access to the identity data. +-- +-- 'ListRecords' can be called with temporary user credentials provided by +-- Cognito Identity or with developer credentials. You should use Cognito +-- Identity credentials to make this API call. -- -- module Network.AWS.CognitoSync.ListRecords 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 @@ -32,6 +32,7 @@ -- ** Request constructor , setIdentityPoolConfiguration -- ** Request lenses + , sipcCognitoStreams , sipcIdentityPoolId , sipcPushSync @@ -40,6 +41,7 @@ -- ** Response constructor , setIdentityPoolConfigurationResponse -- ** Response lenses + , sipcrCognitoStreams , sipcrIdentityPoolId , sipcrPushSync ) where @@ -50,7 +52,8 @@ import qualified GHC.Exts data SetIdentityPoolConfiguration = SetIdentityPoolConfiguration - { _sipcIdentityPoolId :: Text + { _sipcCognitoStreams :: Maybe CognitoStreams + , _sipcIdentityPoolId :: Text , _sipcPushSync :: Maybe PushSync } deriving (Eq, Read, Show) @@ -58,6 +61,8 @@ -- -- The fields accessible through corresponding lenses are: -- +-- * 'sipcCognitoStreams' @::@ 'Maybe' 'CognitoStreams' +-- -- * 'sipcIdentityPoolId' @::@ 'Text' -- -- * 'sipcPushSync' @::@ 'Maybe' 'PushSync' @@ -67,8 +72,14 @@ setIdentityPoolConfiguration p1 = SetIdentityPoolConfiguration { _sipcIdentityPoolId = p1 , _sipcPushSync = Nothing + , _sipcCognitoStreams = Nothing } +-- | Options to apply to this identity pool for Amazon Cognito streams. +sipcCognitoStreams :: Lens' SetIdentityPoolConfiguration (Maybe CognitoStreams) +sipcCognitoStreams = + lens _sipcCognitoStreams (\s a -> s { _sipcCognitoStreams = 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. @@ -76,12 +87,13 @@ sipcIdentityPoolId = lens _sipcIdentityPoolId (\s a -> s { _sipcIdentityPoolId = a }) --- | Configuration options to be applied to the identity pool. +-- | Options to apply to this identity pool for push synchronization. sipcPushSync :: Lens' SetIdentityPoolConfiguration (Maybe PushSync) sipcPushSync = lens _sipcPushSync (\s a -> s { _sipcPushSync = a }) data SetIdentityPoolConfigurationResponse = SetIdentityPoolConfigurationResponse - { _sipcrIdentityPoolId :: Maybe Text + { _sipcrCognitoStreams :: Maybe CognitoStreams + , _sipcrIdentityPoolId :: Maybe Text , _sipcrPushSync :: Maybe PushSync } deriving (Eq, Read, Show) @@ -89,6 +101,8 @@ -- -- The fields accessible through corresponding lenses are: -- +-- * 'sipcrCognitoStreams' @::@ 'Maybe' 'CognitoStreams' +-- -- * 'sipcrIdentityPoolId' @::@ 'Maybe' 'Text' -- -- * 'sipcrPushSync' @::@ 'Maybe' 'PushSync' @@ -97,15 +111,21 @@ setIdentityPoolConfigurationResponse = SetIdentityPoolConfigurationResponse { _sipcrIdentityPoolId = Nothing , _sipcrPushSync = Nothing + , _sipcrCognitoStreams = Nothing } +-- | Options to apply to this identity pool for Amazon Cognito streams. +sipcrCognitoStreams :: Lens' SetIdentityPoolConfigurationResponse (Maybe CognitoStreams) +sipcrCognitoStreams = + lens _sipcrCognitoStreams (\s a -> s { _sipcrCognitoStreams = a }) + -- | A name-spaced GUID (for example, -- us-east-1:23EC4050-6AEA-7089-A2DD-08002EXAMPLE) created by Amazon Cognito. sipcrIdentityPoolId :: Lens' SetIdentityPoolConfigurationResponse (Maybe Text) sipcrIdentityPoolId = lens _sipcrIdentityPoolId (\s a -> s { _sipcrIdentityPoolId = a }) --- | Configuration options applied to the identity pool. +-- | Options to apply to this identity pool for push synchronization. sipcrPushSync :: Lens' SetIdentityPoolConfigurationResponse (Maybe PushSync) sipcrPushSync = lens _sipcrPushSync (\s a -> s { _sipcrPushSync = a }) @@ -123,7 +143,8 @@ instance ToJSON SetIdentityPoolConfiguration where toJSON SetIdentityPoolConfiguration{..} = object - [ "PushSync" .= _sipcPushSync + [ "PushSync" .= _sipcPushSync + , "CognitoStreams" .= _sipcCognitoStreams ] instance AWSRequest SetIdentityPoolConfiguration where @@ -135,5 +156,6 @@ instance FromJSON SetIdentityPoolConfigurationResponse where parseJSON = withObject "SetIdentityPoolConfigurationResponse" $ \o -> SetIdentityPoolConfigurationResponse - <$> o .:? "IdentityPoolId" + <$> o .:? "CognitoStreams" + <*> o .:? "IdentityPoolId" <*> o .:? "PushSync" 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 @@ -55,6 +55,12 @@ -- * Operation , Operation (..) + -- * StreamingStatus + , StreamingStatus (..) + + -- * BulkPublishStatus + , BulkPublishStatus (..) + -- * Record , Record , record @@ -65,6 +71,13 @@ , rSyncCount , rValue + -- * CognitoStreams + , CognitoStreams + , cognitoStreams + , csRoleArn + , csStreamName + , csStreamingStatus + -- * IdentityUsage , IdentityUsage , identityUsage @@ -356,6 +369,70 @@ instance ToJSON Operation where toJSON = toJSONText +data StreamingStatus + = Disabled -- ^ DISABLED + | Enabled -- ^ ENABLED + deriving (Eq, Ord, Read, Show, Generic, Enum) + +instance Hashable StreamingStatus + +instance FromText StreamingStatus where + parser = takeLowerText >>= \case + "disabled" -> pure Disabled + "enabled" -> pure Enabled + e -> fail $ + "Failure parsing StreamingStatus from " ++ show e + +instance ToText StreamingStatus where + toText = \case + Disabled -> "DISABLED" + Enabled -> "ENABLED" + +instance ToByteString StreamingStatus +instance ToHeader StreamingStatus +instance ToQuery StreamingStatus + +instance FromJSON StreamingStatus where + parseJSON = parseJSONText "StreamingStatus" + +instance ToJSON StreamingStatus where + toJSON = toJSONText + +data BulkPublishStatus + = Failed -- ^ FAILED + | InProgress -- ^ IN_PROGRESS + | NotStarted -- ^ NOT_STARTED + | Succeeded -- ^ SUCCEEDED + deriving (Eq, Ord, Read, Show, Generic, Enum) + +instance Hashable BulkPublishStatus + +instance FromText BulkPublishStatus where + parser = takeLowerText >>= \case + "failed" -> pure Failed + "in_progress" -> pure InProgress + "not_started" -> pure NotStarted + "succeeded" -> pure Succeeded + e -> fail $ + "Failure parsing BulkPublishStatus from " ++ show e + +instance ToText BulkPublishStatus where + toText = \case + Failed -> "FAILED" + InProgress -> "IN_PROGRESS" + NotStarted -> "NOT_STARTED" + Succeeded -> "SUCCEEDED" + +instance ToByteString BulkPublishStatus +instance ToHeader BulkPublishStatus +instance ToQuery BulkPublishStatus + +instance FromJSON BulkPublishStatus where + parseJSON = parseJSONText "BulkPublishStatus" + +instance ToJSON BulkPublishStatus where + toJSON = toJSONText + data Record = Record { _rDeviceLastModifiedDate :: Maybe POSIX , _rKey :: Maybe Text @@ -436,6 +513,62 @@ , "LastModifiedDate" .= _rLastModifiedDate , "LastModifiedBy" .= _rLastModifiedBy , "DeviceLastModifiedDate" .= _rDeviceLastModifiedDate + ] + +data CognitoStreams = CognitoStreams + { _csRoleArn :: Maybe Text + , _csStreamName :: Maybe Text + , _csStreamingStatus :: Maybe StreamingStatus + } deriving (Eq, Read, Show) + +-- | 'CognitoStreams' constructor. +-- +-- The fields accessible through corresponding lenses are: +-- +-- * 'csRoleArn' @::@ 'Maybe' 'Text' +-- +-- * 'csStreamName' @::@ 'Maybe' 'Text' +-- +-- * 'csStreamingStatus' @::@ 'Maybe' 'StreamingStatus' +-- +cognitoStreams :: CognitoStreams +cognitoStreams = CognitoStreams + { _csStreamName = Nothing + , _csRoleArn = Nothing + , _csStreamingStatus = Nothing + } + +-- | 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 }) + +-- | 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 }) + +-- | 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 }) + +instance FromJSON CognitoStreams where + parseJSON = withObject "CognitoStreams" $ \o -> CognitoStreams + <$> o .:? "RoleArn" + <*> o .:? "StreamName" + <*> o .:? "StreamingStatus" + +instance ToJSON CognitoStreams where + toJSON CognitoStreams{..} = object + [ "StreamName" .= _csStreamName + , "RoleArn" .= _csRoleArn + , "StreamingStatus" .= _csStreamingStatus ] data IdentityUsage = IdentityUsage 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 @@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Unsubscribe from receiving notifications when a dataset is modified by +-- | Unsubscribes from receiving notifications when a dataset is modified by -- another device. -- -- 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 @@ -22,11 +22,10 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Posts updates to records and add and delete records for a dataset and user. --- The credentials used to make this API call need to have access to the --- identity data. With Amazon Cognito Sync, each identity has access only to its --- own data. You should use Amazon Cognito Identity service to retrieve the --- credentials necessary to make this API call. +-- | Posts updates to records and adds and deletes records for a dataset and user. +-- +-- 'UpdateRecords' can only be called with temporary user credentials provided by +-- Cognito Identity. You cannot make this API call with developer credentials. -- -- module Network.AWS.CognitoSync.UpdateRecords