{-# 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.VerifyDomainDkim
(
VerifyDomainDkim (..),
newVerifyDomainDkim,
verifyDomainDkim_domain,
VerifyDomainDkimResponse (..),
newVerifyDomainDkimResponse,
verifyDomainDkimResponse_httpStatus,
verifyDomainDkimResponse_dkimTokens,
)
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 VerifyDomainDkim = VerifyDomainDkim'
{
VerifyDomainDkim -> Text
domain :: Prelude.Text
}
deriving (VerifyDomainDkim -> VerifyDomainDkim -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VerifyDomainDkim -> VerifyDomainDkim -> Bool
$c/= :: VerifyDomainDkim -> VerifyDomainDkim -> Bool
== :: VerifyDomainDkim -> VerifyDomainDkim -> Bool
$c== :: VerifyDomainDkim -> VerifyDomainDkim -> Bool
Prelude.Eq, ReadPrec [VerifyDomainDkim]
ReadPrec VerifyDomainDkim
Int -> ReadS VerifyDomainDkim
ReadS [VerifyDomainDkim]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [VerifyDomainDkim]
$creadListPrec :: ReadPrec [VerifyDomainDkim]
readPrec :: ReadPrec VerifyDomainDkim
$creadPrec :: ReadPrec VerifyDomainDkim
readList :: ReadS [VerifyDomainDkim]
$creadList :: ReadS [VerifyDomainDkim]
readsPrec :: Int -> ReadS VerifyDomainDkim
$creadsPrec :: Int -> ReadS VerifyDomainDkim
Prelude.Read, Int -> VerifyDomainDkim -> ShowS
[VerifyDomainDkim] -> ShowS
VerifyDomainDkim -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [VerifyDomainDkim] -> ShowS
$cshowList :: [VerifyDomainDkim] -> ShowS
show :: VerifyDomainDkim -> String
$cshow :: VerifyDomainDkim -> String
showsPrec :: Int -> VerifyDomainDkim -> ShowS
$cshowsPrec :: Int -> VerifyDomainDkim -> ShowS
Prelude.Show, forall x. Rep VerifyDomainDkim x -> VerifyDomainDkim
forall x. VerifyDomainDkim -> Rep VerifyDomainDkim x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x. Rep VerifyDomainDkim x -> VerifyDomainDkim
$cfrom :: forall x. VerifyDomainDkim -> Rep VerifyDomainDkim x
Prelude.Generic)
newVerifyDomainDkim ::
Prelude.Text ->
VerifyDomainDkim
newVerifyDomainDkim :: Text -> VerifyDomainDkim
newVerifyDomainDkim Text
pDomain_ =
VerifyDomainDkim' {$sel:domain:VerifyDomainDkim' :: Text
domain = Text
pDomain_}
verifyDomainDkim_domain :: Lens.Lens' VerifyDomainDkim Prelude.Text
verifyDomainDkim_domain :: Lens' VerifyDomainDkim Text
verifyDomainDkim_domain = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyDomainDkim' {Text
domain :: Text
$sel:domain:VerifyDomainDkim' :: VerifyDomainDkim -> Text
domain} -> Text
domain) (\s :: VerifyDomainDkim
s@VerifyDomainDkim' {} Text
a -> VerifyDomainDkim
s {$sel:domain:VerifyDomainDkim' :: Text
domain = Text
a} :: VerifyDomainDkim)
instance Core.AWSRequest VerifyDomainDkim where
type
AWSResponse VerifyDomainDkim =
VerifyDomainDkimResponse
request :: (Service -> Service)
-> VerifyDomainDkim -> Request VerifyDomainDkim
request Service -> Service
overrides =
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 VerifyDomainDkim
-> ClientResponse ClientBody
-> m (Either Error (ClientResponse (AWSResponse VerifyDomainDkim)))
response =
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
"VerifyDomainDkimResult"
( \Int
s ResponseHeaders
h [Node]
x ->
Int -> [Text] -> VerifyDomainDkimResponse
VerifyDomainDkimResponse'
forall (f :: * -> *) a b. Functor 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))
forall (f :: * -> *) a b. Applicative f => f (a -> b) -> f a -> f b
Prelude.<*> ( [Node]
x
forall a. FromXML a => [Node] -> Text -> Either String (Maybe a)
Data..@? Text
"DkimTokens"
forall (f :: * -> *) a. Functor f => f (Maybe a) -> a -> f a
Core..!@ forall a. Monoid a => a
Prelude.mempty
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
Prelude.>>= forall a. FromXML a => Text -> [Node] -> Either String [a]
Data.parseXMLList Text
"member"
)
)
instance Prelude.Hashable VerifyDomainDkim where
hashWithSalt :: Int -> VerifyDomainDkim -> Int
hashWithSalt Int
_salt VerifyDomainDkim' {Text
domain :: Text
$sel:domain:VerifyDomainDkim' :: VerifyDomainDkim -> Text
..} =
Int
_salt forall a. Hashable a => Int -> a -> Int
`Prelude.hashWithSalt` Text
domain
instance Prelude.NFData VerifyDomainDkim where
rnf :: VerifyDomainDkim -> ()
rnf VerifyDomainDkim' {Text
domain :: Text
$sel:domain:VerifyDomainDkim' :: VerifyDomainDkim -> Text
..} = forall a. NFData a => a -> ()
Prelude.rnf Text
domain
instance Data.ToHeaders VerifyDomainDkim where
toHeaders :: VerifyDomainDkim -> ResponseHeaders
toHeaders = forall a b. a -> b -> a
Prelude.const forall a. Monoid a => a
Prelude.mempty
instance Data.ToPath VerifyDomainDkim where
toPath :: VerifyDomainDkim -> ByteString
toPath = forall a b. a -> b -> a
Prelude.const ByteString
"/"
instance Data.ToQuery VerifyDomainDkim where
toQuery :: VerifyDomainDkim -> QueryString
toQuery VerifyDomainDkim' {Text
domain :: Text
$sel:domain:VerifyDomainDkim' :: VerifyDomainDkim -> Text
..} =
forall a. Monoid a => [a] -> a
Prelude.mconcat
[ ByteString
"Action"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"VerifyDomainDkim" :: Prelude.ByteString),
ByteString
"Version"
forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: (ByteString
"2010-12-01" :: Prelude.ByteString),
ByteString
"Domain" forall a. ToQuery a => ByteString -> a -> QueryString
Data.=: Text
domain
]
data VerifyDomainDkimResponse = VerifyDomainDkimResponse'
{
VerifyDomainDkimResponse -> Int
httpStatus :: Prelude.Int,
VerifyDomainDkimResponse -> [Text]
dkimTokens :: [Prelude.Text]
}
deriving (VerifyDomainDkimResponse -> VerifyDomainDkimResponse -> Bool
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
/= :: VerifyDomainDkimResponse -> VerifyDomainDkimResponse -> Bool
$c/= :: VerifyDomainDkimResponse -> VerifyDomainDkimResponse -> Bool
== :: VerifyDomainDkimResponse -> VerifyDomainDkimResponse -> Bool
$c== :: VerifyDomainDkimResponse -> VerifyDomainDkimResponse -> Bool
Prelude.Eq, ReadPrec [VerifyDomainDkimResponse]
ReadPrec VerifyDomainDkimResponse
Int -> ReadS VerifyDomainDkimResponse
ReadS [VerifyDomainDkimResponse]
forall a.
(Int -> ReadS a)
-> ReadS [a] -> ReadPrec a -> ReadPrec [a] -> Read a
readListPrec :: ReadPrec [VerifyDomainDkimResponse]
$creadListPrec :: ReadPrec [VerifyDomainDkimResponse]
readPrec :: ReadPrec VerifyDomainDkimResponse
$creadPrec :: ReadPrec VerifyDomainDkimResponse
readList :: ReadS [VerifyDomainDkimResponse]
$creadList :: ReadS [VerifyDomainDkimResponse]
readsPrec :: Int -> ReadS VerifyDomainDkimResponse
$creadsPrec :: Int -> ReadS VerifyDomainDkimResponse
Prelude.Read, Int -> VerifyDomainDkimResponse -> ShowS
[VerifyDomainDkimResponse] -> ShowS
VerifyDomainDkimResponse -> String
forall a.
(Int -> a -> ShowS) -> (a -> String) -> ([a] -> ShowS) -> Show a
showList :: [VerifyDomainDkimResponse] -> ShowS
$cshowList :: [VerifyDomainDkimResponse] -> ShowS
show :: VerifyDomainDkimResponse -> String
$cshow :: VerifyDomainDkimResponse -> String
showsPrec :: Int -> VerifyDomainDkimResponse -> ShowS
$cshowsPrec :: Int -> VerifyDomainDkimResponse -> ShowS
Prelude.Show, forall x.
Rep VerifyDomainDkimResponse x -> VerifyDomainDkimResponse
forall x.
VerifyDomainDkimResponse -> Rep VerifyDomainDkimResponse x
forall a.
(forall x. a -> Rep a x) -> (forall x. Rep a x -> a) -> Generic a
$cto :: forall x.
Rep VerifyDomainDkimResponse x -> VerifyDomainDkimResponse
$cfrom :: forall x.
VerifyDomainDkimResponse -> Rep VerifyDomainDkimResponse x
Prelude.Generic)
newVerifyDomainDkimResponse ::
Prelude.Int ->
VerifyDomainDkimResponse
newVerifyDomainDkimResponse :: Int -> VerifyDomainDkimResponse
newVerifyDomainDkimResponse Int
pHttpStatus_ =
VerifyDomainDkimResponse'
{ $sel:httpStatus:VerifyDomainDkimResponse' :: Int
httpStatus =
Int
pHttpStatus_,
$sel:dkimTokens:VerifyDomainDkimResponse' :: [Text]
dkimTokens = forall a. Monoid a => a
Prelude.mempty
}
verifyDomainDkimResponse_httpStatus :: Lens.Lens' VerifyDomainDkimResponse Prelude.Int
verifyDomainDkimResponse_httpStatus :: Lens' VerifyDomainDkimResponse Int
verifyDomainDkimResponse_httpStatus = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyDomainDkimResponse' {Int
httpStatus :: Int
$sel:httpStatus:VerifyDomainDkimResponse' :: VerifyDomainDkimResponse -> Int
httpStatus} -> Int
httpStatus) (\s :: VerifyDomainDkimResponse
s@VerifyDomainDkimResponse' {} Int
a -> VerifyDomainDkimResponse
s {$sel:httpStatus:VerifyDomainDkimResponse' :: Int
httpStatus = Int
a} :: VerifyDomainDkimResponse)
verifyDomainDkimResponse_dkimTokens :: Lens.Lens' VerifyDomainDkimResponse [Prelude.Text]
verifyDomainDkimResponse_dkimTokens :: Lens' VerifyDomainDkimResponse [Text]
verifyDomainDkimResponse_dkimTokens = forall s a b t. (s -> a) -> (s -> b -> t) -> Lens s t a b
Lens.lens (\VerifyDomainDkimResponse' {[Text]
dkimTokens :: [Text]
$sel:dkimTokens:VerifyDomainDkimResponse' :: VerifyDomainDkimResponse -> [Text]
dkimTokens} -> [Text]
dkimTokens) (\s :: VerifyDomainDkimResponse
s@VerifyDomainDkimResponse' {} [Text]
a -> VerifyDomainDkimResponse
s {$sel:dkimTokens:VerifyDomainDkimResponse' :: [Text]
dkimTokens = [Text]
a} :: VerifyDomainDkimResponse) forall b c a. (b -> c) -> (a -> b) -> a -> c
Prelude.. forall s t a b. (Coercible s a, Coercible t b) => Iso s t a b
Lens.coerced
instance Prelude.NFData VerifyDomainDkimResponse where
rnf :: VerifyDomainDkimResponse -> ()
rnf VerifyDomainDkimResponse' {Int
[Text]
dkimTokens :: [Text]
httpStatus :: Int
$sel:dkimTokens:VerifyDomainDkimResponse' :: VerifyDomainDkimResponse -> [Text]
$sel:httpStatus:VerifyDomainDkimResponse' :: VerifyDomainDkimResponse -> Int
..} =
forall a. NFData a => a -> ()
Prelude.rnf Int
httpStatus
seq :: forall a b. a -> b -> b
`Prelude.seq` forall a. NFData a => a -> ()
Prelude.rnf [Text]
dkimTokens