{-# 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.StreamJournalToKinesis
(
StreamJournalToKinesis (..),
newStreamJournalToKinesis,
streamJournalToKinesis_exclusiveEndTime,
streamJournalToKinesis_tags,
streamJournalToKinesis_ledgerName,
streamJournalToKinesis_roleArn,
streamJournalToKinesis_inclusiveStartTime,
streamJournalToKinesis_kinesisConfiguration,
streamJournalToKinesis_streamName,
StreamJournalToKinesisResponse (..),
newStreamJournalToKinesisResponse,
streamJournalToKinesisResponse_streamId,
streamJournalToKinesisResponse_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 StreamJournalToKinesis = StreamJournalToKinesis'
{
StreamJournalToKinesis -> Maybe POSIX
exclusiveEndTime :: Prelude.Maybe Data.POSIX,
StreamJournalToKinesis -> Maybe (HashMap Text Text)
tags :: Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text),
StreamJournalToKinesis -> Text
ledgerName :: Prelude.Text,
StreamJournalToKinesis -> Text
roleArn :: Prelude.Text,
StreamJournalToKinesis -> POSIX
inclusiveStartTime :: Data.POSIX,
StreamJournalToKinesis -> KinesisConfiguration
kinesisConfiguration :: KinesisConfiguration,
StreamJournalToKinesis -> Text
streamName :: Prelude.Text
}
deriving (StreamJournalToKinesis -> StreamJournalToKinesis -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StreamJournalToKinesis -> StreamJournalToKinesis -> Bool
$c/= :: StreamJournalToKinesis -> StreamJournalToKinesis -> Bool
== :: StreamJournalToKinesis -> StreamJournalToKinesis -> Bool
$c== :: StreamJournalToKinesis -> StreamJournalToKinesis -> Bool
Prelude.Eq, ReadPrec [StreamJournalToKinesis]
ReadPrec StreamJournalToKinesis
Int -> ReadS StreamJournalToKinesis
ReadS [StreamJournalToKinesis]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StreamJournalToKinesis]
$creadListPrec :: ReadPrec [StreamJournalToKinesis]
readPrec :: ReadPrec StreamJournalToKinesis
$creadPrec :: ReadPrec StreamJournalToKinesis
readList :: ReadS [StreamJournalToKinesis]
$creadList :: ReadS [StreamJournalToKinesis]
readsPrec :: Int -> ReadS StreamJournalToKinesis
$creadsPrec :: Int -> ReadS StreamJournalToKinesis
Prelude.Read, Int -> StreamJournalToKinesis -> ShowS
[StreamJournalToKinesis] -> ShowS
StreamJournalToKinesis -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StreamJournalToKinesis] -> ShowS
$cshowList :: [StreamJournalToKinesis] -> ShowS
show :: StreamJournalToKinesis -> String
$cshow :: StreamJournalToKinesis -> String
showsPrec :: Int -> StreamJournalToKinesis -> ShowS
$cshowsPrec :: Int -> StreamJournalToKinesis -> ShowS
Prelude.Show, forall x. Rep StreamJournalToKinesis x -> StreamJournalToKinesis
forall x. StreamJournalToKinesis -> Rep StreamJournalToKinesis x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep StreamJournalToKinesis x -> StreamJournalToKinesis
$cfrom :: forall x. StreamJournalToKinesis -> Rep StreamJournalToKinesis x
Prelude.Generic)
newStreamJournalToKinesis ::
Prelude.Text ->
Prelude.Text ->
Prelude.UTCTime ->
KinesisConfiguration ->
Prelude.Text ->
StreamJournalToKinesis
newStreamJournalToKinesis :: Text
-> Text
-> UTCTime
-> KinesisConfiguration
-> Text
-> StreamJournalToKinesis
newStreamJournalToKinesis
Text
pLedgerName_
Text
pRoleArn_
UTCTime
pInclusiveStartTime_
KinesisConfiguration
pKinesisConfiguration_
Text
pStreamName_ =
StreamJournalToKinesis'
{ $sel:exclusiveEndTime:StreamJournalToKinesis' :: Maybe POSIX
exclusiveEndTime =
forall a. Maybe a
Prelude.Nothing,
$sel:tags:StreamJournalToKinesis' :: Maybe (HashMap Text Text)
tags = forall a. Maybe a
Prelude.Nothing,
$sel:ledgerName:StreamJournalToKinesis' :: Text
ledgerName = Text
pLedgerName_,
$sel:roleArn:StreamJournalToKinesis' :: Text
roleArn = Text
pRoleArn_,
$sel:inclusiveStartTime:StreamJournalToKinesis' :: POSIX
inclusiveStartTime =
forall (a :: Format). Iso' (Time a) UTCTime
Data._Time forall t b. AReview t b -> b -> t
Lens.# UTCTime
pInclusiveStartTime_,
$sel:kinesisConfiguration:StreamJournalToKinesis' :: KinesisConfiguration
kinesisConfiguration = KinesisConfiguration
pKinesisConfiguration_,
$sel:streamName:StreamJournalToKinesis' :: Text
streamName = Text
pStreamName_
}
streamJournalToKinesis_exclusiveEndTime :: Lens.Lens' StreamJournalToKinesis (Prelude.Maybe Prelude.UTCTime)
streamJournalToKinesis_exclusiveEndTime :: Lens' StreamJournalToKinesis (Maybe UTCTime)
streamJournalToKinesis_exclusiveEndTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {Maybe POSIX
exclusiveEndTime :: Maybe POSIX
$sel:exclusiveEndTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe POSIX
exclusiveEndTime} -> Maybe POSIX
exclusiveEndTime) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} Maybe POSIX
a -> StreamJournalToKinesis
s {$sel:exclusiveEndTime:StreamJournalToKinesis' :: Maybe POSIX
exclusiveEndTime = Maybe POSIX
a} :: StreamJournalToKinesis) 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 (a :: Format). Iso' (Time a) UTCTime
Data._Time
streamJournalToKinesis_tags :: Lens.Lens' StreamJournalToKinesis (Prelude.Maybe (Prelude.HashMap Prelude.Text Prelude.Text))
streamJournalToKinesis_tags :: Lens' StreamJournalToKinesis (Maybe (HashMap Text Text))
streamJournalToKinesis_tags = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {Maybe (HashMap Text Text)
tags :: Maybe (HashMap Text Text)
$sel:tags:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe (HashMap Text Text)
tags} -> Maybe (HashMap Text Text)
tags) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} Maybe (HashMap Text Text)
a -> StreamJournalToKinesis
s {$sel:tags:StreamJournalToKinesis' :: Maybe (HashMap Text Text)
tags = Maybe (HashMap Text Text)
a} :: StreamJournalToKinesis) 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
streamJournalToKinesis_ledgerName :: Lens.Lens' StreamJournalToKinesis Prelude.Text
streamJournalToKinesis_ledgerName :: Lens' StreamJournalToKinesis Text
streamJournalToKinesis_ledgerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {Text
ledgerName :: Text
$sel:ledgerName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
ledgerName} -> Text
ledgerName) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} Text
a -> StreamJournalToKinesis
s {$sel:ledgerName:StreamJournalToKinesis' :: Text
ledgerName = Text
a} :: StreamJournalToKinesis)
streamJournalToKinesis_roleArn :: Lens.Lens' StreamJournalToKinesis Prelude.Text
streamJournalToKinesis_roleArn :: Lens' StreamJournalToKinesis Text
streamJournalToKinesis_roleArn = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {Text
roleArn :: Text
$sel:roleArn:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
roleArn} -> Text
roleArn) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} Text
a -> StreamJournalToKinesis
s {$sel:roleArn:StreamJournalToKinesis' :: Text
roleArn = Text
a} :: StreamJournalToKinesis)
streamJournalToKinesis_inclusiveStartTime :: Lens.Lens' StreamJournalToKinesis Prelude.UTCTime
streamJournalToKinesis_inclusiveStartTime :: Lens' StreamJournalToKinesis UTCTime
streamJournalToKinesis_inclusiveStartTime = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {POSIX
inclusiveStartTime :: POSIX
$sel:inclusiveStartTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> POSIX
inclusiveStartTime} -> POSIX
inclusiveStartTime) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} POSIX
a -> StreamJournalToKinesis
s {$sel:inclusiveStartTime:StreamJournalToKinesis' :: POSIX
inclusiveStartTime = POSIX
a} :: StreamJournalToKinesis) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall (a :: Format). Iso' (Time a) UTCTime
Data._Time
streamJournalToKinesis_kinesisConfiguration :: Lens.Lens' StreamJournalToKinesis KinesisConfiguration
streamJournalToKinesis_kinesisConfiguration :: Lens' StreamJournalToKinesis KinesisConfiguration
streamJournalToKinesis_kinesisConfiguration = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {KinesisConfiguration
kinesisConfiguration :: KinesisConfiguration
$sel:kinesisConfiguration:StreamJournalToKinesis' :: StreamJournalToKinesis -> KinesisConfiguration
kinesisConfiguration} -> KinesisConfiguration
kinesisConfiguration) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} KinesisConfiguration
a -> StreamJournalToKinesis
s {$sel:kinesisConfiguration:StreamJournalToKinesis' :: KinesisConfiguration
kinesisConfiguration = KinesisConfiguration
a} :: StreamJournalToKinesis)
streamJournalToKinesis_streamName :: Lens.Lens' StreamJournalToKinesis Prelude.Text
streamJournalToKinesis_streamName :: Lens' StreamJournalToKinesis Text
streamJournalToKinesis_streamName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesis' {Text
streamName :: Text
$sel:streamName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
streamName} -> Text
streamName) (\s :: StreamJournalToKinesis
s@StreamJournalToKinesis' {} Text
a -> StreamJournalToKinesis
s {$sel:streamName:StreamJournalToKinesis' :: Text
streamName = Text
a} :: StreamJournalToKinesis)
instance Core.AWSRequest StreamJournalToKinesis where
type
AWSResponse StreamJournalToKinesis =
StreamJournalToKinesisResponse
request :: (Service -> Service)
-> StreamJournalToKinesis -> Request StreamJournalToKinesis
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 StreamJournalToKinesis
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse StreamJournalToKinesis)))
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 Text -> Int -> StreamJournalToKinesisResponse
StreamJournalToKinesisResponse'
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
"StreamId")
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 StreamJournalToKinesis where
hashWithSalt :: Int -> StreamJournalToKinesis -> Int
hashWithSalt Int
_salt StreamJournalToKinesis' {Maybe (HashMap Text Text)
Maybe POSIX
Text
POSIX
KinesisConfiguration
streamName :: Text
kinesisConfiguration :: KinesisConfiguration
inclusiveStartTime :: POSIX
roleArn :: Text
ledgerName :: Text
tags :: Maybe (HashMap Text Text)
exclusiveEndTime :: Maybe POSIX
$sel:streamName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:kinesisConfiguration:StreamJournalToKinesis' :: StreamJournalToKinesis -> KinesisConfiguration
$sel:inclusiveStartTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> POSIX
$sel:roleArn:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:ledgerName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:tags:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe (HashMap Text Text)
$sel:exclusiveEndTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe POSIX
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe POSIX
exclusiveEndTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text Text)
tags
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
ledgerName
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
roleArn
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` POSIX
inclusiveStartTime
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` KinesisConfiguration
kinesisConfiguration
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
streamName
instance Prelude.NFData StreamJournalToKinesis where
rnf :: StreamJournalToKinesis -> ()
rnf StreamJournalToKinesis' {Maybe (HashMap Text Text)
Maybe POSIX
Text
POSIX
KinesisConfiguration
streamName :: Text
kinesisConfiguration :: KinesisConfiguration
inclusiveStartTime :: POSIX
roleArn :: Text
ledgerName :: Text
tags :: Maybe (HashMap Text Text)
exclusiveEndTime :: Maybe POSIX
$sel:streamName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:kinesisConfiguration:StreamJournalToKinesis' :: StreamJournalToKinesis -> KinesisConfiguration
$sel:inclusiveStartTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> POSIX
$sel:roleArn:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:ledgerName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:tags:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe (HashMap Text Text)
$sel:exclusiveEndTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe POSIX
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe POSIX
exclusiveEndTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text Text)
tags
seq :: forall a b. a -> b -> b
`Prelude.seq` 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
roleArn
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf POSIX
inclusiveStartTime
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf KinesisConfiguration
kinesisConfiguration
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
streamName
instance Data.ToHeaders StreamJournalToKinesis where
toHeaders :: StreamJournalToKinesis -> 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.ToJSON StreamJournalToKinesis where
toJSON :: StreamJournalToKinesis -> Value
toJSON StreamJournalToKinesis' {Maybe (HashMap Text Text)
Maybe POSIX
Text
POSIX
KinesisConfiguration
streamName :: Text
kinesisConfiguration :: KinesisConfiguration
inclusiveStartTime :: POSIX
roleArn :: Text
ledgerName :: Text
tags :: Maybe (HashMap Text Text)
exclusiveEndTime :: Maybe POSIX
$sel:streamName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:kinesisConfiguration:StreamJournalToKinesis' :: StreamJournalToKinesis -> KinesisConfiguration
$sel:inclusiveStartTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> POSIX
$sel:roleArn:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:ledgerName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:tags:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe (HashMap Text Text)
$sel:exclusiveEndTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe POSIX
..} =
[Pair] -> Value
Data.object
( forall a. [Maybe a] -> [a]
Prelude.catMaybes
[ (Key
"ExclusiveEndTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe POSIX
exclusiveEndTime,
(Key
"Tags" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..=) forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text Text)
tags,
forall a. a -> Maybe a
Prelude.Just (Key
"RoleArn" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
roleArn),
forall a. a -> Maybe a
Prelude.Just
(Key
"InclusiveStartTime" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= POSIX
inclusiveStartTime),
forall a. a -> Maybe a
Prelude.Just
( Key
"KinesisConfiguration"
forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= KinesisConfiguration
kinesisConfiguration
),
forall a. a -> Maybe a
Prelude.Just (Key
"StreamName" forall kv v. (KeyValue kv, ToJSON v) => Key -> v -> kv
Data..= Text
streamName)
]
)
instance Data.ToPath StreamJournalToKinesis where
toPath :: StreamJournalToKinesis -> ByteString
toPath StreamJournalToKinesis' {Maybe (HashMap Text Text)
Maybe POSIX
Text
POSIX
KinesisConfiguration
streamName :: Text
kinesisConfiguration :: KinesisConfiguration
inclusiveStartTime :: POSIX
roleArn :: Text
ledgerName :: Text
tags :: Maybe (HashMap Text Text)
exclusiveEndTime :: Maybe POSIX
$sel:streamName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:kinesisConfiguration:StreamJournalToKinesis' :: StreamJournalToKinesis -> KinesisConfiguration
$sel:inclusiveStartTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> POSIX
$sel:roleArn:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:ledgerName:StreamJournalToKinesis' :: StreamJournalToKinesis -> Text
$sel:tags:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe (HashMap Text Text)
$sel:exclusiveEndTime:StreamJournalToKinesis' :: StreamJournalToKinesis -> Maybe POSIX
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/ledgers/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
ledgerName,
ByteString
"/journal-kinesis-streams"
]
instance Data.ToQuery StreamJournalToKinesis where
toQuery :: StreamJournalToKinesis -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data StreamJournalToKinesisResponse = StreamJournalToKinesisResponse'
{
StreamJournalToKinesisResponse -> Maybe Text
streamId :: Prelude.Maybe Prelude.Text,
StreamJournalToKinesisResponse -> Int
httpStatus :: Prelude.Int
}
deriving (StreamJournalToKinesisResponse
-> StreamJournalToKinesisResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: StreamJournalToKinesisResponse
-> StreamJournalToKinesisResponse -> Bool
$c/= :: StreamJournalToKinesisResponse
-> StreamJournalToKinesisResponse -> Bool
== :: StreamJournalToKinesisResponse
-> StreamJournalToKinesisResponse -> Bool
$c== :: StreamJournalToKinesisResponse
-> StreamJournalToKinesisResponse -> Bool
Prelude.Eq, ReadPrec [StreamJournalToKinesisResponse]
ReadPrec StreamJournalToKinesisResponse
Int -> ReadS StreamJournalToKinesisResponse
ReadS [StreamJournalToKinesisResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [StreamJournalToKinesisResponse]
$creadListPrec :: ReadPrec [StreamJournalToKinesisResponse]
readPrec :: ReadPrec StreamJournalToKinesisResponse
$creadPrec :: ReadPrec StreamJournalToKinesisResponse
readList :: ReadS [StreamJournalToKinesisResponse]
$creadList :: ReadS [StreamJournalToKinesisResponse]
readsPrec :: Int -> ReadS StreamJournalToKinesisResponse
$creadsPrec :: Int -> ReadS StreamJournalToKinesisResponse
Prelude.Read, Int -> StreamJournalToKinesisResponse -> ShowS
[StreamJournalToKinesisResponse] -> ShowS
StreamJournalToKinesisResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [StreamJournalToKinesisResponse] -> ShowS
$cshowList :: [StreamJournalToKinesisResponse] -> ShowS
show :: StreamJournalToKinesisResponse -> String
$cshow :: StreamJournalToKinesisResponse -> String
showsPrec :: Int -> StreamJournalToKinesisResponse -> ShowS
$cshowsPrec :: Int -> StreamJournalToKinesisResponse -> ShowS
Prelude.Show, forall x.
Rep StreamJournalToKinesisResponse x
-> StreamJournalToKinesisResponse
forall x.
StreamJournalToKinesisResponse
-> Rep StreamJournalToKinesisResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep StreamJournalToKinesisResponse x
-> StreamJournalToKinesisResponse
$cfrom :: forall x.
StreamJournalToKinesisResponse
-> Rep StreamJournalToKinesisResponse x
Prelude.Generic)
newStreamJournalToKinesisResponse ::
Prelude.Int ->
StreamJournalToKinesisResponse
newStreamJournalToKinesisResponse :: Int -> StreamJournalToKinesisResponse
newStreamJournalToKinesisResponse Int
pHttpStatus_ =
StreamJournalToKinesisResponse'
{ $sel:streamId:StreamJournalToKinesisResponse' :: Maybe Text
streamId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:StreamJournalToKinesisResponse' :: Int
httpStatus = Int
pHttpStatus_
}
streamJournalToKinesisResponse_streamId :: Lens.Lens' StreamJournalToKinesisResponse (Prelude.Maybe Prelude.Text)
streamJournalToKinesisResponse_streamId :: Lens' StreamJournalToKinesisResponse (Maybe Text)
streamJournalToKinesisResponse_streamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesisResponse' {Maybe Text
streamId :: Maybe Text
$sel:streamId:StreamJournalToKinesisResponse' :: StreamJournalToKinesisResponse -> Maybe Text
streamId} -> Maybe Text
streamId) (\s :: StreamJournalToKinesisResponse
s@StreamJournalToKinesisResponse' {} Maybe Text
a -> StreamJournalToKinesisResponse
s {$sel:streamId:StreamJournalToKinesisResponse' :: Maybe Text
streamId = Maybe Text
a} :: StreamJournalToKinesisResponse)
streamJournalToKinesisResponse_httpStatus :: Lens.Lens' StreamJournalToKinesisResponse Prelude.Int
streamJournalToKinesisResponse_httpStatus :: Lens' StreamJournalToKinesisResponse Int
streamJournalToKinesisResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\StreamJournalToKinesisResponse' {Int
httpStatus :: Int
$sel:httpStatus:StreamJournalToKinesisResponse' :: StreamJournalToKinesisResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: StreamJournalToKinesisResponse
s@StreamJournalToKinesisResponse' {} Int
a -> StreamJournalToKinesisResponse
s {$sel:httpStatus:StreamJournalToKinesisResponse' :: Int
httpStatus = Int
a} :: StreamJournalToKinesisResponse)
instance
Prelude.NFData
StreamJournalToKinesisResponse
where
rnf :: StreamJournalToKinesisResponse -> ()
rnf StreamJournalToKinesisResponse' {Int
Maybe Text
httpStatus :: Int
streamId :: Maybe Text
$sel:httpStatus:StreamJournalToKinesisResponse' :: StreamJournalToKinesisResponse -> Int
$sel:streamId:StreamJournalToKinesisResponse' :: StreamJournalToKinesisResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
streamId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus