{-# 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.CancelJournalKinesisStream
(
CancelJournalKinesisStream (..),
newCancelJournalKinesisStream,
cancelJournalKinesisStream_ledgerName,
cancelJournalKinesisStream_streamId,
CancelJournalKinesisStreamResponse (..),
newCancelJournalKinesisStreamResponse,
cancelJournalKinesisStreamResponse_streamId,
cancelJournalKinesisStreamResponse_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 CancelJournalKinesisStream = CancelJournalKinesisStream'
{
CancelJournalKinesisStream -> Text
ledgerName :: Prelude.Text,
CancelJournalKinesisStream -> Text
streamId :: Prelude.Text
}
deriving (CancelJournalKinesisStream -> CancelJournalKinesisStream -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelJournalKinesisStream -> CancelJournalKinesisStream -> Bool
$c/= :: CancelJournalKinesisStream -> CancelJournalKinesisStream -> Bool
== :: CancelJournalKinesisStream -> CancelJournalKinesisStream -> Bool
$c== :: CancelJournalKinesisStream -> CancelJournalKinesisStream -> Bool
Prelude.Eq, ReadPrec [CancelJournalKinesisStream]
ReadPrec CancelJournalKinesisStream
Int -> ReadS CancelJournalKinesisStream
ReadS [CancelJournalKinesisStream]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelJournalKinesisStream]
$creadListPrec :: ReadPrec [CancelJournalKinesisStream]
readPrec :: ReadPrec CancelJournalKinesisStream
$creadPrec :: ReadPrec CancelJournalKinesisStream
readList :: ReadS [CancelJournalKinesisStream]
$creadList :: ReadS [CancelJournalKinesisStream]
readsPrec :: Int -> ReadS CancelJournalKinesisStream
$creadsPrec :: Int -> ReadS CancelJournalKinesisStream
Prelude.Read, Int -> CancelJournalKinesisStream -> ShowS
[CancelJournalKinesisStream] -> ShowS
CancelJournalKinesisStream -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelJournalKinesisStream] -> ShowS
$cshowList :: [CancelJournalKinesisStream] -> ShowS
show :: CancelJournalKinesisStream -> String
$cshow :: CancelJournalKinesisStream -> String
showsPrec :: Int -> CancelJournalKinesisStream -> ShowS
$cshowsPrec :: Int -> CancelJournalKinesisStream -> ShowS
Prelude.Show, forall x.
Rep CancelJournalKinesisStream x -> CancelJournalKinesisStream
forall x.
CancelJournalKinesisStream -> Rep CancelJournalKinesisStream x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelJournalKinesisStream x -> CancelJournalKinesisStream
$cfrom :: forall x.
CancelJournalKinesisStream -> Rep CancelJournalKinesisStream x
Prelude.Generic)
newCancelJournalKinesisStream ::
Prelude.Text ->
Prelude.Text ->
CancelJournalKinesisStream
newCancelJournalKinesisStream :: Text -> Text -> CancelJournalKinesisStream
newCancelJournalKinesisStream Text
pLedgerName_ Text
pStreamId_ =
CancelJournalKinesisStream'
{ $sel:ledgerName:CancelJournalKinesisStream' :: Text
ledgerName =
Text
pLedgerName_,
$sel:streamId:CancelJournalKinesisStream' :: Text
streamId = Text
pStreamId_
}
cancelJournalKinesisStream_ledgerName :: Lens.Lens' CancelJournalKinesisStream Prelude.Text
cancelJournalKinesisStream_ledgerName :: Lens' CancelJournalKinesisStream Text
cancelJournalKinesisStream_ledgerName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelJournalKinesisStream' {Text
ledgerName :: Text
$sel:ledgerName:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> Text
ledgerName} -> Text
ledgerName) (\s :: CancelJournalKinesisStream
s@CancelJournalKinesisStream' {} Text
a -> CancelJournalKinesisStream
s {$sel:ledgerName:CancelJournalKinesisStream' :: Text
ledgerName = Text
a} :: CancelJournalKinesisStream)
cancelJournalKinesisStream_streamId :: Lens.Lens' CancelJournalKinesisStream Prelude.Text
cancelJournalKinesisStream_streamId :: Lens' CancelJournalKinesisStream Text
cancelJournalKinesisStream_streamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelJournalKinesisStream' {Text
streamId :: Text
$sel:streamId:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> Text
streamId} -> Text
streamId) (\s :: CancelJournalKinesisStream
s@CancelJournalKinesisStream' {} Text
a -> CancelJournalKinesisStream
s {$sel:streamId:CancelJournalKinesisStream' :: Text
streamId = Text
a} :: CancelJournalKinesisStream)
instance Core.AWSRequest CancelJournalKinesisStream where
type
AWSResponse CancelJournalKinesisStream =
CancelJournalKinesisStreamResponse
request :: (Service -> Service)
-> CancelJournalKinesisStream -> Request CancelJournalKinesisStream
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 CancelJournalKinesisStream
-> ClientResponse ClientBody
-> m (Either
Error (ClientResponse (AWSResponse CancelJournalKinesisStream)))
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 -> CancelJournalKinesisStreamResponse
CancelJournalKinesisStreamResponse'
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 CancelJournalKinesisStream where
hashWithSalt :: Int -> CancelJournalKinesisStream -> Int
hashWithSalt Int
_salt CancelJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> Text
$sel:ledgerName:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> 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 CancelJournalKinesisStream where
rnf :: CancelJournalKinesisStream -> ()
rnf CancelJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> Text
$sel:ledgerName:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> 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 CancelJournalKinesisStream where
toHeaders :: CancelJournalKinesisStream -> 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 CancelJournalKinesisStream where
toPath :: CancelJournalKinesisStream -> ByteString
toPath CancelJournalKinesisStream' {Text
streamId :: Text
ledgerName :: Text
$sel:streamId:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> Text
$sel:ledgerName:CancelJournalKinesisStream' :: CancelJournalKinesisStream -> 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 CancelJournalKinesisStream where
toQuery :: CancelJournalKinesisStream -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data CancelJournalKinesisStreamResponse = CancelJournalKinesisStreamResponse'
{
CancelJournalKinesisStreamResponse -> Maybe Text
streamId :: Prelude.Maybe Prelude.Text,
CancelJournalKinesisStreamResponse -> Int
httpStatus :: Prelude.Int
}
deriving (CancelJournalKinesisStreamResponse
-> CancelJournalKinesisStreamResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: CancelJournalKinesisStreamResponse
-> CancelJournalKinesisStreamResponse -> Bool
$c/= :: CancelJournalKinesisStreamResponse
-> CancelJournalKinesisStreamResponse -> Bool
== :: CancelJournalKinesisStreamResponse
-> CancelJournalKinesisStreamResponse -> Bool
$c== :: CancelJournalKinesisStreamResponse
-> CancelJournalKinesisStreamResponse -> Bool
Prelude.Eq, ReadPrec [CancelJournalKinesisStreamResponse]
ReadPrec CancelJournalKinesisStreamResponse
Int -> ReadS CancelJournalKinesisStreamResponse
ReadS [CancelJournalKinesisStreamResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [CancelJournalKinesisStreamResponse]
$creadListPrec :: ReadPrec [CancelJournalKinesisStreamResponse]
readPrec :: ReadPrec CancelJournalKinesisStreamResponse
$creadPrec :: ReadPrec CancelJournalKinesisStreamResponse
readList :: ReadS [CancelJournalKinesisStreamResponse]
$creadList :: ReadS [CancelJournalKinesisStreamResponse]
readsPrec :: Int -> ReadS CancelJournalKinesisStreamResponse
$creadsPrec :: Int -> ReadS CancelJournalKinesisStreamResponse
Prelude.Read, Int -> CancelJournalKinesisStreamResponse -> ShowS
[CancelJournalKinesisStreamResponse] -> ShowS
CancelJournalKinesisStreamResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [CancelJournalKinesisStreamResponse] -> ShowS
$cshowList :: [CancelJournalKinesisStreamResponse] -> ShowS
show :: CancelJournalKinesisStreamResponse -> String
$cshow :: CancelJournalKinesisStreamResponse -> String
showsPrec :: Int -> CancelJournalKinesisStreamResponse -> ShowS
$cshowsPrec :: Int -> CancelJournalKinesisStreamResponse -> ShowS
Prelude.Show, forall x.
Rep CancelJournalKinesisStreamResponse x
-> CancelJournalKinesisStreamResponse
forall x.
CancelJournalKinesisStreamResponse
-> Rep CancelJournalKinesisStreamResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep CancelJournalKinesisStreamResponse x
-> CancelJournalKinesisStreamResponse
$cfrom :: forall x.
CancelJournalKinesisStreamResponse
-> Rep CancelJournalKinesisStreamResponse x
Prelude.Generic)
newCancelJournalKinesisStreamResponse ::
Prelude.Int ->
CancelJournalKinesisStreamResponse
newCancelJournalKinesisStreamResponse :: Int -> CancelJournalKinesisStreamResponse
newCancelJournalKinesisStreamResponse Int
pHttpStatus_ =
CancelJournalKinesisStreamResponse'
{ $sel:streamId:CancelJournalKinesisStreamResponse' :: Maybe Text
streamId =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:CancelJournalKinesisStreamResponse' :: Int
httpStatus = Int
pHttpStatus_
}
cancelJournalKinesisStreamResponse_streamId :: Lens.Lens' CancelJournalKinesisStreamResponse (Prelude.Maybe Prelude.Text)
cancelJournalKinesisStreamResponse_streamId :: Lens' CancelJournalKinesisStreamResponse (Maybe Text)
cancelJournalKinesisStreamResponse_streamId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelJournalKinesisStreamResponse' {Maybe Text
streamId :: Maybe Text
$sel:streamId:CancelJournalKinesisStreamResponse' :: CancelJournalKinesisStreamResponse -> Maybe Text
streamId} -> Maybe Text
streamId) (\s :: CancelJournalKinesisStreamResponse
s@CancelJournalKinesisStreamResponse' {} Maybe Text
a -> CancelJournalKinesisStreamResponse
s {$sel:streamId:CancelJournalKinesisStreamResponse' :: Maybe Text
streamId = Maybe Text
a} :: CancelJournalKinesisStreamResponse)
cancelJournalKinesisStreamResponse_httpStatus :: Lens.Lens' CancelJournalKinesisStreamResponse Prelude.Int
cancelJournalKinesisStreamResponse_httpStatus :: Lens' CancelJournalKinesisStreamResponse Int
cancelJournalKinesisStreamResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\CancelJournalKinesisStreamResponse' {Int
httpStatus :: Int
$sel:httpStatus:CancelJournalKinesisStreamResponse' :: CancelJournalKinesisStreamResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: CancelJournalKinesisStreamResponse
s@CancelJournalKinesisStreamResponse' {} Int
a -> CancelJournalKinesisStreamResponse
s {$sel:httpStatus:CancelJournalKinesisStreamResponse' :: Int
httpStatus = Int
a} :: CancelJournalKinesisStreamResponse)
instance
Prelude.NFData
CancelJournalKinesisStreamResponse
where
rnf :: CancelJournalKinesisStreamResponse -> ()
rnf CancelJournalKinesisStreamResponse' {Int
Maybe Text
httpStatus :: Int
streamId :: Maybe Text
$sel:httpStatus:CancelJournalKinesisStreamResponse' :: CancelJournalKinesisStreamResponse -> Int
$sel:streamId:CancelJournalKinesisStreamResponse' :: CancelJournalKinesisStreamResponse -> 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