{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DuplicateRecordFields #-}
{-# LANGUAGE NamedFieldPuns #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE StrictData #-}
{-# LANGUAGE TypeFamilies #-}
{-# LANGUAGE NoImplicitPrelude #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Amazonka.CognitoSync.UnsubscribeFromDataset
(
UnsubscribeFromDataset (..),
newUnsubscribeFromDataset,
unsubscribeFromDataset_identityPoolId,
unsubscribeFromDataset_identityId,
unsubscribeFromDataset_datasetName,
unsubscribeFromDataset_deviceId,
UnsubscribeFromDatasetResponse (..),
newUnsubscribeFromDatasetResponse,
unsubscribeFromDatasetResponse_httpStatus,
)
where
import Amazonka.CognitoSync.Types
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data UnsubscribeFromDataset = UnsubscribeFromDataset'
{
UnsubscribeFromDataset -> Text
identityPoolId :: Prelude.Text,
UnsubscribeFromDataset -> Text
identityId :: Prelude.Text,
UnsubscribeFromDataset -> Text
datasetName :: Prelude.Text,
UnsubscribeFromDataset -> Text
deviceId :: Prelude.Text
}
deriving (UnsubscribeFromDataset -> UnsubscribeFromDataset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UnsubscribeFromDataset -> UnsubscribeFromDataset -> Bool
$c/= :: UnsubscribeFromDataset -> UnsubscribeFromDataset -> Bool
== :: UnsubscribeFromDataset -> UnsubscribeFromDataset -> Bool
$c== :: UnsubscribeFromDataset -> UnsubscribeFromDataset -> Bool
Prelude.Eq, ReadPrec [UnsubscribeFromDataset]
ReadPrec UnsubscribeFromDataset
Int -> ReadS UnsubscribeFromDataset
ReadS [UnsubscribeFromDataset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UnsubscribeFromDataset]
$creadListPrec :: ReadPrec [UnsubscribeFromDataset]
readPrec :: ReadPrec UnsubscribeFromDataset
$creadPrec :: ReadPrec UnsubscribeFromDataset
readList :: ReadS [UnsubscribeFromDataset]
$creadList :: ReadS [UnsubscribeFromDataset]
readsPrec :: Int -> ReadS UnsubscribeFromDataset
$creadsPrec :: Int -> ReadS UnsubscribeFromDataset
Prelude.Read, Int -> UnsubscribeFromDataset -> ShowS
[UnsubscribeFromDataset] -> ShowS
UnsubscribeFromDataset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UnsubscribeFromDataset] -> ShowS
$cshowList :: [UnsubscribeFromDataset] -> ShowS
show :: UnsubscribeFromDataset -> String
$cshow :: UnsubscribeFromDataset -> String
showsPrec :: Int -> UnsubscribeFromDataset -> ShowS
$cshowsPrec :: Int -> UnsubscribeFromDataset -> ShowS
Prelude.Show, forall x. Rep UnsubscribeFromDataset x -> UnsubscribeFromDataset
forall x. UnsubscribeFromDataset -> Rep UnsubscribeFromDataset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep UnsubscribeFromDataset x -> UnsubscribeFromDataset
$cfrom :: forall x. UnsubscribeFromDataset -> Rep UnsubscribeFromDataset x
Prelude.Generic)
newUnsubscribeFromDataset ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
UnsubscribeFromDataset
newUnsubscribeFromDataset :: Text -> Text -> Text -> Text -> UnsubscribeFromDataset
newUnsubscribeFromDataset
Text
pIdentityPoolId_
Text
pIdentityId_
Text
pDatasetName_
Text
pDeviceId_ =
UnsubscribeFromDataset'
{ $sel:identityPoolId:UnsubscribeFromDataset' :: Text
identityPoolId =
Text
pIdentityPoolId_,
$sel:identityId:UnsubscribeFromDataset' :: Text
identityId = Text
pIdentityId_,
$sel:datasetName:UnsubscribeFromDataset' :: Text
datasetName = Text
pDatasetName_,
$sel:deviceId:UnsubscribeFromDataset' :: Text
deviceId = Text
pDeviceId_
}
unsubscribeFromDataset_identityPoolId :: Lens.Lens' UnsubscribeFromDataset Prelude.Text
unsubscribeFromDataset_identityPoolId :: Lens' UnsubscribeFromDataset Text
unsubscribeFromDataset_identityPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromDataset' {Text
identityPoolId :: Text
$sel:identityPoolId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
identityPoolId} -> Text
identityPoolId) (\s :: UnsubscribeFromDataset
s@UnsubscribeFromDataset' {} Text
a -> UnsubscribeFromDataset
s {$sel:identityPoolId:UnsubscribeFromDataset' :: Text
identityPoolId = Text
a} :: UnsubscribeFromDataset)
unsubscribeFromDataset_identityId :: Lens.Lens' UnsubscribeFromDataset Prelude.Text
unsubscribeFromDataset_identityId :: Lens' UnsubscribeFromDataset Text
unsubscribeFromDataset_identityId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromDataset' {Text
identityId :: Text
$sel:identityId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
identityId} -> Text
identityId) (\s :: UnsubscribeFromDataset
s@UnsubscribeFromDataset' {} Text
a -> UnsubscribeFromDataset
s {$sel:identityId:UnsubscribeFromDataset' :: Text
identityId = Text
a} :: UnsubscribeFromDataset)
unsubscribeFromDataset_datasetName :: Lens.Lens' UnsubscribeFromDataset Prelude.Text
unsubscribeFromDataset_datasetName :: Lens' UnsubscribeFromDataset Text
unsubscribeFromDataset_datasetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromDataset' {Text
datasetName :: Text
$sel:datasetName:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
datasetName} -> Text
datasetName) (\s :: UnsubscribeFromDataset
s@UnsubscribeFromDataset' {} Text
a -> UnsubscribeFromDataset
s {$sel:datasetName:UnsubscribeFromDataset' :: Text
datasetName = Text
a} :: UnsubscribeFromDataset)
unsubscribeFromDataset_deviceId :: Lens.Lens' UnsubscribeFromDataset Prelude.Text
unsubscribeFromDataset_deviceId :: Lens' UnsubscribeFromDataset Text
unsubscribeFromDataset_deviceId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromDataset' {Text
deviceId :: Text
$sel:deviceId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
deviceId} -> Text
deviceId) (\s :: UnsubscribeFromDataset
s@UnsubscribeFromDataset' {} Text
a -> UnsubscribeFromDataset
s {$sel:deviceId:UnsubscribeFromDataset' :: Text
deviceId = Text
a} :: UnsubscribeFromDataset)
instance Core.AWSRequest UnsubscribeFromDataset where
type
AWSResponse UnsubscribeFromDataset =
UnsubscribeFromDatasetResponse
request :: (Service -> Service)
-> UnsubscribeFromDataset -> Request UnsubscribeFromDataset
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.delete (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy UnsubscribeFromDataset
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse UnsubscribeFromDataset)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> () -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveEmpty
( \Int
s ResponseHeaders
h ()
x ->
Int -> UnsubscribeFromDatasetResponse
UnsubscribeFromDatasetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
)
instance Prelude.Hashable UnsubscribeFromDataset where
hashWithSalt :: Int -> UnsubscribeFromDataset -> Int
hashWithSalt Int
_salt UnsubscribeFromDataset' {Text
deviceId :: Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:deviceId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:datasetName:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityPoolId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identityPoolId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
identityId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
datasetName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
deviceId
instance Prelude.NFData UnsubscribeFromDataset where
rnf :: UnsubscribeFromDataset -> ()
rnf UnsubscribeFromDataset' {Text
deviceId :: Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:deviceId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:datasetName:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityPoolId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
identityPoolId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
identityId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
datasetName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
deviceId
instance Data.ToHeaders UnsubscribeFromDataset where
toHeaders :: UnsubscribeFromDataset -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.1" ::
Prelude.ByteString
)
]
)
instance Data.ToPath UnsubscribeFromDataset where
toPath :: UnsubscribeFromDataset -> ByteString
toPath UnsubscribeFromDataset' {Text
deviceId :: Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:deviceId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:datasetName:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
$sel:identityPoolId:UnsubscribeFromDataset' :: UnsubscribeFromDataset -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/identitypools/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
identityPoolId,
ByteString
"/identities/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
identityId,
ByteString
"/datasets/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
datasetName,
ByteString
"/subscriptions/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
deviceId
]
instance Data.ToQuery UnsubscribeFromDataset where
toQuery :: UnsubscribeFromDataset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data UnsubscribeFromDatasetResponse = UnsubscribeFromDatasetResponse'
{
UnsubscribeFromDatasetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (UnsubscribeFromDatasetResponse
-> UnsubscribeFromDatasetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: UnsubscribeFromDatasetResponse
-> UnsubscribeFromDatasetResponse -> Bool
$c/= :: UnsubscribeFromDatasetResponse
-> UnsubscribeFromDatasetResponse -> Bool
== :: UnsubscribeFromDatasetResponse
-> UnsubscribeFromDatasetResponse -> Bool
$c== :: UnsubscribeFromDatasetResponse
-> UnsubscribeFromDatasetResponse -> Bool
Prelude.Eq, ReadPrec [UnsubscribeFromDatasetResponse]
ReadPrec UnsubscribeFromDatasetResponse
Int -> ReadS UnsubscribeFromDatasetResponse
ReadS [UnsubscribeFromDatasetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [UnsubscribeFromDatasetResponse]
$creadListPrec :: ReadPrec [UnsubscribeFromDatasetResponse]
readPrec :: ReadPrec UnsubscribeFromDatasetResponse
$creadPrec :: ReadPrec UnsubscribeFromDatasetResponse
readList :: ReadS [UnsubscribeFromDatasetResponse]
$creadList :: ReadS [UnsubscribeFromDatasetResponse]
readsPrec :: Int -> ReadS UnsubscribeFromDatasetResponse
$creadsPrec :: Int -> ReadS UnsubscribeFromDatasetResponse
Prelude.Read, Int -> UnsubscribeFromDatasetResponse -> ShowS
[UnsubscribeFromDatasetResponse] -> ShowS
UnsubscribeFromDatasetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [UnsubscribeFromDatasetResponse] -> ShowS
$cshowList :: [UnsubscribeFromDatasetResponse] -> ShowS
show :: UnsubscribeFromDatasetResponse -> String
$cshow :: UnsubscribeFromDatasetResponse -> String
showsPrec :: Int -> UnsubscribeFromDatasetResponse -> ShowS
$cshowsPrec :: Int -> UnsubscribeFromDatasetResponse -> ShowS
Prelude.Show, forall x.
Rep UnsubscribeFromDatasetResponse x
-> UnsubscribeFromDatasetResponse
forall x.
UnsubscribeFromDatasetResponse
-> Rep UnsubscribeFromDatasetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep UnsubscribeFromDatasetResponse x
-> UnsubscribeFromDatasetResponse
$cfrom :: forall x.
UnsubscribeFromDatasetResponse
-> Rep UnsubscribeFromDatasetResponse x
Prelude.Generic)
newUnsubscribeFromDatasetResponse ::
Prelude.Int ->
UnsubscribeFromDatasetResponse
newUnsubscribeFromDatasetResponse :: Int -> UnsubscribeFromDatasetResponse
newUnsubscribeFromDatasetResponse Int
pHttpStatus_ =
UnsubscribeFromDatasetResponse'
{ $sel:httpStatus:UnsubscribeFromDatasetResponse' :: Int
httpStatus =
Int
pHttpStatus_
}
unsubscribeFromDatasetResponse_httpStatus :: Lens.Lens' UnsubscribeFromDatasetResponse Prelude.Int
unsubscribeFromDatasetResponse_httpStatus :: Lens' UnsubscribeFromDatasetResponse Int
unsubscribeFromDatasetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\UnsubscribeFromDatasetResponse' {Int
httpStatus :: Int
$sel:httpStatus:UnsubscribeFromDatasetResponse' :: UnsubscribeFromDatasetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: UnsubscribeFromDatasetResponse
s@UnsubscribeFromDatasetResponse' {} Int
a -> UnsubscribeFromDatasetResponse
s {$sel:httpStatus:UnsubscribeFromDatasetResponse' :: Int
httpStatus = Int
a} :: UnsubscribeFromDatasetResponse)
instance
Prelude.NFData
UnsubscribeFromDatasetResponse
where
rnf :: UnsubscribeFromDatasetResponse -> ()
rnf UnsubscribeFromDatasetResponse' {Int
httpStatus :: Int
$sel:httpStatus:UnsubscribeFromDatasetResponse' :: UnsubscribeFromDatasetResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus