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