module Network.AWS.ElastiCache.DeleteCacheSecurityGroup
(
deleteCacheSecurityGroup
, DeleteCacheSecurityGroup
, dcsgCacheSecurityGroupName
, deleteCacheSecurityGroupResponse
, DeleteCacheSecurityGroupResponse
) where
import Network.AWS.ElastiCache.Types
import Network.AWS.ElastiCache.Types.Product
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteCacheSecurityGroup = DeleteCacheSecurityGroup'
{ _dcsgCacheSecurityGroupName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCacheSecurityGroup
:: Text
-> DeleteCacheSecurityGroup
deleteCacheSecurityGroup pCacheSecurityGroupName_ =
DeleteCacheSecurityGroup'
{ _dcsgCacheSecurityGroupName = pCacheSecurityGroupName_
}
dcsgCacheSecurityGroupName :: Lens' DeleteCacheSecurityGroup Text
dcsgCacheSecurityGroupName = lens _dcsgCacheSecurityGroupName (\ s a -> s{_dcsgCacheSecurityGroupName = a});
instance AWSRequest DeleteCacheSecurityGroup where
type Sv DeleteCacheSecurityGroup = ElastiCache
type Rs DeleteCacheSecurityGroup =
DeleteCacheSecurityGroupResponse
request = postQuery
response
= receiveNull DeleteCacheSecurityGroupResponse'
instance ToHeaders DeleteCacheSecurityGroup where
toHeaders = const mempty
instance ToPath DeleteCacheSecurityGroup where
toPath = const "/"
instance ToQuery DeleteCacheSecurityGroup where
toQuery DeleteCacheSecurityGroup'{..}
= mconcat
["Action" =:
("DeleteCacheSecurityGroup" :: ByteString),
"Version" =: ("2015-02-02" :: ByteString),
"CacheSecurityGroupName" =:
_dcsgCacheSecurityGroupName]
data DeleteCacheSecurityGroupResponse =
DeleteCacheSecurityGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCacheSecurityGroupResponse
:: DeleteCacheSecurityGroupResponse
deleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse'