{-# 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.GetIdentityMailFromDomainAttributes
(
GetIdentityMailFromDomainAttributes (..),
newGetIdentityMailFromDomainAttributes,
getIdentityMailFromDomainAttributes_identities,
GetIdentityMailFromDomainAttributesResponse (..),
newGetIdentityMailFromDomainAttributesResponse,
getIdentityMailFromDomainAttributesResponse_httpStatus,
getIdentityMailFromDomainAttributesResponse_mailFromDomainAttributes,
)
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 GetIdentityMailFromDomainAttributes = GetIdentityMailFromDomainAttributes'
{
GetIdentityMailFromDomainAttributes -> [Text]
identities :: [Prelude.Text]
}
deriving (GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool
(GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool)
-> (GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool)
-> Eq GetIdentityMailFromDomainAttributes
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool
== :: GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool
$c/= :: GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool
/= :: GetIdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributes -> Bool
Prelude.Eq, ReadPrec [GetIdentityMailFromDomainAttributes]
ReadPrec GetIdentityMailFromDomainAttributes
Int -> ReadS GetIdentityMailFromDomainAttributes
ReadS [GetIdentityMailFromDomainAttributes]
(Int -> ReadS GetIdentityMailFromDomainAttributes)
-> ReadS [GetIdentityMailFromDomainAttributes]
-> ReadPrec GetIdentityMailFromDomainAttributes
-> ReadPrec [GetIdentityMailFromDomainAttributes]
-> Read GetIdentityMailFromDomainAttributes
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS GetIdentityMailFromDomainAttributes
readsPrec :: Int -> ReadS GetIdentityMailFromDomainAttributes
$creadList :: ReadS [GetIdentityMailFromDomainAttributes]
readList :: ReadS [GetIdentityMailFromDomainAttributes]
$creadPrec :: ReadPrec GetIdentityMailFromDomainAttributes
readPrec :: ReadPrec GetIdentityMailFromDomainAttributes
$creadListPrec :: ReadPrec [GetIdentityMailFromDomainAttributes]
readListPrec :: ReadPrec [GetIdentityMailFromDomainAttributes]
Prelude.Read, Int -> GetIdentityMailFromDomainAttributes -> ShowS
[GetIdentityMailFromDomainAttributes] -> ShowS
GetIdentityMailFromDomainAttributes -> String
(Int -> GetIdentityMailFromDomainAttributes -> ShowS)
-> (GetIdentityMailFromDomainAttributes -> String)
-> ([GetIdentityMailFromDomainAttributes] -> ShowS)
-> Show GetIdentityMailFromDomainAttributes
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GetIdentityMailFromDomainAttributes -> ShowS
showsPrec :: Int -> GetIdentityMailFromDomainAttributes -> ShowS
$cshow :: GetIdentityMailFromDomainAttributes -> String
show :: GetIdentityMailFromDomainAttributes -> String
$cshowList :: [GetIdentityMailFromDomainAttributes] -> ShowS
showList :: [GetIdentityMailFromDomainAttributes] -> ShowS
Prelude.Show, (forall x.
GetIdentityMailFromDomainAttributes
-> Rep GetIdentityMailFromDomainAttributes x)
-> (forall x.
Rep GetIdentityMailFromDomainAttributes x
-> GetIdentityMailFromDomainAttributes)
-> Generic GetIdentityMailFromDomainAttributes
forall x.
Rep GetIdentityMailFromDomainAttributes x
-> GetIdentityMailFromDomainAttributes
forall x.
GetIdentityMailFromDomainAttributes
-> Rep GetIdentityMailFromDomainAttributes x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
GetIdentityMailFromDomainAttributes
-> Rep GetIdentityMailFromDomainAttributes x
from :: forall x.
GetIdentityMailFromDomainAttributes
-> Rep GetIdentityMailFromDomainAttributes x
$cto :: forall x.
Rep GetIdentityMailFromDomainAttributes x
-> GetIdentityMailFromDomainAttributes
to :: forall x.
Rep GetIdentityMailFromDomainAttributes x
-> GetIdentityMailFromDomainAttributes
Prelude.Generic)
newGetIdentityMailFromDomainAttributes ::
GetIdentityMailFromDomainAttributes
newGetIdentityMailFromDomainAttributes :: GetIdentityMailFromDomainAttributes
newGetIdentityMailFromDomainAttributes =
GetIdentityMailFromDomainAttributes'
{ $sel:identities:GetIdentityMailFromDomainAttributes' :: [Text]
identities =
[Text]
forall a. Monoid a => a
Prelude.mempty
}
getIdentityMailFromDomainAttributes_identities :: Lens.Lens' GetIdentityMailFromDomainAttributes [Prelude.Text]
getIdentityMailFromDomainAttributes_identities :: Lens' GetIdentityMailFromDomainAttributes [Text]
getIdentityMailFromDomainAttributes_identities = (GetIdentityMailFromDomainAttributes -> [Text])
-> (GetIdentityMailFromDomainAttributes
-> [Text] -> GetIdentityMailFromDomainAttributes)
-> Lens' GetIdentityMailFromDomainAttributes [Text]
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIdentityMailFromDomainAttributes' {[Text]
$sel:identities:GetIdentityMailFromDomainAttributes' :: GetIdentityMailFromDomainAttributes -> [Text]
identities :: [Text]
identities} -> [Text]
identities) (\s :: GetIdentityMailFromDomainAttributes
s@GetIdentityMailFromDomainAttributes' {} [Text]
a -> GetIdentityMailFromDomainAttributes
s {identities = a} :: GetIdentityMailFromDomainAttributes) (([Text] -> f [Text])
-> GetIdentityMailFromDomainAttributes
-> f GetIdentityMailFromDomainAttributes)
-> (([Text] -> f [Text]) -> [Text] -> f [Text])
-> ([Text] -> f [Text])
-> GetIdentityMailFromDomainAttributes
-> f GetIdentityMailFromDomainAttributes
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. ([Text] -> f [Text]) -> [Text] -> f [Text]
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso [Text] [Text] [Text] [Text]
Lens.coerced
instance
Core.AWSRequest
GetIdentityMailFromDomainAttributes
where
type
AWSResponse GetIdentityMailFromDomainAttributes =
GetIdentityMailFromDomainAttributesResponse
request :: (Service -> Service)
-> GetIdentityMailFromDomainAttributes
-> Request GetIdentityMailFromDomainAttributes
request Service -> Service
overrides =
Service
-> GetIdentityMailFromDomainAttributes
-> Request GetIdentityMailFromDomainAttributes
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 GetIdentityMailFromDomainAttributes
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetIdentityMailFromDomainAttributes)))
response =
Text
-> (Int
-> ResponseHeaders
-> [Node]
-> Either String (AWSResponse GetIdentityMailFromDomainAttributes))
-> (ByteStringLazy -> IO ByteStringLazy)
-> Service
-> Proxy GetIdentityMailFromDomainAttributes
-> ClientResponse ClientBody
-> m (Either
Error
(ClientResponse (AWSResponse GetIdentityMailFromDomainAttributes)))
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
"GetIdentityMailFromDomainAttributesResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int
-> HashMap Text IdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributesResponse
GetIdentityMailFromDomainAttributesResponse'
(Int
-> HashMap Text IdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributesResponse)
-> Either String Int
-> Either
String
(HashMap Text IdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributesResponse)
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
(HashMap Text IdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributesResponse)
-> Either String (HashMap Text IdentityMailFromDomainAttributes)
-> Either String GetIdentityMailFromDomainAttributesResponse
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 (Maybe [Node])
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"MailFromDomainAttributes"
Either String (Maybe [Node]) -> [Node] -> Either String [Node]
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ [Node]
forall a. Monoid a => a
Prelude.mempty
Either String [Node]
-> ([Node]
-> Either String (HashMap Text IdentityMailFromDomainAttributes))
-> Either String (HashMap Text IdentityMailFromDomainAttributes)
forall a b.
Either String a -> (a -> Either String b) -> Either String b
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= Text
-> Text
-> Text
-> [Node]
-> Either String (HashMap Text IdentityMailFromDomainAttributes)
forall k v.
(Eq k, Hashable k, FromText k, FromXML v) =>
Text -> Text -> Text -> [Node] -> Either String (HashMap k v)
Data.parseXMLMap Text
"entry" Text
"key" Text
"value"
)
)
instance
Prelude.Hashable
GetIdentityMailFromDomainAttributes
where
hashWithSalt :: Int -> GetIdentityMailFromDomainAttributes -> Int
hashWithSalt
Int
_salt
GetIdentityMailFromDomainAttributes' {[Text]
$sel:identities:GetIdentityMailFromDomainAttributes' :: GetIdentityMailFromDomainAttributes -> [Text]
identities :: [Text]
..} =
Int
_salt Int -> [Text] -> Int
forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` [Text]
identities
instance
Prelude.NFData
GetIdentityMailFromDomainAttributes
where
rnf :: GetIdentityMailFromDomainAttributes -> ()
rnf GetIdentityMailFromDomainAttributes' {[Text]
$sel:identities:GetIdentityMailFromDomainAttributes' :: GetIdentityMailFromDomainAttributes -> [Text]
identities :: [Text]
..} =
[Text] -> ()
forall a. NFData a => a -> ()
Prelude.rnf [Text]
identities
instance
Data.ToHeaders
GetIdentityMailFromDomainAttributes
where
toHeaders :: GetIdentityMailFromDomainAttributes -> ResponseHeaders
toHeaders = ResponseHeaders
-> GetIdentityMailFromDomainAttributes -> ResponseHeaders
forall a b. a -> b -> a
Prelude.const ResponseHeaders
forall a. Monoid a => a
Prelude.mempty
instance
Data.ToPath
GetIdentityMailFromDomainAttributes
where
toPath :: GetIdentityMailFromDomainAttributes -> ByteString
toPath = ByteString -> GetIdentityMailFromDomainAttributes -> ByteString
forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance
Data.ToQuery
GetIdentityMailFromDomainAttributes
where
toQuery :: GetIdentityMailFromDomainAttributes -> QueryString
toQuery GetIdentityMailFromDomainAttributes' {[Text]
$sel:identities:GetIdentityMailFromDomainAttributes' :: GetIdentityMailFromDomainAttributes -> [Text]
identities :: [Text]
..} =
[QueryString] -> QueryString
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ( ByteString
"GetIdentityMailFromDomainAttributes" ::
Prelude.ByteString
),
ByteString
"Version"
ByteString -> ByteString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"Identities"
ByteString -> QueryString -> QueryString
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: ByteString -> [Text] -> QueryString
forall a.
(IsList a, ToQuery (Item a)) =>
ByteString -> a -> QueryString
Data.toQueryList ByteString
"member" [Text]
identities
]
data GetIdentityMailFromDomainAttributesResponse = GetIdentityMailFromDomainAttributesResponse'
{
GetIdentityMailFromDomainAttributesResponse -> Int
httpStatus :: Prelude.Int,
GetIdentityMailFromDomainAttributesResponse
-> HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes :: Prelude.HashMap Prelude.Text IdentityMailFromDomainAttributes
}
deriving (GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool
(GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool)
-> (GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool)
-> Eq GetIdentityMailFromDomainAttributesResponse
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool
== :: GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool
$c/= :: GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool
/= :: GetIdentityMailFromDomainAttributesResponse
-> GetIdentityMailFromDomainAttributesResponse -> Bool
Prelude.Eq, ReadPrec [GetIdentityMailFromDomainAttributesResponse]
ReadPrec GetIdentityMailFromDomainAttributesResponse
Int -> ReadS GetIdentityMailFromDomainAttributesResponse
ReadS [GetIdentityMailFromDomainAttributesResponse]
(Int -> ReadS GetIdentityMailFromDomainAttributesResponse)
-> ReadS [GetIdentityMailFromDomainAttributesResponse]
-> ReadPrec GetIdentityMailFromDomainAttributesResponse
-> ReadPrec [GetIdentityMailFromDomainAttributesResponse]
-> Read GetIdentityMailFromDomainAttributesResponse
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
$creadsPrec :: Int -> ReadS GetIdentityMailFromDomainAttributesResponse
readsPrec :: Int -> ReadS GetIdentityMailFromDomainAttributesResponse
$creadList :: ReadS [GetIdentityMailFromDomainAttributesResponse]
readList :: ReadS [GetIdentityMailFromDomainAttributesResponse]
$creadPrec :: ReadPrec GetIdentityMailFromDomainAttributesResponse
readPrec :: ReadPrec GetIdentityMailFromDomainAttributesResponse
$creadListPrec :: ReadPrec [GetIdentityMailFromDomainAttributesResponse]
readListPrec :: ReadPrec [GetIdentityMailFromDomainAttributesResponse]
Prelude.Read, Int -> GetIdentityMailFromDomainAttributesResponse -> ShowS
[GetIdentityMailFromDomainAttributesResponse] -> ShowS
GetIdentityMailFromDomainAttributesResponse -> String
(Int -> GetIdentityMailFromDomainAttributesResponse -> ShowS)
-> (GetIdentityMailFromDomainAttributesResponse -> String)
-> ([GetIdentityMailFromDomainAttributesResponse] -> ShowS)
-> Show GetIdentityMailFromDomainAttributesResponse
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
$cshowsPrec :: Int -> GetIdentityMailFromDomainAttributesResponse -> ShowS
showsPrec :: Int -> GetIdentityMailFromDomainAttributesResponse -> ShowS
$cshow :: GetIdentityMailFromDomainAttributesResponse -> String
show :: GetIdentityMailFromDomainAttributesResponse -> String
$cshowList :: [GetIdentityMailFromDomainAttributesResponse] -> ShowS
showList :: [GetIdentityMailFromDomainAttributesResponse] -> ShowS
Prelude.Show, (forall x.
GetIdentityMailFromDomainAttributesResponse
-> Rep GetIdentityMailFromDomainAttributesResponse x)
-> (forall x.
Rep GetIdentityMailFromDomainAttributesResponse x
-> GetIdentityMailFromDomainAttributesResponse)
-> Generic GetIdentityMailFromDomainAttributesResponse
forall x.
Rep GetIdentityMailFromDomainAttributesResponse x
-> GetIdentityMailFromDomainAttributesResponse
forall x.
GetIdentityMailFromDomainAttributesResponse
-> Rep GetIdentityMailFromDomainAttributesResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cfrom :: forall x.
GetIdentityMailFromDomainAttributesResponse
-> Rep GetIdentityMailFromDomainAttributesResponse x
from :: forall x.
GetIdentityMailFromDomainAttributesResponse
-> Rep GetIdentityMailFromDomainAttributesResponse x
$cto :: forall x.
Rep GetIdentityMailFromDomainAttributesResponse x
-> GetIdentityMailFromDomainAttributesResponse
to :: forall x.
Rep GetIdentityMailFromDomainAttributesResponse x
-> GetIdentityMailFromDomainAttributesResponse
Prelude.Generic)
newGetIdentityMailFromDomainAttributesResponse ::
Prelude.Int ->
GetIdentityMailFromDomainAttributesResponse
newGetIdentityMailFromDomainAttributesResponse :: Int -> GetIdentityMailFromDomainAttributesResponse
newGetIdentityMailFromDomainAttributesResponse
Int
pHttpStatus_ =
GetIdentityMailFromDomainAttributesResponse'
{ $sel:httpStatus:GetIdentityMailFromDomainAttributesResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:mailFromDomainAttributes:GetIdentityMailFromDomainAttributesResponse' :: HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes =
HashMap Text IdentityMailFromDomainAttributes
forall a. Monoid a => a
Prelude.mempty
}
getIdentityMailFromDomainAttributesResponse_httpStatus :: Lens.Lens' GetIdentityMailFromDomainAttributesResponse Prelude.Int
getIdentityMailFromDomainAttributesResponse_httpStatus :: Lens' GetIdentityMailFromDomainAttributesResponse Int
getIdentityMailFromDomainAttributesResponse_httpStatus = (GetIdentityMailFromDomainAttributesResponse -> Int)
-> (GetIdentityMailFromDomainAttributesResponse
-> Int -> GetIdentityMailFromDomainAttributesResponse)
-> Lens' GetIdentityMailFromDomainAttributesResponse Int
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIdentityMailFromDomainAttributesResponse' {Int
$sel:httpStatus:GetIdentityMailFromDomainAttributesResponse' :: GetIdentityMailFromDomainAttributesResponse -> Int
httpStatus :: Int
httpStatus} -> Int
httpStatus) (\s :: GetIdentityMailFromDomainAttributesResponse
s@GetIdentityMailFromDomainAttributesResponse' {} Int
a -> GetIdentityMailFromDomainAttributesResponse
s {httpStatus = a} :: GetIdentityMailFromDomainAttributesResponse)
getIdentityMailFromDomainAttributesResponse_mailFromDomainAttributes :: Lens.Lens' GetIdentityMailFromDomainAttributesResponse (Prelude.HashMap Prelude.Text IdentityMailFromDomainAttributes)
getIdentityMailFromDomainAttributesResponse_mailFromDomainAttributes :: Lens'
GetIdentityMailFromDomainAttributesResponse
(HashMap Text IdentityMailFromDomainAttributes)
getIdentityMailFromDomainAttributesResponse_mailFromDomainAttributes = (GetIdentityMailFromDomainAttributesResponse
-> HashMap Text IdentityMailFromDomainAttributes)
-> (GetIdentityMailFromDomainAttributesResponse
-> HashMap Text IdentityMailFromDomainAttributes
-> GetIdentityMailFromDomainAttributesResponse)
-> Lens'
GetIdentityMailFromDomainAttributesResponse
(HashMap Text IdentityMailFromDomainAttributes)
forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\GetIdentityMailFromDomainAttributesResponse' {HashMap Text IdentityMailFromDomainAttributes
$sel:mailFromDomainAttributes:GetIdentityMailFromDomainAttributesResponse' :: GetIdentityMailFromDomainAttributesResponse
-> HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes :: HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes} -> HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes) (\s :: GetIdentityMailFromDomainAttributesResponse
s@GetIdentityMailFromDomainAttributesResponse' {} HashMap Text IdentityMailFromDomainAttributes
a -> GetIdentityMailFromDomainAttributesResponse
s {mailFromDomainAttributes = a} :: GetIdentityMailFromDomainAttributesResponse) ((HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes))
-> GetIdentityMailFromDomainAttributesResponse
-> f GetIdentityMailFromDomainAttributesResponse)
-> ((HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes))
-> HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes))
-> (HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes))
-> GetIdentityMailFromDomainAttributesResponse
-> f GetIdentityMailFromDomainAttributesResponse
forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. (HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes))
-> HashMap Text IdentityMailFromDomainAttributes
-> f (HashMap Text IdentityMailFromDomainAttributes)
forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Iso
(HashMap Text IdentityMailFromDomainAttributes)
(HashMap Text IdentityMailFromDomainAttributes)
(HashMap Text IdentityMailFromDomainAttributes)
(HashMap Text IdentityMailFromDomainAttributes)
Lens.coerced
instance
Prelude.NFData
GetIdentityMailFromDomainAttributesResponse
where
rnf :: GetIdentityMailFromDomainAttributesResponse -> ()
rnf GetIdentityMailFromDomainAttributesResponse' {Int
HashMap Text IdentityMailFromDomainAttributes
$sel:httpStatus:GetIdentityMailFromDomainAttributesResponse' :: GetIdentityMailFromDomainAttributesResponse -> Int
$sel:mailFromDomainAttributes:GetIdentityMailFromDomainAttributesResponse' :: GetIdentityMailFromDomainAttributesResponse
-> HashMap Text IdentityMailFromDomainAttributes
httpStatus :: Int
mailFromDomainAttributes :: HashMap Text IdentityMailFromDomainAttributes
..} =
Int -> ()
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
() -> () -> ()
forall a b. a -> b -> b
`Prelude.seq` HashMap Text IdentityMailFromDomainAttributes -> ()
forall a. NFData a => a -> ()
Prelude.rnf HashMap Text IdentityMailFromDomainAttributes
mailFromDomainAttributes