module Network.AWS.SES.ListVerifiedEmailAddresses
(
ListVerifiedEmailAddresses
, listVerifiedEmailAddresses
, ListVerifiedEmailAddressesResponse
, listVerifiedEmailAddressesResponse
, lvearVerifiedEmailAddresses
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SES.Types
import qualified GHC.Exts
data ListVerifiedEmailAddresses = ListVerifiedEmailAddresses
deriving (Eq, Ord, Show, Generic)
listVerifiedEmailAddresses :: ListVerifiedEmailAddresses
listVerifiedEmailAddresses = ListVerifiedEmailAddresses
newtype ListVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse
{ _lvearVerifiedEmailAddresses :: List "member" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList ListVerifiedEmailAddressesResponse where
type Item ListVerifiedEmailAddressesResponse = Text
fromList = ListVerifiedEmailAddressesResponse . GHC.Exts.fromList
toList = GHC.Exts.toList . _lvearVerifiedEmailAddresses
listVerifiedEmailAddressesResponse :: ListVerifiedEmailAddressesResponse
listVerifiedEmailAddressesResponse = ListVerifiedEmailAddressesResponse
{ _lvearVerifiedEmailAddresses = mempty
}
lvearVerifiedEmailAddresses :: Lens' ListVerifiedEmailAddressesResponse [Text]
lvearVerifiedEmailAddresses =
lens _lvearVerifiedEmailAddresses
(\s a -> s { _lvearVerifiedEmailAddresses = a })
. _List
instance ToPath ListVerifiedEmailAddresses where
toPath = const "/"
instance ToQuery ListVerifiedEmailAddresses where
toQuery = const mempty
instance ToHeaders ListVerifiedEmailAddresses
instance AWSRequest ListVerifiedEmailAddresses where
type Sv ListVerifiedEmailAddresses = SES
type Rs ListVerifiedEmailAddresses = ListVerifiedEmailAddressesResponse
request = post "ListVerifiedEmailAddresses"
response = xmlResponse
instance FromXML ListVerifiedEmailAddressesResponse where
parseXML = withElement "ListVerifiedEmailAddressesResult" $ \x -> ListVerifiedEmailAddressesResponse
<$> x .@? "VerifiedEmailAddresses" .!@ mempty