module Network.AWS.RDS.RemoveSourceIdentifierFromSubscription
(
RemoveSourceIdentifierFromSubscription
, removeSourceIdentifierFromSubscription
, rsifsSourceIdentifier
, rsifsSubscriptionName
, RemoveSourceIdentifierFromSubscriptionResponse
, removeSourceIdentifierFromSubscriptionResponse
, rsifsrEventSubscription
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.RDS.Types
import qualified GHC.Exts
data RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscription
{ _rsifsSourceIdentifier :: Text
, _rsifsSubscriptionName :: Text
} deriving (Eq, Ord, Show)
removeSourceIdentifierFromSubscription :: Text
-> Text
-> RemoveSourceIdentifierFromSubscription
removeSourceIdentifierFromSubscription p1 p2 = RemoveSourceIdentifierFromSubscription
{ _rsifsSubscriptionName = p1
, _rsifsSourceIdentifier = p2
}
rsifsSourceIdentifier :: Lens' RemoveSourceIdentifierFromSubscription Text
rsifsSourceIdentifier =
lens _rsifsSourceIdentifier (\s a -> s { _rsifsSourceIdentifier = a })
rsifsSubscriptionName :: Lens' RemoveSourceIdentifierFromSubscription Text
rsifsSubscriptionName =
lens _rsifsSubscriptionName (\s a -> s { _rsifsSubscriptionName = a })
newtype RemoveSourceIdentifierFromSubscriptionResponse = RemoveSourceIdentifierFromSubscriptionResponse
{ _rsifsrEventSubscription :: Maybe EventSubscription
} deriving (Eq, Show)
removeSourceIdentifierFromSubscriptionResponse :: RemoveSourceIdentifierFromSubscriptionResponse
removeSourceIdentifierFromSubscriptionResponse = RemoveSourceIdentifierFromSubscriptionResponse
{ _rsifsrEventSubscription = Nothing
}
rsifsrEventSubscription :: Lens' RemoveSourceIdentifierFromSubscriptionResponse (Maybe EventSubscription)
rsifsrEventSubscription =
lens _rsifsrEventSubscription (\s a -> s { _rsifsrEventSubscription = a })
instance ToPath RemoveSourceIdentifierFromSubscription where
toPath = const "/"
instance ToQuery RemoveSourceIdentifierFromSubscription where
toQuery RemoveSourceIdentifierFromSubscription{..} = mconcat
[ "SourceIdentifier" =? _rsifsSourceIdentifier
, "SubscriptionName" =? _rsifsSubscriptionName
]
instance ToHeaders RemoveSourceIdentifierFromSubscription
instance AWSRequest RemoveSourceIdentifierFromSubscription where
type Sv RemoveSourceIdentifierFromSubscription = RDS
type Rs RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscriptionResponse
request = post "RemoveSourceIdentifierFromSubscription"
response = xmlResponse
instance FromXML RemoveSourceIdentifierFromSubscriptionResponse where
parseXML = withElement "RemoveSourceIdentifierFromSubscriptionResult" $ \x -> RemoveSourceIdentifierFromSubscriptionResponse
<$> x .@? "EventSubscription"