module Network.AWS.ElastiCache.DeleteCacheParameterGroup
(
deleteCacheParameterGroup
, DeleteCacheParameterGroup
, dCacheParameterGroupName
, deleteCacheParameterGroupResponse
, DeleteCacheParameterGroupResponse
) 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 DeleteCacheParameterGroup = DeleteCacheParameterGroup'
{ _dCacheParameterGroupName :: Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCacheParameterGroup
:: Text
-> DeleteCacheParameterGroup
deleteCacheParameterGroup pCacheParameterGroupName_ =
DeleteCacheParameterGroup'
{ _dCacheParameterGroupName = pCacheParameterGroupName_
}
dCacheParameterGroupName :: Lens' DeleteCacheParameterGroup Text
dCacheParameterGroupName = lens _dCacheParameterGroupName (\ s a -> s{_dCacheParameterGroupName = a});
instance AWSRequest DeleteCacheParameterGroup where
type Sv DeleteCacheParameterGroup = ElastiCache
type Rs DeleteCacheParameterGroup =
DeleteCacheParameterGroupResponse
request = postQuery
response
= receiveNull DeleteCacheParameterGroupResponse'
instance ToHeaders DeleteCacheParameterGroup where
toHeaders = const mempty
instance ToPath DeleteCacheParameterGroup where
toPath = const "/"
instance ToQuery DeleteCacheParameterGroup where
toQuery DeleteCacheParameterGroup'{..}
= mconcat
["Action" =:
("DeleteCacheParameterGroup" :: ByteString),
"Version" =: ("2015-02-02" :: ByteString),
"CacheParameterGroupName" =:
_dCacheParameterGroupName]
data DeleteCacheParameterGroupResponse =
DeleteCacheParameterGroupResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteCacheParameterGroupResponse
:: DeleteCacheParameterGroupResponse
deleteCacheParameterGroupResponse = DeleteCacheParameterGroupResponse'