module Network.AWS.EC2.DeleteRouteTable
(
deleteRouteTable
, DeleteRouteTable
, drtrDryRun
, drtrRouteTableId
, deleteRouteTableResponse
, DeleteRouteTableResponse
) where
import Network.AWS.EC2.Types
import Network.AWS.EC2.Types.Product
import Network.AWS.Lens
import Network.AWS.Prelude
import Network.AWS.Request
import Network.AWS.Response
data DeleteRouteTable = DeleteRouteTable'
{ _drtrDryRun :: !(Maybe Bool)
, _drtrRouteTableId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRouteTable
:: Text
-> DeleteRouteTable
deleteRouteTable pRouteTableId_ =
DeleteRouteTable'
{ _drtrDryRun = Nothing
, _drtrRouteTableId = pRouteTableId_
}
drtrDryRun :: Lens' DeleteRouteTable (Maybe Bool)
drtrDryRun = lens _drtrDryRun (\ s a -> s{_drtrDryRun = a});
drtrRouteTableId :: Lens' DeleteRouteTable Text
drtrRouteTableId = lens _drtrRouteTableId (\ s a -> s{_drtrRouteTableId = a});
instance AWSRequest DeleteRouteTable where
type Rs DeleteRouteTable = DeleteRouteTableResponse
request = postQuery ec2
response = receiveNull DeleteRouteTableResponse'
instance Hashable DeleteRouteTable
instance NFData DeleteRouteTable
instance ToHeaders DeleteRouteTable where
toHeaders = const mempty
instance ToPath DeleteRouteTable where
toPath = const "/"
instance ToQuery DeleteRouteTable where
toQuery DeleteRouteTable'{..}
= mconcat
["Action" =: ("DeleteRouteTable" :: ByteString),
"Version" =: ("2015-10-01" :: ByteString),
"DryRun" =: _drtrDryRun,
"RouteTableId" =: _drtrRouteTableId]
data DeleteRouteTableResponse =
DeleteRouteTableResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRouteTableResponse
:: DeleteRouteTableResponse
deleteRouteTableResponse = DeleteRouteTableResponse'
instance NFData DeleteRouteTableResponse