module Network.AWS.SES.GetIdentityVerificationAttributes
(
getIdentityVerificationAttributes
, GetIdentityVerificationAttributes
, givaIdentities
, getIdentityVerificationAttributesResponse
, GetIdentityVerificationAttributesResponse
, givarsStatus
, givarsVerificationAttributes
) where
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
import Network.AWS.SES.Types
import Network.AWS.SES.Types.Product
newtype GetIdentityVerificationAttributes = GetIdentityVerificationAttributes'
{ _givaIdentities :: [Text]
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getIdentityVerificationAttributes
:: GetIdentityVerificationAttributes
getIdentityVerificationAttributes =
GetIdentityVerificationAttributes'
{ _givaIdentities = mempty
}
givaIdentities :: Lens' GetIdentityVerificationAttributes [Text]
givaIdentities = lens _givaIdentities (\ s a -> s{_givaIdentities = a}) . _Coerce;
instance AWSRequest GetIdentityVerificationAttributes
where
type Rs GetIdentityVerificationAttributes =
GetIdentityVerificationAttributesResponse
request = postQuery sES
response
= receiveXMLWrapper
"GetIdentityVerificationAttributesResult"
(\ s h x ->
GetIdentityVerificationAttributesResponse' <$>
(pure (fromEnum s)) <*>
(x .@? "VerificationAttributes" .!@ mempty >>=
parseXMLMap "entry" "key" "value"))
instance ToHeaders GetIdentityVerificationAttributes
where
toHeaders = const mempty
instance ToPath GetIdentityVerificationAttributes
where
toPath = const "/"
instance ToQuery GetIdentityVerificationAttributes
where
toQuery GetIdentityVerificationAttributes'{..}
= mconcat
["Action" =:
("GetIdentityVerificationAttributes" :: ByteString),
"Version" =: ("2010-12-01" :: ByteString),
"Identities" =: toQueryList "member" _givaIdentities]
data GetIdentityVerificationAttributesResponse = GetIdentityVerificationAttributesResponse'
{ _givarsStatus :: !Int
, _givarsVerificationAttributes :: !(Map Text IdentityVerificationAttributes)
} deriving (Eq,Read,Show,Data,Typeable,Generic)
getIdentityVerificationAttributesResponse
:: Int
-> GetIdentityVerificationAttributesResponse
getIdentityVerificationAttributesResponse pStatus_ =
GetIdentityVerificationAttributesResponse'
{ _givarsStatus = pStatus_
, _givarsVerificationAttributes = mempty
}
givarsStatus :: Lens' GetIdentityVerificationAttributesResponse Int
givarsStatus = lens _givarsStatus (\ s a -> s{_givarsStatus = a});
givarsVerificationAttributes :: Lens' GetIdentityVerificationAttributesResponse (HashMap Text IdentityVerificationAttributes)
givarsVerificationAttributes = lens _givarsVerificationAttributes (\ s a -> s{_givarsVerificationAttributes = a}) . _Map;