{-# 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.SES.SendRawEmail
(
SendRawEmail (..),
newSendRawEmail,
sendRawEmail_configurationSetName,
sendRawEmail_destinations,
sendRawEmail_fromArn,
sendRawEmail_returnPathArn,
sendRawEmail_source,
sendRawEmail_sourceArn,
sendRawEmail_tags,
sendRawEmail_rawMessage,
SendRawEmailResponse (..),
newSendRawEmailResponse,
sendRawEmailResponse_httpStatus,
sendRawEmailResponse_messageId,
)
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.SES.Types
data SendRawEmail = SendRawEmail'
{
SendRawEmail -> Maybe Text
configurationSetName :: Prelude.Maybe Prelude.Text,
SendRawEmail -> Maybe [Text]
destinations :: Prelude.Maybe [Prelude.Text],
SendRawEmail -> Maybe Text
fromArn :: Prelude.Maybe Prelude.Text,
SendRawEmail -> Maybe Text
returnPathArn :: Prelude.Maybe Prelude.Text,
SendRawEmail -> Maybe Text
source :: Prelude.Maybe Prelude.Text,
SendRawEmail -> Maybe Text
sourceArn :: Prelude.Maybe Prelude.Text,
SendRawEmail -> Maybe [MessageTag]
tags :: Prelude.Maybe [MessageTag],
SendRawEmail -> RawMessage
rawMessage :: RawMessage
}
deriving (SendRawEmail -> SendRawEmail -> Bool
(SendRawEmail -> SendRawEmail -> Bool)
-> (SendRawEmail -> SendRawEmail -> Bool) -> Eq SendRawEmail
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SendRawEmail -> SendRawEmail -> Bool
== :: SendRawEmail -> SendRawEmail -> Bool
$c/= :: SendRawEmail -> SendRawEmail -> Bool
/= :: SendRawEmail -> SendRawEmail -> Bool
Prelude.Eq, ReadPrec [SendRawEmail]
ReadPrec SendRawEmail
Int -> ReadS SendRawEmail
ReadS [SendRawEmail]
(Int -> ReadS SendRawEmail)
-> ReadS [SendRawEmail]
-> ReadPrec SendRawEmail
-> ReadPrec [SendRawEmail]
-> Read SendRawEmail
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SendRawEmail
readsPrec :: Int -> ReadS SendRawEmail
$creadList :: ReadS [SendRawEmail]
readList :: ReadS [SendRawEmail]
$creadPrec :: ReadPrec SendRawEmail
readPrec :: ReadPrec SendRawEmail
$creadListPrec :: ReadPrec [SendRawEmail]
readListPrec :: ReadPrec [SendRawEmail]
Prelude.Read, Int -> SendRawEmail -> ShowS
[SendRawEmail] -> ShowS
SendRawEmail -> String
(Int -> SendRawEmail -> ShowS)
-> (SendRawEmail -> String)
-> ([SendRawEmail] -> ShowS)
-> Show SendRawEmail
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SendRawEmail -> ShowS
showsPrec :: Int -> SendRawEmail -> ShowS
$cshow :: SendRawEmail -> String
show :: SendRawEmail -> String
$cshowList :: [SendRawEmail] -> ShowS
showList :: [SendRawEmail] -> ShowS
Prelude.Show, (forall x. SendRawEmail -> Rep SendRawEmail x)
-> (forall x. Rep SendRawEmail x -> SendRawEmail)
-> Generic SendRawEmail
forall x. Rep SendRawEmail x -> SendRawEmail
forall x. SendRawEmail -> Rep SendRawEmail x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. SendRawEmail -> Rep SendRawEmail x
from :: forall x. SendRawEmail -> Rep SendRawEmail x
$cto :: forall x. Rep SendRawEmail x -> SendRawEmail
to :: forall x. Rep SendRawEmail x -> SendRawEmail
Prelude.Generic)
newSendRawEmail ::
RawMessage ->
SendRawEmail
newSendRawEmail :: RawMessage -> SendRawEmail
newSendRawEmail RawMessage
pRawMessage_ =
SendRawEmail'
{ $sel:configurationSetName:SendRawEmail' :: Maybe Text
configurationSetName =
Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:destinations:SendRawEmail' :: Maybe [Text]
destinations = Maybe [Text]
forall a. Maybe a
Prelude.Nothing,
$sel:fromArn:SendRawEmail' :: Maybe Text
fromArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:returnPathArn:SendRawEmail' :: Maybe Text
returnPathArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:source:SendRawEmail' :: Maybe Text
source = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:sourceArn:SendRawEmail' :: Maybe Text
sourceArn = Maybe Text
forall a. Maybe a
Prelude.Nothing,
$sel:tags:SendRawEmail' :: Maybe [MessageTag]
tags = Maybe [MessageTag]
forall a. Maybe a
Prelude.Nothing,
$sel:rawMessage:SendRawEmail' :: RawMessage
rawMessage = RawMessage
pRawMessage_
}
sendRawEmail_configurationSetName :: Lens.Lens' SendRawEmail (Prelude.Maybe Prelude.Text)
sendRawEmail_configurationSetName :: Lens' SendRawEmail (Maybe Text)
sendRawEmail_configurationSetName = (SendRawEmail -> Maybe Text)
-> (SendRawEmail -> Maybe Text -> SendRawEmail)
-> Lens' SendRawEmail (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe Text
$sel:configurationSetName:SendRawEmail' :: SendRawEmail -> Maybe Text
configurationSetName :: Maybe Text
configurationSetName} -> Maybe Text
configurationSetName) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe Text
a -> SendRawEmail
s {configurationSetName = a} :: SendRawEmail)
sendRawEmail_destinations :: Lens.Lens' SendRawEmail (Prelude.Maybe [Prelude.Text])
sendRawEmail_destinations :: Lens' SendRawEmail (Maybe [Text])
sendRawEmail_destinations = (SendRawEmail -> Maybe [Text])
-> (SendRawEmail -> Maybe [Text] -> SendRawEmail)
-> Lens' SendRawEmail (Maybe [Text])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe [Text]
$sel:destinations:SendRawEmail' :: SendRawEmail -> Maybe [Text]
destinations :: Maybe [Text]
destinations} -> Maybe [Text]
destinations) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe [Text]
a -> SendRawEmail
s {destinations = a} :: SendRawEmail) ((Maybe [Text] -> f (Maybe [Text]))
-> SendRawEmail -> f SendRawEmail)
-> ((Maybe [Text] -> f (Maybe [Text]))
-> Maybe [Text] -> f (Maybe [Text]))
-> (Maybe [Text] -> f (Maybe [Text]))
-> SendRawEmail
-> f SendRawEmail
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [Text] [Text] [Text] [Text]
-> Iso (Maybe [Text]) (Maybe [Text]) (Maybe [Text]) (Maybe [Text])
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 AnIso [Text] [Text] [Text] [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [Text] [Text] [Text] [Text]
Lens.coerced
sendRawEmail_fromArn :: Lens.Lens' SendRawEmail (Prelude.Maybe Prelude.Text)
sendRawEmail_fromArn :: Lens' SendRawEmail (Maybe Text)
sendRawEmail_fromArn = (SendRawEmail -> Maybe Text)
-> (SendRawEmail -> Maybe Text -> SendRawEmail)
-> Lens' SendRawEmail (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe Text
$sel:fromArn:SendRawEmail' :: SendRawEmail -> Maybe Text
fromArn :: Maybe Text
fromArn} -> Maybe Text
fromArn) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe Text
a -> SendRawEmail
s {fromArn = a} :: SendRawEmail)
sendRawEmail_returnPathArn :: Lens.Lens' SendRawEmail (Prelude.Maybe Prelude.Text)
sendRawEmail_returnPathArn :: Lens' SendRawEmail (Maybe Text)
sendRawEmail_returnPathArn = (SendRawEmail -> Maybe Text)
-> (SendRawEmail -> Maybe Text -> SendRawEmail)
-> Lens' SendRawEmail (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe Text
$sel:returnPathArn:SendRawEmail' :: SendRawEmail -> Maybe Text
returnPathArn :: Maybe Text
returnPathArn} -> Maybe Text
returnPathArn) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe Text
a -> SendRawEmail
s {returnPathArn = a} :: SendRawEmail)
sendRawEmail_source :: Lens.Lens' SendRawEmail (Prelude.Maybe Prelude.Text)
sendRawEmail_source :: Lens' SendRawEmail (Maybe Text)
sendRawEmail_source = (SendRawEmail -> Maybe Text)
-> (SendRawEmail -> Maybe Text -> SendRawEmail)
-> Lens' SendRawEmail (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe Text
$sel:source:SendRawEmail' :: SendRawEmail -> Maybe Text
source :: Maybe Text
source} -> Maybe Text
source) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe Text
a -> SendRawEmail
s {source = a} :: SendRawEmail)
sendRawEmail_sourceArn :: Lens.Lens' SendRawEmail (Prelude.Maybe Prelude.Text)
sendRawEmail_sourceArn :: Lens' SendRawEmail (Maybe Text)
sendRawEmail_sourceArn = (SendRawEmail -> Maybe Text)
-> (SendRawEmail -> Maybe Text -> SendRawEmail)
-> Lens' SendRawEmail (Maybe Text)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe Text
$sel:sourceArn:SendRawEmail' :: SendRawEmail -> Maybe Text
sourceArn :: Maybe Text
sourceArn} -> Maybe Text
sourceArn) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe Text
a -> SendRawEmail
s {sourceArn = a} :: SendRawEmail)
sendRawEmail_tags :: Lens.Lens' SendRawEmail (Prelude.Maybe [MessageTag])
sendRawEmail_tags :: Lens' SendRawEmail (Maybe [MessageTag])
sendRawEmail_tags = (SendRawEmail -> Maybe [MessageTag])
-> (SendRawEmail -> Maybe [MessageTag] -> SendRawEmail)
-> Lens' SendRawEmail (Maybe [MessageTag])
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {Maybe [MessageTag]
$sel:tags:SendRawEmail' :: SendRawEmail -> Maybe [MessageTag]
tags :: Maybe [MessageTag]
tags} -> Maybe [MessageTag]
tags) (\s :: SendRawEmail
s@SendRawEmail' {} Maybe [MessageTag]
a -> SendRawEmail
s {tags = a} :: SendRawEmail) ((Maybe [MessageTag] -> f (Maybe [MessageTag]))
-> SendRawEmail -> f SendRawEmail)
-> ((Maybe [MessageTag] -> f (Maybe [MessageTag]))
-> Maybe [MessageTag] -> f (Maybe [MessageTag]))
-> (Maybe [MessageTag] -> f (Maybe [MessageTag]))
-> SendRawEmail
-> f SendRawEmail
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. AnIso [MessageTag] [MessageTag] [MessageTag] [MessageTag]
-> Iso
(Maybe [MessageTag])
(Maybe [MessageTag])
(Maybe [MessageTag])
(Maybe [MessageTag])
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 AnIso [MessageTag] [MessageTag] [MessageTag] [MessageTag]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [MessageTag] [MessageTag] [MessageTag] [MessageTag]
Lens.coerced
sendRawEmail_rawMessage :: Lens.Lens' SendRawEmail RawMessage
sendRawEmail_rawMessage :: Lens' SendRawEmail RawMessage
sendRawEmail_rawMessage = (SendRawEmail -> RawMessage)
-> (SendRawEmail -> RawMessage -> SendRawEmail)
-> Lens' SendRawEmail RawMessage
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmail' {RawMessage
$sel:rawMessage:SendRawEmail' :: SendRawEmail -> RawMessage
rawMessage :: RawMessage
rawMessage} -> RawMessage
rawMessage) (\s :: SendRawEmail
s@SendRawEmail' {} RawMessage
a -> SendRawEmail
s {rawMessage = a} :: SendRawEmail)
instance Core.AWSRequest SendRawEmail where
type AWSResponse SendRawEmail = SendRawEmailResponse
request :: (Service -> Service) -> SendRawEmail -> Request SendRawEmail
request Service -> Service
overrides =
Service -> SendRawEmail -> Request SendRawEmail
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 SendRawEmail
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SendRawEmail)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse SendRawEmail))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy SendRawEmail
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse SendRawEmail)))
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
"SendRawEmailResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> Text -> SendRawEmailResponse
SendRawEmailResponse'
(Int -> Text -> SendRawEmailResponse)
-> Either String Int
-> Either String (Text -> SendRawEmailResponse)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> (Int -> Either String Int
forall a. a -> Either String a
forall (f :: * -> *) a. Applicative f => a -> f a
Prelude.pure (Int -> Int
forall a. Enum a => a -> Int
Prelude.fromEnum Int
s))
Either String (Text -> SendRawEmailResponse)
-> Either String Text -> Either String SendRawEmailResponse
forall a b.
Either String (a -> b) -> Either String a -> Either String b
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ([Node]
x [Node] -> Text -> Either String Text
forall a. FromXML a => [Node] -> Text -> Either String a
Data..@ Text
"MessageId")
)
instance Prelude.Hashable SendRawEmail where
hashWithSalt :: Int -> SendRawEmail -> Int
hashWithSalt Int
_salt SendRawEmail' {Maybe [Text]
Maybe [MessageTag]
Maybe Text
RawMessage
$sel:configurationSetName:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:destinations:SendRawEmail' :: SendRawEmail -> Maybe [Text]
$sel:fromArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:returnPathArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:source:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:sourceArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:tags:SendRawEmail' :: SendRawEmail -> Maybe [MessageTag]
$sel:rawMessage:SendRawEmail' :: SendRawEmail -> RawMessage
configurationSetName :: Maybe Text
destinations :: Maybe [Text]
fromArn :: Maybe Text
returnPathArn :: Maybe Text
source :: Maybe Text
sourceArn :: Maybe Text
tags :: Maybe [MessageTag]
rawMessage :: RawMessage
..} =
Int
_salt
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
configurationSetName
Int -> Maybe [Text] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [Text]
destinations
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
fromArn
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
returnPathArn
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
source
Int -> Maybe Text -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe Text
sourceArn
Int -> Maybe [MessageTag] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Maybe [MessageTag]
tags
Int -> RawMessage -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` RawMessage
rawMessage
instance Prelude.NFData SendRawEmail where
rnf :: SendRawEmail -> ()
rnf SendRawEmail' {Maybe [Text]
Maybe [MessageTag]
Maybe Text
RawMessage
$sel:configurationSetName:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:destinations:SendRawEmail' :: SendRawEmail -> Maybe [Text]
$sel:fromArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:returnPathArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:source:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:sourceArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:tags:SendRawEmail' :: SendRawEmail -> Maybe [MessageTag]
$sel:rawMessage:SendRawEmail' :: SendRawEmail -> RawMessage
configurationSetName :: Maybe Text
destinations :: Maybe [Text]
fromArn :: Maybe Text
returnPathArn :: Maybe Text
source :: Maybe Text
sourceArn :: Maybe Text
tags :: Maybe [MessageTag]
rawMessage :: RawMessage
..} =
Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
configurationSetName
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe [Text] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [Text]
destinations
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
fromArn
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
returnPathArn
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
source
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
sourceArn
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Maybe [MessageTag] -> ()
forall a. NFData a => a -> ()
Prelude.rnf Maybe [MessageTag]
tags
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` RawMessage -> ()
forall a. NFData a => a -> ()
Prelude.rnf RawMessage
rawMessage
instance Data.ToHeaders SendRawEmail where
toHeaders :: SendRawEmail -> ResponseHeaders
toHeaders = ResponseHeaders -> SendRawEmail -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath SendRawEmail where
toPath :: SendRawEmail -> ByteString
toPath = ByteString -> SendRawEmail -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery SendRawEmail where
toQuery :: SendRawEmail -> QueryString
toQuery SendRawEmail' {Maybe [Text]
Maybe [MessageTag]
Maybe Text
RawMessage
$sel:configurationSetName:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:destinations:SendRawEmail' :: SendRawEmail -> Maybe [Text]
$sel:fromArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:returnPathArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:source:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:sourceArn:SendRawEmail' :: SendRawEmail -> Maybe Text
$sel:tags:SendRawEmail' :: SendRawEmail -> Maybe [MessageTag]
$sel:rawMessage:SendRawEmail' :: SendRawEmail -> RawMessage
configurationSetName :: Maybe Text
destinations :: Maybe [Text]
fromArn :: Maybe Text
returnPathArn :: Maybe Text
source :: Maybe Text
sourceArn :: Maybe Text
tags :: Maybe [MessageTag]
rawMessage :: RawMessage
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"SendRawEmail" :: Prelude.ByteString),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"ConfigurationSetName" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
configurationSetName,
ByteString
"Destinations"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Data.toQuery
(ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" ([Text] -> QueryString) -> Maybe [Text] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [Text]
destinations),
ByteString
"FromArn" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
fromArn,
ByteString
"ReturnPathArn" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
returnPathArn,
ByteString
"Source" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
source,
ByteString
"SourceArn" ByteString -> Maybe Text -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe Text
sourceArn,
ByteString
"Tags"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Maybe QueryString -> QueryString
forall a. ToQuery a => a -> QueryString
Data.toQuery
(ByteString -> [MessageTag] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" ([MessageTag] -> QueryString)
-> Maybe [MessageTag] -> Maybe QueryString
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
Prelude.<$> Maybe [MessageTag]
tags),
ByteString
"RawMessage" ByteString -> RawMessage -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: RawMessage
rawMessage
]
data SendRawEmailResponse = SendRawEmailResponse'
{
SendRawEmailResponse -> Int
httpStatus :: Prelude.Int,
SendRawEmailResponse -> Text
messageId :: Prelude.Text
}
deriving (SendRawEmailResponse -> SendRawEmailResponse -> Bool
(SendRawEmailResponse -> SendRawEmailResponse -> Bool)
-> (SendRawEmailResponse -> SendRawEmailResponse -> Bool)
-> Eq SendRawEmailResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: SendRawEmailResponse -> SendRawEmailResponse -> Bool
== :: SendRawEmailResponse -> SendRawEmailResponse -> Bool
$c/= :: SendRawEmailResponse -> SendRawEmailResponse -> Bool
/= :: SendRawEmailResponse -> SendRawEmailResponse -> Bool
Prelude.Eq, ReadPrec [SendRawEmailResponse]
ReadPrec SendRawEmailResponse
Int -> ReadS SendRawEmailResponse
ReadS [SendRawEmailResponse]
(Int -> ReadS SendRawEmailResponse)
-> ReadS [SendRawEmailResponse]
-> ReadPrec SendRawEmailResponse
-> ReadPrec [SendRawEmailResponse]
-> Read SendRawEmailResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS SendRawEmailResponse
readsPrec :: Int -> ReadS SendRawEmailResponse
$creadList :: ReadS [SendRawEmailResponse]
readList :: ReadS [SendRawEmailResponse]
$creadPrec :: ReadPrec SendRawEmailResponse
readPrec :: ReadPrec SendRawEmailResponse
$creadListPrec :: ReadPrec [SendRawEmailResponse]
readListPrec :: ReadPrec [SendRawEmailResponse]
Prelude.Read, Int -> SendRawEmailResponse -> ShowS
[SendRawEmailResponse] -> ShowS
SendRawEmailResponse -> String
(Int -> SendRawEmailResponse -> ShowS)
-> (SendRawEmailResponse -> String)
-> ([SendRawEmailResponse] -> ShowS)
-> Show SendRawEmailResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> SendRawEmailResponse -> ShowS
showsPrec :: Int -> SendRawEmailResponse -> ShowS
$cshow :: SendRawEmailResponse -> String
show :: SendRawEmailResponse -> String
$cshowList :: [SendRawEmailResponse] -> ShowS
showList :: [SendRawEmailResponse] -> ShowS
Prelude.Show, (forall x. SendRawEmailResponse -> Rep SendRawEmailResponse x)
-> (forall x. Rep SendRawEmailResponse x -> SendRawEmailResponse)
-> Generic SendRawEmailResponse
forall x. Rep SendRawEmailResponse x -> SendRawEmailResponse
forall x. SendRawEmailResponse -> Rep SendRawEmailResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x. SendRawEmailResponse -> Rep SendRawEmailResponse x
from :: forall x. SendRawEmailResponse -> Rep SendRawEmailResponse x
$cto :: forall x. Rep SendRawEmailResponse x -> SendRawEmailResponse
to :: forall x. Rep SendRawEmailResponse x -> SendRawEmailResponse
Prelude.Generic)
newSendRawEmailResponse ::
Prelude.Int ->
Prelude.Text ->
SendRawEmailResponse
newSendRawEmailResponse :: Int -> Text -> SendRawEmailResponse
newSendRawEmailResponse Int
pHttpStatus_ Text
pMessageId_ =
SendRawEmailResponse'
{ $sel:httpStatus:SendRawEmailResponse' :: Int
httpStatus = Int
pHttpStatus_,
$sel:messageId:SendRawEmailResponse' :: Text
messageId = Text
pMessageId_
}
sendRawEmailResponse_httpStatus :: Lens.Lens' SendRawEmailResponse Prelude.Int
sendRawEmailResponse_httpStatus :: Lens' SendRawEmailResponse Int
sendRawEmailResponse_httpStatus = (SendRawEmailResponse -> Int)
-> (SendRawEmailResponse -> Int -> SendRawEmailResponse)
-> Lens' SendRawEmailResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmailResponse' {Int
$sel:httpStatus:SendRawEmailResponse' :: SendRawEmailResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: SendRawEmailResponse
s@SendRawEmailResponse' {} Int
a -> SendRawEmailResponse
s {httpStatus = a} :: SendRawEmailResponse)
sendRawEmailResponse_messageId :: Lens.Lens' SendRawEmailResponse Prelude.Text
sendRawEmailResponse_messageId :: Lens' SendRawEmailResponse Text
sendRawEmailResponse_messageId = (SendRawEmailResponse -> Text)
-> (SendRawEmailResponse -> Text -> SendRawEmailResponse)
-> Lens' SendRawEmailResponse Text
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\SendRawEmailResponse' {Text
$sel:messageId:SendRawEmailResponse' :: SendRawEmailResponse -> Text
messageId :: Text
messageId} -> Text
messageId) (\s :: SendRawEmailResponse
s@SendRawEmailResponse' {} Text
a -> SendRawEmailResponse
s {messageId = a} :: SendRawEmailResponse)
instance Prelude.NFData SendRawEmailResponse where
rnf :: SendRawEmailResponse -> ()
rnf SendRawEmailResponse' {Int
Text
$sel:httpStatus:SendRawEmailResponse' :: SendRawEmailResponse -> Int
$sel:messageId:SendRawEmailResponse' :: SendRawEmailResponse -> Text
httpStatus :: Int
messageId :: Text
..} =
Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` Text -> ()
forall a. NFData a => a -> ()
Prelude.rnf Text
messageId