{-# 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.QLDB.DescribeJournalKinesisStream
(
DescribeJournalKinesisStream (..),
newDescribeJournalKinesisStream,
describeJournalKinesisStream_ledgerName,
describeJournalKinesisStream_streamId,
DescribeJournalKinesisStreamResponse (..),
newDescribeJournalKinesisStreamResponse,
describeJournalKinesisStreamResponse_stream,
describeJournalKinesisStreamResponse_httpStatus,
)
where
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 Amazonka.QLDB.Types
import qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
data DescribeJournalKinesisStream = DescribeJournalKinesisStream'
{
DescribeJournalKinesisStream -> Text
ledgerName :: Prelude.Text,
DescribeJournalKinesisStream -> Text
streamId :: Prelude.Text
}
deriving (DescribeJournalKinesisStream
-> DescribeJournalKinesisStream -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeJournalKinesisStream
-> DescribeJournalKinesisStream -> Bool
$c/= :: DescribeJournalKinesisStream
-> DescribeJournalKinesisStream -> Bool
== :: DescribeJournalKinesisStream
-> DescribeJournalKinesisStream -> Bool
$c== :: DescribeJournalKinesisStream
-> DescribeJournalKinesisStream -> Bool
Prelude.Eq, ReadPrec [DescribeJournalKinesisStream]
ReadPrec DescribeJournalKinesisStream
Int -> ReadS DescribeJournalKinesisStream
ReadS [DescribeJournalKinesisStream]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeJournalKinesisStream]
$creadListPrec :: ReadPrec [DescribeJournalKinesisStream]
readPrec :: ReadPrec DescribeJournalKinesisStream
$creadPrec :: ReadPrec DescribeJournalKinesisStream
readList :: ReadS [DescribeJournalKinesisStream]
$creadList :: ReadS [DescribeJournalKinesisStream]
readsPrec :: Int -> ReadS DescribeJournalKinesisStream
$creadsPrec :: Int -> ReadS DescribeJournalKinesisStream
Prelude.Read, Int -> DescribeJournalKinesisStream -> ShowS
[DescribeJournalKinesisStream] -> ShowS
DescribeJournalKinesisStream -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeJournalKinesisStream] -> ShowS
$cshowList :: [DescribeJournalKinesisStream] -> ShowS
show :: DescribeJournalKinesisStream -> String
$cshow :: DescribeJournalKinesisStream -> String
showsPrec :: Int -> DescribeJournalKinesisStream -> ShowS
$cshowsPrec :: Int -> DescribeJournalKinesisStream -> ShowS
Prelude.Show, forall x.
Rep DescribeJournalKinesisStream x -> DescribeJournalKinesisStream
forall x.
DescribeJournalKinesisStream -> Rep DescribeJournalKinesisStream x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeJournalKinesisStream x -> DescribeJournalKinesisStream
$cfrom :: forall x.
DescribeJournalKinesisStream -> Rep DescribeJournalKinesisStream x
Prelude.Generic)
newDescribeJournalKinesisStream ::
Prelude.Text ->
Prelude.Text ->
DescribeJournalKinesisStream
newDescribeJournalKinesisStream :: Text -> Text -> DescribeJournalKinesisStream
newDescribeJournalKinesisStream
Text
pLedgerName_
Text
pStreamId_ =
DescribeJournalKinesisStream'
{ $sel:ledgerName:DescribeJournalKinesisStream' :: Text
ledgerName =
Text
pLedgerName_,
$sel:streamId:DescribeJournalKinesisStream' :: Text
streamId = Text
pStreamId_
}
describeJournalKinesisStream_ledgerName :: Lens.Lens' DescribeJournalKinesisStream Prelude.Text
describeJournalKinesisStream_ledgerName :: Lens' DescribeJournalKinesisStream Text
describeJournalKinesisStream_ledgerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeJournalKinesisStream' {Text
ledgerName :: Text
$sel:ledgerName:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
ledgerName} -> Text
ledgerName) (\s :: DescribeJournalKinesisStream
s@DescribeJournalKinesisStream' {} Text
a -> DescribeJournalKinesisStream
s {$sel:ledgerName:DescribeJournalKinesisStream' :: Text
ledgerName = Text
a} :: DescribeJournalKinesisStream)
describeJournalKinesisStream_streamId :: Lens.Lens' DescribeJournalKinesisStream Prelude.Text
describeJournalKinesisStream_streamId :: Lens' DescribeJournalKinesisStream Text
describeJournalKinesisStream_streamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeJournalKinesisStream' {Text
streamId :: Text
$sel:streamId:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
streamId} -> Text
streamId) (\s :: DescribeJournalKinesisStream
s@DescribeJournalKinesisStream' {} Text
a -> DescribeJournalKinesisStream
s {$sel:streamId:DescribeJournalKinesisStream' :: Text
streamId = Text
a} :: DescribeJournalKinesisStream)
instance Core.AWSRequest DescribeJournalKinesisStream where
type
AWSResponse DescribeJournalKinesisStream =
DescribeJournalKinesisStreamResponse
request :: (Service -> Service)
-> DescribeJournalKinesisStream
-> Request DescribeJournalKinesisStream
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 DescribeJournalKinesisStream
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse DescribeJournalKinesisStream)))
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 JournalKinesisStreamDescription
-> Int -> DescribeJournalKinesisStreamResponse
DescribeJournalKinesisStreamResponse'
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
"Stream")
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
DescribeJournalKinesisStream
where
hashWithSalt :: Int -> DescribeJournalKinesisStream -> Int
hashWithSalt Int
_salt DescribeJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
$sel:ledgerName:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ledgerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
streamId
instance Prelude.NFData DescribeJournalKinesisStream where
rnf :: DescribeJournalKinesisStream -> ()
rnf DescribeJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
$sel:ledgerName:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
ledgerName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
streamId
instance Data.ToHeaders DescribeJournalKinesisStream where
toHeaders :: DescribeJournalKinesisStream -> 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.0" ::
Prelude.ByteString
)
]
)
instance Data.ToPath DescribeJournalKinesisStream where
toPath :: DescribeJournalKinesisStream -> ByteString
toPath DescribeJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
$sel:ledgerName:DescribeJournalKinesisStream' :: DescribeJournalKinesisStream -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/ledgers/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
ledgerName,
ByteString
"/journal-kinesis-streams/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
streamId
]
instance Data.ToQuery DescribeJournalKinesisStream where
toQuery :: DescribeJournalKinesisStream -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data DescribeJournalKinesisStreamResponse = DescribeJournalKinesisStreamResponse'
{
DescribeJournalKinesisStreamResponse
-> Maybe JournalKinesisStreamDescription
stream :: Prelude.Maybe JournalKinesisStreamDescription,
DescribeJournalKinesisStreamResponse -> Int
httpStatus :: Prelude.Int
}
deriving (DescribeJournalKinesisStreamResponse
-> DescribeJournalKinesisStreamResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: DescribeJournalKinesisStreamResponse
-> DescribeJournalKinesisStreamResponse -> Bool
$c/= :: DescribeJournalKinesisStreamResponse
-> DescribeJournalKinesisStreamResponse -> Bool
== :: DescribeJournalKinesisStreamResponse
-> DescribeJournalKinesisStreamResponse -> Bool
$c== :: DescribeJournalKinesisStreamResponse
-> DescribeJournalKinesisStreamResponse -> Bool
Prelude.Eq, ReadPrec [DescribeJournalKinesisStreamResponse]
ReadPrec DescribeJournalKinesisStreamResponse
Int -> ReadS DescribeJournalKinesisStreamResponse
ReadS [DescribeJournalKinesisStreamResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [DescribeJournalKinesisStreamResponse]
$creadListPrec :: ReadPrec [DescribeJournalKinesisStreamResponse]
readPrec :: ReadPrec DescribeJournalKinesisStreamResponse
$creadPrec :: ReadPrec DescribeJournalKinesisStreamResponse
readList :: ReadS [DescribeJournalKinesisStreamResponse]
$creadList :: ReadS [DescribeJournalKinesisStreamResponse]
readsPrec :: Int -> ReadS DescribeJournalKinesisStreamResponse
$creadsPrec :: Int -> ReadS DescribeJournalKinesisStreamResponse
Prelude.Read, Int -> DescribeJournalKinesisStreamResponse -> ShowS
[DescribeJournalKinesisStreamResponse] -> ShowS
DescribeJournalKinesisStreamResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [DescribeJournalKinesisStreamResponse] -> ShowS
$cshowList :: [DescribeJournalKinesisStreamResponse] -> ShowS
show :: DescribeJournalKinesisStreamResponse -> String
$cshow :: DescribeJournalKinesisStreamResponse -> String
showsPrec :: Int -> DescribeJournalKinesisStreamResponse -> ShowS
$cshowsPrec :: Int -> DescribeJournalKinesisStreamResponse -> ShowS
Prelude.Show, forall x.
Rep DescribeJournalKinesisStreamResponse x
-> DescribeJournalKinesisStreamResponse
forall x.
DescribeJournalKinesisStreamResponse
-> Rep DescribeJournalKinesisStreamResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep DescribeJournalKinesisStreamResponse x
-> DescribeJournalKinesisStreamResponse
$cfrom :: forall x.
DescribeJournalKinesisStreamResponse
-> Rep DescribeJournalKinesisStreamResponse x
Prelude.Generic)
newDescribeJournalKinesisStreamResponse ::
Prelude.Int ->
DescribeJournalKinesisStreamResponse
newDescribeJournalKinesisStreamResponse :: Int -> DescribeJournalKinesisStreamResponse
newDescribeJournalKinesisStreamResponse Int
pHttpStatus_ =
DescribeJournalKinesisStreamResponse'
{ $sel:stream:DescribeJournalKinesisStreamResponse' :: Maybe JournalKinesisStreamDescription
stream =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:DescribeJournalKinesisStreamResponse' :: Int
httpStatus = Int
pHttpStatus_
}
describeJournalKinesisStreamResponse_stream :: Lens.Lens' DescribeJournalKinesisStreamResponse (Prelude.Maybe JournalKinesisStreamDescription)
describeJournalKinesisStreamResponse_stream :: Lens'
DescribeJournalKinesisStreamResponse
(Maybe JournalKinesisStreamDescription)
describeJournalKinesisStreamResponse_stream = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeJournalKinesisStreamResponse' {Maybe JournalKinesisStreamDescription
stream :: Maybe JournalKinesisStreamDescription
$sel:stream:DescribeJournalKinesisStreamResponse' :: DescribeJournalKinesisStreamResponse
-> Maybe JournalKinesisStreamDescription
stream} -> Maybe JournalKinesisStreamDescription
stream) (\s :: DescribeJournalKinesisStreamResponse
s@DescribeJournalKinesisStreamResponse' {} Maybe JournalKinesisStreamDescription
a -> DescribeJournalKinesisStreamResponse
s {$sel:stream:DescribeJournalKinesisStreamResponse' :: Maybe JournalKinesisStreamDescription
stream = Maybe JournalKinesisStreamDescription
a} :: DescribeJournalKinesisStreamResponse)
describeJournalKinesisStreamResponse_httpStatus :: Lens.Lens' DescribeJournalKinesisStreamResponse Prelude.Int
describeJournalKinesisStreamResponse_httpStatus :: Lens' DescribeJournalKinesisStreamResponse Int
describeJournalKinesisStreamResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\DescribeJournalKinesisStreamResponse' {Int
httpStatus :: Int
$sel:httpStatus:DescribeJournalKinesisStreamResponse' :: DescribeJournalKinesisStreamResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: DescribeJournalKinesisStreamResponse
s@DescribeJournalKinesisStreamResponse' {} Int
a -> DescribeJournalKinesisStreamResponse
s {$sel:httpStatus:DescribeJournalKinesisStreamResponse' :: Int
httpStatus = Int
a} :: DescribeJournalKinesisStreamResponse)
instance
Prelude.NFData
DescribeJournalKinesisStreamResponse
where
rnf :: DescribeJournalKinesisStreamResponse -> ()
rnf DescribeJournalKinesisStreamResponse' {Int
Maybe JournalKinesisStreamDescription
httpStatus :: Int
stream :: Maybe JournalKinesisStreamDescription
$sel:httpStatus:DescribeJournalKinesisStreamResponse' :: DescribeJournalKinesisStreamResponse -> Int
$sel:stream:DescribeJournalKinesisStreamResponse' :: DescribeJournalKinesisStreamResponse
-> Maybe JournalKinesisStreamDescription
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe JournalKinesisStreamDescription
stream
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus