{-# LANGUAGE DeriveDataTypeable #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE RecordWildCards #-}
{-# LANGUAGE TypeFamilies #-}
{-# OPTIONS_GHC -fno-warn-unused-imports #-}
{-# OPTIONS_GHC -fno-warn-unused-binds #-}
{-# OPTIONS_GHC -fno-warn-unused-matches #-}
module Network.AWS.ElastiCache.DeleteCacheSubnetGroup
(
deleteCacheSubnetGroup
, DeleteCacheSubnetGroup
, dCacheSubnetGroupName
, deleteCacheSubnetGroupResponse
, DeleteCacheSubnetGroupResponse
) where
import Network.AWS.ElastiCache.Types
import Network.AWS.ElastiCache.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteCacheSubnetGroup = DeleteCacheSubnetGroup'
{ _dCacheSubnetGroupName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCacheSubnetGroup
:: Text
-> DeleteCacheSubnetGroup
deleteCacheSubnetGroup pCacheSubnetGroupName_ =
DeleteCacheSubnetGroup' {_dCacheSubnetGroupName = pCacheSubnetGroupName_}
dCacheSubnetGroupName :: Lens' DeleteCacheSubnetGroup Text
dCacheSubnetGroupName = lens _dCacheSubnetGroupName (\ s a -> s{_dCacheSubnetGroupName = a})
instance AWSRequest DeleteCacheSubnetGroup where
type Rs DeleteCacheSubnetGroup =
DeleteCacheSubnetGroupResponse
request = postQuery elastiCache
response
= receiveNull DeleteCacheSubnetGroupResponse'
instance Hashable DeleteCacheSubnetGroup where
instance NFData DeleteCacheSubnetGroup where
instance ToHeaders DeleteCacheSubnetGroup where
toHeaders = const mempty
instance ToPath DeleteCacheSubnetGroup where
toPath = const "/"
instance ToQuery DeleteCacheSubnetGroup where
toQuery DeleteCacheSubnetGroup'{..}
= mconcat
["Action" =:
("DeleteCacheSubnetGroup" :: ByteString),
"Version" =: ("2015-02-02" :: ByteString),
"CacheSubnetGroupName" =: _dCacheSubnetGroupName]
data DeleteCacheSubnetGroupResponse =
DeleteCacheSubnetGroupResponse'
deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteCacheSubnetGroupResponse
:: DeleteCacheSubnetGroupResponse
deleteCacheSubnetGroupResponse = DeleteCacheSubnetGroupResponse'
instance NFData DeleteCacheSubnetGroupResponse where