{-# 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.EC2.DeleteRoute
(
deleteRoute
, DeleteRoute
, drDestinationIPv6CidrBlock
, drDryRun
, drDestinationCidrBlock
, drRouteTableId
, deleteRouteResponse
, DeleteRouteResponse
) 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 DeleteRoute = DeleteRoute'
{ _drDestinationIPv6CidrBlock :: !(Maybe Text)
, _drDryRun :: !(Maybe Bool)
, _drDestinationCidrBlock :: !(Maybe Text)
, _drRouteTableId :: !Text
} deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRoute
:: Text
-> DeleteRoute
deleteRoute pRouteTableId_ =
DeleteRoute'
{ _drDestinationIPv6CidrBlock = Nothing
, _drDryRun = Nothing
, _drDestinationCidrBlock = Nothing
, _drRouteTableId = pRouteTableId_
}
drDestinationIPv6CidrBlock :: Lens' DeleteRoute (Maybe Text)
drDestinationIPv6CidrBlock = lens _drDestinationIPv6CidrBlock (\ s a -> s{_drDestinationIPv6CidrBlock = a});
drDryRun :: Lens' DeleteRoute (Maybe Bool)
drDryRun = lens _drDryRun (\ s a -> s{_drDryRun = a});
drDestinationCidrBlock :: Lens' DeleteRoute (Maybe Text)
drDestinationCidrBlock = lens _drDestinationCidrBlock (\ s a -> s{_drDestinationCidrBlock = a});
drRouteTableId :: Lens' DeleteRoute Text
drRouteTableId = lens _drRouteTableId (\ s a -> s{_drRouteTableId = a});
instance AWSRequest DeleteRoute where
type Rs DeleteRoute = DeleteRouteResponse
request = postQuery ec2
response = receiveNull DeleteRouteResponse'
instance Hashable DeleteRoute
instance NFData DeleteRoute
instance ToHeaders DeleteRoute where
toHeaders = const mempty
instance ToPath DeleteRoute where
toPath = const "/"
instance ToQuery DeleteRoute where
toQuery DeleteRoute'{..}
= mconcat
["Action" =: ("DeleteRoute" :: ByteString),
"Version" =: ("2016-11-15" :: ByteString),
"DestinationIpv6CidrBlock" =:
_drDestinationIPv6CidrBlock,
"DryRun" =: _drDryRun,
"DestinationCidrBlock" =: _drDestinationCidrBlock,
"RouteTableId" =: _drRouteTableId]
data DeleteRouteResponse =
DeleteRouteResponse'
deriving (Eq,Read,Show,Data,Typeable,Generic)
deleteRouteResponse
:: DeleteRouteResponse
deleteRouteResponse = DeleteRouteResponse'
instance NFData DeleteRouteResponse