module Network.AWS.CognitoSync.SubscribeToDataset
(
SubscribeToDataset
, subscribeToDataset
, stdDatasetName
, stdDeviceId
, stdIdentityId
, stdIdentityPoolId
, SubscribeToDatasetResponse
, subscribeToDatasetResponse
) where
import Network.AWS.Data (Object)
import Network.AWS.Prelude
import Network.AWS.Request.RestJSON
import Network.AWS.CognitoSync.Types
import qualified GHC.Exts
data SubscribeToDataset = SubscribeToDataset
{ _stdDatasetName :: Text
, _stdDeviceId :: Text
, _stdIdentityId :: Text
, _stdIdentityPoolId :: Text
} deriving (Eq, Ord, Read, Show)
subscribeToDataset :: Text
-> Text
-> Text
-> Text
-> SubscribeToDataset
subscribeToDataset p1 p2 p3 p4 = SubscribeToDataset
{ _stdIdentityPoolId = p1
, _stdIdentityId = p2
, _stdDatasetName = p3
, _stdDeviceId = p4
}
stdDatasetName :: Lens' SubscribeToDataset Text
stdDatasetName = lens _stdDatasetName (\s a -> s { _stdDatasetName = a })
stdDeviceId :: Lens' SubscribeToDataset Text
stdDeviceId = lens _stdDeviceId (\s a -> s { _stdDeviceId = a })
stdIdentityId :: Lens' SubscribeToDataset Text
stdIdentityId = lens _stdIdentityId (\s a -> s { _stdIdentityId = a })
stdIdentityPoolId :: Lens' SubscribeToDataset Text
stdIdentityPoolId =
lens _stdIdentityPoolId (\s a -> s { _stdIdentityPoolId = a })
data SubscribeToDatasetResponse = SubscribeToDatasetResponse
deriving (Eq, Ord, Read, Show, Generic)
subscribeToDatasetResponse :: SubscribeToDatasetResponse
subscribeToDatasetResponse = SubscribeToDatasetResponse
instance ToPath SubscribeToDataset where
toPath SubscribeToDataset{..} = mconcat
[ "/identitypools/"
, toText _stdIdentityPoolId
, "/identities/"
, toText _stdIdentityId
, "/datasets/"
, toText _stdDatasetName
, "/subscriptions/"
, toText _stdDeviceId
]
instance ToQuery SubscribeToDataset where
toQuery = const mempty
instance ToHeaders SubscribeToDataset
instance ToJSON SubscribeToDataset where
toJSON = const (toJSON Empty)
instance AWSRequest SubscribeToDataset where
type Sv SubscribeToDataset = CognitoSync
type Rs SubscribeToDataset = SubscribeToDatasetResponse
request = post
response = nullResponse SubscribeToDatasetResponse