{-# 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.SESV2.GetCustomVerificationEmailTemplate
(
GetCustomVerificationEmailTemplate (..),
newGetCustomVerificationEmailTemplate,
getCustomVerificationEmailTemplate_templateName,
GetCustomVerificationEmailTemplateResponse (..),
newGetCustomVerificationEmailTemplateResponse,
getCustomVerificationEmailTemplateResponse_failureRedirectionURL,
getCustomVerificationEmailTemplateResponse_fromEmailAddress,
getCustomVerificationEmailTemplateResponse_successRedirectionURL,
getCustomVerificationEmailTemplateResponse_templateContent,
getCustomVerificationEmailTemplateResponse_templateName,
getCustomVerificationEmailTemplateResponse_templateSubject,
getCustomVerificationEmailTemplateResponse_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.SESV2.Types
data GetCustomVerificationEmailTemplate = GetCustomVerificationEmailTemplate'
{
GetCustomVerificationEmailTemplate -> Text
templateName :: Prelude.Text
}
deriving (GetCustomVerificationEmailTemplate
-> GetCustomVerificationEmailTemplate -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetCustomVerificationEmailTemplate
-> GetCustomVerificationEmailTemplate -> Bool
$c/= :: GetCustomVerificationEmailTemplate
-> GetCustomVerificationEmailTemplate -> Bool
== :: GetCustomVerificationEmailTemplate
-> GetCustomVerificationEmailTemplate -> Bool
$c== :: GetCustomVerificationEmailTemplate
-> GetCustomVerificationEmailTemplate -> Bool
Prelude.Eq, ReadPrec [GetCustomVerificationEmailTemplate]
ReadPrec GetCustomVerificationEmailTemplate
Int -> ReadS GetCustomVerificationEmailTemplate
ReadS [GetCustomVerificationEmailTemplate]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetCustomVerificationEmailTemplate]
$creadListPrec :: ReadPrec [GetCustomVerificationEmailTemplate]
readPrec :: ReadPrec GetCustomVerificationEmailTemplate
$creadPrec :: ReadPrec GetCustomVerificationEmailTemplate
readList :: ReadS [GetCustomVerificationEmailTemplate]
$creadList :: ReadS [GetCustomVerificationEmailTemplate]
readsPrec :: Int -> ReadS GetCustomVerificationEmailTemplate
$creadsPrec :: Int -> ReadS GetCustomVerificationEmailTemplate
Prelude.Read, Int -> GetCustomVerificationEmailTemplate -> ShowS
[GetCustomVerificationEmailTemplate] -> ShowS
GetCustomVerificationEmailTemplate -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetCustomVerificationEmailTemplate] -> ShowS
$cshowList :: [GetCustomVerificationEmailTemplate] -> ShowS
show :: GetCustomVerificationEmailTemplate -> String
$cshow :: GetCustomVerificationEmailTemplate -> String
showsPrec :: Int -> GetCustomVerificationEmailTemplate -> ShowS
$cshowsPrec :: Int -> GetCustomVerificationEmailTemplate -> ShowS
Prelude.Show, forall x.
Rep GetCustomVerificationEmailTemplate x
-> GetCustomVerificationEmailTemplate
forall x.
GetCustomVerificationEmailTemplate
-> Rep GetCustomVerificationEmailTemplate x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetCustomVerificationEmailTemplate x
-> GetCustomVerificationEmailTemplate
$cfrom :: forall x.
GetCustomVerificationEmailTemplate
-> Rep GetCustomVerificationEmailTemplate x
Prelude.Generic)
newGetCustomVerificationEmailTemplate ::
Prelude.Text ->
GetCustomVerificationEmailTemplate
newGetCustomVerificationEmailTemplate :: Text -> GetCustomVerificationEmailTemplate
newGetCustomVerificationEmailTemplate Text
pTemplateName_ =
GetCustomVerificationEmailTemplate'
{ $sel:templateName:GetCustomVerificationEmailTemplate' :: Text
templateName =
Text
pTemplateName_
}
getCustomVerificationEmailTemplate_templateName :: Lens.Lens' GetCustomVerificationEmailTemplate Prelude.Text
getCustomVerificationEmailTemplate_templateName :: Lens' GetCustomVerificationEmailTemplate Text
getCustomVerificationEmailTemplate_templateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplate' {Text
templateName :: Text
$sel:templateName:GetCustomVerificationEmailTemplate' :: GetCustomVerificationEmailTemplate -> Text
templateName} -> Text
templateName) (\s :: GetCustomVerificationEmailTemplate
s@GetCustomVerificationEmailTemplate' {} Text
a -> GetCustomVerificationEmailTemplate
s {$sel:templateName:GetCustomVerificationEmailTemplate' :: Text
templateName = Text
a} :: GetCustomVerificationEmailTemplate)
instance
Core.AWSRequest
GetCustomVerificationEmailTemplate
where
type
AWSResponse GetCustomVerificationEmailTemplate =
GetCustomVerificationEmailTemplateResponse
request :: (Service -> Service)
-> GetCustomVerificationEmailTemplate
-> Request GetCustomVerificationEmailTemplate
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 GetCustomVerificationEmailTemplate
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetCustomVerificationEmailTemplate)))
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
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Maybe Text
-> Int
-> GetCustomVerificationEmailTemplateResponse
GetCustomVerificationEmailTemplateResponse'
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
"FailureRedirectionURL")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"FromEmailAddress")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"SuccessRedirectionURL")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TemplateContent")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TemplateName")
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> (Object
x forall a. FromJSON a => Object -> Key -> Either String (Maybe a)
Data..?> Key
"TemplateSubject")
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
GetCustomVerificationEmailTemplate
where
hashWithSalt :: Int -> GetCustomVerificationEmailTemplate -> Int
hashWithSalt
Int
_salt
GetCustomVerificationEmailTemplate' {Text
templateName :: Text
$sel:templateName:GetCustomVerificationEmailTemplate' :: GetCustomVerificationEmailTemplate -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
templateName
instance
Prelude.NFData
GetCustomVerificationEmailTemplate
where
rnf :: GetCustomVerificationEmailTemplate -> ()
rnf GetCustomVerificationEmailTemplate' {Text
templateName :: Text
$sel:templateName:GetCustomVerificationEmailTemplate' :: GetCustomVerificationEmailTemplate -> Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Text
templateName
instance
Data.ToHeaders
GetCustomVerificationEmailTemplate
where
toHeaders :: GetCustomVerificationEmailTemplate -> 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.1" ::
Prelude.ByteString
)
]
)
instance
Data.ToPath
GetCustomVerificationEmailTemplate
where
toPath :: GetCustomVerificationEmailTemplate -> ByteString
toPath GetCustomVerificationEmailTemplate' {Text
templateName :: Text
$sel:templateName:GetCustomVerificationEmailTemplate' :: GetCustomVerificationEmailTemplate -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"/v2/email/custom-verification-email-templates/",
forall a. ToByteString a => a -> ByteString
Data.toBS Text
templateName
]
instance
Data.ToQuery
GetCustomVerificationEmailTemplate
where
toQuery :: GetCustomVerificationEmailTemplate -> QueryString
toQuery = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
data GetCustomVerificationEmailTemplateResponse = GetCustomVerificationEmailTemplateResponse'
{
GetCustomVerificationEmailTemplateResponse -> Maybe Text
failureRedirectionURL :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Maybe Text
fromEmailAddress :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Maybe Text
successRedirectionURL :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateContent :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateName :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateSubject :: Prelude.Maybe Prelude.Text,
GetCustomVerificationEmailTemplateResponse -> Int
httpStatus :: Prelude.Int
}
deriving (GetCustomVerificationEmailTemplateResponse
-> GetCustomVerificationEmailTemplateResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: GetCustomVerificationEmailTemplateResponse
-> GetCustomVerificationEmailTemplateResponse -> Bool
$c/= :: GetCustomVerificationEmailTemplateResponse
-> GetCustomVerificationEmailTemplateResponse -> Bool
== :: GetCustomVerificationEmailTemplateResponse
-> GetCustomVerificationEmailTemplateResponse -> Bool
$c== :: GetCustomVerificationEmailTemplateResponse
-> GetCustomVerificationEmailTemplateResponse -> Bool
Prelude.Eq, ReadPrec [GetCustomVerificationEmailTemplateResponse]
ReadPrec GetCustomVerificationEmailTemplateResponse
Int -> ReadS GetCustomVerificationEmailTemplateResponse
ReadS [GetCustomVerificationEmailTemplateResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [GetCustomVerificationEmailTemplateResponse]
$creadListPrec :: ReadPrec [GetCustomVerificationEmailTemplateResponse]
readPrec :: ReadPrec GetCustomVerificationEmailTemplateResponse
$creadPrec :: ReadPrec GetCustomVerificationEmailTemplateResponse
readList :: ReadS [GetCustomVerificationEmailTemplateResponse]
$creadList :: ReadS [GetCustomVerificationEmailTemplateResponse]
readsPrec :: Int -> ReadS GetCustomVerificationEmailTemplateResponse
$creadsPrec :: Int -> ReadS GetCustomVerificationEmailTemplateResponse
Prelude.Read, Int -> GetCustomVerificationEmailTemplateResponse -> ShowS
[GetCustomVerificationEmailTemplateResponse] -> ShowS
GetCustomVerificationEmailTemplateResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [GetCustomVerificationEmailTemplateResponse] -> ShowS
$cshowList :: [GetCustomVerificationEmailTemplateResponse] -> ShowS
show :: GetCustomVerificationEmailTemplateResponse -> String
$cshow :: GetCustomVerificationEmailTemplateResponse -> String
showsPrec :: Int -> GetCustomVerificationEmailTemplateResponse -> ShowS
$cshowsPrec :: Int -> GetCustomVerificationEmailTemplateResponse -> ShowS
Prelude.Show, forall x.
Rep GetCustomVerificationEmailTemplateResponse x
-> GetCustomVerificationEmailTemplateResponse
forall x.
GetCustomVerificationEmailTemplateResponse
-> Rep GetCustomVerificationEmailTemplateResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep GetCustomVerificationEmailTemplateResponse x
-> GetCustomVerificationEmailTemplateResponse
$cfrom :: forall x.
GetCustomVerificationEmailTemplateResponse
-> Rep GetCustomVerificationEmailTemplateResponse x
Prelude.Generic)
newGetCustomVerificationEmailTemplateResponse ::
Prelude.Int ->
GetCustomVerificationEmailTemplateResponse
newGetCustomVerificationEmailTemplateResponse :: Int -> GetCustomVerificationEmailTemplateResponse
newGetCustomVerificationEmailTemplateResponse
Int
pHttpStatus_ =
GetCustomVerificationEmailTemplateResponse'
{ $sel:failureRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
failureRedirectionURL =
forall a. Maybe a
Prelude.Nothing,
$sel:fromEmailAddress:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
fromEmailAddress =
forall a. Maybe a
Prelude.Nothing,
$sel:successRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
successRedirectionURL =
forall a. Maybe a
Prelude.Nothing,
$sel:templateContent:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateContent =
forall a. Maybe a
Prelude.Nothing,
$sel:templateName:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateName = forall a. Maybe a
Prelude.Nothing,
$sel:templateSubject:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateSubject =
forall a. Maybe a
Prelude.Nothing,
$sel:httpStatus:GetCustomVerificationEmailTemplateResponse' :: Int
httpStatus = Int
pHttpStatus_
}
getCustomVerificationEmailTemplateResponse_failureRedirectionURL :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_failureRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_failureRedirectionURL = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
failureRedirectionURL :: Maybe Text
$sel:failureRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
failureRedirectionURL} -> Maybe Text
failureRedirectionURL) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:failureRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
failureRedirectionURL = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_fromEmailAddress :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_fromEmailAddress :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_fromEmailAddress = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
fromEmailAddress :: Maybe Text
$sel:fromEmailAddress:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
fromEmailAddress} -> Maybe Text
fromEmailAddress) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:fromEmailAddress:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
fromEmailAddress = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_successRedirectionURL :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_successRedirectionURL :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_successRedirectionURL = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
successRedirectionURL :: Maybe Text
$sel:successRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
successRedirectionURL} -> Maybe Text
successRedirectionURL) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:successRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
successRedirectionURL = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_templateContent :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_templateContent :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_templateContent = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
templateContent :: Maybe Text
$sel:templateContent:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateContent} -> Maybe Text
templateContent) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:templateContent:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateContent = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_templateName :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_templateName :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_templateName = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
templateName :: Maybe Text
$sel:templateName:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateName} -> Maybe Text
templateName) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:templateName:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateName = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_templateSubject :: Lens.Lens' GetCustomVerificationEmailTemplateResponse (Prelude.Maybe Prelude.Text)
getCustomVerificationEmailTemplateResponse_templateSubject :: Lens' GetCustomVerificationEmailTemplateResponse (Maybe Text)
getCustomVerificationEmailTemplateResponse_templateSubject = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Maybe Text
templateSubject :: Maybe Text
$sel:templateSubject:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
templateSubject} -> Maybe Text
templateSubject) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Maybe Text
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:templateSubject:GetCustomVerificationEmailTemplateResponse' :: Maybe Text
templateSubject = Maybe Text
a} :: GetCustomVerificationEmailTemplateResponse)
getCustomVerificationEmailTemplateResponse_httpStatus :: Lens.Lens' GetCustomVerificationEmailTemplateResponse Prelude.Int
getCustomVerificationEmailTemplateResponse_httpStatus :: Lens' GetCustomVerificationEmailTemplateResponse Int
getCustomVerificationEmailTemplateResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetCustomVerificationEmailTemplateResponse' {Int
httpStatus :: Int
$sel:httpStatus:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: GetCustomVerificationEmailTemplateResponse
s@GetCustomVerificationEmailTemplateResponse' {} Int
a -> GetCustomVerificationEmailTemplateResponse
s {$sel:httpStatus:GetCustomVerificationEmailTemplateResponse' :: Int
httpStatus = Int
a} :: GetCustomVerificationEmailTemplateResponse)
instance
Prelude.NFData
GetCustomVerificationEmailTemplateResponse
where
rnf :: GetCustomVerificationEmailTemplateResponse -> ()
rnf GetCustomVerificationEmailTemplateResponse' {Int
Maybe Text
httpStatus :: Int
templateSubject :: Maybe Text
templateName :: Maybe Text
templateContent :: Maybe Text
successRedirectionURL :: Maybe Text
fromEmailAddress :: Maybe Text
failureRedirectionURL :: Maybe Text
$sel:httpStatus:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Int
$sel:templateSubject:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
$sel:templateName:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
$sel:templateContent:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
$sel:successRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
$sel:fromEmailAddress:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
$sel:failureRedirectionURL:GetCustomVerificationEmailTemplateResponse' :: GetCustomVerificationEmailTemplateResponse -> Maybe Text
..} =
forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
failureRedirectionURL
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
fromEmailAddress
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
successRedirectionURL
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateContent
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateName
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Maybe Text
templateSubject
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus