module Network.AWS.Redshift.RevokeClusterSecurityGroupIngress
(
revokeClusterSecurityGroupIngress
, RevokeClusterSecurityGroupIngress
, rcsgiEC2SecurityGroupOwnerId
, rcsgiEC2SecurityGroupName
, rcsgiCIdRIP
, rcsgiClusterSecurityGroupName
, revokeClusterSecurityGroupIngressResponse
, RevokeClusterSecurityGroupIngressResponse
, rcsgirsClusterSecurityGroup
, rcsgirsResponseStatus
) where
import Network.AWS.Prelude
import Network.AWS.Redshift.Types
import Network.AWS.Redshift.Types.Product
import Network.AWS.Request
import Network.AWS.Response
data RevokeClusterSecurityGroupIngress = RevokeClusterSecurityGroupIngress'
{ _rcsgiEC2SecurityGroupOwnerId :: !(Maybe Text)
, _rcsgiEC2SecurityGroupName :: !(Maybe Text)
, _rcsgiCIdRIP :: !(Maybe Text)
, _rcsgiClusterSecurityGroupName :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
revokeClusterSecurityGroupIngress
:: Text
-> RevokeClusterSecurityGroupIngress
revokeClusterSecurityGroupIngress pClusterSecurityGroupName_ =
RevokeClusterSecurityGroupIngress'
{ _rcsgiEC2SecurityGroupOwnerId = Nothing
, _rcsgiEC2SecurityGroupName = Nothing
, _rcsgiCIdRIP = Nothing
, _rcsgiClusterSecurityGroupName = pClusterSecurityGroupName_
}
rcsgiEC2SecurityGroupOwnerId :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
rcsgiEC2SecurityGroupOwnerId = lens _rcsgiEC2SecurityGroupOwnerId (\ s a -> s{_rcsgiEC2SecurityGroupOwnerId = a});
rcsgiEC2SecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
rcsgiEC2SecurityGroupName = lens _rcsgiEC2SecurityGroupName (\ s a -> s{_rcsgiEC2SecurityGroupName = a});
rcsgiCIdRIP :: Lens' RevokeClusterSecurityGroupIngress (Maybe Text)
rcsgiCIdRIP = lens _rcsgiCIdRIP (\ s a -> s{_rcsgiCIdRIP = a});
rcsgiClusterSecurityGroupName :: Lens' RevokeClusterSecurityGroupIngress Text
rcsgiClusterSecurityGroupName = lens _rcsgiClusterSecurityGroupName (\ s a -> s{_rcsgiClusterSecurityGroupName = a});
instance AWSRequest RevokeClusterSecurityGroupIngress
where
type Rs RevokeClusterSecurityGroupIngress =
RevokeClusterSecurityGroupIngressResponse
request = postQuery redshift
response
= receiveXMLWrapper
"RevokeClusterSecurityGroupIngressResult"
(\ s h x ->
RevokeClusterSecurityGroupIngressResponse' <$>
(x .@? "ClusterSecurityGroup") <*>
(pure (fromEnum s)))
instance ToHeaders RevokeClusterSecurityGroupIngress
where
toHeaders = const mempty
instance ToPath RevokeClusterSecurityGroupIngress
where
toPath = const "/"
instance ToQuery RevokeClusterSecurityGroupIngress
where
toQuery RevokeClusterSecurityGroupIngress'{..}
= mconcat
["Action" =:
("RevokeClusterSecurityGroupIngress" :: ByteString),
"Version" =: ("2012-12-01" :: ByteString),
"EC2SecurityGroupOwnerId" =:
_rcsgiEC2SecurityGroupOwnerId,
"EC2SecurityGroupName" =: _rcsgiEC2SecurityGroupName,
"CIDRIP" =: _rcsgiCIdRIP,
"ClusterSecurityGroupName" =:
_rcsgiClusterSecurityGroupName]
data RevokeClusterSecurityGroupIngressResponse = RevokeClusterSecurityGroupIngressResponse'
{ _rcsgirsClusterSecurityGroup :: !(Maybe ClusterSecurityGroup)
, _rcsgirsResponseStatus :: !Int
} deriving (Eq,Read,Show,Data,Typeable,Generic)
revokeClusterSecurityGroupIngressResponse
:: Int
-> RevokeClusterSecurityGroupIngressResponse
revokeClusterSecurityGroupIngressResponse pResponseStatus_ =
RevokeClusterSecurityGroupIngressResponse'
{ _rcsgirsClusterSecurityGroup = Nothing
, _rcsgirsResponseStatus = pResponseStatus_
}
rcsgirsClusterSecurityGroup :: Lens' RevokeClusterSecurityGroupIngressResponse (Maybe ClusterSecurityGroup)
rcsgirsClusterSecurityGroup = lens _rcsgirsClusterSecurityGroup (\ s a -> s{_rcsgirsClusterSecurityGroup = a});
rcsgirsResponseStatus :: Lens' RevokeClusterSecurityGroupIngressResponse Int
rcsgirsResponseStatus = lens _rcsgirsResponseStatus (\ s a -> s{_rcsgirsResponseStatus = a});