module Network.AWS.ElastiCache.DeleteCacheSecurityGroup
(
DeleteCacheSecurityGroup
, deleteCacheSecurityGroup
, dcsgCacheSecurityGroupName
, DeleteCacheSecurityGroupResponse
, deleteCacheSecurityGroupResponse
) where
import Network.AWS.Prelude
import Network.AWS.Request.Query
import Network.AWS.ElastiCache.Types
import qualified GHC.Exts
newtype DeleteCacheSecurityGroup = DeleteCacheSecurityGroup
{ _dcsgCacheSecurityGroupName :: Text
} deriving (Eq, Ord, Show, Monoid, IsString)
deleteCacheSecurityGroup :: Text
-> DeleteCacheSecurityGroup
deleteCacheSecurityGroup p1 = DeleteCacheSecurityGroup
{ _dcsgCacheSecurityGroupName = p1
}
dcsgCacheSecurityGroupName :: Lens' DeleteCacheSecurityGroup Text
dcsgCacheSecurityGroupName =
lens _dcsgCacheSecurityGroupName
(\s a -> s { _dcsgCacheSecurityGroupName = a })
data DeleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse
deriving (Eq, Ord, Show, Generic)
deleteCacheSecurityGroupResponse :: DeleteCacheSecurityGroupResponse
deleteCacheSecurityGroupResponse = DeleteCacheSecurityGroupResponse
instance ToPath DeleteCacheSecurityGroup where
toPath = const "/"
instance ToQuery DeleteCacheSecurityGroup where
toQuery DeleteCacheSecurityGroup{..} = mconcat
[ "CacheSecurityGroupName" =? _dcsgCacheSecurityGroupName
]
instance ToHeaders DeleteCacheSecurityGroup
instance AWSRequest DeleteCacheSecurityGroup where
type Sv DeleteCacheSecurityGroup = ElastiCache
type Rs DeleteCacheSecurityGroup = DeleteCacheSecurityGroupResponse
request = post "DeleteCacheSecurityGroup"
response = nullResponse DeleteCacheSecurityGroupResponse