{-# 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.SQS.SendMessage
(
SendMessage (..),
newSendMessage,
sendMessage_delaySeconds,
sendMessage_messageAttributes,
sendMessage_messageDeduplicationId,
sendMessage_messageGroupId,
sendMessage_messageSystemAttributes,
sendMessage_queueUrl,
sendMessage_messageBody,
SendMessageResponse (..),
newSendMessageResponse,
sendMessageResponse_mD5OfMessageAttributes,
sendMessageResponse_mD5OfMessageBody,
sendMessageResponse_mD5OfMessageSystemAttributes,
sendMessageResponse_messageId,
sendMessageResponse_sequenceNumber,
sendMessageResponse_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 qualified Amazonka.Request as Request
import qualified Amazonka.Response as Response
import Amazonka.SQS.Types
data SendMessage = SendMessage'
{
SendMessage -> Maybe Int
delaySeconds :: Prelude.Maybe Prelude.Int,
SendMessage -> Maybe (HashMap Text MessageAttributeValue)
messageAttributes :: Prelude.Maybe (Prelude.HashMap Prelude.Text MessageAttributeValue),
SendMessage -> Maybe Text
messageDeduplicationId :: Prelude.Maybe Prelude.Text,
SendMessage -> Maybe Text
messageGroupId :: Prelude.Maybe Prelude.Text,
SendMessage
-> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes :: Prelude.Maybe (Prelude.HashMap MessageSystemAttributeNameForSends MessageSystemAttributeValue),
SendMessage -> Text
queueUrl :: Prelude.Text,
SendMessage -> Text
messageBody :: Prelude.Text
}
deriving (SendMessage -> SendMessage -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SendMessage -> SendMessage -> Bool
$c/= :: SendMessage -> SendMessage -> Bool
== :: SendMessage -> SendMessage -> Bool
$c== :: SendMessage -> SendMessage -> Bool
Prelude.Eq, ReadPrec [SendMessage]
ReadPrec SendMessage
Int -> ReadS SendMessage
ReadS [SendMessage]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SendMessage]
$creadListPrec :: ReadPrec [SendMessage]
readPrec :: ReadPrec SendMessage
$creadPrec :: ReadPrec SendMessage
readList :: ReadS [SendMessage]
$creadList :: ReadS [SendMessage]
readsPrec :: Int -> ReadS SendMessage
$creadsPrec :: Int -> ReadS SendMessage
Prelude.Read, Int -> SendMessage -> ShowS
[SendMessage] -> ShowS
SendMessage -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SendMessage] -> ShowS
$cshowList :: [SendMessage] -> ShowS
show :: SendMessage -> String
$cshow :: SendMessage -> String
showsPrec :: Int -> SendMessage -> ShowS
$cshowsPrec :: Int -> SendMessage -> ShowS
Prelude.Show, forall x. Rep SendMessage x -> SendMessage
forall x. SendMessage -> Rep SendMessage x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SendMessage x -> SendMessage
$cfrom :: forall x. SendMessage -> Rep SendMessage x
Prelude.Generic)
newSendMessage ::
Prelude.Text ->
Prelude.Text ->
SendMessage
newSendMessage :: Text -> Text -> SendMessage
newSendMessage Text
pQueueUrl_ Text
pMessageBody_ =
SendMessage'
{ $sel:delaySeconds:SendMessage' :: Maybe Int
delaySeconds = forall a. Maybe a
Prelude.Nothing,
$sel:messageAttributes:SendMessage' :: Maybe (HashMap Text MessageAttributeValue)
messageAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:messageDeduplicationId:SendMessage' :: Maybe Text
messageDeduplicationId = forall a. Maybe a
Prelude.Nothing,
$sel:messageGroupId:SendMessage' :: Maybe Text
messageGroupId = forall a. Maybe a
Prelude.Nothing,
$sel:messageSystemAttributes:SendMessage' :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:queueUrl:SendMessage' :: Text
queueUrl = Text
pQueueUrl_,
$sel:messageBody:SendMessage' :: Text
messageBody = Text
pMessageBody_
}
sendMessage_delaySeconds :: Lens.Lens' SendMessage (Prelude.Maybe Prelude.Int)
sendMessage_delaySeconds :: Lens' SendMessage (Maybe Int)
sendMessage_delaySeconds = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Maybe Int
delaySeconds :: Maybe Int
$sel:delaySeconds:SendMessage' :: SendMessage -> Maybe Int
delaySeconds} -> Maybe Int
delaySeconds) (\s :: SendMessage
s@SendMessage' {} Maybe Int
a -> SendMessage
s {$sel:delaySeconds:SendMessage' :: Maybe Int
delaySeconds = Maybe Int
a} :: SendMessage)
sendMessage_messageAttributes :: Lens.Lens' SendMessage (Prelude.Maybe (Prelude.HashMap Prelude.Text MessageAttributeValue))
sendMessage_messageAttributes :: Lens' SendMessage (Maybe (HashMap Text MessageAttributeValue))
sendMessage_messageAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Maybe (HashMap Text MessageAttributeValue)
messageAttributes :: Maybe (HashMap Text MessageAttributeValue)
$sel:messageAttributes:SendMessage' :: SendMessage -> Maybe (HashMap Text MessageAttributeValue)
messageAttributes} -> Maybe (HashMap Text MessageAttributeValue)
messageAttributes) (\s :: SendMessage
s@SendMessage' {} Maybe (HashMap Text MessageAttributeValue)
a -> SendMessage
s {$sel:messageAttributes:SendMessage' :: Maybe (HashMap Text MessageAttributeValue)
messageAttributes = Maybe (HashMap Text MessageAttributeValue)
a} :: SendMessage) 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
sendMessage_messageDeduplicationId :: Lens.Lens' SendMessage (Prelude.Maybe Prelude.Text)
sendMessage_messageDeduplicationId :: Lens' SendMessage (Maybe Text)
sendMessage_messageDeduplicationId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Maybe Text
messageDeduplicationId :: Maybe Text
$sel:messageDeduplicationId:SendMessage' :: SendMessage -> Maybe Text
messageDeduplicationId} -> Maybe Text
messageDeduplicationId) (\s :: SendMessage
s@SendMessage' {} Maybe Text
a -> SendMessage
s {$sel:messageDeduplicationId:SendMessage' :: Maybe Text
messageDeduplicationId = Maybe Text
a} :: SendMessage)
sendMessage_messageGroupId :: Lens.Lens' SendMessage (Prelude.Maybe Prelude.Text)
sendMessage_messageGroupId :: Lens' SendMessage (Maybe Text)
sendMessage_messageGroupId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Maybe Text
messageGroupId :: Maybe Text
$sel:messageGroupId:SendMessage' :: SendMessage -> Maybe Text
messageGroupId} -> Maybe Text
messageGroupId) (\s :: SendMessage
s@SendMessage' {} Maybe Text
a -> SendMessage
s {$sel:messageGroupId:SendMessage' :: Maybe Text
messageGroupId = Maybe Text
a} :: SendMessage)
sendMessage_messageSystemAttributes :: Lens.Lens' SendMessage (Prelude.Maybe (Prelude.HashMap MessageSystemAttributeNameForSends MessageSystemAttributeValue))
sendMessage_messageSystemAttributes :: Lens'
SendMessage
(Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue))
sendMessage_messageSystemAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
$sel:messageSystemAttributes:SendMessage' :: SendMessage
-> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes} -> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes) (\s :: SendMessage
s@SendMessage' {} Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
a -> SendMessage
s {$sel:messageSystemAttributes:SendMessage' :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes = Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
a} :: SendMessage) 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
sendMessage_queueUrl :: Lens.Lens' SendMessage Prelude.Text
sendMessage_queueUrl :: Lens' SendMessage Text
sendMessage_queueUrl = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Text
queueUrl :: Text
$sel:queueUrl:SendMessage' :: SendMessage -> Text
queueUrl} -> Text
queueUrl) (\s :: SendMessage
s@SendMessage' {} Text
a -> SendMessage
s {$sel:queueUrl:SendMessage' :: Text
queueUrl = Text
a} :: SendMessage)
sendMessage_messageBody :: Lens.Lens' SendMessage Prelude.Text
sendMessage_messageBody :: Lens' SendMessage Text
sendMessage_messageBody = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessage' {Text
messageBody :: Text
$sel:messageBody:SendMessage' :: SendMessage -> Text
messageBody} -> Text
messageBody) (\s :: SendMessage
s@SendMessage' {} Text
a -> SendMessage
s {$sel:messageBody:SendMessage' :: Text
messageBody = Text
a} :: SendMessage)
instance Core.AWSRequest SendMessage where
type AWSResponse SendMessage = SendMessageResponse
request :: (Service -> Service) -> SendMessage -> Request SendMessage
request Service -> Service
overrides =
forall a. ToRequest a => Service -> a -> Request a
Request.postQuery (Service -> Service
overrides Service
defaultService)
response :: forall (m :: * -> *).
MonadResource m =>
(ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SendMessage
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SendMessage)))
response =
forall (m :: * -> *) a.
MonadResource m =>
Text
-> (Int
-> ResponseHeaders -> [Node] -> Either String (AWSResponse a))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy a
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse a)))
Response.receiveXMLWrapper
Text
"SendMessageResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> SendMessageResponse
SendMessageResponse'
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MD5OfMessageAttributes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MD5OfMessageBody")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MD5OfMessageSystemAttributes")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MessageId")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"SequenceNumber")
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 SendMessage where
hashWithSalt :: Int -> SendMessage -> Int
hashWithSalt Int
_salt SendMessage' {Maybe Int
Maybe Text
Maybe (HashMap Text MessageAttributeValue)
Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
Text
messageBody :: Text
queueUrl :: Text
messageSystemAttributes :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageGroupId :: Maybe Text
messageDeduplicationId :: Maybe Text
messageAttributes :: Maybe (HashMap Text MessageAttributeValue)
delaySeconds :: Maybe Int
$sel:messageBody:SendMessage' :: SendMessage -> Text
$sel:queueUrl:SendMessage' :: SendMessage -> Text
$sel:messageSystemAttributes:SendMessage' :: SendMessage
-> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
$sel:messageGroupId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageDeduplicationId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageAttributes:SendMessage' :: SendMessage -> Maybe (HashMap Text MessageAttributeValue)
$sel:delaySeconds:SendMessage' :: SendMessage -> Maybe Int
..} =
Int
_salt
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Int
delaySeconds
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe (HashMap Text MessageAttributeValue)
messageAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
messageDeduplicationId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
messageGroupId
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
queueUrl
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
messageBody
instance Prelude.NFData SendMessage where
rnf :: SendMessage -> ()
rnf SendMessage' {Maybe Int
Maybe Text
Maybe (HashMap Text MessageAttributeValue)
Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
Text
messageBody :: Text
queueUrl :: Text
messageSystemAttributes :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageGroupId :: Maybe Text
messageDeduplicationId :: Maybe Text
messageAttributes :: Maybe (HashMap Text MessageAttributeValue)
delaySeconds :: Maybe Int
$sel:messageBody:SendMessage' :: SendMessage -> Text
$sel:queueUrl:SendMessage' :: SendMessage -> Text
$sel:messageSystemAttributes:SendMessage' :: SendMessage
-> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
$sel:messageGroupId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageDeduplicationId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageAttributes:SendMessage' :: SendMessage -> Maybe (HashMap Text MessageAttributeValue)
$sel:delaySeconds:SendMessage' :: SendMessage -> Maybe Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Int
delaySeconds
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe (HashMap Text MessageAttributeValue)
messageAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
messageDeduplicationId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
messageGroupId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
queueUrl
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Text
messageBody
instance Data.ToHeaders SendMessage where
toHeaders :: SendMessage -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SendMessage where
toPath :: SendMessage -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SendMessage where
toQuery :: SendMessage -> QueryString
toQuery SendMessage' {Maybe Int
Maybe Text
Maybe (HashMap Text MessageAttributeValue)
Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
Text
messageBody :: Text
queueUrl :: Text
messageSystemAttributes :: Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageGroupId :: Maybe Text
messageDeduplicationId :: Maybe Text
messageAttributes :: Maybe (HashMap Text MessageAttributeValue)
delaySeconds :: Maybe Int
$sel:messageBody:SendMessage' :: SendMessage -> Text
$sel:queueUrl:SendMessage' :: SendMessage -> Text
$sel:messageSystemAttributes:SendMessage' :: SendMessage
-> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
$sel:messageGroupId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageDeduplicationId:SendMessage' :: SendMessage -> Maybe Text
$sel:messageAttributes:SendMessage' :: SendMessage -> Maybe (HashMap Text MessageAttributeValue)
$sel:delaySeconds:SendMessage' :: SendMessage -> Maybe Int
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SendMessage" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2012-11-05" :: Prelude.ByteString),
ByteString
"DelaySeconds" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Int
delaySeconds,
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall k v.
(ToQuery k, ToQuery v) =>
ByteString
-> ByteString -> ByteString -> HashMap k v -> QueryString
Data.toQueryMap ByteString
"MessageAttribute" ByteString
"Name" ByteString
"Value"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe (HashMap Text MessageAttributeValue)
messageAttributes
),
ByteString
"MessageDeduplicationId"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
messageDeduplicationId,
ByteString
"MessageGroupId" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
messageGroupId,
forall a. ToQuery a => a -> QueryString
Data.toQuery
( forall k v.
(ToQuery k, ToQuery v) =>
ByteString
-> ByteString -> ByteString -> HashMap k v -> QueryString
Data.toQueryMap
ByteString
"MessageSystemAttribute"
ByteString
"Name"
ByteString
"Value"
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe
(HashMap
MessageSystemAttributeNameForSends MessageSystemAttributeValue)
messageSystemAttributes
),
ByteString
"QueueUrl" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
queueUrl,
ByteString
"MessageBody" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
messageBody
]
data SendMessageResponse = SendMessageResponse'
{
SendMessageResponse -> Maybe Text
mD5OfMessageAttributes :: Prelude.Maybe Prelude.Text,
SendMessageResponse -> Maybe Text
mD5OfMessageBody :: Prelude.Maybe Prelude.Text,
SendMessageResponse -> Maybe Text
mD5OfMessageSystemAttributes :: Prelude.Maybe Prelude.Text,
SendMessageResponse -> Maybe Text
messageId :: Prelude.Maybe Prelude.Text,
SendMessageResponse -> Maybe Text
sequenceNumber :: Prelude.Maybe Prelude.Text,
SendMessageResponse -> Int
httpStatus :: Prelude.Int
}
deriving (SendMessageResponse -> SendMessageResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: SendMessageResponse -> SendMessageResponse -> Bool
$c/= :: SendMessageResponse -> SendMessageResponse -> Bool
== :: SendMessageResponse -> SendMessageResponse -> Bool
$c== :: SendMessageResponse -> SendMessageResponse -> Bool
Prelude.Eq, ReadPrec [SendMessageResponse]
ReadPrec SendMessageResponse
Int -> ReadS SendMessageResponse
ReadS [SendMessageResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [SendMessageResponse]
$creadListPrec :: ReadPrec [SendMessageResponse]
readPrec :: ReadPrec SendMessageResponse
$creadPrec :: ReadPrec SendMessageResponse
readList :: ReadS [SendMessageResponse]
$creadList :: ReadS [SendMessageResponse]
readsPrec :: Int -> ReadS SendMessageResponse
$creadsPrec :: Int -> ReadS SendMessageResponse
Prelude.Read, Int -> SendMessageResponse -> ShowS
[SendMessageResponse] -> ShowS
SendMessageResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [SendMessageResponse] -> ShowS
$cshowList :: [SendMessageResponse] -> ShowS
show :: SendMessageResponse -> String
$cshow :: SendMessageResponse -> String
showsPrec :: Int -> SendMessageResponse -> ShowS
$cshowsPrec :: Int -> SendMessageResponse -> ShowS
Prelude.Show, forall x. Rep SendMessageResponse x -> SendMessageResponse
forall x. SendMessageResponse -> Rep SendMessageResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep SendMessageResponse x -> SendMessageResponse
$cfrom :: forall x. SendMessageResponse -> Rep SendMessageResponse x
Prelude.Generic)
newSendMessageResponse ::
Prelude.Int ->
SendMessageResponse
newSendMessageResponse :: Int -> SendMessageResponse
newSendMessageResponse Int
pHttpStatus_ =
SendMessageResponse'
{ $sel:mD5OfMessageAttributes:SendMessageResponse' :: Maybe Text
mD5OfMessageAttributes =
forall a. Maybe a
Prelude.Nothing,
$sel:mD5OfMessageBody:SendMessageResponse' :: Maybe Text
mD5OfMessageBody = forall a. Maybe a
Prelude.Nothing,
$sel:mD5OfMessageSystemAttributes:SendMessageResponse' :: Maybe Text
mD5OfMessageSystemAttributes = forall a. Maybe a
Prelude.Nothing,
$sel:messageId:SendMessageResponse' :: Maybe Text
messageId = forall a. Maybe a
Prelude.Nothing,
$sel:sequenceNumber:SendMessageResponse' :: Maybe Text
sequenceNumber = forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:SendMessageResponse' :: Int
httpStatus = Int
pHttpStatus_
}
sendMessageResponse_mD5OfMessageAttributes :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)
sendMessageResponse_mD5OfMessageAttributes :: Lens' SendMessageResponse (Maybe Text)
sendMessageResponse_mD5OfMessageAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Maybe Text
mD5OfMessageAttributes :: Maybe Text
$sel:mD5OfMessageAttributes:SendMessageResponse' :: SendMessageResponse -> Maybe Text
mD5OfMessageAttributes} -> Maybe Text
mD5OfMessageAttributes) (\s :: SendMessageResponse
s@SendMessageResponse' {} Maybe Text
a -> SendMessageResponse
s {$sel:mD5OfMessageAttributes:SendMessageResponse' :: Maybe Text
mD5OfMessageAttributes = Maybe Text
a} :: SendMessageResponse)
sendMessageResponse_mD5OfMessageBody :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)
sendMessageResponse_mD5OfMessageBody :: Lens' SendMessageResponse (Maybe Text)
sendMessageResponse_mD5OfMessageBody = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Maybe Text
mD5OfMessageBody :: Maybe Text
$sel:mD5OfMessageBody:SendMessageResponse' :: SendMessageResponse -> Maybe Text
mD5OfMessageBody} -> Maybe Text
mD5OfMessageBody) (\s :: SendMessageResponse
s@SendMessageResponse' {} Maybe Text
a -> SendMessageResponse
s {$sel:mD5OfMessageBody:SendMessageResponse' :: Maybe Text
mD5OfMessageBody = Maybe Text
a} :: SendMessageResponse)
sendMessageResponse_mD5OfMessageSystemAttributes :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)
sendMessageResponse_mD5OfMessageSystemAttributes :: Lens' SendMessageResponse (Maybe Text)
sendMessageResponse_mD5OfMessageSystemAttributes = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Maybe Text
mD5OfMessageSystemAttributes :: Maybe Text
$sel:mD5OfMessageSystemAttributes:SendMessageResponse' :: SendMessageResponse -> Maybe Text
mD5OfMessageSystemAttributes} -> Maybe Text
mD5OfMessageSystemAttributes) (\s :: SendMessageResponse
s@SendMessageResponse' {} Maybe Text
a -> SendMessageResponse
s {$sel:mD5OfMessageSystemAttributes:SendMessageResponse' :: Maybe Text
mD5OfMessageSystemAttributes = Maybe Text
a} :: SendMessageResponse)
sendMessageResponse_messageId :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)
sendMessageResponse_messageId :: Lens' SendMessageResponse (Maybe Text)
sendMessageResponse_messageId = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Maybe Text
messageId :: Maybe Text
$sel:messageId:SendMessageResponse' :: SendMessageResponse -> Maybe Text
messageId} -> Maybe Text
messageId) (\s :: SendMessageResponse
s@SendMessageResponse' {} Maybe Text
a -> SendMessageResponse
s {$sel:messageId:SendMessageResponse' :: Maybe Text
messageId = Maybe Text
a} :: SendMessageResponse)
sendMessageResponse_sequenceNumber :: Lens.Lens' SendMessageResponse (Prelude.Maybe Prelude.Text)
sendMessageResponse_sequenceNumber :: Lens' SendMessageResponse (Maybe Text)
sendMessageResponse_sequenceNumber = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Maybe Text
sequenceNumber :: Maybe Text
$sel:sequenceNumber:SendMessageResponse' :: SendMessageResponse -> Maybe Text
sequenceNumber} -> Maybe Text
sequenceNumber) (\s :: SendMessageResponse
s@SendMessageResponse' {} Maybe Text
a -> SendMessageResponse
s {$sel:sequenceNumber:SendMessageResponse' :: Maybe Text
sequenceNumber = Maybe Text
a} :: SendMessageResponse)
sendMessageResponse_httpStatus :: Lens.Lens' SendMessageResponse Prelude.Int
sendMessageResponse_httpStatus :: Lens' SendMessageResponse Int
sendMessageResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendMessageResponse' {Int
httpStatus :: Int
$sel:httpStatus:SendMessageResponse' :: SendMessageResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: SendMessageResponse
s@SendMessageResponse' {} Int
a -> SendMessageResponse
s {$sel:httpStatus:SendMessageResponse' :: Int
httpStatus = Int
a} :: SendMessageResponse)
instance Prelude.NFData SendMessageResponse where
rnf :: SendMessageResponse -> ()
rnf SendMessageResponse' {Int
Maybe Text
httpStatus :: Int
sequenceNumber :: Maybe Text
messageId :: Maybe Text
mD5OfMessageSystemAttributes :: Maybe Text
mD5OfMessageBody :: Maybe Text
mD5OfMessageAttributes :: Maybe Text
$sel:httpStatus:SendMessageResponse' :: SendMessageResponse -> Int
$sel:sequenceNumber:SendMessageResponse' :: SendMessageResponse -> Maybe Text
$sel:messageId:SendMessageResponse' :: SendMessageResponse -> Maybe Text
$sel:mD5OfMessageSystemAttributes:SendMessageResponse' :: SendMessageResponse -> Maybe Text
$sel:mD5OfMessageBody:SendMessageResponse' :: SendMessageResponse -> Maybe Text
$sel:mD5OfMessageAttributes:SendMessageResponse' :: SendMessageResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mD5OfMessageAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mD5OfMessageBody
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
mD5OfMessageSystemAttributes
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
messageId
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sequenceNumber
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus