{-# 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.DynamoDB.DescribeKinesisStreamingDestination
(
DescribeKinesisStreamingDestination (..),
newDescribeKinesisStreamingDestination,
describeKinesisStreamingDestination_tableName,
DescribeKinesisStreamingDestinationResponse (..),
newDescribeKinesisStreamingDestinationResponse,
describeKinesisStreamingDestinationResponse_kinesisDataStreamDestinations,
describeKinesisStreamingDestinationResponse_tableName,
describeKinesisStreamingDestinationResponse_httpStatus,
)
where
import qualified Amazonka.Core as Core
import qualified Amazonka.Core.Lens.Internal as Lens
import qualified Amazonka.Data as Data
import Amazonka.DynamoDB.Types
import qualified Amazonka.Prelude as Prelude
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeKinesisStreamingDestination = DescribeKinesisStreamingDestination'
{
DescribeKinesisStreamingDestination -> Text
tableName :: Prelude.Text
}
deriving (DescribeKinesisStreamingDestination
-> DescribeKinesisStreamingDestination -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeKinesisStreamingDestination
-> DescribeKinesisStreamingDestination -> Bool
$c/= :: DescribeKinesisStreamingDestination
-> DescribeKinesisStreamingDestination -> Bool
== :: DescribeKinesisStreamingDestination
-> DescribeKinesisStreamingDestination -> Bool
$c== :: DescribeKinesisStreamingDestination
-> DescribeKinesisStreamingDestination -> Bool
Prelude.Eq, ReadPrec [DescribeKinesisStreamingDestination]
ReadPrec DescribeKinesisStreamingDestination
Int -> ReadS DescribeKinesisStreamingDestination
ReadS [DescribeKinesisStreamingDestination]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeKinesisStreamingDestination]
$creadListPrec :: ReadPrec [DescribeKinesisStreamingDestination]
readPrec :: ReadPrec DescribeKinesisStreamingDestination
$creadPrec :: ReadPrec DescribeKinesisStreamingDestination
readList :: ReadS [DescribeKinesisStreamingDestination]
$creadList :: ReadS [DescribeKinesisStreamingDestination]
readsPrec :: Int -> ReadS DescribeKinesisStreamingDestination
$creadsPrec :: Int -> ReadS DescribeKinesisStreamingDestination
Prelude.Read, Int -> DescribeKinesisStreamingDestination -> ShowS
[DescribeKinesisStreamingDestination] -> ShowS
DescribeKinesisStreamingDestination -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeKinesisStreamingDestination] -> ShowS
$cshowList :: [DescribeKinesisStreamingDestination] -> ShowS
show :: DescribeKinesisStreamingDestination -> String
$cshow :: DescribeKinesisStreamingDestination -> String
showsPrec :: Int -> DescribeKinesisStreamingDestination -> ShowS
$cshowsPrec :: Int -> DescribeKinesisStreamingDestination -> ShowS
Prelude.Show, forall x.
Rep DescribeKinesisStreamingDestination x
-> DescribeKinesisStreamingDestination
forall x.
DescribeKinesisStreamingDestination
-> Rep DescribeKinesisStreamingDestination x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeKinesisStreamingDestination x
-> DescribeKinesisStreamingDestination
$cfrom :: forall x.
DescribeKinesisStreamingDestination
-> Rep DescribeKinesisStreamingDestination x
Prelude.Generic)
newDescribeKinesisStreamingDestination ::
Prelude.Text ->
DescribeKinesisStreamingDestination
newDescribeKinesisStreamingDestination :: Text -> DescribeKinesisStreamingDestination
newDescribeKinesisStreamingDestination Text
pTableName_ =
DescribeKinesisStreamingDestination'
{ $sel:tableName:DescribeKinesisStreamingDestination' :: Text
tableName =
Text
pTableName_
}
describeKinesisStreamingDestination_tableName :: Lens.Lens' DescribeKinesisStreamingDestination Prelude.Text
describeKinesisStreamingDestination_tableName :: Lens' DescribeKinesisStreamingDestination Text
describeKinesisStreamingDestination_tableName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKinesisStreamingDestination' {Text
tableName :: Text
$sel:tableName:DescribeKinesisStreamingDestination' :: DescribeKinesisStreamingDestination -> Text
tableName} -> Text
tableName) (\s :: DescribeKinesisStreamingDestination
s@DescribeKinesisStreamingDestination' {} Text
a -> DescribeKinesisStreamingDestination
s {$sel:tableName:DescribeKinesisStreamingDestination' :: Text
tableName = Text
a} :: DescribeKinesisStreamingDestination)
instance
Core.AWSRequest
DescribeKinesisStreamingDestination
where
type
AWSResponse DescribeKinesisStreamingDestination =
DescribeKinesisStreamingDestinationResponse
request :: (Service -> Service)
-> DescribeKinesisStreamingDestination
-> Request DescribeKinesisStreamingDestination
request Service -> Service
overrides =
forall a. (ToRequest a, ToJSON a) => Service -> a -> Request a
Request.postJSON (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy DescribeKinesisStreamingDestination
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse DescribeKinesisStreamingDestination)))
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 [KinesisDataStreamDestination]
-> Maybe Text -> Int -> DescribeKinesisStreamingDestinationResponse
DescribeKinesisStreamingDestinationResponse'
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
"KinesisDataStreamDestinations"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
)
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TableName")
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
DescribeKinesisStreamingDestination
where
hashWithSalt :: Int -> DescribeKinesisStreamingDestination -> Int
hashWithSalt
Int
_salt
DescribeKinesisStreamingDestination' {Text
tableName :: Text
$sel:tableName:DescribeKinesisStreamingDestination' :: DescribeKinesisStreamingDestination -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
tableName
instance
Prelude.NFData
DescribeKinesisStreamingDestination
where
rnf :: DescribeKinesisStreamingDestination -> ()
rnf DescribeKinesisStreamingDestination' {Text
tableName :: Text
$sel:tableName:DescribeKinesisStreamingDestination' :: DescribeKinesisStreamingDestination -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
tableName
instance
Data.ToHeaders
DescribeKinesisStreamingDestination
where
toHeaders :: DescribeKinesisStreamingDestination -> ResponseHeaders
toHeaders =
forall a b. a -> b -> a
Prelude.const
( forall a. Monoid a => [a] -> a
Prelude.mconcat
[ HeaderName
"X-Amz-Target"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"DynamoDB_20120810.DescribeKinesisStreamingDestination" ::
Prelude.ByteString
),
HeaderName
"Content-Type"
forall a. ToHeader a => HeaderName -> a -> ResponseHeaders
Data.=# ( ByteString
"application/x-amz-json-1.0" ::
Prelude.ByteString
)
]
)
instance
Data.ToJSON
DescribeKinesisStreamingDestination
where
toJSON :: DescribeKinesisStreamingDestination -> Value
toJSON DescribeKinesisStreamingDestination' {Text
tableName :: Text
$sel:tableName:DescribeKinesisStreamingDestination' :: DescribeKinesisStreamingDestination -> Text
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[forall a. a -> Maybe a
Prelude.Just (Key
"TableName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
tableName)]
)
instance
Data.ToPath
DescribeKinesisStreamingDestination
where
toPath :: DescribeKinesisStreamingDestination -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
DescribeKinesisStreamingDestination
where
toQuery :: DescribeKinesisStreamingDestination -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeKinesisStreamingDestinationResponse = DescribeKinesisStreamingDestinationResponse'
{
DescribeKinesisStreamingDestinationResponse
-> Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations :: Prelude.Maybe [KinesisDataStreamDestination],
DescribeKinesisStreamingDestinationResponse -> Maybe Text
tableName :: Prelude.Maybe Prelude.Text,
DescribeKinesisStreamingDestinationResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeKinesisStreamingDestinationResponse
-> DescribeKinesisStreamingDestinationResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeKinesisStreamingDestinationResponse
-> DescribeKinesisStreamingDestinationResponse -> Bool
$c/= :: DescribeKinesisStreamingDestinationResponse
-> DescribeKinesisStreamingDestinationResponse -> Bool
== :: DescribeKinesisStreamingDestinationResponse
-> DescribeKinesisStreamingDestinationResponse -> Bool
$c== :: DescribeKinesisStreamingDestinationResponse
-> DescribeKinesisStreamingDestinationResponse -> Bool
Prelude.Eq, ReadPrec [DescribeKinesisStreamingDestinationResponse]
ReadPrec DescribeKinesisStreamingDestinationResponse
Int -> ReadS DescribeKinesisStreamingDestinationResponse
ReadS [DescribeKinesisStreamingDestinationResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeKinesisStreamingDestinationResponse]
$creadListPrec :: ReadPrec [DescribeKinesisStreamingDestinationResponse]
readPrec :: ReadPrec DescribeKinesisStreamingDestinationResponse
$creadPrec :: ReadPrec DescribeKinesisStreamingDestinationResponse
readList :: ReadS [DescribeKinesisStreamingDestinationResponse]
$creadList :: ReadS [DescribeKinesisStreamingDestinationResponse]
readsPrec :: Int -> ReadS DescribeKinesisStreamingDestinationResponse
$creadsPrec :: Int -> ReadS DescribeKinesisStreamingDestinationResponse
Prelude.Read, Int -> DescribeKinesisStreamingDestinationResponse -> ShowS
[DescribeKinesisStreamingDestinationResponse] -> ShowS
DescribeKinesisStreamingDestinationResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeKinesisStreamingDestinationResponse] -> ShowS
$cshowList :: [DescribeKinesisStreamingDestinationResponse] -> ShowS
show :: DescribeKinesisStreamingDestinationResponse -> String
$cshow :: DescribeKinesisStreamingDestinationResponse -> String
showsPrec :: Int -> DescribeKinesisStreamingDestinationResponse -> ShowS
$cshowsPrec :: Int -> DescribeKinesisStreamingDestinationResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeKinesisStreamingDestinationResponse x
-> DescribeKinesisStreamingDestinationResponse
forall x.
DescribeKinesisStreamingDestinationResponse
-> Rep DescribeKinesisStreamingDestinationResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeKinesisStreamingDestinationResponse x
-> DescribeKinesisStreamingDestinationResponse
$cfrom :: forall x.
DescribeKinesisStreamingDestinationResponse
-> Rep DescribeKinesisStreamingDestinationResponse x
Prelude.Generic)
newDescribeKinesisStreamingDestinationResponse ::
Prelude.Int ->
DescribeKinesisStreamingDestinationResponse
newDescribeKinesisStreamingDestinationResponse :: Int -> DescribeKinesisStreamingDestinationResponse
newDescribeKinesisStreamingDestinationResponse
Int
pHttpStatus_ =
DescribeKinesisStreamingDestinationResponse'
{ $sel:kinesisDataStreamDestinations:DescribeKinesisStreamingDestinationResponse' :: Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations =
forall a. Maybe a
Prelude.Nothing,
$sel:tableName:DescribeKinesisStreamingDestinationResponse' :: Maybe Text
tableName = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeKinesisStreamingDestinationResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeKinesisStreamingDestinationResponse_kinesisDataStreamDestinations :: Lens.Lens' DescribeKinesisStreamingDestinationResponse (Prelude.Maybe [KinesisDataStreamDestination])
describeKinesisStreamingDestinationResponse_kinesisDataStreamDestinations :: Lens'
DescribeKinesisStreamingDestinationResponse
(Maybe [KinesisDataStreamDestination])
describeKinesisStreamingDestinationResponse_kinesisDataStreamDestinations = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKinesisStreamingDestinationResponse' {Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations :: Maybe [KinesisDataStreamDestination]
$sel:kinesisDataStreamDestinations:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse
-> Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations} -> Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations) (\s :: DescribeKinesisStreamingDestinationResponse
s@DescribeKinesisStreamingDestinationResponse' {} Maybe [KinesisDataStreamDestination]
a -> DescribeKinesisStreamingDestinationResponse
s {$sel:kinesisDataStreamDestinations:DescribeKinesisStreamingDestinationResponse' :: Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations = Maybe [KinesisDataStreamDestination]
a} :: DescribeKinesisStreamingDestinationResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (f :: * -> *) (g :: * -> *) s t a b.
(Functor f, Functor g) =>
AnIso s t a b -> Iso (f s) (g t) (f a) (g b)
Lens.mapping forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
describeKinesisStreamingDestinationResponse_tableName :: Lens.Lens' DescribeKinesisStreamingDestinationResponse (Prelude.Maybe Prelude.Text)
describeKinesisStreamingDestinationResponse_tableName :: Lens' DescribeKinesisStreamingDestinationResponse (Maybe Text)
describeKinesisStreamingDestinationResponse_tableName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKinesisStreamingDestinationResponse' {Maybe Text
tableName :: Maybe Text
$sel:tableName:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse -> Maybe Text
tableName} -> Maybe Text
tableName) (\s :: DescribeKinesisStreamingDestinationResponse
s@DescribeKinesisStreamingDestinationResponse' {} Maybe Text
a -> DescribeKinesisStreamingDestinationResponse
s {$sel:tableName:DescribeKinesisStreamingDestinationResponse' :: Maybe Text
tableName = Maybe Text
a} :: DescribeKinesisStreamingDestinationResponse)
describeKinesisStreamingDestinationResponse_httpStatus :: Lens.Lens' DescribeKinesisStreamingDestinationResponse Prelude.Int
describeKinesisStreamingDestinationResponse_httpStatus :: Lens' DescribeKinesisStreamingDestinationResponse Int
describeKinesisStreamingDestinationResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeKinesisStreamingDestinationResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeKinesisStreamingDestinationResponse
s@DescribeKinesisStreamingDestinationResponse' {} Int
a -> DescribeKinesisStreamingDestinationResponse
s {$sel:httpStatus:DescribeKinesisStreamingDestinationResponse' :: Int
httpStatus = Int
a} :: DescribeKinesisStreamingDestinationResponse)
instance
Prelude.NFData
DescribeKinesisStreamingDestinationResponse
where
rnf :: DescribeKinesisStreamingDestinationResponse -> ()
rnf DescribeKinesisStreamingDestinationResponse' {Int
Maybe [KinesisDataStreamDestination]
Maybe Text
httpStatus :: Int
tableName :: Maybe Text
kinesisDataStreamDestinations :: Maybe [KinesisDataStreamDestination]
$sel:httpStatus:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse -> Int
$sel:tableName:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse -> Maybe Text
$sel:kinesisDataStreamDestinations:DescribeKinesisStreamingDestinationResponse' :: DescribeKinesisStreamingDestinationResponse
-> Maybe [KinesisDataStreamDestination]
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe [KinesisDataStreamDestination]
kinesisDataStreamDestinations
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
tableName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus