{-# 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.DescribeDataset
(
DescribeDataset (..),
newDescribeDataset,
describeDataset_identityPoolId,
describeDataset_identityId,
describeDataset_datasetName,
DescribeDatasetResponse (..),
newDescribeDatasetResponse,
describeDatasetResponse_dataset,
describeDatasetResponse_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 DescribeDataset = DescribeDataset'
{
DescribeDataset -> Text
identityPoolId :: Prelude.Text,
DescribeDataset -> Text
identityId :: Prelude.Text,
DescribeDataset -> Text
datasetName :: Prelude.Text
}
deriving (DescribeDataset -> DescribeDataset -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDataset -> DescribeDataset -> Bool
$c/= :: DescribeDataset -> DescribeDataset -> Bool
== :: DescribeDataset -> DescribeDataset -> Bool
$c== :: DescribeDataset -> DescribeDataset -> Bool
Prelude.Eq, ReadPrec [DescribeDataset]
ReadPrec DescribeDataset
Int -> ReadS DescribeDataset
ReadS [DescribeDataset]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDataset]
$creadListPrec :: ReadPrec [DescribeDataset]
readPrec :: ReadPrec DescribeDataset
$creadPrec :: ReadPrec DescribeDataset
readList :: ReadS [DescribeDataset]
$creadList :: ReadS [DescribeDataset]
readsPrec :: Int -> ReadS DescribeDataset
$creadsPrec :: Int -> ReadS DescribeDataset
Prelude.Read, Int -> DescribeDataset -> ShowS
[DescribeDataset] -> ShowS
DescribeDataset -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDataset] -> ShowS
$cshowList :: [DescribeDataset] -> ShowS
show :: DescribeDataset -> String
$cshow :: DescribeDataset -> String
showsPrec :: Int -> DescribeDataset -> ShowS
$cshowsPrec :: Int -> DescribeDataset -> ShowS
Prelude.Show, forall x. Rep DescribeDataset x -> DescribeDataset
forall x. DescribeDataset -> Rep DescribeDataset x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDataset x -> DescribeDataset
$cfrom :: forall x. DescribeDataset -> Rep DescribeDataset x
Prelude.Generic)
newDescribeDataset ::
Prelude.Text ->
Prelude.Text ->
Prelude.Text ->
DescribeDataset
newDescribeDataset :: Text -> Text -> Text -> DescribeDataset
newDescribeDataset
Text
pIdentityPoolId_
Text
pIdentityId_
Text
pDatasetName_ =
DescribeDataset'
{ $sel:identityPoolId:DescribeDataset' :: Text
identityPoolId = Text
pIdentityPoolId_,
$sel:identityId:DescribeDataset' :: Text
identityId = Text
pIdentityId_,
$sel:datasetName:DescribeDataset' :: Text
datasetName = Text
pDatasetName_
}
describeDataset_identityPoolId :: Lens.Lens' DescribeDataset Prelude.Text
describeDataset_identityPoolId :: Lens' DescribeDataset Text
describeDataset_identityPoolId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataset' {Text
identityPoolId :: Text
$sel:identityPoolId:DescribeDataset' :: DescribeDataset -> Text
identityPoolId} -> Text
identityPoolId) (\s :: DescribeDataset
s@DescribeDataset' {} Text
a -> DescribeDataset
s {$sel:identityPoolId:DescribeDataset' :: Text
identityPoolId = Text
a} :: DescribeDataset)
describeDataset_identityId :: Lens.Lens' DescribeDataset Prelude.Text
describeDataset_identityId :: Lens' DescribeDataset Text
describeDataset_identityId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataset' {Text
identityId :: Text
$sel:identityId:DescribeDataset' :: DescribeDataset -> Text
identityId} -> Text
identityId) (\s :: DescribeDataset
s@DescribeDataset' {} Text
a -> DescribeDataset
s {$sel:identityId:DescribeDataset' :: Text
identityId = Text
a} :: DescribeDataset)
describeDataset_datasetName :: Lens.Lens' DescribeDataset Prelude.Text
describeDataset_datasetName :: Lens' DescribeDataset Text
describeDataset_datasetName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDataset' {Text
datasetName :: Text
$sel:datasetName:DescribeDataset' :: DescribeDataset -> Text
datasetName} -> Text
datasetName) (\s :: DescribeDataset
s@DescribeDataset' {} Text
a -> DescribeDataset
s {$sel:datasetName:DescribeDataset' :: Text
datasetName = Text
a} :: DescribeDataset)
instance Core.AWSRequest DescribeDataset where
type
AWSResponse DescribeDataset =
DescribeDatasetResponse
request :: (Service -> Service) -> DescribeDataset -> Request DescribeDataset
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.get (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeDataset
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse DescribeDataset)))
response =
forall (m :: * -> *) a.
MonadResource m =>
(Int -> ResponseHeaders -> Object -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveJSON
( \Int
s ResponseHeaders
h Object
x ->
Maybe Dataset -> Int -> DescribeDatasetResponse
DescribeDatasetResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"Dataset")
forall (f :: * -> *) a b. Applicative f => 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 DescribeDataset where
hashWithSalt :: Int -> DescribeDataset -> Int
hashWithSalt Int
_salt DescribeDataset' {Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:datasetName:DescribeDataset' :: DescribeDataset -> Text
$sel:identityId:DescribeDataset' :: DescribeDataset -> Text
$sel:identityPoolId:DescribeDataset' :: DescribeDataset -> 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
instance Prelude.NFData DescribeDataset where
rnf :: DescribeDataset -> ()
rnf DescribeDataset' {Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:datasetName:DescribeDataset' :: DescribeDataset -> Text
$sel:identityId:DescribeDataset' :: DescribeDataset -> Text
$sel:identityPoolId:DescribeDataset' :: DescribeDataset -> 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
instance Data.ToHeaders DescribeDataset where
toHeaders :: DescribeDataset -> 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 DescribeDataset where
toPath :: DescribeDataset -> ByteString
toPath DescribeDataset' {Text
datasetName :: Text
identityId :: Text
identityPoolId :: Text
$sel:datasetName:DescribeDataset' :: DescribeDataset -> Text
$sel:identityId:DescribeDataset' :: DescribeDataset -> Text
$sel:identityPoolId:DescribeDataset' :: DescribeDataset -> 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
]
instance Data.ToQuery DescribeDataset where
toQuery :: DescribeDataset -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeDatasetResponse = DescribeDatasetResponse'
{
DescribeDatasetResponse -> Maybe Dataset
dataset :: Prelude.Maybe Dataset,
DescribeDatasetResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeDatasetResponse -> DescribeDatasetResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeDatasetResponse -> DescribeDatasetResponse -> Bool
$c/= :: DescribeDatasetResponse -> DescribeDatasetResponse -> Bool
== :: DescribeDatasetResponse -> DescribeDatasetResponse -> Bool
$c== :: DescribeDatasetResponse -> DescribeDatasetResponse -> Bool
Prelude.Eq, ReadPrec [DescribeDatasetResponse]
ReadPrec DescribeDatasetResponse
Int -> ReadS DescribeDatasetResponse
ReadS [DescribeDatasetResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeDatasetResponse]
$creadListPrec :: ReadPrec [DescribeDatasetResponse]
readPrec :: ReadPrec DescribeDatasetResponse
$creadPrec :: ReadPrec DescribeDatasetResponse
readList :: ReadS [DescribeDatasetResponse]
$creadList :: ReadS [DescribeDatasetResponse]
readsPrec :: Int -> ReadS DescribeDatasetResponse
$creadsPrec :: Int -> ReadS DescribeDatasetResponse
Prelude.Read, Int -> DescribeDatasetResponse -> ShowS
[DescribeDatasetResponse] -> ShowS
DescribeDatasetResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeDatasetResponse] -> ShowS
$cshowList :: [DescribeDatasetResponse] -> ShowS
show :: DescribeDatasetResponse -> String
$cshow :: DescribeDatasetResponse -> String
showsPrec :: Int -> DescribeDatasetResponse -> ShowS
$cshowsPrec :: Int -> DescribeDatasetResponse -> ShowS
Prelude.Show, forall x. Rep DescribeDatasetResponse x -> DescribeDatasetResponse
forall x. DescribeDatasetResponse -> Rep DescribeDatasetResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep DescribeDatasetResponse x -> DescribeDatasetResponse
$cfrom :: forall x. DescribeDatasetResponse -> Rep DescribeDatasetResponse x
Prelude.Generic)
newDescribeDatasetResponse ::
Prelude.Int ->
DescribeDatasetResponse
newDescribeDatasetResponse :: Int -> DescribeDatasetResponse
newDescribeDatasetResponse Int
pHttpStatus_ =
DescribeDatasetResponse'
{ $sel:dataset:DescribeDatasetResponse' :: Maybe Dataset
dataset = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeDatasetResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeDatasetResponse_dataset :: Lens.Lens' DescribeDatasetResponse (Prelude.Maybe Dataset)
describeDatasetResponse_dataset :: Lens' DescribeDatasetResponse (Maybe Dataset)
describeDatasetResponse_dataset = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDatasetResponse' {Maybe Dataset
dataset :: Maybe Dataset
$sel:dataset:DescribeDatasetResponse' :: DescribeDatasetResponse -> Maybe Dataset
dataset} -> Maybe Dataset
dataset) (\s :: DescribeDatasetResponse
s@DescribeDatasetResponse' {} Maybe Dataset
a -> DescribeDatasetResponse
s {$sel:dataset:DescribeDatasetResponse' :: Maybe Dataset
dataset = Maybe Dataset
a} :: DescribeDatasetResponse)
describeDatasetResponse_httpStatus :: Lens.Lens' DescribeDatasetResponse Prelude.Int
describeDatasetResponse_httpStatus :: Lens' DescribeDatasetResponse Int
describeDatasetResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeDatasetResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeDatasetResponse' :: DescribeDatasetResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeDatasetResponse
s@DescribeDatasetResponse' {} Int
a -> DescribeDatasetResponse
s {$sel:httpStatus:DescribeDatasetResponse' :: Int
httpStatus = Int
a} :: DescribeDatasetResponse)
instance Prelude.NFData DescribeDatasetResponse where
rnf :: DescribeDatasetResponse -> ()
rnf DescribeDatasetResponse' {Int
Maybe Dataset
httpStatus :: Int
dataset :: Maybe Dataset
$sel:httpStatus:DescribeDatasetResponse' :: DescribeDatasetResponse -> Int
$sel:dataset:DescribeDatasetResponse' :: DescribeDatasetResponse -> Maybe Dataset
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Dataset
dataset
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus