module Network.AWS.SES.VerifyDomainIdentity
(
VerifyDomainIdentity
, verifyDomainIdentity
, vdiDomain
, VerifyDomainIdentityResponse
, verifyDomainIdentityResponse
, vdirVerificationToken
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SES.Types
import qualified GHC.Exts
newtype VerifyDomainIdentity = VerifyDomainIdentity
{ _vdiDomain :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
verifyDomainIdentity :: Text
-> VerifyDomainIdentity
verifyDomainIdentity p1 = VerifyDomainIdentity
{ _vdiDomain = p1
}
vdiDomain :: Lens' VerifyDomainIdentity Text
vdiDomain = lens _vdiDomain (\s a -> s { _vdiDomain = a })
newtype VerifyDomainIdentityResponse = VerifyDomainIdentityResponse
{ _vdirVerificationToken :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
verifyDomainIdentityResponse :: Text
-> VerifyDomainIdentityResponse
verifyDomainIdentityResponse p1 = VerifyDomainIdentityResponse
{ _vdirVerificationToken = p1
}
vdirVerificationToken :: Lens' VerifyDomainIdentityResponse Text
vdirVerificationToken =
lens _vdirVerificationToken (\s a -> s { _vdirVerificationToken = a })
instance ToPath VerifyDomainIdentity where
toPath = const "/"
instance ToQuery VerifyDomainIdentity where
toQuery VerifyDomainIdentity{..} = mconcat
[ "Domain" =? _vdiDomain
]
instance ToHeaders VerifyDomainIdentity
instance AWSRequest VerifyDomainIdentity where
type Sv VerifyDomainIdentity = SES
type Rs VerifyDomainIdentity = VerifyDomainIdentityResponse
request = post "VerifyDomainIdentity"
response = xmlResponse
instance FromXML VerifyDomainIdentityResponse where
parseXML = withElement "VerifyDomainIdentityResult" $ \x -> VerifyDomainIdentityResponse
<$> x .@ "VerificationToken"