module Network.AWS.SES.GetIdentityNotificationAttributes
(
GetIdentityNotificationAttributes
, getIdentityNotificationAttributes
, ginaIdentities
, GetIdentityNotificationAttributesResponse
, getIdentityNotificationAttributesResponse
, ginarNotificationAttributes
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.SES.Types
import qualified GHC.Exts
newtype GetIdentityNotificationAttributes = GetIdentityNotificationAttributes
{ _ginaIdentities :: List "member" Text
} deriving (Eq, Ord, Show, Monoid, Semigroup)
instance GHC.Exts.IsList GetIdentityNotificationAttributes where
type Item GetIdentityNotificationAttributes = Text
fromList = GetIdentityNotificationAttributes . GHC.Exts.fromList
toList = GHC.Exts.toList . _ginaIdentities
getIdentityNotificationAttributes :: GetIdentityNotificationAttributes
getIdentityNotificationAttributes = GetIdentityNotificationAttributes
{ _ginaIdentities = mempty
}
ginaIdentities :: Lens' GetIdentityNotificationAttributes [Text]
ginaIdentities = lens _ginaIdentities (\s a -> s { _ginaIdentities = a }) . _List
newtype GetIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse
{ _ginarNotificationAttributes :: EMap "entry" "key" "value" Text IdentityNotificationAttributes
} deriving (Eq, Show, Monoid, Semigroup)
getIdentityNotificationAttributesResponse :: GetIdentityNotificationAttributesResponse
getIdentityNotificationAttributesResponse = GetIdentityNotificationAttributesResponse
{ _ginarNotificationAttributes = mempty
}
ginarNotificationAttributes :: Lens' GetIdentityNotificationAttributesResponse (HashMap Text IdentityNotificationAttributes)
ginarNotificationAttributes =
lens _ginarNotificationAttributes
(\s a -> s { _ginarNotificationAttributes = a })
. _EMap
instance ToPath GetIdentityNotificationAttributes where
toPath = const "/"
instance ToQuery GetIdentityNotificationAttributes where
toQuery GetIdentityNotificationAttributes{..} = mconcat
[ "Identities" =? _ginaIdentities
]
instance ToHeaders GetIdentityNotificationAttributes
instance AWSRequest GetIdentityNotificationAttributes where
type Sv GetIdentityNotificationAttributes = SES
type Rs GetIdentityNotificationAttributes = GetIdentityNotificationAttributesResponse
request = post "GetIdentityNotificationAttributes"
response = xmlResponse
instance FromXML GetIdentityNotificationAttributesResponse where
parseXML = withElement "GetIdentityNotificationAttributesResult" $ \x -> GetIdentityNotificationAttributesResponse
<$> x .@? "NotificationAttributes" .!@ mempty