{-# 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.DAX.DeleteSubnetGroup
(
deleteSubnetGroup
, DeleteSubnetGroup
, dsgSubnetGroupName
, deleteSubnetGroupResponse
, DeleteSubnetGroupResponse
, dsgrsDeletionMessage
, dsgrsResponseStatus
) where
import Network.AWS.DAX.Types
import Network.AWS.DAX.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
newtype DeleteSubnetGroup = DeleteSubnetGroup'
{ _dsgSubnetGroupName :: Text
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubnetGroup
:: Text
-> DeleteSubnetGroup
deleteSubnetGroup pSubnetGroupName_ =
DeleteSubnetGroup' {_dsgSubnetGroupName = pSubnetGroupName_}
dsgSubnetGroupName :: Lens' DeleteSubnetGroup Text
dsgSubnetGroupName = lens _dsgSubnetGroupName (\ s a -> s{_dsgSubnetGroupName = a})
instance AWSRequest DeleteSubnetGroup where
type Rs DeleteSubnetGroup = DeleteSubnetGroupResponse
request = postJSON dax
response
= receiveJSON
(\ s h x ->
DeleteSubnetGroupResponse' <$>
(x .?> "DeletionMessage") <*> (pure (fromEnum s)))
instance Hashable DeleteSubnetGroup where
instance NFData DeleteSubnetGroup where
instance ToHeaders DeleteSubnetGroup where
toHeaders
= const
(mconcat
["X-Amz-Target" =#
("AmazonDAXV3.DeleteSubnetGroup" :: ByteString),
"Content-Type" =#
("application/x-amz-json-1.1" :: ByteString)])
instance ToJSON DeleteSubnetGroup where
toJSON DeleteSubnetGroup'{..}
= object
(catMaybes
[Just ("SubnetGroupName" .= _dsgSubnetGroupName)])
instance ToPath DeleteSubnetGroup where
toPath = const "/"
instance ToQuery DeleteSubnetGroup where
toQuery = const mempty
data DeleteSubnetGroupResponse = DeleteSubnetGroupResponse'
{ _dsgrsDeletionMessage :: !(Maybe Text)
, _dsgrsResponseStatus :: !Int
} deriving (Eq, Read, Show, Data, Typeable, Generic)
deleteSubnetGroupResponse
:: Int
-> DeleteSubnetGroupResponse
deleteSubnetGroupResponse pResponseStatus_ =
DeleteSubnetGroupResponse'
{_dsgrsDeletionMessage = Nothing, _dsgrsResponseStatus = pResponseStatus_}
dsgrsDeletionMessage :: Lens' DeleteSubnetGroupResponse (Maybe Text)
dsgrsDeletionMessage = lens _dsgrsDeletionMessage (\ s a -> s{_dsgrsDeletionMessage = a})
dsgrsResponseStatus :: Lens' DeleteSubnetGroupResponse Int
dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a})
instance NFData DeleteSubnetGroupResponse where