module Network.AWS.SES.GetIdentityVerificationAttributes
(
GetIdentityVerificationAttributes
, getIdentityVerificationAttributes
, givaIdentities
, GetIdentityVerificationAttributesResponse
, getIdentityVerificationAttributesResponse
, givarVerificationAttributes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SES.Types
import qualified GHC.Exts
newtype GetIdentityVerificationAttributes = GetIdentityVerificationAttributes
{ _givaIdentities :: List "member" Text
} deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
instance GHC.Exts.IsList GetIdentityVerificationAttributes where
type Item GetIdentityVerificationAttributes = Text
fromList = GetIdentityVerificationAttributes . GHC.Exts.fromList
toList = GHC.Exts.toList . _givaIdentities
getIdentityVerificationAttributes :: GetIdentityVerificationAttributes
getIdentityVerificationAttributes = GetIdentityVerificationAttributes
{ _givaIdentities = mempty
}
givaIdentities :: Lens' GetIdentityVerificationAttributes [Text]
givaIdentities = lens _givaIdentities (\s a -> s { _givaIdentities = a }) . _List
newtype GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse
{ _givarVerificationAttributes :: EMap "entry" "key" "value" Text IdentityVerificationAttributes
} deriving (Eq, Read, Show, Monoid, Semigroup)
getIdentityVerificationAttributesResponse :: GetIdentityVerificationAttributesResponse
getIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse
{ _givarVerificationAttributes = mempty
}
givarVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes)
givarVerificationAttributes =
lens _givarVerificationAttributes
(\s a -> s { _givarVerificationAttributes = a })
. _EMap
instance ToPath GetIdentityVerificationAttributes where
toPath = const "/"
instance ToQuery GetIdentityVerificationAttributes where
toQuery GetIdentityVerificationAttributes{..} = mconcat
[ "Identities" =? _givaIdentities
]
instance ToHeaders GetIdentityVerificationAttributes
instance AWSRequest GetIdentityVerificationAttributes where
type Sv GetIdentityVerificationAttributes = SES
type Rs GetIdentityVerificationAttributes = GetIdentityVerificationAttributesResponse
request = post "GetIdentityVerificationAttributes"
response = xmlResponse
instance FromXML GetIdentityVerificationAttributesResponse where
parseXML = withElement "GetIdentityVerificationAttributesResult" $ \x -> GetIdentityVerificationAttributesResponse
<$> x .@? "VerificationAttributes" .!@ mempty