module Network.AWS.RDS.RemoveSourceIdentifierFromSubscription
(
removeSourceIdentifierFromSubscription
, RemoveSourceIdentifierFromSubscription
, rsifsSubscriptionName
, rsifsSourceIdentifier
, removeSourceIdentifierFromSubscriptionResponse
, RemoveSourceIdentifierFromSubscriptionResponse
, rsifsrsEventSubscription
, rsifsrsStatus
) where
import Network.AWS.Prelude
import Network.AWS.RDS.Types
import Network.AWS.RDS.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscription'
{ _rsifsSubscriptionName :: !Text
, _rsifsSourceIdentifier :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeSourceIdentifierFromSubscription
:: Text
-> Text
-> RemoveSourceIdentifierFromSubscription
removeSourceIdentifierFromSubscription pSubscriptionName_ pSourceIdentifier_ =
RemoveSourceIdentifierFromSubscription'
{ _rsifsSubscriptionName = pSubscriptionName_
, _rsifsSourceIdentifier = pSourceIdentifier_
}
rsifsSubscriptionName :: Lens' RemoveSourceIdentifierFromSubscription Text
rsifsSubscriptionName = lens _rsifsSubscriptionName (\ s a -> s{_rsifsSubscriptionName = a});
rsifsSourceIdentifier :: Lens' RemoveSourceIdentifierFromSubscription Text
rsifsSourceIdentifier = lens _rsifsSourceIdentifier (\ s a -> s{_rsifsSourceIdentifier = a});
instance AWSRequest
RemoveSourceIdentifierFromSubscription where
type Sv RemoveSourceIdentifierFromSubscription = RDS
type Rs RemoveSourceIdentifierFromSubscription =
RemoveSourceIdentifierFromSubscriptionResponse
request = postQuery
response
= receiveXMLWrapper
"RemoveSourceIdentifierFromSubscriptionResult"
(\ s h x ->
RemoveSourceIdentifierFromSubscriptionResponse' <$>
(x .@? "EventSubscription") <*> (pure (fromEnum s)))
instance ToHeaders
RemoveSourceIdentifierFromSubscription where
toHeaders = const mempty
instance ToPath
RemoveSourceIdentifierFromSubscription where
toPath = const "/"
instance ToQuery
RemoveSourceIdentifierFromSubscription where
toQuery RemoveSourceIdentifierFromSubscription'{..}
= mconcat
["Action" =:
("RemoveSourceIdentifierFromSubscription" ::
ByteString),
"Version" =: ("2014-10-31" :: ByteString),
"SubscriptionName" =: _rsifsSubscriptionName,
"SourceIdentifier" =: _rsifsSourceIdentifier]
data RemoveSourceIdentifierFromSubscriptionResponse = RemoveSourceIdentifierFromSubscriptionResponse'
{ _rsifsrsEventSubscription :: !(Maybe EventSubscription)
, _rsifsrsStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
removeSourceIdentifierFromSubscriptionResponse
:: Int
-> RemoveSourceIdentifierFromSubscriptionResponse
removeSourceIdentifierFromSubscriptionResponse pStatus_ =
RemoveSourceIdentifierFromSubscriptionResponse'
{ _rsifsrsEventSubscription = Nothing
, _rsifsrsStatus = pStatus_
}
rsifsrsEventSubscription :: Lens' RemoveSourceIdentifierFromSubscriptionResponse (Maybe EventSubscription)
rsifsrsEventSubscription = lens _rsifsrsEventSubscription (\ s a -> s{_rsifsrsEventSubscription = a});
rsifsrsStatus :: Lens' RemoveSourceIdentifierFromSubscriptionResponse Int
rsifsrsStatus = lens _rsifsrsStatus (\ s a -> s{_rsifsrsStatus = a});